[Home] [Help]
206: ) IS
207: BEGIN
208:
209: IF PG_DEBUG in ('Y', 'C') THEN
210: msc_util.msc_log ('*****--- Update_Summary_Flag ---*****');
211: msc_util.msc_log (' Plan ID : '|| p_plan_id || ' Status : ' || p_status);
212: END IF;
213:
214: x_return_status := FND_API.G_RET_STS_SUCCESS;
207: BEGIN
208:
209: IF PG_DEBUG in ('Y', 'C') THEN
210: msc_util.msc_log ('*****--- Update_Summary_Flag ---*****');
211: msc_util.msc_log (' Plan ID : '|| p_plan_id || ' Status : ' || p_status);
212: END IF;
213:
214: x_return_status := FND_API.G_RET_STS_SUCCESS;
215:
219:
220: EXCEPTION
221: WHEN OTHERS THEN
222: IF PG_DEBUG in ('Y', 'C') THEN
223: msc_util.msc_log ('Cannot Update. Error : ' || sqlerrm);
224: END IF;
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
226:
227: END Update_Summary_Flag;
234: )
235: IS
236: BEGIN
237: IF PG_DEBUG in ('Y', 'C') THEN
238: msc_util.msc_log('***** Begin Extend_Atp_Peg Procedure *****');
239: msc_util.msc_log ('p_index : ' || p_index);
240: END IF;
241:
242: x_return_status := FND_API.G_RET_STS_SUCCESS;
235: IS
236: BEGIN
237: IF PG_DEBUG in ('Y', 'C') THEN
238: msc_util.msc_log('***** Begin Extend_Atp_Peg Procedure *****');
239: msc_util.msc_log ('p_index : ' || p_index);
240: END IF;
241:
242: x_return_status := FND_API.G_RET_STS_SUCCESS;
243:
293: atp_peg_tab.exclude_flag.Extend(p_index);
294: -- End Bug 3805136
295:
296: IF PG_DEBUG in ('Y', 'C') THEN
297: msc_util.msc_log('***** End Extend_Atp_Peg Procedure *****');
298: END IF;
299: EXCEPTION
300: WHEN OTHERS THEN
301: IF PG_DEBUG in ('Y', 'C') THEN
298: END IF;
299: EXCEPTION
300: WHEN OTHERS THEN
301: IF PG_DEBUG in ('Y', 'C') THEN
302: msc_util.msc_log ('Extend_Atp_Peg: Problems in Extending record ERROR:'|| sqlerrm);
303: END IF;
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
305:
306: END Extend_Atp_Peg;
311: )
312: IS
313: BEGIN
314: IF PG_DEBUG in ('Y', 'C') THEN
315: msc_util.msc_log('***** Begin Extend_Atp_Peg Procedure *****');
316: END IF;
317:
318: x_return_status := FND_API.G_RET_STS_SUCCESS;
319:
364: atp_peg_tab.exclude_flag := MRP_ATP_PUB.number_arr();
365: -- End Bug 3805136
366:
367: IF PG_DEBUG in ('Y', 'C') THEN
368: msc_util.msc_log('***** End Init_Atp_Peg Procedure *****');
369: msc_util.msc_log('Init_Atp_Peg Rowcount is ' || atp_peg_tab.reference_item_id.COUNT);
370: END IF;
371: EXCEPTION
372: WHEN OTHERS THEN
365: -- End Bug 3805136
366:
367: IF PG_DEBUG in ('Y', 'C') THEN
368: msc_util.msc_log('***** End Init_Atp_Peg Procedure *****');
369: msc_util.msc_log('Init_Atp_Peg Rowcount is ' || atp_peg_tab.reference_item_id.COUNT);
370: END IF;
371: EXCEPTION
372: WHEN OTHERS THEN
373: IF PG_DEBUG in ('Y', 'C') THEN
370: END IF;
371: EXCEPTION
372: WHEN OTHERS THEN
373: IF PG_DEBUG in ('Y', 'C') THEN
374: msc_util.msc_log ('Init_Atp_Peg: Problems in Extending record ERROR:'|| sqlerrm);
375: END IF;
376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
377:
378: END Init_Atp_Peg;
384: )
385: IS
386: BEGIN
387: IF PG_DEBUG in ('Y', 'C') THEN
388: msc_util.msc_log('***** Begin Extend_Atp_Peg_Det Procedure *****');
389: msc_util.msc_log ('p_index : ' || p_index);
390: END IF;
391:
392: x_return_status := FND_API.G_RET_STS_SUCCESS;
385: IS
386: BEGIN
387: IF PG_DEBUG in ('Y', 'C') THEN
388: msc_util.msc_log('***** Begin Extend_Atp_Peg_Det Procedure *****');
389: msc_util.msc_log ('p_index : ' || p_index);
390: END IF;
391:
392: x_return_status := FND_API.G_RET_STS_SUCCESS;
393:
441: atp_peg_det.atf_date.Extend(p_index);
442: atp_peg_det.product_family_id.Extend(p_index);
443:
444: IF PG_DEBUG in ('Y', 'C') THEN
445: msc_util.msc_log('***** End Extend_Atp_Peg_Det Procedure *****');
446: END IF;
447: EXCEPTION
448: WHEN OTHERS THEN
449: IF PG_DEBUG in ('Y', 'C') THEN
446: END IF;
447: EXCEPTION
448: WHEN OTHERS THEN
449: IF PG_DEBUG in ('Y', 'C') THEN
450: msc_util.msc_log ('Extend_Atp_Peg_Det: Problems in Extending record ERROR:'|| sqlerrm);
451: END IF;
452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
453:
454: END Extend_Atp_Peg_Det;
496: l_proc_supply_flag NUMBER; -- Values 0 False 1 True
497: BEGIN
498:
499: IF PG_DEBUG in ('Y', 'C') THEN
500: msc_util.msc_log('***** Begin Calculate_Relief_Quantities Procedure *****');
501: msc_util.msc_log (' p_pegging_id : '|| p_pegging_id);
502: msc_util.msc_log (' p_fixed_lt : '|| p_fixed_lt);
503: msc_util.msc_log (' p_variable_lt : '|| p_variable_lt);
504: msc_util.msc_log (' p_tot_relief_qty : '|| p_tot_relief_qty);
497: BEGIN
498:
499: IF PG_DEBUG in ('Y', 'C') THEN
500: msc_util.msc_log('***** Begin Calculate_Relief_Quantities Procedure *****');
501: msc_util.msc_log (' p_pegging_id : '|| p_pegging_id);
502: msc_util.msc_log (' p_fixed_lt : '|| p_fixed_lt);
503: msc_util.msc_log (' p_variable_lt : '|| p_variable_lt);
504: msc_util.msc_log (' p_tot_relief_qty : '|| p_tot_relief_qty);
505: msc_util.msc_log (' p_inventory_item_id : '|| p_inventory_item_id);
498:
499: IF PG_DEBUG in ('Y', 'C') THEN
500: msc_util.msc_log('***** Begin Calculate_Relief_Quantities Procedure *****');
501: msc_util.msc_log (' p_pegging_id : '|| p_pegging_id);
502: msc_util.msc_log (' p_fixed_lt : '|| p_fixed_lt);
503: msc_util.msc_log (' p_variable_lt : '|| p_variable_lt);
504: msc_util.msc_log (' p_tot_relief_qty : '|| p_tot_relief_qty);
505: msc_util.msc_log (' p_inventory_item_id : '|| p_inventory_item_id);
506: msc_util.msc_log (' p_end_pegging_id : '|| p_end_pegging_id);
499: IF PG_DEBUG in ('Y', 'C') THEN
500: msc_util.msc_log('***** Begin Calculate_Relief_Quantities Procedure *****');
501: msc_util.msc_log (' p_pegging_id : '|| p_pegging_id);
502: msc_util.msc_log (' p_fixed_lt : '|| p_fixed_lt);
503: msc_util.msc_log (' p_variable_lt : '|| p_variable_lt);
504: msc_util.msc_log (' p_tot_relief_qty : '|| p_tot_relief_qty);
505: msc_util.msc_log (' p_inventory_item_id : '|| p_inventory_item_id);
506: msc_util.msc_log (' p_end_pegging_id : '|| p_end_pegging_id);
507: msc_util.msc_log (' p_supply_id : '|| p_supply_id);
500: msc_util.msc_log('***** Begin Calculate_Relief_Quantities Procedure *****');
501: msc_util.msc_log (' p_pegging_id : '|| p_pegging_id);
502: msc_util.msc_log (' p_fixed_lt : '|| p_fixed_lt);
503: msc_util.msc_log (' p_variable_lt : '|| p_variable_lt);
504: msc_util.msc_log (' p_tot_relief_qty : '|| p_tot_relief_qty);
505: msc_util.msc_log (' p_inventory_item_id : '|| p_inventory_item_id);
506: msc_util.msc_log (' p_end_pegging_id : '|| p_end_pegging_id);
507: msc_util.msc_log (' p_supply_id : '|| p_supply_id);
508: msc_util.msc_log (' Calculate_Relief_Quantities Transaction Date for Config : '
501: msc_util.msc_log (' p_pegging_id : '|| p_pegging_id);
502: msc_util.msc_log (' p_fixed_lt : '|| p_fixed_lt);
503: msc_util.msc_log (' p_variable_lt : '|| p_variable_lt);
504: msc_util.msc_log (' p_tot_relief_qty : '|| p_tot_relief_qty);
505: msc_util.msc_log (' p_inventory_item_id : '|| p_inventory_item_id);
506: msc_util.msc_log (' p_end_pegging_id : '|| p_end_pegging_id);
507: msc_util.msc_log (' p_supply_id : '|| p_supply_id);
508: msc_util.msc_log (' Calculate_Relief_Quantities Transaction Date for Config : '
509: || p_transaction_date);
502: msc_util.msc_log (' p_fixed_lt : '|| p_fixed_lt);
503: msc_util.msc_log (' p_variable_lt : '|| p_variable_lt);
504: msc_util.msc_log (' p_tot_relief_qty : '|| p_tot_relief_qty);
505: msc_util.msc_log (' p_inventory_item_id : '|| p_inventory_item_id);
506: msc_util.msc_log (' p_end_pegging_id : '|| p_end_pegging_id);
507: msc_util.msc_log (' p_supply_id : '|| p_supply_id);
508: msc_util.msc_log (' Calculate_Relief_Quantities Transaction Date for Config : '
509: || p_transaction_date);
510: msc_util.msc_log (' Relief Ratio for this Pegging Path p_peg_relief_ratio: '
503: msc_util.msc_log (' p_variable_lt : '|| p_variable_lt);
504: msc_util.msc_log (' p_tot_relief_qty : '|| p_tot_relief_qty);
505: msc_util.msc_log (' p_inventory_item_id : '|| p_inventory_item_id);
506: msc_util.msc_log (' p_end_pegging_id : '|| p_end_pegging_id);
507: msc_util.msc_log (' p_supply_id : '|| p_supply_id);
508: msc_util.msc_log (' Calculate_Relief_Quantities Transaction Date for Config : '
509: || p_transaction_date);
510: msc_util.msc_log (' Relief Ratio for this Pegging Path p_peg_relief_ratio: '
511: || p_peg_relief_ratio);
504: msc_util.msc_log (' p_tot_relief_qty : '|| p_tot_relief_qty);
505: msc_util.msc_log (' p_inventory_item_id : '|| p_inventory_item_id);
506: msc_util.msc_log (' p_end_pegging_id : '|| p_end_pegging_id);
507: msc_util.msc_log (' p_supply_id : '|| p_supply_id);
508: msc_util.msc_log (' Calculate_Relief_Quantities Transaction Date for Config : '
509: || p_transaction_date);
510: msc_util.msc_log (' Relief Ratio for this Pegging Path p_peg_relief_ratio: '
511: || p_peg_relief_ratio);
512: msc_util.msc_log (' Relief_Qty to Alloc_Qty Ratio for Pegging Path p_peg_alloc_rel_ratio: '
506: msc_util.msc_log (' p_end_pegging_id : '|| p_end_pegging_id);
507: msc_util.msc_log (' p_supply_id : '|| p_supply_id);
508: msc_util.msc_log (' Calculate_Relief_Quantities Transaction Date for Config : '
509: || p_transaction_date);
510: msc_util.msc_log (' Relief Ratio for this Pegging Path p_peg_relief_ratio: '
511: || p_peg_relief_ratio);
512: msc_util.msc_log (' Relief_Qty to Alloc_Qty Ratio for Pegging Path p_peg_alloc_rel_ratio: '
513: || p_peg_alloc_rel_ratio);
514: msc_util.msc_log (' Total Relief_Qty of parent for Pegging Path p_peg_tot_rel_qty: '
508: msc_util.msc_log (' Calculate_Relief_Quantities Transaction Date for Config : '
509: || p_transaction_date);
510: msc_util.msc_log (' Relief Ratio for this Pegging Path p_peg_relief_ratio: '
511: || p_peg_relief_ratio);
512: msc_util.msc_log (' Relief_Qty to Alloc_Qty Ratio for Pegging Path p_peg_alloc_rel_ratio: '
513: || p_peg_alloc_rel_ratio);
514: msc_util.msc_log (' Total Relief_Qty of parent for Pegging Path p_peg_tot_rel_qty: '
515: || p_peg_tot_rel_qty);
516: msc_util.msc_log (' End Item Usage of parent -- p_end_item_usage: '
510: msc_util.msc_log (' Relief Ratio for this Pegging Path p_peg_relief_ratio: '
511: || p_peg_relief_ratio);
512: msc_util.msc_log (' Relief_Qty to Alloc_Qty Ratio for Pegging Path p_peg_alloc_rel_ratio: '
513: || p_peg_alloc_rel_ratio);
514: msc_util.msc_log (' Total Relief_Qty of parent for Pegging Path p_peg_tot_rel_qty: '
515: || p_peg_tot_rel_qty);
516: msc_util.msc_log (' End Item Usage of parent -- p_end_item_usage: '
517: || p_end_item_usage);
518: END IF;
512: msc_util.msc_log (' Relief_Qty to Alloc_Qty Ratio for Pegging Path p_peg_alloc_rel_ratio: '
513: || p_peg_alloc_rel_ratio);
514: msc_util.msc_log (' Total Relief_Qty of parent for Pegging Path p_peg_tot_rel_qty: '
515: || p_peg_tot_rel_qty);
516: msc_util.msc_log (' End Item Usage of parent -- p_end_item_usage: '
517: || p_end_item_usage);
518: END IF;
519:
520: x_return_status := FND_API.G_RET_STS_SUCCESS;
521:
522: l_row_count := x_atp_peg_tab.pegging_id.COUNT;
523:
524: IF PG_DEBUG in ('Y', 'C') THEN
525: msc_util.msc_log (' l_row_count : '|| l_row_count);
526: END IF;
527:
528: FOR i in 1..l_row_count
529: LOOP
547: -- Initilize the remaining relief_qty
548: l_rem_relief_qty := l_tot_relief_qty ;
549:
550: IF PG_DEBUG in ('Y', 'C') THEN
551: msc_util.msc_log (' Pegging Id Match : ' || p_pegging_id);
552: msc_util.msc_log (' l_inventory_item_id : '|| l_inventory_item_id);
553: msc_util.msc_log (' l_tot_relief_qty : '|| l_tot_relief_qty);
554: msc_util.msc_log (' x_atp_peg_tab.consumed_qty(i) : '||
555: x_atp_peg_tab.consumed_qty(i));
548: l_rem_relief_qty := l_tot_relief_qty ;
549:
550: IF PG_DEBUG in ('Y', 'C') THEN
551: msc_util.msc_log (' Pegging Id Match : ' || p_pegging_id);
552: msc_util.msc_log (' l_inventory_item_id : '|| l_inventory_item_id);
553: msc_util.msc_log (' l_tot_relief_qty : '|| l_tot_relief_qty);
554: msc_util.msc_log (' x_atp_peg_tab.consumed_qty(i) : '||
555: x_atp_peg_tab.consumed_qty(i));
556: msc_util.msc_log (' x_atp_peg_tab.allocated_quantity(i) : '||
549:
550: IF PG_DEBUG in ('Y', 'C') THEN
551: msc_util.msc_log (' Pegging Id Match : ' || p_pegging_id);
552: msc_util.msc_log (' l_inventory_item_id : '|| l_inventory_item_id);
553: msc_util.msc_log (' l_tot_relief_qty : '|| l_tot_relief_qty);
554: msc_util.msc_log (' x_atp_peg_tab.consumed_qty(i) : '||
555: x_atp_peg_tab.consumed_qty(i));
556: msc_util.msc_log (' x_atp_peg_tab.allocated_quantity(i) : '||
557: x_atp_peg_tab.allocated_quantity(i));
550: IF PG_DEBUG in ('Y', 'C') THEN
551: msc_util.msc_log (' Pegging Id Match : ' || p_pegging_id);
552: msc_util.msc_log (' l_inventory_item_id : '|| l_inventory_item_id);
553: msc_util.msc_log (' l_tot_relief_qty : '|| l_tot_relief_qty);
554: msc_util.msc_log (' x_atp_peg_tab.consumed_qty(i) : '||
555: x_atp_peg_tab.consumed_qty(i));
556: msc_util.msc_log (' x_atp_peg_tab.allocated_quantity(i) : '||
557: x_atp_peg_tab.allocated_quantity(i));
558: END IF;
552: msc_util.msc_log (' l_inventory_item_id : '|| l_inventory_item_id);
553: msc_util.msc_log (' l_tot_relief_qty : '|| l_tot_relief_qty);
554: msc_util.msc_log (' x_atp_peg_tab.consumed_qty(i) : '||
555: x_atp_peg_tab.consumed_qty(i));
556: msc_util.msc_log (' x_atp_peg_tab.allocated_quantity(i) : '||
557: x_atp_peg_tab.allocated_quantity(i));
558: END IF;
559:
560: IF (x_atp_peg_tab.relief_type(i) = 2 ) THEN
583: -- Update the remaining relief_qty.
584: l_rem_relief_qty := l_tot_relief_qty - l_relief_quantity;
585:
586: IF PG_DEBUG in ('Y', 'C') THEN
587: msc_util.msc_log (' Relief type : '|| x_atp_peg_tab.relief_type(i));
588: msc_util.msc_log (' l_relief_quantity : '|| l_relief_quantity);
589: msc_util.msc_log (' l_rem_relief_qty : '|| l_rem_relief_qty);
590: END IF;
591: ELSIF (NVL(x_atp_peg_tab.prev_pegging_id(i), -1) = p_pegging_id AND
584: l_rem_relief_qty := l_tot_relief_qty - l_relief_quantity;
585:
586: IF PG_DEBUG in ('Y', 'C') THEN
587: msc_util.msc_log (' Relief type : '|| x_atp_peg_tab.relief_type(i));
588: msc_util.msc_log (' l_relief_quantity : '|| l_relief_quantity);
589: msc_util.msc_log (' l_rem_relief_qty : '|| l_rem_relief_qty);
590: END IF;
591: ELSIF (NVL(x_atp_peg_tab.prev_pegging_id(i), -1) = p_pegging_id AND
592: -- Bug 3761805 Honor the End Pegging Path.
585:
586: IF PG_DEBUG in ('Y', 'C') THEN
587: msc_util.msc_log (' Relief type : '|| x_atp_peg_tab.relief_type(i));
588: msc_util.msc_log (' l_relief_quantity : '|| l_relief_quantity);
589: msc_util.msc_log (' l_rem_relief_qty : '|| l_rem_relief_qty);
590: END IF;
591: ELSIF (NVL(x_atp_peg_tab.prev_pegging_id(i), -1) = p_pegging_id AND
592: -- Bug 3761805 Honor the End Pegging Path.
593: x_atp_peg_tab.end_pegging_id(i) = p_end_pegging_id) THEN
646: -- Initialize the proc relief total
647: l_proc_relief_tot := 0;
648:
649: IF PG_DEBUG in ('Y', 'C') THEN
650: msc_util.msc_log (' Previous Pegging_id Match : ' || x_atp_peg_tab.prev_pegging_id(i));
651: msc_util.msc_log (' Pegging_id is : ' || x_atp_peg_tab.pegging_id(i));
652: msc_util.msc_log (' l_inventory_item_id : '|| l_inventory_item_id);
653: msc_util.msc_log (' Total Relief For Item : '|| x_atp_peg_tab.tot_relief_qty(i));
654: msc_util.msc_log (' l_tot_relief_qty : '|| l_tot_relief_qty);
647: l_proc_relief_tot := 0;
648:
649: IF PG_DEBUG in ('Y', 'C') THEN
650: msc_util.msc_log (' Previous Pegging_id Match : ' || x_atp_peg_tab.prev_pegging_id(i));
651: msc_util.msc_log (' Pegging_id is : ' || x_atp_peg_tab.pegging_id(i));
652: msc_util.msc_log (' l_inventory_item_id : '|| l_inventory_item_id);
653: msc_util.msc_log (' Total Relief For Item : '|| x_atp_peg_tab.tot_relief_qty(i));
654: msc_util.msc_log (' l_tot_relief_qty : '|| l_tot_relief_qty);
655: msc_util.msc_log (' l_proc_supply_flag : '|| l_proc_supply_flag);
648:
649: IF PG_DEBUG in ('Y', 'C') THEN
650: msc_util.msc_log (' Previous Pegging_id Match : ' || x_atp_peg_tab.prev_pegging_id(i));
651: msc_util.msc_log (' Pegging_id is : ' || x_atp_peg_tab.pegging_id(i));
652: msc_util.msc_log (' l_inventory_item_id : '|| l_inventory_item_id);
653: msc_util.msc_log (' Total Relief For Item : '|| x_atp_peg_tab.tot_relief_qty(i));
654: msc_util.msc_log (' l_tot_relief_qty : '|| l_tot_relief_qty);
655: msc_util.msc_log (' l_proc_supply_flag : '|| l_proc_supply_flag);
656: msc_util.msc_log (' l_peg_alloc_rel_ratio : '|| l_peg_alloc_rel_ratio);
649: IF PG_DEBUG in ('Y', 'C') THEN
650: msc_util.msc_log (' Previous Pegging_id Match : ' || x_atp_peg_tab.prev_pegging_id(i));
651: msc_util.msc_log (' Pegging_id is : ' || x_atp_peg_tab.pegging_id(i));
652: msc_util.msc_log (' l_inventory_item_id : '|| l_inventory_item_id);
653: msc_util.msc_log (' Total Relief For Item : '|| x_atp_peg_tab.tot_relief_qty(i));
654: msc_util.msc_log (' l_tot_relief_qty : '|| l_tot_relief_qty);
655: msc_util.msc_log (' l_proc_supply_flag : '|| l_proc_supply_flag);
656: msc_util.msc_log (' l_peg_alloc_rel_ratio : '|| l_peg_alloc_rel_ratio);
657: msc_util.msc_log (' Relief_Type : '|| x_atp_peg_tab.relief_type(i) );
650: msc_util.msc_log (' Previous Pegging_id Match : ' || x_atp_peg_tab.prev_pegging_id(i));
651: msc_util.msc_log (' Pegging_id is : ' || x_atp_peg_tab.pegging_id(i));
652: msc_util.msc_log (' l_inventory_item_id : '|| l_inventory_item_id);
653: msc_util.msc_log (' Total Relief For Item : '|| x_atp_peg_tab.tot_relief_qty(i));
654: msc_util.msc_log (' l_tot_relief_qty : '|| l_tot_relief_qty);
655: msc_util.msc_log (' l_proc_supply_flag : '|| l_proc_supply_flag);
656: msc_util.msc_log (' l_peg_alloc_rel_ratio : '|| l_peg_alloc_rel_ratio);
657: msc_util.msc_log (' Relief_Type : '|| x_atp_peg_tab.relief_type(i) );
658: msc_util.msc_log (' Relief_Quantity : '|| x_atp_peg_tab.relief_quantity(i) );
651: msc_util.msc_log (' Pegging_id is : ' || x_atp_peg_tab.pegging_id(i));
652: msc_util.msc_log (' l_inventory_item_id : '|| l_inventory_item_id);
653: msc_util.msc_log (' Total Relief For Item : '|| x_atp_peg_tab.tot_relief_qty(i));
654: msc_util.msc_log (' l_tot_relief_qty : '|| l_tot_relief_qty);
655: msc_util.msc_log (' l_proc_supply_flag : '|| l_proc_supply_flag);
656: msc_util.msc_log (' l_peg_alloc_rel_ratio : '|| l_peg_alloc_rel_ratio);
657: msc_util.msc_log (' Relief_Type : '|| x_atp_peg_tab.relief_type(i) );
658: msc_util.msc_log (' Relief_Quantity : '|| x_atp_peg_tab.relief_quantity(i) );
659: END IF;
652: msc_util.msc_log (' l_inventory_item_id : '|| l_inventory_item_id);
653: msc_util.msc_log (' Total Relief For Item : '|| x_atp_peg_tab.tot_relief_qty(i));
654: msc_util.msc_log (' l_tot_relief_qty : '|| l_tot_relief_qty);
655: msc_util.msc_log (' l_proc_supply_flag : '|| l_proc_supply_flag);
656: msc_util.msc_log (' l_peg_alloc_rel_ratio : '|| l_peg_alloc_rel_ratio);
657: msc_util.msc_log (' Relief_Type : '|| x_atp_peg_tab.relief_type(i) );
658: msc_util.msc_log (' Relief_Quantity : '|| x_atp_peg_tab.relief_quantity(i) );
659: END IF;
660: -- Bug 3701093
653: msc_util.msc_log (' Total Relief For Item : '|| x_atp_peg_tab.tot_relief_qty(i));
654: msc_util.msc_log (' l_tot_relief_qty : '|| l_tot_relief_qty);
655: msc_util.msc_log (' l_proc_supply_flag : '|| l_proc_supply_flag);
656: msc_util.msc_log (' l_peg_alloc_rel_ratio : '|| l_peg_alloc_rel_ratio);
657: msc_util.msc_log (' Relief_Type : '|| x_atp_peg_tab.relief_type(i) );
658: msc_util.msc_log (' Relief_Quantity : '|| x_atp_peg_tab.relief_quantity(i) );
659: END IF;
660: -- Bug 3701093
661: -- If the total relief quantity for the config Item Id is 0
654: msc_util.msc_log (' l_tot_relief_qty : '|| l_tot_relief_qty);
655: msc_util.msc_log (' l_proc_supply_flag : '|| l_proc_supply_flag);
656: msc_util.msc_log (' l_peg_alloc_rel_ratio : '|| l_peg_alloc_rel_ratio);
657: msc_util.msc_log (' Relief_Type : '|| x_atp_peg_tab.relief_type(i) );
658: msc_util.msc_log (' Relief_Quantity : '|| x_atp_peg_tab.relief_quantity(i) );
659: END IF;
660: -- Bug 3701093
661: -- If the total relief quantity for the config Item Id is 0
662: -- then set the relief quantity to 0 for the component.
665: -- Re-set the total relief_quantity as well.
666: -- so that any config item below this level will also not be offset
667: x_atp_peg_tab.tot_relief_qty(i) := 0;
668: IF PG_DEBUG in ('Y', 'C') THEN
669: msc_util.msc_log (' Force set of Relief_Qty : '||
670: x_atp_peg_tab.relief_quantity(i));
671: msc_util.msc_log (' Force Set of Tot Relief_Qty : '||
672: x_atp_peg_tab.tot_relief_qty(i));
673: END IF;
667: x_atp_peg_tab.tot_relief_qty(i) := 0;
668: IF PG_DEBUG in ('Y', 'C') THEN
669: msc_util.msc_log (' Force set of Relief_Qty : '||
670: x_atp_peg_tab.relief_quantity(i));
671: msc_util.msc_log (' Force Set of Tot Relief_Qty : '||
672: x_atp_peg_tab.tot_relief_qty(i));
673: END IF;
674: -- End Bug 3701093 Changed IF to ELSIF below.
675: -- Bug 3761805 Added relief_qty filter for performance.
719: * l_peg_alloc_rel_ratio;
720: END IF;
721: -- End Bug 3805136
722: IF PG_DEBUG in ('Y', 'C') THEN
723: msc_util.msc_log (' x_atp_peg_tab.relief_quantity(j) : '||
724: x_atp_peg_tab.relief_quantity(j));
725: END IF;
726:
727: ELSIF (x_atp_peg_tab.relief_type(i) = 3 ) THEN
750: IF (x_atp_peg_tab.bom_item_type(i) in (1, 2) AND -- Model or OC.
751: x_atp_peg_tab.disposition_id(i) = p_supply_id ) THEN
752: -- Bug 3362558 Also relieve Option Classes
753: IF PG_DEBUG in ('Y', 'C') THEN
754: msc_util.msc_log (' x_atp_peg_tab.consumed_qty(j) : '||
755: x_atp_peg_tab.consumed_qty(j));
756: END IF;
757: -- Bug 3805136 Once the complete offsets have been applied
758: IF ABS(l_tot_relief_qty - l_relief_quantity) < C_ZERO_APPROXIMATOR THEN
804: -- consistent for both +ve and -ve reliefs
805: * (1 + MSC_ATP_PVT.G_MSO_LEAD_TIME_FACTOR));
806:
807: IF PG_DEBUG in ('Y', 'C') THEN
808: msc_util.msc_log (' Calculate_Relief_Quantities Before calc. '
809: || 'Transaction Date for Item: ' || x_atp_peg_tab.transaction_date(j));
810: END IF;
811: x_atp_peg_tab.transaction_date(j) :=
812: MSC_CALENDAR.DATE_OFFSET
816: p_transaction_date, -- Config Item's Transaction Date
817: -1 * l_process_lt); -- negative offset
818:
819: IF PG_DEBUG in ('Y', 'C') THEN
820: msc_util.msc_log('Calculate_Relief_Quantities: '
821: || 'l_mso_lead_time_factor := ' || MSC_ATP_PVT.G_MSO_LEAD_TIME_FACTOR);
822: msc_util.msc_log('Calculate_Relief_Quantities: '
823: || 'Inventory Item Id := ' || x_atp_peg_tab.inventory_item_id(j));
824: msc_util.msc_log('Calculate_Relief_Quantities: '
818:
819: IF PG_DEBUG in ('Y', 'C') THEN
820: msc_util.msc_log('Calculate_Relief_Quantities: '
821: || 'l_mso_lead_time_factor := ' || MSC_ATP_PVT.G_MSO_LEAD_TIME_FACTOR);
822: msc_util.msc_log('Calculate_Relief_Quantities: '
823: || 'Inventory Item Id := ' || x_atp_peg_tab.inventory_item_id(j));
824: msc_util.msc_log('Calculate_Relief_Quantities: '
825: || 'fixed_lt : = ' || x_atp_peg_tab.fixed_lt(j));
826: msc_util.msc_log('Calculate_Relief_Quantities: '
820: msc_util.msc_log('Calculate_Relief_Quantities: '
821: || 'l_mso_lead_time_factor := ' || MSC_ATP_PVT.G_MSO_LEAD_TIME_FACTOR);
822: msc_util.msc_log('Calculate_Relief_Quantities: '
823: || 'Inventory Item Id := ' || x_atp_peg_tab.inventory_item_id(j));
824: msc_util.msc_log('Calculate_Relief_Quantities: '
825: || 'fixed_lt : = ' || x_atp_peg_tab.fixed_lt(j));
826: msc_util.msc_log('Calculate_Relief_Quantities: '
827: || 'variable_lt : = ' || x_atp_peg_tab.variable_lt(j));
828: msc_util.msc_log('Calculate_Relief_Quantities: '
822: msc_util.msc_log('Calculate_Relief_Quantities: '
823: || 'Inventory Item Id := ' || x_atp_peg_tab.inventory_item_id(j));
824: msc_util.msc_log('Calculate_Relief_Quantities: '
825: || 'fixed_lt : = ' || x_atp_peg_tab.fixed_lt(j));
826: msc_util.msc_log('Calculate_Relief_Quantities: '
827: || 'variable_lt : = ' || x_atp_peg_tab.variable_lt(j));
828: msc_util.msc_log('Calculate_Relief_Quantities: '
829: || 'l_process_lt : = ' || l_process_lt);
830: msc_util.msc_log (' Calculate_Relief_Quantities '
824: msc_util.msc_log('Calculate_Relief_Quantities: '
825: || 'fixed_lt : = ' || x_atp_peg_tab.fixed_lt(j));
826: msc_util.msc_log('Calculate_Relief_Quantities: '
827: || 'variable_lt : = ' || x_atp_peg_tab.variable_lt(j));
828: msc_util.msc_log('Calculate_Relief_Quantities: '
829: || 'l_process_lt : = ' || l_process_lt);
830: msc_util.msc_log (' Calculate_Relief_Quantities '
831: || 'Transaction Date for Item: ' || x_atp_peg_tab.transaction_date(j));
832: END IF;
826: msc_util.msc_log('Calculate_Relief_Quantities: '
827: || 'variable_lt : = ' || x_atp_peg_tab.variable_lt(j));
828: msc_util.msc_log('Calculate_Relief_Quantities: '
829: || 'l_process_lt : = ' || l_process_lt);
830: msc_util.msc_log (' Calculate_Relief_Quantities '
831: || 'Transaction Date for Item: ' || x_atp_peg_tab.transaction_date(j));
832: END IF;
833: END IF;
834: -- End Bug 3445664 Fix transaction date calculation
838: -- Update the remaining relief_qty.
839: l_rem_relief_qty := l_tot_relief_qty - l_relief_quantity;
840:
841: IF PG_DEBUG in ('Y', 'C') THEN
842: msc_util.msc_log (' l_relief_quantity : '|| l_relief_quantity);
843: msc_util.msc_log (' l_rem_relief_qty : '|| l_rem_relief_qty);
844: END IF;
845: -- Changed the exit condition to account for relief_ratio.
846: -- Bug 3701093
839: l_rem_relief_qty := l_tot_relief_qty - l_relief_quantity;
840:
841: IF PG_DEBUG in ('Y', 'C') THEN
842: msc_util.msc_log (' l_relief_quantity : '|| l_relief_quantity);
843: msc_util.msc_log (' l_rem_relief_qty : '|| l_rem_relief_qty);
844: END IF;
845: -- Changed the exit condition to account for relief_ratio.
846: -- Bug 3701093
847: -- EXIT WHEN l_tot_relief_qty = l_relief_quantity;
857: x_atp_peg_tab.demand_id(j) = x_atp_peg_tab.demand_id(i) AND
858: x_atp_peg_tab.supply_id(j) = x_atp_peg_tab.supply_id(i) AND
859: x_atp_peg_tab.relief_quantity(j) IS NOT NULL) THEN
860: IF PG_DEBUG in ('Y', 'C') THEN
861: msc_util.msc_log (' l_proc_relief_tot Before : '|| l_proc_relief_tot);
862: msc_util.msc_log (' l_rem_relief_qty Before : '|| l_rem_relief_qty);
863: END IF;
864: -- Update the already processed relief_total.
865: l_proc_relief_tot := l_proc_relief_tot + x_atp_peg_tab.relief_quantity(j);
858: x_atp_peg_tab.supply_id(j) = x_atp_peg_tab.supply_id(i) AND
859: x_atp_peg_tab.relief_quantity(j) IS NOT NULL) THEN
860: IF PG_DEBUG in ('Y', 'C') THEN
861: msc_util.msc_log (' l_proc_relief_tot Before : '|| l_proc_relief_tot);
862: msc_util.msc_log (' l_rem_relief_qty Before : '|| l_rem_relief_qty);
863: END IF;
864: -- Update the already processed relief_total.
865: l_proc_relief_tot := l_proc_relief_tot + x_atp_peg_tab.relief_quantity(j);
866: -- Update the remaining relief_qty.
865: l_proc_relief_tot := l_proc_relief_tot + x_atp_peg_tab.relief_quantity(j);
866: -- Update the remaining relief_qty.
867: l_rem_relief_qty := l_tot_relief_qty - x_atp_peg_tab.relief_quantity(j);
868: IF PG_DEBUG in ('Y', 'C') THEN
869: msc_util.msc_log (' l_proc_relief_tot After : '|| l_proc_relief_tot);
870: msc_util.msc_log (' l_rem_relief_qty After : '|| l_rem_relief_qty);
871: END IF;
872: -- End Bug 3761805
873: END IF;
866: -- Update the remaining relief_qty.
867: l_rem_relief_qty := l_tot_relief_qty - x_atp_peg_tab.relief_quantity(j);
868: IF PG_DEBUG in ('Y', 'C') THEN
869: msc_util.msc_log (' l_proc_relief_tot After : '|| l_proc_relief_tot);
870: msc_util.msc_log (' l_rem_relief_qty After : '|| l_rem_relief_qty);
871: END IF;
872: -- End Bug 3761805
873: END IF;
874:
900: x_atp_peg_tab.relief_quantity(i) := p_tot_relief_qty * l_peg_alloc_rel_ratio;
901: END IF;
902: -- End Bug 3805136
903: IF PG_DEBUG in ('Y', 'C') THEN
904: msc_util.msc_log (' Config Item Forecast consumes Demand');
905: msc_util.msc_log (' x_atp_peg_tab.relief_quantity ' || x_atp_peg_tab.relief_quantity(i));
906: END IF;
907: END IF;
908: -- End Bug 3805136
901: END IF;
902: -- End Bug 3805136
903: IF PG_DEBUG in ('Y', 'C') THEN
904: msc_util.msc_log (' Config Item Forecast consumes Demand');
905: msc_util.msc_log (' x_atp_peg_tab.relief_quantity ' || x_atp_peg_tab.relief_quantity(i));
906: END IF;
907: END IF;
908: -- End Bug 3805136
909:
956: l_peg_relief_ratio := x_atp_peg_tab.relief_quantity(i) / x_atp_peg_tab.tot_relief_qty(i);
957: -- End Bug 3827097
958: END IF;
959: IF PG_DEBUG in ('Y', 'C') THEN
960: msc_util.msc_log (' Calling Calculate_Relief_Quantities again');
961: msc_util.msc_log (' x_atp_peg_tab.consumed_qty ' || x_atp_peg_tab.consumed_qty(i));
962: msc_util.msc_log (' x_atp_peg_tab.relief_quantity ' || x_atp_peg_tab.relief_quantity(i));
963: msc_util.msc_log (' x_atp_peg_tab.tot_relief_quantity ' || x_atp_peg_tab.tot_relief_qty(i));
964: msc_util.msc_log (' x_atp_peg_tab.allocated_quantity ' || x_atp_peg_tab.allocated_quantity(i));
957: -- End Bug 3827097
958: END IF;
959: IF PG_DEBUG in ('Y', 'C') THEN
960: msc_util.msc_log (' Calling Calculate_Relief_Quantities again');
961: msc_util.msc_log (' x_atp_peg_tab.consumed_qty ' || x_atp_peg_tab.consumed_qty(i));
962: msc_util.msc_log (' x_atp_peg_tab.relief_quantity ' || x_atp_peg_tab.relief_quantity(i));
963: msc_util.msc_log (' x_atp_peg_tab.tot_relief_quantity ' || x_atp_peg_tab.tot_relief_qty(i));
964: msc_util.msc_log (' x_atp_peg_tab.allocated_quantity ' || x_atp_peg_tab.allocated_quantity(i));
965: msc_util.msc_log (' x_atp_peg_tab.exclude_flag ' || x_atp_peg_tab.exclude_flag(i));
958: END IF;
959: IF PG_DEBUG in ('Y', 'C') THEN
960: msc_util.msc_log (' Calling Calculate_Relief_Quantities again');
961: msc_util.msc_log (' x_atp_peg_tab.consumed_qty ' || x_atp_peg_tab.consumed_qty(i));
962: msc_util.msc_log (' x_atp_peg_tab.relief_quantity ' || x_atp_peg_tab.relief_quantity(i));
963: msc_util.msc_log (' x_atp_peg_tab.tot_relief_quantity ' || x_atp_peg_tab.tot_relief_qty(i));
964: msc_util.msc_log (' x_atp_peg_tab.allocated_quantity ' || x_atp_peg_tab.allocated_quantity(i));
965: msc_util.msc_log (' x_atp_peg_tab.exclude_flag ' || x_atp_peg_tab.exclude_flag(i));
966: msc_util.msc_log (' l_peg_relief_ratio ' || l_peg_relief_ratio);
959: IF PG_DEBUG in ('Y', 'C') THEN
960: msc_util.msc_log (' Calling Calculate_Relief_Quantities again');
961: msc_util.msc_log (' x_atp_peg_tab.consumed_qty ' || x_atp_peg_tab.consumed_qty(i));
962: msc_util.msc_log (' x_atp_peg_tab.relief_quantity ' || x_atp_peg_tab.relief_quantity(i));
963: msc_util.msc_log (' x_atp_peg_tab.tot_relief_quantity ' || x_atp_peg_tab.tot_relief_qty(i));
964: msc_util.msc_log (' x_atp_peg_tab.allocated_quantity ' || x_atp_peg_tab.allocated_quantity(i));
965: msc_util.msc_log (' x_atp_peg_tab.exclude_flag ' || x_atp_peg_tab.exclude_flag(i));
966: msc_util.msc_log (' l_peg_relief_ratio ' || l_peg_relief_ratio);
967: END IF;
960: msc_util.msc_log (' Calling Calculate_Relief_Quantities again');
961: msc_util.msc_log (' x_atp_peg_tab.consumed_qty ' || x_atp_peg_tab.consumed_qty(i));
962: msc_util.msc_log (' x_atp_peg_tab.relief_quantity ' || x_atp_peg_tab.relief_quantity(i));
963: msc_util.msc_log (' x_atp_peg_tab.tot_relief_quantity ' || x_atp_peg_tab.tot_relief_qty(i));
964: msc_util.msc_log (' x_atp_peg_tab.allocated_quantity ' || x_atp_peg_tab.allocated_quantity(i));
965: msc_util.msc_log (' x_atp_peg_tab.exclude_flag ' || x_atp_peg_tab.exclude_flag(i));
966: msc_util.msc_log (' l_peg_relief_ratio ' || l_peg_relief_ratio);
967: END IF;
968: Calculate_Relief_Quantities(x_atp_peg_tab,
961: msc_util.msc_log (' x_atp_peg_tab.consumed_qty ' || x_atp_peg_tab.consumed_qty(i));
962: msc_util.msc_log (' x_atp_peg_tab.relief_quantity ' || x_atp_peg_tab.relief_quantity(i));
963: msc_util.msc_log (' x_atp_peg_tab.tot_relief_quantity ' || x_atp_peg_tab.tot_relief_qty(i));
964: msc_util.msc_log (' x_atp_peg_tab.allocated_quantity ' || x_atp_peg_tab.allocated_quantity(i));
965: msc_util.msc_log (' x_atp_peg_tab.exclude_flag ' || x_atp_peg_tab.exclude_flag(i));
966: msc_util.msc_log (' l_peg_relief_ratio ' || l_peg_relief_ratio);
967: END IF;
968: Calculate_Relief_Quantities(x_atp_peg_tab,
969: x_atp_peg_tab.pegging_id(i),
962: msc_util.msc_log (' x_atp_peg_tab.relief_quantity ' || x_atp_peg_tab.relief_quantity(i));
963: msc_util.msc_log (' x_atp_peg_tab.tot_relief_quantity ' || x_atp_peg_tab.tot_relief_qty(i));
964: msc_util.msc_log (' x_atp_peg_tab.allocated_quantity ' || x_atp_peg_tab.allocated_quantity(i));
965: msc_util.msc_log (' x_atp_peg_tab.exclude_flag ' || x_atp_peg_tab.exclude_flag(i));
966: msc_util.msc_log (' l_peg_relief_ratio ' || l_peg_relief_ratio);
967: END IF;
968: Calculate_Relief_Quantities(x_atp_peg_tab,
969: x_atp_peg_tab.pegging_id(i),
970: x_atp_peg_tab.fixed_lt(i),
990: -- End Bug 3761805
991: END IF;
992: ELSE
993: IF PG_DEBUG in ('Y', 'C') THEN
994: msc_util.msc_log (' Non Match Item ' || x_atp_peg_tab.inventory_item_id(i) ||
995: ' Pegging ' || x_atp_peg_tab.pegging_id(i) ||
996: ' Prev Pegging ' || x_atp_peg_tab.prev_pegging_id(i));
997: END IF;
998: END IF;
998: END IF;
999: END LOOP;
1000:
1001: IF PG_DEBUG in ('Y', 'C') THEN
1002: msc_util.msc_log (' ***** END Calculate_Relief_Quantities. ***** ');
1003: END IF;
1004: EXCEPTION
1005: WHEN OTHERS THEN
1006: IF PG_DEBUG in ('Y', 'C') THEN
1003: END IF;
1004: EXCEPTION
1005: WHEN OTHERS THEN
1006: IF PG_DEBUG in ('Y', 'C') THEN
1007: msc_util.msc_log ('Calculate_Relief_Quantities. '|| sqlcode || ': ' || sqlerrm);
1008: END IF;
1009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1010:
1011: END Calculate_Relief_Quantities;
1031:
1032: BEGIN
1033:
1034: IF PG_DEBUG in ('Y', 'C') THEN
1035: msc_util.msc_log('***** Begin Generate_Resource_Pegging Procedure *****');
1036: END IF;
1037:
1038: x_return_status := FND_API.G_RET_STS_SUCCESS;
1039:
1196:
1197: EXCEPTION
1198: WHEN OTHERS THEN
1199: IF PG_DEBUG in ('Y', 'C') THEN
1200: msc_util.msc_log ('Generate_Resource_Pegging. Error : ' || sqlerrm);
1201: END IF;
1202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1203:
1204: END Generate_Resource_Pegging ;
1229:
1230: k := p_array_idx; -- assign to a variable for simplicity.
1231:
1232: IF PG_DEBUG in ('Y', 'C') THEN
1233: msc_util.msc_log('***** Begin Get_Forecast_Consumption Procedure *****');
1234: msc_util.msc_log(' Instance Id atp_peg_tab.sr_instance_id(k) : ' ||
1235: atp_peg_tab.sr_instance_id(k) );
1236: msc_util.msc_log(' Plan Id : ' || atp_peg_tab.plan_id(k) );
1237: msc_util.msc_log(' Organization Id : ' || atp_peg_tab.organization_id(k) );
1230: k := p_array_idx; -- assign to a variable for simplicity.
1231:
1232: IF PG_DEBUG in ('Y', 'C') THEN
1233: msc_util.msc_log('***** Begin Get_Forecast_Consumption Procedure *****');
1234: msc_util.msc_log(' Instance Id atp_peg_tab.sr_instance_id(k) : ' ||
1235: atp_peg_tab.sr_instance_id(k) );
1236: msc_util.msc_log(' Plan Id : ' || atp_peg_tab.plan_id(k) );
1237: msc_util.msc_log(' Organization Id : ' || atp_peg_tab.organization_id(k) );
1238: msc_util.msc_log(' Sales Order/Origianl Demand Id : ' ||
1232: IF PG_DEBUG in ('Y', 'C') THEN
1233: msc_util.msc_log('***** Begin Get_Forecast_Consumption Procedure *****');
1234: msc_util.msc_log(' Instance Id atp_peg_tab.sr_instance_id(k) : ' ||
1235: atp_peg_tab.sr_instance_id(k) );
1236: msc_util.msc_log(' Plan Id : ' || atp_peg_tab.plan_id(k) );
1237: msc_util.msc_log(' Organization Id : ' || atp_peg_tab.organization_id(k) );
1238: msc_util.msc_log(' Sales Order/Origianl Demand Id : ' ||
1239: atp_peg_tab.original_demand_id(k) );
1240: msc_util.msc_log(' Parent(Config) Item Id : ' ||
1233: msc_util.msc_log('***** Begin Get_Forecast_Consumption Procedure *****');
1234: msc_util.msc_log(' Instance Id atp_peg_tab.sr_instance_id(k) : ' ||
1235: atp_peg_tab.sr_instance_id(k) );
1236: msc_util.msc_log(' Plan Id : ' || atp_peg_tab.plan_id(k) );
1237: msc_util.msc_log(' Organization Id : ' || atp_peg_tab.organization_id(k) );
1238: msc_util.msc_log(' Sales Order/Origianl Demand Id : ' ||
1239: atp_peg_tab.original_demand_id(k) );
1240: msc_util.msc_log(' Parent(Config) Item Id : ' ||
1241: atp_peg_tab.inventory_item_id(k) );
1234: msc_util.msc_log(' Instance Id atp_peg_tab.sr_instance_id(k) : ' ||
1235: atp_peg_tab.sr_instance_id(k) );
1236: msc_util.msc_log(' Plan Id : ' || atp_peg_tab.plan_id(k) );
1237: msc_util.msc_log(' Organization Id : ' || atp_peg_tab.organization_id(k) );
1238: msc_util.msc_log(' Sales Order/Origianl Demand Id : ' ||
1239: atp_peg_tab.original_demand_id(k) );
1240: msc_util.msc_log(' Parent(Config) Item Id : ' ||
1241: atp_peg_tab.inventory_item_id(k) );
1242: msc_util.msc_log(' Base Model Id : ' || atp_peg_tab.base_item_id(k) );
1236: msc_util.msc_log(' Plan Id : ' || atp_peg_tab.plan_id(k) );
1237: msc_util.msc_log(' Organization Id : ' || atp_peg_tab.organization_id(k) );
1238: msc_util.msc_log(' Sales Order/Origianl Demand Id : ' ||
1239: atp_peg_tab.original_demand_id(k) );
1240: msc_util.msc_log(' Parent(Config) Item Id : ' ||
1241: atp_peg_tab.inventory_item_id(k) );
1242: msc_util.msc_log(' Base Model Id : ' || atp_peg_tab.base_item_id(k) );
1243: END IF;
1244:
1238: msc_util.msc_log(' Sales Order/Origianl Demand Id : ' ||
1239: atp_peg_tab.original_demand_id(k) );
1240: msc_util.msc_log(' Parent(Config) Item Id : ' ||
1241: atp_peg_tab.inventory_item_id(k) );
1242: msc_util.msc_log(' Base Model Id : ' || atp_peg_tab.base_item_id(k) );
1243: END IF;
1244:
1245: x_return_status := FND_API.G_RET_STS_SUCCESS;
1246:
1441: decode(fcst1.inventory_item_id, fcst1.parent_item_id, 0, atp_peg_tab.base_item_id(k), 1, fcst1.inventory_item_id)
1442: ORDER BY decode(fcst1.inventory_item_id, fcst1.parent_item_id, 0, atp_peg_tab.base_item_id(k), 1, fcst1.inventory_item_id);
1443: --End Modified SQL for Bug 6046524
1444: IF PG_DEBUG in ('Y', 'C') THEN
1445: msc_util.msc_log(' Count After Model Overconsumption Check : ' ||
1446: x_fcst_data_tab.inventory_item_id.COUNT);
1447: END IF;
1448:
1449: -- Bug 3701093 pure Config Item consumption data only when Model overconsumption
1499: >= fcst.sales_order_qty
1500: ;
1501:
1502: IF PG_DEBUG in ('Y', 'C') THEN
1503: msc_util.msc_log(' Count After Config Check : ' ||
1504: x_fcst_data_tab.inventory_item_id.COUNT);
1505: msc_util.msc_log(' Allocated Quantity : ' || atp_peg_tab.allocated_quantity(k));
1506: END IF;
1507: -- End Bug 3701093
1501:
1502: IF PG_DEBUG in ('Y', 'C') THEN
1503: msc_util.msc_log(' Count After Config Check : ' ||
1504: x_fcst_data_tab.inventory_item_id.COUNT);
1505: msc_util.msc_log(' Allocated Quantity : ' || atp_peg_tab.allocated_quantity(k));
1506: END IF;
1507: -- End Bug 3701093
1508: END IF;
1509: -- End Bug 3701093
1530: atp_peg_tab.inventory_item_id(k) ) ) THEN
1531: -- The config item or model has been forecast
1532: l_fcst_mod_flag := 1;
1533: IF PG_DEBUG in ('Y', 'C') THEN
1534: msc_util.msc_log('Get_Fcst_Cons: Model or Config in Forecast Data');
1535: msc_util.msc_log('Get_Fcst_Cons: Forecast Inventory_Item_id : '||
1536: x_fcst_data_tab.inventory_item_id(i));
1537: END IF;
1538: END IF;
1531: -- The config item or model has been forecast
1532: l_fcst_mod_flag := 1;
1533: IF PG_DEBUG in ('Y', 'C') THEN
1534: msc_util.msc_log('Get_Fcst_Cons: Model or Config in Forecast Data');
1535: msc_util.msc_log('Get_Fcst_Cons: Forecast Inventory_Item_id : '||
1536: x_fcst_data_tab.inventory_item_id(i));
1537: END IF;
1538: END IF;
1539: END LOOP;
1541: -- End Bug 3417410 Determine if model line is present in data
1542:
1543: IF l_fcst_mod_flag = 0 THEN -- Bug 3417410 If no model line is present in forecast
1544: IF PG_DEBUG in ('Y', 'C') THEN
1545: msc_util.msc_log('Get Data from msc_system_items for base_item_id');
1546: msc_util.msc_log('Provide default values for other forecast fields ');
1547: END IF;
1548: -- Get data from msc_system_items for the base_item_id
1549: -- and provide default values for other forecast related fields.
1542:
1543: IF l_fcst_mod_flag = 0 THEN -- Bug 3417410 If no model line is present in forecast
1544: IF PG_DEBUG in ('Y', 'C') THEN
1545: msc_util.msc_log('Get Data from msc_system_items for base_item_id');
1546: msc_util.msc_log('Provide default values for other forecast fields ');
1547: END IF;
1548: -- Get data from msc_system_items for the base_item_id
1549: -- and provide default values for other forecast related fields.
1550: -- Note Local forecast is assumed as a default.
1603:
1604: l_fcst_cnt := x_fcst_data_tab.inventory_item_id.COUNT;
1605:
1606: IF PG_DEBUG in ('Y', 'C') THEN
1607: msc_util.msc_log('Get_Fcst_Cons-Total Forecasted Items : '|| l_fcst_cnt);
1608: END IF;
1609:
1610: -- Bug 3701093 COUNT > 0 check only, changed from <>
1611: IF l_fcst_data_tab.inventory_item_id.COUNT > 0 THEN
1640: ELSE
1641: -- No data in msc_system_items for the base model
1642: -- Print out a Warning message.
1643: IF PG_DEBUG in ('Y', 'C') THEN
1644: msc_util.msc_log ( 'No plan data for Base Model ' ||
1645: atp_peg_tab.base_item_id(k) );
1646: msc_util.msc_log('Get_Fcst_Cons-No plan data for Base Model : '||
1647: atp_peg_tab.base_item_id(k) );
1648: END IF;
1642: -- Print out a Warning message.
1643: IF PG_DEBUG in ('Y', 'C') THEN
1644: msc_util.msc_log ( 'No plan data for Base Model ' ||
1645: atp_peg_tab.base_item_id(k) );
1646: msc_util.msc_log('Get_Fcst_Cons-No plan data for Base Model : '||
1647: atp_peg_tab.base_item_id(k) );
1648: END IF;
1649: x_fcst_data_tab.plan_id(l_fcst_cnt) := atp_peg_tab.plan_id(k);
1650: x_fcst_data_tab.sr_instance_id(l_fcst_cnt) := atp_peg_tab.sr_instance_id(k);
1684:
1685: EXCEPTION
1686: WHEN OTHERS THEN
1687: IF PG_DEBUG in ('Y', 'C') THEN
1688: msc_util.msc_log ('Get_Forecast_Consumption. Error : ' || sqlerrm);
1689: END IF;
1690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1691:
1692: END Get_Forecast_Consumption;
1702: l_count NUMBER := 0;
1703: BEGIN
1704:
1705: IF PG_DEBUG in ('Y', 'C') THEN
1706: msc_util.msc_log('***** Begin Create_Simple_Pegging Procedure *****');
1707: END IF;
1708:
1709: x_return_status := FND_API.G_RET_STS_SUCCESS;
1710:
1708:
1709: x_return_status := FND_API.G_RET_STS_SUCCESS;
1710:
1711: IF PG_DEBUG in ('Y', 'C') THEN
1712: msc_util.msc_log(' atp_peg_det.reference_item_id.COUNT ' ||
1713: atp_peg_det.reference_item_id.COUNT);
1714: msc_util.msc_log('atp_peg_tab.reference_item_id.COUNT ' ||
1715: atp_peg_tab.reference_item_id.COUNT);
1716: END IF;
1710:
1711: IF PG_DEBUG in ('Y', 'C') THEN
1712: msc_util.msc_log(' atp_peg_det.reference_item_id.COUNT ' ||
1713: atp_peg_det.reference_item_id.COUNT);
1714: msc_util.msc_log('atp_peg_tab.reference_item_id.COUNT ' ||
1715: atp_peg_tab.reference_item_id.COUNT);
1716: END IF;
1717:
1718: l_count := atp_peg_tab.reference_item_id.COUNT;
1721: -- First Call to extend the tables in atp_peg_tab.
1722: Extend_Atp_Peg (atp_peg_tab, l_return_status, 1);
1723:
1724: IF PG_DEBUG in ('Y', 'C') THEN
1725: msc_util.msc_log(' Item Id ' || atp_peg_det.inventory_item_id(n));
1726: msc_util.msc_log(' atp_peg_tab.pegging_id ' ||
1727: atp_peg_det.pegging_id(n));
1728: END IF;
1729: l_count := l_count + 1;
1722: Extend_Atp_Peg (atp_peg_tab, l_return_status, 1);
1723:
1724: IF PG_DEBUG in ('Y', 'C') THEN
1725: msc_util.msc_log(' Item Id ' || atp_peg_det.inventory_item_id(n));
1726: msc_util.msc_log(' atp_peg_tab.pegging_id ' ||
1727: atp_peg_det.pegging_id(n));
1728: END IF;
1729: l_count := l_count + 1;
1730:
1828: atp_peg_tab.allocated_quantity(l_count) := atp_peg_det.allocated_quantity(n);
1829:
1830:
1831: IF PG_DEBUG in ('Y', 'C') THEN
1832: msc_util.msc_log(' atp_peg_tab.allocated_quantity ' ||
1833: atp_peg_det.allocated_quantity(n));
1834: END IF;
1835: -- Determine Relief Type
1836: -- For material supplies the relief type is POs
1836: -- For material supplies the relief type is POs
1837: atp_peg_tab.relief_type(l_count) := 2; -- Relief Type is PO.
1838: END IF;
1839: END LOOP;
1840: msc_util.msc_log(' atp_peg_tab.reference_item_id.COUNT ' ||
1841: atp_peg_tab.reference_item_id.COUNT);
1842: EXCEPTION
1843: WHEN OTHERS THEN
1844: IF PG_DEBUG in ('Y', 'C') THEN
1841: atp_peg_tab.reference_item_id.COUNT);
1842: EXCEPTION
1843: WHEN OTHERS THEN
1844: IF PG_DEBUG in ('Y', 'C') THEN
1845: msc_util.msc_log ('Create_Simple_Pegging. Error : ' || sqlerrm);
1846: END IF;
1847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1848:
1849: END Create_Simple_Pegging;
1868:
1869: BEGIN
1870:
1871: IF PG_DEBUG in ('Y', 'C') THEN
1872: msc_util.msc_log('***** Begin Create_Pre_Allocation_Reliefs Procedure *****');
1873: msc_util.msc_log(' Plan Id : ' || p_plan_id );
1874: msc_util.msc_log(' Insert Table parameter : ' || p_insert_table );
1875: msc_util.msc_log(' User Id Paramenter : ' || p_user_id );
1876: msc_util.msc_log(' Date Parameter : ' || p_sysdate );
1869: BEGIN
1870:
1871: IF PG_DEBUG in ('Y', 'C') THEN
1872: msc_util.msc_log('***** Begin Create_Pre_Allocation_Reliefs Procedure *****');
1873: msc_util.msc_log(' Plan Id : ' || p_plan_id );
1874: msc_util.msc_log(' Insert Table parameter : ' || p_insert_table );
1875: msc_util.msc_log(' User Id Paramenter : ' || p_user_id );
1876: msc_util.msc_log(' Date Parameter : ' || p_sysdate );
1877: END IF;
1870:
1871: IF PG_DEBUG in ('Y', 'C') THEN
1872: msc_util.msc_log('***** Begin Create_Pre_Allocation_Reliefs Procedure *****');
1873: msc_util.msc_log(' Plan Id : ' || p_plan_id );
1874: msc_util.msc_log(' Insert Table parameter : ' || p_insert_table );
1875: msc_util.msc_log(' User Id Paramenter : ' || p_user_id );
1876: msc_util.msc_log(' Date Parameter : ' || p_sysdate );
1877: END IF;
1878:
1871: IF PG_DEBUG in ('Y', 'C') THEN
1872: msc_util.msc_log('***** Begin Create_Pre_Allocation_Reliefs Procedure *****');
1873: msc_util.msc_log(' Plan Id : ' || p_plan_id );
1874: msc_util.msc_log(' Insert Table parameter : ' || p_insert_table );
1875: msc_util.msc_log(' User Id Paramenter : ' || p_user_id );
1876: msc_util.msc_log(' Date Parameter : ' || p_sysdate );
1877: END IF;
1878:
1879: x_return_status := FND_API.G_RET_STS_SUCCESS;
1872: msc_util.msc_log('***** Begin Create_Pre_Allocation_Reliefs Procedure *****');
1873: msc_util.msc_log(' Plan Id : ' || p_plan_id );
1874: msc_util.msc_log(' Insert Table parameter : ' || p_insert_table );
1875: msc_util.msc_log(' User Id Paramenter : ' || p_user_id );
1876: msc_util.msc_log(' Date Parameter : ' || p_sysdate );
1877: END IF;
1878:
1879: x_return_status := FND_API.G_RET_STS_SUCCESS;
1880:
1881: -- Set the relief type for only demands with Allocated ATP on.
1882: l_relief_type := 5;
1883:
1884: IF PG_DEBUG in ('Y', 'C') THEN
1885: msc_util.msc_log(' Inserting Demands');
1886: END IF;
1887:
1888: l_sql_stmt_1 := 'INSERT INTO ' || p_insert_table || -- actually the insert table parameter.
1889: ' (reference_item_id, inventory_item_id, plan_id,
1927: l_def_dmd_class, l_relief_type,
1928: p_user_id, p_sysdate, p_user_id, p_sysdate, p_plan_id;
1929:
1930: IF PG_DEBUG in ('Y', 'C') THEN
1931: msc_util.msc_log('Create_Pre_Allocation_Reliefs: Number of Demand rows inserted '||
1932: SQL%ROWCOUNT);
1933: END IF;
1934:
1935: -- Set the relief type for only supplies with Allocated ATP on.
1935: -- Set the relief type for only supplies with Allocated ATP on.
1936: l_relief_type := 6;
1937:
1938: IF PG_DEBUG in ('Y', 'C') THEN
1939: msc_util.msc_log(' Inserting Supplies');
1940: END IF;
1941:
1942: l_sql_stmt_1 := 'INSERT INTO ' || p_insert_table || -- actually the insert table parameter.
1943: ' (reference_item_id, inventory_item_id, plan_id,
1981: l_def_dmd_class, l_relief_type,
1982: p_user_id, p_sysdate, p_user_id, p_sysdate, p_plan_id;
1983:
1984: IF PG_DEBUG in ('Y', 'C') THEN
1985: msc_util.msc_log('Create_Pre_Allocation_Reliefs: Number of Supply rows inserted '||
1986: SQL%ROWCOUNT);
1987: END IF;
1988:
1989: EXCEPTION
1988:
1989: EXCEPTION
1990: WHEN OTHERS THEN
1991: IF PG_DEBUG in ('Y', 'C') THEN
1992: msc_util.msc_log('Inside main exception of Create_Pre_Allocation_Reliefs');
1993: msc_util.msc_log ('Create_Pre_Allocation_Reliefs. Error : ' || sqlcode || ': '|| sqlerrm);
1994: END IF;
1995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1996:
1989: EXCEPTION
1990: WHEN OTHERS THEN
1991: IF PG_DEBUG in ('Y', 'C') THEN
1992: msc_util.msc_log('Inside main exception of Create_Pre_Allocation_Reliefs');
1993: msc_util.msc_log ('Create_Pre_Allocation_Reliefs. Error : ' || sqlcode || ': '|| sqlerrm);
1994: END IF;
1995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1996:
1997: END Create_Pre_Allocation_Reliefs;
2022: i NUMBER;
2023:
2024: BEGIN
2025: IF PG_DEBUG in ('Y', 'C') THEN
2026: msc_util.msc_log('***** Begin Get_Pegging_Data_Loop (Get_Pegging_Loop) *****');
2027: msc_util.msc_log('Get_Pegging_Loop : p_plan_id ' || p_plan_id);
2028: END IF;
2029:
2030: x_return_status := FND_API.G_RET_STS_SUCCESS;
2023:
2024: BEGIN
2025: IF PG_DEBUG in ('Y', 'C') THEN
2026: msc_util.msc_log('***** Begin Get_Pegging_Data_Loop (Get_Pegging_Loop) *****');
2027: msc_util.msc_log('Get_Pegging_Loop : p_plan_id ' || p_plan_id);
2028: END IF;
2029:
2030: x_return_status := FND_API.G_RET_STS_SUCCESS;
2031:
2042: FROM msc_atp_parameters
2043: WHERE rownum = 1;
2044: EXCEPTION
2045: WHEN others THEN
2046: msc_util.msc_log('Error getting performance param: ' || sqlcode || ': ' || sqlerrm);
2047: l_hash_size := -1;
2048: l_sort_size := -1;
2049: l_parallel_degree := 1;
2050: END;
2049: l_parallel_degree := 1;
2050: END;
2051:
2052: IF PG_DEBUG in ('Y', 'C') THEN
2053: msc_util.msc_log('Hash: ' || l_hash_size || ' Sort: ' || l_sort_size ||
2054: ' Parallel: ' || l_parallel_degree);
2055: END IF;
2056:
2057: IF NVL(l_hash_size, -1) <> -1 THEN
2055: END IF;
2056:
2057: IF NVL(l_hash_size, -1) <> -1 THEN
2058: l_sql_stmt_1 := 'alter session set hash_area_size = ' || to_char(l_hash_size);
2059: msc_util.msc_log('l_sql_stmt : ' || l_sql_stmt_1);
2060: execute immediate l_sql_stmt_1;
2061: END IF;
2062:
2063: IF NVL(l_sort_size, -1) <> -1 THEN
2061: END IF;
2062:
2063: IF NVL(l_sort_size, -1) <> -1 THEN
2064: l_sql_stmt_1 := 'alter session set sort_area_size = ' || to_char(l_sort_size);
2065: msc_util.msc_log('l_sql_stmt : ' || l_sql_stmt_1);
2066: execute immediate l_sql_stmt_1;
2067: END IF;
2068:
2069: -- Now obtain the pegging data into Global Temporary Table in a Loop.
2191: -- End Bug 3717618
2192: ;
2193:
2194: IF PG_DEBUG in ('Y', 'C') THEN
2195: msc_util.msc_log('Gen_Atp_Pegging : Stage 1 ' );
2196: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
2197: END IF;
2198:
2199: -- Update Pegging data with End demand Id. Information
2192: ;
2193:
2194: IF PG_DEBUG in ('Y', 'C') THEN
2195: msc_util.msc_log('Gen_Atp_Pegging : Stage 1 ' );
2196: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
2197: END IF;
2198:
2199: -- Update Pegging data with End demand Id. Information
2200: -- CTO_PF_PRJ changes.
2224: -1) -- CMRO
2225: ;
2226:
2227: IF PG_DEBUG in ('Y', 'C') THEN
2228: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
2229: END IF;
2230:
2231: -- Update Pegging data with demand Information
2232:
2321: -- fetch into l_original_demand_id is not necessary.
2322:
2323:
2324: IF PG_DEBUG in ('Y', 'C') THEN
2325: msc_util.msc_log('Gen_Atp_Pegging : Stage 2 ' );
2326: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
2327: END IF;
2328:
2329:
2322:
2323:
2324: IF PG_DEBUG in ('Y', 'C') THEN
2325: msc_util.msc_log('Gen_Atp_Pegging : Stage 2 ' );
2326: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
2327: END IF;
2328:
2329:
2330: -- Bug 3750638 Initialize the Count of Items to be processed.
2335: -- N levels of Configuration Items.
2336: WHILE l_multi_config_count > 0 LOOP
2337: -- Bug 3750638 Introduce FORALL loop for processing Config Items.
2338: IF PG_DEBUG in ('Y', 'C') THEN
2339: msc_util.msc_log('Gen_Atp_Pegging : Total Config Items ' ||
2340: 'l_multi_config_count ' || l_multi_config_count);
2341: END IF;
2342: FOR n_idx IN 1..l_multi_config_count LOOP
2343: IF PG_DEBUG in ('Y', 'C') THEN
2340: 'l_multi_config_count ' || l_multi_config_count);
2341: END IF;
2342: FOR n_idx IN 1..l_multi_config_count LOOP
2343: IF PG_DEBUG in ('Y', 'C') THEN
2344: msc_util.msc_log('Gen_Atp_Pegging : Config Instance_Id ' ||
2345: L_Config_Sup.SR_INSTANCE_ID(n_idx) );
2346: msc_util.msc_log('Gen_Atp_Pegging : Config Item_Id ' ||
2347: L_Config_Sup.INVENTORY_ITEM_ID(n_idx) );
2348: msc_util.msc_log('Gen_Atp_Pegging : Config Supply_Id ' ||
2342: FOR n_idx IN 1..l_multi_config_count LOOP
2343: IF PG_DEBUG in ('Y', 'C') THEN
2344: msc_util.msc_log('Gen_Atp_Pegging : Config Instance_Id ' ||
2345: L_Config_Sup.SR_INSTANCE_ID(n_idx) );
2346: msc_util.msc_log('Gen_Atp_Pegging : Config Item_Id ' ||
2347: L_Config_Sup.INVENTORY_ITEM_ID(n_idx) );
2348: msc_util.msc_log('Gen_Atp_Pegging : Config Supply_Id ' ||
2349: L_Config_Sup.SUPPLY_ID(n_idx) );
2350: msc_util.msc_log('Gen_Atp_Pegging : Config Base_Item_Id ' ||
2344: msc_util.msc_log('Gen_Atp_Pegging : Config Instance_Id ' ||
2345: L_Config_Sup.SR_INSTANCE_ID(n_idx) );
2346: msc_util.msc_log('Gen_Atp_Pegging : Config Item_Id ' ||
2347: L_Config_Sup.INVENTORY_ITEM_ID(n_idx) );
2348: msc_util.msc_log('Gen_Atp_Pegging : Config Supply_Id ' ||
2349: L_Config_Sup.SUPPLY_ID(n_idx) );
2350: msc_util.msc_log('Gen_Atp_Pegging : Config Base_Item_Id ' ||
2351: L_Config_Sup.BASE_ITEM_ID(n_idx) );
2352: msc_util.msc_log('Gen_Atp_Pegging : Config Pegging_Id ' ||
2346: msc_util.msc_log('Gen_Atp_Pegging : Config Item_Id ' ||
2347: L_Config_Sup.INVENTORY_ITEM_ID(n_idx) );
2348: msc_util.msc_log('Gen_Atp_Pegging : Config Supply_Id ' ||
2349: L_Config_Sup.SUPPLY_ID(n_idx) );
2350: msc_util.msc_log('Gen_Atp_Pegging : Config Base_Item_Id ' ||
2351: L_Config_Sup.BASE_ITEM_ID(n_idx) );
2352: msc_util.msc_log('Gen_Atp_Pegging : Config Pegging_Id ' ||
2353: L_Config_Sup.PEGGING_ID(n_idx) );
2354: msc_util.msc_log('Gen_Atp_Pegging : Config End_Pegging_Id ' ||
2348: msc_util.msc_log('Gen_Atp_Pegging : Config Supply_Id ' ||
2349: L_Config_Sup.SUPPLY_ID(n_idx) );
2350: msc_util.msc_log('Gen_Atp_Pegging : Config Base_Item_Id ' ||
2351: L_Config_Sup.BASE_ITEM_ID(n_idx) );
2352: msc_util.msc_log('Gen_Atp_Pegging : Config Pegging_Id ' ||
2353: L_Config_Sup.PEGGING_ID(n_idx) );
2354: msc_util.msc_log('Gen_Atp_Pegging : Config End_Pegging_Id ' ||
2355: L_Config_Sup.END_PEGGING_ID(n_idx) );
2356: END IF;
2350: msc_util.msc_log('Gen_Atp_Pegging : Config Base_Item_Id ' ||
2351: L_Config_Sup.BASE_ITEM_ID(n_idx) );
2352: msc_util.msc_log('Gen_Atp_Pegging : Config Pegging_Id ' ||
2353: L_Config_Sup.PEGGING_ID(n_idx) );
2354: msc_util.msc_log('Gen_Atp_Pegging : Config End_Pegging_Id ' ||
2355: L_Config_Sup.END_PEGGING_ID(n_idx) );
2356: END IF;
2357: END LOOP;
2358:
2500: ;
2501:
2502: n_row_count := SQL%ROWCOUNT;
2503: IF PG_DEBUG in ('Y', 'C') THEN
2504: msc_util.msc_log('Gen_Atp_Pegging : Transfer of config n_row_count ' || n_row_count);
2505: END IF;
2506: -- Obtain the data for the components of the lower level configuration item(s)
2507: -- in the sales order.
2508: FORALL n_idx IN 1..l_multi_config_count
2669: -- Bug 3750638 Get the total number of records.
2670: n_row_count := SQL%ROWCOUNT;
2671:
2672: IF PG_DEBUG in ('Y', 'C') THEN
2673: msc_util.msc_log('Gen_Atp_Pegging : Stage 3 ' );
2674: msc_util.msc_log('Gen_Atp_Pegging : Components of config n_row_count ' || n_row_count);
2675: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 2 ' || l_timestamp);
2676: END IF;
2677:
2670: n_row_count := SQL%ROWCOUNT;
2671:
2672: IF PG_DEBUG in ('Y', 'C') THEN
2673: msc_util.msc_log('Gen_Atp_Pegging : Stage 3 ' );
2674: msc_util.msc_log('Gen_Atp_Pegging : Components of config n_row_count ' || n_row_count);
2675: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 2 ' || l_timestamp);
2676: END IF;
2677:
2678:
2671:
2672: IF PG_DEBUG in ('Y', 'C') THEN
2673: msc_util.msc_log('Gen_Atp_Pegging : Stage 3 ' );
2674: msc_util.msc_log('Gen_Atp_Pegging : Components of config n_row_count ' || n_row_count);
2675: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 2 ' || l_timestamp);
2676: END IF;
2677:
2678:
2679: -- update the supplies for the new demands
2785: l_multi_config_count := L_Config_Sup.INVENTORY_ITEM_ID.COUNT;
2786: l_config_level := l_config_level + 1;
2787:
2788: IF PG_DEBUG in ('Y', 'C') THEN
2789: msc_util.msc_log('Gen_Atp_Pegging : Stage 4 ' );
2790: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
2791: -- Bug 3750638 Print Out value of variables.
2792: msc_util.msc_log('Gen_Atp_Pegging : l_multi_config_count ' || l_multi_config_count );
2793: msc_util.msc_log('Gen_Atp_Pegging : l_config_level ' || l_config_level );
2786: l_config_level := l_config_level + 1;
2787:
2788: IF PG_DEBUG in ('Y', 'C') THEN
2789: msc_util.msc_log('Gen_Atp_Pegging : Stage 4 ' );
2790: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
2791: -- Bug 3750638 Print Out value of variables.
2792: msc_util.msc_log('Gen_Atp_Pegging : l_multi_config_count ' || l_multi_config_count );
2793: msc_util.msc_log('Gen_Atp_Pegging : l_config_level ' || l_config_level );
2794: END IF;
2788: IF PG_DEBUG in ('Y', 'C') THEN
2789: msc_util.msc_log('Gen_Atp_Pegging : Stage 4 ' );
2790: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
2791: -- Bug 3750638 Print Out value of variables.
2792: msc_util.msc_log('Gen_Atp_Pegging : l_multi_config_count ' || l_multi_config_count );
2793: msc_util.msc_log('Gen_Atp_Pegging : l_config_level ' || l_config_level );
2794: END IF;
2795:
2796: END LOOP;
2789: msc_util.msc_log('Gen_Atp_Pegging : Stage 4 ' );
2790: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
2791: -- Bug 3750638 Print Out value of variables.
2792: msc_util.msc_log('Gen_Atp_Pegging : l_multi_config_count ' || l_multi_config_count );
2793: msc_util.msc_log('Gen_Atp_Pegging : l_config_level ' || l_config_level );
2794: END IF;
2795:
2796: END LOOP;
2797: -- End Bug 3750638
2798:
2799: EXCEPTION
2800: WHEN OTHERS THEN
2801: IF PG_DEBUG in ('Y', 'C') THEN
2802: msc_util.msc_log ('Get_Pegging_Data_Loop. Error : ' || sqlcode || ': ' || sqlerrm);
2803: END IF;
2804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2805:
2806: END Get_Pegging_Data_Loop;
2916:
2917: BEGIN
2918:
2919: IF PG_DEBUG in ('Y', 'C') THEN
2920: msc_util.msc_log('***** Begin Generate_Simplified_Pegging (Gen_Atp_Pegging) *****');
2921: msc_util.msc_log('Gen_Atp_Pegging : p_plan_id ' || p_plan_id);
2922: msc_util.msc_log('Gen_Atp_Pegging : p_share_partition ' || p_share_partition);
2923: msc_util.msc_log('Gen_Atp_Pegging : p_applsys_schema ' || p_applsys_schema);
2924: END IF;
2917: BEGIN
2918:
2919: IF PG_DEBUG in ('Y', 'C') THEN
2920: msc_util.msc_log('***** Begin Generate_Simplified_Pegging (Gen_Atp_Pegging) *****');
2921: msc_util.msc_log('Gen_Atp_Pegging : p_plan_id ' || p_plan_id);
2922: msc_util.msc_log('Gen_Atp_Pegging : p_share_partition ' || p_share_partition);
2923: msc_util.msc_log('Gen_Atp_Pegging : p_applsys_schema ' || p_applsys_schema);
2924: END IF;
2925:
2918:
2919: IF PG_DEBUG in ('Y', 'C') THEN
2920: msc_util.msc_log('***** Begin Generate_Simplified_Pegging (Gen_Atp_Pegging) *****');
2921: msc_util.msc_log('Gen_Atp_Pegging : p_plan_id ' || p_plan_id);
2922: msc_util.msc_log('Gen_Atp_Pegging : p_share_partition ' || p_share_partition);
2923: msc_util.msc_log('Gen_Atp_Pegging : p_applsys_schema ' || p_applsys_schema);
2924: END IF;
2925:
2926: --RETCODE := G_SUCCESS;
2919: IF PG_DEBUG in ('Y', 'C') THEN
2920: msc_util.msc_log('***** Begin Generate_Simplified_Pegging (Gen_Atp_Pegging) *****');
2921: msc_util.msc_log('Gen_Atp_Pegging : p_plan_id ' || p_plan_id);
2922: msc_util.msc_log('Gen_Atp_Pegging : p_share_partition ' || p_share_partition);
2923: msc_util.msc_log('Gen_Atp_Pegging : p_applsys_schema ' || p_applsys_schema);
2924: END IF;
2925:
2926: --RETCODE := G_SUCCESS;
2927:
2950: FROM msc_atp_parameters
2951: WHERE rownum = 1;
2952: EXCEPTION
2953: WHEN others THEN
2954: msc_util.msc_log('Error getting performance param: ' || sqlcode || ': ' || sqlerrm);
2955: l_hash_size := -1;
2956: l_sort_size := -1;
2957: l_parallel_degree := 1;
2958: END;
2957: l_parallel_degree := 1;
2958: END;
2959:
2960: IF PG_DEBUG in ('Y', 'C') THEN
2961: msc_util.msc_log('Hash: ' || l_hash_size || ' Sort: ' || l_sort_size ||
2962: ' Parallel: ' || l_parallel_degree);
2963: END IF;
2964:
2965: IF NVL(l_hash_size, -1) <> -1 THEN
2963: END IF;
2964:
2965: IF NVL(l_hash_size, -1) <> -1 THEN
2966: l_sql_stmt_1 := 'alter session set hash_area_size = ' || to_char(l_hash_size);
2967: msc_util.msc_log('l_sql_stmt : ' || l_sql_stmt_1);
2968: execute immediate l_sql_stmt_1;
2969: END IF;
2970:
2971: IF NVL(l_sort_size, -1) <> -1 THEN
2969: END IF;
2970:
2971: IF NVL(l_sort_size, -1) <> -1 THEN
2972: l_sql_stmt_1 := 'alter session set sort_area_size = ' || to_char(l_sort_size);
2973: msc_util.msc_log('l_sql_stmt : ' || l_sql_stmt_1);
2974: execute immediate l_sql_stmt_1;
2975: END IF;
2976:
2977: -- Second set the table names.
2992: END IF;
2993:
2994: l_partition_name := atp_simple_peg_tab(i)|| '_' || l_plan_id;
2995: IF PG_DEBUG in ('Y', 'C') THEN
2996: msc_util.msc_log('l_partition_name := ' || l_partition_name);
2997: END IF;
2998:
2999: BEGIN
3000: SELECT count(*)
3007: AND table_owner = l_msc_schema;
3008: EXCEPTION
3009: WHEN OTHERS THEN
3010: IF PG_DEBUG in ('Y', 'C') THEN
3011: msc_util.msc_log('Inside Exception');
3012: END IF;
3013: l_count := 0;
3014: END;
3015:
3020: FND_MESSAGE.SET_NAME('MSC', 'MSC_ATP_PLAN_PARTITION_MISSING');
3021: FND_MESSAGE.SET_TOKEN('PLAN_NAME', l_plan_name);
3022: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'MSC_' || atp_simple_peg_tab(i));
3023: IF PG_DEBUG in ('Y', 'C') THEN
3024: msc_util.msc_log(FND_MESSAGE.GET);
3025: END IF;
3026: msc_util.msc_log('MSC_ATP_PLAN_PARTITION_MISSING : Partition ' || l_partition_name || ' NOT FOUND');
3027: -- Find out presence of config items.
3028: SELECT 1
3022: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'MSC_' || atp_simple_peg_tab(i));
3023: IF PG_DEBUG in ('Y', 'C') THEN
3024: msc_util.msc_log(FND_MESSAGE.GET);
3025: END IF;
3026: msc_util.msc_log('MSC_ATP_PLAN_PARTITION_MISSING : Partition ' || l_partition_name || ' NOT FOUND');
3027: -- Find out presence of config items.
3028: SELECT 1
3029: INTO l_count
3030: FROM msc_system_items msi, msc_demands d
3040: AND d.origination_type in (6, 30)
3041: AND ROWNUM = 1 ;
3042:
3043: IF l_count > 0 THEN
3044: msc_util.msc_log('Config Items are present, Partition needs to be created : ERROR.');
3045: RETCODE := G_ERROR;
3046: ELSE
3047: msc_util.msc_log('Config Items are absent, Partition not present flagged as WARNING.');
3048: RETCODE := G_WARNING;
3043: IF l_count > 0 THEN
3044: msc_util.msc_log('Config Items are present, Partition needs to be created : ERROR.');
3045: RETCODE := G_ERROR;
3046: ELSE
3047: msc_util.msc_log('Config Items are absent, Partition not present flagged as WARNING.');
3048: RETCODE := G_WARNING;
3049: END IF;
3050: RETURN;
3051: */
3048: RETCODE := G_WARNING;
3049: END IF;
3050: RETURN;
3051: */
3052: msc_util.msc_log('Partitions are not found in MSC_ATP_PEGGING. Launch request to create partitions');
3053: l_request_id := FND_REQUEST.SUBMIT_REQUEST(
3054: 'MSC',
3055: 'MSCSUPRT',
3056: NULL, -- description
3056: NULL, -- description
3057: NULL, -- start time
3058: FALSE); -- sub request
3059:
3060: msc_util.msc_log('Request to create partition is launched with request id := ' || l_request_id);
3061: commit;
3062:
3063: LOOP
3064: l_call_status:= FND_CONCURRENT.GET_REQUEST_STATUS
3072: l_message);
3073:
3074:
3075: IF (l_call_status=FALSE) THEN
3076: msc_util.msc_log('Error in creating ATP partitions. Please run Create ATP Partitions program
3077: and then run ATP Post Plan Processing Again');
3078: RETCODE := G_ERROR;
3079: RETURN;
3080: END IF;
3078: RETCODE := G_ERROR;
3079: RETURN;
3080: END IF;
3081:
3082: msc_util.msc_log('l_dev_phase := ' || l_dev_phase);
3083:
3084: EXIT WHEN l_dev_phase = 'COMPLETE';
3085:
3086: END LOOP;
3090:
3091: IF p_share_partition = 'Y' THEN
3092:
3093: IF PG_DEBUG in ('Y', 'C') THEN
3094: msc_util.msc_log('before deleting old ATP pegging data');
3095: END IF;
3096:
3097: DELETE MSC_ATP_PEGGING where plan_id = p_plan_id;
3098:
3096:
3097: DELETE MSC_ATP_PEGGING where plan_id = p_plan_id;
3098:
3099: IF PG_DEBUG in ('Y', 'C') THEN
3100: msc_util.msc_log('After deleting old ATP pegging info');
3101: END IF;
3102:
3103: END IF;
3104:
3107: l_temp_table := 'MSC_ATP_PEGGING';
3108: ELSE
3109:
3110: IF PG_DEBUG in ('Y', 'C') THEN
3111: msc_util.msc_log('not a shared plan partition, insert data into temp tables');
3112: END IF;
3113:
3114: l_temp_table := 'MSC_TEMP_ATP_PEGG_'|| to_char(l_plan_id);
3115:
3113:
3114: l_temp_table := 'MSC_TEMP_ATP_PEGG_'|| to_char(l_plan_id);
3115:
3116: IF PG_DEBUG in ('Y', 'C') THEN
3117: msc_util.msc_log('temp table : ' || l_temp_table);
3118: END IF;
3119:
3120: SELECT t.tablespace_name, NVL(i.def_tablespace_name, t.tablespace_name)
3121: INTO l_tbspace, l_ind_tbspace
3128: AND i.table_name (+) = t.table_name
3129: AND rownum = 1;
3130:
3131: IF PG_DEBUG in ('Y', 'C') THEN
3132: msc_util.msc_log('tb space : ' || l_tbspace);
3133: msc_util.msc_log('ind tbspace : ' || l_ind_tbspace);
3134: END IF;
3135:
3136: --6113544
3129: AND rownum = 1;
3130:
3131: IF PG_DEBUG in ('Y', 'C') THEN
3132: msc_util.msc_log('tb space : ' || l_tbspace);
3133: msc_util.msc_log('ind tbspace : ' || l_ind_tbspace);
3134: END IF;
3135:
3136: --6113544
3137: l_insert_stmt := 'CREATE TABLE ' || l_temp_table
3185: --NOLOGGING
3186: PCTFREE 0 STORAGE(INITIAL 40K NEXT 5M PCTINCREASE 0)';
3187: */
3188: IF PG_DEBUG in ('Y', 'C') THEN
3189: msc_util.msc_log('before creating table : ' || l_temp_table);
3190: END IF;
3191:
3192: BEGIN
3193: ad_ddl.do_ddl(APPLSYS_SCHEMA => p_applsys_schema,
3195: STATEMENT_TYPE => ad_ddl.create_table,
3196: STATEMENT => l_insert_stmt,
3197: OBJECT_NAME => l_temp_table);
3198: IF PG_DEBUG in ('Y', 'C') THEN
3199: msc_util.msc_log('after creating table : ' || l_temp_table);
3200: END IF;
3201:
3202: EXCEPTION
3203: WHEN others THEN
3201:
3202: EXCEPTION
3203: WHEN others THEN
3204: IF PG_DEBUG in ('Y', 'C') THEN
3205: msc_util.msc_log(sqlcode || ': ' || sqlerrm);
3206: msc_util.msc_log('Exception of create table : ' || l_temp_table);
3207: END IF;
3208: ad_ddl.do_ddl(APPLSYS_SCHEMA => p_applsys_schema,
3209: APPLICATION_SHORT_NAME => 'MSC',
3202: EXCEPTION
3203: WHEN others THEN
3204: IF PG_DEBUG in ('Y', 'C') THEN
3205: msc_util.msc_log(sqlcode || ': ' || sqlerrm);
3206: msc_util.msc_log('Exception of create table : ' || l_temp_table);
3207: END IF;
3208: ad_ddl.do_ddl(APPLSYS_SCHEMA => p_applsys_schema,
3209: APPLICATION_SHORT_NAME => 'MSC',
3210: STATEMENT_TYPE => ad_ddl.drop_table,
3211: STATEMENT => 'DROP TABLE ' || l_temp_table,
3212: OBJECT_NAME => l_temp_table);
3213:
3214: IF PG_DEBUG in ('Y', 'C') THEN
3215: msc_util.msc_log('After Drop table : ' ||l_temp_table);
3216: msc_util.msc_log('Before exception create table : ' ||l_temp_table);
3217: END IF;
3218:
3219: ad_ddl.do_ddl(APPLSYS_SCHEMA => p_applsys_schema,
3212: OBJECT_NAME => l_temp_table);
3213:
3214: IF PG_DEBUG in ('Y', 'C') THEN
3215: msc_util.msc_log('After Drop table : ' ||l_temp_table);
3216: msc_util.msc_log('Before exception create table : ' ||l_temp_table);
3217: END IF;
3218:
3219: ad_ddl.do_ddl(APPLSYS_SCHEMA => p_applsys_schema,
3220: APPLICATION_SHORT_NAME => 'MSC',
3221: STATEMENT_TYPE => ad_ddl.create_table,
3222: STATEMENT => l_insert_stmt,
3223: OBJECT_NAME => l_temp_table);
3224: IF PG_DEBUG in ('Y', 'C') THEN
3225: msc_util.msc_log('After exception create table : ' ||l_temp_table);
3226: END IF;
3227: END;
3228: END IF; -- p_share_partition = 'Y'
3229:
3233: into l_timestamp
3234: from v$timer;
3235:
3236: IF PG_DEBUG in ('Y', 'C') THEN
3237: msc_util.msc_log('Gen_Atp_Pegging : After opening config_items ');
3238: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 1 ' || l_timestamp);
3239: END IF;
3240:
3241: LOOP -- Begin config_items loop
3234: from v$timer;
3235:
3236: IF PG_DEBUG in ('Y', 'C') THEN
3237: msc_util.msc_log('Gen_Atp_Pegging : After opening config_items ');
3238: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 1 ' || l_timestamp);
3239: END IF;
3240:
3241: LOOP -- Begin config_items loop
3242: IF PG_DEBUG in ('Y', 'C') THEN
3239: END IF;
3240:
3241: LOOP -- Begin config_items loop
3242: IF PG_DEBUG in ('Y', 'C') THEN
3243: msc_util.msc_log('Gen_Atp_Pegging : Before fetch config_items Cursor');
3244: END IF;
3245: FETCH config_items INTO c_items_rec;
3246: EXIT WHEN config_items%NOTFOUND;
3247:
3245: FETCH config_items INTO c_items_rec;
3246: EXIT WHEN config_items%NOTFOUND;
3247:
3248: IF PG_DEBUG in ('Y', 'C') THEN
3249: msc_util.msc_log('Gen_Atp_Pegging : After fetch config_items Cursor');
3250: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.item_name ' ||
3251: c_items_rec.item_name);
3252: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.inventory_item_id ' ||
3253: c_items_rec.inventory_item_id);
3246: EXIT WHEN config_items%NOTFOUND;
3247:
3248: IF PG_DEBUG in ('Y', 'C') THEN
3249: msc_util.msc_log('Gen_Atp_Pegging : After fetch config_items Cursor');
3250: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.item_name ' ||
3251: c_items_rec.item_name);
3252: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.inventory_item_id ' ||
3253: c_items_rec.inventory_item_id);
3254: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.sr_inventory_item_id ' ||
3248: IF PG_DEBUG in ('Y', 'C') THEN
3249: msc_util.msc_log('Gen_Atp_Pegging : After fetch config_items Cursor');
3250: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.item_name ' ||
3251: c_items_rec.item_name);
3252: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.inventory_item_id ' ||
3253: c_items_rec.inventory_item_id);
3254: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.sr_inventory_item_id ' ||
3255: c_items_rec.sr_inventory_item_id);
3256: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.sr_instance_id ' ||
3250: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.item_name ' ||
3251: c_items_rec.item_name);
3252: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.inventory_item_id ' ||
3253: c_items_rec.inventory_item_id);
3254: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.sr_inventory_item_id ' ||
3255: c_items_rec.sr_inventory_item_id);
3256: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.sr_instance_id ' ||
3257: c_items_rec.sr_instance_id);
3258: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.base_item_id ' ||
3252: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.inventory_item_id ' ||
3253: c_items_rec.inventory_item_id);
3254: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.sr_inventory_item_id ' ||
3255: c_items_rec.sr_inventory_item_id);
3256: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.sr_instance_id ' ||
3257: c_items_rec.sr_instance_id);
3258: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.base_item_id ' ||
3259: c_items_rec.base_item_id);
3260: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.sales_order_line_id ' ||
3254: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.sr_inventory_item_id ' ||
3255: c_items_rec.sr_inventory_item_id);
3256: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.sr_instance_id ' ||
3257: c_items_rec.sr_instance_id);
3258: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.base_item_id ' ||
3259: c_items_rec.base_item_id);
3260: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.sales_order_line_id ' ||
3261: c_items_rec.sales_order_line_id);
3262: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.demand_source_type' ||
3256: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.sr_instance_id ' ||
3257: c_items_rec.sr_instance_id);
3258: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.base_item_id ' ||
3259: c_items_rec.base_item_id);
3260: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.sales_order_line_id ' ||
3261: c_items_rec.sales_order_line_id);
3262: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.demand_source_type' ||
3263: c_items_rec.demand_source_type);--cmro
3264: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.demand_class' ||
3258: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.base_item_id ' ||
3259: c_items_rec.base_item_id);
3260: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.sales_order_line_id ' ||
3261: c_items_rec.sales_order_line_id);
3262: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.demand_source_type' ||
3263: c_items_rec.demand_source_type);--cmro
3264: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.demand_class' ||
3265: c_items_rec.demand_class); --Bug 3319180
3266: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.demand_id' ||
3260: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.sales_order_line_id ' ||
3261: c_items_rec.sales_order_line_id);
3262: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.demand_source_type' ||
3263: c_items_rec.demand_source_type);--cmro
3264: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.demand_class' ||
3265: c_items_rec.demand_class); --Bug 3319180
3266: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.demand_id' ||
3267: c_items_rec.demand_id); --Bug 3750638
3268: msc_util.msc_log('Gen_Atp_Pegging : Plan Id ' || p_plan_id );
3262: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.demand_source_type' ||
3263: c_items_rec.demand_source_type);--cmro
3264: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.demand_class' ||
3265: c_items_rec.demand_class); --Bug 3319180
3266: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.demand_id' ||
3267: c_items_rec.demand_id); --Bug 3750638
3268: msc_util.msc_log('Gen_Atp_Pegging : Plan Id ' || p_plan_id );
3269: msc_util.msc_log('Gen_Atp_Pegging : Stage 0 ' );
3270: END IF;
3264: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.demand_class' ||
3265: c_items_rec.demand_class); --Bug 3319180
3266: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.demand_id' ||
3267: c_items_rec.demand_id); --Bug 3750638
3268: msc_util.msc_log('Gen_Atp_Pegging : Plan Id ' || p_plan_id );
3269: msc_util.msc_log('Gen_Atp_Pegging : Stage 0 ' );
3270: END IF;
3271:
3272: -- Bug 3750638 Call the SQL statements now moved to a new procedure
3265: c_items_rec.demand_class); --Bug 3319180
3266: msc_util.msc_log('Gen_Atp_Pegging : c_items_rec.demand_id' ||
3267: c_items_rec.demand_id); --Bug 3750638
3268: msc_util.msc_log('Gen_Atp_Pegging : Plan Id ' || p_plan_id );
3269: msc_util.msc_log('Gen_Atp_Pegging : Stage 0 ' );
3270: END IF;
3271:
3272: -- Bug 3750638 Call the SQL statements now moved to a new procedure
3273: Get_Pegging_Data_Loop ( p_plan_id,
3275: l_return_status);
3276:
3277: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3278: IF PG_DEBUG in ('Y', 'C') THEN
3279: msc_util.msc_log('Gen_Atp_Pegging: ' ||
3280: 'Error occured in procedure Get_Pegging_Data_Loop');
3281: END IF;
3282: RAISE FND_API.G_EXC_ERROR;
3283: END IF;
3288: into l_timestamp
3289: from v$timer;
3290:
3291: IF PG_DEBUG in ('Y', 'C') THEN
3292: msc_util.msc_log('Gen_Atp_Pegging : Stage 5 ' );
3293: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 3 ' || l_timestamp);
3294: END IF;
3295:
3296: -- Fetch the data into PL/SQL record of tables.
3289: from v$timer;
3290:
3291: IF PG_DEBUG in ('Y', 'C') THEN
3292: msc_util.msc_log('Gen_Atp_Pegging : Stage 5 ' );
3293: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 3 ' || l_timestamp);
3294: END IF;
3295:
3296: -- Fetch the data into PL/SQL record of tables.
3297: SELECT
3374: into l_timestamp
3375: from v$timer;
3376:
3377: IF PG_DEBUG in ('Y', 'C') THEN
3378: msc_util.msc_log('Gen_Atp_Pegging : Stage 6 ' );
3379: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
3380: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 4 ' || l_timestamp);
3381: END IF;
3382:
3375: from v$timer;
3376:
3377: IF PG_DEBUG in ('Y', 'C') THEN
3378: msc_util.msc_log('Gen_Atp_Pegging : Stage 6 ' );
3379: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
3380: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 4 ' || l_timestamp);
3381: END IF;
3382:
3383:
3376:
3377: IF PG_DEBUG in ('Y', 'C') THEN
3378: msc_util.msc_log('Gen_Atp_Pegging : Stage 6 ' );
3379: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
3380: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 4 ' || l_timestamp);
3381: END IF;
3382:
3383:
3384: -- Obtain and Assign forecast consumption info.
3387: IF (atp_peg_det.bom_item_type(i) = 4 AND
3388: atp_peg_det.base_item_id(i) IS NOT NULL ) THEN
3389: -- Bug 3362558 Display the original_demand_id
3390: IF PG_DEBUG in ('Y', 'C') THEN
3391: msc_util.msc_log('Gen_Atp_Pegging : End Demand Id for Sales Order: ' ||
3392: -- CTO_PF_PRJ changes. Use end_demand_id
3393: atp_peg_det.end_demand_id(i) );
3394: --l_original_demand_ids(1) );
3395: END IF;
3396: -- End Bug 3362558
3397: Get_Forecast_Consumption(atp_peg_det, i, fcst_data_tab, l_return_status);
3398: l_total_relief_qty := 0;
3399: IF PG_DEBUG in ('Y', 'C') THEN
3400: msc_util.msc_log('Gen_Atp_Pegging : Stage 7 ' );
3401: msc_util.msc_log('Gen_Atp_Pegging : Status post Fcst Consumption.' ||
3402: l_return_status );
3403: msc_util.msc_log('Gen_Atp_Pegging : Fcst Data Count.' ||
3404: fcst_data_tab.inventory_item_id.Count);
3397: Get_Forecast_Consumption(atp_peg_det, i, fcst_data_tab, l_return_status);
3398: l_total_relief_qty := 0;
3399: IF PG_DEBUG in ('Y', 'C') THEN
3400: msc_util.msc_log('Gen_Atp_Pegging : Stage 7 ' );
3401: msc_util.msc_log('Gen_Atp_Pegging : Status post Fcst Consumption.' ||
3402: l_return_status );
3403: msc_util.msc_log('Gen_Atp_Pegging : Fcst Data Count.' ||
3404: fcst_data_tab.inventory_item_id.Count);
3405: END IF;
3399: IF PG_DEBUG in ('Y', 'C') THEN
3400: msc_util.msc_log('Gen_Atp_Pegging : Stage 7 ' );
3401: msc_util.msc_log('Gen_Atp_Pegging : Status post Fcst Consumption.' ||
3402: l_return_status );
3403: msc_util.msc_log('Gen_Atp_Pegging : Fcst Data Count.' ||
3404: fcst_data_tab.inventory_item_id.Count);
3405: END IF;
3406: END IF;
3407:
3461: END IF;
3462:
3463: l_total_relief_qty := atp_peg_det.tot_relief_qty(i);
3464: IF PG_DEBUG in ('Y', 'C') THEN
3465: msc_util.msc_log('Gen_Atp_Pegging : Total Relief Qty' ||
3466: l_total_relief_qty);
3467: msc_util.msc_log('Gen_Atp_Pegging : FC Consumtion Flag' ||
3468: fcst_data_tab.cons_config_mod_flag(j));
3469: END IF;
3463: l_total_relief_qty := atp_peg_det.tot_relief_qty(i);
3464: IF PG_DEBUG in ('Y', 'C') THEN
3465: msc_util.msc_log('Gen_Atp_Pegging : Total Relief Qty' ||
3466: l_total_relief_qty);
3467: msc_util.msc_log('Gen_Atp_Pegging : FC Consumtion Flag' ||
3468: fcst_data_tab.cons_config_mod_flag(j));
3469: END IF;
3470:
3471: -- Bug 3701093
3520: ELSE
3521: l_order_org_ratio := 1;
3522: END IF;
3523: IF PG_DEBUG in ('Y', 'C') THEN
3524: msc_util.msc_log('Gen_Atp_Pegging : fcst_data_tab.inventory_item_id(j)' ||
3525: fcst_data_tab.inventory_item_id(j));
3526: msc_util.msc_log('Gen_Atp_Pegging : fcst_data_tab.consumed_qty(j)' ||
3527: fcst_data_tab.consumed_qty(j));
3528: msc_util.msc_log('Gen_Atp_Pegging : fcst_data_tab.sales_order_id(j)' ||
3522: END IF;
3523: IF PG_DEBUG in ('Y', 'C') THEN
3524: msc_util.msc_log('Gen_Atp_Pegging : fcst_data_tab.inventory_item_id(j)' ||
3525: fcst_data_tab.inventory_item_id(j));
3526: msc_util.msc_log('Gen_Atp_Pegging : fcst_data_tab.consumed_qty(j)' ||
3527: fcst_data_tab.consumed_qty(j));
3528: msc_util.msc_log('Gen_Atp_Pegging : fcst_data_tab.sales_order_id(j)' ||
3529: fcst_data_tab.sales_order_id(j));
3530: msc_util.msc_log('Gen_Atp_Pegging : l_order_org_ratio' ||
3524: msc_util.msc_log('Gen_Atp_Pegging : fcst_data_tab.inventory_item_id(j)' ||
3525: fcst_data_tab.inventory_item_id(j));
3526: msc_util.msc_log('Gen_Atp_Pegging : fcst_data_tab.consumed_qty(j)' ||
3527: fcst_data_tab.consumed_qty(j));
3528: msc_util.msc_log('Gen_Atp_Pegging : fcst_data_tab.sales_order_id(j)' ||
3529: fcst_data_tab.sales_order_id(j));
3530: msc_util.msc_log('Gen_Atp_Pegging : l_order_org_ratio' ||
3531: l_order_org_ratio);
3532: msc_util.msc_log('Gen_Atp_Pegging : FC Consumtion Flag' ||
3526: msc_util.msc_log('Gen_Atp_Pegging : fcst_data_tab.consumed_qty(j)' ||
3527: fcst_data_tab.consumed_qty(j));
3528: msc_util.msc_log('Gen_Atp_Pegging : fcst_data_tab.sales_order_id(j)' ||
3529: fcst_data_tab.sales_order_id(j));
3530: msc_util.msc_log('Gen_Atp_Pegging : l_order_org_ratio' ||
3531: l_order_org_ratio);
3532: msc_util.msc_log('Gen_Atp_Pegging : FC Consumtion Flag' ||
3533: fcst_data_tab.cons_config_mod_flag(j));
3534: END IF;
3528: msc_util.msc_log('Gen_Atp_Pegging : fcst_data_tab.sales_order_id(j)' ||
3529: fcst_data_tab.sales_order_id(j));
3530: msc_util.msc_log('Gen_Atp_Pegging : l_order_org_ratio' ||
3531: l_order_org_ratio);
3532: msc_util.msc_log('Gen_Atp_Pegging : FC Consumtion Flag' ||
3533: fcst_data_tab.cons_config_mod_flag(j));
3534: END IF;
3535: -- Bug 3701093 Model Forecast Has been consumed,
3536: -- Generate Offsets for Model.
3578: atp_peg_det.overconsumption_qty(k) :=
3579: NVL(fcst_data_tab.overconsumption_qty(j), 0)
3580: * l_order_org_ratio;
3581: IF PG_DEBUG in ('Y', 'C') THEN
3582: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.consumed_qty(k)' ||
3583: atp_peg_det.consumed_qty(k));
3584: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.overconsumption_qty(k)' ||
3585: atp_peg_det.overconsumption_qty(k));
3586: END IF;
3580: * l_order_org_ratio;
3581: IF PG_DEBUG in ('Y', 'C') THEN
3582: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.consumed_qty(k)' ||
3583: atp_peg_det.consumed_qty(k));
3584: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.overconsumption_qty(k)' ||
3585: atp_peg_det.overconsumption_qty(k));
3586: END IF;
3587: -- For now the process_seq_id remains unassigned
3588: -- atp_peg_det.process_seq_id(k) := atp_peg_det.process_seq_id(i) ;
3635: END IF;
3636: -- End Bug 3701093
3637:
3638: IF PG_DEBUG in ('Y', 'C') THEN
3639: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.tot_relief_qty(i) ' ||
3640: atp_peg_det.tot_relief_qty(i));
3641: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.inventory_item_id(i) '
3642: || atp_peg_det.inventory_item_id(i));
3643: END IF;
3637:
3638: IF PG_DEBUG in ('Y', 'C') THEN
3639: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.tot_relief_qty(i) ' ||
3640: atp_peg_det.tot_relief_qty(i));
3641: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.inventory_item_id(i) '
3642: || atp_peg_det.inventory_item_id(i));
3643: END IF;
3644: FOR n in 1..atp_peg_det.inventory_item_id.COUNT LOOP
3645:
3656: atp_peg_det.tot_relief_qty(n) := atp_peg_det.tot_relief_qty(i)
3657: * atp_peg_det.end_item_usage(n) / atp_peg_det.end_item_usage(i);
3658:
3659: IF PG_DEBUG in ('Y', 'C') THEN
3660: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.tot_relief_qty(n) ' ||
3661: atp_peg_det.tot_relief_qty(n));
3662: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.inventory_item_id(n) '
3663: || atp_peg_det.inventory_item_id(n));
3664: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.pegging_id(n) '
3658:
3659: IF PG_DEBUG in ('Y', 'C') THEN
3660: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.tot_relief_qty(n) ' ||
3661: atp_peg_det.tot_relief_qty(n));
3662: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.inventory_item_id(n) '
3663: || atp_peg_det.inventory_item_id(n));
3664: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.pegging_id(n) '
3665: || atp_peg_det.pegging_id(n));
3666: msc_util.msc_log('Gen_Atp_Pegging : ' ||
3660: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.tot_relief_qty(n) ' ||
3661: atp_peg_det.tot_relief_qty(n));
3662: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.inventory_item_id(n) '
3663: || atp_peg_det.inventory_item_id(n));
3664: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.pegging_id(n) '
3665: || atp_peg_det.pegging_id(n));
3666: msc_util.msc_log('Gen_Atp_Pegging : ' ||
3667: 'atp_peg_det.allocated_quantity(n) '|| atp_peg_det.allocated_quantity(n));
3668: END IF;
3662: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.inventory_item_id(n) '
3663: || atp_peg_det.inventory_item_id(n));
3664: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.pegging_id(n) '
3665: || atp_peg_det.pegging_id(n));
3666: msc_util.msc_log('Gen_Atp_Pegging : ' ||
3667: 'atp_peg_det.allocated_quantity(n) '|| atp_peg_det.allocated_quantity(n));
3668: END IF;
3669: END IF;
3670:
3693: -- Update the total count.
3694: l_tot_count := l_count + l_row_count;
3695:
3696: IF PG_DEBUG in ('Y', 'C') THEN
3697: msc_util.msc_log('Gen_Atp_Pegging : ATP Inventory_item_id. ' ||
3698: atp_peg_det.inventory_item_id(i) );
3699: msc_util.msc_log('Gen_Atp_Pegging : FCST Inventory_item_id. ' ||
3700: fcst_data_tab.inventory_item_id(j) );
3701: msc_util.msc_log('Gen_Atp_Pegging : FCST Parent_Item_id. ' ||
3695:
3696: IF PG_DEBUG in ('Y', 'C') THEN
3697: msc_util.msc_log('Gen_Atp_Pegging : ATP Inventory_item_id. ' ||
3698: atp_peg_det.inventory_item_id(i) );
3699: msc_util.msc_log('Gen_Atp_Pegging : FCST Inventory_item_id. ' ||
3700: fcst_data_tab.inventory_item_id(j) );
3701: msc_util.msc_log('Gen_Atp_Pegging : FCST Parent_Item_id. ' ||
3702: fcst_data_tab.Parent_Item_id(j) );
3703: msc_util.msc_log('Gen_Atp_Pegging : l_row_count. ' ||
3697: msc_util.msc_log('Gen_Atp_Pegging : ATP Inventory_item_id. ' ||
3698: atp_peg_det.inventory_item_id(i) );
3699: msc_util.msc_log('Gen_Atp_Pegging : FCST Inventory_item_id. ' ||
3700: fcst_data_tab.inventory_item_id(j) );
3701: msc_util.msc_log('Gen_Atp_Pegging : FCST Parent_Item_id. ' ||
3702: fcst_data_tab.Parent_Item_id(j) );
3703: msc_util.msc_log('Gen_Atp_Pegging : l_row_count. ' ||
3704: l_row_count );
3705: msc_util.msc_log('Gen_Atp_Pegging : l_count. ' ||
3699: msc_util.msc_log('Gen_Atp_Pegging : FCST Inventory_item_id. ' ||
3700: fcst_data_tab.inventory_item_id(j) );
3701: msc_util.msc_log('Gen_Atp_Pegging : FCST Parent_Item_id. ' ||
3702: fcst_data_tab.Parent_Item_id(j) );
3703: msc_util.msc_log('Gen_Atp_Pegging : l_row_count. ' ||
3704: l_row_count );
3705: msc_util.msc_log('Gen_Atp_Pegging : l_count. ' ||
3706: l_count );
3707: msc_util.msc_log('Gen_Atp_Pegging : l_tot_count. ' ||
3701: msc_util.msc_log('Gen_Atp_Pegging : FCST Parent_Item_id. ' ||
3702: fcst_data_tab.Parent_Item_id(j) );
3703: msc_util.msc_log('Gen_Atp_Pegging : l_row_count. ' ||
3704: l_row_count );
3705: msc_util.msc_log('Gen_Atp_Pegging : l_count. ' ||
3706: l_count );
3707: msc_util.msc_log('Gen_Atp_Pegging : l_tot_count. ' ||
3708: l_tot_count );
3709: END IF;
3703: msc_util.msc_log('Gen_Atp_Pegging : l_row_count. ' ||
3704: l_row_count );
3705: msc_util.msc_log('Gen_Atp_Pegging : l_count. ' ||
3706: l_count );
3707: msc_util.msc_log('Gen_Atp_Pegging : l_tot_count. ' ||
3708: l_tot_count );
3709: END IF;
3710: l_count := l_count + 1;
3711: -- Append the forecast_data for each config item to
3713: --FOR k in l_count..l_tot_count LOOP
3714:
3715: k:= l_count;
3716: IF PG_DEBUG in ('Y', 'C') THEN
3717: msc_util.msc_log('Gen_Atp_Pegging : Value of loop var k. ' || k );
3718: END IF;
3719:
3720: atp_peg_det.reference_item_id(k) := atp_peg_det.reference_item_id(i);
3721: atp_peg_det.base_item_id(k) := NULL;
3801: END IF;
3802: -- Bug 3805136 Allocated quantity is positive
3803: atp_peg_det.allocated_quantity(k) := ABS(atp_peg_det.tot_relief_qty(k));
3804: IF PG_DEBUG in ('Y', 'C') THEN
3805: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.tot_relief_qty(k) ' ||
3806: atp_peg_det.tot_relief_qty(k));
3807: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.inventory_item_id(k) '
3808: || atp_peg_det.inventory_item_id(k));
3809: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.prev_pegging_id(k) '
3803: atp_peg_det.allocated_quantity(k) := ABS(atp_peg_det.tot_relief_qty(k));
3804: IF PG_DEBUG in ('Y', 'C') THEN
3805: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.tot_relief_qty(k) ' ||
3806: atp_peg_det.tot_relief_qty(k));
3807: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.inventory_item_id(k) '
3808: || atp_peg_det.inventory_item_id(k));
3809: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.prev_pegging_id(k) '
3810: || atp_peg_det.prev_pegging_id(k));
3811: END IF;
3805: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.tot_relief_qty(k) ' ||
3806: atp_peg_det.tot_relief_qty(k));
3807: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.inventory_item_id(k) '
3808: || atp_peg_det.inventory_item_id(k));
3809: msc_util.msc_log('Gen_Atp_Pegging : atp_peg_det.prev_pegging_id(k) '
3810: || atp_peg_det.prev_pegging_id(k));
3811: END IF;
3812: --END LOOP;
3813:
3818: -- Initialize the Simplified Pegging PL/SQL array
3819:
3820: Init_Atp_Peg ( atp_peg_tab, l_return_status);
3821: IF PG_DEBUG in ('Y', 'C') THEN
3822: msc_util.msc_log('Gen_Atp_Pegging : Initialized Simple Pegging Array ' ||
3823: l_return_status);
3824: END IF;
3825:
3826: -- Bug 3701093
3833: into l_timestamp
3834: from v$timer;
3835:
3836: IF PG_DEBUG in ('Y', 'C') THEN
3837: msc_util.msc_log('Gen_Atp_Pegging : Stage 8 After obtaining Simple Pegging ');
3838: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 5 ' || l_timestamp);
3839: END IF;
3840:
3841: -- Calculate and Cascade Relief Quantities
3834: from v$timer;
3835:
3836: IF PG_DEBUG in ('Y', 'C') THEN
3837: msc_util.msc_log('Gen_Atp_Pegging : Stage 8 After obtaining Simple Pegging ');
3838: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 5 ' || l_timestamp);
3839: END IF;
3840:
3841: -- Calculate and Cascade Relief Quantities
3842: -- will be strictly chronological.
3858: atp_peg_tab.reference_item_id(i) = atp_peg_tab.inventory_item_id(i) AND
3859: atp_peg_tab.relief_type(i) = 1) THEN
3860:
3861: IF PG_DEBUG in ('Y', 'C') THEN
3862: msc_util.msc_log('Gen_Atp_Pegging : reference_item_id ' ||
3863: atp_peg_tab.reference_item_id(i) );
3864: END IF;
3865: atp_peg_tab.relief_quantity(i) := 0;
3866:
3881: l_peg_relief_qty := L_TOT_RELIEF_QTY;
3882: END IF;
3883: -- Start with the planned order corresponding to the sales order
3884: IF PG_DEBUG in ('Y', 'C') THEN
3885: msc_util.msc_log('Gen_Atp_Pegging : reference_item_id ' ||
3886: atp_peg_tab.reference_item_id(i) );
3887: msc_util.msc_log('Gen_Atp_Pegging : Pegging Id ' ||
3888: atp_peg_tab.pegging_id(i) );
3889: msc_util.msc_log('Gen_Atp_Pegging : Prev Pegging Id ' ||
3883: -- Start with the planned order corresponding to the sales order
3884: IF PG_DEBUG in ('Y', 'C') THEN
3885: msc_util.msc_log('Gen_Atp_Pegging : reference_item_id ' ||
3886: atp_peg_tab.reference_item_id(i) );
3887: msc_util.msc_log('Gen_Atp_Pegging : Pegging Id ' ||
3888: atp_peg_tab.pegging_id(i) );
3889: msc_util.msc_log('Gen_Atp_Pegging : Prev Pegging Id ' ||
3890: atp_peg_tab.prev_pegging_id(i) );
3891: msc_util.msc_log('Gen_Atp_Pegging : '||
3885: msc_util.msc_log('Gen_Atp_Pegging : reference_item_id ' ||
3886: atp_peg_tab.reference_item_id(i) );
3887: msc_util.msc_log('Gen_Atp_Pegging : Pegging Id ' ||
3888: atp_peg_tab.pegging_id(i) );
3889: msc_util.msc_log('Gen_Atp_Pegging : Prev Pegging Id ' ||
3890: atp_peg_tab.prev_pegging_id(i) );
3891: msc_util.msc_log('Gen_Atp_Pegging : '||
3892: 'Total Relief Quantity TRACK L_TOT_RELIEF_QTY ' ||
3893: L_TOT_RELIEF_QTY );
3887: msc_util.msc_log('Gen_Atp_Pegging : Pegging Id ' ||
3888: atp_peg_tab.pegging_id(i) );
3889: msc_util.msc_log('Gen_Atp_Pegging : Prev Pegging Id ' ||
3890: atp_peg_tab.prev_pegging_id(i) );
3891: msc_util.msc_log('Gen_Atp_Pegging : '||
3892: 'Total Relief Quantity TRACK L_TOT_RELIEF_QTY ' ||
3893: L_TOT_RELIEF_QTY );
3894: msc_util.msc_log('Gen_Atp_Pegging : '||
3895: 'Total Relief Quantity for this Pegged Supply ' ||
3890: atp_peg_tab.prev_pegging_id(i) );
3891: msc_util.msc_log('Gen_Atp_Pegging : '||
3892: 'Total Relief Quantity TRACK L_TOT_RELIEF_QTY ' ||
3893: L_TOT_RELIEF_QTY );
3894: msc_util.msc_log('Gen_Atp_Pegging : '||
3895: 'Total Relief Quantity for this Pegged Supply ' ||
3896: l_peg_relief_qty );
3897: END IF;
3898: Calculate_Relief_Quantities(atp_peg_tab,
3927: into l_timestamp
3928: from v$timer;
3929:
3930: IF PG_DEBUG in ('Y', 'C') THEN
3931: msc_util.msc_log('Gen_Atp_Pegging : Stage 9 After Calculating Reliefs ');
3932: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 6 ' || l_timestamp);
3933: END IF;
3934: -- Generate ATP Resource Pegging.
3935:
3928: from v$timer;
3929:
3930: IF PG_DEBUG in ('Y', 'C') THEN
3931: msc_util.msc_log('Gen_Atp_Pegging : Stage 9 After Calculating Reliefs ');
3932: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 6 ' || l_timestamp);
3933: END IF;
3934: -- Generate ATP Resource Pegging.
3935:
3936: Generate_Resource_Pegging (atp_peg_tab, l_return_status);
3939: into l_timestamp
3940: from v$timer;
3941:
3942: IF PG_DEBUG in ('Y', 'C') THEN
3943: msc_util.msc_log('Gen_Atp_Pegging : Stage 10 After Resource Pegging ');
3944: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 7 ' || l_timestamp);
3945: END IF;
3946: END IF;
3947: -- End Bug 3701093
3940: from v$timer;
3941:
3942: IF PG_DEBUG in ('Y', 'C') THEN
3943: msc_util.msc_log('Gen_Atp_Pegging : Stage 10 After Resource Pegging ');
3944: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 7 ' || l_timestamp);
3945: END IF;
3946: END IF;
3947: -- End Bug 3701093
3948:
3949: -- After obtaining all the atp simplified pegging information.
3950:
3951: l_row_count := atp_peg_tab.reference_item_id.COUNT ;
3952: IF PG_DEBUG in ('Y', 'C') THEN
3953: msc_util.msc_log('ATP pegging data will be inserted into ' || l_temp_table);
3954: msc_util.msc_log('Total Records to be inserted ' || l_row_count);
3955: END IF;
3956:
3957: -- Bug 3344102 First insert the data into the global temporary table.
3950:
3951: l_row_count := atp_peg_tab.reference_item_id.COUNT ;
3952: IF PG_DEBUG in ('Y', 'C') THEN
3953: msc_util.msc_log('ATP pegging data will be inserted into ' || l_temp_table);
3954: msc_util.msc_log('Total Records to be inserted ' || l_row_count);
3955: END IF;
3956:
3957: -- Bug 3344102 First insert the data into the global temporary table.
3958:
4230: -- End Bug 3701093
4231: END IF;
4232: --CTO-PF
4233: IF PG_DEBUG in ('Y', 'C') THEN
4234: msc_util.msc_log('Gen_Atp_Pegging : atf_date ' || atp_peg_tab.atf_date(i));
4235: msc_util.msc_log('Gen_Atp_Pegging : product_family_id ' || atp_peg_tab.product_family_id(i));
4236: msc_util.msc_log('Gen_Atp_Pegging : reference_item_id ' || atp_peg_tab.reference_item_id(i));
4237: msc_util.msc_log('Gen_Atp_Pegging : inventory_item_id ' || atp_peg_tab.inventory_item_id(i));
4238: msc_util.msc_log('Gen_Atp_Pegging : l_time_phased_atp ' || l_time_phased_atp);
4231: END IF;
4232: --CTO-PF
4233: IF PG_DEBUG in ('Y', 'C') THEN
4234: msc_util.msc_log('Gen_Atp_Pegging : atf_date ' || atp_peg_tab.atf_date(i));
4235: msc_util.msc_log('Gen_Atp_Pegging : product_family_id ' || atp_peg_tab.product_family_id(i));
4236: msc_util.msc_log('Gen_Atp_Pegging : reference_item_id ' || atp_peg_tab.reference_item_id(i));
4237: msc_util.msc_log('Gen_Atp_Pegging : inventory_item_id ' || atp_peg_tab.inventory_item_id(i));
4238: msc_util.msc_log('Gen_Atp_Pegging : l_time_phased_atp ' || l_time_phased_atp);
4239: END IF;
4232: --CTO-PF
4233: IF PG_DEBUG in ('Y', 'C') THEN
4234: msc_util.msc_log('Gen_Atp_Pegging : atf_date ' || atp_peg_tab.atf_date(i));
4235: msc_util.msc_log('Gen_Atp_Pegging : product_family_id ' || atp_peg_tab.product_family_id(i));
4236: msc_util.msc_log('Gen_Atp_Pegging : reference_item_id ' || atp_peg_tab.reference_item_id(i));
4237: msc_util.msc_log('Gen_Atp_Pegging : inventory_item_id ' || atp_peg_tab.inventory_item_id(i));
4238: msc_util.msc_log('Gen_Atp_Pegging : l_time_phased_atp ' || l_time_phased_atp);
4239: END IF;
4240: END LOOP; -- Insert Loop
4233: IF PG_DEBUG in ('Y', 'C') THEN
4234: msc_util.msc_log('Gen_Atp_Pegging : atf_date ' || atp_peg_tab.atf_date(i));
4235: msc_util.msc_log('Gen_Atp_Pegging : product_family_id ' || atp_peg_tab.product_family_id(i));
4236: msc_util.msc_log('Gen_Atp_Pegging : reference_item_id ' || atp_peg_tab.reference_item_id(i));
4237: msc_util.msc_log('Gen_Atp_Pegging : inventory_item_id ' || atp_peg_tab.inventory_item_id(i));
4238: msc_util.msc_log('Gen_Atp_Pegging : l_time_phased_atp ' || l_time_phased_atp);
4239: END IF;
4240: END LOOP; -- Insert Loop
4241:
4234: msc_util.msc_log('Gen_Atp_Pegging : atf_date ' || atp_peg_tab.atf_date(i));
4235: msc_util.msc_log('Gen_Atp_Pegging : product_family_id ' || atp_peg_tab.product_family_id(i));
4236: msc_util.msc_log('Gen_Atp_Pegging : reference_item_id ' || atp_peg_tab.reference_item_id(i));
4237: msc_util.msc_log('Gen_Atp_Pegging : inventory_item_id ' || atp_peg_tab.inventory_item_id(i));
4238: msc_util.msc_log('Gen_Atp_Pegging : l_time_phased_atp ' || l_time_phased_atp);
4239: END IF;
4240: END LOOP; -- Insert Loop
4241:
4242: IF PG_DEBUG in ('Y', 'C') THEN
4239: END IF;
4240: END LOOP; -- Insert Loop
4241:
4242: IF PG_DEBUG in ('Y', 'C') THEN
4243: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
4244: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 8 ' || l_timestamp);
4245: END IF;
4246: /* commented as a part of CTO-PF
4247: -- Bug 3344102 Second insert the data into the main table.
4240: END LOOP; -- Insert Loop
4241:
4242: IF PG_DEBUG in ('Y', 'C') THEN
4243: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
4244: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 8 ' || l_timestamp);
4245: END IF;
4246: /* commented as a part of CTO-PF
4247: -- Bug 3344102 Second insert the data into the main table.
4248: l_sql_stmt_1 := 'INSERT INTO ' || l_temp_table || '(
4327: AND end_demand_id = :l_end_demand_id
4328: AND relief_type in (2, 3) ';
4329:
4330: IF PG_DEBUG in ('Y', 'C') THEN
4331: msc_util.msc_log('SQL statement to be executed ' || l_sql_stmt_1);
4332: END IF;
4333:
4334: IF l_row_count > 0 THEN
4335: EXECUTE IMMEDIATE l_sql_stmt_1 USING
4337: atp_peg_tab.end_demand_id(1);
4338: END IF;
4339:
4340: IF PG_DEBUG in ('Y', 'C') THEN
4341: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
4342: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 9 ' || l_timestamp);
4343: END IF;
4344:
4345: -- End Bug 3344102 Secod insert the data into the main table.
4338: END IF;
4339:
4340: IF PG_DEBUG in ('Y', 'C') THEN
4341: msc_util.msc_log('Gen_Atp_Pegging : Rows Procesed ' || SQL%ROWCOUNT );
4342: msc_util.msc_log('Gen_Atp_Pegging : TIMESTAMP 9 ' || l_timestamp);
4343: END IF;
4344:
4345: -- End Bug 3344102 Secod insert the data into the main table.
4346: */
4376: END IF;
4377: -- CTO-PF end
4378: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4379: IF PG_DEBUG in ('Y', 'C') THEN
4380: msc_util.msc_log('Gen_Atp_Pegging: ' ||
4381: 'Error occured in procedure Create_Pre_Allocation_Reliefs');
4382: END IF;
4383: RAISE FND_API.G_EXC_ERROR;
4384: END IF;
4386:
4387: IF p_share_partition = 'Y' THEN
4388:
4389: IF PG_DEBUG in ('Y', 'C') THEN
4390: msc_util.msc_log('Analyze Plan partition for MSC_ATP_PEGGING');
4391: END IF;
4392: fnd_stats.gather_table_stats(ownname=>l_msc_schema,tabname=>'MSC_ATP_PEGGING',
4393: partname=>'ATP_PEGGING_999999',
4394: granularity=>'PARTITION',
4416: TABLESPACE ' || l_ind_tbspace; --13021736 removed local keyword
4417:
4418: BEGIN
4419: IF PG_DEBUG in ('Y', 'C') THEN
4420: msc_util.msc_log('Before creating index ' || l_temp_table ||
4421: '_N1 for table ');
4422: END IF;
4423: ad_ddl.do_ddl( applsys_schema => p_applsys_schema,
4424: application_short_name => 'MSC',
4439: TABLESPACE ' || l_ind_tbspace; --13021736 removed local keyword
4440:
4441: BEGIN
4442: IF PG_DEBUG in ('Y', 'C') THEN
4443: msc_util.msc_log('Before creating index ' || l_temp_table ||
4444: '_N2 for table ');
4445: END IF;
4446: ad_ddl.do_ddl( applsys_schema => p_applsys_schema,
4447: application_short_name => 'MSC',
4463: TABLESPACE ' || l_ind_tbspace; --13021736 removed local keyword
4464:
4465: BEGIN
4466: IF PG_DEBUG in ('Y', 'C') THEN
4467: msc_util.msc_log('Before creating index ' || l_temp_table ||
4468: '_N3 for table ');
4469: END IF;
4470: ad_ddl.do_ddl( applsys_schema => p_applsys_schema,
4471: application_short_name => 'MSC',
4484: TABLESPACE ' || l_ind_tbspace; --13021736 removed local keyword/extra comma
4485:
4486: BEGIN
4487: IF PG_DEBUG in ('Y', 'C') THEN
4488: msc_util.msc_log('Before creating index ' || l_temp_table ||
4489: '_N4 for table ');
4490: END IF;
4491: ad_ddl.do_ddl( applsys_schema => p_applsys_schema,
4492: application_short_name => 'MSC',
4494: statement => l_sql_stmt,
4495: object_name => l_temp_table );
4496: END ;
4497: IF PG_DEBUG in ('Y', 'C') THEN
4498: msc_util.msc_log('Gather Table Stats for MSC_ATP_PEGGING');
4499: END IF;
4500: --13021736 corrected the syntax.
4501: fnd_stats.gather_table_stats(ownname => l_msc_schema,
4502: tabname => 'MSC_ATP_PEGGING',
4505: );
4506:
4507:
4508: IF PG_DEBUG in ('Y', 'C') THEN
4509: msc_util.msc_log('swap partition ');
4510: END IF;
4511:
4512: l_sql_stmt := 'ALTER TABLE msc_atp_pegging EXCHANGE PARTITION ' ||
4513: l_partition_name ||
4515: ' including indexes without validation';
4516:
4517: BEGIN
4518: IF PG_DEBUG in ('Y', 'C') THEN
4519: msc_util.msc_log('Before alter table msc_atp_pegging');
4520: END IF;
4521: ad_ddl.do_ddl(APPLSYS_SCHEMA => p_applsys_schema,
4522: APPLICATION_SHORT_NAME => 'MSC',
4523: STATEMENT_TYPE => ad_ddl.alter_table,
4529:
4530: EXCEPTION
4531: WHEN OTHERS THEN
4532: IF PG_DEBUG in ('Y', 'C') THEN
4533: msc_util.msc_log ('Generate_Simplified_Pegging. Error : ' || sqlcode || ': ' || sqlerrm);
4534: END IF;
4535: RETCODE := G_ERROR;
4536:
4537: END Generate_Simplified_Pegging;
4557: l_log_file VARCHAR2(255);
4558:
4559: BEGIN
4560:
4561: msc_util.msc_log('Begin procedure post_plan_pegging');
4562:
4563: RETCODE := G_SUCCESS;
4564:
4565:
4564:
4565:
4566: l_share_partition := fnd_profile.value('MSC_SHARE_PARTITIONS');
4567:
4568: msc_util.msc_log('l_share_partition := ' || l_share_partition);
4569:
4570: SELECT NVL(summary_flag,1), compile_designator
4571: INTO l_summary_flag, l_plan_name
4572: FROM msc_plans
4577: MSC_POST_PRO.G_SF_PREALLOC_COMPLETED,
4578: MSC_POST_PRO.G_SF_SYNC_SUCCESS,
4579: MSC_POST_PRO.G_SF_SUMMARY_COMPLETED,
4580: MSC_POST_PRO.G_SF_ATPPEG_COMPLETED) THEN
4581: msc_util.msc_log('Another session is running post-plan allocation program for this plan');
4582: RETCODE := G_ERROR;
4583: RETURN;
4584: END IF;
4585:
4587: G_ALLOC_ATP := NVL(FND_PROFILE.value('MSC_ALLOCATED_ATP'),'N');
4588: G_CLASS_HRCHY := NVL(FND_PROFILE.VALUE('MSC_CLASS_HIERARCHY'), 2);
4589: G_ALLOC_METHOD := NVL(FND_PROFILE.VALUE('MSC_ALLOCATION_METHOD'), 2);
4590:
4591: msc_util.msc_log('G_ALLOC_ATP := ' || G_ALLOC_ATP);
4592: msc_util.msc_log('G_CLASS_HRCHY := ' || G_CLASS_HRCHY);
4593: msc_util.msc_log('G_ALLOC_METHOD := ' || G_ALLOC_METHOD);
4594: -- End Bug 3344102
4595:
4588: G_CLASS_HRCHY := NVL(FND_PROFILE.VALUE('MSC_CLASS_HIERARCHY'), 2);
4589: G_ALLOC_METHOD := NVL(FND_PROFILE.VALUE('MSC_ALLOCATION_METHOD'), 2);
4590:
4591: msc_util.msc_log('G_ALLOC_ATP := ' || G_ALLOC_ATP);
4592: msc_util.msc_log('G_CLASS_HRCHY := ' || G_CLASS_HRCHY);
4593: msc_util.msc_log('G_ALLOC_METHOD := ' || G_ALLOC_METHOD);
4594: -- End Bug 3344102
4595:
4596: msc_util.msc_log('Deleting Existing ATP Pegging data for plan : ' || p_plan_id);
4589: G_ALLOC_METHOD := NVL(FND_PROFILE.VALUE('MSC_ALLOCATION_METHOD'), 2);
4590:
4591: msc_util.msc_log('G_ALLOC_ATP := ' || G_ALLOC_ATP);
4592: msc_util.msc_log('G_CLASS_HRCHY := ' || G_CLASS_HRCHY);
4593: msc_util.msc_log('G_ALLOC_METHOD := ' || G_ALLOC_METHOD);
4594: -- End Bug 3344102
4595:
4596: msc_util.msc_log('Deleting Existing ATP Pegging data for plan : ' || p_plan_id);
4597:
4592: msc_util.msc_log('G_CLASS_HRCHY := ' || G_CLASS_HRCHY);
4593: msc_util.msc_log('G_ALLOC_METHOD := ' || G_ALLOC_METHOD);
4594: -- End Bug 3344102
4595:
4596: msc_util.msc_log('Deleting Existing ATP Pegging data for plan : ' || p_plan_id);
4597:
4598: IF l_share_partition = 'Y' THEN
4599: DELETE from msc_atp_pegging
4600: where plan_id = p_plan_id;
4599: DELETE from msc_atp_pegging
4600: where plan_id = p_plan_id;
4601:
4602: IF PG_DEBUG in ('Y', 'C') THEN
4603: msc_util.msc_log ('Post_Plan_Pegging: Number of rows deleted '|| SQL%ROWCOUNT);
4604: END IF;
4605: END IF;
4606:
4607: l_retval := FND_INSTALLATION.GET_APP_INFO('FND', dummy1, dummy2, l_applsys_schema);
4611: MSC_POST_PRO.G_SF_ATPPEG_RUNNING,
4612: l_return_status);
4613: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4614: IF PG_DEBUG in ('Y', 'C') THEN
4615: msc_util.msc_log('Post_Plan_Pegging: ' ||
4616: 'Error occured in procedure Update_Summary_Flag');
4617: END IF;
4618: RAISE FND_API.G_EXC_ERROR;
4619: END IF;
4622: select logfile_name
4623: into l_log_file
4624: from fnd_concurrent_requests
4625: where request_id = fnd_global.conc_request_id;
4626: msc_util.msc_log('LOG FILE is: ' || l_log_file);
4627: ELSE
4628: BEGIN
4629: SELECT mrp_atp_schedule_temp_s.currval
4630: INTO l_session_id
4636: FROM dual;
4637: order_sch_wb.debug_session_id := l_session_id;
4638: END;
4639:
4640: msc_util.msc_log('Setting ATP Session ID : ' || l_session_id);
4641: msc_util.msc_log('LOG FILE is: session-' || l_session_id);
4642: END IF;
4643:
4644: IF PG_DEBUG in ('Y', 'C') THEN
4637: order_sch_wb.debug_session_id := l_session_id;
4638: END;
4639:
4640: msc_util.msc_log('Setting ATP Session ID : ' || l_session_id);
4641: msc_util.msc_log('LOG FILE is: session-' || l_session_id);
4642: END IF;
4643:
4644: IF PG_DEBUG in ('Y', 'C') THEN
4645:
4642: END IF;
4643:
4644: IF PG_DEBUG in ('Y', 'C') THEN
4645:
4646: msc_util.msc_log('Calling Generate_Simplified_Pegging ' );
4647: END IF;
4648:
4649: MSC_ATP_PEG.Generate_Simplified_Pegging(p_plan_id, l_share_partition,
4650: l_applsys_schema, l_ret_code);
4648:
4649: MSC_ATP_PEG.Generate_Simplified_Pegging(p_plan_id, l_share_partition,
4650: l_applsys_schema, l_ret_code);
4651: IF PG_DEBUG in ('Y', 'C') THEN
4652: msc_util.msc_log('After Call to Generate_Simplified_Pegging ' );
4653: msc_util.msc_log('Return Code is := ' || l_ret_code);
4654: END IF;
4655: --IF l_ret_code = G_ERROR THEN
4656: -- RETCODE := G_WARNING; -- For now we are treating this as a warning
4649: MSC_ATP_PEG.Generate_Simplified_Pegging(p_plan_id, l_share_partition,
4650: l_applsys_schema, l_ret_code);
4651: IF PG_DEBUG in ('Y', 'C') THEN
4652: msc_util.msc_log('After Call to Generate_Simplified_Pegging ' );
4653: msc_util.msc_log('Return Code is := ' || l_ret_code);
4654: END IF;
4655: --IF l_ret_code = G_ERROR THEN
4656: -- RETCODE := G_WARNING; -- For now we are treating this as a warning
4657: --END IF;
4666: EXCEPTION
4667: WHEN OTHERS THEN
4668:
4669: IF PG_DEBUG in ('Y', 'C') THEN
4670: msc_util.msc_log('ERROR IN Generate_Simplified_Pegging ' );
4671: msc_util.msc_log('ERROR: ' || to_char(SQLCODE));
4672: msc_util.msc_log('ERROR: ' || sqlerrm);
4673: END IF;
4674: RETCODE := G_ERROR;
4667: WHEN OTHERS THEN
4668:
4669: IF PG_DEBUG in ('Y', 'C') THEN
4670: msc_util.msc_log('ERROR IN Generate_Simplified_Pegging ' );
4671: msc_util.msc_log('ERROR: ' || to_char(SQLCODE));
4672: msc_util.msc_log('ERROR: ' || sqlerrm);
4673: END IF;
4674: RETCODE := G_ERROR;
4675: ERRBUF := sqlerrm;
4668:
4669: IF PG_DEBUG in ('Y', 'C') THEN
4670: msc_util.msc_log('ERROR IN Generate_Simplified_Pegging ' );
4671: msc_util.msc_log('ERROR: ' || to_char(SQLCODE));
4672: msc_util.msc_log('ERROR: ' || sqlerrm);
4673: END IF;
4674: RETCODE := G_ERROR;
4675: ERRBUF := sqlerrm;
4676: END;
4679: MSC_POST_PRO.G_SF_ATPPEG_COMPLETED,
4680: l_return_status);
4681: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4682: IF PG_DEBUG in ('Y', 'C') THEN
4683: msc_util.msc_log('Post_Plan_Pegging: ' ||
4684: 'Error occured in procedure Update_Summary_Flag');
4685: END IF;
4686: RAISE FND_API.G_EXC_ERROR;
4687: END IF;
4692: l_return_status);
4693:
4694: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4695: IF PG_DEBUG in ('Y', 'C') THEN
4696: msc_util.msc_log('Post_Plan_Pegging: ' ||
4697: 'Error occured in procedure Update_Summary_Flag');
4698: END IF;
4699: END IF;
4700:
4698: END IF;
4699: END IF;
4700:
4701: IF PG_DEBUG in ('Y', 'C') THEN
4702: msc_util.msc_log ('post_plan_pegging. Error : ' || sqlerrm);
4703: END IF;
4704: ERRBUF := sqlerrm;
4705: RETCODE := G_ERROR;
4706: