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
2097: -- Initialize API return status to success
2098: x_return_status := FND_API.G_RET_STS_SUCCESS;
2099: l_return_status := G_RET_STS_SUCCESS;
2100: -- Cache user_id, login_id and org_id
2101: l_user_id := Fnd_Global.user_id;
2102: l_login_id := Fnd_Global.login_id;
2103: l_userenv_lang := USERENV('LANG');
2104:
2105: -- MOAC
2098: x_return_status := FND_API.G_RET_STS_SUCCESS;
2099: l_return_status := G_RET_STS_SUCCESS;
2100: -- Cache user_id, login_id and org_id
2101: l_user_id := Fnd_Global.user_id;
2102: l_login_id := Fnd_Global.login_id;
2103: l_userenv_lang := USERENV('LANG');
2104:
2105: -- MOAC
2106: G_CURRENT_ORG_ID := mo_global.get_current_org_id();
2122: l_adoption_type := 'LOCAL';
2123: END IF;
2124:
2125:
2126: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
2127: l_program_id := NULL;
2128: ELSE
2129: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
2130: END IF;
2125:
2126: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
2127: l_program_id := NULL;
2128: ELSE
2129: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
2130: END IF;
2131:
2132: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
2133: l_program_login_id := NULL;
2128: ELSE
2129: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
2130: END IF;
2131:
2132: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
2133: l_program_login_id := NULL;
2134: ELSE
2135: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
2136: END IF;
2131:
2132: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
2133: l_program_login_id := NULL;
2134: ELSE
2135: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
2136: END IF;
2137:
2138: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
2139: l_program_appl_id := NULL;
2134: ELSE
2135: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
2136: END IF;
2137:
2138: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
2139: l_program_appl_id := NULL;
2140: ELSE
2141: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
2142: END IF;
2137:
2138: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
2139: l_program_appl_id := NULL;
2140: ELSE
2141: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
2142: END IF;
2143:
2144: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
2145: l_request_id := NULL;
2140: ELSE
2141: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
2142: END IF;
2143:
2144: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
2145: l_request_id := NULL;
2146: ELSE
2147: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
2148: END IF;
2143:
2144: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
2145: l_request_id := NULL;
2146: ELSE
2147: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
2148: END IF;
2149:
2150: l_batch_process_id := p_batch_procs_id;
2151: ------------------------------------------------------------------------
4645: -- Initialize API return status to success
4646: x_return_status := FND_API.G_RET_STS_SUCCESS;
4647: l_return_status := G_RET_STS_SUCCESS;
4648: -- Cache user_id, login_id and org_id
4649: l_user_id := Fnd_Global.user_id;
4650: l_login_id := Fnd_Global.login_id;
4651:
4652: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
4653: l_program_id := NULL;
4646: x_return_status := FND_API.G_RET_STS_SUCCESS;
4647: l_return_status := G_RET_STS_SUCCESS;
4648: -- Cache user_id, login_id and org_id
4649: l_user_id := Fnd_Global.user_id;
4650: l_login_id := Fnd_Global.login_id;
4651:
4652: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
4653: l_program_id := NULL;
4654: ELSE
4648: -- Cache user_id, login_id and org_id
4649: l_user_id := Fnd_Global.user_id;
4650: l_login_id := Fnd_Global.login_id;
4651:
4652: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
4653: l_program_id := NULL;
4654: ELSE
4655: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
4656: END IF;
4651:
4652: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
4653: l_program_id := NULL;
4654: ELSE
4655: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
4656: END IF;
4657:
4658: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
4659: l_program_login_id := NULL;
4654: ELSE
4655: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
4656: END IF;
4657:
4658: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
4659: l_program_login_id := NULL;
4660: ELSE
4661: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
4662: END IF;
4657:
4658: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
4659: l_program_login_id := NULL;
4660: ELSE
4661: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
4662: END IF;
4663:
4664: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
4665: l_program_appl_id := NULL;
4660: ELSE
4661: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
4662: END IF;
4663:
4664: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
4665: l_program_appl_id := NULL;
4666: ELSE
4667: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
4668: END IF;
4663:
4664: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
4665: l_program_appl_id := NULL;
4666: ELSE
4667: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
4668: END IF;
4669:
4670: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
4671: l_request_id := NULL;
4666: ELSE
4667: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
4668: END IF;
4669:
4670: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
4671: l_request_id := NULL;
4672: ELSE
4673: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
4674: END IF;
4669:
4670: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
4671: l_request_id := NULL;
4672: ELSE
4673: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
4674: END IF;
4675:
4676: l_batch_process_id := p_batch_procs_id;
4677: -------------------------------------------------------------------------
6082: -- Initialize API return status to success
6083: x_return_status := FND_API.G_RET_STS_SUCCESS;
6084: l_return_status := G_RET_STS_SUCCESS;
6085: -- Cache user_id, login_id and org_id
6086: l_user_id := Fnd_Global.user_id;
6087: l_login_id := Fnd_Global.login_id;
6088: -- MOAC
6089: G_CURRENT_ORG_ID := mo_global.get_current_org_id();
6090: /*
6083: x_return_status := FND_API.G_RET_STS_SUCCESS;
6084: l_return_status := G_RET_STS_SUCCESS;
6085: -- Cache user_id, login_id and org_id
6086: l_user_id := Fnd_Global.user_id;
6087: l_login_id := Fnd_Global.login_id;
6088: -- MOAC
6089: G_CURRENT_ORG_ID := mo_global.get_current_org_id();
6090: /*
6091: OPEN cur_org_csr;
6098: OKC_API.SET_MESSAGE(G_APP_NAME,'OKC_ART_NULL_ORG_ID');
6099: RAISE FND_API.G_EXC_ERROR ;
6100: END IF;
6101:
6102: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
6103: l_program_id := NULL;
6104: ELSE
6105: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
6106: END IF;
6101:
6102: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
6103: l_program_id := NULL;
6104: ELSE
6105: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
6106: END IF;
6107:
6108: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
6109: l_program_login_id := NULL;
6104: ELSE
6105: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
6106: END IF;
6107:
6108: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
6109: l_program_login_id := NULL;
6110: ELSE
6111: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
6112: END IF;
6107:
6108: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
6109: l_program_login_id := NULL;
6110: ELSE
6111: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
6112: END IF;
6113:
6114: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
6115: l_program_appl_id := NULL;
6110: ELSE
6111: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
6112: END IF;
6113:
6114: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
6115: l_program_appl_id := NULL;
6116: ELSE
6117: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
6118: END IF;
6113:
6114: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
6115: l_program_appl_id := NULL;
6116: ELSE
6117: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
6118: END IF;
6119:
6120: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
6121: l_request_id := NULL;
6116: ELSE
6117: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
6118: END IF;
6119:
6120: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
6121: l_request_id := NULL;
6122: ELSE
6123: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
6124: END IF;
6119:
6120: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
6121: l_request_id := NULL;
6122: ELSE
6123: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
6124: END IF;
6125:
6126: l_batch_process_id := p_batch_procs_id;
6127: -------------------------------------------------------------------------
7170: -- Initialize API return status to success
7171: x_return_status := FND_API.G_RET_STS_SUCCESS;
7172: l_return_status := G_RET_STS_SUCCESS;
7173: -- Cache user_id, login_id and org_id
7174: l_user_id := Fnd_Global.user_id;
7175: l_login_id := Fnd_Global.login_id;
7176:
7177: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
7178: l_program_id := NULL;
7171: x_return_status := FND_API.G_RET_STS_SUCCESS;
7172: l_return_status := G_RET_STS_SUCCESS;
7173: -- Cache user_id, login_id and org_id
7174: l_user_id := Fnd_Global.user_id;
7175: l_login_id := Fnd_Global.login_id;
7176:
7177: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
7178: l_program_id := NULL;
7179: ELSE
7173: -- Cache user_id, login_id and org_id
7174: l_user_id := Fnd_Global.user_id;
7175: l_login_id := Fnd_Global.login_id;
7176:
7177: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
7178: l_program_id := NULL;
7179: ELSE
7180: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
7181: END IF;
7176:
7177: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
7178: l_program_id := NULL;
7179: ELSE
7180: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
7181: END IF;
7182:
7183: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
7184: l_program_login_id := NULL;
7179: ELSE
7180: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
7181: END IF;
7182:
7183: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
7184: l_program_login_id := NULL;
7185: ELSE
7186: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
7187: END IF;
7182:
7183: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
7184: l_program_login_id := NULL;
7185: ELSE
7186: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
7187: END IF;
7188:
7189: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
7190: l_program_appl_id := NULL;
7185: ELSE
7186: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
7187: END IF;
7188:
7189: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
7190: l_program_appl_id := NULL;
7191: ELSE
7192: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
7193: END IF;
7188:
7189: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
7190: l_program_appl_id := NULL;
7191: ELSE
7192: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
7193: END IF;
7194:
7195: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
7196: l_request_id := NULL;
7191: ELSE
7192: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
7193: END IF;
7194:
7195: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
7196: l_request_id := NULL;
7197: ELSE
7198: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
7199: END IF;
7194:
7195: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
7196: l_request_id := NULL;
7197: ELSE
7198: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
7199: END IF;
7200:
7201:
7202: l_batch_process_id := p_batch_procs_id;
8261: -- Initialize API return status to success
8262: x_return_status := FND_API.G_RET_STS_SUCCESS;
8263: l_return_status := G_RET_STS_SUCCESS;
8264: -- Cache user_id, login_id and org_id
8265: l_user_id := Fnd_Global.user_id;
8266: l_login_id := Fnd_Global.login_id;
8267:
8268: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
8269: l_program_id := NULL;
8262: x_return_status := FND_API.G_RET_STS_SUCCESS;
8263: l_return_status := G_RET_STS_SUCCESS;
8264: -- Cache user_id, login_id and org_id
8265: l_user_id := Fnd_Global.user_id;
8266: l_login_id := Fnd_Global.login_id;
8267:
8268: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
8269: l_program_id := NULL;
8270: ELSE
8264: -- Cache user_id, login_id and org_id
8265: l_user_id := Fnd_Global.user_id;
8266: l_login_id := Fnd_Global.login_id;
8267:
8268: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
8269: l_program_id := NULL;
8270: ELSE
8271: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
8272: END IF;
8267:
8268: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
8269: l_program_id := NULL;
8270: ELSE
8271: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
8272: END IF;
8273:
8274: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
8275: l_program_login_id := NULL;
8270: ELSE
8271: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
8272: END IF;
8273:
8274: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
8275: l_program_login_id := NULL;
8276: ELSE
8277: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
8278: END IF;
8273:
8274: IF FND_GLOBAL.CONC_LOGIN_ID = -1 THEN
8275: l_program_login_id := NULL;
8276: ELSE
8277: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
8278: END IF;
8279:
8280: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
8281: l_program_appl_id := NULL;
8276: ELSE
8277: l_program_login_id := FND_GLOBAL.CONC_LOGIN_ID;
8278: END IF;
8279:
8280: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
8281: l_program_appl_id := NULL;
8282: ELSE
8283: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
8284: END IF;
8279:
8280: IF FND_GLOBAL.PROG_APPL_ID = -1 THEN
8281: l_program_appl_id := NULL;
8282: ELSE
8283: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
8284: END IF;
8285:
8286: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
8287: l_request_id := NULL;
8282: ELSE
8283: l_program_appl_id := FND_GLOBAL.PROG_APPL_ID;
8284: END IF;
8285:
8286: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
8287: l_request_id := NULL;
8288: ELSE
8289: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
8290: END IF;
8285:
8286: IF FND_GLOBAL.CONC_REQUEST_ID = -1 THEN
8287: l_request_id := NULL;
8288: ELSE
8289: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
8290: END IF;
8291:
8292:
8293: l_batch_process_id := p_batch_procs_id;