110: -- reduce allocations for the decreased qty
111:
112: IF (g_fnd_debug = 'Y')
113: THEN
114: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
115: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
116: , G_MODULE_PREFIX ||
117: 'Process_Quantity_Changes.Invoked'
118: , 'Entry');
111:
112: IF (g_fnd_debug = 'Y')
113: THEN
114: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
115: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
116: , G_MODULE_PREFIX ||
117: 'Process_Quantity_Changes.Invoked'
118: , 'Entry');
119: END IF;
118: , 'Entry');
119: END IF;
120: END IF;
121:
122: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
123: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
124: , G_MODULE_PREFIX ||
125: 'p_SUBCONTRACT_PO_SHIPMENT_ID => '
126: , p_SUBCONTRACT_PO_SHIPMENT_ID);
119: END IF;
120: END IF;
121:
122: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
123: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
124: , G_MODULE_PREFIX ||
125: 'p_SUBCONTRACT_PO_SHIPMENT_ID => '
126: , p_SUBCONTRACT_PO_SHIPMENT_ID);
127: END IF;
124: , G_MODULE_PREFIX ||
125: 'p_SUBCONTRACT_PO_SHIPMENT_ID => '
126: , p_SUBCONTRACT_PO_SHIPMENT_ID);
127: END IF;
128: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
129: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
130: , G_MODULE_PREFIX ||
131: 'p_old_ordered_quantity => '
132: , p_old_ordered_quantity );
125: 'p_SUBCONTRACT_PO_SHIPMENT_ID => '
126: , p_SUBCONTRACT_PO_SHIPMENT_ID);
127: END IF;
128: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
129: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
130: , G_MODULE_PREFIX ||
131: 'p_old_ordered_quantity => '
132: , p_old_ordered_quantity );
133: END IF;
130: , G_MODULE_PREFIX ||
131: 'p_old_ordered_quantity => '
132: , p_old_ordered_quantity );
133: END IF;
134: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
135: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
136: , G_MODULE_PREFIX ||
137: 'p_new_ordered_quantity => '
138: , p_new_ordered_quantity);
131: 'p_old_ordered_quantity => '
132: , p_old_ordered_quantity );
133: END IF;
134: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
135: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
136: , G_MODULE_PREFIX ||
137: 'p_new_ordered_quantity => '
138: , p_new_ordered_quantity);
139: END IF;
143: l_allocation_date := NULL;
144: l_allocation_date := JMF_SHIKYU_UTIL.GET_allocation_date
145: ( p_wip_entity_id => p_wip_entity_id );
146: --dbms_output.put_line(' l_allocation_date => '|| l_allocation_date );
147: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
148: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
149: , G_MODULE_PREFIX ||
150: 'l_allocation_date => '
151: , l_allocation_date);
144: l_allocation_date := JMF_SHIKYU_UTIL.GET_allocation_date
145: ( p_wip_entity_id => p_wip_entity_id );
146: --dbms_output.put_line(' l_allocation_date => '|| l_allocation_date );
147: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
148: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
149: , G_MODULE_PREFIX ||
150: 'l_allocation_date => '
151: , l_allocation_date);
152: END IF;
153:
154: FOR C_shikyu_components_rec IN C_shikyu_components_CSR
155: LOOP
156:
157: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
158: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
159: , G_MODULE_PREFIX ||
160: 'rajesh Component ID => '
161: , C_shikyu_components_rec.shikyu_component_id);
154: FOR C_shikyu_components_rec IN C_shikyu_components_CSR
155: LOOP
156:
157: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
158: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
159: , G_MODULE_PREFIX ||
160: 'rajesh Component ID => '
161: , C_shikyu_components_rec.shikyu_component_id);
162: END IF;
168: C_shikyu_components_rec.shikyu_component_id
169: , p_SUBCONTRACT_PO_SHIPMENT_ID => p_SUBCONTRACT_PO_SHIPMENT_ID );
170:
171: --dbms_output.put_line(' l_component_new_quantity => '|| l_component_new_quantity);
172: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
173: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
174: , G_MODULE_PREFIX ||
175: 'l_component_new_quantity => '
176: , l_component_new_quantity);
169: , p_SUBCONTRACT_PO_SHIPMENT_ID => p_SUBCONTRACT_PO_SHIPMENT_ID );
170:
171: --dbms_output.put_line(' l_component_new_quantity => '|| l_component_new_quantity);
172: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
173: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
174: , G_MODULE_PREFIX ||
175: 'l_component_new_quantity => '
176: , l_component_new_quantity);
177: END IF;
185: /*dbms_output.put_line(' l_current_allocated_quantity => '||
186: l_current_allocated_quantity );
187: dbms_output.put_line(' l_component_new_quantity => '||
188: l_component_new_quantity);*/
189: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
190: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
191: , G_MODULE_PREFIX ||
192: 'l_current_allocated_quantity => '
193: , l_current_allocated_quantity);
186: l_current_allocated_quantity );
187: dbms_output.put_line(' l_component_new_quantity => '||
188: l_component_new_quantity);*/
189: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
190: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
191: , G_MODULE_PREFIX ||
192: 'l_current_allocated_quantity => '
193: , l_current_allocated_quantity);
194: END IF;
196:
197: IF l_component_new_quantity > l_current_allocated_quantity
198: THEN
199: --dbms_output.put_line(' Cazll JMF_SHIKYU_ALLOCATION_PVT.Create_New_Allocations');
200: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
201: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
202: , G_MODULE_PREFIX ||
203: 'Calling JMF_SHIKYU_ALLOCATION_PVT.Create_New_Allocations SCO '
204: , p_SUBCONTRACT_PO_SHIPMENT_ID );
197: IF l_component_new_quantity > l_current_allocated_quantity
198: THEN
199: --dbms_output.put_line(' Cazll JMF_SHIKYU_ALLOCATION_PVT.Create_New_Allocations');
200: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
201: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
202: , G_MODULE_PREFIX ||
203: 'Calling JMF_SHIKYU_ALLOCATION_PVT.Create_New_Allocations SCO '
204: , p_SUBCONTRACT_PO_SHIPMENT_ID );
205: END IF;
224:
225: ELSIF l_component_new_quantity < l_current_allocated_quantity
226: THEN
227: --dbms_output.put_line(' Call JMF_SHIKYU_ALLOCATION_PVT.Reduce_Allocations ');
228: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
229: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
230: , G_MODULE_PREFIX ||
231: 'Calling JMF_SHIKYU_ALLOCATION_PVT.Reduce_Allocations '
232: , p_SUBCONTRACT_PO_SHIPMENT_ID );
225: ELSIF l_component_new_quantity < l_current_allocated_quantity
226: THEN
227: --dbms_output.put_line(' Call JMF_SHIKYU_ALLOCATION_PVT.Reduce_Allocations ');
228: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
229: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
230: , G_MODULE_PREFIX ||
231: 'Calling JMF_SHIKYU_ALLOCATION_PVT.Reduce_Allocations '
232: , p_SUBCONTRACT_PO_SHIPMENT_ID );
233: END IF;
261: --dbms_output.put_line(' OUT OF Loop ');
262:
263: IF (g_fnd_debug = 'Y')
264: THEN
265: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
266: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
267: , G_MODULE_PREFIX ||
268: 'Process_Quantity_Changes. OUT'
269: , 'Entry');
262:
263: IF (g_fnd_debug = 'Y')
264: THEN
265: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
266: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
267: , G_MODULE_PREFIX ||
268: 'Process_Quantity_Changes. OUT'
269: , 'Entry');
270: END IF;
383: AND pol.po_line_id = l_repl_po_line_id ;
384:
385: BEGIN
386:
387: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
388: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
389: , G_MODULE_PREFIX ||
390: 'INTO update_replenishment_date FOR SCO PO SHIPID: '
391: , p_subcontract_po_shipment_id);
384:
385: BEGIN
386:
387: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
388: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
389: , G_MODULE_PREFIX ||
390: 'INTO update_replenishment_date FOR SCO PO SHIPID: '
391: , p_subcontract_po_shipment_id);
392: END IF;
390: 'INTO update_replenishment_date FOR SCO PO SHIPID: '
391: , p_subcontract_po_shipment_id);
392: END IF;
393:
394: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
395: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
396: , G_MODULE_PREFIX ||
397: 'p_new_ship_date => '
398: , p_new_ship_date);
391: , p_subcontract_po_shipment_id);
392: END IF;
393:
394: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
395: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
396: , G_MODULE_PREFIX ||
397: 'p_new_ship_date => '
398: , p_new_ship_date);
399: END IF;
396: , G_MODULE_PREFIX ||
397: 'p_new_ship_date => '
398: , p_new_ship_date);
399: END IF;
400: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
401: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
402: , G_MODULE_PREFIX ||
403: 'p_allocation_date => '
404: , p_allocation_date );
397: 'p_new_ship_date => '
398: , p_new_ship_date);
399: END IF;
400: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
401: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
402: , G_MODULE_PREFIX ||
403: 'p_allocation_date => '
404: , p_allocation_date );
405: END IF;
407:
408:
409: FOR C_select_replenishments_REC IN C_select_replenishments_CSR
410: LOOP
411: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
412: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
413: , G_MODULE_PREFIX ||
414: 'Start OM rescheduling : REPLENISHMENT_SO_LINE_ID '
415: , C_select_replenishments_REC.REPLENISHMENT_SO_LINE_ID);
408:
409: FOR C_select_replenishments_REC IN C_select_replenishments_CSR
410: LOOP
411: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
412: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
413: , G_MODULE_PREFIX ||
414: 'Start OM rescheduling : REPLENISHMENT_SO_LINE_ID '
415: , C_select_replenishments_REC.REPLENISHMENT_SO_LINE_ID);
416: END IF;
428:
429: l_line_tbl(1) := l_line_rec;
430:
431: oe_debug_pub.add('Before Process_Order',1);
432: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
433: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
434: , G_MODULE_PREFIX ||
435: 'OE_Order_PVT.Process_order re-scheduling '
436: , 'calling ');
429: l_line_tbl(1) := l_line_rec;
430:
431: oe_debug_pub.add('Before Process_Order',1);
432: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
433: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
434: , G_MODULE_PREFIX ||
435: 'OE_Order_PVT.Process_order re-scheduling '
436: , 'calling ');
437: END IF;
465: );
466:
467:
468:
469: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
470: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
471: , G_MODULE_PREFIX ||
472: 'OE_Order_PVT.Process_order re-scheduling '
473: , 'out ');
466:
467:
468:
469: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
470: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
471: , G_MODULE_PREFIX ||
472: 'OE_Order_PVT.Process_order re-scheduling '
473: , 'out ');
474: END IF;
472: 'OE_Order_PVT.Process_order re-scheduling '
473: , 'out ');
474: END IF;
475:
476: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
477: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
478: , G_MODULE_PREFIX ||
479: 'l_return_status => '|| l_return_status
480: , l_return_status);
473: , 'out ');
474: END IF;
475:
476: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
477: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
478: , G_MODULE_PREFIX ||
479: 'l_return_status => '|| l_return_status
480: , l_return_status);
481: END IF;
480: , l_return_status);
481: END IF;
482:
483: ------ end OM -----------
484: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
485: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
486: , G_MODULE_PREFIX ||
487: 'END OM rescheduling : REPLENISHMENT_SO_LINE_ID '
488: , C_select_replenishments_REC.REPLENISHMENT_SO_LINE_ID);
481: END IF;
482:
483: ------ end OM -----------
484: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
485: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
486: , G_MODULE_PREFIX ||
487: 'END OM rescheduling : REPLENISHMENT_SO_LINE_ID '
488: , C_select_replenishments_REC.REPLENISHMENT_SO_LINE_ID);
489: END IF;
490:
491: --------------------------------------------------------
492: ------------------- PO RESCHEDULING --------------------
493:
494: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
495: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
496: , G_MODULE_PREFIX ||
497: 'rajesh START PO RESCHEDULING '
498: , C_select_replenishments_REC.REPLENISHMENT_PO_SHIPMENT_ID);
491: --------------------------------------------------------
492: ------------------- PO RESCHEDULING --------------------
493:
494: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
495: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
496: , G_MODULE_PREFIX ||
497: 'rajesh START PO RESCHEDULING '
498: , C_select_replenishments_REC.REPLENISHMENT_PO_SHIPMENT_ID);
499: END IF;
508: C_select_replenishments_REC.replenishment_po_header_id ;
509: l_repl_po_shipment_id :=
510: C_select_replenishments_REC.replenishment_po_shipment_id ;
511:
512: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
513: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
514: , G_MODULE_PREFIX ||
515: 'l_repl_po_header_id => '
516: , l_repl_po_header_id);
509: l_repl_po_shipment_id :=
510: C_select_replenishments_REC.replenishment_po_shipment_id ;
511:
512: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
513: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
514: , G_MODULE_PREFIX ||
515: 'l_repl_po_header_id => '
516: , l_repl_po_header_id);
517:
514: , G_MODULE_PREFIX ||
515: 'l_repl_po_header_id => '
516: , l_repl_po_header_id);
517:
518: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
519: , G_MODULE_PREFIX ||
520: 'l_repl_po_line_id => '
521: , l_repl_po_line_id);
522:
519: , G_MODULE_PREFIX ||
520: 'l_repl_po_line_id => '
521: , l_repl_po_line_id);
522:
523: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
524: , G_MODULE_PREFIX ||
525: 'l_repl_po_shipment_id => '
526: , l_repl_po_shipment_id);
527: END IF;
527: END IF;
528:
529: FOR C_PO_details_REC IN C_PO_details_CSR
530: LOOP
531: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
532: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
533: , G_MODULE_PREFIX ||
534: 'rajesh Into PO Loop for segment1 => '
535: , C_PO_details_REC.segment1);
528:
529: FOR C_PO_details_REC IN C_PO_details_CSR
530: LOOP
531: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
532: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
533: , G_MODULE_PREFIX ||
534: 'rajesh Into PO Loop for segment1 => '
535: , C_PO_details_REC.segment1);
536:
536:
537: END IF;
538: BEGIN
539:
540: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
541: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
542: , G_MODULE_PREFIX ||
543: 'Calling PO_CHANGE_API1_S for : '
544: , C_PO_details_REC.segment1 );
537: END IF;
538: BEGIN
539:
540: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
541: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
542: , G_MODULE_PREFIX ||
543: 'Calling PO_CHANGE_API1_S for : '
544: , C_PO_details_REC.segment1 );
545: END IF;
573: , p_preferred_grade => null
574: --
575: ) ;
576:
577: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
578: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
579: , G_MODULE_PREFIX ||
580: 'After PO reschedule l_return_number => ' || l_return_number
581: , l_return_number);
574: --
575: ) ;
576:
577: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
578: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
579: , G_MODULE_PREFIX ||
580: 'After PO reschedule l_return_number => ' || l_return_number
581: , l_return_number);
582: END IF;
584:
585:
586: END LOOP ; --PO loop
587:
588: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
589: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
590: , G_MODULE_PREFIX ||
591: 'Out of PO loop '
592: , 'rajesh ');
585:
586: END LOOP ; --PO loop
587:
588: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
589: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
590: , G_MODULE_PREFIX ||
591: 'Out of PO loop '
592: , 'rajesh ');
593: END IF;
594:
595:
596: END LOOP ; -- main repl loop
597:
598: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
599: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
600: , G_MODULE_PREFIX ||
601: 'OUT OF main loop '
602: , 'rajesh');
595:
596: END LOOP ; -- main repl loop
597:
598: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
599: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
600: , G_MODULE_PREFIX ||
601: 'OUT OF main loop '
602: , 'rajesh');
603: END IF;
602: , 'rajesh');
603: END IF;
604:
605:
606: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
607: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
608: , G_MODULE_PREFIX ||
609: 'completed update_replenishment_date'
610: , 'EXit');
603: END IF;
604:
605:
606: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
607: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
608: , G_MODULE_PREFIX ||
609: 'completed update_replenishment_date'
610: , 'EXit');
611: END IF;
628: l_release_status VARCHAR2(3) ;
629:
630: BEGIN
631:
632: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
633: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
634: , G_MODULE_PREFIX ||
635: 'check_pick_released '
636: , 'ENTRY');
629:
630: BEGIN
631:
632: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
633: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
634: , G_MODULE_PREFIX ||
635: 'check_pick_released '
636: , 'ENTRY');
637: END IF;
651: AND NVL(released_status,'R') = 'Y' ;
652:
653: l_released := 'Y' ;
654:
655: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
656: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
657: , 'JMFVSKRB: l_id : l_release_status : l_released = '
658: , l_id || l_release_status || l_released );
659: END IF;
652:
653: l_released := 'Y' ;
654:
655: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
656: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
657: , 'JMFVSKRB: l_id : l_release_status : l_released = '
658: , l_id || l_release_status || l_released );
659: END IF;
660:
673:
674: RETURN l_released ;
675:
676:
677: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
678: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
679: , G_MODULE_PREFIX ||
680: 'check_pick_released '
681: , 'OUT ');
674: RETURN l_released ;
675:
676:
677: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
678: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
679: , G_MODULE_PREFIX ||
680: 'check_pick_released '
681: , 'OUT ');
682: END IF;
709: l_pick_release VARCHAR2(1) := 'N' ;
710:
711: BEGIN
712:
713: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
714: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
715: , G_MODULE_PREFIX ||
716: 'into check_repl_retain'
717: , 'Entry');
710:
711: BEGIN
712:
713: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
714: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
715: , G_MODULE_PREFIX ||
716: 'into check_repl_retain'
717: , 'Entry');
718: END IF;
716: 'into check_repl_retain'
717: , 'Entry');
718: END IF;
719:
720: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
721: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
722: , 'JMFVSKRB : p_replen_so_line_id => '
723: , p_replen_so_line_id);
724: END IF;
717: , 'Entry');
718: END IF;
719:
720: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
721: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
722: , 'JMFVSKRB : p_replen_so_line_id => '
723: , p_replen_so_line_id);
724: END IF;
725: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
721: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
722: , 'JMFVSKRB : p_replen_so_line_id => '
723: , p_replen_so_line_id);
724: END IF;
725: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
726: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
727: , 'JMFVSKRB: p_replen_so_header_id => '
728: , p_replen_so_header_id );
729: END IF;
722: , 'JMFVSKRB : p_replen_so_line_id => '
723: , p_replen_so_line_id);
724: END IF;
725: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
726: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
727: , 'JMFVSKRB: p_replen_so_header_id => '
728: , p_replen_so_header_id );
729: END IF;
730:
729: END IF;
730:
731: l_check := NULL ;
732:
733: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
734: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
735: , G_MODULE_PREFIX ||
736: 'shipped : invcd: ship_intf:cncl : '||
737: p_shipped_quantity || p_invoiced_quantity || p_shipping_interfaced_flag || p_cancelled_flag
730:
731: l_check := NULL ;
732:
733: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
734: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
735: , G_MODULE_PREFIX ||
736: 'shipped : invcd: ship_intf:cncl : '||
737: p_shipped_quantity || p_invoiced_quantity || p_shipping_interfaced_flag || p_cancelled_flag
738: , 'rajesh');
742: NVL( p_shipped_quantity,0) <> 0 OR
743: NVL( p_invoiced_quantity,0) <> 0 OR
744: NVL( p_cancelled_flag,'N') = 'Y'
745: THEN
746: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
747: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
748: , G_MODULE_PREFIX ||
749: 'One of the flag issue '
750: , 'INTO IF ');
743: NVL( p_invoiced_quantity,0) <> 0 OR
744: NVL( p_cancelled_flag,'N') = 'Y'
745: THEN
746: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
747: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
748: , G_MODULE_PREFIX ||
749: 'One of the flag issue '
750: , 'INTO IF ');
751: END IF;
758: ( p_header_id => p_replen_so_header_id
759: , p_line_id => p_replen_so_line_id
760: ) ;
761:
762: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
763: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
764: , 'JMFVSKRB: AFter check_pick_released => '
765: , l_pick_release );
766: END IF;
759: , p_line_id => p_replen_so_line_id
760: ) ;
761:
762: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
763: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
764: , 'JMFVSKRB: AFter check_pick_released => '
765: , l_pick_release );
766: END IF;
767:
771: END IF;
772:
773: ELSE
774: l_check := NULL ;
775: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
776: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
777: , G_MODULE_PREFIX ||
778: 'Into other check as REPL SO is open '
779: , l_check);
772:
773: ELSE
774: l_check := NULL ;
775: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
776: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
777: , G_MODULE_PREFIX ||
778: 'Into other check as REPL SO is open '
779: , l_check);
780: END IF;
786: FROM jmf_shikyu_replenishments
787: WHERE REPLENISHMENT_SO_LINE_ID = p_replen_so_line_id
788: AND REPLENISHMENT_SO_HEADER_ID = p_replen_so_header_id ;
789:
790: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
791: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
792: , G_MODULE_PREFIX ||
793: 'l_REPLENISHMENT_PO_LINE_ID => '
794: , l_REPLENISHMENT_PO_LINE_ID);
787: WHERE REPLENISHMENT_SO_LINE_ID = p_replen_so_line_id
788: AND REPLENISHMENT_SO_HEADER_ID = p_replen_so_header_id ;
789:
790: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
791: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
792: , G_MODULE_PREFIX ||
793: 'l_REPLENISHMENT_PO_LINE_ID => '
794: , l_REPLENISHMENT_PO_LINE_ID);
795: END IF;
804: WHEN TOO_MANY_ROWS THEN
805: l_REPLENISHMENT_PO_LINE_ID := NULL ;
806: l_check := 'N' ;
807:
808: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
809: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
810: , G_MODULE_PREFIX ||
811: 'Too many repl PO attached '
812: , l_check);
805: l_REPLENISHMENT_PO_LINE_ID := NULL ;
806: l_check := 'N' ;
807:
808: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
809: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
810: , G_MODULE_PREFIX ||
811: 'Too many repl PO attached '
812: , l_check);
813: END IF;
813: END IF;
814:
815: END ;
816:
817: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
818: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
819: , G_MODULE_PREFIX ||
820: 'before sco check l_check => '|| l_check
821: , l_check);
814:
815: END ;
816:
817: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
818: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
819: , G_MODULE_PREFIX ||
820: 'before sco check l_check => '|| l_check
821: , l_check);
822: END IF;
837: WHEN NO_DATA_FOUND THEN
838: L_SUBCONTRACT_PO_SHIPMENT_ID := NULL ;
839: l_check := 'Y' ;
840:
841: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
842: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
843: , G_MODULE_PREFIX ||
844: 'only one SCO attached l_check => '
845: , l_check);
838: L_SUBCONTRACT_PO_SHIPMENT_ID := NULL ;
839: l_check := 'Y' ;
840:
841: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
842: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
843: , G_MODULE_PREFIX ||
844: 'only one SCO attached l_check => '
845: , l_check);
846: END IF;
854:
855: END IF ;
856:
857:
858: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
859: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
860: , G_MODULE_PREFIX ||
861: 'check_repl_retain l_check => '|| l_check
862: , 'About to return ');
855: END IF ;
856:
857:
858: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
859: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
860: , G_MODULE_PREFIX ||
861: 'check_repl_retain l_check => '|| l_check
862: , 'About to return ');
863: END IF;
990: p_puchasing_UOM ); */
991:
992: IF (g_fnd_debug = 'Y')
993: THEN
994: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
995: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
996: , G_MODULE_PREFIX ||
997: 'Process_Date_Changes.Invoked'
998: , 'Entry');
991:
992: IF (g_fnd_debug = 'Y')
993: THEN
994: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
995: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
996: , G_MODULE_PREFIX ||
997: 'Process_Date_Changes.Invoked'
998: , 'Entry');
999: END IF;
996: , G_MODULE_PREFIX ||
997: 'Process_Date_Changes.Invoked'
998: , 'Entry');
999: END IF;
1000: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1001: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1002: , G_MODULE_PREFIX ||
1003: 'p_old_need_by_date SCO => '|| p_old_need_by_date
1004: , p_old_need_by_date );
997: 'Process_Date_Changes.Invoked'
998: , 'Entry');
999: END IF;
1000: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1001: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1002: , G_MODULE_PREFIX ||
1003: 'p_old_need_by_date SCO => '|| p_old_need_by_date
1004: , p_old_need_by_date );
1005: END IF;
1002: , G_MODULE_PREFIX ||
1003: 'p_old_need_by_date SCO => '|| p_old_need_by_date
1004: , p_old_need_by_date );
1005: END IF;
1006: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1007: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1008: , G_MODULE_PREFIX ||
1009: 'p_new_need_by_date SCO => '|| p_new_need_by_date
1010: , p_new_need_by_date );
1003: 'p_old_need_by_date SCO => '|| p_old_need_by_date
1004: , p_old_need_by_date );
1005: END IF;
1006: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1007: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1008: , G_MODULE_PREFIX ||
1009: 'p_new_need_by_date SCO => '|| p_new_need_by_date
1010: , p_new_need_by_date );
1011: END IF;
1008: , G_MODULE_PREFIX ||
1009: 'p_new_need_by_date SCO => '|| p_new_need_by_date
1010: , p_new_need_by_date );
1011: END IF;
1012: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1013: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1014: , G_MODULE_PREFIX ||
1015: 'p_SUBCONTRACT_PO_SHIPMENT_ID => '
1016: , p_SUBCONTRACT_PO_SHIPMENT_ID );
1009: 'p_new_need_by_date SCO => '|| p_new_need_by_date
1010: , p_new_need_by_date );
1011: END IF;
1012: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1013: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1014: , G_MODULE_PREFIX ||
1015: 'p_SUBCONTRACT_PO_SHIPMENT_ID => '
1016: , p_SUBCONTRACT_PO_SHIPMENT_ID );
1017: END IF;
1042:
1043:
1044: --dbms_output.put_line(' l_allocation_date => '|| l_allocation_date );
1045: -- rajesh main loop
1046: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1047: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1048: , G_MODULE_PREFIX ||
1049: 'rajesh l_allocation_date => '
1050: , l_allocation_date);
1043:
1044: --dbms_output.put_line(' l_allocation_date => '|| l_allocation_date );
1045: -- rajesh main loop
1046: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1047: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1048: , G_MODULE_PREFIX ||
1049: 'rajesh l_allocation_date => '
1050: , l_allocation_date);
1051: END IF;
1054: LOOP
1055: l_shikyu_component_id :=
1056: C_SHIKYU_components_rec.SHIKYU_component_id ;
1057:
1058: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1059: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1060: , G_MODULE_PREFIX ||
1061: 'l_shikyu_component_id => '|| l_shikyu_component_id
1062: , l_shikyu_component_id);
1055: l_shikyu_component_id :=
1056: C_SHIKYU_components_rec.SHIKYU_component_id ;
1057:
1058: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1059: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1060: , G_MODULE_PREFIX ||
1061: 'l_shikyu_component_id => '|| l_shikyu_component_id
1062: , l_shikyu_component_id);
1063: END IF;
1073: , p_tp_organization => p_tp_organization_id
1074: , p_scheduled_ship_date => C_NEED_BY_DATE_rec.schedule_ship_date
1075: ) ;
1076:
1077: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1078: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1079: , G_MODULE_PREFIX ||
1080: 'rajesh l_final_ship_date in current repl => '|| l_final_ship_date
1081: , l_final_ship_date);
1074: , p_scheduled_ship_date => C_NEED_BY_DATE_rec.schedule_ship_date
1075: ) ;
1076:
1077: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1078: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1079: , G_MODULE_PREFIX ||
1080: 'rajesh l_final_ship_date in current repl => '|| l_final_ship_date
1081: , l_final_ship_date);
1082: END IF;
1091: -- Rajesh: reschedule
1092:
1093: l_retain := NULL ;
1094:
1095: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1096: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1097: , G_MODULE_PREFIX ||
1098: 'existing repl will not arrive on time SO LINE ID: '
1099: , C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID );
1092:
1093: l_retain := NULL ;
1094:
1095: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1096: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1097: , G_MODULE_PREFIX ||
1098: 'existing repl will not arrive on time SO LINE ID: '
1099: , C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID );
1100: END IF;
1098: 'existing repl will not arrive on time SO LINE ID: '
1099: , C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID );
1100: END IF;
1101:
1102: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1103: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1104: , G_MODULE_PREFIX ||
1105: 'Call check_repl_retain for C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID'
1106: , C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID );
1099: , C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID );
1100: END IF;
1101:
1102: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1103: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1104: , G_MODULE_PREFIX ||
1105: 'Call check_repl_retain for C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID'
1106: , C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID );
1107: END IF;
1124: , p_cancelled_flag =>
1125: C_NEED_BY_DATE_rec.cancelled_flag
1126: );
1127:
1128: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1129: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1130: , G_MODULE_PREFIX ||
1131: 'rajesh Out of check_repl_retain => '
1132: , l_retain );
1125: C_NEED_BY_DATE_rec.cancelled_flag
1126: );
1127:
1128: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1129: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1130: , G_MODULE_PREFIX ||
1131: 'rajesh Out of check_repl_retain => '
1132: , l_retain );
1133: END IF;
1133: END IF;
1134:
1135: IF NVL(l_retain,'Y') = 'N'
1136: THEN
1137: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1138: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1139: , G_MODULE_PREFIX ||
1140: 'Call Delete_Allocations for repl SO LINE ID '||
1141: C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID
1134:
1135: IF NVL(l_retain,'Y') = 'N'
1136: THEN
1137: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1138: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1139: , G_MODULE_PREFIX ||
1140: 'Call Delete_Allocations for repl SO LINE ID '||
1141: C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID
1142: , C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID);
1160:
1161: l_component_removed_qty := NVL(l_component_removed_qty,0) +
1162: C_NEED_BY_DATE_rec.allocated_quantity ;
1163:
1164: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1165: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1166: , G_MODULE_PREFIX ||
1167: 'C_NEED_BY_DATE_rec.allocated_quantity => '
1168: , C_NEED_BY_DATE_rec.allocated_quantity );
1161: l_component_removed_qty := NVL(l_component_removed_qty,0) +
1162: C_NEED_BY_DATE_rec.allocated_quantity ;
1163:
1164: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1165: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1166: , G_MODULE_PREFIX ||
1167: 'C_NEED_BY_DATE_rec.allocated_quantity => '
1168: , C_NEED_BY_DATE_rec.allocated_quantity );
1169: END IF;
1166: , G_MODULE_PREFIX ||
1167: 'C_NEED_BY_DATE_rec.allocated_quantity => '
1168: , C_NEED_BY_DATE_rec.allocated_quantity );
1169: END IF;
1170: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1171: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1172: , G_MODULE_PREFIX ||
1173: 'l_component_removed_qty => '
1174: , l_component_removed_qty );
1167: 'C_NEED_BY_DATE_rec.allocated_quantity => '
1168: , C_NEED_BY_DATE_rec.allocated_quantity );
1169: END IF;
1170: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1171: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1172: , G_MODULE_PREFIX ||
1173: 'l_component_removed_qty => '
1174: , l_component_removed_qty );
1175: END IF;
1177: -- END IF; ---l_final_ship_date
1178:
1179: ELSE
1180: -- Update the existing repl
1181: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1182: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1183: , G_MODULE_PREFIX ||
1184: 'Into the Retain = Y mode reschedule repl '
1185: , C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID);
1178:
1179: ELSE
1180: -- Update the existing repl
1181: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1182: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1183: , G_MODULE_PREFIX ||
1184: 'Into the Retain = Y mode reschedule repl '
1185: , C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID);
1186: END IF;
1183: , G_MODULE_PREFIX ||
1184: 'Into the Retain = Y mode reschedule repl '
1185: , C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID);
1186: END IF;
1187: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1188: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1189: , G_MODULE_PREFIX ||
1190: 'Calling JMF_SHIKYU_ONT_PVT.Calculate_Ship_Date for '
1191: , l_allocation_date );
1184: 'Into the Retain = Y mode reschedule repl '
1185: , C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID);
1186: END IF;
1187: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1188: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1189: , G_MODULE_PREFIX ||
1190: 'Calling JMF_SHIKYU_ONT_PVT.Calculate_Ship_Date for '
1191: , l_allocation_date );
1192: END IF;
1207: , p_need_by_date => l_allocation_date
1208: , x_ship_date => l_reschedule_date );
1209:
1210:
1211: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1212: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1213: , G_MODULE_PREFIX ||
1214: 'rajesh l_reschedule_date => '|| l_reschedule_date
1215: , l_reschedule_date );
1208: , x_ship_date => l_reschedule_date );
1209:
1210:
1211: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1212: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1213: , G_MODULE_PREFIX ||
1214: 'rajesh l_reschedule_date => '|| l_reschedule_date
1215: , l_reschedule_date );
1216: END IF;
1215: , l_reschedule_date );
1216: END IF;
1217:
1218:
1219: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1220: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1221: , G_MODULE_PREFIX ||
1222: 'Call update_replenishment_date for SO LINE ID '||
1223: C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID
1216: END IF;
1217:
1218:
1219: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1220: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1221: , G_MODULE_PREFIX ||
1222: 'Call update_replenishment_date for SO LINE ID '||
1223: C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID
1224: , C_NEED_BY_DATE_rec.REPLENISHMENT_SO_LINE_ID);
1235: , p_new_ship_date => l_reschedule_date
1236: , p_allocation_date => l_allocation_date
1237: );
1238:
1239: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1240: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1241: , G_MODULE_PREFIX ||
1242: 'Out of update_replenishment_date '
1243: , 'rajesh');
1236: , p_allocation_date => l_allocation_date
1237: );
1238:
1239: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1240: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1241: , G_MODULE_PREFIX ||
1242: 'Out of update_replenishment_date '
1243: , 'rajesh');
1244: END IF;
1248: END IF ; -- l_final_ship_date
1249:
1250: END LOOP ;
1251:
1252: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1253: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1254: , G_MODULE_PREFIX ||
1255: 'out of components loop rem qty: '|| l_component_removed_qty
1256: , l_component_removed_qty);
1249:
1250: END LOOP ;
1251:
1252: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1253: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1254: , G_MODULE_PREFIX ||
1255: 'out of components loop rem qty: '|| l_component_removed_qty
1256: , l_component_removed_qty);
1257: END IF;
1257: END IF;
1258:
1259: IF NVL(l_component_removed_qty,0) > 0
1260: THEN
1261: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1262: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1263: , G_MODULE_PREFIX ||
1264: 'Going to call Create new allocations for comp'
1265: , l_SHIKYU_component_id );
1258:
1259: IF NVL(l_component_removed_qty,0) > 0
1260: THEN
1261: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1262: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1263: , G_MODULE_PREFIX ||
1264: 'Going to call Create new allocations for comp'
1265: , l_SHIKYU_component_id );
1266: END IF;
1279: l_component_removed_qty
1280: , p_skip_po_replen_creation => 'N'
1281: );
1282:
1283: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1284: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1285: , G_MODULE_PREFIX ||
1286: 'out of Create new allocations for comp'
1287: , l_return_status );
1280: , p_skip_po_replen_creation => 'N'
1281: );
1282:
1283: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1284: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1285: , G_MODULE_PREFIX ||
1286: 'out of Create new allocations for comp'
1287: , l_return_status );
1288: END IF;
1299:
1300:
1301: IF (g_fnd_debug = 'Y')
1302: THEN
1303: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1304: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1305: , G_MODULE_PREFIX ||
1306: 'Process_Date_Changes.OUT'
1307: , 'Entry');
1300:
1301: IF (g_fnd_debug = 'Y')
1302: THEN
1303: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1304: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1305: , G_MODULE_PREFIX ||
1306: 'Process_Date_Changes.OUT'
1307: , 'Entry');
1308: END IF;
1451:
1452: -- update the JMF subcontract table with the new values
1453: -- COMMIT
1454:
1455: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1456: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1457: , 'JMFVSKRB' ||
1458: 'Process_SHIKYU_Reconciliation.invoked'
1459: , 'Entry');
1452: -- update the JMF subcontract table with the new values
1453: -- COMMIT
1454:
1455: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1456: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1457: , 'JMFVSKRB' ||
1458: 'Process_SHIKYU_Reconciliation.invoked'
1459: , 'Entry');
1460: END IF;
1473: -- Process the changes due to PO subcontract order NEED BY DATE Only
1474: -- Process the change due to the PO subcontract QTY changes Only
1475: -- Process changes due to both PO subcontract need by date and qty changes
1476:
1477: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1478: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1479: , 'JMFVSKRB' ||
1480: 'calling JMF_SHIKYU_UTIL.clean_invalid_data '
1481: , 'out cleanup' );
1474: -- Process the change due to the PO subcontract QTY changes Only
1475: -- Process changes due to both PO subcontract need by date and qty changes
1476:
1477: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1478: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1479: , 'JMFVSKRB' ||
1480: 'calling JMF_SHIKYU_UTIL.clean_invalid_data '
1481: , 'out cleanup' );
1482: END IF;
1487:
1488: -- dbms_output.put_line(' Calling Reconcile_Partial_Shipments ');
1489: IF (g_fnd_debug = 'Y')
1490: THEN
1491: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1492: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1493: , 'JMFVSKRB' ||
1494: 'calling JMF_SHIKYU_ALLOCATION_PVT.Reconcile_Partial_Shipments'
1495: , 'rajesh');
1488: -- dbms_output.put_line(' Calling Reconcile_Partial_Shipments ');
1489: IF (g_fnd_debug = 'Y')
1490: THEN
1491: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1492: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1493: , 'JMFVSKRB' ||
1494: 'calling JMF_SHIKYU_ALLOCATION_PVT.Reconcile_Partial_Shipments'
1495: , 'rajesh');
1496: END IF;
1511:
1512: EXCEPTION
1513: WHEN OTHERS THEN
1514: ROLLBACK;
1515: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1516: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1517: , G_MODULE_PREFIX ||
1518: 'JMFVSKRB: OUT OF Reconcile_Partial_Shipments -- EXCEPTION => '
1519: , l_return_status);
1512: EXCEPTION
1513: WHEN OTHERS THEN
1514: ROLLBACK;
1515: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1516: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1517: , G_MODULE_PREFIX ||
1518: 'JMFVSKRB: OUT OF Reconcile_Partial_Shipments -- EXCEPTION => '
1519: , l_return_status);
1520: END IF;
1520: END IF;
1521:
1522: END ;
1523:
1524: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1525: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1526: , G_MODULE_PREFIX ||
1527: 'JMFVSKRB: continue after Reconcile_Partial_Shipments '
1528: , l_return_status);
1521:
1522: END ;
1523:
1524: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1525: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1526: , G_MODULE_PREFIX ||
1527: 'JMFVSKRB: continue after Reconcile_Partial_Shipments '
1528: , l_return_status);
1529: END IF;
1527: 'JMFVSKRB: continue after Reconcile_Partial_Shipments '
1528: , l_return_status);
1529: END IF;
1530:
1531: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1532: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1533: , 'x_msg_data :: '|| x_msg_data
1534: , x_msg_data);
1535: END IF;
1528: , l_return_status);
1529: END IF;
1530:
1531: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1532: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1533: , 'x_msg_data :: '|| x_msg_data
1534: , x_msg_data);
1535: END IF;
1536:
1537:
1538: l_return_status := NULL;
1539:
1540: -- dbms_output.put_line(' About to open cursor SHIKYU_reconcile_CSR');
1541: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1542: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1543: , 'About to open cursor SHIKYU_reconcile_CSR'
1544: , 'JMFVSKRB' );
1545: END IF;
1538: l_return_status := NULL;
1539:
1540: -- dbms_output.put_line(' About to open cursor SHIKYU_reconcile_CSR');
1541: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1542: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1543: , 'About to open cursor SHIKYU_reconcile_CSR'
1544: , 'JMFVSKRB' );
1545: END IF;
1546:
1549: BEGIN
1550: l_subcontract_po_shipment_id :=
1551: SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID;
1552:
1553: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1554: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1555: , 'JMFVSKRB ' ||
1556: 'INTO CURSOR SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID => '
1557: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1550: l_subcontract_po_shipment_id :=
1551: SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID;
1552:
1553: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1554: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1555: , 'JMFVSKRB ' ||
1556: 'INTO CURSOR SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID => '
1557: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1558: END IF;
1556: 'INTO CURSOR SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID => '
1557: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1558: END IF;
1559:
1560: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1561: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1562: , 'JMFVSKRB ' ||
1563: 'l_subcontract_po_shipment_id => '
1564: , l_subcontract_po_shipment_id);
1557: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1558: END IF;
1559:
1560: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1561: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1562: , 'JMFVSKRB ' ||
1563: 'l_subcontract_po_shipment_id => '
1564: , l_subcontract_po_shipment_id);
1565: END IF;
1563: 'l_subcontract_po_shipment_id => '
1564: , l_subcontract_po_shipment_id);
1565: END IF;
1566:
1567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1568: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1569: , 'JMFVSKRB: ' ||
1570: 'SHIKYU_reconcile_rec.pol_need_by_date => '
1571: , SHIKYU_reconcile_rec.pol_need_by_date);
1564: , l_subcontract_po_shipment_id);
1565: END IF;
1566:
1567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1568: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1569: , 'JMFVSKRB: ' ||
1570: 'SHIKYU_reconcile_rec.pol_need_by_date => '
1571: , SHIKYU_reconcile_rec.pol_need_by_date);
1572: END IF;
1569: , 'JMFVSKRB: ' ||
1570: 'SHIKYU_reconcile_rec.pol_need_by_date => '
1571: , SHIKYU_reconcile_rec.pol_need_by_date);
1572: END IF;
1573: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1574: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1575: , 'JMFVSKRB: ' ||
1576: 'SHIKYU_reconcile_rec.sco_NEED_BY_DATE => '
1577: , SHIKYU_reconcile_rec.sco_NEED_BY_DATE);
1570: 'SHIKYU_reconcile_rec.pol_need_by_date => '
1571: , SHIKYU_reconcile_rec.pol_need_by_date);
1572: END IF;
1573: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1574: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1575: , 'JMFVSKRB: ' ||
1576: 'SHIKYU_reconcile_rec.sco_NEED_BY_DATE => '
1577: , SHIKYU_reconcile_rec.sco_NEED_BY_DATE);
1578: END IF;
1576: 'SHIKYU_reconcile_rec.sco_NEED_BY_DATE => '
1577: , SHIKYU_reconcile_rec.sco_NEED_BY_DATE);
1578: END IF;
1579:
1580: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1581: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1582: , 'JMFVSKRB: ' ||
1583: 'SHIKYU_reconcile_rec.old_ordered_quantity =>'
1584: , SHIKYU_reconcile_rec.old_ordered_quantity);
1577: , SHIKYU_reconcile_rec.sco_NEED_BY_DATE);
1578: END IF;
1579:
1580: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1581: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1582: , 'JMFVSKRB: ' ||
1583: 'SHIKYU_reconcile_rec.old_ordered_quantity =>'
1584: , SHIKYU_reconcile_rec.old_ordered_quantity);
1585: END IF;
1583: 'SHIKYU_reconcile_rec.old_ordered_quantity =>'
1584: , SHIKYU_reconcile_rec.old_ordered_quantity);
1585: END IF;
1586:
1587: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1588: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1589: , 'JMFVSKRB: ' ||
1590: 'SHIKYU_reconcile_rec.quantity => '
1591: , SHIKYU_reconcile_rec.quantity);
1584: , SHIKYU_reconcile_rec.old_ordered_quantity);
1585: END IF;
1586:
1587: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1588: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1589: , 'JMFVSKRB: ' ||
1590: 'SHIKYU_reconcile_rec.quantity => '
1591: , SHIKYU_reconcile_rec.quantity);
1592: END IF;
1589: , 'JMFVSKRB: ' ||
1590: 'SHIKYU_reconcile_rec.quantity => '
1591: , SHIKYU_reconcile_rec.quantity);
1592: END IF;
1593: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1594: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1595: , 'JMFVSKRB: ' ||
1596: 'SHIKYU_reconcile_rec.pol_cancel_flag => '
1597: , SHIKYU_reconcile_rec.pol_cancel_flag);
1590: 'SHIKYU_reconcile_rec.quantity => '
1591: , SHIKYU_reconcile_rec.quantity);
1592: END IF;
1593: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1594: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1595: , 'JMFVSKRB: ' ||
1596: 'SHIKYU_reconcile_rec.pol_cancel_flag => '
1597: , SHIKYU_reconcile_rec.pol_cancel_flag);
1598: END IF;
1595: , 'JMFVSKRB: ' ||
1596: 'SHIKYU_reconcile_rec.pol_cancel_flag => '
1597: , SHIKYU_reconcile_rec.pol_cancel_flag);
1598: END IF;
1599: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1600: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1601: , 'JMFVSKRB: ' ||
1602: 'SHIKYU_reconcile_rec.poll_cancel_flag => '
1603: , SHIKYU_reconcile_rec.poll_cancel_flag);
1596: 'SHIKYU_reconcile_rec.pol_cancel_flag => '
1597: , SHIKYU_reconcile_rec.pol_cancel_flag);
1598: END IF;
1599: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1600: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1601: , 'JMFVSKRB: ' ||
1602: 'SHIKYU_reconcile_rec.poll_cancel_flag => '
1603: , SHIKYU_reconcile_rec.poll_cancel_flag);
1604: END IF;
1601: , 'JMFVSKRB: ' ||
1602: 'SHIKYU_reconcile_rec.poll_cancel_flag => '
1603: , SHIKYU_reconcile_rec.poll_cancel_flag);
1604: END IF;
1605: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1606: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1607: , 'JMFVSKRB: ' ||
1608: 'SHIKYU_reconcile_rec.poh_cancel_flag => '
1609: , SHIKYU_reconcile_rec.poh_cancel_flag);
1602: 'SHIKYU_reconcile_rec.poll_cancel_flag => '
1603: , SHIKYU_reconcile_rec.poll_cancel_flag);
1604: END IF;
1605: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1606: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1607: , 'JMFVSKRB: ' ||
1608: 'SHIKYU_reconcile_rec.poh_cancel_flag => '
1609: , SHIKYU_reconcile_rec.poh_cancel_flag);
1610: END IF;
1607: , 'JMFVSKRB: ' ||
1608: 'SHIKYU_reconcile_rec.poh_cancel_flag => '
1609: , SHIKYU_reconcile_rec.poh_cancel_flag);
1610: END IF;
1611: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1612: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1613: , 'JMFVSKRB: ' ||
1614: 'SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID => '
1615: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID);
1608: 'SHIKYU_reconcile_rec.poh_cancel_flag => '
1609: , SHIKYU_reconcile_rec.poh_cancel_flag);
1610: END IF;
1611: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1612: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1613: , 'JMFVSKRB: ' ||
1614: 'SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID => '
1615: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID);
1616: END IF;
1613: , 'JMFVSKRB: ' ||
1614: 'SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID => '
1615: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID);
1616: END IF;
1617: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1618: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1619: , 'JMFVSKRB: ' ||
1620: 'SHIKYU_reconcile_rec.scheduled_start_dat => '
1621: , SHIKYU_reconcile_rec.scheduled_start_date);
1614: 'SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID => '
1615: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID);
1616: END IF;
1617: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1618: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1619: , 'JMFVSKRB: ' ||
1620: 'SHIKYU_reconcile_rec.scheduled_start_dat => '
1621: , SHIKYU_reconcile_rec.scheduled_start_date);
1622: END IF;
1628: THEN
1629: BEGIN
1630: -- Cancel WIP Jobs
1631: -- Remove all the allocations
1632: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1633: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1634: , 'JMFVSKRB: ' ||
1635: 'INTO CANCEL for SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID '
1636: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1629: BEGIN
1630: -- Cancel WIP Jobs
1631: -- Remove all the allocations
1632: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1633: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1634: , 'JMFVSKRB: ' ||
1635: 'INTO CANCEL for SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID '
1636: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1637: END IF;
1636: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1637: END IF;
1638:
1639:
1640: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1641: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1642: , 'JMFVSKRB: ' ||
1643: 'Calling JMF_SHIKYU_WIP_PVT.Process_WIP_Job D for SCO '
1644: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1637: END IF;
1638:
1639:
1640: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1641: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1642: , 'JMFVSKRB: ' ||
1643: 'Calling JMF_SHIKYU_WIP_PVT.Process_WIP_Job D for SCO '
1644: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1645: END IF;
1652: , p_quantity => NULL
1653: , x_return_status => l_return_status
1654: ) ;
1655:
1656: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1657: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1658: , 'JMFVSKRB: ' ||
1659: 'out JMF_SHIKYU_WIP_PVT.Process_WIP_Job ' ||
1660: SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID
1653: , x_return_status => l_return_status
1654: ) ;
1655:
1656: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1657: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1658: , 'JMFVSKRB: ' ||
1659: 'out JMF_SHIKYU_WIP_PVT.Process_WIP_Job ' ||
1660: SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID
1661: ,' l_return_status => '|| l_return_status );
1664: --COMMIT;
1665:
1666: IF SHIKYU_reconcile_rec.scheduled_start_date > SYSDATE
1667: THEN
1668: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1669: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1670: , 'JMFVSKRB: ' ||
1671: ' SHIKYU_reconcile_rec.scheduled_start_date => '||
1672: SHIKYU_reconcile_rec.scheduled_start_date
1665:
1666: IF SHIKYU_reconcile_rec.scheduled_start_date > SYSDATE
1667: THEN
1668: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1669: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1670: , 'JMFVSKRB: ' ||
1671: ' SHIKYU_reconcile_rec.scheduled_start_date => '||
1672: SHIKYU_reconcile_rec.scheduled_start_date
1673: ,' Calling JMF_SHIKYU_ALLOCATION_PVT.Delete_Allocations ');
1686: , x_deleted_allocations_tbl =>
1687: l_deleted_allocations_tbl
1688: );
1689:
1690: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1691: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1692: , 'JMFVSKRB ' ||
1693: 'out JMF_SHIKYU_ALLOCATION_PVT.Delete_Allocations '
1694: ,' l_return_status => '|| l_return_status );
1687: l_deleted_allocations_tbl
1688: );
1689:
1690: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1691: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1692: , 'JMFVSKRB ' ||
1693: 'out JMF_SHIKYU_ALLOCATION_PVT.Delete_Allocations '
1694: ,' l_return_status => '|| l_return_status );
1695: END IF;
1695: END IF;
1696:
1697: ELSE
1698: -- dbms_output.put_line(' Cancel components ');
1699: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1700: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1701: , 'JMFVSKRB: ' ||
1702: ' INTO Cancel components SCO SHIPMENT '
1703: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1696:
1697: ELSE
1698: -- dbms_output.put_line(' Cancel components ');
1699: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1700: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1701: , 'JMFVSKRB: ' ||
1702: ' INTO Cancel components SCO SHIPMENT '
1703: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1704: END IF;
1705:
1706: l_used_quantity := NULL;
1707: FOR C_shikyu_cancel_comp_rec IN C_shikyu_cancel_comp_CSR
1708: LOOP
1709: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1710: THEN
1711: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1712: , 'JMFVSKRB: ' ||
1713: ' CURSOR shikyu_cancel_comp_rec.shikyu_component_id => '
1707: FOR C_shikyu_cancel_comp_rec IN C_shikyu_cancel_comp_CSR
1708: LOOP
1709: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1710: THEN
1711: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1712: , 'JMFVSKRB: ' ||
1713: ' CURSOR shikyu_cancel_comp_rec.shikyu_component_id => '
1714: ,c_shikyu_cancel_comp_rec.shikyu_component_id );
1715: END IF;
1715: END IF;
1716:
1717: l_used_quantity := 0 ;
1718:
1719: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1720: THEN
1721: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1722: , 'JMFVSKRB: ' ||
1723: 'jmf about invoke JMF_SHIKYU_UTIL.GET_used_quantity for '
1717: l_used_quantity := 0 ;
1718:
1719: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1720: THEN
1721: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1722: , 'JMFVSKRB: ' ||
1723: 'jmf about invoke JMF_SHIKYU_UTIL.GET_used_quantity for '
1724: ,C_shikyu_cancel_comp_rec.shikyu_component_id );
1725: END IF;
1733: , p_organization_id =>
1734: SHIKYU_reconcile_rec.oem_organization_id
1735: );
1736:
1737: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1738: THEN
1739: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1740: , 'JMFVSKRB: ' ||
1741: ' JMF l_used_quantity => '
1735: );
1736:
1737: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1738: THEN
1739: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1740: , 'JMFVSKRB: ' ||
1741: ' JMF l_used_quantity => '
1742: ,l_used_quantity );
1743: END IF;
1744:
1745:
1746: IF NVL(l_used_quantity,0) <= 0
1747: THEN
1748: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1749: THEN
1750: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1751: , 'JMFVSKRB: ' ||
1752: ' Calling JMF_SHIKYU_ALLOCATION_PVT.Delete_Allocations '
1746: IF NVL(l_used_quantity,0) <= 0
1747: THEN
1748: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1749: THEN
1750: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1751: , 'JMFVSKRB: ' ||
1752: ' Calling JMF_SHIKYU_ALLOCATION_PVT.Delete_Allocations '
1753: ,C_shikyu_cancel_comp_rec.shikyu_component_id );
1754: END IF;
1770: END IF;
1771: END LOOP;
1772: END IF ; -- Greater than start date
1773:
1774: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1775: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1776: , 'JMFVSKRB' ||
1777: 'JMFVSKRB: UPDATE and COMMIT for SCO PO CANCEL flow '
1778: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1771: END LOOP;
1772: END IF ; -- Greater than start date
1773:
1774: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1775: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1776: , 'JMFVSKRB' ||
1777: 'JMFVSKRB: UPDATE and COMMIT for SCO PO CANCEL flow '
1778: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1779: END IF;
1794: WHEN OTHERS THEN
1795: BEGIN
1796: ROLLBACK ;
1797:
1798: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1799: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1800: , 'JMFVSKRB' ||
1801: 'JMFVSKRB: EXCEPTION 1 in CANCEL FLOW '
1802: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1795: BEGIN
1796: ROLLBACK ;
1797:
1798: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1799: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1800: , 'JMFVSKRB' ||
1801: 'JMFVSKRB: EXCEPTION 1 in CANCEL FLOW '
1802: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1803: END IF;
1806:
1807: END ;
1808: ELSE -- NOT cancel logic
1809: l_return_status := NULL ;
1810: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1811: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1812: , 'JMFVSKRB ' ||
1813: 'INto NON cancel logic '
1814: ,' l_return_status => '|| l_return_status );
1807: END ;
1808: ELSE -- NOT cancel logic
1809: l_return_status := NULL ;
1810: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1811: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1812: , 'JMFVSKRB ' ||
1813: 'INto NON cancel logic '
1814: ,' l_return_status => '|| l_return_status );
1815: END IF;
1812: , 'JMFVSKRB ' ||
1813: 'INto NON cancel logic '
1814: ,' l_return_status => '|| l_return_status );
1815: END IF;
1816: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1817: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1818: , 'JMFVSKRB ' ||
1819: 'SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID => '
1820: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID);
1813: 'INto NON cancel logic '
1814: ,' l_return_status => '|| l_return_status );
1815: END IF;
1816: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1817: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1818: , 'JMFVSKRB ' ||
1819: 'SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID => '
1820: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID);
1821: END IF;
1831:
1832:
1833: -- Update the WIP jobs and update the JMF table
1834:
1835: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1836: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1837: , 'JMFVSKRB ' ||
1838: 'Calling JMF_SHIKYU_WIP_PVT.Process_WIP_Job U for SCO '
1839: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1832:
1833: -- Update the WIP jobs and update the JMF table
1834:
1835: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1836: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1837: , 'JMFVSKRB ' ||
1838: 'Calling JMF_SHIKYU_WIP_PVT.Process_WIP_Job U for SCO '
1839: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1840: END IF;
1848: , p_quantity => l_primary_quantity
1849: , x_return_status => l_return_status
1850: ) ;
1851:
1852: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1853: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1854: , 'JMFVSKRB ' ||
1855: 'out JMF_SHIKYU_WIP_PVT.Process_WIP_Job with '
1856: ,l_return_status );
1849: , x_return_status => l_return_status
1850: ) ;
1851:
1852: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1853: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1854: , 'JMFVSKRB ' ||
1855: 'out JMF_SHIKYU_WIP_PVT.Process_WIP_Job with '
1856: ,l_return_status );
1857: END IF;
1864: AND ( SHIKYU_reconcile_rec.old_ordered_quantity ) =
1865: ( SHIKYU_reconcile_rec.quantity )
1866: THEN
1867:
1868: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1869: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1870: , 'JMFVSKRB ' ||
1871: 'Calling Process_Date_Changes '
1872: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1865: ( SHIKYU_reconcile_rec.quantity )
1866: THEN
1867:
1868: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1869: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1870: , 'JMFVSKRB ' ||
1871: 'Calling Process_Date_Changes '
1872: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1873: END IF;
1912: ( SHIKYU_reconcile_rec.quantity )
1913: THEN
1914: -- Process Qty changes
1915:
1916: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1917: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1918: , 'JMFVSKRB ' ||
1919: 'Calling Process_Quantity_Changes '
1920: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1913: THEN
1914: -- Process Qty changes
1915:
1916: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1917: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1918: , 'JMFVSKRB ' ||
1919: 'Calling Process_Quantity_Changes '
1920: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1921: END IF;
1959: AND ( SHIKYU_reconcile_rec.old_ordered_quantity ) <>
1960: ( SHIKYU_reconcile_rec.quantity )
1961: THEN
1962:
1963: IF (FND_LOG.LEVEL_PROCEDURE >=
1964: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1965: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1966: , 'JMFVSKRB ' ||
1967: 'Calling Process_Date_Changes '
1960: ( SHIKYU_reconcile_rec.quantity )
1961: THEN
1962:
1963: IF (FND_LOG.LEVEL_PROCEDURE >=
1964: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1965: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1966: , 'JMFVSKRB ' ||
1967: 'Calling Process_Date_Changes '
1968: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1961: THEN
1962:
1963: IF (FND_LOG.LEVEL_PROCEDURE >=
1964: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1965: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1966: , 'JMFVSKRB ' ||
1967: 'Calling Process_Date_Changes '
1968: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
1969: END IF;
2037:
2038:
2039: END IF; -- changes IF
2040:
2041: IF (FND_LOG.LEVEL_PROCEDURE >=
2042: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2043: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2044: , 'JMFVRKSB: '||
2045: 'UPDATE JMF_SUBCONTRACT_ORDERS '
2038:
2039: END IF; -- changes IF
2040:
2041: IF (FND_LOG.LEVEL_PROCEDURE >=
2042: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2043: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2044: , 'JMFVRKSB: '||
2045: 'UPDATE JMF_SUBCONTRACT_ORDERS '
2046: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
2039: END IF; -- changes IF
2040:
2041: IF (FND_LOG.LEVEL_PROCEDURE >=
2042: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2043: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2044: , 'JMFVRKSB: '||
2045: 'UPDATE JMF_SUBCONTRACT_ORDERS '
2046: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
2047: END IF;
2061: SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID ;
2062:
2063: COMMIT;
2064:
2065: IF (FND_LOG.LEVEL_PROCEDURE >=
2066: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2067: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2068: , 'JMFVRKSB: '||
2069: 'AFTER UPDATE JMF_SUBCONTRACT_ORDERS '
2062:
2063: COMMIT;
2064:
2065: IF (FND_LOG.LEVEL_PROCEDURE >=
2066: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2067: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2068: , 'JMFVRKSB: '||
2069: 'AFTER UPDATE JMF_SUBCONTRACT_ORDERS '
2070: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
2063: COMMIT;
2064:
2065: IF (FND_LOG.LEVEL_PROCEDURE >=
2066: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2067: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2068: , 'JMFVRKSB: '||
2069: 'AFTER UPDATE JMF_SUBCONTRACT_ORDERS '
2070: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
2071: END IF;
2078:
2079: EXCEPTION
2080: WHEN OTHERS THEN
2081: ROLLBACK ;
2082: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2083: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2084: , 'JMFVSKRB: '||
2085: ' MAIN LOOP exception for SCO shipment '
2086: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
2079: EXCEPTION
2080: WHEN OTHERS THEN
2081: ROLLBACK ;
2082: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2083: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2084: , 'JMFVSKRB: '||
2085: ' MAIN LOOP exception for SCO shipment '
2086: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
2087: END IF;
2086: , SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
2087: END IF;
2088: END ;
2089:
2090: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2091: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2092: , 'JMFVSKRB: ' ||
2093: ' Done processing SCO shipment => '
2094: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
2087: END IF;
2088: END ;
2089:
2090: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2091: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2092: , 'JMFVSKRB: ' ||
2093: ' Done processing SCO shipment => '
2094: ,SHIKYU_reconcile_rec.SUBCONTRACT_PO_SHIPMENT_ID );
2095: END IF;
2097: END LOOP ; -- Main Loop
2098:
2099: -- dbms_output.put_line(' Out of Main loop ');
2100:
2101: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2102: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2103: , 'JMFVSKRB: Process_SHIKYU_Reconciliation. OUT'
2104: , 'OUT');
2105: END IF;
2098:
2099: -- dbms_output.put_line(' Out of Main loop ');
2100:
2101: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2102: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2103: , 'JMFVSKRB: Process_SHIKYU_Reconciliation. OUT'
2104: , 'OUT');
2105: END IF;
2106: --dbms_output.put_line(' OUT of Process_SHIKYU_Reconciliation. ');
2136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2137:
2138: IF (g_fnd_debug = 'Y')
2139: THEN
2140: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2141: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2142: , G_MODULE_PREFIX || '.others_exception'
2143: , 'rajesh Exception');
2144: END IF;
2137:
2138: IF (g_fnd_debug = 'Y')
2139: THEN
2140: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2141: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2142: , G_MODULE_PREFIX || '.others_exception'
2143: , 'rajesh Exception');
2144: END IF;
2145: END IF;