$sth_dipp = $dbh_ideas->prepare(q{DECLARE dipp PacProject.dipp_project_cur; BEGIN pacproject.get_dipp_projects(:dipp); END;});
$sth_dipp->bind_param_inout(":dipp",\$s_dipp_proj,0,{ora_type => ORA_RSET});
$sth_dipp->execute;

my ($name, $code, $RA, $manager);
$sth_dipp->bind_columns(\($name, $code, $RA, $manager));


while ( $sth_dipp->fetch ){
	$name ||= 'Unknown';
	$code ||= 'Unknown';
	$RA ||= 'Unknown';
	$manager ||= 'Unknown';

    print qq|$name,$code,$RA,"$manager"\n|;	
}