[Home] [Help]
151: --bug3480047 start
152: l_shippable_lines NUMBER;
153: --bug3480047 contd
154: --
155: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
156: --
157: BEGIN
158:
159: IF l_debug_level > 0 THEN
156: --
157: BEGIN
158:
159: IF l_debug_level > 0 THEN
160: oe_debug_pub.add( 'ENTERING OE_SHIP_CONFIRM.SHIP_CONFIRM' , 1 ) ;
161: END IF;
162:
163: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
164: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
168: OE_GLOBALS.G_EC_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(175);
169: END IF;
170:
171: IF l_debug_level > 0 THEN
172: oe_debug_pub.add( 'NUMBER OF RECORDS LINE/ADJ/REQ : '||P_LINE_TBL.COUNT||'/'||P_LINE_ADJ_TBL.COUNT||'/'||P_REQ_QTY_TBL.COUNT , 3 ) ;
173: END IF;
174:
175: IF p_req_qty_tbl.count > 0 THEN
176:
200: FROM OE_ORDER_LINES
201: WHERE line_id = p_req_qty_tbl(J).line_id;
202:
203: IF l_debug_level > 0 THEN
204: oe_debug_pub.add( 'REQUESTED/ORDER QUANTITY : '||P_REQ_QTY_TBL ( J ) .REQUESTED_QUANTITY||'/'||L_ORDERED_QUANTITY , 3 ) ;
205: END IF;
206: IF l_debug_level > 0 THEN
207: oe_debug_pub.add( 'ORD UOM/SHIPPING UOM : '||L_ORDER_QUANTITY_UOM||'/'||P_REQ_QTY_TBL ( J ) .SHIPPING_QUANTITY_UOM , 3 ) ;
208: END IF;
203: IF l_debug_level > 0 THEN
204: oe_debug_pub.add( 'REQUESTED/ORDER QUANTITY : '||P_REQ_QTY_TBL ( J ) .REQUESTED_QUANTITY||'/'||L_ORDERED_QUANTITY , 3 ) ;
205: END IF;
206: IF l_debug_level > 0 THEN
207: oe_debug_pub.add( 'ORD UOM/SHIPPING UOM : '||L_ORDER_QUANTITY_UOM||'/'||P_REQ_QTY_TBL ( J ) .SHIPPING_QUANTITY_UOM , 3 ) ;
208: END IF;
209: IF l_debug_level > 0 THEN -- INVCONV
210: oe_debug_pub.add( 'SHIPPING UOM2 : '||P_REQ_QTY_TBL ( J ) .SHIPPING_QUANTITY_UOM2 , 3 ) ;
211: END IF;
206: IF l_debug_level > 0 THEN
207: oe_debug_pub.add( 'ORD UOM/SHIPPING UOM : '||L_ORDER_QUANTITY_UOM||'/'||P_REQ_QTY_TBL ( J ) .SHIPPING_QUANTITY_UOM , 3 ) ;
208: END IF;
209: IF l_debug_level > 0 THEN -- INVCONV
210: oe_debug_pub.add( 'SHIPPING UOM2 : '||P_REQ_QTY_TBL ( J ) .SHIPPING_QUANTITY_UOM2 , 3 ) ;
211: END IF;
212:
213: -- HW print OPM qty2 INVCONV DELETE
214: IF l_debug_level > 0 THEN
211: END IF;
212:
213: -- HW print OPM qty2 INVCONV DELETE
214: IF l_debug_level > 0 THEN
215: oe_debug_pub.add( 'REQUESTED/ORDER QUANTITY2 : '||P_REQ_QTY_TBL ( J ) .REQUESTED_QUANTITY2||'/'||L_ORDERED_QUANTITY2 , 3 ) ;
216: END IF;
217:
218: IF nvl(l_top_model_line_id,-1) <> nvl(l_ato_line_id,-1) AND
219: l_top_model_line_id IS NOT NULL THEN
218: IF nvl(l_top_model_line_id,-1) <> nvl(l_ato_line_id,-1) AND
219: l_top_model_line_id IS NOT NULL THEN
220:
221: IF l_debug_level > 0 THEN
222: oe_debug_pub.add( 'PTO MODEL LINE WITH REQUESTED QUANTITY NO SPLIT' , 3 ) ;
223: END IF;
224: GOTO END_REQ_QTY;
225:
226: END IF;
234: ,l_item_rec) THEN
235: -- Get the OPM equivalent code for order_quantity_uom
236: =====================================================
237: IF l_debug_level > 0 THEN
238: oe_debug_pub.add( 'OPM PROCESS SHIPPING UPDATE ' , 1 ) ;
239: END IF;
240: l_temp_shipped_quantity := GMI_Reservation_Util.get_opm_converted_qty(
241: p_apps_item_id => l_inventory_item_id,
242: p_organization_id => l_ship_from_org_id,
256: l_order_quantity_uom,
257: p_req_qty_tbl(J).requested_quantity
258: );
259: IF l_debug_level > 0 THEN
260: oe_debug_pub.add( 'CONVERTED REQUESTED QUANTITY : '|| TO_CHAR ( L_TEMP_REQUESTED_QUANTITY ) , 1 ) ;
261: END IF;
262:
263: -- END IF; -- HW end of branching INVCONV
264:
281: x_return_status => l_qty_return_status
282: );
283:
284: IF l_debug_level > 0 THEN
285: oe_debug_pub.add( 'RETURN STATUS FROM INV API : '||L_QTY_RETURN_STATUS , 1 ) ;
286: END IF;
287: IF l_qty_return_status = 'W' THEN
288:
289: l_temp_requested_quantity := l_validated_quantity;
292:
293: END IF;
294:
295: IF l_debug_level > 0 THEN
296: oe_debug_pub.add( 'FINAL REQUESTED QUANTITY : '|| TO_CHAR ( L_TEMP_REQUESTED_QUANTITY ) , 1 ) ;
297: oe_debug_pub.add( 'FINAL REQUESTED QUANTITY2 : '|| TO_CHAR ( L_TEMP_REQUESTED_QUANTITY2 ) , 1 ) ;
298: END IF;
299:
300: IF l_ordered_quantity <= l_temp_requested_quantity THEN
293: END IF;
294:
295: IF l_debug_level > 0 THEN
296: oe_debug_pub.add( 'FINAL REQUESTED QUANTITY : '|| TO_CHAR ( L_TEMP_REQUESTED_QUANTITY ) , 1 ) ;
297: oe_debug_pub.add( 'FINAL REQUESTED QUANTITY2 : '|| TO_CHAR ( L_TEMP_REQUESTED_QUANTITY2 ) , 1 ) ;
298: END IF;
299:
300: IF l_ordered_quantity <= l_temp_requested_quantity THEN
301:
299:
300: IF l_ordered_quantity <= l_temp_requested_quantity THEN
301:
302: IF l_debug_level > 0 THEN
303: oe_debug_pub.add( 'ERROR !!! CAN NOT SPLIT THE LINE ORDERED QUANTTITY <= REQUESTED QTY ' , 3 ) ;
304: END IF;
305: GOTO END_REQ_QTY;
306:
307: END IF;
313:
314: IF l_ato_line_id IS NOT NULL and l_item_type_code <> 'STANDARD' THEN
315: l_split_line_tbl(1).line_id := l_top_model_line_id;
316: IF l_debug_level > 0 THEN
317: oe_debug_pub.add( 'SPLIT THE TOP MODEL : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
318: END IF;
319: ELSE
320: IF l_debug_level > 0 THEN
321: oe_debug_pub.add( 'SPLIT THE LINE : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
317: oe_debug_pub.add( 'SPLIT THE TOP MODEL : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
318: END IF;
319: ELSE
320: IF l_debug_level > 0 THEN
321: oe_debug_pub.add( 'SPLIT THE LINE : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
322: END IF;
323: l_split_line_tbl(1).line_id := p_req_qty_tbl(J).line_id;
324: END IF;
325:
340:
341: IF l_ato_line_id IS NOT NULL and l_item_type_code <> 'STANDARD' THEN
342: l_split_line_tbl(2).split_from_line_id := l_top_model_line_id;
343: IF l_debug_level > 0 THEN
344: oe_debug_pub.add( 'SPLIT FROM THE TOP MODEL : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
345: END IF;
346: ELSE
347: IF l_debug_level > 0 THEN
348: oe_debug_pub.add( 'SPLIT FROM THE LINE : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
344: oe_debug_pub.add( 'SPLIT FROM THE TOP MODEL : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
345: END IF;
346: ELSE
347: IF l_debug_level > 0 THEN
348: oe_debug_pub.add( 'SPLIT FROM THE LINE : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
349: END IF;
350: l_split_line_tbl(2).split_from_line_id := p_req_qty_tbl(J).line_id;
351: END IF;
352: l_split_line_tbl(2).line_set_id := l_line_set_id;
360: l_split_line_tbl(2).split_by := 'SYSTEM';
361: l_split_line_tbl(2).change_reason := 'SYSTEM';
362:
363: IF l_debug_level > 0 THEN
364: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
365: END IF;
366: IF l_debug_level > 0 THEN
367: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
368: END IF;
363: IF l_debug_level > 0 THEN
364: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
365: END IF;
366: IF l_debug_level > 0 THEN
367: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
368: END IF;
369: IF l_debug_level > 0 THEN
370: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
371: END IF;
366: IF l_debug_level > 0 THEN
367: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
368: END IF;
369: IF l_debug_level > 0 THEN
370: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
371: END IF;
372: IF l_debug_level > 0 THEN
373: oe_debug_pub.add( 'ORDERED QUANTITY NEW LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
374: END IF;
369: IF l_debug_level > 0 THEN
370: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
371: END IF;
372: IF l_debug_level > 0 THEN
373: oe_debug_pub.add( 'ORDERED QUANTITY NEW LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
374: END IF;
375:
376: -- HW print qty2 for OPM -- INVCONV DELETE this comment
377: IF l_debug_level > 0 THEN
374: END IF;
375:
376: -- HW print qty2 for OPM -- INVCONV DELETE this comment
377: IF l_debug_level > 0 THEN
378: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY2 : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY2 ) , 3 ) ;
379: END IF;
380: IF l_debug_level > 0 THEN
381: oe_debug_pub.add( 'ORDERED QUANTITY2 OLD LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY2 ) , 3 ) ;
382: END IF;
377: IF l_debug_level > 0 THEN
378: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY2 : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY2 ) , 3 ) ;
379: END IF;
380: IF l_debug_level > 0 THEN
381: oe_debug_pub.add( 'ORDERED QUANTITY2 OLD LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY2 ) , 3 ) ;
382: END IF;
383: IF l_debug_level > 0 THEN
384: oe_debug_pub.add( 'ORDERED QUANTITY2 NEW LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY2 ) , 3 ) ;
385: END IF;
380: IF l_debug_level > 0 THEN
381: oe_debug_pub.add( 'ORDERED QUANTITY2 OLD LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY2 ) , 3 ) ;
382: END IF;
383: IF l_debug_level > 0 THEN
384: oe_debug_pub.add( 'ORDERED QUANTITY2 NEW LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY2 ) , 3 ) ;
385: END IF;
386:
387: -- 4. Call to process order will result in call to
388: -- update_shipping_attributes for update of ordered quantity
413: l_set_recursion := 'N';
414: END IF;
415:
416: IF l_debug_level > 0 THEN
417: oe_debug_pub.add( 'RETURN STATUS FROM PROCESS ORDER : '||L_RETURN_STATUS , 3 ) ;
418: END IF;
419:
420: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
447: l_Line_adj_rec.creation_date := SYSDATE;
448: l_Line_adj_rec.created_by := FND_GLOBAL.USER_ID;
449: -- #3015849
450: IF l_debug_level > 0 THEN
451: OE_DEBUG_PUB.add('Calling convert_miss_to_null for this adj record',5);
452: END IF;
453: OE_LINE_ADJ_UTIL.CONVERT_MISS_TO_NULL( l_line_adj_rec );
454: IF l_debug_level > 0 THEN
455: oe_debug_pub.add( 'INSERTING THE ADJ RECORD '||TO_CHAR ( L_LINE_ADJ_REC.PRICE_ADJUSTMENT_ID ) , 2 ) ;
451: OE_DEBUG_PUB.add('Calling convert_miss_to_null for this adj record',5);
452: END IF;
453: OE_LINE_ADJ_UTIL.CONVERT_MISS_TO_NULL( l_line_adj_rec );
454: IF l_debug_level > 0 THEN
455: oe_debug_pub.add( 'INSERTING THE ADJ RECORD '||TO_CHAR ( L_LINE_ADJ_REC.PRICE_ADJUSTMENT_ID ) , 2 ) ;
456: END IF;
457: OE_LINE_ADJ_UTIL.INSERT_ROW(p_Line_Adj_rec => l_line_adj_rec);
458: END LOOP;
459: END IF;
458: END LOOP;
459: END IF;
460:
461: IF l_debug_level > 0 THEN
462: oe_debug_pub.add( 'NUMBER OF LINES SHIPPED : '||P_LINE_TBL.COUNT , 3 ) ;
463: END IF;
464:
465: IF p_line_tbl.COUNT > 0 THEN
466: -- Update Line records for required attributes..
481: -- Lock the Model line if the line is part of configuration.
482: IF nvl(l_top_model_line_id,0) <> 0 THEN
483:
484: IF l_debug_level > 0 THEN
485: oe_debug_pub.add( 'LOCKING MODEL '||L_TOP_MODEL_LINE_ID||'/'||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 ) ;
486: END IF;
487:
488: SELECT top_model_line_id
489: INTO l_top_model_line_id
491: WHERE line_id = l_top_model_line_id
492: FOR UPDATE NOWAIT;
493:
494: IF l_debug_level > 0 THEN
495: oe_debug_pub.add( 'MODEL LOCKED '||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 ) ;
496: END IF;
497:
498: END IF;
499:
538: EXCEPTION
539:
540: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
541: IF l_debug_level > 0 THEN
542: OE_DEBUG_PUB.Add('Unable to lock the line/parent',3);
543: END IF;
544: RAISE FND_API.G_EXC_ERROR;
545:
546:
545:
546:
547: WHEN OTHERS THEN
548: IF l_debug_level > 0 THEN
549: OE_DEBUG_PUB.Add('Unable to process ship confirm line:'||
550: sqlerrm,3);
551: END IF;
552: RAISE FND_API.G_EXC_ERROR;
553:
581: -- from shipping quantity UOM to ordered quantity UOM and assign
582: -- the returned quantity to shipped quantity.
583:
584: IF l_debug_level > 0 THEN
585: oe_debug_pub.add( 'ORDER QUANTITY UOM : '|| L_ORDER_QUANTITY_UOM , 2 ) ;
586: END IF;
587: IF l_debug_level > 0 THEN
588: oe_debug_pub.add( 'SHIPPING QUANTITY UOM : '||P_LINE_TBL ( J ) .SHIPPING_QUANTITY_UOM , 2 ) ;
589: END IF;
584: IF l_debug_level > 0 THEN
585: oe_debug_pub.add( 'ORDER QUANTITY UOM : '|| L_ORDER_QUANTITY_UOM , 2 ) ;
586: END IF;
587: IF l_debug_level > 0 THEN
588: oe_debug_pub.add( 'SHIPPING QUANTITY UOM : '||P_LINE_TBL ( J ) .SHIPPING_QUANTITY_UOM , 2 ) ;
589: END IF;
590:
591: IF p_line_tbl(J).shipping_quantity_uom <> l_order_quantity_uom THEN
592:
599: ,l_ship_from_org_id
600: ,l_item_rec) THEN
601:
602: IF l_debug_level > 0 THEN
603: oe_debug_pub.add( 'DUAL ITEM - SHIPPING UPDATE ' , 1 ) ;
604: END IF;
605:
606: -- HW OPM BUG#:2415731 Since OM does not save lot and sublot information and shipping does,
607: -- we need to retrieve the information from wsh_delivery_details
656: l_lot_id := 0;
657: END IF;
658:
659: IF l_debug_level > 0 THEN
660: oe_debug_pub.add( 'OPM , VALUE OF LOT_ID IS : '||L_LOT_ID , 1 ) ;
661: END IF;
662:
663: */
664: -- INVCONV
691: -- BUG 2415731, sum the shipped_qty -- INVCONV
692: l_temp_dual_shipped_qty := l_temp_dual_shipped_qty + l_temp_shipped_quantity; -- INVCONV
693:
694: IF l_debug_level > 0 THEN
695: oe_debug_pub.add( 'OPM , VALUE OF TEMP_DUAL_SHIPPED_QTY IS '||L_TEMP_DUAL_SHIPPED_QTY , 1 ) ; -- INVCONV
696: END IF;
697:
698: -- HW BUG#:2415731 Fetch the next record and close the cursor
699: FETCH LOT_INFO into LOT;
704: l_temp_shipped_quantity := l_temp_dual_shipped_qty; --INVCONV
705: -- HW end of changes for bug 2415731
706:
707: IF l_debug_level > 0 THEN
708: oe_debug_pub.add( 'DUAL PROCESS SHIPPING UPDATE CONVERSION' || ' GIVES SHIPPED QUANTITY OF ' || L_TEMP_SHIPPED_QUANTITY , 1 ) ;
709: END IF;
710:
711: ELSE
712:
718: l_order_quantity_uom,
719: p_line_tbl(J).shipping_quantity
720: );
721: IF l_debug_level > 0 THEN
722: oe_debug_pub.add( 'CONVERTED SHIPPED QUANTITY : '|| TO_CHAR ( L_TEMP_SHIPPED_QUANTITY ) , 1 ) ;
723: END IF;
724: END IF; --IF oe_line_util.dual_uom_control -- INVCONV
725:
726: --OPM 06/SEP/00 END
726: --OPM 06/SEP/00 END
727:
728:
729:
730: oe_debug_pub.ADD('Converted Shipped Quantity : '||to_char(l_temp_shipped_quantity),1);
731:
732: IF l_temp_shipped_quantity <> trunc(l_temp_shipped_quantity) THEN
733:
734: Inv_Decimals_PUB.Validate_Quantity
742: x_return_status => l_qty_return_status
743: );
744:
745: IF l_debug_level > 0 THEN
746: oe_debug_pub.add( 'RETURN STATUS FROM INV API : '||L_QTY_RETURN_STATUS , 1 ) ;
747: END IF;
748: IF l_qty_return_status = 'W' THEN
749:
750: l_shipped_quantity := l_validated_quantity;
764:
765: END IF; --IF p_line_tbl(J).shipping_quantity_uom <> l_order_quantity_uom
766:
767: IF l_debug_level > 0 THEN
768: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| TO_CHAR ( L_SHIPPED_QUANTITY ) , 1 ) ;
769: END IF;
770:
771:
772: -- updating remnant flag for various conditions.
784:
785: IF l_count is NULL THEN
786:
787: IF l_debug_level > 0 THEN
788: oe_debug_pub.add( 'LINE PART OF NON SMC PTO' , 4 ) ;
789: END IF;
790:
791: -- if ato+pto with external lines, make it remnant.
792:
808: AND source_type_code = 'EXTERNAL';
809:
810: IF l_count > 0 THEN
811: IF l_debug_level > 0 THEN
812: oe_debug_pub.add( 'EXTERNAL LINES EXIST' , 2 ) ;
813: END IF;
814: l_make_remnant := 'Y'; --bug 4701487
815: END IF;
816: END IF; --bug3480047 ends
837: AND item_type_code = 'CONFIG');
838:
839: IF l_count > 0 THEN
840: IF l_debug_level > 0 THEN
841: oe_debug_pub.add( 'ATO model line does not have CONFIG created' , 2 ) ;
842: END IF;
843: l_make_remnant := 'Y'; --bug 4701487
844: END IF;
845: END IF;
861: END;
862:
863: IF l_count > 0 THEN
864: IF l_debug_level > 0 THEN
865: oe_debug_pub.add('Atleast one un-scheduled line exists in the Model...' , 2 ) ;
866: END IF;
867: l_make_remnant := 'Y'; -- bug 4701487
868: END IF;
869: END IF;
869: END IF;
870:
871: IF l_make_remnant = 'Y' THEN -- bug 4701487
872: IF l_debug_level > 0 THEN
873: oe_debug_pub.add( 'Making the model REMNANT:'|| L_TOP_MODEL_LINE_ID , 3 ) ;
874: END IF;
875: UPDATE oe_order_lines
876: SET model_remnant_flag = 'Y'
877: WHERE top_model_line_id = l_top_model_line_id;
889:
890: IF (l_ship_set_id IS NOT NULL AND
891: l_ship_set_id <> FND_API.G_MISS_NUM) THEN
892: IF l_debug_level > 0 THEN
893: oe_debug_pub.add( 'SHIP SET SHIPPED : '||L_SHIP_SET_ID , 3 ) ;
894: END IF;
895:
896: IF l_ship_confirm_tbl.EXISTS(l_ship_set_id) THEN
897:
895:
896: IF l_ship_confirm_tbl.EXISTS(l_ship_set_id) THEN
897:
898: IF l_debug_level > 0 THEN
899: oe_debug_pub.add( 'SHIP SET ALREADY EXISTS : '||L_SHIP_SET_ID , 3 ) ;
900: END IF;
901: ELSE
902: IF l_debug_level > 0 THEN
903: oe_debug_pub.add( 'ADD SHIP SET : '||L_SHIP_SET_ID , 3 ) ;
899: oe_debug_pub.add( 'SHIP SET ALREADY EXISTS : '||L_SHIP_SET_ID , 3 ) ;
900: END IF;
901: ELSE
902: IF l_debug_level > 0 THEN
903: oe_debug_pub.add( 'ADD SHIP SET : '||L_SHIP_SET_ID , 3 ) ;
904: END IF;
905: l_ship_confirm_tbl(l_ship_set_id).type_id := l_ship_set_id;
906: l_ship_confirm_tbl(l_ship_set_id).ship_confirm_type := 'SHIP_SET';
907:
912: l_item_type_code = Oe_Globals.G_ITEM_CONFIG AND
913: l_ato_line_id = l_top_model_line_id THEN
914:
915: IF l_debug_level > 0 THEN
916: oe_debug_pub.add( 'ATO SHIPPED : '||P_LINE_TBL ( J ) .LINE_ID , 3 ) ;
917: END IF;
918:
919: IF l_ship_confirm_tbl.EXISTS(p_line_tbl(J).line_id) THEN
920:
918:
919: IF l_ship_confirm_tbl.EXISTS(p_line_tbl(J).line_id) THEN
920:
921: IF l_debug_level > 0 THEN
922: oe_debug_pub.add( 'ATO ALREADY EXISTS : '||P_LINE_TBL ( J ) .LINE_ID , 3 ) ;
923: END IF;
924:
925: ELSE
926: IF l_debug_level > 0 THEN
923: END IF;
924:
925: ELSE
926: IF l_debug_level > 0 THEN
927: oe_debug_pub.add( 'ADD ATO : '||P_LINE_TBL ( J ) .LINE_ID , 3 ) ;
928: END IF;
929: l_ship_confirm_tbl(p_line_tbl(J).line_id).type_id := p_line_tbl(J).line_id;
930: l_ship_confirm_tbl(p_line_tbl(J).line_id).ship_confirm_type := 'ATO';
931:
935: l_top_model_line_id <> FND_API.G_MISS_NUM) AND
936: nvl(l_model_remnant_flag,'N') = 'N' THEN
937:
938: IF l_debug_level > 0 THEN
939: oe_debug_pub.add( 'PTO/KIT SHIPPED : '||L_TOP_MODEL_LINE_ID , 3 ) ;
940: END IF;
941:
942: IF l_ship_confirm_tbl.EXISTS(l_top_model_line_id) THEN
943:
941:
942: IF l_ship_confirm_tbl.EXISTS(l_top_model_line_id) THEN
943:
944: IF l_debug_level > 0 THEN
945: oe_debug_pub.add( 'PTO/KIT ALREADY EXISTS : '||L_TOP_MODEL_LINE_ID , 3 ) ;
946: END IF;
947:
948: ELSE
949: IF l_debug_level > 0 THEN
946: END IF;
947:
948: ELSE
949: IF l_debug_level > 0 THEN
950: oe_debug_pub.add( 'ADD PTO/KIT : '||L_TOP_MODEL_LINE_ID , 3 ) ;
951: END IF;
952: l_ship_confirm_tbl(l_top_model_line_id).type_id := l_top_model_line_id;
953: l_ship_confirm_tbl(l_top_model_line_id).ship_confirm_type := 'PTO_KIT';
954:
955: END IF;
956:
957: ELSE
958: IF l_debug_level > 0 THEN
959: oe_debug_pub.add( 'NORMAL SHIPPED : '||P_LINE_TBL ( J ) .LINE_ID , 3 ) ;
960: END IF;
961:
962: IF l_ship_confirm_tbl.EXISTS(p_line_tbl(J).line_id) THEN
963:
961:
962: IF l_ship_confirm_tbl.EXISTS(p_line_tbl(J).line_id) THEN
963:
964: IF l_debug_level > 0 THEN
965: oe_debug_pub.add( 'ALREADY EXISTS : '||P_LINE_TBL ( J ) .LINE_ID , 3 ) ;
966: END IF;
967:
968: ELSE
969: IF l_debug_level > 0 THEN
966: END IF;
967:
968: ELSE
969: IF l_debug_level > 0 THEN
970: oe_debug_pub.add( 'ADD : '||P_LINE_TBL ( J ) .LINE_ID , 3 ) ;
971: END IF;
972: l_ship_confirm_tbl(p_line_tbl(J).line_id).type_id := p_line_tbl(J).line_id;
973: l_ship_confirm_tbl(p_line_tbl(J).line_id).ship_confirm_type := l_item_type_code;
974:
986: OE_Line_Util.Query_Rows(p_line_id => p_line_tbl(J).line_id,
987: x_line_tbl => l_temp_line_tbl);
988:
989: IF l_debug_level > 0 THEN
990: oe_debug_pub.add( 'RETURNED FROM QUERY ROW ' , 1 ) ;
991: END IF;
992: l_old_line_tbl(J) := l_temp_line_tbl(1);
993: l_line_tbl(J) := l_old_line_tbl(J);
994:
997: -- If no partial shipment then
998: IF l_ordered_quantity = l_shipped_quantity THEN
999:
1000: IF l_debug_level > 0 THEN
1001: oe_debug_pub.add( 'UPDATING LINE : '||P_LINE_TBL ( J ) .LINE_ID , 3 ) ;
1002: END IF;
1003:
1004: IF ((OE_GLOBALS.G_ASO_INSTALLED = 'Y') OR
1005: (OE_GLOBALS.G_EC_INSTALLED = 'Y') OR
1006: (NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'),'N') = 'Y') )
1007: THEN
1008: /* l_line_tbl(J) already holds the old info, so just overwrite what changed */
1009: IF l_debug_level > 0 THEN
1010: oe_debug_pub.add( 'NEED TO CALL PROCESS REQUEST ' , 3 ) ;
1011: END IF;
1012: l_line_tbl(J).shipping_quantity := p_line_tbl(J).shipping_quantity;
1013: l_line_tbl(J).shipping_quantity2 := p_line_tbl(J).shipping_quantity2;
1014: l_line_tbl(J).shipped_quantity2 := p_line_tbl(J).shipping_quantity2;
1041: (NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'),'N') = 'Y'))
1042: THEN
1043: /* l_line_tbl(J) already holds the old info, so just overwrite what changed */
1044: IF l_debug_level > 0 THEN
1045: oe_debug_pub.add( 'NEED TO CALL PROCESS REQUEST ' , 3 ) ;
1046: END IF;
1047: l_line_tbl(J).shipping_quantity := p_line_tbl(J).shipping_quantity;
1048: l_line_tbl(J).shipping_quantity2 := p_line_tbl(J).shipping_quantity2;
1049: l_line_tbl(J).shipped_quantity2 := p_line_tbl(J).shipping_quantity2;
1064:
1065: IF l_result_out = OE_GLOBALS.G_PARTIALLY_SHIPPED THEN
1066: -- This line will split, set the calculate_price_flag to 'P' if 'Y'
1067: IF l_debug_level > 0 THEN
1068: oe_debug_pub.add( 'CALCULATE PRICE FLAG : '||L_CALCULATE_PRICE_FLAG , 3 ) ;
1069: END IF;
1070: IF l_calculate_price_flag = 'Y' THEN
1071: l_calculate_price_flag := 'P';
1072: END IF;
1072: END IF;
1073: END IF; /* partially shipped */
1074:
1075: IF l_debug_level > 0 THEN
1076: oe_debug_pub.add( 'CALCULATE PRICE FLAG : '||L_CALCULATE_PRICE_FLAG , 3 ) ;
1077: END IF;
1078: UPDATE OE_ORDER_LINES
1079: SET shipping_quantity = p_line_tbl(J).shipping_quantity,
1080: shipping_quantity2 = p_line_tbl(J).shipping_quantity2,
1095: IF l_calculate_price_flag IN ('Y','P')
1096: OR (p_line_tbl(J).shipping_quantity2 IS NOT NULL
1097: AND p_line_tbl(J).shipping_quantity2 <> 0 ) -- bug 3598987,3659454
1098: THEN
1099: oe_debug_pub.add( 'Before logging Delayed request for pricing',3);
1100: OE_delayed_requests_Pvt.log_request(
1101: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1102: p_entity_id => p_line_tbl(J).line_id,
1103: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1115:
1116: -- Now process ship confirms.
1117:
1118: IF l_debug_level > 0 THEN
1119: oe_debug_pub.add( 'NUMBER OF SHIP CONFIRMS : '||L_SHIP_CONFIRM_TBL.COUNT , 3 ) ;
1120: END IF;
1121:
1122: l_ship_confirm_index := l_ship_confirm_tbl.FIRST;
1123:
1124: WHILE l_ship_confirm_index IS NOT NULL
1125: LOOP
1126:
1127: IF l_debug_level > 0 THEN
1128: oe_debug_pub.add( 'TYPE/ID : '||L_SHIP_CONFIRM_TBL ( L_SHIP_CONFIRM_INDEX ) .SHIP_CONFIRM_TYPE||'/'||L_SHIP_CONFIRM_TBL ( L_SHIP_CONFIRM_INDEX ) .TYPE_ID , 3 ) ;
1129: END IF;
1130:
1131: OE_Shipping_Integration_PVT.Process_Ship_Confirm
1132:
1136:
1137: );
1138:
1139: IF l_debug_level > 0 THEN
1140: oe_debug_pub.add( 'RETRUN STATUS FROM PROCESS_SHIP_CONFIRM : '||L_RETURN_STATUS , 3 ) ;
1141: END IF;
1142:
1143: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1172: , x_index => l_notify_index
1173: , x_return_status => l_return_status);
1174:
1175: IF l_debug_level > 0 THEN
1176: oe_debug_pub.add('UPDATE_GLOBAL RET_STATUS FOR LINE_ID '||L_LINE_TBL ( L_LOOP_INDEX ) .LINE_ID ||' IS: ' || L_RETURN_STATUS , 1 ) ;
1177: oe_debug_pub.add('UPDATE_GLOBAL INDEX FOR LINE_ID '||L_LINE_TBL ( L_LOOP_INDEX ) .LINE_ID ||' IS: ' || L_NOTIFY_INDEX , 1 ) ;
1178: END IF;
1179:
1180: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1173: , x_return_status => l_return_status);
1174:
1175: IF l_debug_level > 0 THEN
1176: oe_debug_pub.add('UPDATE_GLOBAL RET_STATUS FOR LINE_ID '||L_LINE_TBL ( L_LOOP_INDEX ) .LINE_ID ||' IS: ' || L_RETURN_STATUS , 1 ) ;
1177: oe_debug_pub.add('UPDATE_GLOBAL INDEX FOR LINE_ID '||L_LINE_TBL ( L_LOOP_INDEX ) .LINE_ID ||' IS: ' || L_NOTIFY_INDEX , 1 ) ;
1178: END IF;
1179:
1180: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1181: RAISE FND_API.G_EXC_ERROR;
1206: -- bug 3272489
1207: OE_ORDER_UTIL.g_line_tbl(l_notify_index).line_category_code := l_line_tbl(l_loop_index).line_category_code;
1208:
1209: IF l_debug_level > 0 THEN
1210: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY , 1 ) ;
1211: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY2 , 1 ) ;
1212: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY , 1 ) ;
1213: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY2 , 1 ) ;
1214: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM , 1 ) ;
1207: OE_ORDER_UTIL.g_line_tbl(l_notify_index).line_category_code := l_line_tbl(l_loop_index).line_category_code;
1208:
1209: IF l_debug_level > 0 THEN
1210: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY , 1 ) ;
1211: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY2 , 1 ) ;
1212: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY , 1 ) ;
1213: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY2 , 1 ) ;
1214: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM , 1 ) ;
1215: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM2 , 1 ) ; -- INVCONV
1208:
1209: IF l_debug_level > 0 THEN
1210: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY , 1 ) ;
1211: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY2 , 1 ) ;
1212: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY , 1 ) ;
1213: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY2 , 1 ) ;
1214: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM , 1 ) ;
1215: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM2 , 1 ) ; -- INVCONV
1216: oe_debug_pub.add( 'GLOBAL LINE ACTUAL_SHIPMENT_DATE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .ACTUAL_SHIPMENT_DATE , 1 ) ;
1209: IF l_debug_level > 0 THEN
1210: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY , 1 ) ;
1211: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY2 , 1 ) ;
1212: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY , 1 ) ;
1213: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY2 , 1 ) ;
1214: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM , 1 ) ;
1215: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM2 , 1 ) ; -- INVCONV
1216: oe_debug_pub.add( 'GLOBAL LINE ACTUAL_SHIPMENT_DATE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .ACTUAL_SHIPMENT_DATE , 1 ) ;
1217: oe_debug_pub.add( 'GLOBAL LINE SHIP_TOLERANCE_BELOW: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIP_TOLERANCE_BELOW , 1 ) ;
1210: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY , 1 ) ;
1211: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY2 , 1 ) ;
1212: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY , 1 ) ;
1213: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY2 , 1 ) ;
1214: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM , 1 ) ;
1215: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM2 , 1 ) ; -- INVCONV
1216: oe_debug_pub.add( 'GLOBAL LINE ACTUAL_SHIPMENT_DATE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .ACTUAL_SHIPMENT_DATE , 1 ) ;
1217: oe_debug_pub.add( 'GLOBAL LINE SHIP_TOLERANCE_BELOW: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIP_TOLERANCE_BELOW , 1 ) ;
1218: oe_debug_pub.add( 'GLOBAL LINE OVER_SHIP_REASON_CODE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .OVER_SHIP_REASON_CODE , 1 ) ;
1211: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY2 , 1 ) ;
1212: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY , 1 ) ;
1213: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY2 , 1 ) ;
1214: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM , 1 ) ;
1215: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM2 , 1 ) ; -- INVCONV
1216: oe_debug_pub.add( 'GLOBAL LINE ACTUAL_SHIPMENT_DATE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .ACTUAL_SHIPMENT_DATE , 1 ) ;
1217: oe_debug_pub.add( 'GLOBAL LINE SHIP_TOLERANCE_BELOW: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIP_TOLERANCE_BELOW , 1 ) ;
1218: oe_debug_pub.add( 'GLOBAL LINE OVER_SHIP_REASON_CODE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .OVER_SHIP_REASON_CODE , 1 ) ;
1219: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
1212: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY , 1 ) ;
1213: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY2 , 1 ) ;
1214: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM , 1 ) ;
1215: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM2 , 1 ) ; -- INVCONV
1216: oe_debug_pub.add( 'GLOBAL LINE ACTUAL_SHIPMENT_DATE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .ACTUAL_SHIPMENT_DATE , 1 ) ;
1217: oe_debug_pub.add( 'GLOBAL LINE SHIP_TOLERANCE_BELOW: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIP_TOLERANCE_BELOW , 1 ) ;
1218: oe_debug_pub.add( 'GLOBAL LINE OVER_SHIP_REASON_CODE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .OVER_SHIP_REASON_CODE , 1 ) ;
1219: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
1220: oe_debug_pub.add( 'OLD GLOBAL LINE SHIPPED QTY IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY ) ;
1213: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY2 , 1 ) ;
1214: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM , 1 ) ;
1215: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM2 , 1 ) ; -- INVCONV
1216: oe_debug_pub.add( 'GLOBAL LINE ACTUAL_SHIPMENT_DATE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .ACTUAL_SHIPMENT_DATE , 1 ) ;
1217: oe_debug_pub.add( 'GLOBAL LINE SHIP_TOLERANCE_BELOW: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIP_TOLERANCE_BELOW , 1 ) ;
1218: oe_debug_pub.add( 'GLOBAL LINE OVER_SHIP_REASON_CODE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .OVER_SHIP_REASON_CODE , 1 ) ;
1219: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
1220: oe_debug_pub.add( 'OLD GLOBAL LINE SHIPPED QTY IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY ) ;
1221: oe_debug_pub.add( 'GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE ) ;
1214: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM , 1 ) ;
1215: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM2 , 1 ) ; -- INVCONV
1216: oe_debug_pub.add( 'GLOBAL LINE ACTUAL_SHIPMENT_DATE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .ACTUAL_SHIPMENT_DATE , 1 ) ;
1217: oe_debug_pub.add( 'GLOBAL LINE SHIP_TOLERANCE_BELOW: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIP_TOLERANCE_BELOW , 1 ) ;
1218: oe_debug_pub.add( 'GLOBAL LINE OVER_SHIP_REASON_CODE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .OVER_SHIP_REASON_CODE , 1 ) ;
1219: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
1220: oe_debug_pub.add( 'OLD GLOBAL LINE SHIPPED QTY IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY ) ;
1221: oe_debug_pub.add( 'GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE ) ;
1222: oe_debug_pub.add( 'OLD GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE ) ;
1215: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPING_QUANTITY_UOM2 , 1 ) ; -- INVCONV
1216: oe_debug_pub.add( 'GLOBAL LINE ACTUAL_SHIPMENT_DATE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .ACTUAL_SHIPMENT_DATE , 1 ) ;
1217: oe_debug_pub.add( 'GLOBAL LINE SHIP_TOLERANCE_BELOW: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIP_TOLERANCE_BELOW , 1 ) ;
1218: oe_debug_pub.add( 'GLOBAL LINE OVER_SHIP_REASON_CODE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .OVER_SHIP_REASON_CODE , 1 ) ;
1219: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
1220: oe_debug_pub.add( 'OLD GLOBAL LINE SHIPPED QTY IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY ) ;
1221: oe_debug_pub.add( 'GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE ) ;
1222: oe_debug_pub.add( 'OLD GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE ) ;
1223: oe_debug_pub.add( 'OLD GLOBAL LINE Category Code is ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .LINE_CATEGORY_CODE ) ;
1216: oe_debug_pub.add( 'GLOBAL LINE ACTUAL_SHIPMENT_DATE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .ACTUAL_SHIPMENT_DATE , 1 ) ;
1217: oe_debug_pub.add( 'GLOBAL LINE SHIP_TOLERANCE_BELOW: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIP_TOLERANCE_BELOW , 1 ) ;
1218: oe_debug_pub.add( 'GLOBAL LINE OVER_SHIP_REASON_CODE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .OVER_SHIP_REASON_CODE , 1 ) ;
1219: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
1220: oe_debug_pub.add( 'OLD GLOBAL LINE SHIPPED QTY IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY ) ;
1221: oe_debug_pub.add( 'GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE ) ;
1222: oe_debug_pub.add( 'OLD GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE ) ;
1223: oe_debug_pub.add( 'OLD GLOBAL LINE Category Code is ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .LINE_CATEGORY_CODE ) ;
1224: END IF;
1217: oe_debug_pub.add( 'GLOBAL LINE SHIP_TOLERANCE_BELOW: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .SHIP_TOLERANCE_BELOW , 1 ) ;
1218: oe_debug_pub.add( 'GLOBAL LINE OVER_SHIP_REASON_CODE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .OVER_SHIP_REASON_CODE , 1 ) ;
1219: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
1220: oe_debug_pub.add( 'OLD GLOBAL LINE SHIPPED QTY IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY ) ;
1221: oe_debug_pub.add( 'GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE ) ;
1222: oe_debug_pub.add( 'OLD GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE ) ;
1223: oe_debug_pub.add( 'OLD GLOBAL LINE Category Code is ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .LINE_CATEGORY_CODE ) ;
1224: END IF;
1225:
1218: oe_debug_pub.add( 'GLOBAL LINE OVER_SHIP_REASON_CODE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .OVER_SHIP_REASON_CODE , 1 ) ;
1219: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
1220: oe_debug_pub.add( 'OLD GLOBAL LINE SHIPPED QTY IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY ) ;
1221: oe_debug_pub.add( 'GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE ) ;
1222: oe_debug_pub.add( 'OLD GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE ) ;
1223: oe_debug_pub.add( 'OLD GLOBAL LINE Category Code is ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .LINE_CATEGORY_CODE ) ;
1224: END IF;
1225:
1226: END IF ; /* global entity index null check */
1219: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .CALCULATE_PRICE_FLAG , 1 ) ;
1220: oe_debug_pub.add( 'OLD GLOBAL LINE SHIPPED QTY IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .SHIPPED_QUANTITY ) ;
1221: oe_debug_pub.add( 'GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE ) ;
1222: oe_debug_pub.add( 'OLD GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE ) ;
1223: oe_debug_pub.add( 'OLD GLOBAL LINE Category Code is ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX ) .LINE_CATEGORY_CODE ) ;
1224: END IF;
1225:
1226: END IF ; /* global entity index null check */
1227:
1237: , p_old_line_tbl => l_old_line_tbl
1238: );
1239:
1240: IF l_debug_level > 0 THEN
1241: oe_debug_pub.add( 'RETURNED FROM PROCESS REQUEST AND NOTIFY : '||L_RETURN_STATUS , 3 ) ;
1242: END IF;
1243:
1244: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1245: RAISE FND_API.G_EXC_ERROR;
1260: , p_old_line_tbl => l_old_line_tbl
1261: );
1262:
1263: IF l_debug_level > 0 THEN
1264: oe_debug_pub.add( 'RETURNED FROM PROCESS REQUEST AND NOTIFY : '||L_RETURN_STATUS , 3 ) ;
1265: END IF;
1266:
1267: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1268: RAISE FND_API.G_EXC_ERROR;
1282: , p_data => x_msg_data
1283: );
1284:
1285: IF l_debug_level > 0 THEN
1286: oe_debug_pub.add( 'RETURNED FROM OE_SHIP_CONFIRM.SHIP_CONFIRM '||X_RETURN_STATUS , 1 ) ;
1287: END IF;
1288:
1289: EXCEPTION
1290:
1290:
1291: WHEN FND_API.G_EXC_ERROR THEN
1292:
1293: IF l_debug_level > 0 THEN
1294: oe_debug_pub.add( 'EXC ERROR : '||SQLERRM , 1 ) ;
1295: END IF;
1296: x_return_status := FND_API.G_RET_STS_ERROR;
1297:
1298: -- Get message count and data
1304:
1305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1306:
1307: IF l_debug_level > 0 THEN
1308: oe_debug_pub.add( 'UNEXPECTED ERROR : '||SQLERRM , 1 ) ;
1309: END IF;
1310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1311:
1312: -- Get message count and data
1318:
1319: WHEN OTHERS THEN
1320:
1321: IF l_debug_level > 0 THEN
1322: oe_debug_pub.add( 'IN OTHERS '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
1323: END IF;
1324:
1325: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1326: THEN
1343: PROCEDURE Process_Requests
1344: IS
1345: l_return_status VARCHAR2(1);
1346: --
1347: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1348: --
1349: BEGIN
1350:
1351: IF (OE_GLOBALS.G_RECURSION_MODE = 'N'
1508: l_item_rec OE_ORDER_CACHE.item_rec_type;
1509: l_return_status VARCHAR2(1);
1510: l_primary_quantity NUMBER;
1511: l_validated_quantity NUMBER;
1512: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1513: BEGIN
1514:
1515: IF l_debug_level > 0 THEN
1516: oe_debug_pub.add('entering Validate_Quantity '|| p_index, 5);
1512: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1513: BEGIN
1514:
1515: IF l_debug_level > 0 THEN
1516: oe_debug_pub.add('entering Validate_Quantity '|| p_index, 5);
1517: oe_debug_pub.add
1518: ('order uom ' ||p_ship_line_rec.order_quantity_uom(p_index), 5);
1519: oe_debug_pub.add
1520: ('shipping uom ' || p_ship_line_rec.shipping_quantity_uom(p_index), 5);
1513: BEGIN
1514:
1515: IF l_debug_level > 0 THEN
1516: oe_debug_pub.add('entering Validate_Quantity '|| p_index, 5);
1517: oe_debug_pub.add
1518: ('order uom ' ||p_ship_line_rec.order_quantity_uom(p_index), 5);
1519: oe_debug_pub.add
1520: ('shipping uom ' || p_ship_line_rec.shipping_quantity_uom(p_index), 5);
1521: END IF;
1515: IF l_debug_level > 0 THEN
1516: oe_debug_pub.add('entering Validate_Quantity '|| p_index, 5);
1517: oe_debug_pub.add
1518: ('order uom ' ||p_ship_line_rec.order_quantity_uom(p_index), 5);
1519: oe_debug_pub.add
1520: ('shipping uom ' || p_ship_line_rec.shipping_quantity_uom(p_index), 5);
1521: END IF;
1522:
1523: IF p_ship_line_rec.order_quantity_uom(p_index) <>
1523: IF p_ship_line_rec.order_quantity_uom(p_index) <>
1524: p_ship_line_rec.shipping_quantity_uom(p_index) THEN
1525:
1526: IF l_debug_level > 0 THEN
1527: oe_debug_pub.add('uom diff ', 5);
1528: END IF;
1529:
1530: IF p_handle_req_qty = 'Y' THEN
1531: l_primary_quantity := p_ship_line_rec.requested_quantity(p_index);
1538: ,p_ship_from_org_id => p_ship_line_rec.ship_from_org_id(p_index)
1539: ,x_item_rec => l_item_rec) THEN
1540:
1541: IF l_debug_level > 0 THEN
1542: oe_debug_pub.add( 'DUAL PROCESS SHIPPING UPDATE ', 5); -- INVCONV
1543: END IF;
1544:
1545: x_dual_item := 'Y'; -- INVCONV
1546:
1554:
1555: ELSE */
1556:
1557: IF l_debug_level > 0 THEN
1558: oe_debug_pub.add('call OE_Order_Misc_Util.Convert_Uom', 5);
1559: END IF;
1560:
1561: p_ship_line_rec.shipped_quantity(p_index) :=
1562: OE_Order_Misc_Util.Convert_Uom
1571:
1572: IF p_handle_req_qty = 'Y' THEN
1573:
1574: IF l_debug_level > 0 THEN
1575: oe_debug_pub.add
1576: ('shipped qty ' ||p_ship_line_rec.shipped_quantity(p_index), 5);
1577: oe_debug_pub.add
1578: ('requested qty '||p_ship_line_rec.requested_quantity(p_index), 5);
1579: END IF;
1573:
1574: IF l_debug_level > 0 THEN
1575: oe_debug_pub.add
1576: ('shipped qty ' ||p_ship_line_rec.shipped_quantity(p_index), 5);
1577: oe_debug_pub.add
1578: ('requested qty '||p_ship_line_rec.requested_quantity(p_index), 5);
1579: END IF;
1580:
1581: p_ship_line_rec.shipped_quantity(p_index) :=
1585: p_ship_line_rec.requested_quantity2(p_index);
1586:
1587: ELSE
1588: IF l_debug_level > 0 THEN
1589: oe_debug_pub.add
1590: ('shping qty '||p_ship_line_rec.shipping_quantity(p_index), 5);
1591: END IF;
1592:
1593: p_ship_line_rec.shipped_quantity(p_index) :=
1597:
1598: END IF;
1599:
1600: IF l_debug_level > 0 THEN
1601: oe_debug_pub.add
1602: ('uom is same,shpd qty '||p_ship_line_rec.shipped_quantity(p_index), 5);
1603: oe_debug_pub.add
1604: ('uom2 is same,shpd qty2 '||p_ship_line_rec.shipped_quantity2(p_index), 5); -- INVCONV
1605: END IF;
1599:
1600: IF l_debug_level > 0 THEN
1601: oe_debug_pub.add
1602: ('uom is same,shpd qty '||p_ship_line_rec.shipped_quantity(p_index), 5);
1603: oe_debug_pub.add
1604: ('uom2 is same,shpd qty2 '||p_ship_line_rec.shipped_quantity2(p_index), 5); -- INVCONV
1605: END IF;
1606:
1607:
1610: IF p_ship_line_rec.shipped_quantity(p_index) <>
1611: TRUNC(p_ship_line_rec.shipped_quantity(p_index)) THEN
1612:
1613: IF l_debug_level > 0 THEN
1614: oe_debug_pub.add('shipped qty deciaml', 5);
1615: END IF;
1616:
1617: Inv_Decimals_PUB.Validate_Quantity
1618: (p_item_id => p_ship_line_rec.inventory_item_id(p_index),
1627: p_ship_line_rec.shipped_quantity(p_index) := l_validated_quantity;
1628: END IF;
1629:
1630: IF l_debug_level > 0 THEN
1631: oe_debug_pub.add('RET STS FROM INV API : '
1632: ||L_RETURN_STATUS || l_validated_quantity,1);
1633: END IF;
1634:
1635: END IF; -- if decimal
1651: --J NUMBER := 0; bug 4422886
1652: l_split_line_rec OE_Order_Pub.Line_Rec_Type;
1653: l_control_rec OE_GLOBALS.Control_Rec_Type;
1654: l_return_status VARCHAR2(1);
1655: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1656: l_split_line_tbl OE_Order_Pub.Line_Tbl_Type;
1657: l_wdd_count NUMBER;
1658: BEGIN
1659: IF l_debug_level > 0 THEN
1656: l_split_line_tbl OE_Order_Pub.Line_Tbl_Type;
1657: l_wdd_count NUMBER;
1658: BEGIN
1659: IF l_debug_level > 0 THEN
1660: oe_debug_pub.add('entering handle_requested_Quantity ', 5);
1661: END IF;
1662:
1663: FOR I in p_requested_line_rec.line_id.FIRST..
1664: p_requested_line_rec.line_id.LAST
1664: p_requested_line_rec.line_id.LAST
1665: LOOP
1666:
1667: IF l_debug_level > 0 THEN
1668: oe_debug_pub.add('Before checking deleievry detail split ', 1);
1669: oe_debug_pub.add('Item type code :'||p_requested_line_rec.item_type_code(I), 1);
1670: END IF;
1671:
1672: IF p_requested_line_rec.item_type_code(I) = 'STANDARD' THEN
1665: LOOP
1666:
1667: IF l_debug_level > 0 THEN
1668: oe_debug_pub.add('Before checking deleievry detail split ', 1);
1669: oe_debug_pub.add('Item type code :'||p_requested_line_rec.item_type_code(I), 1);
1670: END IF;
1671:
1672: IF p_requested_line_rec.item_type_code(I) = 'STANDARD' THEN
1673:
1683:
1684: IF nvl(l_wdd_count,1) > 0 THEN
1685:
1686: IF l_debug_level > 0 THEN
1687: OE_DEBUG_PUB.Add('SR5331603 Delivery Detail Has Split..'||l_wdd_count,1);
1688: END IF;
1689:
1690:
1691: p_requested_line_rec.shipped_quantity.extend;
1694: p_requested_line_rec.shipped_quantity(I) := null;
1695: p_requested_line_rec.shipped_quantity2(I) := null;
1696:
1697: IF l_debug_level > 0 THEN
1698: oe_debug_pub.add('looping over requested qty '
1699: || p_requested_line_rec.requested_quantity(I), 1);
1700: oe_debug_pub.add('looping over ordered qty '
1701: || p_requested_line_rec.ordered_quantity(I), 1);
1702: END IF;
1696:
1697: IF l_debug_level > 0 THEN
1698: oe_debug_pub.add('looping over requested qty '
1699: || p_requested_line_rec.requested_quantity(I), 1);
1700: oe_debug_pub.add('looping over ordered qty '
1701: || p_requested_line_rec.ordered_quantity(I), 1);
1702: END IF;
1703:
1704: Validate_Quantity
1719:
1720: l_split_line_rec.line_id := p_requested_line_rec.top_model_line_id(I);
1721:
1722: IF l_debug_level > 0 THEN
1723: oe_debug_pub.add('SPLIT MODEL : '||l_SPLIT_LINE_rec.LINE_ID,3);
1724: END IF;
1725:
1726: ELSE
1727:
1727:
1728: l_split_line_rec.line_id := p_requested_line_rec.line_id(I);
1729:
1730: IF l_debug_level > 0 THEN
1731: oe_debug_pub.add('SPLIT LINE : '||L_SPLIT_line_rec.LINE_ID,3);
1732: END IF;
1733:
1734: END IF;
1735:
1747: l_split_line_rec.change_reason := 'SYSTEM';
1748:
1749: l_split_line_tbl(1) := l_split_line_rec; --bug 4422886
1750: IF l_debug_level > 0 THEN
1751: oe_debug_pub.add(1 ||' opr update qty '
1752: || l_split_line_tbl(1).ordered_quantity, 1);
1753: END IF;
1754:
1755:
1773:
1774: l_split_line_tbl(2) := l_split_line_rec;
1775:
1776: IF l_debug_level > 0 THEN
1777: oe_debug_pub.add(2 ||' opr create qty '|| l_split_line_tbl(2).ordered_quantity
1778: || 'split from ' || l_split_line_tbl(2).split_from_line_id, 1);
1779: oe_debug_pub.add(2 ||' opr create qty2 '|| l_split_line_tbl(2).ordered_quantity2
1780: || 'split from ' || l_split_line_tbl(2).split_from_line_id, 1);
1781: END IF;
1775:
1776: IF l_debug_level > 0 THEN
1777: oe_debug_pub.add(2 ||' opr create qty '|| l_split_line_tbl(2).ordered_quantity
1778: || 'split from ' || l_split_line_tbl(2).split_from_line_id, 1);
1779: oe_debug_pub.add(2 ||' opr create qty2 '|| l_split_line_tbl(2).ordered_quantity2
1780: || 'split from ' || l_split_line_tbl(2).split_from_line_id, 1);
1781: END IF;
1782: l_control_rec.validate_entity := FALSE;
1783: l_control_rec.check_security := FALSE;
1789: p_control_rec => l_control_rec,
1790: x_return_status => l_return_status );
1791:
1792: IF l_debug_level > 0 THEN
1793: oe_debug_pub.add('RET STS FROM PROCESS ORDER : '||L_RETURN_STATUS,3);
1794: END IF;
1795:
1796: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1800: END IF;
1801:
1802: ELSE
1803: IF l_debug_level > 0 THEN
1804: oe_debug_pub.add('can not SPLIT LINE, ord qty < ship qty',3);
1805: END IF;
1806: END IF;
1807: END IF; --l_wdd_count condition
1808: END LOOP;
1807: END IF; --l_wdd_count condition
1808: END LOOP;
1809:
1810: IF l_debug_level > 0 THEN
1811: oe_debug_pub.add('leaving Handle_Requested_Qty',3);
1812: END IF;
1813:
1814: EXCEPTION
1815: WHEN others THEN
1813:
1814: EXCEPTION
1815: WHEN others THEN
1816: IF l_debug_level > 0 THEN
1817: oe_debug_pub.add('error in Handle_Requested_Qty: '||sqlerrm,3);
1818: END IF;
1819: RAISE;
1820: END Handle_Requested_Qty;
1821:
1838: IS
1839: l_line_tbl OE_Order_Pub.Line_Tbl_Type;
1840: l_control_rec OE_GLOBALS.Control_Rec_Type;
1841: l_return_status VARCHAR2(1);
1842: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1843: l_return NUMBER; --Bug 7528326
1844: BEGIN
1845:
1846: IF l_debug_level > 0 THEN
1843: l_return NUMBER; --Bug 7528326
1844: BEGIN
1845:
1846: IF l_debug_level > 0 THEN
1847: oe_debug_pub.add('entering local split line', 3);
1848: END IF;
1849:
1850: l_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC;
1851: l_line_tbl(2) := l_line_tbl(1);
1849:
1850: l_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC;
1851: l_line_tbl(2) := l_line_tbl(1);
1852: IF l_debug_level > 0 THEN
1853: oe_debug_pub.add('pal local split line 1 ', 3);
1854: END IF;
1855:
1856: l_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
1857: l_line_tbl(1).split_by := 'SYSTEM';
1860: l_line_tbl(1).ordered_quantity :=
1861: p_ship_line_rec.shipped_quantity(p_index);
1862:
1863: IF l_debug_level > 0 THEN
1864: oe_debug_pub.add('pal local split line 2 ', 3);
1865: END IF;
1866: l_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
1867: l_line_tbl(2).split_by := 'SYSTEM';
1868: l_line_tbl(2).change_reason := 'SYSTEM';
1870: p_ship_line_rec.ordered_quantity(p_index) -
1871: p_ship_line_rec.shipped_quantity(p_index);
1872:
1873: IF l_debug_level > 0 THEN
1874: oe_debug_pub.add('pal local split line 3 ', 3);
1875: END IF;
1876: IF p_split_model = 'N' THEN
1877:
1878: l_line_tbl(1).line_id := p_ship_line_rec.line_id(p_index);
1878: l_line_tbl(1).line_id := p_ship_line_rec.line_id(p_index);
1879: l_line_tbl(2).split_from_line_id := l_line_tbl(1).line_id;
1880:
1881: IF l_debug_level > 0 THEN
1882: oe_debug_pub.add('pal local split line 4 ', 3);
1883: END IF;
1884: IF l_debug_level > 0 THEN
1885: oe_debug_pub.add
1886: ('split single line '|| p_ship_line_rec.line_id(p_index), 3);
1881: IF l_debug_level > 0 THEN
1882: oe_debug_pub.add('pal local split line 4 ', 3);
1883: END IF;
1884: IF l_debug_level > 0 THEN
1885: oe_debug_pub.add
1886: ('split single line '|| p_ship_line_rec.line_id(p_index), 3);
1887: oe_debug_pub.add
1888: ('shp qty ' || p_ship_line_rec.shipped_quantity(p_index), 3);
1889: oe_debug_pub.add
1883: END IF;
1884: IF l_debug_level > 0 THEN
1885: oe_debug_pub.add
1886: ('split single line '|| p_ship_line_rec.line_id(p_index), 3);
1887: oe_debug_pub.add
1888: ('shp qty ' || p_ship_line_rec.shipped_quantity(p_index), 3);
1889: oe_debug_pub.add
1890: ('ord qty ' || p_ship_line_rec.ordered_quantity(p_index), 3);
1891: END IF;
1885: oe_debug_pub.add
1886: ('split single line '|| p_ship_line_rec.line_id(p_index), 3);
1887: oe_debug_pub.add
1888: ('shp qty ' || p_ship_line_rec.shipped_quantity(p_index), 3);
1889: oe_debug_pub.add
1890: ('ord qty ' || p_ship_line_rec.ordered_quantity(p_index), 3);
1891: END IF;
1892:
1893: ELSE -- model split
1898: l_line_tbl(1).line_id := p_ship_line_rec.ato_line_id(p_index);
1899: l_line_tbl(2).split_from_line_id := l_line_tbl(1).line_id;
1900:
1901: IF l_debug_level > 0 THEN
1902: oe_debug_pub.add
1903: ('split ato '|| p_ship_line_rec.ato_line_id(p_index), 3);
1904: END IF;
1905:
1906: ELSE
1910:
1911:
1912:
1913: IF l_debug_level > 0 THEN
1914: oe_debug_pub.add
1915: ('split pto '|| p_ship_line_rec.top_model_line_id(p_index), 3);
1916: END IF;
1917: END IF;
1918:
1917: END IF;
1918:
1919: END IF;
1920: IF l_debug_level > 0 THEN
1921: oe_debug_pub.add('PAL here 1 index is '|| p_index, 3);
1922: END IF;
1923:
1924: -- HW
1925:
1927:
1928: IF ( p_ship_line_rec.order_quantity_uom2(p_index) is NOT NULL
1929: and p_ship_line_rec.order_quantity_uom2(p_index) <> FND_API.G_MISS_CHAR )
1930: THEN
1931: oe_debug_pub.add('PAL here 2 index is '|| p_index, 3);
1932: IF p_ship_line_rec.order_quantity_uom(p_index)
1933: <> p_ship_line_rec.order_quantity_uom2(p_index) THEN
1934: oe_debug_pub.add('PAL here 3 index is '|| p_index, 3);
1935: /* l_line_tbl(1).ordered_quantity2
1930: THEN
1931: oe_debug_pub.add('PAL here 2 index is '|| p_index, 3);
1932: IF p_ship_line_rec.order_quantity_uom(p_index)
1933: <> p_ship_line_rec.order_quantity_uom2(p_index) THEN
1934: oe_debug_pub.add('PAL here 3 index is '|| p_index, 3);
1935: /* l_line_tbl(1).ordered_quantity2
1936:
1937: := GMI_Reservation_Util.get_opm_converted_qty
1938: (p_apps_item_id => p_ship_line_rec.inventory_item_id(p_index),
1962: ,p_ship_line_rec.order_quantity_uom2(p_index)
1963: ,NULL -- From uom name
1964: ,NULL -- To uom name
1965: );
1966: oe_debug_pub.add('PAL here 4 index is '|| p_index, 3);
1967: l_line_tbl(2).ordered_quantity2 := INV_CONVERT.INV_UM_CONVERT(p_ship_line_rec.inventory_item_id(p_index)-- INVCONV
1968: , NULL
1969: ,p_ship_line_rec.ship_from_org_id(p_index)
1970: ,5 --NULL
1991: ,NULL -- From uom name
1992: ,NULL -- To uom name
1993: );
1994: END IF;
1995: oe_debug_pub.add('PAL here 4 index is '|| p_index, 3);
1996: --Assign difference between original line order qty2 and original line ship qty2 to
1997: --split line order qty2, only if the difference is grater than or equal to zero.
1998: IF (p_ship_line_rec.shipping_quantity2(p_index) IS NOT NULL AND
1999: p_ship_line_rec.ordered_quantity2(p_index) - p_ship_line_rec.shipping_quantity2(p_index) >= 0) THEN
2040: );
2041: END IF;
2042: --End Bug 7528326.
2043:
2044: oe_debug_pub.add('PAL here 5 index is '|| p_index, 3);
2045: IF l_debug_level > 0 THEN
2046: oe_debug_pub.add
2047: ('DUAL 3RD CONVERSION 1 '||l_line_tbl(1).ORDERED_QUANTITY2,1);
2048: END IF;
2042: --End Bug 7528326.
2043:
2044: oe_debug_pub.add('PAL here 5 index is '|| p_index, 3);
2045: IF l_debug_level > 0 THEN
2046: oe_debug_pub.add
2047: ('DUAL 3RD CONVERSION 1 '||l_line_tbl(1).ORDERED_QUANTITY2,1);
2048: END IF;
2049:
2050: ELSE -- order uom = order uom 2
2047: ('DUAL 3RD CONVERSION 1 '||l_line_tbl(1).ORDERED_QUANTITY2,1);
2048: END IF;
2049:
2050: ELSE -- order uom = order uom 2
2051: oe_debug_pub.add('PAL here 6 index is '|| p_index, 3);
2052: l_line_tbl(1).ordered_quantity2 := l_line_tbl(1).ordered_quantity;
2053: l_line_tbl(2).ordered_quantity2 := l_line_tbl(2).ordered_quantity;
2054: END IF;
2055:
2053: l_line_tbl(2).ordered_quantity2 := l_line_tbl(2).ordered_quantity;
2054: END IF;
2055:
2056: ELSE
2057: oe_debug_pub.add('PAL here 7 index is '|| p_index, 3);
2058: l_line_tbl(1).ordered_quantity2 := NULL;
2059: l_line_tbl(2).ordered_quantity2 := NULL;
2060: END IF;
2061:
2058: l_line_tbl(1).ordered_quantity2 := NULL;
2059: l_line_tbl(2).ordered_quantity2 := NULL;
2060: END IF;
2061:
2062: oe_debug_pub.add('PAL here 8 index is '|| p_index, 3);
2063:
2064: IF l_debug_level > 0 THEN
2065: oe_debug_pub.add('SPLIT FROM : '||L_LINE_TBL(2).SPLIT_FROM_LINE_ID,3);
2066: oe_debug_pub.add('ORD qty old : '||L_LINE_TBL(1).ORDERED_QUANTITY,3);
2061:
2062: oe_debug_pub.add('PAL here 8 index is '|| p_index, 3);
2063:
2064: IF l_debug_level > 0 THEN
2065: oe_debug_pub.add('SPLIT FROM : '||L_LINE_TBL(2).SPLIT_FROM_LINE_ID,3);
2066: oe_debug_pub.add('ORD qty old : '||L_LINE_TBL(1).ORDERED_QUANTITY,3);
2067: oe_debug_pub.add('ORD QTY2 old : '||L_LINE_TBL(1).ORDERED_QUANTITY2,3);
2068: oe_debug_pub.add('ORD QTY NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY,3);
2069: oe_debug_pub.add('ORD QTY2 NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY2,3);
2062: oe_debug_pub.add('PAL here 8 index is '|| p_index, 3);
2063:
2064: IF l_debug_level > 0 THEN
2065: oe_debug_pub.add('SPLIT FROM : '||L_LINE_TBL(2).SPLIT_FROM_LINE_ID,3);
2066: oe_debug_pub.add('ORD qty old : '||L_LINE_TBL(1).ORDERED_QUANTITY,3);
2067: oe_debug_pub.add('ORD QTY2 old : '||L_LINE_TBL(1).ORDERED_QUANTITY2,3);
2068: oe_debug_pub.add('ORD QTY NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY,3);
2069: oe_debug_pub.add('ORD QTY2 NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY2,3);
2070: END IF;
2063:
2064: IF l_debug_level > 0 THEN
2065: oe_debug_pub.add('SPLIT FROM : '||L_LINE_TBL(2).SPLIT_FROM_LINE_ID,3);
2066: oe_debug_pub.add('ORD qty old : '||L_LINE_TBL(1).ORDERED_QUANTITY,3);
2067: oe_debug_pub.add('ORD QTY2 old : '||L_LINE_TBL(1).ORDERED_QUANTITY2,3);
2068: oe_debug_pub.add('ORD QTY NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY,3);
2069: oe_debug_pub.add('ORD QTY2 NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY2,3);
2070: END IF;
2071: oe_debug_pub.add('PAL here 9 index is '|| p_index, 3);
2064: IF l_debug_level > 0 THEN
2065: oe_debug_pub.add('SPLIT FROM : '||L_LINE_TBL(2).SPLIT_FROM_LINE_ID,3);
2066: oe_debug_pub.add('ORD qty old : '||L_LINE_TBL(1).ORDERED_QUANTITY,3);
2067: oe_debug_pub.add('ORD QTY2 old : '||L_LINE_TBL(1).ORDERED_QUANTITY2,3);
2068: oe_debug_pub.add('ORD QTY NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY,3);
2069: oe_debug_pub.add('ORD QTY2 NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY2,3);
2070: END IF;
2071: oe_debug_pub.add('PAL here 9 index is '|| p_index, 3);
2072:
2065: oe_debug_pub.add('SPLIT FROM : '||L_LINE_TBL(2).SPLIT_FROM_LINE_ID,3);
2066: oe_debug_pub.add('ORD qty old : '||L_LINE_TBL(1).ORDERED_QUANTITY,3);
2067: oe_debug_pub.add('ORD QTY2 old : '||L_LINE_TBL(1).ORDERED_QUANTITY2,3);
2068: oe_debug_pub.add('ORD QTY NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY,3);
2069: oe_debug_pub.add('ORD QTY2 NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY2,3);
2070: END IF;
2071: oe_debug_pub.add('PAL here 9 index is '|| p_index, 3);
2072:
2073: l_control_rec.validate_entity := FALSE;
2067: oe_debug_pub.add('ORD QTY2 old : '||L_LINE_TBL(1).ORDERED_QUANTITY2,3);
2068: oe_debug_pub.add('ORD QTY NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY,3);
2069: oe_debug_pub.add('ORD QTY2 NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY2,3);
2070: END IF;
2071: oe_debug_pub.add('PAL here 9 index is '|| p_index, 3);
2072:
2073: l_control_rec.validate_entity := FALSE;
2074: l_control_rec.check_security := FALSE;
2075:
2079: p_process_requests => TRUE,
2080: x_return_status => l_return_status);
2081:
2082: IF l_debug_level > 0 THEN
2083: oe_debug_pub.add('local split line RET STS : '||L_RETURN_STATUS,3);
2084: END IF;
2085:
2086: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2088: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2089: RAISE FND_API.G_EXC_ERROR;
2090: END IF;
2091:
2092: oe_debug_pub.add('PAL here 10 index is '|| p_index, 3);
2093: EXCEPTION
2094: WHEN others THEN
2095: IF l_debug_level > 0 THEN
2096: oe_debug_pub.add('PAL here 12 index is '|| p_index, 3);
2092: oe_debug_pub.add('PAL here 10 index is '|| p_index, 3);
2093: EXCEPTION
2094: WHEN others THEN
2095: IF l_debug_level > 0 THEN
2096: oe_debug_pub.add('PAL here 12 index is '|| p_index, 3);
2097: oe_debug_pub.add('error in split_line '||sqlerrm,3);
2098: END IF;
2099: RAISE;
2100: END Split_Line;
2093: EXCEPTION
2094: WHEN others THEN
2095: IF l_debug_level > 0 THEN
2096: oe_debug_pub.add('PAL here 12 index is '|| p_index, 3);
2097: oe_debug_pub.add('error in split_line '||sqlerrm,3);
2098: END IF;
2099: RAISE;
2100: END Split_Line;
2101:
2119: l_fulfill_tbl OE_Order_Pub.Line_Tbl_Type;
2120: l_fulfill_index NUMBER := 0 ;
2121: l_fulfillment_set_flag VARCHAR2(1); -- for bug 4176692
2122:
2123: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2124:
2125: CURSOR fulfill_remnant_lines IS
2126: SELECT line_id, ordered_quantity
2127: ,header_id, actual_shipment_date, order_firmed_date
2132: AND shippable_flag = 'N'
2133: AND model_remnant_flag = 'Y';
2134: BEGIN
2135: IF l_debug_level > 0 THEN
2136: oe_debug_pub.add('entering fulfill_remnant_pto'||p_top_model_line_id, 3);
2137: END IF;
2138: -- for bug 4176692
2139: l_fulfillment_set_flag :=
2140: OE_Line_Fullfill.Is_Part_Of_Fulfillment_Set(p_top_model_line_id);
2141:
2142: FOR line_rec in fulfill_remnant_lines
2143: LOOP
2144: IF l_debug_level > 0 THEN
2145: oe_debug_pub.add('CALLING GET ACTIVITY RESULT FOR : '|| line_rec.line_id, 3);
2146: END IF;
2147:
2148: OE_LINE_FULLFILL.Get_Activity_Result
2149: (p_item_type => OE_GLOBALS.G_WFI_LIN
2154: ,x_activity_status_code => l_activity_status
2155: ,x_activity_id => l_activity_id );
2156:
2157: IF l_debug_level > 0 THEN
2158: oe_debug_pub.add('RET STS FROM GET ACT RESULT: '||L_RETURN_STATUS , 3 ) ;
2159: END IF;
2160:
2161: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2161: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2163: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2164: IF l_debug_level > 0 THEN
2165: oe_debug_pub.add('LINE IS NOT AT FULFILLMENT ACTIVITY ',3);
2166: END IF;
2167: ELSE
2168: IF l_activity_status = 'NOTIFIED' THEN
2169:
2167: ELSE
2168: IF l_activity_status = 'NOTIFIED' THEN
2169:
2170: IF l_debug_level > 0 THEN
2171: oe_debug_pub.add( 'LINE IS AT FULFILLMENT ACTIVITY ',3);
2172: END IF;
2173:
2174: OE_LINE_FULLFILL.Get_Fulfillment_Activity
2175: (p_item_key => line_rec.line_id,
2183: RAISE FND_API.G_EXC_ERROR;
2184: END IF;
2185:
2186: IF l_debug_level > 0 THEN
2187: oe_debug_pub.add( 'FULFILLMENT ACT : '||L_FULFILLMENT_ACTIVITY , 3 ) ;
2188: END IF;
2189:
2190: IF (l_fulfillment_activity = 'NO_ACTIVITY' OR
2191: l_fulfillment_activity = 'SHIP_LINE') AND
2214:
2215: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
2216:
2217: IF l_debug_level > 0 THEN
2218: oe_debug_pub.add('FULFILLED QUANTITY : '
2219: || L_FULFILL_TBL(L_FULFILL_INDEX).FULFILLED_QUANTITY,3);
2220: END IF;
2221:
2222: END IF; -- no activity
2241:
2242: FOR l_fulfill_index IN 1 .. l_fulfill_tbl.count
2243: LOOP
2244: IF l_debug_level > 0 THEN
2245: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
2246: END IF;
2247:
2248: OE_Order_WF_Util.Update_Flow_Status_Code
2249: (p_header_id => l_fulfill_tbl(l_fulfill_index).header_id,
2251: p_flow_status_code => 'FULFILLED',
2252: x_return_status => l_return_status);
2253:
2254: IF l_debug_level > 0 THEN
2255: oe_debug_pub.add('RET STS FROM FLOW STATUS API '||L_RETURN_STATUS,3);
2256: END IF;
2257:
2258: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2278: p_header_id => l_fulfill_tbl(l_fulfill_index).header_id,
2279: x_return_status => l_return_status);
2280:
2281: IF l_debug_level > 0 THEN
2282: oe_debug_pub.add( 'RET STS FULFILL SERVICE '||L_RETURN_STATUS , 3 ) ;
2283: END IF;
2284:
2285: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2292:
2293: END IF; -- fullfill index <> 0
2294:
2295: IF l_debug_level > 0 THEN
2296: OE_DEBUG_PUB.Add('Exiting fulfill_remnant_pto', 3);
2297: END IF;
2298: EXCEPTION
2299: WHEN others THEN
2300: IF l_debug_level > 0 THEN
2297: END IF;
2298: EXCEPTION
2299: WHEN others THEN
2300: IF l_debug_level > 0 THEN
2301: oe_debug_pub.add('error in Fulfill_Remnant_PTO '||sqlerrm,3);
2302: END IF;
2303: RAISE;
2304: END Fulfill_Remnant_PTO;
2305:
2320: ,p_ato_only IN VARCHAR2 := 'N')
2321: IS
2322: l_return_status VARCHAR2(1);
2323: l_wdd_count NUMBER;
2324: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2325: -- bug4460242
2326: l_activity_status VARCHAR2(8);
2327: l_activity_result VARCHAR2(30);
2328: l_activity_id NUMBER;
2329:
2330: BEGIN
2331:
2332: IF l_debug_level > 0 THEN
2333: oe_debug_pub.add('entering Ship_Confirm_Line '||p_ato_only
2334: ||'line_id: ' || p_ship_line_rec.line_id(p_index),3);
2335: oe_debug_pub.add('ord qty '||p_ship_line_rec.ordered_quantity(p_index),3);
2336: oe_debug_pub.add('shp qty '||p_ship_line_rec.shipped_quantity(p_index),3);
2337: END IF;
2331:
2332: IF l_debug_level > 0 THEN
2333: oe_debug_pub.add('entering Ship_Confirm_Line '||p_ato_only
2334: ||'line_id: ' || p_ship_line_rec.line_id(p_index),3);
2335: oe_debug_pub.add('ord qty '||p_ship_line_rec.ordered_quantity(p_index),3);
2336: oe_debug_pub.add('shp qty '||p_ship_line_rec.shipped_quantity(p_index),3);
2337: END IF;
2338:
2339: IF p_ato_only = 'Y' THEN
2332: IF l_debug_level > 0 THEN
2333: oe_debug_pub.add('entering Ship_Confirm_Line '||p_ato_only
2334: ||'line_id: ' || p_ship_line_rec.line_id(p_index),3);
2335: oe_debug_pub.add('ord qty '||p_ship_line_rec.ordered_quantity(p_index),3);
2336: oe_debug_pub.add('shp qty '||p_ship_line_rec.shipped_quantity(p_index),3);
2337: END IF;
2338:
2339: IF p_ato_only = 'Y' THEN
2340:
2357: p_ship_line_rec.item_type_code(p_index) = 'CONFIG' THEN
2358:
2359: -- bug fix 4460242
2360: IF l_debug_level > 0 THEN
2361: oe_debug_pub.add( 'GET ACTIVITY RESULT : '|| p_ship_line_rec.ato_line_id(p_index) , 3 ) ;
2362: END IF;
2363: OE_LINE_FULLFILL.Get_Activity_Result
2364: ( p_item_type => OE_GLOBALS.G_WFI_LIN
2365: , p_item_key => p_ship_line_rec.ato_line_id(p_index)
2369: , x_activity_status_code => l_activity_status
2370: , x_activity_id => l_activity_id );
2371:
2372: IF l_debug_level > 0 THEN
2373: oe_debug_pub.add( 'STATUS GET ACTIVITY RESULT : '||L_RETURN_STATUS , 3 ) ;
2374: END IF;
2375:
2376: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2376: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2378: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2379: IF l_debug_level > 0 THEN
2380: oe_debug_pub.add( 'LINE IS NOT AT WAIT_FOR_CTO ACTIVITY' , 1 ) ;
2381: END IF;
2382: ELSE
2383: IF l_activity_status = 'NOTIFIED' THEN
2384: IF l_debug_level > 0 THEN
2381: END IF;
2382: ELSE
2383: IF l_activity_status = 'NOTIFIED' THEN
2384: IF l_debug_level > 0 THEN
2385: oe_debug_pub.add( 'LINE IS AT WAIT_FOR_CTO ACTIVITY' , 1 ) ;
2386: oe_debug_pub.add( 'COMPLETE ACTIVITY , FOR '|| p_ship_line_rec.ato_line_id(p_index) , 3 ) ;
2387: END IF;
2388:
2389: OE_DEBUG_PUB.Add('Log delayed request for Complete CTO-Bug-3471040');
2382: ELSE
2383: IF l_activity_status = 'NOTIFIED' THEN
2384: IF l_debug_level > 0 THEN
2385: oe_debug_pub.add( 'LINE IS AT WAIT_FOR_CTO ACTIVITY' , 1 ) ;
2386: oe_debug_pub.add( 'COMPLETE ACTIVITY , FOR '|| p_ship_line_rec.ato_line_id(p_index) , 3 ) ;
2387: END IF;
2388:
2389: OE_DEBUG_PUB.Add('Log delayed request for Complete CTO-Bug-3471040');
2390:
2385: oe_debug_pub.add( 'LINE IS AT WAIT_FOR_CTO ACTIVITY' , 1 ) ;
2386: oe_debug_pub.add( 'COMPLETE ACTIVITY , FOR '|| p_ship_line_rec.ato_line_id(p_index) , 3 ) ;
2387: END IF;
2388:
2389: OE_DEBUG_PUB.Add('Log delayed request for Complete CTO-Bug-3471040');
2390:
2391: OE_Delayed_Requests_Pvt.Log_Request
2392: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2393: p_entity_id => p_ship_line_rec.ato_line_id(p_index),
2406: RAISE FND_API.G_EXC_ERROR;
2407: END IF;
2408:
2409: IF l_debug_level > 0 THEN
2410: oe_debug_pub.add('ato parent workflow progressed '
2411: || p_ship_line_rec.ato_line_id(p_index), 5);
2412: END IF;
2413: END IF;-- end of IF l_activity_status = 'NOTIFIED'
2414: END IF; -- end of IF l_return_status =SUCCESS OR NOT
2416: -- end of bug 4460242
2417:
2418:
2419: IF l_debug_level > 0 THEN
2420: oe_debug_pub.add('fulfilled? ' ||p_ship_line_rec.fulfilled_flag(p_index)
2421: || ' model? '||p_model_call, 1);
2422: END IF;
2423:
2424: IF p_model_call = 'N' THEN
2462: NULL;
2463: END;
2464:
2465: IF l_debug_level > 0 THEN
2466: oe_debug_pub.add('WSH Count : ' || l_wdd_count, 1);
2467: END IF;
2468: END IF; -- For bug 7243039 (Added for bug 6877315)
2469: ELSE
2470: l_wdd_count := 1;
2468: END IF; -- For bug 7243039 (Added for bug 6877315)
2469: ELSE
2470: l_wdd_count := 1;
2471: IF l_debug_level > 0 THEN
2472: oe_debug_pub.add('setting the count 1, split' , 1);
2473: END IF;
2474: END IF;
2475:
2476: -- END IF; -- Added for bug 6877315 : Commented for bug 7243039
2482: ,p_index => p_index
2483: ,p_split_model => p_ato_only);
2484:
2485: IF l_debug_level > 0 THEN
2486: oe_debug_pub.add('after split line for standard item', 5);
2487: END IF;
2488: END IF; -- Item_type_code
2489:
2490: END IF;
2493: END IF;
2494:
2495: BEGIN
2496: IF l_debug_level > 0 THEN
2497: oe_debug_pub.add('loggin request to wf complete', 5);
2498: END IF;
2499:
2500: OE_Delayed_Requests_Pvt.Log_Request
2501: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2515: RAISE FND_API.G_EXC_ERROR;
2516: END IF;
2517:
2518: IF l_debug_level > 0 THEN
2519: oe_debug_pub.add('after wf completion delayed request', 3);
2520: END IF;
2521:
2522: EXCEPTION
2523: WHEN others THEN
2521:
2522: EXCEPTION
2523: WHEN others THEN
2524: IF l_debug_level > 0 THEN
2525: oe_debug_pub.ADD('wf CompleteActivity error ' || sqlerrm,3);
2526: END IF;
2527: RAISE;
2528: END;
2529:
2527: RAISE;
2528: END;
2529:
2530: IF l_debug_level > 0 THEN
2531: oe_debug_pub.add('calling Update_Flow_Status_Code', 3);
2532: END IF;
2533:
2534: OE_Order_WF_Util.Update_Flow_Status_Code
2535: (p_header_id => p_ship_line_rec.header_id(p_index),
2544: RAISE FND_API.G_EXC_ERROR;
2545: END IF;
2546:
2547: IF l_debug_level > 0 THEN
2548: oe_debug_pub.add('leaving Ship_Confirm_Line', 3);
2549: END IF;
2550: EXCEPTION
2551: WHEN others THEN
2552: IF l_debug_level > 0 THEN
2549: END IF;
2550: EXCEPTION
2551: WHEN others THEN
2552: IF l_debug_level > 0 THEN
2553: oe_debug_pub.add('error in Ship_Confirm_Line ' || sqlerrm, 3);
2554: END IF;
2555:
2556: RAISE;
2557: END Ship_Confirm_Line;
2571: l_count1 NUMBER;
2572: l_proportional_ship VARCHAR2(1) := 'Y';
2573: l_split_line_tbl OE_Order_Pub.Line_Tbl_Type;
2574: l_return_status VARCHAR2(1) := 'Y';
2575: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2576: l_index NUMBER;
2577: l_model_remnant_flag VARCHAR2(1) := 'N';
2578: l_make_remnant VARCHAR2(1) := 'N'; -- bug 4701487
2579: l_line_found NUMBER := 0;
2600: -- updating remnant flag for various conditions.
2601: --Commented IF condition to handle SMC Case Bug Fix 5008069
2602: -- IF nvl(p_ship_line_rec.smc_flag(p_index), 'N') = 'N' THEN
2603: IF l_debug_level > 0 THEN
2604: oe_debug_pub.add('LINE PART OF NON SMC PTO '|| l_count1, 4);
2605: END IF;
2606:
2607: -- if ato+pto with external lines, make it remnant.
2608: IF l_count1 > 1 THEN
2614: AND source_type_code = 'EXTERNAL';
2615:
2616: IF l_count > 0 THEN
2617: IF l_debug_level > 0 THEN
2618: oe_debug_pub.add( 'EXTERNAL LINES EXIST' , 2 ) ;
2619: END IF;
2620: l_make_remnant := 'Y'; -- bug 4701487
2621: END IF;
2622: END IF; -- if more than 1 shippable lines.
2644: AND item_type_code = 'CONFIG');
2645:
2646: IF l_count > 0 THEN
2647: IF l_debug_level > 0 THEN
2648: oe_debug_pub.add( 'ATO model line does not have CONFIG created', 2 ) ;
2649: END IF;
2650: l_make_remnant := 'Y'; -- bug 4701487
2651: END IF;
2652: END IF;
2668: END;
2669:
2670: IF l_count > 0 THEN
2671: IF l_debug_level > 0 THEN
2672: oe_debug_pub.add('Atleast one un-scheduled line exists in the Model...' , 2 ) ;
2673: END IF;
2674: l_make_remnant := 'Y';
2675: END IF;
2676: END IF; -- bug 4701487
2676: END IF; -- bug 4701487
2677:
2678: IF l_make_remnant = 'Y' THEN
2679: IF l_debug_level > 0 THEN
2680: oe_debug_pub.add( 'Making the model REMNANT:'|| p_TOP_MODEL_LINE_ID , 2) ;
2681: END IF;
2682:
2683: UPDATE oe_order_lines
2684: SET model_remnant_flag = 'Y'
2693:
2694: -------------------- remnant upadate done ---------------------
2695:
2696: IF l_debug_level > 0 THEN
2697: oe_debug_pub.add('entering Ship_Confirm_PTO, model line_id: '
2698: || p_top_model_line_id, 3);
2699: END IF;
2700:
2701: IF l_model_remnant_flag = 'N' THEN
2708: AND shipped_quantity is NULL;
2709:
2710: IF l_count > 0 THEN
2711: IF l_debug_level > 0 THEN
2712: oe_debug_pub.add('1 select '|| l_count , 3);
2713: END IF;
2714: l_proportional_ship := 'N';
2715: ELSE
2716: BEGIN
2728: AND oe2.line_id <> oe1.line_id
2729: AND oe2.shippable_flag = 'Y');
2730:
2731: IF l_debug_level > 0 THEN
2732: oe_debug_pub.add('2 select '|| l_count || l_count1 , 3);
2733: END IF;
2734:
2735: IF l_count1 = l_count THEN
2736: /* bug fix 4466040 */
2760: END IF;
2761: EXCEPTION
2762: WHEN others THEN
2763: IF l_debug_level > 0 THEN
2764: oe_debug_pub.add('others '|| sqlerrm, 3);
2765: END IF;
2766: RAISE;
2767: END;
2768: END IF;
2794: AND shippable_flag = 'N';
2795:
2796: IF SQL%FOUND THEN
2797: IF l_debug_level > 0 THEN
2798: oe_debug_pub.add('nonshippable lines updated '|| sql%rowcount, 3);
2799: END IF;
2800:
2801: END IF;
2802:
2800:
2801: END IF;
2802:
2803: IF l_debug_level > 0 THEN
2804: oe_debug_pub.add('append model line ' || p_ship_line_rec.line_id.LAST, 3);
2805: END IF;
2806:
2807: l_index := p_ship_line_rec.line_id.LAST + 1;
2808: p_ship_line_rec.line_id.extend;
2826: WHERE line_id = p_top_model_line_id;
2827:
2828:
2829: IF l_debug_level > 0 THEN
2830: oe_debug_pub.add('p_index of this line '|| p_index, 3);
2831: oe_debug_pub.add
2832: ('shp qty: '|| p_ship_line_rec.shipped_quantity(p_index)
2833: || 'ord qty :'||p_ship_line_rec.ordered_quantity(p_index), 3);
2834: oe_debug_pub.add('model line added to l_index '|| l_index, 3);
2827:
2828:
2829: IF l_debug_level > 0 THEN
2830: oe_debug_pub.add('p_index of this line '|| p_index, 3);
2831: oe_debug_pub.add
2832: ('shp qty: '|| p_ship_line_rec.shipped_quantity(p_index)
2833: || 'ord qty :'||p_ship_line_rec.ordered_quantity(p_index), 3);
2834: oe_debug_pub.add('model line added to l_index '|| l_index, 3);
2835: oe_debug_pub.add('model shp and ord qtys: '
2830: oe_debug_pub.add('p_index of this line '|| p_index, 3);
2831: oe_debug_pub.add
2832: ('shp qty: '|| p_ship_line_rec.shipped_quantity(p_index)
2833: || 'ord qty :'||p_ship_line_rec.ordered_quantity(p_index), 3);
2834: oe_debug_pub.add('model line added to l_index '|| l_index, 3);
2835: oe_debug_pub.add('model shp and ord qtys: '
2836: || p_ship_line_rec.shipped_quantity(l_index) || ' '
2837: || p_ship_line_rec.ordered_quantity(l_index), 3);
2838: END IF;
2831: oe_debug_pub.add
2832: ('shp qty: '|| p_ship_line_rec.shipped_quantity(p_index)
2833: || 'ord qty :'||p_ship_line_rec.ordered_quantity(p_index), 3);
2834: oe_debug_pub.add('model line added to l_index '|| l_index, 3);
2835: oe_debug_pub.add('model shp and ord qtys: '
2836: || p_ship_line_rec.shipped_quantity(l_index) || ' '
2837: || p_ship_line_rec.ordered_quantity(l_index), 3);
2838: END IF;
2839:
2840: IF p_ship_line_rec.shipped_quantity(l_index)
2841: < p_ship_line_rec.ordered_quantity(l_index) THEN
2842:
2843: IF l_debug_level > 0 THEN
2844: oe_debug_pub.add('calling split line from ship_confirm_pto', 3);
2845: END IF;
2846:
2847: Split_Line
2848: ( p_ship_line_rec => p_ship_line_rec
2853:
2854: -- delete the appended model line
2855:
2856: IF l_debug_level > 0 THEN
2857: oe_debug_pub.add('removing model line', 3);
2858: END IF;
2859:
2860: p_ship_line_rec.line_id.trim;
2861: p_ship_line_rec.shipped_quantity.trim;
2864: p_ship_line_rec.top_model_line_id.trim;
2865: p_ship_line_rec.item_type_code.trim;
2866:
2867: IF l_debug_level > 0 THEN
2868: oe_debug_pub.add('done removing model line ' || p_ship_line_rec.line_id.first || '-'||p_ship_line_rec.line_id.last, 3);
2869: END IF;
2870:
2871: FOR I in p_ship_line_rec.line_id.first..p_ship_line_rec.line_id.last
2872: LOOP
2876: -- 4396294
2877: THEN
2878:
2879: IF l_debug_level > 0 THEN
2880: oe_debug_pub.add(I || ' calling Ship_Confirm_line for line_id '
2881: ||p_ship_line_rec.line_id(I) , 3);
2882: END IF;
2883:
2884: Ship_Confirm_Line
2891:
2892: END LOOP;
2893:
2894: IF l_debug_level > 0 THEN
2895: oe_debug_pub.add('1 leaving Ship_Confirm_PTO ', 3);
2896: END IF;
2897:
2898: RETURN;
2899: END IF;
2909: LOOP
2910:
2911: IF p_ship_line_rec.top_model_line_id(I) = p_top_model_line_id THEN
2912: IF l_debug_level > 0 THEN
2913: oe_debug_pub.add('line_id '|| p_ship_line_rec.line_id(I), 1);
2914: END IF;
2915:
2916: l_count := l_count + 1;
2917:
2916: l_count := l_count + 1;
2917:
2918: l_split_line_tbl(l_count).line_id := p_ship_line_rec.line_id(I);
2919: IF l_debug_level > 0 THEN
2920: oe_debug_pub.add('quring row ', 1);
2921: END IF;
2922:
2923: OE_Line_Util.Query_Row
2924: ( p_line_id => p_ship_line_rec.line_id(I)
2923: OE_Line_Util.Query_Row
2924: ( p_line_id => p_ship_line_rec.line_id(I)
2925: ,x_line_rec => l_split_line_tbl(l_count));
2926: IF l_debug_level > 0 THEN
2927: oe_debug_pub.add('zz2', 1);
2928: END IF;
2929:
2930: l_split_line_tbl(l_count).operation := OE_GLOBALS.G_OPR_UPDATE;
2931:
2947:
2948: IF l_count > 0 THEN
2949:
2950: IF l_debug_level > 0 THEN
2951: oe_debug_pub.add('calling Cascade_Non_Proportional_Split', 3);
2952: END IF;
2953:
2954: OE_Split_Util.Cascade_Non_Proportional_Split
2955: (p_x_line_tbl => l_split_line_tbl,
2965: l_split_line_tbl(I).shipped_quantity > 0 AND
2966: l_split_line_tbl(I).split_from_line_id is NOT NULL
2967: THEN
2968: IF l_debug_level > 0 THEN
2969: oe_debug_pub.add('append line ' || l_split_line_tbl(I).line_id, 3);
2970: END IF;
2971: l_line_found := 0;
2972:
2973: FOR J in p_ship_line_rec.line_id.FIRST..p_ship_line_rec.line_id.LAST
2973: FOR J in p_ship_line_rec.line_id.FIRST..p_ship_line_rec.line_id.LAST
2974: LOOP
2975: IF p_ship_line_rec.line_id(J) = l_split_line_tbl(I).line_id THEN
2976: IF l_debug_level > 0 THEN
2977: OE_DEBUG_PUB.Add('Line Exists already in Ship Rec'||
2978: l_split_line_tbl(I).line_id,3);
2979: END IF;
2980: l_line_found := 1;
2981: EXIT;
3022:
3023: END IF; -- we did not make it remnant
3024:
3025: IF l_debug_level > 0 THEN
3026: oe_debug_pub.add('last: '|| p_ship_line_rec.line_id.last, 5);
3027: END IF;
3028:
3029: FOR I in p_ship_line_rec.line_id.first..p_ship_line_rec.line_id.last
3030: LOOP
3028:
3029: FOR I in p_ship_line_rec.line_id.first..p_ship_line_rec.line_id.last
3030: LOOP
3031: IF l_debug_level > 0 THEN
3032: oe_debug_pub.add('top model: '|| p_ship_line_rec.top_model_line_id(I), 5);
3033: END IF;
3034: IF p_ship_line_rec.top_model_line_id(I) = p_top_model_line_id THEN
3035:
3036: IF l_debug_level > 0 THEN
3033: END IF;
3034: IF p_ship_line_rec.top_model_line_id(I) = p_top_model_line_id THEN
3035:
3036: IF l_debug_level > 0 THEN
3037: oe_debug_pub.add('3 calling Ship_Confirm_line '
3038: ||p_ship_line_rec.line_id(I) , 3);
3039: END IF;
3040:
3041: IF l_model_remnant_flag = 'Y' THEN
3048: p_ship_line_rec.fulfilled_flag(I) := 'Y';
3049: END IF;
3050:
3051: IF l_debug_level > 0 THEN
3052: oe_debug_pub.add(' ful: ' ||p_ship_line_rec.fulfilled_flag(I), 3);
3053: END IF;
3054: ELSE
3055: l_proportional_ship := 'Y'; -- reusing the variable
3056: END IF;
3055: l_proportional_ship := 'Y'; -- reusing the variable
3056: END IF;
3057:
3058: IF l_debug_level > 0 THEN
3059: oe_debug_pub.add('calling Ship_Confirm_Line '
3060: || l_model_remnant_flag, 3);
3061: END IF;
3062:
3063: Ship_Confirm_Line
3067: ,p_index => I);
3068: END IF;
3069:
3070: IF l_debug_level > 0 THEN
3071: oe_debug_pub.add('done calling Ship_Confirm_Line '
3072: || p_ship_line_rec.line_id(I), 3);
3073: END IF;
3074: END LOOP;
3075:
3075:
3076: IF l_count1 > 0 THEN
3077:
3078: IF l_debug_level > 0 THEN
3079: oe_debug_pub.add('triming appended tables : ' ||l_count1 , 3);
3080: END IF;
3081:
3082: p_ship_line_rec.line_id.trim(l_count1);
3083: p_ship_line_rec.shipped_quantity.trim(l_count1);
3098: l_split_line_tbl(I).line_id) AND
3099: l_split_line_tbl(I).model_remnant_flag ='Y' THEN
3100:
3101: IF l_debug_level > 0 THEN
3102: oe_debug_pub.add('calling Fulfill_Remnant_PTO ', 3);
3103: END IF;
3104:
3105: -- handle all remnant non-shippable lines
3106: Fulfill_Remnant_PTO
3111: ELSE -- could be remnant case that we make.
3112: IF l_model_remnant_flag = 'Y' THEN
3113:
3114: IF l_debug_level > 0 THEN
3115: oe_debug_pub.add('remnant made by us, calling Fulfill_Remnant_PTO '
3116: || p_top_model_line_id, 3);
3117: END IF;
3118:
3119: Fulfill_Remnant_PTO
3121: END IF;
3122: END IF;
3123:
3124: IF l_debug_level > 0 THEN
3125: oe_debug_pub.add('2 leaving Ship_Confirm_PTO ', 3);
3126: END IF;
3127: EXCEPTION
3128: WHEN others THEN
3129: IF l_debug_level > 0 THEN
3126: END IF;
3127: EXCEPTION
3128: WHEN others THEN
3129: IF l_debug_level > 0 THEN
3130: oe_debug_pub.add('error in Ship_Confirm_PTO '||sqlerrm,3);
3131: END IF;
3132: RAISE;
3133: END Ship_Confirm_PTO;
3134:
3176:
3177:
3178: I NUMBER := 0;
3179: --
3180: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3181: --
3182: BEGIN
3183:
3184: IF l_debug_level > 0 THEN
3181: --
3182: BEGIN
3183:
3184: IF l_debug_level > 0 THEN
3185: oe_debug_pub.add('entering Ship_Confirm_Split_Lines '
3186: ||p_ship_line_rec.line_id(p_index) ,3);
3187: END IF;
3188:
3189: FOR line_rec in split_lines
3196: AND released_status <> 'D';
3197:
3198: IF l_count > 0 THEN
3199: IF l_debug_level > 0 THEN
3200: oe_debug_pub.add('ignoring this line, can not close '
3201: || line_rec.line_id , 3 ) ;
3202: END IF;
3203: ELSE
3204:
3202: END IF;
3203: ELSE
3204:
3205: IF l_debug_level > 0 THEN
3206: oe_debug_pub.add('now processing '|| line_rec.line_id, 3);
3207: END IF;
3208:
3209: I := I + 1;
3210:
3215: l_line_set_rec.shipping_quantity2(I) := 0;
3216: l_line_set_rec.shipped_quantity2(I) := 0;
3217: END IF;
3218: IF l_debug_level > 0 THEN
3219: oe_debug_pub.add('Start extending', 3);
3220: END IF;
3221:
3222: l_line_set_rec.line_id.extend;
3223: l_line_set_rec.header_id.extend;
3258: ( p_ship_line_rec => p_ship_line_rec
3259: ,p_caller => 'SHIP_CONFIRM_SPLIT_LINES');
3260:
3261: IF l_debug_level > 0 THEN
3262: oe_debug_pub.add('Before quantities db update', 3);
3263: END IF;
3264:
3265: UPDATE OE_ORDER_LINES
3266: SET shipping_quantity = l_line_set_rec.shipping_quantity(I),
3274: WHERE line_id = l_line_set_rec.line_id(I);
3275:
3276:
3277: IF l_debug_level > 0 THEN
3278: oe_debug_pub.add('line set id '|| line_rec.line_set_id , 3 ) ;
3279: END IF;
3280:
3281: Ship_Confirm_Line
3282: (p_ship_line_rec => l_line_set_rec
3283: ,p_check_line_set => 'N'
3284: ,p_index => I);
3285:
3286: IF l_debug_level > 0 THEN
3287: oe_debug_pub.add('ret sts for me '||l_return_status , 3 ) ;
3288: END IF;
3289:
3290: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3297:
3298: END LOOP;
3299:
3300: IF l_debug_level > 0 THEN
3301: oe_debug_pub.add('leaving Ship_Confirm_Split_Lines',3);
3302: END IF;
3303:
3304: EXCEPTION
3305: WHEN OTHERS THEN
3303:
3304: EXCEPTION
3305: WHEN OTHERS THEN
3306: IF l_debug_level > 0 THEN
3307: oe_debug_pub.add('error in Ship_Confirm_Split_Lines '|| sqlerrm,3);
3308: END IF;
3309: RAISE;
3310: END Ship_Confirm_Split_Lines;
3311:
3323: l_msg_count NUMBER;
3324: l_msg_data VARCHAR2(2000);
3325: I NUMBER;
3326: --
3327: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3328: --
3329: BEGIN
3330:
3331: IF l_debug_level > 0 THEN
3328: --
3329: BEGIN
3330:
3331: IF l_debug_level > 0 THEN
3332: oe_debug_pub.add('entering Call_Ship_Confirm_Old', 3);
3333: END IF;
3334:
3335: I := p_ship_line_rec.line_id.FIRST;
3336: IF l_debug_level > 0 THEN
3333: END IF;
3334:
3335: I := p_ship_line_rec.line_id.FIRST;
3336: IF l_debug_level > 0 THEN
3337: oe_debug_pub.add('Initial I is: '|| I, 3);
3338: END IF;
3339:
3340: WHILE I is NOT NULL
3341: LOOP
3354: l_line_tbl(I).header_id :=
3355: p_ship_line_rec.header_id(I);
3356: I := p_ship_line_rec.line_id.NEXT(I);
3357: IF l_debug_level > 0 THEN
3358: oe_debug_pub.add('New I is: '|| I, 3);
3359: END IF;
3360: END LOOP;
3361:
3362: Ship_Confirm
3368: ,x_msg_count => l_msg_count
3369: ,x_msg_data => l_msg_data);
3370:
3371: IF l_debug_level > 0 THEN
3372: oe_debug_pub.add('leaving Call_Ship_Confirm_Old '|| x_return_status, 3);
3373: END IF;
3374: EXCEPTION
3375: WHEN OTHERS THEN
3376: IF l_debug_level > 0 THEN
3373: END IF;
3374: EXCEPTION
3375: WHEN OTHERS THEN
3376: IF l_debug_level > 0 THEN
3377: oe_debug_pub.add('error in Call_Ship_Confirm_Old '|| sqlerrm,3);
3378: END IF;
3379: RAISE;
3380: END Call_Ship_Confirm_Old;
3381:
3408: l_control_rec OE_GLOBALS.Control_Rec_Type;
3409: l_return_status VARCHAR2(1);
3410: l_line_id NUMBER ;
3411: --
3412: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3413: --
3414: BEGIN
3415:
3416: IF l_debug_level > 0 THEN
3413: --
3414: BEGIN
3415:
3416: IF l_debug_level > 0 THEN
3417: oe_debug_pub.add('entering Remove_Lines_From_Shipset',3);
3418: END IF;
3419:
3420: I := p_set_tbl.FIRST;
3421: WHILE I is NOT NULL
3420: I := p_set_tbl.FIRST;
3421: WHILE I is NOT NULL
3422: LOOP
3423: IF l_debug_level > 0 THEN
3424: Oe_Debug_pub.Add('check if set id needs to be updated '|| I, 3);
3425: END IF;
3426:
3427: J := 0;
3428:
3433: NVL(line_rec.invoiced_quantity,0) > 0 OR
3434: line_rec.open_flag = 'N' THEN
3435:
3436: IF l_debug_level > 0 THEN
3437: oe_debug_pub.add('DIRECT UPDATE LINE ID: '||line_rec.line_id,3);
3438: END IF;
3439:
3440: -- do direct update
3441: UPDATE oe_order_lines
3461: l_set_tbl(J).line_id := line_rec.line_id;
3462: END IF;
3463:
3464: IF l_debug_level > 0 THEN
3465: oe_debug_pub.add('unshipped LINE ID : '||L_SET_TBL(J).LINE_ID,3);
3466: END IF;
3467:
3468: l_set_tbl(J).ship_set_id := NULL;
3469: l_set_tbl(J).operation := OE_GLOBALS.G_OPR_UPDATE;
3475: l_control_rec.validate_entity := FALSE;
3476: l_control_rec.check_security := FALSE;
3477:
3478: IF l_debug_level > 0 THEN
3479: oe_debug_pub.add('UPDATE SHIP SET ID '|| J,3);
3480: END IF;
3481:
3482: OE_Shipping_Integration_Pvt.Call_Process_Order
3483: ( p_line_tbl => l_set_tbl,
3484: p_control_rec => l_control_rec,
3485: x_return_status => l_return_status );
3486:
3487: IF l_debug_level > 0 THEN
3488: oe_debug_pub.add('RET STS FROM PROCESS ORDER : '||L_RETURN_STATUS,3);
3489: END IF;
3490:
3491: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3498: I := p_set_tbl.NEXT(I);
3499: END LOOP; -- loop over the set tbl
3500:
3501: IF l_debug_level > 0 THEN
3502: oe_debug_pub.add('leaving Remove_Lines_From_Shipset',3);
3503: END IF;
3504:
3505: EXCEPTION
3506: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3504:
3505: EXCEPTION
3506: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3507: IF l_debug_level > 0 THEN
3508: OE_DEBUG_PUB.Add('Unable to lock the line',3);
3509: END IF;
3510: OE_Msg_Pub.Add_Text('Could not obtain Lock on Order Line/s');
3511: RAISE FND_API.G_EXC_ERROR;
3512:
3511: RAISE FND_API.G_EXC_ERROR;
3512:
3513: WHEN OTHERS THEN
3514: IF l_debug_level > 0 THEN
3515: oe_debug_pub.add('error in Remove_Lines_From_Shipset '|| sqlerrm,3);
3516: END IF;
3517: RAISE;
3518: END Remove_Lines_From_Shipset;
3519:
3534: ( p_ship_line_rec IN OUT NOCOPY Ship_Line_Rec_Type
3535: ,p_requested_line_rec IN OUT NOCOPY Ship_Line_Rec_Type
3536: ,x_return_status OUT NOCOPY VARCHAR2)
3537: IS
3538: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3539: l_split_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
3540: J NUMBER;
3541: l_price_control_rec QP_PREQ_GRP.control_record_type;
3542: l_request_rec OE_Order_PUB.request_rec_type;
3559:
3560: BEGIN
3561:
3562: IF l_debug_level > 0 THEN
3563: Oe_Debug_pub.Add('----------entering handle_nonbulk_mode', 3);
3564: END IF;
3565:
3566: x_return_status := FND_API.G_RET_STS_SUCCESS;
3567: IF l_debug_level > 0 THEN
3564: END IF;
3565:
3566: x_return_status := FND_API.G_RET_STS_SUCCESS;
3567: IF l_debug_level > 0 THEN
3568: oe_debug_pub.ADD('request_line_rec line_id count: ' || p_requested_line_rec.line_id.COUNT, 3);
3569: END IF;
3570:
3571: -- Setting the message context, bug 4516453
3572: OE_MSG_PUB.set_msg_context(
3607: END LOOP;
3608: END IF;
3609:
3610: IF l_debug_level > 0 THEN
3611: oe_debug_pub.add('last- ' || p_ship_line_rec.line_id.LAST || ' first- '||
3612: p_ship_line_rec.line_id.FIRST, 5);
3613: END IF;
3614:
3615: J := p_ship_line_rec.line_id.LAST-p_ship_line_rec.line_id.FIRST + 1;
3615: J := p_ship_line_rec.line_id.LAST-p_ship_line_rec.line_id.FIRST + 1;
3616:
3617:
3618: IF l_debug_level > 0 THEN
3619: oe_debug_pub.add('extending the tables '|| J, 1);
3620: END IF;
3621:
3622: --3590689
3623: p_ship_line_rec.ship_tolerance_below.extend(J);
3644: p_ship_line_rec.model_remnant_flag(I):=
3645: nvl(p_ship_line_rec.model_remnant_flag(I), 'N');
3646:
3647: IF l_debug_level > 0 THEN
3648: oe_debug_pub.add(I || 'looping over ship line rec, line_id: '
3649: || p_ship_line_rec.line_id(I), 5);
3650: END IF;
3651:
3652: BEGIN
3651:
3652: BEGIN
3653: --Bug #5058663 start
3654: IF l_debug_level > 0 THEN
3655: oe_debug_pub.ADD('Ship_line_rec.line_id '|| i || ':' || p_ship_line_rec.line_id(I), 5);
3656: END IF;
3657: --
3658: SELECT top_model_line_id, shippable_flag
3659: INTO p_ship_line_rec.top_model_line_id(I), p_ship_line_rec.shippable_flag(I)
3662: FOR UPDATE NOWAIT;
3663: --
3664:
3665: IF l_debug_level > 0 THEN
3666: oe_debug_pub.add('aa2 locked line' , 1);
3667: oe_debug_pub.ADD('shippable_flag '|| i || ':' || p_ship_line_rec.shippable_flag(i), 5);
3668: oe_debug_pub.ADD('top_model_line_id '|| i || ':' || p_ship_line_rec.top_model_line_id(I), 5);
3669:
3670: END IF;
3663: --
3664:
3665: IF l_debug_level > 0 THEN
3666: oe_debug_pub.add('aa2 locked line' , 1);
3667: oe_debug_pub.ADD('shippable_flag '|| i || ':' || p_ship_line_rec.shippable_flag(i), 5);
3668: oe_debug_pub.ADD('top_model_line_id '|| i || ':' || p_ship_line_rec.top_model_line_id(I), 5);
3669:
3670: END IF;
3671:
3664:
3665: IF l_debug_level > 0 THEN
3666: oe_debug_pub.add('aa2 locked line' , 1);
3667: oe_debug_pub.ADD('shippable_flag '|| i || ':' || p_ship_line_rec.shippable_flag(i), 5);
3668: oe_debug_pub.ADD('top_model_line_id '|| i || ':' || p_ship_line_rec.top_model_line_id(I), 5);
3669:
3670: END IF;
3671:
3672: IF p_ship_line_rec.top_model_line_id(I) is NOT NULL AND
3678: WHERE line_id = p_ship_line_rec.top_model_line_id(I)
3679: FOR UPDATE NOWAIT;
3680: --Bug #5058663 End of changes.
3681: IF l_debug_level > 0 THEN
3682: oe_debug_pub.add('aa3 model locked '|| l_rem_top_model_line_id, 1);
3683: END IF;
3684: END IF;
3685:
3686: -- 4396294
3687:
3688: EXCEPTION
3689: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3690: IF l_debug_level > 0 THEN
3691: OE_DEBUG_PUB.Add('Unable to lock the line',3);
3692: END IF;
3693: OE_Msg_Pub.Add_Text('Could not obtain Lock on Order Line/s');
3694: RAISE FND_API.G_EXC_ERROR;
3695: WHEN others THEN
3694: RAISE FND_API.G_EXC_ERROR;
3695: WHEN others THEN
3696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3697: IF l_debug_level > 0 THEN
3698: Oe_Debug_pub.Add('error in handle_nonbulk_mode '|| sqlerrm, 3);
3699: END IF;
3700: RAISE;
3701: END ;
3702:
3709: FROM OE_SETS
3710: WHERE set_id = p_ship_line_rec.ship_set_id(I)
3711: FOR UPDATE NOWAIT ;
3712: IF l_debug_level > 0 THEN
3713: oe_debug_pub.add('locked ship set id : '|| l_ship_set_id);
3714: END IF;
3715: END IF ;
3716:
3717: EXCEPTION
3716:
3717: EXCEPTION
3718: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3719: IF l_debug_level > 0 THEN
3720: OE_DEBUG_PUB.Add('Unable to lock the ship set :' || l_ship_set_id ,3);
3721: END IF;
3722: OE_Msg_Pub.Add_Text('Could not obtain Lock on Ship Set');
3723: RAISE FND_API.G_EXC_ERROR;
3724: WHEN others THEN
3723: RAISE FND_API.G_EXC_ERROR;
3724: WHEN others THEN
3725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3726: IF l_debug_level > 0 THEN
3727: Oe_Debug_pub.Add('error in handle_nonbulk_mode '|| sqlerrm, 3);
3728: END IF;
3729: RAISE;
3730:
3731: END ;
3739: FROM OE_SETS
3740: WHERE set_id = p_ship_line_rec.arrival_set_id(I)
3741: FOR UPDATE NOWAIT ;
3742: IF l_debug_level > 0 THEN
3743: oe_debug_pub.add('locked arrival set id : ' || l_arrival_set_id);
3744: END IF;
3745: END IF ;
3746:
3747: EXCEPTION
3746:
3747: EXCEPTION
3748: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3749: IF l_debug_level > 0 THEN
3750: OE_DEBUG_PUB.Add('Unable to lock the arrival set :' || l_arrival_set_id ,3);
3751: END IF;
3752: OE_Msg_Pub.Add_Text('Could not obtain Lock on Arrival Set');
3753: RAISE FND_API.G_EXC_ERROR;
3754: WHEN others THEN
3753: RAISE FND_API.G_EXC_ERROR;
3754: WHEN others THEN
3755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3756: IF l_debug_level > 0 THEN
3757: Oe_Debug_pub.Add('error in handle_nonbulk_mode '|| sqlerrm, 3);
3758: END IF;
3759: RAISE;
3760:
3761: END ;
3768: ,p_index => I );
3769: -- ,x_dual_item => l_varchar1); -- INVCONV
3770:
3771: /* IF l_debug_level > 0 THEN INVCONV WHOLE IF l_varchar1 = 'Y' THEN NOT USED.
3772: Oe_Debug_pub.Add('after Validate_Quantity '|| l_varchar1, 3);
3773: END IF;
3774:
3775: IF l_varchar1 = 'Y' THEN
3776:
3776:
3777: ROLLBACK to opm_check;
3778:
3779: IF l_debug_level > 0 THEN
3780: Oe_Debug_pub.Add('opm item found'|| p_ship_line_rec.line_id(I), 5);
3781: END IF;
3782:
3783: OE_Delayed_Requests_PVT.Clear_Request
3784: ( x_return_status => x_return_status);
3788: ,p_index => I
3789: ,x_return_status => x_return_status);
3790:
3791: IF l_debug_level > 0 THEN
3792: Oe_Debug_pub.Add('returning ...'|| x_return_status, 5);
3793: END IF;
3794:
3795: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3828: lock_control = lock_control + 1
3829: WHERE line_id = p_ship_line_rec.line_id(I);
3830:
3831: IF l_debug_level > 0 THEN
3832: Oe_Debug_pub.Add('shipped qty updated to: '
3833: || p_ship_line_rec.shipped_quantity(I) || ' shp qty 2 is :'
3834: || p_ship_line_rec.shipping_quantity2(I), 3);
3835: END IF;
3836:
3843: AND SET_STATUS <> 'C';
3844:
3845: IF SQL%FOUND AND
3846: l_debug_level > 0 THEN
3847: oe_debug_pub.add('arrival SET CLOSED: '
3848: || p_ship_line_rec.arrival_set_id(I), 3 ) ;
3849: END IF;
3850:
3851: J := p_ship_line_rec.arrival_set_id(I);
3853:
3854: ------------- validate, update and close arrival set --------
3855:
3856: IF l_debug_level > 0 THEN
3857: OE_DEBUG_PUB.Add('Before Logging Pricing Delayed Request');
3858: END IF;
3859:
3860:
3861: IF p_ship_line_rec.calculate_price_flag(I) IN ('Y','P') OR
3891: IF l_set_tbl.EXISTS(p_ship_line_rec.ship_set_id(I))
3892: THEN
3893:
3894: IF l_debug_level > 0 THEN
3895: Oe_Debug_pub.Add('set id exists ', 5);
3896: END IF;
3897:
3898: --l_set_tbl(p_ship_line_rec.ship_set_id(I))
3899: --:= l_set_tbl(p_ship_line_rec.ship_set_id(I)) +1;
3905: WHERE SET_ID = p_ship_line_rec.ship_set_id(I)
3906: AND SET_STATUS <> 'C';
3907:
3908: IF l_debug_level > 0 THEN
3909: Oe_Debug_pub.Add('set closed '|| p_ship_line_rec.ship_set_id(I), 3);
3910: END IF;
3911: END IF;
3912: END IF;
3913: IF l_debug_level > 0 THEN
3910: END IF;
3911: END IF;
3912: END IF;
3913: IF l_debug_level > 0 THEN
3914: Oe_Debug_pub.Add('decide - ship confirm now', 3);
3915: END IF;
3916: IF p_ship_line_rec.top_model_line_id(I) is not null AND
3917: p_ship_line_rec.top_model_line_id(I) <>
3918: nvl(p_ship_line_rec.ato_line_id(I), -1) AND
3917: p_ship_line_rec.top_model_line_id(I) <>
3918: nvl(p_ship_line_rec.ato_line_id(I), -1) AND
3919: p_ship_line_rec.model_remnant_flag(I) = 'N' THEN
3920: IF l_debug_level > 0 THEN
3921: Oe_Debug_pub.Add('this line is part of a pto model', 3);
3922: END IF;
3923: IF l_model_tbl.EXISTS(p_ship_line_rec.top_model_line_id(I))
3924: THEN
3925: IF l_debug_level > 0 THEN
3922: END IF;
3923: IF l_model_tbl.EXISTS(p_ship_line_rec.top_model_line_id(I))
3924: THEN
3925: IF l_debug_level > 0 THEN
3926: Oe_Debug_pub.Add('here 1-2-3 '
3927: || p_ship_line_rec.top_model_line_id(I), 3);
3928: END IF;
3929: ELSE
3930: l_model_tbl(p_ship_line_rec.top_model_line_id(I)) := I;
3929: ELSE
3930: l_model_tbl(p_ship_line_rec.top_model_line_id(I)) := I;
3931:
3932: IF l_debug_level > 0 THEN
3933: Oe_Debug_pub.Add(p_ship_line_rec.top_model_line_id(I)
3934: || ' added model '
3935: || l_model_tbl(p_ship_line_rec.top_model_line_id(I)), 3);
3936: END IF;
3937: END IF; -- added the model to table
3937: END IF; -- added the model to table
3938:
3939: ELSE -- standard or remnant
3940: IF l_debug_level > 0 THEN
3941: Oe_Debug_pub.Add
3942: ('line is standalone '|| p_ship_line_rec.ato_line_id(I), 3);
3943: END IF;
3944: IF p_ship_line_rec.top_model_line_id(I) = p_ship_line_rec.ato_line_id(I)
3945: AND p_ship_line_rec.item_type_code(I) = 'CONFIG' THEN
3948: l_varchar1 := 'N';
3949: END IF;
3950:
3951: IF l_debug_level > 0 THEN
3952: Oe_Debug_pub.Add('------ calling Ship_Confirm_Line '|| l_varchar1, 3);
3953: END IF;
3954:
3955: Ship_Confirm_Line
3956: (p_ship_line_rec => p_ship_line_rec
3958: ,p_ato_only => l_varchar1);
3959: END IF; -- if model
3960:
3961: IF l_debug_level > 0 THEN
3962: Oe_Debug_pub.Add
3963: (I ||' -------- done with this line: '||p_ship_line_rec.line_id(I), 5);
3964: END IF;
3965: END LOOP; -- end of big loop
3966:
3993: ,p_request_type => OE_GLOBALS.G_PRICE_ORDER
3994: ,x_return_status => l_return_status);
3995:
3996: IF l_debug_level > 0 THEN
3997: Oe_Debug_pub.Add('Ret sts After Delayed Req'||l_return_status, 4);
3998: END IF;
3999:
4000: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4012: I := l_model_tbl.FIRST;
4013: WHILE I is NOT NULL
4014: LOOP
4015: IF l_debug_level > 0 THEN
4016: Oe_Debug_pub.Add('----------- calling Ship_Confirm_PTO '|| I, 3);
4017: END IF;
4018:
4019: Ship_Confirm_PTO
4020: ( p_top_model_line_id => I
4029: (p_set_tbl => l_set_tbl);
4030: END IF;
4031:
4032: IF l_debug_level > 0 THEN
4033: oe_debug_pub.add('calling Process_Requests_And_Notify......', 1);
4034: END IF;
4035:
4036: OE_Order_PVT.Process_Requests_And_Notify
4037: ( p_process_requests => TRUE
4042:
4043: OE_MSG_PUB.Reset_Msg_Context (p_entity_code => 'HEADER'); -- bug 4516453
4044:
4045: IF l_debug_level > 0 THEN
4046: Oe_Debug_pub.Add('leaving handle_nonbulk_mode '||x_return_status, 3);
4047: END IF;
4048:
4049: EXCEPTION
4050: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
4048:
4049: EXCEPTION
4050: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
4051: IF l_debug_level > 0 THEN
4052: OE_DEBUG_PUB.Add('Unable to lock the line',3);
4053: END IF;
4054: OE_Msg_Pub.Add_Text('Could not obtain Lock on Order Line/s');
4055: OE_MSG_PUB.Save_API_Messages(); --bug 4516453
4056: OE_MSG_PUB.Reset_Msg_Context (p_entity_code => 'HEADER'); -- bug 4516453
4058:
4059: WHEN others THEN
4060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4061: IF l_debug_level > 0 THEN
4062: Oe_Debug_pub.Add('error in handle_nonbulk_mode '|| sqlerrm, 3);
4063: END IF;
4064: OE_MSG_PUB.Save_API_Messages(); --bug 4516453
4065: OE_MSG_PUB.Reset_Msg_Context (p_entity_code => 'HEADER'); -- bug 4516453
4066: RAISE;
4079: ,p_start_index IN NUMBER
4080: ,p_end_index IN NUMBER
4081: ,x_return_status OUT NOCOPY VARCHAR2)
4082: IS
4083: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4084: l_order_start_index NUMBER;
4085: l_order_end_index NUMBER;
4086: l_index NUMBER;
4087: l_temp_index NUMBER;
4095:
4096: IF l_temp_header_id = p_ship_line_rec.header_id(p_end_index) THEN
4097:
4098: IF l_debug_level > 0 THEN
4099: oe_debug_pub.ADD('only one order in the trip', 1);
4100: END IF;
4101:
4102: Handle_Bulk_Mode_Per_Order
4103: ( p_ship_line_rec => p_ship_line_rec
4106: ,p_end_index => p_end_index
4107: ,x_return_status => x_return_status );
4108:
4109: IF l_debug_level > 0 THEN
4110: oe_debug_pub.ADD('1 leaving Handle_Bulk_Mode '|| x_return_status, 1);
4111: END IF;
4112:
4113: RETURN;
4114: END IF;
4116: FOR I IN p_start_index..p_end_index
4117: LOOP
4118:
4119: IF l_debug_level > 0 THEN
4120: oe_debug_pub.ADD(I ||' ---------- shipping_quantity '
4121: || p_ship_line_rec.shipping_quantity(I),5);
4122: oe_debug_pub.ADD('shipping_quantity2 '
4123: || p_ship_line_rec.shipping_quantity2(I),5);
4124: oe_debug_pub.ADD('shipping_quantity_uom '
4118:
4119: IF l_debug_level > 0 THEN
4120: oe_debug_pub.ADD(I ||' ---------- shipping_quantity '
4121: || p_ship_line_rec.shipping_quantity(I),5);
4122: oe_debug_pub.ADD('shipping_quantity2 '
4123: || p_ship_line_rec.shipping_quantity2(I),5);
4124: oe_debug_pub.ADD('shipping_quantity_uom '
4125: || p_ship_line_rec.shipping_quantity_uom(I),5);
4126: oe_debug_pub.ADD('shipping_quantity_uom2 '
4120: oe_debug_pub.ADD(I ||' ---------- shipping_quantity '
4121: || p_ship_line_rec.shipping_quantity(I),5);
4122: oe_debug_pub.ADD('shipping_quantity2 '
4123: || p_ship_line_rec.shipping_quantity2(I),5);
4124: oe_debug_pub.ADD('shipping_quantity_uom '
4125: || p_ship_line_rec.shipping_quantity_uom(I),5);
4126: oe_debug_pub.ADD('shipping_quantity_uom2 '
4127: || p_ship_line_rec.shipping_quantity_uom2(I),5);
4128: oe_debug_pub.ADD('actual_shipment_date '
4122: oe_debug_pub.ADD('shipping_quantity2 '
4123: || p_ship_line_rec.shipping_quantity2(I),5);
4124: oe_debug_pub.ADD('shipping_quantity_uom '
4125: || p_ship_line_rec.shipping_quantity_uom(I),5);
4126: oe_debug_pub.ADD('shipping_quantity_uom2 '
4127: || p_ship_line_rec.shipping_quantity_uom2(I),5);
4128: oe_debug_pub.ADD('actual_shipment_date '
4129: || p_ship_line_rec.actual_shipment_date(I),5);
4130: oe_debug_pub.ADD('line_id '
4124: oe_debug_pub.ADD('shipping_quantity_uom '
4125: || p_ship_line_rec.shipping_quantity_uom(I),5);
4126: oe_debug_pub.ADD('shipping_quantity_uom2 '
4127: || p_ship_line_rec.shipping_quantity_uom2(I),5);
4128: oe_debug_pub.ADD('actual_shipment_date '
4129: || p_ship_line_rec.actual_shipment_date(I),5);
4130: oe_debug_pub.ADD('line_id '
4131: || p_ship_line_rec.line_id(I),5);
4132: END IF;
4126: oe_debug_pub.ADD('shipping_quantity_uom2 '
4127: || p_ship_line_rec.shipping_quantity_uom2(I),5);
4128: oe_debug_pub.ADD('actual_shipment_date '
4129: || p_ship_line_rec.actual_shipment_date(I),5);
4130: oe_debug_pub.ADD('line_id '
4131: || p_ship_line_rec.line_id(I),5);
4132: END IF;
4133:
4134: -- header change logic here
4134: -- header change logic here
4135: IF p_ship_line_rec.header_id(I) <> l_temp_header_id THEN
4136: l_order_end_index := I - 1;
4137: IF l_debug_level > 0 THEN
4138: oe_debug_pub.ADD('order start index '|| l_order_start_index
4139: || '--order end index '|| l_order_end_index , 1);
4140: END IF;
4141:
4142: Handle_Bulk_Mode_Per_Order
4152: END IF;
4153:
4154: IF I = p_end_index THEN
4155: IF l_debug_level > 0 THEN
4156: oe_debug_pub.ADD('order start index '|| l_order_start_index
4157: || '--order end index '|| p_end_index , 1);
4158: END IF;
4159:
4160: Handle_Bulk_Mode_Per_Order
4167: END IF;
4168: END LOOP;
4169:
4170: IF l_debug_level > 0 THEN
4171: oe_debug_pub.ADD('2 leaving Handle_Bulk_Mode '|| x_return_status, 1);
4172: END IF;
4173:
4174: EXCEPTION
4175: WHEN others THEN
4173:
4174: EXCEPTION
4175: WHEN others THEN
4176: IF l_debug_level > 0 THEN
4177: oe_debug_pub.add('error in Handle_Bulk_Mode ' || sqlerrm, 1);
4178: END IF;
4179:
4180: RAISE;
4181: END Handle_Bulk_Mode;
4203: ,p_start_index IN NUMBER
4204: ,p_end_index IN NUMBER
4205: ,x_return_status OUT NOCOPY VARCHAR2)
4206: IS
4207: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4208: l_price_control_rec QP_PREQ_GRP.control_record_type;
4209: l_request_rec OE_Order_PUB.request_rec_type;
4210: l_line_tbl OE_ORDER_PUB.line_Tbl_type;
4211: l_old_line_tbl OE_ORDER_PUB.line_Tbl_type;
4225:
4226: BEGIN
4227:
4228: IF l_debug_level > 0 THEN
4229: oe_debug_pub.ADD('entering Handle_Bulk_Mode_Per_Order '
4230: || p_ship_line_rec.header_id(p_start_index),5);
4231: END IF;
4232:
4233: x_return_status := FND_API.G_RET_STS_SUCCESS;
4268: lock_control = lock_control + 1
4269: WHERE line_id = p_ship_line_rec.line_id(I);
4270:
4271: IF SQL%FOUND THEN
4272: oe_debug_pub.ADD('updated lines with shipped qty '|| sql%rowcount,1);
4273: END IF;
4274:
4275:
4276: FORALL I in p_start_index..p_end_index
4290: AND cancelled_flag = 'N'
4291: AND schedule_ship_date is NULL));
4292:
4293: IF SQL%FOUND THEN
4294: oe_debug_pub.ADD('updated lines model_remnant_flag '|| sql%rowcount,1);
4295: END IF;
4296:
4297: IF l_debug_level > 0 THEN
4298: oe_debug_pub.ADD(' Start Index : '||p_start_index);
4294: oe_debug_pub.ADD('updated lines model_remnant_flag '|| sql%rowcount,1);
4295: END IF;
4296:
4297: IF l_debug_level > 0 THEN
4298: oe_debug_pub.ADD(' Start Index : '||p_start_index);
4299: oe_debug_pub.ADD(' End Index : '||p_end_index);
4300: END IF;
4301:
4302: p_ship_line_rec.error_flag.extend(p_end_index - p_start_index + 1);
4295: END IF;
4296:
4297: IF l_debug_level > 0 THEN
4298: oe_debug_pub.ADD(' Start Index : '||p_start_index);
4299: oe_debug_pub.ADD(' End Index : '||p_end_index);
4300: END IF;
4301:
4302: p_ship_line_rec.error_flag.extend(p_end_index - p_start_index + 1);
4303:
4304: -- Added for bug 7149219
4305: l_last_calc_price := nvl(p_ship_line_rec.calculate_price_flag.LAST,p_end_index);
4306:
4307: IF l_debug_level > 0 THEN
4308: oe_debug_pub.ADD(' Last Calc Price is : '||l_last_calc_price);
4309: END IF;
4310:
4311: -- Commented for 7450821 start
4312: -- Added for bug 7149219
4312: -- Added for bug 7149219
4313: /*IF p_end_index >= p_start_index and p_end_index > l_last_calc_price THEN
4314: p_ship_line_rec.calculate_price_flag.EXTEND(p_end_index - l_last_calc_price);
4315: IF l_debug_level > 0 THEN
4316: oe_debug_pub.ADD(' calculate_price_flag is extended');
4317: END IF;
4318: END IF;*/
4319: -- Commented for 7450821 end
4320:
4322: LOOP
4323: p_ship_line_rec.error_flag(i) := 'N';
4324:
4325: IF l_debug_level > 0 THEN
4326: oe_debug_pub.ADD('CompleteActivity '|| p_ship_line_rec.line_id(i), 1);
4327: END IF;
4328:
4329: BEGIN
4330:
4409:
4410: l_line_tbl := l_old_line_tbl; -- bug 3303011
4411:
4412: IF l_debug_level > 0 THEN
4413: Oe_Debug_pub.Add('After price line for '||l_return_status, 1);
4414: END IF;
4415:
4416: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4426: -- bug 4070931 starts
4427: FOR i in p_start_index..p_end_index
4428: LOOP
4429: IF l_debug_level > 0 THEN
4430: oe_debug_pub.ADD('CompleteActivity '|| p_ship_line_rec.line_id(i), 1);
4431: END IF;
4432:
4433: BEGIN
4434: WF_Engine.CompleteActivityInternalName
4437: ,activity => 'SHIP_LINE'
4438: ,result => 'SHIP_CONFIRM');
4439:
4440: IF l_debug_level > 0 THEN
4441: oe_debug_pub.ADD('Returned from wf CompleteActivity',1);
4442: END IF;
4443:
4444: EXCEPTION
4445: WHEN others THEN
4443:
4444: EXCEPTION
4445: WHEN others THEN
4446: IF l_debug_level > 0 THEN
4447: oe_debug_pub.ADD('wf CompleteActivity error ' || sqlerrm,1);
4448: END IF;
4449:
4450: p_ship_line_rec.error_flag(i) := 'Y';
4451: x_return_status := 'W';
4450: p_ship_line_rec.error_flag(i) := 'Y';
4451: x_return_status := 'W';
4452:
4453: IF l_debug_level > 0 THEN
4454: OE_DEBUG_PUB.Add ('X_Return_status is now WARNING',1);
4455: END IF;
4456:
4457: Call_Notification_Framework
4458: ( p_ship_line_rec => p_ship_line_rec
4464: END LOOP; -- bug 4070931 ends
4465:
4466: --bug 3654553
4467: IF l_debug_level > 0 THEN
4468: oe_debug_pub.ADD('gg1 '|| p_start_index ||'-' ||p_end_index,1);
4469: END IF;
4470: FORALL i in p_start_index..p_end_index
4471: UPDATE oe_order_lines_all
4472: SET shipped_quantity = ordered_quantity, -- INVCONV
4504:
4505:
4506: IF SQL%FOUND THEN
4507: IF l_debug_level > 0 THEN
4508: oe_debug_pub.ADD('nonshippable lines updated '|| sql%rowcount,1);
4509: END IF;
4510:
4511: FOR I in g_non_shippable_rec.line_id.FIRST..
4512: g_non_shippable_rec.line_id.LAST
4532: g_non_shippable_rec.item_type_code(I) = 'CLASS')
4533: THEN -- what about ato item??
4534:
4535: IF l_debug_level > 0 THEN
4536: oe_debug_pub.ADD(I || ' complete wait for cto '
4537: || g_non_shippable_rec.ato_line_id(I), 1);
4538: END IF;
4539:
4540: WF_Engine.CompleteActivityInternalName
4561:
4562: IF l_last_top_model <> g_non_shippable_rec.top_model_line_id(I) THEN
4563:
4564: IF l_debug_level > 0 THEN
4565: oe_debug_pub.ADD(I || ' calling fulfill remnant lines '
4566: || g_non_shippable_rec.top_model_line_id(I), 1);
4567: END IF;
4568:
4569: fulfill_remnant_pto
4590: AND shipped_quantity is NULL
4591: AND ship_set_id = p_ship_line_rec.ship_set_id(I);
4592:
4593: IF SQL%FOUND THEN
4594: oe_debug_pub.ADD('removed lines from shipset '|| sql%rowcount,1);
4595: END IF;
4596:
4597: FORALL i in p_start_index..p_end_index
4598:
4602: AND SET_STATUS <> 'C'
4603: AND p_ship_line_rec.error_flag(i) = 'N';
4604:
4605: IF SQL%FOUND THEN
4606: oe_debug_pub.ADD('gg4 sets closed '|| sql%rowcount,1);
4607: END IF;
4608:
4609: -- { bug3309470: close arrival sets also
4610: FORALL i IN p_start_index..p_end_index
4614: AND SET_STATUS <> 'C'
4615: AND p_ship_line_rec.error_flag(i) = 'N';
4616:
4617: IF SQL%FOUND THEN
4618: OE_DEBUG_PUB.Add('Arrival Sets Closed:'||sql%rowcount,1);
4619: END IF;
4620: -- bug3309470 ends }
4621:
4622: IF x_return_status = 'W' THEN
4634: WHERE line_id = p_ship_line_rec.line_id(i)
4635: AND p_ship_line_rec.error_flag(i) = 'Y';
4636:
4637: IF SQL%FOUND THEN
4638: oe_debug_pub.ADD('errored lines '|| sql%rowcount,1);
4639: END IF;
4640: END IF;
4641:
4642: IF l_debug_level > 0 THEN
4639: END IF;
4640: END IF;
4641:
4642: IF l_debug_level > 0 THEN
4643: oe_debug_pub.add('calling Process_Requests_And_Notify......', 1);
4644: END IF;
4645:
4646: OE_Order_PVT.Process_Requests_And_Notify
4647: ( p_process_requests => FALSE
4652:
4653: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4654: x_return_status := l_return_status;
4655: IF l_debug_level > 0 THEN
4656: OE_DEBUG_PUB.Add ('Failure in Process_Requests_ANd_Notify',1);
4657: END IF;
4658: END IF;
4659:
4660: -- Reseting the msg context, bug 4516453
4660: -- Reseting the msg context, bug 4516453
4661: OE_MSG_PUB.Reset_Msg_Context (p_entity_code => 'HEADER');
4662:
4663: IF l_debug_level > 0 THEN
4664: oe_debug_pub.add('leaving Handle_Bulk_Mode_Per_Order '|| x_return_status, 1);
4665: END IF;
4666:
4667: EXCEPTION
4668: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
4666:
4667: EXCEPTION
4668: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
4669: IF l_debug_level > 0 THEN
4670: OE_DEBUG_PUB.Add('Unable to lock the line',3);
4671: END IF;
4672: OE_Msg_Pub.Add_Text('Could not obtain Lock on Order Line/s');
4673: OE_MSG_PUB.Save_API_Messages(); --bug 4516453
4674: OE_MSG_PUB.Reset_Msg_Context (p_entity_code => 'HEADER');
4675: RAISE FND_API.G_EXC_ERROR;
4676:
4677: WHEN others THEN
4678: IF l_debug_level > 0 THEN
4679: oe_debug_pub.add('error in Handle_Bulk_Mode_Per_Order ' || sqlerrm, 1);
4680: END IF;
4681: OE_MSG_PUB.Save_API_Messages(); --bug 4516453
4682: OE_MSG_PUB.Reset_Msg_Context (p_entity_code => 'HEADER');
4683: RAISE;
4704: ,x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
4705: ,x_msg_data OUT NOCOPY VARCHAR2
4706: ,x_return_status OUT NOCOPY VARCHAR2)
4707: IS
4708: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4709: l_org_id NUMBER;
4710: BEGIN
4711: IF l_debug_level > 0 THEN
4712: oe_debug_pub.add('entering Ship_Confirm_New '
4708: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4709: l_org_id NUMBER;
4710: BEGIN
4711: IF l_debug_level > 0 THEN
4712: oe_debug_pub.add('entering Ship_Confirm_New '
4713: || p_line_adj_rec.line_id.COUNT
4714: || p_ship_line_rec.line_id.COUNT , 1);
4715: END IF;
4716:
4729: ---------- Create Freight Cost Records first --------
4730: IF p_line_adj_rec.line_id.COUNT > 0 THEN
4731:
4732: IF l_debug_level > 0 THEN
4733: oe_debug_pub.add('inserting adjustments '
4734: || p_line_adj_rec.line_id.COUNT, 5);
4735: END IF;
4736:
4737: --bug 4558089
4786:
4787: IF p_bulk_mode = 'Y' THEN
4788:
4789: IF l_debug_level > 0 THEN
4790: oe_debug_pub.add('calling handle_bulk_mode '
4791: || p_start_index ||'-'|| p_end_index, 1);
4792: END IF;
4793:
4794: Handle_Bulk_Mode
4800:
4801: ELSE
4802:
4803: IF l_debug_level > 0 THEN
4804: oe_debug_pub.add('calling handle_NONbulk_mode '
4805: || p_start_index ||'-'|| p_end_index, 5);
4806: END IF;
4807:
4808: Handle_NonBulk_Mode
4820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4821: END IF;
4822:
4823: IF l_debug_level > 0 THEN
4824: oe_debug_pub.add('leaving Ship_Confirm_New', 2);
4825: END IF;
4826:
4827: EXCEPTION
4828:
4827: EXCEPTION
4828:
4829: WHEN FND_API.G_EXC_ERROR THEN
4830: IF l_debug_level > 0 THEN
4831: oe_debug_pub.add('ship_confirm_new EXC ERROR: '||SQLERRM,1);
4832: END IF;
4833: x_return_status := FND_API.G_RET_STS_ERROR;
4834:
4835: OE_MSG_PUB.Count_And_Get
4836: (p_count => x_msg_count
4837: ,p_data => x_msg_data);
4838:
4839: IF l_debug_level > 0 THEN
4840: oe_debug_pub.add('rollback to om_ship_confirm',1);
4841: END IF;
4842: ROLLBACK to om_ship_confirm;
4843:
4844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4842: ROLLBACK to om_ship_confirm;
4843:
4844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4845: IF l_debug_level > 0 THEN
4846: oe_debug_pub.add('ship_confirm_new UNEXPECTED ERROR : '||SQLERRM, 1);
4847: END IF;
4848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4849:
4850: OE_MSG_PUB.Count_And_Get
4851: (p_count => x_msg_count
4852: ,p_data => x_msg_data);
4853:
4854: IF l_debug_level > 0 THEN
4855: oe_debug_pub.add('rollback to om_ship_confirm : ',1);
4856: END IF;
4857: ROLLBACK to om_ship_confirm;
4858:
4859: WHEN OTHERS THEN
4857: ROLLBACK to om_ship_confirm;
4858:
4859: WHEN OTHERS THEN
4860: IF l_debug_level > 0 THEN
4861: oe_debug_pub.add('IN ship_confirm_new OTHERS ' || sqlerrm, 1);
4862: END IF;
4863:
4864: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4865: THEN
4874:
4875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4876:
4877: IF l_debug_level > 0 THEN
4878: oe_debug_pub.add('rollback to om_ship_confirm : ',1);
4879: END IF;
4880: ROLLBACK to om_ship_confirm;
4881: END Ship_Confirm_New;
4882:
4905: ,p_end_index IN NUMBER := NULL
4906: ,p_caller IN VARCHAR2)
4907: IS
4908: --
4909: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4910: --
4911: l_line_rec OE_Order_Pub.Line_Rec_Type;
4912: l_old_line_rec OE_Order_Pub.Line_Rec_Type;
4913: l_start_time NUMBER;
4918: l_return_status VARCHAR2(1);
4919: BEGIN
4920:
4921: IF l_debug_level > 0 THEN
4922: oe_debug_pub.add('entering Call_Notification_Framework ' || p_caller, 3);
4923: END IF;
4924:
4925: l_return_status := FND_API.G_RET_STS_SUCCESS;
4926:
4925: l_return_status := FND_API.G_RET_STS_SUCCESS;
4926:
4927: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'),'N') = 'N' THEN
4928: IF l_debug_level > 0 THEN
4929: oe_debug_pub.add('returning from Call_Notification_Framework ', 3);
4930: END IF;
4931:
4932: RETURN;
4933: END IF;
4953: END IF;
4954:
4955:
4956: IF l_debug_level > 0 THEN
4957: oe_debug_pub.add('p_start_index is ' || p_start_index
4958: ||' p_end_index is ' || p_end_index
4959: ||' l_end_index is ' || l_end_index, 3);
4960: END IF;
4961:
4962: WHILE I <> l_end_index
4963: LOOP
4964:
4965: IF l_debug_level > 0 THEN
4966: oe_debug_pub.add(I || 'line_id : ' || l_line_rec.line_id, 3);
4967: oe_debug_pub.add('ord qty : ' || p_ship_line_rec.ordered_quantity(I), 3);
4968: oe_debug_pub.add('ship qty: ' || l_line_rec.shipped_quantity, 3);
4969: END IF;
4970:
4963: LOOP
4964:
4965: IF l_debug_level > 0 THEN
4966: oe_debug_pub.add(I || 'line_id : ' || l_line_rec.line_id, 3);
4967: oe_debug_pub.add('ord qty : ' || p_ship_line_rec.ordered_quantity(I), 3);
4968: oe_debug_pub.add('ship qty: ' || l_line_rec.shipped_quantity, 3);
4969: END IF;
4970:
4971: l_line_rec.line_id := p_ship_line_rec.line_id(I);
4964:
4965: IF l_debug_level > 0 THEN
4966: oe_debug_pub.add(I || 'line_id : ' || l_line_rec.line_id, 3);
4967: oe_debug_pub.add('ord qty : ' || p_ship_line_rec.ordered_quantity(I), 3);
4968: oe_debug_pub.add('ship qty: ' || l_line_rec.shipped_quantity, 3);
4969: END IF;
4970:
4971: l_line_rec.line_id := p_ship_line_rec.line_id(I);
4972: l_line_rec.header_id := p_ship_line_rec.header_id(I);
4986: l_line_rec.flow_status_code := 'SHIPPED';
4987: l_line_rec.shipped_quantity := p_ship_line_rec.ordered_quantity(I);
4988: l_line_rec.shipped_quantity2 := p_ship_line_rec.ordered_quantity2(I); -- INVCONV
4989: IF l_debug_level > 0 THEN
4990: oe_debug_pub.add('bulk:inside setting shipped qty '
4991: || l_line_rec.shipped_quantity, 3);
4992:
4993: oe_debug_pub.add('bulk:inside setting shipped qty2 ' -- INVCONV
4994: || l_line_rec.shipped_quantity2, 3);
4989: IF l_debug_level > 0 THEN
4990: oe_debug_pub.add('bulk:inside setting shipped qty '
4991: || l_line_rec.shipped_quantity, 3);
4992:
4993: oe_debug_pub.add('bulk:inside setting shipped qty2 ' -- INVCONV
4994: || l_line_rec.shipped_quantity2, 3);
4995: END IF;
4996:
4997: ELSIF p_caller = 'HANDLE_BULK_FAILURE' THEN
5004: l_line_rec.actual_shipment_date := null;
5005: l_line_rec.flow_status_code := p_ship_line_rec.flow_status_code(i);
5006:
5007: IF l_debug_level > 0 THEN
5008: oe_debug_pub.add('bulk failure:inside setting shipped qty '
5009: || l_line_rec.shipped_quantity, 3);
5010: END IF;
5011: ELSIF p_caller = 'HANDLE_NON_BULK' OR
5012: p_caller = 'SHIP_CONFIRM_SPLIT_LINES' THEN
5012: p_caller = 'SHIP_CONFIRM_SPLIT_LINES' THEN
5013: l_line_rec.shipped_quantity := p_ship_line_rec.shipped_quantity(I);
5014: l_line_rec.shipped_quantity2 := p_ship_line_rec.shipped_quantity2(I); -- INVCONV
5015: IF l_debug_level > 0 THEN
5016: oe_debug_pub.add('non bulk:inside setting shipped qty '
5017: || l_line_rec.shipped_quantity, 3);
5018: oe_debug_pub.add('non bulk:inside setting shipped qty2 ' -- INVCONV
5019: || l_line_rec.shipped_quantity2, 3);
5020:
5014: l_line_rec.shipped_quantity2 := p_ship_line_rec.shipped_quantity2(I); -- INVCONV
5015: IF l_debug_level > 0 THEN
5016: oe_debug_pub.add('non bulk:inside setting shipped qty '
5017: || l_line_rec.shipped_quantity, 3);
5018: oe_debug_pub.add('non bulk:inside setting shipped qty2 ' -- INVCONV
5019: || l_line_rec.shipped_quantity2, 3);
5020:
5021: END IF;
5022: END IF;
5021: END IF;
5022: END IF;
5023:
5024: IF l_debug_level > 0 THEN
5025: oe_debug_pub.add
5026: ('update GLOBAL FLOW_STATUS is: '||l_line_rec.flow_status_code,3);
5027: END IF;
5028:
5029: OE_ORDER_UTIL.Update_Global_Picture
5035: x_index => J,
5036: x_return_status => l_return_status);
5037:
5038: IF l_debug_level > 0 THEN
5039: oe_debug_pub.add(J || ' UPDATE_GLOBAL ret sts: ' || l_retuRN_STATUS);
5040: END IF;
5041:
5042: IF l_return_status = FND_API.G_RET_STS_ERROR
5043: THEN
5076: OE_ORDER_UTIL.g_line_tbl(J).flow_status_code
5077: := l_line_rec.flow_status_code;
5078:
5079: IF l_debug_level > 0 THEN
5080: oe_debug_pub.add
5081: ('AFTER UPDATE GLOBAL FLOW_STATUS_CODE IS: '
5082: || OE_ORDER_UTIL.G_LINE_TBL( J ).FLOW_STATUS_CODE ,1);
5083: END IF;
5084:
5101:
5102: EXCEPTION
5103: WHEN others THEN
5104: IF l_debug_level > 0 THEN
5105: oe_debug_pub.add('error in Call_Notification_Framework' || sqlerrm, 1);
5106: END IF;
5107: RAISE;
5108: END Call_Notification_Framework;
5109: