799: ------------------------------------------------------------------------
800: -- Create a batch process id and an initial row for process statistics
801: -------------------------------------------------------------------------
802: IF l_first_time = 'Y' then
803: l_user_id := Fnd_Global.user_id;
804: l_login_id := Fnd_Global.login_id;
805: l_return_status := G_RET_STS_SUCCESS;
806:
807: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
800: -- Create a batch process id and an initial row for process statistics
801: -------------------------------------------------------------------------
802: IF l_first_time = 'Y' then
803: l_user_id := Fnd_Global.user_id;
804: l_login_id := Fnd_Global.login_id;
805: l_return_status := G_RET_STS_SUCCESS;
806:
807: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
808: l_program_id := NULL;
803: l_user_id := Fnd_Global.user_id;
804: l_login_id := Fnd_Global.login_id;
805: l_return_status := G_RET_STS_SUCCESS;
806:
807: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
808: l_program_id := NULL;
809: ELSE
810: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
811: END IF;
806:
807: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
808: l_program_id := NULL;
809: ELSE
810: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
811: END IF;
812:
813: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
814: l_program_login_id := NULL;
809: ELSE
810: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
811: END IF;
812:
813: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
814: l_program_login_id := NULL;
815: ELSE
816: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
817: END IF;
812:
813: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
814: l_program_login_id := NULL;
815: ELSE
816: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
817: END IF;
818:
819: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
820: l_program_appl_id := NULL;
815: ELSE
816: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
817: END IF;
818:
819: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
820: l_program_appl_id := NULL;
821: ELSE
822: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
823: END IF;
818:
819: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
820: l_program_appl_id := NULL;
821: ELSE
822: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
823: END IF;
824:
825: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
826: l_request_id := NULL;
821: ELSE
822: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
823: END IF;
824:
825: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
826: l_request_id := NULL;
827: ELSE
828: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
829: END IF;
824:
825: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
826: l_request_id := NULL;
827: ELSE
828: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
829: END IF;
830:
831:
832: IF p_batch_procs_id = 0 THEN
1405: cur_inf_id1 NUMBER :=0;
1406: l_insert_errors_exception EXCEPTION;
1407: l_insert_errors_error CONSTANT VARCHAR2(1) := 'X';
1408: BEGIN
1409: l_user_id := Fnd_Global.user_id;
1410: l_login_id := Fnd_Global.login_id;
1411:
1412: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
1413: l_program_id := NULL;
1406: l_insert_errors_exception EXCEPTION;
1407: l_insert_errors_error CONSTANT VARCHAR2(1) := 'X';
1408: BEGIN
1409: l_user_id := Fnd_Global.user_id;
1410: l_login_id := Fnd_Global.login_id;
1411:
1412: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
1413: l_program_id := NULL;
1414: ELSE
1408: BEGIN
1409: l_user_id := Fnd_Global.user_id;
1410: l_login_id := Fnd_Global.login_id;
1411:
1412: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
1413: l_program_id := NULL;
1414: ELSE
1415: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
1416: END IF;
1411:
1412: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
1413: l_program_id := NULL;
1414: ELSE
1415: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
1416: END IF;
1417:
1418: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
1419: l_program_login_id := NULL;
1414: ELSE
1415: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
1416: END IF;
1417:
1418: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
1419: l_program_login_id := NULL;
1420: ELSE
1421: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
1422: END IF;
1417:
1418: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
1419: l_program_login_id := NULL;
1420: ELSE
1421: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
1422: END IF;
1423:
1424: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
1425: l_program_appl_id := NULL;
1420: ELSE
1421: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
1422: END IF;
1423:
1424: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
1425: l_program_appl_id := NULL;
1426: ELSE
1427: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
1428: END IF;
1423:
1424: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
1425: l_program_appl_id := NULL;
1426: ELSE
1427: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
1428: END IF;
1429:
1430: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
1431: l_request_id := NULL;
1426: ELSE
1427: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
1428: END IF;
1429:
1430: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
1431: l_request_id := NULL;
1432: ELSE
1433: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
1434: END IF;
1429:
1430: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
1431: l_request_id := NULL;
1432: ELSE
1433: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
1434: END IF;
1435:
1436: IF ( err_batch_process_id_tbl.COUNT > 0) THEN
1437: FOR i_err in err_batch_process_id_tbl.FIRST
2083: -- Initialize API return status to success
2084: x_return_status := FND_API.G_RET_STS_SUCCESS;
2085: l_return_status := G_RET_STS_SUCCESS;
2086: -- Cache user_id, login_id and org_id
2087: l_user_id := Fnd_Global.user_id;
2088: l_login_id := Fnd_Global.login_id;
2089: l_userenv_lang := USERENV('LANG');
2090:
2091: -- MOAC
2084: x_return_status := FND_API.G_RET_STS_SUCCESS;
2085: l_return_status := G_RET_STS_SUCCESS;
2086: -- Cache user_id, login_id and org_id
2087: l_user_id := Fnd_Global.user_id;
2088: l_login_id := Fnd_Global.login_id;
2089: l_userenv_lang := USERENV('LANG');
2090:
2091: -- MOAC
2092: G_CURRENT_ORG_ID := mo_global.get_current_org_id();
2108: l_adoption_type := 'LOCAL';
2109: END IF;
2110:
2111:
2112: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
2113: l_program_id := NULL;
2114: ELSE
2115: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
2116: END IF;
2111:
2112: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
2113: l_program_id := NULL;
2114: ELSE
2115: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
2116: END IF;
2117:
2118: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
2119: l_program_login_id := NULL;
2114: ELSE
2115: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
2116: END IF;
2117:
2118: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
2119: l_program_login_id := NULL;
2120: ELSE
2121: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
2122: END IF;
2117:
2118: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
2119: l_program_login_id := NULL;
2120: ELSE
2121: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
2122: END IF;
2123:
2124: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
2125: l_program_appl_id := NULL;
2120: ELSE
2121: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
2122: END IF;
2123:
2124: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
2125: l_program_appl_id := NULL;
2126: ELSE
2127: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
2128: END IF;
2123:
2124: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
2125: l_program_appl_id := NULL;
2126: ELSE
2127: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
2128: END IF;
2129:
2130: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
2131: l_request_id := NULL;
2126: ELSE
2127: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
2128: END IF;
2129:
2130: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
2131: l_request_id := NULL;
2132: ELSE
2133: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
2134: END IF;
2129:
2130: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
2131: l_request_id := NULL;
2132: ELSE
2133: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
2134: END IF;
2135:
2136: l_batch_process_id := p_batch_procs_id;
2137: ------------------------------------------------------------------------
4579: -- Initialize API return status to success
4580: x_return_status := FND_API.G_RET_STS_SUCCESS;
4581: l_return_status := G_RET_STS_SUCCESS;
4582: -- Cache user_id, login_id and org_id
4583: l_user_id := Fnd_Global.user_id;
4584: l_login_id := Fnd_Global.login_id;
4585:
4586: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
4587: l_program_id := NULL;
4580: x_return_status := FND_API.G_RET_STS_SUCCESS;
4581: l_return_status := G_RET_STS_SUCCESS;
4582: -- Cache user_id, login_id and org_id
4583: l_user_id := Fnd_Global.user_id;
4584: l_login_id := Fnd_Global.login_id;
4585:
4586: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
4587: l_program_id := NULL;
4588: ELSE
4582: -- Cache user_id, login_id and org_id
4583: l_user_id := Fnd_Global.user_id;
4584: l_login_id := Fnd_Global.login_id;
4585:
4586: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
4587: l_program_id := NULL;
4588: ELSE
4589: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
4590: END IF;
4585:
4586: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
4587: l_program_id := NULL;
4588: ELSE
4589: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
4590: END IF;
4591:
4592: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
4593: l_program_login_id := NULL;
4588: ELSE
4589: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
4590: END IF;
4591:
4592: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
4593: l_program_login_id := NULL;
4594: ELSE
4595: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
4596: END IF;
4591:
4592: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
4593: l_program_login_id := NULL;
4594: ELSE
4595: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
4596: END IF;
4597:
4598: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
4599: l_program_appl_id := NULL;
4594: ELSE
4595: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
4596: END IF;
4597:
4598: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
4599: l_program_appl_id := NULL;
4600: ELSE
4601: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
4602: END IF;
4597:
4598: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
4599: l_program_appl_id := NULL;
4600: ELSE
4601: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
4602: END IF;
4603:
4604: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
4605: l_request_id := NULL;
4600: ELSE
4601: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
4602: END IF;
4603:
4604: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
4605: l_request_id := NULL;
4606: ELSE
4607: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
4608: END IF;
4603:
4604: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
4605: l_request_id := NULL;
4606: ELSE
4607: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
4608: END IF;
4609:
4610: l_batch_process_id := p_batch_procs_id;
4611: -------------------------------------------------------------------------
6014: -- Initialize API return status to success
6015: x_return_status := FND_API.G_RET_STS_SUCCESS;
6016: l_return_status := G_RET_STS_SUCCESS;
6017: -- Cache user_id, login_id and org_id
6018: l_user_id := Fnd_Global.user_id;
6019: l_login_id := Fnd_Global.login_id;
6020: -- MOAC
6021: G_CURRENT_ORG_ID := mo_global.get_current_org_id();
6022: /*
6015: x_return_status := FND_API.G_RET_STS_SUCCESS;
6016: l_return_status := G_RET_STS_SUCCESS;
6017: -- Cache user_id, login_id and org_id
6018: l_user_id := Fnd_Global.user_id;
6019: l_login_id := Fnd_Global.login_id;
6020: -- MOAC
6021: G_CURRENT_ORG_ID := mo_global.get_current_org_id();
6022: /*
6023: OPEN cur_org_csr;
6030: OKC_API.SET_MESSAGE(G_APP_NAME,'OKC_ART_NULL_ORG_ID');
6031: RAISE FND_API.G_EXC_ERROR ;
6032: END IF;
6033:
6034: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
6035: l_program_id := NULL;
6036: ELSE
6037: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
6038: END IF;
6033:
6034: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
6035: l_program_id := NULL;
6036: ELSE
6037: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
6038: END IF;
6039:
6040: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
6041: l_program_login_id := NULL;
6036: ELSE
6037: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
6038: END IF;
6039:
6040: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
6041: l_program_login_id := NULL;
6042: ELSE
6043: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
6044: END IF;
6039:
6040: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
6041: l_program_login_id := NULL;
6042: ELSE
6043: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
6044: END IF;
6045:
6046: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
6047: l_program_appl_id := NULL;
6042: ELSE
6043: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
6044: END IF;
6045:
6046: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
6047: l_program_appl_id := NULL;
6048: ELSE
6049: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
6050: END IF;
6045:
6046: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
6047: l_program_appl_id := NULL;
6048: ELSE
6049: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
6050: END IF;
6051:
6052: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
6053: l_request_id := NULL;
6048: ELSE
6049: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
6050: END IF;
6051:
6052: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
6053: l_request_id := NULL;
6054: ELSE
6055: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
6056: END IF;
6051:
6052: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
6053: l_request_id := NULL;
6054: ELSE
6055: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
6056: END IF;
6057:
6058: l_batch_process_id := p_batch_procs_id;
6059: -------------------------------------------------------------------------
7102: -- Initialize API return status to success
7103: x_return_status := FND_API.G_RET_STS_SUCCESS;
7104: l_return_status := G_RET_STS_SUCCESS;
7105: -- Cache user_id, login_id and org_id
7106: l_user_id := Fnd_Global.user_id;
7107: l_login_id := Fnd_Global.login_id;
7108:
7109: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
7110: l_program_id := NULL;
7103: x_return_status := FND_API.G_RET_STS_SUCCESS;
7104: l_return_status := G_RET_STS_SUCCESS;
7105: -- Cache user_id, login_id and org_id
7106: l_user_id := Fnd_Global.user_id;
7107: l_login_id := Fnd_Global.login_id;
7108:
7109: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
7110: l_program_id := NULL;
7111: ELSE
7105: -- Cache user_id, login_id and org_id
7106: l_user_id := Fnd_Global.user_id;
7107: l_login_id := Fnd_Global.login_id;
7108:
7109: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
7110: l_program_id := NULL;
7111: ELSE
7112: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
7113: END IF;
7108:
7109: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
7110: l_program_id := NULL;
7111: ELSE
7112: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
7113: END IF;
7114:
7115: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
7116: l_program_login_id := NULL;
7111: ELSE
7112: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
7113: END IF;
7114:
7115: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
7116: l_program_login_id := NULL;
7117: ELSE
7118: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
7119: END IF;
7114:
7115: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
7116: l_program_login_id := NULL;
7117: ELSE
7118: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
7119: END IF;
7120:
7121: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
7122: l_program_appl_id := NULL;
7117: ELSE
7118: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
7119: END IF;
7120:
7121: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
7122: l_program_appl_id := NULL;
7123: ELSE
7124: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
7125: END IF;
7120:
7121: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
7122: l_program_appl_id := NULL;
7123: ELSE
7124: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
7125: END IF;
7126:
7127: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
7128: l_request_id := NULL;
7123: ELSE
7124: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
7125: END IF;
7126:
7127: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
7128: l_request_id := NULL;
7129: ELSE
7130: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
7131: END IF;
7126:
7127: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
7128: l_request_id := NULL;
7129: ELSE
7130: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
7131: END IF;
7132:
7133:
7134: l_batch_process_id := p_batch_procs_id;
8193: -- Initialize API return status to success
8194: x_return_status := FND_API.G_RET_STS_SUCCESS;
8195: l_return_status := G_RET_STS_SUCCESS;
8196: -- Cache user_id, login_id and org_id
8197: l_user_id := Fnd_Global.user_id;
8198: l_login_id := Fnd_Global.login_id;
8199:
8200: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
8201: l_program_id := NULL;
8194: x_return_status := FND_API.G_RET_STS_SUCCESS;
8195: l_return_status := G_RET_STS_SUCCESS;
8196: -- Cache user_id, login_id and org_id
8197: l_user_id := Fnd_Global.user_id;
8198: l_login_id := Fnd_Global.login_id;
8199:
8200: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
8201: l_program_id := NULL;
8202: ELSE
8196: -- Cache user_id, login_id and org_id
8197: l_user_id := Fnd_Global.user_id;
8198: l_login_id := Fnd_Global.login_id;
8199:
8200: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
8201: l_program_id := NULL;
8202: ELSE
8203: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
8204: END IF;
8199:
8200: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
8201: l_program_id := NULL;
8202: ELSE
8203: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
8204: END IF;
8205:
8206: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
8207: l_program_login_id := NULL;
8202: ELSE
8203: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
8204: END IF;
8205:
8206: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
8207: l_program_login_id := NULL;
8208: ELSE
8209: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
8210: END IF;
8205:
8206: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
8207: l_program_login_id := NULL;
8208: ELSE
8209: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
8210: END IF;
8211:
8212: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
8213: l_program_appl_id := NULL;
8208: ELSE
8209: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
8210: END IF;
8211:
8212: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
8213: l_program_appl_id := NULL;
8214: ELSE
8215: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
8216: END IF;
8211:
8212: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
8213: l_program_appl_id := NULL;
8214: ELSE
8215: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
8216: END IF;
8217:
8218: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
8219: l_request_id := NULL;
8214: ELSE
8215: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
8216: END IF;
8217:
8218: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
8219: l_request_id := NULL;
8220: ELSE
8221: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
8222: END IF;
8217:
8218: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
8219: l_request_id := NULL;
8220: ELSE
8221: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
8222: END IF;
8223:
8224:
8225: l_batch_process_id := p_batch_procs_id;