301:
302: IF l_call_status=FALSE THEN
303: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
304:
305: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
306: FND_MESSAGE.SET_TOKEN('REQUEST_ID',v_monitor_request_id);
307: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
308:
309: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
302: IF l_call_status=FALSE THEN
303: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
304:
305: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
306: FND_MESSAGE.SET_TOKEN('REQUEST_ID',v_monitor_request_id);
307: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
308:
309: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
310: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
303: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
304:
305: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
306: FND_MESSAGE.SET_TOKEN('REQUEST_ID',v_monitor_request_id);
307: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
308:
309: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
310: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
311: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
305: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
306: FND_MESSAGE.SET_TOKEN('REQUEST_ID',v_monitor_request_id);
307: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
308:
309: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
310: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
311: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
312:
313: RETURN MSC_UTIL.SYS_NO;
306: FND_MESSAGE.SET_TOKEN('REQUEST_ID',v_monitor_request_id);
307: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
308:
309: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
310: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
311: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
312:
313: RETURN MSC_UTIL.SYS_NO;
314: END IF;
307: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
308:
309: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
310: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
311: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
312:
313: RETURN MSC_UTIL.SYS_NO;
314: END IF;
315:
317: RETURN MSC_UTIL.SYS_YES;
318: ELSE
319: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
320:
321: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
322: FND_MESSAGE.SET_TOKEN('REQUEST_ID', v_monitor_request_id);
323: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
324: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
325: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
318: ELSE
319: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
320:
321: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
322: FND_MESSAGE.SET_TOKEN('REQUEST_ID', v_monitor_request_id);
323: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
324: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
325: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
326:
319: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
320:
321: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
322: FND_MESSAGE.SET_TOKEN('REQUEST_ID', v_monitor_request_id);
323: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
324: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
325: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
326:
327: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
320:
321: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
322: FND_MESSAGE.SET_TOKEN('REQUEST_ID', v_monitor_request_id);
323: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
324: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
325: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
326:
327: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
328: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
321: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
322: FND_MESSAGE.SET_TOKEN('REQUEST_ID', v_monitor_request_id);
323: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
324: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
325: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
326:
327: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
328: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
323: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
324: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
325: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
326:
327: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
328: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
330:
331: RETURN MSC_UTIL.SYS_NO;
324: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
325: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
326:
327: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
328: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
330:
331: RETURN MSC_UTIL.SYS_NO;
332: END IF;
325: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
326:
327: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
328: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
330:
331: RETURN MSC_UTIL.SYS_NO;
332: END IF;
333:
364:
365: IF l_call_status=FALSE THEN
366: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
367:
368: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
369: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
371:
372: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
365: IF l_call_status=FALSE THEN
366: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
367:
368: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
369: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
371:
372: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
373: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
366: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
367:
368: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
369: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
371:
372: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
373: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
368: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
369: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
371:
372: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
373: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
375:
376: RETURN MSC_UTIL.SYS_NO;
369: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
371:
372: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
373: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
375:
376: RETURN MSC_UTIL.SYS_NO;
377: END IF;
370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
371:
372: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
373: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
375:
376: RETURN MSC_UTIL.SYS_NO;
377: END IF;
378:
380: RETURN MSC_UTIL.SYS_YES;
381: ELSE
382: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
383:
384: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
385: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
386: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
387: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
381: ELSE
382: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
383:
384: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
385: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
386: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
387: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
389:
382: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
383:
384: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
385: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
386: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
387: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
389:
390: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
383:
384: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
385: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
386: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
387: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
389:
390: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
391: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
384: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
385: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
386: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
387: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
389:
390: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
391: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
392: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
386: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
387: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
389:
390: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
391: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
392: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
393:
394: RETURN MSC_UTIL.SYS_NO;
387: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
389:
390: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
391: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
392: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
393:
394: RETURN MSC_UTIL.SYS_NO;
395: END IF;
388: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
389:
390: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
391: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
392: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
393:
394: RETURN MSC_UTIL.SYS_NO;
395: END IF;
396:
429:
430: IF l_call_status=FALSE THEN
431: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
432:
433: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
434: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
435: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
436:
437: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
430: IF l_call_status=FALSE THEN
431: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
432:
433: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
434: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
435: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
436:
437: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
438: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
431: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
432:
433: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
434: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
435: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
436:
437: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
438: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
439: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
433: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
434: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
435: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
436:
437: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
438: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
439: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
440:
441: RETURN MSC_UTIL.SYS_NO;
434: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
435: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
436:
437: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
438: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
439: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
440:
441: RETURN MSC_UTIL.SYS_NO;
442: END IF;
435: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
436:
437: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
438: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
439: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
440:
441: RETURN MSC_UTIL.SYS_NO;
442: END IF;
443:
443:
444: IF l_dev_phase NOT IN ( 'PENDING','RUNNING') THEN
445: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
446:
447: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
448: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
449: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
450: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
451: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
444: IF l_dev_phase NOT IN ( 'PENDING','RUNNING') THEN
445: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
446:
447: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
448: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
449: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
450: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
451: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
452:
445: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
446:
447: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
448: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
449: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
450: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
451: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
452:
453: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
446:
447: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
448: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
449: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
450: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
451: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
452:
453: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
454: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
447: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
448: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
449: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
450: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
451: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
452:
453: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
454: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
449: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
450: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
451: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
452:
453: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
454: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
456:
457: RETURN MSC_UTIL.SYS_NO;
450: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
451: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
452:
453: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
454: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
456:
457: RETURN MSC_UTIL.SYS_NO;
458: END IF;
451: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
452:
453: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
454: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
456:
457: RETURN MSC_UTIL.SYS_NO;
458: END IF;
459:
510: req_complete := req_complete + 1;
511:
512: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'ALL_WORKERS_COMPLETED');
513:
514: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
515: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
516: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
517: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
518: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
511:
512: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'ALL_WORKERS_COMPLETED');
513:
514: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
515: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
516: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
517: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
518: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
519:
512: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'ALL_WORKERS_COMPLETED');
513:
514: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
515: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
516: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
517: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
518: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
519:
520: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_TOTAL_REQS_COMPLETE');
513:
514: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
515: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
516: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
517: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
518: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
519:
520: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_TOTAL_REQS_COMPLETE');
521: FND_MESSAGE.SET_TOKEN('REQUESTS',req_complete);
514: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
515: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
516: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
517: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
518: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
519:
520: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_TOTAL_REQS_COMPLETE');
521: FND_MESSAGE.SET_TOKEN('REQUESTS',req_complete);
522: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
516: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
517: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
518: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
519:
520: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_TOTAL_REQS_COMPLETE');
521: FND_MESSAGE.SET_TOKEN('REQUESTS',req_complete);
522: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
523:
524: END IF;
517: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
518: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
519:
520: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_TOTAL_REQS_COMPLETE');
521: FND_MESSAGE.SET_TOKEN('REQUESTS',req_complete);
522: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
523:
524: END IF;
525:
518: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
519:
520: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_TOTAL_REQS_COMPLETE');
521: FND_MESSAGE.SET_TOKEN('REQUESTS',req_complete);
522: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
523:
524: END IF;
525:
526: END LOOP;
525:
526: END LOOP;
527:
528: IF total_req = req_complete THEN
529: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_ALL_WORKERS_COMP');
530: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
531: RETURN MSC_UTIL.SYS_YES;
532: ELSE
533: RETURN MSC_UTIL.SYS_NO;
526: END LOOP;
527:
528: IF total_req = req_complete THEN
529: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_ALL_WORKERS_COMP');
530: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
531: RETURN MSC_UTIL.SYS_YES;
532: ELSE
533: RETURN MSC_UTIL.SYS_NO;
534: END IF;
609: lv_application_id NUMBER;
610:
611: BEGIN
612:
613: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_START');
614: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET );
615:
616: savepoint start_of_submission;
617:
610:
611: BEGIN
612:
613: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_START');
614: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET );
615:
616: savepoint start_of_submission;
617:
618: -- agmcont:
705: IF lv_retcode= MSC_UTIL.G_ERROR THEN
706: ROLLBACK TO start_of_submission;
707:
708: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
709: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
710: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
711: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
712: RETURN FALSE;
713: END IF;
706: ROLLBACK TO start_of_submission;
707:
708: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
709: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
710: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
711: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
712: RETURN FALSE;
713: END IF;
714:
707:
708: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
709: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
710: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
711: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
712: RETURN FALSE;
713: END IF;
714:
715: IF lv_request_id= 0 THEN
715: IF lv_request_id= 0 THEN
716: ROLLBACK TO start_of_submission;
717:
718: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
719: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
720: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
721: RETURN FALSE;
722: END IF;
723:
716: ROLLBACK TO start_of_submission;
717:
718: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
719: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
720: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
721: RETURN FALSE;
722: END IF;
723:
724: COMMIT;
722: END IF;
723:
724: COMMIT;
725:
726: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQUEST_ID');
727: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
728: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET );
729:
730: /* purge the staging tables
723:
724: COMMIT;
725:
726: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQUEST_ID');
727: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
728: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET );
729:
730: /* purge the staging tables
731: the purpose of calling this procedure is that we do a COMMIT after
724: COMMIT;
725:
726: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQUEST_ID');
727: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
728: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET );
729:
730: /* purge the staging tables
731: the purpose of calling this procedure is that we do a COMMIT after
732: every task is done, if the previous data pull failed we may have
762: IF lv_retcode = MSC_UTIL.G_NORMAL_COMPLETION THEN
763: RETURN TRUE;
764: ELSE
765: IF lv_retcode = MSC_UTIL.G_PENDING_INACTIVE THEN
766: FND_MESSAGE.SET_NAME('MSC', 'MSC_RS_TIME_OUT');
767: FND_MESSAGE.SET_TOKEN('PENDING_TIMEOUT', lv_timeout);
768: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
769: ELSE
770: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
763: RETURN TRUE;
764: ELSE
765: IF lv_retcode = MSC_UTIL.G_PENDING_INACTIVE THEN
766: FND_MESSAGE.SET_NAME('MSC', 'MSC_RS_TIME_OUT');
767: FND_MESSAGE.SET_TOKEN('PENDING_TIMEOUT', lv_timeout);
768: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
769: ELSE
770: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
771: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
764: ELSE
765: IF lv_retcode = MSC_UTIL.G_PENDING_INACTIVE THEN
766: FND_MESSAGE.SET_NAME('MSC', 'MSC_RS_TIME_OUT');
767: FND_MESSAGE.SET_TOKEN('PENDING_TIMEOUT', lv_timeout);
768: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
769: ELSE
770: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
771: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
772: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
766: FND_MESSAGE.SET_NAME('MSC', 'MSC_RS_TIME_OUT');
767: FND_MESSAGE.SET_TOKEN('PENDING_TIMEOUT', lv_timeout);
768: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
769: ELSE
770: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
771: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
772: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
773: END IF;
774: RETURN FALSE;
767: FND_MESSAGE.SET_TOKEN('PENDING_TIMEOUT', lv_timeout);
768: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
769: ELSE
770: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
771: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
772: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
773: END IF;
774: RETURN FALSE;
775: END IF;
768: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
769: ELSE
770: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
771: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
772: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
773: END IF;
774: RETURN FALSE;
775: END IF;
776:
904:
905: EXCEPTION
906: WHEN NO_DATA_FOUND THEN
907:
908: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
909: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', p_instance_id);
910: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
911: RETURN;
912: WHEN OTHERS THEN
905: EXCEPTION
906: WHEN NO_DATA_FOUND THEN
907:
908: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
909: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', p_instance_id);
910: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
911: RETURN;
912: WHEN OTHERS THEN
913:
906: WHEN NO_DATA_FOUND THEN
907:
908: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
909: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', p_instance_id);
910: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
911: RETURN;
912: WHEN OTHERS THEN
913:
914: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1007: WHERE INSTANCE_ID= p_instance_id;
1008:
1009: EXCEPTION
1010: WHEN NO_DATA_FOUND THEN
1011: FND_MESSAGE.SET_NAME('MSC','MSC_DP_INVALID_INSTANCE_ID');
1012: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', p_instance_id);
1013: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1014: RETURN '=-9999';
1015: WHEN OTHERS THEN
1008:
1009: EXCEPTION
1010: WHEN NO_DATA_FOUND THEN
1011: FND_MESSAGE.SET_NAME('MSC','MSC_DP_INVALID_INSTANCE_ID');
1012: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', p_instance_id);
1013: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1014: RETURN '=-9999';
1015: WHEN OTHERS THEN
1016: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1009: EXCEPTION
1010: WHEN NO_DATA_FOUND THEN
1011: FND_MESSAGE.SET_NAME('MSC','MSC_DP_INVALID_INSTANCE_ID');
1012: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', p_instance_id);
1013: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1014: RETURN '=-9999';
1015: WHEN OTHERS THEN
1016: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1017: RETURN '=-9999';
1261: WHEN NO_DATA_FOUND THEN
1262:
1263: RETCODE := MSC_UTIL.G_ERROR;
1264:
1265: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
1266: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
1267: ERRBUF:= FND_MESSAGE.GET;
1268: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1269: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1262:
1263: RETCODE := MSC_UTIL.G_ERROR;
1264:
1265: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
1266: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
1267: ERRBUF:= FND_MESSAGE.GET;
1268: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1269: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1270:
1263: RETCODE := MSC_UTIL.G_ERROR;
1264:
1265: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
1266: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
1267: ERRBUF:= FND_MESSAGE.GET;
1268: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1269: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1270:
1271: RETURN;
1537:
1538: end if;
1539:
1540:
1541: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_RCV_RET_CODE');
1542: FND_MESSAGE.SET_TOKEN('LV_TASK_NUMBER',lv_ret_code);
1543: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
1544:
1545: IF lv_ret_code<>0 THEN
1538: end if;
1539:
1540:
1541: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_RCV_RET_CODE');
1542: FND_MESSAGE.SET_TOKEN('LV_TASK_NUMBER',lv_ret_code);
1543: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
1544:
1545: IF lv_ret_code<>0 THEN
1546:
1539:
1540:
1541: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_RCV_RET_CODE');
1542: FND_MESSAGE.SET_TOKEN('LV_TASK_NUMBER',lv_ret_code);
1543: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
1544:
1545: IF lv_ret_code<>0 THEN
1546:
1547: IF lv_ret_code = 1 THEN
1557: ELSE
1558: lv_is_waiting := true;
1559: DBMS_PIPE.UNPACK_MESSAGE( lv_task_num);
1560:
1561: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_TSK_UNPACK');
1562: FND_MESSAGE.SET_TOKEN('LV_TASK_NUM',lv_task_num);
1563: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
1564:
1565: EXIT WHEN lv_task_num<= 0; -- No task is left or unknown error occurs.
1558: lv_is_waiting := true;
1559: DBMS_PIPE.UNPACK_MESSAGE( lv_task_num);
1560:
1561: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_TSK_UNPACK');
1562: FND_MESSAGE.SET_TOKEN('LV_TASK_NUM',lv_task_num);
1563: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
1564:
1565: EXIT WHEN lv_task_num<= 0; -- No task is left or unknown error occurs.
1566:
1559: DBMS_PIPE.UNPACK_MESSAGE( lv_task_num);
1560:
1561: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_TSK_UNPACK');
1562: FND_MESSAGE.SET_TOKEN('LV_TASK_NUM',lv_task_num);
1563: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
1564:
1565: EXIT WHEN lv_task_num<= 0; -- No task is left or unknown error occurs.
1566:
1567: -- ============= Execute the Task =============
1652: -- =========== Send the executed lv_task_num back to the monitor =======
1653: -- =========== Positive Number means OK, Negative means FAIL ===========
1654:
1655: IF lv_task_status <> OK THEN
1656: FND_MESSAGE.SET_NAME('MSC','MSC_CL_EXECUTE_TSK_PROB');
1657: FND_MESSAGE.SET_TOKEN('LV_TASK_NUMBER',lv_task_num);
1658: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
1659:
1660: DBMS_PIPE.PACK_MESSAGE( -lv_task_num);
1653: -- =========== Positive Number means OK, Negative means FAIL ===========
1654:
1655: IF lv_task_status <> OK THEN
1656: FND_MESSAGE.SET_NAME('MSC','MSC_CL_EXECUTE_TSK_PROB');
1657: FND_MESSAGE.SET_TOKEN('LV_TASK_NUMBER',lv_task_num);
1658: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
1659:
1660: DBMS_PIPE.PACK_MESSAGE( -lv_task_num);
1661:
1654:
1655: IF lv_task_status <> OK THEN
1656: FND_MESSAGE.SET_NAME('MSC','MSC_CL_EXECUTE_TSK_PROB');
1657: FND_MESSAGE.SET_TOKEN('LV_TASK_NUMBER',lv_task_num);
1658: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
1659:
1660: DBMS_PIPE.PACK_MESSAGE( -lv_task_num);
1661:
1662: ELSE
1684: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_status)<>0 THEN
1685: RAISE EX_PIPE_SND;
1686: END IF;
1687:
1688: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_SUCCEED');
1689: ERRBUF:= FND_MESSAGE.GET;
1690: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ERRBUF);
1691:
1692: RETCODE := MSC_UTIL.G_SUCCESS;
1685: RAISE EX_PIPE_SND;
1686: END IF;
1687:
1688: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_SUCCEED');
1689: ERRBUF:= FND_MESSAGE.GET;
1690: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ERRBUF);
1691:
1692: RETCODE := MSC_UTIL.G_SUCCESS;
1693: return;
1742: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_status)<>0 THEN
1743: RAISE EX_PIPE_SND;
1744: END IF;
1745:
1746: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
1747: ERRBUF:= FND_MESSAGE.GET;
1748:
1749: RETCODE := MSC_UTIL.G_ERROR;
1750:
1743: RAISE EX_PIPE_SND;
1744: END IF;
1745:
1746: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
1747: ERRBUF:= FND_MESSAGE.GET;
1748:
1749: RETCODE := MSC_UTIL.G_ERROR;
1750:
1751: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1758: WHEN others THEN
1759:
1760: ROLLBACK; -- ROLLBACK if any exception occurs
1761:
1762: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
1763: ERRBUF:= FND_MESSAGE.GET;
1764: RETCODE := MSC_UTIL.G_ERROR;
1765:
1766: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1759:
1760: ROLLBACK; -- ROLLBACK if any exception occurs
1761:
1762: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
1763: ERRBUF:= FND_MESSAGE.GET;
1764: RETCODE := MSC_UTIL.G_ERROR;
1765:
1766: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1767:
1768: DBMS_PIPE.PACK_MESSAGE( UNRESOLVABLE_ERROR);
1769:
1770: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_wm)<>0 THEN
1771:
1772: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
1773: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_wm);
1774: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1775:
1776: END IF;
1769:
1770: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_wm)<>0 THEN
1771:
1772: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
1773: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_wm);
1774: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1775:
1776: END IF;
1777:
1770: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_wm)<>0 THEN
1771:
1772: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
1773: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_wm);
1774: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1775:
1776: END IF;
1777:
1778: DBMS_PIPE.PACK_MESSAGE( MSC_UTIL.SYS_YES);
1777:
1778: DBMS_PIPE.PACK_MESSAGE( MSC_UTIL.SYS_YES);
1779:
1780: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_status)<>0 THEN
1781: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
1782: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_status);
1783: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1784: END IF;
1785:
1778: DBMS_PIPE.PACK_MESSAGE( MSC_UTIL.SYS_YES);
1779:
1780: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_status)<>0 THEN
1781: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
1782: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_status);
1783: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1784: END IF;
1785:
1786: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
1779:
1780: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_status)<>0 THEN
1781: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
1782: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_status);
1783: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1784: END IF;
1785:
1786: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
1787: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_STACK );
1965: l_message);
1966:
1967: IF l_call_status=FALSE THEN
1968: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, l_message);
1969: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
1970: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
1971: RETCODE := MSC_UTIL.G_ERROR;
1972: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1973: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
1966:
1967: IF l_call_status=FALSE THEN
1968: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, l_message);
1969: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
1970: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
1971: RETCODE := MSC_UTIL.G_ERROR;
1972: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1973: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
1974: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
1981: -- the Planning Data Pull should continue
1982: null;
1983: ELSE
1984: -- the Planning Data Pull should error out
1985: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
1986: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
1987: RETCODE := MSC_UTIL.G_ERROR;
1988: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1989: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
1982: null;
1983: ELSE
1984: -- the Planning Data Pull should error out
1985: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
1986: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
1987: RETCODE := MSC_UTIL.G_ERROR;
1988: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1989: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
1990: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
2167: -- are out of synchronization - error out.
2168: IF(( lv_sr_a2m <> v_dest_a2m) OR (lv_sr_m2a <> v_dblink)) THEN
2169:
2170: RETCODE := MSC_UTIL.G_ERROR;
2171: FND_MESSAGE.SET_NAME('MSC', 'MSC_COLL_A2MDBLINK_INVALID');
2172: ERRBUF:= FND_MESSAGE.GET;
2173: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2174: RETURN;
2175: END IF;
2168: IF(( lv_sr_a2m <> v_dest_a2m) OR (lv_sr_m2a <> v_dblink)) THEN
2169:
2170: RETCODE := MSC_UTIL.G_ERROR;
2171: FND_MESSAGE.SET_NAME('MSC', 'MSC_COLL_A2MDBLINK_INVALID');
2172: ERRBUF:= FND_MESSAGE.GET;
2173: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2174: RETURN;
2175: END IF;
2176:
2180: EXCEPTION
2181: WHEN NO_DATA_FOUND THEN
2182:
2183: RETCODE := MSC_UTIL.G_ERROR;
2184: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2185: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2186: ERRBUF:= FND_MESSAGE.GET;
2187: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2188: RETURN;
2181: WHEN NO_DATA_FOUND THEN
2182:
2183: RETCODE := MSC_UTIL.G_ERROR;
2184: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2185: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2186: ERRBUF:= FND_MESSAGE.GET;
2187: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2188: RETURN;
2189: WHEN OTHERS THEN
2182:
2183: RETCODE := MSC_UTIL.G_ERROR;
2184: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2185: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2186: ERRBUF:= FND_MESSAGE.GET;
2187: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2188: RETURN;
2189: WHEN OTHERS THEN
2190:
2365: -- are out of synchronization - error out.
2366: IF(( lv_sr_a2m <> lv_dest_a2m) OR (lv_sr_m2a <> v_dblink)) THEN
2367:
2368: RETCODE := MSC_UTIL.G_ERROR;
2369: FND_MESSAGE.SET_NAME('MSC', 'MSC_COLL_A2MDBLINK_INVALID');
2370: ERRBUF:= FND_MESSAGE.GET;
2371: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2372: RETURN;
2373: END IF;
2366: IF(( lv_sr_a2m <> lv_dest_a2m) OR (lv_sr_m2a <> v_dblink)) THEN
2367:
2368: RETCODE := MSC_UTIL.G_ERROR;
2369: FND_MESSAGE.SET_NAME('MSC', 'MSC_COLL_A2MDBLINK_INVALID');
2370: ERRBUF:= FND_MESSAGE.GET;
2371: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2372: RETURN;
2373: END IF;
2374:
2376:
2377: EXCEPTION
2378: WHEN NO_DATA_FOUND THEN
2379: RETCODE := MSC_UTIL.G_ERROR;
2380: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2381: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2382: ERRBUF:= FND_MESSAGE.GET;
2383: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2384: RETURN;
2377: EXCEPTION
2378: WHEN NO_DATA_FOUND THEN
2379: RETCODE := MSC_UTIL.G_ERROR;
2380: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2381: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2382: ERRBUF:= FND_MESSAGE.GET;
2383: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2384: RETURN;
2385: WHEN OTHERS THEN
2378: WHEN NO_DATA_FOUND THEN
2379: RETCODE := MSC_UTIL.G_ERROR;
2380: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2381: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2382: ERRBUF:= FND_MESSAGE.GET;
2383: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2384: RETURN;
2385: WHEN OTHERS THEN
2386: RETCODE := MSC_UTIL.G_ERROR;
2810: ---- 3. Return.
2811:
2812: IF lvs_request_id(lc_i)= 0 THEN
2813:
2814: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_LAUNCH_WORKER_FAIL');
2815: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
2816:
2817: ROLLBACK;
2818:
2811:
2812: IF lvs_request_id(lc_i)= 0 THEN
2813:
2814: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_LAUNCH_WORKER_FAIL');
2815: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
2816:
2817: ROLLBACK;
2818:
2819: IF SET_ST_STATUS( lv_errbuf,
2838: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_task_que)<>0 THEN
2839: RAISE EX_PIPE_SND;
2840: END IF;
2841:
2842: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
2843: FND_MESSAGE.SET_TOKEN('LCI',lc_j);
2844: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
2845:
2846: END LOOP; -- lc_j
2839: RAISE EX_PIPE_SND;
2840: END IF;
2841:
2842: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
2843: FND_MESSAGE.SET_TOKEN('LCI',lc_j);
2844: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
2845:
2846: END LOOP; -- lc_j
2847:
2840: END IF;
2841:
2842: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
2843: FND_MESSAGE.SET_TOKEN('LCI',lc_j);
2844: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
2845:
2846: END LOOP; -- lc_j
2847:
2848: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_LAUNCH_WORKER_FAIL');
2844: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
2845:
2846: END LOOP; -- lc_j
2847:
2848: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_LAUNCH_WORKER_FAIL');
2849: ERRBUF:= FND_MESSAGE.GET;
2850: RETCODE := MSC_UTIL.G_ERROR;
2851: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2852: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2845:
2846: END LOOP; -- lc_j
2847:
2848: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_LAUNCH_WORKER_FAIL');
2849: ERRBUF:= FND_MESSAGE.GET;
2850: RETCODE := MSC_UTIL.G_ERROR;
2851: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2852: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2853:
2856: RETURN;
2857:
2858: ELSE
2859:
2860: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_WORKER_REQUEST_ID');
2861: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lvs_request_id(lc_i));
2862: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
2863:
2864: END IF;
2857:
2858: ELSE
2859:
2860: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_WORKER_REQUEST_ID');
2861: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lvs_request_id(lc_i));
2862: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
2863:
2864: END IF;
2865:
2858: ELSE
2859:
2860: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_WORKER_REQUEST_ID');
2861: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lvs_request_id(lc_i));
2862: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
2863:
2864: END IF;
2865:
2866: END LOOP; -- lc_i
2901: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'ALL:Sending task number: '||lc_i||' to the queue');
2902:
2903: -- Only send the message if it has been packed.
2904: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_task_que)<>0 THEN
2905: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERROR_SEND_TSK');
2906: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
2907: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
2908:
2909: RAISE EX_PIPE_SND;
2902:
2903: -- Only send the message if it has been packed.
2904: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_task_que)<>0 THEN
2905: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERROR_SEND_TSK');
2906: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
2907: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
2908:
2909: RAISE EX_PIPE_SND;
2910: END IF;
2903: -- Only send the message if it has been packed.
2904: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_task_que)<>0 THEN
2905: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERROR_SEND_TSK');
2906: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
2907: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
2908:
2909: RAISE EX_PIPE_SND;
2910: END IF;
2911:
2910: END IF;
2911:
2912: lv_task_not_completed := lv_task_not_completed + 1;
2913:
2914: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TOTAL_TSK_ADDED');
2915: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
2916: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
2917:
2918: ELSIF Q_PARTIAL_TASK (pINSTANCE_ID, lc_i,
2911:
2912: lv_task_not_completed := lv_task_not_completed + 1;
2913:
2914: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TOTAL_TSK_ADDED');
2915: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
2916: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
2917:
2918: ELSIF Q_PARTIAL_TASK (pINSTANCE_ID, lc_i,
2919: prec, pRTYPE) THEN
2912: lv_task_not_completed := lv_task_not_completed + 1;
2913:
2914: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TOTAL_TSK_ADDED');
2915: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
2916: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
2917:
2918: ELSIF Q_PARTIAL_TASK (pINSTANCE_ID, lc_i,
2919: prec, pRTYPE) THEN
2920: -- agmcont:
2941: --lv_task_not_completed := lv_total_task_number;
2942:
2943: lv_start_time:= SYSDATE;
2944:
2945: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TOTAL_TSK_ADDED');
2946: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
2947: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
2948:
2949: LOOP
2942:
2943: lv_start_time:= SYSDATE;
2944:
2945: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TOTAL_TSK_ADDED');
2946: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
2947: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
2948:
2949: LOOP
2950:
2943: lv_start_time:= SYSDATE;
2944:
2945: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TOTAL_TSK_ADDED');
2946: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
2947: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
2948:
2949: LOOP
2950:
2951: var_debug := 0;
2996:
2997: END IF;
2998:
2999: ELSIF lv_pipe_ret_code<> 1 THEN
3000: FND_MESSAGE.SET_NAME('MSC','MSC_CL_RCV_PIPE_ERR');
3001: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3002:
3003: RAISE EX_PIPE_RCV; -- If the error is not time-out error
3004: END IF;
2997: END IF;
2998:
2999: ELSIF lv_pipe_ret_code<> 1 THEN
3000: FND_MESSAGE.SET_NAME('MSC','MSC_CL_RCV_PIPE_ERR');
3001: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3002:
3003: RAISE EX_PIPE_RCV; -- If the error is not time-out error
3004: END IF;
3005:
3012:
3013: END LOOP;
3014:
3015: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, '----------------------------------------------------');
3016: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TSK_NOT_COMP');
3017: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3018: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3019:
3020: IF (var_debug = 0) THEN
3013: END LOOP;
3014:
3015: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, '----------------------------------------------------');
3016: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TSK_NOT_COMP');
3017: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3018: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3019:
3020: IF (var_debug = 0) THEN
3021: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_1');
3014:
3015: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, '----------------------------------------------------');
3016: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TSK_NOT_COMP');
3017: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3018: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3019:
3020: IF (var_debug = 0) THEN
3021: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_1');
3022: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3017: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3018: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3019:
3020: IF (var_debug = 0) THEN
3021: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_1');
3022: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3023: ELSIF (var_debug = 1) THEN
3024: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_2');
3025: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3018: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3019:
3020: IF (var_debug = 0) THEN
3021: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_1');
3022: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3023: ELSIF (var_debug = 1) THEN
3024: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_2');
3025: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3026: ELSIF (var_debug = 2) THEN
3020: IF (var_debug = 0) THEN
3021: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_1');
3022: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3023: ELSIF (var_debug = 1) THEN
3024: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_2');
3025: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3026: ELSIF (var_debug = 2) THEN
3027: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_3');
3028: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3021: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_1');
3022: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3023: ELSIF (var_debug = 1) THEN
3024: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_2');
3025: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3026: ELSIF (var_debug = 2) THEN
3027: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_3');
3028: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3029: ELSIF (var_debug = 3) THEN
3023: ELSIF (var_debug = 1) THEN
3024: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_2');
3025: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3026: ELSIF (var_debug = 2) THEN
3027: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_3');
3028: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3029: ELSIF (var_debug = 3) THEN
3030: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_3');
3031: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3024: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_2');
3025: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3026: ELSIF (var_debug = 2) THEN
3027: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_3');
3028: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3029: ELSIF (var_debug = 3) THEN
3030: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_3');
3031: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3032: ELSIF (var_debug = 4) THEN
3026: ELSIF (var_debug = 2) THEN
3027: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_3');
3028: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3029: ELSIF (var_debug = 3) THEN
3030: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_3');
3031: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3032: ELSIF (var_debug = 4) THEN
3033: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_4');
3034: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3027: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_3');
3028: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3029: ELSIF (var_debug = 3) THEN
3030: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_3');
3031: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3032: ELSIF (var_debug = 4) THEN
3033: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_4');
3034: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3035: END IF;
3029: ELSIF (var_debug = 3) THEN
3030: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_3');
3031: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3032: ELSIF (var_debug = 4) THEN
3033: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_4');
3034: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3035: END IF;
3036:
3037: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, '----------------------------------------------------');
3030: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_3');
3031: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3032: ELSIF (var_debug = 4) THEN
3033: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_4');
3034: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3035: END IF;
3036:
3037: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, '----------------------------------------------------');
3038:
3039: IF lv_task_not_completed > 0 THEN
3040:
3041: DBMS_PIPE.PURGE( v_pipe_task_que);
3042:
3043: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
3044: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3045: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3046:
3047: lv_task_num:= -1;
3040:
3041: DBMS_PIPE.PURGE( v_pipe_task_que);
3042:
3043: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
3044: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3045: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3046:
3047: lv_task_num:= -1;
3048:
3047: lv_task_num:= -1;
3048:
3049: ROLLBACK;
3050:
3051: ERRBUF:= FND_MESSAGE.GET;
3052: RETCODE := MSC_UTIL.G_ERROR;
3053:
3054: ELSE
3055:
3054: ELSE
3055:
3056: lv_task_num:= 0;
3057:
3058: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_SUCCEED');
3059: ERRBUF:= FND_MESSAGE.GET;
3060: RETCODE := MSC_UTIL.G_SUCCESS;
3061: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, SQLERRM);
3062:
3055:
3056: lv_task_num:= 0;
3057:
3058: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_SUCCEED');
3059: ERRBUF:= FND_MESSAGE.GET;
3060: RETCODE := MSC_UTIL.G_SUCCESS;
3061: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, SQLERRM);
3062:
3063: lv_so_lrtype := pSalesOrder_RTYPE;
3090: -- ======================== Inform workers to end the process ================
3091:
3092: FOR lc_i IN 1..pTotalWorkerNum LOOP
3093:
3094: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
3095: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3096: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3097:
3098: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3091:
3092: FOR lc_i IN 1..pTotalWorkerNum LOOP
3093:
3094: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
3095: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3096: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3097:
3098: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3099:
3092: FOR lc_i IN 1..pTotalWorkerNum LOOP
3093:
3094: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
3095: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3096: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3097:
3098: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3099:
3100: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Sending task number: '||lv_task_num|| ' to the worker '||lc_i);
3133: IF lv_pipe_ret_code=0 THEN
3134:
3135: lv_worker_committed:= lv_worker_committed+1;
3136:
3137: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_COMMIT');
3138: FND_MESSAGE.SET_TOKEN('LV_WORKER_COMMITTED',lv_worker_committed);
3139: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3140:
3141: EXIT WHEN lv_worker_committed= pTotalWorkerNum;
3134:
3135: lv_worker_committed:= lv_worker_committed+1;
3136:
3137: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_COMMIT');
3138: FND_MESSAGE.SET_TOKEN('LV_WORKER_COMMITTED',lv_worker_committed);
3139: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3140:
3141: EXIT WHEN lv_worker_committed= pTotalWorkerNum;
3142:
3135: lv_worker_committed:= lv_worker_committed+1;
3136:
3137: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_COMMIT');
3138: FND_MESSAGE.SET_TOKEN('LV_WORKER_COMMITTED',lv_worker_committed);
3139: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3140:
3141: EXIT WHEN lv_worker_committed= pTotalWorkerNum;
3142:
3143: ELSIF lv_pipe_ret_code<> 1 THEN
3155: END LOOP;
3156:
3157: IF lv_worker_committed<> pTotalWorkerNum THEN
3158:
3159: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL_TO_COMMIT');
3160: ERRBUF:= FND_MESSAGE.GET;
3161: RETCODE := MSC_UTIL.G_ERROR;
3162: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3163: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3156:
3157: IF lv_worker_committed<> pTotalWorkerNum THEN
3158:
3159: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL_TO_COMMIT');
3160: ERRBUF:= FND_MESSAGE.GET;
3161: RETCODE := MSC_UTIL.G_ERROR;
3162: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3163: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3164:
3161: RETCODE := MSC_UTIL.G_ERROR;
3162: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3163: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3164:
3165: FND_MESSAGE.SET_NAME('MSC','MSC_CL_CHECK_PDP_LOG');
3166: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3167:
3168: IF lv_check_point= 2 THEN
3169: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
3162: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3163: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3164:
3165: FND_MESSAGE.SET_NAME('MSC','MSC_CL_CHECK_PDP_LOG');
3166: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3167:
3168: IF lv_check_point= 2 THEN
3169: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
3170: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
3195: -- ======================== Inform workers to start the ODS Worker ================
3196:
3197: FOR lc_i IN 1..pTotalWorkerNum LOOP
3198:
3199: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
3200: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3201: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3202:
3203: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3196:
3197: FOR lc_i IN 1..pTotalWorkerNum LOOP
3198:
3199: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
3200: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3201: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3202:
3203: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3204:
3197: FOR lc_i IN 1..pTotalWorkerNum LOOP
3198:
3199: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
3200: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3201: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3202:
3203: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3204:
3205: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Sending task number: '||lv_task_num|| ' to the worker '||lc_i);
3270: COMMIT;
3271:
3272: END IF;
3273:
3274: FND_MESSAGE.SET_NAME('MSC', 'MSC_TIMEOUT');
3275: ERRBUF:= FND_MESSAGE.GET;
3276: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3277: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3278:
3271:
3272: END IF;
3273:
3274: FND_MESSAGE.SET_NAME('MSC', 'MSC_TIMEOUT');
3275: ERRBUF:= FND_MESSAGE.GET;
3276: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3277: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3278:
3279: RETCODE := MSC_UTIL.G_ERROR;
3643: DBMS_PIPE.PACK_MESSAGE( UNRESOLVABLE_ERROR);
3644:
3645: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_wm)<>0 THEN
3646:
3647: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
3648: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_wm);
3649: ERRBUF:= FND_MESSAGE.GET;
3650:
3651: RETCODE := MSC_UTIL.G_ERROR;
3644:
3645: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_wm)<>0 THEN
3646:
3647: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
3648: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_wm);
3649: ERRBUF:= FND_MESSAGE.GET;
3650:
3651: RETCODE := MSC_UTIL.G_ERROR;
3652:
3645: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_wm)<>0 THEN
3646:
3647: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
3648: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_wm);
3649: ERRBUF:= FND_MESSAGE.GET;
3650:
3651: RETCODE := MSC_UTIL.G_ERROR;
3652:
3653: END IF;
4194: RETURN TRUE;
4195:
4196: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_PULLING THEN
4197:
4198: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_PULLING');
4199: ERRBUF:= FND_MESSAGE.GET;
4200:
4201: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_READY THEN
4202:
4195:
4196: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_PULLING THEN
4197:
4198: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_PULLING');
4199: ERRBUF:= FND_MESSAGE.GET;
4200:
4201: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_READY THEN
4202:
4203: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_DATA_EXIST');
4199: ERRBUF:= FND_MESSAGE.GET;
4200:
4201: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_READY THEN
4202:
4203: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_DATA_EXIST');
4204: ERRBUF:= FND_MESSAGE.GET;
4205:
4206: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_COLLECTING THEN
4207:
4200:
4201: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_READY THEN
4202:
4203: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_DATA_EXIST');
4204: ERRBUF:= FND_MESSAGE.GET;
4205:
4206: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_COLLECTING THEN
4207:
4208: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_LOADING');
4204: ERRBUF:= FND_MESSAGE.GET;
4205:
4206: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_COLLECTING THEN
4207:
4208: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_LOADING');
4209: ERRBUF:= FND_MESSAGE.GET;
4210:
4211: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_PURGING THEN
4212:
4205:
4206: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_COLLECTING THEN
4207:
4208: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_LOADING');
4209: ERRBUF:= FND_MESSAGE.GET;
4210:
4211: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_PURGING THEN
4212:
4213: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_PURGING');
4209: ERRBUF:= FND_MESSAGE.GET;
4210:
4211: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_PURGING THEN
4212:
4213: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_PURGING');
4214: ERRBUF:= FND_MESSAGE.GET;
4215:
4216: END IF;
4217:
4210:
4211: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_PURGING THEN
4212:
4213: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_PURGING');
4214: ERRBUF:= FND_MESSAGE.GET;
4215:
4216: END IF;
4217:
4218: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
4219: RETCODE := MSC_UTIL.G_ERROR;
4220: RETURN FALSE;
4221:
4222: ELSE
4223: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INSTANCE_INACTIVE');
4224: ERRBUF:= FND_MESSAGE.GET;
4225: RETCODE := MSC_UTIL.G_ERROR;
4226: RETURN FALSE;
4227: END IF;
4220: RETURN FALSE;
4221:
4222: ELSE
4223: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INSTANCE_INACTIVE');
4224: ERRBUF:= FND_MESSAGE.GET;
4225: RETCODE := MSC_UTIL.G_ERROR;
4226: RETURN FALSE;
4227: END IF;
4228:
5064: BEGIN--LOAD_DATA
5065:
5066: IF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_SUPPLY THEN
5067:
5068: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5069: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY');
5070: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5071: MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY;
5072:
5065:
5066: IF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_SUPPLY THEN
5067:
5068: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5069: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY');
5070: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5071: MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY;
5072:
5073: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_PO_SUPPLY THEN
5066: IF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_SUPPLY THEN
5067:
5068: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5069: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY');
5070: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5071: MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY;
5072:
5073: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_PO_SUPPLY THEN
5074:
5071: MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY;
5072:
5073: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_PO_SUPPLY THEN
5074:
5075: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5076: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY');
5077: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5078: MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY;
5079:
5072:
5073: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_PO_SUPPLY THEN
5074:
5075: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5076: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY');
5077: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5078: MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY;
5079:
5080: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_REQ_SUPPLY THEN
5073: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_PO_SUPPLY THEN
5074:
5075: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5076: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY');
5077: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5078: MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY;
5079:
5080: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_REQ_SUPPLY THEN
5081:
5078: MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY;
5079:
5080: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_REQ_SUPPLY THEN
5081:
5082: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5083: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY');
5084: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5085: MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY;
5086:
5079:
5080: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_REQ_SUPPLY THEN
5081:
5082: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5083: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY');
5084: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5085: MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY;
5086:
5087: ELSIF prec.wip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_WIP_SUPPLY THEN
5080: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_REQ_SUPPLY THEN
5081:
5082: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5083: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY');
5084: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5085: MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY;
5086:
5087: ELSIF prec.wip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_WIP_SUPPLY THEN
5088:
5087: ELSIF prec.wip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_WIP_SUPPLY THEN
5088:
5089: -- call the appropriate routine for the type being used
5090:
5091: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5092: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY');
5093: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5094: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5095: MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY;
5088:
5089: -- call the appropriate routine for the type being used
5090:
5091: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5092: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY');
5093: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5094: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5095: MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY;
5096: END IF;
5089: -- call the appropriate routine for the type being used
5090:
5091: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5092: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY');
5093: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5094: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5095: MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY;
5096: END IF;
5097:
5132: ELSIF prec.oh_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_OH_SUPPLY THEN
5133:
5134: -- call the appropriate routine for onhand inventory
5135:
5136: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5137: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_OH_SUPPLY');
5138: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5139:
5140: /* OPM Team - OPM Inventory Convergence Project
5133:
5134: -- call the appropriate routine for onhand inventory
5135:
5136: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5137: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_OH_SUPPLY');
5138: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5139:
5140: /* OPM Team - OPM Inventory Convergence Project
5141: Onhand calculation has to be performed for both
5134: -- call the appropriate routine for onhand inventory
5135:
5136: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5137: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_OH_SUPPLY');
5138: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5139:
5140: /* OPM Team - OPM Inventory Convergence Project
5141: Onhand calculation has to be performed for both
5142: discrete/process orgs.
5187: ELSIF prec.mps_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_MPS_SUPPLY THEN
5188:
5189: -- only call if doing discrete mfg
5190:
5191: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5192: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY');
5193: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5194: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5195: MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY;
5188:
5189: -- only call if doing discrete mfg
5190:
5191: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5192: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY');
5193: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5194: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5195: MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY;
5196: END IF;
5189: -- only call if doing discrete mfg
5190:
5191: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5192: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY');
5193: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5194: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5195: MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY;
5196: END IF;
5197:
5198: ELSIF prec.bor_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BOR THEN
5199:
5200: -- only call if doing discrete mfg
5201:
5202: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5203: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOR');
5204: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5205: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5206: MSC_CL_BOM_PULL.LOAD_BOR;
5199:
5200: -- only call if doing discrete mfg
5201:
5202: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5203: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOR');
5204: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5205: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5206: MSC_CL_BOM_PULL.LOAD_BOR;
5207: END IF;
5200: -- only call if doing discrete mfg
5201:
5202: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5203: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOR');
5204: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5205: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5206: MSC_CL_BOM_PULL.LOAD_BOR;
5207: END IF;
5208:
5209: ELSIF (prec.calendar_flag = MSC_UTIL.SYS_YES OR prec.resource_nra_flag in (1,3)) AND pTASKNUM= TASK_CALENDAR_DATE THEN
5210:
5211: -- call the appropriate routine for calendar dates
5212:
5213: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5214: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_CALENDAR_DATE');
5215: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5216:
5217: /* OPM Team - OPM Inventory Convergence Project
5210:
5211: -- call the appropriate routine for calendar dates
5212:
5213: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5214: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_CALENDAR_DATE');
5215: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5216:
5217: /* OPM Team - OPM Inventory Convergence Project
5218: Calendar data should be populated for both discrete and process organizations.
5211: -- call the appropriate routine for calendar dates
5212:
5213: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5214: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_CALENDAR_DATE');
5215: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5216:
5217: /* OPM Team - OPM Inventory Convergence Project
5218: Calendar data should be populated for both discrete and process organizations.
5219: So commenting the chk to discrete alone.
5268:
5269: -- only call if doing discrete mfg, for process this is done in
5270: -- MDS demands
5271:
5272: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5273: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SCHEDULE');
5274: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5275: IF ( v_discrete_flag = MSC_UTIL.SYS_YES ) THEN
5276: IF prec.mds_flag = MSC_UTIL.SYS_YES AND prec.mps_flag = MSC_UTIL.SYS_NO THEN
5269: -- only call if doing discrete mfg, for process this is done in
5270: -- MDS demands
5271:
5272: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5273: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SCHEDULE');
5274: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5275: IF ( v_discrete_flag = MSC_UTIL.SYS_YES ) THEN
5276: IF prec.mds_flag = MSC_UTIL.SYS_YES AND prec.mps_flag = MSC_UTIL.SYS_NO THEN
5277: v_schedule_flag := MSC_UTIL.G_MDS;
5270: -- MDS demands
5271:
5272: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5273: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SCHEDULE');
5274: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5275: IF ( v_discrete_flag = MSC_UTIL.SYS_YES ) THEN
5276: IF prec.mds_flag = MSC_UTIL.SYS_YES AND prec.mps_flag = MSC_UTIL.SYS_NO THEN
5277: v_schedule_flag := MSC_UTIL.G_MDS;
5278: ELSIF prec.mds_flag = MSC_UTIL.SYS_NO AND prec.mps_flag = MSC_UTIL.SYS_YES THEN
5285: END IF;
5286:
5287: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM1 THEN
5288:
5289: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5290: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(1)');
5291: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5292: MSC_CL_ITEM_PULL.LOAD_ITEM(1);
5293: /* ds change for non standard jobs and eam wo, we may not have
5286:
5287: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM1 THEN
5288:
5289: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5290: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(1)');
5291: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5292: MSC_CL_ITEM_PULL.LOAD_ITEM(1);
5293: /* ds change for non standard jobs and eam wo, we may not have
5294: primary item specified in wo. We are going to create
5287: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM1 THEN
5288:
5289: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5290: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(1)');
5291: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5292: MSC_CL_ITEM_PULL.LOAD_ITEM(1);
5293: /* ds change for non standard jobs and eam wo, we may not have
5294: primary item specified in wo. We are going to create
5295: two dummy item, on eofr non standard job and other for
5297: MSC_CL_ITEM_PULL.INSERT_DUMMY_ITEMS;
5298:
5299: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM2 THEN
5300:
5301: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5302: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(2)');
5303: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5304: MSC_CL_ITEM_PULL.LOAD_ITEM(2);
5305:
5298:
5299: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM2 THEN
5300:
5301: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5302: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(2)');
5303: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5304: MSC_CL_ITEM_PULL.LOAD_ITEM(2);
5305:
5306: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM3 THEN
5299: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM2 THEN
5300:
5301: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5302: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(2)');
5303: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5304: MSC_CL_ITEM_PULL.LOAD_ITEM(2);
5305:
5306: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM3 THEN
5307:
5304: MSC_CL_ITEM_PULL.LOAD_ITEM(2);
5305:
5306: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM3 THEN
5307:
5308: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5309: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(0)');
5310: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5311: MSC_CL_ITEM_PULL.LOAD_ITEM(0);
5312:
5305:
5306: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM3 THEN
5307:
5308: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5309: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(0)');
5310: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5311: MSC_CL_ITEM_PULL.LOAD_ITEM(0);
5312:
5313: /*added for bug:4765403*/
5306: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM3 THEN
5307:
5308: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5309: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(0)');
5310: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5311: MSC_CL_ITEM_PULL.LOAD_ITEM(0);
5312:
5313: /*added for bug:4765403*/
5314: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ABC_CLASSES THEN
5312:
5313: /*added for bug:4765403*/
5314: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ABC_CLASSES THEN
5315:
5316: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5317: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES');
5318: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5319: IF (v_apps_ver >= MSC_UTIL.G_APPS120) THEN
5320: MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES;
5313: /*added for bug:4765403*/
5314: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ABC_CLASSES THEN
5315:
5316: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5317: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES');
5318: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5319: IF (v_apps_ver >= MSC_UTIL.G_APPS120) THEN
5320: MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES;
5321: END IF;
5314: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ABC_CLASSES THEN
5315:
5316: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5317: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES');
5318: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5319: IF (v_apps_ver >= MSC_UTIL.G_APPS120) THEN
5320: MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES;
5321: END IF;
5322:
5322:
5323: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES OR prec.wip_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_RESOURCE THEN
5324:
5325: -- call the appropriate routine for resources
5326: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5327: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE');
5328: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5329: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5330: MSC_CL_BOM_PULL.LOAD_RESOURCE;
5323: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES OR prec.wip_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_RESOURCE THEN
5324:
5325: -- call the appropriate routine for resources
5326: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5327: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE');
5328: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5329: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5330: MSC_CL_BOM_PULL.LOAD_RESOURCE;
5331: END IF;
5324:
5325: -- call the appropriate routine for resources
5326: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5327: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE');
5328: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5329: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5330: MSC_CL_BOM_PULL.LOAD_RESOURCE;
5331: END IF;
5332: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5363: /*ds change start */
5364: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES OR prec.wip_flag = MSC_UTIL.SYS_YES) AND
5365: pTASKNUM= TASK_RESOURCE_INSTANCE THEN
5366:
5367: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5368: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE');
5369: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5370: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5371: MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE;
5364: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES OR prec.wip_flag = MSC_UTIL.SYS_YES) AND
5365: pTASKNUM= TASK_RESOURCE_INSTANCE THEN
5366:
5367: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5368: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE');
5369: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5370: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5371: MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE;
5372: END IF;
5365: pTASKNUM= TASK_RESOURCE_INSTANCE THEN
5366:
5367: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5368: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE');
5369: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5370: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5371: MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE;
5372: END IF;
5373:
5375: -- populate_rsrc_cal
5376:
5377: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES ) AND
5378: pTASKNUM= TASK_RESOURCE_SETUP THEN
5379: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5380: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP');
5381: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5382: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5383: MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP;
5376:
5377: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES ) AND
5378: pTASKNUM= TASK_RESOURCE_SETUP THEN
5379: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5380: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP');
5381: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5382: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5383: MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP;
5384: END IF;
5377: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES ) AND
5378: pTASKNUM= TASK_RESOURCE_SETUP THEN
5379: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5380: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP');
5381: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5382: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5383: MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP;
5384: END IF;
5385:
5392:
5393: -- only call if not doing process mfg. for process this is done
5394: -- with calendar dates
5395:
5396: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5397: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER');
5398: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5399:
5400: --- PREPLACE CHANGE START ---
5393: -- only call if not doing process mfg. for process this is done
5394: -- with calendar dates
5395:
5396: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5397: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER');
5398: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5399:
5400: --- PREPLACE CHANGE START ---
5401: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'v_process_flag is ' || v_process_flag);
5394: -- with calendar dates
5395:
5396: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5397: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER');
5398: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5399:
5400: --- PREPLACE CHANGE START ---
5401: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'v_process_flag is ' || v_process_flag);
5402:
5450: END IF;
5451: END IF;
5452:
5453: ELSIF prec.forecast_flag = MSC_UTIL.SYS_YES AND pTASKNUM = TASK_LOAD_FORECAST THEN
5454: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5455: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_FORECAST');
5456: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5457:
5458: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5451: END IF;
5452:
5453: ELSIF prec.forecast_flag = MSC_UTIL.SYS_YES AND pTASKNUM = TASK_LOAD_FORECAST THEN
5454: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5455: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_FORECAST');
5456: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5457:
5458: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5459: v_apps_ver>= MSC_UTIL.G_APPS115) THEN /*to be changed after coding for 107/11i*/
5452:
5453: ELSIF prec.forecast_flag = MSC_UTIL.SYS_YES AND pTASKNUM = TASK_LOAD_FORECAST THEN
5454: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5455: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_FORECAST');
5456: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5457:
5458: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5459: v_apps_ver>= MSC_UTIL.G_APPS115) THEN /*to be changed after coding for 107/11i*/
5460:
5461: MSC_CL_DEMAND_PULL.LOAD_FORECASTS;
5462:
5463: END IF;
5464:
5465: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5466: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_ITEM_FORECASTS');
5467: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5468:
5469: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5462:
5463: END IF;
5464:
5465: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5466: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_ITEM_FORECASTS');
5467: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5468:
5469: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5470: v_apps_ver>= MSC_UTIL.G_APPS115) THEN /*to be changed after coding for 107/11i*/
5463: END IF;
5464:
5465: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5466: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_ITEM_FORECASTS');
5467: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5468:
5469: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5470: v_apps_ver>= MSC_UTIL.G_APPS115) THEN /*to be changed after coding for 107/11i*/
5471:
5521: ELSIF prec.mds_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_MDS_DEMAND THEN
5522:
5523: -- call the appropriate routine for MDS demand
5524: /* how we can avoid this for ds */
5525: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5526: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND');
5527: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5528:
5529: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Starting MDS LOAD');
5522:
5523: -- call the appropriate routine for MDS demand
5524: /* how we can avoid this for ds */
5525: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5526: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND');
5527: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5528:
5529: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Starting MDS LOAD');
5530: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5523: -- call the appropriate routine for MDS demand
5524: /* how we can avoid this for ds */
5525: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5526: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND');
5527: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5528:
5529: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Starting MDS LOAD');
5530: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5531: MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND;
5559:
5560: -- only call if doing discrete mfg. process does this as part of
5561: -- wip supply
5562:
5563: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5564: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_DEMAND');
5565: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5566:
5567: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5560: -- only call if doing discrete mfg. process does this as part of
5561: -- wip supply
5562:
5563: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5564: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_DEMAND');
5565: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5566:
5567: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5568: MSC_CL_WIP_PULL.LOAD_WIP_DEMAND;
5561: -- wip supply
5562:
5563: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5564: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_DEMAND');
5565: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5566:
5567: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5568: MSC_CL_WIP_PULL.LOAD_WIP_DEMAND;
5569: END IF;
5572:
5573: IF ( v_apps_ver>= MSC_UTIL.G_APPS115) and (v_discrete_flag = MSC_UTIL.SYS_YES) THEN -- 11i source instance only
5574: -- only call if doing discrete mfg
5575:
5576: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5577: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1)');
5578: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5579: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1);
5580:
5573: IF ( v_apps_ver>= MSC_UTIL.G_APPS115) and (v_discrete_flag = MSC_UTIL.SYS_YES) THEN -- 11i source instance only
5574: -- only call if doing discrete mfg
5575:
5576: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5577: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1)');
5578: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5579: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1);
5580:
5581: END IF;
5574: -- only call if doing discrete mfg
5575:
5576: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5577: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1)');
5578: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5579: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1);
5580:
5581: END IF;
5582:
5584:
5585: IF ( v_apps_ver>= MSC_UTIL.G_APPS115) AND (v_discrete_flag = MSC_UTIL.SYS_YES) THEN -- 11i source instance only
5586: -- only call if doing discrete mfg
5587:
5588: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5589: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2)');
5590: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5591: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2);
5592:
5585: IF ( v_apps_ver>= MSC_UTIL.G_APPS115) AND (v_discrete_flag = MSC_UTIL.SYS_YES) THEN -- 11i source instance only
5586: -- only call if doing discrete mfg
5587:
5588: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5589: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2)');
5590: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5591: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2);
5592:
5593: END IF;
5586: -- only call if doing discrete mfg
5587:
5588: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5589: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2)');
5590: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5591: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2);
5592:
5593: END IF;
5594:
5596:
5597: IF (v_discrete_flag = MSC_UTIL.SYS_YES) THEN
5598: -- only call if doing discrete mfg
5599:
5600: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5601: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(3)');
5602: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5603: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(3);
5604:
5597: IF (v_discrete_flag = MSC_UTIL.SYS_YES) THEN
5598: -- only call if doing discrete mfg
5599:
5600: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5601: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(3)');
5602: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5603: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(3);
5604:
5605: END IF;
5598: -- only call if doing discrete mfg
5599:
5600: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5601: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(3)');
5602: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5603: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(3);
5604:
5605: END IF;
5606: /*
5607: ELSIF pTASKNUM= TASK_SALES_ORDER THEN
5608:
5609: -- only call if doing discrete mfg
5610:
5611: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5612: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(4)');
5613: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5614:
5615: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5608:
5609: -- only call if doing discrete mfg
5610:
5611: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5612: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(4)');
5613: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5614:
5615: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5616: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(4);
5609: -- only call if doing discrete mfg
5610:
5611: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5612: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(4)');
5613: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5614:
5615: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5616: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(4);
5617: END IF;
5628:
5629: IF ( v_apps_ver>= MSC_UTIL.G_APPS115) and (v_discrete_flag = MSC_UTIL.SYS_YES) and (lv_ps_ver =1) THEN -- 11i source instance only
5630: -- only call if doing discrete mfg, Is this a valid assumption --dsoosai 12/04/2003
5631:
5632: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5633: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(5:AHL)');
5634: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5635: MSC_CL_DEMAND_PULL.LOAD_AHL;
5636:
5629: IF ( v_apps_ver>= MSC_UTIL.G_APPS115) and (v_discrete_flag = MSC_UTIL.SYS_YES) and (lv_ps_ver =1) THEN -- 11i source instance only
5630: -- only call if doing discrete mfg, Is this a valid assumption --dsoosai 12/04/2003
5631:
5632: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5633: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(5:AHL)');
5634: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5635: MSC_CL_DEMAND_PULL.LOAD_AHL;
5636:
5637: END IF;
5630: -- only call if doing discrete mfg, Is this a valid assumption --dsoosai 12/04/2003
5631:
5632: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5633: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(5:AHL)');
5634: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5635: MSC_CL_DEMAND_PULL.LOAD_AHL;
5636:
5637: END IF;
5638:
5639: ELSIF prec.sub_inventory_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SUB_INVENTORY THEN
5640:
5641: -- call the appropriate routine for sub inventory
5642:
5643: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5644: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SUB_INVENTORY');
5645: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5646:
5647: /* OPM Team - OPM Inventory Convergence Project
5640:
5641: -- call the appropriate routine for sub inventory
5642:
5643: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5644: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SUB_INVENTORY');
5645: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5646:
5647: /* OPM Team - OPM Inventory Convergence Project
5648: Commented this has to be called for both discrete/process
5641: -- call the appropriate routine for sub inventory
5642:
5643: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5644: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SUB_INVENTORY');
5645: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5646:
5647: /* OPM Team - OPM Inventory Convergence Project
5648: Commented this has to be called for both discrete/process
5649: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN */
5692: ELSIF prec.reserves_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_HARD_RESERVATION THEN
5693:
5694: -- only call if doing discrete mfg
5695:
5696: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5697: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_HARD_RESERVATION');
5698: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5699:
5700:
5693:
5694: -- only call if doing discrete mfg
5695:
5696: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5697: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_HARD_RESERVATION');
5698: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5699:
5700:
5701: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5694: -- only call if doing discrete mfg
5695:
5696: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5697: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_HARD_RESERVATION');
5698: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5699:
5700:
5701: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5702: MSC_CL_DEMAND_PULL.LOAD_HARD_RESERVATION;
5703: END IF;
5704:
5705: ELSIF prec.sourcing_rule_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SOURCING THEN
5706:
5707: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5708: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SOURCING');
5709: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5710:
5711: MSC_CL_OTHER_PULL.LOAD_SOURCING;
5704:
5705: ELSIF prec.sourcing_rule_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SOURCING THEN
5706:
5707: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5708: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SOURCING');
5709: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5710:
5711: MSC_CL_OTHER_PULL.LOAD_SOURCING;
5712:
5705: ELSIF prec.sourcing_rule_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SOURCING THEN
5706:
5707: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5708: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SOURCING');
5709: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5710:
5711: MSC_CL_OTHER_PULL.LOAD_SOURCING;
5712:
5713: 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
5711: MSC_CL_OTHER_PULL.LOAD_SOURCING;
5712:
5713: 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
5714:
5715: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5716: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY');
5717: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5718:
5719: MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY;
5712:
5713: 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
5714:
5715: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5716: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY');
5717: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5718:
5719: MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY;
5720:
5713: 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
5714:
5715: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5716: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY');
5717: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5718:
5719: MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY;
5720:
5721: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CATEGORY THEN
5719: MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY;
5720:
5721: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CATEGORY THEN
5722:
5723: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5724: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_CATEGORY');
5725: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5726:
5727: MSC_CL_ITEM_PULL.LOAD_CATEGORY;
5720:
5721: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CATEGORY THEN
5722:
5723: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5724: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_CATEGORY');
5725: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5726:
5727: MSC_CL_ITEM_PULL.LOAD_CATEGORY;
5728:
5721: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CATEGORY THEN
5722:
5723: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5724: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_CATEGORY');
5725: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5726:
5727: MSC_CL_ITEM_PULL.LOAD_CATEGORY;
5728:
5729: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5725: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5726:
5727: MSC_CL_ITEM_PULL.LOAD_CATEGORY;
5728:
5729: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5730: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.INSERT_DUMMY_CATEGORIES');
5731: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5732:
5733: MSC_CL_ITEM_PULL.INSERT_DUMMY_CATEGORIES ;
5726:
5727: MSC_CL_ITEM_PULL.LOAD_CATEGORY;
5728:
5729: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5730: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.INSERT_DUMMY_CATEGORIES');
5731: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5732:
5733: MSC_CL_ITEM_PULL.INSERT_DUMMY_CATEGORIES ;
5734:
5727: MSC_CL_ITEM_PULL.LOAD_CATEGORY;
5728:
5729: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5730: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.INSERT_DUMMY_CATEGORIES');
5731: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5732:
5733: MSC_CL_ITEM_PULL.INSERT_DUMMY_CATEGORIES ;
5734:
5735: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BOM THEN
5735: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BOM THEN
5736:
5737: -- call the appropriate routine for bom
5738:
5739: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5740: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOM');
5741: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5742:
5743:
5736:
5737: -- call the appropriate routine for bom
5738:
5739: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5740: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOM');
5741: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5742:
5743:
5744: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5737: -- call the appropriate routine for bom
5738:
5739: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5740: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOM');
5741: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5742:
5743:
5744: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5745: MSC_CL_BOM_PULL.LOAD_BOM;
5779:
5780: -- only call if doing discrete mfg. process will do this with
5781: -- boms
5782:
5783: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5784: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING');
5785: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5786:
5787:
5780: -- only call if doing discrete mfg. process will do this with
5781: -- boms
5782:
5783: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5784: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING');
5785: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5786:
5787:
5788: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5781: -- boms
5782:
5783: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5784: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING');
5785: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5786:
5787:
5788: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5789: MSC_CL_ROUTING_PULL.LOAD_ROUTING;
5793:
5794: -- only call if doing discrete mfg. process will do this with
5795: -- boms
5796:
5797: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5798: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_OPER_NETWORKS');
5799: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5800:
5801:
5794: -- only call if doing discrete mfg. process will do this with
5795: -- boms
5796:
5797: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5798: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_OPER_NETWORKS');
5799: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5800:
5801:
5802: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5795: -- boms
5796:
5797: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5798: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_OPER_NETWORKS');
5799: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5800:
5801:
5802: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5803: MSC_CL_WIP_PULL.LOAD_OPER_NETWORKS;
5807:
5808: -- only call if doing discrete mfg. process will do this with
5809: -- boms
5810:
5811: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5812: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING_OPERATIONS');
5813: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5814:
5815:
5808: -- only call if doing discrete mfg. process will do this with
5809: -- boms
5810:
5811: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5812: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING_OPERATIONS');
5813: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5814:
5815:
5816: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5809: -- boms
5810:
5811: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5812: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING_OPERATIONS');
5813: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5814:
5815:
5816: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5817: MSC_CL_ROUTING_PULL.LOAD_ROUTING_OPERATIONS;
5821:
5822: -- only call if doing discrete mfg. process will do this with
5823: -- boms
5824:
5825: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5826: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPERATION_RES_SEQ');
5827: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5828:
5829:
5822: -- only call if doing discrete mfg. process will do this with
5823: -- boms
5824:
5825: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5826: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPERATION_RES_SEQ');
5827: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5828:
5829:
5830: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5823: -- boms
5824:
5825: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5826: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPERATION_RES_SEQ');
5827: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5828:
5829:
5830: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5831: MSC_CL_ROUTING_PULL.LOAD_OPERATION_RES_SEQS;
5834:
5835: -- only call if doing discrete mfg. process will do this with
5836: -- boms
5837:
5838: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5839: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_RESOURCES');
5840: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5841:
5842:
5835: -- only call if doing discrete mfg. process will do this with
5836: -- boms
5837:
5838: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5839: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_RESOURCES');
5840: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5841:
5842:
5843: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5836: -- boms
5837:
5838: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5839: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_RESOURCES');
5840: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5841:
5842:
5843: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5844: MSC_CL_ROUTING_PULL.LOAD_OPERATION_RESOURCES;
5847:
5848: -- only call if doing discrete mfg. process will do this with
5849: -- boms
5850:
5851: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5852: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_COMPONENTS');
5853: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5854:
5855:
5848: -- only call if doing discrete mfg. process will do this with
5849: -- boms
5850:
5851: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5852: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_COMPONENTS');
5853: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5854:
5855:
5856: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5849: -- boms
5850:
5851: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5852: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_COMPONENTS');
5853: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5854:
5855:
5856: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5857: MSC_CL_ROUTING_PULL.LOAD_OPERATION_COMPONENTS;
5860:
5861: -- only call if doing discrete mfg. process will do this with
5862: -- boms
5863:
5864: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5865: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_PROCESS_EFFECTIVITY');
5866: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5867:
5868:
5861: -- only call if doing discrete mfg. process will do this with
5862: -- boms
5863:
5864: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5865: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_PROCESS_EFFECTIVITY');
5866: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5867:
5868:
5869: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5862: -- boms
5863:
5864: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5865: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_PROCESS_EFFECTIVITY');
5866: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5867:
5868:
5869: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5870: MSC_CL_BOM_PULL.LOAD_PROCESS_EFFECTIVITY;
5871: END IF;
5872:
5873: ELSIF prec.unit_number_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UNIT_NUMBER THEN
5874:
5875: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5876: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER');
5877: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5878:
5879: MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER;
5872:
5873: ELSIF prec.unit_number_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UNIT_NUMBER THEN
5874:
5875: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5876: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER');
5877: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5878:
5879: MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER;
5880:
5873: ELSIF prec.unit_number_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UNIT_NUMBER THEN
5874:
5875: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5876: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER');
5877: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5878:
5879: MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER;
5880:
5881: ELSIF prec.saf_stock_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SAFETY_STOCK THEN
5879: MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER;
5880:
5881: ELSIF prec.saf_stock_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SAFETY_STOCK THEN
5882:
5883: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5884: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK');
5885: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5886:
5887: MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK;
5880:
5881: ELSIF prec.saf_stock_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SAFETY_STOCK THEN
5882:
5883: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5884: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK');
5885: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5886:
5887: MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK;
5888:
5881: ELSIF prec.saf_stock_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SAFETY_STOCK THEN
5882:
5883: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5884: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK');
5885: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5886:
5887: MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK;
5888:
5889: ELSIF prec.project_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PROJECT THEN
5887: MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK;
5888:
5889: ELSIF prec.project_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PROJECT THEN
5890:
5891: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5892: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PROJECT');
5893: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5894:
5895: MSC_CL_OTHER_PULL.LOAD_PROJECT;
5888:
5889: ELSIF prec.project_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PROJECT THEN
5890:
5891: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5892: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PROJECT');
5893: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5894:
5895: MSC_CL_OTHER_PULL.LOAD_PROJECT;
5896:
5889: ELSIF prec.project_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PROJECT THEN
5890:
5891: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5892: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PROJECT');
5893: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5894:
5895: MSC_CL_OTHER_PULL.LOAD_PROJECT;
5896:
5897: ELSIF prec.parameter_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PARAMETER THEN
5895: MSC_CL_OTHER_PULL.LOAD_PROJECT;
5896:
5897: ELSIF prec.parameter_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PARAMETER THEN
5898:
5899: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5900: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_PARAMETER');
5901: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5902:
5903: MSC_CL_SETUP_PULL.LOAD_PARAMETER;
5896:
5897: ELSIF prec.parameter_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PARAMETER THEN
5898:
5899: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5900: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_PARAMETER');
5901: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5902:
5903: MSC_CL_SETUP_PULL.LOAD_PARAMETER;
5904:
5897: ELSIF prec.parameter_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PARAMETER THEN
5898:
5899: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5900: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_PARAMETER');
5901: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5902:
5903: MSC_CL_SETUP_PULL.LOAD_PARAMETER;
5904:
5905: ELSIF prec.uom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UOM THEN
5903: MSC_CL_SETUP_PULL.LOAD_PARAMETER;
5904:
5905: ELSIF prec.uom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UOM THEN
5906:
5907: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5908: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_UOM');
5909: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5910:
5911: MSC_CL_SETUP_PULL.LOAD_UOM;
5904:
5905: ELSIF prec.uom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UOM THEN
5906:
5907: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5908: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_UOM');
5909: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5910:
5911: MSC_CL_SETUP_PULL.LOAD_UOM;
5912:
5905: ELSIF prec.uom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UOM THEN
5906:
5907: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5908: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_UOM');
5909: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5910:
5911: MSC_CL_SETUP_PULL.LOAD_UOM;
5912:
5913: ELSIF prec.kpi_bis_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BIS THEN
5911: MSC_CL_SETUP_PULL.LOAD_UOM;
5912:
5913: ELSIF prec.kpi_bis_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BIS THEN
5914:
5915: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5916: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_BIS');
5917: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5918:
5919:
5912:
5913: ELSIF prec.kpi_bis_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BIS THEN
5914:
5915: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5916: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_BIS');
5917: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5918:
5919:
5920: IF v_apps_ver= MSC_UTIL.G_APPS110 THEN
5913: ELSIF prec.kpi_bis_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BIS THEN
5914:
5915: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5916: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_BIS');
5917: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5918:
5919:
5920: IF v_apps_ver= MSC_UTIL.G_APPS110 THEN
5921:
5932: END IF;
5933:
5934: ELSIF prec.atp_rules_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ATP_RULES THEN
5935:
5936: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5937: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_ATP_RULES');
5938: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5939:
5940: MSC_CL_OTHER_PULL.LOAD_ATP_RULES;
5933:
5934: ELSIF prec.atp_rules_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ATP_RULES THEN
5935:
5936: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5937: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_ATP_RULES');
5938: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5939:
5940: MSC_CL_OTHER_PULL.LOAD_ATP_RULES;
5941:
5934: ELSIF prec.atp_rules_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ATP_RULES THEN
5935:
5936: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5937: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_ATP_RULES');
5938: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5939:
5940: MSC_CL_OTHER_PULL.LOAD_ATP_RULES;
5941:
5942: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_SUPPLY THEN
5940: MSC_CL_OTHER_PULL.LOAD_ATP_RULES;
5941:
5942: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_SUPPLY THEN
5943:
5944: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5945: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY');
5946: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5947:
5948: MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY;
5941:
5942: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_SUPPLY THEN
5943:
5944: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5945: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY');
5946: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5947:
5948: MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY;
5949:
5942: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_SUPPLY THEN
5943:
5944: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5945: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY');
5946: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5947:
5948: MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY;
5949:
5950: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_DEMAND THEN
5948: MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY;
5949:
5950: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_DEMAND THEN
5951:
5952: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5953: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND');
5954: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5955:
5956: MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND;
5949:
5950: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_DEMAND THEN
5951:
5952: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5953: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND');
5954: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5955:
5956: MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND;
5957:
5950: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_DEMAND THEN
5951:
5952: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5953: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND');
5954: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5955:
5956: MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND;
5957:
5958: ELSIF prec.planner_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PLANNERS THEN
5956: MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND;
5957:
5958: ELSIF prec.planner_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PLANNERS THEN
5959:
5960: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5961: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PLANNERS');
5962: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5963:
5964: MSC_CL_OTHER_PULL.LOAD_PLANNERS;
5957:
5958: ELSIF prec.planner_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PLANNERS THEN
5959:
5960: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5961: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PLANNERS');
5962: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5963:
5964: MSC_CL_OTHER_PULL.LOAD_PLANNERS;
5965:
5958: ELSIF prec.planner_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PLANNERS THEN
5959:
5960: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5961: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PLANNERS');
5962: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5963:
5964: MSC_CL_OTHER_PULL.LOAD_PLANNERS;
5965:
5966: -- Added this new task for Prod. Subst ---
5965:
5966: -- Added this new task for Prod. Subst ---
5967: ELSIF prec.item_subst_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM_SUBSTITUTES THEN
5968:
5969: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5970: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES');
5971: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5972:
5973: IF ( v_apps_ver >= MSC_UTIL.G_APPS115 ) THEN
5966: -- Added this new task for Prod. Subst ---
5967: ELSIF prec.item_subst_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM_SUBSTITUTES THEN
5968:
5969: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5970: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES');
5971: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5972:
5973: IF ( v_apps_ver >= MSC_UTIL.G_APPS115 ) THEN
5974: MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES;
5967: ELSIF prec.item_subst_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM_SUBSTITUTES THEN
5968:
5969: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5970: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES');
5971: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5972:
5973: IF ( v_apps_ver >= MSC_UTIL.G_APPS115 ) THEN
5974: MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES;
5975: END IF;
5975: END IF;
5976:
5977: ELSIF prec.demand_class_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DEMAND_CLASS THEN
5978:
5979: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5980: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS');
5981: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5982:
5983: MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS;
5976:
5977: ELSIF prec.demand_class_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DEMAND_CLASS THEN
5978:
5979: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5980: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS');
5981: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5982:
5983: MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS;
5984:
5977: ELSIF prec.demand_class_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DEMAND_CLASS THEN
5978:
5979: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5980: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS');
5981: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5982:
5983: MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS;
5984:
5985: ELSIF (prec.tp_customer_flag = MSC_UTIL.SYS_YES OR prec.tp_vendor_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_BUYER_CONTACT THEN
5983: MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS;
5984:
5985: ELSIF (prec.tp_customer_flag = MSC_UTIL.SYS_YES OR prec.tp_vendor_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_BUYER_CONTACT THEN
5986:
5987: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5988: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT');
5989: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5990: MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT;
5991:
5984:
5985: ELSIF (prec.tp_customer_flag = MSC_UTIL.SYS_YES OR prec.tp_vendor_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_BUYER_CONTACT THEN
5986:
5987: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5988: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT');
5989: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5990: MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT;
5991:
5992: /* SCE Change starts */
5985: ELSIF (prec.tp_customer_flag = MSC_UTIL.SYS_YES OR prec.tp_vendor_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_BUYER_CONTACT THEN
5986:
5987: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5988: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT');
5989: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5990: MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT;
5991:
5992: /* SCE Change starts */
5993:
6008: IF (MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_APS_SCE
6009: OR
6010: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6011:
6012: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6013: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SCE_COLLECTION.PULL_USER_COMPANY');
6014: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6015:
6016: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of USER_COMPANY_ENABLED :'||USER_COMPANY_ENABLED);
6009: OR
6010: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6011:
6012: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6013: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SCE_COLLECTION.PULL_USER_COMPANY');
6014: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6015:
6016: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of USER_COMPANY_ENABLED :'||USER_COMPANY_ENABLED);
6017: MSC_CL_SCE_COLLECTION.PULL_USER_COMPANY(v_dblink,
6010: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6011:
6012: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6013: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SCE_COLLECTION.PULL_USER_COMPANY');
6014: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6015:
6016: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of USER_COMPANY_ENABLED :'||USER_COMPANY_ENABLED);
6017: MSC_CL_SCE_COLLECTION.PULL_USER_COMPANY(v_dblink,
6018: v_instance_id,
6045: IF (MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_APS_SCE
6046: OR
6047: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6048:
6049: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6050: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLIER_RESP.PULL_SUPPLIER_RESP');
6051: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6052:
6053: MSC_CL_SUPPLIER_RESP.PULL_SUPPLIER_RESP(v_dblink,
6046: OR
6047: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6048:
6049: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6050: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLIER_RESP.PULL_SUPPLIER_RESP');
6051: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6052:
6053: MSC_CL_SUPPLIER_RESP.PULL_SUPPLIER_RESP(v_dblink,
6054: v_instance_id,
6047: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6048:
6049: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6050: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLIER_RESP.PULL_SUPPLIER_RESP');
6051: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6052:
6053: MSC_CL_SUPPLIER_RESP.PULL_SUPPLIER_RESP(v_dblink,
6054: v_instance_id,
6055: lv_return_status,
6067: /* CP-ACK ends */
6068:
6069: ELSIF prec.trip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_TRIP THEN
6070:
6071: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6072: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_TRIP');
6073: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6074:
6075: MSC_CL_OTHER_PULL.LOAD_TRIP;
6068:
6069: ELSIF prec.trip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_TRIP THEN
6070:
6071: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6072: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_TRIP');
6073: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6074:
6075: MSC_CL_OTHER_PULL.LOAD_TRIP;
6076:
6069: ELSIF prec.trip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_TRIP THEN
6070:
6071: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6072: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_TRIP');
6073: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6074:
6075: MSC_CL_OTHER_PULL.LOAD_TRIP;
6076:
6077:
6076:
6077:
6078: ELSIF prec.sales_channel_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SALES_CHANNEL THEN
6079:
6080: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6081: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL');
6082: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6083:
6084: MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL;
6077:
6078: ELSIF prec.sales_channel_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SALES_CHANNEL THEN
6079:
6080: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6081: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL');
6082: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6083:
6084: MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL;
6085:
6078: ELSIF prec.sales_channel_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SALES_CHANNEL THEN
6079:
6080: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6081: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL');
6082: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6083:
6084: MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL;
6085:
6086: ELSIF prec.fiscal_calendar_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_FISCAL_CALENDAR THEN
6084: MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL;
6085:
6086: ELSIF prec.fiscal_calendar_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_FISCAL_CALENDAR THEN
6087:
6088: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6089: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR');
6090: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6091:
6092: MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR;
6085:
6086: ELSIF prec.fiscal_calendar_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_FISCAL_CALENDAR THEN
6087:
6088: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6089: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR');
6090: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6091:
6092: MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR;
6093:
6086: ELSIF prec.fiscal_calendar_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_FISCAL_CALENDAR THEN
6087:
6088: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6089: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR');
6090: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6091:
6092: MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR;
6093:
6094: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO) THEN
6092: MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR;
6093:
6094: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO) THEN
6095:
6096: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6097: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO');
6098: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6099: /* changes for executing repair order load Bug# 5909379 */
6100: MSC_CL_RPO_PULL.LOAD_IRO;
6093:
6094: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO) THEN
6095:
6096: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6097: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO');
6098: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6099: /* changes for executing repair order load Bug# 5909379 */
6100: MSC_CL_RPO_PULL.LOAD_IRO;
6101:
6094: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO) THEN
6095:
6096: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6097: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO');
6098: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6099: /* changes for executing repair order load Bug# 5909379 */
6100: MSC_CL_RPO_PULL.LOAD_IRO;
6101:
6102: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO_DEMAND) THEN
6100: MSC_CL_RPO_PULL.LOAD_IRO;
6101:
6102: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO_DEMAND) THEN
6103:
6104: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6105: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO_DEMAND');
6106: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6107: /* changes for executing repair order load Bug# 5909379 */
6108: MSC_CL_RPO_PULL.LOAD_IRO_DEMAND;
6101:
6102: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO_DEMAND) THEN
6103:
6104: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6105: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO_DEMAND');
6106: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6107: /* changes for executing repair order load Bug# 5909379 */
6108: MSC_CL_RPO_PULL.LOAD_IRO_DEMAND;
6109:
6102: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO_DEMAND) THEN
6103:
6104: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6105: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO_DEMAND');
6106: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6107: /* changes for executing repair order load Bug# 5909379 */
6108: MSC_CL_RPO_PULL.LOAD_IRO_DEMAND;
6109:
6110: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO) THEN
6108: MSC_CL_RPO_PULL.LOAD_IRO_DEMAND;
6109:
6110: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO) THEN
6111:
6112: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6113: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO');
6114: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6115: /* changes for executing repair order load Bug# 5935273*/
6116: MSC_CL_RPO_PULL.LOAD_ERO;
6109:
6110: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO) THEN
6111:
6112: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6113: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO');
6114: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6115: /* changes for executing repair order load Bug# 5935273*/
6116: MSC_CL_RPO_PULL.LOAD_ERO;
6117:
6110: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO) THEN
6111:
6112: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6113: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO');
6114: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6115: /* changes for executing repair order load Bug# 5935273*/
6116: MSC_CL_RPO_PULL.LOAD_ERO;
6117:
6118: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO_DEMAND) THEN
6116: MSC_CL_RPO_PULL.LOAD_ERO;
6117:
6118: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO_DEMAND) THEN
6119:
6120: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6121: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO_DEMAND');
6122: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6123: /* changes for executing repair order load Bug# 5935273 */
6124: MSC_CL_RPO_PULL.LOAD_ERO_DEMAND;
6117:
6118: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO_DEMAND) THEN
6119:
6120: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6121: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO_DEMAND');
6122: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6123: /* changes for executing repair order load Bug# 5935273 */
6124: MSC_CL_RPO_PULL.LOAD_ERO_DEMAND;
6125:
6118: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO_DEMAND) THEN
6119:
6120: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6121: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO_DEMAND');
6122: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6123: /* changes for executing repair order load Bug# 5935273 */
6124: MSC_CL_RPO_PULL.LOAD_ERO_DEMAND;
6125:
6126:
6125:
6126:
6127: ELSIF prec.payback_demand_supply_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PAYBACK_DEMAND_SUPPLY THEN
6128:
6129: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6130: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPEN_PAYBACKS');
6131: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6132:
6133: MSC_CL_DEMAND_PULL.LOAD_OPEN_PAYBACKS;
6126:
6127: ELSIF prec.payback_demand_supply_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PAYBACK_DEMAND_SUPPLY THEN
6128:
6129: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6130: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPEN_PAYBACKS');
6131: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6132:
6133: MSC_CL_DEMAND_PULL.LOAD_OPEN_PAYBACKS;
6134:
6127: ELSIF prec.payback_demand_supply_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PAYBACK_DEMAND_SUPPLY THEN
6128:
6129: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6130: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPEN_PAYBACKS');
6131: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6132:
6133: MSC_CL_DEMAND_PULL.LOAD_OPEN_PAYBACKS;
6134:
6135: /* changes for currency conversion bug # 6469722 */
6134:
6135: /* changes for currency conversion bug # 6469722 */
6136: ELSIF prec.currency_conversion_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CURRENCY_CONVERSION THEN -- bug # 6469722
6137: IF (MSC_CL_OTHER_PULL.G_MSC_HUB_CURR_CODE IS NOT NULL) THEN
6138: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6139: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION');
6140: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6141:
6142: MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION;
6135: /* changes for currency conversion bug # 6469722 */
6136: ELSIF prec.currency_conversion_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CURRENCY_CONVERSION THEN -- bug # 6469722
6137: IF (MSC_CL_OTHER_PULL.G_MSC_HUB_CURR_CODE IS NOT NULL) THEN
6138: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6139: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION');
6140: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6141:
6142: MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION;
6143: ELSE
6136: ELSIF prec.currency_conversion_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CURRENCY_CONVERSION THEN -- bug # 6469722
6137: IF (MSC_CL_OTHER_PULL.G_MSC_HUB_CURR_CODE IS NOT NULL) THEN
6138: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6139: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION');
6140: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6141:
6142: MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION;
6143: ELSE
6144: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Currency Data is not collected as MSC:Planning Hub Currency Code Profile is NULL.');
6144: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Currency Data is not collected as MSC:Planning Hub Currency Code Profile is NULL.');
6145: END IF;
6146: ELSIF prec.delivery_details_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DELIVERY_DETAILS THEN
6147:
6148: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6149: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_DELIVERY_DETAILS');
6150: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6151:
6152: MSC_CL_OTHER_PULL.LOAD_DELIVERY_DETAILS;
6145: END IF;
6146: ELSIF prec.delivery_details_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DELIVERY_DETAILS THEN
6147:
6148: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6149: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_DELIVERY_DETAILS');
6150: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6151:
6152: MSC_CL_OTHER_PULL.LOAD_DELIVERY_DETAILS;
6153: END IF;
6146: ELSIF prec.delivery_details_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DELIVERY_DETAILS THEN
6147:
6148: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6149: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_DELIVERY_DETAILS');
6150: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6151:
6152: MSC_CL_OTHER_PULL.LOAD_DELIVERY_DETAILS;
6153: END IF;
6154:
6171: RETURN;
6172:
6173: WHEN GMP_ERROR THEN
6174:
6175: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_GMP_ERR');
6176: FND_MESSAGE.SET_TOKEN('ROUTINE', v_gmp_routine_name);
6177:
6178: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6179:
6172:
6173: WHEN GMP_ERROR THEN
6174:
6175: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_GMP_ERR');
6176: FND_MESSAGE.SET_TOKEN('ROUTINE', v_gmp_routine_name);
6177:
6178: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6179:
6180: RAISE;
6174:
6175: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_GMP_ERR');
6176: FND_MESSAGE.SET_TOKEN('ROUTINE', v_gmp_routine_name);
6177:
6178: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6179:
6180: RAISE;
6181:
6182: WHEN OTHERS THEN
6180: RAISE;
6181:
6182: WHEN OTHERS THEN
6183:
6184: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_ERR');
6185: FND_MESSAGE.SET_TOKEN('TABLE', v_table_name);
6186: FND_MESSAGE.SET_TOKEN('VIEW', v_view_name);
6187:
6188: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6181:
6182: WHEN OTHERS THEN
6183:
6184: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_ERR');
6185: FND_MESSAGE.SET_TOKEN('TABLE', v_table_name);
6186: FND_MESSAGE.SET_TOKEN('VIEW', v_view_name);
6187:
6188: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6189:
6182: WHEN OTHERS THEN
6183:
6184: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_ERR');
6185: FND_MESSAGE.SET_TOKEN('TABLE', v_table_name);
6186: FND_MESSAGE.SET_TOKEN('VIEW', v_view_name);
6187:
6188: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6189:
6190: RAISE;
6184: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_ERR');
6185: FND_MESSAGE.SET_TOKEN('TABLE', v_table_name);
6186: FND_MESSAGE.SET_TOKEN('VIEW', v_view_name);
6187:
6188: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6189:
6190: RAISE;
6191:
6192: END;--LOAD_DATA
6190: RAISE;
6191:
6192: END;--LOAD_DATA
6193:
6194: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
6195: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',
6196: TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
6197: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6198: msc_util.print_top_wait(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6191:
6192: END;--LOAD_DATA
6193:
6194: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
6195: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',
6196: TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
6197: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6198: msc_util.print_top_wait(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6199: msc_util.print_cum_stat(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6193:
6194: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
6195: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',
6196: TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
6197: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6198: msc_util.print_top_wait(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6199: msc_util.print_cum_stat(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6200: msc_util.print_bad_sqls(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6201: