[Home] [Help]
8:
9: -- included for the fix 2351297 --
10: v_req_data varchar2(10);
11:
12: v_item_type_id NUMBER := MSC_UTIL.G_PARTCONDN_ITEMTYPEID;
13: v_item_type_good NUMBER := MSC_UTIL.G_PARTCONDN_GOOD;
14: v_item_type_bad NUMBER := MSC_UTIL.G_PARTCONDN_BAD;
15:
16: v_cp_enabled NUMBER;
9: -- included for the fix 2351297 --
10: v_req_data varchar2(10);
11:
12: v_item_type_id NUMBER := MSC_UTIL.G_PARTCONDN_ITEMTYPEID;
13: v_item_type_good NUMBER := MSC_UTIL.G_PARTCONDN_GOOD;
14: v_item_type_bad NUMBER := MSC_UTIL.G_PARTCONDN_BAD;
15:
16: v_cp_enabled NUMBER;
17:
10: v_req_data varchar2(10);
11:
12: v_item_type_id NUMBER := MSC_UTIL.G_PARTCONDN_ITEMTYPEID;
13: v_item_type_good NUMBER := MSC_UTIL.G_PARTCONDN_GOOD;
14: v_item_type_bad NUMBER := MSC_UTIL.G_PARTCONDN_BAD;
15:
16: v_cp_enabled NUMBER;
17:
18:
15:
16: v_cp_enabled NUMBER;
17:
18:
19: v_msc_tp_coll_window NUMBER := MSC_UTIL.v_msc_tp_coll_window;
20:
21: v_gmp_routine_name VARCHAR2(50);
22: GMP_ERROR EXCEPTION;
23:
129: lv_sup_id NUMBER;
130: type cur_type is ref cursor;
131: cur cur_type;
132: BEGIN
133: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'GET_DEPOT_ORG_STR value of v_instance_id: '||to_char(p_instance_id));
134: lv_in_org_str := GET_ORG_STR (p_instance_id,2);
135:
136: lv_sql_stmt := ' Select organization_id, nvl(organization_type,1) '
137: ||' From msc_instance_orgs mio '
143: lv_depot_org_str := NULL;
144: lv_ext_repair_org_str := NULL;
145: lv_ext_repair_sup_id_str := NULL;
146: --On error, org_str will be populated with -9998
147: MSC_UTIL.v_depot_org_str := '= -9998';
148: MSC_UTIL.v_non_depot_org_str := '= -9998';
149:
150: --lv_depot_org_str :=' IN (';
151: --lv_non_depot_org_str :=' IN (';
144: lv_ext_repair_org_str := NULL;
145: lv_ext_repair_sup_id_str := NULL;
146: --On error, org_str will be populated with -9998
147: MSC_UTIL.v_depot_org_str := '= -9998';
148: MSC_UTIL.v_non_depot_org_str := '= -9998';
149:
150: --lv_depot_org_str :=' IN (';
151: --lv_non_depot_org_str :=' IN (';
152: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'Opening Cursor ');
148: MSC_UTIL.v_non_depot_org_str := '= -9998';
149:
150: --lv_depot_org_str :=' IN (';
151: --lv_non_depot_org_str :=' IN (';
152: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'Opening Cursor ');
153: open cur for lv_sql_stmt;
154: --FOR Cur IN lv_sql_stmt
155: LOOP
156: fetch cur into lv_org_id,lv_org_type;
162: lv_depot_org_str:=' IN ('|| lv_org_id;
163: ELSE
164: lv_depot_org_str := lv_depot_org_str||','||lv_org_id;
165: END IF;
166: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'lv_org_id : '||lv_org_id);
167: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'lv_depot_org_str : '||lv_depot_org_str);
168: ELSE
169: IF lv_non_depot_org_str is NULL THEN
170: lv_non_depot_org_str:=' IN ('|| lv_org_id;
163: ELSE
164: lv_depot_org_str := lv_depot_org_str||','||lv_org_id;
165: END IF;
166: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'lv_org_id : '||lv_org_id);
167: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'lv_depot_org_str : '||lv_depot_org_str);
168: ELSE
169: IF lv_non_depot_org_str is NULL THEN
170: lv_non_depot_org_str:=' IN ('|| lv_org_id;
171: ELSE
177: lv_ext_repair_org_str:=' IN ('|| lv_org_id;
178: ELSE
179: lv_ext_repair_org_str := lv_ext_repair_org_str||','||lv_org_id;
180: END IF;
181: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'lv_org_id : '||lv_org_id);
182: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'lv_ext_repair_org_str : '||lv_ext_repair_org_str);
183: END IF;
184: END IF;
185: Lv_count:= lv_count+1;
178: ELSE
179: lv_ext_repair_org_str := lv_ext_repair_org_str||','||lv_org_id;
180: END IF;
181: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'lv_org_id : '||lv_org_id);
182: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'lv_ext_repair_org_str : '||lv_ext_repair_org_str);
183: END IF;
184: END IF;
185: Lv_count:= lv_count+1;
186:
220: lv_ext_repair_sup_id_str:=' IN ('|| lv_sup_id;
221: ELSE
222: lv_ext_repair_sup_id_str := lv_ext_repair_sup_id_str||','||lv_sup_id;
223: END IF;
224: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'lv_org_id : '||lv_sup_id);
225: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'lv_ext_repair_sup_id_str : '||lv_ext_repair_sup_id_str);
226:
227: END LOOP;
228: Close cur;
221: ELSE
222: lv_ext_repair_sup_id_str := lv_ext_repair_sup_id_str||','||lv_sup_id;
223: END IF;
224: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'lv_org_id : '||lv_sup_id);
225: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1,'lv_ext_repair_sup_id_str : '||lv_ext_repair_sup_id_str);
226:
227: END LOOP;
228: Close cur;
229: ELSE
235: ELSE
236: lv_ext_repair_sup_id_str:= '= -9999';
237: END IF;
238:
239: MSC_UTIL.v_depot_org_str := lv_depot_org_str;
240: MSC_UTIL.v_non_depot_org_str := lv_non_depot_org_str;
241: MSC_UTIL.v_ext_repair_sup_id_str := lv_ext_repair_sup_id_str;
242:
243: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'GET_DEPO_ORG_STR returned :'||MSC_UTIL.v_depot_org_str);
236: lv_ext_repair_sup_id_str:= '= -9999';
237: END IF;
238:
239: MSC_UTIL.v_depot_org_str := lv_depot_org_str;
240: MSC_UTIL.v_non_depot_org_str := lv_non_depot_org_str;
241: MSC_UTIL.v_ext_repair_sup_id_str := lv_ext_repair_sup_id_str;
242:
243: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'GET_DEPO_ORG_STR returned :'||MSC_UTIL.v_depot_org_str);
244: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'G_NON_DEPOT ORG STRING RETURNED :'||MSC_UTIL.v_non_depot_org_str);
237: END IF;
238:
239: MSC_UTIL.v_depot_org_str := lv_depot_org_str;
240: MSC_UTIL.v_non_depot_org_str := lv_non_depot_org_str;
241: MSC_UTIL.v_ext_repair_sup_id_str := lv_ext_repair_sup_id_str;
242:
243: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'GET_DEPO_ORG_STR returned :'||MSC_UTIL.v_depot_org_str);
244: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'G_NON_DEPOT ORG STRING RETURNED :'||MSC_UTIL.v_non_depot_org_str);
245:
239: MSC_UTIL.v_depot_org_str := lv_depot_org_str;
240: MSC_UTIL.v_non_depot_org_str := lv_non_depot_org_str;
241: MSC_UTIL.v_ext_repair_sup_id_str := lv_ext_repair_sup_id_str;
242:
243: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'GET_DEPO_ORG_STR returned :'||MSC_UTIL.v_depot_org_str);
244: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'G_NON_DEPOT ORG STRING RETURNED :'||MSC_UTIL.v_non_depot_org_str);
245:
246: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'ext_repair_org_str returned :'||lv_ext_repair_org_str);
247: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'ext_repair_sup_id_str RETURNED :'||MSC_UTIL.v_ext_repair_sup_id_str);
240: MSC_UTIL.v_non_depot_org_str := lv_non_depot_org_str;
241: MSC_UTIL.v_ext_repair_sup_id_str := lv_ext_repair_sup_id_str;
242:
243: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'GET_DEPO_ORG_STR returned :'||MSC_UTIL.v_depot_org_str);
244: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'G_NON_DEPOT ORG STRING RETURNED :'||MSC_UTIL.v_non_depot_org_str);
245:
246: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'ext_repair_org_str returned :'||lv_ext_repair_org_str);
247: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'ext_repair_sup_id_str RETURNED :'||MSC_UTIL.v_ext_repair_sup_id_str);
248:
242:
243: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'GET_DEPO_ORG_STR returned :'||MSC_UTIL.v_depot_org_str);
244: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'G_NON_DEPOT ORG STRING RETURNED :'||MSC_UTIL.v_non_depot_org_str);
245:
246: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'ext_repair_org_str returned :'||lv_ext_repair_org_str);
247: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'ext_repair_sup_id_str RETURNED :'||MSC_UTIL.v_ext_repair_sup_id_str);
248:
249:
250: EXCEPTION
243: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'GET_DEPO_ORG_STR returned :'||MSC_UTIL.v_depot_org_str);
244: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'G_NON_DEPOT ORG STRING RETURNED :'||MSC_UTIL.v_non_depot_org_str);
245:
246: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'ext_repair_org_str returned :'||lv_ext_repair_org_str);
247: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'ext_repair_sup_id_str RETURNED :'||MSC_UTIL.v_ext_repair_sup_id_str);
248:
249:
250: EXCEPTION
251: WHEN OTHERS THEN
248:
249:
250: EXCEPTION
251: WHEN OTHERS THEN
252: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,' Error: In GET_DEPOT_ORG_STR ');
253:
254: END GET_DEPOT_ORG_STRINGS; -- For Bug 5909379 SRP Changes
255:
256:
288: l_message varchar2(1024);
289:
290: BEGIN
291:
292: IF v_cp_enabled= MSC_UTIL.SYS_NO THEN
293: RETURN MSC_UTIL.SYS_YES;
294: END IF;
295:
296: l_call_status:= FND_CONCURRENT.GET_REQUEST_STATUS
289:
290: BEGIN
291:
292: IF v_cp_enabled= MSC_UTIL.SYS_NO THEN
293: RETURN MSC_UTIL.SYS_YES;
294: END IF;
295:
296: l_call_status:= FND_CONCURRENT.GET_REQUEST_STATUS
297: ( v_monitor_request_id,
303: l_dev_status,
304: l_message);
305:
306: IF l_call_status=FALSE THEN
307: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
308:
309: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
310: FND_MESSAGE.SET_TOKEN('REQUEST_ID',v_monitor_request_id);
311: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
307: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
308:
309: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
310: FND_MESSAGE.SET_TOKEN('REQUEST_ID',v_monitor_request_id);
311: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
312:
313: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
314: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
315: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
311: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
312:
313: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
314: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
315: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
316:
317: RETURN MSC_UTIL.SYS_NO;
318: END IF;
319:
313: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
314: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
315: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
316:
317: RETURN MSC_UTIL.SYS_NO;
318: END IF;
319:
320: IF l_dev_phase='RUNNING' THEN
321: RETURN MSC_UTIL.SYS_YES;
317: RETURN MSC_UTIL.SYS_NO;
318: END IF;
319:
320: IF l_dev_phase='RUNNING' THEN
321: RETURN MSC_UTIL.SYS_YES;
322: ELSE
323: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
324:
325: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
319:
320: IF l_dev_phase='RUNNING' THEN
321: RETURN MSC_UTIL.SYS_YES;
322: ELSE
323: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
324:
325: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
326: FND_MESSAGE.SET_TOKEN('REQUEST_ID', v_monitor_request_id);
327: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
325: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
326: FND_MESSAGE.SET_TOKEN('REQUEST_ID', v_monitor_request_id);
327: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
328: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
330:
331: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
332: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
333: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
330:
331: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
332: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
333: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
334:
335: RETURN MSC_UTIL.SYS_NO;
336: END IF;
337:
331: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
332: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
333: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
334:
335: RETURN MSC_UTIL.SYS_NO;
336: END IF;
337:
338: END is_monitor_status_running;
339:
349: l_request_id NUMBER;
350:
351: BEGIN
352:
353: IF v_cp_enabled= MSC_UTIL.SYS_NO THEN
354: RETURN MSC_UTIL.SYS_YES;
355: END IF;
356:
357: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
350:
351: BEGIN
352:
353: IF v_cp_enabled= MSC_UTIL.SYS_NO THEN
354: RETURN MSC_UTIL.SYS_YES;
355: END IF;
356:
357: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
358:
366: l_dev_status,
367: l_message);
368:
369: IF l_call_status=FALSE THEN
370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
371:
372: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
373: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
371:
372: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
373: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
375:
376: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
377: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
378: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
375:
376: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
377: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
378: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
379:
380: RETURN MSC_UTIL.SYS_NO;
381: END IF;
382:
376: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
377: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
378: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
379:
380: RETURN MSC_UTIL.SYS_NO;
381: END IF;
382:
383: IF l_dev_phase='RUNNING' THEN
384: RETURN MSC_UTIL.SYS_YES;
380: RETURN MSC_UTIL.SYS_NO;
381: END IF;
382:
383: IF l_dev_phase='RUNNING' THEN
384: RETURN MSC_UTIL.SYS_YES;
385: ELSE
386: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
387:
388: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
382:
383: IF l_dev_phase='RUNNING' THEN
384: RETURN MSC_UTIL.SYS_YES;
385: ELSE
386: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
387:
388: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
389: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
390: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
388: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
389: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
390: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
391: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
392: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
393:
394: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
395: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
396: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
392: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
393:
394: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
395: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
396: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
397:
398: RETURN MSC_UTIL.SYS_NO;
399: END IF;
400:
394: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
395: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
396: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
397:
398: RETURN MSC_UTIL.SYS_NO;
399: END IF;
400:
401: END is_request_status_running;
402:
412:
413: l_request_id NUMBER;
414: BEGIN
415:
416: IF v_cp_enabled= MSC_UTIL.SYS_NO THEN
417: RETURN MSC_UTIL.SYS_YES;
418: END IF;
419:
420: FOR lc_i IN 1..(ps_request_id.COUNT-1) LOOP
413: l_request_id NUMBER;
414: BEGIN
415:
416: IF v_cp_enabled= MSC_UTIL.SYS_NO THEN
417: RETURN MSC_UTIL.SYS_YES;
418: END IF;
419:
420: FOR lc_i IN 1..(ps_request_id.COUNT-1) LOOP
421:
431: l_dev_status,
432: l_message);
433:
434: IF l_call_status=FALSE THEN
435: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
436:
437: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
438: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
439: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
435: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
436:
437: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
438: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
439: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
440:
441: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
442: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
443: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
439: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
440:
441: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
442: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
443: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
444:
445: RETURN MSC_UTIL.SYS_NO;
446: END IF;
447:
441: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
442: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
443: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
444:
445: RETURN MSC_UTIL.SYS_NO;
446: END IF;
447:
448: IF l_dev_phase NOT IN ( 'PENDING','RUNNING') THEN
449: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
445: RETURN MSC_UTIL.SYS_NO;
446: END IF;
447:
448: IF l_dev_phase NOT IN ( 'PENDING','RUNNING') THEN
449: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
450:
451: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
452: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
453: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
451: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
452: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
453: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
454: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
456:
457: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
458: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
459: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
456:
457: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
458: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
459: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
460:
461: RETURN MSC_UTIL.SYS_NO;
462: END IF;
463:
457: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
458: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
459: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
460:
461: RETURN MSC_UTIL.SYS_NO;
462: END IF;
463:
464: END LOOP;
465:
462: END IF;
463:
464: END LOOP;
465:
466: RETURN MSC_UTIL.SYS_YES;
467:
468: END is_worker_status_valid;
469:
470: /* Added this function to verify that all the workers are completed For bug : 2210970
486: BEGIN
487: req_complete := 0;
488: total_req := 0;
489:
490: IF v_cp_enabled= MSC_UTIL.SYS_NO THEN
491: RETURN MSC_UTIL.SYS_YES;
492: END IF;
493:
494: total_req := ps_request_id.COUNT - 1;
487: req_complete := 0;
488: total_req := 0;
489:
490: IF v_cp_enabled= MSC_UTIL.SYS_NO THEN
491: RETURN MSC_UTIL.SYS_YES;
492: END IF;
493:
494: total_req := ps_request_id.COUNT - 1;
495: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Total requests = :' ||total_req);
491: RETURN MSC_UTIL.SYS_YES;
492: END IF;
493:
494: total_req := ps_request_id.COUNT - 1;
495: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Total requests = :' ||total_req);
496:
497: FOR lc_i IN 1..(ps_request_id.COUNT-1) LOOP
498:
499: l_request_id := ps_request_id(lc_i);
506: l_status,
507: l_dev_phase,
508: l_dev_status,
509: l_message);
510: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Request id = '||l_request_id);
511:
512: IF l_dev_phase IN ('COMPLETE') THEN
513:
514: req_complete := req_complete + 1;
512: IF l_dev_phase IN ('COMPLETE') THEN
513:
514: req_complete := req_complete + 1;
515:
516: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'ALL_WORKERS_COMPLETED');
517:
518: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
519: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
520: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
518: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
519: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
520: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
521: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
522: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
523:
524: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_TOTAL_REQS_COMPLETE');
525: FND_MESSAGE.SET_TOKEN('REQUESTS',req_complete);
526: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
522: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
523:
524: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_TOTAL_REQS_COMPLETE');
525: FND_MESSAGE.SET_TOKEN('REQUESTS',req_complete);
526: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
527:
528: END IF;
529:
530: END LOOP;
530: END LOOP;
531:
532: IF total_req = req_complete THEN
533: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_ALL_WORKERS_COMP');
534: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
535: RETURN MSC_UTIL.SYS_YES;
536: ELSE
537: RETURN MSC_UTIL.SYS_NO;
538: END IF;
531:
532: IF total_req = req_complete THEN
533: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_ALL_WORKERS_COMP');
534: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
535: RETURN MSC_UTIL.SYS_YES;
536: ELSE
537: RETURN MSC_UTIL.SYS_NO;
538: END IF;
539:
533: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_ALL_WORKERS_COMP');
534: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
535: RETURN MSC_UTIL.SYS_YES;
536: ELSE
537: RETURN MSC_UTIL.SYS_NO;
538: END IF;
539:
540: END all_workers_completed;
541:
614:
615: BEGIN
616:
617: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_START');
618: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET );
619:
620: savepoint start_of_submission;
621:
622: -- agmcont:
639: FROM FND_APPLICATION_VL
640: WHERE APPLICATION_NAME = lv_application_name;
641:
642:
643: SELECT DECODE ( pRTYPE, MSC_UTIL.G_COMPLETE, 'C',
644: MSC_UTIL.G_INCREMENTAL, 'I',
645: MSC_UTIL.G_PARTIAL, 'P',
646: MSC_UTIL.G_CONT, 'T')
647: INTO lv_refresh_type
640: WHERE APPLICATION_NAME = lv_application_name;
641:
642:
643: SELECT DECODE ( pRTYPE, MSC_UTIL.G_COMPLETE, 'C',
644: MSC_UTIL.G_INCREMENTAL, 'I',
645: MSC_UTIL.G_PARTIAL, 'P',
646: MSC_UTIL.G_CONT, 'T')
647: INTO lv_refresh_type
648: FROM DUAL;
641:
642:
643: SELECT DECODE ( pRTYPE, MSC_UTIL.G_COMPLETE, 'C',
644: MSC_UTIL.G_INCREMENTAL, 'I',
645: MSC_UTIL.G_PARTIAL, 'P',
646: MSC_UTIL.G_CONT, 'T')
647: INTO lv_refresh_type
648: FROM DUAL;
649: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, ' before calling MRP_CL_REFRESH_SNAPSHOT.REFRESH_SNAPSHOT 1 ');
642:
643: SELECT DECODE ( pRTYPE, MSC_UTIL.G_COMPLETE, 'C',
644: MSC_UTIL.G_INCREMENTAL, 'I',
645: MSC_UTIL.G_PARTIAL, 'P',
646: MSC_UTIL.G_CONT, 'T')
647: INTO lv_refresh_type
648: FROM DUAL;
649: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, ' before calling MRP_CL_REFRESH_SNAPSHOT.REFRESH_SNAPSHOT 1 ');
650: /* submit a (remote) request */
645: MSC_UTIL.G_PARTIAL, 'P',
646: MSC_UTIL.G_CONT, 'T')
647: INTO lv_refresh_type
648: FROM DUAL;
649: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, ' before calling MRP_CL_REFRESH_SNAPSHOT.REFRESH_SNAPSHOT 1 ');
650: /* submit a (remote) request */
651: IF v_apps_ver >= MSC_UTIL.G_APPS115 THEN
652: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Application id: ' || lv_application_id);
653: v_sql_stmt:=
647: INTO lv_refresh_type
648: FROM DUAL;
649: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, ' before calling MRP_CL_REFRESH_SNAPSHOT.REFRESH_SNAPSHOT 1 ');
650: /* submit a (remote) request */
651: IF v_apps_ver >= MSC_UTIL.G_APPS115 THEN
652: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Application id: ' || lv_application_id);
653: v_sql_stmt:=
654: 'BEGIN MRP_CL_REFRESH_SNAPSHOT.REFRESH_SNAPSHOT'||v_dblink||'('
655: ||' ERRBUF => :lv_errbuf,'
648: FROM DUAL;
649: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, ' before calling MRP_CL_REFRESH_SNAPSHOT.REFRESH_SNAPSHOT 1 ');
650: /* submit a (remote) request */
651: IF v_apps_ver >= MSC_UTIL.G_APPS115 THEN
652: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Application id: ' || lv_application_id);
653: v_sql_stmt:=
654: 'BEGIN MRP_CL_REFRESH_SNAPSHOT.REFRESH_SNAPSHOT'||v_dblink||'('
655: ||' ERRBUF => :lv_errbuf,'
656: ||' RETCODE => :lv_retcode,'
704: IN lv_application_id;
705:
706: END IF;
707:
708: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'After refresh 2');
709: IF lv_retcode= MSC_UTIL.G_ERROR THEN
710: ROLLBACK TO start_of_submission;
711:
712: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
705:
706: END IF;
707:
708: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'After refresh 2');
709: IF lv_retcode= MSC_UTIL.G_ERROR THEN
710: ROLLBACK TO start_of_submission;
711:
712: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
713: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
708: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'After refresh 2');
709: IF lv_retcode= MSC_UTIL.G_ERROR THEN
710: ROLLBACK TO start_of_submission;
711:
712: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
713: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
714: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
715: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
716: RETURN FALSE;
711:
712: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
713: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
714: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
715: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
716: RETURN FALSE;
717: END IF;
718:
719: IF lv_request_id= 0 THEN
718:
719: IF lv_request_id= 0 THEN
720: ROLLBACK TO start_of_submission;
721:
722: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
723: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
724: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
725: RETURN FALSE;
726: END IF;
720: ROLLBACK TO start_of_submission;
721:
722: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
723: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
724: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
725: RETURN FALSE;
726: END IF;
727:
728: COMMIT;
728: COMMIT;
729:
730: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQUEST_ID');
731: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
732: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET );
733:
734: /* purge the staging tables
735: the purpose of calling this procedure is that we do a COMMIT after
736: every task is done, if the previous data pull failed we may have
734: /* purge the staging tables
735: the purpose of calling this procedure is that we do a COMMIT after
736: every task is done, if the previous data pull failed we may have
737: data left in the staging tables...*/
738: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Before PURGE_STAGING_TABLES_SUB' );
739: MSC_CL_PURGE_STAGING.PURGE_STAGING_TABLES_SUB( p_instance_id);
740:
741: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'After PURGE_STAGING_TABLES_SUB' );
742: -- fix for 2351297 --
737: data left in the staging tables...*/
738: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Before PURGE_STAGING_TABLES_SUB' );
739: MSC_CL_PURGE_STAGING.PURGE_STAGING_TABLES_SUB( p_instance_id);
740:
741: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'After PURGE_STAGING_TABLES_SUB' );
742: -- fix for 2351297 --
743: -- If its a single instance set up. Refresh Snapshot is submitted as a child request
744: -- and setting the parent request at a PAUSED status.
745: IF(v_dblink=NULL_DBLINK) THEN
762: EXECUTE IMMEDIATE v_sql_stmt
763: USING IN lv_timeout,
764: OUT lv_retcode;
765:
766: IF lv_retcode = MSC_UTIL.G_NORMAL_COMPLETION THEN
767: RETURN TRUE;
768: ELSE
769: IF lv_retcode = MSC_UTIL.G_PENDING_INACTIVE THEN
770: FND_MESSAGE.SET_NAME('MSC', 'MSC_RS_TIME_OUT');
765:
766: IF lv_retcode = MSC_UTIL.G_NORMAL_COMPLETION THEN
767: RETURN TRUE;
768: ELSE
769: IF lv_retcode = MSC_UTIL.G_PENDING_INACTIVE THEN
770: FND_MESSAGE.SET_NAME('MSC', 'MSC_RS_TIME_OUT');
771: FND_MESSAGE.SET_TOKEN('PENDING_TIMEOUT', lv_timeout);
772: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
773: ELSE
768: ELSE
769: IF lv_retcode = MSC_UTIL.G_PENDING_INACTIVE THEN
770: FND_MESSAGE.SET_NAME('MSC', 'MSC_RS_TIME_OUT');
771: FND_MESSAGE.SET_TOKEN('PENDING_TIMEOUT', lv_timeout);
772: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
773: ELSE
774: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
775: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
776: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
772: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
773: ELSE
774: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
775: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
776: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
777: END IF;
778: RETURN FALSE;
779: END IF;
780:
796: ' SELECT owner,master FROM ALL_SNAPSHOTS'|| p_dblink || ' WHERE name = :p_snap_name '
797: INTO lv_snap_schema,lv_base_table_name
798: USING p_snap_name;
799:
800: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Snapshot Owner = '||lv_snap_schema);
801: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Master Table = '||lv_base_table_name);
802:
803: EXECUTE IMMEDIATE
804: ' SELECT LOG_TABLE FROM ALL_SNAPSHOT_LOGS'|| p_dblink
797: INTO lv_snap_schema,lv_base_table_name
798: USING p_snap_name;
799:
800: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Snapshot Owner = '||lv_snap_schema);
801: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Master Table = '||lv_base_table_name);
802:
803: EXECUTE IMMEDIATE
804: ' SELECT LOG_TABLE FROM ALL_SNAPSHOT_LOGS'|| p_dblink
805: ||' WHERE MASTER = upper(:pTABLE_NAME)
807: AND ROWNUM = 1 '
808: INTO lv_mlog_tab_name
809: USING lv_base_table_name, lv_snap_schema;
810:
811: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Snapshot Log = '||lv_mlog_tab_name);
812:
813: RETURN TRUE;
814:
815: EXCEPTION
813: RETURN TRUE;
814:
815: EXCEPTION
816: WHEN OTHERS THEN
817: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ' Error in getting the Snapshot information ....');
818: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
819: RETURN FALSE;
820:
821: END get_snapshot_log;
814:
815: EXCEPTION
816: WHEN OTHERS THEN
817: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ' Error in getting the Snapshot information ....');
818: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
819: RETURN FALSE;
820:
821: END get_snapshot_log;
822: */
822: */
823:
824: PROCEDURE GET_COLL_PARAM
825: (p_instance_id IN NUMBER,
826: p_prec OUT NOCOPY MSC_UTIL.CollParamREC )
827: AS
828: BEGIN
829:
830: /* Initialize the global prec record variable */
876: PROCEDURE SALES_ORDER_REFRESH_TYPE ( p_instance_id in NUMBER,
877: so_sn_flag out NOCOPY NUMBER )
878: IS
879:
880: lv_bom_sn_flag number := MSC_UTIL.SYS_NO;
881: lv_bor_sn_flag number := MSC_UTIL.SYS_NO;
882: lv_item_sn_flag number := MSC_UTIL.SYS_NO;
883: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
884: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
877: so_sn_flag out NOCOPY NUMBER )
878: IS
879:
880: lv_bom_sn_flag number := MSC_UTIL.SYS_NO;
881: lv_bor_sn_flag number := MSC_UTIL.SYS_NO;
882: lv_item_sn_flag number := MSC_UTIL.SYS_NO;
883: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
884: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
885: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
878: IS
879:
880: lv_bom_sn_flag number := MSC_UTIL.SYS_NO;
881: lv_bor_sn_flag number := MSC_UTIL.SYS_NO;
882: lv_item_sn_flag number := MSC_UTIL.SYS_NO;
883: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
884: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
885: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
886: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
879:
880: lv_bom_sn_flag number := MSC_UTIL.SYS_NO;
881: lv_bor_sn_flag number := MSC_UTIL.SYS_NO;
882: lv_item_sn_flag number := MSC_UTIL.SYS_NO;
883: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
884: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
885: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
886: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
887: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
880: lv_bom_sn_flag number := MSC_UTIL.SYS_NO;
881: lv_bor_sn_flag number := MSC_UTIL.SYS_NO;
882: lv_item_sn_flag number := MSC_UTIL.SYS_NO;
883: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
884: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
885: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
886: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
887: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
888: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
881: lv_bor_sn_flag number := MSC_UTIL.SYS_NO;
882: lv_item_sn_flag number := MSC_UTIL.SYS_NO;
883: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
884: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
885: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
886: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
887: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
888: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
889: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
882: lv_item_sn_flag number := MSC_UTIL.SYS_NO;
883: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
884: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
885: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
886: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
887: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
888: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
889: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
890: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
883: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
884: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
885: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
886: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
887: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
888: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
889: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
890: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
891: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
884: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
885: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
886: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
887: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
888: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
889: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
890: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
891: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
892: /* CP-AUTO */
885: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
886: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
887: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
888: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
889: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
890: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
891: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
892: /* CP-AUTO */
893: lv_suprep_sn_flag number := MSC_UTIL.SYS_NO;
886: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
887: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
888: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
889: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
890: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
891: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
892: /* CP-AUTO */
893: lv_suprep_sn_flag number := MSC_UTIL.SYS_NO;
894: lv_mps_sn_flag number := MSC_UTIL.SYS_NO;
887: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
888: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
889: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
890: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
891: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
892: /* CP-AUTO */
893: lv_suprep_sn_flag number := MSC_UTIL.SYS_NO;
894: lv_mps_sn_flag number := MSC_UTIL.SYS_NO;
895: lv_nosnap_flag number := MSC_UTIL.SYS_NO;
889: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
890: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
891: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
892: /* CP-AUTO */
893: lv_suprep_sn_flag number := MSC_UTIL.SYS_NO;
894: lv_mps_sn_flag number := MSC_UTIL.SYS_NO;
895: lv_nosnap_flag number := MSC_UTIL.SYS_NO;
896: lv_trip_sn_flag number := MSC_UTIL.SYS_NO;
897:
890: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
891: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
892: /* CP-AUTO */
893: lv_suprep_sn_flag number := MSC_UTIL.SYS_NO;
894: lv_mps_sn_flag number := MSC_UTIL.SYS_NO;
895: lv_nosnap_flag number := MSC_UTIL.SYS_NO;
896: lv_trip_sn_flag number := MSC_UTIL.SYS_NO;
897:
898: lv_last_tgt_cont_coll_time date;
891: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
892: /* CP-AUTO */
893: lv_suprep_sn_flag number := MSC_UTIL.SYS_NO;
894: lv_mps_sn_flag number := MSC_UTIL.SYS_NO;
895: lv_nosnap_flag number := MSC_UTIL.SYS_NO;
896: lv_trip_sn_flag number := MSC_UTIL.SYS_NO;
897:
898: lv_last_tgt_cont_coll_time date;
899:
892: /* CP-AUTO */
893: lv_suprep_sn_flag number := MSC_UTIL.SYS_NO;
894: lv_mps_sn_flag number := MSC_UTIL.SYS_NO;
895: lv_nosnap_flag number := MSC_UTIL.SYS_NO;
896: lv_trip_sn_flag number := MSC_UTIL.SYS_NO;
897:
898: lv_last_tgt_cont_coll_time date;
899:
900: lv_prec MSC_UTIL.CollParamREC;
896: lv_trip_sn_flag number := MSC_UTIL.SYS_NO;
897:
898: lv_last_tgt_cont_coll_time date;
899:
900: lv_prec MSC_UTIL.CollParamREC;
901:
902: BEGIN
903:
904: BEGIN
915: WHEN NO_DATA_FOUND THEN
916:
917: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
918: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', p_instance_id);
919: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
920: RETURN;
921: WHEN OTHERS THEN
922:
923: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
919: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
920: RETURN;
921: WHEN OTHERS THEN
922:
923: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
924: RETURN;
925: END;
926:
927: GET_COLL_PARAM(p_instance_id,lv_prec);
927: GET_COLL_PARAM(p_instance_id,lv_prec);
928:
929: --bug10005268 Set parameters in lv_prec to No Except for Item and sales oders
930:
931: lv_prec.bom_flag := MSC_UTIL.SYS_NO;
932: lv_prec.bor_flag := MSC_UTIL.SYS_NO;
933: -- lv_prec.item_flag := MSC_UTIL.SYS_NO;
934: lv_prec.oh_flag := MSC_UTIL.SYS_NO;
935: lv_prec.user_supply_demand_flag:= MSC_UTIL.SYS_NO;
928:
929: --bug10005268 Set parameters in lv_prec to No Except for Item and sales oders
930:
931: lv_prec.bom_flag := MSC_UTIL.SYS_NO;
932: lv_prec.bor_flag := MSC_UTIL.SYS_NO;
933: -- lv_prec.item_flag := MSC_UTIL.SYS_NO;
934: lv_prec.oh_flag := MSC_UTIL.SYS_NO;
935: lv_prec.user_supply_demand_flag:= MSC_UTIL.SYS_NO;
936: -- lv_prec.sales_order_flag := MSC_UTIL.SYS_NO;
929: --bug10005268 Set parameters in lv_prec to No Except for Item and sales oders
930:
931: lv_prec.bom_flag := MSC_UTIL.SYS_NO;
932: lv_prec.bor_flag := MSC_UTIL.SYS_NO;
933: -- lv_prec.item_flag := MSC_UTIL.SYS_NO;
934: lv_prec.oh_flag := MSC_UTIL.SYS_NO;
935: lv_prec.user_supply_demand_flag:= MSC_UTIL.SYS_NO;
936: -- lv_prec.sales_order_flag := MSC_UTIL.SYS_NO;
937: lv_prec.forecast_flag := MSC_UTIL.SYS_NO;
930:
931: lv_prec.bom_flag := MSC_UTIL.SYS_NO;
932: lv_prec.bor_flag := MSC_UTIL.SYS_NO;
933: -- lv_prec.item_flag := MSC_UTIL.SYS_NO;
934: lv_prec.oh_flag := MSC_UTIL.SYS_NO;
935: lv_prec.user_supply_demand_flag:= MSC_UTIL.SYS_NO;
936: -- lv_prec.sales_order_flag := MSC_UTIL.SYS_NO;
937: lv_prec.forecast_flag := MSC_UTIL.SYS_NO;
938: lv_prec.wip_flag := MSC_UTIL.SYS_NO;
931: lv_prec.bom_flag := MSC_UTIL.SYS_NO;
932: lv_prec.bor_flag := MSC_UTIL.SYS_NO;
933: -- lv_prec.item_flag := MSC_UTIL.SYS_NO;
934: lv_prec.oh_flag := MSC_UTIL.SYS_NO;
935: lv_prec.user_supply_demand_flag:= MSC_UTIL.SYS_NO;
936: -- lv_prec.sales_order_flag := MSC_UTIL.SYS_NO;
937: lv_prec.forecast_flag := MSC_UTIL.SYS_NO;
938: lv_prec.wip_flag := MSC_UTIL.SYS_NO;
939: lv_prec.app_supp_cap_flag := MSC_UTIL.SYS_NO;
932: lv_prec.bor_flag := MSC_UTIL.SYS_NO;
933: -- lv_prec.item_flag := MSC_UTIL.SYS_NO;
934: lv_prec.oh_flag := MSC_UTIL.SYS_NO;
935: lv_prec.user_supply_demand_flag:= MSC_UTIL.SYS_NO;
936: -- lv_prec.sales_order_flag := MSC_UTIL.SYS_NO;
937: lv_prec.forecast_flag := MSC_UTIL.SYS_NO;
938: lv_prec.wip_flag := MSC_UTIL.SYS_NO;
939: lv_prec.app_supp_cap_flag := MSC_UTIL.SYS_NO;
940: lv_prec.po_flag := MSC_UTIL.SYS_NO;
933: -- lv_prec.item_flag := MSC_UTIL.SYS_NO;
934: lv_prec.oh_flag := MSC_UTIL.SYS_NO;
935: lv_prec.user_supply_demand_flag:= MSC_UTIL.SYS_NO;
936: -- lv_prec.sales_order_flag := MSC_UTIL.SYS_NO;
937: lv_prec.forecast_flag := MSC_UTIL.SYS_NO;
938: lv_prec.wip_flag := MSC_UTIL.SYS_NO;
939: lv_prec.app_supp_cap_flag := MSC_UTIL.SYS_NO;
940: lv_prec.po_flag := MSC_UTIL.SYS_NO;
941: lv_prec.mds_flag := MSC_UTIL.SYS_NO;
934: lv_prec.oh_flag := MSC_UTIL.SYS_NO;
935: lv_prec.user_supply_demand_flag:= MSC_UTIL.SYS_NO;
936: -- lv_prec.sales_order_flag := MSC_UTIL.SYS_NO;
937: lv_prec.forecast_flag := MSC_UTIL.SYS_NO;
938: lv_prec.wip_flag := MSC_UTIL.SYS_NO;
939: lv_prec.app_supp_cap_flag := MSC_UTIL.SYS_NO;
940: lv_prec.po_flag := MSC_UTIL.SYS_NO;
941: lv_prec.mds_flag := MSC_UTIL.SYS_NO;
942: lv_prec.supplier_response_flag := MSC_UTIL.SYS_NO;
935: lv_prec.user_supply_demand_flag:= MSC_UTIL.SYS_NO;
936: -- lv_prec.sales_order_flag := MSC_UTIL.SYS_NO;
937: lv_prec.forecast_flag := MSC_UTIL.SYS_NO;
938: lv_prec.wip_flag := MSC_UTIL.SYS_NO;
939: lv_prec.app_supp_cap_flag := MSC_UTIL.SYS_NO;
940: lv_prec.po_flag := MSC_UTIL.SYS_NO;
941: lv_prec.mds_flag := MSC_UTIL.SYS_NO;
942: lv_prec.supplier_response_flag := MSC_UTIL.SYS_NO;
943: lv_prec.mps_flag := MSC_UTIL.SYS_NO;
936: -- lv_prec.sales_order_flag := MSC_UTIL.SYS_NO;
937: lv_prec.forecast_flag := MSC_UTIL.SYS_NO;
938: lv_prec.wip_flag := MSC_UTIL.SYS_NO;
939: lv_prec.app_supp_cap_flag := MSC_UTIL.SYS_NO;
940: lv_prec.po_flag := MSC_UTIL.SYS_NO;
941: lv_prec.mds_flag := MSC_UTIL.SYS_NO;
942: lv_prec.supplier_response_flag := MSC_UTIL.SYS_NO;
943: lv_prec.mps_flag := MSC_UTIL.SYS_NO;
944: lv_prec.nosnap_flag := MSC_UTIL.SYS_NO;
937: lv_prec.forecast_flag := MSC_UTIL.SYS_NO;
938: lv_prec.wip_flag := MSC_UTIL.SYS_NO;
939: lv_prec.app_supp_cap_flag := MSC_UTIL.SYS_NO;
940: lv_prec.po_flag := MSC_UTIL.SYS_NO;
941: lv_prec.mds_flag := MSC_UTIL.SYS_NO;
942: lv_prec.supplier_response_flag := MSC_UTIL.SYS_NO;
943: lv_prec.mps_flag := MSC_UTIL.SYS_NO;
944: lv_prec.nosnap_flag := MSC_UTIL.SYS_NO;
945: lv_prec.trip_flag := MSC_UTIL.SYS_NO;
938: lv_prec.wip_flag := MSC_UTIL.SYS_NO;
939: lv_prec.app_supp_cap_flag := MSC_UTIL.SYS_NO;
940: lv_prec.po_flag := MSC_UTIL.SYS_NO;
941: lv_prec.mds_flag := MSC_UTIL.SYS_NO;
942: lv_prec.supplier_response_flag := MSC_UTIL.SYS_NO;
943: lv_prec.mps_flag := MSC_UTIL.SYS_NO;
944: lv_prec.nosnap_flag := MSC_UTIL.SYS_NO;
945: lv_prec.trip_flag := MSC_UTIL.SYS_NO;
946:
939: lv_prec.app_supp_cap_flag := MSC_UTIL.SYS_NO;
940: lv_prec.po_flag := MSC_UTIL.SYS_NO;
941: lv_prec.mds_flag := MSC_UTIL.SYS_NO;
942: lv_prec.supplier_response_flag := MSC_UTIL.SYS_NO;
943: lv_prec.mps_flag := MSC_UTIL.SYS_NO;
944: lv_prec.nosnap_flag := MSC_UTIL.SYS_NO;
945: lv_prec.trip_flag := MSC_UTIL.SYS_NO;
946:
947:
940: lv_prec.po_flag := MSC_UTIL.SYS_NO;
941: lv_prec.mds_flag := MSC_UTIL.SYS_NO;
942: lv_prec.supplier_response_flag := MSC_UTIL.SYS_NO;
943: lv_prec.mps_flag := MSC_UTIL.SYS_NO;
944: lv_prec.nosnap_flag := MSC_UTIL.SYS_NO;
945: lv_prec.trip_flag := MSC_UTIL.SYS_NO;
946:
947:
948:
941: lv_prec.mds_flag := MSC_UTIL.SYS_NO;
942: lv_prec.supplier_response_flag := MSC_UTIL.SYS_NO;
943: lv_prec.mps_flag := MSC_UTIL.SYS_NO;
944: lv_prec.nosnap_flag := MSC_UTIL.SYS_NO;
945: lv_prec.trip_flag := MSC_UTIL.SYS_NO;
946:
947:
948:
949:
976:
977: EXCEPTION
978: WHEN OTHERS THEN
979: ROLLBACK;
980: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
981: END SALES_ORDER_REFRESH_TYPE;
982:
983:
984: -- ============== End of Private Functions ===================
1004: msc_coll_parameters mcp
1005: where mio.sr_instance_id= p_instance_id
1006: and mcp.instance_id = p_instance_id
1007: and mio.enabled_flag= 1
1008: and (( mcp.org_group = MSC_UTIL.G_ALL_ORGANIZATIONS ) or
1009: (mio.org_group=mcp.org_group));
1010:
1011: cursor all_org IS
1012: select organization_id org_id
1015: and enabled_flag= 1;
1016:
1017: BEGIN
1018:
1019: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'GET_ORG_STR() input parameter p_type: '||to_char(p_type));
1020: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'GET_ORG_STR() input parameter p_instance_id: '||to_char(p_instance_id));
1021:
1022: IF(p_type=1 OR p_type=2)then
1023: FOR lc_ins_org IN org LOOP
1016:
1017: BEGIN
1018:
1019: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'GET_ORG_STR() input parameter p_type: '||to_char(p_type));
1020: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'GET_ORG_STR() input parameter p_instance_id: '||to_char(p_instance_id));
1021:
1022: IF(p_type=1 OR p_type=2)then
1023: FOR lc_ins_org IN org LOOP
1024: IF org%rowcount = 1 THEN
1039: EXCEPTION
1040: WHEN NO_DATA_FOUND THEN
1041: FND_MESSAGE.SET_NAME('MSC','MSC_DP_INVALID_INSTANCE_ID');
1042: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', p_instance_id);
1043: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1044: RETURN '=-9999';
1045: WHEN OTHERS THEN
1046: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1047: RETURN '=-9999';
1042: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', p_instance_id);
1043: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1044: RETURN '=-9999';
1045: WHEN OTHERS THEN
1046: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1047: RETURN '=-9999';
1048: END;
1049:
1050: BEGIN
1063: END LOOP;
1064: CLOSE lc_opm_org;
1065: EXCEPTION
1066: WHEN OTHERS THEN
1067: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1068: RETURN '=-9999';
1069: END;
1070: END IF;
1071: IF lv_in_org_str<>'NULL' THEN
1088: END IF;
1089: ELSE RAISE wrong_p_type;
1090: END IF;
1091:
1092: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'GET_ORG_STR() returns '||lv_in_org_str);
1093: RETURN lv_in_org_str;
1094:
1095: EXCEPTION
1096: WHEN wrong_p_type THEN
1093: RETURN lv_in_org_str;
1094:
1095: EXCEPTION
1096: WHEN wrong_p_type THEN
1097: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Error: Wrong value of p_type('||to_Char(p_type)||') in GET_ORG_STR() ');
1098: RETURN '=-9999';
1099: WHEN OTHERS THEN
1100: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ' Error: In GET_ORG_STR() ');
1101: RETURN '=-9999';
1096: WHEN wrong_p_type THEN
1097: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Error: Wrong value of p_type('||to_Char(p_type)||') in GET_ORG_STR() ');
1098: RETURN '=-9999';
1099: WHEN OTHERS THEN
1100: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ' Error: In GET_ORG_STR() ');
1101: RETURN '=-9999';
1102: END GET_ORG_STR;
1103:
1104: /* This function is created as wrapper over GET_ORG_STR(p_instance_id IN NUMBER, p_type IN NUMBER), as OPM call is without any parameters. */
1108: lv_in_org_str VARCHAR2(32767):=NULL;
1109:
1110: BEGIN
1111:
1112: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'GET_ORG_STR value of v_instance_id: '||to_char(v_instance_id));
1113:
1114: lv_in_org_str := GET_ORG_STR (v_instance_id,2);
1115:
1116: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'GET_ORG_STR returns '||lv_in_org_str);
1112: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'GET_ORG_STR value of v_instance_id: '||to_char(v_instance_id));
1113:
1114: lv_in_org_str := GET_ORG_STR (v_instance_id,2);
1115:
1116: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'GET_ORG_STR returns '||lv_in_org_str);
1117: RETURN lv_in_org_str;
1118:
1119: EXCEPTION
1120: WHEN OTHERS THEN
1117: RETURN lv_in_org_str;
1118:
1119: EXCEPTION
1120: WHEN OTHERS THEN
1121: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ' Error: In GET_ORG_STR ');
1122: RETURN '=-9999';
1123: END GET_ORG_STR;
1124:
1125: -- ============== End of Public Functions ===================
1238:
1239: EX_PIPE_RCV EXCEPTION;
1240: EX_PIPE_SND EXCEPTION;
1241:
1242: prec MSC_UTIL.CollParamREC;
1243:
1244: --Status of worker
1245: lv_is_waiting boolean := TRUE;
1246:
1248: lv_toset_prec_flag boolean:=TRUE;
1249:
1250:
1251: BEGIN
1252: RETCODE := MSC_UTIL.G_SUCCESS;
1253: ERRBUF := NULL;
1254: v_instance_id := pINSTANCE_ID;
1255:
1256: v_monitor_request_id := pMONITOR_REQUEST_ID;
1257:
1258: -- SET TRANSACTION ISOLATION LEVEL SERIALIZABLE;
1259:
1260: IF fnd_global.conc_request_id > 0 THEN
1261: v_cp_enabled:= MSC_UTIL.SYS_YES;
1262: ELSE
1263: v_cp_enabled:= MSC_UTIL.SYS_NO;
1264: END IF;
1265:
1259:
1260: IF fnd_global.conc_request_id > 0 THEN
1261: v_cp_enabled:= MSC_UTIL.SYS_YES;
1262: ELSE
1263: v_cp_enabled:= MSC_UTIL.SYS_NO;
1264: END IF;
1265:
1266:
1267:
1272: SELECT DECODE( M2A_DBLINK,
1273: NULL, NULL_DBLINK,
1274: '@'||M2A_DBLINK),
1275: DECODE( M2A_DBLINK,
1276: NULL, MSC_UTIL.SYS_NO,
1277: MSC_UTIL.SYS_YES),
1278: APPS_VER,
1279: APPS_LRN,
1280: APPS_LRN
1273: NULL, NULL_DBLINK,
1274: '@'||M2A_DBLINK),
1275: DECODE( M2A_DBLINK,
1276: NULL, MSC_UTIL.SYS_NO,
1277: MSC_UTIL.SYS_YES),
1278: APPS_VER,
1279: APPS_LRN,
1280: APPS_LRN
1281: INTO v_dblink,
1289: EXCEPTION
1290:
1291: WHEN NO_DATA_FOUND THEN
1292:
1293: RETCODE := MSC_UTIL.G_ERROR;
1294:
1295: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
1296: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
1297: ERRBUF:= FND_MESSAGE.GET;
1294:
1295: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
1296: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
1297: ERRBUF:= FND_MESSAGE.GET;
1298: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1299: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1300:
1301: RETURN;
1302:
1295: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
1296: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
1297: ERRBUF:= FND_MESSAGE.GET;
1298: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1299: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1300:
1301: RETURN;
1302:
1303: WHEN OTHERS THEN
1307: END;
1308:
1309:
1310: -- to initialize common global variables bug#5897346
1311: MSC_UTIL.INITIALIZE_COMMON_GLOBALS(pINSTANCE_ID);
1312: INITIALIZE_PULL_GLOBALS( pINSTANCE_ID); -- Initializes Level 2 Global Variables used in Data Pull
1313: -- Initialize the Start Time and Pipename
1314:
1315:
1315:
1316: -- Initialize the remote Applications database, if it's a distributed
1317: -- configuration.
1318:
1319: IF v_distributed_config_flag = MSC_UTIL.SYS_YES THEN
1320: INITIALIZE_REMOTE_INSTANCE;
1321: COMMIT;
1322:
1323: END IF;
1326: -- 1. LANG
1327: -- 2. PROFILE OPTIONS
1328:
1329:
1330: IF lv_apps_ver>= MSC_UTIL.G_APPS115 THEN
1331: v_sql_stmt:=
1332: 'SELECT USERENV(''LANG''),'
1333: ||' FND_PROFILE.VALUE'||v_dblink||'(''BOM:HOUR_UOM_CODE''),'
1334: ||' DECODE( FND_PROFILE.VALUE'||v_dblink||'(''MRP_MPS_CONSUMPTION''),'
1367: ||' TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MSC_SIMUL_RES_SEQ'')),'
1368: ||' NVL(TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MRP_BIS_AV_DISCOUNT'')),0),'
1369: ||' TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MRP_BIS_PRICE_LIST'')),'
1370: ||' TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MRP_DMD_PRIORITY_FLEX_NUM'')),'
1371: --for bug13562886,use the MSC_UTIL.MSC_NUMVAL() to filter the wrong value set in the profile.
1372: ||' MSC_UTIL.MSC_NUMVAL( FND_PROFILE.VALUE'||v_dblink||'(''MSC_FCST_PRIORITY_FLEX_NUM''))'
1373: --||' TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MSC_FCST_PRIORITY_FLEX_NUM''))'
1374: ||' FROM DUAL';
1375:
1368: ||' NVL(TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MRP_BIS_AV_DISCOUNT'')),0),'
1369: ||' TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MRP_BIS_PRICE_LIST'')),'
1370: ||' TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MRP_DMD_PRIORITY_FLEX_NUM'')),'
1371: --for bug13562886,use the MSC_UTIL.MSC_NUMVAL() to filter the wrong value set in the profile.
1372: ||' MSC_UTIL.MSC_NUMVAL( FND_PROFILE.VALUE'||v_dblink||'(''MSC_FCST_PRIORITY_FLEX_NUM''))'
1373: --||' TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MSC_FCST_PRIORITY_FLEX_NUM''))'
1374: ||' FROM DUAL';
1375:
1376: ELSE
1413: ||' TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MRP_SIMUL_RES_SEQ'')),'
1414: ||' NVL(TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MRP_BIS_AV_DISCOUNT'')),0),'
1415: ||' TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MRP_BIS_PRICE_LIST'')),'
1416: ||' TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MRP_DMD_PRIORITY_FLEX_NUM'')),'
1417: --for bug13562886,use the MSC_UTIL.MSC_NUMVAL() to filter the wrong value set in the profile.
1418: --||' TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MSC_FCST_PRIORITY_FLEX_NUM''))'
1419: ||' MSC_UTIL.MSC_NUMVAL( FND_PROFILE.VALUE'||v_dblink||'(''MSC_FCST_PRIORITY_FLEX_NUM''))'
1420: ||' FROM DUAL';
1421:
1415: ||' TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MRP_BIS_PRICE_LIST'')),'
1416: ||' TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MRP_DMD_PRIORITY_FLEX_NUM'')),'
1417: --for bug13562886,use the MSC_UTIL.MSC_NUMVAL() to filter the wrong value set in the profile.
1418: --||' TO_NUMBER( FND_PROFILE.VALUE'||v_dblink||'(''MSC_FCST_PRIORITY_FLEX_NUM''))'
1419: ||' MSC_UTIL.MSC_NUMVAL( FND_PROFILE.VALUE'||v_dblink||'(''MSC_FCST_PRIORITY_FLEX_NUM''))'
1420: ||' FROM DUAL';
1421:
1422: END IF;
1423:
1480: -- Set the Last Refresh Number, -1: for complete refresh ------------------
1481:
1482: /** PREPLACE CHANGE START **/
1483:
1484: --IF pRTYPE= MSC_UTIL.SYS_YES THEN
1485: IF ((pRTYPE = MSC_UTIL.G_COMPLETE) OR (pRTYPE = MSC_UTIL.G_PARTIAL)) THEN
1486: v_lrnn:= -1;
1487:
1488: IF pSalesOrder_RTYPE= MSC_UTIL.SYS_YES THEN
1481:
1482: /** PREPLACE CHANGE START **/
1483:
1484: --IF pRTYPE= MSC_UTIL.SYS_YES THEN
1485: IF ((pRTYPE = MSC_UTIL.G_COMPLETE) OR (pRTYPE = MSC_UTIL.G_PARTIAL)) THEN
1486: v_lrnn:= -1;
1487:
1488: IF pSalesOrder_RTYPE= MSC_UTIL.SYS_YES THEN
1489: v_so_lrn:= -1;
1484: --IF pRTYPE= MSC_UTIL.SYS_YES THEN
1485: IF ((pRTYPE = MSC_UTIL.G_COMPLETE) OR (pRTYPE = MSC_UTIL.G_PARTIAL)) THEN
1486: v_lrnn:= -1;
1487:
1488: IF pSalesOrder_RTYPE= MSC_UTIL.SYS_YES THEN
1489: v_so_lrn:= -1;
1490: END IF;
1491: END IF;
1492:
1500: LOOP
1501:
1502: -- ============= Check the execution time ==============
1503:
1504: EXIT WHEN is_monitor_status_running <> MSC_UTIL.SYS_YES;
1505:
1506: EXIT WHEN is_request_status_running <> MSC_UTIL.SYS_YES;
1507:
1508: SELECT (SYSDATE- lv_start_time) INTO lv_process_time FROM dual;
1502: -- ============= Check the execution time ==============
1503:
1504: EXIT WHEN is_monitor_status_running <> MSC_UTIL.SYS_YES;
1505:
1506: EXIT WHEN is_request_status_running <> MSC_UTIL.SYS_YES;
1507:
1508: SELECT (SYSDATE- lv_start_time) INTO lv_process_time FROM dual;
1509: IF lv_process_time > pTIMEOUT/1440.0 THEN RAISE EX_PROCESS_TIME_OUT;
1510: END IF;
1517: if (lv_toset_prec_flag) then
1518: lv_toset_prec_flag := FALSE;
1519: SELECT org_group,delete_ods_data, supplier_capacity, atp_rules,
1520: bom, bor, calendar_check, demand_class,ITEM_SUBSTITUTES, forecast, item,
1521: decode(v_apps_ver, MSC_UTIL.G_APPS122, MSC_UTIL.SYS_NO, kpi_targets_bis), mds, mps, oh, parameter, planners,
1522: projects, po, reservations, nra, safety_stock,
1523: sales_order, sourcing_history, sourcing, sub_inventories,
1524: customer, supplier, unit_numbers, uom, user_supply_demand, wip, user_comp_association,
1525: po_receipts, bom_sn_flag, bor_sn_flag, item_sn_flag, oh_sn_flag,
1577:
1578:
1579: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_RCV_RET_CODE');
1580: FND_MESSAGE.SET_TOKEN('LV_TASK_NUMBER',lv_ret_code);
1581: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
1582:
1583: IF lv_ret_code<>0 THEN
1584:
1585: IF lv_ret_code = 1 THEN
1584:
1585: IF lv_ret_code = 1 THEN
1586: IF lv_is_waiting THEN
1587: lv_is_waiting := false;
1588: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'Waiting for task to arrive');
1589: END IF;
1590: ELSE
1591: RAISE EX_PIPE_RCV;
1592: END IF;
1597: DBMS_PIPE.UNPACK_MESSAGE( lv_task_num);
1598:
1599: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_TSK_UNPACK');
1600: FND_MESSAGE.SET_TOKEN('LV_TASK_NUM',lv_task_num);
1601: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
1602:
1603: EXIT WHEN lv_task_num<= 0; -- No task is left or unknown error occurs.
1604:
1605: -- ============= Execute the Task =============
1615: ELSE
1616: lv_lrn:= v_lrnn;
1617: END IF;
1618:
1619: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Executing Task Number '|| TO_CHAR(lv_task_num));
1620:
1621: EXECUTE_TASK
1622: ( lv_task_status,
1623: lv_task_num,
1692:
1693: IF lv_task_status <> OK THEN
1694: FND_MESSAGE.SET_NAME('MSC','MSC_CL_EXECUTE_TSK_PROB');
1695: FND_MESSAGE.SET_TOKEN('LV_TASK_NUMBER',lv_task_num);
1696: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
1697:
1698: DBMS_PIPE.PACK_MESSAGE( -lv_task_num);
1699:
1700: ELSE
1716:
1717: IF lv_task_num = 0 THEN -- NO TASK IS LEFT
1718: COMMIT;
1719:
1720: DBMS_PIPE.PACK_MESSAGE( MSC_UTIL.SYS_YES);
1721:
1722: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_status)<>0 THEN
1723: RAISE EX_PIPE_SND;
1724: END IF;
1724: END IF;
1725:
1726: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_SUCCEED');
1727: ERRBUF:= FND_MESSAGE.GET;
1728: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ERRBUF);
1729:
1730: RETCODE := MSC_UTIL.G_SUCCESS;
1731: return;
1732: ELSIF (lv_task_num = START_ODS_LOAD) THEN --- call the ODS Load worker
1726: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_SUCCEED');
1727: ERRBUF:= FND_MESSAGE.GET;
1728: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ERRBUF);
1729:
1730: RETCODE := MSC_UTIL.G_SUCCESS;
1731: return;
1732: ELSIF (lv_task_num = START_ODS_LOAD) THEN --- call the ODS Load worker
1733:
1734: /* ---------------- agmcont -------------------- */
1734: /* ---------------- agmcont -------------------- */
1735:
1736: /* --- call ods load worker --- */
1737:
1738: if (pRTYPE = MSC_UTIL.G_CONT) then
1739: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Calling ODS load worker');
1740:
1741: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1742: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS LOAD Worker is Started.');
1735:
1736: /* --- call ods load worker --- */
1737:
1738: if (pRTYPE = MSC_UTIL.G_CONT) then
1739: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Calling ODS load worker');
1740:
1741: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1742: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS LOAD Worker is Started.');
1743: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1737:
1738: if (pRTYPE = MSC_UTIL.G_CONT) then
1739: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Calling ODS load worker');
1740:
1741: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1742: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS LOAD Worker is Started.');
1743: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1744:
1745:
1738: if (pRTYPE = MSC_UTIL.G_CONT) then
1739: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Calling ODS load worker');
1740:
1741: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1742: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS LOAD Worker is Started.');
1743: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1744:
1745:
1746: BEGIN
1739: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Calling ODS load worker');
1740:
1741: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1742: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS LOAD Worker is Started.');
1743: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1744:
1745:
1746: BEGIN
1747: MSC_CL_COLLECTION.LAUNCH_WORKER(
1750: pMONITOR_REQUEST_ID ,
1751: pINSTANCE_ID ,
1752: -99, -- last_collection_id
1753: pTIMEOUT ,
1754: MSC_UTIL.SYS_NO, --- Recalc NRA
1755: MSC_UTIL.SYS_NO, -- Recalc sourcing history
1756: MSC_UTIL.SYS_YES, --exchange_mode
1757: MSC_UTIL.SYS_YES );
1758:
1751: pINSTANCE_ID ,
1752: -99, -- last_collection_id
1753: pTIMEOUT ,
1754: MSC_UTIL.SYS_NO, --- Recalc NRA
1755: MSC_UTIL.SYS_NO, -- Recalc sourcing history
1756: MSC_UTIL.SYS_YES, --exchange_mode
1757: MSC_UTIL.SYS_YES );
1758:
1759: EXCEPTION
1752: -99, -- last_collection_id
1753: pTIMEOUT ,
1754: MSC_UTIL.SYS_NO, --- Recalc NRA
1755: MSC_UTIL.SYS_NO, -- Recalc sourcing history
1756: MSC_UTIL.SYS_YES, --exchange_mode
1757: MSC_UTIL.SYS_YES );
1758:
1759: EXCEPTION
1760: WHEN OTHERS THEN
1753: pTIMEOUT ,
1754: MSC_UTIL.SYS_NO, --- Recalc NRA
1755: MSC_UTIL.SYS_NO, -- Recalc sourcing history
1756: MSC_UTIL.SYS_YES, --exchange_mode
1757: MSC_UTIL.SYS_YES );
1758:
1759: EXCEPTION
1760: WHEN OTHERS THEN
1761: ROLLBACK;
1758:
1759: EXCEPTION
1760: WHEN OTHERS THEN
1761: ROLLBACK;
1762: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1763: END;
1764:
1765: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1766: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS LOAD Worker is Completed.');
1761: ROLLBACK;
1762: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1763: END;
1764:
1765: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1766: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS LOAD Worker is Completed.');
1767: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1768:
1769: end if;
1762: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1763: END;
1764:
1765: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1766: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS LOAD Worker is Completed.');
1767: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1768:
1769: end if;
1770:
1763: END;
1764:
1765: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1766: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS LOAD Worker is Completed.');
1767: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
1768:
1769: end if;
1770:
1771: /* ---------------- agmcont -------------------- */
1772:
1773: ELSE -- Unknown Error
1774: ROLLBACK;
1775:
1776: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'There is an Unknown error in the Worker.');
1777:
1778: DBMS_PIPE.PACK_MESSAGE( MSC_UTIL.SYS_YES);
1779:
1780: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_status)<>0 THEN
1774: ROLLBACK;
1775:
1776: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'There is an Unknown error in the Worker.');
1777:
1778: DBMS_PIPE.PACK_MESSAGE( MSC_UTIL.SYS_YES);
1779:
1780: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_status)<>0 THEN
1781: RAISE EX_PIPE_SND;
1782: END IF;
1783:
1784: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
1785: ERRBUF:= FND_MESSAGE.GET;
1786:
1787: RETCODE := MSC_UTIL.G_ERROR;
1788:
1789: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1790: END IF;
1791:
1785: ERRBUF:= FND_MESSAGE.GET;
1786:
1787: RETCODE := MSC_UTIL.G_ERROR;
1788:
1789: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1790: END IF;
1791:
1792: RETCODE := MSC_UTIL.G_SUCCESS;
1793:
1788:
1789: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1790: END IF;
1791:
1792: RETCODE := MSC_UTIL.G_SUCCESS;
1793:
1794: EXCEPTION
1795:
1796: WHEN others THEN
1798: ROLLBACK; -- ROLLBACK if any exception occurs
1799:
1800: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
1801: ERRBUF:= FND_MESSAGE.GET;
1802: RETCODE := MSC_UTIL.G_ERROR;
1803:
1804: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1805:
1806: DBMS_PIPE.PACK_MESSAGE( UNRESOLVABLE_ERROR);
1800: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
1801: ERRBUF:= FND_MESSAGE.GET;
1802: RETCODE := MSC_UTIL.G_ERROR;
1803:
1804: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1805:
1806: DBMS_PIPE.PACK_MESSAGE( UNRESOLVABLE_ERROR);
1807:
1808: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_wm)<>0 THEN
1808: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_wm)<>0 THEN
1809:
1810: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
1811: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_wm);
1812: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1813:
1814: END IF;
1815:
1816: DBMS_PIPE.PACK_MESSAGE( MSC_UTIL.SYS_YES);
1812: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1813:
1814: END IF;
1815:
1816: DBMS_PIPE.PACK_MESSAGE( MSC_UTIL.SYS_YES);
1817:
1818: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_status)<>0 THEN
1819: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
1820: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_status);
1817:
1818: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_status)<>0 THEN
1819: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
1820: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_status);
1821: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1822: END IF;
1823:
1824: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
1825: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_STACK );
1820: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_status);
1821: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1822: END IF;
1823:
1824: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
1825: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_STACK );
1826: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Backtrace...' );
1827: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE );
1828:
1821: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1822: END IF;
1823:
1824: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
1825: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_STACK );
1826: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Backtrace...' );
1827: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE );
1828:
1829: END LAUNCH_WORKER;
1822: END IF;
1823:
1824: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
1825: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_STACK );
1826: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Backtrace...' );
1827: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE );
1828:
1829: END LAUNCH_WORKER;
1830:
1823:
1824: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
1825: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_STACK );
1826: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Backtrace...' );
1827: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE );
1828:
1829: END LAUNCH_WORKER;
1830:
1831: -- ===============================================================
1937: lv_coll_stat NUMBER;
1938: v_current_user NUMBER;
1939: var_debug NUMBER := 0;
1940:
1941: prec MSC_UTIL.CollParamREC;
1942:
1943:
1944: ---- New Variables for a2m_dblinks for the bug fix 2320600 ---
1945:
1954: l_message varchar2(1024);
1955: lv_request_id NUMBER;
1956:
1957: -- agmcont
1958: lv_bom_sn_flag number := MSC_UTIL.SYS_NO;
1959: lv_bor_sn_flag number := MSC_UTIL.SYS_NO;
1960: lv_item_sn_flag number := MSC_UTIL.SYS_NO;
1961: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
1962: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
1955: lv_request_id NUMBER;
1956:
1957: -- agmcont
1958: lv_bom_sn_flag number := MSC_UTIL.SYS_NO;
1959: lv_bor_sn_flag number := MSC_UTIL.SYS_NO;
1960: lv_item_sn_flag number := MSC_UTIL.SYS_NO;
1961: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
1962: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
1963: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
1956:
1957: -- agmcont
1958: lv_bom_sn_flag number := MSC_UTIL.SYS_NO;
1959: lv_bor_sn_flag number := MSC_UTIL.SYS_NO;
1960: lv_item_sn_flag number := MSC_UTIL.SYS_NO;
1961: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
1962: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
1963: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
1964: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
1957: -- agmcont
1958: lv_bom_sn_flag number := MSC_UTIL.SYS_NO;
1959: lv_bor_sn_flag number := MSC_UTIL.SYS_NO;
1960: lv_item_sn_flag number := MSC_UTIL.SYS_NO;
1961: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
1962: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
1963: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
1964: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
1965: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
1958: lv_bom_sn_flag number := MSC_UTIL.SYS_NO;
1959: lv_bor_sn_flag number := MSC_UTIL.SYS_NO;
1960: lv_item_sn_flag number := MSC_UTIL.SYS_NO;
1961: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
1962: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
1963: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
1964: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
1965: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
1966: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
1959: lv_bor_sn_flag number := MSC_UTIL.SYS_NO;
1960: lv_item_sn_flag number := MSC_UTIL.SYS_NO;
1961: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
1962: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
1963: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
1964: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
1965: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
1966: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
1967: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
1960: lv_item_sn_flag number := MSC_UTIL.SYS_NO;
1961: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
1962: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
1963: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
1964: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
1965: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
1966: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
1967: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
1968: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
1961: lv_oh_sn_flag number := MSC_UTIL.SYS_NO;
1962: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
1963: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
1964: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
1965: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
1966: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
1967: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
1968: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
1969: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
1962: lv_usup_sn_flag number := MSC_UTIL.SYS_NO;
1963: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
1964: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
1965: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
1966: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
1967: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
1968: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
1969: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
1970: /* CP-AUTO */
1963: lv_udmd_sn_flag number := MSC_UTIL.SYS_NO;
1964: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
1965: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
1966: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
1967: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
1968: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
1969: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
1970: /* CP-AUTO */
1971: lv_suprep_sn_flag number := MSC_UTIL.SYS_NO;
1964: lv_so_sn_flag number := MSC_UTIL.SYS_NO;
1965: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
1966: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
1967: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
1968: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
1969: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
1970: /* CP-AUTO */
1971: lv_suprep_sn_flag number := MSC_UTIL.SYS_NO;
1972: lv_mps_sn_flag number := MSC_UTIL.SYS_NO;
1965: lv_fcst_sn_flag number := MSC_UTIL.SYS_NO;
1966: lv_wip_sn_flag number := MSC_UTIL.SYS_NO;
1967: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
1968: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
1969: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
1970: /* CP-AUTO */
1971: lv_suprep_sn_flag number := MSC_UTIL.SYS_NO;
1972: lv_mps_sn_flag number := MSC_UTIL.SYS_NO;
1973: lv_nosnap_flag number := MSC_UTIL.SYS_NO;
1967: lv_supcap_sn_flag number := MSC_UTIL.SYS_NO;
1968: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
1969: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
1970: /* CP-AUTO */
1971: lv_suprep_sn_flag number := MSC_UTIL.SYS_NO;
1972: lv_mps_sn_flag number := MSC_UTIL.SYS_NO;
1973: lv_nosnap_flag number := MSC_UTIL.SYS_NO;
1974: lv_trip_sn_flag number := MSC_UTIL.SYS_NO; -- DRP
1975: lv_src_time DATE;
1968: lv_po_sn_flag number := MSC_UTIL.SYS_NO;
1969: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
1970: /* CP-AUTO */
1971: lv_suprep_sn_flag number := MSC_UTIL.SYS_NO;
1972: lv_mps_sn_flag number := MSC_UTIL.SYS_NO;
1973: lv_nosnap_flag number := MSC_UTIL.SYS_NO;
1974: lv_trip_sn_flag number := MSC_UTIL.SYS_NO; -- DRP
1975: lv_src_time DATE;
1976:
1969: lv_mds_sn_flag number := MSC_UTIL.SYS_NO;
1970: /* CP-AUTO */
1971: lv_suprep_sn_flag number := MSC_UTIL.SYS_NO;
1972: lv_mps_sn_flag number := MSC_UTIL.SYS_NO;
1973: lv_nosnap_flag number := MSC_UTIL.SYS_NO;
1974: lv_trip_sn_flag number := MSC_UTIL.SYS_NO; -- DRP
1975: lv_src_time DATE;
1976:
1977: lv_so_lrtype number;
1970: /* CP-AUTO */
1971: lv_suprep_sn_flag number := MSC_UTIL.SYS_NO;
1972: lv_mps_sn_flag number := MSC_UTIL.SYS_NO;
1973: lv_nosnap_flag number := MSC_UTIL.SYS_NO;
1974: lv_trip_sn_flag number := MSC_UTIL.SYS_NO; -- DRP
1975: lv_src_time DATE;
1976:
1977: lv_so_lrtype number;
1978:
1988:
1989: BEGIN
1990: v_instance_id := pINSTANCE_ID;
1991: IF fnd_global.conc_request_id > 0 THEN
1992: v_cp_enabled:= MSC_UTIL.SYS_YES;
1993: ELSE
1994: v_cp_enabled:= MSC_UTIL.SYS_NO;
1995: END IF;
1996:
1990: v_instance_id := pINSTANCE_ID;
1991: IF fnd_global.conc_request_id > 0 THEN
1992: v_cp_enabled:= MSC_UTIL.SYS_YES;
1993: ELSE
1994: v_cp_enabled:= MSC_UTIL.SYS_NO;
1995: END IF;
1996:
1997: -- set the value for v_req_data. Fix for 2351297--
1998: v_req_data := fnd_conc_global.request_data;
2013: l_dev_status,
2014: l_message);
2015:
2016: IF l_call_status=FALSE THEN
2017: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, l_message);
2018: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
2019: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
2020: RETCODE := MSC_UTIL.G_ERROR;
2021: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2015:
2016: IF l_call_status=FALSE THEN
2017: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, l_message);
2018: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
2019: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
2020: RETCODE := MSC_UTIL.G_ERROR;
2021: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2022: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
2023: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
2016: IF l_call_status=FALSE THEN
2017: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, l_message);
2018: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
2019: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
2020: RETCODE := MSC_UTIL.G_ERROR;
2021: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2022: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
2023: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
2024: COMMIT;
2017: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, l_message);
2018: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
2019: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
2020: RETCODE := MSC_UTIL.G_ERROR;
2021: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2022: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
2023: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
2024: COMMIT;
2025: END IF;
2019: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
2020: RETCODE := MSC_UTIL.G_ERROR;
2021: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2022: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
2023: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
2024: COMMIT;
2025: END IF;
2026: RETURN;
2027: END IF;
2031: null;
2032: ELSE
2033: -- the Planning Data Pull should error out
2034: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
2035: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
2036: RETCODE := MSC_UTIL.G_ERROR;
2037: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2038: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
2039: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
2032: ELSE
2033: -- the Planning Data Pull should error out
2034: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
2035: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
2036: RETCODE := MSC_UTIL.G_ERROR;
2037: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2038: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
2039: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
2040: COMMIT;
2033: -- the Planning Data Pull should error out
2034: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
2035: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
2036: RETCODE := MSC_UTIL.G_ERROR;
2037: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2038: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
2039: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
2040: COMMIT;
2041: END IF;
2035: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
2036: RETCODE := MSC_UTIL.G_ERROR;
2037: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2038: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
2039: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
2040: COMMIT;
2041: END IF;
2042: RETURN;
2043: END IF;
2055: prec.calendar_flag := pCALENDAR_ENABLED;
2056: prec.demand_class_flag := pDEMAND_CLASS_ENABLED;
2057: prec.forecast_flag := pFORECAST_ENABLED;
2058: prec.item_flag := pITEM_ENABLED;
2059: prec.kpi_bis_flag := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE pKPI_BIS_ENABLED END;
2060: prec.mds_flag := pMDS_ENABLED;
2061: prec.mps_flag := pMPS_ENABLED;
2062: prec.oh_flag := pOH_ENABLED;
2063: prec.parameter_flag := pPARAMETER_ENABLED;
2101: // and customer information will be loaded together.
2102: // HARD CODED - Vendor and customer CURRENTLY cannot be
2103: // separately refreshed during targeted/partial refreshment.
2104: */
2105: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'RRRRRR--Values for peam_fc_st_date ' ||peam_fc_st_date||'-- peam_fc_end_date'||peam_fc_end_date);
2106: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'RRRRRR--Values for peam_pcmro_fc_st_date ' ||pcmro_fc_st_date||'-- pcmro_fc_end_date'||pcmro_fc_end_date);
2107:
2108: prec.eAM_info_flag := peAM_info ;
2109: prec.eAM_forecasts_flag := peAM_forecasts ;
2102: // HARD CODED - Vendor and customer CURRENTLY cannot be
2103: // separately refreshed during targeted/partial refreshment.
2104: */
2105: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'RRRRRR--Values for peam_fc_st_date ' ||peam_fc_st_date||'-- peam_fc_end_date'||peam_fc_end_date);
2106: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'RRRRRR--Values for peam_pcmro_fc_st_date ' ||pcmro_fc_st_date||'-- pcmro_fc_end_date'||pcmro_fc_end_date);
2107:
2108: prec.eAM_info_flag := peAM_info ;
2109: prec.eAM_forecasts_flag := peAM_forecasts ;
2110:
2136:
2137: prec.cmro_closed_wo := pcmro_closed_wo ;
2138: prec.osp_supply := posp_supply;
2139:
2140: IF pTP_VENDOR_ENABLED = MSC_UTIL.SYS_YES THEN
2141: prec.tp_customer_flag := MSC_UTIL.SYS_YES;
2142: ELSIF pTP_CUSTOMER_ENABLED = MSC_UTIL.SYS_YES THEN
2143: prec.tp_vendor_flag := MSC_UTIL.SYS_YES;
2144: END IF;
2137: prec.cmro_closed_wo := pcmro_closed_wo ;
2138: prec.osp_supply := posp_supply;
2139:
2140: IF pTP_VENDOR_ENABLED = MSC_UTIL.SYS_YES THEN
2141: prec.tp_customer_flag := MSC_UTIL.SYS_YES;
2142: ELSIF pTP_CUSTOMER_ENABLED = MSC_UTIL.SYS_YES THEN
2143: prec.tp_vendor_flag := MSC_UTIL.SYS_YES;
2144: END IF;
2145:
2138: prec.osp_supply := posp_supply;
2139:
2140: IF pTP_VENDOR_ENABLED = MSC_UTIL.SYS_YES THEN
2141: prec.tp_customer_flag := MSC_UTIL.SYS_YES;
2142: ELSIF pTP_CUSTOMER_ENABLED = MSC_UTIL.SYS_YES THEN
2143: prec.tp_vendor_flag := MSC_UTIL.SYS_YES;
2144: END IF;
2145:
2146: /* In case of MDS, MPS both need to go together as they are dependent on the same
2139:
2140: IF pTP_VENDOR_ENABLED = MSC_UTIL.SYS_YES THEN
2141: prec.tp_customer_flag := MSC_UTIL.SYS_YES;
2142: ELSIF pTP_CUSTOMER_ENABLED = MSC_UTIL.SYS_YES THEN
2143: prec.tp_vendor_flag := MSC_UTIL.SYS_YES;
2144: END IF;
2145:
2146: /* In case of MDS, MPS both need to go together as they are dependent on the same
2147: // snapshot mrp_schedule_dates
2146: /* In case of MDS, MPS both need to go together as they are dependent on the same
2147: // snapshot mrp_schedule_dates
2148: */
2149:
2150: IF prec.mds_flag = MSC_UTIL.SYS_YES THEN
2151: prec.mps_flag := MSC_UTIL.SYS_YES;
2152: ELSIF prec.mps_flag = MSC_UTIL.SYS_YES THEN
2153: prec.mds_flag := MSC_UTIL.SYS_YES;
2154: END IF;
2147: // snapshot mrp_schedule_dates
2148: */
2149:
2150: IF prec.mds_flag = MSC_UTIL.SYS_YES THEN
2151: prec.mps_flag := MSC_UTIL.SYS_YES;
2152: ELSIF prec.mps_flag = MSC_UTIL.SYS_YES THEN
2153: prec.mds_flag := MSC_UTIL.SYS_YES;
2154: END IF;
2155:
2148: */
2149:
2150: IF prec.mds_flag = MSC_UTIL.SYS_YES THEN
2151: prec.mps_flag := MSC_UTIL.SYS_YES;
2152: ELSIF prec.mps_flag = MSC_UTIL.SYS_YES THEN
2153: prec.mds_flag := MSC_UTIL.SYS_YES;
2154: END IF;
2155:
2156: --Bug 8415844 We set prec.sales_order_flag to Yes in case of net change collection
2149:
2150: IF prec.mds_flag = MSC_UTIL.SYS_YES THEN
2151: prec.mps_flag := MSC_UTIL.SYS_YES;
2152: ELSIF prec.mps_flag = MSC_UTIL.SYS_YES THEN
2153: prec.mds_flag := MSC_UTIL.SYS_YES;
2154: END IF;
2155:
2156: --Bug 8415844 We set prec.sales_order_flag to Yes in case of net change collection
2157:
2154: END IF;
2155:
2156: --Bug 8415844 We set prec.sales_order_flag to Yes in case of net change collection
2157:
2158: IF (pRTYPE = MSC_UTIL.G_INCREMENTAL) THEN
2159: prec.sales_order_flag := MSC_UTIL.SYS_YES;
2160: END IF;
2161:
2162: --agmcont
2155:
2156: --Bug 8415844 We set prec.sales_order_flag to Yes in case of net change collection
2157:
2158: IF (pRTYPE = MSC_UTIL.G_INCREMENTAL) THEN
2159: prec.sales_order_flag := MSC_UTIL.SYS_YES;
2160: END IF;
2161:
2162: --agmcont
2163: /* select the instance_type and database link */
2180: v_instance_code
2181: FROM MSC_APPS_INSTANCES
2182: WHERE INSTANCE_ID= pINSTANCE_ID;
2183:
2184: IF (v_apps_ver = MSC_UTIL.G_APPS120) THEN --bug#5684183 (bcaru)
2185: prec.payback_demand_supply_flag := MSC_UTIL.SYS_NO;
2186: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2187: --prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2188: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2181: FROM MSC_APPS_INSTANCES
2182: WHERE INSTANCE_ID= pINSTANCE_ID;
2183:
2184: IF (v_apps_ver = MSC_UTIL.G_APPS120) THEN --bug#5684183 (bcaru)
2185: prec.payback_demand_supply_flag := MSC_UTIL.SYS_NO;
2186: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2187: --prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2188: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2189: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2182: WHERE INSTANCE_ID= pINSTANCE_ID;
2183:
2184: IF (v_apps_ver = MSC_UTIL.G_APPS120) THEN --bug#5684183 (bcaru)
2185: prec.payback_demand_supply_flag := MSC_UTIL.SYS_NO;
2186: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2187: --prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2188: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2189: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity borrow payback is not supported for this source version');
2183:
2184: IF (v_apps_ver = MSC_UTIL.G_APPS120) THEN --bug#5684183 (bcaru)
2185: prec.payback_demand_supply_flag := MSC_UTIL.SYS_NO;
2186: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2187: --prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2188: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2189: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity borrow payback is not supported for this source version');
2191: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this source version');
2184: IF (v_apps_ver = MSC_UTIL.G_APPS120) THEN --bug#5684183 (bcaru)
2185: prec.payback_demand_supply_flag := MSC_UTIL.SYS_NO;
2186: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2187: --prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2188: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2189: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity borrow payback is not supported for this source version');
2191: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this source version');
2192: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2185: prec.payback_demand_supply_flag := MSC_UTIL.SYS_NO;
2186: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2187: --prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2188: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2189: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity borrow payback is not supported for this source version');
2191: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this source version');
2192: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2193: If pITEM_SUBST_ENABLED = MSC_UTIL.SYS_YES and pRTYPE = MSC_UTIL.G_INCREMENTAL Then
2186: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2187: --prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2188: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2189: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity borrow payback is not supported for this source version');
2191: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this source version');
2192: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2193: If pITEM_SUBST_ENABLED = MSC_UTIL.SYS_YES and pRTYPE = MSC_UTIL.G_INCREMENTAL Then
2194: prec.item_subst_flag := MSC_UTIL.SYS_NO;
2187: --prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2188: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2189: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity borrow payback is not supported for this source version');
2191: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this source version');
2192: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2193: If pITEM_SUBST_ENABLED = MSC_UTIL.SYS_YES and pRTYPE = MSC_UTIL.G_INCREMENTAL Then
2194: prec.item_subst_flag := MSC_UTIL.SYS_NO;
2195: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Netchange of Item substitutes is not supported for this source version');
2188: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2189: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity borrow payback is not supported for this source version');
2191: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this source version');
2192: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2193: If pITEM_SUBST_ENABLED = MSC_UTIL.SYS_YES and pRTYPE = MSC_UTIL.G_INCREMENTAL Then
2194: prec.item_subst_flag := MSC_UTIL.SYS_NO;
2195: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Netchange of Item substitutes is not supported for this source version');
2196: end if;
2189: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity borrow payback is not supported for this source version');
2191: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this source version');
2192: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2193: If pITEM_SUBST_ENABLED = MSC_UTIL.SYS_YES and pRTYPE = MSC_UTIL.G_INCREMENTAL Then
2194: prec.item_subst_flag := MSC_UTIL.SYS_NO;
2195: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Netchange of Item substitutes is not supported for this source version');
2196: end if;
2197:
2190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity borrow payback is not supported for this source version');
2191: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this source version');
2192: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2193: If pITEM_SUBST_ENABLED = MSC_UTIL.SYS_YES and pRTYPE = MSC_UTIL.G_INCREMENTAL Then
2194: prec.item_subst_flag := MSC_UTIL.SYS_NO;
2195: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Netchange of Item substitutes is not supported for this source version');
2196: end if;
2197:
2198: END IF;
2191: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this source version');
2192: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2193: If pITEM_SUBST_ENABLED = MSC_UTIL.SYS_YES and pRTYPE = MSC_UTIL.G_INCREMENTAL Then
2194: prec.item_subst_flag := MSC_UTIL.SYS_NO;
2195: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Netchange of Item substitutes is not supported for this source version');
2196: end if;
2197:
2198: END IF;
2199:
2197:
2198: END IF;
2199:
2200: /*If the source version is 11510, PO receipts is not supported*/
2201: IF (v_apps_ver < MSC_UTIL.G_APPS120) THEN --bug#5684183 (bcaru)
2202: prec.po_receipts_flag := MSC_UTIL.SYS_NO;
2203: prec.internal_repair_flag := MSC_UTIL.SYS_NO;
2204: prec.external_repair_flag := MSC_UTIL.SYS_NO;
2205: --prec.payback_demand_supply_flag := MSC_UTIL.SYS_NO;
2198: END IF;
2199:
2200: /*If the source version is 11510, PO receipts is not supported*/
2201: IF (v_apps_ver < MSC_UTIL.G_APPS120) THEN --bug#5684183 (bcaru)
2202: prec.po_receipts_flag := MSC_UTIL.SYS_NO;
2203: prec.internal_repair_flag := MSC_UTIL.SYS_NO;
2204: prec.external_repair_flag := MSC_UTIL.SYS_NO;
2205: --prec.payback_demand_supply_flag := MSC_UTIL.SYS_NO;
2206: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2199:
2200: /*If the source version is 11510, PO receipts is not supported*/
2201: IF (v_apps_ver < MSC_UTIL.G_APPS120) THEN --bug#5684183 (bcaru)
2202: prec.po_receipts_flag := MSC_UTIL.SYS_NO;
2203: prec.internal_repair_flag := MSC_UTIL.SYS_NO;
2204: prec.external_repair_flag := MSC_UTIL.SYS_NO;
2205: --prec.payback_demand_supply_flag := MSC_UTIL.SYS_NO;
2206: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2207: prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2200: /*If the source version is 11510, PO receipts is not supported*/
2201: IF (v_apps_ver < MSC_UTIL.G_APPS120) THEN --bug#5684183 (bcaru)
2202: prec.po_receipts_flag := MSC_UTIL.SYS_NO;
2203: prec.internal_repair_flag := MSC_UTIL.SYS_NO;
2204: prec.external_repair_flag := MSC_UTIL.SYS_NO;
2205: --prec.payback_demand_supply_flag := MSC_UTIL.SYS_NO;
2206: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2207: prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2208: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2201: IF (v_apps_ver < MSC_UTIL.G_APPS120) THEN --bug#5684183 (bcaru)
2202: prec.po_receipts_flag := MSC_UTIL.SYS_NO;
2203: prec.internal_repair_flag := MSC_UTIL.SYS_NO;
2204: prec.external_repair_flag := MSC_UTIL.SYS_NO;
2205: --prec.payback_demand_supply_flag := MSC_UTIL.SYS_NO;
2206: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2207: prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2208: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2209: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2202: prec.po_receipts_flag := MSC_UTIL.SYS_NO;
2203: prec.internal_repair_flag := MSC_UTIL.SYS_NO;
2204: prec.external_repair_flag := MSC_UTIL.SYS_NO;
2205: --prec.payback_demand_supply_flag := MSC_UTIL.SYS_NO;
2206: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2207: prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2208: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2209: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2210: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this version ');
2203: prec.internal_repair_flag := MSC_UTIL.SYS_NO;
2204: prec.external_repair_flag := MSC_UTIL.SYS_NO;
2205: --prec.payback_demand_supply_flag := MSC_UTIL.SYS_NO;
2206: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2207: prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2208: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2209: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2210: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this version ');
2211: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2204: prec.external_repair_flag := MSC_UTIL.SYS_NO;
2205: --prec.payback_demand_supply_flag := MSC_UTIL.SYS_NO;
2206: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2207: prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2208: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2209: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2210: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this version ');
2211: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2212: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entities po_receipts, IRO,ERO are not supported for this source version');
2205: --prec.payback_demand_supply_flag := MSC_UTIL.SYS_NO;
2206: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2207: prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2208: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2209: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2210: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this version ');
2211: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2212: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entities po_receipts, IRO,ERO are not supported for this source version');
2213: If pITEM_SUBST_ENABLED = MSC_UTIL.SYS_YES and pRTYPE = MSC_UTIL.G_INCREMENTAL Then
2206: --prec.currency_conversion_flag := MSC_UTIL.SYS_NO;
2207: prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2208: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2209: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2210: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this version ');
2211: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2212: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entities po_receipts, IRO,ERO are not supported for this source version');
2213: If pITEM_SUBST_ENABLED = MSC_UTIL.SYS_YES and pRTYPE = MSC_UTIL.G_INCREMENTAL Then
2214: prec.item_subst_flag := MSC_UTIL.SYS_NO;
2207: prec.delivery_details_flag := MSC_UTIL.SYS_NO;
2208: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2209: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2210: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this version ');
2211: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2212: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entities po_receipts, IRO,ERO are not supported for this source version');
2213: If pITEM_SUBST_ENABLED = MSC_UTIL.SYS_YES and pRTYPE = MSC_UTIL.G_INCREMENTAL Then
2214: prec.item_subst_flag := MSC_UTIL.SYS_NO;
2215: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Netchange of Item substitutes is not supported for this source version');
2208: prec.ibuc_history_flag := MSC_UTIL.SYS_NO;
2209: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2210: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this version ');
2211: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2212: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entities po_receipts, IRO,ERO are not supported for this source version');
2213: If pITEM_SUBST_ENABLED = MSC_UTIL.SYS_YES and pRTYPE = MSC_UTIL.G_INCREMENTAL Then
2214: prec.item_subst_flag := MSC_UTIL.SYS_NO;
2215: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Netchange of Item substitutes is not supported for this source version');
2216: end if;
2209: prec.notes_attach_flag := MSC_UTIL.SYS_NO;
2210: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this version ');
2211: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2212: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entities po_receipts, IRO,ERO are not supported for this source version');
2213: If pITEM_SUBST_ENABLED = MSC_UTIL.SYS_YES and pRTYPE = MSC_UTIL.G_INCREMENTAL Then
2214: prec.item_subst_flag := MSC_UTIL.SYS_NO;
2215: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Netchange of Item substitutes is not supported for this source version');
2216: end if;
2217:
2210: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC coll is not supported for this version ');
2211: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2212: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entities po_receipts, IRO,ERO are not supported for this source version');
2213: If pITEM_SUBST_ENABLED = MSC_UTIL.SYS_YES and pRTYPE = MSC_UTIL.G_INCREMENTAL Then
2214: prec.item_subst_flag := MSC_UTIL.SYS_NO;
2215: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Netchange of Item substitutes is not supported for this source version');
2216: end if;
2217:
2218: END IF;
2211: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes (Attachments) coll is not supported for this source version');
2212: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entities po_receipts, IRO,ERO are not supported for this source version');
2213: If pITEM_SUBST_ENABLED = MSC_UTIL.SYS_YES and pRTYPE = MSC_UTIL.G_INCREMENTAL Then
2214: prec.item_subst_flag := MSC_UTIL.SYS_NO;
2215: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Netchange of Item substitutes is not supported for this source version');
2216: end if;
2217:
2218: END IF;
2219:
2218: END IF;
2219:
2220: /* IBUC*/
2221:
2222: IF ( MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'N' AND prec.ibuc_history_flag = MSC_UTIL.SYS_YES ) THEN
2223: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:SRP PHASE2 ENABLED ' ||MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE );
2224: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC will be collected only if the profile MSC:SRP PHASE2 ENABLED is set to Y');
2225: prec.ibuc_history_flag := MSC_UTIL.SYS_NO ;
2226: ELSIF ( MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'N' AND prec.notes_attach_flag = MSC_UTIL.SYS_YES ) THEN
2219:
2220: /* IBUC*/
2221:
2222: IF ( MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'N' AND prec.ibuc_history_flag = MSC_UTIL.SYS_YES ) THEN
2223: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:SRP PHASE2 ENABLED ' ||MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE );
2224: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC will be collected only if the profile MSC:SRP PHASE2 ENABLED is set to Y');
2225: prec.ibuc_history_flag := MSC_UTIL.SYS_NO ;
2226: ELSIF ( MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'N' AND prec.notes_attach_flag = MSC_UTIL.SYS_YES ) THEN
2227: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:SRP PHASE2 ENABLED ' ||MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE );
2220: /* IBUC*/
2221:
2222: IF ( MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'N' AND prec.ibuc_history_flag = MSC_UTIL.SYS_YES ) THEN
2223: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:SRP PHASE2 ENABLED ' ||MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE );
2224: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC will be collected only if the profile MSC:SRP PHASE2 ENABLED is set to Y');
2225: prec.ibuc_history_flag := MSC_UTIL.SYS_NO ;
2226: ELSIF ( MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'N' AND prec.notes_attach_flag = MSC_UTIL.SYS_YES ) THEN
2227: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:SRP PHASE2 ENABLED ' ||MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE );
2228: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes(Attachments) will be collected only if the profile MSC:SRP PHASE2 ENABLED is set to Y');
2221:
2222: IF ( MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'N' AND prec.ibuc_history_flag = MSC_UTIL.SYS_YES ) THEN
2223: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:SRP PHASE2 ENABLED ' ||MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE );
2224: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC will be collected only if the profile MSC:SRP PHASE2 ENABLED is set to Y');
2225: prec.ibuc_history_flag := MSC_UTIL.SYS_NO ;
2226: ELSIF ( MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'N' AND prec.notes_attach_flag = MSC_UTIL.SYS_YES ) THEN
2227: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:SRP PHASE2 ENABLED ' ||MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE );
2228: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes(Attachments) will be collected only if the profile MSC:SRP PHASE2 ENABLED is set to Y');
2229: prec.notes_attach_flag := MSC_UTIL.SYS_NO ;
2222: IF ( MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'N' AND prec.ibuc_history_flag = MSC_UTIL.SYS_YES ) THEN
2223: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:SRP PHASE2 ENABLED ' ||MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE );
2224: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC will be collected only if the profile MSC:SRP PHASE2 ENABLED is set to Y');
2225: prec.ibuc_history_flag := MSC_UTIL.SYS_NO ;
2226: ELSIF ( MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'N' AND prec.notes_attach_flag = MSC_UTIL.SYS_YES ) THEN
2227: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:SRP PHASE2 ENABLED ' ||MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE );
2228: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes(Attachments) will be collected only if the profile MSC:SRP PHASE2 ENABLED is set to Y');
2229: prec.notes_attach_flag := MSC_UTIL.SYS_NO ;
2230: END IF;
2223: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:SRP PHASE2 ENABLED ' ||MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE );
2224: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC will be collected only if the profile MSC:SRP PHASE2 ENABLED is set to Y');
2225: prec.ibuc_history_flag := MSC_UTIL.SYS_NO ;
2226: ELSIF ( MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'N' AND prec.notes_attach_flag = MSC_UTIL.SYS_YES ) THEN
2227: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:SRP PHASE2 ENABLED ' ||MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE );
2228: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes(Attachments) will be collected only if the profile MSC:SRP PHASE2 ENABLED is set to Y');
2229: prec.notes_attach_flag := MSC_UTIL.SYS_NO ;
2230: END IF;
2231:
2224: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity IBUC will be collected only if the profile MSC:SRP PHASE2 ENABLED is set to Y');
2225: prec.ibuc_history_flag := MSC_UTIL.SYS_NO ;
2226: ELSIF ( MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'N' AND prec.notes_attach_flag = MSC_UTIL.SYS_YES ) THEN
2227: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:SRP PHASE2 ENABLED ' ||MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE );
2228: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes(Attachments) will be collected only if the profile MSC:SRP PHASE2 ENABLED is set to Y');
2229: prec.notes_attach_flag := MSC_UTIL.SYS_NO ;
2230: END IF;
2231:
2232: /* USAF -- rgurugub */
2225: prec.ibuc_history_flag := MSC_UTIL.SYS_NO ;
2226: ELSIF ( MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'N' AND prec.notes_attach_flag = MSC_UTIL.SYS_YES ) THEN
2227: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:SRP PHASE2 ENABLED ' ||MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE );
2228: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity Notes(Attachments) will be collected only if the profile MSC:SRP PHASE2 ENABLED is set to Y');
2229: prec.notes_attach_flag := MSC_UTIL.SYS_NO ;
2230: END IF;
2231:
2232: /* USAF -- rgurugub */
2233: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_info_flag = MSC_UTIL.SYS_YES) Then
2229: prec.notes_attach_flag := MSC_UTIL.SYS_NO ;
2230: END IF;
2231:
2232: /* USAF -- rgurugub */
2233: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_info_flag = MSC_UTIL.SYS_YES) Then
2234: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2235: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity EAM Info will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2236: prec.eAM_info_flag := MSC_UTIL.SYS_NO ;
2237: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2230: END IF;
2231:
2232: /* USAF -- rgurugub */
2233: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_info_flag = MSC_UTIL.SYS_YES) Then
2234: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2235: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity EAM Info will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2236: prec.eAM_info_flag := MSC_UTIL.SYS_NO ;
2237: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2238: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2231:
2232: /* USAF -- rgurugub */
2233: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_info_flag = MSC_UTIL.SYS_YES) Then
2234: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2235: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity EAM Info will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2236: prec.eAM_info_flag := MSC_UTIL.SYS_NO ;
2237: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2238: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2239: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity EAM Forecats will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2232: /* USAF -- rgurugub */
2233: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_info_flag = MSC_UTIL.SYS_YES) Then
2234: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2235: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity EAM Info will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2236: prec.eAM_info_flag := MSC_UTIL.SYS_NO ;
2237: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2238: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2239: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity EAM Forecats will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2240: prec.eAM_forecasts_flag := MSC_UTIL.SYS_NO ;
2233: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_info_flag = MSC_UTIL.SYS_YES) Then
2234: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2235: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity EAM Info will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2236: prec.eAM_info_flag := MSC_UTIL.SYS_NO ;
2237: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2238: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2239: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity EAM Forecats will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2240: prec.eAM_forecasts_flag := MSC_UTIL.SYS_NO ;
2241: prec.eam_fc_st_date := NULL ;
2234: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2235: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity EAM Info will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2236: prec.eAM_info_flag := MSC_UTIL.SYS_NO ;
2237: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2238: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2239: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity EAM Forecats will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2240: prec.eAM_forecasts_flag := MSC_UTIL.SYS_NO ;
2241: prec.eam_fc_st_date := NULL ;
2242: prec.eam_fc_end_date := NULL ;
2235: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity EAM Info will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2236: prec.eAM_info_flag := MSC_UTIL.SYS_NO ;
2237: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2238: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2239: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity EAM Forecats will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2240: prec.eAM_forecasts_flag := MSC_UTIL.SYS_NO ;
2241: prec.eam_fc_st_date := NULL ;
2242: prec.eam_fc_end_date := NULL ;
2243: end if ;
2236: prec.eAM_info_flag := MSC_UTIL.SYS_NO ;
2237: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2238: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2239: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity EAM Forecats will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2240: prec.eAM_forecasts_flag := MSC_UTIL.SYS_NO ;
2241: prec.eam_fc_st_date := NULL ;
2242: prec.eam_fc_end_date := NULL ;
2243: end if ;
2244: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.cmro_flag = MSC_UTIL.SYS_YES) Then
2240: prec.eAM_forecasts_flag := MSC_UTIL.SYS_NO ;
2241: prec.eam_fc_st_date := NULL ;
2242: prec.eam_fc_end_date := NULL ;
2243: end if ;
2244: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.cmro_flag = MSC_UTIL.SYS_YES) Then
2245: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2246: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Info will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2247: prec.cmro_flag := MSC_UTIL.SYS_NO ;
2248: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2241: prec.eam_fc_st_date := NULL ;
2242: prec.eam_fc_end_date := NULL ;
2243: end if ;
2244: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.cmro_flag = MSC_UTIL.SYS_YES) Then
2245: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2246: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Info will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2247: prec.cmro_flag := MSC_UTIL.SYS_NO ;
2248: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2249: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2242: prec.eam_fc_end_date := NULL ;
2243: end if ;
2244: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.cmro_flag = MSC_UTIL.SYS_YES) Then
2245: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2246: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Info will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2247: prec.cmro_flag := MSC_UTIL.SYS_NO ;
2248: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2249: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2250: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Forecats will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2243: end if ;
2244: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.cmro_flag = MSC_UTIL.SYS_YES) Then
2245: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2246: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Info will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2247: prec.cmro_flag := MSC_UTIL.SYS_NO ;
2248: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2249: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2250: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Forecats will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2251: prec.cmro_forecasts_flag := MSC_UTIL.SYS_NO ;
2244: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.cmro_flag = MSC_UTIL.SYS_YES) Then
2245: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2246: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Info will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2247: prec.cmro_flag := MSC_UTIL.SYS_NO ;
2248: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2249: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2250: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Forecats will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2251: prec.cmro_forecasts_flag := MSC_UTIL.SYS_NO ;
2252: prec.cmro_fc_st_date := NULL ;
2245: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2246: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Info will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2247: prec.cmro_flag := MSC_UTIL.SYS_NO ;
2248: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2249: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2250: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Forecats will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2251: prec.cmro_forecasts_flag := MSC_UTIL.SYS_NO ;
2252: prec.cmro_fc_st_date := NULL ;
2253: prec.cmro_fc_end_date := NULL ;
2246: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Info will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2247: prec.cmro_flag := MSC_UTIL.SYS_NO ;
2248: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2249: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2250: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Forecats will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2251: prec.cmro_forecasts_flag := MSC_UTIL.SYS_NO ;
2252: prec.cmro_fc_st_date := NULL ;
2253: prec.cmro_fc_end_date := NULL ;
2254: end if ;
2247: prec.cmro_flag := MSC_UTIL.SYS_NO ;
2248: ELSIF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) Then
2249: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2250: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Forecats will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2251: prec.cmro_forecasts_flag := MSC_UTIL.SYS_NO ;
2252: prec.cmro_fc_st_date := NULL ;
2253: prec.cmro_fc_end_date := NULL ;
2254: end if ;
2255: /* USAF -- rgurugub */
2253: prec.cmro_fc_end_date := NULL ;
2254: end if ;
2255: /* USAF -- rgurugub */
2256:
2257: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.cmro_closed_wo = MSC_UTIL.SYS_YES) Then
2258: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2259: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Closed WOs will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2260: prec.cmro_closed_wo := MSC_UTIL.SYS_NO ;
2261: END IF;
2254: end if ;
2255: /* USAF -- rgurugub */
2256:
2257: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.cmro_closed_wo = MSC_UTIL.SYS_YES) Then
2258: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2259: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Closed WOs will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2260: prec.cmro_closed_wo := MSC_UTIL.SYS_NO ;
2261: END IF;
2262:
2255: /* USAF -- rgurugub */
2256:
2257: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.cmro_closed_wo = MSC_UTIL.SYS_YES) Then
2258: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2259: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Closed WOs will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2260: prec.cmro_closed_wo := MSC_UTIL.SYS_NO ;
2261: END IF;
2262:
2263: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.osp_supply = MSC_UTIL.SYS_YES) Then
2256:
2257: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.cmro_closed_wo = MSC_UTIL.SYS_YES) Then
2258: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2259: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Closed WOs will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2260: prec.cmro_closed_wo := MSC_UTIL.SYS_NO ;
2261: END IF;
2262:
2263: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.osp_supply = MSC_UTIL.SYS_YES) Then
2264: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2259: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO Closed WOs will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2260: prec.cmro_closed_wo := MSC_UTIL.SYS_NO ;
2261: END IF;
2262:
2263: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.osp_supply = MSC_UTIL.SYS_YES) Then
2264: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2265: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO OSP Supplies will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2266: prec.osp_supply := MSC_UTIL.SYS_NO ;
2267: END IF;
2260: prec.cmro_closed_wo := MSC_UTIL.SYS_NO ;
2261: END IF;
2262:
2263: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.osp_supply = MSC_UTIL.SYS_YES) Then
2264: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2265: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO OSP Supplies will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2266: prec.osp_supply := MSC_UTIL.SYS_NO ;
2267: END IF;
2268:
2261: END IF;
2262:
2263: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.osp_supply = MSC_UTIL.SYS_YES) Then
2264: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2265: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO OSP Supplies will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2266: prec.osp_supply := MSC_UTIL.SYS_NO ;
2267: END IF;
2268:
2269: If pRTYPE = MSC_UTIL.G_COMPLETE Then
2262:
2263: IF ((v_apps_ver < MSC_UTIL.G_EAM_CMRO_SUP_VER OR MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'N' ) AND prec.osp_supply = MSC_UTIL.SYS_YES) Then
2264: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of the Profile MSC:IS_CMRO_EAM_INTG_ENABLED ' ||MSC_UTIL.G_CMRO_EAM_INT_ENABLED );
2265: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO OSP Supplies will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2266: prec.osp_supply := MSC_UTIL.SYS_NO ;
2267: END IF;
2268:
2269: If pRTYPE = MSC_UTIL.G_COMPLETE Then
2270: IF v_apps_ver >= MSC_UTIL.G_APPS115 Then
2265: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Entity CMRO OSP Supplies will be collected only if the profile MSC:IS_CMRO_EAM_INTG_ENABLED is set to Y');
2266: prec.osp_supply := MSC_UTIL.SYS_NO ;
2267: END IF;
2268:
2269: If pRTYPE = MSC_UTIL.G_COMPLETE Then
2270: IF v_apps_ver >= MSC_UTIL.G_APPS115 Then
2271: lv_sql_stmt:= 'update msc_apps_instances set LBJ_DETAILS = (select decode(to_number(FND_PROFILE.VALUE' || v_dblink || '(''WSM_CREATE_LBJ_COPY_ROUTING'')),1,1,2) from dual' || ' ) '
2272: || ' where instance_id = ' || pINSTANCE_ID ;
2273: ELSE
2266: prec.osp_supply := MSC_UTIL.SYS_NO ;
2267: END IF;
2268:
2269: If pRTYPE = MSC_UTIL.G_COMPLETE Then
2270: IF v_apps_ver >= MSC_UTIL.G_APPS115 Then
2271: lv_sql_stmt:= 'update msc_apps_instances set LBJ_DETAILS = (select decode(to_number(FND_PROFILE.VALUE' || v_dblink || '(''WSM_CREATE_LBJ_COPY_ROUTING'')),1,1,2) from dual' || ' ) '
2272: || ' where instance_id = ' || pINSTANCE_ID ;
2273: ELSE
2274: lv_sql_stmt:= 'update msc_apps_instances set LBJ_DETAILS = 2 '
2289:
2290: -- To Check if the refresh type is partial(ie Targetted)
2291: -- the a2m_dblink on the destination should be in sync with
2292: -- the a2m_dblink on the source side.
2293: IF pRTYPE = MSC_UTIL.G_PARTIAL THEN
2294:
2295: IF v_apps_ver >= MSC_UTIL.G_APPS115 THEN
2296: lv_table_name := 'MRP_AP_APPS_INSTANCES_ALL';
2297: ELSE
2291: -- the a2m_dblink on the destination should be in sync with
2292: -- the a2m_dblink on the source side.
2293: IF pRTYPE = MSC_UTIL.G_PARTIAL THEN
2294:
2295: IF v_apps_ver >= MSC_UTIL.G_APPS115 THEN
2296: lv_table_name := 'MRP_AP_APPS_INSTANCES_ALL';
2297: ELSE
2298: lv_table_name := 'MRP_AP_APPS_INSTANCES';
2299: END IF;
2312: -- If a2m_dblink or m2a_dblink on the source and destination
2313: -- are out of synchronization - error out.
2314: IF(( lv_sr_a2m <> v_dest_a2m) OR (lv_sr_m2a <> v_dblink)) THEN
2315:
2316: RETCODE := MSC_UTIL.G_ERROR;
2317: FND_MESSAGE.SET_NAME('MSC', 'MSC_COLL_A2MDBLINK_INVALID');
2318: ERRBUF:= FND_MESSAGE.GET;
2319: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2320: RETURN;
2315:
2316: RETCODE := MSC_UTIL.G_ERROR;
2317: FND_MESSAGE.SET_NAME('MSC', 'MSC_COLL_A2MDBLINK_INVALID');
2318: ERRBUF:= FND_MESSAGE.GET;
2319: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2320: RETURN;
2321: END IF;
2322:
2323:
2325:
2326: EXCEPTION
2327: WHEN NO_DATA_FOUND THEN
2328:
2329: RETCODE := MSC_UTIL.G_ERROR;
2330: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2331: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2332: ERRBUF:= FND_MESSAGE.GET;
2333: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2329: RETCODE := MSC_UTIL.G_ERROR;
2330: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2331: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2332: ERRBUF:= FND_MESSAGE.GET;
2333: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2334: RETURN;
2335: WHEN OTHERS THEN
2336:
2337: RETCODE := MSC_UTIL.G_ERROR;
2333: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2334: RETURN;
2335: WHEN OTHERS THEN
2336:
2337: RETCODE := MSC_UTIL.G_ERROR;
2338: ERRBUF := SQLERRM;
2339: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2340: RETURN;
2341: END;
2335: WHEN OTHERS THEN
2336:
2337: RETCODE := MSC_UTIL.G_ERROR;
2338: ERRBUF := SQLERRM;
2339: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2340: RETURN;
2341: END;
2342:
2343:
2360: lv_pjm_enabled := NULL;
2361: END;
2362:
2363: UPDATE msc_apps_instances
2364: SET lrtype = DECODE ( pRTYPE, MSC_UTIL.G_COMPLETE, 'C',
2365: MSC_UTIL.G_INCREMENTAL, 'I',
2366: MSC_UTIL.G_PARTIAL, 'P',
2367: MSC_UTIL.G_CONT, 'T'),
2368: pjm_enabled = lv_pjm_enabled
2361: END;
2362:
2363: UPDATE msc_apps_instances
2364: SET lrtype = DECODE ( pRTYPE, MSC_UTIL.G_COMPLETE, 'C',
2365: MSC_UTIL.G_INCREMENTAL, 'I',
2366: MSC_UTIL.G_PARTIAL, 'P',
2367: MSC_UTIL.G_CONT, 'T'),
2368: pjm_enabled = lv_pjm_enabled
2369: WHERE instance_id = pINSTANCE_ID;
2362:
2363: UPDATE msc_apps_instances
2364: SET lrtype = DECODE ( pRTYPE, MSC_UTIL.G_COMPLETE, 'C',
2365: MSC_UTIL.G_INCREMENTAL, 'I',
2366: MSC_UTIL.G_PARTIAL, 'P',
2367: MSC_UTIL.G_CONT, 'T'),
2368: pjm_enabled = lv_pjm_enabled
2369: WHERE instance_id = pINSTANCE_ID;
2370:
2363: UPDATE msc_apps_instances
2364: SET lrtype = DECODE ( pRTYPE, MSC_UTIL.G_COMPLETE, 'C',
2365: MSC_UTIL.G_INCREMENTAL, 'I',
2366: MSC_UTIL.G_PARTIAL, 'P',
2367: MSC_UTIL.G_CONT, 'T'),
2368: pjm_enabled = lv_pjm_enabled
2369: WHERE instance_id = pINSTANCE_ID;
2370:
2371: -- Indicate the data pull type in MSC_APPS_INSTANCES
2396: VALUES (pINSTANCE_ID,prec.org_group_flag,v_cont_coll_thresh, prec.purge_ods_flag, prec.app_supp_cap_flag,
2397: prec.atp_rules_flag, prec.bom_flag,
2398: prec.bor_flag, prec.calendar_flag,
2399: prec.demand_class_flag, prec.forecast_flag,
2400: prec.item_flag, decode(v_apps_ver, MSC_UTIL.G_APPS122, MSC_UTIL.SYS_NO, prec.kpi_bis_flag),
2401: prec.mds_flag, prec.mps_flag,
2402: prec.oh_flag, prec.parameter_flag,
2403: prec.planner_flag,prec.item_subst_flag, prec.project_flag,
2404: prec.po_flag, prec.reserves_flag,
2422: INTO lv_coll_stat
2423: FROM msc_apps_instances
2424: WHERE instance_id = pINSTANCE_ID;
2425:
2426: IF lv_coll_stat = MSC_UTIL.G_ST_EMPTY THEN
2427:
2428: DELETE FROM msc_coll_parameters
2429: WHERE instance_id = pINSTANCE_ID;
2430:
2449: VALUES (pINSTANCE_ID,prec.org_group_flag,v_cont_coll_thresh, prec.purge_ods_flag,
2450: prec.app_supp_cap_flag, prec.atp_rules_flag,
2451: prec.bom_flag, prec.bor_flag, prec.calendar_flag,
2452: prec.demand_class_flag, prec.forecast_flag,
2453: prec.item_flag, decode(v_apps_ver, MSC_UTIL.G_APPS122, MSC_UTIL.SYS_NO,prec.kpi_bis_flag ),
2454: prec.mds_flag, prec.mps_flag,
2455: prec.oh_flag, prec.parameter_flag,
2456: prec.planner_flag,prec.item_subst_flag, prec.project_flag,
2457: prec.po_flag, prec.reserves_flag,
2478: END IF;
2479:
2480: END IF; -- End of IF (v_req_data is null)
2481:
2482: msc_util.print_pull_params(pINSTANCE_ID);
2483:
2484: --- PREPLACE CHANGE END ---
2485:
2486: /* check if this procedure is launched as a concurrent program */
2484: --- PREPLACE CHANGE END ---
2485:
2486: /* check if this procedure is launched as a concurrent program */
2487: -- IF fnd_global.conc_request_id > 0 THEN
2488: -- v_cp_enabled:= MSC_UTIL.SYS_YES;
2489: -- ELSE
2490: -- v_cp_enabled:= MSC_UTIL.SYS_NO;
2491: -- END IF;
2492:
2486: /* check if this procedure is launched as a concurrent program */
2487: -- IF fnd_global.conc_request_id > 0 THEN
2488: -- v_cp_enabled:= MSC_UTIL.SYS_YES;
2489: -- ELSE
2490: -- v_cp_enabled:= MSC_UTIL.SYS_NO;
2491: -- END IF;
2492:
2493: /* select the instance_type and database link */
2494: /* --agmcont: move code below above, since we need dblink earlier
2508:
2509: -- To Check if the refresh type is partial(ie Targetted)
2510: -- the a2m_dblink on the destination should be in sync with
2511: -- the a2m_dblink on the source side.
2512: IF pRTYPE = MSC_UTIL.G_PARTIAL THEN
2513: v_sql_stmt:=
2514: 'SELECT DECODE( mar.A2M_DBLINK,NULL,'''||NULL_DBLINK||''',mar.A2M_DBLINK),'
2515: ||' DECODE( mar.M2A_DBLINK,NULL,'''||NULL_DBLINK||''',''@''||mar.M2A_DBLINK)'
2516: ||' FROM MRP_AP_APPS_INSTANCES'||v_dblink||' mar';
2520: -- If a2m_dblink or m2a_dblink on the source and destination
2521: -- are out of synchronization - error out.
2522: IF(( lv_sr_a2m <> lv_dest_a2m) OR (lv_sr_m2a <> v_dblink)) THEN
2523:
2524: RETCODE := MSC_UTIL.G_ERROR;
2525: FND_MESSAGE.SET_NAME('MSC', 'MSC_COLL_A2MDBLINK_INVALID');
2526: ERRBUF:= FND_MESSAGE.GET;
2527: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2528: RETURN;
2523:
2524: RETCODE := MSC_UTIL.G_ERROR;
2525: FND_MESSAGE.SET_NAME('MSC', 'MSC_COLL_A2MDBLINK_INVALID');
2526: ERRBUF:= FND_MESSAGE.GET;
2527: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2528: RETURN;
2529: END IF;
2530:
2531: END IF;
2531: END IF;
2532:
2533: EXCEPTION
2534: WHEN NO_DATA_FOUND THEN
2535: RETCODE := MSC_UTIL.G_ERROR;
2536: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2537: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2538: ERRBUF:= FND_MESSAGE.GET;
2539: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2535: RETCODE := MSC_UTIL.G_ERROR;
2536: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2537: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2538: ERRBUF:= FND_MESSAGE.GET;
2539: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2540: RETURN;
2541: WHEN OTHERS THEN
2542: RETCODE := MSC_UTIL.G_ERROR;
2543: ERRBUF := SQLERRM;
2538: ERRBUF:= FND_MESSAGE.GET;
2539: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2540: RETURN;
2541: WHEN OTHERS THEN
2542: RETCODE := MSC_UTIL.G_ERROR;
2543: ERRBUF := SQLERRM;
2544: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2545: RETURN;
2546:
2540: RETURN;
2541: WHEN OTHERS THEN
2542: RETCODE := MSC_UTIL.G_ERROR;
2543: ERRBUF := SQLERRM;
2544: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2545: RETURN;
2546:
2547: END;
2548: */
2548: */
2549:
2550:
2551: -- to initialize common global variables bug#5897346
2552: MSC_UTIL.INITIALIZE_COMMON_GLOBALS(pINSTANCE_ID);
2553:
2554: INITIALIZE_PULL_GLOBALS( pINSTANCE_ID); -- Initializes Level 2 Global Variables used in Data Pull
2555:
2556:
2568:
2569: IF SET_ST_STATUS( lv_errbuf,
2570: lv_retcode,
2571: pINSTANCE_ID,
2572: MSC_UTIL.G_ST_PULLING,
2573: pSalesOrder_RTYPE) THEN
2574:
2575: COMMIT;
2576:
2582:
2583: ERRBUF := lv_errbuf;
2584: RETCODE := lv_retcode;
2585:
2586: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2587:
2588: RETURN;
2589:
2590: END IF;
2594: lv_check_point := 2; -- for the second run, lv_check_point would be 2.
2595:
2596: END IF; -- if v_req_data is null --
2597:
2598: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, ' before calling REFRESH_SNAPSHOT 1 ');
2599: -- Code fix for 2351297--
2600: IF v_cp_enabled= MSC_UTIL.SYS_YES THEN
2601: IF v_req_data is NULL THEN -- i.e. the first run of the program.
2602:
2596: END IF; -- if v_req_data is null --
2597:
2598: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, ' before calling REFRESH_SNAPSHOT 1 ');
2599: -- Code fix for 2351297--
2600: IF v_cp_enabled= MSC_UTIL.SYS_YES THEN
2601: IF v_req_data is NULL THEN -- i.e. the first run of the program.
2602:
2603: IF REFRESH_SNAPSHOT( pINSTANCE_ID,pRTYPE)=FALSE THEN
2604:
2601: IF v_req_data is NULL THEN -- i.e. the first run of the program.
2602:
2603: IF REFRESH_SNAPSHOT( pINSTANCE_ID,pRTYPE)=FALSE THEN
2604:
2605: RETCODE:= MSC_UTIL.G_ERROR;
2606:
2607: IF SET_ST_STATUS( lv_errbuf,
2608: lv_retcode,
2609: pINSTANCE_ID,
2606:
2607: IF SET_ST_STATUS( lv_errbuf,
2608: lv_retcode,
2609: pINSTANCE_ID,
2610: MSC_UTIL.G_ST_EMPTY) THEN
2611: COMMIT;
2612: END IF;
2613:
2614: IF lv_check_point =2 THEN
2612: END IF;
2613:
2614: IF lv_check_point =2 THEN
2615: UPDATE MSC_APPS_INSTANCES
2616: SET SO_TBL_STATUS = decode(pSalesOrder_RTYPE,MSC_UTIL.SYS_YES
2617: ,decode(pRTYPE,MSC_UTIL.G_COMPLETE,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),MSC_UTIL.G_PARTIAL,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),SO_TBL_STATUS),
2618: SO_TBL_STATUS)
2619: WHERE INSTANCE_ID= pINSTANCE_ID;
2620: COMMIT;
2613:
2614: IF lv_check_point =2 THEN
2615: UPDATE MSC_APPS_INSTANCES
2616: SET SO_TBL_STATUS = decode(pSalesOrder_RTYPE,MSC_UTIL.SYS_YES
2617: ,decode(pRTYPE,MSC_UTIL.G_COMPLETE,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),MSC_UTIL.G_PARTIAL,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),SO_TBL_STATUS),
2618: SO_TBL_STATUS)
2619: WHERE INSTANCE_ID= pINSTANCE_ID;
2620: COMMIT;
2621: END IF;
2633:
2634: END IF;
2635:
2636:
2637: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ' after calling REFRESH_SNAPSHOT ');
2638: /* get the refresh number used in the last refresh snapshot process*/
2639:
2640: IF v_apps_ver >= MSC_UTIL.G_APPS115 THEN
2641:
2636:
2637: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ' after calling REFRESH_SNAPSHOT ');
2638: /* get the refresh number used in the last refresh snapshot process*/
2639:
2640: IF v_apps_ver >= MSC_UTIL.G_APPS115 THEN
2641:
2642: lv_table_name := 'MRP_AP_APPS_INSTANCES_ALL';
2643:
2644: v_sql_stmt:=
2670: END IF;
2671:
2672: -- agmcont
2673:
2674: if (v_is_cont_refresh = MSC_UTIL.SYS_YES) then
2675: -- determine w hat mode each entity should be refreshed in
2676:
2677: MSC_CL_CONT_COLL_FW.INIT_ENTITY_REFRESH_TYPE (v_cont_coll_thresh,
2678: v_cont_coll_freq,
2700: lv_trip_sn_flag );-- DRP
2701:
2702: /* The following will finally determine based on user settings whether the entity really needs
2703: to be refreshed and this will be inserted into msc_coll_parameters*/
2704: IF (prec.bom_flag = MSC_UTIL.SYS_YES) THEN
2705: prec.bom_sn_flag := lv_bom_sn_flag;
2706: ELSE
2707: prec.bom_sn_flag := MSC_UTIL.SYS_NO;
2708: END IF;
2703: to be refreshed and this will be inserted into msc_coll_parameters*/
2704: IF (prec.bom_flag = MSC_UTIL.SYS_YES) THEN
2705: prec.bom_sn_flag := lv_bom_sn_flag;
2706: ELSE
2707: prec.bom_sn_flag := MSC_UTIL.SYS_NO;
2708: END IF;
2709: IF (prec.bor_flag = MSC_UTIL.SYS_YES) THEN
2710: prec.bor_sn_flag := lv_bor_sn_flag;
2711: ELSE
2705: prec.bom_sn_flag := lv_bom_sn_flag;
2706: ELSE
2707: prec.bom_sn_flag := MSC_UTIL.SYS_NO;
2708: END IF;
2709: IF (prec.bor_flag = MSC_UTIL.SYS_YES) THEN
2710: prec.bor_sn_flag := lv_bor_sn_flag;
2711: ELSE
2712: prec.bor_sn_flag := MSC_UTIL.SYS_NO;
2713: END IF;
2708: END IF;
2709: IF (prec.bor_flag = MSC_UTIL.SYS_YES) THEN
2710: prec.bor_sn_flag := lv_bor_sn_flag;
2711: ELSE
2712: prec.bor_sn_flag := MSC_UTIL.SYS_NO;
2713: END IF;
2714: IF (prec.item_flag = MSC_UTIL.SYS_YES) THEN
2715: prec.item_sn_flag := lv_item_sn_flag;
2716: ELSE
2710: prec.bor_sn_flag := lv_bor_sn_flag;
2711: ELSE
2712: prec.bor_sn_flag := MSC_UTIL.SYS_NO;
2713: END IF;
2714: IF (prec.item_flag = MSC_UTIL.SYS_YES) THEN
2715: prec.item_sn_flag := lv_item_sn_flag;
2716: ELSE
2717: prec.item_sn_flag := MSC_UTIL.SYS_NO;
2718: END IF;
2713: END IF;
2714: IF (prec.item_flag = MSC_UTIL.SYS_YES) THEN
2715: prec.item_sn_flag := lv_item_sn_flag;
2716: ELSE
2717: prec.item_sn_flag := MSC_UTIL.SYS_NO;
2718: END IF;
2719: IF (prec.oh_flag = MSC_UTIL.SYS_YES) THEN
2720: prec.oh_sn_flag := lv_oh_sn_flag;
2721: ELSE
2715: prec.item_sn_flag := lv_item_sn_flag;
2716: ELSE
2717: prec.item_sn_flag := MSC_UTIL.SYS_NO;
2718: END IF;
2719: IF (prec.oh_flag = MSC_UTIL.SYS_YES) THEN
2720: prec.oh_sn_flag := lv_oh_sn_flag;
2721: ELSE
2722: prec.oh_sn_flag := MSC_UTIL.SYS_NO;
2723: END IF;
2718: END IF;
2719: IF (prec.oh_flag = MSC_UTIL.SYS_YES) THEN
2720: prec.oh_sn_flag := lv_oh_sn_flag;
2721: ELSE
2722: prec.oh_sn_flag := MSC_UTIL.SYS_NO;
2723: END IF;
2724: IF (prec.user_supply_demand_flag = MSC_UTIL.SYS_YES) THEN
2725: prec.usup_sn_flag := lv_usup_sn_flag;
2726: prec.udmd_sn_flag := lv_udmd_sn_flag;
2720: prec.oh_sn_flag := lv_oh_sn_flag;
2721: ELSE
2722: prec.oh_sn_flag := MSC_UTIL.SYS_NO;
2723: END IF;
2724: IF (prec.user_supply_demand_flag = MSC_UTIL.SYS_YES) THEN
2725: prec.usup_sn_flag := lv_usup_sn_flag;
2726: prec.udmd_sn_flag := lv_udmd_sn_flag;
2727: ELSE
2728: prec.usup_sn_flag := MSC_UTIL.SYS_NO;
2724: IF (prec.user_supply_demand_flag = MSC_UTIL.SYS_YES) THEN
2725: prec.usup_sn_flag := lv_usup_sn_flag;
2726: prec.udmd_sn_flag := lv_udmd_sn_flag;
2727: ELSE
2728: prec.usup_sn_flag := MSC_UTIL.SYS_NO;
2729: prec.udmd_sn_flag := MSC_UTIL.SYS_NO;
2730: END IF;
2731:
2732: /* Sales Orders will always be collected in continous*/
2725: prec.usup_sn_flag := lv_usup_sn_flag;
2726: prec.udmd_sn_flag := lv_udmd_sn_flag;
2727: ELSE
2728: prec.usup_sn_flag := MSC_UTIL.SYS_NO;
2729: prec.udmd_sn_flag := MSC_UTIL.SYS_NO;
2730: END IF;
2731:
2732: /* Sales Orders will always be collected in continous*/
2733: -- above is no longer true . ds change
2731:
2732: /* Sales Orders will always be collected in continous*/
2733: -- above is no longer true . ds change
2734:
2735: IF (prec.sales_order_flag = MSC_UTIL.SYS_YES) THEN
2736: prec.so_sn_flag := lv_so_sn_flag;
2737: ELSE
2738: prec.so_sn_flag := MSC_UTIL.SYS_NO;
2739: END IF;
2734:
2735: IF (prec.sales_order_flag = MSC_UTIL.SYS_YES) THEN
2736: prec.so_sn_flag := lv_so_sn_flag;
2737: ELSE
2738: prec.so_sn_flag := MSC_UTIL.SYS_NO;
2739: END IF;
2740:
2741: IF (prec.forecast_flag = MSC_UTIL.SYS_YES) THEN
2742: prec.fcst_sn_flag := lv_fcst_sn_flag;
2737: ELSE
2738: prec.so_sn_flag := MSC_UTIL.SYS_NO;
2739: END IF;
2740:
2741: IF (prec.forecast_flag = MSC_UTIL.SYS_YES) THEN
2742: prec.fcst_sn_flag := lv_fcst_sn_flag;
2743: ELSE
2744: prec.fcst_sn_flag := MSC_UTIL.SYS_NO;
2745: END IF;
2740:
2741: IF (prec.forecast_flag = MSC_UTIL.SYS_YES) THEN
2742: prec.fcst_sn_flag := lv_fcst_sn_flag;
2743: ELSE
2744: prec.fcst_sn_flag := MSC_UTIL.SYS_NO;
2745: END IF;
2746: IF (prec.wip_flag = MSC_UTIL.SYS_YES) THEN
2747: prec.wip_sn_flag := lv_wip_sn_flag;
2748: ELSE
2742: prec.fcst_sn_flag := lv_fcst_sn_flag;
2743: ELSE
2744: prec.fcst_sn_flag := MSC_UTIL.SYS_NO;
2745: END IF;
2746: IF (prec.wip_flag = MSC_UTIL.SYS_YES) THEN
2747: prec.wip_sn_flag := lv_wip_sn_flag;
2748: ELSE
2749: prec.wip_sn_flag := MSC_UTIL.SYS_NO;
2750: END IF;
2745: END IF;
2746: IF (prec.wip_flag = MSC_UTIL.SYS_YES) THEN
2747: prec.wip_sn_flag := lv_wip_sn_flag;
2748: ELSE
2749: prec.wip_sn_flag := MSC_UTIL.SYS_NO;
2750: END IF;
2751: IF (prec.app_supp_cap_flag = MSC_UTIL.SYS_YES or prec.app_supp_cap_flag =MSC_UTIL.ASL_YES_RETAIN_CP ) THEN
2752: prec.supcap_sn_flag := lv_supcap_sn_flag;
2753: ELSE
2747: prec.wip_sn_flag := lv_wip_sn_flag;
2748: ELSE
2749: prec.wip_sn_flag := MSC_UTIL.SYS_NO;
2750: END IF;
2751: IF (prec.app_supp_cap_flag = MSC_UTIL.SYS_YES or prec.app_supp_cap_flag =MSC_UTIL.ASL_YES_RETAIN_CP ) THEN
2752: prec.supcap_sn_flag := lv_supcap_sn_flag;
2753: ELSE
2754: prec.supcap_sn_flag := MSC_UTIL.SYS_NO;
2755: END IF;
2750: END IF;
2751: IF (prec.app_supp_cap_flag = MSC_UTIL.SYS_YES or prec.app_supp_cap_flag =MSC_UTIL.ASL_YES_RETAIN_CP ) THEN
2752: prec.supcap_sn_flag := lv_supcap_sn_flag;
2753: ELSE
2754: prec.supcap_sn_flag := MSC_UTIL.SYS_NO;
2755: END IF;
2756: IF (prec.po_flag = MSC_UTIL.SYS_YES) THEN
2757: prec.po_sn_flag := lv_po_sn_flag;
2758: ELSE
2752: prec.supcap_sn_flag := lv_supcap_sn_flag;
2753: ELSE
2754: prec.supcap_sn_flag := MSC_UTIL.SYS_NO;
2755: END IF;
2756: IF (prec.po_flag = MSC_UTIL.SYS_YES) THEN
2757: prec.po_sn_flag := lv_po_sn_flag;
2758: ELSE
2759: prec.po_sn_flag := MSC_UTIL.SYS_NO;
2760: END IF;
2755: END IF;
2756: IF (prec.po_flag = MSC_UTIL.SYS_YES) THEN
2757: prec.po_sn_flag := lv_po_sn_flag;
2758: ELSE
2759: prec.po_sn_flag := MSC_UTIL.SYS_NO;
2760: END IF;
2761:
2762: IF (prec.trip_flag = MSC_UTIL.SYS_YES) THEN
2763: prec.trip_sn_flag := lv_trip_sn_flag;
2758: ELSE
2759: prec.po_sn_flag := MSC_UTIL.SYS_NO;
2760: END IF;
2761:
2762: IF (prec.trip_flag = MSC_UTIL.SYS_YES) THEN
2763: prec.trip_sn_flag := lv_trip_sn_flag;
2764: ELSE
2765: prec.trip_sn_flag := MSC_UTIL.SYS_NO;
2766: END IF;
2761:
2762: IF (prec.trip_flag = MSC_UTIL.SYS_YES) THEN
2763: prec.trip_sn_flag := lv_trip_sn_flag;
2764: ELSE
2765: prec.trip_sn_flag := MSC_UTIL.SYS_NO;
2766: END IF;
2767:
2768: prec.nosnap_flag := lv_nosnap_flag;
2769:
2769:
2770: /* CP-AUTO */
2771: prec.suprep_sn_flag := lv_suprep_sn_flag;
2772: /* MPS and MDS need to go hand in hand because they are based on same snapshot*/
2773: IF (prec.mds_flag = MSC_UTIL.SYS_YES) or (prec.mps_flag = MSC_UTIL.SYS_YES) THEN
2774: prec.mds_flag := MSC_UTIL.SYS_YES;
2775: prec.mps_flag := MSC_UTIL.SYS_YES;
2776: prec.mds_sn_flag := lv_mds_sn_flag;
2777: prec.mps_sn_flag := lv_mps_sn_flag;
2770: /* CP-AUTO */
2771: prec.suprep_sn_flag := lv_suprep_sn_flag;
2772: /* MPS and MDS need to go hand in hand because they are based on same snapshot*/
2773: IF (prec.mds_flag = MSC_UTIL.SYS_YES) or (prec.mps_flag = MSC_UTIL.SYS_YES) THEN
2774: prec.mds_flag := MSC_UTIL.SYS_YES;
2775: prec.mps_flag := MSC_UTIL.SYS_YES;
2776: prec.mds_sn_flag := lv_mds_sn_flag;
2777: prec.mps_sn_flag := lv_mps_sn_flag;
2778: ELSE
2771: prec.suprep_sn_flag := lv_suprep_sn_flag;
2772: /* MPS and MDS need to go hand in hand because they are based on same snapshot*/
2773: IF (prec.mds_flag = MSC_UTIL.SYS_YES) or (prec.mps_flag = MSC_UTIL.SYS_YES) THEN
2774: prec.mds_flag := MSC_UTIL.SYS_YES;
2775: prec.mps_flag := MSC_UTIL.SYS_YES;
2776: prec.mds_sn_flag := lv_mds_sn_flag;
2777: prec.mps_sn_flag := lv_mps_sn_flag;
2778: ELSE
2779: prec.mds_sn_flag := MSC_UTIL.SYS_NO;
2775: prec.mps_flag := MSC_UTIL.SYS_YES;
2776: prec.mds_sn_flag := lv_mds_sn_flag;
2777: prec.mps_sn_flag := lv_mps_sn_flag;
2778: ELSE
2779: prec.mds_sn_flag := MSC_UTIL.SYS_NO;
2780: prec.mps_sn_flag := MSC_UTIL.SYS_NO;
2781: END IF;
2782:
2783: /*
2776: prec.mds_sn_flag := lv_mds_sn_flag;
2777: prec.mps_sn_flag := lv_mps_sn_flag;
2778: ELSE
2779: prec.mds_sn_flag := MSC_UTIL.SYS_NO;
2780: prec.mps_sn_flag := MSC_UTIL.SYS_NO;
2781: END IF;
2782:
2783: /*
2784: IF (prec.mps_flag = MSC_UTIL.SYS_YES) THEN
2780: prec.mps_sn_flag := MSC_UTIL.SYS_NO;
2781: END IF;
2782:
2783: /*
2784: IF (prec.mps_flag = MSC_UTIL.SYS_YES) THEN
2785: prec.mps_sn_flag := lv_mps_sn_flag;
2786: ELSE
2787: prec.mps_sn_flag := MSC_UTIL.SYS_NO;
2788: END IF;
2783: /*
2784: IF (prec.mps_flag = MSC_UTIL.SYS_YES) THEN
2785: prec.mps_sn_flag := lv_mps_sn_flag;
2786: ELSE
2787: prec.mps_sn_flag := MSC_UTIL.SYS_NO;
2788: END IF;
2789: */
2790:
2791:
2788: END IF;
2789: */
2790:
2791:
2792: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '*****************************************************************');
2793: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'BOM refresh type = '|| collection_type(prec.bom_flag,prec.bom_sn_flag) );
2794: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'BOR refresh type = '|| collection_type(prec.bor_flag,prec.bor_sn_flag) );
2795: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ITEM refresh type = '|| collection_type(prec.item_flag,prec.item_sn_flag) );
2796: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ONHAND refresh type = '|| collection_type(prec.oh_flag,prec.oh_sn_flag) );
2789: */
2790:
2791:
2792: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '*****************************************************************');
2793: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'BOM refresh type = '|| collection_type(prec.bom_flag,prec.bom_sn_flag) );
2794: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'BOR refresh type = '|| collection_type(prec.bor_flag,prec.bor_sn_flag) );
2795: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ITEM refresh type = '|| collection_type(prec.item_flag,prec.item_sn_flag) );
2796: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ONHAND refresh type = '|| collection_type(prec.oh_flag,prec.oh_sn_flag) );
2797: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER SUP refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.usup_sn_flag) );
2790:
2791:
2792: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '*****************************************************************');
2793: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'BOM refresh type = '|| collection_type(prec.bom_flag,prec.bom_sn_flag) );
2794: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'BOR refresh type = '|| collection_type(prec.bor_flag,prec.bor_sn_flag) );
2795: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ITEM refresh type = '|| collection_type(prec.item_flag,prec.item_sn_flag) );
2796: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ONHAND refresh type = '|| collection_type(prec.oh_flag,prec.oh_sn_flag) );
2797: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER SUP refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.usup_sn_flag) );
2798: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER DMD refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.udmd_sn_flag) );
2791:
2792: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '*****************************************************************');
2793: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'BOM refresh type = '|| collection_type(prec.bom_flag,prec.bom_sn_flag) );
2794: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'BOR refresh type = '|| collection_type(prec.bor_flag,prec.bor_sn_flag) );
2795: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ITEM refresh type = '|| collection_type(prec.item_flag,prec.item_sn_flag) );
2796: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ONHAND refresh type = '|| collection_type(prec.oh_flag,prec.oh_sn_flag) );
2797: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER SUP refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.usup_sn_flag) );
2798: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER DMD refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.udmd_sn_flag) );
2799: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SALES ORDER refresh type = '|| collection_type(prec.sales_order_flag,prec.so_sn_flag) );
2792: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '*****************************************************************');
2793: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'BOM refresh type = '|| collection_type(prec.bom_flag,prec.bom_sn_flag) );
2794: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'BOR refresh type = '|| collection_type(prec.bor_flag,prec.bor_sn_flag) );
2795: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ITEM refresh type = '|| collection_type(prec.item_flag,prec.item_sn_flag) );
2796: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ONHAND refresh type = '|| collection_type(prec.oh_flag,prec.oh_sn_flag) );
2797: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER SUP refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.usup_sn_flag) );
2798: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER DMD refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.udmd_sn_flag) );
2799: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SALES ORDER refresh type = '|| collection_type(prec.sales_order_flag,prec.so_sn_flag) );
2800: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'FORECAST refresh type = '|| collection_type(prec.forecast_flag,prec.fcst_sn_flag) );
2793: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'BOM refresh type = '|| collection_type(prec.bom_flag,prec.bom_sn_flag) );
2794: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'BOR refresh type = '|| collection_type(prec.bor_flag,prec.bor_sn_flag) );
2795: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ITEM refresh type = '|| collection_type(prec.item_flag,prec.item_sn_flag) );
2796: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ONHAND refresh type = '|| collection_type(prec.oh_flag,prec.oh_sn_flag) );
2797: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER SUP refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.usup_sn_flag) );
2798: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER DMD refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.udmd_sn_flag) );
2799: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SALES ORDER refresh type = '|| collection_type(prec.sales_order_flag,prec.so_sn_flag) );
2800: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'FORECAST refresh type = '|| collection_type(prec.forecast_flag,prec.fcst_sn_flag) );
2801: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'WIP refresh type = '|| collection_type(prec.wip_flag,prec.wip_sn_flag) );
2794: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'BOR refresh type = '|| collection_type(prec.bor_flag,prec.bor_sn_flag) );
2795: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ITEM refresh type = '|| collection_type(prec.item_flag,prec.item_sn_flag) );
2796: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ONHAND refresh type = '|| collection_type(prec.oh_flag,prec.oh_sn_flag) );
2797: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER SUP refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.usup_sn_flag) );
2798: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER DMD refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.udmd_sn_flag) );
2799: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SALES ORDER refresh type = '|| collection_type(prec.sales_order_flag,prec.so_sn_flag) );
2800: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'FORECAST refresh type = '|| collection_type(prec.forecast_flag,prec.fcst_sn_flag) );
2801: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'WIP refresh type = '|| collection_type(prec.wip_flag,prec.wip_sn_flag) );
2802: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUP CAP refresh type = '|| collection_type(prec.app_supp_cap_flag,prec.supcap_sn_flag) );
2795: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ITEM refresh type = '|| collection_type(prec.item_flag,prec.item_sn_flag) );
2796: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ONHAND refresh type = '|| collection_type(prec.oh_flag,prec.oh_sn_flag) );
2797: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER SUP refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.usup_sn_flag) );
2798: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER DMD refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.udmd_sn_flag) );
2799: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SALES ORDER refresh type = '|| collection_type(prec.sales_order_flag,prec.so_sn_flag) );
2800: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'FORECAST refresh type = '|| collection_type(prec.forecast_flag,prec.fcst_sn_flag) );
2801: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'WIP refresh type = '|| collection_type(prec.wip_flag,prec.wip_sn_flag) );
2802: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUP CAP refresh type = '|| collection_type(prec.app_supp_cap_flag,prec.supcap_sn_flag) );
2803: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'PO type = '|| collection_type(prec.po_flag,prec.po_sn_flag) );
2796: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'ONHAND refresh type = '|| collection_type(prec.oh_flag,prec.oh_sn_flag) );
2797: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER SUP refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.usup_sn_flag) );
2798: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER DMD refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.udmd_sn_flag) );
2799: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SALES ORDER refresh type = '|| collection_type(prec.sales_order_flag,prec.so_sn_flag) );
2800: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'FORECAST refresh type = '|| collection_type(prec.forecast_flag,prec.fcst_sn_flag) );
2801: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'WIP refresh type = '|| collection_type(prec.wip_flag,prec.wip_sn_flag) );
2802: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUP CAP refresh type = '|| collection_type(prec.app_supp_cap_flag,prec.supcap_sn_flag) );
2803: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'PO type = '|| collection_type(prec.po_flag,prec.po_sn_flag) );
2804: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MDS refresh type = '|| collection_type(prec.mds_flag,prec.mds_sn_flag) );
2797: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER SUP refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.usup_sn_flag) );
2798: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER DMD refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.udmd_sn_flag) );
2799: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SALES ORDER refresh type = '|| collection_type(prec.sales_order_flag,prec.so_sn_flag) );
2800: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'FORECAST refresh type = '|| collection_type(prec.forecast_flag,prec.fcst_sn_flag) );
2801: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'WIP refresh type = '|| collection_type(prec.wip_flag,prec.wip_sn_flag) );
2802: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUP CAP refresh type = '|| collection_type(prec.app_supp_cap_flag,prec.supcap_sn_flag) );
2803: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'PO type = '|| collection_type(prec.po_flag,prec.po_sn_flag) );
2804: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MDS refresh type = '|| collection_type(prec.mds_flag,prec.mds_sn_flag) );
2805: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MPS refresh type = '|| collection_type(prec.mps_flag,prec.mps_sn_flag) );
2798: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'USER DMD refresh type = '|| collection_type(prec.user_supply_demand_flag,prec.udmd_sn_flag) );
2799: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SALES ORDER refresh type = '|| collection_type(prec.sales_order_flag,prec.so_sn_flag) );
2800: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'FORECAST refresh type = '|| collection_type(prec.forecast_flag,prec.fcst_sn_flag) );
2801: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'WIP refresh type = '|| collection_type(prec.wip_flag,prec.wip_sn_flag) );
2802: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUP CAP refresh type = '|| collection_type(prec.app_supp_cap_flag,prec.supcap_sn_flag) );
2803: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'PO type = '|| collection_type(prec.po_flag,prec.po_sn_flag) );
2804: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MDS refresh type = '|| collection_type(prec.mds_flag,prec.mds_sn_flag) );
2805: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MPS refresh type = '|| collection_type(prec.mps_flag,prec.mps_sn_flag) );
2806: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUPP RESP refresh type = '|| collection_type(prec.supplier_response_flag, prec.suprep_sn_flag) );
2799: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SALES ORDER refresh type = '|| collection_type(prec.sales_order_flag,prec.so_sn_flag) );
2800: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'FORECAST refresh type = '|| collection_type(prec.forecast_flag,prec.fcst_sn_flag) );
2801: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'WIP refresh type = '|| collection_type(prec.wip_flag,prec.wip_sn_flag) );
2802: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUP CAP refresh type = '|| collection_type(prec.app_supp_cap_flag,prec.supcap_sn_flag) );
2803: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'PO type = '|| collection_type(prec.po_flag,prec.po_sn_flag) );
2804: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MDS refresh type = '|| collection_type(prec.mds_flag,prec.mds_sn_flag) );
2805: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MPS refresh type = '|| collection_type(prec.mps_flag,prec.mps_sn_flag) );
2806: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUPP RESP refresh type = '|| collection_type(prec.supplier_response_flag, prec.suprep_sn_flag) );
2807: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'TRIP refresh type = '|| collection_type(prec.trip_flag,prec.trip_sn_flag) );
2800: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'FORECAST refresh type = '|| collection_type(prec.forecast_flag,prec.fcst_sn_flag) );
2801: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'WIP refresh type = '|| collection_type(prec.wip_flag,prec.wip_sn_flag) );
2802: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUP CAP refresh type = '|| collection_type(prec.app_supp_cap_flag,prec.supcap_sn_flag) );
2803: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'PO type = '|| collection_type(prec.po_flag,prec.po_sn_flag) );
2804: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MDS refresh type = '|| collection_type(prec.mds_flag,prec.mds_sn_flag) );
2805: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MPS refresh type = '|| collection_type(prec.mps_flag,prec.mps_sn_flag) );
2806: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUPP RESP refresh type = '|| collection_type(prec.supplier_response_flag, prec.suprep_sn_flag) );
2807: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'TRIP refresh type = '|| collection_type(prec.trip_flag,prec.trip_sn_flag) );
2808: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '*****************************************************************');
2801: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'WIP refresh type = '|| collection_type(prec.wip_flag,prec.wip_sn_flag) );
2802: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUP CAP refresh type = '|| collection_type(prec.app_supp_cap_flag,prec.supcap_sn_flag) );
2803: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'PO type = '|| collection_type(prec.po_flag,prec.po_sn_flag) );
2804: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MDS refresh type = '|| collection_type(prec.mds_flag,prec.mds_sn_flag) );
2805: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MPS refresh type = '|| collection_type(prec.mps_flag,prec.mps_sn_flag) );
2806: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUPP RESP refresh type = '|| collection_type(prec.supplier_response_flag, prec.suprep_sn_flag) );
2807: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'TRIP refresh type = '|| collection_type(prec.trip_flag,prec.trip_sn_flag) );
2808: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '*****************************************************************');
2809: -- agmcont:
2802: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUP CAP refresh type = '|| collection_type(prec.app_supp_cap_flag,prec.supcap_sn_flag) );
2803: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'PO type = '|| collection_type(prec.po_flag,prec.po_sn_flag) );
2804: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MDS refresh type = '|| collection_type(prec.mds_flag,prec.mds_sn_flag) );
2805: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MPS refresh type = '|| collection_type(prec.mps_flag,prec.mps_sn_flag) );
2806: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUPP RESP refresh type = '|| collection_type(prec.supplier_response_flag, prec.suprep_sn_flag) );
2807: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'TRIP refresh type = '|| collection_type(prec.trip_flag,prec.trip_sn_flag) );
2808: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '*****************************************************************');
2809: -- agmcont:
2810:
2803: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'PO type = '|| collection_type(prec.po_flag,prec.po_sn_flag) );
2804: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MDS refresh type = '|| collection_type(prec.mds_flag,prec.mds_sn_flag) );
2805: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MPS refresh type = '|| collection_type(prec.mps_flag,prec.mps_sn_flag) );
2806: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUPP RESP refresh type = '|| collection_type(prec.supplier_response_flag, prec.suprep_sn_flag) );
2807: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'TRIP refresh type = '|| collection_type(prec.trip_flag,prec.trip_sn_flag) );
2808: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '*****************************************************************');
2809: -- agmcont:
2810:
2811:
2804: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MDS refresh type = '|| collection_type(prec.mds_flag,prec.mds_sn_flag) );
2805: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MPS refresh type = '|| collection_type(prec.mps_flag,prec.mps_sn_flag) );
2806: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'SUPP RESP refresh type = '|| collection_type(prec.supplier_response_flag, prec.suprep_sn_flag) );
2807: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'TRIP refresh type = '|| collection_type(prec.trip_flag,prec.trip_sn_flag) );
2808: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '*****************************************************************');
2809: -- agmcont:
2810:
2811:
2812: UPDATE msc_coll_parameters
2829: trip_sn_flag = prec.trip_sn_flag
2830: WHERE INSTANCE_ID=pINSTANCE_ID;
2831:
2832: UPDATE msc_apps_instances
2833: SET SO_TBL_STATUS = decode (prec.so_sn_flag,MSC_UTIL.SYS_TGT,MSC_UTIL.SYS_NO,SO_TBL_STATUS)
2834: WHERE INSTANCE_ID=pINSTANCE_ID;
2835:
2836: COMMIT;
2837:
2851:
2852: -- agmcont TODO
2853:
2854: --- PREPLACE CHANGE START ---
2855: /* IF (pRTYPE = MSC_UTIL.SYS_YES) THEN -- complete refresh */
2856:
2857: IF ( (pRTYPE = MSC_UTIL.G_PARTIAL) OR (pRTYPE = MSC_UTIL.G_COMPLETE) OR
2858: (pRTYPE = MSC_UTIL.G_CONT AND prec.item_sn_flag = MSC_UTIL.SYS_TGT) ) THEN
2859: -- complete refresh or Partial refresh
2853:
2854: --- PREPLACE CHANGE START ---
2855: /* IF (pRTYPE = MSC_UTIL.SYS_YES) THEN -- complete refresh */
2856:
2857: IF ( (pRTYPE = MSC_UTIL.G_PARTIAL) OR (pRTYPE = MSC_UTIL.G_COMPLETE) OR
2858: (pRTYPE = MSC_UTIL.G_CONT AND prec.item_sn_flag = MSC_UTIL.SYS_TGT) ) THEN
2859: -- complete refresh or Partial refresh
2860:
2861: --- PREPLACE CHANGE END ---
2854: --- PREPLACE CHANGE START ---
2855: /* IF (pRTYPE = MSC_UTIL.SYS_YES) THEN -- complete refresh */
2856:
2857: IF ( (pRTYPE = MSC_UTIL.G_PARTIAL) OR (pRTYPE = MSC_UTIL.G_COMPLETE) OR
2858: (pRTYPE = MSC_UTIL.G_CONT AND prec.item_sn_flag = MSC_UTIL.SYS_TGT) ) THEN
2859: -- complete refresh or Partial refresh
2860:
2861: --- PREPLACE CHANGE END ---
2862:
2859: -- complete refresh or Partial refresh
2860:
2861: --- PREPLACE CHANGE END ---
2862:
2863: IF pITEM_ENABLED = MSC_UTIL.SYS_YES and
2864: ( v_instance_type = MSC_UTIL.G_INS_PROCESS OR
2865: v_instance_type = MSC_UTIL.G_INS_MIXED ) THEN
2866:
2867: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
2860:
2861: --- PREPLACE CHANGE END ---
2862:
2863: IF pITEM_ENABLED = MSC_UTIL.SYS_YES and
2864: ( v_instance_type = MSC_UTIL.G_INS_PROCESS OR
2865: v_instance_type = MSC_UTIL.G_INS_MIXED ) THEN
2866:
2867: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
2868: return_status := TRUE;
2861: --- PREPLACE CHANGE END ---
2862:
2863: IF pITEM_ENABLED = MSC_UTIL.SYS_YES and
2864: ( v_instance_type = MSC_UTIL.G_INS_PROCESS OR
2865: v_instance_type = MSC_UTIL.G_INS_MIXED ) THEN
2866:
2867: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
2868: return_status := TRUE;
2869: ELSE
2863: IF pITEM_ENABLED = MSC_UTIL.SYS_YES and
2864: ( v_instance_type = MSC_UTIL.G_INS_PROCESS OR
2865: v_instance_type = MSC_UTIL.G_INS_MIXED ) THEN
2866:
2867: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
2868: return_status := TRUE;
2869: ELSE
2870: return_status := FALSE;
2871: END IF;
2877: sysdate,
2878: return_status);
2879: */
2880: --bug 7328992 11i opm coll
2881: IF (v_apps_ver = MSC_UTIL.G_APPS115) THEN
2882:
2883: MSC_CL_GMP_UTILITY.extract_items(v_dblink,
2884: pINSTANCE_ID,
2885: sysdate,
2894: -- ============ Lauch the workers here ===============
2895:
2896: lvs_request_id.EXTEND( pTotalWorkerNum);
2897:
2898: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, ' before calling workers ');
2899:
2900:
2901: IF v_cp_enabled= MSC_UTIL.SYS_YES THEN
2902:
2897:
2898: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, ' before calling workers ');
2899:
2900:
2901: IF v_cp_enabled= MSC_UTIL.SYS_YES THEN
2902:
2903: FOR lc_i IN 1..pTotalWorkerNum LOOP
2904:
2905: if (v_is_cont_refresh = MSC_UTIL.SYS_YES) then -- if continuous refresh
2901: IF v_cp_enabled= MSC_UTIL.SYS_YES THEN
2902:
2903: FOR lc_i IN 1..pTotalWorkerNum LOOP
2904:
2905: if (v_is_cont_refresh = MSC_UTIL.SYS_YES) then -- if continuous refresh
2906: lv_worker_prg := 'MSCAUTPW';
2907: else
2908: lv_worker_prg := 'MSCPDPW';
2909: end if;
2967:
2968: IF lvs_request_id(lc_i)= 0 THEN
2969:
2970: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_LAUNCH_WORKER_FAIL');
2971: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
2972:
2973: ROLLBACK;
2974:
2975: IF SET_ST_STATUS( lv_errbuf,
2974:
2975: IF SET_ST_STATUS( lv_errbuf,
2976: lv_retcode,
2977: pINSTANCE_ID,
2978: MSC_UTIL.G_ST_EMPTY) THEN
2979: COMMIT;
2980: END IF;
2981:
2982: IF lv_check_point =2 THEN
2980: END IF;
2981:
2982: IF lv_check_point =2 THEN
2983: UPDATE MSC_APPS_INSTANCES
2984: SET SO_TBL_STATUS = decode(pSalesOrder_RTYPE,MSC_UTIL.SYS_YES
2985: ,decode(pRTYPE,MSC_UTIL.G_COMPLETE,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),MSC_UTIL.G_PARTIAL,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),SO_TBL_STATUS),
2986: SO_TBL_STATUS)
2987: WHERE INSTANCE_ID= pINSTANCE_ID;
2988: END IF;
2981:
2982: IF lv_check_point =2 THEN
2983: UPDATE MSC_APPS_INSTANCES
2984: SET SO_TBL_STATUS = decode(pSalesOrder_RTYPE,MSC_UTIL.SYS_YES
2985: ,decode(pRTYPE,MSC_UTIL.G_COMPLETE,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),MSC_UTIL.G_PARTIAL,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),SO_TBL_STATUS),
2986: SO_TBL_STATUS)
2987: WHERE INSTANCE_ID= pINSTANCE_ID;
2988: END IF;
2989:
2996: END IF;
2997:
2998: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
2999: FND_MESSAGE.SET_TOKEN('LCI',lc_j);
3000: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3001:
3002: END LOOP; -- lc_j
3003:
3004: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_LAUNCH_WORKER_FAIL');
3002: END LOOP; -- lc_j
3003:
3004: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_LAUNCH_WORKER_FAIL');
3005: ERRBUF:= FND_MESSAGE.GET;
3006: RETCODE := MSC_UTIL.G_ERROR;
3007: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3008: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3009:
3010: COMMIT;
3003:
3004: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_LAUNCH_WORKER_FAIL');
3005: ERRBUF:= FND_MESSAGE.GET;
3006: RETCODE := MSC_UTIL.G_ERROR;
3007: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3008: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3009:
3010: COMMIT;
3011:
3004: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_LAUNCH_WORKER_FAIL');
3005: ERRBUF:= FND_MESSAGE.GET;
3006: RETCODE := MSC_UTIL.G_ERROR;
3007: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3008: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3009:
3010: COMMIT;
3011:
3012: RETURN;
3014: ELSE
3015:
3016: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_WORKER_REQUEST_ID');
3017: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lvs_request_id(lc_i));
3018: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3019:
3020: END IF;
3021:
3022: END LOOP; -- lc_i
3033: SET PULL_WRKR_START_TIME = lv_src_time
3034: WHERE INSTANCE_ID = pINSTANCE_ID;
3035: END;
3036:
3037: msc_util.print_trace_file_name(FND_GLOBAL.CONC_REQUEST_ID);
3038: -- ============ Send Tasks to Task Que 'v_pipe_task_que' =============
3039:
3040: FOR lc_i IN 1..lv_total_task_number LOOP
3041:
3048: -- use Q_PARTIAL_TASK API to decide which
3049: -- task to be sent.
3050: --==========================================================
3051:
3052: IF (pRTYPE = MSC_UTIL.G_COMPLETE) AND
3053: (prec.ds_mode <> MSC_UTIL.SYS_YES ) THEN /*ds_plan: change */
3054: -- maintain old behaviour for complete collection
3055:
3056: DBMS_PIPE.PACK_MESSAGE( lc_i);
3049: -- task to be sent.
3050: --==========================================================
3051:
3052: IF (pRTYPE = MSC_UTIL.G_COMPLETE) AND
3053: (prec.ds_mode <> MSC_UTIL.SYS_YES ) THEN /*ds_plan: change */
3054: -- maintain old behaviour for complete collection
3055:
3056: DBMS_PIPE.PACK_MESSAGE( lc_i);
3057: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'ALL:Sending task number: '||lc_i||' to the queue');
3053: (prec.ds_mode <> MSC_UTIL.SYS_YES ) THEN /*ds_plan: change */
3054: -- maintain old behaviour for complete collection
3055:
3056: DBMS_PIPE.PACK_MESSAGE( lc_i);
3057: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'ALL:Sending task number: '||lc_i||' to the queue');
3058:
3059: -- Only send the message if it has been packed.
3060: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_task_que)<>0 THEN
3061: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERROR_SEND_TSK');
3059: -- Only send the message if it has been packed.
3060: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_task_que)<>0 THEN
3061: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERROR_SEND_TSK');
3062: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3063: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3064:
3065: RAISE EX_PIPE_SND;
3066: END IF;
3067:
3068: lv_task_not_completed := lv_task_not_completed + 1;
3069:
3070: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TOTAL_TSK_ADDED');
3071: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3072: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3073:
3074: ELSIF Q_PARTIAL_TASK (pINSTANCE_ID, lc_i,
3075: prec, pRTYPE) THEN
3076: -- agmcont:
3076: -- agmcont:
3077: -- NCPerf: Do for incremental and targeted
3078: -- Only carry out Data Pull for specific objects
3079:
3080: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Partial: PIPE to the DATA PULL - Task Number ' || TO_CHAR(lc_i));
3081: DBMS_PIPE.PACK_MESSAGE( lc_i);
3082:
3083: -- Only send the message if it has been packed.
3084: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_task_que)<>0 THEN
3099: lv_start_time:= SYSDATE;
3100:
3101: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TOTAL_TSK_ADDED');
3102: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3103: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3104:
3105: LOOP
3106:
3107: var_debug := 0;
3107: var_debug := 0;
3108: EXIT WHEN lv_task_not_completed = 0;
3109:
3110: var_debug := 1;
3111: EXIT WHEN is_request_status_running <> MSC_UTIL.SYS_YES;
3112:
3113: var_debug := 2;
3114: EXIT WHEN is_worker_status_valid(lvs_request_id) <> MSC_UTIL.SYS_YES;
3115:
3110: var_debug := 1;
3111: EXIT WHEN is_request_status_running <> MSC_UTIL.SYS_YES;
3112:
3113: var_debug := 2;
3114: EXIT WHEN is_worker_status_valid(lvs_request_id) <> MSC_UTIL.SYS_YES;
3115:
3116: lv_pipe_ret_code:= DBMS_PIPE.RECEIVE_MESSAGE( v_pipe_wm, PIPE_TIME_OUT);
3117:
3118: IF lv_pipe_ret_code=0 THEN
3117:
3118: IF lv_pipe_ret_code=0 THEN
3119:
3120: DBMS_PIPE.UNPACK_MESSAGE( lv_task_num);
3121: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Unpacked Task Number: '||lv_task_num);
3122:
3123: IF lv_task_num>0 THEN -- it's ok, the vlaue is the task number
3124:
3125: IF pANATBL_ENABLED= MSC_UTIL.SYS_YES AND
3121: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Unpacked Task Number: '||lv_task_num);
3122:
3123: IF lv_task_num>0 THEN -- it's ok, the vlaue is the task number
3124:
3125: IF pANATBL_ENABLED= MSC_UTIL.SYS_YES AND
3126: v_instance_type = MSC_UTIL.G_INS_DISCRETE THEN
3127: ANALYZE_ST_TABLE( lv_task_num);
3128: END IF;
3129:
3122:
3123: IF lv_task_num>0 THEN -- it's ok, the vlaue is the task number
3124:
3125: IF pANATBL_ENABLED= MSC_UTIL.SYS_YES AND
3126: v_instance_type = MSC_UTIL.G_INS_DISCRETE THEN
3127: ANALYZE_ST_TABLE( lv_task_num);
3128: END IF;
3129:
3130: lv_task_not_completed := lv_task_not_completed -1;
3127: ANALYZE_ST_TABLE( lv_task_num);
3128: END IF;
3129:
3130: lv_task_not_completed := lv_task_not_completed -1;
3131: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Tasks remaining :'||lv_task_not_completed);
3132:
3133: IF lv_task_not_completed= 0 THEN
3134: var_debug := 3;
3135: EXIT;
3141: EXIT WHEN lv_task_num= UNRESOLVABLE_ERROR;
3142:
3143: DBMS_PIPE.PACK_MESSAGE( -lv_task_num);
3144: -- resend the task to the task que
3145: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Re-sending the task number: '||lv_task_num ||' to the queue');
3146:
3147: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_task_que)<>0 THEN
3148: RAISE EX_PIPE_SND;
3149: END IF;
3147: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_task_que)<>0 THEN
3148: RAISE EX_PIPE_SND;
3149: END IF;
3150:
3151: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Task number: '||lv_task_num||' re-sent to the pipe queue');
3152:
3153: END IF;
3154:
3155: ELSIF lv_pipe_ret_code<> 1 THEN
3153: END IF;
3154:
3155: ELSIF lv_pipe_ret_code<> 1 THEN
3156: FND_MESSAGE.SET_NAME('MSC','MSC_CL_RCV_PIPE_ERR');
3157: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3158:
3159: RAISE EX_PIPE_RCV; -- If the error is not time-out error
3160: END IF;
3161:
3167: END IF;
3168:
3169: END LOOP;
3170:
3171: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, '----------------------------------------------------');
3172: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TSK_NOT_COMP');
3173: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3174: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3175:
3170:
3171: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, '----------------------------------------------------');
3172: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TSK_NOT_COMP');
3173: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3174: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3175:
3176: IF (var_debug = 0) THEN
3177: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_1');
3178: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3174: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3175:
3176: IF (var_debug = 0) THEN
3177: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_1');
3178: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3179: ELSIF (var_debug = 1) THEN
3180: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_2');
3181: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3182: ELSIF (var_debug = 2) THEN
3177: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_1');
3178: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3179: ELSIF (var_debug = 1) THEN
3180: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_2');
3181: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3182: ELSIF (var_debug = 2) THEN
3183: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_3');
3184: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3185: ELSIF (var_debug = 3) THEN
3180: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_2');
3181: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3182: ELSIF (var_debug = 2) THEN
3183: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_3');
3184: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3185: ELSIF (var_debug = 3) THEN
3186: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_3');
3187: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3188: ELSIF (var_debug = 4) THEN
3183: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_3');
3184: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3185: ELSIF (var_debug = 3) THEN
3186: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_3');
3187: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3188: ELSIF (var_debug = 4) THEN
3189: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_4');
3190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3191: END IF;
3186: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_3');
3187: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3188: ELSIF (var_debug = 4) THEN
3189: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_4');
3190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3191: END IF;
3192:
3193: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, '----------------------------------------------------');
3194:
3189: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_4');
3190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3191: END IF;
3192:
3193: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, '----------------------------------------------------');
3194:
3195: IF lv_task_not_completed > 0 THEN
3196:
3197: DBMS_PIPE.PURGE( v_pipe_task_que);
3196:
3197: DBMS_PIPE.PURGE( v_pipe_task_que);
3198:
3199: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
3200: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3201: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3202:
3203: lv_task_num:= -1;
3204:
3197: DBMS_PIPE.PURGE( v_pipe_task_que);
3198:
3199: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
3200: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3201: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3202:
3203: lv_task_num:= -1;
3204:
3205: ROLLBACK;
3204:
3205: ROLLBACK;
3206:
3207: ERRBUF:= FND_MESSAGE.GET;
3208: RETCODE := MSC_UTIL.G_ERROR;
3209:
3210: ELSE
3211:
3212: lv_task_num:= 0;
3212: lv_task_num:= 0;
3213:
3214: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_SUCCEED');
3215: ERRBUF:= FND_MESSAGE.GET;
3216: RETCODE := MSC_UTIL.G_SUCCESS;
3217: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, SQLERRM);
3218:
3219: lv_so_lrtype := pSalesOrder_RTYPE;
3220:
3213:
3214: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_SUCCEED');
3215: ERRBUF:= FND_MESSAGE.GET;
3216: RETCODE := MSC_UTIL.G_SUCCESS;
3217: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, SQLERRM);
3218:
3219: lv_so_lrtype := pSalesOrder_RTYPE;
3220:
3221: /* If the Sales Order is Targeted in Continuous collections ,set the so_rtype = YES */
3218:
3219: lv_so_lrtype := pSalesOrder_RTYPE;
3220:
3221: /* If the Sales Order is Targeted in Continuous collections ,set the so_rtype = YES */
3222: IF (pRTYPE = MSC_UTIL.G_CONT) AND (prec.sales_order_flag = MSC_UTIL.SYS_YES) THEN
3223: IF (prec.so_sn_flag = MSC_UTIL.SYS_TGT) THEN
3224: lv_so_lrtype := MSC_UTIL.SYS_YES;
3225: END IF;
3226: END IF;
3219: lv_so_lrtype := pSalesOrder_RTYPE;
3220:
3221: /* If the Sales Order is Targeted in Continuous collections ,set the so_rtype = YES */
3222: IF (pRTYPE = MSC_UTIL.G_CONT) AND (prec.sales_order_flag = MSC_UTIL.SYS_YES) THEN
3223: IF (prec.so_sn_flag = MSC_UTIL.SYS_TGT) THEN
3224: lv_so_lrtype := MSC_UTIL.SYS_YES;
3225: END IF;
3226: END IF;
3227:
3220:
3221: /* If the Sales Order is Targeted in Continuous collections ,set the so_rtype = YES */
3222: IF (pRTYPE = MSC_UTIL.G_CONT) AND (prec.sales_order_flag = MSC_UTIL.SYS_YES) THEN
3223: IF (prec.so_sn_flag = MSC_UTIL.SYS_TGT) THEN
3224: lv_so_lrtype := MSC_UTIL.SYS_YES;
3225: END IF;
3226: END IF;
3227:
3228: FINAL( pINSTANCE_ID,
3233: v_crn,
3234: pSOURCING_ENABLED,
3235: prec);
3236:
3237: IF pANATBL_ENABLED= MSC_UTIL.SYS_YES AND
3238: v_instance_type <> MSC_UTIL.G_INS_DISCRETE THEN
3239: ANALYZE_ALL_ST_TABLE;
3240: END IF;
3241:
3234: pSOURCING_ENABLED,
3235: prec);
3236:
3237: IF pANATBL_ENABLED= MSC_UTIL.SYS_YES AND
3238: v_instance_type <> MSC_UTIL.G_INS_DISCRETE THEN
3239: ANALYZE_ALL_ST_TABLE;
3240: END IF;
3241:
3242: END IF;
3240: END IF;
3241:
3242: END IF;
3243:
3244: IF (pRTYPE <> MSC_UTIL.G_CONT) then
3245:
3246: -- ======================== Inform workers to end the process ================
3247:
3248: FOR lc_i IN 1..pTotalWorkerNum LOOP
3248: FOR lc_i IN 1..pTotalWorkerNum LOOP
3249:
3250: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
3251: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3252: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3253:
3254: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3255:
3256: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Sending task number: '||lv_task_num|| ' to the worker '||lc_i);
3252: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3253:
3254: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3255:
3256: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Sending task number: '||lv_task_num|| ' to the worker '||lc_i);
3257:
3258: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_task_que)<>0 THEN
3259: RAISE EX_PIPE_SND;
3260: END IF;
3263:
3264: IF lv_task_num=0 THEN
3265:
3266: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
3267: pINSTANCE_ID, MSC_UTIL.G_ST_READY) THEN
3268: COMMIT;
3269: END IF;
3270:
3271: ELSE
3269: END IF;
3270:
3271: ELSE
3272: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
3273: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
3274: COMMIT;
3275: END IF;
3276:
3277: END IF;
3291: lv_worker_committed:= lv_worker_committed+1;
3292:
3293: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_COMMIT');
3294: FND_MESSAGE.SET_TOKEN('LV_WORKER_COMMITTED',lv_worker_committed);
3295: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3296:
3297: EXIT WHEN lv_worker_committed= pTotalWorkerNum;
3298:
3299: ELSIF lv_pipe_ret_code<> 1 THEN
3304: -- For bug:2210970 Removed this exit and added the function all_workers_completed to exit
3305: -- EXIT WHEN lv_process_time > 3.0/1440.0;
3306:
3307: IF (lv_process_time > 3.0/1440.0) AND (lv_worker_committed <> pTotalWorkerNum) THEN
3308: EXIT WHEN all_workers_completed(lvs_request_id) = MSC_UTIL.SYS_YES;
3309: END IF;
3310:
3311: END LOOP;
3312:
3313: IF lv_worker_committed<> pTotalWorkerNum THEN
3314:
3315: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL_TO_COMMIT');
3316: ERRBUF:= FND_MESSAGE.GET;
3317: RETCODE := MSC_UTIL.G_ERROR;
3318: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3319: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3320:
3321: FND_MESSAGE.SET_NAME('MSC','MSC_CL_CHECK_PDP_LOG');
3314:
3315: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL_TO_COMMIT');
3316: ERRBUF:= FND_MESSAGE.GET;
3317: RETCODE := MSC_UTIL.G_ERROR;
3318: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3319: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3320:
3321: FND_MESSAGE.SET_NAME('MSC','MSC_CL_CHECK_PDP_LOG');
3322: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3315: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL_TO_COMMIT');
3316: ERRBUF:= FND_MESSAGE.GET;
3317: RETCODE := MSC_UTIL.G_ERROR;
3318: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3319: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3320:
3321: FND_MESSAGE.SET_NAME('MSC','MSC_CL_CHECK_PDP_LOG');
3322: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3323:
3318: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3319: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3320:
3321: FND_MESSAGE.SET_NAME('MSC','MSC_CL_CHECK_PDP_LOG');
3322: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3323:
3324: IF lv_check_point= 2 THEN
3325: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
3326: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
3322: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3323:
3324: IF lv_check_point= 2 THEN
3325: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
3326: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
3327: COMMIT;
3328: END IF;
3329:
3330: UPDATE MSC_APPS_INSTANCES
3327: COMMIT;
3328: END IF;
3329:
3330: UPDATE MSC_APPS_INSTANCES
3331: SET SO_TBL_STATUS = decode(pSalesOrder_RTYPE,MSC_UTIL.SYS_YES
3332: ,decode(pRTYPE,MSC_UTIL.G_COMPLETE,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),MSC_UTIL.G_PARTIAL,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),SO_TBL_STATUS),
3333: SO_TBL_STATUS)
3334: WHERE INSTANCE_ID= pINSTANCE_ID;
3335:
3328: END IF;
3329:
3330: UPDATE MSC_APPS_INSTANCES
3331: SET SO_TBL_STATUS = decode(pSalesOrder_RTYPE,MSC_UTIL.SYS_YES
3332: ,decode(pRTYPE,MSC_UTIL.G_COMPLETE,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),MSC_UTIL.G_PARTIAL,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),SO_TBL_STATUS),
3333: SO_TBL_STATUS)
3334: WHERE INSTANCE_ID= pINSTANCE_ID;
3335:
3336: END IF;
3343: /* ------------------- agmcont ---------------------- */
3344:
3345: /* call ods load monitor for continuous collections */
3346:
3347: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'launch ods load monitor');
3348:
3349: lv_task_num := START_ODS_LOAD;
3350:
3351: -- ======================== Inform workers to start the ODS Worker ================
3353: FOR lc_i IN 1..pTotalWorkerNum LOOP
3354:
3355: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
3356: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3357: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3358:
3359: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3360:
3361: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Sending task number: '||lv_task_num|| ' to the worker '||lc_i);
3357: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3358:
3359: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3360:
3361: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Sending task number: '||lv_task_num|| ' to the worker '||lc_i);
3362:
3363: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_task_que)<>0 THEN
3364: RAISE EX_PIPE_SND;
3365: END IF;
3366:
3367: END LOOP; -- lc_i
3368:
3369: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
3370: pINSTANCE_ID, MSC_UTIL.G_ST_READY) THEN
3371: COMMIT;
3372: END IF;
3373: BEGIN
3374:
3371: COMMIT;
3372: END IF;
3373: BEGIN
3374:
3375: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
3376: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS Load Monitor is Started.');
3377: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
3378: /*ds change */
3379: IF MSC_CL_COLLECTION.LAUNCH_MONITOR_CONT(
3372: END IF;
3373: BEGIN
3374:
3375: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
3376: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS Load Monitor is Started.');
3377: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
3378: /*ds change */
3379: IF MSC_CL_COLLECTION.LAUNCH_MONITOR_CONT(
3380: ERRBUF ,
3373: BEGIN
3374:
3375: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
3376: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS Load Monitor is Started.');
3377: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
3378: /*ds change */
3379: IF MSC_CL_COLLECTION.LAUNCH_MONITOR_CONT(
3380: ERRBUF ,
3381: RETCODE ,
3383: pTIMEOUT ,-- minutes
3384: pTotalWorkerNum ,
3385: prec.ds_mode ) THEN
3386:
3387: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
3388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS Load Monitor is Completed.');
3389: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
3390: ELSE
3391: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ERRBUF);
3384: pTotalWorkerNum ,
3385: prec.ds_mode ) THEN
3386:
3387: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
3388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS Load Monitor is Completed.');
3389: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
3390: ELSE
3391: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ERRBUF);
3392: RETCODE := MSC_UTIL.G_ERROR;
3385: prec.ds_mode ) THEN
3386:
3387: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
3388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS Load Monitor is Completed.');
3389: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
3390: ELSE
3391: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ERRBUF);
3392: RETCODE := MSC_UTIL.G_ERROR;
3393: END IF;
3387: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
3388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS Load Monitor is Completed.');
3389: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
3390: ELSE
3391: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ERRBUF);
3392: RETCODE := MSC_UTIL.G_ERROR;
3393: END IF;
3394:
3395: EXCEPTION
3388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Planning ODS Load Monitor is Completed.');
3389: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, '****************************************************');
3390: ELSE
3391: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ERRBUF);
3392: RETCODE := MSC_UTIL.G_ERROR;
3393: END IF;
3394:
3395: EXCEPTION
3396: WHEN OTHERS THEN
3394:
3395: EXCEPTION
3396: WHEN OTHERS THEN
3397: ROLLBACK;
3398: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3399: RAISE;
3400: END;
3401:
3402: /* ------------------- agmcont ---------------------- */
3412: DBMS_PIPE.PURGE( v_pipe_task_que);
3413:
3414: IF lv_check_point= 2 THEN
3415: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
3416: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
3417: COMMIT;
3418: END IF;
3419:
3420: UPDATE MSC_APPS_INSTANCES
3417: COMMIT;
3418: END IF;
3419:
3420: UPDATE MSC_APPS_INSTANCES
3421: SET SO_TBL_STATUS = decode(pSalesOrder_RTYPE,MSC_UTIL.SYS_YES
3422: ,decode(pRTYPE,MSC_UTIL.G_COMPLETE,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),MSC_UTIL.G_PARTIAL,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),SO_TBL_STATUS),
3423: SO_TBL_STATUS)
3424: WHERE INSTANCE_ID= pINSTANCE_ID;
3425:
3418: END IF;
3419:
3420: UPDATE MSC_APPS_INSTANCES
3421: SET SO_TBL_STATUS = decode(pSalesOrder_RTYPE,MSC_UTIL.SYS_YES
3422: ,decode(pRTYPE,MSC_UTIL.G_COMPLETE,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),MSC_UTIL.G_PARTIAL,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),SO_TBL_STATUS),
3423: SO_TBL_STATUS)
3424: WHERE INSTANCE_ID= pINSTANCE_ID;
3425:
3426: COMMIT;
3428: END IF;
3429:
3430: FND_MESSAGE.SET_NAME('MSC', 'MSC_TIMEOUT');
3431: ERRBUF:= FND_MESSAGE.GET;
3432: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3433: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3434:
3435: RETCODE := MSC_UTIL.G_ERROR;
3436:
3429:
3430: FND_MESSAGE.SET_NAME('MSC', 'MSC_TIMEOUT');
3431: ERRBUF:= FND_MESSAGE.GET;
3432: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3433: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3434:
3435: RETCODE := MSC_UTIL.G_ERROR;
3436:
3437: WHEN OTHERS THEN
3431: ERRBUF:= FND_MESSAGE.GET;
3432: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3433: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3434:
3435: RETCODE := MSC_UTIL.G_ERROR;
3436:
3437: WHEN OTHERS THEN
3438:
3439: ROLLBACK;
3437: WHEN OTHERS THEN
3438:
3439: ROLLBACK;
3440:
3441: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3442:
3443: IF lv_check_point= 2 THEN
3444: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
3445: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
3441: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3442:
3443: IF lv_check_point= 2 THEN
3444: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
3445: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
3446: COMMIT;
3447: END IF;
3448:
3449: UPDATE MSC_APPS_INSTANCES
3446: COMMIT;
3447: END IF;
3448:
3449: UPDATE MSC_APPS_INSTANCES
3450: SET SO_TBL_STATUS = decode(pSalesOrder_RTYPE,MSC_UTIL.SYS_YES
3451: ,decode(pRTYPE,MSC_UTIL.G_COMPLETE,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),MSC_UTIL.G_PARTIAL,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),SO_TBL_STATUS),
3452: SO_TBL_STATUS)
3453: WHERE INSTANCE_ID= pINSTANCE_ID;
3454:
3447: END IF;
3448:
3449: UPDATE MSC_APPS_INSTANCES
3450: SET SO_TBL_STATUS = decode(pSalesOrder_RTYPE,MSC_UTIL.SYS_YES
3451: ,decode(pRTYPE,MSC_UTIL.G_COMPLETE,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),MSC_UTIL.G_PARTIAL,decode(lv_inv_ctp_val,5,MSC_UTIL.SYS_YES,SO_TBL_STATUS),SO_TBL_STATUS),
3452: SO_TBL_STATUS)
3453: WHERE INSTANCE_ID= pINSTANCE_ID;
3454:
3455: COMMIT;
3456:
3457: END IF;
3458:
3459: ERRBUF := SQLERRM;
3460: RETCODE := MSC_UTIL.G_ERROR;
3461:
3462: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
3463: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_STACK );
3464: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Backtrace...' );
3458:
3459: ERRBUF := SQLERRM;
3460: RETCODE := MSC_UTIL.G_ERROR;
3461:
3462: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
3463: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_STACK );
3464: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Backtrace...' );
3465: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE );
3466:
3459: ERRBUF := SQLERRM;
3460: RETCODE := MSC_UTIL.G_ERROR;
3461:
3462: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
3463: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_STACK );
3464: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Backtrace...' );
3465: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE );
3466:
3467: END LAUNCH_MONITOR;
3460: RETCODE := MSC_UTIL.G_ERROR;
3461:
3462: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
3463: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_STACK );
3464: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Backtrace...' );
3465: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE );
3466:
3467: END LAUNCH_MONITOR;
3468:
3461:
3462: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
3463: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_STACK );
3464: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Backtrace...' );
3465: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE );
3466:
3467: END LAUNCH_MONITOR;
3468:
3469:
3484: -- pOdsPURGEoption IN NUMBER := SYS_NO,
3485: -- pRTYPE IN NUMBER,
3486: pTHRESH IN NUMBER,
3487: pFREQ IN NUMBER,
3488: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3489: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3490: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3491: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3492: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3485: -- pRTYPE IN NUMBER,
3486: pTHRESH IN NUMBER,
3487: pFREQ IN NUMBER,
3488: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3489: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3490: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3491: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3492: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3493: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3486: pTHRESH IN NUMBER,
3487: pFREQ IN NUMBER,
3488: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3489: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3490: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3491: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3492: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3493: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3494: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3487: pFREQ IN NUMBER,
3488: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3489: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3490: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3491: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3492: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3493: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3494: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3495: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3488: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3489: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3490: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3491: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3492: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3493: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3494: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3495: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3496: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3489: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3490: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3491: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3492: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3493: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3494: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3495: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3496: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3497: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3490: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3491: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3492: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3493: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3494: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3495: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3496: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3497: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3498: pSalesOrder_RTYPE IN NUMBER,
3491: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3492: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3493: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3494: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3495: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3496: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3497: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3498: pSalesOrder_RTYPE IN NUMBER,
3499: /* CP-AUTO */
3492: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3493: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3494: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3495: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3496: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3497: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3498: pSalesOrder_RTYPE IN NUMBER,
3499: /* CP-AUTO */
3500: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3493: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3494: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3495: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3496: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3497: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3498: pSalesOrder_RTYPE IN NUMBER,
3499: /* CP-AUTO */
3500: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3501: pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3496: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3497: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3498: pSalesOrder_RTYPE IN NUMBER,
3499: /* CP-AUTO */
3500: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3501: pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3502: pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3503: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3504: pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3497: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3498: pSalesOrder_RTYPE IN NUMBER,
3499: /* CP-AUTO */
3500: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3501: pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3502: pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3503: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3504: pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3505: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3498: pSalesOrder_RTYPE IN NUMBER,
3499: /* CP-AUTO */
3500: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3501: pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3502: pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3503: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3504: pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3505: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3506: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3499: /* CP-AUTO */
3500: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3501: pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3502: pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3503: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3504: pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3505: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3506: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3507: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3500: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3501: pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3502: pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3503: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3504: pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3505: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3506: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3507: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3508: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3501: pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3502: pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3503: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3504: pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3505: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3506: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3507: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3508: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3509: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3502: pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3503: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3504: pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3505: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3506: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3507: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3508: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3509: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3510: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3503: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3504: pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3505: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3506: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3507: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3508: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3509: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3510: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3511: pPO_RECEIPTS_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3504: pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3505: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3506: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3507: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3508: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3509: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3510: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3511: pPO_RECEIPTS_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3512: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3505: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3506: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3507: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3508: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3509: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3510: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3511: pPO_RECEIPTS_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3512: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3513: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3506: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3507: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3508: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3509: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3510: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3511: pPO_RECEIPTS_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3512: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3513: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3514: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3507: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3508: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3509: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3510: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3511: pPO_RECEIPTS_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3512: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3513: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3514: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3515: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3508: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3509: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3510: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3511: pPO_RECEIPTS_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3512: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3513: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3514: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3515: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3516: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3509: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3510: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3511: pPO_RECEIPTS_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3512: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3513: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3514: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3515: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3516: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3517: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3510: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3511: pPO_RECEIPTS_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3512: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3513: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3514: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3515: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3516: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3517: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3518: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3511: pPO_RECEIPTS_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3512: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3513: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3514: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3515: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3516: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3517: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3518: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3519: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3512: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3513: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3514: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3515: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3516: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3517: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3518: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3519: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3520: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3513: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3514: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3515: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3516: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3517: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3518: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3519: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3520: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3521: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3514: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3515: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3516: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3517: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3518: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3519: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3520: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3521: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3522: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3515: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3516: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3517: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3518: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3519: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3520: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3521: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3522: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3523: pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3516: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3517: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3518: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3519: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3520: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3521: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3522: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3523: pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3524:
3517: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3518: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3519: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3520: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3521: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3522: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3523: pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3524:
3525:
3518: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3519: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3520: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3521: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3522: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3523: pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3524:
3525:
3526: )
3519: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3520: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3521: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3522: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3523: pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3524:
3525:
3526: )
3527: is
3525:
3526: )
3527: is
3528:
3529: lv_SUPPLIER_RESPONSE_ENABLED number := MSC_UTIL.SYS_NO;
3530:
3531: BEGIN
3532:
3533:
3530:
3531: BEGIN
3532:
3533:
3534: v_is_cont_refresh := MSC_UTIL.SYS_YES;
3535: v_cont_coll_thresh := pTHRESH;
3536: v_cont_coll_freq := pFREQ;
3537: /* just call launch_monitor */
3538:
3535: v_cont_coll_thresh := pTHRESH;
3536: v_cont_coll_freq := pFREQ;
3537: /* just call launch_monitor */
3538:
3539: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'x1');
3540: LAUNCH_MONITOR(ERRBUF,
3541: RETCODE,
3542: pINSTANCE_ID,
3543: pORG_GROUP,
3543: pORG_GROUP,
3544: pTotalWorkerNum,
3545: pTIMEOUT,
3546: pLANG,
3547: MSC_UTIL.SYS_NO, --pOdsPURGEoption,
3548: MSC_UTIL.G_CONT, --pRTYPE,
3549: pANATBL_ENABLED,
3550: pAPPROV_SUPPLIER_CAP_ENABLED,
3551: pATP_RULES_ENABLED,
3544: pTotalWorkerNum,
3545: pTIMEOUT,
3546: pLANG,
3547: MSC_UTIL.SYS_NO, --pOdsPURGEoption,
3548: MSC_UTIL.G_CONT, --pRTYPE,
3549: pANATBL_ENABLED,
3550: pAPPROV_SUPPLIER_CAP_ENABLED,
3551: pATP_RULES_ENABLED,
3552: pBOM_ENABLED,
3596: pTIMEOUT IN NUMBER,
3597: pLANG IN VARCHAR2 := NULL,
3598: pRTYPE IN NUMBER,
3599: pREFRESH_ID IN NUMBER,
3600: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3601: pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3602: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3603: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3604: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3597: pLANG IN VARCHAR2 := NULL,
3598: pRTYPE IN NUMBER,
3599: pREFRESH_ID IN NUMBER,
3600: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3601: pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3602: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3603: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3604: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3605: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3598: pRTYPE IN NUMBER,
3599: pREFRESH_ID IN NUMBER,
3600: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3601: pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3602: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3603: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3604: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3605: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3606: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3599: pREFRESH_ID IN NUMBER,
3600: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3601: pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3602: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3603: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3604: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3605: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3606: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3607: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3600: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3601: pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3602: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3603: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3604: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3605: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3606: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3607: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3608: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3601: pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3602: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3603: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3604: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3605: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3606: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3607: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3608: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3609: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3602: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3603: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3604: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3605: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3606: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3607: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3608: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3609: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3610: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3603: pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3604: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3605: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3606: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3607: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3608: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3609: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3610: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3611: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3604: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3605: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3606: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3607: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3608: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3609: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3610: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3611: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3612: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3605: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3606: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3607: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3608: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3609: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3610: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3611: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3612: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3613: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3606: pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3607: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3608: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3609: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3610: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3611: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3612: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3613: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3614: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3607: pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3608: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3609: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3610: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3611: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3612: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3613: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3614: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3615: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3608: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3609: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3610: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3611: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3612: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3613: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3614: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3615: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3616: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3609: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3610: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3611: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3612: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3613: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3614: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3615: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3616: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3617: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3610: pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3611: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3612: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3613: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3614: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3615: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3616: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3617: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3618: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3611: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3612: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3613: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3614: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3615: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3616: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3617: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3618: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3619: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3612: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3613: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3614: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3615: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3616: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3617: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3618: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3619: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3620: pSalesOrder_RTYPE IN NUMBER,
3613: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3614: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3615: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3616: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3617: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3618: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3619: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3620: pSalesOrder_RTYPE IN NUMBER,
3621: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3614: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3615: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3616: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3617: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3618: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3619: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3620: pSalesOrder_RTYPE IN NUMBER,
3621: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3622: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3615: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3616: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3617: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3618: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3619: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3620: pSalesOrder_RTYPE IN NUMBER,
3621: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3622: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3623: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3617: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3618: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3619: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3620: pSalesOrder_RTYPE IN NUMBER,
3621: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3622: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3623: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3624: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3625: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3618: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3619: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3620: pSalesOrder_RTYPE IN NUMBER,
3621: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3622: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3623: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3624: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3625: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3626: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3619: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3620: pSalesOrder_RTYPE IN NUMBER,
3621: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3622: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3623: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3624: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3625: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3626: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3627: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3620: pSalesOrder_RTYPE IN NUMBER,
3621: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3622: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3623: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3624: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3625: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3626: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3627: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3628: pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3621: pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3622: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3623: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3624: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3625: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3626: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3627: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3628: pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3629: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3622: pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3623: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3624: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3625: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3626: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3627: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3628: pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3629: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3630: pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3623: pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3624: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3625: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3626: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3627: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3628: pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3629: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3630: pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3631: /* CP-ACK starts */
3624: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3625: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3626: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3627: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3628: pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3629: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3630: pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3631: /* CP-ACK starts */
3632: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3625: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3626: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3627: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3628: pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3629: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3630: pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3631: /* CP-ACK starts */
3632: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3633: /* CP-ACK ends */
3626: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3627: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3628: pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3629: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3630: pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3631: /* CP-ACK starts */
3632: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3633: /* CP-ACK ends */
3634: pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3628: pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3629: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3630: pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3631: /* CP-ACK starts */
3632: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3633: /* CP-ACK ends */
3634: pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3635: pPO_RECEIPTS_ENABLED IN NUMBER := MSC_UTIL.SYS_NO
3636: ) is
3630: pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3631: /* CP-ACK starts */
3632: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3633: /* CP-ACK ends */
3634: pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3635: pPO_RECEIPTS_ENABLED IN NUMBER := MSC_UTIL.SYS_NO
3636: ) is
3637: BEGIN
3638:
3631: /* CP-ACK starts */
3632: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3633: /* CP-ACK ends */
3634: pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3635: pPO_RECEIPTS_ENABLED IN NUMBER := MSC_UTIL.SYS_NO
3636: ) is
3637: BEGIN
3638:
3639: MSC_CL_PULL.LAUNCH_WORKER(
3692: pTIMEOUT IN NUMBER, -- min
3693: pLANG IN VARCHAR2 := NULL,
3694: pTHRESH IN NUMBER,
3695: pFREQ IN NUMBER,
3696: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3697: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3698: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3699: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3700: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3693: pLANG IN VARCHAR2 := NULL,
3694: pTHRESH IN NUMBER,
3695: pFREQ IN NUMBER,
3696: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3697: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3698: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3699: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3700: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3701: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3694: pTHRESH IN NUMBER,
3695: pFREQ IN NUMBER,
3696: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3697: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3698: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3699: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3700: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3701: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3702: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3695: pFREQ IN NUMBER,
3696: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3697: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3698: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3699: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3700: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3701: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3702: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3703: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3696: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3697: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3698: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3699: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3700: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3701: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3702: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3703: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3704: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3697: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3698: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3699: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3700: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3701: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3702: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3703: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3704: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3705: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3698: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3699: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3700: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3701: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3702: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3703: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3704: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3705: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3706: pSalesOrder_RTYPE IN NUMBER := MSC_UTIL.SYS_YES,
3699: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3700: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3701: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3702: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3703: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3704: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3705: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3706: pSalesOrder_RTYPE IN NUMBER := MSC_UTIL.SYS_YES,
3707: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3700: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3701: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3702: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3703: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3704: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3705: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3706: pSalesOrder_RTYPE IN NUMBER := MSC_UTIL.SYS_YES,
3707: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3708: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3701: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3702: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3703: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3704: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3705: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3706: pSalesOrder_RTYPE IN NUMBER := MSC_UTIL.SYS_YES,
3707: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3708: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3709: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3702: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3703: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3704: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3705: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3706: pSalesOrder_RTYPE IN NUMBER := MSC_UTIL.SYS_YES,
3707: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3708: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3709: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3710: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3703: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3704: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3705: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3706: pSalesOrder_RTYPE IN NUMBER := MSC_UTIL.SYS_YES,
3707: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3708: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3709: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3710: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3711: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3704: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3705: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3706: pSalesOrder_RTYPE IN NUMBER := MSC_UTIL.SYS_YES,
3707: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3708: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3709: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3710: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3711: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3712: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3705: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3706: pSalesOrder_RTYPE IN NUMBER := MSC_UTIL.SYS_YES,
3707: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3708: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3709: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3710: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3711: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3712: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3713: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3706: pSalesOrder_RTYPE IN NUMBER := MSC_UTIL.SYS_YES,
3707: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3708: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3709: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3710: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3711: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3712: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3713: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3714: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3707: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3708: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3709: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3710: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3711: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3712: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3713: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3714: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3715: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3708: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3709: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3710: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3711: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3712: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3713: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3714: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3715: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3716: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3709: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3710: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3711: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3712: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3713: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3714: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3715: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3716: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3717: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3710: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3711: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3712: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3713: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3714: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3715: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3716: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3717: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3718: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3711: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3712: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3713: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3714: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3715: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3716: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3717: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3718: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3719: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3712: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3713: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3714: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3715: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3716: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3717: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3718: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3719: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3720: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3713: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3714: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3715: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3716: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3717: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3718: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3719: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3720: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3721: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3714: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3715: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3716: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3717: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3718: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3719: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3720: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3721: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3722: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3715: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3716: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3717: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3718: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3719: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3720: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3721: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3722: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3723: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3716: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3717: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3718: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3719: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3720: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3721: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3722: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3723: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3724: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3717: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3718: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3719: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3720: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3721: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3722: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3723: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3724: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3725: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3718: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3719: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3720: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3721: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3722: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3723: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3724: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3725: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3726: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3719: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3720: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3721: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3722: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3723: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3724: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3725: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3726: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3727: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3720: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3721: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3722: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3723: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3724: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3725: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3726: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3727: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3728: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3721: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3722: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3723: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3724: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3725: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3726: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3727: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3728: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3729: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3722: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3723: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3724: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3725: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3726: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3727: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3728: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3729: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3730: --pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3723: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3724: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3725: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3726: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3727: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3728: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3729: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3730: --pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3731: )
3724: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3725: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3726: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3727: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3728: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3729: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3730: --pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3731: )
3732:
3725: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3726: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3727: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3728: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3729: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3730: --pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3731: )
3732:
3733: is
3726: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3727: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3728: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3729: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3730: --pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3731: )
3732:
3733: is
3734: BEGIN
3739: pORG_GROUP,
3740: pTotalWorkerNum,
3741: pTIMEOUT,
3742: pLANG,
3743: MSC_UTIL.SYS_NO, --pOdsPURGEoption,
3744: MSC_UTIL.G_CONT, --pRTYPE,
3745: pANATBL_ENABLED,
3746: pAPPROV_SUPPLIER_CAP_ENABLED,
3747: MSC_UTIL.SYS_NO, --pATP_RULES_ENABLED,
3740: pTotalWorkerNum,
3741: pTIMEOUT,
3742: pLANG,
3743: MSC_UTIL.SYS_NO, --pOdsPURGEoption,
3744: MSC_UTIL.G_CONT, --pRTYPE,
3745: pANATBL_ENABLED,
3746: pAPPROV_SUPPLIER_CAP_ENABLED,
3747: MSC_UTIL.SYS_NO, --pATP_RULES_ENABLED,
3748: pBOM_ENABLED,
3743: MSC_UTIL.SYS_NO, --pOdsPURGEoption,
3744: MSC_UTIL.G_CONT, --pRTYPE,
3745: pANATBL_ENABLED,
3746: pAPPROV_SUPPLIER_CAP_ENABLED,
3747: MSC_UTIL.SYS_NO, --pATP_RULES_ENABLED,
3748: pBOM_ENABLED,
3749: MSC_UTIL.SYS_NO, --pBOR_ENABLED,
3750: pCALENDAR_ENABLED,
3751: pDEMAND_CLASS_ENABLED,
3745: pANATBL_ENABLED,
3746: pAPPROV_SUPPLIER_CAP_ENABLED,
3747: MSC_UTIL.SYS_NO, --pATP_RULES_ENABLED,
3748: pBOM_ENABLED,
3749: MSC_UTIL.SYS_NO, --pBOR_ENABLED,
3750: pCALENDAR_ENABLED,
3751: pDEMAND_CLASS_ENABLED,
3752: MSC_UTIL.SYS_NO, --pITEM_SUBST_ENABLED,
3753: MSC_UTIL.SYS_NO, --pFORECAST_ENABLED,
3748: pBOM_ENABLED,
3749: MSC_UTIL.SYS_NO, --pBOR_ENABLED,
3750: pCALENDAR_ENABLED,
3751: pDEMAND_CLASS_ENABLED,
3752: MSC_UTIL.SYS_NO, --pITEM_SUBST_ENABLED,
3753: MSC_UTIL.SYS_NO, --pFORECAST_ENABLED,
3754: pITEM_ENABLED,
3755: pKPI_BIS_ENABLED,
3756: MSC_UTIL.SYS_NO, --pMDS_ENABLED,
3749: MSC_UTIL.SYS_NO, --pBOR_ENABLED,
3750: pCALENDAR_ENABLED,
3751: pDEMAND_CLASS_ENABLED,
3752: MSC_UTIL.SYS_NO, --pITEM_SUBST_ENABLED,
3753: MSC_UTIL.SYS_NO, --pFORECAST_ENABLED,
3754: pITEM_ENABLED,
3755: pKPI_BIS_ENABLED,
3756: MSC_UTIL.SYS_NO, --pMDS_ENABLED,
3757: pMPS_ENABLED,
3752: MSC_UTIL.SYS_NO, --pITEM_SUBST_ENABLED,
3753: MSC_UTIL.SYS_NO, --pFORECAST_ENABLED,
3754: pITEM_ENABLED,
3755: pKPI_BIS_ENABLED,
3756: MSC_UTIL.SYS_NO, --pMDS_ENABLED,
3757: pMPS_ENABLED,
3758: pOH_ENABLED,
3759: pPARAMETER_ENABLED,
3760: pPLANNER_ENABLED,
3757: pMPS_ENABLED,
3758: pOH_ENABLED,
3759: pPARAMETER_ENABLED,
3760: pPLANNER_ENABLED,
3761: MSC_UTIL.SYS_NO, --pPO_Receipts_ENABLED,
3762: pPROJECT_ENABLED,
3763: pPUR_REQ_PO_ENABLED,
3764: pRESERVES_HARD_ENABLED, --pRESERVES_HARD_ENABLED,
3765: pRESOURCE_NRA_ENABLED,
3764: pRESERVES_HARD_ENABLED, --pRESERVES_HARD_ENABLED,
3765: pRESOURCE_NRA_ENABLED,
3766: pSafeStock_ENABLED,
3767: pSalesOrder_RTYPE, --pSalesOrder_RTYPE,
3768: MSC_UTIL.SYS_NO, --pSH_ENABLED,
3769: MSC_UTIL.SYS_NO, --pSOURCING_ENABLED,
3770: MSC_UTIL.SYS_NO, --pSUB_INV_ENABLED,
3771: pSUPPLIER_RESPONSE_ENABLED,
3772: pTP_CUSTOMER_ENABLED,
3765: pRESOURCE_NRA_ENABLED,
3766: pSafeStock_ENABLED,
3767: pSalesOrder_RTYPE, --pSalesOrder_RTYPE,
3768: MSC_UTIL.SYS_NO, --pSH_ENABLED,
3769: MSC_UTIL.SYS_NO, --pSOURCING_ENABLED,
3770: MSC_UTIL.SYS_NO, --pSUB_INV_ENABLED,
3771: pSUPPLIER_RESPONSE_ENABLED,
3772: pTP_CUSTOMER_ENABLED,
3773: pTP_VENDOR_ENABLED,
3766: pSafeStock_ENABLED,
3767: pSalesOrder_RTYPE, --pSalesOrder_RTYPE,
3768: MSC_UTIL.SYS_NO, --pSH_ENABLED,
3769: MSC_UTIL.SYS_NO, --pSOURCING_ENABLED,
3770: MSC_UTIL.SYS_NO, --pSUB_INV_ENABLED,
3771: pSUPPLIER_RESPONSE_ENABLED,
3772: pTP_CUSTOMER_ENABLED,
3773: pTP_VENDOR_ENABLED,
3774: MSC_UTIL.SYS_NO, --pTRIP_ENABLED,
3770: MSC_UTIL.SYS_NO, --pSUB_INV_ENABLED,
3771: pSUPPLIER_RESPONSE_ENABLED,
3772: pTP_CUSTOMER_ENABLED,
3773: pTP_VENDOR_ENABLED,
3774: MSC_UTIL.SYS_NO, --pTRIP_ENABLED,
3775: pUNIT_NO_ENABLED,
3776: pUOM_ENABLED,
3777: MSC_UTIL.SYS_NO, --pUSER_COMPANY_ENABLED,
3778: MSC_UTIL.SYS_NO, --pUSER_SUPPLY_DEMAND,
3773: pTP_VENDOR_ENABLED,
3774: MSC_UTIL.SYS_NO, --pTRIP_ENABLED,
3775: pUNIT_NO_ENABLED,
3776: pUOM_ENABLED,
3777: MSC_UTIL.SYS_NO, --pUSER_COMPANY_ENABLED,
3778: MSC_UTIL.SYS_NO, --pUSER_SUPPLY_DEMAND,
3779: pWIP_ENABLED
3780: );
3781:
3774: MSC_UTIL.SYS_NO, --pTRIP_ENABLED,
3775: pUNIT_NO_ENABLED,
3776: pUOM_ENABLED,
3777: MSC_UTIL.SYS_NO, --pUSER_COMPANY_ENABLED,
3778: MSC_UTIL.SYS_NO, --pUSER_SUPPLY_DEMAND,
3779: pWIP_ENABLED
3780: );
3781:
3782:
3793: BEGIN
3794:
3795: INITIALIZE_PULL_GLOBALS( pINSTANCE_ID); -- Initializes Level 2 Global Variables used in Data Pull
3796:
3797: RETCODE := MSC_UTIL.G_SUCCESS;
3798:
3799: DBMS_PIPE.PACK_MESSAGE( UNRESOLVABLE_ERROR);
3800:
3801: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_wm)<>0 THEN
3803: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
3804: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_wm);
3805: ERRBUF:= FND_MESSAGE.GET;
3806:
3807: RETCODE := MSC_UTIL.G_ERROR;
3808:
3809: END IF;
3810:
3811: END DELETE_PROCESS;
3818: pORG_GROUP IN VARCHAR2,
3819: pTotalWorkerNum IN NUMBER,
3820: pTIMEOUT IN NUMBER,
3821: pLANG IN VARCHAR2 := NULL,
3822: pOdsPURGEoption IN NUMBER := MSC_UTIL.SYS_NO,
3823: pRTYPE IN NUMBER,
3824: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3825: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3826: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3820: pTIMEOUT IN NUMBER,
3821: pLANG IN VARCHAR2 := NULL,
3822: pOdsPURGEoption IN NUMBER := MSC_UTIL.SYS_NO,
3823: pRTYPE IN NUMBER,
3824: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3825: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3826: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3827: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3828: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3821: pLANG IN VARCHAR2 := NULL,
3822: pOdsPURGEoption IN NUMBER := MSC_UTIL.SYS_NO,
3823: pRTYPE IN NUMBER,
3824: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3825: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3826: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3827: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3828: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3829: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3822: pOdsPURGEoption IN NUMBER := MSC_UTIL.SYS_NO,
3823: pRTYPE IN NUMBER,
3824: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3825: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3826: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3827: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3828: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3829: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3830: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3823: pRTYPE IN NUMBER,
3824: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3825: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3826: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3827: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3828: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3829: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3830: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3831: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3824: pANATBL_ENABLED IN NUMBER := MSC_UTIL.SYS_NO,
3825: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3826: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3827: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3828: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3829: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3830: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3831: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3832: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3825: pAPPROV_SUPPLIER_CAP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3826: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3827: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3828: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3829: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3830: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3831: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3832: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3833: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3826: --pATP_RULES_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3827: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3828: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3829: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3830: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3831: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3832: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3833: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3834: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3827: pBOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3828: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3829: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3830: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3831: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3832: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3833: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3834: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3835: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3828: --pBOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3829: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3830: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3831: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3832: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3833: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3834: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3835: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3836: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3829: pCALENDAR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3830: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3831: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3832: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3833: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3834: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3835: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3836: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3837: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3830: pDEMAND_CLASS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3831: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3832: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3833: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3834: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3835: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3836: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3837: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3838: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3831: --pITEM_SUBST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3832: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3833: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3834: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3835: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3836: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3837: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3838: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3839: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3832: --pFORECAST_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3833: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3834: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3835: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3836: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3837: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3838: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3839: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3840: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3833: pITEM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3834: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3835: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3836: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3837: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3838: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3839: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3840: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3841: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3834: pKPI_BIS_ENABLED IN NUMBER := CASE WHEN v_apps_ver >= MSC_UTIL.G_APPS122 THEN MSC_UTIL.SYS_NO ELSE MSC_UTIL.SYS_YES END,
3835: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3836: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3837: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3838: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3839: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3840: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3841: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3842: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3835: --pMDS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3836: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3837: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3838: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3839: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3840: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3841: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3842: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3843: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3836: pMPS_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3837: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3838: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3839: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3840: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3841: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3842: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3843: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3844: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3837: pOH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3838: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3839: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3840: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3841: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3842: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3843: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3844: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3845: pSalesOrder_RTYPE IN NUMBER,
3838: pPARAMETER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3839: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3840: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3841: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3842: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3843: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3844: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3845: pSalesOrder_RTYPE IN NUMBER,
3846: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3839: pPLANNER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3840: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3841: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3842: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3843: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3844: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3845: pSalesOrder_RTYPE IN NUMBER,
3846: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3847: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3840: pPROJECT_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3841: pPUR_REQ_PO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3842: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3843: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3844: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3845: pSalesOrder_RTYPE IN NUMBER,
3846: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3847: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3848: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3842: pRESERVES_HARD_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3843: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3844: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3845: pSalesOrder_RTYPE IN NUMBER,
3846: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3847: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3848: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3849: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3850: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3843: pRESOURCE_NRA_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3844: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3845: pSalesOrder_RTYPE IN NUMBER,
3846: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3847: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3848: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3849: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3850: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3851: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3844: pSafeStock_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3845: pSalesOrder_RTYPE IN NUMBER,
3846: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3847: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3848: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3849: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3850: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3851: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3852: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3845: pSalesOrder_RTYPE IN NUMBER,
3846: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3847: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3848: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3849: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3850: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3851: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3852: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3853: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3846: --pSH_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3847: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3848: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3849: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3850: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3851: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3852: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3853: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3854: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3847: --pSOURCING_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3848: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3849: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3850: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3851: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3852: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3853: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3854: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3855: --pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3848: --pSUB_INV_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3849: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3850: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3851: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3852: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3853: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3854: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3855: --pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3856: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3849: pSUPPLIER_RESPONSE_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3850: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3851: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3852: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3853: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3854: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3855: --pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3856: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3857: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3850: pTP_CUSTOMER_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3851: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3852: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3853: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3854: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3855: --pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3856: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3857: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3858: )
3851: pTP_VENDOR_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3852: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3853: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3854: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3855: --pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3856: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3857: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3858: )
3859: is
3852: --pTRIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3853: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3854: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3855: --pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3856: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3857: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3858: )
3859: is
3860:
3853: pUNIT_NO_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3854: pUOM_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3855: --pUSER_COMPANY_ENABLED IN NUMBER := MSC_UTIL.SYS_YES,
3856: --pUSER_SUPPLY_DEMAND IN NUMBER := MSC_UTIL.SYS_YES,
3857: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3858: )
3859: is
3860:
3861: lv_SUPPLIER_RESPONSE_ENABLED number := MSC_UTIL.SYS_NO;
3857: pWIP_ENABLED IN NUMBER := MSC_UTIL.SYS_YES
3858: )
3859: is
3860:
3861: lv_SUPPLIER_RESPONSE_ENABLED number := MSC_UTIL.SYS_NO;
3862:
3863: BEGIN
3864: v_DSMode := MSC_UTIL.SYS_YES;
3865: LAUNCH_MONITOR(ERRBUF,
3860:
3861: lv_SUPPLIER_RESPONSE_ENABLED number := MSC_UTIL.SYS_NO;
3862:
3863: BEGIN
3864: v_DSMode := MSC_UTIL.SYS_YES;
3865: LAUNCH_MONITOR(ERRBUF,
3866: RETCODE,
3867: pINSTANCE_ID,
3868: pORG_GROUP,
3872: pOdsPURGEoption,
3873: pRTYPE,
3874: pANATBL_ENABLED,
3875: pAPPROV_SUPPLIER_CAP_ENABLED,
3876: MSC_UTIL.SYS_NO, --pATP_RULES_ENABLED,
3877: pBOM_ENABLED,
3878: MSC_UTIL.SYS_NO, --pBOR_ENABLED,
3879: pCALENDAR_ENABLED,
3880: pDEMAND_CLASS_ENABLED,
3874: pANATBL_ENABLED,
3875: pAPPROV_SUPPLIER_CAP_ENABLED,
3876: MSC_UTIL.SYS_NO, --pATP_RULES_ENABLED,
3877: pBOM_ENABLED,
3878: MSC_UTIL.SYS_NO, --pBOR_ENABLED,
3879: pCALENDAR_ENABLED,
3880: pDEMAND_CLASS_ENABLED,
3881: MSC_UTIL.SYS_NO, --pITEM_SUBST_ENABLED,
3882: MSC_UTIL.SYS_NO, --pFORECAST_ENABLED,
3877: pBOM_ENABLED,
3878: MSC_UTIL.SYS_NO, --pBOR_ENABLED,
3879: pCALENDAR_ENABLED,
3880: pDEMAND_CLASS_ENABLED,
3881: MSC_UTIL.SYS_NO, --pITEM_SUBST_ENABLED,
3882: MSC_UTIL.SYS_NO, --pFORECAST_ENABLED,
3883: pITEM_ENABLED,
3884: pKPI_BIS_ENABLED,
3885: MSC_UTIL.SYS_NO, --pMDS_ENABLED,
3878: MSC_UTIL.SYS_NO, --pBOR_ENABLED,
3879: pCALENDAR_ENABLED,
3880: pDEMAND_CLASS_ENABLED,
3881: MSC_UTIL.SYS_NO, --pITEM_SUBST_ENABLED,
3882: MSC_UTIL.SYS_NO, --pFORECAST_ENABLED,
3883: pITEM_ENABLED,
3884: pKPI_BIS_ENABLED,
3885: MSC_UTIL.SYS_NO, --pMDS_ENABLED,
3886: pMPS_ENABLED,
3881: MSC_UTIL.SYS_NO, --pITEM_SUBST_ENABLED,
3882: MSC_UTIL.SYS_NO, --pFORECAST_ENABLED,
3883: pITEM_ENABLED,
3884: pKPI_BIS_ENABLED,
3885: MSC_UTIL.SYS_NO, --pMDS_ENABLED,
3886: pMPS_ENABLED,
3887: pOH_ENABLED,
3888: pPARAMETER_ENABLED,
3889: pPLANNER_ENABLED,
3886: pMPS_ENABLED,
3887: pOH_ENABLED,
3888: pPARAMETER_ENABLED,
3889: pPLANNER_ENABLED,
3890: MSC_UTIL.SYS_NO, --PO_Receipt_ENABLED,
3891: pPROJECT_ENABLED,
3892: pPUR_REQ_PO_ENABLED,
3893: pRESERVES_HARD_ENABLED, --pRESERVES_HARD_ENABLED,
3894: pRESOURCE_NRA_ENABLED,
3893: pRESERVES_HARD_ENABLED, --pRESERVES_HARD_ENABLED,
3894: pRESOURCE_NRA_ENABLED,
3895: pSafeStock_ENABLED,
3896: pSalesOrder_RTYPE, --pSalesOrder_RTYPE,
3897: MSC_UTIL.SYS_NO, --pSH_ENABLED,
3898: MSC_UTIL.SYS_NO, --pSOURCING_ENABLED,
3899: MSC_UTIL.SYS_NO, --pSUB_INV_ENABLED,
3900: pSUPPLIER_RESPONSE_ENABLED,
3901: pTP_CUSTOMER_ENABLED,
3894: pRESOURCE_NRA_ENABLED,
3895: pSafeStock_ENABLED,
3896: pSalesOrder_RTYPE, --pSalesOrder_RTYPE,
3897: MSC_UTIL.SYS_NO, --pSH_ENABLED,
3898: MSC_UTIL.SYS_NO, --pSOURCING_ENABLED,
3899: MSC_UTIL.SYS_NO, --pSUB_INV_ENABLED,
3900: pSUPPLIER_RESPONSE_ENABLED,
3901: pTP_CUSTOMER_ENABLED,
3902: pTP_VENDOR_ENABLED,
3895: pSafeStock_ENABLED,
3896: pSalesOrder_RTYPE, --pSalesOrder_RTYPE,
3897: MSC_UTIL.SYS_NO, --pSH_ENABLED,
3898: MSC_UTIL.SYS_NO, --pSOURCING_ENABLED,
3899: MSC_UTIL.SYS_NO, --pSUB_INV_ENABLED,
3900: pSUPPLIER_RESPONSE_ENABLED,
3901: pTP_CUSTOMER_ENABLED,
3902: pTP_VENDOR_ENABLED,
3903: MSC_UTIL.SYS_NO, --pTRIP_ENABLED,
3899: MSC_UTIL.SYS_NO, --pSUB_INV_ENABLED,
3900: pSUPPLIER_RESPONSE_ENABLED,
3901: pTP_CUSTOMER_ENABLED,
3902: pTP_VENDOR_ENABLED,
3903: MSC_UTIL.SYS_NO, --pTRIP_ENABLED,
3904: pUNIT_NO_ENABLED,
3905: pUOM_ENABLED,
3906: MSC_UTIL.SYS_NO, --pUSER_COMPANY_ENABLED,
3907: MSC_UTIL.SYS_NO, --pUSER_SUPPLY_DEMAND,
3902: pTP_VENDOR_ENABLED,
3903: MSC_UTIL.SYS_NO, --pTRIP_ENABLED,
3904: pUNIT_NO_ENABLED,
3905: pUOM_ENABLED,
3906: MSC_UTIL.SYS_NO, --pUSER_COMPANY_ENABLED,
3907: MSC_UTIL.SYS_NO, --pUSER_SUPPLY_DEMAND,
3908: pWIP_ENABLED
3909: );
3910:
3903: MSC_UTIL.SYS_NO, --pTRIP_ENABLED,
3904: pUNIT_NO_ENABLED,
3905: pUOM_ENABLED,
3906: MSC_UTIL.SYS_NO, --pUSER_COMPANY_ENABLED,
3907: MSC_UTIL.SYS_NO, --pUSER_SUPPLY_DEMAND,
3908: pWIP_ENABLED
3909: );
3910:
3911: end LAUNCH_MONITOR_DET_SCH;
3912:
3913:
3914: FUNCTION get_entity_lrn (p_instance_id in NUMBER,
3915: p_task_num in NUMBER,
3916: prec in MSC_UTIL.CollParamREC,
3917: p_lrnn in number,
3918: p_rtype in number,
3919: p_org_group in varchar2,
3920: p_entity_lrnn out NOCOPY number)
3992: lv_uom_lrn,
3993: lv_calendar_lrn,
3994: lv_trip_lrn
3995: from msc_instance_orgs
3996: WHERE ((p_org_group =MSC_UTIL.G_ALL_ORGANIZATIONS) or (org_group=p_org_group))
3997: AND sr_instance_id = p_instance_id;
3998: /* Earlier sales order is alwasy collected in netchange even if sales order is not selected for continuous collection
3999: in srs */
4000:
4014: from msc_instance_orgs
4015: WHERE organization_type <> 3
4016: AND sr_instance_id = p_instance_id;
4017:
4018: IF (prec.sales_order_flag = MSC_UTIL.SYS_YES ) AND
4019: p_task_num in (TASK_SALES_ORDER1,TASK_SALES_ORDER2,TASK_SALES_ORDER3,TASK_AHL) THEN
4020: if ((p_rtype <> MSC_UTIL.G_INCREMENTAL and p_rtype <> MSC_UTIL.G_CONT) ) then
4021: -- do complete/targeted for this entity
4022: p_entity_lrnn := -1;
4016: AND sr_instance_id = p_instance_id;
4017:
4018: IF (prec.sales_order_flag = MSC_UTIL.SYS_YES ) AND
4019: p_task_num in (TASK_SALES_ORDER1,TASK_SALES_ORDER2,TASK_SALES_ORDER3,TASK_AHL) THEN
4020: if ((p_rtype <> MSC_UTIL.G_INCREMENTAL and p_rtype <> MSC_UTIL.G_CONT) ) then
4021: -- do complete/targeted for this entity
4022: p_entity_lrnn := -1;
4023: else
4024: if (p_rtype = MSC_UTIL.G_CONT and prec.so_sn_flag = MSC_UTIL.SYS_TGT ) then
4020: if ((p_rtype <> MSC_UTIL.G_INCREMENTAL and p_rtype <> MSC_UTIL.G_CONT) ) then
4021: -- do complete/targeted for this entity
4022: p_entity_lrnn := -1;
4023: else
4024: if (p_rtype = MSC_UTIL.G_CONT and prec.so_sn_flag = MSC_UTIL.SYS_TGT ) then
4025: p_entity_lrnn := -1;
4026: else
4027: -- do netchange for this entity
4028: p_entity_lrnn := lv_so_lrn;
4034: RETURN TRUE;
4035: END IF;
4036:
4037:
4038: IF (p_rtype <> MSC_UTIL.G_INCREMENTAL AND p_rtype <> MSC_UTIL.G_CONT ) then /* Non-incremental refresh or Non-Continious Refresh*/
4039: -- do targeted/complete for this entity
4040: p_entity_lrnn := -1;
4041: RETURN TRUE;
4042: ELSE
4040: p_entity_lrnn := -1;
4041: RETURN TRUE;
4042: ELSE
4043:
4044: IF (prec.app_supp_cap_flag = MSC_UTIL.SYS_YES OR prec.app_supp_cap_flag =MSC_UTIL.ASL_YES_RETAIN_CP) AND p_task_num = TASK_SUPPLIER_CAPACITY THEN
4045: -- do net-change for this entity
4046: p_entity_lrnn := lv_sup_cap_lrn;
4047: RETURN TRUE;
4048: END IF;
4046: p_entity_lrnn := lv_sup_cap_lrn;
4047: RETURN TRUE;
4048: END IF;
4049:
4050: IF prec.bom_flag = MSC_UTIL.SYS_YES THEN
4051: IF ((p_task_num = TASK_BOM) or
4052: (p_task_num = TASK_ROUTING) or
4053: (p_task_num = TASK_OPER_NETWORKS) or
4054: (p_task_num = TASK_ROUTING_OPERATIONS) or
4076:
4077: END IF;
4078: END IF;
4079:
4080: IF prec.bor_flag = MSC_UTIL.SYS_YES AND ( p_task_num = TASK_BOR ) THEN
4081: -- do net-change for this entity
4082: p_entity_lrnn := lv_bor_lrn;
4083: RETURN TRUE;
4084:
4083: RETURN TRUE;
4084:
4085: END IF;
4086:
4087: IF prec.forecast_flag = MSC_UTIL.SYS_YES AND (p_task_num = TASK_LOAD_FORECAST) THEN
4088: -- both of the ones below will get executed
4089: -- MSC_CL_DEMAND_PULL.LOAD_FORECASTS
4090: -- MSC_CL_DEMAND_PULL.LOAD_ITEM_FORECASTS
4091:
4093: p_entity_lrnn := lv_forecast_lrn;
4094: RETURN TRUE;
4095: END IF;
4096:
4097: IF prec.item_flag = MSC_UTIL.SYS_YES THEN
4098: IF ((p_task_num = TASK_CATEGORY) or
4099: (p_task_num = TASK_ITEM1) or
4100: (p_task_num = TASK_ITEM2) or
4101: (p_task_num = TASK_ITEM3) ) THEN
4106: END IF;
4107: END IF;
4108:
4109:
4110: IF prec.mds_flag = MSC_UTIL.SYS_YES AND (p_task_num = TASK_MDS_DEMAND) THEN
4111: -- do net-change for this entity
4112: p_entity_lrnn := lv_mds_lrn;
4113: RETURN TRUE;
4114: END IF;
4113: RETURN TRUE;
4114: END IF;
4115:
4116:
4117: IF prec.mps_flag = MSC_UTIL.SYS_YES AND (p_task_num = TASK_MPS_SUPPLY) THEN
4118: -- do net-change for this entity
4119: p_entity_lrnn := lv_mps_lrn;
4120: RETURN TRUE;
4121: END IF;
4120: RETURN TRUE;
4121: END IF;
4122:
4123:
4124: IF prec.oh_flag = MSC_UTIL.SYS_YES AND (p_task_num = TASK_OH_SUPPLY) THEN
4125: -- do net-change for this entity
4126: p_entity_lrnn := lv_oh_lrn;
4127: RETURN TRUE;
4128: END IF;
4127: RETURN TRUE;
4128: END IF;
4129:
4130:
4131: -- IF prec.po_flag = MSC_UTIL.SYS_YES AND (p_task_num = TASK_PO_SUPPLY) THEN
4132: -- do net-change for this entity
4133: IF prec.po_flag = MSC_UTIL.SYS_YES THEN
4134: IF ( (p_task_num = TASK_PO_SUPPLY) or
4135: (p_task_num = TASK_PO_PO_SUPPLY) or
4129:
4130:
4131: -- IF prec.po_flag = MSC_UTIL.SYS_YES AND (p_task_num = TASK_PO_SUPPLY) THEN
4132: -- do net-change for this entity
4133: IF prec.po_flag = MSC_UTIL.SYS_YES THEN
4134: IF ( (p_task_num = TASK_PO_SUPPLY) or
4135: (p_task_num = TASK_PO_PO_SUPPLY) or
4136: (p_task_num = TASK_PO_REQ_SUPPLY) ) THEN
4137: p_entity_lrnn := lv_po_lrn;
4139: END IF ;
4140: END IF;
4141:
4142:
4143: IF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND ((p_task_num = TASK_USER_SUPPLY) OR (p_task_num = TASK_USER_DEMAND)) THEN
4144: -- do net-change for this entity
4145: p_entity_lrnn := lv_usd_lrn;
4146: RETURN TRUE;
4147: END IF;
4148:
4149:
4150: -- FOR MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY
4151: -- FOR MSC_CL_WIP_PULL.LOAD_WIP_DEMAND
4152: IF prec.wip_flag = MSC_UTIL.SYS_YES AND ( (p_task_num = TASK_WIP_SUPPLY) OR
4153: (p_task_num = TASK_WIP_DEMAND) OR (p_task_num = TASK_RESOURCE)
4154: OR (p_task_num = TASK_RESOURCE_INSTANCE) ) THEN /* ds change */
4155: -- do net-change for this entity
4156: p_entity_lrnn := lv_wip_lrn;
4157: RETURN TRUE;
4158: END IF;
4159:
4160:
4161: IF (prec.calendar_flag = MSC_UTIL.SYS_YES OR prec.resource_nra_flag in (1,3)) AND ( p_task_num = TASK_CALENDAR_DATE ) THEN
4162: -- do net-change for this entity
4163: p_entity_lrnn := lv_calendar_lrn;
4164: RETURN TRUE;
4165: END IF;
4164: RETURN TRUE;
4165: END IF;
4166:
4167:
4168: IF prec.reserves_flag = MSC_UTIL.SYS_YES AND ( p_task_num = TASK_HARD_RESERVATION ) THEN
4169: -- do net-change for this entity
4170: p_entity_lrnn := lv_rsv_lrn;
4171: RETURN TRUE;
4172: END IF;
4170: p_entity_lrnn := lv_rsv_lrn;
4171: RETURN TRUE;
4172: END IF;
4173:
4174: IF prec.saf_stock_flag = MSC_UTIL.SYS_YES AND ( p_task_num = TASK_SAFETY_STOCK ) THEN
4175: -- do net-change for this entity
4176: p_entity_lrnn := lv_saf_stock_lrn;
4177: RETURN TRUE;
4178: END IF;
4177: RETURN TRUE;
4178: END IF;
4179:
4180:
4181: IF prec.unit_number_flag = MSC_UTIL.SYS_YES AND ( p_task_num = TASK_UNIT_NUMBER ) THEN
4182: -- do net-change for this entity
4183: p_entity_lrnn := lv_unit_no_lrn;
4184: RETURN TRUE;
4185: END IF;
4183: p_entity_lrnn := lv_unit_no_lrn;
4184: RETURN TRUE;
4185: END IF;
4186:
4187: IF prec.uom_flag = MSC_UTIL.SYS_YES AND ( p_task_num = TASK_UOM ) THEN
4188: -- do net-change for this entity
4189: p_entity_lrnn := lv_uom_lrn;
4190: RETURN TRUE;
4191: END IF;
4190: RETURN TRUE;
4191: END IF;
4192:
4193:
4194: IF (prec.mds_flag = MSC_UTIL.SYS_YES OR prec.mps_flag = MSC_UTIL.SYS_YES) AND (p_task_num = TASK_SCHEDULE) THEN
4195: p_entity_lrnn := p_lrnn;
4196: RETURN TRUE;
4197: END IF;
4198:
4195: p_entity_lrnn := p_lrnn;
4196: RETURN TRUE;
4197: END IF;
4198:
4199: IF prec.atp_rules_flag = MSC_UTIL.SYS_YES AND (p_task_num = TASK_ATP_RULES) THEN p_entity_lrnn := p_lrnn;
4200: RETURN TRUE;
4201: END IF;
4202:
4203: IF prec.demand_class_flag = MSC_UTIL.SYS_YES AND ( p_task_num = TASK_DEMAND_CLASS ) THEN
4199: IF prec.atp_rules_flag = MSC_UTIL.SYS_YES AND (p_task_num = TASK_ATP_RULES) THEN p_entity_lrnn := p_lrnn;
4200: RETURN TRUE;
4201: END IF;
4202:
4203: IF prec.demand_class_flag = MSC_UTIL.SYS_YES AND ( p_task_num = TASK_DEMAND_CLASS ) THEN
4204: p_entity_lrnn := p_lrnn;
4205: RETURN TRUE;
4206: END IF;
4207:
4204: p_entity_lrnn := p_lrnn;
4205: RETURN TRUE;
4206: END IF;
4207:
4208: IF prec.kpi_bis_flag = MSC_UTIL.SYS_YES AND ( p_task_num = TASK_BIS ) THEN
4209: p_entity_lrnn := p_lrnn;
4210: RETURN TRUE;
4211: END IF;
4212:
4209: p_entity_lrnn := p_lrnn;
4210: RETURN TRUE;
4211: END IF;
4212:
4213: IF prec.parameter_flag = MSC_UTIL.SYS_YES AND ( p_task_num = TASK_PARAMETER ) THEN
4214: p_entity_lrnn := p_lrnn;
4215: RETURN TRUE;
4216: END IF;
4217:
4214: p_entity_lrnn := p_lrnn;
4215: RETURN TRUE;
4216: END IF;
4217:
4218: IF prec.planner_flag = MSC_UTIL.SYS_YES AND ( p_task_num = TASK_PLANNERS ) THEN
4219: p_entity_lrnn := p_lrnn;
4220: RETURN TRUE;
4221: END IF;
4222:
4219: p_entity_lrnn := p_lrnn;
4220: RETURN TRUE;
4221: END IF;
4222:
4223: IF prec.project_flag = MSC_UTIL.SYS_YES AND ( p_task_num = TASK_PROJECT ) THEN
4224: p_entity_lrnn := p_lrnn;
4225: RETURN TRUE;
4226: END IF;
4227:
4224: p_entity_lrnn := p_lrnn;
4225: RETURN TRUE;
4226: END IF;
4227:
4228: IF prec.sourcing_rule_flag = MSC_UTIL.SYS_YES AND ( p_task_num = TASK_SOURCING ) THEN
4229: p_entity_lrnn := p_lrnn;
4230: RETURN TRUE;
4231: END IF;
4232:
4229: p_entity_lrnn := p_lrnn;
4230: RETURN TRUE;
4231: END IF;
4232:
4233: IF prec.sub_inventory_flag = MSC_UTIL.SYS_YES AND ( p_task_num = TASK_SUB_INVENTORY ) THEN
4234: p_entity_lrnn := p_lrnn;
4235: RETURN TRUE;
4236: END IF;
4237:
4234: p_entity_lrnn := p_lrnn;
4235: RETURN TRUE;
4236: END IF;
4237:
4238: IF (prec.tp_customer_flag = MSC_UTIL.SYS_YES) OR (prec.tp_vendor_flag = MSC_UTIL.SYS_YES) THEN
4239: IF (p_task_num = TASK_TRADING_PARTNER) OR (p_task_num = TASK_BUYER_CONTACT) THEN
4240: p_entity_lrnn := p_lrnn;
4241: RETURN TRUE;
4242: END IF;
4241: RETURN TRUE;
4242: END IF;
4243: END IF;
4244:
4245: IF prec.item_subst_flag = MSC_UTIL.SYS_YES AND ( p_task_num = TASK_ITEM_SUBSTITUTES ) THEN
4246: p_entity_lrnn := p_lrnn;
4247: RETURN TRUE;
4248: END IF;
4249:
4253: RETURN TRUE;
4254: END IF;
4255: END IF;
4256:
4257: IF prec.trip_flag = MSC_UTIL.SYS_YES AND (p_task_num = TASK_TRIP) THEN
4258: -- do net-change for this entity
4259: p_entity_lrnn := lv_trip_lrn;
4260: RETURN TRUE;
4261: END IF;
4259: p_entity_lrnn := lv_trip_lrn;
4260: RETURN TRUE;
4261: END IF;
4262:
4263: IF prec.external_repair_flag = MSC_UTIL.SYS_YES AND (p_task_num = TASK_ERO) THEN
4264: -- do net-change for this entity
4265: p_entity_lrnn := lv_ERO_lrn;
4266: RETURN TRUE;
4267: END IF;
4265: p_entity_lrnn := lv_ERO_lrn;
4266: RETURN TRUE;
4267: END IF;
4268:
4269: IF prec.internal_repair_flag = MSC_UTIL.SYS_YES AND (p_task_num = TASK_IRO) THEN
4270: -- do net-change for this entity Bug 6126698
4271:
4272: p_entity_lrnn := lv_IRO_lrn;
4273:
4299: BEGIN
4300:
4301: ---===================== PULLING ====================
4302:
4303: IF pST_STATUS= MSC_UTIL.G_ST_PULLING THEN
4304:
4305: SELECT mai.ENABLE_FLAG,
4306: mai.ST_STATUS,
4307: DECODE(mai.LRTYPE,'C',MSC_UTIL.G_COMPLETE,'P',MSC_UTIL.G_PARTIAL,'I',MSC_UTIL.G_INCREMENTAL,'T',MSC_UTIL.G_CONT)
4303: IF pST_STATUS= MSC_UTIL.G_ST_PULLING THEN
4304:
4305: SELECT mai.ENABLE_FLAG,
4306: mai.ST_STATUS,
4307: DECODE(mai.LRTYPE,'C',MSC_UTIL.G_COMPLETE,'P',MSC_UTIL.G_PARTIAL,'I',MSC_UTIL.G_INCREMENTAL,'T',MSC_UTIL.G_CONT)
4308: INTO lv_instance_enabled, lv_staging_table_status,lv_refresh_type
4309: FROM MSC_APPS_INSTANCES mai
4310: WHERE mai.INSTANCE_ID= pINSTANCE_ID
4311: FOR UPDATE;
4309: FROM MSC_APPS_INSTANCES mai
4310: WHERE mai.INSTANCE_ID= pINSTANCE_ID
4311: FOR UPDATE;
4312:
4313: IF lv_instance_enabled= MSC_UTIL.SYS_YES THEN
4314:
4315: IF lv_staging_table_status= MSC_UTIL.G_ST_EMPTY THEN
4316: IF lv_refresh_type = MSC_UTIL.G_CONT THEN
4317: BEGIN
4311: FOR UPDATE;
4312:
4313: IF lv_instance_enabled= MSC_UTIL.SYS_YES THEN
4314:
4315: IF lv_staging_table_status= MSC_UTIL.G_ST_EMPTY THEN
4316: IF lv_refresh_type = MSC_UTIL.G_CONT THEN
4317: BEGIN
4318: SELECT so_sn_flag
4319: INTO lv_cont_coll_mode
4312:
4313: IF lv_instance_enabled= MSC_UTIL.SYS_YES THEN
4314:
4315: IF lv_staging_table_status= MSC_UTIL.G_ST_EMPTY THEN
4316: IF lv_refresh_type = MSC_UTIL.G_CONT THEN
4317: BEGIN
4318: SELECT so_sn_flag
4319: INTO lv_cont_coll_mode
4320: FROM msc_coll_parameters
4320: FROM msc_coll_parameters
4321: WHERE instance_id = pINSTANCE_ID;
4322: EXCEPTION
4323: WHEN others THEN
4324: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
4325: RETCODE := MSC_UTIL.G_ERROR;
4326: RETURN FALSE;
4327: END;
4328: END IF;
4321: WHERE instance_id = pINSTANCE_ID;
4322: EXCEPTION
4323: WHEN others THEN
4324: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
4325: RETCODE := MSC_UTIL.G_ERROR;
4326: RETURN FALSE;
4327: END;
4328: END IF;
4329: /* for bug:2605884 ,added the decode in updating so_tbl_status=2 if ODS ATP and complete
4328: END IF;
4329: /* for bug:2605884 ,added the decode in updating so_tbl_status=2 if ODS ATP and complete
4330: refresh of the sales orders */
4331: UPDATE MSC_APPS_INSTANCES
4332: SET ST_STATUS= MSC_UTIL.G_ST_PULLING,
4333: SO_TBL_STATUS= DECODE( pSO_RTYPE,MSC_UTIL.SYS_YES
4334: ,decode(lv_refresh_type,MSC_UTIL.G_INCREMENTAL,MSC_UTIL.SYS_YES,
4335: decode(lv_inv_ctp_val,5,decode(lv_refresh_type,
4336: MSC_UTIL.G_CONT ,decode(lv_cont_coll_mode,
4329: /* for bug:2605884 ,added the decode in updating so_tbl_status=2 if ODS ATP and complete
4330: refresh of the sales orders */
4331: UPDATE MSC_APPS_INSTANCES
4332: SET ST_STATUS= MSC_UTIL.G_ST_PULLING,
4333: SO_TBL_STATUS= DECODE( pSO_RTYPE,MSC_UTIL.SYS_YES
4334: ,decode(lv_refresh_type,MSC_UTIL.G_INCREMENTAL,MSC_UTIL.SYS_YES,
4335: decode(lv_inv_ctp_val,5,decode(lv_refresh_type,
4336: MSC_UTIL.G_CONT ,decode(lv_cont_coll_mode,
4337: MSC_UTIL.SYS_INCR,MSC_UTIL.SYS_YES,
4330: refresh of the sales orders */
4331: UPDATE MSC_APPS_INSTANCES
4332: SET ST_STATUS= MSC_UTIL.G_ST_PULLING,
4333: SO_TBL_STATUS= DECODE( pSO_RTYPE,MSC_UTIL.SYS_YES
4334: ,decode(lv_refresh_type,MSC_UTIL.G_INCREMENTAL,MSC_UTIL.SYS_YES,
4335: decode(lv_inv_ctp_val,5,decode(lv_refresh_type,
4336: MSC_UTIL.G_CONT ,decode(lv_cont_coll_mode,
4337: MSC_UTIL.SYS_INCR,MSC_UTIL.SYS_YES,
4338: MSC_UTIL.SYS_NO,MSC_UTIL.SYS_YES,
4332: SET ST_STATUS= MSC_UTIL.G_ST_PULLING,
4333: SO_TBL_STATUS= DECODE( pSO_RTYPE,MSC_UTIL.SYS_YES
4334: ,decode(lv_refresh_type,MSC_UTIL.G_INCREMENTAL,MSC_UTIL.SYS_YES,
4335: decode(lv_inv_ctp_val,5,decode(lv_refresh_type,
4336: MSC_UTIL.G_CONT ,decode(lv_cont_coll_mode,
4337: MSC_UTIL.SYS_INCR,MSC_UTIL.SYS_YES,
4338: MSC_UTIL.SYS_NO,MSC_UTIL.SYS_YES,
4339: MSC_UTIL.SYS_NO),
4340: MSC_UTIL.SYS_NO),
4333: SO_TBL_STATUS= DECODE( pSO_RTYPE,MSC_UTIL.SYS_YES
4334: ,decode(lv_refresh_type,MSC_UTIL.G_INCREMENTAL,MSC_UTIL.SYS_YES,
4335: decode(lv_inv_ctp_val,5,decode(lv_refresh_type,
4336: MSC_UTIL.G_CONT ,decode(lv_cont_coll_mode,
4337: MSC_UTIL.SYS_INCR,MSC_UTIL.SYS_YES,
4338: MSC_UTIL.SYS_NO,MSC_UTIL.SYS_YES,
4339: MSC_UTIL.SYS_NO),
4340: MSC_UTIL.SYS_NO),
4341: MSC_UTIL.SYS_YES)
4334: ,decode(lv_refresh_type,MSC_UTIL.G_INCREMENTAL,MSC_UTIL.SYS_YES,
4335: decode(lv_inv_ctp_val,5,decode(lv_refresh_type,
4336: MSC_UTIL.G_CONT ,decode(lv_cont_coll_mode,
4337: MSC_UTIL.SYS_INCR,MSC_UTIL.SYS_YES,
4338: MSC_UTIL.SYS_NO,MSC_UTIL.SYS_YES,
4339: MSC_UTIL.SYS_NO),
4340: MSC_UTIL.SYS_NO),
4341: MSC_UTIL.SYS_YES)
4342: )
4335: decode(lv_inv_ctp_val,5,decode(lv_refresh_type,
4336: MSC_UTIL.G_CONT ,decode(lv_cont_coll_mode,
4337: MSC_UTIL.SYS_INCR,MSC_UTIL.SYS_YES,
4338: MSC_UTIL.SYS_NO,MSC_UTIL.SYS_YES,
4339: MSC_UTIL.SYS_NO),
4340: MSC_UTIL.SYS_NO),
4341: MSC_UTIL.SYS_YES)
4342: )
4343: ,MSC_UTIL.SYS_YES),
4336: MSC_UTIL.G_CONT ,decode(lv_cont_coll_mode,
4337: MSC_UTIL.SYS_INCR,MSC_UTIL.SYS_YES,
4338: MSC_UTIL.SYS_NO,MSC_UTIL.SYS_YES,
4339: MSC_UTIL.SYS_NO),
4340: MSC_UTIL.SYS_NO),
4341: MSC_UTIL.SYS_YES)
4342: )
4343: ,MSC_UTIL.SYS_YES),
4344: LAST_UPDATE_DATE= SYSDATE,
4337: MSC_UTIL.SYS_INCR,MSC_UTIL.SYS_YES,
4338: MSC_UTIL.SYS_NO,MSC_UTIL.SYS_YES,
4339: MSC_UTIL.SYS_NO),
4340: MSC_UTIL.SYS_NO),
4341: MSC_UTIL.SYS_YES)
4342: )
4343: ,MSC_UTIL.SYS_YES),
4344: LAST_UPDATE_DATE= SYSDATE,
4345: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4339: MSC_UTIL.SYS_NO),
4340: MSC_UTIL.SYS_NO),
4341: MSC_UTIL.SYS_YES)
4342: )
4343: ,MSC_UTIL.SYS_YES),
4344: LAST_UPDATE_DATE= SYSDATE,
4345: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4346: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID
4347: WHERE INSTANCE_ID= pINSTANCE_ID;
4345: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4346: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID
4347: WHERE INSTANCE_ID= pINSTANCE_ID;
4348:
4349: RETCODE := MSC_UTIL.G_SUCCESS;
4350:
4351: RETURN TRUE;
4352:
4353: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_PULLING THEN
4349: RETCODE := MSC_UTIL.G_SUCCESS;
4350:
4351: RETURN TRUE;
4352:
4353: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_PULLING THEN
4354:
4355: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_PULLING');
4356: ERRBUF:= FND_MESSAGE.GET;
4357:
4354:
4355: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_PULLING');
4356: ERRBUF:= FND_MESSAGE.GET;
4357:
4358: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_READY THEN
4359:
4360: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_DATA_EXIST');
4361: ERRBUF:= FND_MESSAGE.GET;
4362:
4359:
4360: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_DATA_EXIST');
4361: ERRBUF:= FND_MESSAGE.GET;
4362:
4363: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_COLLECTING THEN
4364:
4365: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_LOADING');
4366: ERRBUF:= FND_MESSAGE.GET;
4367:
4364:
4365: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_LOADING');
4366: ERRBUF:= FND_MESSAGE.GET;
4367:
4368: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_PURGING THEN
4369:
4370: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_PURGING');
4371: ERRBUF:= FND_MESSAGE.GET;
4372:
4371: ERRBUF:= FND_MESSAGE.GET;
4372:
4373: END IF;
4374:
4375: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
4376: RETCODE := MSC_UTIL.G_ERROR;
4377: RETURN FALSE;
4378:
4379: ELSE
4372:
4373: END IF;
4374:
4375: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
4376: RETCODE := MSC_UTIL.G_ERROR;
4377: RETURN FALSE;
4378:
4379: ELSE
4380: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INSTANCE_INACTIVE');
4378:
4379: ELSE
4380: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INSTANCE_INACTIVE');
4381: ERRBUF:= FND_MESSAGE.GET;
4382: RETCODE := MSC_UTIL.G_ERROR;
4383: RETURN FALSE;
4384: END IF;
4385:
4386: ---===================== EMPTY ====================
4383: RETURN FALSE;
4384: END IF;
4385:
4386: ---===================== EMPTY ====================
4387: ELSIF pST_STATUS= MSC_UTIL.G_ST_EMPTY THEN
4388:
4389: UPDATE MSC_APPS_INSTANCES
4390: SET ST_STATUS= MSC_UTIL.G_ST_EMPTY,
4391: LAST_UPDATE_DATE= SYSDATE,
4386: ---===================== EMPTY ====================
4387: ELSIF pST_STATUS= MSC_UTIL.G_ST_EMPTY THEN
4388:
4389: UPDATE MSC_APPS_INSTANCES
4390: SET ST_STATUS= MSC_UTIL.G_ST_EMPTY,
4391: LAST_UPDATE_DATE= SYSDATE,
4392: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4393: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID
4394: WHERE INSTANCE_ID= pINSTANCE_ID;
4392: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4393: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID
4394: WHERE INSTANCE_ID= pINSTANCE_ID;
4395:
4396: RETCODE:= MSC_UTIL.G_SUCCESS;
4397: RETURN TRUE;
4398:
4399: ---===================== READY ====================
4400: ELSIF pST_STATUS= MSC_UTIL.G_ST_READY THEN
4396: RETCODE:= MSC_UTIL.G_SUCCESS;
4397: RETURN TRUE;
4398:
4399: ---===================== READY ====================
4400: ELSIF pST_STATUS= MSC_UTIL.G_ST_READY THEN
4401:
4402: UPDATE MSC_APPS_INSTANCES
4403: SET ST_STATUS= MSC_UTIL.G_ST_READY,
4404: LAST_UPDATE_DATE= SYSDATE,
4399: ---===================== READY ====================
4400: ELSIF pST_STATUS= MSC_UTIL.G_ST_READY THEN
4401:
4402: UPDATE MSC_APPS_INSTANCES
4403: SET ST_STATUS= MSC_UTIL.G_ST_READY,
4404: LAST_UPDATE_DATE= SYSDATE,
4405: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4406: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID
4407: WHERE INSTANCE_ID= pINSTANCE_ID;
4405: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4406: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID
4407: WHERE INSTANCE_ID= pINSTANCE_ID;
4408:
4409: RETCODE:= MSC_UTIL.G_SUCCESS;
4410: RETURN TRUE;
4411:
4412: END IF;
4413:
4435: pRTYPE IN NUMBER,
4436: pSO_RTYPE IN NUMBER,
4437: pLRN IN NUMBER,
4438: pSOURCING_ENABLED IN NUMBER,
4439: prec IN MSC_UTIL.CollParamREC)
4440: IS
4441: BEGIN
4442:
4443: --- PREPLACE CHANGE START ---
4443: --- PREPLACE CHANGE START ---
4444: /*
4445: UPDATE MSC_APPS_INSTANCES
4446: SET APPS_LRN= pLRN,
4447: LRTYPE= DECODE( pRTYPE, MSC_UTIL.SYS_YES, 'C', 'I'),
4448: SO_LRTYPE= DECODE( pSO_RTYPE, MSC_UTIL.SYS_YES, 'C', 'I'),
4449: LRID= msc_cl_refresh_s.currval,
4450: CLEANSED_FLAG= MSC_UTIL.SYS_NO,
4451: LAST_UPDATE_DATE= SYSDATE,
4444: /*
4445: UPDATE MSC_APPS_INSTANCES
4446: SET APPS_LRN= pLRN,
4447: LRTYPE= DECODE( pRTYPE, MSC_UTIL.SYS_YES, 'C', 'I'),
4448: SO_LRTYPE= DECODE( pSO_RTYPE, MSC_UTIL.SYS_YES, 'C', 'I'),
4449: LRID= msc_cl_refresh_s.currval,
4450: CLEANSED_FLAG= MSC_UTIL.SYS_NO,
4451: LAST_UPDATE_DATE= SYSDATE,
4452: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4446: SET APPS_LRN= pLRN,
4447: LRTYPE= DECODE( pRTYPE, MSC_UTIL.SYS_YES, 'C', 'I'),
4448: SO_LRTYPE= DECODE( pSO_RTYPE, MSC_UTIL.SYS_YES, 'C', 'I'),
4449: LRID= msc_cl_refresh_s.currval,
4450: CLEANSED_FLAG= MSC_UTIL.SYS_NO,
4451: LAST_UPDATE_DATE= SYSDATE,
4452: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4453: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID,
4454: LR_SOURCING_FLAG = pSOURCING_ENABLED
4456: */
4457:
4458: UPDATE MSC_APPS_INSTANCES
4459: SET APPS_LRN= pLRN,
4460: LRTYPE= DECODE( pRTYPE, MSC_UTIL.G_COMPLETE, 'C',
4461: MSC_UTIL.G_INCREMENTAL, 'I',
4462: MSC_UTIL.G_PARTIAL, 'P',
4463: MSC_UTIL.G_CONT, 'T'),
4464: SO_LRTYPE= DECODE( pSO_RTYPE, MSC_UTIL.SYS_YES, DECODE(pRTYPE,MSC_UTIL.G_INCREMENTAL,'I', 'C'), 'I'),
4457:
4458: UPDATE MSC_APPS_INSTANCES
4459: SET APPS_LRN= pLRN,
4460: LRTYPE= DECODE( pRTYPE, MSC_UTIL.G_COMPLETE, 'C',
4461: MSC_UTIL.G_INCREMENTAL, 'I',
4462: MSC_UTIL.G_PARTIAL, 'P',
4463: MSC_UTIL.G_CONT, 'T'),
4464: SO_LRTYPE= DECODE( pSO_RTYPE, MSC_UTIL.SYS_YES, DECODE(pRTYPE,MSC_UTIL.G_INCREMENTAL,'I', 'C'), 'I'),
4465: LRID= msc_cl_refresh_s.currval,
4458: UPDATE MSC_APPS_INSTANCES
4459: SET APPS_LRN= pLRN,
4460: LRTYPE= DECODE( pRTYPE, MSC_UTIL.G_COMPLETE, 'C',
4461: MSC_UTIL.G_INCREMENTAL, 'I',
4462: MSC_UTIL.G_PARTIAL, 'P',
4463: MSC_UTIL.G_CONT, 'T'),
4464: SO_LRTYPE= DECODE( pSO_RTYPE, MSC_UTIL.SYS_YES, DECODE(pRTYPE,MSC_UTIL.G_INCREMENTAL,'I', 'C'), 'I'),
4465: LRID= msc_cl_refresh_s.currval,
4466: CLEANSED_FLAG= MSC_UTIL.SYS_NO,
4459: SET APPS_LRN= pLRN,
4460: LRTYPE= DECODE( pRTYPE, MSC_UTIL.G_COMPLETE, 'C',
4461: MSC_UTIL.G_INCREMENTAL, 'I',
4462: MSC_UTIL.G_PARTIAL, 'P',
4463: MSC_UTIL.G_CONT, 'T'),
4464: SO_LRTYPE= DECODE( pSO_RTYPE, MSC_UTIL.SYS_YES, DECODE(pRTYPE,MSC_UTIL.G_INCREMENTAL,'I', 'C'), 'I'),
4465: LRID= msc_cl_refresh_s.currval,
4466: CLEANSED_FLAG= MSC_UTIL.SYS_NO,
4467: LAST_UPDATE_DATE= SYSDATE,
4460: LRTYPE= DECODE( pRTYPE, MSC_UTIL.G_COMPLETE, 'C',
4461: MSC_UTIL.G_INCREMENTAL, 'I',
4462: MSC_UTIL.G_PARTIAL, 'P',
4463: MSC_UTIL.G_CONT, 'T'),
4464: SO_LRTYPE= DECODE( pSO_RTYPE, MSC_UTIL.SYS_YES, DECODE(pRTYPE,MSC_UTIL.G_INCREMENTAL,'I', 'C'), 'I'),
4465: LRID= msc_cl_refresh_s.currval,
4466: CLEANSED_FLAG= MSC_UTIL.SYS_NO,
4467: LAST_UPDATE_DATE= SYSDATE,
4468: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4462: MSC_UTIL.G_PARTIAL, 'P',
4463: MSC_UTIL.G_CONT, 'T'),
4464: SO_LRTYPE= DECODE( pSO_RTYPE, MSC_UTIL.SYS_YES, DECODE(pRTYPE,MSC_UTIL.G_INCREMENTAL,'I', 'C'), 'I'),
4465: LRID= msc_cl_refresh_s.currval,
4466: CLEANSED_FLAG= MSC_UTIL.SYS_NO,
4467: LAST_UPDATE_DATE= SYSDATE,
4468: LAST_UPDATED_BY= FND_GLOBAL.USER_ID,
4469: REQUEST_ID= FND_GLOBAL.CONC_REQUEST_ID,
4470: LR_SOURCING_FLAG = pSOURCING_ENABLED
4491: TRIP_LRN = decode(prec.trip_flag ,1,pLRN,TRIP_LRN ),
4492: LAST_SUCC_RES_REF_TIME = decode(prec.reserves_flag ,1,sysdate,g_LAST_SUCC_RES_REF_TIME),
4493: ORG_LRN = pLRN
4494: WHERE SR_INSTANCE_ID= pINSTANCE_ID
4495: AND (pORG_GROUP= MSC_UTIL.G_ALL_ORGANIZATIONS OR ORG_GROUP=pORG_GROUP);
4496:
4497: IF (prec.external_repair_flag = MSC_UTIL.SYS_YES AND MSC_UTIL.G_COLLECT_SRP_DATA = 'Y') THEN
4498: UPDATE MSC_INSTANCE_ORGS
4499: SET ERO_LRN = decode(prec.external_repair_flag ,1,pLRN,ERO_LRN )
4493: ORG_LRN = pLRN
4494: WHERE SR_INSTANCE_ID= pINSTANCE_ID
4495: AND (pORG_GROUP= MSC_UTIL.G_ALL_ORGANIZATIONS OR ORG_GROUP=pORG_GROUP);
4496:
4497: IF (prec.external_repair_flag = MSC_UTIL.SYS_YES AND MSC_UTIL.G_COLLECT_SRP_DATA = 'Y') THEN
4498: UPDATE MSC_INSTANCE_ORGS
4499: SET ERO_LRN = decode(prec.external_repair_flag ,1,pLRN,ERO_LRN )
4500: WHERE SR_INSTANCE_ID= pINSTANCE_ID
4501: AND organization_type <> 3;
4500: WHERE SR_INSTANCE_ID= pINSTANCE_ID
4501: AND organization_type <> 3;
4502: END IF;
4503:
4504: IF (prec.internal_repair_flag = MSC_UTIL.SYS_YES AND MSC_UTIL.G_COLLECT_SRP_DATA = 'Y' ) THEN
4505: UPDATE MSC_INSTANCE_ORGS
4506: SET
4507: IRO_LRN = decode(prec.internal_repair_flag ,1,pLRN,IRO_LRN ),
4508: LAST_SUCC_IRO_REF_TIME = sysdate
4509: WHERE SR_INSTANCE_ID= pINSTANCE_ID
4510: AND organization_type = 3;
4511: END IF;
4512:
4513: IF ((prec.calendar_flag = MSC_UTIL.SYS_YES) OR (prec.resource_nra_flag in (1,3))) THEN
4514: UPDATE MSC_INSTANCE_ORGS
4515: SET CALENDAR_LRN= pLRN
4516: WHERE SR_INSTANCE_ID= pINSTANCE_ID
4517: AND (pORG_GROUP= MSC_UTIL.G_ALL_ORGANIZATIONS OR ORG_GROUP=pORG_GROUP);
4513: IF ((prec.calendar_flag = MSC_UTIL.SYS_YES) OR (prec.resource_nra_flag in (1,3))) THEN
4514: UPDATE MSC_INSTANCE_ORGS
4515: SET CALENDAR_LRN= pLRN
4516: WHERE SR_INSTANCE_ID= pINSTANCE_ID
4517: AND (pORG_GROUP= MSC_UTIL.G_ALL_ORGANIZATIONS OR ORG_GROUP=pORG_GROUP);
4518: END IF;
4519:
4520: /* Sales orders are not collected during Targeted and Continious Refresh if Sales Orders = No, so we will not update SO_LRN in this case */
4521: IF ( (pRTYPE = MSC_UTIL.G_PARTIAL OR pRTYPE = MSC_UTIL.G_CONT) AND prec.sales_order_flag = MSC_UTIL.SYS_NO ) THEN
4517: AND (pORG_GROUP= MSC_UTIL.G_ALL_ORGANIZATIONS OR ORG_GROUP=pORG_GROUP);
4518: END IF;
4519:
4520: /* Sales orders are not collected during Targeted and Continious Refresh if Sales Orders = No, so we will not update SO_LRN in this case */
4521: IF ( (pRTYPE = MSC_UTIL.G_PARTIAL OR pRTYPE = MSC_UTIL.G_CONT) AND prec.sales_order_flag = MSC_UTIL.SYS_NO ) THEN
4522: NULL;
4523: ELSE
4524: UPDATE MSC_INSTANCE_ORGS
4525: SET SO_LRN= pLRN
4523: ELSE
4524: UPDATE MSC_INSTANCE_ORGS
4525: SET SO_LRN= pLRN
4526: WHERE SR_INSTANCE_ID= pINSTANCE_ID
4527: AND (pORG_GROUP= MSC_UTIL.G_ALL_ORGANIZATIONS OR ORG_GROUP=pORG_GROUP);
4528: END IF;
4529:
4530:
4531: END;
4536:
4537: /* NCPerf */
4538: FUNCTION Q_PARTIAL_TASK (p_instance_id NUMBER,
4539: p_task_num NUMBER,
4540: prec MSC_UTIL.CollParamREC,
4541: p_collection_type NUMBER)
4542:
4543: RETURN BOOLEAN AS
4544:
4543: RETURN BOOLEAN AS
4544:
4545: BEGIN
4546:
4547: IF (prec.app_supp_cap_flag = MSC_UTIL.ASL_YES or prec.app_supp_cap_flag = MSC_UTIL.ASL_YES_RETAIN_CP ) THEN
4548: IF p_task_num = TASK_SUPPLIER_CAPACITY THEN
4549: RETURN TRUE;
4550: END IF;
4551: END IF;
4549: RETURN TRUE;
4550: END IF;
4551: END IF;
4552:
4553: IF prec.atp_rules_flag = MSC_UTIL.SYS_YES THEN
4554: IF p_task_num = TASK_ATP_RULES THEN
4555: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4556: return false; -- NCP: do not call TASK_ATP_RULES in net change
4557: else
4551: END IF;
4552:
4553: IF prec.atp_rules_flag = MSC_UTIL.SYS_YES THEN
4554: IF p_task_num = TASK_ATP_RULES THEN
4555: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4556: return false; -- NCP: do not call TASK_ATP_RULES in net change
4557: else
4558: RETURN TRUE;
4559: end if;
4559: end if;
4560: END IF;
4561: END IF;
4562:
4563: IF prec.bom_flag = MSC_UTIL.SYS_YES THEN
4564: IF ((p_task_num = TASK_BOM) or
4565: (p_task_num = TASK_ROUTING) or
4566: (p_task_num = TASK_OPER_NETWORKS) or
4567: (p_task_num = TASK_ROUTING_OPERATIONS) or
4585: RETURN TRUE;
4586: END IF;
4587: END IF;
4588:
4589: IF prec.bor_flag = MSC_UTIL.SYS_YES THEN
4590: IF ( p_task_num = TASK_BOR ) THEN
4591: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4592: return false; -- NCP: do not call TASK_BOR in net change
4593: else
4587: END IF;
4588:
4589: IF prec.bor_flag = MSC_UTIL.SYS_YES THEN
4590: IF ( p_task_num = TASK_BOR ) THEN
4591: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4592: return false; -- NCP: do not call TASK_BOR in net change
4593: else
4594: RETURN TRUE;
4595: end if;
4595: end if;
4596: END IF;
4597: END IF;
4598:
4599: IF prec.calendar_flag = MSC_UTIL.SYS_YES THEN
4600: IF ( p_task_num = TASK_CALENDAR_DATE ) THEN
4601: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4602: return false; -- NCP: do not call TASK_CALENDAR_DATE in net change
4603: else
4597: END IF;
4598:
4599: IF prec.calendar_flag = MSC_UTIL.SYS_YES THEN
4600: IF ( p_task_num = TASK_CALENDAR_DATE ) THEN
4601: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4602: return false; -- NCP: do not call TASK_CALENDAR_DATE in net change
4603: else
4604: RETURN TRUE;
4605: end if;
4605: end if;
4606: END IF;
4607: END IF;
4608:
4609: IF prec.demand_class_flag = MSC_UTIL.SYS_YES THEN
4610: IF ( p_task_num = TASK_DEMAND_CLASS ) THEN
4611: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4612: return false; -- NCP: do not call TASK_DEMAND_CLASS in net change
4613: else
4607: END IF;
4608:
4609: IF prec.demand_class_flag = MSC_UTIL.SYS_YES THEN
4610: IF ( p_task_num = TASK_DEMAND_CLASS ) THEN
4611: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4612: return false; -- NCP: do not call TASK_DEMAND_CLASS in net change
4613: else
4614: RETURN TRUE;
4615: end if;
4615: end if;
4616: END IF;
4617: END IF;
4618:
4619: IF prec.forecast_flag = MSC_UTIL.SYS_YES THEN
4620: IF (p_task_num = TASK_LOAD_FORECAST) THEN
4621: -- both of the ones below will get executed
4622: -- MSC_CL_DEMAND_PULL.LOAD_FORECASTS
4623: -- MSC_CL_DEMAND_PULL.LOAD_ITEM_FORECASTS
4624: RETURN TRUE;
4625: END IF;
4626: END IF;
4627:
4628: IF prec.item_flag = MSC_UTIL.SYS_YES THEN
4629: IF ((p_task_num = TASK_CATEGORY) or
4630: (p_task_num = TASK_ITEM1) or
4631: (p_task_num = TASK_ITEM2) or
4632: (p_task_num = TASK_ITEM3) or
4639: -- TASK_BUYER_CONTACT now moved to combine
4640: -- with TRADING_PARTNER since ODS LOAD
4641: -- loads contact information through MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER.
4642:
4643: IF prec.kpi_bis_flag = MSC_UTIL.SYS_YES THEN
4644: IF ( p_task_num = TASK_BIS ) THEN
4645: RETURN TRUE;
4646: END IF;
4647: END IF;
4645: RETURN TRUE;
4646: END IF;
4647: END IF;
4648:
4649: IF prec.mds_flag = MSC_UTIL.SYS_YES THEN
4650: IF ((p_task_num = TASK_MDS_DEMAND) OR
4651: (p_task_num = TASK_SCHEDULE) ) THEN
4652: RETURN TRUE;
4653: END IF;
4652: RETURN TRUE;
4653: END IF;
4654: END IF;
4655:
4656: IF prec.mps_flag = MSC_UTIL.SYS_YES THEN
4657: IF ((p_task_num = TASK_MPS_SUPPLY) OR
4658: (p_task_num = TASK_SCHEDULE) ) THEN
4659: RETURN TRUE;
4660: END IF;
4659: RETURN TRUE;
4660: END IF;
4661: END IF;
4662:
4663: IF prec.oh_flag = MSC_UTIL.SYS_YES THEN
4664: IF p_task_num = TASK_OH_SUPPLY THEN
4665: RETURN TRUE;
4666: END IF;
4667: END IF;
4665: RETURN TRUE;
4666: END IF;
4667: END IF;
4668:
4669: IF prec.parameter_flag = MSC_UTIL.SYS_YES THEN
4670: IF p_task_num = TASK_PARAMETER THEN
4671: RETURN TRUE;
4672: END IF;
4673: END IF;
4671: RETURN TRUE;
4672: END IF;
4673: END IF;
4674:
4675: IF prec.planner_flag = MSC_UTIL.SYS_YES THEN
4676: IF p_task_num = TASK_PLANNERS THEN
4677: RETURN TRUE;
4678: END IF;
4679: END IF;
4677: RETURN TRUE;
4678: END IF;
4679: END IF;
4680:
4681: IF prec.project_flag = MSC_UTIL.SYS_YES THEN
4682: IF p_task_num = TASK_PROJECT THEN
4683: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4684: return false; -- NCP: do not call TASK_PROJECT in net change
4685: else
4679: END IF;
4680:
4681: IF prec.project_flag = MSC_UTIL.SYS_YES THEN
4682: IF p_task_num = TASK_PROJECT THEN
4683: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4684: return false; -- NCP: do not call TASK_PROJECT in net change
4685: else
4686: RETURN TRUE;
4687: end if;
4687: end if;
4688: END IF;
4689: END IF;
4690:
4691: IF prec.po_flag = MSC_UTIL.SYS_YES THEN
4692: -- IF p_task_num = TASK_PO_SUPPLY THEN
4693: IF ((p_task_num = TASK_PO_SUPPLY) or
4694: (p_task_num = TASK_PO_PO_SUPPLY) or
4695: (p_task_num = TASK_PO_REQ_SUPPLY)) THEN
4696: RETURN TRUE;
4697: END IF;
4698: END IF;
4699:
4700: IF prec.reserves_flag = MSC_UTIL.SYS_YES THEN
4701: IF ((p_task_num = TASK_HARD_RESERVATION) OR
4702: (p_task_num = TASK_CMRO_SUPP_RESRV)) THEN
4703: -- FOR MSC_CL_DEMAND_PULL.LOAD_HARD_RESERVATION
4704: RETURN TRUE;
4714: RETURN TRUE;
4715: END IF;
4716: END IF;
4717:
4718: IF prec.saf_stock_flag = MSC_UTIL.SYS_YES THEN
4719: IF p_task_num = TASK_SAFETY_STOCK THEN
4720: RETURN TRUE;
4721: END IF;
4722: END IF;
4720: RETURN TRUE;
4721: END IF;
4722: END IF;
4723:
4724: IF prec.sales_order_flag = MSC_UTIL.SYS_YES THEN
4725: IF (p_task_num = TASK_SALES_ORDER1
4726: OR p_task_num = TASK_SALES_ORDER2
4727: OR p_task_num = TASK_SALES_ORDER3
4728: OR p_task_num = TASK_AHL) THEN
4741: IF ((p_task_num = TASK_SALES_ORDER1
4742: OR p_task_num = TASK_SALES_ORDER2
4743: OR p_task_num = TASK_SALES_ORDER3
4744: OR p_task_num = TASK_AHL) and
4745: (p_collection_type = MSC_UTIL.G_INCREMENTAL)) THEN
4746: RETURN TRUE;
4747: END IF;
4748: */
4749:
4746: RETURN TRUE;
4747: END IF;
4748: */
4749:
4750: IF prec.sourcing_rule_flag = MSC_UTIL.SYS_YES THEN
4751: IF p_task_num = TASK_SOURCING THEN
4752: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4753: return false; -- NCP: do not call TASK_SOURCING in net change
4754: else
4748: */
4749:
4750: IF prec.sourcing_rule_flag = MSC_UTIL.SYS_YES THEN
4751: IF p_task_num = TASK_SOURCING THEN
4752: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4753: return false; -- NCP: do not call TASK_SOURCING in net change
4754: else
4755: RETURN TRUE;
4756: end if;
4761: -- NOTE : There is no procedure that deals
4762: -- with Sourcing History in Data Pull,
4763: -- which completely belongs to ODS Load.
4764:
4765: IF prec.sub_inventory_flag = MSC_UTIL.SYS_YES THEN
4766: IF p_task_num = TASK_SUB_INVENTORY THEN
4767: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4768: return false; -- NCP: do not call TASK_SUB_INVENTORY in net change
4769: else
4763: -- which completely belongs to ODS Load.
4764:
4765: IF prec.sub_inventory_flag = MSC_UTIL.SYS_YES THEN
4766: IF p_task_num = TASK_SUB_INVENTORY THEN
4767: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4768: return false; -- NCP: do not call TASK_SUB_INVENTORY in net change
4769: else
4770: RETURN TRUE;
4771: end if;
4775: -- TASK_BUYER_CONTACT now moved to combine
4776: -- with TRADING_PARTNER since ODS LOAD
4777: -- loads contact information through MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER.
4778:
4779: IF prec.tp_customer_flag = MSC_UTIL.SYS_YES OR prec.tp_vendor_flag = MSC_UTIL.SYS_YES THEN
4780: IF ((p_task_num = TASK_TRADING_PARTNER) and
4781: (p_collection_type = MSC_UTIL.G_INCREMENTAL)) then
4782: return false; -- NCP: do not call TASK_TRADING_PARTNER in net change
4783: ELSIF ((p_task_num = TASK_TRADING_PARTNER) or
4777: -- loads contact information through MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER.
4778:
4779: IF prec.tp_customer_flag = MSC_UTIL.SYS_YES OR prec.tp_vendor_flag = MSC_UTIL.SYS_YES THEN
4780: IF ((p_task_num = TASK_TRADING_PARTNER) and
4781: (p_collection_type = MSC_UTIL.G_INCREMENTAL)) then
4782: return false; -- NCP: do not call TASK_TRADING_PARTNER in net change
4783: ELSIF ((p_task_num = TASK_TRADING_PARTNER) or
4784: (p_task_num = TASK_BUYER_CONTACT) ) THEN
4785: RETURN TRUE;
4785: RETURN TRUE;
4786: END IF;
4787: END IF;
4788:
4789: IF prec.unit_number_flag = MSC_UTIL.SYS_YES THEN
4790: IF p_task_num = TASK_UNIT_NUMBER THEN
4791: RETURN TRUE;
4792: END IF;
4793: END IF;
4791: RETURN TRUE;
4792: END IF;
4793: END IF;
4794:
4795: IF prec.uom_flag = MSC_UTIL.SYS_YES THEN
4796: IF p_task_num = TASK_UOM THEN
4797: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4798: return false; -- NCP: do not call TASK_UOM in net change
4799: else
4793: END IF;
4794:
4795: IF prec.uom_flag = MSC_UTIL.SYS_YES THEN
4796: IF p_task_num = TASK_UOM THEN
4797: if (p_collection_type = MSC_UTIL.G_INCREMENTAL) then
4798: return false; -- NCP: do not call TASK_UOM in net change
4799: else
4800: RETURN TRUE;
4801: end if;
4802: END IF;
4803: END IF;
4804:
4805: -- Added this task for Prod subst in Targeted Collections --
4806: IF prec.item_subst_flag = MSC_UTIL.SYS_YES THEN
4807: IF p_task_num = TASK_ITEM_SUBSTITUTES THEN
4808: RETURN TRUE;
4809: END IF;
4810: END IF;
4808: RETURN TRUE;
4809: END IF;
4810: END IF;
4811:
4812: IF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES THEN
4813: IF ((p_task_num = TASK_USER_SUPPLY) OR
4814: (p_task_num = TASK_USER_DEMAND)) THEN
4815: RETURN TRUE;
4816: END IF;
4815: RETURN TRUE;
4816: END IF;
4817: END IF;
4818:
4819: IF prec.wip_flag = MSC_UTIL.SYS_YES THEN
4820: IF ((p_task_num = TASK_WIP_SUPPLY) or
4821: (p_task_num = TASK_WIP_DEMAND) or
4822: (p_task_num = TASK_RESOURCE_INSTANCE) or /* ds change */
4823: (p_task_num = TASK_RESOURCE) ) THEN
4838: END IF;
4839: /* SCE Change ends */
4840:
4841: /* CP-ACK starts */
4842: IF (prec.supplier_response_flag = MSC_UTIL.SYS_YES) THEN
4843: IF (p_task_num = TASK_SUPPLIER_RESPONSE) THEN
4844: RETURN TRUE;
4845: END IF;
4846: END IF;
4845: END IF;
4846: END IF;
4847: /* CP-ACK ends */
4848:
4849: IF (prec.trip_flag = MSC_UTIL.SYS_YES) THEN
4850: IF (p_task_num = TASK_TRIP) THEN
4851: RETURN TRUE;
4852: END IF;
4853: END IF;
4851: RETURN TRUE;
4852: END IF;
4853: END IF;
4854:
4855: IF (prec.sales_channel_flag = MSC_UTIL.SYS_YES) THEN
4856: IF (p_task_num = TASK_SALES_CHANNEL) THEN
4857: RETURN TRUE;
4858: END IF;
4859: END IF;
4857: RETURN TRUE;
4858: END IF;
4859: END IF;
4860:
4861: IF (prec.fiscal_calendar_flag = MSC_UTIL.SYS_YES) THEN
4862: IF (p_task_num = TASK_FISCAL_CALENDAR) THEN
4863: RETURN TRUE;
4864: END IF;
4865: END IF;
4863: RETURN TRUE;
4864: END IF;
4865: END IF;
4866:
4867: IF prec.internal_repair_flag = MSC_UTIL.SYS_YES THEN
4868: IF (MSC_UTIL.G_COLLECT_SRP_DATA='Y') THEN
4869: IF ( (p_task_num = TASK_IRO_DEMAND) or
4870: (p_task_num = TASK_IRO )) THEN /*changes for executing repair order load Bug# 5909379*/
4871: RETURN TRUE;
4864: END IF;
4865: END IF;
4866:
4867: IF prec.internal_repair_flag = MSC_UTIL.SYS_YES THEN
4868: IF (MSC_UTIL.G_COLLECT_SRP_DATA='Y') THEN
4869: IF ( (p_task_num = TASK_IRO_DEMAND) or
4870: (p_task_num = TASK_IRO )) THEN /*changes for executing repair order load Bug# 5909379*/
4871: RETURN TRUE;
4872: END IF;
4872: END IF;
4873: END IF;
4874: END IF;
4875:
4876: IF prec.external_repair_flag = MSC_UTIL.SYS_YES THEN
4877: IF (MSC_UTIL.G_COLLECT_SRP_DATA='Y') THEN
4878: IF ( (p_task_num = TASK_ERO_DEMAND) or
4879: (p_task_num = TASK_ERO )) THEN /*changes for executing repair order load Bug# 5909379*/
4880: RETURN TRUE;
4873: END IF;
4874: END IF;
4875:
4876: IF prec.external_repair_flag = MSC_UTIL.SYS_YES THEN
4877: IF (MSC_UTIL.G_COLLECT_SRP_DATA='Y') THEN
4878: IF ( (p_task_num = TASK_ERO_DEMAND) or
4879: (p_task_num = TASK_ERO )) THEN /*changes for executing repair order load Bug# 5909379*/
4880: RETURN TRUE;
4881: END IF;
4880: RETURN TRUE;
4881: END IF;
4882: END IF;
4883: END IF;
4884: IF (prec.payback_demand_supply_flag = MSC_UTIL.SYS_YES) THEN
4885: IF (p_task_num = TASK_PAYBACK_DEMAND_SUPPLY) THEN
4886: RETURN TRUE;
4887: END IF;
4888: END IF;
4886: RETURN TRUE;
4887: END IF;
4888: END IF;
4889: -- for bug # 6469722
4890: IF (prec.currency_conversion_flag = MSC_UTIL.SYS_YES) THEN
4891: IF (p_task_num = TASK_CURRENCY_CONVERSION) THEN
4892: RETURN TRUE;
4893: END IF;
4894: END IF;
4892: RETURN TRUE;
4893: END IF;
4894: END IF;
4895: -- for bug # 6730983
4896: IF (prec.delivery_details_flag = MSC_UTIL.SYS_YES) THEN
4897: IF (p_task_num = TASK_DELIVERY_DETAILS) THEN
4898: RETURN TRUE;
4899: END IF;
4900: END IF;
4898: RETURN TRUE;
4899: END IF;
4900: END IF;
4901:
4902: IF (prec.ibuc_history_flag = MSC_UTIL.SYS_YES) THEN
4903: IF (p_task_num = TASK_IBUC_HISTORY) THEN
4904: RETURN TRUE;
4905: END IF;
4906: END IF;
4904: RETURN TRUE;
4905: END IF;
4906: END IF;
4907:
4908: IF (prec.notes_attach_flag = MSC_UTIL.SYS_YES) THEN
4909: IF (p_task_num = TASK_SHORT_TEXT) OR (p_task_num = TASK_LONG_TEXT) THEN
4910: RETURN TRUE;
4911: END IF;
4912: END IF;
4910: RETURN TRUE;
4911: END IF;
4912: END IF;
4913: /* USAF */
4914: IF (prec.eAM_info_flag = MSC_UTIL.SYS_YES) THEN
4915: IF (p_task_num = TASK_EAM_INFO) THEN
4916: RETURN TRUE;
4917: END IF;
4918: END IF;
4915: IF (p_task_num = TASK_EAM_INFO) THEN
4916: RETURN TRUE;
4917: END IF;
4918: END IF;
4919: IF (prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES) THEN
4920: IF (p_task_num = TASK_EAM_FORECAST) THEN
4921: RETURN TRUE;
4922: END IF;
4923: END IF;
4921: RETURN TRUE;
4922: END IF;
4923: END IF;
4924:
4925: IF (prec.cmro_flag = MSC_UTIL.SYS_YES) THEN
4926: IF (p_task_num = TASK_VISITS) OR (p_task_num = TASK_WO_ATTRIBUTES) OR
4927: (p_task_num = TASK_WO_TASK_HIERARCHY) OR
4928: (p_task_num = TASK_WO_OPERATION_REL ) OR
4929: (p_task_num = TASK_WORK_BREAKDOWN_STRUCT ) OR
4932: THEN
4933: RETURN TRUE;
4934: END IF;
4935: END IF;
4936: IF (prec.cmro_forecasts_flag = MSC_UTIL.SYS_YES) THEN
4937: IF (p_task_num = TASK_CMRO_FORECASTS) THEN
4938: RETURN TRUE;
4939: END IF;
4940: END IF;
4938: RETURN TRUE;
4939: END IF;
4940: END IF;
4941:
4942: IF (prec.cmro_closed_wo = MSC_UTIL.SYS_YES) THEN
4943: IF (p_task_num = TASK_cmro_closed_wo) THEN
4944: RETURN TRUE;
4945: END IF;
4946: END IF;
4944: RETURN TRUE;
4945: END IF;
4946: END IF;
4947:
4948: IF (prec.osp_supply = MSC_UTIL.SYS_YES) THEN
4949: IF (p_task_num = TASK_OSP_SUPPLY) THEN
4950: RETURN TRUE;
4951: END IF;
4952: END IF;
5026: /* CP-ACK starts */
5027: pSUPPLIER_RESPONSE_ENABLED IN NUMBER,
5028: /* CP-ACK ends */
5029: pTRIP_ENABLED IN NUMBER,
5030: prec in MSC_UTIL.CollParamREC
5031: )
5032:
5033: IS
5034:
5054: BEGIN
5055:
5056:
5057: IF fnd_global.conc_request_id > 0 THEN
5058: v_cp_enabled:= MSC_UTIL.SYS_YES;
5059: ELSE
5060: v_cp_enabled:= MSC_UTIL.SYS_NO;
5061: END IF;
5062:
5056:
5057: IF fnd_global.conc_request_id > 0 THEN
5058: v_cp_enabled:= MSC_UTIL.SYS_YES;
5059: ELSE
5060: v_cp_enabled:= MSC_UTIL.SYS_NO;
5061: END IF;
5062:
5063: v_instance_id := pIID;
5064: v_lrnn := pLRN;
5169: WHERE INSTANCE_ID= pIID;
5170:
5171:
5172: /* added code so that for 107/110 source this profile option = 0 */
5173: IF (v_apps_ver = MSC_UTIL.G_APPS107) OR (v_apps_ver = MSC_UTIL.G_APPS110) THEN
5174: v_msc_tp_coll_window := 0;
5175: ELSE
5176: v_msc_tp_coll_window := MSC_UTIL.v_msc_tp_coll_window;
5177: END IF;
5172: /* added code so that for 107/110 source this profile option = 0 */
5173: IF (v_apps_ver = MSC_UTIL.G_APPS107) OR (v_apps_ver = MSC_UTIL.G_APPS110) THEN
5174: v_msc_tp_coll_window := 0;
5175: ELSE
5176: v_msc_tp_coll_window := MSC_UTIL.v_msc_tp_coll_window;
5177: END IF;
5178:
5179: SELECT decode(NVL(FND_PROFILE.VALUE('MSC_COLLECT_COMPLETED_JOBS'),'Y'),
5180: 'Y', 1,
5191:
5192: -- set the flags as to whether discrete and/or process
5193: -- manufacturing are being used in the same instance
5194:
5195: v_discrete_flag:= MSC_UTIL.SYS_NO;
5196: v_process_flag := MSC_UTIL.SYS_NO;
5197:
5198: IF v_instance_type = MSC_UTIL.G_INS_DISCRETE OR
5199: v_instance_type = MSC_UTIL.G_INS_MIXED THEN
5192: -- set the flags as to whether discrete and/or process
5193: -- manufacturing are being used in the same instance
5194:
5195: v_discrete_flag:= MSC_UTIL.SYS_NO;
5196: v_process_flag := MSC_UTIL.SYS_NO;
5197:
5198: IF v_instance_type = MSC_UTIL.G_INS_DISCRETE OR
5199: v_instance_type = MSC_UTIL.G_INS_MIXED THEN
5200: v_discrete_flag := MSC_UTIL.SYS_YES;
5194:
5195: v_discrete_flag:= MSC_UTIL.SYS_NO;
5196: v_process_flag := MSC_UTIL.SYS_NO;
5197:
5198: IF v_instance_type = MSC_UTIL.G_INS_DISCRETE OR
5199: v_instance_type = MSC_UTIL.G_INS_MIXED THEN
5200: v_discrete_flag := MSC_UTIL.SYS_YES;
5201: END IF;
5202:
5195: v_discrete_flag:= MSC_UTIL.SYS_NO;
5196: v_process_flag := MSC_UTIL.SYS_NO;
5197:
5198: IF v_instance_type = MSC_UTIL.G_INS_DISCRETE OR
5199: v_instance_type = MSC_UTIL.G_INS_MIXED THEN
5200: v_discrete_flag := MSC_UTIL.SYS_YES;
5201: END IF;
5202:
5203: -- since the gmp's procedure doesn't support incremental refresh, the
5196: v_process_flag := MSC_UTIL.SYS_NO;
5197:
5198: IF v_instance_type = MSC_UTIL.G_INS_DISCRETE OR
5199: v_instance_type = MSC_UTIL.G_INS_MIXED THEN
5200: v_discrete_flag := MSC_UTIL.SYS_YES;
5201: END IF;
5202:
5203: -- since the gmp's procedure doesn't support incremental refresh, the
5204: -- v_process_flag is set to YES only if it's a complete refresh.
5203: -- since the gmp's procedure doesn't support incremental refresh, the
5204: -- v_process_flag is set to YES only if it's a complete refresh.
5205:
5206: IF pLRN = -1 THEN -- complete refresh
5207: IF v_instance_type = MSC_UTIL.G_INS_PROCESS OR
5208: v_instance_type = MSC_UTIL.G_INS_MIXED THEN
5209: v_process_flag := MSC_UTIL.SYS_YES;
5210: END IF;
5211: END IF;
5204: -- v_process_flag is set to YES only if it's a complete refresh.
5205:
5206: IF pLRN = -1 THEN -- complete refresh
5207: IF v_instance_type = MSC_UTIL.G_INS_PROCESS OR
5208: v_instance_type = MSC_UTIL.G_INS_MIXED THEN
5209: v_process_flag := MSC_UTIL.SYS_YES;
5210: END IF;
5211: END IF;
5212:
5205:
5206: IF pLRN = -1 THEN -- complete refresh
5207: IF v_instance_type = MSC_UTIL.G_INS_PROCESS OR
5208: v_instance_type = MSC_UTIL.G_INS_MIXED THEN
5209: v_process_flag := MSC_UTIL.SYS_YES;
5210: END IF;
5211: END IF;
5212:
5213: --- PREPLACE CHANGE START ---
5212:
5213: --- PREPLACE CHANGE START ---
5214:
5215:
5216: SELECT DECODE(LRTYPE, 'P', MSC_UTIL.SYS_YES, MSC_UTIL.SYS_NO)
5217: INTO v_is_partial_refresh
5218: FROM msc_apps_instances
5219: WHERE instance_id = pIID;
5220:
5218: FROM msc_apps_instances
5219: WHERE instance_id = pIID;
5220:
5221:
5222: -- IF v_is_partial_refresh = MSC_UTIL.SYS_YES THEN
5223:
5224: IF pVENDOR_ENABLED = MSC_UTIL.SYS_YES THEN
5225: CUSTOMER_ENABLED := MSC_UTIL.SYS_YES;
5226: ELSIF pCUSTOMER_ENABLED = MSC_UTIL.SYS_YES THEN
5220:
5221:
5222: -- IF v_is_partial_refresh = MSC_UTIL.SYS_YES THEN
5223:
5224: IF pVENDOR_ENABLED = MSC_UTIL.SYS_YES THEN
5225: CUSTOMER_ENABLED := MSC_UTIL.SYS_YES;
5226: ELSIF pCUSTOMER_ENABLED = MSC_UTIL.SYS_YES THEN
5227: VENDOR_ENABLED := MSC_UTIL.SYS_YES;
5228: END IF;
5221:
5222: -- IF v_is_partial_refresh = MSC_UTIL.SYS_YES THEN
5223:
5224: IF pVENDOR_ENABLED = MSC_UTIL.SYS_YES THEN
5225: CUSTOMER_ENABLED := MSC_UTIL.SYS_YES;
5226: ELSIF pCUSTOMER_ENABLED = MSC_UTIL.SYS_YES THEN
5227: VENDOR_ENABLED := MSC_UTIL.SYS_YES;
5228: END IF;
5229:
5222: -- IF v_is_partial_refresh = MSC_UTIL.SYS_YES THEN
5223:
5224: IF pVENDOR_ENABLED = MSC_UTIL.SYS_YES THEN
5225: CUSTOMER_ENABLED := MSC_UTIL.SYS_YES;
5226: ELSIF pCUSTOMER_ENABLED = MSC_UTIL.SYS_YES THEN
5227: VENDOR_ENABLED := MSC_UTIL.SYS_YES;
5228: END IF;
5229:
5230: -- END IF;
5223:
5224: IF pVENDOR_ENABLED = MSC_UTIL.SYS_YES THEN
5225: CUSTOMER_ENABLED := MSC_UTIL.SYS_YES;
5226: ELSIF pCUSTOMER_ENABLED = MSC_UTIL.SYS_YES THEN
5227: VENDOR_ENABLED := MSC_UTIL.SYS_YES;
5228: END IF;
5229:
5230: -- END IF;
5231:
5231:
5232: --- PREPLACE CHANGE END ---
5233: -- agmcont
5234:
5235: SELECT DECODE(LRTYPE,'C',MSC_UTIL.G_COMPLETE,'P',MSC_UTIL.G_PARTIAL,'I',MSC_UTIL.G_INCREMENTAL,'T',MSC_UTIL.G_CONT)
5236: INTO
5237: lv_refresh_type
5238: FROM msc_apps_instances
5239: WHERE instance_id = pIID;
5242: v_lrnn := lv_entity_lrn;
5243: v_lrn := TO_CHAR(v_lrnn);
5244: end if;
5245:
5246: SELECT DECODE(LRTYPE, 'T', MSC_UTIL.SYS_YES, MSC_UTIL.SYS_NO)
5247: INTO v_is_cont_refresh
5248: FROM msc_apps_instances
5249: WHERE instance_id = pIID;
5250:
5248: FROM msc_apps_instances
5249: WHERE instance_id = pIID;
5250:
5251:
5252: if (v_is_cont_refresh = MSC_UTIL.SYS_YES) then
5253: if (MSC_CL_CONT_COLL_FW.set_cont_refresh_type (pIID, pTASKNUM, prec, lv_entity_lrn, lv_cont_lrn)) then
5254: v_lrnn := lv_cont_lrn;
5255: v_lrn := TO_CHAR(v_lrnn);
5256: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'LRNN=' || v_lrnn);
5252: if (v_is_cont_refresh = MSC_UTIL.SYS_YES) then
5253: if (MSC_CL_CONT_COLL_FW.set_cont_refresh_type (pIID, pTASKNUM, prec, lv_entity_lrn, lv_cont_lrn)) then
5254: v_lrnn := lv_cont_lrn;
5255: v_lrn := TO_CHAR(v_lrnn);
5256: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'LRNN=' || v_lrnn);
5257: else
5258: pSTATUS := OK;
5259: return;
5260: end if;
5259: return;
5260: end if;
5261: end if;
5262:
5263: if (v_is_cont_refresh = MSC_UTIL.SYS_YES) then
5264: IF v_lrn = -1 THEN -- complete refresh
5265: IF v_instance_type = MSC_UTIL.G_INS_PROCESS OR
5266: v_instance_type = MSC_UTIL.G_INS_MIXED THEN
5267: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'process flag is Yes');
5261: end if;
5262:
5263: if (v_is_cont_refresh = MSC_UTIL.SYS_YES) then
5264: IF v_lrn = -1 THEN -- complete refresh
5265: IF v_instance_type = MSC_UTIL.G_INS_PROCESS OR
5266: v_instance_type = MSC_UTIL.G_INS_MIXED THEN
5267: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'process flag is Yes');
5268: v_process_flag := MSC_UTIL.SYS_YES;
5269: END IF;
5262:
5263: if (v_is_cont_refresh = MSC_UTIL.SYS_YES) then
5264: IF v_lrn = -1 THEN -- complete refresh
5265: IF v_instance_type = MSC_UTIL.G_INS_PROCESS OR
5266: v_instance_type = MSC_UTIL.G_INS_MIXED THEN
5267: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'process flag is Yes');
5268: v_process_flag := MSC_UTIL.SYS_YES;
5269: END IF;
5270: END IF;
5263: if (v_is_cont_refresh = MSC_UTIL.SYS_YES) then
5264: IF v_lrn = -1 THEN -- complete refresh
5265: IF v_instance_type = MSC_UTIL.G_INS_PROCESS OR
5266: v_instance_type = MSC_UTIL.G_INS_MIXED THEN
5267: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'process flag is Yes');
5268: v_process_flag := MSC_UTIL.SYS_YES;
5269: END IF;
5270: END IF;
5271: end if;
5264: IF v_lrn = -1 THEN -- complete refresh
5265: IF v_instance_type = MSC_UTIL.G_INS_PROCESS OR
5266: v_instance_type = MSC_UTIL.G_INS_MIXED THEN
5267: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'process flag is Yes');
5268: v_process_flag := MSC_UTIL.SYS_YES;
5269: END IF;
5270: END IF;
5271: end if;
5272:
5273: -- ============= Execute the task according to its task number ===========
5274:
5275: BEGIN--LOAD_DATA
5276:
5277: IF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_SUPPLY THEN
5278:
5279: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5280: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY');
5281: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5277: IF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_SUPPLY THEN
5278:
5279: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5280: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY');
5281: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5282: MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY;
5283:
5284: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_PO_SUPPLY THEN
5285:
5280: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY');
5281: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5282: MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY;
5283:
5284: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_PO_SUPPLY THEN
5285:
5286: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5287: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY');
5288: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5284: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_PO_SUPPLY THEN
5285:
5286: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5287: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY');
5288: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5289: MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY;
5290:
5291: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_REQ_SUPPLY THEN
5292:
5287: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY');
5288: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5289: MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY;
5290:
5291: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_REQ_SUPPLY THEN
5292:
5293: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5294: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY');
5295: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5291: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_REQ_SUPPLY THEN
5292:
5293: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5294: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY');
5295: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5296: MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY;
5297:
5298: ELSIF prec.wip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_WIP_SUPPLY THEN
5299:
5294: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY');
5295: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5296: MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY;
5297:
5298: ELSIF prec.wip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_WIP_SUPPLY THEN
5299:
5300: -- call the appropriate routine for the type being used
5301:
5302: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5300: -- call the appropriate routine for the type being used
5301:
5302: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5303: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY');
5304: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5305: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5306: MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY;
5307: END IF;
5308:
5301:
5302: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5303: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY');
5304: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5305: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5306: MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY;
5307: END IF;
5308:
5309: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5305: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5306: MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY;
5307: END IF;
5308:
5309: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5310:
5311: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5312: lv_return_status := TRUE;
5313: ELSE
5307: END IF;
5308:
5309: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5310:
5311: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5312: lv_return_status := TRUE;
5313: ELSE
5314: lv_return_status := FALSE;
5315: END IF;
5312: lv_return_status := TRUE;
5313: ELSE
5314: lv_return_status := FALSE;
5315: END IF;
5316: IF (v_apps_ver >= MSC_UTIL.G_APPS120) THEN --bug#5684183 (bcaru)
5317:
5318: gmp_aps_ds_pull.production_orders(v_dblink,
5319: v_instance_id,
5320: lv_task_start_time,
5322: lv_return_status);
5323:
5324: v_gmp_routine_name := 'GMP_APS_DS_PULL.PRODUCTION_ORDERS';
5325:
5326: ELSIF (v_apps_ver = MSC_UTIL.G_APPS115) THEN
5327: MSC_CL_GMP_UTILITY.production_orders(v_dblink,
5328: v_instance_id,
5329: lv_task_start_time,
5330: v_delimiter,
5339:
5340: END IF;
5341:
5342:
5343: ELSIF prec.oh_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_OH_SUPPLY THEN
5344:
5345: -- call the appropriate routine for onhand inventory
5346:
5347: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5345: -- call the appropriate routine for onhand inventory
5346:
5347: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5348: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_OH_SUPPLY');
5349: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5350:
5351: /* OPM Team - OPM Inventory Convergence Project
5352: Onhand calculation has to be performed for both
5353: discrete/process orgs.
5350:
5351: /* OPM Team - OPM Inventory Convergence Project
5352: Onhand calculation has to be performed for both
5353: discrete/process orgs.
5354: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN*/
5355: MSC_CL_SUPPLY_PULL.LOAD_OH_SUPPLY;
5356: -- END IF;
5357:
5358: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5354: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN*/
5355: MSC_CL_SUPPLY_PULL.LOAD_OH_SUPPLY;
5356: -- END IF;
5357:
5358: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5359: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5360: lv_return_status := TRUE;
5361: ELSE
5362: lv_return_status := FALSE;
5355: MSC_CL_SUPPLY_PULL.LOAD_OH_SUPPLY;
5356: -- END IF;
5357:
5358: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5359: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5360: lv_return_status := TRUE;
5361: ELSE
5362: lv_return_status := FALSE;
5363: END IF;
5378: RAISE GMP_ERROR;
5379: END IF;
5380: */
5381:
5382: IF (v_apps_ver = MSC_UTIL.G_APPS115) THEN
5383:
5384: MSC_CL_GMP_UTILITY.onhand_inventory(v_dblink,
5385: v_instance_id,
5386: lv_task_start_time,
5394: END IF;
5395: END IF;
5396: END IF;
5397:
5398: ELSIF prec.mps_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_MPS_SUPPLY THEN
5399:
5400: -- only call if doing discrete mfg
5401:
5402: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5400: -- only call if doing discrete mfg
5401:
5402: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5403: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY');
5404: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5405: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5406: MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY;
5407: END IF;
5408:
5401:
5402: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5403: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY');
5404: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5405: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5406: MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY;
5407: END IF;
5408:
5409: ELSIF prec.bor_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BOR THEN
5405: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5406: MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY;
5407: END IF;
5408:
5409: ELSIF prec.bor_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BOR THEN
5410:
5411: -- only call if doing discrete mfg
5412:
5413: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5411: -- only call if doing discrete mfg
5412:
5413: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5414: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOR');
5415: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5416: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5417: MSC_CL_BOM_PULL.LOAD_BOR;
5418: END IF;
5419:
5412:
5413: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5414: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOR');
5415: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5416: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5417: MSC_CL_BOM_PULL.LOAD_BOR;
5418: END IF;
5419:
5420: ELSIF (prec.calendar_flag = MSC_UTIL.SYS_YES OR prec.resource_nra_flag in (1,3)) AND pTASKNUM= TASK_CALENDAR_DATE THEN
5416: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5417: MSC_CL_BOM_PULL.LOAD_BOR;
5418: END IF;
5419:
5420: ELSIF (prec.calendar_flag = MSC_UTIL.SYS_YES OR prec.resource_nra_flag in (1,3)) AND pTASKNUM= TASK_CALENDAR_DATE THEN
5421:
5422: -- call the appropriate routine for calendar dates
5423:
5424: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5422: -- call the appropriate routine for calendar dates
5423:
5424: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5425: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_CALENDAR_DATE');
5426: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5427:
5428: /* OPM Team - OPM Inventory Convergence Project
5429: Calendar data should be populated for both discrete and process organizations.
5430: So commenting the chk to discrete alone.
5427:
5428: /* OPM Team - OPM Inventory Convergence Project
5429: Calendar data should be populated for both discrete and process organizations.
5430: So commenting the chk to discrete alone.
5431: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5432: MSC_CL_SETUP_PULL.LOAD_CALENDAR_DATE;
5433: END IF;
5434: */
5435: MSC_CL_SETUP_PULL.LOAD_CALENDAR_DATE;
5436:
5437: -- BIS_PERIODS will be collected as part of calendar entity
5438: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5439: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_BIS');
5440: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5441: MSC_CL_OTHER_PULL.LOAD_BIS107;
5442:
5443: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5444:
5439: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_BIS');
5440: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5441: MSC_CL_OTHER_PULL.LOAD_BIS107;
5442:
5443: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5444:
5445: -- Process will populate the trading partners here then
5446: -- update the org partner for the appropriate calendars
5447: -- in the calendar routine. also populated is net_resource_avail
5446: -- update the org partner for the appropriate calendars
5447: -- in the calendar routine. also populated is net_resource_avail
5448: MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER;
5449:
5450: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5451: lv_return_status := TRUE;
5452: ELSE
5453: lv_return_status := FALSE;
5454: END IF;
5452: ELSE
5453: lv_return_status := FALSE;
5454: END IF;
5455:
5456: IF (v_apps_ver >= MSC_UTIL.G_APPS120) THEN --bug#5684183 (bcaru)
5457: gmp_calendar_pkg.populate_rsrc_cal( lv_task_start_time,
5458: v_instance_id,
5459: v_delimiter,
5460: v_dblink,
5461: NRA_ENABLED,
5462: lv_return_status);
5463:
5464: v_gmp_routine_name := 'GMP_CALENDAR_PKG.POPULATE_RSRC_CAL';
5465: ELSIF (v_apps_ver = MSC_UTIL.G_APPS115) THEN
5466:
5467: MSC_CL_GMP_UTILITY.populate_rsrc_cal( lv_task_start_time,
5468: v_instance_id,
5469: v_delimiter,
5479: END IF;
5480:
5481: END IF;
5482:
5483: ELSIF (prec.mds_flag = MSC_UTIL.SYS_YES OR prec.mps_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_SCHEDULE THEN
5484:
5485: -- only call if doing discrete mfg, for process this is done in
5486: -- MDS demands
5487:
5486: -- MDS demands
5487:
5488: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5489: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SCHEDULE');
5490: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5491: IF ( v_discrete_flag = MSC_UTIL.SYS_YES ) THEN
5492: IF prec.mds_flag = MSC_UTIL.SYS_YES AND prec.mps_flag = MSC_UTIL.SYS_NO THEN
5493: v_schedule_flag := MSC_UTIL.G_MDS;
5494: ELSIF prec.mds_flag = MSC_UTIL.SYS_NO AND prec.mps_flag = MSC_UTIL.SYS_YES THEN
5487:
5488: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5489: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SCHEDULE');
5490: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5491: IF ( v_discrete_flag = MSC_UTIL.SYS_YES ) THEN
5492: IF prec.mds_flag = MSC_UTIL.SYS_YES AND prec.mps_flag = MSC_UTIL.SYS_NO THEN
5493: v_schedule_flag := MSC_UTIL.G_MDS;
5494: ELSIF prec.mds_flag = MSC_UTIL.SYS_NO AND prec.mps_flag = MSC_UTIL.SYS_YES THEN
5495: v_schedule_flag := MSC_UTIL.G_MPS;
5488: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5489: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SCHEDULE');
5490: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5491: IF ( v_discrete_flag = MSC_UTIL.SYS_YES ) THEN
5492: IF prec.mds_flag = MSC_UTIL.SYS_YES AND prec.mps_flag = MSC_UTIL.SYS_NO THEN
5493: v_schedule_flag := MSC_UTIL.G_MDS;
5494: ELSIF prec.mds_flag = MSC_UTIL.SYS_NO AND prec.mps_flag = MSC_UTIL.SYS_YES THEN
5495: v_schedule_flag := MSC_UTIL.G_MPS;
5496: ELSE
5489: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SCHEDULE');
5490: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5491: IF ( v_discrete_flag = MSC_UTIL.SYS_YES ) THEN
5492: IF prec.mds_flag = MSC_UTIL.SYS_YES AND prec.mps_flag = MSC_UTIL.SYS_NO THEN
5493: v_schedule_flag := MSC_UTIL.G_MDS;
5494: ELSIF prec.mds_flag = MSC_UTIL.SYS_NO AND prec.mps_flag = MSC_UTIL.SYS_YES THEN
5495: v_schedule_flag := MSC_UTIL.G_MPS;
5496: ELSE
5497: v_schedule_flag := MSC_UTIL.G_BOTH;
5490: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5491: IF ( v_discrete_flag = MSC_UTIL.SYS_YES ) THEN
5492: IF prec.mds_flag = MSC_UTIL.SYS_YES AND prec.mps_flag = MSC_UTIL.SYS_NO THEN
5493: v_schedule_flag := MSC_UTIL.G_MDS;
5494: ELSIF prec.mds_flag = MSC_UTIL.SYS_NO AND prec.mps_flag = MSC_UTIL.SYS_YES THEN
5495: v_schedule_flag := MSC_UTIL.G_MPS;
5496: ELSE
5497: v_schedule_flag := MSC_UTIL.G_BOTH;
5498: END IF;
5491: IF ( v_discrete_flag = MSC_UTIL.SYS_YES ) THEN
5492: IF prec.mds_flag = MSC_UTIL.SYS_YES AND prec.mps_flag = MSC_UTIL.SYS_NO THEN
5493: v_schedule_flag := MSC_UTIL.G_MDS;
5494: ELSIF prec.mds_flag = MSC_UTIL.SYS_NO AND prec.mps_flag = MSC_UTIL.SYS_YES THEN
5495: v_schedule_flag := MSC_UTIL.G_MPS;
5496: ELSE
5497: v_schedule_flag := MSC_UTIL.G_BOTH;
5498: END IF;
5499:
5493: v_schedule_flag := MSC_UTIL.G_MDS;
5494: ELSIF prec.mds_flag = MSC_UTIL.SYS_NO AND prec.mps_flag = MSC_UTIL.SYS_YES THEN
5495: v_schedule_flag := MSC_UTIL.G_MPS;
5496: ELSE
5497: v_schedule_flag := MSC_UTIL.G_BOTH;
5498: END IF;
5499:
5500: MSC_CL_OTHER_PULL.LOAD_SCHEDULE;
5501: END IF;
5499:
5500: MSC_CL_OTHER_PULL.LOAD_SCHEDULE;
5501: END IF;
5502:
5503: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM1 THEN
5504:
5505: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5506: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(1)');
5507: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5503: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM1 THEN
5504:
5505: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5506: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(1)');
5507: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5508: MSC_CL_ITEM_PULL.LOAD_ITEM(1);
5509: /* ds change for non standard jobs and eam wo, we may not have
5510: primary item specified in wo. We are going to create
5511: two dummy item, on eofr non standard job and other for
5511: two dummy item, on eofr non standard job and other for
5512: eam wo */
5513: MSC_CL_ITEM_PULL.INSERT_DUMMY_ITEMS;
5514:
5515: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM2 THEN
5516:
5517: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5518: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(2)');
5519: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5515: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM2 THEN
5516:
5517: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5518: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(2)');
5519: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5520: MSC_CL_ITEM_PULL.LOAD_ITEM(2);
5521:
5522: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM3 THEN
5523:
5518: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(2)');
5519: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5520: MSC_CL_ITEM_PULL.LOAD_ITEM(2);
5521:
5522: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM3 THEN
5523:
5524: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5525: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(0)');
5526: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5522: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM3 THEN
5523:
5524: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5525: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(0)');
5526: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5527: MSC_CL_ITEM_PULL.LOAD_ITEM(0);
5528:
5529: /*added for bug:4765403*/
5530: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ABC_CLASSES THEN
5526: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5527: MSC_CL_ITEM_PULL.LOAD_ITEM(0);
5528:
5529: /*added for bug:4765403*/
5530: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ABC_CLASSES THEN
5531:
5532: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5533: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES');
5534: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5530: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ABC_CLASSES THEN
5531:
5532: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5533: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES');
5534: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5535: IF (v_apps_ver >= MSC_UTIL.G_APPS120) THEN
5536: MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES;
5537: END IF;
5538:
5531:
5532: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5533: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES');
5534: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5535: IF (v_apps_ver >= MSC_UTIL.G_APPS120) THEN
5536: MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES;
5537: END IF;
5538:
5539: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES OR prec.wip_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_RESOURCE THEN
5535: IF (v_apps_ver >= MSC_UTIL.G_APPS120) THEN
5536: MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES;
5537: END IF;
5538:
5539: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES OR prec.wip_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_RESOURCE THEN
5540:
5541: -- call the appropriate routine for resources
5542: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5543: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE');
5540:
5541: -- call the appropriate routine for resources
5542: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5543: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE');
5544: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5545: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5546: MSC_CL_BOM_PULL.LOAD_RESOURCE;
5547: END IF;
5548: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5541: -- call the appropriate routine for resources
5542: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5543: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE');
5544: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5545: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5546: MSC_CL_BOM_PULL.LOAD_RESOURCE;
5547: END IF;
5548: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5549: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5544: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5545: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5546: MSC_CL_BOM_PULL.LOAD_RESOURCE;
5547: END IF;
5548: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5549: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5550: lv_return_status := TRUE;
5551: ELSE
5552: lv_return_status := FALSE;
5545: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5546: MSC_CL_BOM_PULL.LOAD_RESOURCE;
5547: END IF;
5548: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5549: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5550: lv_return_status := TRUE;
5551: ELSE
5552: lv_return_status := FALSE;
5553: END IF;
5550: lv_return_status := TRUE;
5551: ELSE
5552: lv_return_status := FALSE;
5553: END IF;
5554: IF (v_apps_ver >= MSC_UTIL.G_APPS120) THEN --bug#5684183 (bcaru)
5555: gmp_calendar_pkg.rsrc_extract( v_instance_id,
5556: v_dblink ,
5557: lv_return_status);
5558:
5556: v_dblink ,
5557: lv_return_status);
5558:
5559: v_gmp_routine_name := 'GMP_CALENDAR_PKG.RSRC_EXTRACT';
5560: ELSIF (v_apps_ver = MSC_UTIL.G_APPS115) THEN
5561: MSC_CL_GMP_UTILITY.rsrc_extract( v_instance_id,
5562: v_dblink ,
5563: lv_return_status);
5564:
5576:
5577: END IF;
5578:
5579: /*ds change start */
5580: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES OR prec.wip_flag = MSC_UTIL.SYS_YES) AND
5581: pTASKNUM= TASK_RESOURCE_INSTANCE THEN
5582:
5583: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5584: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE');
5581: pTASKNUM= TASK_RESOURCE_INSTANCE THEN
5582:
5583: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5584: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE');
5585: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5586: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5587: MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE;
5588: END IF;
5589:
5582:
5583: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5584: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE');
5585: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5586: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5587: MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE;
5588: END IF;
5589:
5590: -- opm populated dept resource instances in call
5589:
5590: -- opm populated dept resource instances in call
5591: -- populate_rsrc_cal
5592:
5593: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES ) AND
5594: pTASKNUM= TASK_RESOURCE_SETUP THEN
5595: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5596: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP');
5597: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5593: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES ) AND
5594: pTASKNUM= TASK_RESOURCE_SETUP THEN
5595: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5596: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP');
5597: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5598: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5599: MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP;
5600: END IF;
5601:
5594: pTASKNUM= TASK_RESOURCE_SETUP THEN
5595: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5596: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP');
5597: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5598: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5599: MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP;
5600: END IF;
5601:
5602: -- opm populates resource setups and transitions
5603: -- in extract_effectivities
5604:
5605: /*ds change end */
5606:
5607: ELSIF (prec.tp_customer_flag = MSC_UTIL.SYS_YES OR prec.tp_vendor_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_TRADING_PARTNER THEN
5608:
5609: -- only call if not doing process mfg. for process this is done
5610: -- with calendar dates
5611:
5610: -- with calendar dates
5611:
5612: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5613: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER');
5614: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5615:
5616: --- PREPLACE CHANGE START ---
5617: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'v_process_flag is ' || v_process_flag);
5618:
5613: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER');
5614: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5615:
5616: --- PREPLACE CHANGE START ---
5617: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'v_process_flag is ' || v_process_flag);
5618:
5619: /* Even when customer_flag or vendor_flag is enabled we must not call loading
5620: MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER if v_process_flag is YES and CALENDAR is Yes, beacuse
5621: in this case MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER would be called in CALENDAR task. */
5619: /* Even when customer_flag or vendor_flag is enabled we must not call loading
5620: MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER if v_process_flag is YES and CALENDAR is Yes, beacuse
5621: in this case MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER would be called in CALENDAR task. */
5622:
5623: IF (NOT((v_process_flag = MSC_UTIL.SYS_YES) AND
5624: (prec.calendar_flag = MSC_UTIL.SYS_YES OR prec.resource_nra_flag in (1,3)))) THEN
5625: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'LOADING TRADING PARTNERS');
5626:
5627: --- PREPLACE CHANGE END ---
5620: MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER if v_process_flag is YES and CALENDAR is Yes, beacuse
5621: in this case MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER would be called in CALENDAR task. */
5622:
5623: IF (NOT((v_process_flag = MSC_UTIL.SYS_YES) AND
5624: (prec.calendar_flag = MSC_UTIL.SYS_YES OR prec.resource_nra_flag in (1,3)))) THEN
5625: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'LOADING TRADING PARTNERS');
5626:
5627: --- PREPLACE CHANGE END ---
5628:
5621: in this case MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER would be called in CALENDAR task. */
5622:
5623: IF (NOT((v_process_flag = MSC_UTIL.SYS_YES) AND
5624: (prec.calendar_flag = MSC_UTIL.SYS_YES OR prec.resource_nra_flag in (1,3)))) THEN
5625: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'LOADING TRADING PARTNERS');
5626:
5627: --- PREPLACE CHANGE END ---
5628:
5629: MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER;
5633: since this required for both calendar and partner sites. For process orgs
5634: if either calendar or customer or vendor are yes, we have to call
5635: populate_rsrc_cal . */
5636:
5637: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5638: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5639: lv_return_status := TRUE;
5640: ELSE
5641: lv_return_status := FALSE;
5634: if either calendar or customer or vendor are yes, we have to call
5635: populate_rsrc_cal . */
5636:
5637: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5638: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5639: lv_return_status := TRUE;
5640: ELSE
5641: lv_return_status := FALSE;
5642: END IF;
5639: lv_return_status := TRUE;
5640: ELSE
5641: lv_return_status := FALSE;
5642: END IF;
5643: IF (v_apps_ver >= MSC_UTIL.G_APPS120) THEN --bug#5684183 (bcaru)
5644: gmp_calendar_pkg.populate_rsrc_cal( lv_task_start_time,
5645: v_instance_id,
5646: v_delimiter,
5647: v_dblink,
5648: NRA_ENABLED,
5649: lv_return_status);
5650:
5651: v_gmp_routine_name := 'GMP_CALENDAR_PKG.POPULATE_RSRC_CAL';
5652: ELSIF (v_apps_ver = MSC_UTIL.G_APPS115) THEN
5653: MSC_CL_GMP_UTILITY.populate_rsrc_cal( lv_task_start_time,
5654: v_instance_id,
5655: v_delimiter,
5656: v_dblink,
5665: END IF;
5666: END IF;
5667: END IF;
5668:
5669: ELSIF prec.forecast_flag = MSC_UTIL.SYS_YES AND pTASKNUM = TASK_LOAD_FORECAST THEN
5670: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5671: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_FORECAST');
5672: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5673:
5668:
5669: ELSIF prec.forecast_flag = MSC_UTIL.SYS_YES AND pTASKNUM = TASK_LOAD_FORECAST THEN
5670: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5671: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_FORECAST');
5672: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5673:
5674: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5675: v_apps_ver>= MSC_UTIL.G_APPS115) THEN /*to be changed after coding for 107/11i*/
5676:
5670: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5671: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_FORECAST');
5672: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5673:
5674: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5675: v_apps_ver>= MSC_UTIL.G_APPS115) THEN /*to be changed after coding for 107/11i*/
5676:
5677: MSC_CL_DEMAND_PULL.LOAD_FORECASTS;
5678:
5671: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_FORECAST');
5672: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5673:
5674: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5675: v_apps_ver>= MSC_UTIL.G_APPS115) THEN /*to be changed after coding for 107/11i*/
5676:
5677: MSC_CL_DEMAND_PULL.LOAD_FORECASTS;
5678:
5679: END IF;
5679: END IF;
5680:
5681: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5682: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_ITEM_FORECASTS');
5683: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5684:
5685: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5686: v_apps_ver>= MSC_UTIL.G_APPS115) THEN /*to be changed after coding for 107/11i*/
5687:
5681: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5682: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_ITEM_FORECASTS');
5683: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5684:
5685: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5686: v_apps_ver>= MSC_UTIL.G_APPS115) THEN /*to be changed after coding for 107/11i*/
5687:
5688: MSC_CL_DEMAND_PULL.LOAD_ITEM_FORECASTS;
5689:
5682: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_ITEM_FORECASTS');
5683: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5684:
5685: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5686: v_apps_ver>= MSC_UTIL.G_APPS115) THEN /*to be changed after coding for 107/11i*/
5687:
5688: MSC_CL_DEMAND_PULL.LOAD_ITEM_FORECASTS;
5689:
5690: END IF;
5688: MSC_CL_DEMAND_PULL.LOAD_ITEM_FORECASTS;
5689:
5690: END IF;
5691:
5692: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5693:
5694: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5695: lv_return_status := TRUE;
5696: ELSE
5690: END IF;
5691:
5692: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5693:
5694: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5695: lv_return_status := TRUE;
5696: ELSE
5697: lv_return_status := FALSE;
5698: END IF;
5698: END IF;
5699:
5700: /* OPM Team - OPM Inventory Convergence Project
5701: OPM forecast merges with discrete forecast in R12
5702: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Loading SALES_FORECAST for Process Mfg');
5703:
5704: gmp_aps_ds_pull.sales_forecast(v_dblink,
5705: v_instance_id,
5706: lv_task_start_time,
5713: RAISE GMP_ERROR;
5714: END IF;
5715: */
5716:
5717: IF (v_apps_ver = MSC_UTIL.G_APPS115) THEN
5718:
5719: MSC_CL_GMP_UTILITY.sales_forecast(v_dblink,
5720: v_instance_id,
5721: lv_task_start_time,
5733: END IF;
5734:
5735:
5736:
5737: ELSIF prec.mds_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_MDS_DEMAND THEN
5738:
5739: -- call the appropriate routine for MDS demand
5740: /* how we can avoid this for ds */
5741: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5739: -- call the appropriate routine for MDS demand
5740: /* how we can avoid this for ds */
5741: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5742: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND');
5743: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5744:
5745: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Starting MDS LOAD');
5746: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5747: MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND;
5741: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5742: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND');
5743: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5744:
5745: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Starting MDS LOAD');
5746: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5747: MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND;
5748: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MDS LOAD COMPLETED');
5749: END IF;
5742: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND');
5743: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5744:
5745: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Starting MDS LOAD');
5746: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5747: MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND;
5748: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MDS LOAD COMPLETED');
5749: END IF;
5750: /*
5744:
5745: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Starting MDS LOAD');
5746: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5747: MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND;
5748: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MDS LOAD COMPLETED');
5749: END IF;
5750: /*
5751: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5752: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5747: MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND;
5748: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MDS LOAD COMPLETED');
5749: END IF;
5750: /*
5751: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5752: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5753: lv_return_status := TRUE;
5754: ELSE
5755: lv_return_status := FALSE;
5748: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'MDS LOAD COMPLETED');
5749: END IF;
5750: /*
5751: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5752: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5753: lv_return_status := TRUE;
5754: ELSE
5755: lv_return_status := FALSE;
5756: END IF;
5754: ELSE
5755: lv_return_status := FALSE;
5756: END IF;
5757:
5758: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Loading SALES_FORECAST for Process Mfg');
5759:
5760: gmp_aps_ds_pull.sales_forecast(v_dblink,
5761: v_instance_id,
5762: lv_task_start_time,
5770: END IF;
5771:
5772: END IF;
5773: */
5774: ELSIF prec.wip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_WIP_DEMAND THEN
5775:
5776: -- only call if doing discrete mfg. process does this as part of
5777: -- wip supply
5778:
5777: -- wip supply
5778:
5779: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5780: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_DEMAND');
5781: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5782:
5783: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5784: MSC_CL_WIP_PULL.LOAD_WIP_DEMAND;
5785: END IF;
5779: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5780: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_DEMAND');
5781: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5782:
5783: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5784: MSC_CL_WIP_PULL.LOAD_WIP_DEMAND;
5785: END IF;
5786: /* check sales order is selected */
5787: ELSIF prec.sales_order_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SALES_ORDER1 THEN
5783: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5784: MSC_CL_WIP_PULL.LOAD_WIP_DEMAND;
5785: END IF;
5786: /* check sales order is selected */
5787: ELSIF prec.sales_order_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SALES_ORDER1 THEN
5788:
5789: IF ( v_apps_ver>= MSC_UTIL.G_APPS115) and (v_discrete_flag = MSC_UTIL.SYS_YES) THEN -- 11i source instance only
5790: -- only call if doing discrete mfg
5791:
5785: END IF;
5786: /* check sales order is selected */
5787: ELSIF prec.sales_order_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SALES_ORDER1 THEN
5788:
5789: IF ( v_apps_ver>= MSC_UTIL.G_APPS115) and (v_discrete_flag = MSC_UTIL.SYS_YES) THEN -- 11i source instance only
5790: -- only call if doing discrete mfg
5791:
5792: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5793: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1)');
5790: -- only call if doing discrete mfg
5791:
5792: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5793: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1)');
5794: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5795: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1);
5796:
5797: END IF;
5798:
5795: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1);
5796:
5797: END IF;
5798:
5799: ELSIF prec.sales_order_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SALES_ORDER2 THEN
5800:
5801: IF ( v_apps_ver>= MSC_UTIL.G_APPS115) AND (v_discrete_flag = MSC_UTIL.SYS_YES) THEN -- 11i source instance only
5802: -- only call if doing discrete mfg
5803:
5797: END IF;
5798:
5799: ELSIF prec.sales_order_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SALES_ORDER2 THEN
5800:
5801: IF ( v_apps_ver>= MSC_UTIL.G_APPS115) AND (v_discrete_flag = MSC_UTIL.SYS_YES) THEN -- 11i source instance only
5802: -- only call if doing discrete mfg
5803:
5804: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5805: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2)');
5802: -- only call if doing discrete mfg
5803:
5804: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5805: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2)');
5806: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5807: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2);
5808:
5809: END IF;
5810:
5807: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2);
5808:
5809: END IF;
5810:
5811: ELSIF prec.sales_order_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SALES_ORDER3 THEN
5812:
5813: IF (v_discrete_flag = MSC_UTIL.SYS_YES) THEN
5814: -- only call if doing discrete mfg
5815:
5809: END IF;
5810:
5811: ELSIF prec.sales_order_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SALES_ORDER3 THEN
5812:
5813: IF (v_discrete_flag = MSC_UTIL.SYS_YES) THEN
5814: -- only call if doing discrete mfg
5815:
5816: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5817: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(3)');
5814: -- only call if doing discrete mfg
5815:
5816: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5817: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(3)');
5818: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5819: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(3);
5820:
5821: END IF;
5822: /*
5825: -- only call if doing discrete mfg
5826:
5827: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5828: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(4)');
5829: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5830:
5831: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5832: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(4);
5833: END IF;
5827: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5828: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(4)');
5829: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5830:
5831: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5832: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(4);
5833: END IF;
5834: */
5835: ELSIF pTASKNUM= TASK_AHL THEN
5841:
5842: EXECUTE IMMEDIATE lv_sql_stmt
5843: USING OUT lv_ps_ver;
5844:
5845: IF ( v_apps_ver>= MSC_UTIL.G_APPS115)
5846: and (v_discrete_flag = MSC_UTIL.SYS_YES)
5847: and (lv_ps_ver =1) THEN
5848: -- 11i source instance only
5849: -- only call if doing discrete mfg, Is this a valid assumption --dsoosai 12/04/2003
5842: EXECUTE IMMEDIATE lv_sql_stmt
5843: USING OUT lv_ps_ver;
5844:
5845: IF ( v_apps_ver>= MSC_UTIL.G_APPS115)
5846: and (v_discrete_flag = MSC_UTIL.SYS_YES)
5847: and (lv_ps_ver =1) THEN
5848: -- 11i source instance only
5849: -- only call if doing discrete mfg, Is this a valid assumption --dsoosai 12/04/2003
5850:
5849: -- only call if doing discrete mfg, Is this a valid assumption --dsoosai 12/04/2003
5850:
5851: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5852: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(5:AHL)');
5853: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5854: MSC_CL_DEMAND_PULL.LOAD_AHL;
5855:
5856: END IF;
5857:
5854: MSC_CL_DEMAND_PULL.LOAD_AHL;
5855:
5856: END IF;
5857:
5858: ELSIF prec.sub_inventory_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SUB_INVENTORY THEN
5859:
5860: -- call the appropriate routine for sub inventory
5861:
5862: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5860: -- call the appropriate routine for sub inventory
5861:
5862: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5863: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SUB_INVENTORY');
5864: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5865:
5866: /* OPM Team - OPM Inventory Convergence Project
5867: Commented this has to be called for both discrete/process
5868: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN */
5864: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5865:
5866: /* OPM Team - OPM Inventory Convergence Project
5867: Commented this has to be called for both discrete/process
5868: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN */
5869: MSC_CL_OTHER_PULL.LOAD_SUB_INVENTORY;
5870: -- END IF;
5871: IF v_process_flag = MSC_UTIL.SYS_YES and WIP_ENABLED= MSC_UTIL.SYS_YES THEN
5872: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5867: Commented this has to be called for both discrete/process
5868: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN */
5869: MSC_CL_OTHER_PULL.LOAD_SUB_INVENTORY;
5870: -- END IF;
5871: IF v_process_flag = MSC_UTIL.SYS_YES and WIP_ENABLED= MSC_UTIL.SYS_YES THEN
5872: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5873: lv_return_status := TRUE;
5874: ELSE
5875: lv_return_status := FALSE;
5868: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN */
5869: MSC_CL_OTHER_PULL.LOAD_SUB_INVENTORY;
5870: -- END IF;
5871: IF v_process_flag = MSC_UTIL.SYS_YES and WIP_ENABLED= MSC_UTIL.SYS_YES THEN
5872: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5873: lv_return_status := TRUE;
5874: ELSE
5875: lv_return_status := FALSE;
5876: END IF;
5889: IF lv_return_status = FALSE THEN
5890: RAISE GMP_ERROR;
5891: END IF;
5892: */
5893: IF (v_apps_ver = MSC_UTIL.G_APPS115) THEN
5894:
5895: MSC_CL_GMP_UTILITY.extract_sub_inventory(v_dblink,
5896: v_instance_id,
5897: lv_task_start_time,
5907:
5908:
5909: END IF;
5910:
5911: ELSIF prec.reserves_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_HARD_RESERVATION THEN
5912:
5913: -- only call if doing discrete mfg
5914:
5915: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5913: -- only call if doing discrete mfg
5914:
5915: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5916: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_HARD_RESERVATION');
5917: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5918:
5919:
5920: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5921: MSC_CL_DEMAND_PULL.LOAD_HARD_RESERVATION;
5916: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_HARD_RESERVATION');
5917: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5918:
5919:
5920: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5921: MSC_CL_DEMAND_PULL.LOAD_HARD_RESERVATION;
5922: END IF;
5923:
5924: ELSIF prec.sourcing_rule_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SOURCING THEN
5920: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5921: MSC_CL_DEMAND_PULL.LOAD_HARD_RESERVATION;
5922: END IF;
5923:
5924: ELSIF prec.sourcing_rule_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SOURCING THEN
5925:
5926: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5927: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SOURCING');
5928: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5924: ELSIF prec.sourcing_rule_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SOURCING THEN
5925:
5926: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5927: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SOURCING');
5928: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5929:
5930: MSC_CL_OTHER_PULL.LOAD_SOURCING;
5931:
5932: ELSIF (prec.app_supp_cap_flag = MSC_UTIL.ASL_YES or prec.app_supp_cap_flag = MSC_UTIL.ASL_YES_RETAIN_CP ) AND pTASKNUM= TASK_SUPPLIER_CAPACITY THEN
5928: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5929:
5930: MSC_CL_OTHER_PULL.LOAD_SOURCING;
5931:
5932: ELSIF (prec.app_supp_cap_flag = MSC_UTIL.ASL_YES or prec.app_supp_cap_flag = MSC_UTIL.ASL_YES_RETAIN_CP ) AND pTASKNUM= TASK_SUPPLIER_CAPACITY THEN
5933:
5934: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5935: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY');
5936: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5932: ELSIF (prec.app_supp_cap_flag = MSC_UTIL.ASL_YES or prec.app_supp_cap_flag = MSC_UTIL.ASL_YES_RETAIN_CP ) AND pTASKNUM= TASK_SUPPLIER_CAPACITY THEN
5933:
5934: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5935: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY');
5936: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5937:
5938: MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY;
5939:
5940: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CATEGORY THEN
5936: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5937:
5938: MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY;
5939:
5940: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CATEGORY THEN
5941:
5942: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5943: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_CATEGORY');
5944: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5940: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CATEGORY THEN
5941:
5942: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5943: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_CATEGORY');
5944: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5945:
5946: MSC_CL_ITEM_PULL.LOAD_CATEGORY;
5947:
5948: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5946: MSC_CL_ITEM_PULL.LOAD_CATEGORY;
5947:
5948: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5949: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.INSERT_DUMMY_CATEGORIES');
5950: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5951:
5952: MSC_CL_ITEM_PULL.INSERT_DUMMY_CATEGORIES ;
5953:
5954: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BOM THEN
5950: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5951:
5952: MSC_CL_ITEM_PULL.INSERT_DUMMY_CATEGORIES ;
5953:
5954: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BOM THEN
5955:
5956: -- call the appropriate routine for bom
5957:
5958: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5956: -- call the appropriate routine for bom
5957:
5958: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5959: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOM');
5960: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5961:
5962:
5963: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5964: MSC_CL_BOM_PULL.LOAD_BOM;
5959: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOM');
5960: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5961:
5962:
5963: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5964: MSC_CL_BOM_PULL.LOAD_BOM;
5965: END IF;
5966: IF v_process_flag = MSC_UTIL.SYS_YES and BOM_ENABLED= MSC_UTIL.SYS_YES THEN
5967: -- process will also extract routings here
5962:
5963: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5964: MSC_CL_BOM_PULL.LOAD_BOM;
5965: END IF;
5966: IF v_process_flag = MSC_UTIL.SYS_YES and BOM_ENABLED= MSC_UTIL.SYS_YES THEN
5967: -- process will also extract routings here
5968: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5969: lv_return_status := TRUE;
5970: ELSE
5964: MSC_CL_BOM_PULL.LOAD_BOM;
5965: END IF;
5966: IF v_process_flag = MSC_UTIL.SYS_YES and BOM_ENABLED= MSC_UTIL.SYS_YES THEN
5967: -- process will also extract routings here
5968: IF v_cp_enabled = MSC_UTIL.SYS_YES THEN
5969: lv_return_status := TRUE;
5970: ELSE
5971: lv_return_status := FALSE;
5972: END IF;
5969: lv_return_status := TRUE;
5970: ELSE
5971: lv_return_status := FALSE;
5972: END IF;
5973: IF (v_apps_ver >= MSC_UTIL.G_APPS120) THEN --bug#5684183 (bcaru)
5974: gmp_bom_routing_pkg.extract_effectivities(v_dblink,
5975: v_delimiter,
5976: v_instance_id,
5977: lv_task_start_time,
5977: lv_task_start_time,
5978: lv_return_status);
5979:
5980: v_gmp_routine_name := 'GMP_BOM_ROUTING_PKG.EXTRACT_EFFECTIVITIES';
5981: ELSIF (v_apps_ver = MSC_UTIL.G_APPS115) THEN
5982: MSC_CL_GMP_UTILITY.extract_effectivities(v_dblink,
5983: v_delimiter,
5984: v_instance_id,
5985: lv_task_start_time,
5993: END IF;
5994:
5995: END IF;
5996:
5997: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ROUTING THEN
5998:
5999: -- only call if doing discrete mfg. process will do this with
6000: -- boms
6001:
6000: -- boms
6001:
6002: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6003: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING');
6004: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6005:
6006:
6007: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6008: MSC_CL_ROUTING_PULL.LOAD_ROUTING;
6003: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING');
6004: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6005:
6006:
6007: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6008: MSC_CL_ROUTING_PULL.LOAD_ROUTING;
6009: END IF;
6010:
6011: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_OPER_NETWORKS THEN
6007: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6008: MSC_CL_ROUTING_PULL.LOAD_ROUTING;
6009: END IF;
6010:
6011: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_OPER_NETWORKS THEN
6012:
6013: -- only call if doing discrete mfg. process will do this with
6014: -- boms
6015:
6014: -- boms
6015:
6016: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6017: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_OPER_NETWORKS');
6018: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6019:
6020:
6021: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6022: MSC_CL_WIP_PULL.LOAD_OPER_NETWORKS;
6017: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_OPER_NETWORKS');
6018: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6019:
6020:
6021: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6022: MSC_CL_WIP_PULL.LOAD_OPER_NETWORKS;
6023: END IF;
6024:
6025: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ROUTING_OPERATIONS THEN
6021: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6022: MSC_CL_WIP_PULL.LOAD_OPER_NETWORKS;
6023: END IF;
6024:
6025: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ROUTING_OPERATIONS THEN
6026:
6027: -- only call if doing discrete mfg. process will do this with
6028: -- boms
6029:
6028: -- boms
6029:
6030: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6031: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING_OPERATIONS');
6032: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6033:
6034:
6035: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6036: MSC_CL_ROUTING_PULL.LOAD_ROUTING_OPERATIONS;
6031: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING_OPERATIONS');
6032: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6033:
6034:
6035: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6036: MSC_CL_ROUTING_PULL.LOAD_ROUTING_OPERATIONS;
6037: END IF;
6038:
6039: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_OPERATION_RES_SEQS THEN
6035: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6036: MSC_CL_ROUTING_PULL.LOAD_ROUTING_OPERATIONS;
6037: END IF;
6038:
6039: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_OPERATION_RES_SEQS THEN
6040:
6041: -- only call if doing discrete mfg. process will do this with
6042: -- boms
6043:
6042: -- boms
6043:
6044: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6045: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPERATION_RES_SEQ');
6046: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6047:
6048:
6049: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6050: MSC_CL_ROUTING_PULL.LOAD_OPERATION_RES_SEQS;
6045: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPERATION_RES_SEQ');
6046: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6047:
6048:
6049: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6050: MSC_CL_ROUTING_PULL.LOAD_OPERATION_RES_SEQS;
6051: END IF;
6052: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_OPERATION_RESOURCES THEN
6053:
6048:
6049: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6050: MSC_CL_ROUTING_PULL.LOAD_OPERATION_RES_SEQS;
6051: END IF;
6052: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_OPERATION_RESOURCES THEN
6053:
6054: -- only call if doing discrete mfg. process will do this with
6055: -- boms
6056:
6055: -- boms
6056:
6057: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6058: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_RESOURCES');
6059: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6060:
6061:
6062: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6063: MSC_CL_ROUTING_PULL.LOAD_OPERATION_RESOURCES;
6058: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_RESOURCES');
6059: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6060:
6061:
6062: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6063: MSC_CL_ROUTING_PULL.LOAD_OPERATION_RESOURCES;
6064: END IF;
6065: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_OPERATION_COMPONENTS THEN
6066:
6061:
6062: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6063: MSC_CL_ROUTING_PULL.LOAD_OPERATION_RESOURCES;
6064: END IF;
6065: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_OPERATION_COMPONENTS THEN
6066:
6067: -- only call if doing discrete mfg. process will do this with
6068: -- boms
6069:
6068: -- boms
6069:
6070: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6071: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_COMPONENTS');
6072: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6073:
6074:
6075: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6076: MSC_CL_ROUTING_PULL.LOAD_OPERATION_COMPONENTS;
6071: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_COMPONENTS');
6072: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6073:
6074:
6075: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6076: MSC_CL_ROUTING_PULL.LOAD_OPERATION_COMPONENTS;
6077: END IF;
6078: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PROCESS_EFFECTIVITY THEN
6079:
6074:
6075: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6076: MSC_CL_ROUTING_PULL.LOAD_OPERATION_COMPONENTS;
6077: END IF;
6078: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PROCESS_EFFECTIVITY THEN
6079:
6080: -- only call if doing discrete mfg. process will do this with
6081: -- boms
6082:
6081: -- boms
6082:
6083: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6084: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_PROCESS_EFFECTIVITY');
6085: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6086:
6087:
6088: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6089: MSC_CL_BOM_PULL.LOAD_PROCESS_EFFECTIVITY;
6084: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_PROCESS_EFFECTIVITY');
6085: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6086:
6087:
6088: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6089: MSC_CL_BOM_PULL.LOAD_PROCESS_EFFECTIVITY;
6090: END IF;
6091:
6092: ELSIF prec.unit_number_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UNIT_NUMBER THEN
6088: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6089: MSC_CL_BOM_PULL.LOAD_PROCESS_EFFECTIVITY;
6090: END IF;
6091:
6092: ELSIF prec.unit_number_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UNIT_NUMBER THEN
6093:
6094: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6095: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER');
6096: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6092: ELSIF prec.unit_number_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UNIT_NUMBER THEN
6093:
6094: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6095: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER');
6096: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6097:
6098: MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER;
6099:
6100: ELSIF prec.saf_stock_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SAFETY_STOCK THEN
6096: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6097:
6098: MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER;
6099:
6100: ELSIF prec.saf_stock_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SAFETY_STOCK THEN
6101:
6102: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6103: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK');
6104: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6100: ELSIF prec.saf_stock_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SAFETY_STOCK THEN
6101:
6102: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6103: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK');
6104: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6105:
6106: MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK;
6107:
6108: ELSIF prec.project_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PROJECT THEN
6104: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6105:
6106: MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK;
6107:
6108: ELSIF prec.project_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PROJECT THEN
6109:
6110: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6111: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PROJECT');
6112: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6108: ELSIF prec.project_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PROJECT THEN
6109:
6110: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6111: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PROJECT');
6112: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6113:
6114: MSC_CL_OTHER_PULL.LOAD_PROJECT;
6115:
6116: ELSIF prec.parameter_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PARAMETER THEN
6112: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6113:
6114: MSC_CL_OTHER_PULL.LOAD_PROJECT;
6115:
6116: ELSIF prec.parameter_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PARAMETER THEN
6117:
6118: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6119: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_PARAMETER');
6120: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6116: ELSIF prec.parameter_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PARAMETER THEN
6117:
6118: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6119: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_PARAMETER');
6120: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6121:
6122: MSC_CL_SETUP_PULL.LOAD_PARAMETER;
6123:
6124: ELSIF prec.uom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UOM THEN
6120: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6121:
6122: MSC_CL_SETUP_PULL.LOAD_PARAMETER;
6123:
6124: ELSIF prec.uom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UOM THEN
6125:
6126: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6127: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_UOM');
6128: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6124: ELSIF prec.uom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UOM THEN
6125:
6126: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6127: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_UOM');
6128: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6129:
6130: MSC_CL_SETUP_PULL.LOAD_UOM;
6131:
6132: ELSIF prec.kpi_bis_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BIS THEN
6128: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6129:
6130: MSC_CL_SETUP_PULL.LOAD_UOM;
6131:
6132: ELSIF prec.kpi_bis_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BIS THEN
6133:
6134: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6135: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_BIS');
6136: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6132: ELSIF prec.kpi_bis_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BIS THEN
6133:
6134: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6135: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_BIS');
6136: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6137:
6138:
6139: IF v_apps_ver= MSC_UTIL.G_APPS110 THEN
6140:
6135: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_BIS');
6136: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6137:
6138:
6139: IF v_apps_ver= MSC_UTIL.G_APPS110 THEN
6140:
6141: MSC_CL_OTHER_PULL.LOAD_BIS110;
6142:
6143: ELSIF v_apps_ver>= MSC_UTIL.G_APPS115 THEN
6139: IF v_apps_ver= MSC_UTIL.G_APPS110 THEN
6140:
6141: MSC_CL_OTHER_PULL.LOAD_BIS110;
6142:
6143: ELSIF v_apps_ver>= MSC_UTIL.G_APPS115 THEN
6144:
6145: MSC_CL_OTHER_PULL.LOAD_BIS115;
6146:
6147: END IF;
6145: MSC_CL_OTHER_PULL.LOAD_BIS115;
6146:
6147: END IF;
6148:
6149: ELSIF prec.atp_rules_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ATP_RULES THEN
6150:
6151: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6152: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_ATP_RULES');
6153: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6149: ELSIF prec.atp_rules_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ATP_RULES THEN
6150:
6151: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6152: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_ATP_RULES');
6153: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6154:
6155: MSC_CL_OTHER_PULL.LOAD_ATP_RULES;
6156:
6157: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_SUPPLY THEN
6153: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6154:
6155: MSC_CL_OTHER_PULL.LOAD_ATP_RULES;
6156:
6157: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_SUPPLY THEN
6158:
6159: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6160: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY');
6161: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6157: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_SUPPLY THEN
6158:
6159: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6160: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY');
6161: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6162:
6163: MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY;
6164:
6165: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_DEMAND THEN
6161: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6162:
6163: MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY;
6164:
6165: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_DEMAND THEN
6166:
6167: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6168: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND');
6169: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6165: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_DEMAND THEN
6166:
6167: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6168: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND');
6169: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6170:
6171: MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND;
6172:
6173: ELSIF prec.planner_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PLANNERS THEN
6169: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6170:
6171: MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND;
6172:
6173: ELSIF prec.planner_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PLANNERS THEN
6174:
6175: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6176: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PLANNERS');
6177: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6173: ELSIF prec.planner_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PLANNERS THEN
6174:
6175: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6176: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PLANNERS');
6177: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6178:
6179: MSC_CL_OTHER_PULL.LOAD_PLANNERS;
6180:
6181: -- Added this new task for Prod. Subst ---
6178:
6179: MSC_CL_OTHER_PULL.LOAD_PLANNERS;
6180:
6181: -- Added this new task for Prod. Subst ---
6182: ELSIF prec.item_subst_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM_SUBSTITUTES THEN
6183:
6184: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6185: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES');
6186: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6182: ELSIF prec.item_subst_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM_SUBSTITUTES THEN
6183:
6184: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6185: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES');
6186: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6187:
6188: IF ( v_apps_ver >= MSC_UTIL.G_APPS115 ) THEN
6189: MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES;
6190: END IF;
6184: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6185: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES');
6186: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6187:
6188: IF ( v_apps_ver >= MSC_UTIL.G_APPS115 ) THEN
6189: MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES;
6190: END IF;
6191:
6192: ELSIF prec.demand_class_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DEMAND_CLASS THEN
6188: IF ( v_apps_ver >= MSC_UTIL.G_APPS115 ) THEN
6189: MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES;
6190: END IF;
6191:
6192: ELSIF prec.demand_class_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DEMAND_CLASS THEN
6193:
6194: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6195: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS');
6196: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6192: ELSIF prec.demand_class_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DEMAND_CLASS THEN
6193:
6194: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6195: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS');
6196: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6197:
6198: MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS;
6199:
6200: ELSIF (prec.tp_customer_flag = MSC_UTIL.SYS_YES OR prec.tp_vendor_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_BUYER_CONTACT THEN
6196: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6197:
6198: MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS;
6199:
6200: ELSIF (prec.tp_customer_flag = MSC_UTIL.SYS_YES OR prec.tp_vendor_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_BUYER_CONTACT THEN
6201:
6202: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6203: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT');
6204: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6200: ELSIF (prec.tp_customer_flag = MSC_UTIL.SYS_YES OR prec.tp_vendor_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_BUYER_CONTACT THEN
6201:
6202: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6203: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT');
6204: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6205: MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT;
6206:
6207: /* SCE Change starts */
6208:
6205: MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT;
6206:
6207: /* SCE Change starts */
6208:
6209: ELSIF (prec.user_company_flag <> MSC_UTIL.NO_USER_COMPANY) AND pTASKNUM = TASK_USER_COMPANY THEN
6210:
6211: /* Pull User Company association only if Collection mode is either complete
6212: refresh or targeted refresh.
6213: We do not collect association in net change refresh since there is
6214: no snapshot in the source for fnd_user*/
6215:
6216: IF v_lrnn = -1 THEN
6217:
6218: /* Pull User Company association only if Apps version is MSC_UTIL.G_APPS115 */
6219:
6220: IF v_apps_ver >= MSC_UTIL.G_APPS115 THEN
6221:
6222: /* Pull User Company association only if MSC:Configuration is APS or APS+SCE */
6216: IF v_lrnn = -1 THEN
6217:
6218: /* Pull User Company association only if Apps version is MSC_UTIL.G_APPS115 */
6219:
6220: IF v_apps_ver >= MSC_UTIL.G_APPS115 THEN
6221:
6222: /* Pull User Company association only if MSC:Configuration is APS or APS+SCE */
6223: IF (MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_APS_SCE
6224: OR
6219:
6220: IF v_apps_ver >= MSC_UTIL.G_APPS115 THEN
6221:
6222: /* Pull User Company association only if MSC:Configuration is APS or APS+SCE */
6223: IF (MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_APS_SCE
6224: OR
6225: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6226:
6227: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6221:
6222: /* Pull User Company association only if MSC:Configuration is APS or APS+SCE */
6223: IF (MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_APS_SCE
6224: OR
6225: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6226:
6227: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6228: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SCE_COLLECTION.PULL_USER_COMPANY');
6229: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6225: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6226:
6227: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6228: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SCE_COLLECTION.PULL_USER_COMPANY');
6229: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6230:
6231: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of USER_COMPANY_ENABLED :'||USER_COMPANY_ENABLED);
6232: MSC_CL_SCE_COLLECTION.PULL_USER_COMPANY(v_dblink,
6233: v_instance_id,
6227: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6228: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SCE_COLLECTION.PULL_USER_COMPANY');
6229: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6230:
6231: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of USER_COMPANY_ENABLED :'||USER_COMPANY_ENABLED);
6232: MSC_CL_SCE_COLLECTION.PULL_USER_COMPANY(v_dblink,
6233: v_instance_id,
6234: lv_return_status,
6235: USER_COMPANY_ENABLED);
6235: USER_COMPANY_ENABLED);
6236: IF (lv_return_status = FALSE) THEN
6237: pSTATUS := FAIL;
6238: END IF;
6239: END IF; /* IF MSC_UTIL.G_MSC_CONFIGURATION */
6240: END IF; /* IF v_apps_ver >= MSC_UTIL.G_APPS115 */
6241: END IF; /* IF v_lrnn */
6242:
6243: /* SCE Change ends */
6236: IF (lv_return_status = FALSE) THEN
6237: pSTATUS := FAIL;
6238: END IF;
6239: END IF; /* IF MSC_UTIL.G_MSC_CONFIGURATION */
6240: END IF; /* IF v_apps_ver >= MSC_UTIL.G_APPS115 */
6241: END IF; /* IF v_lrnn */
6242:
6243: /* SCE Change ends */
6244:
6242:
6243: /* SCE Change ends */
6244:
6245: /* CP-ACK starts */
6246: ELSIF (prec.supplier_response_flag = MSC_UTIL.SYS_YES) AND pTASKNUM = TASK_SUPPLIER_RESPONSE THEN
6247:
6248: /* Pull supplier responses only if Supplier Response flag is set
6249: to Yes */
6250: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of SUPPLIER_RESPONSE_ENABLED :'||SUPPLIER_RESPONSE_ENABLED);
6246: ELSIF (prec.supplier_response_flag = MSC_UTIL.SYS_YES) AND pTASKNUM = TASK_SUPPLIER_RESPONSE THEN
6247:
6248: /* Pull supplier responses only if Supplier Response flag is set
6249: to Yes */
6250: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of SUPPLIER_RESPONSE_ENABLED :'||SUPPLIER_RESPONSE_ENABLED);
6251:
6252: IF (SUPPLIER_RESPONSE_ENABLED = MSC_UTIL.SYS_YES) THEN
6253:
6254: /* Pull Supplier response only if Apps version is MSC_UTIL.G_APPS115 */
6248: /* Pull supplier responses only if Supplier Response flag is set
6249: to Yes */
6250: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of SUPPLIER_RESPONSE_ENABLED :'||SUPPLIER_RESPONSE_ENABLED);
6251:
6252: IF (SUPPLIER_RESPONSE_ENABLED = MSC_UTIL.SYS_YES) THEN
6253:
6254: /* Pull Supplier response only if Apps version is MSC_UTIL.G_APPS115 */
6255:
6256: IF v_apps_ver >= MSC_UTIL.G_APPS115 THEN
6250: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of SUPPLIER_RESPONSE_ENABLED :'||SUPPLIER_RESPONSE_ENABLED);
6251:
6252: IF (SUPPLIER_RESPONSE_ENABLED = MSC_UTIL.SYS_YES) THEN
6253:
6254: /* Pull Supplier response only if Apps version is MSC_UTIL.G_APPS115 */
6255:
6256: IF v_apps_ver >= MSC_UTIL.G_APPS115 THEN
6257:
6258: /* Pull Supplier Response only if MSC:Configuration is CP or APS+CP */
6252: IF (SUPPLIER_RESPONSE_ENABLED = MSC_UTIL.SYS_YES) THEN
6253:
6254: /* Pull Supplier response only if Apps version is MSC_UTIL.G_APPS115 */
6255:
6256: IF v_apps_ver >= MSC_UTIL.G_APPS115 THEN
6257:
6258: /* Pull Supplier Response only if MSC:Configuration is CP or APS+CP */
6259:
6260: IF (MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_APS_SCE
6256: IF v_apps_ver >= MSC_UTIL.G_APPS115 THEN
6257:
6258: /* Pull Supplier Response only if MSC:Configuration is CP or APS+CP */
6259:
6260: IF (MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_APS_SCE
6261: OR
6262: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6263:
6264: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6258: /* Pull Supplier Response only if MSC:Configuration is CP or APS+CP */
6259:
6260: IF (MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_APS_SCE
6261: OR
6262: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6263:
6264: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6265: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLIER_RESP.PULL_SUPPLIER_RESP');
6266: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6262: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6263:
6264: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6265: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLIER_RESP.PULL_SUPPLIER_RESP');
6266: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6267:
6268: MSC_CL_SUPPLIER_RESP.PULL_SUPPLIER_RESP(v_dblink,
6269: v_instance_id,
6270: lv_return_status,
6270: lv_return_status,
6271: SUPPLIER_RESPONSE_ENABLED,
6272: v_refresh_id,
6273: v_lrn,
6274: MSC_UTIL.v_in_org_str
6275: );
6276: IF (lv_return_status = FALSE) THEN
6277: pSTATUS := FAIL;
6278: END IF;
6275: );
6276: IF (lv_return_status = FALSE) THEN
6277: pSTATUS := FAIL;
6278: END IF;
6279: END IF; /* IF MSC_UTIL.G_MSC_CONFIGURATION */
6280: END IF; /* IF v_apps_ver >= MSC_UTIL.G_APPS115 */
6281: END IF;
6282: /* CP-ACK ends */
6283:
6276: IF (lv_return_status = FALSE) THEN
6277: pSTATUS := FAIL;
6278: END IF;
6279: END IF; /* IF MSC_UTIL.G_MSC_CONFIGURATION */
6280: END IF; /* IF v_apps_ver >= MSC_UTIL.G_APPS115 */
6281: END IF;
6282: /* CP-ACK ends */
6283:
6284: ELSIF prec.trip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_TRIP THEN
6280: END IF; /* IF v_apps_ver >= MSC_UTIL.G_APPS115 */
6281: END IF;
6282: /* CP-ACK ends */
6283:
6284: ELSIF prec.trip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_TRIP THEN
6285:
6286: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6287: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_TRIP');
6288: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6284: ELSIF prec.trip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_TRIP THEN
6285:
6286: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6287: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_TRIP');
6288: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6289:
6290: MSC_CL_OTHER_PULL.LOAD_TRIP;
6291:
6292:
6289:
6290: MSC_CL_OTHER_PULL.LOAD_TRIP;
6291:
6292:
6293: ELSIF prec.sales_channel_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SALES_CHANNEL THEN
6294:
6295: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6296: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL');
6297: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6293: ELSIF prec.sales_channel_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SALES_CHANNEL THEN
6294:
6295: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6296: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL');
6297: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6298:
6299: MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL;
6300:
6301: ELSIF prec.fiscal_calendar_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_FISCAL_CALENDAR THEN
6297: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6298:
6299: MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL;
6300:
6301: ELSIF prec.fiscal_calendar_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_FISCAL_CALENDAR THEN
6302:
6303: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6304: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR');
6305: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6301: ELSIF prec.fiscal_calendar_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_FISCAL_CALENDAR THEN
6302:
6303: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6304: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR');
6305: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6306:
6307: MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR;
6308:
6309: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO) THEN
6305: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6306:
6307: MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR;
6308:
6309: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO) THEN
6310:
6311: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6312: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO');
6313: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6309: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO) THEN
6310:
6311: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6312: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO');
6313: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6314: /* changes for executing repair order load Bug# 5909379 */
6315: MSC_CL_RPO_PULL.LOAD_IRO;
6316:
6317: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO_DEMAND) THEN
6313: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6314: /* changes for executing repair order load Bug# 5909379 */
6315: MSC_CL_RPO_PULL.LOAD_IRO;
6316:
6317: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO_DEMAND) THEN
6318:
6319: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6320: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO_DEMAND');
6321: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6317: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO_DEMAND) THEN
6318:
6319: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6320: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO_DEMAND');
6321: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6322: /* changes for executing repair order load Bug# 5909379 */
6323: MSC_CL_RPO_PULL.LOAD_IRO_DEMAND;
6324:
6325: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO) THEN
6321: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6322: /* changes for executing repair order load Bug# 5909379 */
6323: MSC_CL_RPO_PULL.LOAD_IRO_DEMAND;
6324:
6325: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO) THEN
6326:
6327: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6328: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO');
6329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6325: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO) THEN
6326:
6327: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6328: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO');
6329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6330: /* changes for executing repair order load Bug# 5935273*/
6331: MSC_CL_RPO_PULL.LOAD_ERO;
6332:
6333: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO_DEMAND) THEN
6329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6330: /* changes for executing repair order load Bug# 5935273*/
6331: MSC_CL_RPO_PULL.LOAD_ERO;
6332:
6333: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO_DEMAND) THEN
6334:
6335: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6336: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO_DEMAND');
6337: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6333: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO_DEMAND) THEN
6334:
6335: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6336: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO_DEMAND');
6337: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6338: /* changes for executing repair order load Bug# 5935273 */
6339: MSC_CL_RPO_PULL.LOAD_ERO_DEMAND;
6340:
6341:
6338: /* changes for executing repair order load Bug# 5935273 */
6339: MSC_CL_RPO_PULL.LOAD_ERO_DEMAND;
6340:
6341:
6342: ELSIF prec.payback_demand_supply_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PAYBACK_DEMAND_SUPPLY THEN
6343:
6344: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6345: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPEN_PAYBACKS');
6346: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6342: ELSIF prec.payback_demand_supply_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PAYBACK_DEMAND_SUPPLY THEN
6343:
6344: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6345: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPEN_PAYBACKS');
6346: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6347:
6348: MSC_CL_DEMAND_PULL.LOAD_OPEN_PAYBACKS;
6349:
6350: /* changes for currency conversion bug # 6469722 */
6347:
6348: MSC_CL_DEMAND_PULL.LOAD_OPEN_PAYBACKS;
6349:
6350: /* changes for currency conversion bug # 6469722 */
6351: ELSIF prec.currency_conversion_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CURRENCY_CONVERSION THEN -- bug # 6469722
6352: IF (MSC_CL_OTHER_PULL.G_MSC_HUB_CURR_CODE IS NOT NULL) THEN
6353: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6354: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION');
6355: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6351: ELSIF prec.currency_conversion_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CURRENCY_CONVERSION THEN -- bug # 6469722
6352: IF (MSC_CL_OTHER_PULL.G_MSC_HUB_CURR_CODE IS NOT NULL) THEN
6353: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6354: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION');
6355: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6356:
6357: MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION;
6358: ELSE
6359: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Currency Data is not collected as MSC:Planning Hub Currency Code Profile is NULL.');
6355: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6356:
6357: MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION;
6358: ELSE
6359: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Currency Data is not collected as MSC:Planning Hub Currency Code Profile is NULL.');
6360: END IF;
6361: ELSIF prec.delivery_details_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DELIVERY_DETAILS THEN
6362:
6363: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6357: MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION;
6358: ELSE
6359: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Currency Data is not collected as MSC:Planning Hub Currency Code Profile is NULL.');
6360: END IF;
6361: ELSIF prec.delivery_details_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DELIVERY_DETAILS THEN
6362:
6363: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6364: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_DELIVERY_DETAILS');
6365: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6361: ELSIF prec.delivery_details_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DELIVERY_DETAILS THEN
6362:
6363: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6364: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_DELIVERY_DETAILS');
6365: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6366:
6367: MSC_CL_OTHER_PULL.LOAD_DELIVERY_DETAILS;
6368: ELSIF prec.ibuc_history_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_IBUC_HISTORY
6369: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6364: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_DELIVERY_DETAILS');
6365: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6366:
6367: MSC_CL_OTHER_PULL.LOAD_DELIVERY_DETAILS;
6368: ELSIF prec.ibuc_history_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_IBUC_HISTORY
6369: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6371:
6372: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6365: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6366:
6367: MSC_CL_OTHER_PULL.LOAD_DELIVERY_DETAILS;
6368: ELSIF prec.ibuc_history_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_IBUC_HISTORY
6369: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6371:
6372: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6373: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_IB_CONTRACTS');
6366:
6367: MSC_CL_OTHER_PULL.LOAD_DELIVERY_DETAILS;
6368: ELSIF prec.ibuc_history_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_IBUC_HISTORY
6369: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6371:
6372: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6373: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_IB_CONTRACTS');
6374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6371:
6372: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6373: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_IB_CONTRACTS');
6374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6375:
6376: MSC_CL_OTHER_PULL.LOAD_IB_CONTRACTS;
6377: ELSIF prec.notes_attach_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SHORT_TEXT
6378: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6373: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_IB_CONTRACTS');
6374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6375:
6376: MSC_CL_OTHER_PULL.LOAD_IB_CONTRACTS;
6377: ELSIF prec.notes_attach_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SHORT_TEXT
6378: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6379: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6380:
6381: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6375:
6376: MSC_CL_OTHER_PULL.LOAD_IB_CONTRACTS;
6377: ELSIF prec.notes_attach_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SHORT_TEXT
6378: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6379: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6380:
6381: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6382: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SHORT_TEXT');
6375:
6376: MSC_CL_OTHER_PULL.LOAD_IB_CONTRACTS;
6377: ELSIF prec.notes_attach_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SHORT_TEXT
6378: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6379: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6380:
6381: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6382: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SHORT_TEXT');
6383: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6379: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6380:
6381: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6382: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SHORT_TEXT');
6383: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6384:
6385: MSC_CL_OTHER_PULL.LOAD_SHORT_TEXT;
6386:
6387: ELSIF prec.notes_attach_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_LONG_TEXT
6383: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6384:
6385: MSC_CL_OTHER_PULL.LOAD_SHORT_TEXT;
6386:
6387: ELSIF prec.notes_attach_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_LONG_TEXT
6388: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6389: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6390:
6391: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6384:
6385: MSC_CL_OTHER_PULL.LOAD_SHORT_TEXT;
6386:
6387: ELSIF prec.notes_attach_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_LONG_TEXT
6388: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6389: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6390:
6391: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6392: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_LONG_TEXT');
6385: MSC_CL_OTHER_PULL.LOAD_SHORT_TEXT;
6386:
6387: ELSIF prec.notes_attach_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_LONG_TEXT
6388: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6389: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6390:
6391: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6392: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_LONG_TEXT');
6393: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6389: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6390:
6391: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6392: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_LONG_TEXT');
6393: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6394:
6395: MSC_CL_OTHER_PULL.LOAD_LONG_TEXT;
6396:
6397: /* USAF --rgurugub*/
6394:
6395: MSC_CL_OTHER_PULL.LOAD_LONG_TEXT;
6396:
6397: /* USAF --rgurugub*/
6398: ELSIF prec.eAM_info_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_EAM_INFO
6399: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6400:
6401: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6402: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_EAM_INFO');
6395: MSC_CL_OTHER_PULL.LOAD_LONG_TEXT;
6396:
6397: /* USAF --rgurugub*/
6398: ELSIF prec.eAM_info_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_EAM_INFO
6399: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6400:
6401: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6402: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_EAM_INFO');
6403: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6399: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6400:
6401: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6402: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_EAM_INFO');
6403: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6404: MSC_CL_EAM_PULL.LOAD_EAM_INFO;
6405:
6406: ELSIF prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES AND
6407: pTASKNUM= TASK_EAM_FORECAST
6402: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_EAM_INFO');
6403: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6404: MSC_CL_EAM_PULL.LOAD_EAM_INFO;
6405:
6406: ELSIF prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES AND
6407: pTASKNUM= TASK_EAM_FORECAST
6408: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6409: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6410: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_EAM_FORECASTS');
6404: MSC_CL_EAM_PULL.LOAD_EAM_INFO;
6405:
6406: ELSIF prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES AND
6407: pTASKNUM= TASK_EAM_FORECAST
6408: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6409: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6410: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_EAM_FORECASTS');
6411: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6412: MSC_CL_EAM_PULL.LOAD_EAM_FORECASTS(prec.eam_fc_st_date,prec.eam_fc_end_date);
6407: pTASKNUM= TASK_EAM_FORECAST
6408: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6409: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6410: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_EAM_FORECASTS');
6411: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6412: MSC_CL_EAM_PULL.LOAD_EAM_FORECASTS(prec.eam_fc_st_date,prec.eam_fc_end_date);
6413:
6414: ELSIF prec.cmro_forecasts_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CMRO_FORECASTS
6415: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6410: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_EAM_FORECASTS');
6411: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6412: MSC_CL_EAM_PULL.LOAD_EAM_FORECASTS(prec.eam_fc_st_date,prec.eam_fc_end_date);
6413:
6414: ELSIF prec.cmro_forecasts_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CMRO_FORECASTS
6415: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6416: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6417: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CMRO_FORECASTS');
6418: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6411: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6412: MSC_CL_EAM_PULL.LOAD_EAM_FORECASTS(prec.eam_fc_st_date,prec.eam_fc_end_date);
6413:
6414: ELSIF prec.cmro_forecasts_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CMRO_FORECASTS
6415: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6416: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6417: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CMRO_FORECASTS');
6418: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6419: MSC_CL_AHL_PULL.LOAD_CMRO_FORECASTS(prec.cmro_fc_st_date,prec.cmro_fc_end_date);
6414: ELSIF prec.cmro_forecasts_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CMRO_FORECASTS
6415: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6416: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6417: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CMRO_FORECASTS');
6418: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6419: MSC_CL_AHL_PULL.LOAD_CMRO_FORECASTS(prec.cmro_fc_st_date,prec.cmro_fc_end_date);
6420:
6421: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6422: pTASKNUM= TASK_VISITS
6417: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CMRO_FORECASTS');
6418: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6419: MSC_CL_AHL_PULL.LOAD_CMRO_FORECASTS(prec.cmro_fc_st_date,prec.cmro_fc_end_date);
6420:
6421: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6422: pTASKNUM= TASK_VISITS
6423: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6424: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6425: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_VISITS');
6419: MSC_CL_AHL_PULL.LOAD_CMRO_FORECASTS(prec.cmro_fc_st_date,prec.cmro_fc_end_date);
6420:
6421: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6422: pTASKNUM= TASK_VISITS
6423: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6424: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6425: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_VISITS');
6426: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6427: MSC_CL_AHL_PULL.LOAD_VISITS;
6422: pTASKNUM= TASK_VISITS
6423: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6424: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6425: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_VISITS');
6426: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6427: MSC_CL_AHL_PULL.LOAD_VISITS;
6428:
6429: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6430: pTASKNUM= TASK_WO_ATTRIBUTES
6425: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_VISITS');
6426: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6427: MSC_CL_AHL_PULL.LOAD_VISITS;
6428:
6429: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6430: pTASKNUM= TASK_WO_ATTRIBUTES
6431: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6432: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6433: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_ATTRIBUTES');
6427: MSC_CL_AHL_PULL.LOAD_VISITS;
6428:
6429: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6430: pTASKNUM= TASK_WO_ATTRIBUTES
6431: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6432: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6433: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_ATTRIBUTES');
6434: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6435: MSC_CL_AHL_PULL.LOAD_WO_ATTRIBUTES;
6430: pTASKNUM= TASK_WO_ATTRIBUTES
6431: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6432: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6433: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_ATTRIBUTES');
6434: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6435: MSC_CL_AHL_PULL.LOAD_WO_ATTRIBUTES;
6436:
6437: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6438: pTASKNUM= TASK_WO_TASK_HIERARCHY
6433: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_ATTRIBUTES');
6434: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6435: MSC_CL_AHL_PULL.LOAD_WO_ATTRIBUTES;
6436:
6437: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6438: pTASKNUM= TASK_WO_TASK_HIERARCHY
6439: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6440: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6441: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_TASK_HRY');
6435: MSC_CL_AHL_PULL.LOAD_WO_ATTRIBUTES;
6436:
6437: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6438: pTASKNUM= TASK_WO_TASK_HIERARCHY
6439: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6440: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6441: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_TASK_HRY');
6442: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6443: MSC_CL_AHL_PULL.LOAD_WO_TASK_HRY;
6438: pTASKNUM= TASK_WO_TASK_HIERARCHY
6439: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6440: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6441: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_TASK_HRY');
6442: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6443: MSC_CL_AHL_PULL.LOAD_WO_TASK_HRY;
6444:
6445: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6446: pTASKNUM= TASK_WO_OPERATION_REL
6441: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_TASK_HRY');
6442: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6443: MSC_CL_AHL_PULL.LOAD_WO_TASK_HRY;
6444:
6445: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6446: pTASKNUM= TASK_WO_OPERATION_REL
6447: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6448: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6449: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_OPER_RELN');
6443: MSC_CL_AHL_PULL.LOAD_WO_TASK_HRY;
6444:
6445: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6446: pTASKNUM= TASK_WO_OPERATION_REL
6447: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6448: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6449: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_OPER_RELN');
6450: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6451: MSC_CL_AHL_PULL.LOAD_WO_OPER_RELN;
6446: pTASKNUM= TASK_WO_OPERATION_REL
6447: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6448: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6449: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_OPER_RELN');
6450: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6451: MSC_CL_AHL_PULL.LOAD_WO_OPER_RELN;
6452:
6453: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6454: pTASKNUM= TASK_WORK_BREAKDOWN_STRUCT
6449: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_OPER_RELN');
6450: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6451: MSC_CL_AHL_PULL.LOAD_WO_OPER_RELN;
6452:
6453: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6454: pTASKNUM= TASK_WORK_BREAKDOWN_STRUCT
6455: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6456: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6457: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WORK_BREAKDOWN');
6451: MSC_CL_AHL_PULL.LOAD_WO_OPER_RELN;
6452:
6453: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6454: pTASKNUM= TASK_WORK_BREAKDOWN_STRUCT
6455: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6456: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6457: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WORK_BREAKDOWN');
6458: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6459: MSC_CL_AHL_PULL.LOAD_WORK_BREAKDOWN;
6454: pTASKNUM= TASK_WORK_BREAKDOWN_STRUCT
6455: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6456: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6457: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WORK_BREAKDOWN');
6458: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6459: MSC_CL_AHL_PULL.LOAD_WORK_BREAKDOWN;
6460:
6461: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6462: pTASKNUM= TASK_WO_MILESTONES
6457: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WORK_BREAKDOWN');
6458: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6459: MSC_CL_AHL_PULL.LOAD_WORK_BREAKDOWN;
6460:
6461: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6462: pTASKNUM= TASK_WO_MILESTONES
6463: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6464: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6465: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_MILESTONES');
6459: MSC_CL_AHL_PULL.LOAD_WORK_BREAKDOWN;
6460:
6461: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6462: pTASKNUM= TASK_WO_MILESTONES
6463: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6464: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6465: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_MILESTONES');
6466: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6467: MSC_CL_AHL_PULL.LOAD_MILESTONES;
6462: pTASKNUM= TASK_WO_MILESTONES
6463: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6464: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6465: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_MILESTONES');
6466: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6467: MSC_CL_AHL_PULL.LOAD_MILESTONES;
6468:
6469: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6470: pTASKNUM= TASK_WO_SUB_COMP
6465: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_MILESTONES');
6466: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6467: MSC_CL_AHL_PULL.LOAD_MILESTONES;
6468:
6469: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6470: pTASKNUM= TASK_WO_SUB_COMP
6471: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6472: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6473: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_SUB_COMP ');
6467: MSC_CL_AHL_PULL.LOAD_MILESTONES;
6468:
6469: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6470: pTASKNUM= TASK_WO_SUB_COMP
6471: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6472: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6473: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_SUB_COMP ');
6474: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6475: MSC_CL_AHL_PULL.LOAD_WO_SUB_COMP ;
6470: pTASKNUM= TASK_WO_SUB_COMP
6471: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6472: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6473: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_SUB_COMP ');
6474: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6475: MSC_CL_AHL_PULL.LOAD_WO_SUB_COMP ;
6476:
6477: ELSIF prec.reserves_flag = MSC_UTIL.SYS_YES AND
6478: pTASKNUM= TASK_CMRO_SUPP_RESRV
6473: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_SUB_COMP ');
6474: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6475: MSC_CL_AHL_PULL.LOAD_WO_SUB_COMP ;
6476:
6477: ELSIF prec.reserves_flag = MSC_UTIL.SYS_YES AND
6478: pTASKNUM= TASK_CMRO_SUPP_RESRV
6479: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6480: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6481: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SUPPLY_RESERVATIONS');
6475: MSC_CL_AHL_PULL.LOAD_WO_SUB_COMP ;
6476:
6477: ELSIF prec.reserves_flag = MSC_UTIL.SYS_YES AND
6478: pTASKNUM= TASK_CMRO_SUPP_RESRV
6479: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6480: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6481: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SUPPLY_RESERVATIONS');
6482: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6483: MSC_CL_AHL_PULL.LOAD_SUPPLY_RESERVATIONS;
6478: pTASKNUM= TASK_CMRO_SUPP_RESRV
6479: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6480: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6481: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SUPPLY_RESERVATIONS');
6482: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6483: MSC_CL_AHL_PULL.LOAD_SUPPLY_RESERVATIONS;
6484:
6485: /* USAF --rgurugub*/
6486:
6483: MSC_CL_AHL_PULL.LOAD_SUPPLY_RESERVATIONS;
6484:
6485: /* USAF --rgurugub*/
6486:
6487: ELSIF prec.cmro_closed_wo = MSC_UTIL.SYS_YES AND
6488: pTASKNUM= TASK_cmro_closed_wo
6489: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6490: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6491: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CLOSED_CMRO_WOS');
6485: /* USAF --rgurugub*/
6486:
6487: ELSIF prec.cmro_closed_wo = MSC_UTIL.SYS_YES AND
6488: pTASKNUM= TASK_cmro_closed_wo
6489: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6490: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6491: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CLOSED_CMRO_WOS');
6492: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6493: MSC_CL_AHL_PULL.LOAD_CLOSED_CMRO_WOS ;
6488: pTASKNUM= TASK_cmro_closed_wo
6489: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6490: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6491: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CLOSED_CMRO_WOS');
6492: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6493: MSC_CL_AHL_PULL.LOAD_CLOSED_CMRO_WOS ;
6494:
6495: ELSIF prec.osp_supply = MSC_UTIL.SYS_YES AND
6496: pTASKNUM= TASK_OSP_SUPPLY
6491: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CLOSED_CMRO_WOS');
6492: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6493: MSC_CL_AHL_PULL.LOAD_CLOSED_CMRO_WOS ;
6494:
6495: ELSIF prec.osp_supply = MSC_UTIL.SYS_YES AND
6496: pTASKNUM= TASK_OSP_SUPPLY
6497: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6498: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6499: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OSP_SUPPLY');
6493: MSC_CL_AHL_PULL.LOAD_CLOSED_CMRO_WOS ;
6494:
6495: ELSIF prec.osp_supply = MSC_UTIL.SYS_YES AND
6496: pTASKNUM= TASK_OSP_SUPPLY
6497: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6498: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6499: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OSP_SUPPLY');
6500: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6501: MSC_CL_AHL_PULL.LOAD_OSP_SUPPLY ;
6496: pTASKNUM= TASK_OSP_SUPPLY
6497: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6498: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6499: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OSP_SUPPLY');
6500: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6501: MSC_CL_AHL_PULL.LOAD_OSP_SUPPLY ;
6502:
6503: END IF;
6504:
6506: pSTATUS := OK;
6507:
6508: -- agmcont
6509: -- restore value of v_lrnn and v_lrn
6510: if (v_is_cont_refresh = MSC_UTIL.SYS_YES) then
6511: v_lrnn := pLRN;
6512: v_lrn := TO_CHAR(pLRN);
6513: end if;
6514:
6524:
6525: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_GMP_ERR');
6526: FND_MESSAGE.SET_TOKEN('ROUTINE', v_gmp_routine_name);
6527:
6528: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6529:
6530: RAISE;
6531:
6532: WHEN OTHERS THEN
6534: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_ERR');
6535: FND_MESSAGE.SET_TOKEN('TABLE', v_table_name);
6536: FND_MESSAGE.SET_TOKEN('VIEW', v_view_name);
6537:
6538: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6539:
6540: RAISE;
6541:
6542: END;--LOAD_DATA
6543:
6544: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
6545: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',
6546: TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
6547: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6548: msc_util.print_top_wait(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6549: msc_util.print_cum_stat(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6550: msc_util.print_bad_sqls(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6551:
6544: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
6545: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',
6546: TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
6547: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6548: msc_util.print_top_wait(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6549: msc_util.print_cum_stat(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6550: msc_util.print_bad_sqls(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6551:
6552:
6545: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',
6546: TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
6547: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6548: msc_util.print_top_wait(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6549: msc_util.print_cum_stat(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6550: msc_util.print_bad_sqls(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6551:
6552:
6553: EXCEPTION
6546: TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
6547: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6548: msc_util.print_top_wait(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6549: msc_util.print_cum_stat(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6550: msc_util.print_bad_sqls(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6551:
6552:
6553: EXCEPTION
6554:
6553: EXCEPTION
6554:
6555: WHEN OTHERS THEN
6556: IF SQLCODE IN (-01578,-26040) THEN
6557: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,SQLERRM);
6558: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'To rectify this problem -');
6559: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Run concurrent program "Truncate Planning Staging Tables" ');
6560: ELSE
6561: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,SQLERRM);
6554:
6555: WHEN OTHERS THEN
6556: IF SQLCODE IN (-01578,-26040) THEN
6557: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,SQLERRM);
6558: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'To rectify this problem -');
6559: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Run concurrent program "Truncate Planning Staging Tables" ');
6560: ELSE
6561: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,SQLERRM);
6562: END IF;
6555: WHEN OTHERS THEN
6556: IF SQLCODE IN (-01578,-26040) THEN
6557: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,SQLERRM);
6558: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'To rectify this problem -');
6559: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Run concurrent program "Truncate Planning Staging Tables" ');
6560: ELSE
6561: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,SQLERRM);
6562: END IF;
6563: RAISE;
6557: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,SQLERRM);
6558: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'To rectify this problem -');
6559: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Run concurrent program "Truncate Planning Staging Tables" ');
6560: ELSE
6561: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,SQLERRM);
6562: END IF;
6563: RAISE;
6564:
6565: END EXECUTE_TASK;