[Home] [Help]
44: )
45: IS
46: l_Release_Status VARCHAR2(1);
47: --
48: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
49: --
50: BEGIN
51: IF g_debug_call > 0 THEN
52: G_DEBUG_MSG := G_DEBUG_MSG || '1,';
68: END IF;
69: EXCEPTION
70: WHEN NO_DATA_FOUND THEN
71: IF l_debug_level > 0 THEN
72: oe_debug_pub.add( 'NO DATA FOUND IN VALIDATE RELEASE STATUS' , 1 ) ;
73: END IF;
74: x_result_out := 0;
75: WHEN TOO_MANY_ROWS THEN
76: IF l_debug_level > 0 THEN
73: END IF;
74: x_result_out := 0;
75: WHEN TOO_MANY_ROWS THEN
76: IF l_debug_level > 0 THEN
77: oe_debug_pub.add( 'TOO MANY ROWS IN VALIDATE RELEASE STATUS' , 1 ) ;
78: END IF;
79: x_result_out := 1;
80: WHEN OTHERS THEN
81: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
84: , 'Validate_Release_Status'
85: );
86: END IF;
87: IF l_debug_level > 0 THEN
88: oe_debug_pub.add( 'ERROR MESSAGE IN VALIDATE RELEASE STATUS : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
89: END IF;
90: END Validate_Release_Status;
91:
92:
106: )
107: IS
108: l_pick_status VARCHAR2(1);
109: --
110: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
111: --
112: BEGIN
113:
114: SELECT PICK_STATUS
140: );
141: END IF;
142:
143: IF l_debug_level > 0 THEN
144: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
145: END IF;
146: IF g_debug_call > 0 THEN
147: G_DEBUG_MSG := G_DEBUG_MSG || 'E1';
148: END IF;
183: l_header_payment_out_tbl OE_Order_PUB.Header_Payment_Tbl_Type;
184: l_line_payment_out_tbl OE_Order_PUB.Line_Payment_Tbl_Type;
185: --serla end
186: --
187: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
188: --
189: BEGIN
190:
191: l_line_tbl := p_line_tbl;
195: END IF;
196:
197: IF l_control_rec.check_security = FALSE THEN
198: IF l_debug_level > 0 THEN
199: oe_debug_pub.add( 'CHECK SECURITY = FALSE' , 1 ) ;
200: END IF;
201: ELSE
202: IF l_debug_level > 0 THEN
203: oe_debug_pub.add( 'CHECK SECURITY = TRUE' , 1 ) ;
199: oe_debug_pub.add( 'CHECK SECURITY = FALSE' , 1 ) ;
200: END IF;
201: ELSE
202: IF l_debug_level > 0 THEN
203: oe_debug_pub.add( 'CHECK SECURITY = TRUE' , 1 ) ;
204: END IF;
205: END IF;
206:
207: l_control_rec.process := p_process_requests;
272: 'Call_Process_Order'
273: );
274: END IF;
275: IF l_debug_level > 0 THEN
276: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
277: END IF;
278: IF g_debug_call > 0 THEN
279: G_DEBUG_MSG := G_DEBUG_MSG || 'E5';
280: END IF;
334: l_header_id NUMBER;
335: l_item_type_code VARCHAR2(240);
336: -- odaboval : End of OPM Changes
337: --
338: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
339: -- 4437814 start changes
340: l_activity_status VARCHAR2(8);
341: l_activity_result VARCHAR2(30);
342: l_activity_id NUMBER;
357:
358:
359: BEGIN
360: IF l_debug_level > 0 THEN -- Added debug for bug 13435459
361: OE_DEBUG_PUB.add('Entering Update_Shipping_From_OE() at ',0.5);
362: END IF;
363: IF OE_GLOBALS.G_ASO_INSTALLED IS NULL THEN
364: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
365: END IF;
364: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
365: END IF;
366:
367: IF l_debug_level > 0 THEN
368: oe_debug_pub.add('ENTERING oexvshpb UPDATE_SHIPPING_FROM_OE',1);
369: oe_debug_pub.add('Tbl Count:'||p_update_lines_tbl.COUNT,4);
370: END IF;
371: IF g_debug_call > 0 THEN
372: G_DEBUG_MSG := G_DEBUG_MSG || '6,';
365: END IF;
366:
367: IF l_debug_level > 0 THEN
368: oe_debug_pub.add('ENTERING oexvshpb UPDATE_SHIPPING_FROM_OE',1);
369: oe_debug_pub.add('Tbl Count:'||p_update_lines_tbl.COUNT,4);
370: END IF;
371: IF g_debug_call > 0 THEN
372: G_DEBUG_MSG := G_DEBUG_MSG || '6,';
373: END IF;
420: := p_update_lines_tbl(l_line_index).entity_id;
421: l_changed_attributes(l_shp_index).ordered_quantity := 0;
422:
423: IF l_debug_level > 0 THEN
424: oe_debug_pub.add('line is deleted '
425: || L_CHANGED_ATTRIBUTES(L_SHP_INDEX).SOURCE_LINE_ID , 3 ) ;
426: oe_debug_pub.add('action flag = '
427: ||L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ACTION_FLAG , 3 ) ;
428: oe_debug_pub.add('item type code :' || l_item_type_code, 3);
422:
423: IF l_debug_level > 0 THEN
424: oe_debug_pub.add('line is deleted '
425: || L_CHANGED_ATTRIBUTES(L_SHP_INDEX).SOURCE_LINE_ID , 3 ) ;
426: oe_debug_pub.add('action flag = '
427: ||L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ACTION_FLAG , 3 ) ;
428: oe_debug_pub.add('item type code :' || l_item_type_code, 3);
429: oe_debug_pub.add('ordered quantity '
430: || L_CHANGED_ATTRIBUTES(L_SHP_INDEX).ORDERED_QUANTITY, 3 ) ;
424: oe_debug_pub.add('line is deleted '
425: || L_CHANGED_ATTRIBUTES(L_SHP_INDEX).SOURCE_LINE_ID , 3 ) ;
426: oe_debug_pub.add('action flag = '
427: ||L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ACTION_FLAG , 3 ) ;
428: oe_debug_pub.add('item type code :' || l_item_type_code, 3);
429: oe_debug_pub.add('ordered quantity '
430: || L_CHANGED_ATTRIBUTES(L_SHP_INDEX).ORDERED_QUANTITY, 3 ) ;
431: END IF;
432:
425: || L_CHANGED_ATTRIBUTES(L_SHP_INDEX).SOURCE_LINE_ID , 3 ) ;
426: oe_debug_pub.add('action flag = '
427: ||L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ACTION_FLAG , 3 ) ;
428: oe_debug_pub.add('item type code :' || l_item_type_code, 3);
429: oe_debug_pub.add('ordered quantity '
430: || L_CHANGED_ATTRIBUTES(L_SHP_INDEX).ORDERED_QUANTITY, 3 ) ;
431: END IF;
432:
433: GOTO END_UPDATE_SHIPPING_LOOP;
436: l_shp_index := l_shp_index + 1;
437: l_changed_attributes(l_shp_index).source_line_id
438: := p_update_lines_tbl(l_line_index).entity_id;
439: IF l_debug_level > 0 THEN
440: OE_DEBUG_PUB.Add ('This is a config item cancel/delete case',1);
441: END IF;
442: END IF;
443:
444: END IF; -- if operation is delete
443:
444: END IF; -- if operation is delete
445:
446: IF l_debug_level > 0 THEN
447: oe_debug_pub.add('processing line_ID ' ||L_LINE_ID, 3);
448: END IF;
449:
450: ---------- Check If explosion date has changed and -----------
451: -- the current activity is shipping for the line.
460: IF OE_Shipping_Integration_PUB.Is_Activity_Shipping
461: (1.0, l_line_id) = FND_API.G_TRUE THEN
462:
463: IF l_debug_level > 0 THEN
464: oe_debug_pub.add
465: ('explosion date changed, line is at ship '|| l_line_id,3);
466: END IF;
467:
468: l_line_at_shipping := FND_API.G_TRUE;
471: G_DEBUG_MSG := G_DEBUG_MSG || '8,';
472: END IF;
473:
474: IF l_debug_level > 0 THEN
475: oe_debug_pub.add
476: ('explosion date changed, but LINE not at shipping '
477: || TO_CHAR ( L_LINE_ID ) , 3 ) ;
478: END IF;
479:
494:
495: IF p_update_lines_tbl(l_line_index).param4 = FND_API.G_TRUE THEN
496:
497: IF l_debug_level > 0 THEN
498: oe_debug_pub.add('line at shipping, update released flag '
499: || TO_CHAR ( L_LINE_ID ) , 3 ) ;
500: END IF;
501:
502:
510:
511: IF nvl(l_shipping_interfaced_flag,'N') = 'N' THEN
512:
513: IF l_debug_level > 0 THEN
514: oe_debug_pub.add('NOT INTERFACED TO SHIPPING ' , 3 ) ;
515: END IF;
516:
517: l_changed_attributes(l_shp_index).source_line_id
518: := l_line_id;
542: IF p_update_lines_tbl(l_line_index).param2 = FND_API.G_TRUE
543: AND l_line_at_shipping = FND_API.G_TRUE THEN
544:
545: IF l_debug_level > 0 THEN
546: oe_debug_pub.add('explosion date changed, activity shipping '
547: || TO_CHAR ( L_LINE_ID ) , 3 ) ;
548: END IF;
549: IF g_debug_call > 0 THEN
550: G_DEBUG_MSG := G_DEBUG_MSG || '12,';
558: l_changed_attributes(l_shp_index).released_status := 'R';
559: ELSE
560:
561: IF l_debug_level > 0 THEN
562: oe_debug_pub.add
563: ('explosion date has changed for a non shippable line'
564: || TO_CHAR ( L_LINE_ID ) , 3 ) ;
565: END IF;
566:
568:
569: -- Log a delayed request for Complete Activity, 1739574
570:
571: IF l_debug_level > 0 THEN
572: oe_debug_pub.add( 'log delayed request complet activity for '
573: || L_LINE_REC.LINE_ID , 3 ) ;
574: END IF;
575:
576: OE_Delayed_Requests_Pvt.Log_Request
611: l_changed_attributes(l_shp_index).source_line_id
612: := l_line_rec.line_id;
613:
614: IF l_debug_level > 0 THEN
615: oe_debug_pub.add('source line id : '
616: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .SOURCE_LINE_ID , 3 ) ;
617: END IF;
618:
619: l_changed_attributes(l_shp_index).sold_to_org_id
667: l_changed_attributes(l_shp_index).action_flag := 'U';
668: END IF;
669:
670: IF l_debug_level > 0 THEN
671: oe_debug_pub.add('action flag = '
672: ||L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ACTION_FLAG , 3 ) ;
673: END IF;
674:
675: IF l_line_rec.shipped_quantity IS NOT NULL AND
679: l_changed_attributes(l_shp_index).shipped_flag := 'N';
680: END IF;
681:
682: IF l_debug_level > 0 THEN
683: oe_debug_pub.add('shipped flag '
684: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .SHIPPED_FLAG , 3 ) ;
685: END IF;
686: IF g_debug_call > 0 THEN
687: G_DEBUG_MSG := G_DEBUG_MSG || '17,';
692: -- If a line is being deleted then the ordered quantity to be notified
693: -- to shipping will be 0.
694:
695: IF l_debug_level > 0 THEN
696: oe_debug_pub.add('under shipment tolerance : '
697: ||L_LINE_REC.SHIP_TOLERANCE_BELOW , 3 ) ;
698: oe_debug_pub.add(p_update_lines_tbl(l_line_index).param5
699: || '-- param5---', 1);
700: END IF;
694:
695: IF l_debug_level > 0 THEN
696: oe_debug_pub.add('under shipment tolerance : '
697: ||L_LINE_REC.SHIP_TOLERANCE_BELOW , 3 ) ;
698: oe_debug_pub.add(p_update_lines_tbl(l_line_index).param5
699: || '-- param5---', 1);
700: END IF;
701:
702: IF p_update_lines_tbl(l_line_index).param5 = FND_API.G_TRUE AND
707: G_DEBUG_MSG := G_DEBUG_MSG || '18,';
708: END IF;
709:
710: IF l_debug_level > 0 THEN
711: oe_debug_pub.add('ordered quantity has been reduced' , 3 ) ;
712: END IF;
713:
714: -- ordered quantity changed check for the shipment status.
715:
738: END IF;
739: END IF;
740: -- 4437814 end changes
741: IF l_debug_level > 0 THEN
742: oe_debug_pub.add('shipline notified flag:' || l_shipline_notified) ;
743: END IF;
744: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW OR
745: l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_ABOVE OR
746: l_x_result_out = OE_GLOBALS.G_FULLY_SHIPPED OR
746: l_x_result_out = OE_GLOBALS.G_FULLY_SHIPPED OR
747: l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE THEN
748: IF l_shipline_notified = 'Y'THEN --4437814
749: IF l_debug_level > 0 THEN
750: oe_debug_pub.add
751: ('line shipped within tolerance, complete ship_line',3);
752: END IF;
753: IF g_debug_call > 0 THEN
754: G_DEBUG_MSG := G_DEBUG_MSG || '20,';
792: x_index => l_index,
793: x_return_status => l_return_status);
794:
795: IF l_debug_level > 0 THEN
796: oe_debug_pub.add( 'after update global picture, status: '
797: || L_RETURN_STATUS ) ;
798: oe_debug_pub.add( 'global picture index: '
799: || L_INDEX , 1 ) ;
800: END IF;
794:
795: IF l_debug_level > 0 THEN
796: oe_debug_pub.add( 'after update global picture, status: '
797: || L_RETURN_STATUS ) ;
798: oe_debug_pub.add( 'global picture index: '
799: || L_INDEX , 1 ) ;
800: END IF;
801:
802: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
829: OE_ORDER_UTIL.g_line_tbl(l_index).last_update_login
830: := FND_GLOBAL.LOGIN_ID;
831:
832: IF l_debug_level > 0 THEN
833: oe_debug_pub.add
834: ('global flow status code after update: '
835: || OE_ORDER_UTIL.G_LINE_TBL( L_INDEX ).FLOW_STATUS_CODE ,1);
836: END IF;
837:
850: , p_line_tbl => l_line_tbl
851: , p_old_line_tbl => l_old_line_tbl);
852:
853: IF l_debug_level > 0 THEN
854: oe_debug_pub.add
855: ('return status Process_Requests_And_Notify() '||L_RETURN_STATUS , 3 ) ;
856: END IF;
857:
858: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
889: x_msg_data => l_msg_data);
890:
891: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
892: IF l_debug_level > 0 THEN
893: oe_debug_pub.add
894: (' ( MLP_DBG ) CALL TO GET_OPM_ITEM_FROM APPS FAILED' , 1 ) ;
895: END IF;
896: RAISE FND_API.G_EXC_ERROR;
897: END IF; */
907:
908: IF l_line_rec.item_type_code = 'CONFIG' THEN
909:
910: IF l_debug_level > 0 THEN
911: oe_debug_pub.add('config line, complete ato model '
912: || l_line_rec.ato_line_id, 2);
913: END IF;
914:
915: Handle_Config_Parent
919: l_result_code := 'SHIP_CONFIRM';
920:
921: -- Log a delayed request for Complete Activity, 1739574
922: IF l_debug_level > 0 THEN
923: oe_debug_pub.add( 'LOGGING DELAYED REQUEST FOR '
924: || L_LINE_REC.LINE_ID , 3 ) ;
925: END IF;
926:
927: OE_Delayed_Requests_Pvt.Log_Request
951: SET SET_STATUS = 'C'
952: WHERE SET_ID = l_line_rec.arrival_set_id;
953:
954: IF l_debug_level > 0 THEN
955: oe_debug_pub.add('SET IS CLOSED : '
956: ||TO_CHAR ( L_LINE_REC.ARRIVAL_SET_ID ) , 3 ) ;
957: END IF;
958: END IF;
959: END IF; --4437814
967: G_DEBUG_MSG := G_DEBUG_MSG || '33,';
968: END IF;
969:
970: IF l_debug_level > 0 THEN
971: oe_debug_pub.add( ' ( MLP_DBG ) ORDERED_QUANTITY IS '
972: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ORDERED_QUANTITY , 1 ) ;
973: END IF;
974:
975: l_changed_attributes(l_shp_index).ordered_quantity2
975: l_changed_attributes(l_shp_index).ordered_quantity2
976: := l_line_rec.ordered_quantity2;
977:
978: IF l_debug_level > 0 THEN
979: oe_debug_pub.add( ' ( MLP_DBG ).ORDERED_QUANTITY2 IS '
980: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ORDERED_QUANTITY2 , 1 ) ;
981: END IF;
982:
983: -- odaboval : End of OPM Changes
996: OE_GLOBALS.G_OPR_DELETE THEN
997:
998: l_changed_attributes(l_shp_index).ordered_quantity := 0;
999: IF l_debug_level > 0 THEN
1000: OE_DEBUG_PUB.Add('This is Config cancel/delete case!',1);
1001: OE_DEBUG_PUB.Add('Overrriden Ord qty to 0',1);
1002: END IF;
1003:
1004: END IF;
997:
998: l_changed_attributes(l_shp_index).ordered_quantity := 0;
999: IF l_debug_level > 0 THEN
1000: OE_DEBUG_PUB.Add('This is Config cancel/delete case!',1);
1001: OE_DEBUG_PUB.Add('Overrriden Ord qty to 0',1);
1002: END IF;
1003:
1004: END IF;
1005: --bug3831490 ends }
1005: --bug3831490 ends }
1006:
1007:
1008: IF l_debug_level > 0 THEN
1009: oe_debug_pub.add( ' ( MLP_DBG ).ORDERED_QUANTITY IS '
1010: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ORDERED_QUANTITY , 1 ) ;
1011: END IF;
1012:
1013: l_changed_attributes(l_shp_index).ordered_quantity2
1013: l_changed_attributes(l_shp_index).ordered_quantity2
1014: := l_line_rec.ordered_quantity2;
1015:
1016: IF l_debug_level > 0 THEN
1017: oe_debug_pub.add(' ( MLP_DBG ).ORDERED_QUANTITY2 IS '
1018: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ORDERED_QUANTITY2 , 1 ) ;
1019: END IF;
1020: -- odaboval : End of OPM Changes
1021: END IF; -- p_update_lines_tbl(l_line_index).param5 etc
1021: END IF; -- p_update_lines_tbl(l_line_index).param5 etc
1022:
1023:
1024: IF l_debug_level > 0 THEN
1025: oe_debug_pub.add( 'ORDERED QUANTITY '
1026: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ORDERED_QUANTITY, 3 ) ;
1027: END IF;
1028:
1029: l_changed_attributes(l_shp_index).order_quantity_uom
1054: l_changed_attributes(l_shp_index).freight_terms_code
1055: := l_line_rec.freight_terms_code;
1056:
1057: IF l_debug_level > 0 THEN
1058: oe_debug_pub.add( 'FREIGHT TERMS CODE '
1059: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .FREIGHT_TERMS_CODE , 3 ) ;
1060: END IF;
1061:
1062: l_changed_attributes(l_shp_index).shipment_priority_code
1115: l_force_ui := 'Y';
1116: END IF;
1117:
1118: IF l_debug_level > 0 THEN
1119: oe_debug_pub.add( 'SUB-INVENTORY '
1120: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .SUBINVENTORY , 3 ) ;
1121: END IF;
1122:
1123:
1127: IF g_debug_call > 0 THEN
1128: G_DEBUG_MSG := G_DEBUG_MSG || '39,';
1129: END IF;
1130: IF l_debug_level > 0 THEN
1131: oe_debug_pub.add( 'PROJECT_ID:'
1132: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .PROJECT_ID , 3 ) ;
1133: END IF;
1134:
1135: l_changed_attributes(l_shp_index).task_id
1136: := l_line_rec.task_id;
1137:
1138:
1139: IF l_debug_level > 0 THEN
1140: oe_debug_pub.add( 'TASK_ID:'
1141: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .TASK_ID , 3 ) ;
1142: END IF;
1143:
1144: IF g_debug_call > 0 THEN
1217: -- l_changed_attributes(l_shp_index).customer_item_id := l_line_rec.ordered_item_id;
1218: /* End of changes for ER 6110708 */
1219:
1220: IF l_debug_level > 0 THEN
1221: oe_debug_pub.add('LINE-NUMBER '
1222: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .LINE_NUMBER , 3 ) ;
1223: END IF;
1224:
1225: <
1227:
1228: END LOOP; -- big loop
1229:
1230: IF l_debug_level > 0 THEN
1231: oe_debug_pub.add( 'COMMING OUT LOOP , NUMBER OF RECORDS '
1232: ||L_CHANGED_ATTRIBUTES.COUNT , 3 ) ;
1233:
1234: END IF;
1235: IF g_debug_call > 0 THEN
1241:
1242: IF l_changed_attributes.count > 0 THEN
1243:
1244: IF l_debug_level > 0 THEN
1245: oe_debug_pub.add('CALLING WSH UPDATE_SHIPPING_ATTRIBUTES' , 2 ) ;
1246:
1247: END IF;
1248:
1249: IF (NVL(FND_PROFILE.VALUE('WSH_ENABLE_DCP'), -1) = 1 OR
1261: ,p_changed_attributes => l_changed_attributes
1262: ,x_return_status => l_return_status);
1263:
1264: IF l_debug_level > 0 THEN
1265: oe_debug_pub.add( 'RETURNED FROM WSH UPDATE_SHIPPING_ATTRIBUTES '
1266: || L_RETURN_STATUS , 2 ) ;
1267: END IF;
1268:
1269: IF g_debug_call > 0 THEN
1274:
1275: --Changes for Bug - 2898616
1276: IF l_force_ui = 'Y' THEN
1277: IF l_debug_level > 0 THEN
1278: oe_debug_pub.add('Setting the global to force UI Block',2);
1279: END IF;
1280: OE_GLOBALS.G_FORCE_CLEAR_UI_BLOCK := 'Y';
1281: END IF;
1282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1283: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1284: -- 3571148 changes
1285: IF l_debug_level > 0 THEN
1286: oe_debug_pub.add( ' INSIDE EXPECTED ERROR' , 1 ) ;
1287: END IF;
1288: OE_MSG_PUB.Transfer_Msg_Stack(p_type => 'ERROR' ); --bug4741573
1289: l_msg_count := OE_MSG_PUB.COUNT_MSG;
1290:
1290:
1291: FOR I IN 1..l_msg_count LOOP
1292: l_msg_data := OE_MSG_PUB.Get(I,'F');
1293: IF l_debug_level > 0 THEN
1294: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1295: END IF;
1296: --code fix bug 6391881 :START
1297: IF ( InStr(l_msg_data, 'WSH_NO_DATA_FOUND') > 0 ) THEN
1298: oe_debug_pub.ADD('Bug 6391881: Setting l_wsh_no_data_found to true...' , 1);
1294: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1295: END IF;
1296: --code fix bug 6391881 :START
1297: IF ( InStr(l_msg_data, 'WSH_NO_DATA_FOUND') > 0 ) THEN
1298: oe_debug_pub.ADD('Bug 6391881: Setting l_wsh_no_data_found to true...' , 1);
1299: l_wsh_no_data_found := TRUE;
1300: END IF;
1301: --code fix bug 6391881 :END
1302: END LOOP; -- 3571148 ends
1301: --code fix bug 6391881 :END
1302: END LOOP; -- 3571148 ends
1303: IF l_force_ui = 'Y' THEN
1304: IF l_debug_level > 0 THEN
1305: oe_debug_pub.add('Setting the global to force UI Block',2);
1306: END IF;
1307: OE_GLOBALS.G_FORCE_CLEAR_UI_BLOCK := 'Y';
1308: END IF;
1309: -- Start: Changes for bug 6391881
1308: END IF;
1309: -- Start: Changes for bug 6391881
1310: -- Check if we are coming from wsh_no_data_found error.
1311: IF ( l_wsh_no_data_found = TRUE) THEN
1312: oe_debug_pub.ADD('Bug 6391881::: Checking for cancellation...' , 1);
1313: FOR I in 1..l_changed_attributes.count LOOP
1314: IF ( l_changed_attributes(I).action_flag = 'U' AND
1315: l_changed_attributes(I).ordered_quantity = 0 ) THEN
1316: oe_debug_pub.ADD('Bug 6391881::: Cancellation is YES.', 1);
1312: oe_debug_pub.ADD('Bug 6391881::: Checking for cancellation...' , 1);
1313: FOR I in 1..l_changed_attributes.count LOOP
1314: IF ( l_changed_attributes(I).action_flag = 'U' AND
1315: l_changed_attributes(I).ordered_quantity = 0 ) THEN
1316: oe_debug_pub.ADD('Bug 6391881::: Cancellation is YES.', 1);
1317: -- Check for existence of non-cancelled delivery details.
1318: -- If they exist, cancellation is not allowed.
1319: DECLARE
1320: l_non_cxl_dd_count NUMBER := -1;
1334: AND wdd.source_code = 'OE'
1335: AND wdd.source_line_id = l_changed_attributes(I).source_line_id
1336: AND Nvl(wdd.released_status, 'N') <> 'D'
1337: ;
1338: oe_debug_pub.ADD('Bug 6391881::: l_non_cxl_dd_count: '
1339: || l_non_cxl_dd_count, 1);
1340: IF ( l_non_cxl_dd_count > 0 ) THEN
1341: oe_debug_pub.ADD('Bug 6391881::: Setting l_ok_to_cancel to false...', 1);
1342: l_ok_to_cancel := FALSE;
1337: ;
1338: oe_debug_pub.ADD('Bug 6391881::: l_non_cxl_dd_count: '
1339: || l_non_cxl_dd_count, 1);
1340: IF ( l_non_cxl_dd_count > 0 ) THEN
1341: oe_debug_pub.ADD('Bug 6391881::: Setting l_ok_to_cancel to false...', 1);
1342: l_ok_to_cancel := FALSE;
1343: ELSE
1344: oe_debug_pub.ADD('Bug 6391881::: Setting l_return_status to SUCCESS...', 1);
1345: l_msg_data := NULL;
1340: IF ( l_non_cxl_dd_count > 0 ) THEN
1341: oe_debug_pub.ADD('Bug 6391881::: Setting l_ok_to_cancel to false...', 1);
1342: l_ok_to_cancel := FALSE;
1343: ELSE
1344: oe_debug_pub.ADD('Bug 6391881::: Setting l_return_status to SUCCESS...', 1);
1345: l_msg_data := NULL;
1346: l_return_status := FND_API.G_RET_STS_SUCCESS;
1347: oe_msg_pub.delete_msg;
1348: END IF;
1357: END LOOP;
1358: END IF; -- on l_wsh_no_data_found
1359:
1360: IF l_wsh_no_data_found = TRUE THEN
1361: oe_debug_pub.ADD('Bug 6391881::: l_wsh_no_data_found is true.', 1);
1362: ELSE
1363: oe_debug_pub.ADD('Bug 6391881::: l_wsh_data_found is false.', 1);
1364: END IF;
1365:
1359:
1360: IF l_wsh_no_data_found = TRUE THEN
1361: oe_debug_pub.ADD('Bug 6391881::: l_wsh_no_data_found is true.', 1);
1362: ELSE
1363: oe_debug_pub.ADD('Bug 6391881::: l_wsh_data_found is false.', 1);
1364: END IF;
1365:
1366: IF l_ok_to_cancel = TRUE THEN
1367: oe_debug_pub.ADD('Bug 6391881::: l_ok_to_cancel is true.', 1);
1363: oe_debug_pub.ADD('Bug 6391881::: l_wsh_data_found is false.', 1);
1364: END IF;
1365:
1366: IF l_ok_to_cancel = TRUE THEN
1367: oe_debug_pub.ADD('Bug 6391881::: l_ok_to_cancel is true.', 1);
1368: ELSE
1369: oe_debug_pub.ADD('Bug 6391881::: l_ok_to_cancel is false.', 1);
1370: END IF;
1371:
1365:
1366: IF l_ok_to_cancel = TRUE THEN
1367: oe_debug_pub.ADD('Bug 6391881::: l_ok_to_cancel is true.', 1);
1368: ELSE
1369: oe_debug_pub.ADD('Bug 6391881::: l_ok_to_cancel is false.', 1);
1370: END IF;
1371:
1372: IF NOT ( l_wsh_no_data_found = TRUE AND l_ok_to_cancel = TRUE ) THEN
1373: RAISE fnd_api.g_exc_error;
1386:
1387: IF l_changed_attributes.COUNT = 1 AND
1388: l_changed_attributes(1).action_flag = 'D' THEN
1389: IF l_debug_level > 0 THEN
1390: oe_debug_pub.add('action delete, do not call dcp here',2);
1391: END IF;
1392: l_msg_data := null;
1393: END IF;
1394:
1412:
1413: WSH_DCP_PVT.g_dc_table.DELETE;
1414:
1415: IF l_debug_level > 0 THEN
1416: oe_debug_pub.add('CALLING WSH_DCP_PVT.Check_Scripts '
1417: ||'l_header-'|| l_header_id, 1);
1418: END IF;
1419:
1420: WSH_DCP_PVT.Check_Scripts
1422: ,p_source_line_id => l_line_id
1423: ,x_data_inconsistent => l_msg_data);
1424:
1425: IF l_debug_level > 0 THEN
1426: oe_debug_pub.add
1427: ('CALLING WSH_DCP_PVT.Post_Process '|| l_msg_data, 1);
1428: END IF;
1429:
1430: WSH_DCP_PVT.Post_Process
1433:
1434: EXCEPTION
1435: WHEN WSH_DCP_PVT.dcp_caught THEN
1436: IF l_debug_level > 0 THEN
1437: oe_debug_pub.add('OM call to WSH DCP Caught,
1438: rollback and call wsh again', 1);
1439: END IF;
1440:
1441: ROLLBACK to CATCH_DCP;
1444: WHEN others THEN
1445: IF l_debug_level > 0 THEN
1446: oe_msg_pub.add_text
1447: ('Update_Shipping_From_OE, DCP post process'|| sqlerrm);
1448: oe_debug_pub.add('OM call to WSH DCP,others '|| sqlerrm, 1);
1449: END IF;
1450: END;
1451: END IF; -- profile is yes
1452: END IF; -- return status check
1454: ELSE
1455:
1456: l_return_status := FND_API.G_RET_STS_SUCCESS;
1457: IF l_debug_level > 0 THEN
1458: oe_debug_pub.add('DO NOT CALL SHIPPING API,RETURN SUCCESS ',3);
1459: END IF;
1460:
1461: END IF;-- count is 0
1462:
1470:
1471: IF l_changed_attributes(I).action_flag = 'U' AND
1472: l_changed_attributes(I).ordered_quantity = 0 THEN
1473:
1474: OE_DEBUG_PUB.add('order line id '||l_changed_attributes(I).source_line_id,5);
1475: OE_DEBUG_PUB.add('action flag '||l_changed_attributes(I).action_flag,5);
1476: OE_DEBUG_PUB.add('ordered quantity '||l_changed_attributes(I).ordered_quantity,5);
1477:
1478: BEGIN
1471: IF l_changed_attributes(I).action_flag = 'U' AND
1472: l_changed_attributes(I).ordered_quantity = 0 THEN
1473:
1474: OE_DEBUG_PUB.add('order line id '||l_changed_attributes(I).source_line_id,5);
1475: OE_DEBUG_PUB.add('action flag '||l_changed_attributes(I).action_flag,5);
1476: OE_DEBUG_PUB.add('ordered quantity '||l_changed_attributes(I).ordered_quantity,5);
1477:
1478: BEGIN
1479:
1472: l_changed_attributes(I).ordered_quantity = 0 THEN
1473:
1474: OE_DEBUG_PUB.add('order line id '||l_changed_attributes(I).source_line_id,5);
1475: OE_DEBUG_PUB.add('action flag '||l_changed_attributes(I).action_flag,5);
1476: OE_DEBUG_PUB.add('ordered quantity '||l_changed_attributes(I).ordered_quantity,5);
1477:
1478: BEGIN
1479:
1480: SELECT COUNT(*)
1484: AND SOURCE_CODE = 'OE'
1485: AND RELEASED_STATUS <> 'D';
1486:
1487: IF l_cxl_dd_count > 0 THEN
1488: OE_DEBUG_PUB.add('DD is not cancelled',1);
1489: fnd_message.set_name('ONT', 'OE_CANCEL_NOTHING');
1490: oe_msg_pub.add;
1491: RAISE FND_API.G_EXC_ERROR ;
1492:
1499:
1500: END LOOP;
1501:
1502: IF l_debug_level > 0 THEN -- debug level 0.5 added for bug 13435459
1503: oe_debug_pub.add('Exit update_shipping_from_oe() at ',0.5);
1504: END IF;
1505:
1506: EXCEPTION
1507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1537: 'Update_Shipping_From_OE'
1538: );
1539: END IF;
1540: IF l_debug_level > 0 THEN
1541: oe_debug_pub.add( 'ERROR MESSAGE : '||SQLERRM , 1 ) ;
1542: END IF;
1543: OE_MSG_PUB.Save_API_Messages(); --bug 4516453
1544: OE_MSG_PUB.Reset_Msg_Context (p_entity_code => 'LINE');
1545: IF g_debug_call > 0 THEN
1560: )
1561: IS
1562: l_update_lines_tbl OE_ORDER_PUB.Request_Tbl_Type;
1563: --
1564: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1565: --
1566: BEGIN
1567:
1568: IF l_debug_level > 0 THEN
1565: --
1566: BEGIN
1567:
1568: IF l_debug_level > 0 THEN
1569: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PVT.UPDATE_SHIPPING_PVT' , 1 ) ;
1570: END IF;
1571: IF g_debug_call > 0 THEN
1572: G_DEBUG_MSG := G_DEBUG_MSG || '51,';
1573: END IF;
1603: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1604: RAISE FND_API.G_EXC_ERROR;
1605: END IF;
1606: IF l_debug_level > 0 THEN
1607: oe_debug_pub.add( 'EXITING OE_SHIPPING_INTEGRATION_PVT.UPDATE_SHIPPING_PVT' , 1 ) ;
1608: END IF;
1609: IF g_debug_call > 0 THEN
1610: G_DEBUG_MSG := G_DEBUG_MSG || '54,';
1611: END IF;
1636: 'Update_Shipping_PVT'
1637: );
1638: END IF;
1639: IF l_debug_level > 0 THEN
1640: oe_debug_pub.add( 'ERROR MESSAGE : '||SQLERRM , 1 ) ;
1641: END IF;
1642: IF g_debug_call > 0 THEN
1643: G_DEBUG_MSG := G_DEBUG_MSG || 'E7,';
1644: END IF;
1676: l_org_id NUMBER;
1677: l_wdd_count NUMBER :=0;
1678:
1679: --
1680: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1681: --
1682: BEGIN
1683:
1684: IF l_debug_level > 0 THEN
1681: --
1682: BEGIN
1683:
1684: IF l_debug_level > 0 THEN
1685: oe_debug_pub.add
1686: ('ENTERING OE_SHIPPING_INTEGRATION_PVT.CHECK_SHIPMENT_LINE : '
1687: ||TO_CHAR ( P_LINE_REC.LINE_ID ) ||'/'||TO_CHAR ( P_SHIPPED_QUANTITY )
1688: ||'/'||P_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
1689: END IF;
1721: FROM OE_ORDER_LINES
1722: WHERE line_id = p_line_rec.top_model_line_id;
1723:
1724: IF l_debug_level > 0 THEN
1725: oe_debug_pub.add('SHIPPED QUANTITY : '
1726: ||TO_CHAR ( L_LINE_REC.SHIPPED_QUANTITY ) , 3 ) ;
1727: END IF;
1728: IF g_debug_call > 0 THEN
1729: G_DEBUG_MSG := G_DEBUG_MSG || '62,';
1755: -- Call Get_Quantity to get the cumulative ordered and shipped quantity if
1756: -- this line is part of any line set - only for oe table
1757:
1758: IF l_debug_level > 0 THEN
1759: oe_debug_pub.add('LINE SET ID '||TO_CHAR(L_LINE_REC.LINE_SET_ID),3);
1760: END IF;
1761:
1762: IF l_line_rec.line_set_id IS NOT NULL AND
1763: l_line_rec.line_set_id <> FND_API.G_MISS_NUM THEN
1808: l_tolerance_quantity_below := FLOOR(l_tolerance_quantity_below);
1809:
1810: ELSE
1811: IF l_debug_level > 0 THEN
1812: oe_debug_pub.add('CALLING INVENTORY VALIDATE QUANTITY : '
1813: ||L_QTY_RETURN_STATUS , 2 ) ;
1814: END IF;
1815:
1816:
1823: x_primary_quantity => l_primary_quantity,
1824: x_return_status => l_qty_return_status);
1825:
1826: IF l_debug_level > 0 THEN
1827: oe_debug_pub.add('RET STS FROM INV API : '||L_QTY_RETURN_STATUS , 2 ) ;
1828: END IF;
1829:
1830: IF g_debug_call > 0 THEN
1831: G_DEBUG_MSG := G_DEBUG_MSG || '6-6';
1833:
1834: IF l_qty_return_status IN ('W','S') THEN
1835:
1836: IF l_debug_level > 0 THEN
1837: oe_debug_pub.add('TOL BELOW/VALID QTY : '
1838: ||TO_CHAR ( L_TOLERANCE_QUANTITY_BELOW )
1839: ||'/'||TO_CHAR ( L_VALIDATED_QUANTITY ) , 3 ) ;
1840: END IF;
1841:
1853: ('MODEL', 'OPTION','KIT','CLASS','INCLUDED','CONFIG') THEN
1854: l_tolerance_quantity_above := CEIL(l_tolerance_quantity_above);
1855: ELSE
1856: IF l_debug_level > 0 THEN
1857: oe_debug_pub.add('CALLING INVENTORY VALIDATE QUANTITY : '
1858: ||L_QTY_RETURN_STATUS , 2 ) ;
1859: END IF;
1860:
1861: Inv_Decimals_PUB.Validate_Quantity
1867: x_primary_quantity => l_primary_quantity,
1868: x_return_status => l_qty_return_status);
1869:
1870: IF l_debug_level > 0 THEN
1871: oe_debug_pub.add('RETURN STATUS FROM INV API : '
1872: ||L_QTY_RETURN_STATUS , 2 ) ;
1873: END IF;
1874:
1875: IF l_qty_return_status IN ('W','S') THEN
1873: END IF;
1874:
1875: IF l_qty_return_status IN ('W','S') THEN
1876: IF l_debug_level > 0 THEN
1877: oe_debug_pub.add( 'TOL ABOVE/VALID QTY : '
1878: ||TO_CHAR ( L_TOLERANCE_QUANTITY_ABOVE )
1879: ||'/'||TO_CHAR ( L_VALIDATED_QUANTITY ) , 3 ) ;
1880: END IF;
1881:
1893: ---------- done with getting tol above and below.
1894:
1895:
1896: IF l_debug_level > 0 THEN
1897: oe_debug_pub.add('ORDERED QUANTITY ' || TO_CHAR ( L_ORDERED_QUANTITY),3 );
1898: oe_debug_pub.add('SHIPPED QUANTITY ' || TO_CHAR ( L_SHIPPED_QUANTITY),3 );
1899: oe_debug_pub.add('SHIPPING QUANTITY ' || TO_CHAR( L_SHIPPING_QUANTITY),3 );
1900: oe_debug_pub.add('TOLERANCE BELOW ' || TO_CHAR (L_SHIP_TOLERANCE_BELOW),3 );
1901: oe_debug_pub.add('TOLERAQNCE ABOVE ' || TO_CHAR(L_SHIP_TOLERANCE_ABOVE),3 );
1894:
1895:
1896: IF l_debug_level > 0 THEN
1897: oe_debug_pub.add('ORDERED QUANTITY ' || TO_CHAR ( L_ORDERED_QUANTITY),3 );
1898: oe_debug_pub.add('SHIPPED QUANTITY ' || TO_CHAR ( L_SHIPPED_QUANTITY),3 );
1899: oe_debug_pub.add('SHIPPING QUANTITY ' || TO_CHAR( L_SHIPPING_QUANTITY),3 );
1900: oe_debug_pub.add('TOLERANCE BELOW ' || TO_CHAR (L_SHIP_TOLERANCE_BELOW),3 );
1901: oe_debug_pub.add('TOLERAQNCE ABOVE ' || TO_CHAR(L_SHIP_TOLERANCE_ABOVE),3 );
1902: oe_debug_pub.add('TOLE QTY BELOW '||TO_CHAR(L_TOLERANCE_QUANTITY_BELOW),3 );
1895:
1896: IF l_debug_level > 0 THEN
1897: oe_debug_pub.add('ORDERED QUANTITY ' || TO_CHAR ( L_ORDERED_QUANTITY),3 );
1898: oe_debug_pub.add('SHIPPED QUANTITY ' || TO_CHAR ( L_SHIPPED_QUANTITY),3 );
1899: oe_debug_pub.add('SHIPPING QUANTITY ' || TO_CHAR( L_SHIPPING_QUANTITY),3 );
1900: oe_debug_pub.add('TOLERANCE BELOW ' || TO_CHAR (L_SHIP_TOLERANCE_BELOW),3 );
1901: oe_debug_pub.add('TOLERAQNCE ABOVE ' || TO_CHAR(L_SHIP_TOLERANCE_ABOVE),3 );
1902: oe_debug_pub.add('TOLE QTY BELOW '||TO_CHAR(L_TOLERANCE_QUANTITY_BELOW),3 );
1903: oe_debug_pub.add('TOLE QTY ABOVE '|| TO_CHAR(L_TOLERANCE_QUANTITY_ABOVE),3 );
1896: IF l_debug_level > 0 THEN
1897: oe_debug_pub.add('ORDERED QUANTITY ' || TO_CHAR ( L_ORDERED_QUANTITY),3 );
1898: oe_debug_pub.add('SHIPPED QUANTITY ' || TO_CHAR ( L_SHIPPED_QUANTITY),3 );
1899: oe_debug_pub.add('SHIPPING QUANTITY ' || TO_CHAR( L_SHIPPING_QUANTITY),3 );
1900: oe_debug_pub.add('TOLERANCE BELOW ' || TO_CHAR (L_SHIP_TOLERANCE_BELOW),3 );
1901: oe_debug_pub.add('TOLERAQNCE ABOVE ' || TO_CHAR(L_SHIP_TOLERANCE_ABOVE),3 );
1902: oe_debug_pub.add('TOLE QTY BELOW '||TO_CHAR(L_TOLERANCE_QUANTITY_BELOW),3 );
1903: oe_debug_pub.add('TOLE QTY ABOVE '|| TO_CHAR(L_TOLERANCE_QUANTITY_ABOVE),3 );
1904: END IF;
1897: oe_debug_pub.add('ORDERED QUANTITY ' || TO_CHAR ( L_ORDERED_QUANTITY),3 );
1898: oe_debug_pub.add('SHIPPED QUANTITY ' || TO_CHAR ( L_SHIPPED_QUANTITY),3 );
1899: oe_debug_pub.add('SHIPPING QUANTITY ' || TO_CHAR( L_SHIPPING_QUANTITY),3 );
1900: oe_debug_pub.add('TOLERANCE BELOW ' || TO_CHAR (L_SHIP_TOLERANCE_BELOW),3 );
1901: oe_debug_pub.add('TOLERAQNCE ABOVE ' || TO_CHAR(L_SHIP_TOLERANCE_ABOVE),3 );
1902: oe_debug_pub.add('TOLE QTY BELOW '||TO_CHAR(L_TOLERANCE_QUANTITY_BELOW),3 );
1903: oe_debug_pub.add('TOLE QTY ABOVE '|| TO_CHAR(L_TOLERANCE_QUANTITY_ABOVE),3 );
1904: END IF;
1905:
1898: oe_debug_pub.add('SHIPPED QUANTITY ' || TO_CHAR ( L_SHIPPED_QUANTITY),3 );
1899: oe_debug_pub.add('SHIPPING QUANTITY ' || TO_CHAR( L_SHIPPING_QUANTITY),3 );
1900: oe_debug_pub.add('TOLERANCE BELOW ' || TO_CHAR (L_SHIP_TOLERANCE_BELOW),3 );
1901: oe_debug_pub.add('TOLERAQNCE ABOVE ' || TO_CHAR(L_SHIP_TOLERANCE_ABOVE),3 );
1902: oe_debug_pub.add('TOLE QTY BELOW '||TO_CHAR(L_TOLERANCE_QUANTITY_BELOW),3 );
1903: oe_debug_pub.add('TOLE QTY ABOVE '|| TO_CHAR(L_TOLERANCE_QUANTITY_ABOVE),3 );
1904: END IF;
1905:
1906:
1899: oe_debug_pub.add('SHIPPING QUANTITY ' || TO_CHAR( L_SHIPPING_QUANTITY),3 );
1900: oe_debug_pub.add('TOLERANCE BELOW ' || TO_CHAR (L_SHIP_TOLERANCE_BELOW),3 );
1901: oe_debug_pub.add('TOLERAQNCE ABOVE ' || TO_CHAR(L_SHIP_TOLERANCE_ABOVE),3 );
1902: oe_debug_pub.add('TOLE QTY BELOW '||TO_CHAR(L_TOLERANCE_QUANTITY_BELOW),3 );
1903: oe_debug_pub.add('TOLE QTY ABOVE '|| TO_CHAR(L_TOLERANCE_QUANTITY_ABOVE),3 );
1904: END IF;
1905:
1906:
1907:
1922: l_line_rec.order_quantity_uom,
1923: l_shipping_quantity);
1924:
1925: IF l_debug_level > 0 THEN
1926: oe_debug_pub.add('CONVERTED SHIPPED QUANTITY : '
1927: || TO_CHAR ( L_TEMP_SHIPPED_QUANTITY),3 );
1928: END IF;
1929:
1930: IF g_debug_call > 0 THEN
1932: END IF;
1933:
1934: IF l_temp_shipped_quantity <> trunc(l_temp_shipped_quantity) THEN
1935: IF l_debug_level > 0 THEN
1936: oe_debug_pub.add('CALLING INVENTORY VALIDATE QUANTITY : '
1937: ||L_QTY_RETURN_STATUS , 2 );
1938: END IF;
1939:
1940: Inv_Decimals_PUB.Validate_Quantity
1946: x_primary_quantity => l_primary_quantity,
1947: x_return_status => l_qty_return_status);
1948:
1949: IF l_debug_level > 0 THEN
1950: oe_debug_pub.add('RET STS FROM INV API : '||L_QTY_RETURN_STATUS , 2 );
1951: END IF;
1952:
1953: IF l_qty_return_status = 'W' THEN
1954: IF l_debug_level > 0 THEN
1951: END IF;
1952:
1953: IF l_qty_return_status = 'W' THEN
1954: IF l_debug_level > 0 THEN
1955: oe_debug_pub.add('VALID QTY : '||TO_CHAR ( L_VALIDATED_QUANTITY),3 );
1956: END IF;
1957: l_temp_shipped_quantity := l_validated_quantity;
1958: END IF;
1959:
1957: l_temp_shipped_quantity := l_validated_quantity;
1958: END IF;
1959:
1960: IF l_debug_level > 0 THEN
1961: oe_debug_pub.add( 'VALIDATED SHIPPED QUANTITY : '
1962: || TO_CHAR ( L_TEMP_SHIPPED_QUANTITY),3 );
1963: END IF;
1964:
1965: END IF; -- done validate decimal
1971: x_result_out :=OE_GLOBALS.G_FULLY_SHIPPED;
1972: END IF;
1973:
1974: IF l_debug_level > 0 THEN
1975: OE_DEBUG_PUB.Add('Check the Decimals for Standard Items..Different UOM');
1976: OE_DEBUG_PUB.Add('Changes for Bug-3468847');
1977: END IF;
1978:
1979: IF p_line_rec.item_type_code = 'STANDARD' THEN
1972: END IF;
1973:
1974: IF l_debug_level > 0 THEN
1975: OE_DEBUG_PUB.Add('Check the Decimals for Standard Items..Different UOM');
1976: OE_DEBUG_PUB.Add('Changes for Bug-3468847');
1977: END IF;
1978:
1979: IF p_line_rec.item_type_code = 'STANDARD' THEN
1980:
1988:
1989:
1990: IF l_wdd_count = 0 THEN
1991: IF l_debug_level > 0 THEN
1992: OE_DEBUG_PUB.Add('Delivery Detail Did not Split..');
1993: END IF;
1994: x_result_out := OE_GLOBALS.G_FULLY_SHIPPED;
1995: ELSE
1996: IF l_debug_level > 0 THEN
1993: END IF;
1994: x_result_out := OE_GLOBALS.G_FULLY_SHIPPED;
1995: ELSE
1996: IF l_debug_level > 0 THEN
1997: OE_DEBUG_PUB.Add('Delivery Detail Has Split..');
1998: END IF;
1999: END IF;
2000: END IF;
2001:
2020: END IF;
2021:
2022: -- Bug 5332001
2023: IF l_debug_level > 0 THEN
2024: OE_DEBUG_PUB.add('Checking for complete dropship receipt',1);
2025: END IF;
2026:
2027: IF p_line_rec.source_type_code = 'EXTERNAL' THEN
2028:
2040: FROM OE_DROP_SHIP_SOURCES
2041: WHERE LINE_ID = l_line_rec.line_id);
2042:
2043: IF l_debug_level > 0 THEN
2044: OE_DEBUG_PUB.add('actual quantity '||actual_quantity||' poll received '||poll_received_quantity,1);
2045: END IF;
2046:
2047: IF poll_received_quantity = actual_quantity THEN
2048: x_result_out := OE_GLOBALS.G_FULLY_SHIPPED;
2049: END IF;
2050:
2051: EXCEPTION WHEN OTHERS THEN
2052: IF l_debug_level > 0 THEN
2053: OE_DEBUG_PUB.add('error when checking receipt info '||sqlerrm,1);
2054: END IF;
2055: NULL;
2056: END;
2057:
2058: END IF;
2059: -- Bug 5332001 end
2060:
2061: IF l_debug_level > 0 THEN
2062: oe_debug_pub.add('EXITING FROM CHECK_SHIPMENT_LINE : '||X_RESULT_OUT , 1 );
2063: END IF;
2064:
2065: EXCEPTION
2066: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2089: IF g_debug_call > 0 THEN
2090: G_DEBUG_MSG := G_DEBUG_MSG || 'E9,';
2091: END IF;
2092: IF l_debug_level > 0 THEN
2093: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 );
2094: END IF;
2095: END Check_Shipment_Line;
2096:
2097: /*--------------------------------------------------------------------
2125: l_under_shipped VARCHAR2(1) := FND_API.G_FALSE;
2126: l_line_shipped VARCHAR2(1) := FND_API.G_TRUE;
2127:
2128: --
2129: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2130: --
2131: BEGIN
2132: IF l_debug_level > 0 THEN
2133: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PVT.GET_PTO_SHIPPED_QUANTITY '|| TO_CHAR ( P_TOP_MODEL_LINE_ID ) , 1 ) ;
2129: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2130: --
2131: BEGIN
2132: IF l_debug_level > 0 THEN
2133: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PVT.GET_PTO_SHIPPED_QUANTITY '|| TO_CHAR ( P_TOP_MODEL_LINE_ID ) , 1 ) ;
2134: END IF;
2135:
2136: IF p_top_model_line_id IS NOT NULL AND
2137: p_top_model_line_id <> FND_API.G_MISS_NUM THEN
2153: G_DEBUG_MSG := G_DEBUG_MSG || '71';
2154: END IF;
2155:
2156: IF l_debug_level > 0 THEN
2157: oe_debug_pub.add( 'NUMBER OF LINES IN THE TABLE '|| TO_CHAR ( L_LINE_TBL.COUNT ) , 3 ) ;
2158: END IF;
2159:
2160: -- Populate the local shipment table.
2161:
2164:
2165: IF l_line_tbl(l_line_index).ordered_quantity = 0 THEN
2166:
2167: IF l_debug_level > 0 THEN
2168: oe_debug_pub.add( 'LINE WITH ZERO QUANTITY : '||L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID||'/'||L_LINE_TBL ( L_LINE_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2169: END IF;
2170: GOTO END_PREPARE_LOOP;
2171: END IF;
2172: l_final_index := l_final_index + 1;
2189: l_ship_date := l_line_tbl(l_line_index).actual_shipment_date;
2190:
2191: IF nvl(l_line_tbl(l_line_index).shipped_quantity,0) = 0 THEN
2192: IF l_debug_level > 0 THEN
2193: oe_debug_pub.add( 'LINE IS NOT SHIPPED : '||L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID , 3 ) ;
2194: END IF;
2195: l_line_shipped := FND_API.G_FALSE;
2196: END IF;
2197: ELSE
2201: /* Added for bug 1952023 */
2202: IF nvl(l_line_tbl(l_line_index).shipped_quantity,0) > nvl(l_line_tbl(l_line_index).ordered_quantity,0) THEN
2203:
2204: IF l_debug_level > 0 THEN
2205: oe_debug_pub.add( 'LINE IS OVER SHIPPED '||L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID , 3 ) ;
2206: END IF;
2207: l_over_shipped := FND_API.G_TRUE;
2208:
2209: END IF;
2211: IF nvl(l_line_tbl(l_line_index).shipped_quantity,0) < nvl(l_line_tbl(l_line_index).ordered_quantity,0) AND
2212: nvl(l_line_tbl(l_line_index).shippable_flag,'N') = 'Y' THEN
2213:
2214: IF l_debug_level > 0 THEN
2215: oe_debug_pub.add( 'LINE IS UNDER SHIPPED '||L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID , 3 ) ;
2216: END IF;
2217: l_under_shipped := FND_API.G_TRUE;
2218:
2219: END IF;
2247: l_pto_shipment_tbl(l_pto_index).ratio_to_parent := 1;
2248: END IF;
2249:
2250: IF l_debug_level > 0 THEN
2251: oe_debug_pub.add( 'RATIO TO PARENT = '||TO_CHAR ( L_PTO_SHIPMENT_TBL ( L_PTO_INDEX ) .RATIO_TO_PARENT ) , 3 ) ;
2252: END IF;
2253: IF l_debug_level > 0 THEN
2254: oe_debug_pub.add( 'RATIO TO TOP = '||TO_CHAR ( L_PTO_SHIPMENT_TBL ( L_PTO_INDEX ) .RATIO_TO_TOP_MODEL ) , 3 ) ;
2255: END IF;
2250: IF l_debug_level > 0 THEN
2251: oe_debug_pub.add( 'RATIO TO PARENT = '||TO_CHAR ( L_PTO_SHIPMENT_TBL ( L_PTO_INDEX ) .RATIO_TO_PARENT ) , 3 ) ;
2252: END IF;
2253: IF l_debug_level > 0 THEN
2254: oe_debug_pub.add( 'RATIO TO TOP = '||TO_CHAR ( L_PTO_SHIPMENT_TBL ( L_PTO_INDEX ) .RATIO_TO_TOP_MODEL ) , 3 ) ;
2255: END IF;
2256:
2257: l_pto_index := l_pto_shipment_tbl.NEXT(l_pto_index);
2258:
2278: l_top_index := mod(l_pto_shipment_tbl(l_pto_index).top_model_line_id,OE_GLOBALS.G_BINARY_LIMIT);
2279:
2280: l_parent_shipped_quantity := nvl(l_pto_shipment_tbl(l_pto_index).shipped_quantity,0)/l_pto_shipment_tbl(l_pto_index).ratio_to_parent;
2281: IF l_debug_level > 0 THEN
2282: oe_debug_pub.add( 'SHIPPED QUANTITY FOR PARENT : '|| TO_CHAR ( L_PARENT_SHIPPED_QUANTITY ) , 3 ) ;
2283: END IF;
2284:
2285: IF l_pto_shipment_tbl(l_parent_index).shipped_quantity IS NOT NULL AND
2286: l_pto_shipment_tbl(l_parent_index).shipped_quantity <> l_parent_shipped_quantity THEN
2285: IF l_pto_shipment_tbl(l_parent_index).shipped_quantity IS NOT NULL AND
2286: l_pto_shipment_tbl(l_parent_index).shipped_quantity <> l_parent_shipped_quantity THEN
2287:
2288: IF l_debug_level > 0 THEN
2289: oe_debug_pub.add( 'PTO HAS NOT BEEN SHIPPED IN PROPORTION ' , 3 ) ;
2290: END IF;
2291: l_ratio_status := FND_API.G_FALSE;
2292: GOTO END_CALCULATE_SHIPPED_QUANTITY;
2293: ELSE
2296:
2297: IF l_pto_shipment_tbl(l_parent_index).shipped_quantity <> trunc(l_pto_shipment_tbl(l_parent_index).shipped_quantity) THEN
2298:
2299: IF l_debug_level > 0 THEN
2300: oe_debug_pub.add( 'SHIPPED QUANTITY IN DECIMAL '||TO_CHAR ( L_PTO_SHIPMENT_TBL ( L_PARENT_INDEX ) .SHIPPED_QUANTITY ) , 3 ) ;
2301: END IF;
2302: l_ratio_status := FND_API.G_FALSE;
2303: GOTO END_CALCULATE_SHIPPED_QUANTITY;
2304:
2305: END IF;
2306:
2307: l_top_shipped_quantity := nvl(l_pto_shipment_tbl(l_pto_index).shipped_quantity,0)/l_pto_shipment_tbl(l_pto_index).ratio_to_top_model;
2308: IF l_debug_level > 0 THEN
2309: oe_debug_pub.add( 'SHIPPED QUANTITY FOR TOP MODEL : '|| TO_CHAR ( L_TOP_SHIPPED_QUANTITY ) , 3 ) ;
2310: END IF;
2311:
2312: IF l_pto_shipment_tbl(l_top_index).shipped_quantity IS NOT NULL AND
2313: l_pto_shipment_tbl(l_top_index).shipped_quantity <> l_top_shipped_quantity THEN
2312: IF l_pto_shipment_tbl(l_top_index).shipped_quantity IS NOT NULL AND
2313: l_pto_shipment_tbl(l_top_index).shipped_quantity <> l_top_shipped_quantity THEN
2314:
2315: IF l_debug_level > 0 THEN
2316: oe_debug_pub.add( 'PTO HAS NOT BEEN SHIPPED IN PROPORTION ' , 3 ) ;
2317: END IF;
2318: l_ratio_status := FND_API.G_FALSE;
2319: GOTO END_CALCULATE_SHIPPED_QUANTITY;
2320: ELSE
2323:
2324: IF l_pto_shipment_tbl(l_top_index).shipped_quantity <> trunc(l_pto_shipment_tbl(l_top_index).shipped_quantity) THEN
2325:
2326: IF l_debug_level > 0 THEN
2327: oe_debug_pub.add( 'SHIPPED QUANTITY IN DECIMAL '||TO_CHAR ( L_PTO_SHIPMENT_TBL ( L_TOP_INDEX ) .SHIPPED_QUANTITY ) , 3 ) ;
2328: END IF;
2329: l_ratio_status := FND_API.G_FALSE;
2330: GOTO END_CALCULATE_SHIPPED_QUANTITY;
2331:
2360:
2361: END IF;
2362:
2363: IF l_debug_level > 0 THEN
2364: oe_debug_pub.add( 'SHIPPED QUANTITY : '||TO_CHAR ( L_PTO_SHIPMENT_TBL ( L_PTO_INDEX ) .SHIPPED_QUANTITY ) , 1 ) ;
2365: END IF;
2366:
2367: l_pto_index := l_pto_shipment_tbl.NEXT(l_pto_index);
2368: END LOOP;
2374:
2375: IF l_line_tbl(l_line_index).ordered_quantity = 0 THEN
2376:
2377: IF l_debug_level > 0 THEN
2378: oe_debug_pub.add( 'LINE WITH ZERO QUANTITY : '||L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID||'/'||L_LINE_TBL ( L_LINE_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2379: END IF;
2380: GOTO END_FINAL_LOOP;
2381: END IF;
2382:
2385:
2386: -- l_pto_index := l_line_tbl(l_line_index).line_id; -- Bug 8795918
2387: l_pto_index := mod(l_line_tbl(l_line_index).line_id,OE_GLOBALS.G_BINARY_LIMIT);
2388: IF l_debug_level > 0 THEN
2389: oe_debug_pub.add( 'INDEX/LINE_ID/FINAL_INDEX '|| TO_CHAR ( L_LINE_INDEX ) ||'/'||P_X_LINE_TBL ( L_FINAL_INDEX ) .LINE_ID||'/'||TO_CHAR ( L_FINAL_INDEX ) , 3 ) ;
2390: END IF;
2391:
2392: IF l_pto_shipment_tbl(l_pto_index).shippable_flag = FND_API.G_FALSE THEN
2393: p_x_line_tbl(l_final_index).shipped_quantity := l_pto_shipment_tbl(l_pto_index).shipped_quantity;
2392: IF l_pto_shipment_tbl(l_pto_index).shippable_flag = FND_API.G_FALSE THEN
2393: p_x_line_tbl(l_final_index).shipped_quantity := l_pto_shipment_tbl(l_pto_index).shipped_quantity;
2394: p_x_line_tbl(l_final_index).actual_shipment_date := l_ship_date;
2395: IF l_debug_level > 0 THEN
2396: oe_debug_pub.add( 'SHIPPED QUANTITY ASSIGNED '||P_X_LINE_TBL ( L_FINAL_INDEX ) .ITEM_TYPE_CODE||TO_CHAR ( P_X_LINE_TBL ( L_FINAL_INDEX ) .SHIPPED_QUANTITY ) , 3 ) ;
2397: END IF;
2398: IF l_debug_level > 0 THEN
2399: oe_debug_pub.add( 'SHIPMENT DATE ASSIGNED '||P_X_LINE_TBL ( L_FINAL_INDEX ) .ITEM_TYPE_CODE||TO_CHAR ( P_X_LINE_TBL ( L_FINAL_INDEX ) .ACTUAL_SHIPMENT_DATE , 'DD-MM-YY' ) , 3 ) ;
2400: END IF;
2395: IF l_debug_level > 0 THEN
2396: oe_debug_pub.add( 'SHIPPED QUANTITY ASSIGNED '||P_X_LINE_TBL ( L_FINAL_INDEX ) .ITEM_TYPE_CODE||TO_CHAR ( P_X_LINE_TBL ( L_FINAL_INDEX ) .SHIPPED_QUANTITY ) , 3 ) ;
2397: END IF;
2398: IF l_debug_level > 0 THEN
2399: oe_debug_pub.add( 'SHIPMENT DATE ASSIGNED '||P_X_LINE_TBL ( L_FINAL_INDEX ) .ITEM_TYPE_CODE||TO_CHAR ( P_X_LINE_TBL ( L_FINAL_INDEX ) .ACTUAL_SHIPMENT_DATE , 'DD-MM-YY' ) , 3 ) ;
2400: END IF;
2401: END IF;
2402:
2403: << END_FINAL_LOOP >>
2411: l_under_shipped = FND_API.G_FALSE AND
2412: l_line_shipped = FND_API.G_TRUE THEN
2413:
2414: IF l_debug_level > 0 THEN
2415: oe_debug_pub.add( 'ONE OF THE LINE HAS BEEN OVER SHIPPED , MAKE THE MODEL REMNANT '||P_X_LINE_TBL ( 1 ) .TOP_MODEL_LINE_ID , 3 ) ;
2416: END IF;
2417:
2418:
2419: update oe_order_lines
2420: set model_remnant_flag = 'Y'
2421: where top_model_line_id = p_x_line_tbl(1).top_model_line_id;
2422:
2423: IF l_debug_level > 0 THEN
2424: oe_debug_pub.add( 'NOW SET THE REMNANT FLAG FOR ALL THE LINES ' , 3 ) ;
2425: END IF;
2426:
2427: FOR l_line_index IN p_x_line_tbl.FIRST .. p_x_line_tbl.LAST
2428: LOOP
2427: FOR l_line_index IN p_x_line_tbl.FIRST .. p_x_line_tbl.LAST
2428: LOOP
2429:
2430: IF l_debug_level > 0 THEN
2431: oe_debug_pub.add( 'LINE/ITEM '||P_X_LINE_TBL ( L_LINE_INDEX ) .LINE_ID||'/'||P_X_LINE_TBL ( L_LINE_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2432: END IF;
2433: p_x_line_tbl(l_line_index).model_remnant_flag := 'Y';
2434:
2435: END LOOP;
2441: x_ratio_status := l_ratio_status;
2442: x_return_status := FND_API.G_RET_STS_SUCCESS;
2443:
2444: IF l_debug_level > 0 THEN
2445: oe_debug_pub.add( 'EXITING OE_SHIPPING_INTEGRATION_PVT.GET_PTO_SHIPPED_QUANTITY ' , 1 ) ;
2446: END IF;
2447: EXCEPTION
2448: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2476: );
2477: END IF;
2478:
2479: IF l_debug_level > 0 THEN
2480: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
2481: END IF;
2482: IF g_debug_call > 0 THEN
2483: G_DEBUG_MSG := G_DEBUG_MSG || 'Shp-E-12';
2484: END IF;
2546: l_ato_line_index NUMBER := 0;
2547: l_set_recursion VARCHAR2(1) := 'N';
2548:
2549: --
2550: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2551: --
2552: BEGIN
2553:
2554: IF l_debug_level > 0 THEN
2551: --
2552: BEGIN
2553:
2554: IF l_debug_level > 0 THEN
2555: oe_debug_pub.add( 'ENTERING SHIP_CONFIRM_PTO_KIT '|| P_TOP_MODEL_LINE_ID , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
2556: END IF;
2557:
2558: -- Call get PTO shipped quantity to get the shipment status and shipped
2559: -- quantities for MODEL and CLASS.
2576: FOR l_pto_index IN 1 .. l_line_tbl.count
2577: LOOP
2578:
2579: IF l_debug_level > 0 THEN
2580: oe_debug_pub.add( 'INDEX/LINE_ID/TOP_MODEL_LINE_ID :'|| TO_CHAR ( L_PTO_INDEX ) || TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) || TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .TOP_MODEL_LINE_ID ) , 3 ) ;
2581: END IF;
2582:
2583: IF l_line_tbl(l_pto_index).line_id =
2584: l_line_tbl(l_pto_index).top_model_line_id THEN
2601:
2602: END LOOP;
2603:
2604: IF l_debug_level > 0 THEN
2605: oe_debug_pub.add( 'TOP MODEL INDEX : '||L_TOP_MODEL_INDEX , 3 ) ;
2606: END IF;
2607: IF l_debug_level > 0 THEN
2608: oe_debug_pub.add( 'ATO LINE INDEX : '||L_ATO_LINE_INDEX , 3 ) ;
2609: END IF;
2604: IF l_debug_level > 0 THEN
2605: oe_debug_pub.add( 'TOP MODEL INDEX : '||L_TOP_MODEL_INDEX , 3 ) ;
2606: END IF;
2607: IF l_debug_level > 0 THEN
2608: oe_debug_pub.add( 'ATO LINE INDEX : '||L_ATO_LINE_INDEX , 3 ) ;
2609: END IF;
2610: IF l_debug_level > 0 THEN
2611: oe_debug_pub.add( 'NEW TOLERANCE VALUE : '||L_UPDATE_TOLERANCE_VALUE , 3 ) ;
2612: END IF;
2607: IF l_debug_level > 0 THEN
2608: oe_debug_pub.add( 'ATO LINE INDEX : '||L_ATO_LINE_INDEX , 3 ) ;
2609: END IF;
2610: IF l_debug_level > 0 THEN
2611: oe_debug_pub.add( 'NEW TOLERANCE VALUE : '||L_UPDATE_TOLERANCE_VALUE , 3 ) ;
2612: END IF;
2613:
2614:
2615: -- Check for shipment status when the ratio is not broken and the ship
2622:
2623: FOR l_pto_index IN l_line_tbl.FIRST .. l_line_tbl.LAST
2624: LOOP
2625: IF l_debug_level > 0 THEN
2626: oe_debug_pub.add( 'INSIDE THE LOOP FOR NON SHIPPABLE LINE : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) ||'/'|| L_LINE_TBL ( L_PTO_INDEX ) .SHIPPED_QUANTITY , 3 ) ;
2627: END IF;
2628:
2629: IF l_debug_level > 0 THEN
2630: oe_debug_pub.add( 'SHIPPABLE FLAG/OPEN FLAG : '|| L_LINE_TBL ( L_PTO_INDEX ) .SHIPPABLE_FLAG||'/'|| L_LINE_TBL ( L_PTO_INDEX ) .OPEN_FLAG , 3 ) ;
2626: oe_debug_pub.add( 'INSIDE THE LOOP FOR NON SHIPPABLE LINE : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) ||'/'|| L_LINE_TBL ( L_PTO_INDEX ) .SHIPPED_QUANTITY , 3 ) ;
2627: END IF;
2628:
2629: IF l_debug_level > 0 THEN
2630: oe_debug_pub.add( 'SHIPPABLE FLAG/OPEN FLAG : '|| L_LINE_TBL ( L_PTO_INDEX ) .SHIPPABLE_FLAG||'/'|| L_LINE_TBL ( L_PTO_INDEX ) .OPEN_FLAG , 3 ) ;
2631: END IF;
2632:
2633: IF nvl(l_line_tbl(l_pto_index).shippable_flag,'N') <> 'Y' THEN
2634:
2634:
2635: l_upd_tbl_index := l_upd_tbl_index + 1;
2636:
2637: IF l_debug_level > 0 THEN
2638: oe_debug_pub.add( 'NONSHIPPABLE INDEX UPD TABLE '|| L_UPD_TBL_INDEX , 3 ) ;
2639: END IF;
2640:
2641: l_update_line_tbl(l_upd_tbl_index) := l_line_tbl(l_pto_index);
2642: l_update_line_tbl(l_upd_tbl_index).operation
2652: l_update_line_tbl(l_upd_tbl_index).ship_tolerance_below
2653: := l_update_tolerance_value;
2654:
2655: IF l_debug_level > 0 THEN
2656: oe_debug_pub.add( 'NEW TOLERANCE = '|| L_UPDATE_LINE_TBL ( L_UPD_TBL_INDEX ) .SHIP_TOLERANCE_BELOW , 3 ) ;
2657: END IF;
2658:
2659: END IF;
2660:
2658:
2659: END IF;
2660:
2661: IF l_debug_level > 0 THEN
2662: oe_debug_pub.add( 'SHIPPED QUANTITY = '|| TO_CHAR ( L_UPDATE_LINE_TBL ( L_UPD_TBL_INDEX ) .SHIPPED_QUANTITY ) , 3 ) ;
2663: END IF;
2664:
2665: END IF;
2666:
2667: END LOOP;
2668:
2669:
2670: IF l_debug_level > 0 THEN
2671: oe_debug_pub.add( 'CALLING PO TO UPDATE SHIPPED QTY FOR NON SHIPPABLE LINES' , 3 ) ;
2672: END IF;
2673:
2674: IF g_debug_call > 0 THEN
2675: G_DEBUG_MSG := G_DEBUG_MSG || 'Shp-8-6';
2712: IF l_line_tbl(l_top_model_index).ordered_quantity =
2713: l_line_tbl(l_top_model_index).shipped_quantity THEN
2714:
2715: IF l_debug_level > 0 THEN
2716: oe_debug_pub.add( 'FULLY SHIPPED , SHIPMENT RATIO IS NOT BROKEN' , 3 ) ;
2717: END IF;
2718: l_x_result_out := OE_GLOBALS.G_FULLY_SHIPPED;
2719:
2720: ELSE
2718: l_x_result_out := OE_GLOBALS.G_FULLY_SHIPPED;
2719:
2720: ELSE
2721: IF l_debug_level > 0 THEN
2722: oe_debug_pub.add( 'NOT FULLY SHIPPED , SHIPMENT RATIO IS NOT BROKEN' , 3 ) ;
2723: END IF;
2724: -- Check the shipment status
2725:
2726: l_ship_tolerance_below
2729: := l_line_tbl(l_top_model_index).ship_tolerance_above;
2730: -- Check the shipment status
2731:
2732: IF l_debug_level > 0 THEN
2733: oe_debug_pub.add( 'CHECKING THE SHIPMENT STATUS FOR LINE : '|| L_LINE_TBL ( L_TOP_MODEL_INDEX ) .LINE_ID || ' ' || L_LINE_TBL ( L_TOP_MODEL_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2734: END IF;
2735:
2736: Check_Shipment_Line
2737: (p_line_rec => l_line_tbl(l_top_model_index),
2746: l_line_tbl(l_top_model_index).ordered_quantity >
2747: l_line_tbl(l_top_model_index).shipped_quantity THEN
2748:
2749: IF l_debug_level > 0 THEN
2750: oe_debug_pub.add( 'CALLING OE_ORDER_PVT.PROCESS_ORDER FOR MODEL LINE' , 3 ) ;
2751: END IF;
2752:
2753: -- Assign the first record of the table for process order for update
2754: -- of the ordered quantity.
2775: l_split_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
2776: l_split_line_tbl(2).split_by := 'SYSTEM';
2777:
2778: IF l_debug_level > 0 THEN
2779: oe_debug_pub.add( 'SPLIT FROM LINE ID : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
2780: END IF;
2781:
2782: IF l_debug_level > 0 THEN
2783: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '|| TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
2779: oe_debug_pub.add( 'SPLIT FROM LINE ID : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
2780: END IF;
2781:
2782: IF l_debug_level > 0 THEN
2783: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '|| TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
2784: END IF;
2785:
2786: IF l_debug_level > 0 THEN
2787: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
2783: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '|| TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
2784: END IF;
2785:
2786: IF l_debug_level > 0 THEN
2787: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
2788: END IF;
2789:
2790: IF l_debug_level > 0 THEN
2791: oe_debug_pub.add( 'ORDERED QUANTITY NEW LINE : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
2787: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
2788: END IF;
2789:
2790: IF l_debug_level > 0 THEN
2791: oe_debug_pub.add( 'ORDERED QUANTITY NEW LINE : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
2792: END IF;
2793:
2794:
2795: l_control_rec := OE_GLOBALS.G_MISS_CONTROL_REC;
2826: RAISE FND_API.G_EXC_ERROR;
2827: END IF;
2828:
2829: IF l_debug_level > 0 THEN
2830: oe_debug_pub.add( 'RET STS FROM PROCESS ORDER: '||L_RETURN_STATUS , 3 ) ;
2831: END IF;
2832: END IF;
2833:
2834: ---------------------- split done -------------------------
2838: FOR l_pto_index IN l_line_tbl.FIRST .. l_line_tbl.LAST
2839: LOOP
2840:
2841: IF l_debug_level > 0 THEN
2842: oe_debug_pub.add( 'INSIDE THE CONFIRM SHIPMENT LOOP : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2843: END IF;
2844: IF l_debug_level > 0 THEN
2845: oe_debug_pub.add( 'INSIDE THE CONFIRM SHIPMENT LOOP : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2846: END IF;
2841: IF l_debug_level > 0 THEN
2842: oe_debug_pub.add( 'INSIDE THE CONFIRM SHIPMENT LOOP : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2843: END IF;
2844: IF l_debug_level > 0 THEN
2845: oe_debug_pub.add( 'INSIDE THE CONFIRM SHIPMENT LOOP : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2846: END IF;
2847:
2848: IF nvl(l_line_tbl(l_pto_index).shippable_flag,'N') = 'Y' THEN
2849:
2847:
2848: IF nvl(l_line_tbl(l_pto_index).shippable_flag,'N') = 'Y' THEN
2849:
2850: IF l_debug_level > 0 THEN
2851: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2852: END IF;
2853: IF l_debug_level > 0 THEN
2854: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2855: END IF;
2850: IF l_debug_level > 0 THEN
2851: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2852: END IF;
2853: IF l_debug_level > 0 THEN
2854: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2855: END IF;
2856:
2857: Ship_Confirm_Standard_Line
2858: ( p_line_rec => l_line_tbl(l_pto_index),
2882:
2883: ELSIF l_ratio_status = FND_API.G_FALSE THEN
2884:
2885: IF l_debug_level > 0 THEN
2886: oe_debug_pub.add( 'NOT SHIPPED , SHIPMENT RATIO IS BROKEN : ' , 3 ) ;
2887: END IF;
2888:
2889: -- Call process order to update the shipping tolerances to 0
2890: -- if there is some value in tolerance
2903: FOR l_pto_index IN l_line_tbl.FIRST .. l_line_tbl.LAST
2904: LOOP
2905:
2906: IF l_debug_level > 0 THEN
2907: oe_debug_pub.add( 'INSIDE THE RATIO BROKEN LOOP : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2908: END IF;
2909: IF l_debug_level > 0 THEN
2910: oe_debug_pub.add( 'INSIDE THE RATIO BROKEN LOOP : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2911: END IF;
2906: IF l_debug_level > 0 THEN
2907: oe_debug_pub.add( 'INSIDE THE RATIO BROKEN LOOP : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2908: END IF;
2909: IF l_debug_level > 0 THEN
2910: oe_debug_pub.add( 'INSIDE THE RATIO BROKEN LOOP : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2911: END IF;
2912:
2913: /* Added for bug 1952023 */
2914:
2917: THEN
2918: IF nvl(l_line_tbl(l_pto_index).shippable_flag,'N') = 'Y' THEN
2919:
2920: IF l_debug_level > 0 THEN
2921: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2922: END IF;
2923:
2924: IF l_debug_level > 0 THEN
2925: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2921: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2922: END IF;
2923:
2924: IF l_debug_level > 0 THEN
2925: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2926: END IF;
2927:
2928: IF nvl(l_line_tbl(l_pto_index).shipped_quantity,0) <> 0 THEN
2929: IF l_debug_level > 0 THEN
2926: END IF;
2927:
2928: IF nvl(l_line_tbl(l_pto_index).shipped_quantity,0) <> 0 THEN
2929: IF l_debug_level > 0 THEN
2930: oe_debug_pub.add( 'THE LINE IS UNDERSHIPPED : SPLIT LINE'|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2931: END IF;
2932:
2933: l_split_index := l_split_index + 1;
2934: l_split_line_tbl(l_split_index) := l_line_tbl(l_pto_index);
2942: l_split_line_tbl(l_split_index).split_by := 'SYSTEM';
2943: l_split_line_tbl(l_split_index).split_action_code := 'SPLIT';
2944:
2945: IF l_debug_level > 0 THEN
2946: oe_debug_pub.add( 'NEW ORDERED QUANTITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .ORDERED_QUANTITY ) , 3 ) ;
2947: END IF;
2948: IF l_debug_level > 0 THEN
2949: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .SHIPPED_QUANTITY ) , 3 ) ;
2950: END IF;
2945: IF l_debug_level > 0 THEN
2946: oe_debug_pub.add( 'NEW ORDERED QUANTITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .ORDERED_QUANTITY ) , 3 ) ;
2947: END IF;
2948: IF l_debug_level > 0 THEN
2949: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .SHIPPED_QUANTITY ) , 3 ) ;
2950: END IF;
2951: -- Call the process order to split the line
2952: END IF;
2953: END IF; -- Shippable flag = Y
2953: END IF; -- Shippable flag = Y
2954:
2955: ELSE
2956: IF l_debug_level > 0 THEN
2957: oe_debug_pub.add( 'REMNANT_MODEL ' , 3 ) ;
2958: END IF;
2959: l_split_index := l_split_index + 1;
2960: l_split_line_tbl(l_split_index) := l_line_tbl(l_pto_index);
2961: END IF; -- Model Remnant
2968:
2969: IF nvl(l_line_tbl(l_top_model_index).model_remnant_flag,'N') = 'N'
2970: THEN
2971: IF l_debug_level > 0 THEN
2972: oe_debug_pub.add( 'CALLING NON PROPORTIONAL SPLIT' , 3 ) ;
2973: END IF;
2974:
2975: IF g_debug_call > 0 THEN
2976: G_DEBUG_MSG := G_DEBUG_MSG || '88,';
2986: RAISE FND_API.G_EXC_ERROR;
2987: END IF;
2988:
2989: IF l_debug_level > 0 THEN
2990: oe_debug_pub.add( 'RET STS FROM NON PRO SPLIT/'||L_RETURN_STATUS , 3 ) ;
2991: END IF;
2992:
2993: IF l_debug_level > 0 THEN
2994: oe_debug_pub.add( 'NUMBER OF ROWS RETURNED : '|| TO_CHAR ( L_SPLIT_LINE_TBL.COUNT ) , 3 ) ;
2990: oe_debug_pub.add( 'RET STS FROM NON PRO SPLIT/'||L_RETURN_STATUS , 3 ) ;
2991: END IF;
2992:
2993: IF l_debug_level > 0 THEN
2994: oe_debug_pub.add( 'NUMBER OF ROWS RETURNED : '|| TO_CHAR ( L_SPLIT_LINE_TBL.COUNT ) , 3 ) ;
2995: END IF;
2996: END IF; -- Remnant flag
2997: IF g_debug_call > 0 THEN
2998: G_DEBUG_MSG := G_DEBUG_MSG || '89';
3010: OE_Line_Fullfill.Is_Part_Of_Fulfillment_Set
3011: (l_split_line_tbl(l_split_index).line_id);
3012:
3013: IF l_debug_level > 0 THEN
3014: oe_debug_pub.add( 'PART FULFILLMENT SET: '||L_FULFILLMENT_SET_FLAG , 3 ) ;
3015: END IF;
3016:
3017:
3018: IF nvl(l_split_line_tbl(l_split_index).shippable_flag,'N') = 'Y' AND
3023:
3024: l_item_key := to_char(l_split_line_tbl(l_split_index).line_id);
3025:
3026: IF l_debug_level > 0 THEN
3027: oe_debug_pub.add('CALLING GET ACTIVITY RESULT FOR : '
3028: || L_ITEM_KEY||'/'||'SHIP_LINE' , 3 ) ;
3029: END IF;
3030:
3031: OE_LINE_FULLFILL.Get_Activity_Result
3039:
3040: IF l_activity_status = 'NOTIFIED' THEN
3041:
3042: IF l_debug_level > 0 THEN
3043: oe_debug_pub.add( 'CALLING SHIP_CONFIRM_STANDARD_LINE '
3044: || L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .LINE_ID , 3 ) ;
3045: END IF;
3046:
3047: Ship_Confirm_Standard_Line
3064:
3065: l_item_key := to_char(l_split_line_tbl(l_split_index).line_id);
3066:
3067: IF l_debug_level > 0 THEN
3068: oe_debug_pub.add( 'CALLING GET ACTIVITY RESULT FOR : '|| L_ITEM_KEY||'/'||'FULFILL_LINE' , 3 ) ;
3069: END IF;
3070:
3071: OE_LINE_FULLFILL.Get_Activity_Result
3072: (p_item_type => OE_GLOBALS.G_WFI_LIN
3077: ,x_activity_status_code => l_activity_status
3078: ,x_activity_id => l_activity_id );
3079:
3080: IF l_debug_level > 0 THEN
3081: oe_debug_pub.add( 'RET STS FROM GET ACT RESULT: '||L_RETURN_STATUS , 3 ) ;
3082: END IF;
3083: IF g_debug_call > 0 THEN
3084: G_DEBUG_MSG := G_DEBUG_MSG || '89';
3085: END IF;
3086: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3088: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3089: IF l_debug_level > 0 THEN
3090: oe_debug_pub.add( 'LINE IS NOT AT FULFILLMENT ACTIVITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .LINE_ID ) , 3 ) ;
3091: END IF;
3092: ELSE
3093: IF l_debug_level > 0 THEN
3094: oe_debug_pub.add( 'LINE IS AT FULFILLMENT ACTIVITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .LINE_ID ) , 3 ) ;
3090: oe_debug_pub.add( 'LINE IS NOT AT FULFILLMENT ACTIVITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .LINE_ID ) , 3 ) ;
3091: END IF;
3092: ELSE
3093: IF l_debug_level > 0 THEN
3094: oe_debug_pub.add( 'LINE IS AT FULFILLMENT ACTIVITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .LINE_ID ) , 3 ) ;
3095: END IF;
3096:
3097: IF l_debug_level > 0 THEN
3098: oe_debug_pub.add( 'CALLING GET FULFILLMENT ACTIVITY ' , 3 ) ;
3094: oe_debug_pub.add( 'LINE IS AT FULFILLMENT ACTIVITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .LINE_ID ) , 3 ) ;
3095: END IF;
3096:
3097: IF l_debug_level > 0 THEN
3098: oe_debug_pub.add( 'CALLING GET FULFILLMENT ACTIVITY ' , 3 ) ;
3099: END IF;
3100:
3101: IF g_debug_call > 0 THEN
3102: G_DEBUG_MSG := G_DEBUG_MSG || '90';
3114: RAISE FND_API.G_EXC_ERROR;
3115: END IF;
3116:
3117: IF l_debug_level > 0 THEN
3118: oe_debug_pub.add( 'FULFILLMENT ACT : '||L_FULFILLMENT_ACTIVITY , 3 ) ;
3119: END IF;
3120:
3121: IF l_fulfillment_activity = 'NO_ACTIVITY' OR
3122: l_fulfillment_activity = 'SHIP_LINE' THEN
3147: l_fulfill_tbl(l_fulfill_index).operation
3148: := OE_GLOBALS.G_OPR_UPDATE;
3149:
3150: IF l_debug_level > 0 THEN
3151: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3152: END IF;
3153: IF l_debug_level > 0 THEN
3154: oe_debug_pub.add( 'FULFILLED FLAG : '|| L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3155: END IF;
3150: IF l_debug_level > 0 THEN
3151: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3152: END IF;
3153: IF l_debug_level > 0 THEN
3154: oe_debug_pub.add( 'FULFILLED FLAG : '|| L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3155: END IF;
3156: IF l_debug_level > 0 THEN
3157: oe_debug_pub.add( 'FULFILLED QUANTITY : '|| TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3158: END IF;
3153: IF l_debug_level > 0 THEN
3154: oe_debug_pub.add( 'FULFILLED FLAG : '|| L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3155: END IF;
3156: IF l_debug_level > 0 THEN
3157: oe_debug_pub.add( 'FULFILLED QUANTITY : '|| TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3158: END IF;
3159:
3160: END IF; -- no activity
3161:
3169:
3170: IF l_fulfill_index <> 0 THEN
3171:
3172: IF l_debug_level > 0 THEN
3173: oe_debug_pub.add( 'CALLING FULFILL LINE TABLE : '|| TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3174: END IF;
3175: IF g_debug_call > 0 THEN
3176: G_DEBUG_MSG := G_DEBUG_MSG || '91';
3177: END IF;
3190:
3191: FOR l_fulfill_index IN 1 .. l_fulfill_tbl.count
3192: LOOP
3193: IF l_debug_level > 0 THEN
3194: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
3195: END IF;
3196:
3197: OE_Order_WF_Util.Update_Flow_Status_Code
3198: (p_header_id => l_fulfill_tbl(l_fulfill_index).header_id,
3200: p_flow_status_code => 'FULFILLED',
3201: x_return_status => l_return_status);
3202:
3203: IF l_debug_level > 0 THEN
3204: oe_debug_pub.add( 'RET STS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
3205: END IF;
3206:
3207: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3213: l_item_key := to_char(l_fulfill_tbl(l_fulfill_index).line_id);
3214:
3215: -- 1739574 Log a delayed request for Complete Activity
3216: IF l_debug_level > 0 THEN
3217: oe_debug_pub.add( 'COMPLETE ACT :LOGGING REQUEST '|| L_ITEM_KEY , 3 ) ;
3218: END IF;
3219:
3220: OE_Delayed_Requests_Pvt.Log_Request
3221: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3229: p_param4 => OE_GLOBALS.G_WFR_COMPLETE,
3230: x_return_status => l_return_status);
3231:
3232: IF l_debug_level > 0 THEN
3233: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES '|| L_FULFILL_TBL ( L_FULFILL_INDEX ) .LINE_ID , 3 ) ;
3234: END IF;
3235:
3236: OE_LINE_FULLFILL.Fulfill_Service_Lines
3237: (p_line_id => l_fulfill_tbl(l_fulfill_index).line_id,
3238: p_header_id => l_fulfill_tbl(l_fulfill_index).header_id,
3239: x_return_status => l_return_status);
3240:
3241: IF l_debug_level > 0 THEN
3242: oe_debug_pub.add( 'RET STS FULFILL SERVICE '||L_RETURN_STATUS , 3 ) ;
3243: END IF;
3244:
3245: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3256:
3257: END IF;
3258:
3259: IF l_debug_level > 0 THEN
3260: oe_debug_pub.add( 'EXITING SHIP_CONFIRM_PTO_KIT : '||X_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
3261: END IF;
3262:
3263: EXCEPTION
3264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3276: x_return_status := FND_API.G_RET_STS_ERROR;
3277:
3278: WHEN OTHERS THEN
3279: IF l_debug_level > 0 THEN
3280: oe_debug_pub.add( 'SHIP_CONFIRM_PTO_KIT : EXITING WITH OTHERS ERROR' , 1 ) ;
3281: END IF;
3282: IF l_debug_level > 0 THEN
3283: oe_debug_pub.add( 'ERROR MESSAGE : '||SQLERRM , 1 ) ;
3284: END IF;
3279: IF l_debug_level > 0 THEN
3280: oe_debug_pub.add( 'SHIP_CONFIRM_PTO_KIT : EXITING WITH OTHERS ERROR' , 1 ) ;
3281: END IF;
3282: IF l_debug_level > 0 THEN
3283: oe_debug_pub.add( 'ERROR MESSAGE : '||SQLERRM , 1 ) ;
3284: END IF;
3285: IF g_debug_call > 0 THEN
3286: G_DEBUG_MSG := G_DEBUG_MSG || 'E9';
3287: END IF;
3331: l_uom_different NUMBER;
3332: l_requested_qty_uom VARCHAR2(3);
3333:
3334: --
3335: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3336: --
3337:
3338: BEGIN
3339:
3337:
3338: BEGIN
3339:
3340: IF l_debug_level > 0 THEN
3341: oe_debug_pub.add( 'ENTERING SHIP_CONFIRM_STANDARD_LINE ' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
3342: END IF;
3343:
3344: IF g_debug_call > 0 THEN
3345: G_DEBUG_MSG := G_DEBUG_MSG || '101,';
3348: IF p_line_id IS NULL OR
3349: p_line_id = FND_API.G_MISS_NUM THEN
3350: l_line_rec := p_line_rec;
3351: IF l_debug_level > 0 THEN
3352: oe_debug_pub.add( 'p_line_rec.line_id '||P_LINE_REC.LINE_ID , 3 ) ;
3353: END IF;
3354: ELSE
3355: IF l_debug_level > 0 THEN
3356: oe_debug_pub.add( 'line_id '||P_LINE_ID , 3 ) ;
3352: oe_debug_pub.add( 'p_line_rec.line_id '||P_LINE_REC.LINE_ID , 3 ) ;
3353: END IF;
3354: ELSE
3355: IF l_debug_level > 0 THEN
3356: oe_debug_pub.add( 'line_id '||P_LINE_ID , 3 ) ;
3357: END IF;
3358:
3359: OE_Line_Util.Query_Row(p_line_id => p_line_id,
3360: x_line_rec => l_line_rec);
3366: IF p_shipment_status <> FND_API.G_MISS_CHAR AND
3367: p_shipment_status IS NOT NULL THEN
3368:
3369: IF l_debug_level > 0 THEN
3370: oe_debug_pub.add( '1 shipment status '|| P_SHIPMENT_STATUS , 1 ) ;
3371: END IF;
3372: l_x_result_out := p_shipment_status;
3373:
3374: IF g_debug_call > 0 THEN
3394:
3395: EXCEPTION
3396: WHEN OTHERS THEN
3397: IF l_debug_level > 0 THEN
3398: oe_debug_pub.add('wsh select error '|| sqlerrm, 1);
3399: END IF;
3400: END;
3401:
3402: IF l_debug_level > 0 THEN
3399: END IF;
3400: END;
3401:
3402: IF l_debug_level > 0 THEN
3403: oe_debug_pub.add('additional shipped qty '|| l_shipped_quantity, 1);
3404: END IF;
3405:
3406: IF l_line_rec.order_quantity_uom <> l_requested_qty_uom THEN
3407:
3411: l_line_rec.order_quantity_uom,
3412: l_shipped_quantity );
3413:
3414: IF l_debug_level > 0 THEN
3415: oe_debug_pub.add('AFTER UOM CONV : '|| L_SHIPPED_QUANTITY,3);
3416: END IF;
3417: IF g_debug_call > 0 THEN
3418: G_DEBUG_MSG := G_DEBUG_MSG || '105,';
3419: END IF;
3429: p_shipped_quantity => l_shipped_quantity,
3430: x_result_out => l_x_result_out);
3431:
3432: IF l_debug_level > 0 THEN
3433: oe_debug_pub.add('AFTER check_shipement: '|| l_x_result_out,3);
3434: END IF;
3435:
3436: END IF; -- if shipment status was sent in
3437:
3441: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW THEN
3442:
3443: -- Call API to releive allocation
3444: IF l_debug_level > 0 THEN
3445: oe_debug_pub.add( 'SHIPPED WITHIN TOLERANCE BELOW ' , 3 ) ;
3446: END IF;
3447:
3448: /* unreserve function need not to be performed as lines
3449: will be shipping interfaced, and delete reservation
3475: -- 2. Create a new line with Shipping_Interfaced_Flag = 'Y'
3476: -- 3. Call Process Order to perform 1 and 2.
3477:
3478: IF l_debug_level > 0 THEN
3479: oe_debug_pub.add( 'CALLING OE_ORDER_PVT.PROCESS_ORDER ' , 3 ) ;
3480: END IF;
3481: -- Assign the first record of the table for process order for update
3482: -- of the ordered quantity.
3483:
3515: ,NULL -- To uom name
3516: );
3517:
3518: IF l_debug_level > 0 THEN
3519: oe_debug_pub.add('Ship_Confirm_Standard_Line : l_temp_shipped_qty for dual control item is '|| l_temp_shipped_qty);
3520: END IF;
3521:
3522:
3523: IF g_debug_call > 0 THEN
3524: G_DEBUG_MSG := G_DEBUG_MSG || '107';
3525: END IF;
3526:
3527: IF l_debug_level > 0 THEN
3528: oe_debug_pub.add( 'OPM , SHIPPED_UOM <> ORD_UOM AND CONVERSION VALUE IS: '||L_TEMP_SHIPPED_QTY , 1 ) ;
3529: END IF;
3530:
3531: l_line_tbl(1).ordered_quantity := l_temp_shipped_qty;
3532: -- Check if item is dual UOM
3543: -- p_apps_from_uom => l_line_tbl(1).order_quantity_uom,
3544: -- p_apps_to_uom => l_line_tbl(1).ordered_quantity_uom2,
3545: -- p_original_qty => l_temp_shipped_qty);
3546: -- IF l_debug_level > 0 THEN
3547: -- oe_debug_pub.add( 'OPM 3RD CONVERSION AND CONV. VALUE IS '|| L_LINE_TBL ( 1 ) .ORDERED_QUANTITY2 , 1 ) ;
3548: -- END IF;
3549: IF g_debug_call > 0 THEN
3550: G_DEBUG_MSG := G_DEBUG_MSG || '109,';
3551: END IF;
3646: l_line_tbl(2).split_by := 'SYSTEM';
3647:
3648: -- HW BUG#:2415731 added debugging messages for qty2 and others
3649: IF l_debug_level > 0 THEN
3650: oe_debug_pub.add( 'SPLIT FROM LINE: '||TO_CHAR ( L_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
3651: END IF;
3652: IF l_debug_level > 0 THEN
3653: oe_debug_pub.add( 'ORIGINAL ORD QTY : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
3654: END IF;
3649: IF l_debug_level > 0 THEN
3650: oe_debug_pub.add( 'SPLIT FROM LINE: '||TO_CHAR ( L_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
3651: END IF;
3652: IF l_debug_level > 0 THEN
3653: oe_debug_pub.add( 'ORIGINAL ORD QTY : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
3654: END IF;
3655: IF l_debug_level > 0 THEN
3656: oe_debug_pub.add( 'ORD QTY OLD LINE : '||TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
3657: END IF;
3652: IF l_debug_level > 0 THEN
3653: oe_debug_pub.add( 'ORIGINAL ORD QTY : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
3654: END IF;
3655: IF l_debug_level > 0 THEN
3656: oe_debug_pub.add( 'ORD QTY OLD LINE : '||TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
3657: END IF;
3658: IF l_debug_level > 0 THEN
3659: oe_debug_pub.add( 'ORD QTY2 OLD LINE : '||TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY2 ) , 3 ) ;
3660: END IF;
3655: IF l_debug_level > 0 THEN
3656: oe_debug_pub.add( 'ORD QTY OLD LINE : '||TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
3657: END IF;
3658: IF l_debug_level > 0 THEN
3659: oe_debug_pub.add( 'ORD QTY2 OLD LINE : '||TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY2 ) , 3 ) ;
3660: END IF;
3661: IF l_debug_level > 0 THEN
3662: oe_debug_pub.add( 'ORD QTY NEW LINE : '||TO_CHAR ( L_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
3663: END IF;
3658: IF l_debug_level > 0 THEN
3659: oe_debug_pub.add( 'ORD QTY2 OLD LINE : '||TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY2 ) , 3 ) ;
3660: END IF;
3661: IF l_debug_level > 0 THEN
3662: oe_debug_pub.add( 'ORD QTY NEW LINE : '||TO_CHAR ( L_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
3663: END IF;
3664: IF l_debug_level > 0 THEN
3665: oe_debug_pub.add( 'ORD QTY2 NEW LINE : '||TO_CHAR ( L_LINE_TBL ( 2 ) .ORDERED_QUANTITY2 ) , 3 ) ;
3666: END IF;
3661: IF l_debug_level > 0 THEN
3662: oe_debug_pub.add( 'ORD QTY NEW LINE : '||TO_CHAR ( L_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
3663: END IF;
3664: IF l_debug_level > 0 THEN
3665: oe_debug_pub.add( 'ORD QTY2 NEW LINE : '||TO_CHAR ( L_LINE_TBL ( 2 ) .ORDERED_QUANTITY2 ) , 3 ) ;
3666: END IF;
3667: IF g_debug_call > 0 THEN
3668: G_DEBUG_MSG := G_DEBUG_MSG || 'Shp-9-19';
3669: END IF;
3690: l_set_recursion := 'N';
3691: END IF;
3692:
3693: IF l_debug_level > 0 THEN
3694: oe_debug_pub.add( 'RET STS PROCESS ORDER : '||L_RETURN_STATUS , 3 ) ;
3695: END IF;
3696:
3697: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3705: G_DEBUG_MSG := G_DEBUG_MSG || 'Shp-9-21';
3706: END IF;
3707:
3708: IF l_debug_level > 0 THEN
3709: oe_debug_pub.add( 'ITEM TYPE CODE HERE '|| L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
3710: END IF;
3711:
3712: IF l_line_rec.item_type_code = 'CONFIG' THEN
3713:
3738: -- l_line_rec.ordered_quantity
3739: -- 2617708 OE_CODE_CONTROL.CODE_RELEASE_LEVEL <= '110508' THEN
3740:
3741: IF l_debug_level > 0 THEN
3742: oe_debug_pub.add('CALLING Ship_Confirm_Split_Lines '
3743: ||l_line_rec.shipped_quantity ,3);
3744: END IF;
3745: IF g_debug_call > 0 THEN
3746: G_DEBUG_MSG := G_DEBUG_MSG || '145';
3751:
3752: END IF;
3753:
3754: IF l_debug_level > 0 THEN
3755: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
3756: END IF;
3757: IF g_debug_call > 0 THEN
3758: G_DEBUG_MSG := G_DEBUG_MSG || '9-24';
3759: END IF;
3764: p_flow_status_code => 'SHIPPED',
3765: x_return_status => l_return_status );
3766:
3767: IF l_debug_level > 0 THEN
3768: oe_debug_pub.add( 'RETURN STS FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
3769: END IF;
3770:
3771: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3779: -- Call WF function to complete the shipment activity
3780:
3781: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE THEN
3782: IF l_debug_level > 0 THEN
3783: oe_debug_pub.add( 'LINE SHIPPED BEYOND OVERSHIPMENT TOLERANCE ' , 3 ) ;
3784: END IF;
3785: l_result_code := 'OVER_SHIPPED';
3786: ELSE
3787: l_result_code := 'SHIP_CONFIRM';
3788: END IF;
3789:
3790: -- 1739574 Log a delayed request for Complete Activity
3791: IF l_debug_level > 0 THEN
3792: oe_debug_pub.add( 'COMPLETEACTIVITY , LOG DELAYED REQ '||L_LINE_REC.LINE_ID , 3 ) ;
3793: END IF;
3794:
3795: OE_Delayed_Requests_Pvt.Log_Request
3796: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3817: UPDATE OE_SETS
3818: SET SET_STATUS = 'C'
3819: WHERE SET_ID = l_line_rec.arrival_set_id;
3820: IF l_debug_level > 0 THEN
3821: oe_debug_pub.add( 'SET CLOSED: '|| L_LINE_REC.ARRIVAL_SET_ID , 3 ) ;
3822: END IF;
3823: END IF;
3824:
3825: END IF;
3828: END IF;
3829: x_return_status := FND_API.G_RET_STS_SUCCESS;
3830:
3831: IF l_debug_level > 0 THEN
3832: oe_debug_pub.add( 'EXITING SHIP_CONFIRM_STANDARD_LINE '|| X_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
3833: END IF;
3834:
3835: EXCEPTION
3836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3848: END IF;
3849:
3850: WHEN FND_API.G_EXC_ERROR THEN
3851: IF l_debug_level > 0 THEN
3852: oe_debug_pub.add( 'SHIP_CONFIRM_STANDARD_LINE EXC ERROR' , 1 ) ;
3853: END IF;
3854: x_return_status := FND_API.G_RET_STS_ERROR;
3855: IF g_debug_call > 0 THEN
3856: G_DEBUG_MSG := G_DEBUG_MSG || 'E-21';
3857: END IF;
3858:
3859: WHEN OTHERS THEN
3860: IF l_debug_level > 0 THEN
3861: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
3862: END IF;
3863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3864:
3865: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3885: l_activity_status VARCHAR2(8);
3886: l_activity_result VARCHAR2(30);
3887: l_activity_id NUMBER;
3888: --
3889: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3890: --
3891: BEGIN
3892:
3893: IF l_debug_level > 0 THEN
3890: --
3891: BEGIN
3892:
3893: IF l_debug_level > 0 THEN
3894: oe_debug_pub.add( 'ENTERING HANDLE_CONFIG_PARENT ' , 1 ) ;
3895: END IF;
3896:
3897: -- Call work flow engine to complete the WAIT_FOR_CTO work flow
3898: -- activity for the MODEL line
3897: -- Call work flow engine to complete the WAIT_FOR_CTO work flow
3898: -- activity for the MODEL line
3899:
3900: IF l_debug_level > 0 THEN
3901: oe_debug_pub.add( 'GET ACTIVITY RESULT : '|| P_ATO_LINE_ID , 3 ) ;
3902: END IF;
3903:
3904: IF g_debug_call > 0 THEN
3905: G_DEBUG_MSG := G_DEBUG_MSG || '10-1';
3914: , x_activity_status_code => l_activity_status
3915: , x_activity_id => l_activity_id );
3916:
3917: IF l_debug_level > 0 THEN
3918: oe_debug_pub.add( 'STATUS GET ACTIVITY RESULT : '||L_RETURN_STATUS , 3 ) ;
3919: END IF;
3920:
3921: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3921: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3923: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3924: IF l_debug_level > 0 THEN
3925: oe_debug_pub.add( 'LINE IS NOT AT WAIT_FOR_CTO ACTIVITY' , 1 ) ;
3926: END IF;
3927: ELSE
3928:
3929:
3928:
3929:
3930: IF l_activity_status = 'NOTIFIED' THEN
3931: IF l_debug_level > 0 THEN
3932: oe_debug_pub.add( 'LINE IS AT WAIT_FOR_CTO ACTIVITY' , 1 ) ;
3933: END IF;
3934:
3935: -- 1739574 Log a delayed request for Complete Activity
3936:
3934:
3935: -- 1739574 Log a delayed request for Complete Activity
3936:
3937: IF l_debug_level > 0 THEN
3938: oe_debug_pub.add( 'COMPLETE ACTIVITY , FOR '|| P_ATO_LINE_ID , 3 ) ;
3939: END IF;
3940: IF g_debug_call > 0 THEN
3941: G_DEBUG_MSG := G_DEBUG_MSG || '10-3';
3942: END IF;
3962: END IF;
3963: END IF;
3964:
3965: IF l_debug_level > 0 THEN
3966: oe_debug_pub.add( 'EXITING HANDLE_CONFIG_PARENT '|| L_RETURN_STATUS , 1 ) ;
3967: END IF;
3968: IF g_debug_call > 0 THEN
3969: G_DEBUG_MSG := G_DEBUG_MSG || '10-4';
3970: END IF;
3970: END IF;
3971: EXCEPTION
3972: WHEN OTHERS THEN
3973: IF l_debug_level > 0 THEN
3974: oe_debug_pub.add( 'HANDLE_CONFIG_PARENT ERROR '|| SQLERRM , 1 ) ;
3975: END IF;
3976: IF g_debug_call > 0 THEN
3977: G_DEBUG_MSG := G_DEBUG_MSG || 'E-23';
3978: END IF;
4002: l_set_recursion VARCHAR2(1) := 'N';
4003: l_split_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
4004: l_result_out VARCHAR2(30);
4005: --
4006: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4007: --
4008: BEGIN
4009:
4010: IF l_debug_level > 0 THEN
4007: --
4008: BEGIN
4009:
4010: IF l_debug_level > 0 THEN
4011: oe_debug_pub.add('ENTERING OE_SHIPPING_INTEGRATION_PVT.SHIP_CONFIRM_ATO '
4012: || TO_CHAR ( P_LINE_ID ) , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
4013: END IF;
4014:
4015: l_line_id := p_line_id;
4035: l_update_line_tbl(1).shipped_quantity := l_line_rec.shipped_quantity;
4036: l_update_line_tbl(1).actual_shipment_date := l_line_rec.actual_shipment_date;
4037:
4038: IF l_debug_level > 0 THEN
4039: oe_debug_pub.add('ACTUAL SHIPMENT DATE :'
4040: ||TO_CHAR(L_UPDATE_LINE_TBL(1).ACTUAL_SHIPMENT_DATE,'DD-MM-YY'),3);
4041: END IF;
4042:
4043: IF OE_GLOBALS.G_RECURSION_MODE = 'Y' THEN
4055: l_set_recursion := 'N';
4056: END IF;
4057:
4058: IF l_debug_level > 0 THEN
4059: oe_debug_pub.add('RET STS FROM PROCESS ORDER : '||L_RETURN_STATUS , 3 ) ;
4060: END IF;
4061:
4062: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4075: -- p_shipped_quantity => l_shipped_quantity,
4076: x_result_out => l_result_out);
4077:
4078: IF l_debug_level > 0 THEN
4079: oe_debug_pub.add( 'SHIPMENT STATUS : '||L_RESULT_OUT , 3 ) ;
4080: END IF;
4081:
4082:
4083: IF l_result_out = OE_GLOBALS.G_PARTIALLY_SHIPPED AND
4100: l_split_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
4101: l_split_line_tbl(2).split_by := 'SYSTEM';
4102:
4103: IF l_debug_level > 0 THEN
4104: oe_debug_pub.add( 'ITEM TYPE CODE : '||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
4105: END IF;
4106: IF g_debug_call > 0 THEN
4107: G_DEBUG_MSG := G_DEBUG_MSG || '10-8';
4108: END IF;
4107: G_DEBUG_MSG := G_DEBUG_MSG || '10-8';
4108: END IF;
4109:
4110: IF l_debug_level > 0 THEN
4111: oe_debug_pub.add( 'SPLIT FROM LINE ID : '
4112: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
4113:
4114: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '
4115: ||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
4110: IF l_debug_level > 0 THEN
4111: oe_debug_pub.add( 'SPLIT FROM LINE ID : '
4112: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
4113:
4114: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '
4115: ||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
4116: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '
4117: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
4118:
4112: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
4113:
4114: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '
4115: ||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
4116: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '
4117: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
4118:
4119: oe_debug_pub.add( 'ORDERED QUANTITY NEW LINE : '
4120: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
4115: ||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
4116: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '
4117: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
4118:
4119: oe_debug_pub.add( 'ORDERED QUANTITY NEW LINE : '
4120: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
4121: END IF;
4122:
4123: l_control_rec := OE_GLOBALS.G_MISS_CONTROL_REC;
4150: RAISE FND_API.G_EXC_ERROR;
4151: END IF;
4152:
4153: IF l_debug_level > 0 THEN
4154: oe_debug_pub.add('RET STS FROM PROCESS ORDER:'||L_RETURN_STATUS , 3 ) ;
4155: END IF;
4156:
4157: END IF;
4158:
4173: RAISE FND_API.G_EXC_ERROR;
4174: END IF;
4175:
4176: IF l_debug_level > 0 THEN -- Added debug for bug 13435459
4177: OE_DEBUG_PUB.add('Exit Ship_Confirm_ATO() at ',0.5);
4178: END IF;
4179: x_return_status := FND_API.G_RET_STS_SUCCESS;
4180:
4181: EXCEPTION
4199: END IF;
4200:
4201: WHEN OTHERS THEN
4202: IF l_debug_level > 0 THEN
4203: oe_debug_pub.add('ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
4204: END IF;
4205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4206:
4207: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4238: l_return_status VARCHAR2(1);
4239: l_set_recursion VARCHAR2(1) := 'N';
4240:
4241: --
4242: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4243: --
4244: BEGIN
4245:
4246: IF l_debug_level > 0 THEN
4244: BEGIN
4245:
4246: IF l_debug_level > 0 THEN
4247: -- debug level changed to 0.5 for bug 13435459
4248: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PVT.SHIP_CONFIRM_SHIP_SET '|| TO_CHAR ( P_SHIP_SET_ID ) , 0.5 ) ;
4249: END IF;
4250:
4251: IF g_debug_call > 0 THEN
4252: G_DEBUG_MSG := G_DEBUG_MSG || '11-1';
4258: OE_Set_Util.Query_Set_Rows(p_set_id => p_ship_set_id,
4259: x_line_tbl => l_line_tbl);
4260:
4261: IF l_debug_level > 0 THEN
4262: oe_debug_pub.add( 'NUMBER OF LINES IN THE SET '|| TO_CHAR ( L_LINE_TBL.COUNT ) , 3 ) ;
4263: END IF;
4264: -- Update the set status to closed.
4265:
4266: UPDATE OE_SETS
4267: SET SET_STATUS = 'C'
4268: WHERE SET_ID = p_ship_set_id;
4269:
4270: IF l_debug_level > 0 THEN
4271: oe_debug_pub.add( 'SET IS CLOSED : '||TO_CHAR ( P_SHIP_SET_ID ) , 3 ) ;
4272: END IF;
4273:
4274: -- Prepare a table with PTO_KIT/ATO/STANDARD lines.
4275:
4276: FOR l_line_index IN l_line_tbl.FIRST .. l_line_tbl.LAST
4277: LOOP
4278:
4279: IF l_debug_level > 0 THEN
4280: oe_debug_pub.add( 'IN THE SET LOOP ' , 3 ) ;
4281: END IF;
4282: IF l_debug_level > 0 THEN
4283: oe_debug_pub.add( 'INDEX/ITEM TYPE : '||TO_CHAR ( L_LINE_INDEX ) ||'/'||L_LINE_TBL ( L_LINE_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
4284: END IF;
4279: IF l_debug_level > 0 THEN
4280: oe_debug_pub.add( 'IN THE SET LOOP ' , 3 ) ;
4281: END IF;
4282: IF l_debug_level > 0 THEN
4283: oe_debug_pub.add( 'INDEX/ITEM TYPE : '||TO_CHAR ( L_LINE_INDEX ) ||'/'||L_LINE_TBL ( L_LINE_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
4284: END IF;
4285: IF l_debug_level > 0 THEN
4286: oe_debug_pub.add( 'LINE_ID/TOP_MODEL_LINE_ID : '||TO_CHAR ( L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID ) ||'/'||TO_CHAR ( L_LINE_TBL ( L_LINE_INDEX ) .TOP_MODEL_LINE_ID ) , 3 ) ;
4287: END IF;
4282: IF l_debug_level > 0 THEN
4283: oe_debug_pub.add( 'INDEX/ITEM TYPE : '||TO_CHAR ( L_LINE_INDEX ) ||'/'||L_LINE_TBL ( L_LINE_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
4284: END IF;
4285: IF l_debug_level > 0 THEN
4286: oe_debug_pub.add( 'LINE_ID/TOP_MODEL_LINE_ID : '||TO_CHAR ( L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID ) ||'/'||TO_CHAR ( L_LINE_TBL ( L_LINE_INDEX ) .TOP_MODEL_LINE_ID ) , 3 ) ;
4287: END IF;
4288:
4289: IF (l_line_tbl(l_line_index).link_to_line_id = l_line_tbl(l_line_index).top_model_line_id AND
4290: l_line_tbl(l_line_index).item_type_code = OE_Globals.G_ITEM_CONFIG) THEN
4288:
4289: IF (l_line_tbl(l_line_index).link_to_line_id = l_line_tbl(l_line_index).top_model_line_id AND
4290: l_line_tbl(l_line_index).item_type_code = OE_Globals.G_ITEM_CONFIG) THEN
4291: IF l_debug_level > 0 THEN
4292: oe_debug_pub.add( 'IT IS AN ATO ' , 3 ) ;
4293: END IF;
4294: l_process_index := l_process_index + 1;
4295: l_process_tbl(l_process_index) := l_line_tbl(l_line_index);
4296:
4300: l_line_tbl(l_line_index).line_id = l_line_tbl(l_line_index).top_model_line_id) AND
4301: (l_line_tbl(l_line_index).ato_line_id IS NULL OR
4302: l_line_tbl(l_line_index).ato_line_id = FND_API.G_MISS_NUM) THEN
4303: IF l_debug_level > 0 THEN
4304: oe_debug_pub.add( 'IT IS A PTO/KIT ' , 3 ) ;
4305: END IF;
4306: l_process_index := l_process_index + 1;
4307: l_process_tbl(l_process_index) := l_line_tbl(l_line_index);
4308:
4308:
4309: ELSIF l_line_tbl(l_line_index).item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
4310:
4311: IF l_debug_level > 0 THEN
4312: oe_debug_pub.add( 'IT IS A STANDARD LINE' , 3 ) ;
4313: END IF;
4314: l_process_index := l_process_index + 1;
4315: l_process_tbl(l_process_index) := l_line_tbl(l_line_index);
4316: END IF;
4317:
4318: END LOOP;
4319:
4320: IF l_debug_level > 0 THEN
4321: oe_debug_pub.add( 'NUMBER OF LINES TO PROCESS : '||TO_CHAR ( L_PROCESS_INDEX ) , 3 ) ;
4322: END IF;
4323: IF g_debug_call > 0 THEN
4324: G_DEBUG_MSG := G_DEBUG_MSG || 'Shp-11-3';
4325: END IF;
4333: l_process_tbl(l_process_index).ato_line_id = FND_API.G_MISS_NUM) THEN */
4334: /* Added condition of KIT for bug 1926571 */
4335: l_process_tbl(l_process_index).item_type_code IN ('MODEL','KIT') THEN
4336: IF l_debug_level > 0 THEN
4337: oe_debug_pub.add( 'IT IS PTO/KIT '||TO_CHAR ( L_PROCESS_TBL ( L_PROCESS_INDEX ) .TOP_MODEL_LINE_ID ) , 3 ) ;
4338: END IF;
4339:
4340: -- Check if any of the option has been shipped for the model
4341:
4348: nvl(l_line_tbl(l_line_index).shipped_quantity,0) <> 0 AND
4349: l_line_tbl(l_line_index).shipped_quantity <> FND_API.G_MISS_NUM THEN
4350: l_line_shipped := FND_API.G_TRUE;
4351: IF l_debug_level > 0 THEN
4352: oe_debug_pub.add( 'LINE IS SHIPPED '||TO_CHAR ( L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID ) , 3 ) ;
4353: END IF;
4354:
4355: Ship_Confirm_PTO_KIT
4356: (
4373:
4374: ELSIF nvl(l_process_tbl(l_process_index).shipped_quantity,0) <> 0 AND
4375: l_process_tbl(l_process_index).shipped_quantity <> FND_API.G_MISS_NUM THEN
4376: IF l_debug_level > 0 THEN
4377: oe_debug_pub.add( 'INSIDE THE LOOP : LINE ID : '|| TO_CHAR ( L_PROCESS_TBL ( L_PROCESS_INDEX ) .LINE_ID ) , 3 ) ;
4378: END IF;
4379: IF l_process_tbl(l_process_index).item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
4380: Ship_Confirm_Standard_Line
4381: (
4409:
4410: IF l_line_shipped = FND_API.G_FALSE THEN
4411:
4412: IF l_debug_level > 0 THEN
4413: oe_debug_pub.add( 'SHIP SET IS PARTIALLY SHIPPED REMOVING THE SETID '||TO_CHAR ( L_PROCESS_TBL ( L_PROCESS_INDEX ) .LINE_ID ) , 3 ) ;
4414: END IF;
4415: l_set_index := l_set_index + 1;
4416: l_set_tbl(l_set_index) := OE_Order_Pub.G_MISS_LINE_REC;
4417: IF l_process_tbl(l_process_index).item_type_code = OE_GLOBALS.G_ITEM_CONFIG THEN
4419: ELSE
4420: l_set_tbl(l_set_index).line_id := l_process_tbl(l_process_index).line_id;
4421: END IF;
4422: IF l_debug_level > 0 THEN
4423: oe_debug_pub.add( 'LINE ID : '||TO_CHAR ( L_SET_TBL ( L_SET_INDEX ) .LINE_ID ) , 3 ) ;
4424: END IF;
4425: l_set_tbl(l_set_index).ship_set_id := NULL;
4426: l_set_tbl(l_set_index).operation := OE_GLOBALS.G_OPR_UPDATE;
4427:
4437: l_control_rec.validate_entity := FALSE;
4438: l_control_rec.check_security := FALSE;
4439:
4440: IF l_debug_level > 0 THEN
4441: oe_debug_pub.add( 'CALLING PROCESS ORDER TO UPDATE SHIP SET ID' , 3 ) ;
4442: END IF;
4443: IF l_debug_level > 0 THEN
4444: oe_debug_pub.add( 'NUMBER OF LINES '||TO_CHAR ( L_SET_INDEX ) , 3 ) ;
4445: END IF;
4440: IF l_debug_level > 0 THEN
4441: oe_debug_pub.add( 'CALLING PROCESS ORDER TO UPDATE SHIP SET ID' , 3 ) ;
4442: END IF;
4443: IF l_debug_level > 0 THEN
4444: oe_debug_pub.add( 'NUMBER OF LINES '||TO_CHAR ( L_SET_INDEX ) , 3 ) ;
4445: END IF;
4446:
4447: IF OE_GLOBALS.G_RECURSION_MODE = 'Y' THEN
4448:
4471: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4472: END IF;
4473:
4474: IF l_debug_level > 0 THEN
4475: oe_debug_pub.add( 'RETURN STATUS FROM PROCESS ORDER : '||L_RETURN_STATUS , 3 ) ;
4476: END IF;
4477: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4479: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4484: x_return_status := l_return_status;
4485:
4486: IF l_debug_level > 0 THEN
4487: -- debug level changed to 0.5 for bug 13435459
4488: oe_debug_pub.add( 'EXITING FROM OE_SHIPPING_INTEGRATION_PVT.SHIP_CONFIRM_SHIP_SET : '||X_RETURN_STATUS , 0.5 ) ;
4489: END IF;
4490: IF g_debug_call > 0 THEN
4491: G_DEBUG_MSG := G_DEBUG_MSG || '11-9';
4492: END IF;
4522: );
4523: END IF;
4524:
4525: IF l_debug_level > 0 THEN
4526: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
4527: END IF;
4528: IF g_debug_call > 0 THEN
4529: G_DEBUG_MSG := G_DEBUG_MSG || 'E-29';
4530: END IF;
4551: l_tolerance_quantity_above NUMBER;
4552: l_old_recursion_mode VARCHAR2(1) := OE_GLOBALS.G_RECURSION_MODE;
4553:
4554: --
4555: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4556: --
4557: BEGIN
4558:
4559: IF l_debug_level > 0 THEN
4557: BEGIN
4558:
4559: IF l_debug_level > 0 THEN
4560: -- debug level changed to 0.5 for bug 13435459
4561: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PVT.PROCESS_SHIP_CONFIRM '|| P_PROCESS_TYPE , 0.5 ) ;
4562: END IF;
4563:
4564: -- Setting the Global variable OE_GLOBALS.G_RECURSION_MODE to Y so that the
4565: -- Price request for "SHIP" event is not triggered before COST records are
4655: END IF;
4656:
4657: IF l_debug_level > 0 THEN
4658: -- debug level changed to 0.5 for bug 13435459
4659: oe_debug_pub.add( 'RETURNED FROM OE_SHIPPING_INTEGRATION_PVT.PROCESS_SHIP_CONFIRM '|| X_RETURN_STATUS , 0.5 ) ;
4660: END IF;
4661:
4662: EXCEPTION
4663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4706: );
4707: END IF;
4708:
4709: IF l_debug_level > 0 THEN
4710: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
4711: END IF;
4712: NULL;
4713:
4714: END Process_Ship_Confirm;
4759: l_enforce_smc_flag VARCHAR2(1) := 'N';
4760: l_ship_from_org_id NUMBER;
4761: l_count NUMBER;
4762: --
4763: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4764: --
4765:
4766: CURSOR c_lines IS
4767: SELECT line_id
4782:
4783: BEGIN
4784:
4785: IF l_debug_level > 0 THEN
4786: oe_debug_pub.add( 'ENTERING PROCESS_SHIPPING_ACTIVITY '|| P_LINE_ID , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
4787: END IF;
4788:
4789: IF g_debug_call > 0 THEN
4790: G_DEBUG_MSG := G_DEBUG_MSG || '201';
4791: END IF;
4792:
4793: IF OE_BULK_WF_UTIL.G_LINE_INDEX IS NOT NULL THEN
4794: IF l_debug_level > 0 THEN
4795: oe_debug_pub.add
4796: ('bulk call?? line id '|| OE_BULK_ORDER_PVT.G_LINE_REC.line_id
4797: (OE_BULK_WF_UTIL.G_LINE_INDEX), 2);
4798: END IF;
4799: END IF;
4801: IF OE_BULK_WF_UTIL.G_LINE_INDEX IS NOT NULL AND
4802: OE_BULK_ORDER_PVT.G_LINE_REC.line_id(OE_BULK_WF_UTIL.G_LINE_INDEX) =
4803: p_line_id THEN
4804: IF l_debug_level > 0 THEN
4805: oe_debug_pub.add
4806: ('2 shipping bulk mode '|| OE_BULK_WF_UTIL.G_LINE_INDEX, 4);
4807: END IF;
4808:
4809: l_line_category_code := OE_BULK_ORDER_PVT.G_LINE_REC.line_category_code
4811:
4812: l_source_type_code := OE_BULK_ORDER_PVT.G_LINE_REC.source_type_code
4813: (OE_BULK_WF_UTIL.G_LINE_INDEX);
4814:
4815: --oe_debug_pub.add('here 2: ', 2);
4816:
4817: l_ship_model_complete_flag
4818: := OE_BULK_ORDER_PVT.G_LINE_REC.ship_model_complete_flag
4819: (OE_BULK_WF_UTIL.G_LINE_INDEX);
4837: l_line_id := OE_BULK_ORDER_PVT.G_LINE_REC.line_id
4838: (OE_BULK_WF_UTIL.G_LINE_INDEX);
4839: l_item_type_code := OE_BULK_ORDER_PVT.G_LINE_REC.item_type_code
4840: (OE_BULK_WF_UTIL.G_LINE_INDEX);
4841: --oe_debug_pub.add('here 3: ', 2);
4842: l_header_id := OE_BULK_ORDER_PVT.G_LINE_REC.header_id
4843: (OE_BULK_WF_UTIL.G_LINE_INDEX);
4844:
4845: --oe_debug_pub.add('here 4: ', 2);
4841: --oe_debug_pub.add('here 3: ', 2);
4842: l_header_id := OE_BULK_ORDER_PVT.G_LINE_REC.header_id
4843: (OE_BULK_WF_UTIL.G_LINE_INDEX);
4844:
4845: --oe_debug_pub.add('here 4: ', 2);
4846: ELSE
4847: SELECT line_category_code,
4848: source_type_code,
4849: ship_model_complete_flag,
4887: END IF;
4888: IF l_line_category_code = 'RETURN' THEN
4889:
4890: IF l_debug_level > 0 THEN
4891: oe_debug_pub.add( 'IT IS A RETURN LINE NOT ELIGIBLE FOR SHIPPING' , 3 ) ;
4892: END IF;
4893: x_result_out := 'COMPLETE:NON_SHIPPABLE';
4894: GOTO END_SHIPPING_PROCESSING;
4895:
4896: END IF;
4897:
4898: IF l_source_type_code = 'EXTERNAL' THEN
4899: IF l_debug_level > 0 THEN
4900: oe_debug_pub.add( 'IT IS A DROP SHIP LINE' , 3 ) ;
4901: END IF;
4902:
4903: IF nvl(l_shippable_flag, 'N') = 'N' THEN
4904: x_result_out := 'COMPLETE:NON_SHIPPABLE';
4910: ------------ external and return lines done ------------
4911:
4912: IF l_shippable_flag = 'N' THEN
4913: IF l_debug_level > 0 THEN
4914: oe_debug_pub.add( 'NON SHIPPABLE LINE ' || L_ITEM_TYPE_CODE , 3 ) ;
4915: END IF;
4916: x_result_out := 'COMPLETE:NON_SHIPPABLE';
4917: END IF;
4918:
4924: OE_Code_Control.Code_Release_Level >= '110510' AND
4925: OE_BULK_ORDER_PVT.G_LINE_REC.line_id(OE_BULK_WF_UTIL.G_LINE_INDEX) =
4926: p_line_id THEN
4927: IF l_debug_level > 0 THEN
4928: oe_debug_pub.add('3 shipping bulk mode',5);
4929: END IF;
4930:
4931: IF OE_BULK_ORDER_PVT.G_LINE_REC.shippable_flag
4932: (OE_BULK_WF_UTIL.G_LINE_INDEX) = 'Y' THEN
4931: IF OE_BULK_ORDER_PVT.G_LINE_REC.shippable_flag
4932: (OE_BULK_WF_UTIL.G_LINE_INDEX) = 'Y' THEN
4933:
4934: IF l_debug_level > 0 THEN
4935: oe_debug_pub.add
4936: (OE_BULK_ORDER_PVT.G_LINE_REC.shipping_eligible_flag.COUNT,5);
4937: END IF;
4938:
4939: IF OE_BULK_ORDER_PVT.G_LINE_REC.shipping_eligible_flag.COUNT <
4946: l_count := OE_BULK_ORDER_PVT.G_LINE_REC.line_id.COUNT -
4947: OE_BULK_ORDER_PVT.G_LINE_REC.shipping_eligible_flag.COUNT;
4948:
4949: IF l_debug_level > 0 THEN
4950: oe_debug_pub.add('bulk wsh attribs extend begin '
4951: || OE_BULK_ORDER_PVT.G_LINE_REC.line_id.COUNT
4952: || ' ' || l_count, 2);
4953: END IF;
4954:
4975: OE_BULK_ORDER_PVT.G_LINE_REC.mtl_unit_volume.extend(l_count);
4976: OE_BULK_ORDER_PVT.G_LINE_REC.pickable_flag.extend(l_count);
4977:
4978: IF l_debug_level > 0 THEN
4979: oe_debug_pub.add('bulk wsh attribs extended '|| l_count,2);
4980: END IF;
4981: END IF;
4982: END IF; -- if not yet extended
4983:
4986: --------------------------------------------------------
4987: OE_BULK_ORDER_PVT.G_LINE_REC.shipping_eligible_flag
4988: (OE_BULK_WF_UTIL.G_LINE_INDEX) := 'Y';
4989:
4990: --oe_debug_pub.add('here 5: ', 2);
4991:
4992: l_count := OE_BULK_CACHE.Load_Item
4993: ( p_key1
4994: => OE_BULK_ORDER_PVT.G_LINE_REC.inventory_item_id
4996: ,p_key2
4997: => OE_BULK_ORDER_PVT.G_LINE_REC.ship_from_org_id
4998: (OE_BULK_WF_UTIL.G_LINE_INDEX));
4999:
5000: --oe_debug_pub.add('here 5-1: '
5001: --|| OE_BULK_ORDER_PVT.G_LINE_REC.ordered_item_id
5002: --(OE_BULK_WF_UTIL.G_LINE_INDEX), 2);
5003:
5004: IF g_debug_call > 0 THEN
5016: OE_BULK_ORDER_PVT.G_LINE_REC.weight_uom_code
5017: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5018: OE_BULK_CACHE.G_ITEM_TBL(l_count).weight_uom_code;
5019:
5020: --oe_debug_pub.add('here 6: ', 2);
5021:
5022: OE_BULK_ORDER_PVT.G_LINE_REC.volume_uom_code
5023: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5024: OE_BULK_CACHE.G_ITEM_TBL(l_count).volume_uom_code;
5022: OE_BULK_ORDER_PVT.G_LINE_REC.volume_uom_code
5023: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5024: OE_BULK_CACHE.G_ITEM_TBL(l_count).volume_uom_code;
5025:
5026: --oe_debug_pub.add('here 6-1: ', 2);
5027:
5028: OE_BULK_ORDER_PVT.G_LINE_REC.requested_quantity_uom
5029: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5030: OE_BULK_CACHE.G_ITEM_TBL(l_count).primary_uom_code;
5028: OE_BULK_ORDER_PVT.G_LINE_REC.requested_quantity_uom
5029: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5030: OE_BULK_CACHE.G_ITEM_TBL(l_count).primary_uom_code;
5031:
5032: --oe_debug_pub.add('here 6-2: ', 2);
5033:
5034: OE_BULK_ORDER_PVT.G_LINE_REC.mtl_unit_weight
5035: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5036: OE_BULK_CACHE.G_ITEM_TBL(l_count).unit_weight;
5034: OE_BULK_ORDER_PVT.G_LINE_REC.mtl_unit_weight
5035: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5036: OE_BULK_CACHE.G_ITEM_TBL(l_count).unit_weight;
5037:
5038: --oe_debug_pub.add('here 6-3: ', 2);
5039:
5040: OE_BULK_ORDER_PVT.G_LINE_REC.mtl_unit_volume
5041: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5042: OE_BULK_CACHE.G_ITEM_TBL(l_count).unit_volume;
5040: OE_BULK_ORDER_PVT.G_LINE_REC.mtl_unit_volume
5041: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5042: OE_BULK_CACHE.G_ITEM_TBL(l_count).unit_volume;
5043:
5044: --oe_debug_pub.add('here 6-4: ', 2);
5045:
5046: OE_BULK_ORDER_PVT.G_LINE_REC.pickable_flag
5047: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5048: OE_BULK_CACHE.G_ITEM_TBL(l_count).pickable_flag;
5046: OE_BULK_ORDER_PVT.G_LINE_REC.pickable_flag
5047: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5048: OE_BULK_CACHE.G_ITEM_TBL(l_count).pickable_flag;
5049:
5050: --oe_debug_pub.add('here 7: ', 2);
5051: --------------- from header/ xn types --------------------
5052:
5053: OE_BULK_ORDER_PVT.G_LINE_REC.sold_to_contact_id
5054: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5064: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5065: OE_Bulk_Order_PVT.g_header_rec.order_date_type_code
5066: (OE_BULK_WF_UTIL.G_HEADER_INDEX);
5067:
5068: --oe_debug_pub.add('here 8: ', 2);
5069: OE_BULK_ORDER_PVT.G_LINE_REC.source_header_type_id
5070: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5071: OE_Bulk_Order_PVT.g_header_rec.order_type_id
5072: (OE_BULK_WF_UTIL.G_HEADER_INDEX);
5084: OE_BULK_ORDER_PVT.G_LINE_REC.source_header_type_name
5085: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5086: OE_BULK_CACHE.G_ORDER_TYPE_TBL(l_count).name;
5087:
5088: --oe_debug_pub.add('here 9: '|| OE_BULK_ORDER_PVT.G_LINE_REC.source_header_type_name(OE_BULK_WF_UTIL.G_LINE_INDEX), 2);
5089:
5090: OE_BULK_ORDER_PVT.G_LINE_REC.source_line_number
5091: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5092: RTRIM(OE_BULK_ORDER_PVT.G_LINE_REC.line_number
5099: (OE_BULK_WF_UTIL.G_LINE_INDEX) || '.' ||
5100: OE_BULK_ORDER_PVT.G_LINE_REC.service_number
5101: (OE_BULK_WF_UTIL.G_LINE_INDEX),'.');
5102:
5103: --oe_debug_pub.add('here 10: ', 2);
5104:
5105: IF l_debug_level > 0 THEN
5106: oe_debug_pub.add('eligible for shipping '||
5107: OE_BULK_ORDER_PVT.G_LINE_REC.line_id
5102:
5103: --oe_debug_pub.add('here 10: ', 2);
5104:
5105: IF l_debug_level > 0 THEN
5106: oe_debug_pub.add('eligible for shipping '||
5107: OE_BULK_ORDER_PVT.G_LINE_REC.line_id
5108: (OE_BULK_WF_UTIL.G_LINE_INDEX), 1 ) ;
5109: END IF;
5110:
5129: l_enforce_smc_flag := 'N';
5130: END IF;
5131: --
5132: IF l_debug_level > 0 THEN
5133: OE_DEBUG_PUB.add('Enforce SMC - flag is '||l_enforce_smc_flag||' for org '||l_ship_from_org_id,1);
5134: END IF;
5135: EXCEPTION
5136: WHEN OTHERS THEN
5137: IF l_debug_level > 0 THEN
5134: END IF;
5135: EXCEPTION
5136: WHEN OTHERS THEN
5137: IF l_debug_level > 0 THEN
5138: oe_debug_pub.add('did not find shipping parameter Enforce Ship Set',1);
5139: END IF;
5140: NULL;
5141: END;
5142: --End Bug 4094824
5151: IF g_debug_call > 0 THEN
5152: G_DEBUG_MSG := G_DEBUG_MSG || '211';
5153: END IF;
5154: IF l_debug_level > 0 THEN
5155: oe_debug_pub.add('After calling explosion : '|| l_return_status , 3 ) ;
5156: END IF;
5157:
5158: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5167: -- the included items to shipping. Interface included items part
5168: -- of Non Sip Model Complete. Process_SMC_Shipping will take care of
5169: -- interfacing SMC.
5170:
5171: OE_DEBUG_PUB.Add('Interface Included Items part of NON SMC to shipping', 1);
5172:
5173: FOR c_line IN C_LINES
5174: LOOP
5175:
5173: FOR c_line IN C_LINES
5174: LOOP
5175:
5176: IF l_debug_level > 0 THEN
5177: OE_DEBUG_PUB.Add('Interfacing Line :'||c_line.line_id);
5178: END IF;
5179:
5180: Update_Shipping_PVT(p_line_id => c_line.line_id,
5181: p_shipping_activity => l_shipping_activity,
5204:
5205: IF l_parent_explosion_date IS NULL THEN
5206:
5207: IF l_debug_level > 0 THEN
5208: OE_DEBUG_PUB.Add('Included Item at Shipping:'||l_line_id, 5 ) ;
5209: END IF;
5210:
5211: -- Update Flow Status Code as Ship Line is Notified.
5212: -- Donot update shipping now!!
5222: l_top_model_line_id IS NOT NULL AND
5223: l_model_remnant_flag = 'N' THEN
5224:
5225: IF l_debug_level > 0 THEN
5226: oe_debug_pub.add( 'processing line is part of SMC PTO at shipping activity' , 5 ) ;
5227: END IF;
5228:
5229: Process_SMC_Shipping
5230: (p_line_id => p_line_id
5241:
5242: IF l_shippable_flag = 'Y' THEN
5243:
5244: IF l_debug_level > 0 THEN
5245: oe_debug_pub.add( 'shippable line is at shipping activity, item type '||L_ITEM_TYPE_CODE , 5 ) ;
5246: END IF;
5247: IF g_debug_call > 0 THEN
5248: G_DEBUG_MSG := G_DEBUG_MSG || '213';
5249: END IF;
5270:
5271: IF x_result_out = 'NOTIFIED:#NULL' THEN
5272:
5273: IF l_debug_level > 0 THEN
5274: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
5275: END IF;
5276:
5277: IF l_source_type_code = 'EXTERNAL' THEN
5278: l_flow_status_code := 'AWAITING_RECEIPT';
5286: l_source_type_code = 'INTERNAL') OR
5287: nvl(l_shippable_flag,'N') = 'N' THEN
5288:
5289: IF l_debug_level > 0 THEN
5290: oe_debug_pub.add( 'DO NOT CALL FLOW STATUS API ' , 3 ) ;
5291: END IF;
5292:
5293: IF g_debug_call > 0 THEN
5294: G_DEBUG_MSG := G_DEBUG_MSG || '215';
5302: p_flow_status_code => l_flow_status_code,
5303: x_return_status => l_return_status);
5304:
5305: IF l_debug_level > 0 THEN
5306: oe_debug_pub.add( 'RETURN STS FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
5307: END IF;
5308:
5309: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5322:
5323: x_return_status := FND_API.G_RET_STS_SUCCESS;
5324:
5325: IF l_debug_level > 0 THEN
5326: oe_debug_pub.add( 'EXITING PROCESS_SHIPPING_ACTIVITY SUCCESSFULLY ' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
5327: END IF;
5328:
5329: EXCEPTION
5330:
5329: EXCEPTION
5330:
5331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5332: IF l_debug_level > 0 THEN
5333: oe_debug_pub.add( 'PROCESS_SHIPPING_ACTIVITY : UNEXPECTED ERROR' , 1 ) ;
5334: END IF;
5335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5336:
5337: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5343: END IF;
5344:
5345: WHEN FND_API.G_EXC_ERROR THEN
5346: IF l_debug_level > 0 THEN
5347: oe_debug_pub.add( 'PROCESS_SHIPPING_ACTIVITY : EXE ERROR' , 1 ) ;
5348: END IF;
5349: x_return_status := FND_API.G_RET_STS_ERROR;
5350: IF g_debug_call > 0 THEN
5351: G_DEBUG_MSG := G_DEBUG_MSG || 'E-34';
5352: END IF;
5353:
5354: WHEN OTHERS THEN
5355: IF l_debug_level > 0 THEN
5356: oe_debug_pub.add( 'PROCESS_SHIPPING_ACTIVITY : OTHERS ERROR' , 1 ) ;
5357: END IF;
5358:
5359: IF l_debug_level > 0 THEN
5360: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
5356: oe_debug_pub.add( 'PROCESS_SHIPPING_ACTIVITY : OTHERS ERROR' , 1 ) ;
5357: END IF;
5358:
5359: IF l_debug_level > 0 THEN
5360: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
5361: END IF;
5362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5363:
5364: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5398: l_activity_status_code VARCHAR2(8);
5399: l_dummy VARCHAR2(52);
5400: l_line_index NUMBER;
5401: --
5402: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5403: --
5404: BEGIN
5405:
5406: IF l_debug_level > 0 THEN
5403: --
5404: BEGIN
5405:
5406: IF l_debug_level > 0 THEN
5407: oe_debug_pub.add( 'ENTERING PROCESS_SMC_SHIPPING' , 3 ) ;
5408: END IF;
5409:
5410: x_return_status := FND_API.G_RET_STS_SUCCESS;
5411:
5413: (p_top_model_line_id => p_top_model_line_id,
5414: x_line_tbl => l_line_tbl);
5415:
5416: IF l_debug_level > 0 THEN
5417: oe_debug_pub.add( 'LINES IN THE SMC_PTO '|| L_LINE_TBL.COUNT , 3 ) ;
5418: END IF;
5419:
5420: l_line_index := l_line_tbl.FIRST;
5421:
5426: WHILE l_line_index is NOT NULL
5427: LOOP
5428:
5429: IF l_debug_level > 0 THEN
5430: oe_debug_pub.add( 'PROCESSING LINE : '|| L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID || ' '|| L_LINE_TBL ( L_LINE_INDEX ) .ITEM_TYPE_CODE ||'/' ||L_LINE_TBL ( L_LINE_INDEX ) .SHIPPABLE_FLAG , 3 ) ;
5431: END IF;
5432:
5433: l_dummy := null;
5434:
5436:
5437: IF l_line_tbl(l_line_index).shipping_interfaced_flag = 'Y' THEN
5438:
5439: IF l_debug_level > 0 THEN
5440: oe_debug_pub.add( 'THE LINE IS SHIPPING INTERFACED ' , 5 ) ;
5441: END IF;
5442:
5443: BEGIN
5444:
5451:
5452: EXCEPTION
5453: WHEN NO_DATA_FOUND THEN
5454: IF l_debug_level > 0 THEN
5455: oe_debug_pub.add( 'SHIPPING NEEDS UPDATE'||L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID , 3 ) ;
5456: END IF;
5457: l_dummy := 'U';
5458:
5459: WHEN OTHERS THEN
5457: l_dummy := 'U';
5458:
5459: WHEN OTHERS THEN
5460: IF l_debug_level > 0 THEN
5461: oe_debug_pub.add( 'ONE/MORE LINES RELEASED IN THIS BATCH..' , 5 ) ;
5462: END IF;
5463:
5464: END;
5465:
5465:
5466: ELSE
5467:
5468: IF l_debug_level > 0 THEN
5469: oe_debug_pub.add( 'THE LINE IS NOT YET INTERFACED TO SHIPPING ' , 5 ) ;
5470: END IF;
5471: l_dummy := 'U';
5472: END IF; -- if not interfaced
5473:
5494: l_line_tbl(l_line_index).item_type_code IN ('MODEL','CLASS')
5495: THEN -- Change for bug 1820608
5496:
5497: IF l_debug_level > 0 THEN
5498: oe_debug_pub.add( 'AN ATO MODEL LINE '||L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID , 1 ) ;
5499: END IF;
5500:
5501:
5502: BEGIN
5508: AND item_type_code = 'CONFIG';
5509: EXCEPTION
5510: WHEN no_data_found THEN
5511: IF l_debug_level > 0 THEN
5512: oe_debug_pub.add( 'ATO MODEL NOT PROCESSED IN A SMC' , 1 ) ;
5513: END IF;
5514: l_lines_not_at_ship := FND_API.G_TRUE;
5515:
5516: WHEN others THEN
5514: l_lines_not_at_ship := FND_API.G_TRUE;
5515:
5516: WHEN others THEN
5517: IF l_debug_level > 0 THEN
5518: oe_debug_pub.add( 'ATO MODEL SQL '|| SQLERRM , 1 ) ;
5519: END IF;
5520: END;
5521: ELSE
5522:
5532:
5533: END IF; -- if ato.
5534:
5535: IF l_debug_level > 0 THEN
5536: oe_debug_pub.add( 'LINE IS AT SHIPPING : ' || L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID || ' ' || L_LINE_TBL ( L_LINE_INDEX ) .ITEM_TYPE_CODE || '--' || L_ACTIVITY_STATUS_CODE , 3 ) ;
5537: END IF;
5538:
5539: EXCEPTION
5540:
5539: EXCEPTION
5540:
5541: WHEN NO_DATA_FOUND THEN
5542: IF l_debug_level > 0 THEN
5543: oe_debug_pub.add( 'NOT AT SHIPPING: '|| TO_CHAR ( L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID ) || ' '|| L_LINE_TBL ( L_LINE_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
5544: END IF;
5545:
5546: l_lines_not_at_ship := FND_API.G_TRUE;
5547:
5546: l_lines_not_at_ship := FND_API.G_TRUE;
5547:
5548: WHEN TOO_MANY_ROWS THEN
5549: IF l_debug_level > 0 THEN
5550: oe_debug_pub.add( 'LINE IS AT SHIPPING TOO MANY ROWS : ' || TO_CHAR ( L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID ) || ' ' || L_LINE_TBL ( L_LINE_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
5551: END IF;
5552:
5553: WHEN OTHERS THEN
5554: IF l_debug_level > 0 THEN
5551: END IF;
5552:
5553: WHEN OTHERS THEN
5554: IF l_debug_level > 0 THEN
5555: oe_debug_pub.add( 'PROCESS SHIPPING ACTIVITY :'||SUBSTR ( SQLERRM , 1 , 200 ) , 3 ) ;
5556: END IF;
5557:
5558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5559: END;
5559: END;
5560:
5561: IF l_lines_not_at_ship = FND_API.G_TRUE THEN
5562: IF l_debug_level > 0 THEN
5563: oe_debug_pub.add( 'ALL LINES NOT AT SHIP , RETURNING...' , 1 ) ;
5564: END IF;
5565: RETURN;
5566: END IF;
5567:
5575: G_DEBUG_MSG := G_DEBUG_MSG || '13-7';
5576: END IF;
5577:
5578: IF l_debug_level > 0 THEN
5579: oe_debug_pub.add( 'ALL THE SMC LINES ARE AT SHIPPING : ' , 3 ) ;
5580: END IF;
5581: -- Inform shipping that lines are ready to pick release
5582:
5583: IF l_update_lines_tbl.count > 0 THEN
5581: -- Inform shipping that lines are ready to pick release
5582:
5583: IF l_update_lines_tbl.count > 0 THEN
5584: IF l_debug_level > 0 THEN
5585: oe_debug_pub.add( 'UPDATE SHIPPING '||L_UPDATE_LINES_TBL.COUNT , 3 ) ;
5586: END IF;
5587:
5588: Update_Shipping_From_OE
5589: ( p_update_lines_tbl => l_update_lines_tbl,
5594: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5595: RAISE FND_API.G_EXC_ERROR;
5596: END IF;
5597: IF l_debug_level > 0 THEN
5598: oe_debug_pub.add( 'UPDATE_SHIPPING_FROM_OE : '|| X_RETURN_STATUS , 3 ) ;
5599: END IF;
5600:
5601: IF g_debug_call > 0 THEN
5602: G_DEBUG_MSG := G_DEBUG_MSG || '13-8';
5603: END IF;
5604:
5605: ELSE
5606: IF l_debug_level > 0 THEN
5607: oe_debug_pub.add( 'DONT CALL UPDATE_SHIPPING_FROM_OE' , 3 ) ;
5608: END IF;
5609: END IF; -- count > 0
5610:
5611:
5615:
5616: WHILE l_line_index is NOT NULL
5617: LOOP
5618: IF l_debug_level > 0 THEN
5619: oe_debug_pub.add( 'PROCESSING LINE : '|| TO_CHAR ( L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID ) || ' '|| L_LINE_TBL ( L_LINE_INDEX ) .ITEM_TYPE_CODE ||'/' ||L_LINE_TBL ( L_LINE_INDEX ) .SHIPPABLE_FLAG , 3 ) ;
5620: END IF;
5621:
5622: IF nvl(l_line_tbl(l_line_index).shippable_flag,'N') = 'N' AND
5623: OE_Shipping_Integration_PUB.Is_Activity_Shipping
5624: (1.0, l_line_tbl(l_line_index).line_id) = FND_API.G_TRUE AND
5625: p_line_id <> l_line_tbl(l_line_index).line_id THEN
5626:
5627: IF l_debug_level > 0 THEN
5628: oe_debug_pub.add( 'COMP SHIP_LINE , NONSHIP: '||L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID , 3 ) ;
5629: END IF;
5630:
5631: /* 1739754 */
5632: -- Log a delayed request for Complete Activity
5631: /* 1739754 */
5632: -- Log a delayed request for Complete Activity
5633:
5634: IF l_debug_level > 0 THEN
5635: oe_debug_pub.add( 'COMP ACT DELAYED REQ '|| L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID , 3 ) ;
5636: END IF;
5637:
5638: BEGIN
5639: wf_engine.CompleteActivityInternalName
5640: ('OEOL', to_char(l_line_tbl(l_line_index).line_id),
5641: 'SHIP_LINE', 'NON_SHIPPABLE',TRUE ); --14599978
5642: EXCEPTION
5643: WHEN OTHERS THEN
5644: oe_debug_pub.add('Workflow complete activity failed. Raising');
5645: RAISE ;
5646: END ;
5647:
5648: IF l_debug_level > 0 THEN
5645: RAISE ;
5646: END ;
5647:
5648: IF l_debug_level > 0 THEN
5649: oe_debug_pub.add( 'WF_ENGINE.COMPLETEACTIVITYINTERNALNAME ' || TO_CHAR ( L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID ) , 3 ) ;
5650: END IF;
5651:
5652: END IF; -- if non shippable in a SMC.
5653:
5655:
5656: END LOOP;
5657:
5658: IF l_debug_level > 0 THEN
5659: oe_debug_pub.add( 'LEAVING PROCESS_SMC_SHIPPING' , 3 ) ;
5660: END IF;
5661:
5662: EXCEPTION
5663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5661:
5662: EXCEPTION
5663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5664: IF l_debug_level > 0 THEN
5665: oe_debug_pub.add( 'PROCESS_SMC_SHIPPING : UNEXPECTED ERROR' , 1 ) ;
5666: END IF;
5667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5668:
5669: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5675: END IF;
5676:
5677: WHEN FND_API.G_EXC_ERROR THEN
5678: IF l_debug_level > 0 THEN
5679: oe_debug_pub.add( 'PROCESS_SMC_SHIPPING : EXE ERROR' , 1 ) ;
5680: END IF;
5681: x_return_status := FND_API.G_RET_STS_ERROR;
5682: IF g_debug_call > 0 THEN
5683: G_DEBUG_MSG := G_DEBUG_MSG || 'E-37';
5684: END IF;
5685:
5686: WHEN OTHERS THEN
5687: IF l_debug_level > 0 THEN
5688: oe_debug_pub.add( 'PROCESS_SMC_SHIPPING : OTHERS ERROR' , 1 ) ;
5689: END IF;
5690:
5691: IF l_debug_level > 0 THEN
5692: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
5688: oe_debug_pub.add( 'PROCESS_SMC_SHIPPING : OTHERS ERROR' , 1 ) ;
5689: END IF;
5690:
5691: IF l_debug_level > 0 THEN
5692: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
5693: END IF;
5694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5695:
5696: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5745: WHERE source_header_id = oe.header_id);
5746:
5747:
5748: --
5749: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5750: --
5751: BEGIN
5752:
5753: IF l_debug_level > 0 THEN
5750: --
5751: BEGIN
5752:
5753: IF l_debug_level > 0 THEN
5754: oe_debug_pub.add
5755: ('entering Ship_Confirm_Split_Lines '||p_line_rec.line_id ,3);
5756: END IF;
5757:
5758: IF p_line_rec.shipped_quantity2 is not NULL THEN
5775:
5776:
5777: IF l_count > 0 THEN
5778: IF l_debug_level > 0 THEN
5779: oe_debug_pub.add('ignoring this line, can no close '|| line_rec.line_id , 3 ) ;
5780: END IF;
5781: ELSE
5782:
5783: IF l_debug_level > 0 THEN
5780: END IF;
5781: ELSE
5782:
5783: IF l_debug_level > 0 THEN
5784: oe_debug_pub.add('now processing '|| line_rec.line_id, 3 ) ;
5785: END IF;
5786:
5787: l_line_set_rec.line_id := line_rec.line_id;
5788: l_line_set_rec.line_set_id := line_rec.line_set_id;
5823: WHERE line_id = l_line_set_rec.line_id;
5824:
5825:
5826: IF l_debug_level > 0 THEN
5827: oe_debug_pub.add('line set id '|| line_rec.line_set_id , 3 ) ;
5828: END IF;
5829:
5830: Ship_Confirm_Standard_Line
5831: ( p_line_rec => l_line_set_rec,
5833: p_check_line_set => 'N',
5834: x_return_status => l_return_status );
5835:
5836: IF l_debug_level > 0 THEN
5837: oe_debug_pub.add('ret sts for me '||l_return_status , 3 ) ;
5838: END IF;
5839:
5840: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5847:
5848: END LOOP;
5849:
5850: IF l_debug_level > 0 THEN
5851: oe_debug_pub.add('leaving Ship_Confirm_Split_Lines',3);
5852: END IF;
5853:
5854: EXCEPTION
5855: WHEN OTHERS THEN
5853:
5854: EXCEPTION
5855: WHEN OTHERS THEN
5856: IF l_debug_level > 0 THEN
5857: oe_debug_pub.add('error in Ship_Confirm_Split_Lines '|| sqlerrm,3);
5858: END IF;
5859: RAISE;
5860: END Ship_Confirm_Split_Lines;
5861:
5876: ,p_caller IN VARCHAR2
5877: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
5878: IS
5879: --
5880: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5881: --
5882: I NUMBER := 1;
5883: J NUMBER;
5884: l_line_tbl OE_Order_Pub.Line_Tbl_Type;
5930: x_index => J,
5931: x_return_status => x_return_status);
5932:
5933: IF l_debug_level > 0 THEN
5934: oe_debug_pub.add
5935: (J || ' UPDATE_GLOBAL ret sts: ' || x_RETURN_STATUS);
5936: END IF;
5937:
5938: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5961: := l_line_tbl(I).shipped_quantity2;
5962:
5963:
5964: IF l_debug_level > 0 THEN
5965: oe_debug_pub.add
5966: ('AFTER UPDATE GLOBAL FLOW_STATUS_CODE IS: '
5967: || OE_ORDER_UTIL.G_LINE_TBL( J ).FLOW_STATUS_CODE ,1);
5968: END IF;
5969:
5984: , p_line_tbl => l_line_tbl
5985: , p_old_line_tbl => l_old_line_tbl);
5986:
5987: IF l_debug_level > 0 THEN
5988: oe_debug_pub.add('RETRURNED FROM PRN: '||x_RETURN_STATUS , 3 ) ;
5989: END IF;
5990: IF g_debug_call > 0 THEN
5991: G_DEBUG_MSG := G_DEBUG_MSG || '14-7';
5992: END IF;
6002:
6003: EXCEPTION
6004: WHEN others THEN
6005: IF l_debug_level > 0 THEN
6006: oe_debug_pub.add('error in Call_Notification_Framework' || sqlerrm, 1);
6007: END IF;
6008: RAISE;
6009: END Call_Notification_Framework;
6010:
6028: l_error_msg VARCHAR2(240);
6029: l_msg_index NUMBER;
6030: l_firm_flag VARCHAR2(1) := Null;
6031: --
6032: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6033: --
6034: BEGIN
6035:
6036: l_action_rec.caller := 'OM';
6048: ,x_return_status => l_return_status
6049: ,x_msg_count => l_msg_count
6050: ,x_msg_data => l_msg_data);
6051:
6052: oe_debug_pub.add
6053: ('return status from WSH '|| l_return_status || '-' || l_msg_count, 5);
6054:
6055: IF l_return_status = FND_API.G_RET_STS_SUCCESS OR
6056: l_return_status = 'W' THEN
6068: firm_demand_flag = NVL(l_firm_flag,firm_demand_flag)
6069: WHERE line_id = p_line_rec.line_id(I)
6070: AND p_line_rec.shipping_interfaced_flag(I) = 'Y';
6071:
6072: oe_debug_pub.add('afer updating shipping interfaced flag', 5);
6073: G_BULK_WSH_INTERFACE_CALLED := TRUE; -- bug 4070931 starts
6074:
6075: FOR I in p_line_rec.line_id.FIRST..p_line_rec.line_id.LAST
6076: LOOP
6088: result => NULL);
6089:
6090: EXCEPTION
6091: WHEN OTHERS THEN
6092: oe_debug_pub.add('Exception caught after Wf_engine.Handle_Error',5);
6093: END; -- Erroring out the WF table
6094:
6095: OE_BULK_WF_UTIL.G_LINE_INDEX := NULL;
6096: END IF; -- lines not shipping_interfaced
6138: p_data => l_error_msg,
6139: p_msg_index_out => l_msg_index);
6140:
6141: IF l_debug_level > 0 THEN
6142: oe_debug_pub.add( 'ERROR : '||L_ERROR_MSG , 2 ) ;
6143: END IF;
6144:
6145: fnd_message.set_name('ONT','OE_SHP_ERROR');
6146: FND_MESSAGE.SET_TOKEN('ERROR_MESSAGE',l_error_msg);
6146: FND_MESSAGE.SET_TOKEN('ERROR_MESSAGE',l_error_msg);
6147: --oe_msg_pub.add;
6148:
6149: OE_BULK_MSG_PUB.ADD;
6150: oe_debug_pub.add('here again 2 ', 5);
6151:
6152: P_LINE_REC.error_message_count(l_index)
6153: := p_line_rec.error_message_count(l_index) - 1;
6154: END LOOP; -- message count> 0
6164: x_return_status := l_return_status;
6165: END IF;
6166:
6167: IF l_debug_level > 0 THEN
6168: oe_debug_pub.add('return status from vshpb'|| x_return_status, 5);
6169: END IF;
6170:
6171: EXCEPTION
6172: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6170:
6171: EXCEPTION
6172: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6173: IF l_debug_level > 0 THEN
6174: oe_debug_pub.add('OM_TO_WSH_INTERFACE : UNEXPECTED ERROR',1);
6175: END IF;
6176:
6177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6178:
6185: END IF;
6186:
6187: WHEN FND_API.G_EXC_ERROR THEN
6188: IF l_debug_level > 0 THEN
6189: oe_debug_pub.add('OM_TO_WSH_INTERFACE : EXE ERROR',1);
6190: END IF;
6191: x_return_status := FND_API.G_RET_STS_ERROR;
6192:
6193: WHEN OTHERS THEN
6191: x_return_status := FND_API.G_RET_STS_ERROR;
6192:
6193: WHEN OTHERS THEN
6194: IF l_debug_level > 0 THEN
6195: oe_debug_pub.add('OM_TO_WSH_INTERFACE, OTHERS '|| sqlerrm ,1);
6196: END IF;
6197:
6198: IF l_debug_level > 0 THEN
6199: oe_debug_pub.add('ERROR MESSAGE : '||SUBSTR(SQLERRM ,1,100),1);
6195: oe_debug_pub.add('OM_TO_WSH_INTERFACE, OTHERS '|| sqlerrm ,1);
6196: END IF;
6197:
6198: IF l_debug_level > 0 THEN
6199: oe_debug_pub.add('ERROR MESSAGE : '||SUBSTR(SQLERRM ,1,100),1);
6200: END IF;
6201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6202:
6203: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6214:
6215: PROCEDURE Print_Time(p_msg IN VARCHAR2)
6216: IS
6217: l_time VARCHAR2(100);
6218: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6219: BEGIN
6220: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
6221: 'DD-MON-YY HH24:MI:SS');
6222: IF l_debug_level > 0 THEN
6219: BEGIN
6220: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
6221: 'DD-MON-YY HH24:MI:SS');
6222: IF l_debug_level > 0 THEN
6223: oe_debug_pub.add( P_MSG || ': '|| L_TIME , 1 ) ;
6224: END IF;
6225: END Print_Time;
6226: /*--------------------------------------------------------------------------------
6227: PROCEDURE Ship_Complete
6241: IS
6242: l_ship_confirm_status VARCHAR2(30);
6243: l_count_reserve NUMBER;
6244: --
6245: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6246: --
6247: BEGIN
6248:
6249: select activity_result_code
6297: );
6298: END IF;
6299:
6300: IF l_debug_level > 0 THEN
6301: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
6302: END IF;
6303: IF g_debug_call > 0 THEN
6304: G_DEBUG_MSG := G_DEBUG_MSG || 'E1';
6305: END IF;