[Home] [Help]
305:
306: IF l_call_status=FALSE THEN
307: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
308:
309: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
310: FND_MESSAGE.SET_TOKEN('REQUEST_ID',v_monitor_request_id);
311: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
312:
313: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
306: IF l_call_status=FALSE THEN
307: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
308:
309: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
310: FND_MESSAGE.SET_TOKEN('REQUEST_ID',v_monitor_request_id);
311: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
312:
313: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
314: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
307: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
308:
309: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
310: FND_MESSAGE.SET_TOKEN('REQUEST_ID',v_monitor_request_id);
311: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
312:
313: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
314: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
315: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
309: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
310: FND_MESSAGE.SET_TOKEN('REQUEST_ID',v_monitor_request_id);
311: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
312:
313: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
314: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
315: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
316:
317: RETURN MSC_UTIL.SYS_NO;
310: FND_MESSAGE.SET_TOKEN('REQUEST_ID',v_monitor_request_id);
311: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
312:
313: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
314: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
315: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
316:
317: RETURN MSC_UTIL.SYS_NO;
318: END IF;
311: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
312:
313: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
314: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
315: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
316:
317: RETURN MSC_UTIL.SYS_NO;
318: END IF;
319:
321: RETURN MSC_UTIL.SYS_YES;
322: ELSE
323: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
324:
325: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
326: FND_MESSAGE.SET_TOKEN('REQUEST_ID', v_monitor_request_id);
327: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
328: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
322: ELSE
323: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
324:
325: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
326: FND_MESSAGE.SET_TOKEN('REQUEST_ID', v_monitor_request_id);
327: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
328: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
330:
323: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_MONITOR_STATUS_RUNNING');
324:
325: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
326: FND_MESSAGE.SET_TOKEN('REQUEST_ID', v_monitor_request_id);
327: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
328: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
330:
331: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
324:
325: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
326: FND_MESSAGE.SET_TOKEN('REQUEST_ID', v_monitor_request_id);
327: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
328: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
330:
331: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
332: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
325: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
326: FND_MESSAGE.SET_TOKEN('REQUEST_ID', v_monitor_request_id);
327: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
328: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
330:
331: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
332: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
333: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
327: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
328: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
330:
331: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
332: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
333: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
334:
335: RETURN MSC_UTIL.SYS_NO;
328: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
330:
331: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
332: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
333: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
334:
335: RETURN MSC_UTIL.SYS_NO;
336: END IF;
329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
330:
331: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
332: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
333: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
334:
335: RETURN MSC_UTIL.SYS_NO;
336: END IF;
337:
368:
369: IF l_call_status=FALSE THEN
370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
371:
372: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
373: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
375:
376: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
369: IF l_call_status=FALSE THEN
370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
371:
372: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
373: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
375:
376: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
377: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
371:
372: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
373: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
375:
376: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
377: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
378: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
372: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
373: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
375:
376: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
377: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
378: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
379:
380: RETURN MSC_UTIL.SYS_NO;
373: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
375:
376: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
377: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
378: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
379:
380: RETURN MSC_UTIL.SYS_NO;
381: END IF;
374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
375:
376: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
377: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
378: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
379:
380: RETURN MSC_UTIL.SYS_NO;
381: END IF;
382:
384: RETURN MSC_UTIL.SYS_YES;
385: ELSE
386: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
387:
388: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
389: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
390: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
391: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
392: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
385: ELSE
386: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
387:
388: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
389: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
390: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
391: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
392: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
393:
386: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_REQUEST_STATUS_RUNNING');
387:
388: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
389: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
390: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
391: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
392: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
393:
394: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
387:
388: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
389: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
390: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
391: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
392: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
393:
394: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
395: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
388: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
389: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
390: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
391: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
392: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
393:
394: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
395: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
396: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
390: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
391: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
392: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
393:
394: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
395: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
396: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
397:
398: RETURN MSC_UTIL.SYS_NO;
391: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
392: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
393:
394: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
395: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
396: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
397:
398: RETURN MSC_UTIL.SYS_NO;
399: END IF;
392: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
393:
394: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
395: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
396: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
397:
398: RETURN MSC_UTIL.SYS_NO;
399: END IF;
400:
433:
434: IF l_call_status=FALSE THEN
435: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
436:
437: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
438: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
439: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
440:
441: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
434: IF l_call_status=FALSE THEN
435: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
436:
437: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
438: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
439: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
440:
441: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
442: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
435: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
436:
437: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
438: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
439: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
440:
441: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
442: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
443: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
437: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUNNING');
438: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
439: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
440:
441: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
442: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
443: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
444:
445: RETURN MSC_UTIL.SYS_NO;
438: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
439: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
440:
441: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
442: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
443: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
444:
445: RETURN MSC_UTIL.SYS_NO;
446: END IF;
439: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
440:
441: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
442: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
443: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
444:
445: RETURN MSC_UTIL.SYS_NO;
446: END IF;
447:
447:
448: IF l_dev_phase NOT IN ( 'PENDING','RUNNING') THEN
449: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
450:
451: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
452: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
453: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
454: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
448: IF l_dev_phase NOT IN ( 'PENDING','RUNNING') THEN
449: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
450:
451: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
452: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
453: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
454: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
456:
449: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'IS_WORKER_STATUS_VALID');
450:
451: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
452: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
453: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
454: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
456:
457: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
450:
451: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
452: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
453: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
454: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
456:
457: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
458: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
451: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
452: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
453: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
454: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
456:
457: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
458: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
459: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
453: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
454: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
456:
457: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
458: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
459: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
460:
461: RETURN MSC_UTIL.SYS_NO;
454: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
456:
457: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
458: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
459: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
460:
461: RETURN MSC_UTIL.SYS_NO;
462: END IF;
455: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
456:
457: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_CONC_MESSAGE');
458: FND_MESSAGE.SET_TOKEN('MESSAGE',l_message);
459: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
460:
461: RETURN MSC_UTIL.SYS_NO;
462: END IF;
463:
514: req_complete := req_complete + 1;
515:
516: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'ALL_WORKERS_COMPLETED');
517:
518: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
519: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
520: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
521: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
522: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
515:
516: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'ALL_WORKERS_COMPLETED');
517:
518: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
519: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
520: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
521: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
522: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
523:
516: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'ALL_WORKERS_COMPLETED');
517:
518: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
519: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
520: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
521: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
522: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
523:
524: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_TOTAL_REQS_COMPLETE');
517:
518: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
519: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
520: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
521: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
522: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
523:
524: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_TOTAL_REQS_COMPLETE');
525: FND_MESSAGE.SET_TOKEN('REQUESTS',req_complete);
518: FND_MESSAGE.SET_NAME('MSC', 'MSC_FUNC_MON_RUN');
519: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id);
520: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
521: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
522: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
523:
524: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_TOTAL_REQS_COMPLETE');
525: FND_MESSAGE.SET_TOKEN('REQUESTS',req_complete);
526: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
520: FND_MESSAGE.SET_TOKEN('PHASE',l_dev_phase);
521: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
522: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
523:
524: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_TOTAL_REQS_COMPLETE');
525: FND_MESSAGE.SET_TOKEN('REQUESTS',req_complete);
526: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
527:
528: END IF;
521: FND_MESSAGE.SET_TOKEN('STATUS',l_dev_status);
522: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
523:
524: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_TOTAL_REQS_COMPLETE');
525: FND_MESSAGE.SET_TOKEN('REQUESTS',req_complete);
526: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
527:
528: END IF;
529:
522: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
523:
524: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_TOTAL_REQS_COMPLETE');
525: FND_MESSAGE.SET_TOKEN('REQUESTS',req_complete);
526: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
527:
528: END IF;
529:
530: END LOOP;
529:
530: END LOOP;
531:
532: IF total_req = req_complete THEN
533: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_ALL_WORKERS_COMP');
534: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
535: RETURN MSC_UTIL.SYS_YES;
536: ELSE
537: RETURN MSC_UTIL.SYS_NO;
530: END LOOP;
531:
532: IF total_req = req_complete THEN
533: FND_MESSAGE.SET_NAME('MSC', 'MSC_CL_ALL_WORKERS_COMP');
534: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
535: RETURN MSC_UTIL.SYS_YES;
536: ELSE
537: RETURN MSC_UTIL.SYS_NO;
538: END IF;
613: lv_application_id NUMBER;
614:
615: BEGIN
616:
617: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_START');
618: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET );
619:
620: savepoint start_of_submission;
621:
614:
615: BEGIN
616:
617: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_START');
618: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET );
619:
620: savepoint start_of_submission;
621:
622: -- agmcont:
709: IF lv_retcode= MSC_UTIL.G_ERROR THEN
710: ROLLBACK TO start_of_submission;
711:
712: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
713: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
714: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
715: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
716: RETURN FALSE;
717: END IF;
710: ROLLBACK TO start_of_submission;
711:
712: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
713: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
714: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
715: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
716: RETURN FALSE;
717: END IF;
718:
711:
712: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
713: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
714: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
715: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
716: RETURN FALSE;
717: END IF;
718:
719: IF lv_request_id= 0 THEN
719: IF lv_request_id= 0 THEN
720: ROLLBACK TO start_of_submission;
721:
722: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
723: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
724: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
725: RETURN FALSE;
726: END IF;
727:
720: ROLLBACK TO start_of_submission;
721:
722: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, lv_errbuf);
723: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
724: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
725: RETURN FALSE;
726: END IF;
727:
728: COMMIT;
726: END IF;
727:
728: COMMIT;
729:
730: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQUEST_ID');
731: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
732: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET );
733:
734: /* purge the staging tables
727:
728: COMMIT;
729:
730: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQUEST_ID');
731: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
732: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET );
733:
734: /* purge the staging tables
735: the purpose of calling this procedure is that we do a COMMIT after
728: COMMIT;
729:
730: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQUEST_ID');
731: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
732: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET );
733:
734: /* purge the staging tables
735: the purpose of calling this procedure is that we do a COMMIT after
736: every task is done, if the previous data pull failed we may have
766: IF lv_retcode = MSC_UTIL.G_NORMAL_COMPLETION THEN
767: RETURN TRUE;
768: ELSE
769: IF lv_retcode = MSC_UTIL.G_PENDING_INACTIVE THEN
770: FND_MESSAGE.SET_NAME('MSC', 'MSC_RS_TIME_OUT');
771: FND_MESSAGE.SET_TOKEN('PENDING_TIMEOUT', lv_timeout);
772: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
773: ELSE
774: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
767: RETURN TRUE;
768: ELSE
769: IF lv_retcode = MSC_UTIL.G_PENDING_INACTIVE THEN
770: FND_MESSAGE.SET_NAME('MSC', 'MSC_RS_TIME_OUT');
771: FND_MESSAGE.SET_TOKEN('PENDING_TIMEOUT', lv_timeout);
772: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
773: ELSE
774: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
775: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
768: ELSE
769: IF lv_retcode = MSC_UTIL.G_PENDING_INACTIVE THEN
770: FND_MESSAGE.SET_NAME('MSC', 'MSC_RS_TIME_OUT');
771: FND_MESSAGE.SET_TOKEN('PENDING_TIMEOUT', lv_timeout);
772: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
773: ELSE
774: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
775: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
776: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
770: FND_MESSAGE.SET_NAME('MSC', 'MSC_RS_TIME_OUT');
771: FND_MESSAGE.SET_TOKEN('PENDING_TIMEOUT', lv_timeout);
772: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
773: ELSE
774: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
775: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
776: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
777: END IF;
778: RETURN FALSE;
771: FND_MESSAGE.SET_TOKEN('PENDING_TIMEOUT', lv_timeout);
772: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
773: ELSE
774: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
775: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
776: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
777: END IF;
778: RETURN FALSE;
779: END IF;
772: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
773: ELSE
774: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_REQ_ERROR');
775: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lv_request_id);
776: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
777: END IF;
778: RETURN FALSE;
779: END IF;
780:
913:
914: EXCEPTION
915: WHEN NO_DATA_FOUND THEN
916:
917: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
918: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', p_instance_id);
919: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
920: RETURN;
921: WHEN OTHERS THEN
914: EXCEPTION
915: WHEN NO_DATA_FOUND THEN
916:
917: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
918: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', p_instance_id);
919: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
920: RETURN;
921: WHEN OTHERS THEN
922:
915: WHEN NO_DATA_FOUND THEN
916:
917: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
918: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', p_instance_id);
919: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
920: RETURN;
921: WHEN OTHERS THEN
922:
923: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1037: WHERE INSTANCE_ID= p_instance_id;
1038:
1039: EXCEPTION
1040: WHEN NO_DATA_FOUND THEN
1041: FND_MESSAGE.SET_NAME('MSC','MSC_DP_INVALID_INSTANCE_ID');
1042: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', p_instance_id);
1043: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1044: RETURN '=-9999';
1045: WHEN OTHERS THEN
1038:
1039: EXCEPTION
1040: WHEN NO_DATA_FOUND THEN
1041: FND_MESSAGE.SET_NAME('MSC','MSC_DP_INVALID_INSTANCE_ID');
1042: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', p_instance_id);
1043: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1044: RETURN '=-9999';
1045: WHEN OTHERS THEN
1046: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1039: EXCEPTION
1040: WHEN NO_DATA_FOUND THEN
1041: FND_MESSAGE.SET_NAME('MSC','MSC_DP_INVALID_INSTANCE_ID');
1042: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', p_instance_id);
1043: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1044: RETURN '=-9999';
1045: WHEN OTHERS THEN
1046: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1047: RETURN '=-9999';
1291: WHEN NO_DATA_FOUND THEN
1292:
1293: RETCODE := MSC_UTIL.G_ERROR;
1294:
1295: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
1296: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
1297: ERRBUF:= FND_MESSAGE.GET;
1298: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1299: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1292:
1293: RETCODE := MSC_UTIL.G_ERROR;
1294:
1295: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
1296: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
1297: ERRBUF:= FND_MESSAGE.GET;
1298: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1299: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1300:
1293: RETCODE := MSC_UTIL.G_ERROR;
1294:
1295: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
1296: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
1297: ERRBUF:= FND_MESSAGE.GET;
1298: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1299: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1300:
1301: RETURN;
1575: WHERE instance_id = pINSTANCE_ID;
1576: end if;
1577:
1578:
1579: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_RCV_RET_CODE');
1580: FND_MESSAGE.SET_TOKEN('LV_TASK_NUMBER',lv_ret_code);
1581: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
1582:
1583: IF lv_ret_code<>0 THEN
1576: end if;
1577:
1578:
1579: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_RCV_RET_CODE');
1580: FND_MESSAGE.SET_TOKEN('LV_TASK_NUMBER',lv_ret_code);
1581: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
1582:
1583: IF lv_ret_code<>0 THEN
1584:
1577:
1578:
1579: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_RCV_RET_CODE');
1580: FND_MESSAGE.SET_TOKEN('LV_TASK_NUMBER',lv_ret_code);
1581: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
1582:
1583: IF lv_ret_code<>0 THEN
1584:
1585: IF lv_ret_code = 1 THEN
1595: ELSE
1596: lv_is_waiting := true;
1597: DBMS_PIPE.UNPACK_MESSAGE( lv_task_num);
1598:
1599: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_TSK_UNPACK');
1600: FND_MESSAGE.SET_TOKEN('LV_TASK_NUM',lv_task_num);
1601: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
1602:
1603: EXIT WHEN lv_task_num<= 0; -- No task is left or unknown error occurs.
1596: lv_is_waiting := true;
1597: DBMS_PIPE.UNPACK_MESSAGE( lv_task_num);
1598:
1599: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_TSK_UNPACK');
1600: FND_MESSAGE.SET_TOKEN('LV_TASK_NUM',lv_task_num);
1601: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
1602:
1603: EXIT WHEN lv_task_num<= 0; -- No task is left or unknown error occurs.
1604:
1597: DBMS_PIPE.UNPACK_MESSAGE( lv_task_num);
1598:
1599: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_TSK_UNPACK');
1600: FND_MESSAGE.SET_TOKEN('LV_TASK_NUM',lv_task_num);
1601: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
1602:
1603: EXIT WHEN lv_task_num<= 0; -- No task is left or unknown error occurs.
1604:
1605: -- ============= Execute the Task =============
1690: -- =========== Send the executed lv_task_num back to the monitor =======
1691: -- =========== Positive Number means OK, Negative means FAIL ===========
1692:
1693: IF lv_task_status <> OK THEN
1694: FND_MESSAGE.SET_NAME('MSC','MSC_CL_EXECUTE_TSK_PROB');
1695: FND_MESSAGE.SET_TOKEN('LV_TASK_NUMBER',lv_task_num);
1696: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
1697:
1698: DBMS_PIPE.PACK_MESSAGE( -lv_task_num);
1691: -- =========== Positive Number means OK, Negative means FAIL ===========
1692:
1693: IF lv_task_status <> OK THEN
1694: FND_MESSAGE.SET_NAME('MSC','MSC_CL_EXECUTE_TSK_PROB');
1695: FND_MESSAGE.SET_TOKEN('LV_TASK_NUMBER',lv_task_num);
1696: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
1697:
1698: DBMS_PIPE.PACK_MESSAGE( -lv_task_num);
1699:
1692:
1693: IF lv_task_status <> OK THEN
1694: FND_MESSAGE.SET_NAME('MSC','MSC_CL_EXECUTE_TSK_PROB');
1695: FND_MESSAGE.SET_TOKEN('LV_TASK_NUMBER',lv_task_num);
1696: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
1697:
1698: DBMS_PIPE.PACK_MESSAGE( -lv_task_num);
1699:
1700: ELSE
1722: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_status)<>0 THEN
1723: RAISE EX_PIPE_SND;
1724: END IF;
1725:
1726: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_SUCCEED');
1727: ERRBUF:= FND_MESSAGE.GET;
1728: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ERRBUF);
1729:
1730: RETCODE := MSC_UTIL.G_SUCCESS;
1723: RAISE EX_PIPE_SND;
1724: END IF;
1725:
1726: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_SUCCEED');
1727: ERRBUF:= FND_MESSAGE.GET;
1728: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, ERRBUF);
1729:
1730: RETCODE := MSC_UTIL.G_SUCCESS;
1731: return;
1780: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_status)<>0 THEN
1781: RAISE EX_PIPE_SND;
1782: END IF;
1783:
1784: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
1785: ERRBUF:= FND_MESSAGE.GET;
1786:
1787: RETCODE := MSC_UTIL.G_ERROR;
1788:
1781: RAISE EX_PIPE_SND;
1782: END IF;
1783:
1784: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
1785: ERRBUF:= FND_MESSAGE.GET;
1786:
1787: RETCODE := MSC_UTIL.G_ERROR;
1788:
1789: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
1796: WHEN others THEN
1797:
1798: ROLLBACK; -- ROLLBACK if any exception occurs
1799:
1800: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
1801: ERRBUF:= FND_MESSAGE.GET;
1802: RETCODE := MSC_UTIL.G_ERROR;
1803:
1804: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1797:
1798: ROLLBACK; -- ROLLBACK if any exception occurs
1799:
1800: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
1801: ERRBUF:= FND_MESSAGE.GET;
1802: RETCODE := MSC_UTIL.G_ERROR;
1803:
1804: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1805:
1806: DBMS_PIPE.PACK_MESSAGE( UNRESOLVABLE_ERROR);
1807:
1808: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_wm)<>0 THEN
1809:
1810: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
1811: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_wm);
1812: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1813:
1814: END IF;
1807:
1808: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_wm)<>0 THEN
1809:
1810: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
1811: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_wm);
1812: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1813:
1814: END IF;
1815:
1808: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_wm)<>0 THEN
1809:
1810: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
1811: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_wm);
1812: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1813:
1814: END IF;
1815:
1816: DBMS_PIPE.PACK_MESSAGE( MSC_UTIL.SYS_YES);
1815:
1816: DBMS_PIPE.PACK_MESSAGE( MSC_UTIL.SYS_YES);
1817:
1818: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_status)<>0 THEN
1819: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
1820: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_status);
1821: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1822: END IF;
1823:
1816: DBMS_PIPE.PACK_MESSAGE( MSC_UTIL.SYS_YES);
1817:
1818: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_status)<>0 THEN
1819: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
1820: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_status);
1821: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1822: END IF;
1823:
1824: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
1817:
1818: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_status)<>0 THEN
1819: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
1820: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_status);
1821: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
1822: END IF;
1823:
1824: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'Error_Stack...');
1825: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, DBMS_UTILITY.FORMAT_ERROR_STACK );
2014: l_message);
2015:
2016: IF l_call_status=FALSE THEN
2017: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, l_message);
2018: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
2019: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
2020: RETCODE := MSC_UTIL.G_ERROR;
2021: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2022: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
2015:
2016: IF l_call_status=FALSE THEN
2017: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, l_message);
2018: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
2019: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
2020: RETCODE := MSC_UTIL.G_ERROR;
2021: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2022: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
2023: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
2030: -- the Planning Data Pull should continue
2031: null;
2032: ELSE
2033: -- the Planning Data Pull should error out
2034: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
2035: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
2036: RETCODE := MSC_UTIL.G_ERROR;
2037: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2038: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
2031: null;
2032: ELSE
2033: -- the Planning Data Pull should error out
2034: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_RS_ERROR');
2035: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET );
2036: RETCODE := MSC_UTIL.G_ERROR;
2037: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2038: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
2039: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
2313: -- are out of synchronization - error out.
2314: IF(( lv_sr_a2m <> v_dest_a2m) OR (lv_sr_m2a <> v_dblink)) THEN
2315:
2316: RETCODE := MSC_UTIL.G_ERROR;
2317: FND_MESSAGE.SET_NAME('MSC', 'MSC_COLL_A2MDBLINK_INVALID');
2318: ERRBUF:= FND_MESSAGE.GET;
2319: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2320: RETURN;
2321: END IF;
2314: IF(( lv_sr_a2m <> v_dest_a2m) OR (lv_sr_m2a <> v_dblink)) THEN
2315:
2316: RETCODE := MSC_UTIL.G_ERROR;
2317: FND_MESSAGE.SET_NAME('MSC', 'MSC_COLL_A2MDBLINK_INVALID');
2318: ERRBUF:= FND_MESSAGE.GET;
2319: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2320: RETURN;
2321: END IF;
2322:
2326: EXCEPTION
2327: WHEN NO_DATA_FOUND THEN
2328:
2329: RETCODE := MSC_UTIL.G_ERROR;
2330: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2331: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2332: ERRBUF:= FND_MESSAGE.GET;
2333: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2334: RETURN;
2327: WHEN NO_DATA_FOUND THEN
2328:
2329: RETCODE := MSC_UTIL.G_ERROR;
2330: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2331: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2332: ERRBUF:= FND_MESSAGE.GET;
2333: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2334: RETURN;
2335: WHEN OTHERS THEN
2328:
2329: RETCODE := MSC_UTIL.G_ERROR;
2330: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2331: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2332: ERRBUF:= FND_MESSAGE.GET;
2333: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2334: RETURN;
2335: WHEN OTHERS THEN
2336:
2521: -- are out of synchronization - error out.
2522: IF(( lv_sr_a2m <> lv_dest_a2m) OR (lv_sr_m2a <> v_dblink)) THEN
2523:
2524: RETCODE := MSC_UTIL.G_ERROR;
2525: FND_MESSAGE.SET_NAME('MSC', 'MSC_COLL_A2MDBLINK_INVALID');
2526: ERRBUF:= FND_MESSAGE.GET;
2527: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2528: RETURN;
2529: END IF;
2522: IF(( lv_sr_a2m <> lv_dest_a2m) OR (lv_sr_m2a <> v_dblink)) THEN
2523:
2524: RETCODE := MSC_UTIL.G_ERROR;
2525: FND_MESSAGE.SET_NAME('MSC', 'MSC_COLL_A2MDBLINK_INVALID');
2526: ERRBUF:= FND_MESSAGE.GET;
2527: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2528: RETURN;
2529: END IF;
2530:
2532:
2533: EXCEPTION
2534: WHEN NO_DATA_FOUND THEN
2535: RETCODE := MSC_UTIL.G_ERROR;
2536: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2537: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2538: ERRBUF:= FND_MESSAGE.GET;
2539: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2540: RETURN;
2533: EXCEPTION
2534: WHEN NO_DATA_FOUND THEN
2535: RETCODE := MSC_UTIL.G_ERROR;
2536: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2537: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2538: ERRBUF:= FND_MESSAGE.GET;
2539: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2540: RETURN;
2541: WHEN OTHERS THEN
2534: WHEN NO_DATA_FOUND THEN
2535: RETCODE := MSC_UTIL.G_ERROR;
2536: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
2537: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
2538: ERRBUF:= FND_MESSAGE.GET;
2539: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2540: RETURN;
2541: WHEN OTHERS THEN
2542: RETCODE := MSC_UTIL.G_ERROR;
2966: ---- 3. Return.
2967:
2968: IF lvs_request_id(lc_i)= 0 THEN
2969:
2970: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_LAUNCH_WORKER_FAIL');
2971: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
2972:
2973: ROLLBACK;
2974:
2967:
2968: IF lvs_request_id(lc_i)= 0 THEN
2969:
2970: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_LAUNCH_WORKER_FAIL');
2971: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
2972:
2973: ROLLBACK;
2974:
2975: IF SET_ST_STATUS( lv_errbuf,
2994: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_task_que)<>0 THEN
2995: RAISE EX_PIPE_SND;
2996: END IF;
2997:
2998: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
2999: FND_MESSAGE.SET_TOKEN('LCI',lc_j);
3000: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3001:
3002: END LOOP; -- lc_j
2995: RAISE EX_PIPE_SND;
2996: END IF;
2997:
2998: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
2999: FND_MESSAGE.SET_TOKEN('LCI',lc_j);
3000: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3001:
3002: END LOOP; -- lc_j
3003:
2996: END IF;
2997:
2998: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
2999: FND_MESSAGE.SET_TOKEN('LCI',lc_j);
3000: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3001:
3002: END LOOP; -- lc_j
3003:
3004: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_LAUNCH_WORKER_FAIL');
3000: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3001:
3002: END LOOP; -- lc_j
3003:
3004: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_LAUNCH_WORKER_FAIL');
3005: ERRBUF:= FND_MESSAGE.GET;
3006: RETCODE := MSC_UTIL.G_ERROR;
3007: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3008: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3001:
3002: END LOOP; -- lc_j
3003:
3004: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_LAUNCH_WORKER_FAIL');
3005: ERRBUF:= FND_MESSAGE.GET;
3006: RETCODE := MSC_UTIL.G_ERROR;
3007: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3008: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3009:
3012: RETURN;
3013:
3014: ELSE
3015:
3016: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_WORKER_REQUEST_ID');
3017: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lvs_request_id(lc_i));
3018: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3019:
3020: END IF;
3013:
3014: ELSE
3015:
3016: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_WORKER_REQUEST_ID');
3017: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lvs_request_id(lc_i));
3018: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3019:
3020: END IF;
3021:
3014: ELSE
3015:
3016: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_WORKER_REQUEST_ID');
3017: FND_MESSAGE.SET_TOKEN('REQUEST_ID', lvs_request_id(lc_i));
3018: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3019:
3020: END IF;
3021:
3022: END LOOP; -- lc_i
3057: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'ALL:Sending task number: '||lc_i||' to the queue');
3058:
3059: -- Only send the message if it has been packed.
3060: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_task_que)<>0 THEN
3061: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERROR_SEND_TSK');
3062: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3063: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3064:
3065: RAISE EX_PIPE_SND;
3058:
3059: -- Only send the message if it has been packed.
3060: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_task_que)<>0 THEN
3061: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERROR_SEND_TSK');
3062: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3063: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3064:
3065: RAISE EX_PIPE_SND;
3066: END IF;
3059: -- Only send the message if it has been packed.
3060: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_task_que)<>0 THEN
3061: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERROR_SEND_TSK');
3062: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3063: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3064:
3065: RAISE EX_PIPE_SND;
3066: END IF;
3067:
3066: END IF;
3067:
3068: lv_task_not_completed := lv_task_not_completed + 1;
3069:
3070: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TOTAL_TSK_ADDED');
3071: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3072: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3073:
3074: ELSIF Q_PARTIAL_TASK (pINSTANCE_ID, lc_i,
3067:
3068: lv_task_not_completed := lv_task_not_completed + 1;
3069:
3070: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TOTAL_TSK_ADDED');
3071: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3072: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3073:
3074: ELSIF Q_PARTIAL_TASK (pINSTANCE_ID, lc_i,
3075: prec, pRTYPE) THEN
3068: lv_task_not_completed := lv_task_not_completed + 1;
3069:
3070: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TOTAL_TSK_ADDED');
3071: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3072: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3073:
3074: ELSIF Q_PARTIAL_TASK (pINSTANCE_ID, lc_i,
3075: prec, pRTYPE) THEN
3076: -- agmcont:
3097: --lv_task_not_completed := lv_total_task_number;
3098:
3099: lv_start_time:= SYSDATE;
3100:
3101: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TOTAL_TSK_ADDED');
3102: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3103: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3104:
3105: LOOP
3098:
3099: lv_start_time:= SYSDATE;
3100:
3101: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TOTAL_TSK_ADDED');
3102: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3103: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3104:
3105: LOOP
3106:
3099: lv_start_time:= SYSDATE;
3100:
3101: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TOTAL_TSK_ADDED');
3102: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3103: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3104:
3105: LOOP
3106:
3107: var_debug := 0;
3152:
3153: END IF;
3154:
3155: ELSIF lv_pipe_ret_code<> 1 THEN
3156: FND_MESSAGE.SET_NAME('MSC','MSC_CL_RCV_PIPE_ERR');
3157: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3158:
3159: RAISE EX_PIPE_RCV; -- If the error is not time-out error
3160: END IF;
3153: END IF;
3154:
3155: ELSIF lv_pipe_ret_code<> 1 THEN
3156: FND_MESSAGE.SET_NAME('MSC','MSC_CL_RCV_PIPE_ERR');
3157: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3158:
3159: RAISE EX_PIPE_RCV; -- If the error is not time-out error
3160: END IF;
3161:
3168:
3169: END LOOP;
3170:
3171: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, '----------------------------------------------------');
3172: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TSK_NOT_COMP');
3173: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3174: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3175:
3176: IF (var_debug = 0) THEN
3169: END LOOP;
3170:
3171: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, '----------------------------------------------------');
3172: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TSK_NOT_COMP');
3173: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3174: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3175:
3176: IF (var_debug = 0) THEN
3177: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_1');
3170:
3171: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, '----------------------------------------------------');
3172: FND_MESSAGE.SET_NAME('MSC','MSC_CL_TSK_NOT_COMP');
3173: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3174: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3175:
3176: IF (var_debug = 0) THEN
3177: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_1');
3178: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3173: FND_MESSAGE.SET_TOKEN('lv_task_not_completed',lv_task_not_completed);
3174: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3175:
3176: IF (var_debug = 0) THEN
3177: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_1');
3178: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3179: ELSIF (var_debug = 1) THEN
3180: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_2');
3181: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3174: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, FND_MESSAGE.GET);
3175:
3176: IF (var_debug = 0) THEN
3177: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_1');
3178: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3179: ELSIF (var_debug = 1) THEN
3180: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_2');
3181: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3182: ELSIF (var_debug = 2) THEN
3176: IF (var_debug = 0) THEN
3177: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_1');
3178: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3179: ELSIF (var_debug = 1) THEN
3180: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_2');
3181: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3182: ELSIF (var_debug = 2) THEN
3183: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_3');
3184: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3177: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_1');
3178: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3179: ELSIF (var_debug = 1) THEN
3180: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_2');
3181: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3182: ELSIF (var_debug = 2) THEN
3183: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_3');
3184: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3185: ELSIF (var_debug = 3) THEN
3179: ELSIF (var_debug = 1) THEN
3180: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_2');
3181: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3182: ELSIF (var_debug = 2) THEN
3183: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_3');
3184: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3185: ELSIF (var_debug = 3) THEN
3186: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_3');
3187: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3180: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_2');
3181: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3182: ELSIF (var_debug = 2) THEN
3183: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_3');
3184: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3185: ELSIF (var_debug = 3) THEN
3186: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_3');
3187: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3188: ELSIF (var_debug = 4) THEN
3182: ELSIF (var_debug = 2) THEN
3183: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_3');
3184: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3185: ELSIF (var_debug = 3) THEN
3186: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_3');
3187: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3188: ELSIF (var_debug = 4) THEN
3189: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_4');
3190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3183: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDP_3');
3184: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3185: ELSIF (var_debug = 3) THEN
3186: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_3');
3187: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3188: ELSIF (var_debug = 4) THEN
3189: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_4');
3190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3191: END IF;
3185: ELSIF (var_debug = 3) THEN
3186: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_3');
3187: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3188: ELSIF (var_debug = 4) THEN
3189: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_4');
3190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3191: END IF;
3192:
3193: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, '----------------------------------------------------');
3186: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_3');
3187: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3188: ELSIF (var_debug = 4) THEN
3189: FND_MESSAGE.SET_NAME('MSC','MSC_CL_ERR_PDC_4');
3190: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3191: END IF;
3192:
3193: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, '----------------------------------------------------');
3194:
3195: IF lv_task_not_completed > 0 THEN
3196:
3197: DBMS_PIPE.PURGE( v_pipe_task_que);
3198:
3199: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
3200: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3201: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3202:
3203: lv_task_num:= -1;
3196:
3197: DBMS_PIPE.PURGE( v_pipe_task_que);
3198:
3199: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL');
3200: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3201: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3202:
3203: lv_task_num:= -1;
3204:
3203: lv_task_num:= -1;
3204:
3205: ROLLBACK;
3206:
3207: ERRBUF:= FND_MESSAGE.GET;
3208: RETCODE := MSC_UTIL.G_ERROR;
3209:
3210: ELSE
3211:
3210: ELSE
3211:
3212: lv_task_num:= 0;
3213:
3214: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_SUCCEED');
3215: ERRBUF:= FND_MESSAGE.GET;
3216: RETCODE := MSC_UTIL.G_SUCCESS;
3217: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, SQLERRM);
3218:
3211:
3212: lv_task_num:= 0;
3213:
3214: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_SUCCEED');
3215: ERRBUF:= FND_MESSAGE.GET;
3216: RETCODE := MSC_UTIL.G_SUCCESS;
3217: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, SQLERRM);
3218:
3219: lv_so_lrtype := pSalesOrder_RTYPE;
3246: -- ======================== Inform workers to end the process ================
3247:
3248: FOR lc_i IN 1..pTotalWorkerNum LOOP
3249:
3250: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
3251: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3252: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3253:
3254: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3247:
3248: FOR lc_i IN 1..pTotalWorkerNum LOOP
3249:
3250: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
3251: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3252: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3253:
3254: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3255:
3248: FOR lc_i IN 1..pTotalWorkerNum LOOP
3249:
3250: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
3251: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3252: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3253:
3254: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3255:
3256: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Sending task number: '||lv_task_num|| ' to the worker '||lc_i);
3289: IF lv_pipe_ret_code=0 THEN
3290:
3291: lv_worker_committed:= lv_worker_committed+1;
3292:
3293: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_COMMIT');
3294: FND_MESSAGE.SET_TOKEN('LV_WORKER_COMMITTED',lv_worker_committed);
3295: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3296:
3297: EXIT WHEN lv_worker_committed= pTotalWorkerNum;
3290:
3291: lv_worker_committed:= lv_worker_committed+1;
3292:
3293: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_COMMIT');
3294: FND_MESSAGE.SET_TOKEN('LV_WORKER_COMMITTED',lv_worker_committed);
3295: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3296:
3297: EXIT WHEN lv_worker_committed= pTotalWorkerNum;
3298:
3291: lv_worker_committed:= lv_worker_committed+1;
3292:
3293: FND_MESSAGE.SET_NAME('MSC','MSC_CL_WORKER_COMMIT');
3294: FND_MESSAGE.SET_TOKEN('LV_WORKER_COMMITTED',lv_worker_committed);
3295: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3296:
3297: EXIT WHEN lv_worker_committed= pTotalWorkerNum;
3298:
3299: ELSIF lv_pipe_ret_code<> 1 THEN
3311: END LOOP;
3312:
3313: IF lv_worker_committed<> pTotalWorkerNum THEN
3314:
3315: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL_TO_COMMIT');
3316: ERRBUF:= FND_MESSAGE.GET;
3317: RETCODE := MSC_UTIL.G_ERROR;
3318: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3319: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3312:
3313: IF lv_worker_committed<> pTotalWorkerNum THEN
3314:
3315: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_FAIL_TO_COMMIT');
3316: ERRBUF:= FND_MESSAGE.GET;
3317: RETCODE := MSC_UTIL.G_ERROR;
3318: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3319: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3320:
3317: RETCODE := MSC_UTIL.G_ERROR;
3318: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3319: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3320:
3321: FND_MESSAGE.SET_NAME('MSC','MSC_CL_CHECK_PDP_LOG');
3322: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3323:
3324: IF lv_check_point= 2 THEN
3325: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
3318: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3319: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3320:
3321: FND_MESSAGE.SET_NAME('MSC','MSC_CL_CHECK_PDP_LOG');
3322: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
3323:
3324: IF lv_check_point= 2 THEN
3325: IF SET_ST_STATUS( lv_errbuf, lv_retcode,
3326: pINSTANCE_ID, MSC_UTIL.G_ST_EMPTY) THEN
3351: -- ======================== Inform workers to start the ODS Worker ================
3352:
3353: FOR lc_i IN 1..pTotalWorkerNum LOOP
3354:
3355: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
3356: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3357: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3358:
3359: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3352:
3353: FOR lc_i IN 1..pTotalWorkerNum LOOP
3354:
3355: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
3356: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3357: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3358:
3359: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3360:
3353: FOR lc_i IN 1..pTotalWorkerNum LOOP
3354:
3355: FND_MESSAGE.SET_NAME('MSC','MSC_CL_SEND_WOR_END');
3356: FND_MESSAGE.SET_TOKEN('LCI',lc_i);
3357: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3358:
3359: DBMS_PIPE.PACK_MESSAGE( lv_task_num);
3360:
3361: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_DEBUG_1, 'Sending task number: '||lv_task_num|| ' to the worker '||lc_i);
3426: COMMIT;
3427:
3428: END IF;
3429:
3430: FND_MESSAGE.SET_NAME('MSC', 'MSC_TIMEOUT');
3431: ERRBUF:= FND_MESSAGE.GET;
3432: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3433: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3434:
3427:
3428: END IF;
3429:
3430: FND_MESSAGE.SET_NAME('MSC', 'MSC_TIMEOUT');
3431: ERRBUF:= FND_MESSAGE.GET;
3432: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
3433: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3434:
3435: RETCODE := MSC_UTIL.G_ERROR;
3799: DBMS_PIPE.PACK_MESSAGE( UNRESOLVABLE_ERROR);
3800:
3801: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_wm)<>0 THEN
3802:
3803: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
3804: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_wm);
3805: ERRBUF:= FND_MESSAGE.GET;
3806:
3807: RETCODE := MSC_UTIL.G_ERROR;
3800:
3801: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_wm)<>0 THEN
3802:
3803: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
3804: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_wm);
3805: ERRBUF:= FND_MESSAGE.GET;
3806:
3807: RETCODE := MSC_UTIL.G_ERROR;
3808:
3801: IF DBMS_PIPE.SEND_MESSAGE( v_pipe_wm)<>0 THEN
3802:
3803: FND_MESSAGE.SET_NAME('MSC', 'MSC_MSG_SEND_FAIL');
3804: FND_MESSAGE.SET_TOKEN('PIPE', v_pipe_wm);
3805: ERRBUF:= FND_MESSAGE.GET;
3806:
3807: RETCODE := MSC_UTIL.G_ERROR;
3808:
3809: END IF;
4351: RETURN TRUE;
4352:
4353: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_PULLING THEN
4354:
4355: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_PULLING');
4356: ERRBUF:= FND_MESSAGE.GET;
4357:
4358: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_READY THEN
4359:
4352:
4353: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_PULLING THEN
4354:
4355: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_PULLING');
4356: ERRBUF:= FND_MESSAGE.GET;
4357:
4358: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_READY THEN
4359:
4360: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_DATA_EXIST');
4356: ERRBUF:= FND_MESSAGE.GET;
4357:
4358: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_READY THEN
4359:
4360: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_DATA_EXIST');
4361: ERRBUF:= FND_MESSAGE.GET;
4362:
4363: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_COLLECTING THEN
4364:
4357:
4358: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_READY THEN
4359:
4360: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_DATA_EXIST');
4361: ERRBUF:= FND_MESSAGE.GET;
4362:
4363: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_COLLECTING THEN
4364:
4365: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_LOADING');
4361: ERRBUF:= FND_MESSAGE.GET;
4362:
4363: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_COLLECTING THEN
4364:
4365: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_LOADING');
4366: ERRBUF:= FND_MESSAGE.GET;
4367:
4368: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_PURGING THEN
4369:
4362:
4363: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_COLLECTING THEN
4364:
4365: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_LOADING');
4366: ERRBUF:= FND_MESSAGE.GET;
4367:
4368: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_PURGING THEN
4369:
4370: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_PURGING');
4366: ERRBUF:= FND_MESSAGE.GET;
4367:
4368: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_PURGING THEN
4369:
4370: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_PURGING');
4371: ERRBUF:= FND_MESSAGE.GET;
4372:
4373: END IF;
4374:
4367:
4368: ELSIF lv_staging_table_status= MSC_UTIL.G_ST_PURGING THEN
4369:
4370: FND_MESSAGE.SET_NAME('MSC', 'MSC_ST_ERROR_PURGING');
4371: ERRBUF:= FND_MESSAGE.GET;
4372:
4373: END IF;
4374:
4375: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
4376: RETCODE := MSC_UTIL.G_ERROR;
4377: RETURN FALSE;
4378:
4379: ELSE
4380: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INSTANCE_INACTIVE');
4381: ERRBUF:= FND_MESSAGE.GET;
4382: RETCODE := MSC_UTIL.G_ERROR;
4383: RETURN FALSE;
4384: END IF;
4377: RETURN FALSE;
4378:
4379: ELSE
4380: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INSTANCE_INACTIVE');
4381: ERRBUF:= FND_MESSAGE.GET;
4382: RETCODE := MSC_UTIL.G_ERROR;
4383: RETURN FALSE;
4384: END IF;
4385:
5275: BEGIN--LOAD_DATA
5276:
5277: IF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_SUPPLY THEN
5278:
5279: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5280: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY');
5281: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5282: MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY;
5283:
5276:
5277: IF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_SUPPLY THEN
5278:
5279: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5280: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY');
5281: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5282: MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY;
5283:
5284: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_PO_SUPPLY THEN
5277: IF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_SUPPLY THEN
5278:
5279: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5280: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY');
5281: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5282: MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY;
5283:
5284: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_PO_SUPPLY THEN
5285:
5282: MSC_CL_SUPPLY_PULL.LOAD_PO_SUPPLY;
5283:
5284: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_PO_SUPPLY THEN
5285:
5286: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5287: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY');
5288: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5289: MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY;
5290:
5283:
5284: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_PO_SUPPLY THEN
5285:
5286: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5287: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY');
5288: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5289: MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY;
5290:
5291: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_REQ_SUPPLY THEN
5284: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_PO_SUPPLY THEN
5285:
5286: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5287: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY');
5288: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5289: MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY;
5290:
5291: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_REQ_SUPPLY THEN
5292:
5289: MSC_CL_SUPPLY_PULL.LOAD_PO_PO_SUPPLY;
5290:
5291: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_REQ_SUPPLY THEN
5292:
5293: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5294: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY');
5295: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5296: MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY;
5297:
5290:
5291: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_REQ_SUPPLY THEN
5292:
5293: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5294: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY');
5295: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5296: MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY;
5297:
5298: ELSIF prec.wip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_WIP_SUPPLY THEN
5291: ELSIF prec.po_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PO_REQ_SUPPLY THEN
5292:
5293: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5294: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY');
5295: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5296: MSC_CL_SUPPLY_PULL.LOAD_PO_REQ_SUPPLY;
5297:
5298: ELSIF prec.wip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_WIP_SUPPLY THEN
5299:
5298: ELSIF prec.wip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_WIP_SUPPLY THEN
5299:
5300: -- call the appropriate routine for the type being used
5301:
5302: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5303: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY');
5304: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5305: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5306: MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY;
5299:
5300: -- call the appropriate routine for the type being used
5301:
5302: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5303: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY');
5304: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5305: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5306: MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY;
5307: END IF;
5300: -- call the appropriate routine for the type being used
5301:
5302: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5303: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY');
5304: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5305: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5306: MSC_CL_WIP_PULL.LOAD_WIP_SUPPLY;
5307: END IF;
5308:
5343: ELSIF prec.oh_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_OH_SUPPLY THEN
5344:
5345: -- call the appropriate routine for onhand inventory
5346:
5347: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5348: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_OH_SUPPLY');
5349: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5350:
5351: /* OPM Team - OPM Inventory Convergence Project
5344:
5345: -- call the appropriate routine for onhand inventory
5346:
5347: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5348: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_OH_SUPPLY');
5349: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5350:
5351: /* OPM Team - OPM Inventory Convergence Project
5352: Onhand calculation has to be performed for both
5345: -- call the appropriate routine for onhand inventory
5346:
5347: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5348: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_OH_SUPPLY');
5349: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5350:
5351: /* OPM Team - OPM Inventory Convergence Project
5352: Onhand calculation has to be performed for both
5353: discrete/process orgs.
5398: ELSIF prec.mps_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_MPS_SUPPLY THEN
5399:
5400: -- only call if doing discrete mfg
5401:
5402: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5403: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY');
5404: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5405: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5406: MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY;
5399:
5400: -- only call if doing discrete mfg
5401:
5402: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5403: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY');
5404: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5405: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5406: MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY;
5407: END IF;
5400: -- only call if doing discrete mfg
5401:
5402: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5403: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY');
5404: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5405: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5406: MSC_CL_SUPPLY_PULL.LOAD_MPS_SUPPLY;
5407: END IF;
5408:
5409: ELSIF prec.bor_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BOR THEN
5410:
5411: -- only call if doing discrete mfg
5412:
5413: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5414: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOR');
5415: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5416: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5417: MSC_CL_BOM_PULL.LOAD_BOR;
5410:
5411: -- only call if doing discrete mfg
5412:
5413: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5414: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOR');
5415: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5416: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5417: MSC_CL_BOM_PULL.LOAD_BOR;
5418: END IF;
5411: -- only call if doing discrete mfg
5412:
5413: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5414: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOR');
5415: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5416: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5417: MSC_CL_BOM_PULL.LOAD_BOR;
5418: END IF;
5419:
5420: ELSIF (prec.calendar_flag = MSC_UTIL.SYS_YES OR prec.resource_nra_flag in (1,3)) AND pTASKNUM= TASK_CALENDAR_DATE THEN
5421:
5422: -- call the appropriate routine for calendar dates
5423:
5424: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5425: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_CALENDAR_DATE');
5426: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5427:
5428: /* OPM Team - OPM Inventory Convergence Project
5421:
5422: -- call the appropriate routine for calendar dates
5423:
5424: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5425: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_CALENDAR_DATE');
5426: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5427:
5428: /* OPM Team - OPM Inventory Convergence Project
5429: Calendar data should be populated for both discrete and process organizations.
5422: -- call the appropriate routine for calendar dates
5423:
5424: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5425: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_CALENDAR_DATE');
5426: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5427:
5428: /* OPM Team - OPM Inventory Convergence Project
5429: Calendar data should be populated for both discrete and process organizations.
5430: So commenting the chk to discrete alone.
5434: */
5435: MSC_CL_SETUP_PULL.LOAD_CALENDAR_DATE;
5436:
5437: -- BIS_PERIODS will be collected as part of calendar entity
5438: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5439: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_BIS');
5440: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5441: MSC_CL_OTHER_PULL.LOAD_BIS107;
5442:
5435: MSC_CL_SETUP_PULL.LOAD_CALENDAR_DATE;
5436:
5437: -- BIS_PERIODS will be collected as part of calendar entity
5438: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5439: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_BIS');
5440: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5441: MSC_CL_OTHER_PULL.LOAD_BIS107;
5442:
5443: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5436:
5437: -- BIS_PERIODS will be collected as part of calendar entity
5438: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5439: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_BIS');
5440: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5441: MSC_CL_OTHER_PULL.LOAD_BIS107;
5442:
5443: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5444:
5484:
5485: -- only call if doing discrete mfg, for process this is done in
5486: -- MDS demands
5487:
5488: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5489: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SCHEDULE');
5490: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5491: IF ( v_discrete_flag = MSC_UTIL.SYS_YES ) THEN
5492: IF prec.mds_flag = MSC_UTIL.SYS_YES AND prec.mps_flag = MSC_UTIL.SYS_NO THEN
5485: -- only call if doing discrete mfg, for process this is done in
5486: -- MDS demands
5487:
5488: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5489: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SCHEDULE');
5490: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5491: IF ( v_discrete_flag = MSC_UTIL.SYS_YES ) THEN
5492: IF prec.mds_flag = MSC_UTIL.SYS_YES AND prec.mps_flag = MSC_UTIL.SYS_NO THEN
5493: v_schedule_flag := MSC_UTIL.G_MDS;
5486: -- MDS demands
5487:
5488: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5489: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SCHEDULE');
5490: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5491: IF ( v_discrete_flag = MSC_UTIL.SYS_YES ) THEN
5492: IF prec.mds_flag = MSC_UTIL.SYS_YES AND prec.mps_flag = MSC_UTIL.SYS_NO THEN
5493: v_schedule_flag := MSC_UTIL.G_MDS;
5494: ELSIF prec.mds_flag = MSC_UTIL.SYS_NO AND prec.mps_flag = MSC_UTIL.SYS_YES THEN
5501: END IF;
5502:
5503: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM1 THEN
5504:
5505: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5506: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(1)');
5507: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5508: MSC_CL_ITEM_PULL.LOAD_ITEM(1);
5509: /* ds change for non standard jobs and eam wo, we may not have
5502:
5503: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM1 THEN
5504:
5505: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5506: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(1)');
5507: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5508: MSC_CL_ITEM_PULL.LOAD_ITEM(1);
5509: /* ds change for non standard jobs and eam wo, we may not have
5510: primary item specified in wo. We are going to create
5503: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM1 THEN
5504:
5505: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5506: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(1)');
5507: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5508: MSC_CL_ITEM_PULL.LOAD_ITEM(1);
5509: /* ds change for non standard jobs and eam wo, we may not have
5510: primary item specified in wo. We are going to create
5511: two dummy item, on eofr non standard job and other for
5513: MSC_CL_ITEM_PULL.INSERT_DUMMY_ITEMS;
5514:
5515: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM2 THEN
5516:
5517: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5518: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(2)');
5519: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5520: MSC_CL_ITEM_PULL.LOAD_ITEM(2);
5521:
5514:
5515: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM2 THEN
5516:
5517: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5518: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(2)');
5519: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5520: MSC_CL_ITEM_PULL.LOAD_ITEM(2);
5521:
5522: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM3 THEN
5515: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM2 THEN
5516:
5517: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5518: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(2)');
5519: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5520: MSC_CL_ITEM_PULL.LOAD_ITEM(2);
5521:
5522: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM3 THEN
5523:
5520: MSC_CL_ITEM_PULL.LOAD_ITEM(2);
5521:
5522: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM3 THEN
5523:
5524: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5525: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(0)');
5526: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5527: MSC_CL_ITEM_PULL.LOAD_ITEM(0);
5528:
5521:
5522: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM3 THEN
5523:
5524: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5525: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(0)');
5526: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5527: MSC_CL_ITEM_PULL.LOAD_ITEM(0);
5528:
5529: /*added for bug:4765403*/
5522: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM3 THEN
5523:
5524: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5525: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM(0)');
5526: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5527: MSC_CL_ITEM_PULL.LOAD_ITEM(0);
5528:
5529: /*added for bug:4765403*/
5530: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ABC_CLASSES THEN
5528:
5529: /*added for bug:4765403*/
5530: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ABC_CLASSES THEN
5531:
5532: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5533: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES');
5534: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5535: IF (v_apps_ver >= MSC_UTIL.G_APPS120) THEN
5536: MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES;
5529: /*added for bug:4765403*/
5530: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ABC_CLASSES THEN
5531:
5532: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5533: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES');
5534: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5535: IF (v_apps_ver >= MSC_UTIL.G_APPS120) THEN
5536: MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES;
5537: END IF;
5530: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ABC_CLASSES THEN
5531:
5532: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5533: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES');
5534: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5535: IF (v_apps_ver >= MSC_UTIL.G_APPS120) THEN
5536: MSC_CL_ITEM_PULL.LOAD_ABC_CLASSES;
5537: END IF;
5538:
5538:
5539: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES OR prec.wip_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_RESOURCE THEN
5540:
5541: -- call the appropriate routine for resources
5542: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5543: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE');
5544: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5545: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5546: MSC_CL_BOM_PULL.LOAD_RESOURCE;
5539: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES OR prec.wip_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_RESOURCE THEN
5540:
5541: -- call the appropriate routine for resources
5542: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5543: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE');
5544: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5545: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5546: MSC_CL_BOM_PULL.LOAD_RESOURCE;
5547: END IF;
5540:
5541: -- call the appropriate routine for resources
5542: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5543: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE');
5544: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5545: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5546: MSC_CL_BOM_PULL.LOAD_RESOURCE;
5547: END IF;
5548: IF v_process_flag = MSC_UTIL.SYS_YES THEN
5579: /*ds change start */
5580: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES OR prec.wip_flag = MSC_UTIL.SYS_YES) AND
5581: pTASKNUM= TASK_RESOURCE_INSTANCE THEN
5582:
5583: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5584: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE');
5585: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5586: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5587: MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE;
5580: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES OR prec.wip_flag = MSC_UTIL.SYS_YES) AND
5581: pTASKNUM= TASK_RESOURCE_INSTANCE THEN
5582:
5583: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5584: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE');
5585: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5586: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5587: MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE;
5588: END IF;
5581: pTASKNUM= TASK_RESOURCE_INSTANCE THEN
5582:
5583: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5584: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE');
5585: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5586: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5587: MSC_CL_BOM_PULL.LOAD_RESOURCE_INSTANCE;
5588: END IF;
5589:
5591: -- populate_rsrc_cal
5592:
5593: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES ) AND
5594: pTASKNUM= TASK_RESOURCE_SETUP THEN
5595: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5596: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP');
5597: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5598: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5599: MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP;
5592:
5593: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES ) AND
5594: pTASKNUM= TASK_RESOURCE_SETUP THEN
5595: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5596: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP');
5597: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5598: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5599: MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP;
5600: END IF;
5593: ELSIF (prec.bom_flag = MSC_UTIL.SYS_YES ) AND
5594: pTASKNUM= TASK_RESOURCE_SETUP THEN
5595: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5596: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP');
5597: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5598: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5599: MSC_CL_BOM_PULL.LOAD_RESOURCE_SETUP;
5600: END IF;
5601:
5608:
5609: -- only call if not doing process mfg. for process this is done
5610: -- with calendar dates
5611:
5612: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5613: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER');
5614: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5615:
5616: --- PREPLACE CHANGE START ---
5609: -- only call if not doing process mfg. for process this is done
5610: -- with calendar dates
5611:
5612: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5613: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER');
5614: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5615:
5616: --- PREPLACE CHANGE START ---
5617: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'v_process_flag is ' || v_process_flag);
5610: -- with calendar dates
5611:
5612: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5613: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_TRADING_PARTNER');
5614: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5615:
5616: --- PREPLACE CHANGE START ---
5617: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'v_process_flag is ' || v_process_flag);
5618:
5666: END IF;
5667: END IF;
5668:
5669: ELSIF prec.forecast_flag = MSC_UTIL.SYS_YES AND pTASKNUM = TASK_LOAD_FORECAST THEN
5670: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5671: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_FORECAST');
5672: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5673:
5674: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5667: END IF;
5668:
5669: ELSIF prec.forecast_flag = MSC_UTIL.SYS_YES AND pTASKNUM = TASK_LOAD_FORECAST THEN
5670: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5671: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_FORECAST');
5672: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5673:
5674: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5675: v_apps_ver>= MSC_UTIL.G_APPS115) THEN /*to be changed after coding for 107/11i*/
5668:
5669: ELSIF prec.forecast_flag = MSC_UTIL.SYS_YES AND pTASKNUM = TASK_LOAD_FORECAST THEN
5670: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5671: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_FORECAST');
5672: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5673:
5674: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5675: v_apps_ver>= MSC_UTIL.G_APPS115) THEN /*to be changed after coding for 107/11i*/
5676:
5677: MSC_CL_DEMAND_PULL.LOAD_FORECASTS;
5678:
5679: END IF;
5680:
5681: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5682: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_ITEM_FORECASTS');
5683: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5684:
5685: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5678:
5679: END IF;
5680:
5681: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5682: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_ITEM_FORECASTS');
5683: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5684:
5685: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5686: v_apps_ver>= MSC_UTIL.G_APPS115) THEN /*to be changed after coding for 107/11i*/
5679: END IF;
5680:
5681: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5682: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_ITEM_FORECASTS');
5683: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5684:
5685: IF (v_apps_ver= MSC_UTIL.G_APPS110 OR
5686: v_apps_ver>= MSC_UTIL.G_APPS115) THEN /*to be changed after coding for 107/11i*/
5687:
5737: ELSIF prec.mds_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_MDS_DEMAND THEN
5738:
5739: -- call the appropriate routine for MDS demand
5740: /* how we can avoid this for ds */
5741: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5742: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND');
5743: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5744:
5745: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Starting MDS LOAD');
5738:
5739: -- call the appropriate routine for MDS demand
5740: /* how we can avoid this for ds */
5741: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5742: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND');
5743: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5744:
5745: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Starting MDS LOAD');
5746: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5739: -- call the appropriate routine for MDS demand
5740: /* how we can avoid this for ds */
5741: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5742: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND');
5743: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5744:
5745: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Starting MDS LOAD');
5746: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5747: MSC_CL_DEMAND_PULL.LOAD_MDS_DEMAND;
5775:
5776: -- only call if doing discrete mfg. process does this as part of
5777: -- wip supply
5778:
5779: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5780: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_DEMAND');
5781: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5782:
5783: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5776: -- only call if doing discrete mfg. process does this as part of
5777: -- wip supply
5778:
5779: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5780: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_DEMAND');
5781: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5782:
5783: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5784: MSC_CL_WIP_PULL.LOAD_WIP_DEMAND;
5777: -- wip supply
5778:
5779: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5780: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_WIP_DEMAND');
5781: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5782:
5783: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5784: MSC_CL_WIP_PULL.LOAD_WIP_DEMAND;
5785: END IF;
5788:
5789: IF ( v_apps_ver>= MSC_UTIL.G_APPS115) and (v_discrete_flag = MSC_UTIL.SYS_YES) THEN -- 11i source instance only
5790: -- only call if doing discrete mfg
5791:
5792: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5793: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1)');
5794: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5795: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1);
5796:
5789: IF ( v_apps_ver>= MSC_UTIL.G_APPS115) and (v_discrete_flag = MSC_UTIL.SYS_YES) THEN -- 11i source instance only
5790: -- only call if doing discrete mfg
5791:
5792: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5793: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1)');
5794: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5795: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1);
5796:
5797: END IF;
5790: -- only call if doing discrete mfg
5791:
5792: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5793: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1)');
5794: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5795: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(1);
5796:
5797: END IF;
5798:
5800:
5801: IF ( v_apps_ver>= MSC_UTIL.G_APPS115) AND (v_discrete_flag = MSC_UTIL.SYS_YES) THEN -- 11i source instance only
5802: -- only call if doing discrete mfg
5803:
5804: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5805: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2)');
5806: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5807: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2);
5808:
5801: IF ( v_apps_ver>= MSC_UTIL.G_APPS115) AND (v_discrete_flag = MSC_UTIL.SYS_YES) THEN -- 11i source instance only
5802: -- only call if doing discrete mfg
5803:
5804: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5805: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2)');
5806: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5807: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2);
5808:
5809: END IF;
5802: -- only call if doing discrete mfg
5803:
5804: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5805: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2)');
5806: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5807: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(2);
5808:
5809: END IF;
5810:
5812:
5813: IF (v_discrete_flag = MSC_UTIL.SYS_YES) THEN
5814: -- only call if doing discrete mfg
5815:
5816: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5817: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(3)');
5818: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5819: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(3);
5820:
5813: IF (v_discrete_flag = MSC_UTIL.SYS_YES) THEN
5814: -- only call if doing discrete mfg
5815:
5816: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5817: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(3)');
5818: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5819: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(3);
5820:
5821: END IF;
5814: -- only call if doing discrete mfg
5815:
5816: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5817: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(3)');
5818: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5819: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(3);
5820:
5821: END IF;
5822: /*
5823: ELSIF pTASKNUM= TASK_SALES_ORDER THEN
5824:
5825: -- only call if doing discrete mfg
5826:
5827: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5828: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(4)');
5829: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5830:
5831: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5824:
5825: -- only call if doing discrete mfg
5826:
5827: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5828: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(4)');
5829: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5830:
5831: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5832: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(4);
5825: -- only call if doing discrete mfg
5826:
5827: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5828: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(4)');
5829: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5830:
5831: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5832: MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(4);
5833: END IF;
5847: and (lv_ps_ver =1) THEN
5848: -- 11i source instance only
5849: -- only call if doing discrete mfg, Is this a valid assumption --dsoosai 12/04/2003
5850:
5851: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5852: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(5:AHL)');
5853: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5854: MSC_CL_DEMAND_PULL.LOAD_AHL;
5855:
5848: -- 11i source instance only
5849: -- only call if doing discrete mfg, Is this a valid assumption --dsoosai 12/04/2003
5850:
5851: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5852: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(5:AHL)');
5853: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5854: MSC_CL_DEMAND_PULL.LOAD_AHL;
5855:
5856: END IF;
5849: -- only call if doing discrete mfg, Is this a valid assumption --dsoosai 12/04/2003
5850:
5851: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5852: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_SALES_ORDER(5:AHL)');
5853: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5854: MSC_CL_DEMAND_PULL.LOAD_AHL;
5855:
5856: END IF;
5857:
5858: ELSIF prec.sub_inventory_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SUB_INVENTORY THEN
5859:
5860: -- call the appropriate routine for sub inventory
5861:
5862: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5863: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SUB_INVENTORY');
5864: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5865:
5866: /* OPM Team - OPM Inventory Convergence Project
5859:
5860: -- call the appropriate routine for sub inventory
5861:
5862: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5863: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SUB_INVENTORY');
5864: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5865:
5866: /* OPM Team - OPM Inventory Convergence Project
5867: Commented this has to be called for both discrete/process
5860: -- call the appropriate routine for sub inventory
5861:
5862: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5863: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SUB_INVENTORY');
5864: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5865:
5866: /* OPM Team - OPM Inventory Convergence Project
5867: Commented this has to be called for both discrete/process
5868: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN */
5911: ELSIF prec.reserves_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_HARD_RESERVATION THEN
5912:
5913: -- only call if doing discrete mfg
5914:
5915: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5916: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_HARD_RESERVATION');
5917: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5918:
5919:
5912:
5913: -- only call if doing discrete mfg
5914:
5915: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5916: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_HARD_RESERVATION');
5917: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5918:
5919:
5920: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5913: -- only call if doing discrete mfg
5914:
5915: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5916: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_HARD_RESERVATION');
5917: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5918:
5919:
5920: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5921: MSC_CL_DEMAND_PULL.LOAD_HARD_RESERVATION;
5922: END IF;
5923:
5924: ELSIF prec.sourcing_rule_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SOURCING THEN
5925:
5926: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5927: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SOURCING');
5928: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5929:
5930: MSC_CL_OTHER_PULL.LOAD_SOURCING;
5923:
5924: ELSIF prec.sourcing_rule_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SOURCING THEN
5925:
5926: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5927: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SOURCING');
5928: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5929:
5930: MSC_CL_OTHER_PULL.LOAD_SOURCING;
5931:
5924: ELSIF prec.sourcing_rule_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SOURCING THEN
5925:
5926: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5927: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SOURCING');
5928: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5929:
5930: MSC_CL_OTHER_PULL.LOAD_SOURCING;
5931:
5932: ELSIF (prec.app_supp_cap_flag = MSC_UTIL.ASL_YES or prec.app_supp_cap_flag = MSC_UTIL.ASL_YES_RETAIN_CP ) AND pTASKNUM= TASK_SUPPLIER_CAPACITY THEN
5930: MSC_CL_OTHER_PULL.LOAD_SOURCING;
5931:
5932: ELSIF (prec.app_supp_cap_flag = MSC_UTIL.ASL_YES or prec.app_supp_cap_flag = MSC_UTIL.ASL_YES_RETAIN_CP ) AND pTASKNUM= TASK_SUPPLIER_CAPACITY THEN
5933:
5934: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5935: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY');
5936: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5937:
5938: MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY;
5931:
5932: ELSIF (prec.app_supp_cap_flag = MSC_UTIL.ASL_YES or prec.app_supp_cap_flag = MSC_UTIL.ASL_YES_RETAIN_CP ) AND pTASKNUM= TASK_SUPPLIER_CAPACITY THEN
5933:
5934: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5935: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY');
5936: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5937:
5938: MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY;
5939:
5932: ELSIF (prec.app_supp_cap_flag = MSC_UTIL.ASL_YES or prec.app_supp_cap_flag = MSC_UTIL.ASL_YES_RETAIN_CP ) AND pTASKNUM= TASK_SUPPLIER_CAPACITY THEN
5933:
5934: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5935: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY');
5936: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5937:
5938: MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY;
5939:
5940: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CATEGORY THEN
5938: MSC_CL_ITEM_PULL.LOAD_SUPPLIER_CAPACITY;
5939:
5940: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CATEGORY THEN
5941:
5942: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5943: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_CATEGORY');
5944: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5945:
5946: MSC_CL_ITEM_PULL.LOAD_CATEGORY;
5939:
5940: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CATEGORY THEN
5941:
5942: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5943: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_CATEGORY');
5944: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5945:
5946: MSC_CL_ITEM_PULL.LOAD_CATEGORY;
5947:
5940: ELSIF prec.item_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CATEGORY THEN
5941:
5942: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5943: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_CATEGORY');
5944: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5945:
5946: MSC_CL_ITEM_PULL.LOAD_CATEGORY;
5947:
5948: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5944: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5945:
5946: MSC_CL_ITEM_PULL.LOAD_CATEGORY;
5947:
5948: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5949: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.INSERT_DUMMY_CATEGORIES');
5950: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5951:
5952: MSC_CL_ITEM_PULL.INSERT_DUMMY_CATEGORIES ;
5945:
5946: MSC_CL_ITEM_PULL.LOAD_CATEGORY;
5947:
5948: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5949: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.INSERT_DUMMY_CATEGORIES');
5950: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5951:
5952: MSC_CL_ITEM_PULL.INSERT_DUMMY_CATEGORIES ;
5953:
5946: MSC_CL_ITEM_PULL.LOAD_CATEGORY;
5947:
5948: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5949: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.INSERT_DUMMY_CATEGORIES');
5950: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5951:
5952: MSC_CL_ITEM_PULL.INSERT_DUMMY_CATEGORIES ;
5953:
5954: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BOM THEN
5954: ELSIF prec.bom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BOM THEN
5955:
5956: -- call the appropriate routine for bom
5957:
5958: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5959: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOM');
5960: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5961:
5962:
5955:
5956: -- call the appropriate routine for bom
5957:
5958: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5959: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOM');
5960: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5961:
5962:
5963: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5956: -- call the appropriate routine for bom
5957:
5958: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
5959: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_BOM');
5960: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
5961:
5962:
5963: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
5964: MSC_CL_BOM_PULL.LOAD_BOM;
5998:
5999: -- only call if doing discrete mfg. process will do this with
6000: -- boms
6001:
6002: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6003: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING');
6004: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6005:
6006:
5999: -- only call if doing discrete mfg. process will do this with
6000: -- boms
6001:
6002: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6003: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING');
6004: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6005:
6006:
6007: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6000: -- boms
6001:
6002: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6003: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING');
6004: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6005:
6006:
6007: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6008: MSC_CL_ROUTING_PULL.LOAD_ROUTING;
6012:
6013: -- only call if doing discrete mfg. process will do this with
6014: -- boms
6015:
6016: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6017: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_OPER_NETWORKS');
6018: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6019:
6020:
6013: -- only call if doing discrete mfg. process will do this with
6014: -- boms
6015:
6016: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6017: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_OPER_NETWORKS');
6018: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6019:
6020:
6021: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6014: -- boms
6015:
6016: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6017: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_WIP_PULL.LOAD_OPER_NETWORKS');
6018: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6019:
6020:
6021: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6022: MSC_CL_WIP_PULL.LOAD_OPER_NETWORKS;
6026:
6027: -- only call if doing discrete mfg. process will do this with
6028: -- boms
6029:
6030: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6031: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING_OPERATIONS');
6032: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6033:
6034:
6027: -- only call if doing discrete mfg. process will do this with
6028: -- boms
6029:
6030: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6031: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING_OPERATIONS');
6032: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6033:
6034:
6035: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6028: -- boms
6029:
6030: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6031: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_ROUTING_OPERATIONS');
6032: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6033:
6034:
6035: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6036: MSC_CL_ROUTING_PULL.LOAD_ROUTING_OPERATIONS;
6040:
6041: -- only call if doing discrete mfg. process will do this with
6042: -- boms
6043:
6044: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6045: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPERATION_RES_SEQ');
6046: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6047:
6048:
6041: -- only call if doing discrete mfg. process will do this with
6042: -- boms
6043:
6044: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6045: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPERATION_RES_SEQ');
6046: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6047:
6048:
6049: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6042: -- boms
6043:
6044: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6045: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPERATION_RES_SEQ');
6046: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6047:
6048:
6049: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6050: MSC_CL_ROUTING_PULL.LOAD_OPERATION_RES_SEQS;
6053:
6054: -- only call if doing discrete mfg. process will do this with
6055: -- boms
6056:
6057: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6058: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_RESOURCES');
6059: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6060:
6061:
6054: -- only call if doing discrete mfg. process will do this with
6055: -- boms
6056:
6057: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6058: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_RESOURCES');
6059: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6060:
6061:
6062: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6055: -- boms
6056:
6057: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6058: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_RESOURCES');
6059: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6060:
6061:
6062: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6063: MSC_CL_ROUTING_PULL.LOAD_OPERATION_RESOURCES;
6066:
6067: -- only call if doing discrete mfg. process will do this with
6068: -- boms
6069:
6070: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6071: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_COMPONENTS');
6072: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6073:
6074:
6067: -- only call if doing discrete mfg. process will do this with
6068: -- boms
6069:
6070: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6071: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_COMPONENTS');
6072: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6073:
6074:
6075: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6068: -- boms
6069:
6070: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6071: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ROUTING_PULL.LOAD_OPERATION_COMPONENTS');
6072: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6073:
6074:
6075: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6076: MSC_CL_ROUTING_PULL.LOAD_OPERATION_COMPONENTS;
6079:
6080: -- only call if doing discrete mfg. process will do this with
6081: -- boms
6082:
6083: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6084: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_PROCESS_EFFECTIVITY');
6085: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6086:
6087:
6080: -- only call if doing discrete mfg. process will do this with
6081: -- boms
6082:
6083: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6084: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_PROCESS_EFFECTIVITY');
6085: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6086:
6087:
6088: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6081: -- boms
6082:
6083: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6084: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_BOM_PULL.LOAD_PROCESS_EFFECTIVITY');
6085: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6086:
6087:
6088: IF v_discrete_flag = MSC_UTIL.SYS_YES THEN
6089: MSC_CL_BOM_PULL.LOAD_PROCESS_EFFECTIVITY;
6090: END IF;
6091:
6092: ELSIF prec.unit_number_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UNIT_NUMBER THEN
6093:
6094: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6095: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER');
6096: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6097:
6098: MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER;
6091:
6092: ELSIF prec.unit_number_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UNIT_NUMBER THEN
6093:
6094: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6095: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER');
6096: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6097:
6098: MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER;
6099:
6092: ELSIF prec.unit_number_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UNIT_NUMBER THEN
6093:
6094: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6095: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER');
6096: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6097:
6098: MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER;
6099:
6100: ELSIF prec.saf_stock_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SAFETY_STOCK THEN
6098: MSC_CL_OTHER_PULL.LOAD_UNIT_NUMBER;
6099:
6100: ELSIF prec.saf_stock_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SAFETY_STOCK THEN
6101:
6102: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6103: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK');
6104: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6105:
6106: MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK;
6099:
6100: ELSIF prec.saf_stock_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SAFETY_STOCK THEN
6101:
6102: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6103: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK');
6104: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6105:
6106: MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK;
6107:
6100: ELSIF prec.saf_stock_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SAFETY_STOCK THEN
6101:
6102: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6103: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK');
6104: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6105:
6106: MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK;
6107:
6108: ELSIF prec.project_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PROJECT THEN
6106: MSC_CL_OTHER_PULL.LOAD_SAFETY_STOCK;
6107:
6108: ELSIF prec.project_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PROJECT THEN
6109:
6110: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6111: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PROJECT');
6112: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6113:
6114: MSC_CL_OTHER_PULL.LOAD_PROJECT;
6107:
6108: ELSIF prec.project_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PROJECT THEN
6109:
6110: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6111: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PROJECT');
6112: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6113:
6114: MSC_CL_OTHER_PULL.LOAD_PROJECT;
6115:
6108: ELSIF prec.project_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PROJECT THEN
6109:
6110: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6111: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PROJECT');
6112: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6113:
6114: MSC_CL_OTHER_PULL.LOAD_PROJECT;
6115:
6116: ELSIF prec.parameter_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PARAMETER THEN
6114: MSC_CL_OTHER_PULL.LOAD_PROJECT;
6115:
6116: ELSIF prec.parameter_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PARAMETER THEN
6117:
6118: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6119: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_PARAMETER');
6120: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6121:
6122: MSC_CL_SETUP_PULL.LOAD_PARAMETER;
6115:
6116: ELSIF prec.parameter_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PARAMETER THEN
6117:
6118: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6119: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_PARAMETER');
6120: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6121:
6122: MSC_CL_SETUP_PULL.LOAD_PARAMETER;
6123:
6116: ELSIF prec.parameter_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PARAMETER THEN
6117:
6118: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6119: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_PARAMETER');
6120: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6121:
6122: MSC_CL_SETUP_PULL.LOAD_PARAMETER;
6123:
6124: ELSIF prec.uom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UOM THEN
6122: MSC_CL_SETUP_PULL.LOAD_PARAMETER;
6123:
6124: ELSIF prec.uom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UOM THEN
6125:
6126: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6127: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_UOM');
6128: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6129:
6130: MSC_CL_SETUP_PULL.LOAD_UOM;
6123:
6124: ELSIF prec.uom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UOM THEN
6125:
6126: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6127: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_UOM');
6128: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6129:
6130: MSC_CL_SETUP_PULL.LOAD_UOM;
6131:
6124: ELSIF prec.uom_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_UOM THEN
6125:
6126: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6127: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_UOM');
6128: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6129:
6130: MSC_CL_SETUP_PULL.LOAD_UOM;
6131:
6132: ELSIF prec.kpi_bis_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BIS THEN
6130: MSC_CL_SETUP_PULL.LOAD_UOM;
6131:
6132: ELSIF prec.kpi_bis_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BIS THEN
6133:
6134: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6135: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_BIS');
6136: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6137:
6138:
6131:
6132: ELSIF prec.kpi_bis_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BIS THEN
6133:
6134: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6135: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_BIS');
6136: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6137:
6138:
6139: IF v_apps_ver= MSC_UTIL.G_APPS110 THEN
6132: ELSIF prec.kpi_bis_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_BIS THEN
6133:
6134: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6135: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_BIS');
6136: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6137:
6138:
6139: IF v_apps_ver= MSC_UTIL.G_APPS110 THEN
6140:
6147: END IF;
6148:
6149: ELSIF prec.atp_rules_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ATP_RULES THEN
6150:
6151: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6152: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_ATP_RULES');
6153: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6154:
6155: MSC_CL_OTHER_PULL.LOAD_ATP_RULES;
6148:
6149: ELSIF prec.atp_rules_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ATP_RULES THEN
6150:
6151: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6152: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_ATP_RULES');
6153: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6154:
6155: MSC_CL_OTHER_PULL.LOAD_ATP_RULES;
6156:
6149: ELSIF prec.atp_rules_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ATP_RULES THEN
6150:
6151: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6152: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_ATP_RULES');
6153: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6154:
6155: MSC_CL_OTHER_PULL.LOAD_ATP_RULES;
6156:
6157: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_SUPPLY THEN
6155: MSC_CL_OTHER_PULL.LOAD_ATP_RULES;
6156:
6157: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_SUPPLY THEN
6158:
6159: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6160: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY');
6161: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6162:
6163: MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY;
6156:
6157: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_SUPPLY THEN
6158:
6159: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6160: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY');
6161: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6162:
6163: MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY;
6164:
6157: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_SUPPLY THEN
6158:
6159: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6160: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY');
6161: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6162:
6163: MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY;
6164:
6165: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_DEMAND THEN
6163: MSC_CL_SUPPLY_PULL.LOAD_USER_SUPPLY;
6164:
6165: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_DEMAND THEN
6166:
6167: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6168: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND');
6169: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6170:
6171: MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND;
6164:
6165: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_DEMAND THEN
6166:
6167: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6168: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND');
6169: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6170:
6171: MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND;
6172:
6165: ELSIF prec.user_supply_demand_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_USER_DEMAND THEN
6166:
6167: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6168: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND');
6169: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6170:
6171: MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND;
6172:
6173: ELSIF prec.planner_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PLANNERS THEN
6171: MSC_CL_DEMAND_PULL.LOAD_USER_DEMAND;
6172:
6173: ELSIF prec.planner_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PLANNERS THEN
6174:
6175: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6176: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PLANNERS');
6177: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6178:
6179: MSC_CL_OTHER_PULL.LOAD_PLANNERS;
6172:
6173: ELSIF prec.planner_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PLANNERS THEN
6174:
6175: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6176: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PLANNERS');
6177: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6178:
6179: MSC_CL_OTHER_PULL.LOAD_PLANNERS;
6180:
6173: ELSIF prec.planner_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PLANNERS THEN
6174:
6175: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6176: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_PLANNERS');
6177: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6178:
6179: MSC_CL_OTHER_PULL.LOAD_PLANNERS;
6180:
6181: -- Added this new task for Prod. Subst ---
6180:
6181: -- Added this new task for Prod. Subst ---
6182: ELSIF prec.item_subst_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM_SUBSTITUTES THEN
6183:
6184: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6185: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES');
6186: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6187:
6188: IF ( v_apps_ver >= MSC_UTIL.G_APPS115 ) THEN
6181: -- Added this new task for Prod. Subst ---
6182: ELSIF prec.item_subst_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM_SUBSTITUTES THEN
6183:
6184: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6185: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES');
6186: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6187:
6188: IF ( v_apps_ver >= MSC_UTIL.G_APPS115 ) THEN
6189: MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES;
6182: ELSIF prec.item_subst_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_ITEM_SUBSTITUTES THEN
6183:
6184: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6185: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES');
6186: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6187:
6188: IF ( v_apps_ver >= MSC_UTIL.G_APPS115 ) THEN
6189: MSC_CL_ITEM_PULL.LOAD_ITEM_SUBSTITUTES;
6190: END IF;
6190: END IF;
6191:
6192: ELSIF prec.demand_class_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DEMAND_CLASS THEN
6193:
6194: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6195: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS');
6196: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6197:
6198: MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS;
6191:
6192: ELSIF prec.demand_class_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DEMAND_CLASS THEN
6193:
6194: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6195: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS');
6196: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6197:
6198: MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS;
6199:
6192: ELSIF prec.demand_class_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DEMAND_CLASS THEN
6193:
6194: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6195: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS');
6196: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6197:
6198: MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS;
6199:
6200: ELSIF (prec.tp_customer_flag = MSC_UTIL.SYS_YES OR prec.tp_vendor_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_BUYER_CONTACT THEN
6198: MSC_CL_OTHER_PULL.LOAD_DEMAND_CLASS;
6199:
6200: ELSIF (prec.tp_customer_flag = MSC_UTIL.SYS_YES OR prec.tp_vendor_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_BUYER_CONTACT THEN
6201:
6202: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6203: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT');
6204: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6205: MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT;
6206:
6199:
6200: ELSIF (prec.tp_customer_flag = MSC_UTIL.SYS_YES OR prec.tp_vendor_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_BUYER_CONTACT THEN
6201:
6202: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6203: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT');
6204: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6205: MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT;
6206:
6207: /* SCE Change starts */
6200: ELSIF (prec.tp_customer_flag = MSC_UTIL.SYS_YES OR prec.tp_vendor_flag = MSC_UTIL.SYS_YES) AND pTASKNUM= TASK_BUYER_CONTACT THEN
6201:
6202: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6203: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT');
6204: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6205: MSC_CL_SETUP_PULL.LOAD_BUYER_CONTACT;
6206:
6207: /* SCE Change starts */
6208:
6223: IF (MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_APS_SCE
6224: OR
6225: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6226:
6227: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6228: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SCE_COLLECTION.PULL_USER_COMPANY');
6229: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6230:
6231: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of USER_COMPANY_ENABLED :'||USER_COMPANY_ENABLED);
6224: OR
6225: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6226:
6227: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6228: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SCE_COLLECTION.PULL_USER_COMPANY');
6229: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6230:
6231: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of USER_COMPANY_ENABLED :'||USER_COMPANY_ENABLED);
6232: MSC_CL_SCE_COLLECTION.PULL_USER_COMPANY(v_dblink,
6225: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6226:
6227: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6228: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SCE_COLLECTION.PULL_USER_COMPANY');
6229: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6230:
6231: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Value of USER_COMPANY_ENABLED :'||USER_COMPANY_ENABLED);
6232: MSC_CL_SCE_COLLECTION.PULL_USER_COMPANY(v_dblink,
6233: v_instance_id,
6260: IF (MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_APS_SCE
6261: OR
6262: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6263:
6264: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6265: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLIER_RESP.PULL_SUPPLIER_RESP');
6266: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6267:
6268: MSC_CL_SUPPLIER_RESP.PULL_SUPPLIER_RESP(v_dblink,
6261: OR
6262: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6263:
6264: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6265: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLIER_RESP.PULL_SUPPLIER_RESP');
6266: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6267:
6268: MSC_CL_SUPPLIER_RESP.PULL_SUPPLIER_RESP(v_dblink,
6269: v_instance_id,
6262: MSC_UTIL.G_MSC_CONFIGURATION = MSC_UTIL.G_CONF_SCE) THEN
6263:
6264: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6265: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_SUPPLIER_RESP.PULL_SUPPLIER_RESP');
6266: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6267:
6268: MSC_CL_SUPPLIER_RESP.PULL_SUPPLIER_RESP(v_dblink,
6269: v_instance_id,
6270: lv_return_status,
6282: /* CP-ACK ends */
6283:
6284: ELSIF prec.trip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_TRIP THEN
6285:
6286: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6287: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_TRIP');
6288: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6289:
6290: MSC_CL_OTHER_PULL.LOAD_TRIP;
6283:
6284: ELSIF prec.trip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_TRIP THEN
6285:
6286: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6287: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_TRIP');
6288: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6289:
6290: MSC_CL_OTHER_PULL.LOAD_TRIP;
6291:
6284: ELSIF prec.trip_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_TRIP THEN
6285:
6286: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6287: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_TRIP');
6288: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6289:
6290: MSC_CL_OTHER_PULL.LOAD_TRIP;
6291:
6292:
6291:
6292:
6293: ELSIF prec.sales_channel_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SALES_CHANNEL THEN
6294:
6295: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6296: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL');
6297: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6298:
6299: MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL;
6292:
6293: ELSIF prec.sales_channel_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SALES_CHANNEL THEN
6294:
6295: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6296: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL');
6297: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6298:
6299: MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL;
6300:
6293: ELSIF prec.sales_channel_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SALES_CHANNEL THEN
6294:
6295: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6296: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL');
6297: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6298:
6299: MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL;
6300:
6301: ELSIF prec.fiscal_calendar_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_FISCAL_CALENDAR THEN
6299: MSC_CL_OTHER_PULL.LOAD_SALES_CHANNEL;
6300:
6301: ELSIF prec.fiscal_calendar_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_FISCAL_CALENDAR THEN
6302:
6303: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6304: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR');
6305: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6306:
6307: MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR;
6300:
6301: ELSIF prec.fiscal_calendar_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_FISCAL_CALENDAR THEN
6302:
6303: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6304: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR');
6305: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6306:
6307: MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR;
6308:
6301: ELSIF prec.fiscal_calendar_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_FISCAL_CALENDAR THEN
6302:
6303: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6304: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR');
6305: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6306:
6307: MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR;
6308:
6309: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO) THEN
6307: MSC_CL_OTHER_PULL.LOAD_FISCAL_CALENDAR;
6308:
6309: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO) THEN
6310:
6311: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6312: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO');
6313: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6314: /* changes for executing repair order load Bug# 5909379 */
6315: MSC_CL_RPO_PULL.LOAD_IRO;
6308:
6309: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO) THEN
6310:
6311: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6312: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO');
6313: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6314: /* changes for executing repair order load Bug# 5909379 */
6315: MSC_CL_RPO_PULL.LOAD_IRO;
6316:
6309: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO) THEN
6310:
6311: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6312: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO');
6313: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6314: /* changes for executing repair order load Bug# 5909379 */
6315: MSC_CL_RPO_PULL.LOAD_IRO;
6316:
6317: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO_DEMAND) THEN
6315: MSC_CL_RPO_PULL.LOAD_IRO;
6316:
6317: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO_DEMAND) THEN
6318:
6319: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6320: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO_DEMAND');
6321: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6322: /* changes for executing repair order load Bug# 5909379 */
6323: MSC_CL_RPO_PULL.LOAD_IRO_DEMAND;
6316:
6317: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO_DEMAND) THEN
6318:
6319: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6320: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO_DEMAND');
6321: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6322: /* changes for executing repair order load Bug# 5909379 */
6323: MSC_CL_RPO_PULL.LOAD_IRO_DEMAND;
6324:
6317: ELSIF (prec.internal_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_IRO_DEMAND) THEN
6318:
6319: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6320: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_IRO_DEMAND');
6321: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6322: /* changes for executing repair order load Bug# 5909379 */
6323: MSC_CL_RPO_PULL.LOAD_IRO_DEMAND;
6324:
6325: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO) THEN
6323: MSC_CL_RPO_PULL.LOAD_IRO_DEMAND;
6324:
6325: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO) THEN
6326:
6327: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6328: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO');
6329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6330: /* changes for executing repair order load Bug# 5935273*/
6331: MSC_CL_RPO_PULL.LOAD_ERO;
6324:
6325: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO) THEN
6326:
6327: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6328: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO');
6329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6330: /* changes for executing repair order load Bug# 5935273*/
6331: MSC_CL_RPO_PULL.LOAD_ERO;
6332:
6325: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO) THEN
6326:
6327: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6328: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO');
6329: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6330: /* changes for executing repair order load Bug# 5935273*/
6331: MSC_CL_RPO_PULL.LOAD_ERO;
6332:
6333: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO_DEMAND) THEN
6331: MSC_CL_RPO_PULL.LOAD_ERO;
6332:
6333: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO_DEMAND) THEN
6334:
6335: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6336: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO_DEMAND');
6337: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6338: /* changes for executing repair order load Bug# 5935273 */
6339: MSC_CL_RPO_PULL.LOAD_ERO_DEMAND;
6332:
6333: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO_DEMAND) THEN
6334:
6335: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6336: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO_DEMAND');
6337: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6338: /* changes for executing repair order load Bug# 5935273 */
6339: MSC_CL_RPO_PULL.LOAD_ERO_DEMAND;
6340:
6333: ELSIF (prec.external_repair_flag = MSC_UTIL.SYS_YES) AND (MSC_UTIL.G_COLLECT_SRP_DATA='Y') AND (pTASKNUM= TASK_ERO_DEMAND) THEN
6334:
6335: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6336: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_RPO_PULL.LOAD_ERO_DEMAND');
6337: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6338: /* changes for executing repair order load Bug# 5935273 */
6339: MSC_CL_RPO_PULL.LOAD_ERO_DEMAND;
6340:
6341:
6340:
6341:
6342: ELSIF prec.payback_demand_supply_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PAYBACK_DEMAND_SUPPLY THEN
6343:
6344: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6345: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPEN_PAYBACKS');
6346: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6347:
6348: MSC_CL_DEMAND_PULL.LOAD_OPEN_PAYBACKS;
6341:
6342: ELSIF prec.payback_demand_supply_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PAYBACK_DEMAND_SUPPLY THEN
6343:
6344: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6345: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPEN_PAYBACKS');
6346: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6347:
6348: MSC_CL_DEMAND_PULL.LOAD_OPEN_PAYBACKS;
6349:
6342: ELSIF prec.payback_demand_supply_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_PAYBACK_DEMAND_SUPPLY THEN
6343:
6344: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6345: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OPEN_PAYBACKS');
6346: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6347:
6348: MSC_CL_DEMAND_PULL.LOAD_OPEN_PAYBACKS;
6349:
6350: /* changes for currency conversion bug # 6469722 */
6349:
6350: /* changes for currency conversion bug # 6469722 */
6351: ELSIF prec.currency_conversion_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CURRENCY_CONVERSION THEN -- bug # 6469722
6352: IF (MSC_CL_OTHER_PULL.G_MSC_HUB_CURR_CODE IS NOT NULL) THEN
6353: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6354: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION');
6355: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6356:
6357: MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION;
6350: /* changes for currency conversion bug # 6469722 */
6351: ELSIF prec.currency_conversion_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CURRENCY_CONVERSION THEN -- bug # 6469722
6352: IF (MSC_CL_OTHER_PULL.G_MSC_HUB_CURR_CODE IS NOT NULL) THEN
6353: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6354: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION');
6355: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6356:
6357: MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION;
6358: ELSE
6351: ELSIF prec.currency_conversion_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CURRENCY_CONVERSION THEN -- bug # 6469722
6352: IF (MSC_CL_OTHER_PULL.G_MSC_HUB_CURR_CODE IS NOT NULL) THEN
6353: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6354: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION');
6355: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6356:
6357: MSC_CL_OTHER_PULL.LOAD_CURRENCY_CONVERSION;
6358: ELSE
6359: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Currency Data is not collected as MSC:Planning Hub Currency Code Profile is NULL.');
6359: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'Currency Data is not collected as MSC:Planning Hub Currency Code Profile is NULL.');
6360: END IF;
6361: ELSIF prec.delivery_details_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DELIVERY_DETAILS THEN
6362:
6363: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6364: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_DELIVERY_DETAILS');
6365: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6366:
6367: MSC_CL_OTHER_PULL.LOAD_DELIVERY_DETAILS;
6360: END IF;
6361: ELSIF prec.delivery_details_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DELIVERY_DETAILS THEN
6362:
6363: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6364: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_DELIVERY_DETAILS');
6365: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6366:
6367: MSC_CL_OTHER_PULL.LOAD_DELIVERY_DETAILS;
6368: ELSIF prec.ibuc_history_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_IBUC_HISTORY
6361: ELSIF prec.delivery_details_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_DELIVERY_DETAILS THEN
6362:
6363: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6364: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_DELIVERY_DETAILS');
6365: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6366:
6367: MSC_CL_OTHER_PULL.LOAD_DELIVERY_DETAILS;
6368: ELSIF prec.ibuc_history_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_IBUC_HISTORY
6369: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6368: ELSIF prec.ibuc_history_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_IBUC_HISTORY
6369: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6371:
6372: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6373: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_IB_CONTRACTS');
6374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6375:
6376: MSC_CL_OTHER_PULL.LOAD_IB_CONTRACTS;
6369: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6371:
6372: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6373: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_IB_CONTRACTS');
6374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6375:
6376: MSC_CL_OTHER_PULL.LOAD_IB_CONTRACTS;
6377: ELSIF prec.notes_attach_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SHORT_TEXT
6370: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6371:
6372: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6373: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_IB_CONTRACTS');
6374: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6375:
6376: MSC_CL_OTHER_PULL.LOAD_IB_CONTRACTS;
6377: ELSIF prec.notes_attach_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SHORT_TEXT
6378: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6377: ELSIF prec.notes_attach_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_SHORT_TEXT
6378: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6379: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6380:
6381: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6382: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SHORT_TEXT');
6383: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6384:
6385: MSC_CL_OTHER_PULL.LOAD_SHORT_TEXT;
6378: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6379: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6380:
6381: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6382: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SHORT_TEXT');
6383: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6384:
6385: MSC_CL_OTHER_PULL.LOAD_SHORT_TEXT;
6386:
6379: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6380:
6381: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6382: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SHORT_TEXT');
6383: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6384:
6385: MSC_CL_OTHER_PULL.LOAD_SHORT_TEXT;
6386:
6387: ELSIF prec.notes_attach_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_LONG_TEXT
6387: ELSIF prec.notes_attach_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_LONG_TEXT
6388: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6389: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6390:
6391: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6392: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_LONG_TEXT');
6393: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6394:
6395: MSC_CL_OTHER_PULL.LOAD_LONG_TEXT;
6388: AND MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE = 'Y' THEN
6389: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6390:
6391: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6392: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_LONG_TEXT');
6393: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6394:
6395: MSC_CL_OTHER_PULL.LOAD_LONG_TEXT;
6396:
6389: --MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,MSC_UTIL.G_COLLECT_SRP_PH2_ENABLE);
6390:
6391: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6392: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_LONG_TEXT');
6393: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6394:
6395: MSC_CL_OTHER_PULL.LOAD_LONG_TEXT;
6396:
6397: /* USAF --rgurugub*/
6397: /* USAF --rgurugub*/
6398: ELSIF prec.eAM_info_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_EAM_INFO
6399: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6400:
6401: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6402: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_EAM_INFO');
6403: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6404: MSC_CL_EAM_PULL.LOAD_EAM_INFO;
6405:
6398: ELSIF prec.eAM_info_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_EAM_INFO
6399: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6400:
6401: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6402: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_EAM_INFO');
6403: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6404: MSC_CL_EAM_PULL.LOAD_EAM_INFO;
6405:
6406: ELSIF prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES AND
6399: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6400:
6401: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6402: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_EAM_INFO');
6403: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6404: MSC_CL_EAM_PULL.LOAD_EAM_INFO;
6405:
6406: ELSIF prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES AND
6407: pTASKNUM= TASK_EAM_FORECAST
6405:
6406: ELSIF prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES AND
6407: pTASKNUM= TASK_EAM_FORECAST
6408: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6409: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6410: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_EAM_FORECASTS');
6411: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6412: MSC_CL_EAM_PULL.LOAD_EAM_FORECASTS(prec.eam_fc_st_date,prec.eam_fc_end_date);
6413:
6406: ELSIF prec.eAM_forecasts_flag = MSC_UTIL.SYS_YES AND
6407: pTASKNUM= TASK_EAM_FORECAST
6408: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6409: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6410: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_EAM_FORECASTS');
6411: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6412: MSC_CL_EAM_PULL.LOAD_EAM_FORECASTS(prec.eam_fc_st_date,prec.eam_fc_end_date);
6413:
6414: ELSIF prec.cmro_forecasts_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CMRO_FORECASTS
6407: pTASKNUM= TASK_EAM_FORECAST
6408: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6409: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6410: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_EAM_FORECASTS');
6411: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6412: MSC_CL_EAM_PULL.LOAD_EAM_FORECASTS(prec.eam_fc_st_date,prec.eam_fc_end_date);
6413:
6414: ELSIF prec.cmro_forecasts_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CMRO_FORECASTS
6415: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6412: MSC_CL_EAM_PULL.LOAD_EAM_FORECASTS(prec.eam_fc_st_date,prec.eam_fc_end_date);
6413:
6414: ELSIF prec.cmro_forecasts_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CMRO_FORECASTS
6415: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6416: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6417: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CMRO_FORECASTS');
6418: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6419: MSC_CL_AHL_PULL.LOAD_CMRO_FORECASTS(prec.cmro_fc_st_date,prec.cmro_fc_end_date);
6420:
6413:
6414: ELSIF prec.cmro_forecasts_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CMRO_FORECASTS
6415: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6416: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6417: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CMRO_FORECASTS');
6418: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6419: MSC_CL_AHL_PULL.LOAD_CMRO_FORECASTS(prec.cmro_fc_st_date,prec.cmro_fc_end_date);
6420:
6421: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6414: ELSIF prec.cmro_forecasts_flag = MSC_UTIL.SYS_YES AND pTASKNUM= TASK_CMRO_FORECASTS
6415: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6416: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6417: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CMRO_FORECASTS');
6418: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6419: MSC_CL_AHL_PULL.LOAD_CMRO_FORECASTS(prec.cmro_fc_st_date,prec.cmro_fc_end_date);
6420:
6421: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6422: pTASKNUM= TASK_VISITS
6420:
6421: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6422: pTASKNUM= TASK_VISITS
6423: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6424: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6425: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_VISITS');
6426: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6427: MSC_CL_AHL_PULL.LOAD_VISITS;
6428:
6421: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6422: pTASKNUM= TASK_VISITS
6423: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6424: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6425: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_VISITS');
6426: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6427: MSC_CL_AHL_PULL.LOAD_VISITS;
6428:
6429: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6422: pTASKNUM= TASK_VISITS
6423: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6424: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6425: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_VISITS');
6426: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6427: MSC_CL_AHL_PULL.LOAD_VISITS;
6428:
6429: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6430: pTASKNUM= TASK_WO_ATTRIBUTES
6428:
6429: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6430: pTASKNUM= TASK_WO_ATTRIBUTES
6431: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6432: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6433: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_ATTRIBUTES');
6434: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6435: MSC_CL_AHL_PULL.LOAD_WO_ATTRIBUTES;
6436:
6429: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6430: pTASKNUM= TASK_WO_ATTRIBUTES
6431: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6432: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6433: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_ATTRIBUTES');
6434: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6435: MSC_CL_AHL_PULL.LOAD_WO_ATTRIBUTES;
6436:
6437: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6430: pTASKNUM= TASK_WO_ATTRIBUTES
6431: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6432: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6433: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_ATTRIBUTES');
6434: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6435: MSC_CL_AHL_PULL.LOAD_WO_ATTRIBUTES;
6436:
6437: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6438: pTASKNUM= TASK_WO_TASK_HIERARCHY
6436:
6437: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6438: pTASKNUM= TASK_WO_TASK_HIERARCHY
6439: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6440: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6441: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_TASK_HRY');
6442: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6443: MSC_CL_AHL_PULL.LOAD_WO_TASK_HRY;
6444:
6437: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6438: pTASKNUM= TASK_WO_TASK_HIERARCHY
6439: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6440: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6441: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_TASK_HRY');
6442: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6443: MSC_CL_AHL_PULL.LOAD_WO_TASK_HRY;
6444:
6445: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6438: pTASKNUM= TASK_WO_TASK_HIERARCHY
6439: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6440: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6441: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_TASK_HRY');
6442: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6443: MSC_CL_AHL_PULL.LOAD_WO_TASK_HRY;
6444:
6445: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6446: pTASKNUM= TASK_WO_OPERATION_REL
6444:
6445: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6446: pTASKNUM= TASK_WO_OPERATION_REL
6447: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6448: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6449: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_OPER_RELN');
6450: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6451: MSC_CL_AHL_PULL.LOAD_WO_OPER_RELN;
6452:
6445: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6446: pTASKNUM= TASK_WO_OPERATION_REL
6447: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6448: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6449: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_OPER_RELN');
6450: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6451: MSC_CL_AHL_PULL.LOAD_WO_OPER_RELN;
6452:
6453: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6446: pTASKNUM= TASK_WO_OPERATION_REL
6447: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6448: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6449: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_OPER_RELN');
6450: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6451: MSC_CL_AHL_PULL.LOAD_WO_OPER_RELN;
6452:
6453: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6454: pTASKNUM= TASK_WORK_BREAKDOWN_STRUCT
6452:
6453: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6454: pTASKNUM= TASK_WORK_BREAKDOWN_STRUCT
6455: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6456: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6457: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WORK_BREAKDOWN');
6458: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6459: MSC_CL_AHL_PULL.LOAD_WORK_BREAKDOWN;
6460:
6453: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6454: pTASKNUM= TASK_WORK_BREAKDOWN_STRUCT
6455: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6456: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6457: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WORK_BREAKDOWN');
6458: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6459: MSC_CL_AHL_PULL.LOAD_WORK_BREAKDOWN;
6460:
6461: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6454: pTASKNUM= TASK_WORK_BREAKDOWN_STRUCT
6455: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6456: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6457: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WORK_BREAKDOWN');
6458: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6459: MSC_CL_AHL_PULL.LOAD_WORK_BREAKDOWN;
6460:
6461: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6462: pTASKNUM= TASK_WO_MILESTONES
6460:
6461: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6462: pTASKNUM= TASK_WO_MILESTONES
6463: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6464: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6465: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_MILESTONES');
6466: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6467: MSC_CL_AHL_PULL.LOAD_MILESTONES;
6468:
6461: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6462: pTASKNUM= TASK_WO_MILESTONES
6463: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6464: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6465: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_MILESTONES');
6466: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6467: MSC_CL_AHL_PULL.LOAD_MILESTONES;
6468:
6469: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6462: pTASKNUM= TASK_WO_MILESTONES
6463: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6464: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6465: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_MILESTONES');
6466: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6467: MSC_CL_AHL_PULL.LOAD_MILESTONES;
6468:
6469: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6470: pTASKNUM= TASK_WO_SUB_COMP
6468:
6469: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6470: pTASKNUM= TASK_WO_SUB_COMP
6471: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6472: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6473: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_SUB_COMP ');
6474: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6475: MSC_CL_AHL_PULL.LOAD_WO_SUB_COMP ;
6476:
6469: ELSIF prec.cmro_flag = MSC_UTIL.SYS_YES AND
6470: pTASKNUM= TASK_WO_SUB_COMP
6471: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6472: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6473: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_SUB_COMP ');
6474: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6475: MSC_CL_AHL_PULL.LOAD_WO_SUB_COMP ;
6476:
6477: ELSIF prec.reserves_flag = MSC_UTIL.SYS_YES AND
6470: pTASKNUM= TASK_WO_SUB_COMP
6471: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6472: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6473: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_WO_SUB_COMP ');
6474: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6475: MSC_CL_AHL_PULL.LOAD_WO_SUB_COMP ;
6476:
6477: ELSIF prec.reserves_flag = MSC_UTIL.SYS_YES AND
6478: pTASKNUM= TASK_CMRO_SUPP_RESRV
6476:
6477: ELSIF prec.reserves_flag = MSC_UTIL.SYS_YES AND
6478: pTASKNUM= TASK_CMRO_SUPP_RESRV
6479: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6480: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6481: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SUPPLY_RESERVATIONS');
6482: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6483: MSC_CL_AHL_PULL.LOAD_SUPPLY_RESERVATIONS;
6484:
6477: ELSIF prec.reserves_flag = MSC_UTIL.SYS_YES AND
6478: pTASKNUM= TASK_CMRO_SUPP_RESRV
6479: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6480: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6481: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SUPPLY_RESERVATIONS');
6482: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6483: MSC_CL_AHL_PULL.LOAD_SUPPLY_RESERVATIONS;
6484:
6485: /* USAF --rgurugub*/
6478: pTASKNUM= TASK_CMRO_SUPP_RESRV
6479: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6480: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6481: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SUPPLY_RESERVATIONS');
6482: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6483: MSC_CL_AHL_PULL.LOAD_SUPPLY_RESERVATIONS;
6484:
6485: /* USAF --rgurugub*/
6486:
6486:
6487: ELSIF prec.cmro_closed_wo = MSC_UTIL.SYS_YES AND
6488: pTASKNUM= TASK_cmro_closed_wo
6489: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6490: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6491: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CLOSED_CMRO_WOS');
6492: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6493: MSC_CL_AHL_PULL.LOAD_CLOSED_CMRO_WOS ;
6494:
6487: ELSIF prec.cmro_closed_wo = MSC_UTIL.SYS_YES AND
6488: pTASKNUM= TASK_cmro_closed_wo
6489: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6490: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6491: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CLOSED_CMRO_WOS');
6492: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6493: MSC_CL_AHL_PULL.LOAD_CLOSED_CMRO_WOS ;
6494:
6495: ELSIF prec.osp_supply = MSC_UTIL.SYS_YES AND
6488: pTASKNUM= TASK_cmro_closed_wo
6489: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6490: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6491: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_CLOSED_CMRO_WOS');
6492: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6493: MSC_CL_AHL_PULL.LOAD_CLOSED_CMRO_WOS ;
6494:
6495: ELSIF prec.osp_supply = MSC_UTIL.SYS_YES AND
6496: pTASKNUM= TASK_OSP_SUPPLY
6494:
6495: ELSIF prec.osp_supply = MSC_UTIL.SYS_YES AND
6496: pTASKNUM= TASK_OSP_SUPPLY
6497: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6498: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6499: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OSP_SUPPLY');
6500: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6501: MSC_CL_AHL_PULL.LOAD_OSP_SUPPLY ;
6502:
6495: ELSIF prec.osp_supply = MSC_UTIL.SYS_YES AND
6496: pTASKNUM= TASK_OSP_SUPPLY
6497: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6498: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6499: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OSP_SUPPLY');
6500: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6501: MSC_CL_AHL_PULL.LOAD_OSP_SUPPLY ;
6502:
6503: END IF;
6496: pTASKNUM= TASK_OSP_SUPPLY
6497: AND v_apps_ver >= MSC_UTIL.G_EAM_CMRO_SUP_VER AND MSC_UTIL.G_CMRO_EAM_INT_ENABLED = 'Y'THEN
6498: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_START');
6499: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_OSP_SUPPLY');
6500: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,FND_MESSAGE.GET);
6501: MSC_CL_AHL_PULL.LOAD_OSP_SUPPLY ;
6502:
6503: END IF;
6504:
6521: RETURN;
6522:
6523: WHEN GMP_ERROR THEN
6524:
6525: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_GMP_ERR');
6526: FND_MESSAGE.SET_TOKEN('ROUTINE', v_gmp_routine_name);
6527:
6528: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6529:
6522:
6523: WHEN GMP_ERROR THEN
6524:
6525: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_GMP_ERR');
6526: FND_MESSAGE.SET_TOKEN('ROUTINE', v_gmp_routine_name);
6527:
6528: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6529:
6530: RAISE;
6524:
6525: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_GMP_ERR');
6526: FND_MESSAGE.SET_TOKEN('ROUTINE', v_gmp_routine_name);
6527:
6528: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6529:
6530: RAISE;
6531:
6532: WHEN OTHERS THEN
6530: RAISE;
6531:
6532: WHEN OTHERS THEN
6533:
6534: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_ERR');
6535: FND_MESSAGE.SET_TOKEN('TABLE', v_table_name);
6536: FND_MESSAGE.SET_TOKEN('VIEW', v_view_name);
6537:
6538: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6531:
6532: WHEN OTHERS THEN
6533:
6534: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_ERR');
6535: FND_MESSAGE.SET_TOKEN('TABLE', v_table_name);
6536: FND_MESSAGE.SET_TOKEN('VIEW', v_view_name);
6537:
6538: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6539:
6532: WHEN OTHERS THEN
6533:
6534: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_ERR');
6535: FND_MESSAGE.SET_TOKEN('TABLE', v_table_name);
6536: FND_MESSAGE.SET_TOKEN('VIEW', v_view_name);
6537:
6538: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6539:
6540: RAISE;
6534: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_TASK_ERR');
6535: FND_MESSAGE.SET_TOKEN('TABLE', v_table_name);
6536: FND_MESSAGE.SET_TOKEN('VIEW', v_view_name);
6537:
6538: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, FND_MESSAGE.GET);
6539:
6540: RAISE;
6541:
6542: END;--LOAD_DATA
6540: RAISE;
6541:
6542: END;--LOAD_DATA
6543:
6544: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
6545: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',
6546: TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
6547: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6548: msc_util.print_top_wait(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6541:
6542: END;--LOAD_DATA
6543:
6544: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
6545: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',
6546: TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
6547: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6548: msc_util.print_top_wait(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6549: msc_util.print_cum_stat(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6543:
6544: FND_MESSAGE.SET_NAME('MSC', 'MSC_ELAPSED_TIME');
6545: FND_MESSAGE.SET_TOKEN('ELAPSED_TIME',
6546: TO_CHAR(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10));
6547: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
6548: msc_util.print_top_wait(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6549: msc_util.print_cum_stat(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6550: msc_util.print_bad_sqls(CEIL((SYSDATE- lv_task_start_time)*14400.0)/10);
6551: