609: raise_application_error(-20001, 'SUBMIT_SUBREQUESTS() must be called from a concurrent request');
610: end if;
611:
612: -- Standard call to check for call compatibility
613: IF NOT FND_API.Compatible_API_Call (
614: l_api_version,
615: 1.0,
616: l_api_name,
617: G_PKG_NAME ) THEN
614: l_api_version,
615: 1.0,
616: l_api_name,
617: G_PKG_NAME ) THEN
618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
619: END IF;
620:
621: x_retcode := FND_API.G_RET_STS_SUCCESS;
622:
617: G_PKG_NAME ) THEN
618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
619: END IF;
620:
621: x_retcode := FND_API.G_RET_STS_SUCCESS;
622:
623: l_product :='PAY';
624:
625: l_stmt_num :=10;
688: else
689:
690: l_sub_reqtab := fnd_concurrent.get_sub_requests(fnd_global.conc_request_id);
691:
692: x_retcode := FND_API.G_RET_STS_SUCCESS;
693:
694: for i IN 1..l_sub_reqtab.COUNT()
695: loop
696:
694: for i IN 1..l_sub_reqtab.COUNT()
695: loop
696:
697: if (l_sub_reqtab(i).dev_status <> 'NORMAL') then
698: X_retcode := FND_API.g_ret_sts_unexp_error;
699: end if;
700:
701: end loop;
702: end if;
706: End if;
707:
708: EXCEPTION
709: WHEN submit_conc_failed THEN
710: X_retcode := FND_API.g_ret_sts_unexp_error;
711: X_errbuf:=l_module||'.'||l_stmt_num||': Submit concurrent request failed.';
712: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
713:
714: WHEN fnd_api.g_exc_unexpected_error THEN
710: X_retcode := FND_API.g_ret_sts_unexp_error;
711: X_errbuf:=l_module||'.'||l_stmt_num||': Submit concurrent request failed.';
712: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
713:
714: WHEN fnd_api.g_exc_unexpected_error THEN
715: X_retcode := FND_API.g_ret_sts_unexp_error;
716:
717: X_errbuf:=l_module||'.'||l_stmt_num||': An exception has occurred.';
718: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
711: X_errbuf:=l_module||'.'||l_stmt_num||': Submit concurrent request failed.';
712: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
713:
714: WHEN fnd_api.g_exc_unexpected_error THEN
715: X_retcode := FND_API.g_ret_sts_unexp_error;
716:
717: X_errbuf:=l_module||'.'||l_stmt_num||': An exception has occurred.';
718: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
719:
716:
717: X_errbuf:=l_module||'.'||l_stmt_num||': An exception has occurred.';
718: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
719:
720: WHEN fnd_api.g_exc_error THEN
721: X_retcode := FND_API.g_ret_sts_error;
722:
723: X_errbuf:=l_module||'.'||l_stmt_num||': '|| SQLERRM;
724: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
717: X_errbuf:=l_module||'.'||l_stmt_num||': An exception has occurred.';
718: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
719:
720: WHEN fnd_api.g_exc_error THEN
721: X_retcode := FND_API.g_ret_sts_error;
722:
723: X_errbuf:=l_module||'.'||l_stmt_num||': '|| SQLERRM;
724: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
725:
723: X_errbuf:=l_module||'.'||l_stmt_num||': '|| SQLERRM;
724: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
725:
726: WHEN OTHERS THEN
727: X_retcode := FND_API.g_ret_sts_unexp_error;
728: X_errbuf:=l_module||'.'||l_stmt_num||': '|| SQLERRM;
729: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
730:
731: END Delete_Proc_PAY_MGR;
831: If lv_debug_enabled then
832: fnd_file.put_line(fnd_file.log,'After calling Update_Payroll_Subledger');
833: End if;
834:
835: if (X_retcode <>FND_API.G_RET_STS_SUCCESS) then
836: raise update_exception;
837: end if;
838:
839: l_rows_processed := X_batch_size;
874: ROLLBACK;
875: X_errbuf:=l_module||'.'||l_stmt_num||': '|| SQLERRM;
876: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
877:
878: WHEN fnd_api.g_exc_unexpected_error THEN
879: ROLLBACK;
880: X_retcode := FND_API.g_ret_sts_unexp_error;
881: X_errbuf:=l_module||'.'||l_stmt_num||': An exception has occurred.';
882: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
876: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
877:
878: WHEN fnd_api.g_exc_unexpected_error THEN
879: ROLLBACK;
880: X_retcode := FND_API.g_ret_sts_unexp_error;
881: X_errbuf:=l_module||'.'||l_stmt_num||': An exception has occurred.';
882: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
883:
884: WHEN fnd_api.g_exc_error THEN
880: X_retcode := FND_API.g_ret_sts_unexp_error;
881: X_errbuf:=l_module||'.'||l_stmt_num||': An exception has occurred.';
882: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
883:
884: WHEN fnd_api.g_exc_error THEN
885: ROLLBACK;
886: X_retcode := FND_API.g_ret_sts_error;
887: X_errbuf:=l_module||'.'||l_stmt_num||': '|| SQLERRM;
888: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
882: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
883:
884: WHEN fnd_api.g_exc_error THEN
885: ROLLBACK;
886: X_retcode := FND_API.g_ret_sts_error;
887: X_errbuf:=l_module||'.'||l_stmt_num||': '|| SQLERRM;
888: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
889:
890: WHEN OTHERS THEN
888: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
889:
890: WHEN OTHERS THEN
891: ROLLBACK;
892: X_retcode := FND_API.g_ret_sts_unexp_error;
893: X_errbuf:=l_module||'.'||l_stmt_num||': '|| SQLERRM;
894: l_conc_status:=FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',X_errbuf);
895:
896: END Delete_Proc_PAY_WKR;