[Home] [Help]
153: --bug3480047 start
154: l_shippable_lines NUMBER;
155: --bug3480047 contd
156:
157: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
158: l_line_id_mod NUMBER; -- Bug 8795918
159: l_top_model_line_id_mod NUMBER; -- Bug 8795918
160:
161: BEGIN
160:
161: BEGIN
162:
163: IF l_debug_level > 0 THEN
164: oe_debug_pub.add( 'ENTERING OE_SHIP_CONFIRM.SHIP_CONFIRM' , 1 ) ;
165: END IF;
166:
167: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
168: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
172: OE_GLOBALS.G_EC_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(175);
173: END IF;
174:
175: IF l_debug_level > 0 THEN
176: oe_debug_pub.add( 'NUMBER OF RECORDS LINE/ADJ/REQ :
177: '||P_LINE_TBL.COUNT||'/'||P_LINE_ADJ_TBL.COUNT||'/'||P_REQ_QTY_TBL.COUNT , 3 ) ;
178: END IF;
179:
180: IF p_req_qty_tbl.count > 0 THEN
205: FROM OE_ORDER_LINES
206: WHERE line_id = p_req_qty_tbl(J).line_id;
207:
208: IF l_debug_level > 0 THEN
209: oe_debug_pub.add( 'REQUESTED/ORDER QUANTITY : '||P_REQ_QTY_TBL ( J ) .REQUESTED_QUANTITY||'/'||L_ORDERED_QUANTITY , 3
210: ) ;
211: END IF;
212: IF l_debug_level > 0 THEN
213: oe_debug_pub.add( 'ORD UOM/SHIPPING UOM : '||L_ORDER_QUANTITY_UOM||'/'||P_REQ_QTY_TBL ( J ) .SHIPPING_QUANTITY_UOM , 3
209: oe_debug_pub.add( 'REQUESTED/ORDER QUANTITY : '||P_REQ_QTY_TBL ( J ) .REQUESTED_QUANTITY||'/'||L_ORDERED_QUANTITY , 3
210: ) ;
211: END IF;
212: IF l_debug_level > 0 THEN
213: oe_debug_pub.add( 'ORD UOM/SHIPPING UOM : '||L_ORDER_QUANTITY_UOM||'/'||P_REQ_QTY_TBL ( J ) .SHIPPING_QUANTITY_UOM , 3
214: ) ;
215: END IF;
216: IF l_debug_level > 0 THEN -- INVCONV
217: oe_debug_pub.add( 'SHIPPING UOM2 : '||P_REQ_QTY_TBL ( J ) .SHIPPING_QUANTITY_UOM2 , 3 ) ;
213: oe_debug_pub.add( 'ORD UOM/SHIPPING UOM : '||L_ORDER_QUANTITY_UOM||'/'||P_REQ_QTY_TBL ( J ) .SHIPPING_QUANTITY_UOM , 3
214: ) ;
215: END IF;
216: IF l_debug_level > 0 THEN -- INVCONV
217: oe_debug_pub.add( 'SHIPPING UOM2 : '||P_REQ_QTY_TBL ( J ) .SHIPPING_QUANTITY_UOM2 , 3 ) ;
218: END IF;
219:
220: -- HW print OPM qty2 INVCONV DELETE
221: IF l_debug_level > 0 THEN
218: END IF;
219:
220: -- HW print OPM qty2 INVCONV DELETE
221: IF l_debug_level > 0 THEN
222: oe_debug_pub.add( 'REQUESTED/ORDER QUANTITY2 : '||P_REQ_QTY_TBL ( J ) .REQUESTED_QUANTITY2||'/'||L_ORDERED_QUANTITY2 ,
223: 3 ) ;
224: END IF;
225:
226: IF nvl(l_top_model_line_id,-1) <> nvl(l_ato_line_id,-1) AND
226: IF nvl(l_top_model_line_id,-1) <> nvl(l_ato_line_id,-1) AND
227: l_top_model_line_id IS NOT NULL THEN
228:
229: IF l_debug_level > 0 THEN
230: oe_debug_pub.add( 'PTO MODEL LINE WITH REQUESTED QUANTITY NO SPLIT' , 3 ) ;
231: END IF;
232: GOTO END_REQ_QTY;
233:
234: END IF;
242: ,l_item_rec) THEN
243: -- Get the OPM equivalent code for order_quantity_uom
244: =====================================================
245: IF l_debug_level > 0 THEN
246: oe_debug_pub.add( 'OPM PROCESS SHIPPING UPDATE ' , 1 ) ;
247: END IF;
248: l_temp_shipped_quantity := GMI_Reservation_Util.get_opm_converted_qty(
249: p_apps_item_id => l_inventory_item_id,
250: p_organization_id => l_ship_from_org_id,
264: l_order_quantity_uom,
265: p_req_qty_tbl(J).requested_quantity
266: );
267: IF l_debug_level > 0 THEN
268: oe_debug_pub.add( 'CONVERTED REQUESTED QUANTITY : '|| TO_CHAR ( L_TEMP_REQUESTED_QUANTITY ) , 1 ) ;
269: END IF;
270:
271: -- END IF; -- HW end of branching INVCONV
272:
289: x_return_status => l_qty_return_status
290: );
291:
292: IF l_debug_level > 0 THEN
293: oe_debug_pub.add( 'RETURN STATUS FROM INV API : '||L_QTY_RETURN_STATUS , 1 ) ;
294: END IF;
295: IF l_qty_return_status = 'W' THEN
296:
297: l_temp_requested_quantity := l_validated_quantity;
300:
301: END IF;
302:
303: IF l_debug_level > 0 THEN
304: oe_debug_pub.add( 'FINAL REQUESTED QUANTITY : '|| TO_CHAR ( L_TEMP_REQUESTED_QUANTITY ) , 1 ) ;
305: oe_debug_pub.add( 'FINAL REQUESTED QUANTITY2 : '|| TO_CHAR ( L_TEMP_REQUESTED_QUANTITY2 ) , 1 ) ;
306: END IF;
307:
308: IF l_ordered_quantity <= l_temp_requested_quantity THEN
301: END IF;
302:
303: IF l_debug_level > 0 THEN
304: oe_debug_pub.add( 'FINAL REQUESTED QUANTITY : '|| TO_CHAR ( L_TEMP_REQUESTED_QUANTITY ) , 1 ) ;
305: oe_debug_pub.add( 'FINAL REQUESTED QUANTITY2 : '|| TO_CHAR ( L_TEMP_REQUESTED_QUANTITY2 ) , 1 ) ;
306: END IF;
307:
308: IF l_ordered_quantity <= l_temp_requested_quantity THEN
309:
307:
308: IF l_ordered_quantity <= l_temp_requested_quantity THEN
309:
310: IF l_debug_level > 0 THEN
311: oe_debug_pub.add( 'ERROR !!! CAN NOT SPLIT THE LINE ORDERED QUANTTITY <= REQUESTED QTY ' , 3 ) ;
312: END IF;
313: GOTO END_REQ_QTY;
314:
315: END IF;
321:
322: IF l_ato_line_id IS NOT NULL and l_item_type_code <> 'STANDARD' THEN
323: l_split_line_tbl(1).line_id := l_top_model_line_id;
324: IF l_debug_level > 0 THEN
325: oe_debug_pub.add( 'SPLIT THE TOP MODEL : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
326: END IF;
327: ELSE
328: IF l_debug_level > 0 THEN
329: oe_debug_pub.add( 'SPLIT THE LINE : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
325: oe_debug_pub.add( 'SPLIT THE TOP MODEL : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
326: END IF;
327: ELSE
328: IF l_debug_level > 0 THEN
329: oe_debug_pub.add( 'SPLIT THE LINE : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
330: END IF;
331: l_split_line_tbl(1).line_id := p_req_qty_tbl(J).line_id;
332: END IF;
333:
349:
350: IF l_ato_line_id IS NOT NULL and l_item_type_code <> 'STANDARD' THEN
351: l_split_line_tbl(2).split_from_line_id := l_top_model_line_id;
352: IF l_debug_level > 0 THEN
353: oe_debug_pub.add( 'SPLIT FROM THE TOP MODEL : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
354: END IF;
355: ELSE
356: IF l_debug_level > 0 THEN
357: oe_debug_pub.add( 'SPLIT FROM THE LINE : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
353: oe_debug_pub.add( 'SPLIT FROM THE TOP MODEL : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
354: END IF;
355: ELSE
356: IF l_debug_level > 0 THEN
357: oe_debug_pub.add( 'SPLIT FROM THE LINE : '||L_SPLIT_LINE_TBL ( 1 ) .LINE_ID , 3 ) ;
358: END IF;
359: l_split_line_tbl(2).split_from_line_id := p_req_qty_tbl(J).line_id;
360: END IF;
361: l_split_line_tbl(2).line_set_id := l_line_set_id;
369: l_split_line_tbl(2).split_by := 'SYSTEM';
370: l_split_line_tbl(2).change_reason := 'SYSTEM';
371:
372: IF l_debug_level > 0 THEN
373: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
374: END IF;
375: IF l_debug_level > 0 THEN
376: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
377: END IF;
372: IF l_debug_level > 0 THEN
373: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
374: END IF;
375: IF l_debug_level > 0 THEN
376: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
377: END IF;
378: IF l_debug_level > 0 THEN
379: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
380: END IF;
375: IF l_debug_level > 0 THEN
376: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
377: END IF;
378: IF l_debug_level > 0 THEN
379: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
380: END IF;
381: IF l_debug_level > 0 THEN
382: oe_debug_pub.add( 'ORDERED QUANTITY NEW LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
383: END IF;
378: IF l_debug_level > 0 THEN
379: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
380: END IF;
381: IF l_debug_level > 0 THEN
382: oe_debug_pub.add( 'ORDERED QUANTITY NEW LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
383: END IF;
384:
385: -- HW print qty2 for OPM -- INVCONV DELETE this comment
386: IF l_debug_level > 0 THEN
383: END IF;
384:
385: -- HW print qty2 for OPM -- INVCONV DELETE this comment
386: IF l_debug_level > 0 THEN
387: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY2 : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY2 ) , 3 ) ;
388: END IF;
389: IF l_debug_level > 0 THEN
390: oe_debug_pub.add( 'ORDERED QUANTITY2 OLD LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY2 ) , 3 ) ;
391: END IF;
386: IF l_debug_level > 0 THEN
387: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY2 : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY2 ) , 3 ) ;
388: END IF;
389: IF l_debug_level > 0 THEN
390: oe_debug_pub.add( 'ORDERED QUANTITY2 OLD LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY2 ) , 3 ) ;
391: END IF;
392: IF l_debug_level > 0 THEN
393: oe_debug_pub.add( 'ORDERED QUANTITY2 NEW LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY2 ) , 3 ) ;
394: END IF;
389: IF l_debug_level > 0 THEN
390: oe_debug_pub.add( 'ORDERED QUANTITY2 OLD LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY2 ) , 3 ) ;
391: END IF;
392: IF l_debug_level > 0 THEN
393: oe_debug_pub.add( 'ORDERED QUANTITY2 NEW LINE : '||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY2 ) , 3 ) ;
394: END IF;
395:
396: -- 4. Call to process order will result in call to
397: -- update_shipping_attributes for update of ordered quantity
422: l_set_recursion := 'N';
423: END IF;
424:
425: IF l_debug_level > 0 THEN
426: oe_debug_pub.add( 'RETURN STATUS FROM PROCESS ORDER : '||L_RETURN_STATUS , 3 ) ;
427: END IF;
428:
429: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
456: l_Line_adj_rec.creation_date := SYSDATE;
457: l_Line_adj_rec.created_by := FND_GLOBAL.USER_ID;
458: -- #3015849
459: IF l_debug_level > 0 THEN
460: OE_DEBUG_PUB.add('Calling convert_miss_to_null for this adj record',5);
461: END IF;
462: OE_LINE_ADJ_UTIL.CONVERT_MISS_TO_NULL( l_line_adj_rec );
463: IF l_debug_level > 0 THEN
464: oe_debug_pub.add( 'INSERTING THE ADJ RECORD '||TO_CHAR ( L_LINE_ADJ_REC.PRICE_ADJUSTMENT_ID ) , 2 ) ;
460: OE_DEBUG_PUB.add('Calling convert_miss_to_null for this adj record',5);
461: END IF;
462: OE_LINE_ADJ_UTIL.CONVERT_MISS_TO_NULL( l_line_adj_rec );
463: IF l_debug_level > 0 THEN
464: oe_debug_pub.add( 'INSERTING THE ADJ RECORD '||TO_CHAR ( L_LINE_ADJ_REC.PRICE_ADJUSTMENT_ID ) , 2 ) ;
465: END IF;
466: OE_LINE_ADJ_UTIL.INSERT_ROW(p_Line_Adj_rec => l_line_adj_rec);
467: END LOOP;
468: END IF;
467: END LOOP;
468: END IF;
469:
470: IF l_debug_level > 0 THEN
471: oe_debug_pub.add( 'NUMBER OF LINES SHIPPED : '||P_LINE_TBL.COUNT , 3 ) ;
472: END IF;
473:
474: IF p_line_tbl.COUNT > 0 THEN
475: -- Update Line records for required attributes..
491: -- Lock the Model line if the line is part of configuration.
492: IF nvl(l_top_model_line_id,0) <> 0 THEN
493:
494: IF l_debug_level > 0 THEN
495: oe_debug_pub.add( 'LOCKING MODEL '||L_TOP_MODEL_LINE_ID||'/'||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 )
496: ;
497: END IF;
498:
499: SELECT top_model_line_id
502: WHERE line_id = l_top_model_line_id
503: FOR UPDATE NOWAIT;
504:
505: IF l_debug_level > 0 THEN
506: oe_debug_pub.add( 'MODEL LOCKED '||TO_CHAR ( SYSDATE , 'DD-MM-YYYY HH24:MI:SS' ) , 3 ) ;
507: END IF;
508:
509: END IF;
510:
551: EXCEPTION
552:
553: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
554: IF l_debug_level > 0 THEN
555: OE_DEBUG_PUB.Add('Unable to lock the line/parent',3);
556: END IF;
557: RAISE FND_API.G_EXC_ERROR;
558:
559:
558:
559:
560: WHEN OTHERS THEN
561: IF l_debug_level > 0 THEN
562: OE_DEBUG_PUB.Add('Unable to process ship confirm line:'||
563: sqlerrm,3);
564: END IF;
565: RAISE FND_API.G_EXC_ERROR;
566:
594: -- from shipping quantity UOM to ordered quantity UOM and assign
595: -- the returned quantity to shipped quantity.
596:
597: IF l_debug_level > 0 THEN
598: oe_debug_pub.add( 'ORDER QUANTITY UOM : '|| L_ORDER_QUANTITY_UOM , 2 ) ;
599: END IF;
600: IF l_debug_level > 0 THEN
601: oe_debug_pub.add( 'SHIPPING QUANTITY UOM : '||P_LINE_TBL ( J ) .SHIPPING_QUANTITY_UOM , 2 ) ;
602: END IF;
597: IF l_debug_level > 0 THEN
598: oe_debug_pub.add( 'ORDER QUANTITY UOM : '|| L_ORDER_QUANTITY_UOM , 2 ) ;
599: END IF;
600: IF l_debug_level > 0 THEN
601: oe_debug_pub.add( 'SHIPPING QUANTITY UOM : '||P_LINE_TBL ( J ) .SHIPPING_QUANTITY_UOM , 2 ) ;
602: END IF;
603:
604: IF p_line_tbl(J).shipping_quantity_uom <> l_order_quantity_uom THEN
605:
612: ,l_ship_from_org_id
613: ,l_item_rec) THEN
614:
615: IF l_debug_level > 0 THEN
616: oe_debug_pub.add( 'DUAL ITEM - SHIPPING UPDATE ' , 1 ) ;
617: END IF;
618:
619: -- HW OPM BUG#:2415731 Since OM does not save lot and sublot information and shipping does,
620: -- we need to retrieve the information from wsh_delivery_details
669: l_lot_id := 0;
670: END IF;
671:
672: IF l_debug_level > 0 THEN
673: oe_debug_pub.add( 'OPM , VALUE OF LOT_ID IS : '||L_LOT_ID , 1 ) ;
674: END IF;
675:
676: */
677: -- INVCONV
705: -- BUG 2415731, sum the shipped_qty -- INVCONV
706: l_temp_dual_shipped_qty := l_temp_dual_shipped_qty + l_temp_shipped_quantity; -- INVCONV
707:
708: IF l_debug_level > 0 THEN
709: oe_debug_pub.add( 'OPM , VALUE OF TEMP_DUAL_SHIPPED_QTY IS '||L_TEMP_DUAL_SHIPPED_QTY , 1 ) ; -- INVCONV
710: END IF;
711:
712: -- HW BUG#:2415731 Fetch the next record and close the cursor
713: FETCH LOT_INFO into LOT;
718: l_temp_shipped_quantity := l_temp_dual_shipped_qty; --INVCONV
719: -- HW end of changes for bug 2415731
720:
721: IF l_debug_level > 0 THEN
722: oe_debug_pub.add( 'DUAL PROCESS SHIPPING UPDATE CONVERSION' || ' GIVES SHIPPED QUANTITY OF ' ||
723: L_TEMP_SHIPPED_QUANTITY , 1 ) ;
724: END IF;
725:
726: ELSE
733: l_order_quantity_uom,
734: p_line_tbl(J).shipping_quantity
735: );
736: IF l_debug_level > 0 THEN
737: oe_debug_pub.add( 'CONVERTED SHIPPED QUANTITY : '|| TO_CHAR ( L_TEMP_SHIPPED_QUANTITY ) , 1 ) ;
738: END IF;
739: END IF; --IF oe_line_util.dual_uom_control -- INVCONV
740:
741: --OPM 06/SEP/00 END
741: --OPM 06/SEP/00 END
742:
743:
744:
745: oe_debug_pub.ADD('Converted Shipped Quantity : '||to_char(l_temp_shipped_quantity),1);
746:
747: IF l_temp_shipped_quantity <> trunc(l_temp_shipped_quantity) THEN
748:
749: Inv_Decimals_PUB.Validate_Quantity
757: x_return_status => l_qty_return_status
758: );
759:
760: IF l_debug_level > 0 THEN
761: oe_debug_pub.add( 'RETURN STATUS FROM INV API : '||L_QTY_RETURN_STATUS , 1 ) ;
762: END IF;
763: IF l_qty_return_status = 'W' THEN
764:
765: l_shipped_quantity := l_validated_quantity;
779:
780: END IF; --IF p_line_tbl(J).shipping_quantity_uom <> l_order_quantity_uom
781:
782: IF l_debug_level > 0 THEN
783: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| TO_CHAR ( L_SHIPPED_QUANTITY ) , 1 ) ;
784: END IF;
785:
786:
787: -- updating remnant flag for various conditions.
799:
800: IF l_count is NULL THEN
801:
802: IF l_debug_level > 0 THEN
803: oe_debug_pub.add( 'LINE PART OF NON SMC PTO' , 4 ) ;
804: END IF;
805:
806: -- if ato+pto with external lines, make it remnant.
807:
823: AND source_type_code = 'EXTERNAL';
824:
825: IF l_count > 0 THEN
826: IF l_debug_level > 0 THEN
827: oe_debug_pub.add( 'EXTERNAL LINES EXIST' , 2 ) ;
828: END IF;
829: l_make_remnant := 'Y'; --bug 4701487
830: END IF;
831: END IF; --bug3480047 ends
852: AND item_type_code = 'CONFIG');
853:
854: IF l_count > 0 THEN
855: IF l_debug_level > 0 THEN
856: oe_debug_pub.add( 'ATO model line does not have CONFIG created' , 2 ) ;
857: END IF;
858: l_make_remnant := 'Y'; --bug 4701487
859: END IF;
860: END IF;
876: END;
877:
878: IF l_count > 0 THEN
879: IF l_debug_level > 0 THEN
880: oe_debug_pub.add('Atleast one un-scheduled line exists in the Model...' , 2 ) ;
881: END IF;
882: l_make_remnant := 'Y'; -- bug 4701487
883: END IF;
884: END IF;
884: END IF;
885:
886: IF l_make_remnant = 'Y' THEN -- bug 4701487
887: IF l_debug_level > 0 THEN
888: oe_debug_pub.add( 'Making the model REMNANT:'|| L_TOP_MODEL_LINE_ID , 3 ) ;
889: END IF;
890: UPDATE oe_order_lines
891: SET model_remnant_flag = 'Y'
892: WHERE top_model_line_id = l_top_model_line_id;
904:
905: IF (l_ship_set_id IS NOT NULL AND
906: l_ship_set_id <> FND_API.G_MISS_NUM) THEN
907: IF l_debug_level > 0 THEN
908: oe_debug_pub.add( 'SHIP SET SHIPPED : '||L_SHIP_SET_ID , 3 ) ;
909: END IF;
910:
911: -- IF l_ship_confirm_tbl.EXISTS(l_ship_set_id) THEN -- Bug 8795918
912: IF l_ship_confirm_tbl.EXISTS(l_ship_set_id_mod) THEN
911: -- IF l_ship_confirm_tbl.EXISTS(l_ship_set_id) THEN -- Bug 8795918
912: IF l_ship_confirm_tbl.EXISTS(l_ship_set_id_mod) THEN
913:
914: IF l_debug_level > 0 THEN
915: oe_debug_pub.add( 'SHIP SET ALREADY EXISTS : '||L_SHIP_SET_ID , 3 ) ;
916: END IF;
917: ELSE
918: IF l_debug_level > 0 THEN
919: oe_debug_pub.add( 'ADD SHIP SET : '||L_SHIP_SET_ID , 3 ) ;
915: oe_debug_pub.add( 'SHIP SET ALREADY EXISTS : '||L_SHIP_SET_ID , 3 ) ;
916: END IF;
917: ELSE
918: IF l_debug_level > 0 THEN
919: oe_debug_pub.add( 'ADD SHIP SET : '||L_SHIP_SET_ID , 3 ) ;
920: END IF;
921: --l_ship_confirm_tbl(l_ship_set_id).type_id := l_ship_set_id; -- Bug 8795918
922: --l_ship_confirm_tbl(l_ship_set_id).ship_confirm_type := 'SHIP_SET'; -- Bug 8795918
923: l_ship_confirm_tbl(l_ship_set_id_mod).type_id := l_ship_set_id;
930: l_item_type_code = Oe_Globals.G_ITEM_CONFIG AND
931: l_ato_line_id = l_top_model_line_id THEN
932:
933: IF l_debug_level > 0 THEN
934: oe_debug_pub.add( 'ATO SHIPPED : '||P_LINE_TBL ( J ) .LINE_ID , 3 ) ;
935: END IF;
936:
937: IF l_ship_confirm_tbl.EXISTS(p_line_tbl(J).line_id) THEN
938:
936:
937: IF l_ship_confirm_tbl.EXISTS(p_line_tbl(J).line_id) THEN
938:
939: IF l_debug_level > 0 THEN
940: oe_debug_pub.add( 'ATO ALREADY EXISTS : '||P_LINE_TBL ( J ) .LINE_ID , 3 ) ;
941: END IF;
942:
943: ELSE
944: IF l_debug_level > 0 THEN
941: END IF;
942:
943: ELSE
944: IF l_debug_level > 0 THEN
945: oe_debug_pub.add( 'ADD ATO : '||P_LINE_TBL ( J ) .LINE_ID , 3 ) ;
946: END IF;
947: -- l_ship_confirm_tbl(p_line_tbl(J).line_id).type_id := p_line_tbl(J).line_id; -- Bug 8795918
948: -- l_ship_confirm_tbl(p_line_tbl(J).line_id).ship_confirm_type := 'ATO'; -- Bug 8795918
949: l_ship_confirm_tbl(l_line_id_mod).type_id := p_line_tbl(J).line_id;
957:
958: l_top_model_line_id_mod := mod(l_top_model_line_id,OE_GLOBALS.G_BINARY_LIMIT);-- Bug 8795918
959:
960: IF l_debug_level > 0 THEN
961: oe_debug_pub.add( 'PTO/KIT SHIPPED : '||L_TOP_MODEL_LINE_ID , 3 ) ;
962: END IF;
963:
964: -- IF l_ship_confirm_tbl.EXISTS(l_top_model_line_id) THEN Bug 8795918
965: IF l_ship_confirm_tbl.EXISTS(l_top_model_line_id_mod) THEN
964: -- IF l_ship_confirm_tbl.EXISTS(l_top_model_line_id) THEN Bug 8795918
965: IF l_ship_confirm_tbl.EXISTS(l_top_model_line_id_mod) THEN
966:
967: IF l_debug_level > 0 THEN
968: oe_debug_pub.add( 'PTO/KIT ALREADY EXISTS : '||L_TOP_MODEL_LINE_ID , 3 ) ;
969: END IF;
970:
971: ELSE
972: IF l_debug_level > 0 THEN
969: END IF;
970:
971: ELSE
972: IF l_debug_level > 0 THEN
973: oe_debug_pub.add( 'ADD PTO/KIT : '||L_TOP_MODEL_LINE_ID , 3 ) ;
974: END IF;
975: -- l_ship_confirm_tbl(l_top_model_line_id).type_id := l_top_model_line_id; -- Bug 8795918
976: -- l_ship_confirm_tbl(l_top_model_line_id).ship_confirm_type := 'PTO_KIT'; -- Bug 8795918
977: l_ship_confirm_tbl(l_top_model_line_id_mod).type_id := l_top_model_line_id;
980: END IF;
981:
982: ELSE
983: IF l_debug_level > 0 THEN
984: oe_debug_pub.add( 'NORMAL SHIPPED : '||P_LINE_TBL ( J ) .LINE_ID , 3 ) ;
985: END IF;
986:
987: -- IF l_ship_confirm_tbl.EXISTS(p_line_tbl(J).line_id) THEN -- Bug 8795918
988: IF l_ship_confirm_tbl.EXISTS(l_line_id_mod) THEN
987: -- IF l_ship_confirm_tbl.EXISTS(p_line_tbl(J).line_id) THEN -- Bug 8795918
988: IF l_ship_confirm_tbl.EXISTS(l_line_id_mod) THEN
989:
990: IF l_debug_level > 0 THEN
991: oe_debug_pub.add( 'ALREADY EXISTS : '||P_LINE_TBL ( J ) .LINE_ID , 3 ) ;
992: END IF;
993:
994: ELSE
995: IF l_debug_level > 0 THEN
992: END IF;
993:
994: ELSE
995: IF l_debug_level > 0 THEN
996: oe_debug_pub.add( 'ADD : '||P_LINE_TBL ( J ) .LINE_ID , 3 ) ;
997: END IF;
998: -- l_ship_confirm_tbl(p_line_tbl(J).line_id).type_id := p_line_tbl(J).line_id; -- Bug 8795918
999: -- l_ship_confirm_tbl(p_line_tbl(J).line_id).ship_confirm_type := l_item_type_code; -- Bug 8795918
1000: l_ship_confirm_tbl(l_line_id_mod).type_id := p_line_tbl(J).line_id;
1014: OE_Line_Util.Query_Rows(p_line_id => p_line_tbl(J).line_id,
1015: x_line_tbl => l_temp_line_tbl);
1016:
1017: IF l_debug_level > 0 THEN
1018: oe_debug_pub.add( 'RETURNED FROM QUERY ROW ' , 1 ) ;
1019: END IF;
1020: l_old_line_tbl(J) := l_temp_line_tbl(1);
1021: l_line_tbl(J) := l_old_line_tbl(J);
1022:
1025: -- If no partial shipment then
1026: IF l_ordered_quantity = l_shipped_quantity THEN
1027:
1028: IF l_debug_level > 0 THEN
1029: oe_debug_pub.add( 'UPDATING LINE : '||P_LINE_TBL ( J ) .LINE_ID , 3 ) ;
1030: END IF;
1031:
1032: IF ((OE_GLOBALS.G_ASO_INSTALLED = 'Y') OR
1033: (OE_GLOBALS.G_EC_INSTALLED = 'Y') OR
1034: (NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'),'N') = 'Y') )
1035: THEN
1036: /* l_line_tbl(J) already holds the old info, so just overwrite what changed */
1037: IF l_debug_level > 0 THEN
1038: oe_debug_pub.add( 'NEED TO CALL PROCESS REQUEST ' , 3 ) ;
1039: END IF;
1040: l_line_tbl(J).shipping_quantity := p_line_tbl(J).shipping_quantity;
1041: l_line_tbl(J).shipping_quantity2 := p_line_tbl(J).shipping_quantity2;
1042: l_line_tbl(J).shipped_quantity2 := p_line_tbl(J).shipping_quantity2;
1069: (NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'),'N') = 'Y'))
1070: THEN
1071: /* l_line_tbl(J) already holds the old info, so just overwrite what changed */
1072: IF l_debug_level > 0 THEN
1073: oe_debug_pub.add( 'NEED TO CALL PROCESS REQUEST ' , 3 ) ;
1074: END IF;
1075: l_line_tbl(J).shipping_quantity := p_line_tbl(J).shipping_quantity;
1076: l_line_tbl(J).shipping_quantity2 := p_line_tbl(J).shipping_quantity2;
1077: l_line_tbl(J).shipped_quantity2 := p_line_tbl(J).shipping_quantity2;
1093:
1094: IF l_result_out = OE_GLOBALS.G_PARTIALLY_SHIPPED THEN
1095: -- This line will split, set the calculate_price_flag to 'P' if 'Y'
1096: IF l_debug_level > 0 THEN
1097: oe_debug_pub.add( 'CALCULATE PRICE FLAG : '||L_CALCULATE_PRICE_FLAG , 3 ) ;
1098: END IF;
1099: IF l_calculate_price_flag = 'Y' THEN
1100: l_calculate_price_flag := 'P';
1101: END IF;
1101: END IF;
1102: END IF; /* partially shipped */
1103:
1104: IF l_debug_level > 0 THEN
1105: oe_debug_pub.add( 'CALCULATE PRICE FLAG : '||L_CALCULATE_PRICE_FLAG , 3 ) ;
1106: END IF;
1107: UPDATE OE_ORDER_LINES
1108: SET shipping_quantity = p_line_tbl(J).shipping_quantity,
1109: shipping_quantity2 = p_line_tbl(J).shipping_quantity2,
1124: IF l_calculate_price_flag IN ('Y','P')
1125: OR (p_line_tbl(J).shipping_quantity2 IS NOT NULL
1126: AND p_line_tbl(J).shipping_quantity2 <> 0 ) -- bug 3598987,3659454
1127: THEN
1128: oe_debug_pub.add( 'Before logging Delayed request for pricing',3);
1129: OE_delayed_requests_Pvt.log_request(
1130: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1131: p_entity_id => p_line_tbl(J).line_id,
1132: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1144:
1145: -- Now process ship confirms.
1146:
1147: IF l_debug_level > 0 THEN
1148: oe_debug_pub.add( 'NUMBER OF SHIP CONFIRMS : '||L_SHIP_CONFIRM_TBL.COUNT , 3 ) ;
1149: END IF;
1150:
1151: l_ship_confirm_index := l_ship_confirm_tbl.FIRST;
1152:
1153: WHILE l_ship_confirm_index IS NOT NULL
1154: LOOP
1155:
1156: IF l_debug_level > 0 THEN
1157: oe_debug_pub.add( 'TYPE/ID : '||L_SHIP_CONFIRM_TBL ( L_SHIP_CONFIRM_INDEX )
1158: .SHIP_CONFIRM_TYPE||'/'||L_SHIP_CONFIRM_TBL ( L_SHIP_CONFIRM_INDEX ) .TYPE_ID , 3 ) ;
1159: END IF;
1160:
1161: OE_Shipping_Integration_PVT.Process_Ship_Confirm
1166:
1167: );
1168:
1169: IF l_debug_level > 0 THEN
1170: oe_debug_pub.add( 'RETRUN STATUS FROM PROCESS_SHIP_CONFIRM : '||L_RETURN_STATUS , 3 ) ;
1171: END IF;
1172:
1173: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1202: , x_index => l_notify_index
1203: , x_return_status => l_return_status);
1204:
1205: IF l_debug_level > 0 THEN
1206: oe_debug_pub.add('UPDATE_GLOBAL RET_STATUS FOR LINE_ID '||L_LINE_TBL ( L_LOOP_INDEX ) .LINE_ID ||' IS: ' || L_RETURN_STATUS , 1
1207: ) ;
1208: oe_debug_pub.add('UPDATE_GLOBAL INDEX FOR LINE_ID '||L_LINE_TBL ( L_LOOP_INDEX ) .LINE_ID ||' IS: ' || L_NOTIFY_INDEX , 1 ) ;
1209: END IF;
1210:
1204:
1205: IF l_debug_level > 0 THEN
1206: oe_debug_pub.add('UPDATE_GLOBAL RET_STATUS FOR LINE_ID '||L_LINE_TBL ( L_LOOP_INDEX ) .LINE_ID ||' IS: ' || L_RETURN_STATUS , 1
1207: ) ;
1208: oe_debug_pub.add('UPDATE_GLOBAL INDEX FOR LINE_ID '||L_LINE_TBL ( L_LOOP_INDEX ) .LINE_ID ||' IS: ' || L_NOTIFY_INDEX , 1 ) ;
1209: END IF;
1210:
1211: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1212: RAISE FND_API.G_EXC_ERROR;
1237: -- bug 3272489
1238: OE_ORDER_UTIL.g_line_tbl(l_notify_index).line_category_code := l_line_tbl(l_loop_index).line_category_code;
1239:
1240: IF l_debug_level > 0 THEN
1241: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1242: .SHIPPING_QUANTITY , 1 ) ;
1243: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1244: .SHIPPING_QUANTITY2 , 1 ) ;
1245: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1239:
1240: IF l_debug_level > 0 THEN
1241: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1242: .SHIPPING_QUANTITY , 1 ) ;
1243: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1244: .SHIPPING_QUANTITY2 , 1 ) ;
1245: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1246: .SHIPPED_QUANTITY , 1 ) ;
1247: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1241: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1242: .SHIPPING_QUANTITY , 1 ) ;
1243: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1244: .SHIPPING_QUANTITY2 , 1 ) ;
1245: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1246: .SHIPPED_QUANTITY , 1 ) ;
1247: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1248: .SHIPPED_QUANTITY2 , 1 ) ;
1249: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1243: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1244: .SHIPPING_QUANTITY2 , 1 ) ;
1245: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1246: .SHIPPED_QUANTITY , 1 ) ;
1247: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1248: .SHIPPED_QUANTITY2 , 1 ) ;
1249: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1250: .SHIPPING_QUANTITY_UOM , 1 ) ;
1251: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1245: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1246: .SHIPPED_QUANTITY , 1 ) ;
1247: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1248: .SHIPPED_QUANTITY2 , 1 ) ;
1249: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1250: .SHIPPING_QUANTITY_UOM , 1 ) ;
1251: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1252: .SHIPPING_QUANTITY_UOM2 , 1 ) ; -- INVCONV
1253: oe_debug_pub.add( 'GLOBAL LINE ACTUAL_SHIPMENT_DATE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1247: oe_debug_pub.add( 'GLOBAL LINE SHIPPED_QUANTITY2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1248: .SHIPPED_QUANTITY2 , 1 ) ;
1249: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1250: .SHIPPING_QUANTITY_UOM , 1 ) ;
1251: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1252: .SHIPPING_QUANTITY_UOM2 , 1 ) ; -- INVCONV
1253: oe_debug_pub.add( 'GLOBAL LINE ACTUAL_SHIPMENT_DATE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1254: .ACTUAL_SHIPMENT_DATE , 1 ) ;
1255: oe_debug_pub.add( 'GLOBAL LINE SHIP_TOLERANCE_BELOW: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1249: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1250: .SHIPPING_QUANTITY_UOM , 1 ) ;
1251: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1252: .SHIPPING_QUANTITY_UOM2 , 1 ) ; -- INVCONV
1253: oe_debug_pub.add( 'GLOBAL LINE ACTUAL_SHIPMENT_DATE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1254: .ACTUAL_SHIPMENT_DATE , 1 ) ;
1255: oe_debug_pub.add( 'GLOBAL LINE SHIP_TOLERANCE_BELOW: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1256: .SHIP_TOLERANCE_BELOW , 1 ) ;
1257: oe_debug_pub.add( 'GLOBAL LINE OVER_SHIP_REASON_CODE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1251: oe_debug_pub.add( 'GLOBAL LINE SHIPPING_QUANTITY_UOM2: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1252: .SHIPPING_QUANTITY_UOM2 , 1 ) ; -- INVCONV
1253: oe_debug_pub.add( 'GLOBAL LINE ACTUAL_SHIPMENT_DATE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1254: .ACTUAL_SHIPMENT_DATE , 1 ) ;
1255: oe_debug_pub.add( 'GLOBAL LINE SHIP_TOLERANCE_BELOW: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1256: .SHIP_TOLERANCE_BELOW , 1 ) ;
1257: oe_debug_pub.add( 'GLOBAL LINE OVER_SHIP_REASON_CODE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1258: .OVER_SHIP_REASON_CODE , 1 ) ;
1259: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1253: oe_debug_pub.add( 'GLOBAL LINE ACTUAL_SHIPMENT_DATE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1254: .ACTUAL_SHIPMENT_DATE , 1 ) ;
1255: oe_debug_pub.add( 'GLOBAL LINE SHIP_TOLERANCE_BELOW: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1256: .SHIP_TOLERANCE_BELOW , 1 ) ;
1257: oe_debug_pub.add( 'GLOBAL LINE OVER_SHIP_REASON_CODE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1258: .OVER_SHIP_REASON_CODE , 1 ) ;
1259: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1260: .CALCULATE_PRICE_FLAG , 1 ) ;
1261: oe_debug_pub.add( 'OLD GLOBAL LINE SHIPPED QTY IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX )
1255: oe_debug_pub.add( 'GLOBAL LINE SHIP_TOLERANCE_BELOW: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1256: .SHIP_TOLERANCE_BELOW , 1 ) ;
1257: oe_debug_pub.add( 'GLOBAL LINE OVER_SHIP_REASON_CODE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1258: .OVER_SHIP_REASON_CODE , 1 ) ;
1259: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1260: .CALCULATE_PRICE_FLAG , 1 ) ;
1261: oe_debug_pub.add( 'OLD GLOBAL LINE SHIPPED QTY IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX )
1262: .SHIPPED_QUANTITY ) ;
1263: oe_debug_pub.add( 'GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE
1257: oe_debug_pub.add( 'GLOBAL LINE OVER_SHIP_REASON_CODE: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1258: .OVER_SHIP_REASON_CODE , 1 ) ;
1259: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1260: .CALCULATE_PRICE_FLAG , 1 ) ;
1261: oe_debug_pub.add( 'OLD GLOBAL LINE SHIPPED QTY IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX )
1262: .SHIPPED_QUANTITY ) ;
1263: oe_debug_pub.add( 'GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE
1264: ) ;
1265: oe_debug_pub.add( 'OLD GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX )
1259: oe_debug_pub.add( 'GLOBAL LINE CALCULATE_PRICE_FLAG: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX )
1260: .CALCULATE_PRICE_FLAG , 1 ) ;
1261: oe_debug_pub.add( 'OLD GLOBAL LINE SHIPPED QTY IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX )
1262: .SHIPPED_QUANTITY ) ;
1263: oe_debug_pub.add( 'GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE
1264: ) ;
1265: oe_debug_pub.add( 'OLD GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX )
1266: .FLOW_STATUS_CODE ) ;
1267: oe_debug_pub.add( 'OLD GLOBAL LINE Category Code is ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX )
1261: oe_debug_pub.add( 'OLD GLOBAL LINE SHIPPED QTY IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX )
1262: .SHIPPED_QUANTITY ) ;
1263: oe_debug_pub.add( 'GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE
1264: ) ;
1265: oe_debug_pub.add( 'OLD GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX )
1266: .FLOW_STATUS_CODE ) ;
1267: oe_debug_pub.add( 'OLD GLOBAL LINE Category Code is ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX )
1268: .LINE_CATEGORY_CODE ) ;
1269: END IF;
1263: oe_debug_pub.add( 'GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_NOTIFY_INDEX ) .FLOW_STATUS_CODE
1264: ) ;
1265: oe_debug_pub.add( 'OLD GLOBAL LINE FLOW STATUS IS: ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX )
1266: .FLOW_STATUS_CODE ) ;
1267: oe_debug_pub.add( 'OLD GLOBAL LINE Category Code is ' || OE_ORDER_UTIL.G_OLD_LINE_TBL ( L_NOTIFY_INDEX )
1268: .LINE_CATEGORY_CODE ) ;
1269: END IF;
1270:
1271: END IF ; /* global entity index null check */
1282: , p_old_line_tbl => l_old_line_tbl
1283: );
1284:
1285: IF l_debug_level > 0 THEN
1286: oe_debug_pub.add( 'RETURNED FROM PROCESS REQUEST AND NOTIFY : '||L_RETURN_STATUS , 3 ) ;
1287: END IF;
1288:
1289: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1290: RAISE FND_API.G_EXC_ERROR;
1305: , p_old_line_tbl => l_old_line_tbl
1306: );
1307:
1308: IF l_debug_level > 0 THEN
1309: oe_debug_pub.add( 'RETURNED FROM PROCESS REQUEST AND NOTIFY : '||L_RETURN_STATUS , 3 ) ;
1310: END IF;
1311:
1312: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1313: RAISE FND_API.G_EXC_ERROR;
1327: , p_data => x_msg_data
1328: );
1329:
1330: IF l_debug_level > 0 THEN
1331: oe_debug_pub.add( 'RETURNED FROM OE_SHIP_CONFIRM.SHIP_CONFIRM '||X_RETURN_STATUS , 1 ) ;
1332: END IF;
1333:
1334: EXCEPTION
1335:
1335:
1336: WHEN FND_API.G_EXC_ERROR THEN
1337:
1338: IF l_debug_level > 0 THEN
1339: oe_debug_pub.add( 'EXC ERROR : '||SQLERRM , 1 ) ;
1340: END IF;
1341: x_return_status := FND_API.G_RET_STS_ERROR;
1342:
1343: -- Get message count and data
1349:
1350: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1351:
1352: IF l_debug_level > 0 THEN
1353: oe_debug_pub.add( 'UNEXPECTED ERROR : '||SQLERRM , 1 ) ;
1354: END IF;
1355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1356:
1357: -- Get message count and data
1363:
1364: WHEN OTHERS THEN
1365:
1366: IF l_debug_level > 0 THEN
1367: oe_debug_pub.add( 'IN OTHERS '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
1368: END IF;
1369:
1370: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1371: THEN
1388: PROCEDURE Process_Requests
1389: IS
1390: l_return_status VARCHAR2(1);
1391: --
1392: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1393: --
1394: BEGIN
1395:
1396: IF (OE_GLOBALS.G_RECURSION_MODE = 'N'
1553: l_item_rec OE_ORDER_CACHE.item_rec_type;
1554: l_return_status VARCHAR2(1);
1555: l_primary_quantity NUMBER;
1556: l_validated_quantity NUMBER;
1557: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1558: l_secondary_quantity NUMBER; -- bug 12423066
1559: l_ship_sec_qty VARCHAR2(1) := SUBSTR(NVL(fnd_profile.value('ONT_DERIVE_SHPQTY_FROM_SEC'), 'Y'),1,1);
1560: BEGIN
1561:
1559: l_ship_sec_qty VARCHAR2(1) := SUBSTR(NVL(fnd_profile.value('ONT_DERIVE_SHPQTY_FROM_SEC'), 'Y'),1,1);
1560: BEGIN
1561:
1562: IF l_debug_level > 0 THEN
1563: oe_debug_pub.add('entering Validate_Quantity '|| p_index, 5);
1564: oe_debug_pub.add
1565: ('order uom ' ||p_ship_line_rec.order_quantity_uom(p_index), 5);
1566: oe_debug_pub.add
1567: ('shipping uom ' || p_ship_line_rec.shipping_quantity_uom(p_index), 5);
1560: BEGIN
1561:
1562: IF l_debug_level > 0 THEN
1563: oe_debug_pub.add('entering Validate_Quantity '|| p_index, 5);
1564: oe_debug_pub.add
1565: ('order uom ' ||p_ship_line_rec.order_quantity_uom(p_index), 5);
1566: oe_debug_pub.add
1567: ('shipping uom ' || p_ship_line_rec.shipping_quantity_uom(p_index), 5);
1568: oe_debug_pub.add
1562: IF l_debug_level > 0 THEN
1563: oe_debug_pub.add('entering Validate_Quantity '|| p_index, 5);
1564: oe_debug_pub.add
1565: ('order uom ' ||p_ship_line_rec.order_quantity_uom(p_index), 5);
1566: oe_debug_pub.add
1567: ('shipping uom ' || p_ship_line_rec.shipping_quantity_uom(p_index), 5);
1568: oe_debug_pub.add
1569: ('order uom 2' ||p_ship_line_rec.order_quantity_uom2(p_index), 5);
1570: oe_debug_pub.add
1564: oe_debug_pub.add
1565: ('order uom ' ||p_ship_line_rec.order_quantity_uom(p_index), 5);
1566: oe_debug_pub.add
1567: ('shipping uom ' || p_ship_line_rec.shipping_quantity_uom(p_index), 5);
1568: oe_debug_pub.add
1569: ('order uom 2' ||p_ship_line_rec.order_quantity_uom2(p_index), 5);
1570: oe_debug_pub.add
1571: ('shipping uom 2 ' || p_ship_line_rec.shipping_quantity_uom2(p_index), 5);
1572: oe_debug_pub.add
1566: oe_debug_pub.add
1567: ('shipping uom ' || p_ship_line_rec.shipping_quantity_uom(p_index), 5);
1568: oe_debug_pub.add
1569: ('order uom 2' ||p_ship_line_rec.order_quantity_uom2(p_index), 5);
1570: oe_debug_pub.add
1571: ('shipping uom 2 ' || p_ship_line_rec.shipping_quantity_uom2(p_index), 5);
1572: oe_debug_pub.add
1573: ('shipping qty ' || p_ship_line_rec.shipping_quantity(p_index), 5);
1574: oe_debug_pub.add
1568: oe_debug_pub.add
1569: ('order uom 2' ||p_ship_line_rec.order_quantity_uom2(p_index), 5);
1570: oe_debug_pub.add
1571: ('shipping uom 2 ' || p_ship_line_rec.shipping_quantity_uom2(p_index), 5);
1572: oe_debug_pub.add
1573: ('shipping qty ' || p_ship_line_rec.shipping_quantity(p_index), 5);
1574: oe_debug_pub.add
1575: ('shipping qty 2 ' || p_ship_line_rec.shipping_quantity2(p_index), 5);
1576: oe_debug_pub.add
1570: oe_debug_pub.add
1571: ('shipping uom 2 ' || p_ship_line_rec.shipping_quantity_uom2(p_index), 5);
1572: oe_debug_pub.add
1573: ('shipping qty ' || p_ship_line_rec.shipping_quantity(p_index), 5);
1574: oe_debug_pub.add
1575: ('shipping qty 2 ' || p_ship_line_rec.shipping_quantity2(p_index), 5);
1576: oe_debug_pub.add
1577: ('ordered qty ' || p_ship_line_rec.ordered_quantity(p_index), 5);
1578: oe_debug_pub.add
1572: oe_debug_pub.add
1573: ('shipping qty ' || p_ship_line_rec.shipping_quantity(p_index), 5);
1574: oe_debug_pub.add
1575: ('shipping qty 2 ' || p_ship_line_rec.shipping_quantity2(p_index), 5);
1576: oe_debug_pub.add
1577: ('ordered qty ' || p_ship_line_rec.ordered_quantity(p_index), 5);
1578: oe_debug_pub.add
1579: ('ordered qty 2 ' || p_ship_line_rec.ordered_quantity2(p_index), 5);
1580: oe_debug_pub.add
1574: oe_debug_pub.add
1575: ('shipping qty 2 ' || p_ship_line_rec.shipping_quantity2(p_index), 5);
1576: oe_debug_pub.add
1577: ('ordered qty ' || p_ship_line_rec.ordered_quantity(p_index), 5);
1578: oe_debug_pub.add
1579: ('ordered qty 2 ' || p_ship_line_rec.ordered_quantity2(p_index), 5);
1580: oe_debug_pub.add
1581: ('p_handle_req_qty ' || p_handle_req_qty, 5);
1582: oe_debug_pub.add('ONT_DERIVE_SHPQTY_FROM_SEC:'|| l_ship_sec_qty, 5);
1576: oe_debug_pub.add
1577: ('ordered qty ' || p_ship_line_rec.ordered_quantity(p_index), 5);
1578: oe_debug_pub.add
1579: ('ordered qty 2 ' || p_ship_line_rec.ordered_quantity2(p_index), 5);
1580: oe_debug_pub.add
1581: ('p_handle_req_qty ' || p_handle_req_qty, 5);
1582: oe_debug_pub.add('ONT_DERIVE_SHPQTY_FROM_SEC:'|| l_ship_sec_qty, 5);
1583: END IF;
1584:
1578: oe_debug_pub.add
1579: ('ordered qty 2 ' || p_ship_line_rec.ordered_quantity2(p_index), 5);
1580: oe_debug_pub.add
1581: ('p_handle_req_qty ' || p_handle_req_qty, 5);
1582: oe_debug_pub.add('ONT_DERIVE_SHPQTY_FROM_SEC:'|| l_ship_sec_qty, 5);
1583: END IF;
1584:
1585: IF p_ship_line_rec.order_quantity_uom(p_index) <>
1586: p_ship_line_rec.shipping_quantity_uom(p_index) THEN
1585: IF p_ship_line_rec.order_quantity_uom(p_index) <>
1586: p_ship_line_rec.shipping_quantity_uom(p_index) THEN
1587:
1588: IF l_debug_level > 0 THEN
1589: oe_debug_pub.add('uom diff ', 5);
1590: END IF;
1591:
1592: IF p_handle_req_qty = 'Y' THEN
1593: l_primary_quantity := p_ship_line_rec.requested_quantity(p_index);
1600: ,p_ship_from_org_id => p_ship_line_rec.ship_from_org_id(p_index)
1601: ,x_item_rec => l_item_rec) THEN
1602:
1603: IF l_debug_level > 0 THEN
1604: oe_debug_pub.add( 'DUAL PROCESS SHIPPING UPDATE ', 5); -- INVCONV
1605: END IF;
1606:
1607: x_dual_item := 'Y'; -- INVCONV
1608:
1630: p_ship_line_rec.order_quantity_uom2(p_index) IS NOT NULL AND
1631: p_ship_line_rec.order_quantity_uom2(p_index) = p_ship_line_rec.order_quantity_uom(p_index) THEN
1632:
1633: IF l_debug_level > 0 THEN
1634: oe_debug_pub.add('Copy primary from secondary', 5);
1635: END IF;
1636:
1637: p_ship_line_rec.shipped_quantity(p_index) := l_secondary_quantity; --12423066
1638:
1637: p_ship_line_rec.shipped_quantity(p_index) := l_secondary_quantity; --12423066
1638:
1639: ELSE
1640: IF l_debug_level > 0 THEN
1641: oe_debug_pub.add('call OE_Order_Misc_Util.Convert_Uom from primary', 5);
1642: END IF;
1643:
1644: IF p_ship_line_rec.shipped_quantity(p_index) IS NULL THEN --ER#14763609
1645: p_ship_line_rec.shipped_quantity(p_index) :=
1657:
1658: IF p_handle_req_qty = 'Y' THEN
1659:
1660: IF l_debug_level > 0 THEN
1661: oe_debug_pub.add
1662: ('shipped qty ' ||p_ship_line_rec.shipped_quantity(p_index), 5);
1663: oe_debug_pub.add
1664: ('requested qty '||p_ship_line_rec.requested_quantity(p_index), 5);
1665: END IF;
1659:
1660: IF l_debug_level > 0 THEN
1661: oe_debug_pub.add
1662: ('shipped qty ' ||p_ship_line_rec.shipped_quantity(p_index), 5);
1663: oe_debug_pub.add
1664: ('requested qty '||p_ship_line_rec.requested_quantity(p_index), 5);
1665: END IF;
1666:
1667: p_ship_line_rec.shipped_quantity(p_index) :=
1671: p_ship_line_rec.requested_quantity2(p_index);
1672:
1673: ELSE
1674: IF l_debug_level > 0 THEN
1675: oe_debug_pub.add
1676: ('shping qty '||p_ship_line_rec.shipping_quantity(p_index), 5);
1677: END IF;
1678:
1679: p_ship_line_rec.shipped_quantity(p_index) :=
1683:
1684: END IF;
1685:
1686: IF l_debug_level > 0 THEN
1687: oe_debug_pub.add
1688: ('uom is same,shpd qty '||p_ship_line_rec.shipped_quantity(p_index), 5);
1689: oe_debug_pub.add
1690: ('uom2 is same,shpd qty2 '||p_ship_line_rec.shipped_quantity2(p_index), 5); -- INVCONV
1691: END IF;
1685:
1686: IF l_debug_level > 0 THEN
1687: oe_debug_pub.add
1688: ('uom is same,shpd qty '||p_ship_line_rec.shipped_quantity(p_index), 5);
1689: oe_debug_pub.add
1690: ('uom2 is same,shpd qty2 '||p_ship_line_rec.shipped_quantity2(p_index), 5); -- INVCONV
1691: END IF;
1692:
1693:
1696: /* IF p_ship_line_rec.shipped_quantity(p_index) <>
1697: TRUNC(p_ship_line_rec.shipped_quantity(p_index)) THEN
1698:
1699: IF l_debug_level > 0 THEN
1700: oe_debug_pub.add('shipped qty deciaml', 5);
1701: END IF;
1702:
1703: Inv_Decimals_PUB.Validate_Quantity
1704: (p_item_id => p_ship_line_rec.inventory_item_id(p_index),
1713: p_ship_line_rec.shipped_quantity(p_index) := l_validated_quantity;
1714: END IF;
1715:
1716: IF l_debug_level > 0 THEN
1717: oe_debug_pub.add('RET STS FROM INV API : '
1718: ||L_RETURN_STATUS || l_validated_quantity,1);
1719: END IF;
1720:
1721: END IF; -- if decimal
1737: --J NUMBER := 0; bug 4422886
1738: l_split_line_rec OE_Order_Pub.Line_Rec_Type;
1739: l_control_rec OE_GLOBALS.Control_Rec_Type;
1740: l_return_status VARCHAR2(1);
1741: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1742: l_split_line_tbl OE_Order_Pub.Line_Tbl_Type;
1743: l_wdd_count NUMBER;
1744: BEGIN
1745: IF l_debug_level > 0 THEN
1742: l_split_line_tbl OE_Order_Pub.Line_Tbl_Type;
1743: l_wdd_count NUMBER;
1744: BEGIN
1745: IF l_debug_level > 0 THEN
1746: oe_debug_pub.add('entering handle_requested_Quantity ', 5);
1747: END IF;
1748:
1749: FOR I in p_requested_line_rec.line_id.FIRST..
1750: p_requested_line_rec.line_id.LAST
1750: p_requested_line_rec.line_id.LAST
1751: LOOP
1752:
1753: IF l_debug_level > 0 THEN
1754: oe_debug_pub.add('Before checking deleievry detail split ', 1);
1755: oe_debug_pub.add('Item type code :'||p_requested_line_rec.item_type_code(I), 1);
1756: END IF;
1757:
1758: -- Bug 7648161
1751: LOOP
1752:
1753: IF l_debug_level > 0 THEN
1754: oe_debug_pub.add('Before checking deleievry detail split ', 1);
1755: oe_debug_pub.add('Item type code :'||p_requested_line_rec.item_type_code(I), 1);
1756: END IF;
1757:
1758: -- Bug 7648161
1759: p_requested_line_rec.shipped_quantity.extend;
1777:
1778: IF nvl(l_wdd_count,1) > 0 THEN
1779:
1780: IF l_debug_level > 0 THEN
1781: OE_DEBUG_PUB.Add('SR5331603 Delivery Detail Has Split..'||l_wdd_count,1);
1782: END IF;
1783:
1784: IF l_debug_level > 0 THEN
1785: oe_debug_pub.add('looping over requested qty '
1781: OE_DEBUG_PUB.Add('SR5331603 Delivery Detail Has Split..'||l_wdd_count,1);
1782: END IF;
1783:
1784: IF l_debug_level > 0 THEN
1785: oe_debug_pub.add('looping over requested qty '
1786: || p_requested_line_rec.requested_quantity(I), 1);
1787: oe_debug_pub.add('looping over ordered qty '
1788: || p_requested_line_rec.ordered_quantity(I), 1);
1789: END IF;
1783:
1784: IF l_debug_level > 0 THEN
1785: oe_debug_pub.add('looping over requested qty '
1786: || p_requested_line_rec.requested_quantity(I), 1);
1787: oe_debug_pub.add('looping over ordered qty '
1788: || p_requested_line_rec.ordered_quantity(I), 1);
1789: END IF;
1790:
1791: Validate_Quantity
1806:
1807: l_split_line_rec.line_id := p_requested_line_rec.top_model_line_id(I);
1808:
1809: IF l_debug_level > 0 THEN
1810: oe_debug_pub.add('SPLIT MODEL : '||l_SPLIT_LINE_rec.LINE_ID,3);
1811: END IF;
1812:
1813: ELSE
1814:
1814:
1815: l_split_line_rec.line_id := p_requested_line_rec.line_id(I);
1816:
1817: IF l_debug_level > 0 THEN
1818: oe_debug_pub.add('SPLIT LINE : '||L_SPLIT_line_rec.LINE_ID,3);
1819: END IF;
1820:
1821: END IF;
1822:
1834: l_split_line_rec.change_reason := 'SYSTEM';
1835:
1836: l_split_line_tbl(1) := l_split_line_rec; --bug 4422886
1837: IF l_debug_level > 0 THEN
1838: oe_debug_pub.add(1 ||' opr update qty '
1839: || l_split_line_tbl(1).ordered_quantity, 1);
1840: oe_debug_pub.add(1 ||' opr update qty2 '
1841: || l_split_line_tbl(1).ordered_quantity2, 1);
1842:
1836: l_split_line_tbl(1) := l_split_line_rec; --bug 4422886
1837: IF l_debug_level > 0 THEN
1838: oe_debug_pub.add(1 ||' opr update qty '
1839: || l_split_line_tbl(1).ordered_quantity, 1);
1840: oe_debug_pub.add(1 ||' opr update qty2 '
1841: || l_split_line_tbl(1).ordered_quantity2, 1);
1842:
1843: END IF;
1844:
1863:
1864: l_split_line_tbl(2) := l_split_line_rec;
1865:
1866: IF l_debug_level > 0 THEN
1867: oe_debug_pub.add(2 ||' opr create qty '|| l_split_line_tbl(2).ordered_quantity
1868: || 'split from ' || l_split_line_tbl(2).split_from_line_id, 1);
1869: oe_debug_pub.add(2 ||' opr create qty2 '|| l_split_line_tbl(2).ordered_quantity2
1870: || 'split from ' || l_split_line_tbl(2).split_from_line_id, 1);
1871: END IF;
1865:
1866: IF l_debug_level > 0 THEN
1867: oe_debug_pub.add(2 ||' opr create qty '|| l_split_line_tbl(2).ordered_quantity
1868: || 'split from ' || l_split_line_tbl(2).split_from_line_id, 1);
1869: oe_debug_pub.add(2 ||' opr create qty2 '|| l_split_line_tbl(2).ordered_quantity2
1870: || 'split from ' || l_split_line_tbl(2).split_from_line_id, 1);
1871: END IF;
1872: l_control_rec.validate_entity := FALSE;
1873: l_control_rec.check_security := FALSE;
1879: p_control_rec => l_control_rec,
1880: x_return_status => l_return_status );
1881:
1882: IF l_debug_level > 0 THEN
1883: oe_debug_pub.add('RET STS FROM PROCESS ORDER : '||L_RETURN_STATUS,3);
1884: END IF;
1885:
1886: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1890: END IF;
1891:
1892: ELSE
1893: IF l_debug_level > 0 THEN
1894: oe_debug_pub.add('can not SPLIT LINE, ord qty < ship qty',3);
1895: END IF;
1896: END IF;
1897: END IF; --l_wdd_count condition
1898: END LOOP;
1897: END IF; --l_wdd_count condition
1898: END LOOP;
1899:
1900: IF l_debug_level > 0 THEN
1901: oe_debug_pub.add('leaving Handle_Requested_Qty',3);
1902: END IF;
1903:
1904: EXCEPTION
1905: WHEN others THEN
1903:
1904: EXCEPTION
1905: WHEN others THEN
1906: IF l_debug_level > 0 THEN
1907: oe_debug_pub.add('error in Handle_Requested_Qty: '||sqlerrm,3);
1908: END IF;
1909: RAISE;
1910: END Handle_Requested_Qty;
1911:
1928: IS
1929: l_line_tbl OE_Order_Pub.Line_Tbl_Type;
1930: l_control_rec OE_GLOBALS.Control_Rec_Type;
1931: l_return_status VARCHAR2(1);
1932: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1933: l_return NUMBER; --Bug 7528326
1934: BEGIN
1935:
1936: IF l_debug_level > 0 THEN
1933: l_return NUMBER; --Bug 7528326
1934: BEGIN
1935:
1936: IF l_debug_level > 0 THEN
1937: oe_debug_pub.add('entering local split line', 3);
1938: END IF;
1939:
1940: l_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC;
1941: l_line_tbl(2) := l_line_tbl(1);
1939:
1940: l_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC;
1941: l_line_tbl(2) := l_line_tbl(1);
1942: IF l_debug_level > 0 THEN
1943: oe_debug_pub.add('local split line 1 ', 3);
1944: END IF;
1945:
1946: l_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
1947: l_line_tbl(1).split_by := 'SYSTEM';
1952: l_line_tbl(1).ship_from_org_id :=
1953: p_ship_line_rec.ship_from_org_id(p_index); --9733938
1954:
1955: IF l_debug_level > 0 THEN
1956: oe_debug_pub.add('local split line 2 ', 3);
1957: END IF;
1958: l_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
1959: l_line_tbl(2).split_by := 'SYSTEM';
1960: l_line_tbl(2).change_reason := 'SYSTEM';
1962: p_ship_line_rec.ordered_quantity(p_index) -
1963: p_ship_line_rec.shipped_quantity(p_index);
1964:
1965: IF l_debug_level > 0 THEN
1966: oe_debug_pub.add('local split line 3 ', 3);
1967: END IF;
1968: IF p_split_model = 'N' THEN
1969:
1970: l_line_tbl(1).line_id := p_ship_line_rec.line_id(p_index);
1970: l_line_tbl(1).line_id := p_ship_line_rec.line_id(p_index);
1971: l_line_tbl(2).split_from_line_id := l_line_tbl(1).line_id;
1972:
1973: IF l_debug_level > 0 THEN
1974: oe_debug_pub.add('local split line 4 ', 3);
1975: END IF;
1976: IF l_debug_level > 0 THEN
1977: oe_debug_pub.add
1978: ('split single line '|| p_ship_line_rec.line_id(p_index), 3);
1973: IF l_debug_level > 0 THEN
1974: oe_debug_pub.add('local split line 4 ', 3);
1975: END IF;
1976: IF l_debug_level > 0 THEN
1977: oe_debug_pub.add
1978: ('split single line '|| p_ship_line_rec.line_id(p_index), 3);
1979: oe_debug_pub.add
1980: ('shp qty ' || p_ship_line_rec.shipped_quantity(p_index), 3);
1981: oe_debug_pub.add
1975: END IF;
1976: IF l_debug_level > 0 THEN
1977: oe_debug_pub.add
1978: ('split single line '|| p_ship_line_rec.line_id(p_index), 3);
1979: oe_debug_pub.add
1980: ('shp qty ' || p_ship_line_rec.shipped_quantity(p_index), 3);
1981: oe_debug_pub.add
1982: ('ord qty ' || p_ship_line_rec.ordered_quantity(p_index), 3);
1983: END IF;
1977: oe_debug_pub.add
1978: ('split single line '|| p_ship_line_rec.line_id(p_index), 3);
1979: oe_debug_pub.add
1980: ('shp qty ' || p_ship_line_rec.shipped_quantity(p_index), 3);
1981: oe_debug_pub.add
1982: ('ord qty ' || p_ship_line_rec.ordered_quantity(p_index), 3);
1983: END IF;
1984:
1985: ELSE -- model split
1990: l_line_tbl(1).line_id := p_ship_line_rec.ato_line_id(p_index);
1991: l_line_tbl(2).split_from_line_id := l_line_tbl(1).line_id;
1992:
1993: IF l_debug_level > 0 THEN
1994: oe_debug_pub.add
1995: ('split ato '|| p_ship_line_rec.ato_line_id(p_index), 3);
1996: END IF;
1997: -- bug11714193
1998: ELSIF p_ship_line_rec.ato_line_id(p_index) <> p_ship_line_rec.top_model_line_id(p_index)
2007: l_line_tbl(1).ato_line_id := p_ship_line_rec.ato_line_id(p_index);
2008: l_line_tbl(2).split_from_line_id := l_line_tbl(1).line_id;
2009:
2010: IF l_debug_level > 0 THEN
2011: oe_debug_pub.add ('split ato under pto: '|| p_ship_line_rec.ato_line_id(p_index), 3);
2012: oe_debug_pub.add('item_type_code after query ' || l_line_tbl(1).item_type_code, 3);
2013: END IF;
2014: --end bug11714193
2015:
2008: l_line_tbl(2).split_from_line_id := l_line_tbl(1).line_id;
2009:
2010: IF l_debug_level > 0 THEN
2011: oe_debug_pub.add ('split ato under pto: '|| p_ship_line_rec.ato_line_id(p_index), 3);
2012: oe_debug_pub.add('item_type_code after query ' || l_line_tbl(1).item_type_code, 3);
2013: END IF;
2014: --end bug11714193
2015:
2016: ELSE
2020:
2021:
2022:
2023: IF l_debug_level > 0 THEN
2024: oe_debug_pub.add
2025: ('split pto '|| p_ship_line_rec.top_model_line_id(p_index), 3);
2026: END IF;
2027: END IF;
2028:
2027: END IF;
2028:
2029: END IF;
2030: IF l_debug_level > 0 THEN
2031: oe_debug_pub.add('here 1 index is '|| p_index, 3);
2032: END IF;
2033:
2034: -- HW
2035:
2154: --End Bug 7528326.
2155:
2156:
2157: IF l_debug_level > 0 THEN
2158: oe_debug_pub.add
2159: ('DUAL 3RD CONVERSION 1 '||l_line_tbl(1).ORDERED_QUANTITY2,1);
2160: END IF;
2161:
2162: ELSE -- order uom = order uom 2
2203:
2204:
2205:
2206: IF l_debug_level > 0 THEN
2207: oe_debug_pub.add('SPLIT FROM : '||L_LINE_TBL(2).SPLIT_FROM_LINE_ID,3);
2208: oe_debug_pub.add('ORD qty old : '||L_LINE_TBL(1).ORDERED_QUANTITY,3);
2209: oe_debug_pub.add('ORD QTY2 old : '||L_LINE_TBL(1).ORDERED_QUANTITY2,3);
2210: oe_debug_pub.add('ORD QTY NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY,3);
2211: oe_debug_pub.add('ORD QTY2 NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY2,3);
2204:
2205:
2206: IF l_debug_level > 0 THEN
2207: oe_debug_pub.add('SPLIT FROM : '||L_LINE_TBL(2).SPLIT_FROM_LINE_ID,3);
2208: oe_debug_pub.add('ORD qty old : '||L_LINE_TBL(1).ORDERED_QUANTITY,3);
2209: oe_debug_pub.add('ORD QTY2 old : '||L_LINE_TBL(1).ORDERED_QUANTITY2,3);
2210: oe_debug_pub.add('ORD QTY NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY,3);
2211: oe_debug_pub.add('ORD QTY2 NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY2,3);
2212: END IF;
2205:
2206: IF l_debug_level > 0 THEN
2207: oe_debug_pub.add('SPLIT FROM : '||L_LINE_TBL(2).SPLIT_FROM_LINE_ID,3);
2208: oe_debug_pub.add('ORD qty old : '||L_LINE_TBL(1).ORDERED_QUANTITY,3);
2209: oe_debug_pub.add('ORD QTY2 old : '||L_LINE_TBL(1).ORDERED_QUANTITY2,3);
2210: oe_debug_pub.add('ORD QTY NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY,3);
2211: oe_debug_pub.add('ORD QTY2 NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY2,3);
2212: END IF;
2213:
2206: IF l_debug_level > 0 THEN
2207: oe_debug_pub.add('SPLIT FROM : '||L_LINE_TBL(2).SPLIT_FROM_LINE_ID,3);
2208: oe_debug_pub.add('ORD qty old : '||L_LINE_TBL(1).ORDERED_QUANTITY,3);
2209: oe_debug_pub.add('ORD QTY2 old : '||L_LINE_TBL(1).ORDERED_QUANTITY2,3);
2210: oe_debug_pub.add('ORD QTY NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY,3);
2211: oe_debug_pub.add('ORD QTY2 NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY2,3);
2212: END IF;
2213:
2214:
2207: oe_debug_pub.add('SPLIT FROM : '||L_LINE_TBL(2).SPLIT_FROM_LINE_ID,3);
2208: oe_debug_pub.add('ORD qty old : '||L_LINE_TBL(1).ORDERED_QUANTITY,3);
2209: oe_debug_pub.add('ORD QTY2 old : '||L_LINE_TBL(1).ORDERED_QUANTITY2,3);
2210: oe_debug_pub.add('ORD QTY NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY,3);
2211: oe_debug_pub.add('ORD QTY2 NEW : '||L_LINE_TBL(2).ORDERED_QUANTITY2,3);
2212: END IF;
2213:
2214:
2215: l_control_rec.validate_entity := FALSE;
2221: p_process_requests => TRUE,
2222: x_return_status => l_return_status);
2223:
2224: IF l_debug_level > 0 THEN
2225: oe_debug_pub.add('local split line RET STS : '||L_RETURN_STATUS,3);
2226: END IF;
2227:
2228: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2234:
2235: EXCEPTION
2236: WHEN others THEN
2237: IF l_debug_level > 0 THEN
2238: oe_debug_pub.add('here 12 index is '|| p_index, 3);
2239: oe_debug_pub.add('error in split_line '||sqlerrm,3);
2240: END IF;
2241: RAISE;
2242: END Split_Line;
2235: EXCEPTION
2236: WHEN others THEN
2237: IF l_debug_level > 0 THEN
2238: oe_debug_pub.add('here 12 index is '|| p_index, 3);
2239: oe_debug_pub.add('error in split_line '||sqlerrm,3);
2240: END IF;
2241: RAISE;
2242: END Split_Line;
2243:
2261: l_fulfill_tbl OE_Order_Pub.Line_Tbl_Type;
2262: l_fulfill_index NUMBER := 0 ;
2263: l_fulfillment_set_flag VARCHAR2(1); -- for bug 4176692
2264:
2265: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2266:
2267: CURSOR fulfill_remnant_lines IS
2268: SELECT line_id, ordered_quantity
2269: ,ordered_quantity2 -- bug 12731457
2275: AND shippable_flag = 'N'
2276: AND model_remnant_flag = 'Y';
2277: BEGIN
2278: IF l_debug_level > 0 THEN
2279: oe_debug_pub.add('entering fulfill_remnant_pto'||p_top_model_line_id, 3);
2280: END IF;
2281: -- for bug 4176692
2282: l_fulfillment_set_flag :=
2283: OE_Line_Fullfill.Is_Part_Of_Fulfillment_Set(p_top_model_line_id);
2284:
2285: FOR line_rec in fulfill_remnant_lines
2286: LOOP
2287: IF l_debug_level > 0 THEN
2288: oe_debug_pub.add('CALLING GET ACTIVITY RESULT FOR : '|| line_rec.line_id, 3);
2289: END IF;
2290:
2291: OE_LINE_FULLFILL.Get_Activity_Result
2292: (p_item_type => OE_GLOBALS.G_WFI_LIN
2297: ,x_activity_status_code => l_activity_status
2298: ,x_activity_id => l_activity_id );
2299:
2300: IF l_debug_level > 0 THEN
2301: oe_debug_pub.add('RET STS FROM GET ACT RESULT: '||L_RETURN_STATUS , 3 ) ;
2302: END IF;
2303:
2304: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2304: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2306: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2307: IF l_debug_level > 0 THEN
2308: oe_debug_pub.add('LINE IS NOT AT FULFILLMENT ACTIVITY ',3);
2309: END IF;
2310: ELSE
2311: IF l_activity_status = 'NOTIFIED' THEN
2312:
2310: ELSE
2311: IF l_activity_status = 'NOTIFIED' THEN
2312:
2313: IF l_debug_level > 0 THEN
2314: oe_debug_pub.add( 'LINE IS AT FULFILLMENT ACTIVITY ',3);
2315: END IF;
2316:
2317: OE_LINE_FULLFILL.Get_Fulfillment_Activity
2318: (p_item_key => line_rec.line_id,
2326: RAISE FND_API.G_EXC_ERROR;
2327: END IF;
2328:
2329: IF l_debug_level > 0 THEN
2330: oe_debug_pub.add( 'FULFILLMENT ACT : '||L_FULFILLMENT_ACTIVITY , 3 ) ;
2331: END IF;
2332:
2333: IF (l_fulfillment_activity = 'NO_ACTIVITY' OR
2334: l_fulfillment_activity = 'SHIP_LINE') AND
2359:
2360: l_fulfill_tbl(l_fulfill_index).operation := OE_GLOBALS.G_OPR_UPDATE;
2361:
2362: IF l_debug_level > 0 THEN
2363: oe_debug_pub.add('FULFILLED QUANTITY : '
2364: || L_FULFILL_TBL(L_FULFILL_INDEX).FULFILLED_QUANTITY,3);
2365: -- Added for bug 12731457
2366: oe_debug_pub.add('FULFILLED QUANTITY 2 : '
2367: || L_FULFILL_TBL(L_FULFILL_INDEX).FULFILLED_QUANTITY2,3);
2362: IF l_debug_level > 0 THEN
2363: oe_debug_pub.add('FULFILLED QUANTITY : '
2364: || L_FULFILL_TBL(L_FULFILL_INDEX).FULFILLED_QUANTITY,3);
2365: -- Added for bug 12731457
2366: oe_debug_pub.add('FULFILLED QUANTITY 2 : '
2367: || L_FULFILL_TBL(L_FULFILL_INDEX).FULFILLED_QUANTITY2,3);
2368: END IF;
2369:
2370: END IF; -- no activity
2389:
2390: FOR l_fulfill_index IN 1 .. l_fulfill_tbl.count
2391: LOOP
2392: IF l_debug_level > 0 THEN
2393: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
2394: END IF;
2395:
2396: OE_Order_WF_Util.Update_Flow_Status_Code
2397: (p_header_id => l_fulfill_tbl(l_fulfill_index).header_id,
2399: p_flow_status_code => 'FULFILLED',
2400: x_return_status => l_return_status);
2401:
2402: IF l_debug_level > 0 THEN
2403: oe_debug_pub.add('RET STS FROM FLOW STATUS API '||L_RETURN_STATUS,3);
2404: END IF;
2405:
2406: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2426: p_header_id => l_fulfill_tbl(l_fulfill_index).header_id,
2427: x_return_status => l_return_status);
2428:
2429: IF l_debug_level > 0 THEN
2430: oe_debug_pub.add( 'RET STS FULFILL SERVICE '||L_RETURN_STATUS , 3 ) ;
2431: END IF;
2432:
2433: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2440:
2441: END IF; -- fullfill index <> 0
2442:
2443: IF l_debug_level > 0 THEN
2444: OE_DEBUG_PUB.Add('Exiting fulfill_remnant_pto', 3);
2445: END IF;
2446: EXCEPTION
2447: WHEN others THEN
2448: IF l_debug_level > 0 THEN
2445: END IF;
2446: EXCEPTION
2447: WHEN others THEN
2448: IF l_debug_level > 0 THEN
2449: oe_debug_pub.add('error in Fulfill_Remnant_PTO '||sqlerrm,3);
2450: END IF;
2451: RAISE;
2452: END Fulfill_Remnant_PTO;
2453:
2468: ,p_ato_only IN VARCHAR2 := 'N')
2469: IS
2470: l_return_status VARCHAR2(1);
2471: l_wdd_count NUMBER;
2472: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2473: -- bug4460242
2474: l_activity_status VARCHAR2(8);
2475: l_activity_result VARCHAR2(30);
2476: l_activity_id NUMBER;
2477:
2478: BEGIN
2479:
2480: IF l_debug_level > 0 THEN
2481: oe_debug_pub.add('entering Ship_Confirm_Line '||p_ato_only
2482: ||'line_id: ' || p_ship_line_rec.line_id(p_index),3);
2483: oe_debug_pub.add('ord qty '||p_ship_line_rec.ordered_quantity(p_index),3);
2484: oe_debug_pub.add('shp qty '||p_ship_line_rec.shipped_quantity(p_index),3);
2485: END IF;
2479:
2480: IF l_debug_level > 0 THEN
2481: oe_debug_pub.add('entering Ship_Confirm_Line '||p_ato_only
2482: ||'line_id: ' || p_ship_line_rec.line_id(p_index),3);
2483: oe_debug_pub.add('ord qty '||p_ship_line_rec.ordered_quantity(p_index),3);
2484: oe_debug_pub.add('shp qty '||p_ship_line_rec.shipped_quantity(p_index),3);
2485: END IF;
2486:
2487: IF p_ato_only = 'Y' THEN
2480: IF l_debug_level > 0 THEN
2481: oe_debug_pub.add('entering Ship_Confirm_Line '||p_ato_only
2482: ||'line_id: ' || p_ship_line_rec.line_id(p_index),3);
2483: oe_debug_pub.add('ord qty '||p_ship_line_rec.ordered_quantity(p_index),3);
2484: oe_debug_pub.add('shp qty '||p_ship_line_rec.shipped_quantity(p_index),3);
2485: END IF;
2486:
2487: IF p_ato_only = 'Y' THEN
2488:
2505: p_ship_line_rec.item_type_code(p_index) = 'CONFIG' THEN
2506:
2507: -- bug fix 4460242
2508: IF l_debug_level > 0 THEN
2509: oe_debug_pub.add( 'GET ACTIVITY RESULT : '|| p_ship_line_rec.ato_line_id(p_index) , 3 ) ;
2510: END IF;
2511: OE_LINE_FULLFILL.Get_Activity_Result
2512: ( p_item_type => OE_GLOBALS.G_WFI_LIN
2513: , p_item_key => p_ship_line_rec.ato_line_id(p_index)
2517: , x_activity_status_code => l_activity_status
2518: , x_activity_id => l_activity_id );
2519:
2520: IF l_debug_level > 0 THEN
2521: oe_debug_pub.add( 'STATUS GET ACTIVITY RESULT : '||L_RETURN_STATUS , 3 ) ;
2522: END IF;
2523:
2524: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2524: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2526: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2527: IF l_debug_level > 0 THEN
2528: oe_debug_pub.add( 'LINE IS NOT AT WAIT_FOR_CTO ACTIVITY' , 1 ) ;
2529: END IF;
2530: ELSE
2531: IF l_activity_status = 'NOTIFIED' THEN
2532: IF l_debug_level > 0 THEN
2529: END IF;
2530: ELSE
2531: IF l_activity_status = 'NOTIFIED' THEN
2532: IF l_debug_level > 0 THEN
2533: oe_debug_pub.add( 'LINE IS AT WAIT_FOR_CTO ACTIVITY' , 1 ) ;
2534: oe_debug_pub.add( 'COMPLETE ACTIVITY , FOR '|| p_ship_line_rec.ato_line_id(p_index) , 3 ) ;
2535: END IF;
2536:
2537: OE_DEBUG_PUB.Add('Log delayed request for Complete CTO-Bug-3471040');
2530: ELSE
2531: IF l_activity_status = 'NOTIFIED' THEN
2532: IF l_debug_level > 0 THEN
2533: oe_debug_pub.add( 'LINE IS AT WAIT_FOR_CTO ACTIVITY' , 1 ) ;
2534: oe_debug_pub.add( 'COMPLETE ACTIVITY , FOR '|| p_ship_line_rec.ato_line_id(p_index) , 3 ) ;
2535: END IF;
2536:
2537: OE_DEBUG_PUB.Add('Log delayed request for Complete CTO-Bug-3471040');
2538:
2533: oe_debug_pub.add( 'LINE IS AT WAIT_FOR_CTO ACTIVITY' , 1 ) ;
2534: oe_debug_pub.add( 'COMPLETE ACTIVITY , FOR '|| p_ship_line_rec.ato_line_id(p_index) , 3 ) ;
2535: END IF;
2536:
2537: OE_DEBUG_PUB.Add('Log delayed request for Complete CTO-Bug-3471040');
2538:
2539: OE_Delayed_Requests_Pvt.Log_Request
2540: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2541: p_entity_id => p_ship_line_rec.ato_line_id(p_index),
2554: RAISE FND_API.G_EXC_ERROR;
2555: END IF;
2556:
2557: IF l_debug_level > 0 THEN
2558: oe_debug_pub.add('ato parent workflow progressed '
2559: || p_ship_line_rec.ato_line_id(p_index), 5);
2560: END IF;
2561: END IF;-- end of IF l_activity_status = 'NOTIFIED'
2562: END IF; -- end of IF l_return_status =SUCCESS OR NOT
2564: -- end of bug 4460242
2565:
2566:
2567: IF l_debug_level > 0 THEN
2568: oe_debug_pub.add('fulfilled? ' ||p_ship_line_rec.fulfilled_flag(p_index)
2569: || ' model? '||p_model_call, 1);
2570: END IF;
2571:
2572: IF p_model_call = 'N' THEN
2610: NULL;
2611: END;
2612:
2613: IF l_debug_level > 0 THEN
2614: oe_debug_pub.add('WSH Count : ' || l_wdd_count, 1);
2615: END IF;
2616: END IF; -- For bug 7243039 (Added for bug 6877315)
2617: ELSE
2618: l_wdd_count := 1;
2616: END IF; -- For bug 7243039 (Added for bug 6877315)
2617: ELSE
2618: l_wdd_count := 1;
2619: IF l_debug_level > 0 THEN
2620: oe_debug_pub.add('setting the count 1, split' , 1);
2621: END IF;
2622: END IF;
2623:
2624: -- END IF; -- Added for bug 6877315 : Commented for bug 7243039
2630: ,p_index => p_index
2631: ,p_split_model => p_ato_only);
2632:
2633: IF l_debug_level > 0 THEN
2634: oe_debug_pub.add('after split line for standard item', 5);
2635: END IF;
2636: END IF; -- Item_type_code
2637:
2638: END IF;
2641: END IF;
2642:
2643: BEGIN
2644: IF l_debug_level > 0 THEN
2645: oe_debug_pub.add('loggin request to wf complete', 5);
2646: oe_debug_pub.add('Activity to be performed' || G_SKIP_SHIP, 5); -- Bug 10032407
2647: END IF;
2648:
2649: OE_Delayed_Requests_Pvt.Log_Request
2642:
2643: BEGIN
2644: IF l_debug_level > 0 THEN
2645: oe_debug_pub.add('loggin request to wf complete', 5);
2646: oe_debug_pub.add('Activity to be performed' || G_SKIP_SHIP, 5); -- Bug 10032407
2647: END IF;
2648:
2649: OE_Delayed_Requests_Pvt.Log_Request
2650: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2664: RAISE FND_API.G_EXC_ERROR;
2665: END IF;
2666:
2667: IF l_debug_level > 0 THEN
2668: oe_debug_pub.add('after wf completion delayed request', 3);
2669: END IF;
2670:
2671: EXCEPTION
2672: WHEN others THEN
2670:
2671: EXCEPTION
2672: WHEN others THEN
2673: IF l_debug_level > 0 THEN
2674: oe_debug_pub.ADD('wf CompleteActivity error ' || sqlerrm,3);
2675: END IF;
2676: RAISE;
2677: END;
2678:
2676: RAISE;
2677: END;
2678:
2679: IF l_debug_level > 0 THEN
2680: oe_debug_pub.add('calling Update_Flow_Status_Code', 3);
2681: END IF;
2682:
2683: OE_Order_WF_Util.Update_Flow_Status_Code
2684: (p_header_id => p_ship_line_rec.header_id(p_index),
2693: RAISE FND_API.G_EXC_ERROR;
2694: END IF;
2695:
2696: IF l_debug_level > 0 THEN
2697: oe_debug_pub.add('leaving Ship_Confirm_Line', 3);
2698: END IF;
2699: EXCEPTION
2700: WHEN others THEN
2701: IF l_debug_level > 0 THEN
2698: END IF;
2699: EXCEPTION
2700: WHEN others THEN
2701: IF l_debug_level > 0 THEN
2702: oe_debug_pub.add('error in Ship_Confirm_Line ' || sqlerrm, 3);
2703: END IF;
2704:
2705: RAISE;
2706: END Ship_Confirm_Line;
2720: l_count1 NUMBER;
2721: l_proportional_ship VARCHAR2(1) := 'Y';
2722: l_split_line_tbl OE_Order_Pub.Line_Tbl_Type;
2723: l_return_status VARCHAR2(1) := 'Y';
2724: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2725: l_index NUMBER;
2726: l_model_remnant_flag VARCHAR2(1) := 'N';
2727: l_make_remnant VARCHAR2(1) := 'N'; -- bug 4701487
2728: l_line_found NUMBER := 0;
2751: -- updating remnant flag for various conditions.
2752: --Commented IF condition to handle SMC Case Bug Fix 5008069
2753: -- IF nvl(p_ship_line_rec.smc_flag(p_index), 'N') = 'N' THEN
2754: IF l_debug_level > 0 THEN
2755: oe_debug_pub.add('LINE PART OF NON SMC PTO '|| l_count1, 4);
2756: END IF;
2757:
2758: -- if ato+pto with external lines, make it remnant.
2759: IF l_count1 > 1 THEN
2765: AND source_type_code = 'EXTERNAL';
2766:
2767: IF l_count > 0 THEN
2768: IF l_debug_level > 0 THEN
2769: oe_debug_pub.add( 'EXTERNAL LINES EXIST' , 2 ) ;
2770: END IF;
2771: l_make_remnant := 'Y'; -- bug 4701487
2772: END IF;
2773: END IF; -- if more than 1 shippable lines.
2795: AND item_type_code = 'CONFIG');
2796:
2797: IF l_count > 0 THEN
2798: IF l_debug_level > 0 THEN
2799: oe_debug_pub.add( 'ATO model line does not have CONFIG created', 2 ) ;
2800: END IF;
2801: l_make_remnant := 'Y'; -- bug 4701487
2802: END IF;
2803: END IF;
2819: END;
2820:
2821: IF l_count > 0 THEN
2822: IF l_debug_level > 0 THEN
2823: oe_debug_pub.add('Atleast one un-scheduled line exists in the Model...' , 2 ) ;
2824: END IF;
2825: l_make_remnant := 'Y';
2826: END IF;
2827: END IF; -- bug 4701487
2827: END IF; -- bug 4701487
2828:
2829: IF l_make_remnant = 'Y' THEN
2830: IF l_debug_level > 0 THEN
2831: oe_debug_pub.add( 'Making the model REMNANT:'|| p_TOP_MODEL_LINE_ID , 2) ;
2832: END IF;
2833:
2834: UPDATE oe_order_lines
2835: SET model_remnant_flag = 'Y'
2844:
2845: -------------------- remnant upadate done ---------------------
2846:
2847: IF l_debug_level > 0 THEN
2848: oe_debug_pub.add('entering Ship_Confirm_PTO, model line_id: '
2849: || p_top_model_line_id, 3);
2850: END IF;
2851:
2852: IF l_model_remnant_flag = 'N' THEN
2860: AND shipped_quantity is NULL;
2861:
2862: IF l_count > 0 THEN
2863: IF l_debug_level > 0 THEN
2864: oe_debug_pub.add('1 select '|| l_count , 3);
2865: END IF;
2866: l_proportional_ship := 'N';
2867: ELSE
2868: BEGIN
2883: AND NVL(OE2.CANCELLED_FLAG,'N')='N' --9822866
2884: );
2885:
2886: IF l_debug_level > 0 THEN
2887: oe_debug_pub.add('2 select '|| l_count || l_count1 , 3);
2888: END IF;
2889:
2890: IF l_count1 = l_count THEN
2891: /* bug fix 4466040 */
2936: END IF;
2937: EXCEPTION
2938: WHEN others THEN
2939: IF l_debug_level > 0 THEN
2940: oe_debug_pub.add('others '|| sqlerrm, 3);
2941: END IF;
2942: RAISE;
2943: END;
2944: END IF;
2970: AND shippable_flag = 'N';
2971:
2972: IF SQL%FOUND THEN
2973: IF l_debug_level > 0 THEN
2974: oe_debug_pub.add('nonshippable lines updated '|| sql%rowcount, 3);
2975: END IF;
2976:
2977: END IF;
2978:
2976:
2977: END IF;
2978:
2979: IF l_debug_level > 0 THEN
2980: oe_debug_pub.add('append model line ' || p_ship_line_rec.line_id.LAST, 3);
2981: END IF;
2982:
2983: l_index := p_ship_line_rec.line_id.LAST + 1;
2984: p_ship_line_rec.line_id.extend;
3004: WHERE line_id = p_top_model_line_id;
3005:
3006:
3007: IF l_debug_level > 0 THEN
3008: oe_debug_pub.add('p_index of this line '|| p_index, 3);
3009: oe_debug_pub.add
3010: ('shp qty: '|| p_ship_line_rec.shipped_quantity(p_index)
3011: || 'ord qty :'||p_ship_line_rec.ordered_quantity(p_index), 3);
3012: oe_debug_pub.add('model line added to l_index '|| l_index, 3);
3005:
3006:
3007: IF l_debug_level > 0 THEN
3008: oe_debug_pub.add('p_index of this line '|| p_index, 3);
3009: oe_debug_pub.add
3010: ('shp qty: '|| p_ship_line_rec.shipped_quantity(p_index)
3011: || 'ord qty :'||p_ship_line_rec.ordered_quantity(p_index), 3);
3012: oe_debug_pub.add('model line added to l_index '|| l_index, 3);
3013: oe_debug_pub.add('model shp and ord qtys: '
3008: oe_debug_pub.add('p_index of this line '|| p_index, 3);
3009: oe_debug_pub.add
3010: ('shp qty: '|| p_ship_line_rec.shipped_quantity(p_index)
3011: || 'ord qty :'||p_ship_line_rec.ordered_quantity(p_index), 3);
3012: oe_debug_pub.add('model line added to l_index '|| l_index, 3);
3013: oe_debug_pub.add('model shp and ord qtys: '
3014: || p_ship_line_rec.shipped_quantity(l_index) || ' '
3015: || p_ship_line_rec.ordered_quantity(l_index), 3);
3016: END IF;
3009: oe_debug_pub.add
3010: ('shp qty: '|| p_ship_line_rec.shipped_quantity(p_index)
3011: || 'ord qty :'||p_ship_line_rec.ordered_quantity(p_index), 3);
3012: oe_debug_pub.add('model line added to l_index '|| l_index, 3);
3013: oe_debug_pub.add('model shp and ord qtys: '
3014: || p_ship_line_rec.shipped_quantity(l_index) || ' '
3015: || p_ship_line_rec.ordered_quantity(l_index), 3);
3016: END IF;
3017:
3018: IF p_ship_line_rec.shipped_quantity(l_index)
3019: < p_ship_line_rec.ordered_quantity(l_index) THEN
3020:
3021: IF l_debug_level > 0 THEN
3022: oe_debug_pub.add('calling split line from ship_confirm_pto', 3);
3023: END IF;
3024:
3025: Split_Line
3026: ( p_ship_line_rec => p_ship_line_rec
3031:
3032: -- delete the appended model line
3033:
3034: IF l_debug_level > 0 THEN
3035: oe_debug_pub.add('removing model line', 3);
3036: END IF;
3037:
3038: p_ship_line_rec.line_id.trim;
3039: p_ship_line_rec.shipped_quantity.trim;
3042: p_ship_line_rec.top_model_line_id.trim;
3043: p_ship_line_rec.item_type_code.trim;
3044:
3045: IF l_debug_level > 0 THEN
3046: oe_debug_pub.add('done removing model line ' || p_ship_line_rec.line_id.first || '-'||p_ship_line_rec.line_id.last, 3);
3047: END IF;
3048:
3049: FOR I in p_ship_line_rec.line_id.first..p_ship_line_rec.line_id.last
3050: LOOP
3054: -- 4396294
3055: THEN
3056:
3057: IF l_debug_level > 0 THEN
3058: oe_debug_pub.add(I || ' calling Ship_Confirm_line for line_id '
3059: ||p_ship_line_rec.line_id(I) , 3);
3060: END IF;
3061:
3062: Ship_Confirm_Line
3069:
3070: END LOOP;
3071:
3072: IF l_debug_level > 0 THEN
3073: oe_debug_pub.add('1 leaving Ship_Confirm_PTO ', 3);
3074: END IF;
3075:
3076: RETURN;
3077: END IF;
3087: LOOP
3088:
3089: IF p_ship_line_rec.top_model_line_id(I) = p_top_model_line_id THEN
3090: IF l_debug_level > 0 THEN
3091: oe_debug_pub.add('line_id '|| p_ship_line_rec.line_id(I), 1);
3092: END IF;
3093:
3094: l_count := l_count + 1;
3095:
3094: l_count := l_count + 1;
3095:
3096: l_split_line_tbl(l_count).line_id := p_ship_line_rec.line_id(I);
3097: IF l_debug_level > 0 THEN
3098: oe_debug_pub.add('quring row ', 1);
3099: END IF;
3100:
3101: OE_Line_Util.Query_Row
3102: ( p_line_id => p_ship_line_rec.line_id(I)
3101: OE_Line_Util.Query_Row
3102: ( p_line_id => p_ship_line_rec.line_id(I)
3103: ,x_line_rec => l_split_line_tbl(l_count));
3104: IF l_debug_level > 0 THEN
3105: oe_debug_pub.add('zz2', 1);
3106: END IF;
3107:
3108: l_split_line_tbl(l_count).operation := OE_GLOBALS.G_OPR_UPDATE;
3109:
3125:
3126: IF l_count > 0 THEN
3127:
3128: IF l_debug_level > 0 THEN
3129: oe_debug_pub.add('calling Cascade_Non_Proportional_Split', 3);
3130: END IF;
3131:
3132: OE_Split_Util.Cascade_Non_Proportional_Split
3133: (p_x_line_tbl => l_split_line_tbl,
3143: l_split_line_tbl(I).shipped_quantity > 0 AND
3144: l_split_line_tbl(I).split_from_line_id is NOT NULL
3145: THEN
3146: IF l_debug_level > 0 THEN
3147: oe_debug_pub.add('append line ' || l_split_line_tbl(I).line_id, 3);
3148: END IF;
3149: l_line_found := 0;
3150:
3151: FOR J in p_ship_line_rec.line_id.FIRST..p_ship_line_rec.line_id.LAST
3151: FOR J in p_ship_line_rec.line_id.FIRST..p_ship_line_rec.line_id.LAST
3152: LOOP
3153: IF p_ship_line_rec.line_id(J) = l_split_line_tbl(I).line_id THEN
3154: IF l_debug_level > 0 THEN
3155: OE_DEBUG_PUB.Add('Line Exists already in Ship Rec'||
3156: l_split_line_tbl(I).line_id,3);
3157: END IF;
3158: l_line_found := 1;
3159: EXIT;
3200:
3201: END IF; -- we did not make it remnant
3202:
3203: IF l_debug_level > 0 THEN
3204: oe_debug_pub.add('last: '|| p_ship_line_rec.line_id.last, 5);
3205: END IF;
3206:
3207: FOR I in p_ship_line_rec.line_id.first..p_ship_line_rec.line_id.last
3208: LOOP
3206:
3207: FOR I in p_ship_line_rec.line_id.first..p_ship_line_rec.line_id.last
3208: LOOP
3209: IF l_debug_level > 0 THEN
3210: oe_debug_pub.add('top model: '|| p_ship_line_rec.top_model_line_id(I), 5);
3211: END IF;
3212: IF p_ship_line_rec.top_model_line_id(I) = p_top_model_line_id THEN
3213:
3214: IF l_debug_level > 0 THEN
3211: END IF;
3212: IF p_ship_line_rec.top_model_line_id(I) = p_top_model_line_id THEN
3213:
3214: IF l_debug_level > 0 THEN
3215: oe_debug_pub.add('3 calling Ship_Confirm_line '
3216: ||p_ship_line_rec.line_id(I) , 3);
3217: END IF;
3218:
3219: IF l_model_remnant_flag = 'Y' THEN
3226: p_ship_line_rec.fulfilled_flag(I) := 'Y';
3227: END IF;
3228:
3229: IF l_debug_level > 0 THEN
3230: oe_debug_pub.add(' ful: ' ||p_ship_line_rec.fulfilled_flag(I), 3);
3231: END IF;
3232: ELSE
3233: l_proportional_ship := 'Y'; -- reusing the variable
3234: END IF;
3233: l_proportional_ship := 'Y'; -- reusing the variable
3234: END IF;
3235:
3236: IF l_debug_level > 0 THEN
3237: oe_debug_pub.add('calling Ship_Confirm_Line '
3238: || l_model_remnant_flag, 3);
3239: END IF;
3240:
3241: Ship_Confirm_Line
3245: ,p_index => I);
3246: END IF;
3247:
3248: IF l_debug_level > 0 THEN
3249: oe_debug_pub.add('done calling Ship_Confirm_Line '
3250: || p_ship_line_rec.line_id(I), 3);
3251: END IF;
3252: END LOOP;
3253:
3253:
3254: IF l_count1 > 0 THEN
3255:
3256: IF l_debug_level > 0 THEN
3257: oe_debug_pub.add('triming appended tables : ' ||l_count1 , 3);
3258: END IF;
3259:
3260: p_ship_line_rec.line_id.trim(l_count1);
3261: p_ship_line_rec.shipped_quantity.trim(l_count1);
3276: l_split_line_tbl(I).line_id) AND
3277: l_split_line_tbl(I).model_remnant_flag ='Y' THEN
3278:
3279: IF l_debug_level > 0 THEN
3280: oe_debug_pub.add('calling Fulfill_Remnant_PTO ', 3);
3281: END IF;
3282:
3283: -- handle all remnant non-shippable lines
3284: Fulfill_Remnant_PTO
3289: ELSE -- could be remnant case that we make.
3290: IF l_model_remnant_flag = 'Y' THEN
3291:
3292: IF l_debug_level > 0 THEN
3293: oe_debug_pub.add('remnant made by us, calling Fulfill_Remnant_PTO '
3294: || p_top_model_line_id, 3);
3295: END IF;
3296:
3297: Fulfill_Remnant_PTO
3299: END IF;
3300: END IF;
3301:
3302: IF l_debug_level > 0 THEN
3303: oe_debug_pub.add('2 leaving Ship_Confirm_PTO ', 3);
3304: END IF;
3305: EXCEPTION
3306: WHEN others THEN
3307: IF l_debug_level > 0 THEN
3304: END IF;
3305: EXCEPTION
3306: WHEN others THEN
3307: IF l_debug_level > 0 THEN
3308: oe_debug_pub.add('error in Ship_Confirm_PTO '||sqlerrm,3);
3309: END IF;
3310: RAISE;
3311: END Ship_Confirm_PTO;
3312:
3353: WHERE source_header_id = oe.header_id);
3354:
3355: I NUMBER := 0;
3356: --
3357: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3358: --
3359: BEGIN
3360:
3361: IF l_debug_level > 0 THEN
3358: --
3359: BEGIN
3360:
3361: IF l_debug_level > 0 THEN
3362: oe_debug_pub.add('entering Ship_Confirm_Split_Lines '
3363: ||p_ship_line_rec.line_id(p_index) ,3);
3364: END IF;
3365:
3366: FOR line_rec in split_lines
3373: AND released_status <> 'D';
3374:
3375: IF l_count > 0 THEN
3376: IF l_debug_level > 0 THEN
3377: oe_debug_pub.add('ignoring this line, can not close '
3378: || line_rec.line_id , 3 ) ;
3379: END IF;
3380: ELSE
3381:
3379: END IF;
3380: ELSE
3381:
3382: IF l_debug_level > 0 THEN
3383: oe_debug_pub.add('now processing '|| line_rec.line_id, 3);
3384: END IF;
3385:
3386: I := I + 1;
3387:
3392: l_line_set_rec.shipping_quantity2(I) := 0;
3393: l_line_set_rec.shipped_quantity2(I) := 0;
3394: END IF;
3395: IF l_debug_level > 0 THEN
3396: oe_debug_pub.add('Start extending', 3);
3397: END IF;
3398:
3399: l_line_set_rec.line_id.extend;
3400: l_line_set_rec.header_id.extend;
3435: ( p_ship_line_rec => p_ship_line_rec
3436: ,p_caller => 'SHIP_CONFIRM_SPLIT_LINES');
3437:
3438: IF l_debug_level > 0 THEN
3439: oe_debug_pub.add('Before quantities db update', 3);
3440: END IF;
3441:
3442: UPDATE OE_ORDER_LINES
3443: SET shipping_quantity = l_line_set_rec.shipping_quantity(I),
3452:
3453: G_SKIP_SHIP := OE_GLOBALS.G_SKIP_ACTIVITY; -- Bug 10032407
3454:
3455: IF l_debug_level > 0 THEN
3456: oe_debug_pub.add('line set id '|| line_rec.line_set_id , 3 ) ;
3457: END IF;
3458:
3459: Ship_Confirm_Line
3460: (p_ship_line_rec => l_line_set_rec
3463:
3464: G_SKIP_SHIP:= OE_GLOBALS.G_COMPLETE_ACTIVITY; -- Bug 10032407
3465:
3466: IF l_debug_level > 0 THEN
3467: oe_debug_pub.add('ret sts for me '||l_return_status , 3 ) ;
3468: END IF;
3469:
3470: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3477:
3478: END LOOP;
3479:
3480: IF l_debug_level > 0 THEN
3481: oe_debug_pub.add('leaving Ship_Confirm_Split_Lines',3);
3482: END IF;
3483:
3484: EXCEPTION
3485: WHEN OTHERS THEN
3484: EXCEPTION
3485: WHEN OTHERS THEN
3486: G_SKIP_SHIP:= OE_GLOBALS.G_COMPLETE_ACTIVITY; -- Bug 10032407
3487: IF l_debug_level > 0 THEN
3488: oe_debug_pub.add('error in Ship_Confirm_Split_Lines '|| sqlerrm,3);
3489: END IF;
3490: RAISE;
3491: END Ship_Confirm_Split_Lines;
3492:
3504: l_msg_count NUMBER;
3505: l_msg_data VARCHAR2(2000);
3506: I NUMBER;
3507: --
3508: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3509: --
3510: BEGIN
3511:
3512: IF l_debug_level > 0 THEN
3509: --
3510: BEGIN
3511:
3512: IF l_debug_level > 0 THEN
3513: oe_debug_pub.add('entering Call_Ship_Confirm_Old', 3);
3514: END IF;
3515:
3516: I := p_ship_line_rec.line_id.FIRST;
3517: IF l_debug_level > 0 THEN
3514: END IF;
3515:
3516: I := p_ship_line_rec.line_id.FIRST;
3517: IF l_debug_level > 0 THEN
3518: oe_debug_pub.add('Initial I is: '|| I, 3);
3519: END IF;
3520:
3521: WHILE I is NOT NULL
3522: LOOP
3535: l_line_tbl(I).header_id :=
3536: p_ship_line_rec.header_id(I);
3537: I := p_ship_line_rec.line_id.NEXT(I);
3538: IF l_debug_level > 0 THEN
3539: oe_debug_pub.add('New I is: '|| I, 3);
3540: END IF;
3541: END LOOP;
3542:
3543: Ship_Confirm
3549: ,x_msg_count => l_msg_count
3550: ,x_msg_data => l_msg_data);
3551:
3552: IF l_debug_level > 0 THEN
3553: oe_debug_pub.add('leaving Call_Ship_Confirm_Old '|| x_return_status, 3);
3554: END IF;
3555: EXCEPTION
3556: WHEN OTHERS THEN
3557: IF l_debug_level > 0 THEN
3554: END IF;
3555: EXCEPTION
3556: WHEN OTHERS THEN
3557: IF l_debug_level > 0 THEN
3558: oe_debug_pub.add('error in Call_Ship_Confirm_Old '|| sqlerrm,3);
3559: END IF;
3560: RAISE;
3561: END Call_Ship_Confirm_Old;
3562:
3589: l_control_rec OE_GLOBALS.Control_Rec_Type;
3590: l_return_status VARCHAR2(1);
3591: l_line_id NUMBER ;
3592: --
3593: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3594: --
3595: BEGIN
3596:
3597: IF l_debug_level > 0 THEN
3594: --
3595: BEGIN
3596:
3597: IF l_debug_level > 0 THEN
3598: oe_debug_pub.add('entering Remove_Lines_From_Shipset',3);
3599: END IF;
3600:
3601: I := p_set_tbl.FIRST;
3602: WHILE I is NOT NULL
3601: I := p_set_tbl.FIRST;
3602: WHILE I is NOT NULL
3603: LOOP
3604: IF l_debug_level > 0 THEN
3605: Oe_Debug_pub.Add('check if set id needs to be updated '|| I, 3);
3606: END IF;
3607:
3608: J := 0;
3609:
3615: NVL(line_rec.invoiced_quantity,0) > 0 OR
3616: line_rec.open_flag = 'N' THEN
3617:
3618: IF l_debug_level > 0 THEN
3619: oe_debug_pub.add('DIRECT UPDATE LINE ID: '||line_rec.line_id,3);
3620: END IF;
3621:
3622: -- do direct update
3623: UPDATE oe_order_lines
3643: l_set_tbl(J).line_id := line_rec.line_id;
3644: END IF;
3645:
3646: IF l_debug_level > 0 THEN
3647: oe_debug_pub.add('unshipped LINE ID : '||L_SET_TBL(J).LINE_ID,3);
3648: END IF;
3649:
3650: l_set_tbl(J).ship_set_id := NULL;
3651: l_set_tbl(J).operation := OE_GLOBALS.G_OPR_UPDATE;
3657: l_control_rec.validate_entity := FALSE;
3658: l_control_rec.check_security := FALSE;
3659:
3660: IF l_debug_level > 0 THEN
3661: oe_debug_pub.add('UPDATE SHIP SET ID '|| J,3);
3662: END IF;
3663:
3664: OE_Shipping_Integration_Pvt.Call_Process_Order
3665: ( p_line_tbl => l_set_tbl,
3666: p_control_rec => l_control_rec,
3667: x_return_status => l_return_status );
3668:
3669: IF l_debug_level > 0 THEN
3670: oe_debug_pub.add('RET STS FROM PROCESS ORDER : '||L_RETURN_STATUS,3);
3671: END IF;
3672:
3673: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3680: I := p_set_tbl.NEXT(I);
3681: END LOOP; -- loop over the set tbl
3682:
3683: IF l_debug_level > 0 THEN
3684: oe_debug_pub.add('leaving Remove_Lines_From_Shipset',3);
3685: END IF;
3686:
3687: EXCEPTION
3688: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3686:
3687: EXCEPTION
3688: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3689: IF l_debug_level > 0 THEN
3690: OE_DEBUG_PUB.Add('Unable to lock the line',3);
3691: END IF;
3692: OE_Msg_Pub.Add_Text('Could not obtain Lock on Order Line/s');
3693: RAISE FND_API.G_EXC_ERROR;
3694:
3693: RAISE FND_API.G_EXC_ERROR;
3694:
3695: WHEN OTHERS THEN
3696: IF l_debug_level > 0 THEN
3697: oe_debug_pub.add('error in Remove_Lines_From_Shipset '|| sqlerrm,3);
3698: END IF;
3699: RAISE;
3700: END Remove_Lines_From_Shipset;
3701:
3716: ( p_ship_line_rec IN OUT NOCOPY Ship_Line_Rec_Type
3717: ,p_requested_line_rec IN OUT NOCOPY Ship_Line_Rec_Type
3718: ,x_return_status OUT NOCOPY VARCHAR2)
3719: IS
3720: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3721: l_split_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
3722: J NUMBER;
3723: l_price_control_rec QP_PREQ_GRP.control_record_type;
3724: l_request_rec OE_Order_PUB.request_rec_type;
3751:
3752: BEGIN
3753:
3754: IF l_debug_level > 0 THEN
3755: Oe_Debug_pub.Add('----------entering handle_nonbulk_mode', 3);
3756: END IF;
3757: --9354229
3758: oe_globals.g_call_process_req := FALSE;
3759:
3758: oe_globals.g_call_process_req := FALSE;
3759:
3760: x_return_status := FND_API.G_RET_STS_SUCCESS;
3761: IF l_debug_level > 0 THEN
3762: oe_debug_pub.ADD('request_line_rec line_id count: ' || p_requested_line_rec.line_id.COUNT, 3);
3763: END IF;
3764:
3765: -- Setting the message context, bug 4516453
3766: OE_MSG_PUB.set_msg_context(
3801: END LOOP;
3802: END IF;
3803:
3804: IF l_debug_level > 0 THEN
3805: oe_debug_pub.add('last- ' || p_ship_line_rec.line_id.LAST || ' first- '||
3806: p_ship_line_rec.line_id.FIRST, 5);
3807: END IF;
3808:
3809: J := p_ship_line_rec.line_id.LAST-p_ship_line_rec.line_id.FIRST + 1;
3809: J := p_ship_line_rec.line_id.LAST-p_ship_line_rec.line_id.FIRST + 1;
3810:
3811:
3812: IF l_debug_level > 0 THEN
3813: oe_debug_pub.add('extending the tables '|| J, 1);
3814: END IF;
3815:
3816: --3590689
3817: p_ship_line_rec.ship_tolerance_below.extend(J);
3842: p_ship_line_rec.model_remnant_flag(I):=
3843: nvl(p_ship_line_rec.model_remnant_flag(I), 'N');
3844:
3845: IF l_debug_level > 0 THEN
3846: oe_debug_pub.add(I || 'looping over ship line rec, line_id: '
3847: || p_ship_line_rec.line_id(I), 5);
3848: END IF;
3849:
3850: BEGIN
3849:
3850: BEGIN
3851: --Bug #5058663 start
3852: IF l_debug_level > 0 THEN
3853: oe_debug_pub.ADD('Ship_line_rec.line_id '|| i || ':' || p_ship_line_rec.line_id(I), 5);
3854: END IF;
3855: --
3856: SELECT top_model_line_id, shippable_flag
3857: INTO p_ship_line_rec.top_model_line_id(I), p_ship_line_rec.shippable_flag(I)
3860: FOR UPDATE NOWAIT;
3861: --
3862:
3863: IF l_debug_level > 0 THEN
3864: oe_debug_pub.add('aa2 locked line' , 1);
3865: oe_debug_pub.ADD('shippable_flag '|| i || ':' || p_ship_line_rec.shippable_flag(i), 5);
3866: oe_debug_pub.ADD('top_model_line_id '|| i || ':' || p_ship_line_rec.top_model_line_id(I), 5);
3867:
3868: END IF;
3861: --
3862:
3863: IF l_debug_level > 0 THEN
3864: oe_debug_pub.add('aa2 locked line' , 1);
3865: oe_debug_pub.ADD('shippable_flag '|| i || ':' || p_ship_line_rec.shippable_flag(i), 5);
3866: oe_debug_pub.ADD('top_model_line_id '|| i || ':' || p_ship_line_rec.top_model_line_id(I), 5);
3867:
3868: END IF;
3869:
3862:
3863: IF l_debug_level > 0 THEN
3864: oe_debug_pub.add('aa2 locked line' , 1);
3865: oe_debug_pub.ADD('shippable_flag '|| i || ':' || p_ship_line_rec.shippable_flag(i), 5);
3866: oe_debug_pub.ADD('top_model_line_id '|| i || ':' || p_ship_line_rec.top_model_line_id(I), 5);
3867:
3868: END IF;
3869:
3870: IF p_ship_line_rec.top_model_line_id(I) is NOT NULL AND
3876: WHERE line_id = p_ship_line_rec.top_model_line_id(I)
3877: FOR UPDATE NOWAIT;
3878: --Bug #5058663 End of changes.
3879: IF l_debug_level > 0 THEN
3880: oe_debug_pub.add('aa3 model locked '|| l_rem_top_model_line_id, 1);
3881: END IF;
3882: END IF;
3883:
3884: -- 4396294
3885:
3886: EXCEPTION
3887: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3888: IF l_debug_level > 0 THEN
3889: OE_DEBUG_PUB.Add('Unable to lock the line',3);
3890: END IF;
3891: OE_Msg_Pub.Add_Text('Could not obtain Lock on Order Line/s');
3892: RAISE FND_API.G_EXC_ERROR;
3893: WHEN others THEN
3892: RAISE FND_API.G_EXC_ERROR;
3893: WHEN others THEN
3894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3895: IF l_debug_level > 0 THEN
3896: Oe_Debug_pub.Add('error in handle_nonbulk_mode '|| sqlerrm, 3);
3897: END IF;
3898: RAISE;
3899: END ;
3900:
3907: FROM OE_SETS
3908: WHERE set_id = p_ship_line_rec.ship_set_id(I)
3909: FOR UPDATE NOWAIT ;
3910: IF l_debug_level > 0 THEN
3911: oe_debug_pub.add('locked ship set id : '|| l_ship_set_id);
3912: END IF;
3913: END IF ;
3914:
3915: EXCEPTION
3914:
3915: EXCEPTION
3916: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3917: IF l_debug_level > 0 THEN
3918: OE_DEBUG_PUB.Add('Unable to lock the ship set :' || l_ship_set_id ,3);
3919: END IF;
3920: OE_Msg_Pub.Add_Text('Could not obtain Lock on Ship Set');
3921: RAISE FND_API.G_EXC_ERROR;
3922: WHEN others THEN
3921: RAISE FND_API.G_EXC_ERROR;
3922: WHEN others THEN
3923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3924: IF l_debug_level > 0 THEN
3925: Oe_Debug_pub.Add('error in handle_nonbulk_mode '|| sqlerrm, 3);
3926: END IF;
3927: RAISE;
3928:
3929: END ;
3937: FROM OE_SETS
3938: WHERE set_id = p_ship_line_rec.arrival_set_id(I)
3939: FOR UPDATE NOWAIT ;
3940: IF l_debug_level > 0 THEN
3941: oe_debug_pub.add('locked arrival set id : ' || l_arrival_set_id);
3942: END IF;
3943: END IF ;
3944:
3945: EXCEPTION
3944:
3945: EXCEPTION
3946: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3947: IF l_debug_level > 0 THEN
3948: OE_DEBUG_PUB.Add('Unable to lock the arrival set :' || l_arrival_set_id ,3);
3949: END IF;
3950: OE_Msg_Pub.Add_Text('Could not obtain Lock on Arrival Set');
3951: RAISE FND_API.G_EXC_ERROR;
3952: WHEN others THEN
3951: RAISE FND_API.G_EXC_ERROR;
3952: WHEN others THEN
3953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3954: IF l_debug_level > 0 THEN
3955: Oe_Debug_pub.Add('error in handle_nonbulk_mode '|| sqlerrm, 3);
3956: END IF;
3957: RAISE;
3958:
3959: END ;
3966: ,p_index => I );
3967: -- ,x_dual_item => l_varchar1); -- INVCONV
3968:
3969: /* IF l_debug_level > 0 THEN INVCONV WHOLE IF l_varchar1 = 'Y' THEN NOT USED.
3970: Oe_Debug_pub.Add('after Validate_Quantity '|| l_varchar1, 3);
3971: END IF;
3972:
3973: IF l_varchar1 = 'Y' THEN
3974:
3974:
3975: ROLLBACK to opm_check;
3976:
3977: IF l_debug_level > 0 THEN
3978: Oe_Debug_pub.Add('opm item found'|| p_ship_line_rec.line_id(I), 5);
3979: END IF;
3980:
3981: OE_Delayed_Requests_PVT.Clear_Request
3982: ( x_return_status => x_return_status);
3986: ,p_index => I
3987: ,x_return_status => x_return_status);
3988:
3989: IF l_debug_level > 0 THEN
3990: Oe_Debug_pub.Add('returning ...'|| x_return_status, 5);
3991: END IF;
3992:
3993: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4026: lock_control = lock_control + 1
4027: WHERE line_id = p_ship_line_rec.line_id(I);
4028:
4029: IF l_debug_level > 0 THEN
4030: Oe_Debug_pub.Add('shipped qty updated to: '
4031: || p_ship_line_rec.shipped_quantity(I) || ' shp qty 2 is :'
4032: || p_ship_line_rec.shipping_quantity2(I), 3);
4033: END IF;
4034:
4041: AND SET_STATUS <> 'C';
4042:
4043: IF SQL%FOUND AND
4044: l_debug_level > 0 THEN
4045: oe_debug_pub.add('arrival SET CLOSED: '
4046: || p_ship_line_rec.arrival_set_id(I), 3 ) ;
4047: END IF;
4048:
4049: J := p_ship_line_rec.arrival_set_id(I);
4051:
4052: ------------- validate, update and close arrival set --------
4053:
4054: IF l_debug_level > 0 THEN
4055: OE_DEBUG_PUB.Add('Before Logging Pricing Delayed Request');
4056: END IF;
4057:
4058:
4059: IF p_ship_line_rec.calculate_price_flag(I) IN ('Y','P') OR
4091: IF l_set_tbl.EXISTS(l_ship_set_id_mod)
4092: THEN
4093:
4094: IF l_debug_level > 0 THEN
4095: Oe_Debug_pub.Add('set id exists ', 5);
4096: END IF;
4097:
4098: --l_set_tbl(p_ship_line_rec.ship_set_id(I))
4099: --:= l_set_tbl(p_ship_line_rec.ship_set_id(I)) +1;
4107: WHERE SET_ID = p_ship_line_rec.ship_set_id(I)
4108: AND SET_STATUS <> 'C';
4109:
4110: IF l_debug_level > 0 THEN
4111: Oe_Debug_pub.Add('set closed '|| p_ship_line_rec.ship_set_id(I), 3);
4112: END IF;
4113: END IF;
4114: END IF;
4115: IF l_debug_level > 0 THEN
4112: END IF;
4113: END IF;
4114: END IF;
4115: IF l_debug_level > 0 THEN
4116: Oe_Debug_pub.Add('decide - ship confirm now', 3);
4117: END IF;
4118: IF p_ship_line_rec.top_model_line_id(I) is not null AND
4119: p_ship_line_rec.top_model_line_id(I) <>
4120: nvl(p_ship_line_rec.ato_line_id(I), -1) AND
4120: nvl(p_ship_line_rec.ato_line_id(I), -1) AND
4121: p_ship_line_rec.model_remnant_flag(I) = 'N' THEN
4122: l_top_model_line_id_mod := mod(p_ship_line_rec.top_model_line_id(I),OE_GLOBALS.G_BINARY_LIMIT);-- Bug 8795918
4123: IF l_debug_level > 0 THEN
4124: Oe_Debug_pub.Add('this line is part of a pto model', 3);
4125: END IF;
4126: -- IF l_model_tbl.EXISTS(p_ship_line_rec.top_model_line_id(I)) -- Bug 8795918
4127: IF l_model_tbl.EXISTS(l_top_model_line_id_mod)
4128: THEN
4126: -- IF l_model_tbl.EXISTS(p_ship_line_rec.top_model_line_id(I)) -- Bug 8795918
4127: IF l_model_tbl.EXISTS(l_top_model_line_id_mod)
4128: THEN
4129: IF l_debug_level > 0 THEN
4130: Oe_Debug_pub.Add('here 1-2-3 '
4131: || p_ship_line_rec.top_model_line_id(I), 3);
4132: END IF;
4133: ELSE
4134: -- l_model_tbl(p_ship_line_rec.top_model_line_id(I)) := I; -- Bug 8795918
4134: -- l_model_tbl(p_ship_line_rec.top_model_line_id(I)) := I; -- Bug 8795918
4135: l_model_tbl(l_top_model_line_id_mod) := I;
4136:
4137: IF l_debug_level > 0 THEN
4138: Oe_Debug_pub.Add(p_ship_line_rec.top_model_line_id(I)
4139: || ' added model ' || l_model_tbl(l_top_model_line_id_mod), 3);
4140: -- || l_model_tbl(p_ship_line_rec.top_model_line_id(I)), 3); -- Bug 8795918
4141: END IF;
4142: END IF; -- added the model to table
4142: END IF; -- added the model to table
4143:
4144: ELSE -- standard or remnant
4145: IF l_debug_level > 0 THEN
4146: Oe_Debug_pub.Add
4147: ('line is standalone '|| p_ship_line_rec.ato_line_id(I), 3);
4148: END IF;
4149: IF p_ship_line_rec.top_model_line_id(I) = p_ship_line_rec.ato_line_id(I)
4150: AND p_ship_line_rec.item_type_code(I) = 'CONFIG' THEN
4152: ELSE
4153: l_varchar1 := 'N';
4154: END IF;
4155: -- bug11714193
4156: Oe_Debug_pub.Add('l_varchar1 before ::: '|| l_varchar1);
4157: IF p_ship_line_rec.top_model_line_id(I) <> p_ship_line_rec.ato_line_id(I)
4158: AND p_ship_line_rec.item_type_code(I) = 'CONFIG'
4159: AND p_ship_line_rec.model_remnant_flag(I) ='Y' THEN
4160:
4169: WHERE ato_line_id = p_ship_line_rec.ato_line_id(I)
4170: AND item_type_code = 'CONFIG' ;
4171:
4172: IF l_debug_level > 0 THEN
4173: Oe_Debug_pub.Add('l_varchar1 l_cnt_config ::: '|| l_cnt_config);
4174: END IF;
4175:
4176: IF l_cnt_config > 1 THEN
4177: l_varchar1 := 'N';
4180: END IF ;
4181: -- l_varchar1 := 'Y';
4182: --end bug 14840826
4183: IF l_debug_level > 0 THEN
4184: Oe_Debug_pub.Add('l_varchar1 after::: '|| l_varchar1);
4185: END IF;
4186: END IF;
4187: -- bug11714193
4188: IF l_debug_level > 0 THEN
4185: END IF;
4186: END IF;
4187: -- bug11714193
4188: IF l_debug_level > 0 THEN
4189: Oe_Debug_pub.Add('------ calling Ship_Confirm_Line '|| l_varchar1, 3);
4190: END IF;
4191:
4192: Ship_Confirm_Line
4193: (p_ship_line_rec => p_ship_line_rec
4195: ,p_ato_only => l_varchar1);
4196: END IF; -- if model
4197:
4198: IF l_debug_level > 0 THEN
4199: Oe_Debug_pub.Add
4200: (I ||' -------- done with this line: '||p_ship_line_rec.line_id(I), 5);
4201: END IF;
4202: END LOOP; -- end of big loop
4203:
4230: ,p_request_type => OE_GLOBALS.G_PRICE_ORDER
4231: ,x_return_status => l_return_status);
4232:
4233: IF l_debug_level > 0 THEN
4234: Oe_Debug_pub.Add('Ret sts After Delayed Req'||l_return_status, 4);
4235: END IF;
4236:
4237: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4249: I := l_model_tbl.FIRST;
4250: WHILE I is NOT NULL
4251: LOOP
4252: IF l_debug_level > 0 THEN
4253: Oe_Debug_pub.Add('----------- calling Ship_Confirm_PTO '|| I, 3);
4254: END IF;
4255:
4256: Ship_Confirm_PTO
4257: ( p_top_model_line_id => p_ship_line_rec.top_model_line_id(l_model_tbl(I))
4270: --9354229
4271: oe_globals.g_call_process_req := TRUE;
4272:
4273: IF l_debug_level > 0 THEN
4274: oe_debug_pub.add('calling Process_Requests_And_Notify......', 1);
4275: END IF;
4276:
4277: OE_Order_PVT.Process_Requests_And_Notify
4278: ( p_process_requests => TRUE
4290: l_cc_rev_reauth_code:= OE_VERIFY_PAYMENT_PUB.Get_CC_Rev_Reauth_Code(p_ship_line_rec.header_id(I));
4291: IF l_cc_rev_reauth_code is not null and l_cc_rev_reauth_code in ('REV_REAUTH_AFTER_SHIP','REV_REAUTH','CC_HOLD') THEN
4292: BEGIN
4293: IF l_debug_level > 0 THEN
4294: OE_DEBUG_PUB.ADD('Calling OE_Verify_Payment_PUB.Authorize_MultiPayments',5);
4295: END IF;
4296: OE_Header_UTIL.Query_Row
4297: (p_header_id => p_ship_line_rec.header_id(I)
4298: ,x_header_rec => l_header_rec
4308: );
4309:
4310: l_request_rec.return_status := l_return_status;
4311: IF l_debug_level > 0 THEN
4312: oe_debug_pub.add('After call to Authorize_MultiPayments return status : ' || l_return_status,5);
4313: END IF;
4314:
4315: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4316: RAISE FND_API.G_EXC_ERROR;
4322: END LOOP;
4323: --CC Reversal ER#16014135 End
4324:
4325: IF l_debug_level > 0 THEN
4326: Oe_Debug_pub.Add('leaving handle_nonbulk_mode '||x_return_status, 3);
4327: END IF;
4328:
4329: EXCEPTION
4330: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
4328:
4329: EXCEPTION
4330: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
4331: IF l_debug_level > 0 THEN
4332: OE_DEBUG_PUB.Add('Unable to lock the line',3);
4333: END IF;
4334: --9354229
4335: oe_globals.g_call_process_req := TRUE;
4336: OE_Msg_Pub.Add_Text('Could not obtain Lock on Order Line/s');
4340:
4341: WHEN others THEN
4342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4343: IF l_debug_level > 0 THEN
4344: Oe_Debug_pub.Add('error in handle_nonbulk_mode '|| sqlerrm, 3);
4345: END IF;
4346: --9354229
4347: oe_globals.g_call_process_req := TRUE;
4348: OE_MSG_PUB.Save_API_Messages(); --bug 4516453
4363: ,p_start_index IN NUMBER
4364: ,p_end_index IN NUMBER
4365: ,x_return_status OUT NOCOPY VARCHAR2)
4366: IS
4367: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4368: l_order_start_index NUMBER;
4369: l_order_end_index NUMBER;
4370: l_index NUMBER;
4371: l_temp_index NUMBER;
4379:
4380: IF l_temp_header_id = p_ship_line_rec.header_id(p_end_index) THEN
4381:
4382: IF l_debug_level > 0 THEN
4383: oe_debug_pub.ADD('only one order in the trip', 1);
4384: END IF;
4385:
4386: Handle_Bulk_Mode_Per_Order
4387: ( p_ship_line_rec => p_ship_line_rec
4390: ,p_end_index => p_end_index
4391: ,x_return_status => x_return_status );
4392:
4393: IF l_debug_level > 0 THEN
4394: oe_debug_pub.ADD('1 leaving Handle_Bulk_Mode '|| x_return_status, 1);
4395: END IF;
4396:
4397: RETURN;
4398: END IF;
4400: FOR I IN p_start_index..p_end_index
4401: LOOP
4402:
4403: IF l_debug_level > 0 THEN
4404: oe_debug_pub.ADD(I ||' ---------- shipping_quantity '
4405: || p_ship_line_rec.shipping_quantity(I),5);
4406: oe_debug_pub.ADD('shipping_quantity2 '
4407: || p_ship_line_rec.shipping_quantity2(I),5);
4408: oe_debug_pub.ADD('shipping_quantity_uom '
4402:
4403: IF l_debug_level > 0 THEN
4404: oe_debug_pub.ADD(I ||' ---------- shipping_quantity '
4405: || p_ship_line_rec.shipping_quantity(I),5);
4406: oe_debug_pub.ADD('shipping_quantity2 '
4407: || p_ship_line_rec.shipping_quantity2(I),5);
4408: oe_debug_pub.ADD('shipping_quantity_uom '
4409: || p_ship_line_rec.shipping_quantity_uom(I),5);
4410: oe_debug_pub.ADD('shipping_quantity_uom2 '
4404: oe_debug_pub.ADD(I ||' ---------- shipping_quantity '
4405: || p_ship_line_rec.shipping_quantity(I),5);
4406: oe_debug_pub.ADD('shipping_quantity2 '
4407: || p_ship_line_rec.shipping_quantity2(I),5);
4408: oe_debug_pub.ADD('shipping_quantity_uom '
4409: || p_ship_line_rec.shipping_quantity_uom(I),5);
4410: oe_debug_pub.ADD('shipping_quantity_uom2 '
4411: || p_ship_line_rec.shipping_quantity_uom2(I),5);
4412: oe_debug_pub.ADD('actual_shipment_date '
4406: oe_debug_pub.ADD('shipping_quantity2 '
4407: || p_ship_line_rec.shipping_quantity2(I),5);
4408: oe_debug_pub.ADD('shipping_quantity_uom '
4409: || p_ship_line_rec.shipping_quantity_uom(I),5);
4410: oe_debug_pub.ADD('shipping_quantity_uom2 '
4411: || p_ship_line_rec.shipping_quantity_uom2(I),5);
4412: oe_debug_pub.ADD('actual_shipment_date '
4413: || p_ship_line_rec.actual_shipment_date(I),5);
4414: oe_debug_pub.ADD('line_id '
4408: oe_debug_pub.ADD('shipping_quantity_uom '
4409: || p_ship_line_rec.shipping_quantity_uom(I),5);
4410: oe_debug_pub.ADD('shipping_quantity_uom2 '
4411: || p_ship_line_rec.shipping_quantity_uom2(I),5);
4412: oe_debug_pub.ADD('actual_shipment_date '
4413: || p_ship_line_rec.actual_shipment_date(I),5);
4414: oe_debug_pub.ADD('line_id '
4415: || p_ship_line_rec.line_id(I),5);
4416: END IF;
4410: oe_debug_pub.ADD('shipping_quantity_uom2 '
4411: || p_ship_line_rec.shipping_quantity_uom2(I),5);
4412: oe_debug_pub.ADD('actual_shipment_date '
4413: || p_ship_line_rec.actual_shipment_date(I),5);
4414: oe_debug_pub.ADD('line_id '
4415: || p_ship_line_rec.line_id(I),5);
4416: END IF;
4417:
4418: -- header change logic here
4418: -- header change logic here
4419: IF p_ship_line_rec.header_id(I) <> l_temp_header_id THEN
4420: l_order_end_index := I - 1;
4421: IF l_debug_level > 0 THEN
4422: oe_debug_pub.ADD('order start index '|| l_order_start_index
4423: || '--order end index '|| l_order_end_index , 1);
4424: END IF;
4425:
4426: Handle_Bulk_Mode_Per_Order
4436: END IF;
4437:
4438: IF I = p_end_index THEN
4439: IF l_debug_level > 0 THEN
4440: oe_debug_pub.ADD('order start index '|| l_order_start_index
4441: || '--order end index '|| p_end_index , 1);
4442: END IF;
4443:
4444: Handle_Bulk_Mode_Per_Order
4451: END IF;
4452: END LOOP;
4453:
4454: IF l_debug_level > 0 THEN
4455: oe_debug_pub.ADD('2 leaving Handle_Bulk_Mode '|| x_return_status, 1);
4456: END IF;
4457:
4458: EXCEPTION
4459: WHEN others THEN
4457:
4458: EXCEPTION
4459: WHEN others THEN
4460: IF l_debug_level > 0 THEN
4461: oe_debug_pub.add('error in Handle_Bulk_Mode ' || sqlerrm, 1);
4462: END IF;
4463:
4464: RAISE;
4465: END Handle_Bulk_Mode;
4487: ,p_start_index IN NUMBER
4488: ,p_end_index IN NUMBER
4489: ,x_return_status OUT NOCOPY VARCHAR2)
4490: IS
4491: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4492: l_price_control_rec QP_PREQ_GRP.control_record_type;
4493: l_request_rec OE_Order_PUB.request_rec_type;
4494: l_line_tbl OE_ORDER_PUB.line_Tbl_type;
4495: l_old_line_tbl OE_ORDER_PUB.line_Tbl_type;
4516:
4517: BEGIN
4518:
4519: IF l_debug_level > 0 THEN
4520: oe_debug_pub.ADD('entering Handle_Bulk_Mode_Per_Order '
4521: || p_ship_line_rec.header_id(p_start_index),5);
4522: END IF;
4523:
4524: x_return_status := FND_API.G_RET_STS_SUCCESS;
4560: WHERE line_id = p_ship_line_rec.line_id(I);
4561:
4562:
4563: IF SQL%FOUND THEN
4564: oe_debug_pub.ADD('updated lines with shipped qty '|| sql%rowcount,1);
4565: END IF;
4566:
4567: --bug 10331066
4568: FOR I in p_start_index..p_end_index loop
4588: AND cancelled_flag = 'N'
4589: AND schedule_ship_date is NULL));
4590:
4591: IF SQL%FOUND THEN
4592: oe_debug_pub.ADD('updated lines model_remnant_flag '|| sql%rowcount,1);
4593: END IF;
4594:
4595: IF l_debug_level > 0 THEN
4596: oe_debug_pub.ADD(' Start Index : '||p_start_index);
4592: oe_debug_pub.ADD('updated lines model_remnant_flag '|| sql%rowcount,1);
4593: END IF;
4594:
4595: IF l_debug_level > 0 THEN
4596: oe_debug_pub.ADD(' Start Index : '||p_start_index);
4597: oe_debug_pub.ADD(' End Index : '||p_end_index);
4598: END IF;
4599:
4600: p_ship_line_rec.error_flag.extend(p_end_index - p_start_index + 1);
4593: END IF;
4594:
4595: IF l_debug_level > 0 THEN
4596: oe_debug_pub.ADD(' Start Index : '||p_start_index);
4597: oe_debug_pub.ADD(' End Index : '||p_end_index);
4598: END IF;
4599:
4600: p_ship_line_rec.error_flag.extend(p_end_index - p_start_index + 1);
4601:
4602: -- Added for bug 7149219
4603: l_last_calc_price := nvl(p_ship_line_rec.calculate_price_flag.LAST,p_end_index);
4604:
4605: IF l_debug_level > 0 THEN
4606: oe_debug_pub.ADD(' Last Calc Price is : '||l_last_calc_price);
4607: END IF;
4608:
4609: -- Commented for 7450821 start
4610: -- Added for bug 7149219
4610: -- Added for bug 7149219
4611: /*IF p_end_index >= p_start_index and p_end_index > l_last_calc_price THEN
4612: p_ship_line_rec.calculate_price_flag.EXTEND(p_end_index - l_last_calc_price);
4613: IF l_debug_level > 0 THEN
4614: oe_debug_pub.ADD(' calculate_price_flag is extended');
4615: END IF;
4616: END IF;*/
4617: -- Commented for 7450821 end
4618:
4620: LOOP
4621: p_ship_line_rec.error_flag(i) := 'N';
4622:
4623: IF l_debug_level > 0 THEN
4624: oe_debug_pub.ADD('CompleteActivity '|| p_ship_line_rec.line_id(i), 1);
4625: END IF;
4626:
4627: BEGIN
4628:
4707:
4708: l_line_tbl := l_old_line_tbl; -- bug 3303011
4709:
4710: IF l_debug_level > 0 THEN
4711: Oe_Debug_pub.Add('After price line for '||l_return_status, 1);
4712: END IF;
4713:
4714: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4723: l_cc_rev_reauth_code:= OE_VERIFY_PAYMENT_PUB.Get_CC_Rev_Reauth_Code(p_ship_line_rec.header_id(p_start_index));
4724: IF l_cc_rev_reauth_code is not null and l_cc_rev_reauth_code IN ('REV_REAUTH_AFTER_SHIP','REV_REAUTH','CC_HOLD') THEN
4725: BEGIN
4726: IF l_debug_level > 0 THEN
4727: OE_DEBUG_PUB.ADD('Calling OE_Verify_Payment_PUB.Authorize_MultiPayments',5);
4728: END IF;
4729:
4730: OE_Header_UTIL.Query_Row
4731: (p_header_id => p_ship_line_rec.header_id(p_start_index)
4744:
4745: l_request_rec.return_status := l_return_status;
4746:
4747: IF l_debug_level > 0 THEN
4748: oe_debug_pub.add('After call to Authorizat Payment return status : ' || l_return_status,5);
4749: END IF;
4750:
4751: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4752: RAISE FND_API.G_EXC_ERROR;
4762: -- bug 4070931 starts
4763: FOR i in p_start_index..p_end_index
4764: LOOP
4765: IF l_debug_level > 0 THEN
4766: oe_debug_pub.ADD('CompleteActivity '|| p_ship_line_rec.line_id(i), 1);
4767: END IF;
4768:
4769: BEGIN
4770: WF_Engine.CompleteActivityInternalName
4774: ,result => 'SHIP_CONFIRM'
4775: ,raise_engine_exception => TRUE ); --15870313
4776:
4777: IF l_debug_level > 0 THEN
4778: oe_debug_pub.ADD('Returned from wf CompleteActivity',1);
4779: END IF;
4780:
4781: EXCEPTION
4782: WHEN others THEN
4780:
4781: EXCEPTION
4782: WHEN others THEN
4783: IF l_debug_level > 0 THEN
4784: oe_debug_pub.ADD('wf CompleteActivity error ' || sqlerrm,1);
4785: END IF;
4786:
4787: p_ship_line_rec.error_flag(i) := 'Y';
4788: x_return_status := 'W';
4787: p_ship_line_rec.error_flag(i) := 'Y';
4788: x_return_status := 'W';
4789:
4790: IF l_debug_level > 0 THEN
4791: OE_DEBUG_PUB.Add ('X_Return_status is now WARNING',1);
4792: END IF;
4793:
4794: Call_Notification_Framework
4795: ( p_ship_line_rec => p_ship_line_rec
4801: END LOOP; -- bug 4070931 ends
4802:
4803: --bug 3654553
4804: IF l_debug_level > 0 THEN
4805: oe_debug_pub.ADD('gg1 '|| p_start_index ||'-' ||p_end_index,1);
4806: END IF;
4807: FORALL i in p_start_index..p_end_index
4808: UPDATE oe_order_lines_all
4809: SET shipped_quantity = ordered_quantity, -- INVCONV
4841:
4842:
4843: IF SQL%FOUND THEN
4844: IF l_debug_level > 0 THEN
4845: oe_debug_pub.ADD('nonshippable lines updated '|| sql%rowcount,1);
4846: END IF;
4847:
4848: FOR I in g_non_shippable_rec.line_id.FIRST..
4849: g_non_shippable_rec.line_id.LAST
4869: g_non_shippable_rec.item_type_code(I) = 'CLASS')
4870: THEN -- what about ato item??
4871:
4872: IF l_debug_level > 0 THEN
4873: oe_debug_pub.ADD(I || ' complete wait for cto '
4874: || g_non_shippable_rec.ato_line_id(I), 1);
4875: END IF;
4876:
4877: BEGIN
4883: raise_engine_exception => TRUE ); --15870313
4884:
4885: EXCEPTION
4886: WHEN OTHERS THEN
4887: oe_debug_pub.add('Workflow complete activity failed. Raising');
4888: RAISE ;
4889: END ;
4890:
4891: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4906:
4907: IF l_last_top_model <> g_non_shippable_rec.top_model_line_id(I) THEN
4908:
4909: IF l_debug_level > 0 THEN
4910: oe_debug_pub.ADD(I || ' calling fulfill remnant lines '
4911: || g_non_shippable_rec.top_model_line_id(I), 1);
4912: END IF;
4913:
4914: fulfill_remnant_pto
4935: AND shipped_quantity is NULL
4936: AND ship_set_id = p_ship_line_rec.ship_set_id(I);
4937:
4938: IF SQL%FOUND THEN
4939: oe_debug_pub.ADD('removed lines from shipset '|| sql%rowcount,1);
4940: END IF;
4941:
4942: FORALL i in p_start_index..p_end_index
4943:
4947: AND SET_STATUS <> 'C'
4948: AND p_ship_line_rec.error_flag(i) = 'N';
4949:
4950: IF SQL%FOUND THEN
4951: oe_debug_pub.ADD('gg4 sets closed '|| sql%rowcount,1);
4952: END IF;
4953:
4954: -- { bug3309470: close arrival sets also
4955: FORALL i IN p_start_index..p_end_index
4959: AND SET_STATUS <> 'C'
4960: AND p_ship_line_rec.error_flag(i) = 'N';
4961:
4962: IF SQL%FOUND THEN
4963: OE_DEBUG_PUB.Add('Arrival Sets Closed:'||sql%rowcount,1);
4964: END IF;
4965: -- bug3309470 ends }
4966:
4967: IF x_return_status = 'W' THEN
4979: WHERE line_id = p_ship_line_rec.line_id(i)
4980: AND p_ship_line_rec.error_flag(i) = 'Y';
4981:
4982: IF SQL%FOUND THEN
4983: oe_debug_pub.ADD('errored lines '|| sql%rowcount,1);
4984: END IF;
4985: END IF;
4986:
4987: IF l_debug_level > 0 THEN
4984: END IF;
4985: END IF;
4986:
4987: IF l_debug_level > 0 THEN
4988: oe_debug_pub.add('calling Process_Requests_And_Notify......', 1);
4989: END IF;
4990:
4991: OE_Order_PVT.Process_Requests_And_Notify
4992: ( p_process_requests => FALSE
4997:
4998: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4999: x_return_status := l_return_status;
5000: IF l_debug_level > 0 THEN
5001: OE_DEBUG_PUB.Add ('Failure in Process_Requests_ANd_Notify',1);
5002: END IF;
5003: END IF;
5004:
5005: --12552430 Start
5003: END IF;
5004:
5005: --12552430 Start
5006: IF l_debug_level > 0 THEN
5007: oe_debug_pub.add('OEXPSHCB:calling Tax Delayed Request');
5008: END IF;
5009: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
5010: (p_request_type => OE_GLOBALS.G_TAX_LINE
5011: ,p_delete => FND_API.G_TRUE
5021: -- Reseting the msg context, bug 4516453
5022: OE_MSG_PUB.Reset_Msg_Context (p_entity_code => 'HEADER');
5023:
5024: IF l_debug_level > 0 THEN
5025: oe_debug_pub.add('leaving Handle_Bulk_Mode_Per_Order '|| x_return_status, 1);
5026: END IF;
5027:
5028: EXCEPTION
5029: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
5027:
5028: EXCEPTION
5029: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
5030: IF l_debug_level > 0 THEN
5031: OE_DEBUG_PUB.Add('Unable to lock the line',3);
5032: END IF;
5033: OE_Msg_Pub.Add_Text('Could not obtain Lock on Order Line/s');
5034: OE_MSG_PUB.Save_API_Messages(); --bug 4516453
5035: OE_MSG_PUB.Reset_Msg_Context (p_entity_code => 'HEADER');
5036: RAISE FND_API.G_EXC_ERROR;
5037:
5038: WHEN others THEN
5039: IF l_debug_level > 0 THEN
5040: oe_debug_pub.add('error in Handle_Bulk_Mode_Per_Order ' || sqlerrm, 1);
5041: END IF;
5042: OE_MSG_PUB.Save_API_Messages(); --bug 4516453
5043: OE_MSG_PUB.Reset_Msg_Context (p_entity_code => 'HEADER');
5044: RAISE;
5065: ,x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
5066: ,x_msg_data OUT NOCOPY VARCHAR2
5067: ,x_return_status OUT NOCOPY VARCHAR2)
5068: IS
5069: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5070: l_org_id NUMBER;
5071: l_return_status VARCHAR2(1); --BUG 14125646
5072: BEGIN
5073: IF l_debug_level > 0 THEN
5070: l_org_id NUMBER;
5071: l_return_status VARCHAR2(1); --BUG 14125646
5072: BEGIN
5073: IF l_debug_level > 0 THEN
5074: oe_debug_pub.add('entering Ship_Confirm_New '
5075: || p_line_adj_rec.line_id.COUNT
5076: || p_ship_line_rec.line_id.COUNT , 1);
5077: END IF;
5078:
5091: ---------- Create Freight Cost Records first --------
5092: IF p_line_adj_rec.line_id.COUNT > 0 THEN
5093:
5094: IF l_debug_level > 0 THEN
5095: oe_debug_pub.add('inserting adjustments '
5096: || p_line_adj_rec.line_id.COUNT, 5);
5097: END IF;
5098:
5099: --bug 4558089
5148:
5149: IF p_bulk_mode = 'Y' THEN
5150:
5151: IF l_debug_level > 0 THEN
5152: oe_debug_pub.add('calling handle_bulk_mode '
5153: || p_start_index ||'-'|| p_end_index, 1);
5154: END IF;
5155:
5156: Handle_Bulk_Mode
5162:
5163: ELSE
5164:
5165: IF l_debug_level > 0 THEN
5166: oe_debug_pub.add('calling handle_NONbulk_mode '
5167: || p_start_index ||'-'|| p_end_index, 5);
5168: END IF;
5169:
5170: Handle_NonBulk_Mode
5182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5183: END IF;
5184:
5185: IF l_debug_level > 0 THEN
5186: oe_debug_pub.add('leaving Ship_Confirm_New', 2);
5187: END IF;
5188:
5189: EXCEPTION
5190:
5189: EXCEPTION
5190:
5191: WHEN FND_API.G_EXC_ERROR THEN
5192: IF l_debug_level > 0 THEN
5193: oe_debug_pub.add('ship_confirm_new EXC ERROR: '||SQLERRM,1);
5194: END IF;
5195:
5196: --Bug 14125646 clear the delayed requests
5197: OE_Delayed_Requests_PVT.Clear_Request
5203: (p_count => x_msg_count
5204: ,p_data => x_msg_data);
5205:
5206: IF l_debug_level > 0 THEN
5207: oe_debug_pub.add('rollback to om_ship_confirm',1);
5208: END IF;
5209: ROLLBACK to om_ship_confirm;
5210:
5211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5209: ROLLBACK to om_ship_confirm;
5210:
5211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5212: IF l_debug_level > 0 THEN
5213: oe_debug_pub.add('ship_confirm_new UNEXPECTED ERROR : '||SQLERRM, 1);
5214: END IF;
5215:
5216: --Bug 14125646 clear the delayed requests
5217: OE_Delayed_Requests_PVT.Clear_Request
5223: (p_count => x_msg_count
5224: ,p_data => x_msg_data);
5225:
5226: IF l_debug_level > 0 THEN
5227: oe_debug_pub.add('rollback to om_ship_confirm : ',1);
5228: END IF;
5229: ROLLBACK to om_ship_confirm;
5230:
5231: WHEN OTHERS THEN
5229: ROLLBACK to om_ship_confirm;
5230:
5231: WHEN OTHERS THEN
5232: IF l_debug_level > 0 THEN
5233: oe_debug_pub.add('IN ship_confirm_new OTHERS ' || sqlerrm, 1);
5234: END IF;
5235:
5236: --Bug 14125646 clear the delayed requests
5237: OE_Delayed_Requests_PVT.Clear_Request
5250:
5251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5252:
5253: IF l_debug_level > 0 THEN
5254: oe_debug_pub.add('rollback to om_ship_confirm : ',1);
5255: END IF;
5256: ROLLBACK to om_ship_confirm;
5257: END Ship_Confirm_New;
5258:
5281: ,p_end_index IN NUMBER := NULL
5282: ,p_caller IN VARCHAR2)
5283: IS
5284: --
5285: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5286: --
5287: l_line_rec OE_Order_Pub.Line_Rec_Type;
5288: l_old_line_rec OE_Order_Pub.Line_Rec_Type;
5289: l_start_time NUMBER;
5294: l_return_status VARCHAR2(1);
5295: BEGIN
5296:
5297: IF l_debug_level > 0 THEN
5298: oe_debug_pub.add('entering Call_Notification_Framework ' || p_caller, 3);
5299: END IF;
5300:
5301: l_return_status := FND_API.G_RET_STS_SUCCESS;
5302:
5302:
5303: -- Commented for bug 8799963
5304: /*IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'),'N') = 'N' THEN
5305: IF l_debug_level > 0 THEN
5306: oe_debug_pub.add('returning from Call_Notification_Framework ', 3);
5307: END IF;
5308:
5309: RETURN;
5310: END IF;*/
5330: END IF;
5331:
5332:
5333: IF l_debug_level > 0 THEN
5334: oe_debug_pub.add('p_start_index is ' || p_start_index
5335: ||' p_end_index is ' || p_end_index
5336: ||' l_end_index is ' || l_end_index, 3);
5337: END IF;
5338:
5339: WHILE I <> l_end_index
5340: LOOP
5341:
5342: IF l_debug_level > 0 THEN
5343: oe_debug_pub.add(I || 'line_id : ' || l_line_rec.line_id, 3);
5344: oe_debug_pub.add('ord qty : ' || p_ship_line_rec.ordered_quantity(I), 3);
5345: oe_debug_pub.add('ship qty: ' || l_line_rec.shipped_quantity, 3);
5346: END IF;
5347:
5340: LOOP
5341:
5342: IF l_debug_level > 0 THEN
5343: oe_debug_pub.add(I || 'line_id : ' || l_line_rec.line_id, 3);
5344: oe_debug_pub.add('ord qty : ' || p_ship_line_rec.ordered_quantity(I), 3);
5345: oe_debug_pub.add('ship qty: ' || l_line_rec.shipped_quantity, 3);
5346: END IF;
5347:
5348: l_line_rec.line_id := p_ship_line_rec.line_id(I);
5341:
5342: IF l_debug_level > 0 THEN
5343: oe_debug_pub.add(I || 'line_id : ' || l_line_rec.line_id, 3);
5344: oe_debug_pub.add('ord qty : ' || p_ship_line_rec.ordered_quantity(I), 3);
5345: oe_debug_pub.add('ship qty: ' || l_line_rec.shipped_quantity, 3);
5346: END IF;
5347:
5348: l_line_rec.line_id := p_ship_line_rec.line_id(I);
5349: l_line_rec.header_id := p_ship_line_rec.header_id(I);
5363: l_line_rec.flow_status_code := 'SHIPPED';
5364: l_line_rec.shipped_quantity := p_ship_line_rec.ordered_quantity(I);
5365: l_line_rec.shipped_quantity2 := p_ship_line_rec.ordered_quantity2(I); -- INVCONV
5366: IF l_debug_level > 0 THEN
5367: oe_debug_pub.add('bulk:inside setting shipped qty '
5368: || l_line_rec.shipped_quantity, 3);
5369:
5370: oe_debug_pub.add('bulk:inside setting shipped qty2 ' -- INVCONV
5371: || l_line_rec.shipped_quantity2, 3);
5366: IF l_debug_level > 0 THEN
5367: oe_debug_pub.add('bulk:inside setting shipped qty '
5368: || l_line_rec.shipped_quantity, 3);
5369:
5370: oe_debug_pub.add('bulk:inside setting shipped qty2 ' -- INVCONV
5371: || l_line_rec.shipped_quantity2, 3);
5372: END IF;
5373:
5374: ELSIF p_caller = 'HANDLE_BULK_FAILURE' THEN
5381: l_line_rec.actual_shipment_date := null;
5382: l_line_rec.flow_status_code := p_ship_line_rec.flow_status_code(i);
5383:
5384: IF l_debug_level > 0 THEN
5385: oe_debug_pub.add('bulk failure:inside setting shipped qty '
5386: || l_line_rec.shipped_quantity, 3);
5387: END IF;
5388: ELSIF p_caller = 'HANDLE_NON_BULK' OR
5389: p_caller = 'SHIP_CONFIRM_SPLIT_LINES' THEN
5389: p_caller = 'SHIP_CONFIRM_SPLIT_LINES' THEN
5390: l_line_rec.shipped_quantity := p_ship_line_rec.shipped_quantity(I);
5391: l_line_rec.shipped_quantity2 := p_ship_line_rec.shipped_quantity2(I); -- INVCONV
5392: IF l_debug_level > 0 THEN
5393: oe_debug_pub.add('non bulk:inside setting shipped qty '
5394: || l_line_rec.shipped_quantity, 3);
5395: oe_debug_pub.add('non bulk:inside setting shipped qty2 ' -- INVCONV
5396: || l_line_rec.shipped_quantity2, 3);
5397:
5391: l_line_rec.shipped_quantity2 := p_ship_line_rec.shipped_quantity2(I); -- INVCONV
5392: IF l_debug_level > 0 THEN
5393: oe_debug_pub.add('non bulk:inside setting shipped qty '
5394: || l_line_rec.shipped_quantity, 3);
5395: oe_debug_pub.add('non bulk:inside setting shipped qty2 ' -- INVCONV
5396: || l_line_rec.shipped_quantity2, 3);
5397:
5398: END IF;
5399: END IF;
5398: END IF;
5399: END IF;
5400:
5401: IF l_debug_level > 0 THEN
5402: oe_debug_pub.add
5403: ('update GLOBAL FLOW_STATUS is: '||l_line_rec.flow_status_code,3);
5404: END IF;
5405:
5406: OE_ORDER_UTIL.Update_Global_Picture
5412: x_index => J,
5413: x_return_status => l_return_status);
5414:
5415: IF l_debug_level > 0 THEN
5416: oe_debug_pub.add(J || ' UPDATE_GLOBAL ret sts: ' || l_retuRN_STATUS);
5417: END IF;
5418:
5419: IF l_return_status = FND_API.G_RET_STS_ERROR
5420: THEN
5455: OE_ORDER_UTIL.g_line_tbl(J).operation
5456: := OE_GLOBALS.G_OPR_UPDATE; -- Bug 8442372
5457:
5458: IF l_debug_level > 0 THEN
5459: oe_debug_pub.add
5460: ('AFTER UPDATE GLOBAL FLOW_STATUS_CODE IS: '
5461: || OE_ORDER_UTIL.G_LINE_TBL( J ).FLOW_STATUS_CODE ,1);
5462: END IF;
5463:
5480:
5481: EXCEPTION
5482: WHEN others THEN
5483: IF l_debug_level > 0 THEN
5484: oe_debug_pub.add('error in Call_Notification_Framework' || sqlerrm, 1);
5485: END IF;
5486: RAISE;
5487: END Call_Notification_Framework;
5488: