6: x_retcode OUT NOCOPY VARCHAR2
7: ) IS
8: BEGIN
9: -- Parent Processing
10: AD_CONC_UTILS_PKG.submit_subrequests
11: (x_errbuf => x_errbuf,
12: x_retcode => x_retcode,
13: x_workerconc_app_shortname => 'CS', --l_product,
14: x_workerconc_progname => 'CSSRAUDCWKR',
921: FALSE);
922:
923: END LOOP; --{Loop1
924:
925: x_retcode := AD_CONC_UTILS_PKG.CONC_SUCCESS;
926:
927: EXCEPTION
928: WHEN OTHERS THEN
929: x_retcode := AD_CONC_UTILS_PKG.CONC_FAIL;
925: x_retcode := AD_CONC_UTILS_PKG.CONC_SUCCESS;
926:
927: EXCEPTION
928: WHEN OTHERS THEN
929: x_retcode := AD_CONC_UTILS_PKG.CONC_FAIL;
930: RAISE;
931: END; --AB1
932:
933: EXCEPTION
931: END; --AB1
932:
933: EXCEPTION
934: WHEN OTHERS THEN
935: x_retcode := AD_CONC_UTILS_PKG.CONC_FAIL;
936: RAISE;
937: END Create_Initial_Audit_Worker;
938:
939: END CS_CREATE_AUDIT_REC_PKG;