820: FII_UTIL.Write_Log ('Other error in Main ');
821: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
822: FII_UTIL.Write_Log ('-->'|| sqlcode ||':'|| substr(sqlerrm,1,180));
823:
824: FND_CONCURRENT.Af_Rollback;
825: retcode := sqlcode;
826: errbuf := sqlerrm;
827: ret_val := FND_CONCURRENT.Set_Completion_Status
828: (status => 'ERROR', message => substr(errbuf,1,180));
823:
824: FND_CONCURRENT.Af_Rollback;
825: retcode := sqlcode;
826: errbuf := sqlerrm;
827: ret_val := FND_CONCURRENT.Set_Completion_Status
828: (status => 'ERROR', message => substr(errbuf,1,180));
829:
830: END Main;
831: