157: l_status_code varchar2(80);
158: l_dev_phase varchar2(15);
159: l_message varchar2(255);
160:
161: L_SUB_REQTAB fnd_concurrent.requests_tab_type;
162: req_data varchar2(10);
163: submit_req boolean;
164:
165: PAY_UPGRADE_RUNNING exception;
316: end;
317: end if;
318: else
319:
320: l_sub_reqtab := fnd_concurrent.get_sub_requests(fnd_global.conc_request_id);
321:
322: x_retcode := FND_API.G_RET_STS_SUCCESS;
323:
324: for i IN 1..l_sub_reqtab.COUNT()
366: EXCEPTION
367: WHEN submit_conc_failed THEN
368: X_retcode := FND_API.g_ret_sts_unexp_error;
369: X_errbuf:=l_module||'.'||l_stmt_num||': Submit concurrent request failed.';
370: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
371:
372: WHEN fnd_api.g_exc_unexpected_error THEN
373: X_retcode := FND_API.g_ret_sts_unexp_error;
374:
372: WHEN fnd_api.g_exc_unexpected_error THEN
373: X_retcode := FND_API.g_ret_sts_unexp_error;
374:
375: X_errbuf:=l_module||'.'||l_stmt_num||': An exception has occurred.';
376: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
377:
378: WHEN fnd_api.g_exc_error THEN
379: X_retcode := FND_API.g_ret_sts_error;
380:
378: WHEN fnd_api.g_exc_error THEN
379: X_retcode := FND_API.g_ret_sts_error;
380:
381: X_errbuf:=l_module||'.'||l_stmt_num||': '|| SQLERRM;
382: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
383:
384: WHEN OTHERS THEN
385: X_retcode := FND_API.g_ret_sts_unexp_error;
386: X_errbuf:=l_module||'.'||l_stmt_num||': '|| SQLERRM;
383:
384: WHEN OTHERS THEN
385: X_retcode := FND_API.g_ret_sts_unexp_error;
386: X_errbuf:=l_module||'.'||l_stmt_num||': '|| SQLERRM;
387: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
388:
389: END Update_Proc_PAY_MGR;
390:
391: ----------------------------------------------------------------------------------------
532: EXCEPTION
533: WHEN update_subledger_exception THEN
534: ROLLBACK;
535: X_errbuf:=l_module||'.'||l_stmt_num||': '|| SQLERRM;
536: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
537:
538: WHEN fnd_api.g_exc_unexpected_error THEN
539: ROLLBACK;
540: X_retcode := FND_API.g_ret_sts_unexp_error;
538: WHEN fnd_api.g_exc_unexpected_error THEN
539: ROLLBACK;
540: X_retcode := FND_API.g_ret_sts_unexp_error;
541: X_errbuf:=l_module||'.'||l_stmt_num||': An exception has occurred.';
542: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
543:
544: WHEN fnd_api.g_exc_error THEN
545: ROLLBACK;
546: X_retcode := FND_API.g_ret_sts_error;
544: WHEN fnd_api.g_exc_error THEN
545: ROLLBACK;
546: X_retcode := FND_API.g_ret_sts_error;
547: X_errbuf:=l_module||'.'||l_stmt_num||': '|| SQLERRM;
548: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
549:
550: WHEN OTHERS THEN
551: ROLLBACK;
552: X_retcode := FND_API.g_ret_sts_unexp_error;
550: WHEN OTHERS THEN
551: ROLLBACK;
552: X_retcode := FND_API.g_ret_sts_unexp_error;
553: X_errbuf:=l_module||'.'||l_stmt_num||': '|| SQLERRM;
554: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
555:
556: END Update_Proc_PAY_WKR;
557:
558: ----------------------------------------------------------------------------------------