[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;
362: OE_GLOBALS.G_ASO_INSTALLED := OE_GLOBALS.CHECK_PRODUCT_INSTALLED(697);
363: END IF;
364:
365: IF l_debug_level > 0 THEN
366: oe_debug_pub.add('ENTERING oexvshpb UPDATE_SHIPPING_FROM_OE',1);
367: oe_debug_pub.add('Tbl Count:'||p_update_lines_tbl.COUNT,4);
368: END IF;
369: IF g_debug_call > 0 THEN
370: G_DEBUG_MSG := G_DEBUG_MSG || '6,';
363: END IF;
364:
365: IF l_debug_level > 0 THEN
366: oe_debug_pub.add('ENTERING oexvshpb UPDATE_SHIPPING_FROM_OE',1);
367: oe_debug_pub.add('Tbl Count:'||p_update_lines_tbl.COUNT,4);
368: END IF;
369: IF g_debug_call > 0 THEN
370: G_DEBUG_MSG := G_DEBUG_MSG || '6,';
371: END IF;
418: := p_update_lines_tbl(l_line_index).entity_id;
419: l_changed_attributes(l_shp_index).ordered_quantity := 0;
420:
421: IF l_debug_level > 0 THEN
422: oe_debug_pub.add('line is deleted '
423: || L_CHANGED_ATTRIBUTES(L_SHP_INDEX).SOURCE_LINE_ID , 3 ) ;
424: oe_debug_pub.add('action flag = '
425: ||L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ACTION_FLAG , 3 ) ;
426: oe_debug_pub.add('item type code :' || l_item_type_code, 3);
420:
421: IF l_debug_level > 0 THEN
422: oe_debug_pub.add('line is deleted '
423: || L_CHANGED_ATTRIBUTES(L_SHP_INDEX).SOURCE_LINE_ID , 3 ) ;
424: oe_debug_pub.add('action flag = '
425: ||L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ACTION_FLAG , 3 ) ;
426: oe_debug_pub.add('item type code :' || l_item_type_code, 3);
427: oe_debug_pub.add('ordered quantity '
428: || L_CHANGED_ATTRIBUTES(L_SHP_INDEX).ORDERED_QUANTITY, 3 ) ;
422: oe_debug_pub.add('line is deleted '
423: || L_CHANGED_ATTRIBUTES(L_SHP_INDEX).SOURCE_LINE_ID , 3 ) ;
424: oe_debug_pub.add('action flag = '
425: ||L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ACTION_FLAG , 3 ) ;
426: oe_debug_pub.add('item type code :' || l_item_type_code, 3);
427: oe_debug_pub.add('ordered quantity '
428: || L_CHANGED_ATTRIBUTES(L_SHP_INDEX).ORDERED_QUANTITY, 3 ) ;
429: END IF;
430:
423: || L_CHANGED_ATTRIBUTES(L_SHP_INDEX).SOURCE_LINE_ID , 3 ) ;
424: oe_debug_pub.add('action flag = '
425: ||L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ACTION_FLAG , 3 ) ;
426: oe_debug_pub.add('item type code :' || l_item_type_code, 3);
427: oe_debug_pub.add('ordered quantity '
428: || L_CHANGED_ATTRIBUTES(L_SHP_INDEX).ORDERED_QUANTITY, 3 ) ;
429: END IF;
430:
431: GOTO END_UPDATE_SHIPPING_LOOP;
434: l_shp_index := l_shp_index + 1;
435: l_changed_attributes(l_shp_index).source_line_id
436: := p_update_lines_tbl(l_line_index).entity_id;
437: IF l_debug_level > 0 THEN
438: OE_DEBUG_PUB.Add ('This is a config item cancel/delete case',1);
439: END IF;
440: END IF;
441:
442: END IF; -- if operation is delete
441:
442: END IF; -- if operation is delete
443:
444: IF l_debug_level > 0 THEN
445: oe_debug_pub.add('processing line_ID ' ||L_LINE_ID, 3);
446: END IF;
447:
448: ---------- Check If explosion date has changed and -----------
449: -- the current activity is shipping for the line.
458: IF OE_Shipping_Integration_PUB.Is_Activity_Shipping
459: (1.0, l_line_id) = FND_API.G_TRUE THEN
460:
461: IF l_debug_level > 0 THEN
462: oe_debug_pub.add
463: ('explosion date changed, line is at ship '|| l_line_id,3);
464: END IF;
465:
466: l_line_at_shipping := FND_API.G_TRUE;
469: G_DEBUG_MSG := G_DEBUG_MSG || '8,';
470: END IF;
471:
472: IF l_debug_level > 0 THEN
473: oe_debug_pub.add
474: ('explosion date changed, but LINE not at shipping '
475: || TO_CHAR ( L_LINE_ID ) , 3 ) ;
476: END IF;
477:
492:
493: IF p_update_lines_tbl(l_line_index).param4 = FND_API.G_TRUE THEN
494:
495: IF l_debug_level > 0 THEN
496: oe_debug_pub.add('line at shipping, update released flag '
497: || TO_CHAR ( L_LINE_ID ) , 3 ) ;
498: END IF;
499:
500:
508:
509: IF nvl(l_shipping_interfaced_flag,'N') = 'N' THEN
510:
511: IF l_debug_level > 0 THEN
512: oe_debug_pub.add('NOT INTERFACED TO SHIPPING ' , 3 ) ;
513: END IF;
514:
515: l_changed_attributes(l_shp_index).source_line_id
516: := l_line_id;
540: IF p_update_lines_tbl(l_line_index).param2 = FND_API.G_TRUE
541: AND l_line_at_shipping = FND_API.G_TRUE THEN
542:
543: IF l_debug_level > 0 THEN
544: oe_debug_pub.add('explosion date changed, activity shipping '
545: || TO_CHAR ( L_LINE_ID ) , 3 ) ;
546: END IF;
547: IF g_debug_call > 0 THEN
548: G_DEBUG_MSG := G_DEBUG_MSG || '12,';
556: l_changed_attributes(l_shp_index).released_status := 'R';
557: ELSE
558:
559: IF l_debug_level > 0 THEN
560: oe_debug_pub.add
561: ('explosion date has changed for a non shippable line'
562: || TO_CHAR ( L_LINE_ID ) , 3 ) ;
563: END IF;
564:
566:
567: -- Log a delayed request for Complete Activity, 1739574
568:
569: IF l_debug_level > 0 THEN
570: oe_debug_pub.add( 'log delayed request complet activity for '
571: || L_LINE_REC.LINE_ID , 3 ) ;
572: END IF;
573:
574: OE_Delayed_Requests_Pvt.Log_Request
609: l_changed_attributes(l_shp_index).source_line_id
610: := l_line_rec.line_id;
611:
612: IF l_debug_level > 0 THEN
613: oe_debug_pub.add('source line id : '
614: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .SOURCE_LINE_ID , 3 ) ;
615: END IF;
616:
617: l_changed_attributes(l_shp_index).sold_to_org_id
665: l_changed_attributes(l_shp_index).action_flag := 'U';
666: END IF;
667:
668: IF l_debug_level > 0 THEN
669: oe_debug_pub.add('action flag = '
670: ||L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ACTION_FLAG , 3 ) ;
671: END IF;
672:
673: IF l_line_rec.shipped_quantity IS NOT NULL AND
677: l_changed_attributes(l_shp_index).shipped_flag := 'N';
678: END IF;
679:
680: IF l_debug_level > 0 THEN
681: oe_debug_pub.add('shipped flag '
682: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .SHIPPED_FLAG , 3 ) ;
683: END IF;
684: IF g_debug_call > 0 THEN
685: G_DEBUG_MSG := G_DEBUG_MSG || '17,';
690: -- If a line is being deleted then the ordered quantity to be notified
691: -- to shipping will be 0.
692:
693: IF l_debug_level > 0 THEN
694: oe_debug_pub.add('under shipment tolerance : '
695: ||L_LINE_REC.SHIP_TOLERANCE_BELOW , 3 ) ;
696: oe_debug_pub.add(p_update_lines_tbl(l_line_index).param5
697: || '-- param5---', 1);
698: END IF;
692:
693: IF l_debug_level > 0 THEN
694: oe_debug_pub.add('under shipment tolerance : '
695: ||L_LINE_REC.SHIP_TOLERANCE_BELOW , 3 ) ;
696: oe_debug_pub.add(p_update_lines_tbl(l_line_index).param5
697: || '-- param5---', 1);
698: END IF;
699:
700: IF p_update_lines_tbl(l_line_index).param5 = FND_API.G_TRUE AND
705: G_DEBUG_MSG := G_DEBUG_MSG || '18,';
706: END IF;
707:
708: IF l_debug_level > 0 THEN
709: oe_debug_pub.add('ordered quantity has been reduced' , 3 ) ;
710: END IF;
711:
712: -- ordered quantity changed check for the shipment status.
713:
736: END IF;
737: END IF;
738: -- 4437814 end changes
739: IF l_debug_level > 0 THEN
740: oe_debug_pub.add('shipline notified flag:' || l_shipline_notified) ;
741: END IF;
742: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW OR
743: l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_ABOVE OR
744: l_x_result_out = OE_GLOBALS.G_FULLY_SHIPPED OR
744: l_x_result_out = OE_GLOBALS.G_FULLY_SHIPPED OR
745: l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE THEN
746: IF l_shipline_notified = 'Y'THEN --4437814
747: IF l_debug_level > 0 THEN
748: oe_debug_pub.add
749: ('line shipped within tolerance, complete ship_line',3);
750: END IF;
751: IF g_debug_call > 0 THEN
752: G_DEBUG_MSG := G_DEBUG_MSG || '20,';
790: x_index => l_index,
791: x_return_status => l_return_status);
792:
793: IF l_debug_level > 0 THEN
794: oe_debug_pub.add( 'after update global picture, status: '
795: || L_RETURN_STATUS ) ;
796: oe_debug_pub.add( 'global picture index: '
797: || L_INDEX , 1 ) ;
798: END IF;
792:
793: IF l_debug_level > 0 THEN
794: oe_debug_pub.add( 'after update global picture, status: '
795: || L_RETURN_STATUS ) ;
796: oe_debug_pub.add( 'global picture index: '
797: || L_INDEX , 1 ) ;
798: END IF;
799:
800: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
827: OE_ORDER_UTIL.g_line_tbl(l_index).last_update_login
828: := FND_GLOBAL.LOGIN_ID;
829:
830: IF l_debug_level > 0 THEN
831: oe_debug_pub.add
832: ('global flow status code after update: '
833: || OE_ORDER_UTIL.G_LINE_TBL( L_INDEX ).FLOW_STATUS_CODE ,1);
834: END IF;
835:
848: , p_line_tbl => l_line_tbl
849: , p_old_line_tbl => l_old_line_tbl);
850:
851: IF l_debug_level > 0 THEN
852: oe_debug_pub.add
853: ('return status Process_Requests_And_Notify() '||L_RETURN_STATUS , 3 ) ;
854: END IF;
855:
856: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
887: x_msg_data => l_msg_data);
888:
889: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
890: IF l_debug_level > 0 THEN
891: oe_debug_pub.add
892: (' ( MLP_DBG ) CALL TO GET_OPM_ITEM_FROM APPS FAILED' , 1 ) ;
893: END IF;
894: RAISE FND_API.G_EXC_ERROR;
895: END IF; */
905:
906: IF l_line_rec.item_type_code = 'CONFIG' THEN
907:
908: IF l_debug_level > 0 THEN
909: oe_debug_pub.add('config line, complete ato model '
910: || l_line_rec.ato_line_id, 2);
911: END IF;
912:
913: Handle_Config_Parent
917: l_result_code := 'SHIP_CONFIRM';
918:
919: -- Log a delayed request for Complete Activity, 1739574
920: IF l_debug_level > 0 THEN
921: oe_debug_pub.add( 'LOGGING DELAYED REQUEST FOR '
922: || L_LINE_REC.LINE_ID , 3 ) ;
923: END IF;
924:
925: OE_Delayed_Requests_Pvt.Log_Request
949: SET SET_STATUS = 'C'
950: WHERE SET_ID = l_line_rec.arrival_set_id;
951:
952: IF l_debug_level > 0 THEN
953: oe_debug_pub.add('SET IS CLOSED : '
954: ||TO_CHAR ( L_LINE_REC.ARRIVAL_SET_ID ) , 3 ) ;
955: END IF;
956: END IF;
957: END IF; --4437814
965: G_DEBUG_MSG := G_DEBUG_MSG || '33,';
966: END IF;
967:
968: IF l_debug_level > 0 THEN
969: oe_debug_pub.add( ' ( MLP_DBG ) ORDERED_QUANTITY IS '
970: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ORDERED_QUANTITY , 1 ) ;
971: END IF;
972:
973: l_changed_attributes(l_shp_index).ordered_quantity2
973: l_changed_attributes(l_shp_index).ordered_quantity2
974: := l_line_rec.ordered_quantity2;
975:
976: IF l_debug_level > 0 THEN
977: oe_debug_pub.add( ' ( MLP_DBG ).ORDERED_QUANTITY2 IS '
978: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ORDERED_QUANTITY2 , 1 ) ;
979: END IF;
980:
981: -- odaboval : End of OPM Changes
994: OE_GLOBALS.G_OPR_DELETE THEN
995:
996: l_changed_attributes(l_shp_index).ordered_quantity := 0;
997: IF l_debug_level > 0 THEN
998: OE_DEBUG_PUB.Add('This is Config cancel/delete case!',1);
999: OE_DEBUG_PUB.Add('Overrriden Ord qty to 0',1);
1000: END IF;
1001:
1002: END IF;
995:
996: l_changed_attributes(l_shp_index).ordered_quantity := 0;
997: IF l_debug_level > 0 THEN
998: OE_DEBUG_PUB.Add('This is Config cancel/delete case!',1);
999: OE_DEBUG_PUB.Add('Overrriden Ord qty to 0',1);
1000: END IF;
1001:
1002: END IF;
1003: --bug3831490 ends }
1003: --bug3831490 ends }
1004:
1005:
1006: IF l_debug_level > 0 THEN
1007: oe_debug_pub.add( ' ( MLP_DBG ).ORDERED_QUANTITY IS '
1008: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ORDERED_QUANTITY , 1 ) ;
1009: END IF;
1010:
1011: l_changed_attributes(l_shp_index).ordered_quantity2
1011: l_changed_attributes(l_shp_index).ordered_quantity2
1012: := l_line_rec.ordered_quantity2;
1013:
1014: IF l_debug_level > 0 THEN
1015: oe_debug_pub.add(' ( MLP_DBG ).ORDERED_QUANTITY2 IS '
1016: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ORDERED_QUANTITY2 , 1 ) ;
1017: END IF;
1018: -- odaboval : End of OPM Changes
1019: END IF; -- p_update_lines_tbl(l_line_index).param5 etc
1019: END IF; -- p_update_lines_tbl(l_line_index).param5 etc
1020:
1021:
1022: IF l_debug_level > 0 THEN
1023: oe_debug_pub.add( 'ORDERED QUANTITY '
1024: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .ORDERED_QUANTITY, 3 ) ;
1025: END IF;
1026:
1027: l_changed_attributes(l_shp_index).order_quantity_uom
1052: l_changed_attributes(l_shp_index).freight_terms_code
1053: := l_line_rec.freight_terms_code;
1054:
1055: IF l_debug_level > 0 THEN
1056: oe_debug_pub.add( 'FREIGHT TERMS CODE '
1057: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .FREIGHT_TERMS_CODE , 3 ) ;
1058: END IF;
1059:
1060: l_changed_attributes(l_shp_index).shipment_priority_code
1113: l_force_ui := 'Y';
1114: END IF;
1115:
1116: IF l_debug_level > 0 THEN
1117: oe_debug_pub.add( 'SUB-INVENTORY '
1118: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .SUBINVENTORY , 3 ) ;
1119: END IF;
1120:
1121:
1125: IF g_debug_call > 0 THEN
1126: G_DEBUG_MSG := G_DEBUG_MSG || '39,';
1127: END IF;
1128: IF l_debug_level > 0 THEN
1129: oe_debug_pub.add( 'PROJECT_ID:'
1130: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .PROJECT_ID , 3 ) ;
1131: END IF;
1132:
1133: l_changed_attributes(l_shp_index).task_id
1134: := l_line_rec.task_id;
1135:
1136:
1137: IF l_debug_level > 0 THEN
1138: oe_debug_pub.add( 'TASK_ID:'
1139: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .TASK_ID , 3 ) ;
1140: END IF;
1141:
1142: IF g_debug_call > 0 THEN
1212: l_changed_attributes(l_shp_index).customer_item_id := l_line_rec.ordered_item_id;
1213: /* End of changes for ER 6110708 */
1214:
1215: IF l_debug_level > 0 THEN
1216: oe_debug_pub.add('LINE-NUMBER '
1217: || L_CHANGED_ATTRIBUTES ( L_SHP_INDEX ) .LINE_NUMBER , 3 ) ;
1218: END IF;
1219:
1220: <
1222:
1223: END LOOP; -- big loop
1224:
1225: IF l_debug_level > 0 THEN
1226: oe_debug_pub.add( 'COMMING OUT LOOP , NUMBER OF RECORDS '
1227: ||L_CHANGED_ATTRIBUTES.COUNT , 3 ) ;
1228:
1229: END IF;
1230: IF g_debug_call > 0 THEN
1236:
1237: IF l_changed_attributes.count > 0 THEN
1238:
1239: IF l_debug_level > 0 THEN
1240: oe_debug_pub.add('CALLING WSH UPDATE_SHIPPING_ATTRIBUTES' , 2 ) ;
1241:
1242: END IF;
1243:
1244: IF (NVL(FND_PROFILE.VALUE('WSH_ENABLE_DCP'), -1) = 1 OR
1256: ,p_changed_attributes => l_changed_attributes
1257: ,x_return_status => l_return_status);
1258:
1259: IF l_debug_level > 0 THEN
1260: oe_debug_pub.add( 'RETURNED FROM WSH UPDATE_SHIPPING_ATTRIBUTES '
1261: || L_RETURN_STATUS , 2 ) ;
1262: END IF;
1263:
1264: IF g_debug_call > 0 THEN
1269:
1270: --Changes for Bug - 2898616
1271: IF l_force_ui = 'Y' THEN
1272: IF l_debug_level > 0 THEN
1273: oe_debug_pub.add('Setting the global to force UI Block',2);
1274: END IF;
1275: OE_GLOBALS.G_FORCE_CLEAR_UI_BLOCK := 'Y';
1276: END IF;
1277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1278: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1279: -- 3571148 changes
1280: IF l_debug_level > 0 THEN
1281: oe_debug_pub.add( ' INSIDE EXPECTED ERROR' , 1 ) ;
1282: END IF;
1283: OE_MSG_PUB.Transfer_Msg_Stack(p_type => 'ERROR' ); --bug4741573
1284: l_msg_count := OE_MSG_PUB.COUNT_MSG;
1285:
1285:
1286: FOR I IN 1..l_msg_count LOOP
1287: l_msg_data := OE_MSG_PUB.Get(I,'F');
1288: IF l_debug_level > 0 THEN
1289: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1290: END IF;
1291: --code fix bug 6391881 :START
1292: IF ( InStr(l_msg_data, 'WSH_NO_DATA_FOUND') > 0 ) THEN
1293: oe_debug_pub.ADD('Bug 6391881: Setting l_wsh_no_data_found to true...' , 1);
1289: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1290: END IF;
1291: --code fix bug 6391881 :START
1292: IF ( InStr(l_msg_data, 'WSH_NO_DATA_FOUND') > 0 ) THEN
1293: oe_debug_pub.ADD('Bug 6391881: Setting l_wsh_no_data_found to true...' , 1);
1294: l_wsh_no_data_found := TRUE;
1295: END IF;
1296: --code fix bug 6391881 :END
1297: END LOOP; -- 3571148 ends
1296: --code fix bug 6391881 :END
1297: END LOOP; -- 3571148 ends
1298: IF l_force_ui = 'Y' THEN
1299: IF l_debug_level > 0 THEN
1300: oe_debug_pub.add('Setting the global to force UI Block',2);
1301: END IF;
1302: OE_GLOBALS.G_FORCE_CLEAR_UI_BLOCK := 'Y';
1303: END IF;
1304: -- Start: Changes for bug 6391881
1303: END IF;
1304: -- Start: Changes for bug 6391881
1305: -- Check if we are coming from wsh_no_data_found error.
1306: IF ( l_wsh_no_data_found = TRUE) THEN
1307: oe_debug_pub.ADD('Bug 6391881::: Checking for cancellation...' , 1);
1308: FOR I in 1..l_changed_attributes.count LOOP
1309: IF ( l_changed_attributes(I).action_flag = 'U' AND
1310: l_changed_attributes(I).ordered_quantity = 0 ) THEN
1311: oe_debug_pub.ADD('Bug 6391881::: Cancellation is YES.', 1);
1307: oe_debug_pub.ADD('Bug 6391881::: Checking for cancellation...' , 1);
1308: FOR I in 1..l_changed_attributes.count LOOP
1309: IF ( l_changed_attributes(I).action_flag = 'U' AND
1310: l_changed_attributes(I).ordered_quantity = 0 ) THEN
1311: oe_debug_pub.ADD('Bug 6391881::: Cancellation is YES.', 1);
1312: -- Check for existence of non-cancelled delivery details.
1313: -- If they exist, cancellation is not allowed.
1314: DECLARE
1315: l_non_cxl_dd_count NUMBER := -1;
1329: AND wdd.source_code = 'OE'
1330: AND wdd.source_line_id = l_changed_attributes(I).source_line_id
1331: AND Nvl(wdd.released_status, 'N') <> 'D'
1332: ;
1333: oe_debug_pub.ADD('Bug 6391881::: l_non_cxl_dd_count: '
1334: || l_non_cxl_dd_count, 1);
1335: IF ( l_non_cxl_dd_count > 0 ) THEN
1336: oe_debug_pub.ADD('Bug 6391881::: Setting l_ok_to_cancel to false...', 1);
1337: l_ok_to_cancel := FALSE;
1332: ;
1333: oe_debug_pub.ADD('Bug 6391881::: l_non_cxl_dd_count: '
1334: || l_non_cxl_dd_count, 1);
1335: IF ( l_non_cxl_dd_count > 0 ) THEN
1336: oe_debug_pub.ADD('Bug 6391881::: Setting l_ok_to_cancel to false...', 1);
1337: l_ok_to_cancel := FALSE;
1338: ELSE
1339: oe_debug_pub.ADD('Bug 6391881::: Setting l_return_status to SUCCESS...', 1);
1340: l_msg_data := NULL;
1335: IF ( l_non_cxl_dd_count > 0 ) THEN
1336: oe_debug_pub.ADD('Bug 6391881::: Setting l_ok_to_cancel to false...', 1);
1337: l_ok_to_cancel := FALSE;
1338: ELSE
1339: oe_debug_pub.ADD('Bug 6391881::: Setting l_return_status to SUCCESS...', 1);
1340: l_msg_data := NULL;
1341: l_return_status := FND_API.G_RET_STS_SUCCESS;
1342: oe_msg_pub.delete_msg;
1343: END IF;
1352: END LOOP;
1353: END IF; -- on l_wsh_no_data_found
1354:
1355: IF l_wsh_no_data_found = TRUE THEN
1356: oe_debug_pub.ADD('Bug 6391881::: l_wsh_no_data_found is true.', 1);
1357: ELSE
1358: oe_debug_pub.ADD('Bug 6391881::: l_wsh_data_found is false.', 1);
1359: END IF;
1360:
1354:
1355: IF l_wsh_no_data_found = TRUE THEN
1356: oe_debug_pub.ADD('Bug 6391881::: l_wsh_no_data_found is true.', 1);
1357: ELSE
1358: oe_debug_pub.ADD('Bug 6391881::: l_wsh_data_found is false.', 1);
1359: END IF;
1360:
1361: IF l_ok_to_cancel = TRUE THEN
1362: oe_debug_pub.ADD('Bug 6391881::: l_ok_to_cancel is true.', 1);
1358: oe_debug_pub.ADD('Bug 6391881::: l_wsh_data_found is false.', 1);
1359: END IF;
1360:
1361: IF l_ok_to_cancel = TRUE THEN
1362: oe_debug_pub.ADD('Bug 6391881::: l_ok_to_cancel is true.', 1);
1363: ELSE
1364: oe_debug_pub.ADD('Bug 6391881::: l_ok_to_cancel is false.', 1);
1365: END IF;
1366:
1360:
1361: IF l_ok_to_cancel = TRUE THEN
1362: oe_debug_pub.ADD('Bug 6391881::: l_ok_to_cancel is true.', 1);
1363: ELSE
1364: oe_debug_pub.ADD('Bug 6391881::: l_ok_to_cancel is false.', 1);
1365: END IF;
1366:
1367: IF NOT ( l_wsh_no_data_found = TRUE AND l_ok_to_cancel = TRUE ) THEN
1368: RAISE fnd_api.g_exc_error;
1381:
1382: IF l_changed_attributes.COUNT = 1 AND
1383: l_changed_attributes(1).action_flag = 'D' THEN
1384: IF l_debug_level > 0 THEN
1385: oe_debug_pub.add('action delete, do not call dcp here',2);
1386: END IF;
1387: l_msg_data := null;
1388: END IF;
1389:
1407:
1408: WSH_DCP_PVT.g_dc_table.DELETE;
1409:
1410: IF l_debug_level > 0 THEN
1411: oe_debug_pub.add('CALLING WSH_DCP_PVT.Check_Scripts '
1412: ||'l_header-'|| l_header_id, 1);
1413: END IF;
1414:
1415: WSH_DCP_PVT.Check_Scripts
1417: ,p_source_line_id => l_line_id
1418: ,x_data_inconsistent => l_msg_data);
1419:
1420: IF l_debug_level > 0 THEN
1421: oe_debug_pub.add
1422: ('CALLING WSH_DCP_PVT.Post_Process '|| l_msg_data, 1);
1423: END IF;
1424:
1425: WSH_DCP_PVT.Post_Process
1428:
1429: EXCEPTION
1430: WHEN WSH_DCP_PVT.dcp_caught THEN
1431: IF l_debug_level > 0 THEN
1432: oe_debug_pub.add('OM call to WSH DCP Caught,
1433: rollback and call wsh again', 1);
1434: END IF;
1435:
1436: ROLLBACK to CATCH_DCP;
1439: WHEN others THEN
1440: IF l_debug_level > 0 THEN
1441: oe_msg_pub.add_text
1442: ('Update_Shipping_From_OE, DCP post process'|| sqlerrm);
1443: oe_debug_pub.add('OM call to WSH DCP,others '|| sqlerrm, 1);
1444: END IF;
1445: END;
1446: END IF; -- profile is yes
1447: END IF; -- return status check
1449: ELSE
1450:
1451: l_return_status := FND_API.G_RET_STS_SUCCESS;
1452: IF l_debug_level > 0 THEN
1453: oe_debug_pub.add('DO NOT CALL SHIPPING API,RETURN SUCCESS ',3);
1454: END IF;
1455:
1456: END IF;-- count is 0
1457:
1465:
1466: IF l_changed_attributes(I).action_flag = 'U' AND
1467: l_changed_attributes(I).ordered_quantity = 0 THEN
1468:
1469: OE_DEBUG_PUB.add('order line id '||l_changed_attributes(I).source_line_id,5);
1470: OE_DEBUG_PUB.add('action flag '||l_changed_attributes(I).action_flag,5);
1471: OE_DEBUG_PUB.add('ordered quantity '||l_changed_attributes(I).ordered_quantity,5);
1472:
1473: BEGIN
1466: IF l_changed_attributes(I).action_flag = 'U' AND
1467: l_changed_attributes(I).ordered_quantity = 0 THEN
1468:
1469: OE_DEBUG_PUB.add('order line id '||l_changed_attributes(I).source_line_id,5);
1470: OE_DEBUG_PUB.add('action flag '||l_changed_attributes(I).action_flag,5);
1471: OE_DEBUG_PUB.add('ordered quantity '||l_changed_attributes(I).ordered_quantity,5);
1472:
1473: BEGIN
1474:
1467: l_changed_attributes(I).ordered_quantity = 0 THEN
1468:
1469: OE_DEBUG_PUB.add('order line id '||l_changed_attributes(I).source_line_id,5);
1470: OE_DEBUG_PUB.add('action flag '||l_changed_attributes(I).action_flag,5);
1471: OE_DEBUG_PUB.add('ordered quantity '||l_changed_attributes(I).ordered_quantity,5);
1472:
1473: BEGIN
1474:
1475: SELECT COUNT(*)
1479: AND SOURCE_CODE = 'OE'
1480: AND RELEASED_STATUS <> 'D';
1481:
1482: IF l_cxl_dd_count > 0 THEN
1483: OE_DEBUG_PUB.add('DD is not cancelled',1);
1484: fnd_message.set_name('ONT', 'OE_CANCEL_NOTHING');
1485: oe_msg_pub.add;
1486: RAISE FND_API.G_EXC_ERROR ;
1487:
1495: END LOOP;
1496:
1497:
1498: IF l_debug_level > 0 THEN
1499: oe_debug_pub.add( 'returning from UPDATE_SHIPPING_FROM_OE' , 1 ) ;
1500: END IF;
1501:
1502: EXCEPTION
1503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1533: 'Update_Shipping_From_OE'
1534: );
1535: END IF;
1536: IF l_debug_level > 0 THEN
1537: oe_debug_pub.add( 'ERROR MESSAGE : '||SQLERRM , 1 ) ;
1538: END IF;
1539: OE_MSG_PUB.Save_API_Messages(); --bug 4516453
1540: OE_MSG_PUB.Reset_Msg_Context (p_entity_code => 'LINE');
1541: IF g_debug_call > 0 THEN
1556: )
1557: IS
1558: l_update_lines_tbl OE_ORDER_PUB.Request_Tbl_Type;
1559: --
1560: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1561: --
1562: BEGIN
1563:
1564: IF l_debug_level > 0 THEN
1561: --
1562: BEGIN
1563:
1564: IF l_debug_level > 0 THEN
1565: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PVT.UPDATE_SHIPPING_PVT' , 1 ) ;
1566: END IF;
1567: IF g_debug_call > 0 THEN
1568: G_DEBUG_MSG := G_DEBUG_MSG || '51,';
1569: END IF;
1599: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1600: RAISE FND_API.G_EXC_ERROR;
1601: END IF;
1602: IF l_debug_level > 0 THEN
1603: oe_debug_pub.add( 'EXITING OE_SHIPPING_INTEGRATION_PVT.UPDATE_SHIPPING_PVT' , 1 ) ;
1604: END IF;
1605: IF g_debug_call > 0 THEN
1606: G_DEBUG_MSG := G_DEBUG_MSG || '54,';
1607: END IF;
1632: 'Update_Shipping_PVT'
1633: );
1634: END IF;
1635: IF l_debug_level > 0 THEN
1636: oe_debug_pub.add( 'ERROR MESSAGE : '||SQLERRM , 1 ) ;
1637: END IF;
1638: IF g_debug_call > 0 THEN
1639: G_DEBUG_MSG := G_DEBUG_MSG || 'E7,';
1640: END IF;
1672: l_org_id NUMBER;
1673: l_wdd_count NUMBER :=0;
1674:
1675: --
1676: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1677: --
1678: BEGIN
1679:
1680: IF l_debug_level > 0 THEN
1677: --
1678: BEGIN
1679:
1680: IF l_debug_level > 0 THEN
1681: oe_debug_pub.add
1682: ('ENTERING OE_SHIPPING_INTEGRATION_PVT.CHECK_SHIPMENT_LINE : '
1683: ||TO_CHAR ( P_LINE_REC.LINE_ID ) ||'/'||TO_CHAR ( P_SHIPPED_QUANTITY )
1684: ||'/'||P_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
1685: END IF;
1717: FROM OE_ORDER_LINES
1718: WHERE line_id = p_line_rec.top_model_line_id;
1719:
1720: IF l_debug_level > 0 THEN
1721: oe_debug_pub.add('SHIPPED QUANTITY : '
1722: ||TO_CHAR ( L_LINE_REC.SHIPPED_QUANTITY ) , 3 ) ;
1723: END IF;
1724: IF g_debug_call > 0 THEN
1725: G_DEBUG_MSG := G_DEBUG_MSG || '62,';
1751: -- Call Get_Quantity to get the cumulative ordered and shipped quantity if
1752: -- this line is part of any line set - only for oe table
1753:
1754: IF l_debug_level > 0 THEN
1755: oe_debug_pub.add('LINE SET ID '||TO_CHAR(L_LINE_REC.LINE_SET_ID),3);
1756: END IF;
1757:
1758: IF l_line_rec.line_set_id IS NOT NULL AND
1759: l_line_rec.line_set_id <> FND_API.G_MISS_NUM THEN
1804: l_tolerance_quantity_below := FLOOR(l_tolerance_quantity_below);
1805:
1806: ELSE
1807: IF l_debug_level > 0 THEN
1808: oe_debug_pub.add('CALLING INVENTORY VALIDATE QUANTITY : '
1809: ||L_QTY_RETURN_STATUS , 2 ) ;
1810: END IF;
1811:
1812:
1819: x_primary_quantity => l_primary_quantity,
1820: x_return_status => l_qty_return_status);
1821:
1822: IF l_debug_level > 0 THEN
1823: oe_debug_pub.add('RET STS FROM INV API : '||L_QTY_RETURN_STATUS , 2 ) ;
1824: END IF;
1825:
1826: IF g_debug_call > 0 THEN
1827: G_DEBUG_MSG := G_DEBUG_MSG || '6-6';
1829:
1830: IF l_qty_return_status IN ('W','S') THEN
1831:
1832: IF l_debug_level > 0 THEN
1833: oe_debug_pub.add('TOL BELOW/VALID QTY : '
1834: ||TO_CHAR ( L_TOLERANCE_QUANTITY_BELOW )
1835: ||'/'||TO_CHAR ( L_VALIDATED_QUANTITY ) , 3 ) ;
1836: END IF;
1837:
1849: ('MODEL', 'OPTION','KIT','CLASS','INCLUDED','CONFIG') THEN
1850: l_tolerance_quantity_above := CEIL(l_tolerance_quantity_above);
1851: ELSE
1852: IF l_debug_level > 0 THEN
1853: oe_debug_pub.add('CALLING INVENTORY VALIDATE QUANTITY : '
1854: ||L_QTY_RETURN_STATUS , 2 ) ;
1855: END IF;
1856:
1857: Inv_Decimals_PUB.Validate_Quantity
1863: x_primary_quantity => l_primary_quantity,
1864: x_return_status => l_qty_return_status);
1865:
1866: IF l_debug_level > 0 THEN
1867: oe_debug_pub.add('RETURN STATUS FROM INV API : '
1868: ||L_QTY_RETURN_STATUS , 2 ) ;
1869: END IF;
1870:
1871: IF l_qty_return_status IN ('W','S') THEN
1869: END IF;
1870:
1871: IF l_qty_return_status IN ('W','S') THEN
1872: IF l_debug_level > 0 THEN
1873: oe_debug_pub.add( 'TOL ABOVE/VALID QTY : '
1874: ||TO_CHAR ( L_TOLERANCE_QUANTITY_ABOVE )
1875: ||'/'||TO_CHAR ( L_VALIDATED_QUANTITY ) , 3 ) ;
1876: END IF;
1877:
1889: ---------- done with getting tol above and below.
1890:
1891:
1892: IF l_debug_level > 0 THEN
1893: oe_debug_pub.add('ORDERED QUANTITY ' || TO_CHAR ( L_ORDERED_QUANTITY),3 );
1894: oe_debug_pub.add('SHIPPED QUANTITY ' || TO_CHAR ( L_SHIPPED_QUANTITY),3 );
1895: oe_debug_pub.add('SHIPPING QUANTITY ' || TO_CHAR( L_SHIPPING_QUANTITY),3 );
1896: oe_debug_pub.add('TOLERANCE BELOW ' || TO_CHAR (L_SHIP_TOLERANCE_BELOW),3 );
1897: oe_debug_pub.add('TOLERAQNCE ABOVE ' || TO_CHAR(L_SHIP_TOLERANCE_ABOVE),3 );
1890:
1891:
1892: IF l_debug_level > 0 THEN
1893: oe_debug_pub.add('ORDERED QUANTITY ' || TO_CHAR ( L_ORDERED_QUANTITY),3 );
1894: oe_debug_pub.add('SHIPPED QUANTITY ' || TO_CHAR ( L_SHIPPED_QUANTITY),3 );
1895: oe_debug_pub.add('SHIPPING QUANTITY ' || TO_CHAR( L_SHIPPING_QUANTITY),3 );
1896: oe_debug_pub.add('TOLERANCE BELOW ' || TO_CHAR (L_SHIP_TOLERANCE_BELOW),3 );
1897: oe_debug_pub.add('TOLERAQNCE ABOVE ' || TO_CHAR(L_SHIP_TOLERANCE_ABOVE),3 );
1898: oe_debug_pub.add('TOLE QTY BELOW '||TO_CHAR(L_TOLERANCE_QUANTITY_BELOW),3 );
1891:
1892: IF l_debug_level > 0 THEN
1893: oe_debug_pub.add('ORDERED QUANTITY ' || TO_CHAR ( L_ORDERED_QUANTITY),3 );
1894: oe_debug_pub.add('SHIPPED QUANTITY ' || TO_CHAR ( L_SHIPPED_QUANTITY),3 );
1895: oe_debug_pub.add('SHIPPING QUANTITY ' || TO_CHAR( L_SHIPPING_QUANTITY),3 );
1896: oe_debug_pub.add('TOLERANCE BELOW ' || TO_CHAR (L_SHIP_TOLERANCE_BELOW),3 );
1897: oe_debug_pub.add('TOLERAQNCE ABOVE ' || TO_CHAR(L_SHIP_TOLERANCE_ABOVE),3 );
1898: oe_debug_pub.add('TOLE QTY BELOW '||TO_CHAR(L_TOLERANCE_QUANTITY_BELOW),3 );
1899: oe_debug_pub.add('TOLE QTY ABOVE '|| TO_CHAR(L_TOLERANCE_QUANTITY_ABOVE),3 );
1892: IF l_debug_level > 0 THEN
1893: oe_debug_pub.add('ORDERED QUANTITY ' || TO_CHAR ( L_ORDERED_QUANTITY),3 );
1894: oe_debug_pub.add('SHIPPED QUANTITY ' || TO_CHAR ( L_SHIPPED_QUANTITY),3 );
1895: oe_debug_pub.add('SHIPPING QUANTITY ' || TO_CHAR( L_SHIPPING_QUANTITY),3 );
1896: oe_debug_pub.add('TOLERANCE BELOW ' || TO_CHAR (L_SHIP_TOLERANCE_BELOW),3 );
1897: oe_debug_pub.add('TOLERAQNCE ABOVE ' || TO_CHAR(L_SHIP_TOLERANCE_ABOVE),3 );
1898: oe_debug_pub.add('TOLE QTY BELOW '||TO_CHAR(L_TOLERANCE_QUANTITY_BELOW),3 );
1899: oe_debug_pub.add('TOLE QTY ABOVE '|| TO_CHAR(L_TOLERANCE_QUANTITY_ABOVE),3 );
1900: END IF;
1893: oe_debug_pub.add('ORDERED QUANTITY ' || TO_CHAR ( L_ORDERED_QUANTITY),3 );
1894: oe_debug_pub.add('SHIPPED QUANTITY ' || TO_CHAR ( L_SHIPPED_QUANTITY),3 );
1895: oe_debug_pub.add('SHIPPING QUANTITY ' || TO_CHAR( L_SHIPPING_QUANTITY),3 );
1896: oe_debug_pub.add('TOLERANCE BELOW ' || TO_CHAR (L_SHIP_TOLERANCE_BELOW),3 );
1897: oe_debug_pub.add('TOLERAQNCE ABOVE ' || TO_CHAR(L_SHIP_TOLERANCE_ABOVE),3 );
1898: oe_debug_pub.add('TOLE QTY BELOW '||TO_CHAR(L_TOLERANCE_QUANTITY_BELOW),3 );
1899: oe_debug_pub.add('TOLE QTY ABOVE '|| TO_CHAR(L_TOLERANCE_QUANTITY_ABOVE),3 );
1900: END IF;
1901:
1894: oe_debug_pub.add('SHIPPED QUANTITY ' || TO_CHAR ( L_SHIPPED_QUANTITY),3 );
1895: oe_debug_pub.add('SHIPPING QUANTITY ' || TO_CHAR( L_SHIPPING_QUANTITY),3 );
1896: oe_debug_pub.add('TOLERANCE BELOW ' || TO_CHAR (L_SHIP_TOLERANCE_BELOW),3 );
1897: oe_debug_pub.add('TOLERAQNCE ABOVE ' || TO_CHAR(L_SHIP_TOLERANCE_ABOVE),3 );
1898: oe_debug_pub.add('TOLE QTY BELOW '||TO_CHAR(L_TOLERANCE_QUANTITY_BELOW),3 );
1899: oe_debug_pub.add('TOLE QTY ABOVE '|| TO_CHAR(L_TOLERANCE_QUANTITY_ABOVE),3 );
1900: END IF;
1901:
1902:
1895: oe_debug_pub.add('SHIPPING QUANTITY ' || TO_CHAR( L_SHIPPING_QUANTITY),3 );
1896: oe_debug_pub.add('TOLERANCE BELOW ' || TO_CHAR (L_SHIP_TOLERANCE_BELOW),3 );
1897: oe_debug_pub.add('TOLERAQNCE ABOVE ' || TO_CHAR(L_SHIP_TOLERANCE_ABOVE),3 );
1898: oe_debug_pub.add('TOLE QTY BELOW '||TO_CHAR(L_TOLERANCE_QUANTITY_BELOW),3 );
1899: oe_debug_pub.add('TOLE QTY ABOVE '|| TO_CHAR(L_TOLERANCE_QUANTITY_ABOVE),3 );
1900: END IF;
1901:
1902:
1903:
1918: l_line_rec.order_quantity_uom,
1919: l_shipping_quantity);
1920:
1921: IF l_debug_level > 0 THEN
1922: oe_debug_pub.add('CONVERTED SHIPPED QUANTITY : '
1923: || TO_CHAR ( L_TEMP_SHIPPED_QUANTITY),3 );
1924: END IF;
1925:
1926: IF g_debug_call > 0 THEN
1928: END IF;
1929:
1930: IF l_temp_shipped_quantity <> trunc(l_temp_shipped_quantity) THEN
1931: IF l_debug_level > 0 THEN
1932: oe_debug_pub.add('CALLING INVENTORY VALIDATE QUANTITY : '
1933: ||L_QTY_RETURN_STATUS , 2 );
1934: END IF;
1935:
1936: Inv_Decimals_PUB.Validate_Quantity
1942: x_primary_quantity => l_primary_quantity,
1943: x_return_status => l_qty_return_status);
1944:
1945: IF l_debug_level > 0 THEN
1946: oe_debug_pub.add('RET STS FROM INV API : '||L_QTY_RETURN_STATUS , 2 );
1947: END IF;
1948:
1949: IF l_qty_return_status = 'W' THEN
1950: IF l_debug_level > 0 THEN
1947: END IF;
1948:
1949: IF l_qty_return_status = 'W' THEN
1950: IF l_debug_level > 0 THEN
1951: oe_debug_pub.add('VALID QTY : '||TO_CHAR ( L_VALIDATED_QUANTITY),3 );
1952: END IF;
1953: l_temp_shipped_quantity := l_validated_quantity;
1954: END IF;
1955:
1953: l_temp_shipped_quantity := l_validated_quantity;
1954: END IF;
1955:
1956: IF l_debug_level > 0 THEN
1957: oe_debug_pub.add( 'VALIDATED SHIPPED QUANTITY : '
1958: || TO_CHAR ( L_TEMP_SHIPPED_QUANTITY),3 );
1959: END IF;
1960:
1961: END IF; -- done validate decimal
1967: x_result_out :=OE_GLOBALS.G_FULLY_SHIPPED;
1968: END IF;
1969:
1970: IF l_debug_level > 0 THEN
1971: OE_DEBUG_PUB.Add('Check the Decimals for Standard Items..Different UOM');
1972: OE_DEBUG_PUB.Add('Changes for Bug-3468847');
1973: END IF;
1974:
1975: IF p_line_rec.item_type_code = 'STANDARD' THEN
1968: END IF;
1969:
1970: IF l_debug_level > 0 THEN
1971: OE_DEBUG_PUB.Add('Check the Decimals for Standard Items..Different UOM');
1972: OE_DEBUG_PUB.Add('Changes for Bug-3468847');
1973: END IF;
1974:
1975: IF p_line_rec.item_type_code = 'STANDARD' THEN
1976:
1984:
1985:
1986: IF l_wdd_count = 0 THEN
1987: IF l_debug_level > 0 THEN
1988: OE_DEBUG_PUB.Add('Delivery Detail Did not Split..');
1989: END IF;
1990: x_result_out := OE_GLOBALS.G_FULLY_SHIPPED;
1991: ELSE
1992: IF l_debug_level > 0 THEN
1989: END IF;
1990: x_result_out := OE_GLOBALS.G_FULLY_SHIPPED;
1991: ELSE
1992: IF l_debug_level > 0 THEN
1993: OE_DEBUG_PUB.Add('Delivery Detail Has Split..');
1994: END IF;
1995: END IF;
1996: END IF;
1997:
2016: END IF;
2017:
2018: -- Bug 5332001
2019: IF l_debug_level > 0 THEN
2020: OE_DEBUG_PUB.add('Checking for complete dropship receipt',1);
2021: END IF;
2022:
2023: IF p_line_rec.source_type_code = 'EXTERNAL' THEN
2024:
2036: FROM OE_DROP_SHIP_SOURCES
2037: WHERE LINE_ID = l_line_rec.line_id);
2038:
2039: IF l_debug_level > 0 THEN
2040: OE_DEBUG_PUB.add('actual quantity '||actual_quantity||' poll received '||poll_received_quantity,1);
2041: END IF;
2042:
2043: IF poll_received_quantity = actual_quantity THEN
2044: x_result_out := OE_GLOBALS.G_FULLY_SHIPPED;
2045: END IF;
2046:
2047: EXCEPTION WHEN OTHERS THEN
2048: IF l_debug_level > 0 THEN
2049: OE_DEBUG_PUB.add('error when checking receipt info '||sqlerrm,1);
2050: END IF;
2051: NULL;
2052: END;
2053:
2054: END IF;
2055: -- Bug 5332001 end
2056:
2057: IF l_debug_level > 0 THEN
2058: oe_debug_pub.add('EXITING FROM CHECK_SHIPMENT_LINE : '||X_RESULT_OUT , 1 );
2059: END IF;
2060:
2061: EXCEPTION
2062: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2085: IF g_debug_call > 0 THEN
2086: G_DEBUG_MSG := G_DEBUG_MSG || 'E9,';
2087: END IF;
2088: IF l_debug_level > 0 THEN
2089: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 );
2090: END IF;
2091: END Check_Shipment_Line;
2092:
2093: /*--------------------------------------------------------------------
2121: l_under_shipped VARCHAR2(1) := FND_API.G_FALSE;
2122: l_line_shipped VARCHAR2(1) := FND_API.G_TRUE;
2123:
2124: --
2125: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2126: --
2127: BEGIN
2128: IF l_debug_level > 0 THEN
2129: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PVT.GET_PTO_SHIPPED_QUANTITY '|| TO_CHAR ( P_TOP_MODEL_LINE_ID ) , 1 ) ;
2125: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2126: --
2127: BEGIN
2128: IF l_debug_level > 0 THEN
2129: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PVT.GET_PTO_SHIPPED_QUANTITY '|| TO_CHAR ( P_TOP_MODEL_LINE_ID ) , 1 ) ;
2130: END IF;
2131:
2132: IF p_top_model_line_id IS NOT NULL AND
2133: p_top_model_line_id <> FND_API.G_MISS_NUM THEN
2149: G_DEBUG_MSG := G_DEBUG_MSG || '71';
2150: END IF;
2151:
2152: IF l_debug_level > 0 THEN
2153: oe_debug_pub.add( 'NUMBER OF LINES IN THE TABLE '|| TO_CHAR ( L_LINE_TBL.COUNT ) , 3 ) ;
2154: END IF;
2155:
2156: -- Populate the local shipment table.
2157:
2160:
2161: IF l_line_tbl(l_line_index).ordered_quantity = 0 THEN
2162:
2163: IF l_debug_level > 0 THEN
2164: 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 ) ;
2165: END IF;
2166: GOTO END_PREPARE_LOOP;
2167: END IF;
2168: l_final_index := l_final_index + 1;
2184: l_ship_date := l_line_tbl(l_line_index).actual_shipment_date;
2185:
2186: IF nvl(l_line_tbl(l_line_index).shipped_quantity,0) = 0 THEN
2187: IF l_debug_level > 0 THEN
2188: oe_debug_pub.add( 'LINE IS NOT SHIPPED : '||L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID , 3 ) ;
2189: END IF;
2190: l_line_shipped := FND_API.G_FALSE;
2191: END IF;
2192: ELSE
2196: /* Added for bug 1952023 */
2197: IF nvl(l_line_tbl(l_line_index).shipped_quantity,0) > nvl(l_line_tbl(l_line_index).ordered_quantity,0) THEN
2198:
2199: IF l_debug_level > 0 THEN
2200: oe_debug_pub.add( 'LINE IS OVER SHIPPED '||L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID , 3 ) ;
2201: END IF;
2202: l_over_shipped := FND_API.G_TRUE;
2203:
2204: END IF;
2206: IF nvl(l_line_tbl(l_line_index).shipped_quantity,0) < nvl(l_line_tbl(l_line_index).ordered_quantity,0) AND
2207: nvl(l_line_tbl(l_line_index).shippable_flag,'N') = 'Y' THEN
2208:
2209: IF l_debug_level > 0 THEN
2210: oe_debug_pub.add( 'LINE IS UNDER SHIPPED '||L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID , 3 ) ;
2211: END IF;
2212: l_under_shipped := FND_API.G_TRUE;
2213:
2214: END IF;
2240: l_pto_shipment_tbl(l_pto_index).ratio_to_parent := 1;
2241: END IF;
2242:
2243: IF l_debug_level > 0 THEN
2244: oe_debug_pub.add( 'RATIO TO PARENT = '||TO_CHAR ( L_PTO_SHIPMENT_TBL ( L_PTO_INDEX ) .RATIO_TO_PARENT ) , 3 ) ;
2245: END IF;
2246: IF l_debug_level > 0 THEN
2247: oe_debug_pub.add( 'RATIO TO TOP = '||TO_CHAR ( L_PTO_SHIPMENT_TBL ( L_PTO_INDEX ) .RATIO_TO_TOP_MODEL ) , 3 ) ;
2248: END IF;
2243: IF l_debug_level > 0 THEN
2244: oe_debug_pub.add( 'RATIO TO PARENT = '||TO_CHAR ( L_PTO_SHIPMENT_TBL ( L_PTO_INDEX ) .RATIO_TO_PARENT ) , 3 ) ;
2245: END IF;
2246: IF l_debug_level > 0 THEN
2247: oe_debug_pub.add( 'RATIO TO TOP = '||TO_CHAR ( L_PTO_SHIPMENT_TBL ( L_PTO_INDEX ) .RATIO_TO_TOP_MODEL ) , 3 ) ;
2248: END IF;
2249:
2250: l_pto_index := l_pto_shipment_tbl.NEXT(l_pto_index);
2251:
2269: l_top_index := l_pto_shipment_tbl(l_pto_index).top_model_line_id;
2270:
2271: 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;
2272: IF l_debug_level > 0 THEN
2273: oe_debug_pub.add( 'SHIPPED QUANTITY FOR PARENT : '|| TO_CHAR ( L_PARENT_SHIPPED_QUANTITY ) , 3 ) ;
2274: END IF;
2275:
2276: IF l_pto_shipment_tbl(l_parent_index).shipped_quantity IS NOT NULL AND
2277: l_pto_shipment_tbl(l_parent_index).shipped_quantity <> l_parent_shipped_quantity THEN
2276: IF l_pto_shipment_tbl(l_parent_index).shipped_quantity IS NOT NULL AND
2277: l_pto_shipment_tbl(l_parent_index).shipped_quantity <> l_parent_shipped_quantity THEN
2278:
2279: IF l_debug_level > 0 THEN
2280: oe_debug_pub.add( 'PTO HAS NOT BEEN SHIPPED IN PROPORTION ' , 3 ) ;
2281: END IF;
2282: l_ratio_status := FND_API.G_FALSE;
2283: GOTO END_CALCULATE_SHIPPED_QUANTITY;
2284: ELSE
2287:
2288: IF l_pto_shipment_tbl(l_parent_index).shipped_quantity <> trunc(l_pto_shipment_tbl(l_parent_index).shipped_quantity) THEN
2289:
2290: IF l_debug_level > 0 THEN
2291: oe_debug_pub.add( 'SHIPPED QUANTITY IN DECIMAL '||TO_CHAR ( L_PTO_SHIPMENT_TBL ( L_PARENT_INDEX ) .SHIPPED_QUANTITY ) , 3 ) ;
2292: END IF;
2293: l_ratio_status := FND_API.G_FALSE;
2294: GOTO END_CALCULATE_SHIPPED_QUANTITY;
2295:
2296: END IF;
2297:
2298: 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;
2299: IF l_debug_level > 0 THEN
2300: oe_debug_pub.add( 'SHIPPED QUANTITY FOR TOP MODEL : '|| TO_CHAR ( L_TOP_SHIPPED_QUANTITY ) , 3 ) ;
2301: END IF;
2302:
2303: IF l_pto_shipment_tbl(l_top_index).shipped_quantity IS NOT NULL AND
2304: l_pto_shipment_tbl(l_top_index).shipped_quantity <> l_top_shipped_quantity THEN
2303: IF l_pto_shipment_tbl(l_top_index).shipped_quantity IS NOT NULL AND
2304: l_pto_shipment_tbl(l_top_index).shipped_quantity <> l_top_shipped_quantity THEN
2305:
2306: IF l_debug_level > 0 THEN
2307: oe_debug_pub.add( 'PTO HAS NOT BEEN SHIPPED IN PROPORTION ' , 3 ) ;
2308: END IF;
2309: l_ratio_status := FND_API.G_FALSE;
2310: GOTO END_CALCULATE_SHIPPED_QUANTITY;
2311: ELSE
2314:
2315: IF l_pto_shipment_tbl(l_top_index).shipped_quantity <> trunc(l_pto_shipment_tbl(l_top_index).shipped_quantity) THEN
2316:
2317: IF l_debug_level > 0 THEN
2318: oe_debug_pub.add( 'SHIPPED QUANTITY IN DECIMAL '||TO_CHAR ( L_PTO_SHIPMENT_TBL ( L_TOP_INDEX ) .SHIPPED_QUANTITY ) , 3 ) ;
2319: END IF;
2320: l_ratio_status := FND_API.G_FALSE;
2321: GOTO END_CALCULATE_SHIPPED_QUANTITY;
2322:
2349:
2350: END IF;
2351:
2352: IF l_debug_level > 0 THEN
2353: oe_debug_pub.add( 'SHIPPED QUANTITY : '||TO_CHAR ( L_PTO_SHIPMENT_TBL ( L_PTO_INDEX ) .SHIPPED_QUANTITY ) , 1 ) ;
2354: END IF;
2355:
2356: l_pto_index := l_pto_shipment_tbl.NEXT(l_pto_index);
2357: END LOOP;
2363:
2364: IF l_line_tbl(l_line_index).ordered_quantity = 0 THEN
2365:
2366: IF l_debug_level > 0 THEN
2367: 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 ) ;
2368: END IF;
2369: GOTO END_FINAL_LOOP;
2370: END IF;
2371:
2373: p_x_line_tbl(l_final_index) := l_line_tbl(l_line_index);
2374:
2375: l_pto_index := l_line_tbl(l_line_index).line_id;
2376: IF l_debug_level > 0 THEN
2377: 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 ) ;
2378: END IF;
2379:
2380: IF l_pto_shipment_tbl(l_pto_index).shippable_flag = FND_API.G_FALSE THEN
2381: p_x_line_tbl(l_final_index).shipped_quantity := l_pto_shipment_tbl(l_pto_index).shipped_quantity;
2380: IF l_pto_shipment_tbl(l_pto_index).shippable_flag = FND_API.G_FALSE THEN
2381: p_x_line_tbl(l_final_index).shipped_quantity := l_pto_shipment_tbl(l_pto_index).shipped_quantity;
2382: p_x_line_tbl(l_final_index).actual_shipment_date := l_ship_date;
2383: IF l_debug_level > 0 THEN
2384: 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 ) ;
2385: END IF;
2386: IF l_debug_level > 0 THEN
2387: 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 ) ;
2388: END IF;
2383: IF l_debug_level > 0 THEN
2384: 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 ) ;
2385: END IF;
2386: IF l_debug_level > 0 THEN
2387: 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 ) ;
2388: END IF;
2389: END IF;
2390:
2391: << END_FINAL_LOOP >>
2399: l_under_shipped = FND_API.G_FALSE AND
2400: l_line_shipped = FND_API.G_TRUE THEN
2401:
2402: IF l_debug_level > 0 THEN
2403: 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 ) ;
2404: END IF;
2405:
2406:
2407: update oe_order_lines
2408: set model_remnant_flag = 'Y'
2409: where top_model_line_id = p_x_line_tbl(1).top_model_line_id;
2410:
2411: IF l_debug_level > 0 THEN
2412: oe_debug_pub.add( 'NOW SET THE REMNANT FLAG FOR ALL THE LINES ' , 3 ) ;
2413: END IF;
2414:
2415: FOR l_line_index IN p_x_line_tbl.FIRST .. p_x_line_tbl.LAST
2416: LOOP
2415: FOR l_line_index IN p_x_line_tbl.FIRST .. p_x_line_tbl.LAST
2416: LOOP
2417:
2418: IF l_debug_level > 0 THEN
2419: 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 ) ;
2420: END IF;
2421: p_x_line_tbl(l_line_index).model_remnant_flag := 'Y';
2422:
2423: END LOOP;
2429: x_ratio_status := l_ratio_status;
2430: x_return_status := FND_API.G_RET_STS_SUCCESS;
2431:
2432: IF l_debug_level > 0 THEN
2433: oe_debug_pub.add( 'EXITING OE_SHIPPING_INTEGRATION_PVT.GET_PTO_SHIPPED_QUANTITY ' , 1 ) ;
2434: END IF;
2435: EXCEPTION
2436: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2464: );
2465: END IF;
2466:
2467: IF l_debug_level > 0 THEN
2468: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
2469: END IF;
2470: IF g_debug_call > 0 THEN
2471: G_DEBUG_MSG := G_DEBUG_MSG || 'Shp-E-12';
2472: END IF;
2534: l_ato_line_index NUMBER := 0;
2535: l_set_recursion VARCHAR2(1) := 'N';
2536:
2537: --
2538: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2539: --
2540: BEGIN
2541:
2542: IF l_debug_level > 0 THEN
2539: --
2540: BEGIN
2541:
2542: IF l_debug_level > 0 THEN
2543: oe_debug_pub.add( 'ENTERING SHIP_CONFIRM_PTO_KIT '|| P_TOP_MODEL_LINE_ID , 1 ) ;
2544: END IF;
2545:
2546: -- Call get PTO shipped quantity to get the shipment status and shipped
2547: -- quantities for MODEL and CLASS.
2564: FOR l_pto_index IN 1 .. l_line_tbl.count
2565: LOOP
2566:
2567: IF l_debug_level > 0 THEN
2568: 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 ) ;
2569: END IF;
2570:
2571: IF l_line_tbl(l_pto_index).line_id =
2572: l_line_tbl(l_pto_index).top_model_line_id THEN
2589:
2590: END LOOP;
2591:
2592: IF l_debug_level > 0 THEN
2593: oe_debug_pub.add( 'TOP MODEL INDEX : '||L_TOP_MODEL_INDEX , 3 ) ;
2594: END IF;
2595: IF l_debug_level > 0 THEN
2596: oe_debug_pub.add( 'ATO LINE INDEX : '||L_ATO_LINE_INDEX , 3 ) ;
2597: END IF;
2592: IF l_debug_level > 0 THEN
2593: oe_debug_pub.add( 'TOP MODEL INDEX : '||L_TOP_MODEL_INDEX , 3 ) ;
2594: END IF;
2595: IF l_debug_level > 0 THEN
2596: oe_debug_pub.add( 'ATO LINE INDEX : '||L_ATO_LINE_INDEX , 3 ) ;
2597: END IF;
2598: IF l_debug_level > 0 THEN
2599: oe_debug_pub.add( 'NEW TOLERANCE VALUE : '||L_UPDATE_TOLERANCE_VALUE , 3 ) ;
2600: END IF;
2595: IF l_debug_level > 0 THEN
2596: oe_debug_pub.add( 'ATO LINE INDEX : '||L_ATO_LINE_INDEX , 3 ) ;
2597: END IF;
2598: IF l_debug_level > 0 THEN
2599: oe_debug_pub.add( 'NEW TOLERANCE VALUE : '||L_UPDATE_TOLERANCE_VALUE , 3 ) ;
2600: END IF;
2601:
2602:
2603: -- Check for shipment status when the ratio is not broken and the ship
2610:
2611: FOR l_pto_index IN l_line_tbl.FIRST .. l_line_tbl.LAST
2612: LOOP
2613: IF l_debug_level > 0 THEN
2614: 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 ) ;
2615: END IF;
2616:
2617: IF l_debug_level > 0 THEN
2618: 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 ) ;
2614: 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 ) ;
2615: END IF;
2616:
2617: IF l_debug_level > 0 THEN
2618: 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 ) ;
2619: END IF;
2620:
2621: IF nvl(l_line_tbl(l_pto_index).shippable_flag,'N') <> 'Y' THEN
2622:
2622:
2623: l_upd_tbl_index := l_upd_tbl_index + 1;
2624:
2625: IF l_debug_level > 0 THEN
2626: oe_debug_pub.add( 'NONSHIPPABLE INDEX UPD TABLE '|| L_UPD_TBL_INDEX , 3 ) ;
2627: END IF;
2628:
2629: l_update_line_tbl(l_upd_tbl_index) := l_line_tbl(l_pto_index);
2630: l_update_line_tbl(l_upd_tbl_index).operation
2640: l_update_line_tbl(l_upd_tbl_index).ship_tolerance_below
2641: := l_update_tolerance_value;
2642:
2643: IF l_debug_level > 0 THEN
2644: oe_debug_pub.add( 'NEW TOLERANCE = '|| L_UPDATE_LINE_TBL ( L_UPD_TBL_INDEX ) .SHIP_TOLERANCE_BELOW , 3 ) ;
2645: END IF;
2646:
2647: END IF;
2648:
2646:
2647: END IF;
2648:
2649: IF l_debug_level > 0 THEN
2650: oe_debug_pub.add( 'SHIPPED QUANTITY = '|| TO_CHAR ( L_UPDATE_LINE_TBL ( L_UPD_TBL_INDEX ) .SHIPPED_QUANTITY ) , 3 ) ;
2651: END IF;
2652:
2653: END IF;
2654:
2655: END LOOP;
2656:
2657:
2658: IF l_debug_level > 0 THEN
2659: oe_debug_pub.add( 'CALLING PO TO UPDATE SHIPPED QTY FOR NON SHIPPABLE LINES' , 3 ) ;
2660: END IF;
2661:
2662: IF g_debug_call > 0 THEN
2663: G_DEBUG_MSG := G_DEBUG_MSG || 'Shp-8-6';
2700: IF l_line_tbl(l_top_model_index).ordered_quantity =
2701: l_line_tbl(l_top_model_index).shipped_quantity THEN
2702:
2703: IF l_debug_level > 0 THEN
2704: oe_debug_pub.add( 'FULLY SHIPPED , SHIPMENT RATIO IS NOT BROKEN' , 3 ) ;
2705: END IF;
2706: l_x_result_out := OE_GLOBALS.G_FULLY_SHIPPED;
2707:
2708: ELSE
2706: l_x_result_out := OE_GLOBALS.G_FULLY_SHIPPED;
2707:
2708: ELSE
2709: IF l_debug_level > 0 THEN
2710: oe_debug_pub.add( 'NOT FULLY SHIPPED , SHIPMENT RATIO IS NOT BROKEN' , 3 ) ;
2711: END IF;
2712: -- Check the shipment status
2713:
2714: l_ship_tolerance_below
2717: := l_line_tbl(l_top_model_index).ship_tolerance_above;
2718: -- Check the shipment status
2719:
2720: IF l_debug_level > 0 THEN
2721: 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 ) ;
2722: END IF;
2723:
2724: Check_Shipment_Line
2725: (p_line_rec => l_line_tbl(l_top_model_index),
2734: l_line_tbl(l_top_model_index).ordered_quantity >
2735: l_line_tbl(l_top_model_index).shipped_quantity THEN
2736:
2737: IF l_debug_level > 0 THEN
2738: oe_debug_pub.add( 'CALLING OE_ORDER_PVT.PROCESS_ORDER FOR MODEL LINE' , 3 ) ;
2739: END IF;
2740:
2741: -- Assign the first record of the table for process order for update
2742: -- of the ordered quantity.
2763: l_split_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
2764: l_split_line_tbl(2).split_by := 'SYSTEM';
2765:
2766: IF l_debug_level > 0 THEN
2767: oe_debug_pub.add( 'SPLIT FROM LINE ID : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
2768: END IF;
2769:
2770: IF l_debug_level > 0 THEN
2771: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '|| TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
2767: oe_debug_pub.add( 'SPLIT FROM LINE ID : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
2768: END IF;
2769:
2770: IF l_debug_level > 0 THEN
2771: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '|| TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
2772: END IF;
2773:
2774: IF l_debug_level > 0 THEN
2775: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
2771: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '|| TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
2772: END IF;
2773:
2774: IF l_debug_level > 0 THEN
2775: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
2776: END IF;
2777:
2778: IF l_debug_level > 0 THEN
2779: oe_debug_pub.add( 'ORDERED QUANTITY NEW LINE : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
2775: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
2776: END IF;
2777:
2778: IF l_debug_level > 0 THEN
2779: oe_debug_pub.add( 'ORDERED QUANTITY NEW LINE : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
2780: END IF;
2781:
2782:
2783: l_control_rec := OE_GLOBALS.G_MISS_CONTROL_REC;
2814: RAISE FND_API.G_EXC_ERROR;
2815: END IF;
2816:
2817: IF l_debug_level > 0 THEN
2818: oe_debug_pub.add( 'RET STS FROM PROCESS ORDER: '||L_RETURN_STATUS , 3 ) ;
2819: END IF;
2820: END IF;
2821:
2822: ---------------------- split done -------------------------
2826: FOR l_pto_index IN l_line_tbl.FIRST .. l_line_tbl.LAST
2827: LOOP
2828:
2829: IF l_debug_level > 0 THEN
2830: oe_debug_pub.add( 'INSIDE THE CONFIRM SHIPMENT LOOP : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2831: END IF;
2832: IF l_debug_level > 0 THEN
2833: oe_debug_pub.add( 'INSIDE THE CONFIRM SHIPMENT LOOP : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2834: END IF;
2829: IF l_debug_level > 0 THEN
2830: oe_debug_pub.add( 'INSIDE THE CONFIRM SHIPMENT LOOP : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2831: END IF;
2832: IF l_debug_level > 0 THEN
2833: oe_debug_pub.add( 'INSIDE THE CONFIRM SHIPMENT LOOP : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2834: END IF;
2835:
2836: IF nvl(l_line_tbl(l_pto_index).shippable_flag,'N') = 'Y' THEN
2837:
2835:
2836: IF nvl(l_line_tbl(l_pto_index).shippable_flag,'N') = 'Y' THEN
2837:
2838: IF l_debug_level > 0 THEN
2839: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2840: END IF;
2841: IF l_debug_level > 0 THEN
2842: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2843: END IF;
2838: IF l_debug_level > 0 THEN
2839: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2840: END IF;
2841: IF l_debug_level > 0 THEN
2842: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2843: END IF;
2844:
2845: Ship_Confirm_Standard_Line
2846: ( p_line_rec => l_line_tbl(l_pto_index),
2870:
2871: ELSIF l_ratio_status = FND_API.G_FALSE THEN
2872:
2873: IF l_debug_level > 0 THEN
2874: oe_debug_pub.add( 'NOT SHIPPED , SHIPMENT RATIO IS BROKEN : ' , 3 ) ;
2875: END IF;
2876:
2877: -- Call process order to update the shipping tolerances to 0
2878: -- if there is some value in tolerance
2891: FOR l_pto_index IN l_line_tbl.FIRST .. l_line_tbl.LAST
2892: LOOP
2893:
2894: IF l_debug_level > 0 THEN
2895: oe_debug_pub.add( 'INSIDE THE RATIO BROKEN LOOP : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2896: END IF;
2897: IF l_debug_level > 0 THEN
2898: oe_debug_pub.add( 'INSIDE THE RATIO BROKEN LOOP : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2899: END IF;
2894: IF l_debug_level > 0 THEN
2895: oe_debug_pub.add( 'INSIDE THE RATIO BROKEN LOOP : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2896: END IF;
2897: IF l_debug_level > 0 THEN
2898: oe_debug_pub.add( 'INSIDE THE RATIO BROKEN LOOP : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2899: END IF;
2900:
2901: /* Added for bug 1952023 */
2902:
2905: THEN
2906: IF nvl(l_line_tbl(l_pto_index).shippable_flag,'N') = 'Y' THEN
2907:
2908: IF l_debug_level > 0 THEN
2909: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2910: END IF;
2911:
2912: IF l_debug_level > 0 THEN
2913: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2909: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : LINE ID : '|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2910: END IF;
2911:
2912: IF l_debug_level > 0 THEN
2913: oe_debug_pub.add( 'INSIDE THE IF FOR SHIPPABLE LINE : ITEM TYPE : '|| L_LINE_TBL ( L_PTO_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
2914: END IF;
2915:
2916: IF nvl(l_line_tbl(l_pto_index).shipped_quantity,0) <> 0 THEN
2917: IF l_debug_level > 0 THEN
2914: END IF;
2915:
2916: IF nvl(l_line_tbl(l_pto_index).shipped_quantity,0) <> 0 THEN
2917: IF l_debug_level > 0 THEN
2918: oe_debug_pub.add( 'THE LINE IS UNDERSHIPPED : SPLIT LINE'|| TO_CHAR ( L_LINE_TBL ( L_PTO_INDEX ) .LINE_ID ) , 3 ) ;
2919: END IF;
2920:
2921: l_split_index := l_split_index + 1;
2922: l_split_line_tbl(l_split_index) := l_line_tbl(l_pto_index);
2930: l_split_line_tbl(l_split_index).split_by := 'SYSTEM';
2931: l_split_line_tbl(l_split_index).split_action_code := 'SPLIT';
2932:
2933: IF l_debug_level > 0 THEN
2934: oe_debug_pub.add( 'NEW ORDERED QUANTITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .ORDERED_QUANTITY ) , 3 ) ;
2935: END IF;
2936: IF l_debug_level > 0 THEN
2937: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .SHIPPED_QUANTITY ) , 3 ) ;
2938: END IF;
2933: IF l_debug_level > 0 THEN
2934: oe_debug_pub.add( 'NEW ORDERED QUANTITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .ORDERED_QUANTITY ) , 3 ) ;
2935: END IF;
2936: IF l_debug_level > 0 THEN
2937: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .SHIPPED_QUANTITY ) , 3 ) ;
2938: END IF;
2939: -- Call the process order to split the line
2940: END IF;
2941: END IF; -- Shippable flag = Y
2941: END IF; -- Shippable flag = Y
2942:
2943: ELSE
2944: IF l_debug_level > 0 THEN
2945: oe_debug_pub.add( 'REMNANT_MODEL ' , 3 ) ;
2946: END IF;
2947: l_split_index := l_split_index + 1;
2948: l_split_line_tbl(l_split_index) := l_line_tbl(l_pto_index);
2949: END IF; -- Model Remnant
2956:
2957: IF nvl(l_line_tbl(l_top_model_index).model_remnant_flag,'N') = 'N'
2958: THEN
2959: IF l_debug_level > 0 THEN
2960: oe_debug_pub.add( 'CALLING NON PROPORTIONAL SPLIT' , 3 ) ;
2961: END IF;
2962:
2963: IF g_debug_call > 0 THEN
2964: G_DEBUG_MSG := G_DEBUG_MSG || '88,';
2974: RAISE FND_API.G_EXC_ERROR;
2975: END IF;
2976:
2977: IF l_debug_level > 0 THEN
2978: oe_debug_pub.add( 'RET STS FROM NON PRO SPLIT/'||L_RETURN_STATUS , 3 ) ;
2979: END IF;
2980:
2981: IF l_debug_level > 0 THEN
2982: oe_debug_pub.add( 'NUMBER OF ROWS RETURNED : '|| TO_CHAR ( L_SPLIT_LINE_TBL.COUNT ) , 3 ) ;
2978: oe_debug_pub.add( 'RET STS FROM NON PRO SPLIT/'||L_RETURN_STATUS , 3 ) ;
2979: END IF;
2980:
2981: IF l_debug_level > 0 THEN
2982: oe_debug_pub.add( 'NUMBER OF ROWS RETURNED : '|| TO_CHAR ( L_SPLIT_LINE_TBL.COUNT ) , 3 ) ;
2983: END IF;
2984: END IF; -- Remnant flag
2985: IF g_debug_call > 0 THEN
2986: G_DEBUG_MSG := G_DEBUG_MSG || '89';
2998: OE_Line_Fullfill.Is_Part_Of_Fulfillment_Set
2999: (l_split_line_tbl(l_split_index).line_id);
3000:
3001: IF l_debug_level > 0 THEN
3002: oe_debug_pub.add( 'PART FULFILLMENT SET: '||L_FULFILLMENT_SET_FLAG , 3 ) ;
3003: END IF;
3004:
3005:
3006: IF nvl(l_split_line_tbl(l_split_index).shippable_flag,'N') = 'Y' AND
3011:
3012: l_item_key := to_char(l_split_line_tbl(l_split_index).line_id);
3013:
3014: IF l_debug_level > 0 THEN
3015: oe_debug_pub.add('CALLING GET ACTIVITY RESULT FOR : '
3016: || L_ITEM_KEY||'/'||'SHIP_LINE' , 3 ) ;
3017: END IF;
3018:
3019: OE_LINE_FULLFILL.Get_Activity_Result
3027:
3028: IF l_activity_status = 'NOTIFIED' THEN
3029:
3030: IF l_debug_level > 0 THEN
3031: oe_debug_pub.add( 'CALLING SHIP_CONFIRM_STANDARD_LINE '
3032: || L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .LINE_ID , 3 ) ;
3033: END IF;
3034:
3035: Ship_Confirm_Standard_Line
3052:
3053: l_item_key := to_char(l_split_line_tbl(l_split_index).line_id);
3054:
3055: IF l_debug_level > 0 THEN
3056: oe_debug_pub.add( 'CALLING GET ACTIVITY RESULT FOR : '|| L_ITEM_KEY||'/'||'FULFILL_LINE' , 3 ) ;
3057: END IF;
3058:
3059: OE_LINE_FULLFILL.Get_Activity_Result
3060: (p_item_type => OE_GLOBALS.G_WFI_LIN
3065: ,x_activity_status_code => l_activity_status
3066: ,x_activity_id => l_activity_id );
3067:
3068: IF l_debug_level > 0 THEN
3069: oe_debug_pub.add( 'RET STS FROM GET ACT RESULT: '||L_RETURN_STATUS , 3 ) ;
3070: END IF;
3071: IF g_debug_call > 0 THEN
3072: G_DEBUG_MSG := G_DEBUG_MSG || '89';
3073: END IF;
3074: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3076: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3077: IF l_debug_level > 0 THEN
3078: oe_debug_pub.add( 'LINE IS NOT AT FULFILLMENT ACTIVITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .LINE_ID ) , 3 ) ;
3079: END IF;
3080: ELSE
3081: IF l_debug_level > 0 THEN
3082: oe_debug_pub.add( 'LINE IS AT FULFILLMENT ACTIVITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .LINE_ID ) , 3 ) ;
3078: oe_debug_pub.add( 'LINE IS NOT AT FULFILLMENT ACTIVITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .LINE_ID ) , 3 ) ;
3079: END IF;
3080: ELSE
3081: IF l_debug_level > 0 THEN
3082: oe_debug_pub.add( 'LINE IS AT FULFILLMENT ACTIVITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .LINE_ID ) , 3 ) ;
3083: END IF;
3084:
3085: IF l_debug_level > 0 THEN
3086: oe_debug_pub.add( 'CALLING GET FULFILLMENT ACTIVITY ' , 3 ) ;
3082: oe_debug_pub.add( 'LINE IS AT FULFILLMENT ACTIVITY : '|| TO_CHAR ( L_SPLIT_LINE_TBL ( L_SPLIT_INDEX ) .LINE_ID ) , 3 ) ;
3083: END IF;
3084:
3085: IF l_debug_level > 0 THEN
3086: oe_debug_pub.add( 'CALLING GET FULFILLMENT ACTIVITY ' , 3 ) ;
3087: END IF;
3088:
3089: IF g_debug_call > 0 THEN
3090: G_DEBUG_MSG := G_DEBUG_MSG || '90';
3102: RAISE FND_API.G_EXC_ERROR;
3103: END IF;
3104:
3105: IF l_debug_level > 0 THEN
3106: oe_debug_pub.add( 'FULFILLMENT ACT : '||L_FULFILLMENT_ACTIVITY , 3 ) ;
3107: END IF;
3108:
3109: IF l_fulfillment_activity = 'NO_ACTIVITY' OR
3110: l_fulfillment_activity = 'SHIP_LINE' THEN
3135: l_fulfill_tbl(l_fulfill_index).operation
3136: := OE_GLOBALS.G_OPR_UPDATE;
3137:
3138: IF l_debug_level > 0 THEN
3139: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3140: END IF;
3141: IF l_debug_level > 0 THEN
3142: oe_debug_pub.add( 'FULFILLED FLAG : '|| L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3143: END IF;
3138: IF l_debug_level > 0 THEN
3139: oe_debug_pub.add( 'FULFILL INDEX : '||TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3140: END IF;
3141: IF l_debug_level > 0 THEN
3142: oe_debug_pub.add( 'FULFILLED FLAG : '|| L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3143: END IF;
3144: IF l_debug_level > 0 THEN
3145: oe_debug_pub.add( 'FULFILLED QUANTITY : '|| TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3146: END IF;
3141: IF l_debug_level > 0 THEN
3142: oe_debug_pub.add( 'FULFILLED FLAG : '|| L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_FLAG , 3 ) ;
3143: END IF;
3144: IF l_debug_level > 0 THEN
3145: oe_debug_pub.add( 'FULFILLED QUANTITY : '|| TO_CHAR ( L_FULFILL_TBL ( L_FULFILL_INDEX ) .FULFILLED_QUANTITY ) , 3 ) ;
3146: END IF;
3147:
3148: END IF; -- no activity
3149:
3157:
3158: IF l_fulfill_index <> 0 THEN
3159:
3160: IF l_debug_level > 0 THEN
3161: oe_debug_pub.add( 'CALLING FULFILL LINE TABLE : '|| TO_CHAR ( L_FULFILL_INDEX ) , 3 ) ;
3162: END IF;
3163: IF g_debug_call > 0 THEN
3164: G_DEBUG_MSG := G_DEBUG_MSG || '91';
3165: END IF;
3178:
3179: FOR l_fulfill_index IN 1 .. l_fulfill_tbl.count
3180: LOOP
3181: IF l_debug_level > 0 THEN
3182: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
3183: END IF;
3184:
3185: OE_Order_WF_Util.Update_Flow_Status_Code
3186: (p_header_id => l_fulfill_tbl(l_fulfill_index).header_id,
3188: p_flow_status_code => 'FULFILLED',
3189: x_return_status => l_return_status);
3190:
3191: IF l_debug_level > 0 THEN
3192: oe_debug_pub.add( 'RET STS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
3193: END IF;
3194:
3195: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3196: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3201: l_item_key := to_char(l_fulfill_tbl(l_fulfill_index).line_id);
3202:
3203: -- 1739574 Log a delayed request for Complete Activity
3204: IF l_debug_level > 0 THEN
3205: oe_debug_pub.add( 'COMPLETE ACT :LOGGING REQUEST '|| L_ITEM_KEY , 3 ) ;
3206: END IF;
3207:
3208: OE_Delayed_Requests_Pvt.Log_Request
3209: ( p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3217: p_param4 => OE_GLOBALS.G_WFR_COMPLETE,
3218: x_return_status => l_return_status);
3219:
3220: IF l_debug_level > 0 THEN
3221: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES '|| L_FULFILL_TBL ( L_FULFILL_INDEX ) .LINE_ID , 3 ) ;
3222: END IF;
3223:
3224: OE_LINE_FULLFILL.Fulfill_Service_Lines
3225: (p_line_id => l_fulfill_tbl(l_fulfill_index).line_id,
3226: p_header_id => l_fulfill_tbl(l_fulfill_index).header_id,
3227: x_return_status => l_return_status);
3228:
3229: IF l_debug_level > 0 THEN
3230: oe_debug_pub.add( 'RET STS FULFILL SERVICE '||L_RETURN_STATUS , 3 ) ;
3231: END IF;
3232:
3233: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3244:
3245: END IF;
3246:
3247: IF l_debug_level > 0 THEN
3248: oe_debug_pub.add( 'EXITING SHIP_CONFIRM_PTO_KIT : '||X_RETURN_STATUS , 1 ) ;
3249: END IF;
3250:
3251: EXCEPTION
3252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3264: x_return_status := FND_API.G_RET_STS_ERROR;
3265:
3266: WHEN OTHERS THEN
3267: IF l_debug_level > 0 THEN
3268: oe_debug_pub.add( 'SHIP_CONFIRM_PTO_KIT : EXITING WITH OTHERS ERROR' , 1 ) ;
3269: END IF;
3270: IF l_debug_level > 0 THEN
3271: oe_debug_pub.add( 'ERROR MESSAGE : '||SQLERRM , 1 ) ;
3272: END IF;
3267: IF l_debug_level > 0 THEN
3268: oe_debug_pub.add( 'SHIP_CONFIRM_PTO_KIT : EXITING WITH OTHERS ERROR' , 1 ) ;
3269: END IF;
3270: IF l_debug_level > 0 THEN
3271: oe_debug_pub.add( 'ERROR MESSAGE : '||SQLERRM , 1 ) ;
3272: END IF;
3273: IF g_debug_call > 0 THEN
3274: G_DEBUG_MSG := G_DEBUG_MSG || 'E9';
3275: END IF;
3319: l_uom_different NUMBER;
3320: l_requested_qty_uom VARCHAR2(3);
3321:
3322: --
3323: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3324: --
3325:
3326: BEGIN
3327:
3325:
3326: BEGIN
3327:
3328: IF l_debug_level > 0 THEN
3329: oe_debug_pub.add( 'enter ship_confirm_standard_line ' , 1 ) ;
3330: END IF;
3331:
3332: IF g_debug_call > 0 THEN
3333: G_DEBUG_MSG := G_DEBUG_MSG || '101,';
3336: IF p_line_id IS NULL OR
3337: p_line_id = FND_API.G_MISS_NUM THEN
3338: l_line_rec := p_line_rec;
3339: IF l_debug_level > 0 THEN
3340: oe_debug_pub.add( 'p_line_rec.line_id '||P_LINE_REC.LINE_ID , 3 ) ;
3341: END IF;
3342: ELSE
3343: IF l_debug_level > 0 THEN
3344: oe_debug_pub.add( 'line_id '||P_LINE_ID , 3 ) ;
3340: oe_debug_pub.add( 'p_line_rec.line_id '||P_LINE_REC.LINE_ID , 3 ) ;
3341: END IF;
3342: ELSE
3343: IF l_debug_level > 0 THEN
3344: oe_debug_pub.add( 'line_id '||P_LINE_ID , 3 ) ;
3345: END IF;
3346:
3347: OE_Line_Util.Query_Row(p_line_id => p_line_id,
3348: x_line_rec => l_line_rec);
3354: IF p_shipment_status <> FND_API.G_MISS_CHAR AND
3355: p_shipment_status IS NOT NULL THEN
3356:
3357: IF l_debug_level > 0 THEN
3358: oe_debug_pub.add( '1 shipment status '|| P_SHIPMENT_STATUS , 1 ) ;
3359: END IF;
3360: l_x_result_out := p_shipment_status;
3361:
3362: IF g_debug_call > 0 THEN
3382:
3383: EXCEPTION
3384: WHEN OTHERS THEN
3385: IF l_debug_level > 0 THEN
3386: oe_debug_pub.add('wsh select error '|| sqlerrm, 1);
3387: END IF;
3388: END;
3389:
3390: IF l_debug_level > 0 THEN
3387: END IF;
3388: END;
3389:
3390: IF l_debug_level > 0 THEN
3391: oe_debug_pub.add('additional shipped qty '|| l_shipped_quantity, 1);
3392: END IF;
3393:
3394: IF l_line_rec.order_quantity_uom <> l_requested_qty_uom THEN
3395:
3399: l_line_rec.order_quantity_uom,
3400: l_shipped_quantity );
3401:
3402: IF l_debug_level > 0 THEN
3403: oe_debug_pub.add('AFTER UOM CONV : '|| L_SHIPPED_QUANTITY,3);
3404: END IF;
3405: IF g_debug_call > 0 THEN
3406: G_DEBUG_MSG := G_DEBUG_MSG || '105,';
3407: END IF;
3417: p_shipped_quantity => l_shipped_quantity,
3418: x_result_out => l_x_result_out);
3419:
3420: IF l_debug_level > 0 THEN
3421: oe_debug_pub.add('AFTER check_shipement: '|| l_x_result_out,3);
3422: END IF;
3423:
3424: END IF; -- if shipment status was sent in
3425:
3429: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_WITHIN_TOL_BELOW THEN
3430:
3431: -- Call API to releive allocation
3432: IF l_debug_level > 0 THEN
3433: oe_debug_pub.add( 'SHIPPED WITHIN TOLERANCE BELOW ' , 3 ) ;
3434: END IF;
3435:
3436: /* unreserve function need not to be performed as lines
3437: will be shipping interfaced, and delete reservation
3463: -- 2. Create a new line with Shipping_Interfaced_Flag = 'Y'
3464: -- 3. Call Process Order to perform 1 and 2.
3465:
3466: IF l_debug_level > 0 THEN
3467: oe_debug_pub.add( 'CALLING OE_ORDER_PVT.PROCESS_ORDER ' , 3 ) ;
3468: END IF;
3469: -- Assign the first record of the table for process order for update
3470: -- of the ordered quantity.
3471:
3503: ,NULL -- To uom name
3504: );
3505:
3506: IF l_debug_level > 0 THEN
3507: oe_debug_pub.add('Ship_Confirm_Standard_Line : l_temp_shipped_qty for dual control item is '|| l_temp_shipped_qty);
3508: END IF;
3509:
3510:
3511: IF g_debug_call > 0 THEN
3512: G_DEBUG_MSG := G_DEBUG_MSG || '107';
3513: END IF;
3514:
3515: IF l_debug_level > 0 THEN
3516: oe_debug_pub.add( 'OPM , SHIPPED_UOM <> ORD_UOM AND CONVERSION VALUE IS: '||L_TEMP_SHIPPED_QTY , 1 ) ;
3517: END IF;
3518:
3519: l_line_tbl(1).ordered_quantity := l_temp_shipped_qty;
3520: -- Check if item is dual UOM
3531: -- p_apps_from_uom => l_line_tbl(1).order_quantity_uom,
3532: -- p_apps_to_uom => l_line_tbl(1).ordered_quantity_uom2,
3533: -- p_original_qty => l_temp_shipped_qty);
3534: -- IF l_debug_level > 0 THEN
3535: -- oe_debug_pub.add( 'OPM 3RD CONVERSION AND CONV. VALUE IS '|| L_LINE_TBL ( 1 ) .ORDERED_QUANTITY2 , 1 ) ;
3536: -- END IF;
3537: IF g_debug_call > 0 THEN
3538: G_DEBUG_MSG := G_DEBUG_MSG || '109,';
3539: END IF;
3634: l_line_tbl(2).split_by := 'SYSTEM';
3635:
3636: -- HW BUG#:2415731 added debugging messages for qty2 and others
3637: IF l_debug_level > 0 THEN
3638: oe_debug_pub.add( 'SPLIT FROM LINE: '||TO_CHAR ( L_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
3639: END IF;
3640: IF l_debug_level > 0 THEN
3641: oe_debug_pub.add( 'ORIGINAL ORD QTY : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
3642: END IF;
3637: IF l_debug_level > 0 THEN
3638: oe_debug_pub.add( 'SPLIT FROM LINE: '||TO_CHAR ( L_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
3639: END IF;
3640: IF l_debug_level > 0 THEN
3641: oe_debug_pub.add( 'ORIGINAL ORD QTY : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
3642: END IF;
3643: IF l_debug_level > 0 THEN
3644: oe_debug_pub.add( 'ORD QTY OLD LINE : '||TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
3645: END IF;
3640: IF l_debug_level > 0 THEN
3641: oe_debug_pub.add( 'ORIGINAL ORD QTY : '||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
3642: END IF;
3643: IF l_debug_level > 0 THEN
3644: oe_debug_pub.add( 'ORD QTY OLD LINE : '||TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
3645: END IF;
3646: IF l_debug_level > 0 THEN
3647: oe_debug_pub.add( 'ORD QTY2 OLD LINE : '||TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY2 ) , 3 ) ;
3648: END IF;
3643: IF l_debug_level > 0 THEN
3644: oe_debug_pub.add( 'ORD QTY OLD LINE : '||TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
3645: END IF;
3646: IF l_debug_level > 0 THEN
3647: oe_debug_pub.add( 'ORD QTY2 OLD LINE : '||TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY2 ) , 3 ) ;
3648: END IF;
3649: IF l_debug_level > 0 THEN
3650: oe_debug_pub.add( 'ORD QTY NEW LINE : '||TO_CHAR ( L_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
3651: END IF;
3646: IF l_debug_level > 0 THEN
3647: oe_debug_pub.add( 'ORD QTY2 OLD LINE : '||TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY2 ) , 3 ) ;
3648: END IF;
3649: IF l_debug_level > 0 THEN
3650: oe_debug_pub.add( 'ORD QTY NEW LINE : '||TO_CHAR ( L_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
3651: END IF;
3652: IF l_debug_level > 0 THEN
3653: oe_debug_pub.add( 'ORD QTY2 NEW LINE : '||TO_CHAR ( L_LINE_TBL ( 2 ) .ORDERED_QUANTITY2 ) , 3 ) ;
3654: END IF;
3649: IF l_debug_level > 0 THEN
3650: oe_debug_pub.add( 'ORD QTY NEW LINE : '||TO_CHAR ( L_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
3651: END IF;
3652: IF l_debug_level > 0 THEN
3653: oe_debug_pub.add( 'ORD QTY2 NEW LINE : '||TO_CHAR ( L_LINE_TBL ( 2 ) .ORDERED_QUANTITY2 ) , 3 ) ;
3654: END IF;
3655: IF g_debug_call > 0 THEN
3656: G_DEBUG_MSG := G_DEBUG_MSG || 'Shp-9-19';
3657: END IF;
3678: l_set_recursion := 'N';
3679: END IF;
3680:
3681: IF l_debug_level > 0 THEN
3682: oe_debug_pub.add( 'RET STS PROCESS ORDER : '||L_RETURN_STATUS , 3 ) ;
3683: END IF;
3684:
3685: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3693: G_DEBUG_MSG := G_DEBUG_MSG || 'Shp-9-21';
3694: END IF;
3695:
3696: IF l_debug_level > 0 THEN
3697: oe_debug_pub.add( 'ITEM TYPE CODE HERE '|| L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
3698: END IF;
3699:
3700: IF l_line_rec.item_type_code = 'CONFIG' THEN
3701:
3726: -- l_line_rec.ordered_quantity
3727: -- 2617708 OE_CODE_CONTROL.CODE_RELEASE_LEVEL <= '110508' THEN
3728:
3729: IF l_debug_level > 0 THEN
3730: oe_debug_pub.add('CALLING Ship_Confirm_Split_Lines '
3731: ||l_line_rec.shipped_quantity ,3);
3732: END IF;
3733: IF g_debug_call > 0 THEN
3734: G_DEBUG_MSG := G_DEBUG_MSG || '145';
3739:
3740: END IF;
3741:
3742: IF l_debug_level > 0 THEN
3743: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
3744: END IF;
3745: IF g_debug_call > 0 THEN
3746: G_DEBUG_MSG := G_DEBUG_MSG || '9-24';
3747: END IF;
3752: p_flow_status_code => 'SHIPPED',
3753: x_return_status => l_return_status );
3754:
3755: IF l_debug_level > 0 THEN
3756: oe_debug_pub.add( 'RETURN STS FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
3757: END IF;
3758:
3759: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3767: -- Call WF function to complete the shipment activity
3768:
3769: IF l_x_result_out = OE_GLOBALS.G_SHIPPED_BEYOND_TOLERANCE THEN
3770: IF l_debug_level > 0 THEN
3771: oe_debug_pub.add( 'LINE SHIPPED BEYOND OVERSHIPMENT TOLERANCE ' , 3 ) ;
3772: END IF;
3773: l_result_code := 'OVER_SHIPPED';
3774: ELSE
3775: l_result_code := 'SHIP_CONFIRM';
3776: END IF;
3777:
3778: -- 1739574 Log a delayed request for Complete Activity
3779: IF l_debug_level > 0 THEN
3780: oe_debug_pub.add( 'COMPLETEACTIVITY , LOG DELAYED REQ '||L_LINE_REC.LINE_ID , 3 ) ;
3781: END IF;
3782:
3783: OE_Delayed_Requests_Pvt.Log_Request
3784: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
3805: UPDATE OE_SETS
3806: SET SET_STATUS = 'C'
3807: WHERE SET_ID = l_line_rec.arrival_set_id;
3808: IF l_debug_level > 0 THEN
3809: oe_debug_pub.add( 'SET CLOSED: '|| L_LINE_REC.ARRIVAL_SET_ID , 3 ) ;
3810: END IF;
3811: END IF;
3812:
3813: END IF;
3816: END IF;
3817: x_return_status := FND_API.G_RET_STS_SUCCESS;
3818:
3819: IF l_debug_level > 0 THEN
3820: oe_debug_pub.add( 'EXITING SHIP_CONFIRM_STANDARD_LINE '|| X_RETURN_STATUS , 1 ) ;
3821: END IF;
3822:
3823: EXCEPTION
3824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3836: END IF;
3837:
3838: WHEN FND_API.G_EXC_ERROR THEN
3839: IF l_debug_level > 0 THEN
3840: oe_debug_pub.add( 'SHIP_CONFIRM_STANDARD_LINE EXC ERROR' , 1 ) ;
3841: END IF;
3842: x_return_status := FND_API.G_RET_STS_ERROR;
3843: IF g_debug_call > 0 THEN
3844: G_DEBUG_MSG := G_DEBUG_MSG || 'E-21';
3845: END IF;
3846:
3847: WHEN OTHERS THEN
3848: IF l_debug_level > 0 THEN
3849: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
3850: END IF;
3851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3852:
3853: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3873: l_activity_status VARCHAR2(8);
3874: l_activity_result VARCHAR2(30);
3875: l_activity_id NUMBER;
3876: --
3877: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3878: --
3879: BEGIN
3880:
3881: IF l_debug_level > 0 THEN
3878: --
3879: BEGIN
3880:
3881: IF l_debug_level > 0 THEN
3882: oe_debug_pub.add( 'ENTERING HANDLE_CONFIG_PARENT ' , 1 ) ;
3883: END IF;
3884:
3885: -- Call work flow engine to complete the WAIT_FOR_CTO work flow
3886: -- activity for the MODEL line
3885: -- Call work flow engine to complete the WAIT_FOR_CTO work flow
3886: -- activity for the MODEL line
3887:
3888: IF l_debug_level > 0 THEN
3889: oe_debug_pub.add( 'GET ACTIVITY RESULT : '|| P_ATO_LINE_ID , 3 ) ;
3890: END IF;
3891:
3892: IF g_debug_call > 0 THEN
3893: G_DEBUG_MSG := G_DEBUG_MSG || '10-1';
3902: , x_activity_status_code => l_activity_status
3903: , x_activity_id => l_activity_id );
3904:
3905: IF l_debug_level > 0 THEN
3906: oe_debug_pub.add( 'STATUS GET ACTIVITY RESULT : '||L_RETURN_STATUS , 3 ) ;
3907: END IF;
3908:
3909: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3909: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3911: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3912: IF l_debug_level > 0 THEN
3913: oe_debug_pub.add( 'LINE IS NOT AT WAIT_FOR_CTO ACTIVITY' , 1 ) ;
3914: END IF;
3915: ELSE
3916:
3917:
3916:
3917:
3918: IF l_activity_status = 'NOTIFIED' THEN
3919: IF l_debug_level > 0 THEN
3920: oe_debug_pub.add( 'LINE IS AT WAIT_FOR_CTO ACTIVITY' , 1 ) ;
3921: END IF;
3922:
3923: -- 1739574 Log a delayed request for Complete Activity
3924:
3922:
3923: -- 1739574 Log a delayed request for Complete Activity
3924:
3925: IF l_debug_level > 0 THEN
3926: oe_debug_pub.add( 'COMPLETE ACTIVITY , FOR '|| P_ATO_LINE_ID , 3 ) ;
3927: END IF;
3928: IF g_debug_call > 0 THEN
3929: G_DEBUG_MSG := G_DEBUG_MSG || '10-3';
3930: END IF;
3950: END IF;
3951: END IF;
3952:
3953: IF l_debug_level > 0 THEN
3954: oe_debug_pub.add( 'EXITING HANDLE_CONFIG_PARENT '|| L_RETURN_STATUS , 1 ) ;
3955: END IF;
3956: IF g_debug_call > 0 THEN
3957: G_DEBUG_MSG := G_DEBUG_MSG || '10-4';
3958: END IF;
3958: END IF;
3959: EXCEPTION
3960: WHEN OTHERS THEN
3961: IF l_debug_level > 0 THEN
3962: oe_debug_pub.add( 'HANDLE_CONFIG_PARENT ERROR '|| SQLERRM , 1 ) ;
3963: END IF;
3964: IF g_debug_call > 0 THEN
3965: G_DEBUG_MSG := G_DEBUG_MSG || 'E-23';
3966: END IF;
3990: l_set_recursion VARCHAR2(1) := 'N';
3991: l_split_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
3992: l_result_out VARCHAR2(30);
3993: --
3994: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3995: --
3996: BEGIN
3997:
3998: IF l_debug_level > 0 THEN
3995: --
3996: BEGIN
3997:
3998: IF l_debug_level > 0 THEN
3999: oe_debug_pub.add('ENTERING OE_SHIPPING_INTEGRATION_PVT.SHIP_CONFIRM_ATO '
4000: || TO_CHAR ( P_LINE_ID ) , 1 ) ;
4001: END IF;
4002:
4003: l_line_id := p_line_id;
4023: l_update_line_tbl(1).shipped_quantity := l_line_rec.shipped_quantity;
4024: l_update_line_tbl(1).actual_shipment_date := l_line_rec.actual_shipment_date;
4025:
4026: IF l_debug_level > 0 THEN
4027: oe_debug_pub.add('ACTUAL SHIPMENT DATE :'
4028: ||TO_CHAR(L_UPDATE_LINE_TBL(1).ACTUAL_SHIPMENT_DATE,'DD-MM-YY'),3);
4029: END IF;
4030:
4031: IF OE_GLOBALS.G_RECURSION_MODE = 'Y' THEN
4043: l_set_recursion := 'N';
4044: END IF;
4045:
4046: IF l_debug_level > 0 THEN
4047: oe_debug_pub.add('RET STS FROM PROCESS ORDER : '||L_RETURN_STATUS , 3 ) ;
4048: END IF;
4049:
4050: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4063: -- p_shipped_quantity => l_shipped_quantity,
4064: x_result_out => l_result_out);
4065:
4066: IF l_debug_level > 0 THEN
4067: oe_debug_pub.add( 'SHIPMENT STATUS : '||L_RESULT_OUT , 3 ) ;
4068: END IF;
4069:
4070:
4071: IF l_result_out = OE_GLOBALS.G_PARTIALLY_SHIPPED AND
4088: l_split_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
4089: l_split_line_tbl(2).split_by := 'SYSTEM';
4090:
4091: IF l_debug_level > 0 THEN
4092: oe_debug_pub.add( 'ITEM TYPE CODE : '||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
4093: END IF;
4094: IF g_debug_call > 0 THEN
4095: G_DEBUG_MSG := G_DEBUG_MSG || '10-8';
4096: END IF;
4095: G_DEBUG_MSG := G_DEBUG_MSG || '10-8';
4096: END IF;
4097:
4098: IF l_debug_level > 0 THEN
4099: oe_debug_pub.add( 'SPLIT FROM LINE ID : '
4100: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
4101:
4102: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '
4103: ||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
4098: IF l_debug_level > 0 THEN
4099: oe_debug_pub.add( 'SPLIT FROM LINE ID : '
4100: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
4101:
4102: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '
4103: ||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
4104: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '
4105: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
4106:
4100: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .SPLIT_FROM_LINE_ID ) , 3 ) ;
4101:
4102: oe_debug_pub.add( 'ORIGINAL ORDERED QUANTITY : '
4103: ||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
4104: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '
4105: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
4106:
4107: oe_debug_pub.add( 'ORDERED QUANTITY NEW LINE : '
4108: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
4103: ||TO_CHAR ( L_LINE_REC.ORDERED_QUANTITY ) , 3 ) ;
4104: oe_debug_pub.add( 'ORDERED QUANTITY OLD LINE : '
4105: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) , 3 ) ;
4106:
4107: oe_debug_pub.add( 'ORDERED QUANTITY NEW LINE : '
4108: ||TO_CHAR ( L_SPLIT_LINE_TBL ( 2 ) .ORDERED_QUANTITY ) , 3 ) ;
4109: END IF;
4110:
4111: l_control_rec := OE_GLOBALS.G_MISS_CONTROL_REC;
4138: RAISE FND_API.G_EXC_ERROR;
4139: END IF;
4140:
4141: IF l_debug_level > 0 THEN
4142: oe_debug_pub.add('RET STS FROM PROCESS ORDER:'||L_RETURN_STATUS , 3 ) ;
4143: END IF;
4144:
4145: END IF;
4146:
4185: END IF;
4186:
4187: WHEN OTHERS THEN
4188: IF l_debug_level > 0 THEN
4189: oe_debug_pub.add('ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
4190: END IF;
4191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4192:
4193: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4224: l_return_status VARCHAR2(1);
4225: l_set_recursion VARCHAR2(1) := 'N';
4226:
4227: --
4228: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4229: --
4230: BEGIN
4231:
4232: IF l_debug_level > 0 THEN
4229: --
4230: BEGIN
4231:
4232: IF l_debug_level > 0 THEN
4233: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PVT.SHIP_CONFIRM_SHIP_SET '|| TO_CHAR ( P_SHIP_SET_ID ) , 1 ) ;
4234: END IF;
4235:
4236: IF g_debug_call > 0 THEN
4237: G_DEBUG_MSG := G_DEBUG_MSG || '11-1';
4243: OE_Set_Util.Query_Set_Rows(p_set_id => p_ship_set_id,
4244: x_line_tbl => l_line_tbl);
4245:
4246: IF l_debug_level > 0 THEN
4247: oe_debug_pub.add( 'NUMBER OF LINES IN THE SET '|| TO_CHAR ( L_LINE_TBL.COUNT ) , 3 ) ;
4248: END IF;
4249: -- Update the set status to closed.
4250:
4251: UPDATE OE_SETS
4252: SET SET_STATUS = 'C'
4253: WHERE SET_ID = p_ship_set_id;
4254:
4255: IF l_debug_level > 0 THEN
4256: oe_debug_pub.add( 'SET IS CLOSED : '||TO_CHAR ( P_SHIP_SET_ID ) , 3 ) ;
4257: END IF;
4258:
4259: -- Prepare a table with PTO_KIT/ATO/STANDARD lines.
4260:
4261: FOR l_line_index IN l_line_tbl.FIRST .. l_line_tbl.LAST
4262: LOOP
4263:
4264: IF l_debug_level > 0 THEN
4265: oe_debug_pub.add( 'IN THE SET LOOP ' , 3 ) ;
4266: END IF;
4267: IF l_debug_level > 0 THEN
4268: oe_debug_pub.add( 'INDEX/ITEM TYPE : '||TO_CHAR ( L_LINE_INDEX ) ||'/'||L_LINE_TBL ( L_LINE_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
4269: END IF;
4264: IF l_debug_level > 0 THEN
4265: oe_debug_pub.add( 'IN THE SET LOOP ' , 3 ) ;
4266: END IF;
4267: IF l_debug_level > 0 THEN
4268: oe_debug_pub.add( 'INDEX/ITEM TYPE : '||TO_CHAR ( L_LINE_INDEX ) ||'/'||L_LINE_TBL ( L_LINE_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
4269: END IF;
4270: IF l_debug_level > 0 THEN
4271: 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 ) ;
4272: END IF;
4267: IF l_debug_level > 0 THEN
4268: oe_debug_pub.add( 'INDEX/ITEM TYPE : '||TO_CHAR ( L_LINE_INDEX ) ||'/'||L_LINE_TBL ( L_LINE_INDEX ) .ITEM_TYPE_CODE , 3 ) ;
4269: END IF;
4270: IF l_debug_level > 0 THEN
4271: 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 ) ;
4272: END IF;
4273:
4274: IF (l_line_tbl(l_line_index).link_to_line_id = l_line_tbl(l_line_index).top_model_line_id AND
4275: l_line_tbl(l_line_index).item_type_code = OE_Globals.G_ITEM_CONFIG) THEN
4273:
4274: IF (l_line_tbl(l_line_index).link_to_line_id = l_line_tbl(l_line_index).top_model_line_id AND
4275: l_line_tbl(l_line_index).item_type_code = OE_Globals.G_ITEM_CONFIG) THEN
4276: IF l_debug_level > 0 THEN
4277: oe_debug_pub.add( 'IT IS AN ATO ' , 3 ) ;
4278: END IF;
4279: l_process_index := l_process_index + 1;
4280: l_process_tbl(l_process_index) := l_line_tbl(l_line_index);
4281:
4285: l_line_tbl(l_line_index).line_id = l_line_tbl(l_line_index).top_model_line_id) AND
4286: (l_line_tbl(l_line_index).ato_line_id IS NULL OR
4287: l_line_tbl(l_line_index).ato_line_id = FND_API.G_MISS_NUM) THEN
4288: IF l_debug_level > 0 THEN
4289: oe_debug_pub.add( 'IT IS A PTO/KIT ' , 3 ) ;
4290: END IF;
4291: l_process_index := l_process_index + 1;
4292: l_process_tbl(l_process_index) := l_line_tbl(l_line_index);
4293:
4293:
4294: ELSIF l_line_tbl(l_line_index).item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
4295:
4296: IF l_debug_level > 0 THEN
4297: oe_debug_pub.add( 'IT IS A STANDARD LINE' , 3 ) ;
4298: END IF;
4299: l_process_index := l_process_index + 1;
4300: l_process_tbl(l_process_index) := l_line_tbl(l_line_index);
4301: END IF;
4302:
4303: END LOOP;
4304:
4305: IF l_debug_level > 0 THEN
4306: oe_debug_pub.add( 'NUMBER OF LINES TO PROCESS : '||TO_CHAR ( L_PROCESS_INDEX ) , 3 ) ;
4307: END IF;
4308: IF g_debug_call > 0 THEN
4309: G_DEBUG_MSG := G_DEBUG_MSG || 'Shp-11-3';
4310: END IF;
4318: l_process_tbl(l_process_index).ato_line_id = FND_API.G_MISS_NUM) THEN */
4319: /* Added condition of KIT for bug 1926571 */
4320: l_process_tbl(l_process_index).item_type_code IN ('MODEL','KIT') THEN
4321: IF l_debug_level > 0 THEN
4322: oe_debug_pub.add( 'IT IS PTO/KIT '||TO_CHAR ( L_PROCESS_TBL ( L_PROCESS_INDEX ) .TOP_MODEL_LINE_ID ) , 3 ) ;
4323: END IF;
4324:
4325: -- Check if any of the option has been shipped for the model
4326:
4333: nvl(l_line_tbl(l_line_index).shipped_quantity,0) <> 0 AND
4334: l_line_tbl(l_line_index).shipped_quantity <> FND_API.G_MISS_NUM THEN
4335: l_line_shipped := FND_API.G_TRUE;
4336: IF l_debug_level > 0 THEN
4337: oe_debug_pub.add( 'LINE IS SHIPPED '||TO_CHAR ( L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID ) , 3 ) ;
4338: END IF;
4339:
4340: Ship_Confirm_PTO_KIT
4341: (
4358:
4359: ELSIF nvl(l_process_tbl(l_process_index).shipped_quantity,0) <> 0 AND
4360: l_process_tbl(l_process_index).shipped_quantity <> FND_API.G_MISS_NUM THEN
4361: IF l_debug_level > 0 THEN
4362: oe_debug_pub.add( 'INSIDE THE LOOP : LINE ID : '|| TO_CHAR ( L_PROCESS_TBL ( L_PROCESS_INDEX ) .LINE_ID ) , 3 ) ;
4363: END IF;
4364: IF l_process_tbl(l_process_index).item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
4365: Ship_Confirm_Standard_Line
4366: (
4394:
4395: IF l_line_shipped = FND_API.G_FALSE THEN
4396:
4397: IF l_debug_level > 0 THEN
4398: oe_debug_pub.add( 'SHIP SET IS PARTIALLY SHIPPED REMOVING THE SETID '||TO_CHAR ( L_PROCESS_TBL ( L_PROCESS_INDEX ) .LINE_ID ) , 3 ) ;
4399: END IF;
4400: l_set_index := l_set_index + 1;
4401: l_set_tbl(l_set_index) := OE_Order_Pub.G_MISS_LINE_REC;
4402: IF l_process_tbl(l_process_index).item_type_code = OE_GLOBALS.G_ITEM_CONFIG THEN
4404: ELSE
4405: l_set_tbl(l_set_index).line_id := l_process_tbl(l_process_index).line_id;
4406: END IF;
4407: IF l_debug_level > 0 THEN
4408: oe_debug_pub.add( 'LINE ID : '||TO_CHAR ( L_SET_TBL ( L_SET_INDEX ) .LINE_ID ) , 3 ) ;
4409: END IF;
4410: l_set_tbl(l_set_index).ship_set_id := NULL;
4411: l_set_tbl(l_set_index).operation := OE_GLOBALS.G_OPR_UPDATE;
4412:
4422: l_control_rec.validate_entity := FALSE;
4423: l_control_rec.check_security := FALSE;
4424:
4425: IF l_debug_level > 0 THEN
4426: oe_debug_pub.add( 'CALLING PROCESS ORDER TO UPDATE SHIP SET ID' , 3 ) ;
4427: END IF;
4428: IF l_debug_level > 0 THEN
4429: oe_debug_pub.add( 'NUMBER OF LINES '||TO_CHAR ( L_SET_INDEX ) , 3 ) ;
4430: END IF;
4425: IF l_debug_level > 0 THEN
4426: oe_debug_pub.add( 'CALLING PROCESS ORDER TO UPDATE SHIP SET ID' , 3 ) ;
4427: END IF;
4428: IF l_debug_level > 0 THEN
4429: oe_debug_pub.add( 'NUMBER OF LINES '||TO_CHAR ( L_SET_INDEX ) , 3 ) ;
4430: END IF;
4431:
4432: IF OE_GLOBALS.G_RECURSION_MODE = 'Y' THEN
4433:
4456: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4457: END IF;
4458:
4459: IF l_debug_level > 0 THEN
4460: oe_debug_pub.add( 'RETURN STATUS FROM PROCESS ORDER : '||L_RETURN_STATUS , 3 ) ;
4461: END IF;
4462: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4464: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4468:
4469: x_return_status := l_return_status;
4470:
4471: IF l_debug_level > 0 THEN
4472: oe_debug_pub.add( 'EXITING FROM OE_SHIPPING_INTEGRATION_PVT.SHIP_CONFIRM_SHIP_SET : '||X_RETURN_STATUS , 1 ) ;
4473: END IF;
4474: IF g_debug_call > 0 THEN
4475: G_DEBUG_MSG := G_DEBUG_MSG || '11-9';
4476: END IF;
4506: );
4507: END IF;
4508:
4509: IF l_debug_level > 0 THEN
4510: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
4511: END IF;
4512: IF g_debug_call > 0 THEN
4513: G_DEBUG_MSG := G_DEBUG_MSG || 'E-29';
4514: END IF;
4535: l_tolerance_quantity_above NUMBER;
4536: l_old_recursion_mode VARCHAR2(1) := OE_GLOBALS.G_RECURSION_MODE;
4537:
4538: --
4539: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4540: --
4541: BEGIN
4542:
4543: IF l_debug_level > 0 THEN
4540: --
4541: BEGIN
4542:
4543: IF l_debug_level > 0 THEN
4544: oe_debug_pub.add( 'ENTERING OE_SHIPPING_INTEGRATION_PVT.PROCESS_SHIP_CONFIRM '|| P_PROCESS_TYPE , 1 ) ;
4545: END IF;
4546:
4547: -- Setting the Global variable OE_GLOBALS.G_RECURSION_MODE to Y so that the
4548: -- Price request for "SHIP" event is not triggered before COST records are
4637: null;
4638: END IF;
4639:
4640: IF l_debug_level > 0 THEN
4641: oe_debug_pub.add( 'RETURNED FROM OE_SHIPPING_INTEGRATION_PVT.PROCESS_SHIP_CONFIRM '|| X_RETURN_STATUS , 1 ) ;
4642: END IF;
4643:
4644: EXCEPTION
4645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4688: );
4689: END IF;
4690:
4691: IF l_debug_level > 0 THEN
4692: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
4693: END IF;
4694: NULL;
4695:
4696: END Process_Ship_Confirm;
4741: l_enforce_smc_flag VARCHAR2(1) := 'N';
4742: l_ship_from_org_id NUMBER;
4743: l_count NUMBER;
4744: --
4745: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4746: --
4747:
4748: CURSOR c_lines IS
4749: SELECT line_id
4764:
4765: BEGIN
4766:
4767: IF l_debug_level > 0 THEN
4768: oe_debug_pub.add( 'enter process_shipping_activity for line ID '|| P_LINE_ID , 1 ) ;
4769: END IF;
4770:
4771: IF g_debug_call > 0 THEN
4772: G_DEBUG_MSG := G_DEBUG_MSG || '201';
4773: END IF;
4774:
4775: IF OE_BULK_WF_UTIL.G_LINE_INDEX IS NOT NULL THEN
4776: IF l_debug_level > 0 THEN
4777: oe_debug_pub.add
4778: ('bulk call?? line id '|| OE_BULK_ORDER_PVT.G_LINE_REC.line_id
4779: (OE_BULK_WF_UTIL.G_LINE_INDEX), 2);
4780: END IF;
4781: END IF;
4783: IF OE_BULK_WF_UTIL.G_LINE_INDEX IS NOT NULL AND
4784: OE_BULK_ORDER_PVT.G_LINE_REC.line_id(OE_BULK_WF_UTIL.G_LINE_INDEX) =
4785: p_line_id THEN
4786: IF l_debug_level > 0 THEN
4787: oe_debug_pub.add
4788: ('2 shipping bulk mode '|| OE_BULK_WF_UTIL.G_LINE_INDEX, 4);
4789: END IF;
4790:
4791: l_line_category_code := OE_BULK_ORDER_PVT.G_LINE_REC.line_category_code
4793:
4794: l_source_type_code := OE_BULK_ORDER_PVT.G_LINE_REC.source_type_code
4795: (OE_BULK_WF_UTIL.G_LINE_INDEX);
4796:
4797: --oe_debug_pub.add('here 2: ', 2);
4798:
4799: l_ship_model_complete_flag
4800: := OE_BULK_ORDER_PVT.G_LINE_REC.ship_model_complete_flag
4801: (OE_BULK_WF_UTIL.G_LINE_INDEX);
4819: l_line_id := OE_BULK_ORDER_PVT.G_LINE_REC.line_id
4820: (OE_BULK_WF_UTIL.G_LINE_INDEX);
4821: l_item_type_code := OE_BULK_ORDER_PVT.G_LINE_REC.item_type_code
4822: (OE_BULK_WF_UTIL.G_LINE_INDEX);
4823: --oe_debug_pub.add('here 3: ', 2);
4824: l_header_id := OE_BULK_ORDER_PVT.G_LINE_REC.header_id
4825: (OE_BULK_WF_UTIL.G_LINE_INDEX);
4826:
4827: --oe_debug_pub.add('here 4: ', 2);
4823: --oe_debug_pub.add('here 3: ', 2);
4824: l_header_id := OE_BULK_ORDER_PVT.G_LINE_REC.header_id
4825: (OE_BULK_WF_UTIL.G_LINE_INDEX);
4826:
4827: --oe_debug_pub.add('here 4: ', 2);
4828: ELSE
4829: SELECT line_category_code,
4830: source_type_code,
4831: ship_model_complete_flag,
4869: END IF;
4870: IF l_line_category_code = 'RETURN' THEN
4871:
4872: IF l_debug_level > 0 THEN
4873: oe_debug_pub.add( 'IT IS A RETURN LINE NOT ELIGIBLE FOR SHIPPING' , 3 ) ;
4874: END IF;
4875: x_result_out := 'COMPLETE:NON_SHIPPABLE';
4876: GOTO END_SHIPPING_PROCESSING;
4877:
4878: END IF;
4879:
4880: IF l_source_type_code = 'EXTERNAL' THEN
4881: IF l_debug_level > 0 THEN
4882: oe_debug_pub.add( 'IT IS A DROP SHIP LINE' , 3 ) ;
4883: END IF;
4884:
4885: IF nvl(l_shippable_flag, 'N') = 'N' THEN
4886: x_result_out := 'COMPLETE:NON_SHIPPABLE';
4892: ------------ external and return lines done ------------
4893:
4894: IF l_shippable_flag = 'N' THEN
4895: IF l_debug_level > 0 THEN
4896: oe_debug_pub.add( 'NON SHIPPABLE LINE ' || L_ITEM_TYPE_CODE , 3 ) ;
4897: END IF;
4898: x_result_out := 'COMPLETE:NON_SHIPPABLE';
4899: END IF;
4900:
4906: OE_Code_Control.Code_Release_Level >= '110510' AND
4907: OE_BULK_ORDER_PVT.G_LINE_REC.line_id(OE_BULK_WF_UTIL.G_LINE_INDEX) =
4908: p_line_id THEN
4909: IF l_debug_level > 0 THEN
4910: oe_debug_pub.add('3 shipping bulk mode',5);
4911: END IF;
4912:
4913: IF OE_BULK_ORDER_PVT.G_LINE_REC.shippable_flag
4914: (OE_BULK_WF_UTIL.G_LINE_INDEX) = 'Y' THEN
4913: IF OE_BULK_ORDER_PVT.G_LINE_REC.shippable_flag
4914: (OE_BULK_WF_UTIL.G_LINE_INDEX) = 'Y' THEN
4915:
4916: IF l_debug_level > 0 THEN
4917: oe_debug_pub.add
4918: (OE_BULK_ORDER_PVT.G_LINE_REC.shipping_eligible_flag.COUNT,5);
4919: END IF;
4920:
4921: IF OE_BULK_ORDER_PVT.G_LINE_REC.shipping_eligible_flag.COUNT <
4928: l_count := OE_BULK_ORDER_PVT.G_LINE_REC.line_id.COUNT -
4929: OE_BULK_ORDER_PVT.G_LINE_REC.shipping_eligible_flag.COUNT;
4930:
4931: IF l_debug_level > 0 THEN
4932: oe_debug_pub.add('bulk wsh attribs extend begin '
4933: || OE_BULK_ORDER_PVT.G_LINE_REC.line_id.COUNT
4934: || ' ' || l_count, 2);
4935: END IF;
4936:
4957: OE_BULK_ORDER_PVT.G_LINE_REC.mtl_unit_volume.extend(l_count);
4958: OE_BULK_ORDER_PVT.G_LINE_REC.pickable_flag.extend(l_count);
4959:
4960: IF l_debug_level > 0 THEN
4961: oe_debug_pub.add('bulk wsh attribs extended '|| l_count,2);
4962: END IF;
4963: END IF;
4964: END IF; -- if not yet extended
4965:
4968: --------------------------------------------------------
4969: OE_BULK_ORDER_PVT.G_LINE_REC.shipping_eligible_flag
4970: (OE_BULK_WF_UTIL.G_LINE_INDEX) := 'Y';
4971:
4972: --oe_debug_pub.add('here 5: ', 2);
4973:
4974: l_count := OE_BULK_CACHE.Load_Item
4975: ( p_key1
4976: => OE_BULK_ORDER_PVT.G_LINE_REC.inventory_item_id
4978: ,p_key2
4979: => OE_BULK_ORDER_PVT.G_LINE_REC.ship_from_org_id
4980: (OE_BULK_WF_UTIL.G_LINE_INDEX));
4981:
4982: --oe_debug_pub.add('here 5-1: '
4983: --|| OE_BULK_ORDER_PVT.G_LINE_REC.ordered_item_id
4984: --(OE_BULK_WF_UTIL.G_LINE_INDEX), 2);
4985:
4986: IF g_debug_call > 0 THEN
4998: OE_BULK_ORDER_PVT.G_LINE_REC.weight_uom_code
4999: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5000: OE_BULK_CACHE.G_ITEM_TBL(l_count).weight_uom_code;
5001:
5002: --oe_debug_pub.add('here 6: ', 2);
5003:
5004: OE_BULK_ORDER_PVT.G_LINE_REC.volume_uom_code
5005: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5006: OE_BULK_CACHE.G_ITEM_TBL(l_count).volume_uom_code;
5004: OE_BULK_ORDER_PVT.G_LINE_REC.volume_uom_code
5005: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5006: OE_BULK_CACHE.G_ITEM_TBL(l_count).volume_uom_code;
5007:
5008: --oe_debug_pub.add('here 6-1: ', 2);
5009:
5010: OE_BULK_ORDER_PVT.G_LINE_REC.requested_quantity_uom
5011: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5012: OE_BULK_CACHE.G_ITEM_TBL(l_count).primary_uom_code;
5010: OE_BULK_ORDER_PVT.G_LINE_REC.requested_quantity_uom
5011: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5012: OE_BULK_CACHE.G_ITEM_TBL(l_count).primary_uom_code;
5013:
5014: --oe_debug_pub.add('here 6-2: ', 2);
5015:
5016: OE_BULK_ORDER_PVT.G_LINE_REC.mtl_unit_weight
5017: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5018: OE_BULK_CACHE.G_ITEM_TBL(l_count).unit_weight;
5016: OE_BULK_ORDER_PVT.G_LINE_REC.mtl_unit_weight
5017: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5018: OE_BULK_CACHE.G_ITEM_TBL(l_count).unit_weight;
5019:
5020: --oe_debug_pub.add('here 6-3: ', 2);
5021:
5022: OE_BULK_ORDER_PVT.G_LINE_REC.mtl_unit_volume
5023: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5024: OE_BULK_CACHE.G_ITEM_TBL(l_count).unit_volume;
5022: OE_BULK_ORDER_PVT.G_LINE_REC.mtl_unit_volume
5023: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5024: OE_BULK_CACHE.G_ITEM_TBL(l_count).unit_volume;
5025:
5026: --oe_debug_pub.add('here 6-4: ', 2);
5027:
5028: OE_BULK_ORDER_PVT.G_LINE_REC.pickable_flag
5029: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5030: OE_BULK_CACHE.G_ITEM_TBL(l_count).pickable_flag;
5028: OE_BULK_ORDER_PVT.G_LINE_REC.pickable_flag
5029: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5030: OE_BULK_CACHE.G_ITEM_TBL(l_count).pickable_flag;
5031:
5032: --oe_debug_pub.add('here 7: ', 2);
5033: --------------- from header/ xn types --------------------
5034:
5035: OE_BULK_ORDER_PVT.G_LINE_REC.sold_to_contact_id
5036: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5046: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5047: OE_Bulk_Order_PVT.g_header_rec.order_date_type_code
5048: (OE_BULK_WF_UTIL.G_HEADER_INDEX);
5049:
5050: --oe_debug_pub.add('here 8: ', 2);
5051: OE_BULK_ORDER_PVT.G_LINE_REC.source_header_type_id
5052: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5053: OE_Bulk_Order_PVT.g_header_rec.order_type_id
5054: (OE_BULK_WF_UTIL.G_HEADER_INDEX);
5066: OE_BULK_ORDER_PVT.G_LINE_REC.source_header_type_name
5067: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5068: OE_BULK_CACHE.G_ORDER_TYPE_TBL(l_count).name;
5069:
5070: --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);
5071:
5072: OE_BULK_ORDER_PVT.G_LINE_REC.source_line_number
5073: (OE_BULK_WF_UTIL.G_LINE_INDEX) :=
5074: RTRIM(OE_BULK_ORDER_PVT.G_LINE_REC.line_number
5081: (OE_BULK_WF_UTIL.G_LINE_INDEX) || '.' ||
5082: OE_BULK_ORDER_PVT.G_LINE_REC.service_number
5083: (OE_BULK_WF_UTIL.G_LINE_INDEX),'.');
5084:
5085: --oe_debug_pub.add('here 10: ', 2);
5086:
5087: IF l_debug_level > 0 THEN
5088: oe_debug_pub.add('eligible for shipping '||
5089: OE_BULK_ORDER_PVT.G_LINE_REC.line_id
5084:
5085: --oe_debug_pub.add('here 10: ', 2);
5086:
5087: IF l_debug_level > 0 THEN
5088: oe_debug_pub.add('eligible for shipping '||
5089: OE_BULK_ORDER_PVT.G_LINE_REC.line_id
5090: (OE_BULK_WF_UTIL.G_LINE_INDEX), 1 ) ;
5091: END IF;
5092:
5111: l_enforce_smc_flag := 'N';
5112: END IF;
5113: --
5114: IF l_debug_level > 0 THEN
5115: OE_DEBUG_PUB.add('Enforce SMC - flag is '||l_enforce_smc_flag||' for org '||l_ship_from_org_id,1);
5116: END IF;
5117: EXCEPTION
5118: WHEN OTHERS THEN
5119: IF l_debug_level > 0 THEN
5116: END IF;
5117: EXCEPTION
5118: WHEN OTHERS THEN
5119: IF l_debug_level > 0 THEN
5120: oe_debug_pub.add('did not find shipping parameter Enforce Ship Set',1);
5121: END IF;
5122: NULL;
5123: END;
5124: --End Bug 4094824
5133: IF g_debug_call > 0 THEN
5134: G_DEBUG_MSG := G_DEBUG_MSG || '211';
5135: END IF;
5136: IF l_debug_level > 0 THEN
5137: oe_debug_pub.add('After calling explosion : '|| l_return_status , 3 ) ;
5138: END IF;
5139:
5140: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5149: -- the included items to shipping. Interface included items part
5150: -- of Non Sip Model Complete. Process_SMC_Shipping will take care of
5151: -- interfacing SMC.
5152:
5153: OE_DEBUG_PUB.Add('Interface Included Items part of NON SMC to shipping', 1);
5154:
5155: FOR c_line IN C_LINES
5156: LOOP
5157:
5155: FOR c_line IN C_LINES
5156: LOOP
5157:
5158: IF l_debug_level > 0 THEN
5159: OE_DEBUG_PUB.Add('Interfacing Line :'||c_line.line_id);
5160: END IF;
5161:
5162: Update_Shipping_PVT(p_line_id => c_line.line_id,
5163: p_shipping_activity => l_shipping_activity,
5186:
5187: IF l_parent_explosion_date IS NULL THEN
5188:
5189: IF l_debug_level > 0 THEN
5190: OE_DEBUG_PUB.Add('Included Item at Shipping:'||l_line_id, 5 ) ;
5191: END IF;
5192:
5193: -- Update Flow Status Code as Ship Line is Notified.
5194: -- Donot update shipping now!!
5204: l_top_model_line_id IS NOT NULL AND
5205: l_model_remnant_flag = 'N' THEN
5206:
5207: IF l_debug_level > 0 THEN
5208: oe_debug_pub.add( 'processing line is part of SMC PTO at shipping activity' , 5 ) ;
5209: END IF;
5210:
5211: Process_SMC_Shipping
5212: (p_line_id => p_line_id
5223:
5224: IF l_shippable_flag = 'Y' THEN
5225:
5226: IF l_debug_level > 0 THEN
5227: oe_debug_pub.add( 'shippable line is at shipping activity, item type '||L_ITEM_TYPE_CODE , 5 ) ;
5228: END IF;
5229: IF g_debug_call > 0 THEN
5230: G_DEBUG_MSG := G_DEBUG_MSG || '213';
5231: END IF;
5250:
5251: IF x_result_out = 'NOTIFIED:#NULL' THEN
5252:
5253: IF l_debug_level > 0 THEN
5254: oe_debug_pub.add( 'CALLING FLOW STATUS API ' , 3 ) ;
5255: END IF;
5256:
5257: IF l_source_type_code = 'EXTERNAL' THEN
5258: l_flow_status_code := 'AWAITING_RECEIPT';
5266: l_source_type_code = 'INTERNAL') OR
5267: nvl(l_shippable_flag,'N') = 'N' THEN
5268:
5269: IF l_debug_level > 0 THEN
5270: oe_debug_pub.add( 'DO NOT CALL FLOW STATUS API ' , 3 ) ;
5271: END IF;
5272:
5273: IF g_debug_call > 0 THEN
5274: G_DEBUG_MSG := G_DEBUG_MSG || '215';
5282: p_flow_status_code => l_flow_status_code,
5283: x_return_status => l_return_status);
5284:
5285: IF l_debug_level > 0 THEN
5286: oe_debug_pub.add( 'RETURN STS FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
5287: END IF;
5288:
5289: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5302:
5303: x_return_status := FND_API.G_RET_STS_SUCCESS;
5304:
5305: IF l_debug_level > 0 THEN
5306: oe_debug_pub.add( 'EXITING PROCESS_SHIPPING_ACTIVITY SUCCESSFULLY ' , 1 ) ;
5307: END IF;
5308:
5309: EXCEPTION
5310:
5309: EXCEPTION
5310:
5311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5312: IF l_debug_level > 0 THEN
5313: oe_debug_pub.add( 'PROCESS_SHIPPING_ACTIVITY : UNEXPECTED ERROR' , 1 ) ;
5314: END IF;
5315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5316:
5317: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5323: END IF;
5324:
5325: WHEN FND_API.G_EXC_ERROR THEN
5326: IF l_debug_level > 0 THEN
5327: oe_debug_pub.add( 'PROCESS_SHIPPING_ACTIVITY : EXE ERROR' , 1 ) ;
5328: END IF;
5329: x_return_status := FND_API.G_RET_STS_ERROR;
5330: IF g_debug_call > 0 THEN
5331: G_DEBUG_MSG := G_DEBUG_MSG || 'E-34';
5332: END IF;
5333:
5334: WHEN OTHERS THEN
5335: IF l_debug_level > 0 THEN
5336: oe_debug_pub.add( 'PROCESS_SHIPPING_ACTIVITY : OTHERS ERROR' , 1 ) ;
5337: END IF;
5338:
5339: IF l_debug_level > 0 THEN
5340: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
5336: oe_debug_pub.add( 'PROCESS_SHIPPING_ACTIVITY : OTHERS ERROR' , 1 ) ;
5337: END IF;
5338:
5339: IF l_debug_level > 0 THEN
5340: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
5341: END IF;
5342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5343:
5344: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5378: l_activity_status_code VARCHAR2(8);
5379: l_dummy VARCHAR2(52);
5380: l_line_index NUMBER;
5381: --
5382: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5383: --
5384: BEGIN
5385:
5386: IF l_debug_level > 0 THEN
5383: --
5384: BEGIN
5385:
5386: IF l_debug_level > 0 THEN
5387: oe_debug_pub.add( 'ENTERING PROCESS_SMC_SHIPPING' , 3 ) ;
5388: END IF;
5389:
5390: x_return_status := FND_API.G_RET_STS_SUCCESS;
5391:
5393: (p_top_model_line_id => p_top_model_line_id,
5394: x_line_tbl => l_line_tbl);
5395:
5396: IF l_debug_level > 0 THEN
5397: oe_debug_pub.add( 'LINES IN THE SMC_PTO '|| L_LINE_TBL.COUNT , 3 ) ;
5398: END IF;
5399:
5400: l_line_index := l_line_tbl.FIRST;
5401:
5406: WHILE l_line_index is NOT NULL
5407: LOOP
5408:
5409: IF l_debug_level > 0 THEN
5410: 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 ) ;
5411: END IF;
5412:
5413: l_dummy := null;
5414:
5416:
5417: IF l_line_tbl(l_line_index).shipping_interfaced_flag = 'Y' THEN
5418:
5419: IF l_debug_level > 0 THEN
5420: oe_debug_pub.add( 'THE LINE IS SHIPPING INTERFACED ' , 5 ) ;
5421: END IF;
5422:
5423: BEGIN
5424:
5431:
5432: EXCEPTION
5433: WHEN NO_DATA_FOUND THEN
5434: IF l_debug_level > 0 THEN
5435: oe_debug_pub.add( 'SHIPPING NEEDS UPDATE'||L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID , 3 ) ;
5436: END IF;
5437: l_dummy := 'U';
5438:
5439: WHEN OTHERS THEN
5437: l_dummy := 'U';
5438:
5439: WHEN OTHERS THEN
5440: IF l_debug_level > 0 THEN
5441: oe_debug_pub.add( 'ONE/MORE LINES RELEASED IN THIS BATCH..' , 5 ) ;
5442: END IF;
5443:
5444: END;
5445:
5445:
5446: ELSE
5447:
5448: IF l_debug_level > 0 THEN
5449: oe_debug_pub.add( 'THE LINE IS NOT YET INTERFACED TO SHIPPING ' , 5 ) ;
5450: END IF;
5451: l_dummy := 'U';
5452: END IF; -- if not interfaced
5453:
5474: l_line_tbl(l_line_index).item_type_code IN ('MODEL','CLASS')
5475: THEN -- Change for bug 1820608
5476:
5477: IF l_debug_level > 0 THEN
5478: oe_debug_pub.add( 'AN ATO MODEL LINE '||L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID , 1 ) ;
5479: END IF;
5480:
5481:
5482: BEGIN
5488: AND item_type_code = 'CONFIG';
5489: EXCEPTION
5490: WHEN no_data_found THEN
5491: IF l_debug_level > 0 THEN
5492: oe_debug_pub.add( 'ATO MODEL NOT PROCESSED IN A SMC' , 1 ) ;
5493: END IF;
5494: l_lines_not_at_ship := FND_API.G_TRUE;
5495:
5496: WHEN others THEN
5494: l_lines_not_at_ship := FND_API.G_TRUE;
5495:
5496: WHEN others THEN
5497: IF l_debug_level > 0 THEN
5498: oe_debug_pub.add( 'ATO MODEL SQL '|| SQLERRM , 1 ) ;
5499: END IF;
5500: END;
5501: ELSE
5502:
5512:
5513: END IF; -- if ato.
5514:
5515: IF l_debug_level > 0 THEN
5516: 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 ) ;
5517: END IF;
5518:
5519: EXCEPTION
5520:
5519: EXCEPTION
5520:
5521: WHEN NO_DATA_FOUND THEN
5522: IF l_debug_level > 0 THEN
5523: 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 ) ;
5524: END IF;
5525:
5526: l_lines_not_at_ship := FND_API.G_TRUE;
5527:
5526: l_lines_not_at_ship := FND_API.G_TRUE;
5527:
5528: WHEN TOO_MANY_ROWS THEN
5529: IF l_debug_level > 0 THEN
5530: 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 ) ;
5531: END IF;
5532:
5533: WHEN OTHERS THEN
5534: IF l_debug_level > 0 THEN
5531: END IF;
5532:
5533: WHEN OTHERS THEN
5534: IF l_debug_level > 0 THEN
5535: oe_debug_pub.add( 'PROCESS SHIPPING ACTIVITY :'||SUBSTR ( SQLERRM , 1 , 200 ) , 3 ) ;
5536: END IF;
5537:
5538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5539: END;
5539: END;
5540:
5541: IF l_lines_not_at_ship = FND_API.G_TRUE THEN
5542: IF l_debug_level > 0 THEN
5543: oe_debug_pub.add( 'ALL LINES NOT AT SHIP , RETURNING...' , 1 ) ;
5544: END IF;
5545: RETURN;
5546: END IF;
5547:
5555: G_DEBUG_MSG := G_DEBUG_MSG || '13-7';
5556: END IF;
5557:
5558: IF l_debug_level > 0 THEN
5559: oe_debug_pub.add( 'ALL THE SMC LINES ARE AT SHIPPING : ' , 3 ) ;
5560: END IF;
5561: -- Inform shipping that lines are ready to pick release
5562:
5563: IF l_update_lines_tbl.count > 0 THEN
5561: -- Inform shipping that lines are ready to pick release
5562:
5563: IF l_update_lines_tbl.count > 0 THEN
5564: IF l_debug_level > 0 THEN
5565: oe_debug_pub.add( 'UPDATE SHIPPING '||L_UPDATE_LINES_TBL.COUNT , 3 ) ;
5566: END IF;
5567:
5568: Update_Shipping_From_OE
5569: ( p_update_lines_tbl => l_update_lines_tbl,
5574: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5575: RAISE FND_API.G_EXC_ERROR;
5576: END IF;
5577: IF l_debug_level > 0 THEN
5578: oe_debug_pub.add( 'UPDATE_SHIPPING_FROM_OE : '|| X_RETURN_STATUS , 3 ) ;
5579: END IF;
5580:
5581: IF g_debug_call > 0 THEN
5582: G_DEBUG_MSG := G_DEBUG_MSG || '13-8';
5583: END IF;
5584:
5585: ELSE
5586: IF l_debug_level > 0 THEN
5587: oe_debug_pub.add( 'DONT CALL UPDATE_SHIPPING_FROM_OE' , 3 ) ;
5588: END IF;
5589: END IF; -- count > 0
5590:
5591:
5595:
5596: WHILE l_line_index is NOT NULL
5597: LOOP
5598: IF l_debug_level > 0 THEN
5599: 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 ) ;
5600: END IF;
5601:
5602: IF nvl(l_line_tbl(l_line_index).shippable_flag,'N') = 'N' AND
5603: OE_Shipping_Integration_PUB.Is_Activity_Shipping
5604: (1.0, l_line_tbl(l_line_index).line_id) = FND_API.G_TRUE AND
5605: p_line_id <> l_line_tbl(l_line_index).line_id THEN
5606:
5607: IF l_debug_level > 0 THEN
5608: oe_debug_pub.add( 'COMP SHIP_LINE , NONSHIP: '||L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID , 3 ) ;
5609: END IF;
5610:
5611: /* 1739754 */
5612: -- Log a delayed request for Complete Activity
5611: /* 1739754 */
5612: -- Log a delayed request for Complete Activity
5613:
5614: IF l_debug_level > 0 THEN
5615: oe_debug_pub.add( 'COMP ACT DELAYED REQ '|| L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID , 3 ) ;
5616: END IF;
5617:
5618:
5619: wf_engine.CompleteActivityInternalName
5620: ('OEOL', to_char(l_line_tbl(l_line_index).line_id),
5621: 'SHIP_LINE', 'NON_SHIPPABLE');
5622:
5623: IF l_debug_level > 0 THEN
5624: oe_debug_pub.add( 'WF_ENGINE.COMPLETEACTIVITYINTERNALNAME ' || TO_CHAR ( L_LINE_TBL ( L_LINE_INDEX ) .LINE_ID ) , 3 ) ;
5625: END IF;
5626:
5627: END IF; -- if non shippable in a SMC.
5628:
5630:
5631: END LOOP;
5632:
5633: IF l_debug_level > 0 THEN
5634: oe_debug_pub.add( 'LEAVING PROCESS_SMC_SHIPPING' , 3 ) ;
5635: END IF;
5636:
5637: EXCEPTION
5638: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5636:
5637: EXCEPTION
5638: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5639: IF l_debug_level > 0 THEN
5640: oe_debug_pub.add( 'PROCESS_SMC_SHIPPING : UNEXPECTED ERROR' , 1 ) ;
5641: END IF;
5642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5643:
5644: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5650: END IF;
5651:
5652: WHEN FND_API.G_EXC_ERROR THEN
5653: IF l_debug_level > 0 THEN
5654: oe_debug_pub.add( 'PROCESS_SMC_SHIPPING : EXE ERROR' , 1 ) ;
5655: END IF;
5656: x_return_status := FND_API.G_RET_STS_ERROR;
5657: IF g_debug_call > 0 THEN
5658: G_DEBUG_MSG := G_DEBUG_MSG || 'E-37';
5659: END IF;
5660:
5661: WHEN OTHERS THEN
5662: IF l_debug_level > 0 THEN
5663: oe_debug_pub.add( 'PROCESS_SMC_SHIPPING : OTHERS ERROR' , 1 ) ;
5664: END IF;
5665:
5666: IF l_debug_level > 0 THEN
5667: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
5663: oe_debug_pub.add( 'PROCESS_SMC_SHIPPING : OTHERS ERROR' , 1 ) ;
5664: END IF;
5665:
5666: IF l_debug_level > 0 THEN
5667: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
5668: END IF;
5669: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5670:
5671: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5720: WHERE source_header_id = oe.header_id);
5721:
5722:
5723: --
5724: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5725: --
5726: BEGIN
5727:
5728: IF l_debug_level > 0 THEN
5725: --
5726: BEGIN
5727:
5728: IF l_debug_level > 0 THEN
5729: oe_debug_pub.add
5730: ('entering Ship_Confirm_Split_Lines '||p_line_rec.line_id ,3);
5731: END IF;
5732:
5733: IF p_line_rec.shipped_quantity2 is not NULL THEN
5750:
5751:
5752: IF l_count > 0 THEN
5753: IF l_debug_level > 0 THEN
5754: oe_debug_pub.add('ignoring this line, can no close '|| line_rec.line_id , 3 ) ;
5755: END IF;
5756: ELSE
5757:
5758: IF l_debug_level > 0 THEN
5755: END IF;
5756: ELSE
5757:
5758: IF l_debug_level > 0 THEN
5759: oe_debug_pub.add('now processing '|| line_rec.line_id, 3 ) ;
5760: END IF;
5761:
5762: l_line_set_rec.line_id := line_rec.line_id;
5763: l_line_set_rec.line_set_id := line_rec.line_set_id;
5798: WHERE line_id = l_line_set_rec.line_id;
5799:
5800:
5801: IF l_debug_level > 0 THEN
5802: oe_debug_pub.add('line set id '|| line_rec.line_set_id , 3 ) ;
5803: END IF;
5804:
5805: Ship_Confirm_Standard_Line
5806: ( p_line_rec => l_line_set_rec,
5808: p_check_line_set => 'N',
5809: x_return_status => l_return_status );
5810:
5811: IF l_debug_level > 0 THEN
5812: oe_debug_pub.add('ret sts for me '||l_return_status , 3 ) ;
5813: END IF;
5814:
5815: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5822:
5823: END LOOP;
5824:
5825: IF l_debug_level > 0 THEN
5826: oe_debug_pub.add('leaving Ship_Confirm_Split_Lines',3);
5827: END IF;
5828:
5829: EXCEPTION
5830: WHEN OTHERS THEN
5828:
5829: EXCEPTION
5830: WHEN OTHERS THEN
5831: IF l_debug_level > 0 THEN
5832: oe_debug_pub.add('error in Ship_Confirm_Split_Lines '|| sqlerrm,3);
5833: END IF;
5834: RAISE;
5835: END Ship_Confirm_Split_Lines;
5836:
5851: ,p_caller IN VARCHAR2
5852: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
5853: IS
5854: --
5855: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5856: --
5857: I NUMBER := 1;
5858: J NUMBER;
5859: l_line_tbl OE_Order_Pub.Line_Tbl_Type;
5905: x_index => J,
5906: x_return_status => x_return_status);
5907:
5908: IF l_debug_level > 0 THEN
5909: oe_debug_pub.add
5910: (J || ' UPDATE_GLOBAL ret sts: ' || x_RETURN_STATUS);
5911: END IF;
5912:
5913: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5936: := l_line_tbl(I).shipped_quantity2;
5937:
5938:
5939: IF l_debug_level > 0 THEN
5940: oe_debug_pub.add
5941: ('AFTER UPDATE GLOBAL FLOW_STATUS_CODE IS: '
5942: || OE_ORDER_UTIL.G_LINE_TBL( J ).FLOW_STATUS_CODE ,1);
5943: END IF;
5944:
5959: , p_line_tbl => l_line_tbl
5960: , p_old_line_tbl => l_old_line_tbl);
5961:
5962: IF l_debug_level > 0 THEN
5963: oe_debug_pub.add('RETRURNED FROM PRN: '||x_RETURN_STATUS , 3 ) ;
5964: END IF;
5965: IF g_debug_call > 0 THEN
5966: G_DEBUG_MSG := G_DEBUG_MSG || '14-7';
5967: END IF;
5977:
5978: EXCEPTION
5979: WHEN others THEN
5980: IF l_debug_level > 0 THEN
5981: oe_debug_pub.add('error in Call_Notification_Framework' || sqlerrm, 1);
5982: END IF;
5983: RAISE;
5984: END Call_Notification_Framework;
5985:
6003: l_error_msg VARCHAR2(240);
6004: l_msg_index NUMBER;
6005: l_firm_flag VARCHAR2(1) := Null;
6006: --
6007: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6008: --
6009: BEGIN
6010:
6011: l_action_rec.caller := 'OM';
6023: ,x_return_status => l_return_status
6024: ,x_msg_count => l_msg_count
6025: ,x_msg_data => l_msg_data);
6026:
6027: oe_debug_pub.add
6028: ('return status from WSH '|| l_return_status || '-' || l_msg_count, 5);
6029:
6030: IF l_return_status = FND_API.G_RET_STS_SUCCESS OR
6031: l_return_status = 'W' THEN
6043: firm_demand_flag = NVL(l_firm_flag,firm_demand_flag)
6044: WHERE line_id = p_line_rec.line_id(I)
6045: AND p_line_rec.shipping_interfaced_flag(I) = 'Y';
6046:
6047: oe_debug_pub.add('afer updating shipping interfaced flag', 5);
6048: G_BULK_WSH_INTERFACE_CALLED := TRUE; -- bug 4070931 starts
6049:
6050: FOR I in p_line_rec.line_id.FIRST..p_line_rec.line_id.LAST
6051: LOOP
6063: result => NULL);
6064:
6065: EXCEPTION
6066: WHEN OTHERS THEN
6067: oe_debug_pub.add('Exception caught after Wf_engine.Handle_Error',5);
6068: END; -- Erroring out the WF table
6069:
6070: OE_BULK_WF_UTIL.G_LINE_INDEX := NULL;
6071: END IF; -- lines not shipping_interfaced
6113: p_data => l_error_msg,
6114: p_msg_index_out => l_msg_index);
6115:
6116: IF l_debug_level > 0 THEN
6117: oe_debug_pub.add( 'ERROR : '||L_ERROR_MSG , 2 ) ;
6118: END IF;
6119:
6120: fnd_message.set_name('ONT','OE_SHP_ERROR');
6121: FND_MESSAGE.SET_TOKEN('ERROR_MESSAGE',l_error_msg);
6121: FND_MESSAGE.SET_TOKEN('ERROR_MESSAGE',l_error_msg);
6122: --oe_msg_pub.add;
6123:
6124: OE_BULK_MSG_PUB.ADD;
6125: oe_debug_pub.add('here again 2 ', 5);
6126:
6127: P_LINE_REC.error_message_count(l_index)
6128: := p_line_rec.error_message_count(l_index) - 1;
6129: END LOOP; -- message count> 0
6139: x_return_status := l_return_status;
6140: END IF;
6141:
6142: IF l_debug_level > 0 THEN
6143: oe_debug_pub.add('return status from vshpb'|| x_return_status, 5);
6144: END IF;
6145:
6146: EXCEPTION
6147: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6145:
6146: EXCEPTION
6147: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6148: IF l_debug_level > 0 THEN
6149: oe_debug_pub.add('OM_TO_WSH_INTERFACE : UNEXPECTED ERROR',1);
6150: END IF;
6151:
6152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6153:
6160: END IF;
6161:
6162: WHEN FND_API.G_EXC_ERROR THEN
6163: IF l_debug_level > 0 THEN
6164: oe_debug_pub.add('OM_TO_WSH_INTERFACE : EXE ERROR',1);
6165: END IF;
6166: x_return_status := FND_API.G_RET_STS_ERROR;
6167:
6168: WHEN OTHERS THEN
6166: x_return_status := FND_API.G_RET_STS_ERROR;
6167:
6168: WHEN OTHERS THEN
6169: IF l_debug_level > 0 THEN
6170: oe_debug_pub.add('OM_TO_WSH_INTERFACE, OTHERS '|| sqlerrm ,1);
6171: END IF;
6172:
6173: IF l_debug_level > 0 THEN
6174: oe_debug_pub.add('ERROR MESSAGE : '||SUBSTR(SQLERRM ,1,100),1);
6170: oe_debug_pub.add('OM_TO_WSH_INTERFACE, OTHERS '|| sqlerrm ,1);
6171: END IF;
6172:
6173: IF l_debug_level > 0 THEN
6174: oe_debug_pub.add('ERROR MESSAGE : '||SUBSTR(SQLERRM ,1,100),1);
6175: END IF;
6176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6177:
6178: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6189:
6190: PROCEDURE Print_Time(p_msg IN VARCHAR2)
6191: IS
6192: l_time VARCHAR2(100);
6193: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6194: BEGIN
6195: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
6196: 'DD-MON-YY HH24:MI:SS');
6197: IF l_debug_level > 0 THEN
6194: BEGIN
6195: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
6196: 'DD-MON-YY HH24:MI:SS');
6197: IF l_debug_level > 0 THEN
6198: oe_debug_pub.add( P_MSG || ': '|| L_TIME , 1 ) ;
6199: END IF;
6200: END Print_Time;
6201: /*--------------------------------------------------------------------------------
6202: PROCEDURE Ship_Complete
6216: IS
6217: l_ship_confirm_status VARCHAR2(30);
6218: l_count_reserve NUMBER;
6219: --
6220: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6221: --
6222: BEGIN
6223:
6224: select activity_result_code
6272: );
6273: END IF;
6274:
6275: IF l_debug_level > 0 THEN
6276: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
6277: END IF;
6278: IF g_debug_call > 0 THEN
6279: G_DEBUG_MSG := G_DEBUG_MSG || 'E1';
6280: END IF;