349: IF v_cp_enabled= MSC_UTIL.SYS_NO THEN
350: RETURN MSC_UTIL.SYS_YES;
351: END IF;
352:
353: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
354:
355: l_call_status:= FND_CONCURRENT.GET_REQUEST_STATUS
356: ( l_request_id,
357: NULL,
562:
563: BEGIN
564:
565: SELECT
566: FND_GLOBAL.USER_NAME,
567: FND_GLOBAL.RESP_NAME,
568: FND_GLOBAL.APPLICATION_NAME
569: INTO lv_user_name,
570: lv_resp_name,
563: BEGIN
564:
565: SELECT
566: FND_GLOBAL.USER_NAME,
567: FND_GLOBAL.RESP_NAME,
568: FND_GLOBAL.APPLICATION_NAME
569: INTO lv_user_name,
570: lv_resp_name,
571: lv_application_name
564:
565: SELECT
566: FND_GLOBAL.USER_NAME,
567: FND_GLOBAL.RESP_NAME,
568: FND_GLOBAL.APPLICATION_NAME
569: INTO lv_user_name,
570: lv_resp_name,
571: lv_application_name
572: FROM dual;
616: savepoint start_of_submission;
617:
618: -- agmcont:
619:
620: /* SELECT FND_GLOBAL.USER_NAME,
621: FND_GLOBAL.RESP_NAME,
622: FND_GLOBAL.APPLICATION_NAME
623: INTO lv_user_name,
624: lv_resp_name,
617:
618: -- agmcont:
619:
620: /* SELECT FND_GLOBAL.USER_NAME,
621: FND_GLOBAL.RESP_NAME,
622: FND_GLOBAL.APPLICATION_NAME
623: INTO lv_user_name,
624: lv_resp_name,
625: lv_application_name
618: -- agmcont:
619:
620: /* SELECT FND_GLOBAL.USER_NAME,
621: FND_GLOBAL.RESP_NAME,
622: FND_GLOBAL.APPLICATION_NAME
623: INTO lv_user_name,
624: lv_resp_name,
625: lv_application_name
626: FROM dual;
625: lv_application_name
626: FROM dual;
627: */
628:
629: lv_user_name := FND_GLOBAL.USER_NAME;
630: lv_resp_name := FND_GLOBAL.RESP_NAME;
631: lv_application_name := FND_GLOBAL.APPLICATION_NAME;
632:
633: SELECT APPLICATION_ID
626: FROM dual;
627: */
628:
629: lv_user_name := FND_GLOBAL.USER_NAME;
630: lv_resp_name := FND_GLOBAL.RESP_NAME;
631: lv_application_name := FND_GLOBAL.APPLICATION_NAME;
632:
633: SELECT APPLICATION_ID
634: INTO lv_application_id
627: */
628:
629: lv_user_name := FND_GLOBAL.USER_NAME;
630: lv_resp_name := FND_GLOBAL.RESP_NAME;
631: lv_application_name := FND_GLOBAL.APPLICATION_NAME;
632:
633: SELECT APPLICATION_ID
634: INTO lv_application_id
635: FROM FND_APPLICATION_VL
1226: v_monitor_request_id := pMONITOR_REQUEST_ID;
1227:
1228: -- SET TRANSACTION ISOLATION LEVEL SERIALIZABLE;
1229:
1230: IF fnd_global.conc_request_id > 0 THEN
1231: v_cp_enabled:= MSC_UTIL.SYS_YES;
1232: ELSE
1233: v_cp_enabled:= MSC_UTIL.SYS_NO;
1234: END IF;
1938:
1939: BEGIN
1940:
1941: v_instance_id := pINSTANCE_ID;
1942: IF fnd_global.conc_request_id > 0 THEN
1943: v_cp_enabled:= MSC_UTIL.SYS_YES;
1944: ELSE
1945: v_cp_enabled:= MSC_UTIL.SYS_NO;
1946: END IF;
2194: RETURN;
2195: END;
2196:
2197:
2198: SELECT FND_GLOBAL.USER_ID
2199: INTO v_current_user
2200: FROM MSC_APPS_INSTANCES
2201: WHERE INSTANCE_ID= pINSTANCE_ID;
2202:
2327:
2328: --- PREPLACE CHANGE END ---
2329:
2330: /* check if this procedure is launched as a concurrent program */
2331: -- IF fnd_global.conc_request_id > 0 THEN
2332: -- v_cp_enabled:= MSC_UTIL.SYS_YES;
2333: -- ELSE
2334: -- v_cp_enabled:= MSC_UTIL.SYS_NO;
2335: -- END IF;
2757: lv_worker_prg,
2758: NULL, -- description
2759: NULL, -- start date
2760: FALSE, -- TRUE,
2761: FND_GLOBAL.CONC_REQUEST_ID,
2762: pINSTANCE_ID,
2763: pTIMEOUT,
2764: pLANG,
2765: pRTYPE,
2877: SET PULL_WRKR_START_TIME = lv_src_time
2878: WHERE INSTANCE_ID = pINSTANCE_ID;
2879: END;
2880:
2881: msc_util.print_trace_file_name(FND_GLOBAL.CONC_REQUEST_ID);
2882: -- ============ Send Tasks to Task Que 'v_pipe_task_que' =============
2883:
2884: FOR lc_i IN 1..lv_total_task_number LOOP
2885:
4184: MSC_UTIL.SYS_YES)
4185: )
4186: ,MSC_UTIL.SYS_YES),
4187: LAST_UPDATE_DATE= SYSDATE,
4188: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4189: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID
4190: WHERE INSTANCE_ID= pINSTANCE_ID;
4191:
4192: RETCODE := MSC_UTIL.G_SUCCESS;
4185: )
4186: ,MSC_UTIL.SYS_YES),
4187: LAST_UPDATE_DATE= SYSDATE,
4188: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4189: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID
4190: WHERE INSTANCE_ID= pINSTANCE_ID;
4191:
4192: RETCODE := MSC_UTIL.G_SUCCESS;
4193:
4231:
4232: UPDATE MSC_APPS_INSTANCES
4233: SET ST_STATUS= MSC_UTIL.G_ST_EMPTY,
4234: LAST_UPDATE_DATE= SYSDATE,
4235: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4236: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID
4237: WHERE INSTANCE_ID= pINSTANCE_ID;
4238:
4239: RETCODE:= MSC_UTIL.G_SUCCESS;
4232: UPDATE MSC_APPS_INSTANCES
4233: SET ST_STATUS= MSC_UTIL.G_ST_EMPTY,
4234: LAST_UPDATE_DATE= SYSDATE,
4235: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4236: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID
4237: WHERE INSTANCE_ID= pINSTANCE_ID;
4238:
4239: RETCODE:= MSC_UTIL.G_SUCCESS;
4240: RETURN TRUE;
4244:
4245: UPDATE MSC_APPS_INSTANCES
4246: SET ST_STATUS= MSC_UTIL.G_ST_READY,
4247: LAST_UPDATE_DATE= SYSDATE,
4248: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4249: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID
4250: WHERE INSTANCE_ID= pINSTANCE_ID;
4251:
4252: RETCODE:= MSC_UTIL.G_SUCCESS;
4245: UPDATE MSC_APPS_INSTANCES
4246: SET ST_STATUS= MSC_UTIL.G_ST_READY,
4247: LAST_UPDATE_DATE= SYSDATE,
4248: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4249: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID
4250: WHERE INSTANCE_ID= pINSTANCE_ID;
4251:
4252: RETCODE:= MSC_UTIL.G_SUCCESS;
4253: RETURN TRUE;
4291: SO_LRTYPE= DECODE( pSO_RTYPE, MSC_UTIL.SYS_YES, 'C', 'I'),
4292: LRID= msc_cl_refresh_s.currval,
4293: CLEANSED_FLAG= MSC_UTIL.SYS_NO,
4294: LAST_UPDATE_DATE= SYSDATE,
4295: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4296: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID,
4297: LR_SOURCING_FLAG = pSOURCING_ENABLED
4298: WHERE INSTANCE_ID= pINSTANCE_ID;
4299: */
4292: LRID= msc_cl_refresh_s.currval,
4293: CLEANSED_FLAG= MSC_UTIL.SYS_NO,
4294: LAST_UPDATE_DATE= SYSDATE,
4295: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4296: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID,
4297: LR_SOURCING_FLAG = pSOURCING_ENABLED
4298: WHERE INSTANCE_ID= pINSTANCE_ID;
4299: */
4300:
4307: SO_LRTYPE= DECODE( pSO_RTYPE, MSC_UTIL.SYS_YES, DECODE(pRTYPE,MSC_UTIL.G_INCREMENTAL,'I', 'C'), 'I'),
4308: LRID= msc_cl_refresh_s.currval,
4309: CLEANSED_FLAG= MSC_UTIL.SYS_NO,
4310: LAST_UPDATE_DATE= SYSDATE,
4311: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4312: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID,
4313: LR_SOURCING_FLAG = pSOURCING_ENABLED
4314: WHERE INSTANCE_ID= pINSTANCE_ID;
4315:
4308: LRID= msc_cl_refresh_s.currval,
4309: CLEANSED_FLAG= MSC_UTIL.SYS_NO,
4310: LAST_UPDATE_DATE= SYSDATE,
4311: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4312: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID,
4313: LR_SOURCING_FLAG = pSOURCING_ENABLED
4314: WHERE INSTANCE_ID= pINSTANCE_ID;
4315:
4316: --- PREPLACE CHANGE END ---
4842:
4843: BEGIN
4844:
4845:
4846: IF fnd_global.conc_request_id > 0 THEN
4847: v_cp_enabled:= MSC_UTIL.SYS_YES;
4848: ELSE
4849: v_cp_enabled:= MSC_UTIL.SYS_NO;
4850: END IF;
4942: INSTANCE_CODE||':',
4943: APPS_VER,
4944: GMT_DIFFERENCE/24.0,
4945: SYSDATE,
4946: FND_GLOBAL.USER_ID,
4947: SYSDATE,
4948: INSTANCE_TYPE
4949: INTO v_dblink,
4950: v_icode,