212: EXCEPTION
213: WHEN OTHERS THEN
214: fnd_message.set_name('MRP', 'UNSUCCESSFUL PLAN VALIDATION');
215: var_buf := fnd_message.get;
216: fnd_file.put_line(FND_FILE.LOG, var_buf);
217:
218: retcode := 2;
219: errbuf := var_buf;
220: RETURN;
246: AND mp.compile_designator = arg_plan_name;
247:
248: IF var_debug THEN
249: var_buf := '+++++++++++++++++';
250: fnd_file.put_line(FND_FILE.LOG, var_buf);
251: var_buf := 'User ID : '||var_user_id;
252: fnd_file.put_line(FND_FILE.LOG, var_buf);
253: var_buf := 'Owning org : '||arg_org_id;
254: fnd_file.put_line(FND_FILE.LOG, var_buf);
248: IF var_debug THEN
249: var_buf := '+++++++++++++++++';
250: fnd_file.put_line(FND_FILE.LOG, var_buf);
251: var_buf := 'User ID : '||var_user_id;
252: fnd_file.put_line(FND_FILE.LOG, var_buf);
253: var_buf := 'Owning org : '||arg_org_id;
254: fnd_file.put_line(FND_FILE.LOG, var_buf);
255: var_buf := 'Plan : '||arg_plan_name;
256: fnd_file.put_line(FND_FILE.LOG, var_buf);
250: fnd_file.put_line(FND_FILE.LOG, var_buf);
251: var_buf := 'User ID : '||var_user_id;
252: fnd_file.put_line(FND_FILE.LOG, var_buf);
253: var_buf := 'Owning org : '||arg_org_id;
254: fnd_file.put_line(FND_FILE.LOG, var_buf);
255: var_buf := 'Plan : '||arg_plan_name;
256: fnd_file.put_line(FND_FILE.LOG, var_buf);
257: var_buf := 'Plan type : '||var_plan_type;
258: fnd_file.put_line(FND_FILE.LOG, var_buf);
252: fnd_file.put_line(FND_FILE.LOG, var_buf);
253: var_buf := 'Owning org : '||arg_org_id;
254: fnd_file.put_line(FND_FILE.LOG, var_buf);
255: var_buf := 'Plan : '||arg_plan_name;
256: fnd_file.put_line(FND_FILE.LOG, var_buf);
257: var_buf := 'Plan type : '||var_plan_type;
258: fnd_file.put_line(FND_FILE.LOG, var_buf);
259: var_buf := 'Use start date : '||arg_use_start_date;
260: fnd_file.put_line(FND_FILE.LOG, var_buf);
254: fnd_file.put_line(FND_FILE.LOG, var_buf);
255: var_buf := 'Plan : '||arg_plan_name;
256: fnd_file.put_line(FND_FILE.LOG, var_buf);
257: var_buf := 'Plan type : '||var_plan_type;
258: fnd_file.put_line(FND_FILE.LOG, var_buf);
259: var_buf := 'Use start date : '||arg_use_start_date;
260: fnd_file.put_line(FND_FILE.LOG, var_buf);
261: var_buf := 'Start date : '||var_start_date;
262: fnd_file.put_line(FND_FILE.LOG, var_buf);
256: fnd_file.put_line(FND_FILE.LOG, var_buf);
257: var_buf := 'Plan type : '||var_plan_type;
258: fnd_file.put_line(FND_FILE.LOG, var_buf);
259: var_buf := 'Use start date : '||arg_use_start_date;
260: fnd_file.put_line(FND_FILE.LOG, var_buf);
261: var_buf := 'Start date : '||var_start_date;
262: fnd_file.put_line(FND_FILE.LOG, var_buf);
263: var_buf := 'WIP default job prefix : '||var_default_job_prefix;
264: fnd_file.put_line(FND_FILE.LOG, var_buf);
258: fnd_file.put_line(FND_FILE.LOG, var_buf);
259: var_buf := 'Use start date : '||arg_use_start_date;
260: fnd_file.put_line(FND_FILE.LOG, var_buf);
261: var_buf := 'Start date : '||var_start_date;
262: fnd_file.put_line(FND_FILE.LOG, var_buf);
263: var_buf := 'WIP default job prefix : '||var_default_job_prefix;
264: fnd_file.put_line(FND_FILE.LOG, var_buf);
265: var_buf := 'WIP group ID : '||var_wip_group_id;
266: fnd_file.put_line(FND_FILE.LOG, var_buf);
260: fnd_file.put_line(FND_FILE.LOG, var_buf);
261: var_buf := 'Start date : '||var_start_date;
262: fnd_file.put_line(FND_FILE.LOG, var_buf);
263: var_buf := 'WIP default job prefix : '||var_default_job_prefix;
264: fnd_file.put_line(FND_FILE.LOG, var_buf);
265: var_buf := 'WIP group ID : '||var_wip_group_id;
266: fnd_file.put_line(FND_FILE.LOG, var_buf);
267: var_buf := 'PO group by : '||var_po_group_by;
268: fnd_file.put_line(FND_FILE.LOG, var_buf);
262: fnd_file.put_line(FND_FILE.LOG, var_buf);
263: var_buf := 'WIP default job prefix : '||var_default_job_prefix;
264: fnd_file.put_line(FND_FILE.LOG, var_buf);
265: var_buf := 'WIP group ID : '||var_wip_group_id;
266: fnd_file.put_line(FND_FILE.LOG, var_buf);
267: var_buf := 'PO group by : '||var_po_group_by;
268: fnd_file.put_line(FND_FILE.LOG, var_buf);
269: var_buf := 'PO batch number : '||var_po_batch_number;
270: fnd_file.put_line(FND_FILE.LOG, var_buf);
264: fnd_file.put_line(FND_FILE.LOG, var_buf);
265: var_buf := 'WIP group ID : '||var_wip_group_id;
266: fnd_file.put_line(FND_FILE.LOG, var_buf);
267: var_buf := 'PO group by : '||var_po_group_by;
268: fnd_file.put_line(FND_FILE.LOG, var_buf);
269: var_buf := 'PO batch number : '||var_po_batch_number;
270: fnd_file.put_line(FND_FILE.LOG, var_buf);
271: var_buf := 'Demand Class : '||var_demand_class;
272: fnd_file.put_line(FND_FILE.LOG, var_buf);
266: fnd_file.put_line(FND_FILE.LOG, var_buf);
267: var_buf := 'PO group by : '||var_po_group_by;
268: fnd_file.put_line(FND_FILE.LOG, var_buf);
269: var_buf := 'PO batch number : '||var_po_batch_number;
270: fnd_file.put_line(FND_FILE.LOG, var_buf);
271: var_buf := 'Demand Class : '||var_demand_class;
272: fnd_file.put_line(FND_FILE.LOG, var_buf);
273: END IF;
274:
268: fnd_file.put_line(FND_FILE.LOG, var_buf);
269: var_buf := 'PO batch number : '||var_po_batch_number;
270: fnd_file.put_line(FND_FILE.LOG, var_buf);
271: var_buf := 'Demand Class : '||var_demand_class;
272: fnd_file.put_line(FND_FILE.LOG, var_buf);
273: END IF;
274:
275: -- ------------------------------------------------------------------------
276: -- Get planned orders that meet the auto-release criteria
311: WHEN NO_DATA_FOUND THEN
312: var_wip_class_code := NULL;
313: WHEN OTHERS THEN
314: var_buf := var_entity||': '||sqlerrm;
315: fnd_file.put_line(FND_FILE.LOG, var_buf);
316:
317: ROLLBACK;
318: retcode := 2;
319: errbuf := var_buf;
334: WHEN NO_DATA_FOUND THEN
335: var_location_id := NULL;
336: WHEN OTHERS THEN
337: var_buf := var_entity||': '||sqlerrm;
338: fnd_file.put_line(FND_FILE.LOG, var_buf);
339:
340: ROLLBACK;
341: retcode := 2;
342: errbuf := var_buf;
344: END;
345:
346: IF var_debug THEN
347: var_buf := '=================';
348: fnd_file.put_line(FND_FILE.LOG, var_buf);
349: var_buf := 'Organization ID : '||var_org_id;
350: fnd_file.put_line(FND_FILE.LOG, var_buf);
351: var_buf := 'Location ID : '||var_location_id;
352: fnd_file.put_line(FND_FILE.LOG, var_buf);
346: IF var_debug THEN
347: var_buf := '=================';
348: fnd_file.put_line(FND_FILE.LOG, var_buf);
349: var_buf := 'Organization ID : '||var_org_id;
350: fnd_file.put_line(FND_FILE.LOG, var_buf);
351: var_buf := 'Location ID : '||var_location_id;
352: fnd_file.put_line(FND_FILE.LOG, var_buf);
353: END IF;
354: END IF; /* Org ID */
348: fnd_file.put_line(FND_FILE.LOG, var_buf);
349: var_buf := 'Organization ID : '||var_org_id;
350: fnd_file.put_line(FND_FILE.LOG, var_buf);
351: var_buf := 'Location ID : '||var_location_id;
352: fnd_file.put_line(FND_FILE.LOG, var_buf);
353: END IF;
354: END IF; /* Org ID */
355:
356: -- ----------------------------------------------------------------------
384: WHEN NO_DATA_FOUND THEN
385: var_wip_class_code := NULL;
386: WHEN OTHERS THEN
387: var_buf := var_entity||': '||sqlerrm;
388: fnd_file.put_line(FND_FILE.LOG, var_buf);
389:
390: ROLLBACK;
391: retcode := 2;
392: errbuf := var_buf;
426: END IF;
427:
428: IF var_debug THEN
429: var_buf := '----------------- ';
430: fnd_file.put_line(FND_FILE.LOG, var_buf);
431: var_buf := 'Item ID : '||var_inventory_item_id;
432: fnd_file.put_line(FND_FILE.LOG, var_buf);
433: var_buf := 'Item Make/Buy : '||var_make_buy_code;
434: fnd_file.put_line(FND_FILE.LOG, var_buf);
428: IF var_debug THEN
429: var_buf := '----------------- ';
430: fnd_file.put_line(FND_FILE.LOG, var_buf);
431: var_buf := 'Item ID : '||var_inventory_item_id;
432: fnd_file.put_line(FND_FILE.LOG, var_buf);
433: var_buf := 'Item Make/Buy : '||var_make_buy_code;
434: fnd_file.put_line(FND_FILE.LOG, var_buf);
435: var_buf := 'WIP class code : '||var_wip_class_code;
436: fnd_file.put_line(FND_FILE.LOG, var_buf);
430: fnd_file.put_line(FND_FILE.LOG, var_buf);
431: var_buf := 'Item ID : '||var_inventory_item_id;
432: fnd_file.put_line(FND_FILE.LOG, var_buf);
433: var_buf := 'Item Make/Buy : '||var_make_buy_code;
434: fnd_file.put_line(FND_FILE.LOG, var_buf);
435: var_buf := 'WIP class code : '||var_wip_class_code;
436: fnd_file.put_line(FND_FILE.LOG, var_buf);
437: var_buf := 'Date : '||var_new_schedule_date;
438: fnd_file.put_line(FND_FILE.LOG, var_buf);
432: fnd_file.put_line(FND_FILE.LOG, var_buf);
433: var_buf := 'Item Make/Buy : '||var_make_buy_code;
434: fnd_file.put_line(FND_FILE.LOG, var_buf);
435: var_buf := 'WIP class code : '||var_wip_class_code;
436: fnd_file.put_line(FND_FILE.LOG, var_buf);
437: var_buf := 'Date : '||var_new_schedule_date;
438: fnd_file.put_line(FND_FILE.LOG, var_buf);
439: var_buf := 'Quantity : '||var_new_order_quantity;
440: fnd_file.put_line(FND_FILE.LOG, var_buf);
434: fnd_file.put_line(FND_FILE.LOG, var_buf);
435: var_buf := 'WIP class code : '||var_wip_class_code;
436: fnd_file.put_line(FND_FILE.LOG, var_buf);
437: var_buf := 'Date : '||var_new_schedule_date;
438: fnd_file.put_line(FND_FILE.LOG, var_buf);
439: var_buf := 'Quantity : '||var_new_order_quantity;
440: fnd_file.put_line(FND_FILE.LOG, var_buf);
441: var_buf := 'Planner emp ID : '||var_planner_employee_id;
442: fnd_file.put_line(FND_FILE.LOG, var_buf);
436: fnd_file.put_line(FND_FILE.LOG, var_buf);
437: var_buf := 'Date : '||var_new_schedule_date;
438: fnd_file.put_line(FND_FILE.LOG, var_buf);
439: var_buf := 'Quantity : '||var_new_order_quantity;
440: fnd_file.put_line(FND_FILE.LOG, var_buf);
441: var_buf := 'Planner emp ID : '||var_planner_employee_id;
442: fnd_file.put_line(FND_FILE.LOG, var_buf);
443: var_buf := 'WIP job status : '||var_impl_status_code;
444: fnd_file.put_line(FND_FILE.LOG, var_buf);
438: fnd_file.put_line(FND_FILE.LOG, var_buf);
439: var_buf := 'Quantity : '||var_new_order_quantity;
440: fnd_file.put_line(FND_FILE.LOG, var_buf);
441: var_buf := 'Planner emp ID : '||var_planner_employee_id;
442: fnd_file.put_line(FND_FILE.LOG, var_buf);
443: var_buf := 'WIP job status : '||var_impl_status_code;
444: fnd_file.put_line(FND_FILE.LOG, var_buf);
445: var_buf := 'WIP job prefix : '||var_job_prefix;
446: fnd_file.put_line(FND_FILE.LOG, var_buf);
440: fnd_file.put_line(FND_FILE.LOG, var_buf);
441: var_buf := 'Planner emp ID : '||var_planner_employee_id;
442: fnd_file.put_line(FND_FILE.LOG, var_buf);
443: var_buf := 'WIP job status : '||var_impl_status_code;
444: fnd_file.put_line(FND_FILE.LOG, var_buf);
445: var_buf := 'WIP job prefix : '||var_job_prefix;
446: fnd_file.put_line(FND_FILE.LOG, var_buf);
447: END IF;
448:
442: fnd_file.put_line(FND_FILE.LOG, var_buf);
443: var_buf := 'WIP job status : '||var_impl_status_code;
444: fnd_file.put_line(FND_FILE.LOG, var_buf);
445: var_buf := 'WIP job prefix : '||var_job_prefix;
446: fnd_file.put_line(FND_FILE.LOG, var_buf);
447: END IF;
448:
449: -- --------------------------------------------------------------------
450: -- Update WIP Jobs planned orders
487: WHERE emp.employee_id = NVL(var_planner_employee_id, NULL_VALUE);
488:
489: IF var_debug THEN
490: var_buf := '----------------- ';
491: fnd_file.put_line(FND_FILE.LOG, var_buf);
492: var_buf := 'Item ID : '||var_inventory_item_id;
493: fnd_file.put_line(FND_FILE.LOG, var_buf);
494: var_buf := 'Item Make/Buy : '||var_make_buy_code;
495: fnd_file.put_line(FND_FILE.LOG, var_buf);
489: IF var_debug THEN
490: var_buf := '----------------- ';
491: fnd_file.put_line(FND_FILE.LOG, var_buf);
492: var_buf := 'Item ID : '||var_inventory_item_id;
493: fnd_file.put_line(FND_FILE.LOG, var_buf);
494: var_buf := 'Item Make/Buy : '||var_make_buy_code;
495: fnd_file.put_line(FND_FILE.LOG, var_buf);
496: var_buf := 'Date : '||var_new_schedule_date;
497: fnd_file.put_line(FND_FILE.LOG, var_buf);
491: fnd_file.put_line(FND_FILE.LOG, var_buf);
492: var_buf := 'Item ID : '||var_inventory_item_id;
493: fnd_file.put_line(FND_FILE.LOG, var_buf);
494: var_buf := 'Item Make/Buy : '||var_make_buy_code;
495: fnd_file.put_line(FND_FILE.LOG, var_buf);
496: var_buf := 'Date : '||var_new_schedule_date;
497: fnd_file.put_line(FND_FILE.LOG, var_buf);
498: var_buf := 'Quantity : '||var_new_order_quantity;
499: fnd_file.put_line(FND_FILE.LOG, var_buf);
493: fnd_file.put_line(FND_FILE.LOG, var_buf);
494: var_buf := 'Item Make/Buy : '||var_make_buy_code;
495: fnd_file.put_line(FND_FILE.LOG, var_buf);
496: var_buf := 'Date : '||var_new_schedule_date;
497: fnd_file.put_line(FND_FILE.LOG, var_buf);
498: var_buf := 'Quantity : '||var_new_order_quantity;
499: fnd_file.put_line(FND_FILE.LOG, var_buf);
500: var_buf := 'Planner emp ID : '||var_planner_employee_id;
501: fnd_file.put_line(FND_FILE.LOG, var_buf);
495: fnd_file.put_line(FND_FILE.LOG, var_buf);
496: var_buf := 'Date : '||var_new_schedule_date;
497: fnd_file.put_line(FND_FILE.LOG, var_buf);
498: var_buf := 'Quantity : '||var_new_order_quantity;
499: fnd_file.put_line(FND_FILE.LOG, var_buf);
500: var_buf := 'Planner emp ID : '||var_planner_employee_id;
501: fnd_file.put_line(FND_FILE.LOG, var_buf);
502: var_buf := 'Active employee : '||var_count;
503: fnd_file.put_line(FND_FILE.LOG, var_buf);
497: fnd_file.put_line(FND_FILE.LOG, var_buf);
498: var_buf := 'Quantity : '||var_new_order_quantity;
499: fnd_file.put_line(FND_FILE.LOG, var_buf);
500: var_buf := 'Planner emp ID : '||var_planner_employee_id;
501: fnd_file.put_line(FND_FILE.LOG, var_buf);
502: var_buf := 'Active employee : '||var_count;
503: fnd_file.put_line(FND_FILE.LOG, var_buf);
504: END IF;
505:
499: fnd_file.put_line(FND_FILE.LOG, var_buf);
500: var_buf := 'Planner emp ID : '||var_planner_employee_id;
501: fnd_file.put_line(FND_FILE.LOG, var_buf);
502: var_buf := 'Active employee : '||var_count;
503: fnd_file.put_line(FND_FILE.LOG, var_buf);
504: END IF;
505:
506: IF (var_count = 0) THEN
507:
520: AND msik.inventory_item_id = mr.inventory_item_id
521: AND param.organization_id = mr.organization_id;
522:
523: var_buf := '................. ';
524: fnd_file.put_line(FND_FILE.LOG, var_buf);
525:
526: fnd_message.set_name('MRP', 'MRP_UNRELEASED_ORDER1');
527: var_buf := fnd_message.get;
528: fnd_file.put_line(FND_FILE.LOG, var_buf);
524: fnd_file.put_line(FND_FILE.LOG, var_buf);
525:
526: fnd_message.set_name('MRP', 'MRP_UNRELEASED_ORDER1');
527: var_buf := fnd_message.get;
528: fnd_file.put_line(FND_FILE.LOG, var_buf);
529:
530: fnd_message.set_name('MRP', 'MRP_UNRELEASED_ORDER2');
531: fnd_message.set_token('PLANNER_VALUE', var_planner_code);
532: fnd_message.set_token('ORG_VALUE', var_org_code);
533: fnd_message.set_token('ITEM_VALUE', var_item);
534: fnd_message.set_token('DATE_VALUE', to_char(var_new_schedule_date));
535: fnd_message.set_token('QTY_VALUE', to_char(var_new_order_quantity));
536: var_buf := fnd_message.get;
537: fnd_file.put_line(FND_FILE.LOG, var_buf);
538:
539: ELSE
540:
541: -- ------------------------------------------------------------------
589: var_resched_jobs, var_resched_reqs, var_wip_req_id,
590: var_req_load_id, var_req_resched_id);
591:
592: var_buf := '+++++++++++++++++ ';
593: fnd_file.put_line(FND_FILE.LOG, var_buf);
594:
595: fnd_message.set_name('MRP', 'LOADED_WIP');
596: fnd_message.set_token('VALUE', to_char(var_loaded_jobs));
597: var_buf := fnd_message.get;
594:
595: fnd_message.set_name('MRP', 'LOADED_WIP');
596: fnd_message.set_token('VALUE', to_char(var_loaded_jobs));
597: var_buf := fnd_message.get;
598: fnd_file.put_line(FND_FILE.LOG, var_buf);
599:
600: fnd_message.set_name('MRP', 'LOADED_PO');
601: fnd_message.set_token('VALUE', to_char(var_loaded_reqs));
602: var_buf := fnd_message.get;
599:
600: fnd_message.set_name('MRP', 'LOADED_PO');
601: fnd_message.set_token('VALUE', to_char(var_loaded_reqs));
602: var_buf := fnd_message.get;
603: fnd_file.put_line(FND_FILE.LOG, var_buf);
604:
605: fnd_message.set_name('MRP', 'LOAD_WIP_REQUEST_ID');
606: fnd_message.set_token('VALUE', to_char(var_wip_req_id));
607: var_buf := fnd_message.get;
604:
605: fnd_message.set_name('MRP', 'LOAD_WIP_REQUEST_ID');
606: fnd_message.set_token('VALUE', to_char(var_wip_req_id));
607: var_buf := fnd_message.get;
608: fnd_file.put_line(FND_FILE.LOG, var_buf);
609:
610: fnd_message.set_name('MRP', 'LOAD_PO_REQUEST_ID');
611: fnd_message.set_token('VALUE', to_char(var_req_load_id));
612: var_buf := fnd_message.get;
609:
610: fnd_message.set_name('MRP', 'LOAD_PO_REQUEST_ID');
611: fnd_message.set_token('VALUE', to_char(var_req_load_id));
612: var_buf := fnd_message.get;
613: fnd_file.put_line(FND_FILE.LOG, var_buf);
614:
615: IF ((var_loaded_jobs > 0) AND (var_wip_req_id = 0)) THEN
616: fnd_file.new_line(FND_FILE.LOG, 1);
617: fnd_message.set_name('MRP', 'CANNOT SUBMIT REQUEST-JOBS');
612: var_buf := fnd_message.get;
613: fnd_file.put_line(FND_FILE.LOG, var_buf);
614:
615: IF ((var_loaded_jobs > 0) AND (var_wip_req_id = 0)) THEN
616: fnd_file.new_line(FND_FILE.LOG, 1);
617: fnd_message.set_name('MRP', 'CANNOT SUBMIT REQUEST-JOBS');
618: var_buf := fnd_message.get;
619: fnd_file.put_line(FND_FILE.LOG, var_buf);
620:
615: IF ((var_loaded_jobs > 0) AND (var_wip_req_id = 0)) THEN
616: fnd_file.new_line(FND_FILE.LOG, 1);
617: fnd_message.set_name('MRP', 'CANNOT SUBMIT REQUEST-JOBS');
618: var_buf := fnd_message.get;
619: fnd_file.put_line(FND_FILE.LOG, var_buf);
620:
621: retcode := 2;
622: errbuf := var_buf;
623: END IF;
622: errbuf := var_buf;
623: END IF;
624:
625: IF ((var_loaded_reqs > 0) AND (var_req_load_id = 0)) THEN
626: fnd_file.new_line(FND_FILE.LOG, 1);
627: fnd_message.set_name('MRP', 'CANNOT SUBMIT REQUEST-REQS');
628: var_buf := fnd_message.get;
629: fnd_file.put_line(FND_FILE.LOG, var_buf);
630:
625: IF ((var_loaded_reqs > 0) AND (var_req_load_id = 0)) THEN
626: fnd_file.new_line(FND_FILE.LOG, 1);
627: fnd_message.set_name('MRP', 'CANNOT SUBMIT REQUEST-REQS');
628: var_buf := fnd_message.get;
629: fnd_file.put_line(FND_FILE.LOG, var_buf);
630:
631: retcode := 2;
632: errbuf := var_buf;
633: END IF;
636:
637: EXCEPTION
638: WHEN OTHERS THEN
639: var_buf := var_entity||': '||sqlerrm;
640: fnd_file.put_line(FND_FILE.LOG, var_buf);
641:
642: ROLLBACK;
643: retcode := 2;
644: errbuf := var_buf;