$Pin1='pin1';
$Pin2='pin2';
...
$Pin5='pin5';
$sth = OCIParse ( $con,"begin :result :=PAK1.FUN1( Pin1,:Pin2,...:Pin5,:Pout1,Pout2,...,:Pout6);end;" );
#связываем входные параметры
OCIBindByName ( $sth, ":Pin1", $Pin1, 10 );
OCIBindByName ( $sth, ":Pin2", $Pin2, 10 );
...
OCIBindByName ( $sth, ":Pin5", $Pin5, 10 );
#связываем ВЫходные параметры
#не уверен что это нужно
OCIBindByName ( $sth, ":Pout1", $Pout1, 20 );
OCIBindByName ( $sth, ":Pout2", $Pout2, 10 );
...
OCIBindByName ( $sth, ":Pout6", $Pout6, 10 );
OCIBindByName ( $sth, ":result", $result, 10 );
OCIExecute ( $sth );
echo "123";
echo $result;
echo $Pout1;
...
echo $Pout6;