881: END IF;
882: RETCODE := 1;
883: IF NOT (l_success) THEN
884:
885: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',ERRBUF);
886: ELSE
887:
888: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL',ERRBUF);
889: END IF;
884:
885: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',ERRBUF);
886: ELSE
887:
888: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL',ERRBUF);
889: END IF;
890:
891: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
892: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--------------------------------------------------------------------------------------------------------------------');
908: RETCODE := 2;
909: IF g_debug = 1 THEN
910: debug('Error occurred - '||SQLERRM);
911: END IF;
912: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
913: ROLLBACK;
914: RETURN;
915: WHEN OTHERS THEN
916: IF DBMS_SQL.is_open(d_sql_p) THEN
919: RETCODE := 2;
920: IF g_debug = 1 THEN
921: debug(' Unexpected error occurred => '||SQLERRM);
922: END IF;
923: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
924: ROLLBACK;
925: RETURN;
926:
927: END CALCULATE_BILLING_UNITS;