[Home] [Help]
69: PROCEDURE Print_Time(p_msg IN VARCHAR2)
70: IS
71: l_time VARCHAR2(100);
72: --
73: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
74: --
75: BEGIN
76: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
77: 'DD-MON-YY HH24:MI:SS');
75: BEGIN
76: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
77: 'DD-MON-YY HH24:MI:SS');
78: IF l_debug_level > 0 THEN
79: oe_debug_pub.add( P_MSG || ': '|| L_TIME , 1 ) ;
80: END IF;
81: END Print_Time;
82:
83: --- Start 2434807 ---
104: FUNCTION Get_Session_Id
105: RETURN number
106: IS
107: --
108: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
109: --
110: BEGIN
111:
112: SELECT mrp_atp_schedule_temp_s.nextval
127: FUNCTION Get_MRP_Session_Id
128: RETURN number
129: IS
130: --
131: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
132: --
133: BEGIN
134: return MRP_SESSION_ID;
135: EXCEPTION
145: FUNCTION Get_ATP_CHECK_Session_Id
146: RETURN number
147: IS
148: --
149: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
150: --
151: BEGIN
152: return G_ATP_CHECK_SESSION_ID;
153: EXCEPTION
160: p_old_ship_method IN VARCHAR2,
161: p_ship_from_org_id IN NUMBER)
162: RETURN BOOLEAN
163: IS
164: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
165: l_count NUMBER := 0;
166: BEGIN
167:
168: IF l_debug_level > 0 THEN
165: l_count NUMBER := 0;
166: BEGIN
167:
168: IF l_debug_level > 0 THEN
169: oe_debug_pub.add('Entering Validate_ship_method',1);
170: oe_debug_pub.add('p_new_ship_method ' || p_new_ship_method,1);
171: oe_debug_pub.add('p_old_ship_method ' || p_old_ship_method,1);
172: END IF;
173:
166: BEGIN
167:
168: IF l_debug_level > 0 THEN
169: oe_debug_pub.add('Entering Validate_ship_method',1);
170: oe_debug_pub.add('p_new_ship_method ' || p_new_ship_method,1);
171: oe_debug_pub.add('p_old_ship_method ' || p_old_ship_method,1);
172: END IF;
173:
174: IF NOT OE_GLOBALS.Equal(p_new_ship_method,
167:
168: IF l_debug_level > 0 THEN
169: oe_debug_pub.add('Entering Validate_ship_method',1);
170: oe_debug_pub.add('p_new_ship_method ' || p_new_ship_method,1);
171: oe_debug_pub.add('p_old_ship_method ' || p_old_ship_method,1);
172: END IF;
173:
174: IF NOT OE_GLOBALS.Equal(p_new_ship_method,
175: p_old_ship_method) THEN
195:
196: END IF;
197:
198: IF l_debug_level > 0 THEN
199: oe_debug_pub.add('l_count ' || l_count,1);
200: END IF;
201:
202: IF l_count = 0 THEN
203: RETURN FALSE;
237: l_order_date_type_code VARCHAR2(20);
238: l_return_status BOOLEAN := FALSE;
239: l_lad_flag VARCHAR2(1);
240: --
241: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
242: --
243:
244: BEGIN
245: IF l_debug_level > 0 THEN
242: --
243:
244: BEGIN
245: IF l_debug_level > 0 THEN
246: oe_debug_pub.add( 'ENTERING VALIDATE_WITH_LAD WITH LAD FLAG ' , 1 ) ;
247: END IF;
248: l_order_date_type_code := NVL(Get_Date_Type(p_header_id),'SHIP');
249:
250: -- To check violation of LAD when parameter set to - Ignore LAD
248: l_order_date_type_code := NVL(Get_Date_Type(p_header_id),'SHIP');
249:
250: -- To check violation of LAD when parameter set to - Ignore LAD
251: IF l_debug_level > 0 THEN
252: oe_debug_pub.add( 'CHECKING FOR LAD ' , 1 ) ;
253: END IF;
254: l_lad_flag := Oe_Sys_Parameters.Value('LATEST_ACCEPTABLE_DATE_FLAG');
255: IF l_lad_flag = 'I' THEN
256: IF ((l_order_date_type_code = 'SHIP'
259: OR (l_order_date_type_code = 'ARRIVAL'
260: AND p_schedule_arrival_date
261: > p_latest_acceptable_date)) THEN
262: IF l_debug_level > 0 THEN
263: oe_debug_pub.add( 'LAD VIOLATED ' , 1 ) ;
264: END IF;
265: Fnd_Message.set_name('ONT','ONT_SCH_LAD_VIOLATE');
266: Oe_Msg_Pub.Add;
267: END IF;
273: OR (l_order_date_type_code = 'ARRIVAL'
274: AND p_schedule_arrival_date
275: > p_latest_acceptable_date)) THEN
276: IF l_debug_level > 0 THEN
277: oe_debug_pub.add( 'SCHEDULE DATE EXCEEDS LAD ' , 1 ) ;
278: END IF;
279: Fnd_Message.set_name('ONT','ONT_SCH_LAD_SCH_FAILED');
280: Oe_Msg_Pub.Add;
281: RAISE FND_API.G_EXC_ERROR;
282: END IF;
283: */
284: END IF;
285: IF l_debug_level > 0 THEN
286: oe_debug_pub.add( 'EXITING VALIDATE_WITH_LAD' , 1 ) ;
287: END IF;
288: END validate_with_LAD;
289: -- End Pack J
290: /*--------------------------------------------------------------------------
348: l_task_number NUMBER;
349: l_st_atp_lead_time NUMBER := 0;
350: l_order_number NUMBER;
351: --
352: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
353: --
354: BEGIN
355:
356:
469: l_model_rec.Order_number := MRP_ATP_PUB.number_arr
470: (l_order_number);
471:
472: IF l_debug_level > 0 THEN
473: oe_debug_pub.add( '1.. CALLING CTO GET_BOM_MANDATORY_COMPS' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
474: END IF;
475:
476: BEGIN
477: l_result := CTO_CONFIG_ITEM_PK.GET_MANDATORY_COMPONENTS
483: xMessageName => lMessageName,
484: xTableName => lTableName);
485:
486: IF l_debug_level > 0 THEN
487: oe_debug_pub.add( '1. AFTER CALLING CTO API : ' || L_RESULT , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
488: END IF;
489: IF l_debug_level > 0 THEN
490: oe_debug_pub.add( 'COUNT IS: ' || L_SMC_REC.INVENTORY_ITEM_ID.COUNT , 1 ) ;
491: END IF;
486: IF l_debug_level > 0 THEN
487: oe_debug_pub.add( '1. AFTER CALLING CTO API : ' || L_RESULT , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
488: END IF;
489: IF l_debug_level > 0 THEN
490: oe_debug_pub.add( 'COUNT IS: ' || L_SMC_REC.INVENTORY_ITEM_ID.COUNT , 1 ) ;
491: END IF;
492:
493: EXCEPTION
494: WHEN OTHERS THEN
492:
493: EXCEPTION
494: WHEN OTHERS THEN
495: IF l_debug_level > 0 THEN
496: oe_debug_pub.add( 'CTO API RETURNED AN UNEXPECTED ERROR' ) ;
497: END IF;
498: l_result := 0;
499: END;
500:
501: IF l_result = 1 AND
502: l_smc_rec.Identifier.count >= 1 THEN
503:
504: IF l_debug_level > 0 THEN
505: oe_debug_pub.add( 'SMC COUNT IS : ' || L_SMC_REC.IDENTIFIER.COUNT , 1 ) ;
506: END IF;
507:
508: FOR J IN 1..l_smc_rec.Identifier.count LOOP
509: l_line_id := l_smc_rec.Identifier(J);
676: p_source_document_line_id IN VARCHAR2)
677: IS
678: po_result BOOLEAN;
679: --
680: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
681: --
682: BEGIN
683:
684: IF l_debug_level > 0 THEN
681: --
682: BEGIN
683:
684: IF l_debug_level > 0 THEN
685: oe_debug_pub.add( 'ENTERING OE_SCHEDULE_UTIL.UPDATE_PO' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
686: END IF;
687:
688: -- Call po if internal req and quantity is changed
689:
689:
690: IF p_source_document_line_id IS NOT NULL THEN
691:
692: IF l_debug_level > 0 THEN
693: oe_debug_pub.add( 'DATE ' || P_SCHEDULE_SHIP_DATE , 2 ) ;
694: END IF;
695:
696: po_result := po_supply.po_req_supply(
697: p_docid => p_source_document_id,
703: p_receipt_date => p_schedule_ship_date);
704: END IF;
705:
706: IF l_debug_level > 0 THEN
707: oe_debug_pub.add( 'EXITING OE_SCHEDULE_UTIL.UPDATE_PO' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
708: END IF;
709:
710: EXCEPTION
711: WHEN OTHERS THEN
709:
710: EXCEPTION
711: WHEN OTHERS THEN
712: IF l_debug_level > 0 THEN
713: oe_debug_pub.add( 'EXCEPTION IN UPDATE_PO' , 2 ) ;
714: END IF;
715: END Update_PO;
716:
717: /*---------------------------------------------------------------------
738: l_time_to_ship NUMBER;
739: l_sysdate DATE;
740: l_schedule_ship_date DATE;
741: --
742: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
743: --
744: BEGIN
745: l_rsv_time_fence_profile :=
746: Oe_Sys_Parameters.Value('ONT_RESERVATION_TIME_FENCE', p_org_id);
749: l_rsv_time_fence := to_number(l_rsv_time_fence_profile);
750: EXCEPTION
751: WHEN OTHERS THEN
752: IF l_debug_level > 0 THEN
753: oe_debug_pub.add( 'IGNORING RESERVATION TIME FENCE' , 1 ) ;
754: END IF;
755: l_rsv_time_fence := null;
756: END;
757:
760:
761: l_time_to_ship := to_number(l_schedule_ship_date -l_sysdate);
762:
763: IF l_debug_level > 0 THEN
764: oe_debug_pub.add( 'L_TIME_TO_SHIP ' || L_TIME_TO_SHIP , 1 ) ;
765: END IF;
766: IF l_debug_level > 0 THEN
767: oe_debug_pub.add( 'L_RSV_TIME_FENCE ' || L_RSV_TIME_FENCE , 1 ) ;
768: END IF;
763: IF l_debug_level > 0 THEN
764: oe_debug_pub.add( 'L_TIME_TO_SHIP ' || L_TIME_TO_SHIP , 1 ) ;
765: END IF;
766: IF l_debug_level > 0 THEN
767: oe_debug_pub.add( 'L_RSV_TIME_FENCE ' || L_RSV_TIME_FENCE , 1 ) ;
768: END IF;
769:
770: /* Commented the following code to fix the bug 3109349
771:
880: l_lot_code NUMBER;
881: l_serial_code NUMBER;
882: l_do_partial_reservation VARCHAR2(1) := FND_API.G_FALSE;
883: --
884: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
885: --
886: BEGIN
887: IF l_debug_level > 0 THEN
888: oe_debug_pub.add( 'ENTERING RESERVE LINE :' || P_QUANTITY_TO_RESERVE , 1 ) ;
884: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
885: --
886: BEGIN
887: IF l_debug_level > 0 THEN
888: oe_debug_pub.add( 'ENTERING RESERVE LINE :' || P_QUANTITY_TO_RESERVE , 1 ) ;
889: oe_debug_pub.add( 'ENTERING RESERVE LINE qty2 :' || P_QUANTITY2_TO_RESERVE , 1 ) ;
890: END IF;
891: x_return_status := FND_API.G_RET_STS_SUCCESS;
892:
885: --
886: BEGIN
887: IF l_debug_level > 0 THEN
888: oe_debug_pub.add( 'ENTERING RESERVE LINE :' || P_QUANTITY_TO_RESERVE , 1 ) ;
889: oe_debug_pub.add( 'ENTERING RESERVE LINE qty2 :' || P_QUANTITY2_TO_RESERVE , 1 ) ;
890: END IF;
891: x_return_status := FND_API.G_RET_STS_SUCCESS;
892:
893: SELECT RESERVABLE_TYPE
899: IF l_reservable_type = 1 THEN
900:
901: --Bug 13082802
902: IF l_debug_level > 0 THEN
903: oe_debug_pub.add( 'BEFORE FULFILLED QTY CHECK' , 2 ) ;
904: END IF;
905:
906: IF (p_line_rec.fulfilled_quantity is not null)
907: AND (p_line_rec.fulfilled_quantity <> FND_API.G_MISS_NUM) THEN
907: AND (p_line_rec.fulfilled_quantity <> FND_API.G_MISS_NUM) THEN
908:
909: -- The line is Fulfilled. Cannot reserve it
910: IF l_debug_level > 0 THEN
911: oe_debug_pub.add( 'LINE FULFILLED, CANNOT RESERVE LINE. FULFILLED QTY:' || p_line_rec.fulfilled_quantity , 1 ) ;
912: END IF;
913:
914: FND_MESSAGE.SET_NAME('ONT','OE_RSV_LINE_FULFILLED');
915: OE_MSG_PUB.Add;
919: END IF;
920: --Bug 13082802
921:
922: IF l_debug_level > 0 THEN
923: oe_debug_pub.add( 'L_QTY_TO_RESERVE : ' || P_QUANTITY_TO_RESERVE , 3 ) ;
924: oe_debug_pub.add( 'L_QTY2_TO_RESERVE : ' || p_quantity2_to_reserve , 3 ) ;
925: END IF;
926: --newsub check if item is under lot/revision/serial control
927: IF p_line_rec.subinventory is not null
920: --Bug 13082802
921:
922: IF l_debug_level > 0 THEN
923: oe_debug_pub.add( 'L_QTY_TO_RESERVE : ' || P_QUANTITY_TO_RESERVE , 3 ) ;
924: oe_debug_pub.add( 'L_QTY2_TO_RESERVE : ' || p_quantity2_to_reserve , 3 ) ;
925: END IF;
926: --newsub check if item is under lot/revision/serial control
927: IF p_line_rec.subinventory is not null
928: AND p_line_rec.subinventory <> FND_API.G_MISS_CHAR THEN
953: RAISE FND_API.G_EXC_ERROR;
954: ELSE
955: x_return_status := FND_API.G_RET_STS_SUCCESS;
956: IF l_debug_level > 0 THEN
957: oe_debug_pub.add( 'BEFORE RETURN' , 3 ) ;
958: END IF;
959: RETURN;
960: END IF;
961:
974:
975: -- Call INV with action = RESERVE
976:
977: IF l_debug_level > 0 THEN
978: oe_debug_pub.add( 'CALLING INVS CREATE_RESERVATION' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
979: END IF;
980: -- Pack J
981: -- Check for partial reservation flag
982: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
993: END IF;
994: /* End of code changes for ER 6110708 */
995:
996: IF l_debug_level > 0 THEN
997: oe_debug_pub.add( 'before CREATE RESERVATION ', 1 ) ;
998: oe_debug_pub.add( ' qty2 = ' || l_reservation_rec.secondary_reservation_quantity , 1 ) ;
999: oe_debug_pub.add( ' uom2 = ' || l_reservation_rec.secondary_uom_code , 1 ) ;
1000:
1001:
994: /* End of code changes for ER 6110708 */
995:
996: IF l_debug_level > 0 THEN
997: oe_debug_pub.add( 'before CREATE RESERVATION ', 1 ) ;
998: oe_debug_pub.add( ' qty2 = ' || l_reservation_rec.secondary_reservation_quantity , 1 ) ;
999: oe_debug_pub.add( ' uom2 = ' || l_reservation_rec.secondary_uom_code , 1 ) ;
1000:
1001:
1002: END IF;
995:
996: IF l_debug_level > 0 THEN
997: oe_debug_pub.add( 'before CREATE RESERVATION ', 1 ) ;
998: oe_debug_pub.add( ' qty2 = ' || l_reservation_rec.secondary_reservation_quantity , 1 ) ;
999: oe_debug_pub.add( ' uom2 = ' || l_reservation_rec.secondary_uom_code , 1 ) ;
1000:
1001:
1002: END IF;
1003:
1022: , p_substitute_flag => l_substitute_flag -- Added for ER 6110708
1023: );
1024:
1025: IF l_debug_level > 0 THEN
1026: oe_debug_pub.add( '2. AFTER CALLING CREATE RESERVATION' || X_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1027: END IF;
1028: IF l_debug_level > 0 THEN
1029: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1030: END IF;
1025: IF l_debug_level > 0 THEN
1026: oe_debug_pub.add( '2. AFTER CALLING CREATE RESERVATION' || X_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1027: END IF;
1028: IF l_debug_level > 0 THEN
1029: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1030: END IF;
1031:
1032: -- Bug No:2097933
1033: -- If the Reservation was succesfull we set
1043: -- l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1044: -- for I in 1..l_msg_count loop
1045: -- l_msg_data := OE_MSG_PUB.Get(I,'F');
1046: -- IF l_debug_level > 0 THEN
1047: -- oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1048: -- END IF;
1049: -- end loop;
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1054: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1055: for I in 1..l_msg_count loop
1056: l_msg_data := OE_MSG_PUB.Get(I,'F');
1057: IF l_debug_level > 0 THEN
1058: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1059: END IF;
1060: end loop;
1061: IF p_line_rec.Schedule_action_code = OESCH_ACT_RESERVE THEN
1062: RAISE FND_API.G_EXC_ERROR;
1062: RAISE FND_API.G_EXC_ERROR;
1063: ELSE
1064: x_return_status := FND_API.G_RET_STS_SUCCESS;
1065: IF l_debug_level > 0 THEN
1066: oe_debug_pub.add( 'UNABLE TO RESERVE' , 2 ) ;
1067: END IF;
1068: END IF;
1069:
1070: END IF;
1071:
1072: END IF;
1073:
1074: IF l_debug_level > 0 THEN
1075: oe_debug_pub.add( 'AFTER CALLING INVS CREATE_RESERVATION' || X_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1076: END IF;
1077:
1078: EXCEPTION
1079: WHEN FND_API.G_EXC_ERROR THEN
1089: -- 4091185
1090: -- oe_msg_pub.transfer_msg_stack has already added messages.
1091: -- oe_msg_pub.add_text(l_msg_data);
1092: IF l_debug_level > 0 THEN
1093: oe_debug_pub.add( 'INV : ' || L_MSG_DATA , 2 ) ;
1094: END IF;
1095: end loop;
1096:
1097: WHEN OTHERS THEN
1140:
1141: l_quantity2_to_UNreserve NUMBER; -- INVCONV
1142:
1143: --
1144: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1145: --
1146: BEGIN
1147:
1148: IF l_debug_level > 0 THEN
1145: --
1146: BEGIN
1147:
1148: IF l_debug_level > 0 THEN
1149: oe_debug_pub.add( 'ENTERING UNRESERVE LINE' , 3 ) ;
1150: END IF;
1151: IF l_debug_level > 0 THEN
1152: oe_debug_pub.add( 'QUANTITY TO UNRESERVE : ' || P_QUANTITY_TO_UNRESERVE , 3 ) ;
1153: oe_debug_pub.add( 'QUANTITY2 TO UNRESERVE : ' || P_QUANTITY2_TO_UNRESERVE , 3 ) ;
1148: IF l_debug_level > 0 THEN
1149: oe_debug_pub.add( 'ENTERING UNRESERVE LINE' , 3 ) ;
1150: END IF;
1151: IF l_debug_level > 0 THEN
1152: oe_debug_pub.add( 'QUANTITY TO UNRESERVE : ' || P_QUANTITY_TO_UNRESERVE , 3 ) ;
1153: oe_debug_pub.add( 'QUANTITY2 TO UNRESERVE : ' || P_QUANTITY2_TO_UNRESERVE , 3 ) ;
1154: END IF;
1155:
1156: /* Bug 6335352
1149: oe_debug_pub.add( 'ENTERING UNRESERVE LINE' , 3 ) ;
1150: END IF;
1151: IF l_debug_level > 0 THEN
1152: oe_debug_pub.add( 'QUANTITY TO UNRESERVE : ' || P_QUANTITY_TO_UNRESERVE , 3 ) ;
1153: oe_debug_pub.add( 'QUANTITY2 TO UNRESERVE : ' || P_QUANTITY2_TO_UNRESERVE , 3 ) ;
1154: END IF;
1155:
1156: /* Bug 6335352
1157: OM will handle Resevrations both before and after Shipping Interface is done.
1156: /* Bug 6335352
1157: OM will handle Resevrations both before and after Shipping Interface is done.
1158: IF nvl(p_line_rec.shipping_interfaced_flag,'N') = 'Y' THEN
1159: IF l_debug_level > 0 THEN
1160: oe_debug_pub.add( 'LINE HAS BEEN SHIPPING INTERFACED' , 3 ) ;
1161: END IF;
1162: goto end_of_loop;
1163: END IF;
1164: */
1181:
1182: <
1183:
1184: IF l_debug_level > 0 THEN
1185: oe_debug_pub.add( 'EXITING UNRESERVE_LINES' , 3 ) ;
1186: END IF;
1187:
1188: EXCEPTION
1189: WHEN FND_API.G_EXC_ERROR THEN
1216: FUNCTION Valid_Set_Addition(p_top_model_line_id IN NUMBER ,
1217: p_set_type IN VARCHAR2)
1218: RETURN BOOLEAN
1219: IS
1220: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1221: l_count NUMBER := 0;
1222: BEGIN
1223:
1224: IF l_debug_level > 0 THEN
1221: l_count NUMBER := 0;
1222: BEGIN
1223:
1224: IF l_debug_level > 0 THEN
1225: oe_debug_pub.add( 'p_top_model_line_id :' || p_top_model_line_id , 2 ) ;
1226: oe_debug_pub.add( 'p_set_type :' || P_SET_TYPE , 2 ) ;
1227: END IF;
1228:
1229:
1222: BEGIN
1223:
1224: IF l_debug_level > 0 THEN
1225: oe_debug_pub.add( 'p_top_model_line_id :' || p_top_model_line_id , 2 ) ;
1226: oe_debug_pub.add( 'p_set_type :' || P_SET_TYPE , 2 ) ;
1227: END IF;
1228:
1229:
1230: IF p_set_type = 'SHIP_SET' THEN
1253:
1254: END IF;
1255:
1256: IF l_debug_level > 0 THEN
1257: oe_debug_pub.add('count: ' || l_count,2);
1258: END IF;
1259: IF l_count = 0 THEN
1260:
1261: RETURN TRUE;
1269:
1270: WHEN OTHERS THEN
1271:
1272: IF l_debug_level > 0 THEN
1273: oe_debug_pub.add('return false from Valid_Set_Addition');
1274: END IF;
1275: RETURN FALSE;
1276:
1277: END Valid_Set_Addition;
1295: RETURN BOOLEAN
1296: IS
1297:
1298: --
1299: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1300: --
1301: BEGIN
1302:
1303: IF l_debug_level > 0 THEN
1300: --
1301: BEGIN
1302:
1303: IF l_debug_level > 0 THEN
1304: oe_debug_pub.add( 'P_SET_TYPE :' || P_SET_TYPE , 2 ) ;
1305: oe_debug_pub.add( 'P_LINE_SHIP_FROM_ORG_ID :' || P_LINE_SHIP_FROM_ORG_ID , 2 ) ;
1306: oe_debug_pub.add( 'P_SET_SHIP_FROM_ORG_ID :' || P_SET_SHIP_FROM_ORG_ID , 2 ) ;
1307: oe_debug_pub.add( 'P_LINE_SHIP_TO_ORG_ID :' || P_LINE_SHIP_TO_ORG_ID , 2 ) ;
1308: oe_debug_pub.add( 'P_SET_SHIP_TO_ORG_ID :' || P_SET_SHIP_TO_ORG_ID , 2 ) ;
1301: BEGIN
1302:
1303: IF l_debug_level > 0 THEN
1304: oe_debug_pub.add( 'P_SET_TYPE :' || P_SET_TYPE , 2 ) ;
1305: oe_debug_pub.add( 'P_LINE_SHIP_FROM_ORG_ID :' || P_LINE_SHIP_FROM_ORG_ID , 2 ) ;
1306: oe_debug_pub.add( 'P_SET_SHIP_FROM_ORG_ID :' || P_SET_SHIP_FROM_ORG_ID , 2 ) ;
1307: oe_debug_pub.add( 'P_LINE_SHIP_TO_ORG_ID :' || P_LINE_SHIP_TO_ORG_ID , 2 ) ;
1308: oe_debug_pub.add( 'P_SET_SHIP_TO_ORG_ID :' || P_SET_SHIP_TO_ORG_ID , 2 ) ;
1309: oe_debug_pub.add( 'P_LINE_SCHEDULE_SHIP_DATE :' || P_LINE_SCHEDULE_SHIP_DATE , 2 ) ;
1302:
1303: IF l_debug_level > 0 THEN
1304: oe_debug_pub.add( 'P_SET_TYPE :' || P_SET_TYPE , 2 ) ;
1305: oe_debug_pub.add( 'P_LINE_SHIP_FROM_ORG_ID :' || P_LINE_SHIP_FROM_ORG_ID , 2 ) ;
1306: oe_debug_pub.add( 'P_SET_SHIP_FROM_ORG_ID :' || P_SET_SHIP_FROM_ORG_ID , 2 ) ;
1307: oe_debug_pub.add( 'P_LINE_SHIP_TO_ORG_ID :' || P_LINE_SHIP_TO_ORG_ID , 2 ) ;
1308: oe_debug_pub.add( 'P_SET_SHIP_TO_ORG_ID :' || P_SET_SHIP_TO_ORG_ID , 2 ) ;
1309: oe_debug_pub.add( 'P_LINE_SCHEDULE_SHIP_DATE :' || P_LINE_SCHEDULE_SHIP_DATE , 2 ) ;
1310: oe_debug_pub.add( 'P_SET_SCHEDULE_SHIP_DATE :' || P_SET_SCHEDULE_SHIP_DATE , 2 ) ;
1303: IF l_debug_level > 0 THEN
1304: oe_debug_pub.add( 'P_SET_TYPE :' || P_SET_TYPE , 2 ) ;
1305: oe_debug_pub.add( 'P_LINE_SHIP_FROM_ORG_ID :' || P_LINE_SHIP_FROM_ORG_ID , 2 ) ;
1306: oe_debug_pub.add( 'P_SET_SHIP_FROM_ORG_ID :' || P_SET_SHIP_FROM_ORG_ID , 2 ) ;
1307: oe_debug_pub.add( 'P_LINE_SHIP_TO_ORG_ID :' || P_LINE_SHIP_TO_ORG_ID , 2 ) ;
1308: oe_debug_pub.add( 'P_SET_SHIP_TO_ORG_ID :' || P_SET_SHIP_TO_ORG_ID , 2 ) ;
1309: oe_debug_pub.add( 'P_LINE_SCHEDULE_SHIP_DATE :' || P_LINE_SCHEDULE_SHIP_DATE , 2 ) ;
1310: oe_debug_pub.add( 'P_SET_SCHEDULE_SHIP_DATE :' || P_SET_SCHEDULE_SHIP_DATE , 2 ) ;
1311: oe_debug_pub.add( 'P_LINE_ARRIVAL_DATE :' || P_LINE_ARRIVAL_DATE , 2 ) ;
1304: oe_debug_pub.add( 'P_SET_TYPE :' || P_SET_TYPE , 2 ) ;
1305: oe_debug_pub.add( 'P_LINE_SHIP_FROM_ORG_ID :' || P_LINE_SHIP_FROM_ORG_ID , 2 ) ;
1306: oe_debug_pub.add( 'P_SET_SHIP_FROM_ORG_ID :' || P_SET_SHIP_FROM_ORG_ID , 2 ) ;
1307: oe_debug_pub.add( 'P_LINE_SHIP_TO_ORG_ID :' || P_LINE_SHIP_TO_ORG_ID , 2 ) ;
1308: oe_debug_pub.add( 'P_SET_SHIP_TO_ORG_ID :' || P_SET_SHIP_TO_ORG_ID , 2 ) ;
1309: oe_debug_pub.add( 'P_LINE_SCHEDULE_SHIP_DATE :' || P_LINE_SCHEDULE_SHIP_DATE , 2 ) ;
1310: oe_debug_pub.add( 'P_SET_SCHEDULE_SHIP_DATE :' || P_SET_SCHEDULE_SHIP_DATE , 2 ) ;
1311: oe_debug_pub.add( 'P_LINE_ARRIVAL_DATE :' || P_LINE_ARRIVAL_DATE , 2 ) ;
1312: oe_debug_pub.add( 'P_SET_ARRIVAL_DATE :' || P_SET_ARRIVAL_DATE , 2 ) ;
1305: oe_debug_pub.add( 'P_LINE_SHIP_FROM_ORG_ID :' || P_LINE_SHIP_FROM_ORG_ID , 2 ) ;
1306: oe_debug_pub.add( 'P_SET_SHIP_FROM_ORG_ID :' || P_SET_SHIP_FROM_ORG_ID , 2 ) ;
1307: oe_debug_pub.add( 'P_LINE_SHIP_TO_ORG_ID :' || P_LINE_SHIP_TO_ORG_ID , 2 ) ;
1308: oe_debug_pub.add( 'P_SET_SHIP_TO_ORG_ID :' || P_SET_SHIP_TO_ORG_ID , 2 ) ;
1309: oe_debug_pub.add( 'P_LINE_SCHEDULE_SHIP_DATE :' || P_LINE_SCHEDULE_SHIP_DATE , 2 ) ;
1310: oe_debug_pub.add( 'P_SET_SCHEDULE_SHIP_DATE :' || P_SET_SCHEDULE_SHIP_DATE , 2 ) ;
1311: oe_debug_pub.add( 'P_LINE_ARRIVAL_DATE :' || P_LINE_ARRIVAL_DATE , 2 ) ;
1312: oe_debug_pub.add( 'P_SET_ARRIVAL_DATE :' || P_SET_ARRIVAL_DATE , 2 ) ;
1313: END IF;
1306: oe_debug_pub.add( 'P_SET_SHIP_FROM_ORG_ID :' || P_SET_SHIP_FROM_ORG_ID , 2 ) ;
1307: oe_debug_pub.add( 'P_LINE_SHIP_TO_ORG_ID :' || P_LINE_SHIP_TO_ORG_ID , 2 ) ;
1308: oe_debug_pub.add( 'P_SET_SHIP_TO_ORG_ID :' || P_SET_SHIP_TO_ORG_ID , 2 ) ;
1309: oe_debug_pub.add( 'P_LINE_SCHEDULE_SHIP_DATE :' || P_LINE_SCHEDULE_SHIP_DATE , 2 ) ;
1310: oe_debug_pub.add( 'P_SET_SCHEDULE_SHIP_DATE :' || P_SET_SCHEDULE_SHIP_DATE , 2 ) ;
1311: oe_debug_pub.add( 'P_LINE_ARRIVAL_DATE :' || P_LINE_ARRIVAL_DATE , 2 ) ;
1312: oe_debug_pub.add( 'P_SET_ARRIVAL_DATE :' || P_SET_ARRIVAL_DATE , 2 ) ;
1313: END IF;
1314:
1307: oe_debug_pub.add( 'P_LINE_SHIP_TO_ORG_ID :' || P_LINE_SHIP_TO_ORG_ID , 2 ) ;
1308: oe_debug_pub.add( 'P_SET_SHIP_TO_ORG_ID :' || P_SET_SHIP_TO_ORG_ID , 2 ) ;
1309: oe_debug_pub.add( 'P_LINE_SCHEDULE_SHIP_DATE :' || P_LINE_SCHEDULE_SHIP_DATE , 2 ) ;
1310: oe_debug_pub.add( 'P_SET_SCHEDULE_SHIP_DATE :' || P_SET_SCHEDULE_SHIP_DATE , 2 ) ;
1311: oe_debug_pub.add( 'P_LINE_ARRIVAL_DATE :' || P_LINE_ARRIVAL_DATE , 2 ) ;
1312: oe_debug_pub.add( 'P_SET_ARRIVAL_DATE :' || P_SET_ARRIVAL_DATE , 2 ) ;
1313: END IF;
1314:
1315: IF (p_set_type = 'SHIP_SET' AND
1308: oe_debug_pub.add( 'P_SET_SHIP_TO_ORG_ID :' || P_SET_SHIP_TO_ORG_ID , 2 ) ;
1309: oe_debug_pub.add( 'P_LINE_SCHEDULE_SHIP_DATE :' || P_LINE_SCHEDULE_SHIP_DATE , 2 ) ;
1310: oe_debug_pub.add( 'P_SET_SCHEDULE_SHIP_DATE :' || P_SET_SCHEDULE_SHIP_DATE , 2 ) ;
1311: oe_debug_pub.add( 'P_LINE_ARRIVAL_DATE :' || P_LINE_ARRIVAL_DATE , 2 ) ;
1312: oe_debug_pub.add( 'P_SET_ARRIVAL_DATE :' || P_SET_ARRIVAL_DATE , 2 ) ;
1313: END IF;
1314:
1315: IF (p_set_type = 'SHIP_SET' AND
1316: p_line_ship_from_org_id = p_set_ship_from_org_id AND
1336:
1337: END IF;
1338:
1339: IF l_debug_level > 0 THEN
1340: oe_debug_pub.add( 'EXITING CAMPARE ATTR' , 3 ) ;
1341: END IF;
1342: RETURN FALSE;
1343:
1344: EXCEPTION
1345:
1346: WHEN OTHERS THEN
1347:
1348: IF l_debug_level > 0 THEN
1349: oe_debug_pub.add('return false from debug');
1350: END IF;
1351: RETURN FALSE;
1352:
1353: END Set_Attr_Matched;
1368:
1369: IS
1370: l_set_type VARCHAR2(30);
1371: --
1372: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1373: --
1374: BEGIN
1375:
1376: IF l_debug_level > 0 THEN
1373: --
1374: BEGIN
1375:
1376: IF l_debug_level > 0 THEN
1377: oe_debug_pub.add( 'ENTERING LOG DELETE SET REQUEST' || P_SET_ID , 1 );
1378: END IF;
1379:
1380: SELECT set_type
1381: INTO l_set_type
1392: p_param2 => p_header_id,
1393: p_param3 => l_set_type,
1394: x_return_status => x_return_status);
1395: IF l_debug_level > 0 THEN
1396: oe_debug_pub.add( 'EXITING LOG DELETE SET REQUEST '||x_return_status , 1 ) ;
1397: END IF;
1398:
1399: EXCEPTION
1400: WHEN FND_API.G_EXC_ERROR THEN
1473: l_qty_to_unreserve NUMBER;
1474: l_index NUMBER;
1475: l_line_id_mod NUMBER; --7827737
1476: --
1477: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1478: --
1479: BEGIN
1480:
1481: -- If set does not exists, the the first time the lines are getting added
1481: -- If set does not exists, the the first time the lines are getting added
1482: -- to set. Do a group schedule. Other wise log a delayed request based on
1483: -- ato or smc.
1484: IF l_debug_level > 0 THEN
1485: oe_debug_pub.add( 'ENTERING LOG SET REQUEST' || P_LINE_REC.SHIP_SET_ID , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1486: END IF;
1487: BEGIN
1488:
1489:
1498: From oe_sets
1499: Where set_id = nvl(p_line_rec.ship_set_id,p_line_rec.arrival_set_id);
1500:
1501: IF l_debug_level > 0 THEN
1502: oe_debug_pub.add( 'SET SCHEDULE DATE'|| L_SCHEDULE_SHIP_DATE , 1 ) ;
1503: END IF;
1504: EXCEPTION
1505: WHEN OTHERS THEN
1506: l_schedule_ship_date := null;
1551: -- Log a group request.
1552: /*
1553: IF p_line_rec.schedule_status_code is not null THEN --2369951
1554:
1555: oe_debug_pub.add('1 Setting schedule line',2);
1556:
1557: l_schedule_ship_date := p_line_rec.schedule_ship_date;
1558: l_schedule_arrival_date := p_line_rec.schedule_arrival_date;
1559: l_ship_from_org_id := p_line_rec.ship_from_org_id;
1561:
1562: l_action := OESCH_ACT_RESCHEDULE;
1563:
1564: ELSE
1565: oe_debug_pub.add('1 Setting group schedule',2);
1566: l_group_request := TRUE;
1567: l_action := OESCH_ACT_SCHEDULE;
1568: END IF;
1569: */
1567: l_action := OESCH_ACT_SCHEDULE;
1568: END IF;
1569: */
1570: IF l_debug_level > 0 THEN
1571: oe_debug_pub.add( '1 SETTING GROUP SCHEDULE' , 2 ) ;
1572: END IF;
1573: l_group_request := TRUE;
1574: l_action := OESCH_ACT_RESCHEDULE;
1575:
1584:
1585: -- some attribute changed in the line which belongs to set.
1586: -- Log group request.
1587: IF l_debug_level > 0 THEN
1588: oe_debug_pub.add( '2 SETTING GROUP SCHEDULE' , 2 ) ;
1589: END IF;
1590: l_group_request := TRUE;
1591: l_action := OESCH_ACT_RESCHEDULE;
1592: l_order_date_type_code :=
1702: THEN
1703:
1704: l_cascade_line_id := p_line_rec.top_model_line_id;
1705: IF l_debug_level > 0 THEN
1706: oe_debug_pub.add('Going to Log Cascade warehouse for SMC Model',2);
1707: END IF;
1708:
1709: ELSIF p_line_rec.ato_line_id is not null
1710: AND NOT(p_line_rec.ato_line_id = p_line_rec.line_id
1713: OE_GLOBALS.G_ITEM_INCLUDED)) --9775352
1714: THEN
1715:
1716: IF l_debug_level > 0 THEN
1717: oe_debug_pub.add('Going to Log Cascade warehouse for ato Model',2);
1718: END IF;
1719:
1720: l_cascade_line_id := p_line_rec.ato_line_id;
1721:
1741: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 )
1742: THEN
1743:
1744: IF l_debug_level > 0 THEN
1745: oe_debug_pub.add( '3 SETTING GROUP SCHEDULE' , 2 ) ;
1746: END IF;
1747:
1748: /* Added the following 1 line to fix the bug 2740480 */
1749: l_push_logic := 'Y';
1754:
1755: ELSE
1756:
1757: IF l_debug_level > 0 THEN
1758: oe_debug_pub.add( '4 SCHEDULE LINE' , 2 ) ;
1759: END IF;
1760: /*changes for bug 6719457*/
1761: IF l_debug_level > 0 THEN
1762: oe_debug_pub.add( 'Checking if Group_Schedule delayed request already exists for the line' , 2 ) ;
1758: oe_debug_pub.add( '4 SCHEDULE LINE' , 2 ) ;
1759: END IF;
1760: /*changes for bug 6719457*/
1761: IF l_debug_level > 0 THEN
1762: oe_debug_pub.add( 'Checking if Group_Schedule delayed request already exists for the line' , 2 ) ;
1763: END IF;
1764:
1765: IF OE_Delayed_Requests_PVT.Check_for_Request
1766: ( p_entity_code =>OE_GLOBALS.G_ENTITY_ALL
1841: OR p_line_rec.schedule_action_code is not null
1842: THEN
1843:
1844: IF l_debug_level > 0 THEN
1845: oe_debug_pub.add(' Schedule Action Code '||p_line_rec.schedule_action_code,1);
1846: oe_debug_pub.add( 'SET L PARAM 12' , 4 ) ;
1847: END IF;
1848: l_param12 := 'Y';
1849:
1842: THEN
1843:
1844: IF l_debug_level > 0 THEN
1845: oe_debug_pub.add(' Schedule Action Code '||p_line_rec.schedule_action_code,1);
1846: oe_debug_pub.add( 'SET L PARAM 12' , 4 ) ;
1847: END IF;
1848: l_param12 := 'Y';
1849:
1850: END IF;
1852:
1853: IF l_group_request THEN
1854:
1855: IF l_debug_level > 0 THEN
1856: oe_debug_pub.add( 'BEFORE LOGGING G_GROUP_SCHEDULE' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
1857: END IF;
1858: -- Log group set. which will execute a group schedule.
1859: /* -- 3384975 moved out of l_group_request check
1860: l_param12 := 'N';
1873: p_old_line_rec.reserved_quantity))
1874: THEN
1875:
1876: IF l_debug_level > 0 THEN
1877: oe_debug_pub.add( 'SET L PARAM 12' , 4 ) ;
1878: END IF;
1879: l_param12 := 'Y';
1880:
1881: END IF;
1922: -- 2391781
1923: IF l_cascade_line_id IS NOT NULL
1924: THEN
1925: IF l_debug_level > 0 THEN
1926: oe_debug_pub.add( 'Logging cascade warehouse / Request date ' , 4 ) ;
1927: END IF;
1928: OE_delayed_requests_Pvt.log_request
1929: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1930: p_entity_id => l_cascade_line_id,
1960: AND (p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD OR
1961: nvl(p_line_rec.model_remnant_flag,'N') = 'Y') THEN
1962:
1963: IF l_debug_level > 0 THEN
1964: oe_debug_pub.add( 'ARRIVAL_SET_ID : ' || P_LINE_REC.ARRIVAL_SET_ID || ':' || P_LINE_REC.SHIP_SET_ID , 2 ) ;
1965: END IF;
1966:
1967: IF l_debug_level > 0 THEN
1968: oe_debug_pub.add( 'OLD SHIP DATE ' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 2 ) ;
1964: oe_debug_pub.add( 'ARRIVAL_SET_ID : ' || P_LINE_REC.ARRIVAL_SET_ID || ':' || P_LINE_REC.SHIP_SET_ID , 2 ) ;
1965: END IF;
1966:
1967: IF l_debug_level > 0 THEN
1968: oe_debug_pub.add( 'OLD SHIP DATE ' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 2 ) ;
1969: END IF;
1970: --- 3344843 Put to old set if set attribs match and there is no change in reserve quantity.
1971: IF Set_Attr_Matched
1972: (p_set_ship_from_org_id => l_set_ship_from_org_id ,
1983: AND OE_GLOBALS.Equal(p_line_rec.reserved_quantity,
1984: p_old_line_rec.reserved_quantity) THEN
1985:
1986: IF l_debug_level > 0 THEN
1987: oe_debug_pub.add( 'ONLY SCHEDULED LINE IS GETTING INTO OLD SET' , 2 ) ;
1988: END IF;
1989: l_matched := TRUE;
1990: -- Since we are not logging delayed request, we will update the
1991: -- ship method if it does not match.
2015: END IF; -- not null
2016:
2017: IF NOT l_matched THEN
2018: IF l_debug_level > 0 THEN
2019: oe_debug_pub.add( 'BEFORE LOGGING G_SCHEDULE_LINE' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
2020: END IF;
2021:
2022: l_line_id := p_line_rec.line_id;
2023:
2062: nvl(p_old_line_rec.reserved_quantity, 0);
2063: -- INVCONV may need changes here for sets
2064:
2065: IF l_debug_level > 0 THEN
2066: oe_debug_pub.add( 'RES QTY DIFF '|| L_DIFF_RES_QTY , 1 ) ;
2067: END IF;
2068: IF l_diff_res_qty <> 0 THEN
2069: IF l_diff_res_qty > 0 THEN
2070: l_qty_to_reserve := l_diff_res_qty;
2096:
2097: <
2098:
2099: IF l_debug_level > 0 THEN
2100: oe_debug_pub.add( 'EXITING LOG SET REQUEST' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
2101: END IF;
2102:
2103: --If the scheduling action is not null then system should execute the delyed request.
2104:
2131: , p_old_line_rec IN Oe_Order_Pub.line_rec_type)
2132: RETURN BOOLEAN
2133: IS
2134: --
2135: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2136: --
2137: BEGIN
2138:
2139: IF NOT OE_GLOBALS.Equal(p_line_rec.SHIP_FROM_ORG_ID,
2211:
2212:
2213: RETURN FALSE;
2214: IF l_debug_level > 0 THEN
2215: oe_debug_pub.add( 'RETURNING FALSE ' , 3 ) ;
2216: END IF;
2217:
2218: EXCEPTION
2219:
2250: l_order_date_type_code VARCHAR2(30);
2251:
2252: l_return_status VARCHAR2(1); -- Added for IR ISO Tracking bug 7667702
2253: --
2254: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2255: --
2256: BEGIN
2257:
2258: IF l_debug_level > 0 THEN
2255: --
2256: BEGIN
2257:
2258: IF l_debug_level > 0 THEN
2259: oe_debug_pub.add( 'ENTERING INACTIVE_DEMAND_SCHEDULING' , 1 ) ;
2260: END IF;
2261: X_return_status := FND_API.G_RET_STS_SUCCESS;
2262:
2263: IF l_sch_action is NULL THEN
2276: p_x_line_rec.schedule_status_code IS NULL) THEN
2277: -- set the data accordingly.
2278:
2279: IF l_debug_level > 0 THEN
2280: oe_debug_pub.add( 'INACTIVE DEMAND - GOING TO SCHEDULE' , 1 ) ;
2281: END IF;
2282:
2283: IF l_order_date_type_code = 'SHIP' THEN
2284: IF NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_ship_date,
2376: L_sch_action = OESCH_ACT_UNDEMAND THEN
2377: -- we are unscheduling
2378:
2379: IF l_debug_level > 0 THEN
2380: oe_debug_pub.add( 'INACTIVE DEMAND - GOING TO UNSCHEDULE' , 1 ) ;
2381: END IF;
2382:
2383: P_x_line_rec.schedule_ship_date := NULL;
2384: P_x_line_rec.schedule_arrival_date := NULL;
2426:
2427: IF FND_PROFILE.VALUE('POR_SYNC_NEEDBYDATE_OM') = 'YES' THEN
2428:
2429: IF l_debug_level > 0 THEN
2430: oe_debug_pub.add(' Logging G_UPDATE_REQUISITION delayed request for date change');
2431: END IF;
2432:
2433: -- Log a delayed request to update the change in Schedule Ship Date to
2434: -- Requisition Line. This request will be logged only if the change is
2461:
2462: ELSE
2463: IF NOT OE_Schedule_GRP.G_ISO_Planning_Update THEN
2464: IF l_debug_level > 0 THEN
2465: oe_debug_pub.add(' Need By Date is not allowed to update. Updating MTL_Supply only',5);
2466: END IF;
2467:
2468: OE_SCHEDULE_UTIL.Update_PO(p_x_line_rec.schedule_arrival_date,
2469: p_x_line_rec.source_document_id,
2509: ,l_count IN NUMBER)
2510: IS
2511: l_return_status VARCHAR2(1);
2512: --
2513: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2514: --
2515: BEGIN
2516: IF l_debug_level > 0 THEN
2517: oe_debug_pub.add( 'EXTENDING THE TABLE BY ' || L_COUNT , 5 ) ;
2513: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2514: --
2515: BEGIN
2516: IF l_debug_level > 0 THEN
2517: oe_debug_pub.add( 'EXTENDING THE TABLE BY ' || L_COUNT , 5 ) ;
2518: END IF;
2519: /*
2520: p_x_atp_rec.Inventory_Item_Id.extend(l_count);
2521: p_x_atp_rec.Source_Organization_Id.extend(l_count);
2636: l_service_exists varchar2(30);
2637:
2638: l_substitute_flag BOOLEAN := FALSE;
2639:
2640: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2641:
2642: l_mrp_rollback_schedule number := 0;
2643:
2644: l_revert_substitution BOOLEAN := FALSE;
2667:
2668: l_latest_acceptable_date := NVL(p_x_line_rec.latest_acceptable_date,p_x_line_rec.request_date);
2669:
2670: IF l_debug_level > 0 THEN
2671: oe_debug_pub.add( 'check_split_needed() inside check_split_needed()' , 1 ) ;
2672: oe_debug_pub.add( 'check_split_needed() p_om_auto_split:' || p_om_auto_split , 1 ) ;
2673: oe_debug_pub.add( 'check_split_needed() l_latest_acceptable_date:' || l_latest_acceptable_date , 1 ) ;
2674: oe_debug_pub.add( 'check_split_needed() requested_ship_date:' || p_atp_rec.requested_ship_date(J) , 1 ) ;
2675: oe_debug_pub.add( 'check_split_needed() requested_arrival_date:' || p_atp_rec.requested_arrival_date(J) , 1 ) ;
2668: l_latest_acceptable_date := NVL(p_x_line_rec.latest_acceptable_date,p_x_line_rec.request_date);
2669:
2670: IF l_debug_level > 0 THEN
2671: oe_debug_pub.add( 'check_split_needed() inside check_split_needed()' , 1 ) ;
2672: oe_debug_pub.add( 'check_split_needed() p_om_auto_split:' || p_om_auto_split , 1 ) ;
2673: oe_debug_pub.add( 'check_split_needed() l_latest_acceptable_date:' || l_latest_acceptable_date , 1 ) ;
2674: oe_debug_pub.add( 'check_split_needed() requested_ship_date:' || p_atp_rec.requested_ship_date(J) , 1 ) ;
2675: oe_debug_pub.add( 'check_split_needed() requested_arrival_date:' || p_atp_rec.requested_arrival_date(J) , 1 ) ;
2676: oe_debug_pub.add( 'check_split_needed() quantity_ordered:' || p_atp_rec.quantity_ordered(J) , 1 ) ;
2669:
2670: IF l_debug_level > 0 THEN
2671: oe_debug_pub.add( 'check_split_needed() inside check_split_needed()' , 1 ) ;
2672: oe_debug_pub.add( 'check_split_needed() p_om_auto_split:' || p_om_auto_split , 1 ) ;
2673: oe_debug_pub.add( 'check_split_needed() l_latest_acceptable_date:' || l_latest_acceptable_date , 1 ) ;
2674: oe_debug_pub.add( 'check_split_needed() requested_ship_date:' || p_atp_rec.requested_ship_date(J) , 1 ) ;
2675: oe_debug_pub.add( 'check_split_needed() requested_arrival_date:' || p_atp_rec.requested_arrival_date(J) , 1 ) ;
2676: oe_debug_pub.add( 'check_split_needed() quantity_ordered:' || p_atp_rec.quantity_ordered(J) , 1 ) ;
2677: oe_debug_pub.add( 'check_split_needed() ATP order uom:' || p_atp_rec.quantity_uom(J) , 1 ) ;
2670: IF l_debug_level > 0 THEN
2671: oe_debug_pub.add( 'check_split_needed() inside check_split_needed()' , 1 ) ;
2672: oe_debug_pub.add( 'check_split_needed() p_om_auto_split:' || p_om_auto_split , 1 ) ;
2673: oe_debug_pub.add( 'check_split_needed() l_latest_acceptable_date:' || l_latest_acceptable_date , 1 ) ;
2674: oe_debug_pub.add( 'check_split_needed() requested_ship_date:' || p_atp_rec.requested_ship_date(J) , 1 ) ;
2675: oe_debug_pub.add( 'check_split_needed() requested_arrival_date:' || p_atp_rec.requested_arrival_date(J) , 1 ) ;
2676: oe_debug_pub.add( 'check_split_needed() quantity_ordered:' || p_atp_rec.quantity_ordered(J) , 1 ) ;
2677: oe_debug_pub.add( 'check_split_needed() ATP order uom:' || p_atp_rec.quantity_uom(J) , 1 ) ;
2678: oe_debug_pub.add( 'check_split_needed() order line UOM:' || p_x_line_rec.order_quantity_uom , 1 ) ;
2671: oe_debug_pub.add( 'check_split_needed() inside check_split_needed()' , 1 ) ;
2672: oe_debug_pub.add( 'check_split_needed() p_om_auto_split:' || p_om_auto_split , 1 ) ;
2673: oe_debug_pub.add( 'check_split_needed() l_latest_acceptable_date:' || l_latest_acceptable_date , 1 ) ;
2674: oe_debug_pub.add( 'check_split_needed() requested_ship_date:' || p_atp_rec.requested_ship_date(J) , 1 ) ;
2675: oe_debug_pub.add( 'check_split_needed() requested_arrival_date:' || p_atp_rec.requested_arrival_date(J) , 1 ) ;
2676: oe_debug_pub.add( 'check_split_needed() quantity_ordered:' || p_atp_rec.quantity_ordered(J) , 1 ) ;
2677: oe_debug_pub.add( 'check_split_needed() ATP order uom:' || p_atp_rec.quantity_uom(J) , 1 ) ;
2678: oe_debug_pub.add( 'check_split_needed() order line UOM:' || p_x_line_rec.order_quantity_uom , 1 ) ;
2679: oe_debug_pub.add( 'check_split_needed() ship_date:' || p_atp_rec.ship_date(J) , 1 ) ;
2672: oe_debug_pub.add( 'check_split_needed() p_om_auto_split:' || p_om_auto_split , 1 ) ;
2673: oe_debug_pub.add( 'check_split_needed() l_latest_acceptable_date:' || l_latest_acceptable_date , 1 ) ;
2674: oe_debug_pub.add( 'check_split_needed() requested_ship_date:' || p_atp_rec.requested_ship_date(J) , 1 ) ;
2675: oe_debug_pub.add( 'check_split_needed() requested_arrival_date:' || p_atp_rec.requested_arrival_date(J) , 1 ) ;
2676: oe_debug_pub.add( 'check_split_needed() quantity_ordered:' || p_atp_rec.quantity_ordered(J) , 1 ) ;
2677: oe_debug_pub.add( 'check_split_needed() ATP order uom:' || p_atp_rec.quantity_uom(J) , 1 ) ;
2678: oe_debug_pub.add( 'check_split_needed() order line UOM:' || p_x_line_rec.order_quantity_uom , 1 ) ;
2679: oe_debug_pub.add( 'check_split_needed() ship_date:' || p_atp_rec.ship_date(J) , 1 ) ;
2680: oe_debug_pub.add( 'check_split_needed() arrival_date:' || p_atp_rec.arrival_date(J) , 1 ) ;
2673: oe_debug_pub.add( 'check_split_needed() l_latest_acceptable_date:' || l_latest_acceptable_date , 1 ) ;
2674: oe_debug_pub.add( 'check_split_needed() requested_ship_date:' || p_atp_rec.requested_ship_date(J) , 1 ) ;
2675: oe_debug_pub.add( 'check_split_needed() requested_arrival_date:' || p_atp_rec.requested_arrival_date(J) , 1 ) ;
2676: oe_debug_pub.add( 'check_split_needed() quantity_ordered:' || p_atp_rec.quantity_ordered(J) , 1 ) ;
2677: oe_debug_pub.add( 'check_split_needed() ATP order uom:' || p_atp_rec.quantity_uom(J) , 1 ) ;
2678: oe_debug_pub.add( 'check_split_needed() order line UOM:' || p_x_line_rec.order_quantity_uom , 1 ) ;
2679: oe_debug_pub.add( 'check_split_needed() ship_date:' || p_atp_rec.ship_date(J) , 1 ) ;
2680: oe_debug_pub.add( 'check_split_needed() arrival_date:' || p_atp_rec.arrival_date(J) , 1 ) ;
2681: oe_debug_pub.add( 'check_split_needed() available_quantity:' || p_atp_rec.available_quantity(J) , 1 ) ;
2674: oe_debug_pub.add( 'check_split_needed() requested_ship_date:' || p_atp_rec.requested_ship_date(J) , 1 ) ;
2675: oe_debug_pub.add( 'check_split_needed() requested_arrival_date:' || p_atp_rec.requested_arrival_date(J) , 1 ) ;
2676: oe_debug_pub.add( 'check_split_needed() quantity_ordered:' || p_atp_rec.quantity_ordered(J) , 1 ) ;
2677: oe_debug_pub.add( 'check_split_needed() ATP order uom:' || p_atp_rec.quantity_uom(J) , 1 ) ;
2678: oe_debug_pub.add( 'check_split_needed() order line UOM:' || p_x_line_rec.order_quantity_uom , 1 ) ;
2679: oe_debug_pub.add( 'check_split_needed() ship_date:' || p_atp_rec.ship_date(J) , 1 ) ;
2680: oe_debug_pub.add( 'check_split_needed() arrival_date:' || p_atp_rec.arrival_date(J) , 1 ) ;
2681: oe_debug_pub.add( 'check_split_needed() available_quantity:' || p_atp_rec.available_quantity(J) , 1 ) ;
2682: oe_debug_pub.add( 'check_split_needed() requested_date_quantity:' || p_atp_rec.requested_date_quantity(J) , 1 ) ;
2675: oe_debug_pub.add( 'check_split_needed() requested_arrival_date:' || p_atp_rec.requested_arrival_date(J) , 1 ) ;
2676: oe_debug_pub.add( 'check_split_needed() quantity_ordered:' || p_atp_rec.quantity_ordered(J) , 1 ) ;
2677: oe_debug_pub.add( 'check_split_needed() ATP order uom:' || p_atp_rec.quantity_uom(J) , 1 ) ;
2678: oe_debug_pub.add( 'check_split_needed() order line UOM:' || p_x_line_rec.order_quantity_uom , 1 ) ;
2679: oe_debug_pub.add( 'check_split_needed() ship_date:' || p_atp_rec.ship_date(J) , 1 ) ;
2680: oe_debug_pub.add( 'check_split_needed() arrival_date:' || p_atp_rec.arrival_date(J) , 1 ) ;
2681: oe_debug_pub.add( 'check_split_needed() available_quantity:' || p_atp_rec.available_quantity(J) , 1 ) ;
2682: oe_debug_pub.add( 'check_split_needed() requested_date_quantity:' || p_atp_rec.requested_date_quantity(J) , 1 ) ;
2683: oe_debug_pub.add( 'check_split_needed() source_organization_id:' || p_atp_rec.source_organization_id(J) , 1 ) ;
2676: oe_debug_pub.add( 'check_split_needed() quantity_ordered:' || p_atp_rec.quantity_ordered(J) , 1 ) ;
2677: oe_debug_pub.add( 'check_split_needed() ATP order uom:' || p_atp_rec.quantity_uom(J) , 1 ) ;
2678: oe_debug_pub.add( 'check_split_needed() order line UOM:' || p_x_line_rec.order_quantity_uom , 1 ) ;
2679: oe_debug_pub.add( 'check_split_needed() ship_date:' || p_atp_rec.ship_date(J) , 1 ) ;
2680: oe_debug_pub.add( 'check_split_needed() arrival_date:' || p_atp_rec.arrival_date(J) , 1 ) ;
2681: oe_debug_pub.add( 'check_split_needed() available_quantity:' || p_atp_rec.available_quantity(J) , 1 ) ;
2682: oe_debug_pub.add( 'check_split_needed() requested_date_quantity:' || p_atp_rec.requested_date_quantity(J) , 1 ) ;
2683: oe_debug_pub.add( 'check_split_needed() source_organization_id:' || p_atp_rec.source_organization_id(J) , 1 ) ;
2684: END IF;
2677: oe_debug_pub.add( 'check_split_needed() ATP order uom:' || p_atp_rec.quantity_uom(J) , 1 ) ;
2678: oe_debug_pub.add( 'check_split_needed() order line UOM:' || p_x_line_rec.order_quantity_uom , 1 ) ;
2679: oe_debug_pub.add( 'check_split_needed() ship_date:' || p_atp_rec.ship_date(J) , 1 ) ;
2680: oe_debug_pub.add( 'check_split_needed() arrival_date:' || p_atp_rec.arrival_date(J) , 1 ) ;
2681: oe_debug_pub.add( 'check_split_needed() available_quantity:' || p_atp_rec.available_quantity(J) , 1 ) ;
2682: oe_debug_pub.add( 'check_split_needed() requested_date_quantity:' || p_atp_rec.requested_date_quantity(J) , 1 ) ;
2683: oe_debug_pub.add( 'check_split_needed() source_organization_id:' || p_atp_rec.source_organization_id(J) , 1 ) ;
2684: END IF;
2685:
2678: oe_debug_pub.add( 'check_split_needed() order line UOM:' || p_x_line_rec.order_quantity_uom , 1 ) ;
2679: oe_debug_pub.add( 'check_split_needed() ship_date:' || p_atp_rec.ship_date(J) , 1 ) ;
2680: oe_debug_pub.add( 'check_split_needed() arrival_date:' || p_atp_rec.arrival_date(J) , 1 ) ;
2681: oe_debug_pub.add( 'check_split_needed() available_quantity:' || p_atp_rec.available_quantity(J) , 1 ) ;
2682: oe_debug_pub.add( 'check_split_needed() requested_date_quantity:' || p_atp_rec.requested_date_quantity(J) , 1 ) ;
2683: oe_debug_pub.add( 'check_split_needed() source_organization_id:' || p_atp_rec.source_organization_id(J) , 1 ) ;
2684: END IF;
2685:
2686: IF p_atp_rec.inventory_item_id(J) <> p_x_line_rec.inventory_item_id THEN
2679: oe_debug_pub.add( 'check_split_needed() ship_date:' || p_atp_rec.ship_date(J) , 1 ) ;
2680: oe_debug_pub.add( 'check_split_needed() arrival_date:' || p_atp_rec.arrival_date(J) , 1 ) ;
2681: oe_debug_pub.add( 'check_split_needed() available_quantity:' || p_atp_rec.available_quantity(J) , 1 ) ;
2682: oe_debug_pub.add( 'check_split_needed() requested_date_quantity:' || p_atp_rec.requested_date_quantity(J) , 1 ) ;
2683: oe_debug_pub.add( 'check_split_needed() source_organization_id:' || p_atp_rec.source_organization_id(J) , 1 ) ;
2684: END IF;
2685:
2686: IF p_atp_rec.inventory_item_id(J) <> p_x_line_rec.inventory_item_id THEN
2687: l_substitute_flag := TRUE;
2686: IF p_atp_rec.inventory_item_id(J) <> p_x_line_rec.inventory_item_id THEN
2687: l_substitute_flag := TRUE;
2688:
2689: IF l_debug_level > 0 THEN
2690: oe_debug_pub.add( 'SCH: ITEM HAS BEEN SUBSTITUTED' , 1 ) ;
2691: oe_debug_pub.add( 'check_split_needed() inventory_item_id:' || p_atp_rec.inventory_item_id(J) , 1 ) ;
2692: oe_debug_pub.add( 'check_split_needed() inventory_item_name:' || p_atp_rec.inventory_item_name(J) , 1 ) ;
2693: oe_debug_pub.add( 'check_split_needed() req_item_detail_flag:' || p_atp_rec.req_item_detail_flag(J) , 1 ) ;
2694: oe_debug_pub.add( 'check_split_needed() request_item_id:' || p_atp_rec.request_item_id(J) , 1 ) ;
2687: l_substitute_flag := TRUE;
2688:
2689: IF l_debug_level > 0 THEN
2690: oe_debug_pub.add( 'SCH: ITEM HAS BEEN SUBSTITUTED' , 1 ) ;
2691: oe_debug_pub.add( 'check_split_needed() inventory_item_id:' || p_atp_rec.inventory_item_id(J) , 1 ) ;
2692: oe_debug_pub.add( 'check_split_needed() inventory_item_name:' || p_atp_rec.inventory_item_name(J) , 1 ) ;
2693: oe_debug_pub.add( 'check_split_needed() req_item_detail_flag:' || p_atp_rec.req_item_detail_flag(J) , 1 ) ;
2694: oe_debug_pub.add( 'check_split_needed() request_item_id:' || p_atp_rec.request_item_id(J) , 1 ) ;
2695: oe_debug_pub.add( 'check_split_needed() request_item_name:' || p_atp_rec.request_item_name(J) , 1 ) ;
2688:
2689: IF l_debug_level > 0 THEN
2690: oe_debug_pub.add( 'SCH: ITEM HAS BEEN SUBSTITUTED' , 1 ) ;
2691: oe_debug_pub.add( 'check_split_needed() inventory_item_id:' || p_atp_rec.inventory_item_id(J) , 1 ) ;
2692: oe_debug_pub.add( 'check_split_needed() inventory_item_name:' || p_atp_rec.inventory_item_name(J) , 1 ) ;
2693: oe_debug_pub.add( 'check_split_needed() req_item_detail_flag:' || p_atp_rec.req_item_detail_flag(J) , 1 ) ;
2694: oe_debug_pub.add( 'check_split_needed() request_item_id:' || p_atp_rec.request_item_id(J) , 1 ) ;
2695: oe_debug_pub.add( 'check_split_needed() request_item_name:' || p_atp_rec.request_item_name(J) , 1 ) ;
2696: oe_debug_pub.add( 'check_split_needed() req_item_available_date:' || p_atp_rec.req_item_available_date(J) , 1 ) ;
2689: IF l_debug_level > 0 THEN
2690: oe_debug_pub.add( 'SCH: ITEM HAS BEEN SUBSTITUTED' , 1 ) ;
2691: oe_debug_pub.add( 'check_split_needed() inventory_item_id:' || p_atp_rec.inventory_item_id(J) , 1 ) ;
2692: oe_debug_pub.add( 'check_split_needed() inventory_item_name:' || p_atp_rec.inventory_item_name(J) , 1 ) ;
2693: oe_debug_pub.add( 'check_split_needed() req_item_detail_flag:' || p_atp_rec.req_item_detail_flag(J) , 1 ) ;
2694: oe_debug_pub.add( 'check_split_needed() request_item_id:' || p_atp_rec.request_item_id(J) , 1 ) ;
2695: oe_debug_pub.add( 'check_split_needed() request_item_name:' || p_atp_rec.request_item_name(J) , 1 ) ;
2696: oe_debug_pub.add( 'check_split_needed() req_item_available_date:' || p_atp_rec.req_item_available_date(J) , 1 ) ;
2697: oe_debug_pub.add( 'check_split_needed() req_item_req_date_qty:' || p_atp_rec.req_item_req_date_qty(J) , 1 ) ;
2690: oe_debug_pub.add( 'SCH: ITEM HAS BEEN SUBSTITUTED' , 1 ) ;
2691: oe_debug_pub.add( 'check_split_needed() inventory_item_id:' || p_atp_rec.inventory_item_id(J) , 1 ) ;
2692: oe_debug_pub.add( 'check_split_needed() inventory_item_name:' || p_atp_rec.inventory_item_name(J) , 1 ) ;
2693: oe_debug_pub.add( 'check_split_needed() req_item_detail_flag:' || p_atp_rec.req_item_detail_flag(J) , 1 ) ;
2694: oe_debug_pub.add( 'check_split_needed() request_item_id:' || p_atp_rec.request_item_id(J) , 1 ) ;
2695: oe_debug_pub.add( 'check_split_needed() request_item_name:' || p_atp_rec.request_item_name(J) , 1 ) ;
2696: oe_debug_pub.add( 'check_split_needed() req_item_available_date:' || p_atp_rec.req_item_available_date(J) , 1 ) ;
2697: oe_debug_pub.add( 'check_split_needed() req_item_req_date_qty:' || p_atp_rec.req_item_req_date_qty(J) , 1 ) ;
2698: oe_debug_pub.add( 'check_split_needed() req_item_available_date_qty:' || p_atp_rec.req_item_available_date_qty(J) , 1 ) ;
2691: oe_debug_pub.add( 'check_split_needed() inventory_item_id:' || p_atp_rec.inventory_item_id(J) , 1 ) ;
2692: oe_debug_pub.add( 'check_split_needed() inventory_item_name:' || p_atp_rec.inventory_item_name(J) , 1 ) ;
2693: oe_debug_pub.add( 'check_split_needed() req_item_detail_flag:' || p_atp_rec.req_item_detail_flag(J) , 1 ) ;
2694: oe_debug_pub.add( 'check_split_needed() request_item_id:' || p_atp_rec.request_item_id(J) , 1 ) ;
2695: oe_debug_pub.add( 'check_split_needed() request_item_name:' || p_atp_rec.request_item_name(J) , 1 ) ;
2696: oe_debug_pub.add( 'check_split_needed() req_item_available_date:' || p_atp_rec.req_item_available_date(J) , 1 ) ;
2697: oe_debug_pub.add( 'check_split_needed() req_item_req_date_qty:' || p_atp_rec.req_item_req_date_qty(J) , 1 ) ;
2698: oe_debug_pub.add( 'check_split_needed() req_item_available_date_qty:' || p_atp_rec.req_item_available_date_qty(J) , 1 ) ;
2699: END IF;
2692: oe_debug_pub.add( 'check_split_needed() inventory_item_name:' || p_atp_rec.inventory_item_name(J) , 1 ) ;
2693: oe_debug_pub.add( 'check_split_needed() req_item_detail_flag:' || p_atp_rec.req_item_detail_flag(J) , 1 ) ;
2694: oe_debug_pub.add( 'check_split_needed() request_item_id:' || p_atp_rec.request_item_id(J) , 1 ) ;
2695: oe_debug_pub.add( 'check_split_needed() request_item_name:' || p_atp_rec.request_item_name(J) , 1 ) ;
2696: oe_debug_pub.add( 'check_split_needed() req_item_available_date:' || p_atp_rec.req_item_available_date(J) , 1 ) ;
2697: oe_debug_pub.add( 'check_split_needed() req_item_req_date_qty:' || p_atp_rec.req_item_req_date_qty(J) , 1 ) ;
2698: oe_debug_pub.add( 'check_split_needed() req_item_available_date_qty:' || p_atp_rec.req_item_available_date_qty(J) , 1 ) ;
2699: END IF;
2700: IF l_debug_level > 0 THEN
2693: oe_debug_pub.add( 'check_split_needed() req_item_detail_flag:' || p_atp_rec.req_item_detail_flag(J) , 1 ) ;
2694: oe_debug_pub.add( 'check_split_needed() request_item_id:' || p_atp_rec.request_item_id(J) , 1 ) ;
2695: oe_debug_pub.add( 'check_split_needed() request_item_name:' || p_atp_rec.request_item_name(J) , 1 ) ;
2696: oe_debug_pub.add( 'check_split_needed() req_item_available_date:' || p_atp_rec.req_item_available_date(J) , 1 ) ;
2697: oe_debug_pub.add( 'check_split_needed() req_item_req_date_qty:' || p_atp_rec.req_item_req_date_qty(J) , 1 ) ;
2698: oe_debug_pub.add( 'check_split_needed() req_item_available_date_qty:' || p_atp_rec.req_item_available_date_qty(J) , 1 ) ;
2699: END IF;
2700: IF l_debug_level > 0 THEN
2701: oe_debug_pub.add( 'NEW INVENTORY ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
2694: oe_debug_pub.add( 'check_split_needed() request_item_id:' || p_atp_rec.request_item_id(J) , 1 ) ;
2695: oe_debug_pub.add( 'check_split_needed() request_item_name:' || p_atp_rec.request_item_name(J) , 1 ) ;
2696: oe_debug_pub.add( 'check_split_needed() req_item_available_date:' || p_atp_rec.req_item_available_date(J) , 1 ) ;
2697: oe_debug_pub.add( 'check_split_needed() req_item_req_date_qty:' || p_atp_rec.req_item_req_date_qty(J) , 1 ) ;
2698: oe_debug_pub.add( 'check_split_needed() req_item_available_date_qty:' || p_atp_rec.req_item_available_date_qty(J) , 1 ) ;
2699: END IF;
2700: IF l_debug_level > 0 THEN
2701: oe_debug_pub.add( 'NEW INVENTORY ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
2702: END IF;
2697: oe_debug_pub.add( 'check_split_needed() req_item_req_date_qty:' || p_atp_rec.req_item_req_date_qty(J) , 1 ) ;
2698: oe_debug_pub.add( 'check_split_needed() req_item_available_date_qty:' || p_atp_rec.req_item_available_date_qty(J) , 1 ) ;
2699: END IF;
2700: IF l_debug_level > 0 THEN
2701: oe_debug_pub.add( 'NEW INVENTORY ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
2702: END IF;
2703:
2704: IF p_om_auto_split = 'Q' AND nvl(p_atp_rec.req_item_req_date_qty(J),0) > 0
2705: AND nvl(p_atp_rec.req_item_req_date_qty(J),0) < p_atp_rec.quantity_ordered(J)
2707:
2708: l_substitute_flag := FALSE;
2709: l_revert_substitution := TRUE;
2710: IF l_debug_level > 0 THEN
2711: oe_debug_pub.add( 'check_split_needed() Substitution case, but revert substitution', 1 ) ;
2712: END IF;
2713: END IF;
2714:
2715: END IF;
2719: --No substitution, check if requested_date_quantity has a value less than available_quantity
2720: IF NOT l_revert_substitution THEN
2721:
2722: IF l_debug_level > 0 THEN
2723: oe_debug_pub.add( 'Split the line:' || p_atp_rec.requested_date_quantity(J) , 1 ) ;
2724: END IF;
2725:
2726: l_requested_date_quantity := p_atp_rec.requested_date_quantity(J);
2727:
2755:
2756: --check if UOM has changed in ATP
2757: IF p_x_line_rec.order_quantity_uom <> p_atp_rec.quantity_uom(J) THEN
2758: IF l_debug_level > 0 THEN
2759: oe_debug_pub.add( 'check_split_needed() UOM has changed, convert' , 1 ) ;
2760: END IF;
2761:
2762: l_split_line_tbl(1).ordered_quantity := INV_CONVERT.INV_UM_CONVERT(
2763: p_x_line_rec.inventory_item_id -- INVCONV
2782: l_split_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
2783: l_split_line_tbl(1).change_reason := 'SYSTEM';
2784:
2785: IF l_debug_level > 0 THEN
2786: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : ordered_quantity ' || l_split_line_tbl(1).ordered_quantity , 1 ) ;
2787: oe_debug_pub.add( 'check_split_needed() oe_split_util.g_sch_recursion ' || oe_split_util.g_sch_recursion , 1 ) ;
2788: END IF;
2789:
2790: --Schedule the first line during split
2783: l_split_line_tbl(1).change_reason := 'SYSTEM';
2784:
2785: IF l_debug_level > 0 THEN
2786: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : ordered_quantity ' || l_split_line_tbl(1).ordered_quantity , 1 ) ;
2787: oe_debug_pub.add( 'check_split_needed() oe_split_util.g_sch_recursion ' || oe_split_util.g_sch_recursion , 1 ) ;
2788: END IF;
2789:
2790: --Schedule the first line during split
2791: IF p_order_date_type_code = 'SHIP' THEN
2818: l_split_line_tbl(2).schedule_arrival_date := p_atp_rec.req_item_available_date(J);
2819: END IF;
2820:
2821: IF l_debug_level > 0 THEN
2822: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : ordered_quantity ' || l_split_line_tbl(2).ordered_quantity , 1 ) ;
2823: END IF;
2824:
2825: l_sch_recursion := oe_split_util.g_sch_recursion;
2826:
2833: l_control_rec.process := TRUE;
2834: l_control_rec.controlled_operation := TRUE;
2835:
2836: IF l_debug_level > 0 THEN
2837: oe_debug_pub.add( 'check_split_needed() calling process order to split - same item ' , 1 ) ;
2838: END IF;
2839:
2840: OE_Order_PVT.Process_Order
2841: (
2868: RAISE FND_API.G_EXC_ERROR;
2869: END IF;
2870:
2871: IF l_debug_level > 0 THEN
2872: oe_debug_pub.add( 'check_split_needed() returned from process order to split - same item ' || l_return_status , 1 ) ;
2873: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : SSD ' || l_split_line_tbl(1).schedule_ship_date , 1 ) ;
2874: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : SAD ' || l_split_line_tbl(1).schedule_arrival_date , 1 ) ;
2875: END IF;
2876:
2869: END IF;
2870:
2871: IF l_debug_level > 0 THEN
2872: oe_debug_pub.add( 'check_split_needed() returned from process order to split - same item ' || l_return_status , 1 ) ;
2873: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : SSD ' || l_split_line_tbl(1).schedule_ship_date , 1 ) ;
2874: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : SAD ' || l_split_line_tbl(1).schedule_arrival_date , 1 ) ;
2875: END IF;
2876:
2877: IF l_debug_level > 0 THEN
2870:
2871: IF l_debug_level > 0 THEN
2872: oe_debug_pub.add( 'check_split_needed() returned from process order to split - same item ' || l_return_status , 1 ) ;
2873: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : SSD ' || l_split_line_tbl(1).schedule_ship_date , 1 ) ;
2874: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : SAD ' || l_split_line_tbl(1).schedule_arrival_date , 1 ) ;
2875: END IF;
2876:
2877: IF l_debug_level > 0 THEN
2878: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : SSD ' || l_split_line_tbl(2).schedule_ship_date , 1 ) ;
2874: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : SAD ' || l_split_line_tbl(1).schedule_arrival_date , 1 ) ;
2875: END IF;
2876:
2877: IF l_debug_level > 0 THEN
2878: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : SSD ' || l_split_line_tbl(2).schedule_ship_date , 1 ) ;
2879: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : SAD ' || l_split_line_tbl(2).schedule_arrival_date , 1 ) ;
2880: END IF;
2881:
2882: --Call PO API to schedule the split line 2 with correct SSD/SAD
2875: END IF;
2876:
2877: IF l_debug_level > 0 THEN
2878: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : SSD ' || l_split_line_tbl(2).schedule_ship_date , 1 ) ;
2879: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : SAD ' || l_split_line_tbl(2).schedule_arrival_date , 1 ) ;
2880: END IF;
2881:
2882: --Call PO API to schedule the split line 2 with correct SSD/SAD
2883: l_update_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC;
2913: , p_x_line_adj_assoc_tbl => l_line_adj_assoc_tbl
2914: );
2915:
2916: IF l_debug_level > 0 THEN
2917: oe_debug_pub.add( 'check_split_needed() same item : returned from process order to schedule new line ' || l_return_status , 1 ) ;
2918: oe_debug_pub.add( 'check_split_needed() l_update_line_tbl(1) : SSD ' || l_update_line_tbl(1).schedule_ship_date , 1 ) ;
2919: oe_debug_pub.add( 'check_split_needed() l_update_line_tbl(1) : SAD ' || l_update_line_tbl(1).schedule_arrival_date , 1 ) ;
2920: END IF;
2921:
2914: );
2915:
2916: IF l_debug_level > 0 THEN
2917: oe_debug_pub.add( 'check_split_needed() same item : returned from process order to schedule new line ' || l_return_status , 1 ) ;
2918: oe_debug_pub.add( 'check_split_needed() l_update_line_tbl(1) : SSD ' || l_update_line_tbl(1).schedule_ship_date , 1 ) ;
2919: oe_debug_pub.add( 'check_split_needed() l_update_line_tbl(1) : SAD ' || l_update_line_tbl(1).schedule_arrival_date , 1 ) ;
2920: END IF;
2921:
2922: /* DO NOT RAISE ERROR
2915:
2916: IF l_debug_level > 0 THEN
2917: oe_debug_pub.add( 'check_split_needed() same item : returned from process order to schedule new line ' || l_return_status , 1 ) ;
2918: oe_debug_pub.add( 'check_split_needed() l_update_line_tbl(1) : SSD ' || l_update_line_tbl(1).schedule_ship_date , 1 ) ;
2919: oe_debug_pub.add( 'check_split_needed() l_update_line_tbl(1) : SAD ' || l_update_line_tbl(1).schedule_arrival_date , 1 ) ;
2920: END IF;
2921:
2922: /* DO NOT RAISE ERROR
2923: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2940:
2941: ELSE
2942:
2943: IF l_debug_level > 0 THEN
2944: oe_debug_pub.add( 'check_split_needed() Item Substitution case ' , 1 ) ;
2945: END IF;
2946:
2947: IF (nvl(p_atp_rec.req_item_req_date_qty(J),0) = 0 AND p_om_auto_split = 'P')
2948: OR p_om_auto_split in ('Q','F')
2947: IF (nvl(p_atp_rec.req_item_req_date_qty(J),0) = 0 AND p_om_auto_split = 'P')
2948: OR p_om_auto_split in ('Q','F')
2949: THEN
2950: IF l_debug_level > 0 THEN
2951: oe_debug_pub.add( ' No split needed.' , 1 ) ;
2952: END IF;
2953: RETURN;
2954: END IF;
2955:
2959: l_service_exists
2960: from oe_order_lines_all
2961: where service_reference_line_id = p_x_line_rec.line_id;
2962: IF l_debug_level > 0 THEN
2963: oe_debug_pub.add( 'The line has a service line split. Do not split.' , 1 ) ;
2964: END IF;
2965: RETURN;
2966: EXCEPTION
2967: when no_data_found then
2976: ) -- Modified for ER 6110708, allow item substitution for Booked Lines also, but do not allow for OPM after Booking
2977: AND p_x_line_rec.line_set_id is null
2978: THEN
2979: IF l_debug_level > 0 THEN
2980: oe_debug_pub.add( 'Booked flag and line set id checks, continue split' , 1 ) ;
2981: END IF;
2982: ELSE
2983: IF l_debug_level > 0 THEN
2984: oe_debug_pub.add( 'Booked flag and line set id checks, prevent substitution split' , 1 ) ;
2980: oe_debug_pub.add( 'Booked flag and line set id checks, continue split' , 1 ) ;
2981: END IF;
2982: ELSE
2983: IF l_debug_level > 0 THEN
2984: oe_debug_pub.add( 'Booked flag and line set id checks, prevent substitution split' , 1 ) ;
2985: END IF;
2986: RETURN;
2987: END IF;
2988:
3010: l_split_line_tbl(1).line_id := p_x_line_rec.line_id;
3011: --check if UOM has changed in ATP
3012: IF p_x_line_rec.order_quantity_uom <> p_atp_rec.quantity_uom(J) THEN
3013: IF l_debug_level > 0 THEN
3014: oe_debug_pub.add( 'check_split_needed() UOM has changed, convert' , 1 ) ;
3015: END IF;
3016:
3017: l_split_line_tbl(1).ordered_quantity := INV_CONVERT.INV_UM_CONVERT(
3018: p_x_line_rec.inventory_item_id -- INVCONV
3079: l_split_line_tbl(2).shipment_number := FND_API.G_MISS_NUM;
3080: l_split_line_tbl(2).orig_sys_line_ref := FND_API.G_MISS_CHAR;
3081:
3082: IF l_debug_level > 0 THEN
3083: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : ordered_quantity ' || l_split_line_tbl(1).ordered_quantity , 1 ) ;
3084: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : ordered_quantity ' || l_split_line_tbl(2).ordered_quantity , 1 ) ;
3085: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : schedule_action_code ' || l_split_line_tbl(1).schedule_action_code , 1 ) ;
3086: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : schedule_action_code ' || l_split_line_tbl(2).schedule_action_code , 1 ) ;
3087: oe_debug_pub.add( 'check_split_needed() oe_split_util.g_sch_recursion ' || oe_split_util.g_sch_recursion , 1 ) ;
3080: l_split_line_tbl(2).orig_sys_line_ref := FND_API.G_MISS_CHAR;
3081:
3082: IF l_debug_level > 0 THEN
3083: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : ordered_quantity ' || l_split_line_tbl(1).ordered_quantity , 1 ) ;
3084: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : ordered_quantity ' || l_split_line_tbl(2).ordered_quantity , 1 ) ;
3085: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : schedule_action_code ' || l_split_line_tbl(1).schedule_action_code , 1 ) ;
3086: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : schedule_action_code ' || l_split_line_tbl(2).schedule_action_code , 1 ) ;
3087: oe_debug_pub.add( 'check_split_needed() oe_split_util.g_sch_recursion ' || oe_split_util.g_sch_recursion , 1 ) ;
3088: END IF;
3081:
3082: IF l_debug_level > 0 THEN
3083: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : ordered_quantity ' || l_split_line_tbl(1).ordered_quantity , 1 ) ;
3084: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : ordered_quantity ' || l_split_line_tbl(2).ordered_quantity , 1 ) ;
3085: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : schedule_action_code ' || l_split_line_tbl(1).schedule_action_code , 1 ) ;
3086: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : schedule_action_code ' || l_split_line_tbl(2).schedule_action_code , 1 ) ;
3087: oe_debug_pub.add( 'check_split_needed() oe_split_util.g_sch_recursion ' || oe_split_util.g_sch_recursion , 1 ) ;
3088: END IF;
3089: /*
3082: IF l_debug_level > 0 THEN
3083: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : ordered_quantity ' || l_split_line_tbl(1).ordered_quantity , 1 ) ;
3084: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : ordered_quantity ' || l_split_line_tbl(2).ordered_quantity , 1 ) ;
3085: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : schedule_action_code ' || l_split_line_tbl(1).schedule_action_code , 1 ) ;
3086: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : schedule_action_code ' || l_split_line_tbl(2).schedule_action_code , 1 ) ;
3087: oe_debug_pub.add( 'check_split_needed() oe_split_util.g_sch_recursion ' || oe_split_util.g_sch_recursion , 1 ) ;
3088: END IF;
3089: /*
3090: --set the visible demand flag
3083: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : ordered_quantity ' || l_split_line_tbl(1).ordered_quantity , 1 ) ;
3084: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : ordered_quantity ' || l_split_line_tbl(2).ordered_quantity , 1 ) ;
3085: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : schedule_action_code ' || l_split_line_tbl(1).schedule_action_code , 1 ) ;
3086: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(2) : schedule_action_code ' || l_split_line_tbl(2).schedule_action_code , 1 ) ;
3087: oe_debug_pub.add( 'check_split_needed() oe_split_util.g_sch_recursion ' || oe_split_util.g_sch_recursion , 1 ) ;
3088: END IF;
3089: /*
3090: --set the visible demand flag
3091: IF p_atp_rec.attribute_05.COUNT > 0 THEN
3093: IF p_config_exists = 'N' THEN
3094: p_x_line_rec.visible_demand_flag := 'Y';
3095: ELSE
3096: IF l_debug_level > 0 THEN
3097: oe_debug_pub.add( 'INSIDE CONFIG EXISTS' , 3 ) ;
3098: END IF;
3099: END IF;
3100:
3101: ELSIF p_atp_rec.attribute_05(J) = 'N' THEN
3107: IF p_config_exists = 'N' THEN
3108: p_x_line_rec.visible_demand_flag := 'Y';
3109: ELSE
3110: IF l_debug_level > 0 THEN
3111: oe_debug_pub.add( 'CONFIG EXISTS' , 3 ) ;
3112: END IF;
3113: END IF;
3114: END IF;
3115:
3192:
3193: --oe_split_util.g_sch_recursion := l_sch_recursion ;
3194:
3195: IF l_debug_level > 0 THEN
3196: oe_debug_pub.add( 'check_split_needed() substitute item : returned from process order to split - subs item : same item split ' || l_return_status , 1 ) ;
3197: oe_debug_pub.add( 'check_split_needed() substitute item : new line Id : ' || l_split_line_tbl(2).line_id , 1 ) ;
3198: END IF;
3199:
3200: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3193: --oe_split_util.g_sch_recursion := l_sch_recursion ;
3194:
3195: IF l_debug_level > 0 THEN
3196: oe_debug_pub.add( 'check_split_needed() substitute item : returned from process order to split - subs item : same item split ' || l_return_status , 1 ) ;
3197: oe_debug_pub.add( 'check_split_needed() substitute item : new line Id : ' || l_split_line_tbl(2).line_id , 1 ) ;
3198: END IF;
3199:
3200: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3244: , p_x_line_adj_assoc_tbl => l_line_adj_assoc_tbl
3245: );
3246:
3247: IF l_debug_level > 0 THEN
3248: oe_debug_pub.add( 'check_split_needed() substitute item : returned from process order to update to substitute item ' || l_return_status , 1 ) ;
3249: END IF;
3250:
3251: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3271: /*
3272: IF l_debug_level > 0 THEN
3273: for l_rec in (select * from oe_schedule_lines_temp)
3274: LOOP
3275: oe_debug_pub.add('check_split_needed() GLOBAL TEMP TABLE : ' || l_rec.line_id || ' : ' || l_rec.schedule_action_code,1);
3276: END LOOP;
3277: END IF;
3278: */
3279: EXCEPTION
3281: WHEN OTHERS THEN
3282: --Do not raise error, Rollback and set the delayed request table
3283: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3284: IF l_debug_level > 0 THEN
3285: oe_debug_pub.add( 'check_split_needed() exception in check_split_needed() : ' || SQLERRM , 1 ) ;
3286: END IF;
3287:
3288: --MRP ROLLBACK LOGIC
3289: --CALL mrp_rollback() TO UNSCHEDULE all lines with SCHEDULE MODE in temp table
3292: BEGIN
3293: FOR rec in c_mrp_rollback(l_split_line_tbl(2).line_id)
3294: LOOP
3295: IF l_debug_level > 0 THEN
3296: oe_debug_pub.add( 'check_split_needed() MRP ROLLBACK for : line_id '||rec.line_id ||' ' ||rec.schedule_action_code);
3297: END IF;
3298:
3299: IF rec.schedule_action_code = 'SCHEDULE' THEN
3300: MRP_ROLLBACK
3321: --Else if for line 1, there is REDEMAND, then REDAMD again
3322:
3323: BEGIN
3324: IF l_debug_level > 0 THEN
3325: oe_debug_pub.add( 'check_split_needed() MRP ROLLBACK for : line_id '||p_x_line_rec.line_id || ' : UNSCHEDULE');
3326: END IF;
3327: --REDEMAND THE ORIGINAL LINE
3328: FOR rec in c_mrp_rollback(p_x_line_rec.line_id)
3329: LOOP
3327: --REDEMAND THE ORIGINAL LINE
3328: FOR rec in c_mrp_rollback(p_x_line_rec.line_id)
3329: LOOP
3330: IF l_debug_level > 0 THEN
3331: oe_debug_pub.add( 'check_split_needed() MRP ROLLBACK for : line_id '||rec.line_id ||' ' ||rec.schedule_action_code);
3332: END IF;
3333:
3334: IF rec.schedule_action_code = 'SCHEDULE' THEN
3335: MRP_ROLLBACK
3352:
3353: IF l_mrp_rollback_schedule = 0 THEN --REDEMAND ONLY IF THERE IS NO SCHEDULE ACTION(previous block)
3354: BEGIN
3355: IF l_debug_level > 0 THEN
3356: oe_debug_pub.add( 'check_split_needed() MRP ROLLBACK for : line_id '||p_x_line_rec.line_id || ' : REDEMAND');
3357: END IF;
3358: --REDEMAND THE ORIGINAL LINE
3359: FOR rec in c_mrp_rollback(p_x_line_rec.line_id)
3360: LOOP
3358: --REDEMAND THE ORIGINAL LINE
3359: FOR rec in c_mrp_rollback(p_x_line_rec.line_id)
3360: LOOP
3361: IF l_debug_level > 0 THEN
3362: oe_debug_pub.add( 'check_split_needed() MRP ROLLBACK for : line_id '||rec.line_id ||' ' ||rec.schedule_action_code);
3363: END IF;
3364:
3365: IF rec.schedule_action_code = 'REDEMAND' THEN
3366: MRP_ROLLBACK
3437: l_line_id_mod NUMBER ; --7827737
3438:
3439: l_model_override_atp_date_code VARCHAR2(30);
3440: --
3441: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3442: --
3443: Begin
3444:
3445: IF l_debug_level > 0 THEN
3442: --
3443: Begin
3444:
3445: IF l_debug_level > 0 THEN
3446: oe_debug_pub.add( 'ENTERING OE_SCHEDULE_UTIL.LOAD_MRP_REQUEST' , 1 ) ;
3447: END IF;
3448: IF l_debug_level > 0 THEN
3449: oe_debug_pub.add('------------Load MRP Table-----------',1);
3450: END IF;
3445: IF l_debug_level > 0 THEN
3446: oe_debug_pub.add( 'ENTERING OE_SCHEDULE_UTIL.LOAD_MRP_REQUEST' , 1 ) ;
3447: END IF;
3448: IF l_debug_level > 0 THEN
3449: oe_debug_pub.add('------------Load MRP Table-----------',1);
3450: END IF;
3451:
3452: IF l_action_code <> OESCH_ACT_ATP_CHECK THEN
3453: G_ATP_CHECK_Session_Id := Null;
3467:
3468: x_atp_rec.atp_lead_time(I) := 0;
3469:
3470: IF l_debug_level > 0 THEN
3471: oe_debug_pub.add('Line Id : ' || p_line_rec.line_id,3);
3472: END IF;
3473: IF l_debug_level > 0 THEN
3474: oe_debug_pub.add('Schedule Action : ' || l_action_code,3);
3475: END IF;
3470: IF l_debug_level > 0 THEN
3471: oe_debug_pub.add('Line Id : ' || p_line_rec.line_id,3);
3472: END IF;
3473: IF l_debug_level > 0 THEN
3474: oe_debug_pub.add('Schedule Action : ' || l_action_code,3);
3475: END IF;
3476:
3477: /*
3478: IF p_line_rec.source_document_type_id = 10 THEN
3475: END IF;
3476:
3477: /*
3478: IF p_line_rec.source_document_type_id = 10 THEN
3479: oe_debug_pub.add('It is an internal order ',3);
3480: l_oe_flag := 'Y';
3481:
3482: IF (p_line_rec.schedule_ship_date IS NOT NULL AND
3483: p_line_rec.schedule_ship_date <> FND_API.G_MISS_DATE ) OR
3483: p_line_rec.schedule_ship_date <> FND_API.G_MISS_DATE ) OR
3484: (p_line_rec.schedule_arrival_date IS NOT NULL AND
3485: p_line_rec.schedule_arrival_date <> FND_API.G_MISS_DATE ) THEN
3486:
3487: oe_debug_pub.add('No changes to date as it has been passed',3);
3488: ELSE
3489: oe_debug_pub.add('Pass the request date as arrival date',3);
3490:
3491: x_atp_rec.Requested_ship_Date(I) := null;
3485: p_line_rec.schedule_arrival_date <> FND_API.G_MISS_DATE ) THEN
3486:
3487: oe_debug_pub.add('No changes to date as it has been passed',3);
3488: ELSE
3489: oe_debug_pub.add('Pass the request date as arrival date',3);
3490:
3491: x_atp_rec.Requested_ship_Date(I) := null;
3492: x_atp_rec.Requested_arrival_Date(I) := p_line_rec.request_date;
3493:
3496: x_atp_rec.attribute_01(I) := p_line_rec.source_document_id;
3497:
3498: ELSE
3499:
3500: oe_debug_pub.add('It is not an internal order ',3);
3501: l_oe_flag := 'N';
3502:
3503: END IF;
3504:
3502:
3503: END IF;
3504:
3505: x_atp_rec.oe_flag(I) := l_oe_flag;
3506: oe_debug_pub.add('OE Flag is : '||x_atp_rec.oe_flag(I),3);
3507: */
3508:
3509: IF p_line_rec.arrival_set_id is null
3510: THEN
3526: IF l_ship_set = FND_API.G_MISS_CHAR THEN
3527: l_ship_set := Null;
3528: END IF;
3529: IF l_debug_level > 0 THEN
3530: oe_debug_pub.add( 'SHIP_SET : ' || L_SHIP_SET , 3 ) ;
3531: END IF;
3532: IF l_debug_level > 0 THEN
3533: oe_debug_pub.add( 'ARRIVAL SET : ' || L_ARRIVAL_SET , 3 ) ;
3534: END IF;
3529: IF l_debug_level > 0 THEN
3530: oe_debug_pub.add( 'SHIP_SET : ' || L_SHIP_SET , 3 ) ;
3531: END IF;
3532: IF l_debug_level > 0 THEN
3533: oe_debug_pub.add( 'ARRIVAL SET : ' || L_ARRIVAL_SET , 3 ) ;
3534: END IF;
3535:
3536:
3537: /* IF (p_line_rec.ship_from_org_id = FND_API.G_MISS_NUM) THEN
3553: IF (p_line_rec.ship_from_org_id IS NOT NULL) THEN
3554: x_atp_rec.Source_Organization_Id(I)
3555: := p_line_rec.ship_from_org_id;
3556: IF l_debug_level > 0 THEN
3557: oe_debug_pub.add( 'SHIP FROM : ' || P_LINE_REC.SHIP_FROM_ORG_ID , 3 ) ;
3558: END IF;
3559:
3560: ELSE
3561: x_atp_rec.Source_Organization_Id(I) := null;
3559:
3560: ELSE
3561: x_atp_rec.Source_Organization_Id(I) := null;
3562: IF l_debug_level > 0 THEN
3563: oe_debug_pub.add( 'SHIP FROM IS NULL ' , 3 ) ;
3564: END IF;
3565: END IF;
3566:
3567: x_atp_rec.Identifier(I) := p_line_rec.line_id;
3574: x_atp_rec.Quantity_UOM(I) := p_line_rec.order_quantity_uom;
3575: x_atp_rec.Earliest_Acceptable_Date(I) := null;
3576:
3577: IF l_debug_level > 0 THEN
3578: oe_debug_pub.add( 'A1 : ' || P_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
3579: END IF;
3580: IF l_debug_level > 0 THEN
3581: oe_debug_pub.add( 'A2 : ' || P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
3582: END IF;
3577: IF l_debug_level > 0 THEN
3578: oe_debug_pub.add( 'A1 : ' || P_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
3579: END IF;
3580: IF l_debug_level > 0 THEN
3581: oe_debug_pub.add( 'A2 : ' || P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
3582: END IF;
3583:
3584: -- Start 2691579 --
3585: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
3590: OE_GLOBALS.G_ITEM_OPTION,
3591: OE_GLOBALS.G_ITEM_INCLUDED))) THEN --9775352
3592: x_atp_rec.ato_delete_flag(I) := 'Y';
3593: IF l_debug_level > 0 THEN
3594: oe_debug_pub.add( 'ATO DELETE FLAG : '
3595: || x_atp_rec.ato_delete_flag(I) , 1 ) ;
3596: END IF;
3597: END IF;
3598: END IF;
3606: /*
3607: IF p_line_rec.arrival_set_id is not null THEN
3608:
3609: IF l_debug_level > 0 THEN
3610: oe_debug_pub.add( 'T1' , 1 ) ;
3611: END IF;
3612: IF p_line_rec.schedule_action_code = OESCH_ACT_ATP_CHECK THEN
3613: x_atp_rec.Requested_Arrival_Date(I) :=
3614: p_line_rec.request_date;
3621:
3622: ELSIF p_line_rec.ship_set_id is not null THEN
3623:
3624: IF l_debug_level > 0 THEN
3625: oe_debug_pub.add( 'T2' , 1 ) ;
3626: END IF;
3627: IF p_line_rec.schedule_action_code = OESCH_ACT_ATP_CHECK THEN
3628: x_atp_rec.Requested_Ship_Date(I) :=
3629: p_line_rec.request_date;
3642: -- date. Otherwise if the scheduling is happening because of
3643: -- some other changes, use nvl on arrival_date and request_dates.
3644:
3645: IF l_debug_level > 0 THEN
3646: oe_debug_pub.add( 'T3' , 1 ) ;
3647: END IF;
3648:
3649: IF p_line_rec.schedule_action_code = OESCH_ACT_ATP_CHECK THEN
3650: x_atp_rec.Requested_Arrival_Date(I) :=
3690: END IF; --atp
3691:
3692: x_atp_rec.Requested_Ship_Date(I) := null;
3693: IF l_debug_level > 0 THEN
3694: oe_debug_pub.add( 'REQ ARR DATE : ' ||X_ATP_REC.REQUESTED_ARRIVAL_DATE ( I ) , 3 ) ;
3695: END IF;
3696:
3697: ELSE
3698: -- If user changes schedule_ship_date then schedule based
3701: -- date. Otherwise if the scheduling is happening because of
3702: -- some other changes, use nvl on schedule_ship and request_dates.
3703:
3704: IF l_debug_level > 0 THEN
3705: oe_debug_pub.add( 'T4' , 1 ) ;
3706: END IF;
3707: IF p_line_rec.schedule_action_code = OESCH_ACT_ATP_CHECK THEN
3708: x_atp_rec.Requested_Ship_Date(I) :=
3709: p_line_rec.request_date;
3743: END IF; --Atp
3744:
3745: x_atp_rec.Requested_Arrival_Date(I) := null;
3746: IF l_debug_level > 0 THEN
3747: oe_debug_pub.add( 'REQ SHIP DATE : ' || X_ATP_REC.REQUESTED_SHIP_DATE ( I ) , 3 ) ;
3748: END IF;
3749:
3750: END IF;
3751:
3763: p_line_rec.latest_acceptable_date;
3764: END IF;
3765:
3766: IF l_debug_level > 0 THEN
3767: oe_debug_pub.add( 'LATEST ACCEPTABLE DATE :' || X_ATP_REC.LATEST_ACCEPTABLE_DATE ( I ) , 1 ) ;
3768: END IF;
3769:
3770: x_atp_rec.Delivery_Lead_Time(I) := Null;
3771: --x_atp_rec.Delivery_Lead_Time(I) := p_line_rec.delivery_lead_time;
3769:
3770: x_atp_rec.Delivery_Lead_Time(I) := Null;
3771: --x_atp_rec.Delivery_Lead_Time(I) := p_line_rec.delivery_lead_time;
3772: IF l_debug_level > 0 THEN
3773: oe_debug_pub.add( 'DELIVERYLEAD TIME :' || X_ATP_REC.DELIVERY_LEAD_TIME ( I ) , 1 ) ;
3774: END IF;
3775: x_atp_rec.Freight_Carrier(I) := null;
3776: x_atp_rec.Ship_Method(I) := p_line_rec.shipping_method_code;
3777: x_atp_rec.Demand_Class(I) := p_line_rec.demand_class_code;
3779: x_atp_rec.Arrival_Set_Name(I) := l_arrival_set;
3780: -- 4405004
3781: x_atp_rec.part_of_set(I) := p_part_of_set;
3782: IF l_debug_level > 0 THEN
3783: oe_debug_pub.add( 'PART OF SET FLAG :' || X_ATP_REC.part_of_set( I ) , 1 ) ;
3784: END IF;
3785:
3786: IF G_OVERRIDE_FLAG = 'Y' THEN
3787: x_atp_rec.Override_Flag(I) := 'Y';
3789: IF l_action_code <> OESCH_ACT_ATP_CHECK THEN
3790: x_atp_rec.Override_Flag(I) := p_line_rec.override_atp_date_code;
3791: END IF;
3792: IF l_debug_level > 0 THEN
3793: oe_debug_pub.add( 'OVERRIDE_FLAG :' || X_ATP_REC.OVERRIDE_FLAG ( I ) , 1 ) ;
3794: END IF;
3795: END IF;
3796:
3797: x_atp_rec.Ship_Date(I) := null;
3802: x_atp_rec.Vendor_Id(I) := null;
3803: x_atp_rec.Vendor_Site_Id(I) := null;
3804: x_atp_rec.Insert_Flag(I) := l_insert_flag;
3805: IF l_debug_level > 0 THEN
3806: oe_debug_pub.add( 'INSERT FLAG IN ATP_REC : '||X_ATP_REC.INSERT_FLAG ( I ) , 3 ) ;
3807: END IF;
3808: x_atp_rec.Error_Code(I) := null;
3809: x_atp_rec.Message(I) := null;
3810:
3810:
3811:
3812: IF p_line_rec.source_document_type_id = 10 THEN
3813: IF l_debug_level > 0 THEN
3814: oe_debug_pub.add( 'IT IS AN INTERNAL ORDER ' , 3 ) ;
3815: END IF;
3816: l_oe_flag := 'Y';
3817:
3818: IF (p_line_rec.schedule_ship_date IS NOT NULL AND
3820: (p_line_rec.schedule_arrival_date IS NOT NULL AND
3821: p_line_rec.schedule_arrival_date <> FND_API.G_MISS_DATE ) THEN
3822:
3823: IF l_debug_level > 0 THEN
3824: oe_debug_pub.add( 'NO CHANGES TO DATE AS IT HAS BEEN PASSED' , 3 ) ;
3825: END IF;
3826: ELSE
3827: IF l_debug_level > 0 THEN
3828: oe_debug_pub.add( 'PASS THE REQUEST DATE AS ARRIVAL DATE' , 3 ) ;
3824: oe_debug_pub.add( 'NO CHANGES TO DATE AS IT HAS BEEN PASSED' , 3 ) ;
3825: END IF;
3826: ELSE
3827: IF l_debug_level > 0 THEN
3828: oe_debug_pub.add( 'PASS THE REQUEST DATE AS ARRIVAL DATE' , 3 ) ;
3829: END IF;
3830:
3831: x_atp_rec.Requested_ship_Date(I) := null;
3832: x_atp_rec.Requested_arrival_Date(I) := p_line_rec.request_date;
3837:
3838: ELSE
3839:
3840: IF l_debug_level > 0 THEN
3841: oe_debug_pub.add( 'IT IS NOT AN INTERNAL ORDER ' , 3 ) ;
3842: END IF;
3843: l_oe_flag := 'N';
3844:
3845: END IF;
3845: END IF;
3846:
3847: x_atp_rec.oe_flag(I) := l_oe_flag;
3848: IF l_debug_level > 0 THEN
3849: oe_debug_pub.add( 'OE FLAG IS : '||X_ATP_REC.OE_FLAG ( I ) , 3 ) ;
3850: END IF;
3851:
3852: IF l_debug_level > 0 THEN
3853: oe_debug_pub.add( 'REQUEST SHIP DATE : ' || TO_CHAR ( X_ATP_REC.REQUESTED_SHIP_DATE ( I ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
3849: oe_debug_pub.add( 'OE FLAG IS : '||X_ATP_REC.OE_FLAG ( I ) , 3 ) ;
3850: END IF;
3851:
3852: IF l_debug_level > 0 THEN
3853: oe_debug_pub.add( 'REQUEST SHIP DATE : ' || TO_CHAR ( X_ATP_REC.REQUESTED_SHIP_DATE ( I ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
3854: END IF;
3855: IF l_debug_level > 0 THEN
3856: oe_debug_pub.add( 'REQUEST ARRIVAL DATE : ' || TO_CHAR ( X_ATP_REC.REQUESTED_ARRIVAL_DATE ( I ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
3857: END IF;
3852: IF l_debug_level > 0 THEN
3853: oe_debug_pub.add( 'REQUEST SHIP DATE : ' || TO_CHAR ( X_ATP_REC.REQUESTED_SHIP_DATE ( I ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
3854: END IF;
3855: IF l_debug_level > 0 THEN
3856: oe_debug_pub.add( 'REQUEST ARRIVAL DATE : ' || TO_CHAR ( X_ATP_REC.REQUESTED_ARRIVAL_DATE ( I ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
3857: END IF;
3858:
3859: IF (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_ATP_CHECK) THEN
3860: x_atp_rec.Action(I) := 100;
3858:
3859: IF (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_ATP_CHECK) THEN
3860: x_atp_rec.Action(I) := 100;
3861: IF l_debug_level > 0 THEN
3862: oe_debug_pub.add( 'MRP ACTION: ' || X_ATP_REC.ACTION ( I ) , 3 ) ;
3863: END IF;
3864: ELSIF (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_DEMAND) OR
3865: (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_SCHEDULE)
3866: THEN
3865: (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_SCHEDULE)
3866: THEN
3867: x_atp_rec.Action(I) := 110;
3868: IF l_debug_level > 0 THEN
3869: oe_debug_pub.add( 'MRP ACTION: ' || X_ATP_REC.ACTION ( I ) , 3 ) ;
3870: END IF;
3871: ELSIF (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_REDEMAND) OR
3872: (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_RESCHEDULE)
3873: THEN
3876: p_old_line_rec.ship_from_org_id;
3877: x_atp_rec.Old_Demand_Class(I) :=
3878: p_old_line_rec.demand_class_code;
3879: IF l_debug_level > 0 THEN
3880: oe_debug_pub.add( 'MRP ACTION: ' || X_ATP_REC.ACTION ( I ) , 3 ) ;
3881: END IF;
3882: ELSIF (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_UNDEMAND)
3883: THEN
3884: x_atp_rec.Action(I) := 120;
3889: p_old_line_rec.demand_class_code;
3890:
3891: /*L.G. OPM bug 1828340 jul 19,01*/
3892: IF l_debug_level > 0 THEN
3893: oe_debug_pub.add( 'MRP ACTION: ' || X_ATP_REC.ACTION ( I ) , 3 ) ;
3894: END IF;
3895: -- Bug3361870 (commenting this piece of code. Not required)
3896: /* IF INV_GMI_RSV_BRANCH.Process_Branch -- INVCONV - delete this
3897: (p_organization_id => p_old_line_rec.ship_from_org_id)
3914: l_line_id_mod := MOD(p_line_rec.line_id,G_BINARY_LIMIT); --7827737
3915: --IF NOT OE_SCH_CONC_REQUESTS.included_processed(p_line_rec.line_id) THEN
3916: IF NOT OE_SCH_CONC_REQUESTS.included_processed(l_line_id_mod) THEN -- 9108353
3917: IF l_debug_level > 0 THEN
3918: oe_debug_pub.add( 'INCLUDED PROCESSED : ' || p_line_rec.line_id, 3 ) ;
3919: END IF;
3920: --5166476
3921:
3922: --OE_SCH_CONC_REQUESTS.OE_line_status_Tbl(p_line_rec.line_id) := 'Y';
3951: IF p_line_rec.ato_line_id = l_st_ato_line_id
3952: THEN
3953: x_atp_rec.atp_lead_time(I) := l_st_atp_lead_time;
3954: IF l_debug_level > 0 THEN
3955: oe_debug_pub.add( 'ATO LEAD TIME IS ' || L_ST_ATP_LEAD_TIME , 3 ) ;
3956: END IF;
3957: ELSE
3958: IF l_debug_level > 0 THEN
3959: oe_debug_pub.add( 'CALLING GET_LEAD_TIME' , 3 ) ;
3955: oe_debug_pub.add( 'ATO LEAD TIME IS ' || L_ST_ATP_LEAD_TIME , 3 ) ;
3956: END IF;
3957: ELSE
3958: IF l_debug_level > 0 THEN
3959: oe_debug_pub.add( 'CALLING GET_LEAD_TIME' , 3 ) ;
3960: END IF;
3961: l_st_atp_lead_time :=
3962: Get_Lead_Time
3963: (p_ato_line_id => p_line_rec.ato_line_id,
3963: (p_ato_line_id => p_line_rec.ato_line_id,
3964: p_ship_from_org_id => p_line_rec.ship_from_org_id);
3965:
3966: IF l_debug_level > 0 THEN
3967: oe_debug_pub.add( 'AFTER CALLING GET_LEAD_TIME' , 3 ) ;
3968: END IF;
3969: IF l_debug_level > 0 THEN
3970: oe_debug_pub.add( 'LEAD TIME: ' || L_ST_ATP_LEAD_TIME , 3 ) ;
3971: END IF;
3966: IF l_debug_level > 0 THEN
3967: oe_debug_pub.add( 'AFTER CALLING GET_LEAD_TIME' , 3 ) ;
3968: END IF;
3969: IF l_debug_level > 0 THEN
3970: oe_debug_pub.add( 'LEAD TIME: ' || L_ST_ATP_LEAD_TIME , 3 ) ;
3971: END IF;
3972:
3973: x_atp_rec.atp_lead_time(I) := l_st_atp_lead_time;
3974: l_st_ato_line_id := p_line_rec.ato_line_id;
3983: -- Non internal order item
3984: -- Not on split line
3985:
3986: IF l_debug_level > 0 THEN
3987: oe_debug_pub.add( 'ITEM_TYPE_CODE :' || P_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
3988: END IF;
3989: IF l_debug_level > 0 THEN
3990: oe_debug_pub.add( 'ATO_LINE_ID :' || P_LINE_REC.ATO_LINE_ID , 1 ) ;
3991: END IF;
3986: IF l_debug_level > 0 THEN
3987: oe_debug_pub.add( 'ITEM_TYPE_CODE :' || P_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
3988: END IF;
3989: IF l_debug_level > 0 THEN
3990: oe_debug_pub.add( 'ATO_LINE_ID :' || P_LINE_REC.ATO_LINE_ID , 1 ) ;
3991: END IF;
3992: IF l_debug_level > 0 THEN
3993: oe_debug_pub.add( 'BOOKED_FLAG :' || P_LINE_REC.BOOKED_FLAG , 1 ) ;
3994: END IF;
3989: IF l_debug_level > 0 THEN
3990: oe_debug_pub.add( 'ATO_LINE_ID :' || P_LINE_REC.ATO_LINE_ID , 1 ) ;
3991: END IF;
3992: IF l_debug_level > 0 THEN
3993: oe_debug_pub.add( 'BOOKED_FLAG :' || P_LINE_REC.BOOKED_FLAG , 1 ) ;
3994: END IF;
3995: IF l_debug_level > 0 THEN
3996: oe_debug_pub.add( 'LINE_SET_ID :' || P_LINE_REC.LINE_SET_ID , 1 ) ;
3997: END IF;
3992: IF l_debug_level > 0 THEN
3993: oe_debug_pub.add( 'BOOKED_FLAG :' || P_LINE_REC.BOOKED_FLAG , 1 ) ;
3994: END IF;
3995: IF l_debug_level > 0 THEN
3996: oe_debug_pub.add( 'LINE_SET_ID :' || P_LINE_REC.LINE_SET_ID , 1 ) ;
3997: END IF;
3998: IF l_debug_level > 0 THEN
3999: oe_debug_pub.add( 'SOURCE_DOCUMENT_TYPE_ID :' || P_LINE_REC.SOURCE_DOCUMENT_TYPE_ID , 1 ) ;
4000: END IF;
3995: IF l_debug_level > 0 THEN
3996: oe_debug_pub.add( 'LINE_SET_ID :' || P_LINE_REC.LINE_SET_ID , 1 ) ;
3997: END IF;
3998: IF l_debug_level > 0 THEN
3999: oe_debug_pub.add( 'SOURCE_DOCUMENT_TYPE_ID :' || P_LINE_REC.SOURCE_DOCUMENT_TYPE_ID , 1 ) ;
4000: END IF;
4001:
4002: IF NOT OE_GLOBALS.Equal(p_line_rec.inventory_item_id,
4003: p_old_line_rec.inventory_item_id)
4016: x_atp_rec.old_inventory_item_id(I) :=
4017: p_old_line_rec.inventory_item_id;
4018: END IF;
4019: IF l_debug_level > 0 THEN
4020: oe_debug_pub.add( 'OLD_ITEM ID :' || X_ATP_REC.OLD_INVENTORY_ITEM_ID ( I ) , 1 ) ;
4021: END IF;
4022: END IF;
4023:
4024: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
4039: -- line. For atp check get the values from MRP to show the substitute
4040: -- item details by setting req_item_detail_flag to 1.
4041:
4042: IF l_debug_level > 0 THEN
4043: oe_debug_pub.add( 'LINE IS MARKED FOR SUBSTITUTION' , 1 ) ;
4044: END IF;
4045: x_atp_rec.substitution_typ_code(I) := 1;
4046: IF l_action_code = OESCH_ACT_ATP_CHECK OR
4047: NVL(OE_SYS_PARAMETERS.value('AUTO_SPLIT_AT_SCHEDULING'),'N') <> 'N' --ER 2736896
4052: END IF;
4053:
4054: ELSE
4055: IF l_debug_level > 0 THEN
4056: oe_debug_pub.add( 'LINE IS NOT MARKED FOR SUBSTITUTION' , 1 ) ;
4057: END IF;
4058: x_atp_rec.substitution_typ_code(I) := 4;
4059: x_atp_rec.req_item_detail_flag(I) := 2;
4060:
4065: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
4066: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 THEN
4067:
4068: IF l_debug_level > 0 THEN
4069: Oe_debug_pub.add('Do not explode SMC records',2);
4070: END IF;
4071:
4072: x_atp_rec.Included_item_flag(I) := 1;
4073: x_atp_rec.top_model_line_id(I) := p_line_rec.top_model_line_id;
4095:
4096: l_inv_ctp := fnd_profile.value('INV_CTP');
4097:
4098: IF l_debug_level > 0 THEN
4099: oe_debug_pub.add( 'INV_CTP : '||L_INV_CTP , 3 ) ;
4100: END IF;
4101:
4102:
4103: IF p_line_rec.ato_line_id = p_line_rec.line_id AND
4115: p_old_line_rec => p_old_line_rec)
4116: THEN
4117:
4118: IF l_debug_level > 0 THEN
4119: oe_debug_pub.add('ONLY ORDERED QTY GOT REDUCED,NO EXPLOSION',3);
4120: END IF;
4121: l_explode := FALSE;
4122:
4123: END IF;
4125: -- If the line scheduled is an ATO Model, call ATO's API
4126: -- to get the Standard Mandatory Components
4127:
4128: IF l_debug_level > 0 THEN
4129: oe_debug_pub.add('ATO ITEM TYPE: '||P_LINE_REC.ITEM_TYPE_CODE,3);
4130: END IF;
4131:
4132: IF p_line_rec.item_type_code = 'STANDARD' AND
4133: x_atp_rec.ship_set_name(I) is NULL THEN
4132: IF p_line_rec.item_type_code = 'STANDARD' AND
4133: x_atp_rec.ship_set_name(I) is NULL THEN
4134:
4135: IF l_debug_level > 0 THEN
4136: oe_debug_pub.add( 'ASSIGNING SHIP SET FOR ATO ITEM ' , 3 ) ;
4137: END IF;
4138: x_atp_rec.Ship_Set_Name(I) := p_line_rec.ato_line_id;
4139:
4140: END IF;
4141:
4142: IF p_line_rec.item_type_code = 'STANDARD' THEN
4143:
4144: IF l_debug_level > 0 THEN
4145: oe_debug_pub.add( 'ASSIGNING WAREHOUSE AND ITEM ' , 3 ) ;
4146: END IF;
4147: l_organization_id := p_line_rec.ship_from_org_id;
4148: l_inventory_item_id := p_line_rec.inventory_item_id;
4149: IF l_debug_level > 0 THEN
4146: END IF;
4147: l_organization_id := p_line_rec.ship_from_org_id;
4148: l_inventory_item_id := p_line_rec.inventory_item_id;
4149: IF l_debug_level > 0 THEN
4150: oe_debug_pub.add('WAREHOUSE/ITEM : '||L_ORGANIZATION_ID||'/' ||L_INVENTORY_ITEM_ID,3 ) ;
4151: END IF;
4152:
4153: ELSE
4154:
4154:
4155: l_organization_id := NULL;
4156: l_inventory_item_id := NULL;
4157: IF l_debug_level > 0 THEN
4158: oe_debug_pub.add('WAREHOUSE/ITEM : '||L_ORGANIZATION_ID||'/' ||L_INVENTORY_ITEM_ID,3);
4159: END IF;
4160:
4161: END IF;
4162:
4273: END IF;
4274:
4275: BEGIN
4276: IF l_debug_level > 0 THEN
4277: oe_debug_pub.add( '2.. CALLING CTO GET_BOM_MANDATORY_COMPS' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
4278: END IF;
4279:
4280: l_result := CTO_CONFIG_ITEM_PK.GET_MANDATORY_COMPONENTS
4281: (p_ship_set => l_model_rec,
4286: xMessageName => lMessageName,
4287: xTableName => lTableName);
4288:
4289: IF l_debug_level > 0 THEN
4290: oe_debug_pub.add( '2..AFTER CALLING CTO API : ' || L_RESULT , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
4291: END IF;
4292:
4293: EXCEPTION
4294: WHEN OTHERS THEN
4292:
4293: EXCEPTION
4294: WHEN OTHERS THEN
4295: IF l_debug_level > 0 THEN
4296: oe_debug_pub.add( 'CTO API RETURNED AN UNEXPECTED ERROR' ) ;
4297: END IF;
4298: l_result := 0;
4299: END;
4300:
4300:
4301: IF l_result = 1 AND
4302: l_smc_rec.Identifier.count >= 1 THEN
4303: IF l_debug_level > 0 THEN
4304: oe_debug_pub.add( 'SMC COUNT IS : ' || L_SMC_REC.IDENTIFIER.COUNT , 1 ) ;
4305: END IF;
4306:
4307: Initialize_mrp_record(p_x_atp_rec => x_atp_rec,
4308: l_count => l_smc_rec.Identifier.count);
4318: -- used in the load_results procedure to bypass the SMC records.
4319:
4320: x_atp_rec.vendor_name(I) := 'SMC';
4321: IF l_debug_level > 0 THEN
4322: oe_debug_pub.add( 'OE FLAG IS : '||X_ATP_REC.OE_FLAG ( I ) , 3 ) ;
4323: oe_debug_pub.add( 'SMC : '|| I || ' iden :' ||
4324: l_smc_rec.Identifier(J) , 3 ) ;
4325: END IF;
4326:
4319:
4320: x_atp_rec.vendor_name(I) := 'SMC';
4321: IF l_debug_level > 0 THEN
4322: oe_debug_pub.add( 'OE FLAG IS : '||X_ATP_REC.OE_FLAG ( I ) , 3 ) ;
4323: oe_debug_pub.add( 'SMC : '|| I || ' iden :' ||
4324: l_smc_rec.Identifier(J) , 3 ) ;
4325: END IF;
4326:
4327: x_atp_rec.Inventory_Item_Id(I) := l_smc_rec.Inventory_Item_Id(J);
4388:
4389: -- Schords (R12 Project #6403)
4390: OE_SCH_CONC_REQUESTS.g_process_records := OE_SCH_CONC_REQUESTS.g_process_records + 1;
4391: IF l_debug_level > 0 THEN
4392: oe_debug_pub.add( 'INCLUDED TO PROCESSED : ' , 3 ) ;
4393: END IF;
4394:
4395: END LOOP;
4396: END IF; -- Identifier count is greater than 1.
4437: l_type_code VARCHAR2(30);
4438: l_order_number NUMBER;
4439: l_index NUMBER := 1;
4440: --
4441: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4442: --
4443: BEGIN
4444:
4445: l_mrp_calc_sd := fnd_profile.value('MRP_ATP_CALC_SD');
4444:
4445: l_mrp_calc_sd := fnd_profile.value('MRP_ATP_CALC_SD');
4446:
4447: IF l_debug_level > 0 THEN
4448: oe_debug_pub.add( 'MRP_ATP_CALC_SD : '||L_MRP_CALC_SD , 3 ) ;
4449: END IF;
4450:
4451: l_type_code := Get_Date_Type(p_line_rec.header_id);
4452: l_order_number := Get_Order_Number(p_line_rec.header_id);
4521: l_scheduling_level_code VARCHAR2(30);
4522: l_line_id_mod NUMBER; --7827737
4523:
4524: --
4525: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4526: --
4527: BEGIN
4528:
4529: IF l_debug_level > 0 THEN
4526: --
4527: BEGIN
4528:
4529: IF l_debug_level > 0 THEN
4530: oe_debug_pub.add( 'ENTERING LOAD_MRP_REQUEST_FROM_TBL' , 1 ) ;
4531: END IF;
4532: l_mrp_calc_sd := fnd_profile.value('MRP_ATP_CALC_SD');
4533:
4534: IF l_debug_level > 0 THEN
4531: END IF;
4532: l_mrp_calc_sd := fnd_profile.value('MRP_ATP_CALC_SD');
4533:
4534: IF l_debug_level > 0 THEN
4535: oe_debug_pub.add( 'MRP_ATP_CALC_SD : '||L_MRP_CALC_SD , 3 ) ;
4536: END IF;
4537:
4538: IF l_debug_level > 0 THEN
4539: oe_debug_pub.add( 'COUNT OF NEW ' || P_LINE_TBL.COUNT , 1 ) ;
4535: oe_debug_pub.add( 'MRP_ATP_CALC_SD : '||L_MRP_CALC_SD , 3 ) ;
4536: END IF;
4537:
4538: IF l_debug_level > 0 THEN
4539: oe_debug_pub.add( 'COUNT OF NEW ' || P_LINE_TBL.COUNT , 1 ) ;
4540: END IF;
4541: IF l_debug_level > 0 THEN
4542: oe_debug_pub.add( 'COUNT OF NEW ' || P_OLD_LINE_TBL.COUNT , 1 ) ;
4543: END IF;
4538: IF l_debug_level > 0 THEN
4539: oe_debug_pub.add( 'COUNT OF NEW ' || P_LINE_TBL.COUNT , 1 ) ;
4540: END IF;
4541: IF l_debug_level > 0 THEN
4542: oe_debug_pub.add( 'COUNT OF NEW ' || P_OLD_LINE_TBL.COUNT , 1 ) ;
4543: END IF;
4544: IF l_debug_level > 0 THEN
4545: oe_debug_pub.add( 'FIRST ' || P_LINE_TBL.FIRST ) ;
4546: END IF;
4541: IF l_debug_level > 0 THEN
4542: oe_debug_pub.add( 'COUNT OF NEW ' || P_OLD_LINE_TBL.COUNT , 1 ) ;
4543: END IF;
4544: IF l_debug_level > 0 THEN
4545: oe_debug_pub.add( 'FIRST ' || P_LINE_TBL.FIRST ) ;
4546: END IF;
4547: IF l_debug_level > 0 THEN
4548: oe_debug_pub.add( 'LAST ' || P_LINE_TBL.LAST ) ;
4549: END IF;
4544: IF l_debug_level > 0 THEN
4545: oe_debug_pub.add( 'FIRST ' || P_LINE_TBL.FIRST ) ;
4546: END IF;
4547: IF l_debug_level > 0 THEN
4548: oe_debug_pub.add( 'LAST ' || P_LINE_TBL.LAST ) ;
4549: END IF;
4550:
4551: l_type_code := Get_Date_Type(p_line_tbl(1).header_id);
4552: l_order_number := Get_Order_Number(p_line_tbl(1).header_id);
4574:
4575: FOR I in 1..p_line_tbl.count LOOP
4576:
4577: IF l_debug_level > 0 THEN
4578: oe_debug_pub.add( 'HEADER_ID IS : ' || P_LINE_TBL ( I ) .HEADER_ID ) ;
4579: END IF;
4580: IF l_debug_level > 0 THEN
4581: oe_debug_pub.add( 'LINE_TYPE_ID IS : ' || P_LINE_TBL ( I ) .LINE_TYPE_ID ) ;
4582: END IF;
4577: IF l_debug_level > 0 THEN
4578: oe_debug_pub.add( 'HEADER_ID IS : ' || P_LINE_TBL ( I ) .HEADER_ID ) ;
4579: END IF;
4580: IF l_debug_level > 0 THEN
4581: oe_debug_pub.add( 'LINE_TYPE_ID IS : ' || P_LINE_TBL ( I ) .LINE_TYPE_ID ) ;
4582: END IF;
4583:
4584: l_scheduling_level_code := Get_Scheduling_Level(p_line_tbl(I).header_id,
4585: P_line_tbl(I).line_type_id);
4587: IF l_scheduling_level_code IS NULL THEN
4588: l_scheduling_level_code := SCH_LEVEL_THREE;
4589: END IF;
4590: IF l_debug_level > 0 THEN
4591: oe_debug_pub.add( 'SCHEDULING LEVEL IS : ' || L_SCHEDULING_LEVEL_CODE ) ;
4592: END IF;
4593:
4594: --3763015
4595: IF l_scheduling_level_code = SCH_LEVEL_FOUR OR
4597: NVL(fnd_profile.value('ONT_BYPASS_ATP'),'N') = 'Y' OR
4598: Nvl(p_line_tbl(i).bypass_sch_flag, 'N') = 'Y' THEN -- for DOO Integration
4599:
4600: IF l_debug_level > 0 THEN
4601: oe_debug_pub.add( 'INACTIVE DEMAND LINE , LINE_ID = ' || P_LINE_TBL.LAST ) ;
4602: END IF;
4603:
4604: l_line_id_mod :=MOD(p_line_tbl(I).line_id,G_BINARY_LIMIT); --7827737
4605:
4612: OE_inactive_demand_tbl(l_line_id_mod).scheduling_level_code:=
4613: l_scheduling_level_code; --7827737
4614:
4615: IF l_debug_level > 0 THEN
4616: oe_debug_pub.add( 'INACTIVE DEMAND LINE' ) ;
4617: END IF;
4618: IF l_debug_level > 0 THEN
4619: -- oe_debug_pub.add( 'LINE_ID = ' || OE_INACTIVE_DEMAND_TBL ( P_LINE_TBL ( I ) .LINE_ID ) .LINE_ID ) ;
4620: oe_debug_pub.add( 'LINE_ID = ' || OE_INACTIVE_DEMAND_TBL (L_LINE_ID_MOD ) .LINE_ID ); --7827737;
4615: IF l_debug_level > 0 THEN
4616: oe_debug_pub.add( 'INACTIVE DEMAND LINE' ) ;
4617: END IF;
4618: IF l_debug_level > 0 THEN
4619: -- oe_debug_pub.add( 'LINE_ID = ' || OE_INACTIVE_DEMAND_TBL ( P_LINE_TBL ( I ) .LINE_ID ) .LINE_ID ) ;
4620: oe_debug_pub.add( 'LINE_ID = ' || OE_INACTIVE_DEMAND_TBL (L_LINE_ID_MOD ) .LINE_ID ); --7827737;
4621: END IF;
4622: IF l_debug_level > 0 THEN
4623: --oe_debug_pub.add( 'SCHEDULING_LEVEL_CODE =' || OE_INACTIVE_DEMAND_TBL ( P_LINE_TBL ( I ) .LINE_ID ) .SCHEDULING_LEVEL_CODE ) ;
4616: oe_debug_pub.add( 'INACTIVE DEMAND LINE' ) ;
4617: END IF;
4618: IF l_debug_level > 0 THEN
4619: -- oe_debug_pub.add( 'LINE_ID = ' || OE_INACTIVE_DEMAND_TBL ( P_LINE_TBL ( I ) .LINE_ID ) .LINE_ID ) ;
4620: oe_debug_pub.add( 'LINE_ID = ' || OE_INACTIVE_DEMAND_TBL (L_LINE_ID_MOD ) .LINE_ID ); --7827737;
4621: END IF;
4622: IF l_debug_level > 0 THEN
4623: --oe_debug_pub.add( 'SCHEDULING_LEVEL_CODE =' || OE_INACTIVE_DEMAND_TBL ( P_LINE_TBL ( I ) .LINE_ID ) .SCHEDULING_LEVEL_CODE ) ;
4624: oe_debug_pub.add( 'SCHEDULING_LEVEL_CODE =' || OE_INACTIVE_DEMAND_TBL (L_LINE_ID_MOD ) .SCHEDULING_LEVEL_CODE ) ; --7827737
4619: -- oe_debug_pub.add( 'LINE_ID = ' || OE_INACTIVE_DEMAND_TBL ( P_LINE_TBL ( I ) .LINE_ID ) .LINE_ID ) ;
4620: oe_debug_pub.add( 'LINE_ID = ' || OE_INACTIVE_DEMAND_TBL (L_LINE_ID_MOD ) .LINE_ID ); --7827737;
4621: END IF;
4622: IF l_debug_level > 0 THEN
4623: --oe_debug_pub.add( 'SCHEDULING_LEVEL_CODE =' || OE_INACTIVE_DEMAND_TBL ( P_LINE_TBL ( I ) .LINE_ID ) .SCHEDULING_LEVEL_CODE ) ;
4624: oe_debug_pub.add( 'SCHEDULING_LEVEL_CODE =' || OE_INACTIVE_DEMAND_TBL (L_LINE_ID_MOD ) .SCHEDULING_LEVEL_CODE ) ; --7827737
4625: END IF;
4626:
4627: l_inactive_demand_count := l_inactive_demand_count + 1;
4620: oe_debug_pub.add( 'LINE_ID = ' || OE_INACTIVE_DEMAND_TBL (L_LINE_ID_MOD ) .LINE_ID ); --7827737;
4621: END IF;
4622: IF l_debug_level > 0 THEN
4623: --oe_debug_pub.add( 'SCHEDULING_LEVEL_CODE =' || OE_INACTIVE_DEMAND_TBL ( P_LINE_TBL ( I ) .LINE_ID ) .SCHEDULING_LEVEL_CODE ) ;
4624: oe_debug_pub.add( 'SCHEDULING_LEVEL_CODE =' || OE_INACTIVE_DEMAND_TBL (L_LINE_ID_MOD ) .SCHEDULING_LEVEL_CODE ) ; --7827737
4625: END IF;
4626:
4627: l_inactive_demand_count := l_inactive_demand_count + 1;
4628:
4644: --IF OE_inactive_demand_tbl.EXISTS(p_line_tbl(cnt).line_id) THEN
4645: IF OE_inactive_demand_tbl.EXISTS(MOD(p_line_tbl(cnt).line_id,G_BINARY_LIMIT))
4646: THEN --7827737
4647: IF l_debug_level > 0 THEN
4648: oe_debug_pub.add( 'SKIPPING LOAD_MRP_REQUEST BECAUSE INACTIVE DEMAND LINE' ) ;
4649: END IF;
4650: NULL; -- skip this record
4651: ELSE
4652: --END 1955004
4701:
4702: END LOOP;
4703:
4704: IF l_debug_level > 0 THEN
4705: oe_debug_pub.add( 'EXITING LOAD_MRP_REQUEST_FROM_TBL' , 1 ) ;
4706: END IF;
4707:
4708: EXCEPTION
4709: WHEN FND_API.G_EXC_ERROR THEN
4758: l_split_line_rec OE_ORDER_PUB.line_rec_type;
4759: l_split_eligible BOOLEAN := FALSE;
4760: --Scheduling Enhancement ER 2736896
4761: --
4762: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4763: --
4764: l_old_ship_from_org_id number; -- Added for ER 6110708
4765: BEGIN
4766:
4764: l_old_ship_from_org_id number; -- Added for ER 6110708
4765: BEGIN
4766:
4767: IF l_debug_level > 0 THEN
4768: oe_debug_pub.add( '2. ENTERING LOAD_RESULTS_FROM_REC' , 1 ) ;
4769: END IF;
4770: x_return_status := FND_API.G_RET_STS_SUCCESS;
4771:
4772: IF l_sch_action is NULL THEN
4774: END IF;
4775:
4776: atp_count := g_atp_tbl.count + 1;
4777: IF l_debug_level > 0 THEN
4778: oe_debug_pub.add('-----------------Loading MRP Result---------------',1);
4779: oe_debug_pub.add( 'MRP COUNT IS ' || P_ATP_REC.ERROR_CODE.COUNT , 1 ) ;
4780: oe_debug_pub.add( 'SCHEDULE ACTION CODE ' || L_SCH_ACTION , 1 ) ;
4781: END IF;
4782:
4775:
4776: atp_count := g_atp_tbl.count + 1;
4777: IF l_debug_level > 0 THEN
4778: oe_debug_pub.add('-----------------Loading MRP Result---------------',1);
4779: oe_debug_pub.add( 'MRP COUNT IS ' || P_ATP_REC.ERROR_CODE.COUNT , 1 ) ;
4780: oe_debug_pub.add( 'SCHEDULE ACTION CODE ' || L_SCH_ACTION , 1 ) ;
4781: END IF;
4782:
4783: -- Check for the MRP data. If MRP is not returning any data, then
4776: atp_count := g_atp_tbl.count + 1;
4777: IF l_debug_level > 0 THEN
4778: oe_debug_pub.add('-----------------Loading MRP Result---------------',1);
4779: oe_debug_pub.add( 'MRP COUNT IS ' || P_ATP_REC.ERROR_CODE.COUNT , 1 ) ;
4780: oe_debug_pub.add( 'SCHEDULE ACTION CODE ' || L_SCH_ACTION , 1 ) ;
4781: END IF;
4782:
4783: -- Check for the MRP data. If MRP is not returning any data, then
4784: -- raise an error.
4785:
4786: IF p_atp_rec.error_code.count = 0 THEN
4787:
4788: IF l_debug_level > 0 THEN
4789: oe_debug_pub.add( 'MRP HAS RETURNED ANY DATA' , 1 ) ;
4790: END IF;
4791:
4792: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATP_ERROR');
4793: OE_MSG_PUB.Add;
4801: --Scheduling Enhancements ER 2736896
4802: l_om_auto_split := NVL(OE_SYS_PARAMETERS.VALUE('AUTO_SPLIT_AT_SCHEDULING'),'N') ;
4803:
4804: IF l_debug_level > 0 THEN
4805: oe_debug_pub.add('l_om_auto_split ' || l_om_auto_split);
4806: oe_debug_pub.add('order_source_id ' || p_x_line_rec.order_source_id);
4807: oe_debug_pub.add('source_type_code ' || p_x_line_rec.source_type_code);
4808: oe_debug_pub.add('l_sch_action ' || l_sch_action);
4809: oe_debug_pub.add('item_type_code ' || p_x_line_rec.item_type_code);
4802: l_om_auto_split := NVL(OE_SYS_PARAMETERS.VALUE('AUTO_SPLIT_AT_SCHEDULING'),'N') ;
4803:
4804: IF l_debug_level > 0 THEN
4805: oe_debug_pub.add('l_om_auto_split ' || l_om_auto_split);
4806: oe_debug_pub.add('order_source_id ' || p_x_line_rec.order_source_id);
4807: oe_debug_pub.add('source_type_code ' || p_x_line_rec.source_type_code);
4808: oe_debug_pub.add('l_sch_action ' || l_sch_action);
4809: oe_debug_pub.add('item_type_code ' || p_x_line_rec.item_type_code);
4810: oe_debug_pub.add('top_model_line_id ' || p_x_line_rec.top_model_line_id);
4803:
4804: IF l_debug_level > 0 THEN
4805: oe_debug_pub.add('l_om_auto_split ' || l_om_auto_split);
4806: oe_debug_pub.add('order_source_id ' || p_x_line_rec.order_source_id);
4807: oe_debug_pub.add('source_type_code ' || p_x_line_rec.source_type_code);
4808: oe_debug_pub.add('l_sch_action ' || l_sch_action);
4809: oe_debug_pub.add('item_type_code ' || p_x_line_rec.item_type_code);
4810: oe_debug_pub.add('top_model_line_id ' || p_x_line_rec.top_model_line_id);
4811: oe_debug_pub.add('ship_set_id ' || p_x_line_rec.ship_set_id);
4804: IF l_debug_level > 0 THEN
4805: oe_debug_pub.add('l_om_auto_split ' || l_om_auto_split);
4806: oe_debug_pub.add('order_source_id ' || p_x_line_rec.order_source_id);
4807: oe_debug_pub.add('source_type_code ' || p_x_line_rec.source_type_code);
4808: oe_debug_pub.add('l_sch_action ' || l_sch_action);
4809: oe_debug_pub.add('item_type_code ' || p_x_line_rec.item_type_code);
4810: oe_debug_pub.add('top_model_line_id ' || p_x_line_rec.top_model_line_id);
4811: oe_debug_pub.add('ship_set_id ' || p_x_line_rec.ship_set_id);
4812: oe_debug_pub.add('arrival_set_id ' || p_x_line_rec.arrival_set_id);
4805: oe_debug_pub.add('l_om_auto_split ' || l_om_auto_split);
4806: oe_debug_pub.add('order_source_id ' || p_x_line_rec.order_source_id);
4807: oe_debug_pub.add('source_type_code ' || p_x_line_rec.source_type_code);
4808: oe_debug_pub.add('l_sch_action ' || l_sch_action);
4809: oe_debug_pub.add('item_type_code ' || p_x_line_rec.item_type_code);
4810: oe_debug_pub.add('top_model_line_id ' || p_x_line_rec.top_model_line_id);
4811: oe_debug_pub.add('ship_set_id ' || p_x_line_rec.ship_set_id);
4812: oe_debug_pub.add('arrival_set_id ' || p_x_line_rec.arrival_set_id);
4813: oe_debug_pub.add('split_action_code ' || p_x_line_rec.split_action_code);
4806: oe_debug_pub.add('order_source_id ' || p_x_line_rec.order_source_id);
4807: oe_debug_pub.add('source_type_code ' || p_x_line_rec.source_type_code);
4808: oe_debug_pub.add('l_sch_action ' || l_sch_action);
4809: oe_debug_pub.add('item_type_code ' || p_x_line_rec.item_type_code);
4810: oe_debug_pub.add('top_model_line_id ' || p_x_line_rec.top_model_line_id);
4811: oe_debug_pub.add('ship_set_id ' || p_x_line_rec.ship_set_id);
4812: oe_debug_pub.add('arrival_set_id ' || p_x_line_rec.arrival_set_id);
4813: oe_debug_pub.add('split_action_code ' || p_x_line_rec.split_action_code);
4814: oe_debug_pub.add('split_from_line_id ' || p_x_line_rec.split_from_line_id);
4807: oe_debug_pub.add('source_type_code ' || p_x_line_rec.source_type_code);
4808: oe_debug_pub.add('l_sch_action ' || l_sch_action);
4809: oe_debug_pub.add('item_type_code ' || p_x_line_rec.item_type_code);
4810: oe_debug_pub.add('top_model_line_id ' || p_x_line_rec.top_model_line_id);
4811: oe_debug_pub.add('ship_set_id ' || p_x_line_rec.ship_set_id);
4812: oe_debug_pub.add('arrival_set_id ' || p_x_line_rec.arrival_set_id);
4813: oe_debug_pub.add('split_action_code ' || p_x_line_rec.split_action_code);
4814: oe_debug_pub.add('split_from_line_id ' || p_x_line_rec.split_from_line_id);
4815: oe_debug_pub.add('operation ' || p_x_line_rec.operation);
4808: oe_debug_pub.add('l_sch_action ' || l_sch_action);
4809: oe_debug_pub.add('item_type_code ' || p_x_line_rec.item_type_code);
4810: oe_debug_pub.add('top_model_line_id ' || p_x_line_rec.top_model_line_id);
4811: oe_debug_pub.add('ship_set_id ' || p_x_line_rec.ship_set_id);
4812: oe_debug_pub.add('arrival_set_id ' || p_x_line_rec.arrival_set_id);
4813: oe_debug_pub.add('split_action_code ' || p_x_line_rec.split_action_code);
4814: oe_debug_pub.add('split_from_line_id ' || p_x_line_rec.split_from_line_id);
4815: oe_debug_pub.add('operation ' || p_x_line_rec.operation);
4816: oe_debug_pub.add('req date qty ' || p_atp_rec.requested_date_quantity(J));
4809: oe_debug_pub.add('item_type_code ' || p_x_line_rec.item_type_code);
4810: oe_debug_pub.add('top_model_line_id ' || p_x_line_rec.top_model_line_id);
4811: oe_debug_pub.add('ship_set_id ' || p_x_line_rec.ship_set_id);
4812: oe_debug_pub.add('arrival_set_id ' || p_x_line_rec.arrival_set_id);
4813: oe_debug_pub.add('split_action_code ' || p_x_line_rec.split_action_code);
4814: oe_debug_pub.add('split_from_line_id ' || p_x_line_rec.split_from_line_id);
4815: oe_debug_pub.add('operation ' || p_x_line_rec.operation);
4816: oe_debug_pub.add('req date qty ' || p_atp_rec.requested_date_quantity(J));
4817: oe_debug_pub.add('ordered qty ' || p_atp_rec.quantity_ordered(J) );
4810: oe_debug_pub.add('top_model_line_id ' || p_x_line_rec.top_model_line_id);
4811: oe_debug_pub.add('ship_set_id ' || p_x_line_rec.ship_set_id);
4812: oe_debug_pub.add('arrival_set_id ' || p_x_line_rec.arrival_set_id);
4813: oe_debug_pub.add('split_action_code ' || p_x_line_rec.split_action_code);
4814: oe_debug_pub.add('split_from_line_id ' || p_x_line_rec.split_from_line_id);
4815: oe_debug_pub.add('operation ' || p_x_line_rec.operation);
4816: oe_debug_pub.add('req date qty ' || p_atp_rec.requested_date_quantity(J));
4817: oe_debug_pub.add('ordered qty ' || p_atp_rec.quantity_ordered(J) );
4818: oe_debug_pub.add('override flag ' || p_atp_rec.override_flag(J));
4811: oe_debug_pub.add('ship_set_id ' || p_x_line_rec.ship_set_id);
4812: oe_debug_pub.add('arrival_set_id ' || p_x_line_rec.arrival_set_id);
4813: oe_debug_pub.add('split_action_code ' || p_x_line_rec.split_action_code);
4814: oe_debug_pub.add('split_from_line_id ' || p_x_line_rec.split_from_line_id);
4815: oe_debug_pub.add('operation ' || p_x_line_rec.operation);
4816: oe_debug_pub.add('req date qty ' || p_atp_rec.requested_date_quantity(J));
4817: oe_debug_pub.add('ordered qty ' || p_atp_rec.quantity_ordered(J) );
4818: oe_debug_pub.add('override flag ' || p_atp_rec.override_flag(J));
4819: END IF;
4812: oe_debug_pub.add('arrival_set_id ' || p_x_line_rec.arrival_set_id);
4813: oe_debug_pub.add('split_action_code ' || p_x_line_rec.split_action_code);
4814: oe_debug_pub.add('split_from_line_id ' || p_x_line_rec.split_from_line_id);
4815: oe_debug_pub.add('operation ' || p_x_line_rec.operation);
4816: oe_debug_pub.add('req date qty ' || p_atp_rec.requested_date_quantity(J));
4817: oe_debug_pub.add('ordered qty ' || p_atp_rec.quantity_ordered(J) );
4818: oe_debug_pub.add('override flag ' || p_atp_rec.override_flag(J));
4819: END IF;
4820:
4813: oe_debug_pub.add('split_action_code ' || p_x_line_rec.split_action_code);
4814: oe_debug_pub.add('split_from_line_id ' || p_x_line_rec.split_from_line_id);
4815: oe_debug_pub.add('operation ' || p_x_line_rec.operation);
4816: oe_debug_pub.add('req date qty ' || p_atp_rec.requested_date_quantity(J));
4817: oe_debug_pub.add('ordered qty ' || p_atp_rec.quantity_ordered(J) );
4818: oe_debug_pub.add('override flag ' || p_atp_rec.override_flag(J));
4819: END IF;
4820:
4821: IF l_om_auto_split <> 'N' --New profile
4814: oe_debug_pub.add('split_from_line_id ' || p_x_line_rec.split_from_line_id);
4815: oe_debug_pub.add('operation ' || p_x_line_rec.operation);
4816: oe_debug_pub.add('req date qty ' || p_atp_rec.requested_date_quantity(J));
4817: oe_debug_pub.add('ordered qty ' || p_atp_rec.quantity_ordered(J) );
4818: oe_debug_pub.add('override flag ' || p_atp_rec.override_flag(J));
4819: END IF;
4820:
4821: IF l_om_auto_split <> 'N' --New profile
4822: AND p_x_line_rec.order_source_id <> 10 --exluded internal order lines
4921:
4922: IF p_atp_rec.inventory_item_id(J) <> p_x_line_rec.inventory_item_id THEN
4923:
4924: IF l_debug_level > 0 THEN
4925: oe_debug_pub.add( 'SUBSTITUTION OCCURED' , 1 ) ;
4926: oe_debug_pub.add( 'SUB ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
4927: oe_debug_pub.add( 'ORIG ITEM :' || P_ATP_REC.REQUEST_ITEM_ID ( J ) , 1 ) ;
4928: oe_debug_pub.add( 'ORIG NAME :' || P_ATP_REC.REQUEST_ITEM_NAME ( J ) , 1 ) ;
4929: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
4922: IF p_atp_rec.inventory_item_id(J) <> p_x_line_rec.inventory_item_id THEN
4923:
4924: IF l_debug_level > 0 THEN
4925: oe_debug_pub.add( 'SUBSTITUTION OCCURED' , 1 ) ;
4926: oe_debug_pub.add( 'SUB ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
4927: oe_debug_pub.add( 'ORIG ITEM :' || P_ATP_REC.REQUEST_ITEM_ID ( J ) , 1 ) ;
4928: oe_debug_pub.add( 'ORIG NAME :' || P_ATP_REC.REQUEST_ITEM_NAME ( J ) , 1 ) ;
4929: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
4930: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4923:
4924: IF l_debug_level > 0 THEN
4925: oe_debug_pub.add( 'SUBSTITUTION OCCURED' , 1 ) ;
4926: oe_debug_pub.add( 'SUB ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
4927: oe_debug_pub.add( 'ORIG ITEM :' || P_ATP_REC.REQUEST_ITEM_ID ( J ) , 1 ) ;
4928: oe_debug_pub.add( 'ORIG NAME :' || P_ATP_REC.REQUEST_ITEM_NAME ( J ) , 1 ) ;
4929: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
4930: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4931: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4924: IF l_debug_level > 0 THEN
4925: oe_debug_pub.add( 'SUBSTITUTION OCCURED' , 1 ) ;
4926: oe_debug_pub.add( 'SUB ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
4927: oe_debug_pub.add( 'ORIG ITEM :' || P_ATP_REC.REQUEST_ITEM_ID ( J ) , 1 ) ;
4928: oe_debug_pub.add( 'ORIG NAME :' || P_ATP_REC.REQUEST_ITEM_NAME ( J ) , 1 ) ;
4929: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
4930: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4931: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4932:
4925: oe_debug_pub.add( 'SUBSTITUTION OCCURED' , 1 ) ;
4926: oe_debug_pub.add( 'SUB ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
4927: oe_debug_pub.add( 'ORIG ITEM :' || P_ATP_REC.REQUEST_ITEM_ID ( J ) , 1 ) ;
4928: oe_debug_pub.add( 'ORIG NAME :' || P_ATP_REC.REQUEST_ITEM_NAME ( J ) , 1 ) ;
4929: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
4930: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4931: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4932:
4933: oe_debug_pub.add( 'SUB QTY_ON_REQUEST_DATE :'|| P_ATP_REC.REQUESTED_DATE_QUANTITY ( J ) , 1 ) ;
4926: oe_debug_pub.add( 'SUB ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
4927: oe_debug_pub.add( 'ORIG ITEM :' || P_ATP_REC.REQUEST_ITEM_ID ( J ) , 1 ) ;
4928: oe_debug_pub.add( 'ORIG NAME :' || P_ATP_REC.REQUEST_ITEM_NAME ( J ) , 1 ) ;
4929: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
4930: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4931: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4932:
4933: oe_debug_pub.add( 'SUB QTY_ON_REQUEST_DATE :'|| P_ATP_REC.REQUESTED_DATE_QUANTITY ( J ) , 1 ) ;
4934: oe_debug_pub.add( 'SUB ORDERED_QTY_AVAILABLE_DATE :' || P_ATP_REC.SHIP_DATE ( J ) , 1 ) ;
4927: oe_debug_pub.add( 'ORIG ITEM :' || P_ATP_REC.REQUEST_ITEM_ID ( J ) , 1 ) ;
4928: oe_debug_pub.add( 'ORIG NAME :' || P_ATP_REC.REQUEST_ITEM_NAME ( J ) , 1 ) ;
4929: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
4930: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4931: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4932:
4933: oe_debug_pub.add( 'SUB QTY_ON_REQUEST_DATE :'|| P_ATP_REC.REQUESTED_DATE_QUANTITY ( J ) , 1 ) ;
4934: oe_debug_pub.add( 'SUB ORDERED_QTY_AVAILABLE_DATE :' || P_ATP_REC.SHIP_DATE ( J ) , 1 ) ;
4935: oe_debug_pub.add( 'SUB QTY_ON_AVAILABLE_DATE :' || P_ATP_REC.AVAILABLE_QUANTITY ( J ) , 1 ) ;
4929: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
4930: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4931: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4932:
4933: oe_debug_pub.add( 'SUB QTY_ON_REQUEST_DATE :'|| P_ATP_REC.REQUESTED_DATE_QUANTITY ( J ) , 1 ) ;
4934: oe_debug_pub.add( 'SUB ORDERED_QTY_AVAILABLE_DATE :' || P_ATP_REC.SHIP_DATE ( J ) , 1 ) ;
4935: oe_debug_pub.add( 'SUB QTY_ON_AVAILABLE_DATE :' || P_ATP_REC.AVAILABLE_QUANTITY ( J ) , 1 ) ;
4936: END IF;
4937:
4930: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4931: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4932:
4933: oe_debug_pub.add( 'SUB QTY_ON_REQUEST_DATE :'|| P_ATP_REC.REQUESTED_DATE_QUANTITY ( J ) , 1 ) ;
4934: oe_debug_pub.add( 'SUB ORDERED_QTY_AVAILABLE_DATE :' || P_ATP_REC.SHIP_DATE ( J ) , 1 ) ;
4935: oe_debug_pub.add( 'SUB QTY_ON_AVAILABLE_DATE :' || P_ATP_REC.AVAILABLE_QUANTITY ( J ) , 1 ) ;
4936: END IF;
4937:
4938: --g_atp_tbl(atp_count).request_item_id
4931: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
4932:
4933: oe_debug_pub.add( 'SUB QTY_ON_REQUEST_DATE :'|| P_ATP_REC.REQUESTED_DATE_QUANTITY ( J ) , 1 ) ;
4934: oe_debug_pub.add( 'SUB ORDERED_QTY_AVAILABLE_DATE :' || P_ATP_REC.SHIP_DATE ( J ) , 1 ) ;
4935: oe_debug_pub.add( 'SUB QTY_ON_AVAILABLE_DATE :' || P_ATP_REC.AVAILABLE_QUANTITY ( J ) , 1 ) ;
4936: END IF;
4937:
4938: --g_atp_tbl(atp_count).request_item_id
4939: -- := p_atp_rec.request_item_id(J);
4993: OE_SCH_CONC_REQUESTS.g_recorded :='Y';
4994: END IF;
4995:
4996: IF l_debug_level > 0 THEN
4997: oe_debug_pub.add( 'ERROR FROM MRP: ' || P_ATP_REC.ERROR_CODE ( J ) , 1 ) ;
4998: END IF;
4999: IF p_atp_rec.error_code(J) = 80 THEN
5000:
5001: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_SOURCE');
5003:
5004: ELSE
5005:
5006: IF l_debug_level > 0 THEN
5007: oe_debug_pub.add( 'SCHEDULING FAILED' , 1 ) ;
5008: END IF;
5009: IF l_debug_level > 0 THEN
5010: oe_debug_pub.add( P_ATP_REC.ERROR_CODE ( J ) , 1 ) ;
5011: END IF;
5006: IF l_debug_level > 0 THEN
5007: oe_debug_pub.add( 'SCHEDULING FAILED' , 1 ) ;
5008: END IF;
5009: IF l_debug_level > 0 THEN
5010: oe_debug_pub.add( P_ATP_REC.ERROR_CODE ( J ) , 1 ) ;
5011: END IF;
5012:
5013: OE_MSG_PUB.set_msg_context(
5014: p_entity_code => 'LINE'
5062: -- of setting the message in this scenario.
5063: Null;
5064: ELSE
5065: IF l_debug_level > 0 THEN
5066: oe_debug_pub.add( 'ADDING MESSAGE TO THE STACK' , 1 ) ;
5067: END IF;
5068: -- 4558018
5069: IF p_atp_rec.Ship_Date(J) IS NOT NULL THEN
5070: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_FAILED_WITH_DATE');
5079: END IF;
5080: END IF; -- 80
5081:
5082: IF l_debug_level > 0 THEN
5083: oe_debug_pub.add( 'SETTING ERROR' , 1 ) ;
5084: END IF;
5085: x_return_status := FND_API.G_RET_STS_ERROR;
5086:
5087:
5088:
5089: ELSE
5090:
5091: IF l_debug_level > 0 THEN
5092: oe_debug_pub.add( 'LOADING ATP RECORD' , 1 ) ;
5093: oe_debug_pub.add( P_ATP_REC.SOURCE_ORGANIZATION_ID ( 1 ) , 1 ) ;
5094:
5095: oe_debug_pub.add( 'ERROR CODE : ' || P_ATP_REC.ERROR_CODE ( J ) , 1 ) ;
5096: END IF;
5089: ELSE
5090:
5091: IF l_debug_level > 0 THEN
5092: oe_debug_pub.add( 'LOADING ATP RECORD' , 1 ) ;
5093: oe_debug_pub.add( P_ATP_REC.SOURCE_ORGANIZATION_ID ( 1 ) , 1 ) ;
5094:
5095: oe_debug_pub.add( 'ERROR CODE : ' || P_ATP_REC.ERROR_CODE ( J ) , 1 ) ;
5096: END IF;
5097: -- Muti org changes.
5091: IF l_debug_level > 0 THEN
5092: oe_debug_pub.add( 'LOADING ATP RECORD' , 1 ) ;
5093: oe_debug_pub.add( P_ATP_REC.SOURCE_ORGANIZATION_ID ( 1 ) , 1 ) ;
5094:
5095: oe_debug_pub.add( 'ERROR CODE : ' || P_ATP_REC.ERROR_CODE ( J ) , 1 ) ;
5096: END IF;
5097: -- Muti org changes.
5098: IF (p_atp_rec.error_code(J) <> -99 ) THEN
5099:
5097: -- Muti org changes.
5098: IF (p_atp_rec.error_code(J) <> -99 ) THEN
5099:
5100: IF l_debug_level > 0 THEN
5101: oe_debug_pub.add( '3. ERROR CODE : ' || P_ATP_REC.ERROR_CODE ( J ) , 1 ) ;
5102: oe_debug_pub.add( '3. J : ' || J , 3 ) ;
5103: oe_debug_pub.add( '3. IDENTIFIER : ' || P_ATP_REC.IDENTIFIER ( J ) , 1 ) ;
5104: oe_debug_pub.add( '3. ITEM : ' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
5105: END IF;
5098: IF (p_atp_rec.error_code(J) <> -99 ) THEN
5099:
5100: IF l_debug_level > 0 THEN
5101: oe_debug_pub.add( '3. ERROR CODE : ' || P_ATP_REC.ERROR_CODE ( J ) , 1 ) ;
5102: oe_debug_pub.add( '3. J : ' || J , 3 ) ;
5103: oe_debug_pub.add( '3. IDENTIFIER : ' || P_ATP_REC.IDENTIFIER ( J ) , 1 ) ;
5104: oe_debug_pub.add( '3. ITEM : ' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
5105: END IF;
5106:
5099:
5100: IF l_debug_level > 0 THEN
5101: oe_debug_pub.add( '3. ERROR CODE : ' || P_ATP_REC.ERROR_CODE ( J ) , 1 ) ;
5102: oe_debug_pub.add( '3. J : ' || J , 3 ) ;
5103: oe_debug_pub.add( '3. IDENTIFIER : ' || P_ATP_REC.IDENTIFIER ( J ) , 1 ) ;
5104: oe_debug_pub.add( '3. ITEM : ' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
5105: END IF;
5106:
5107: IF l_debug_level > 0 THEN
5100: IF l_debug_level > 0 THEN
5101: oe_debug_pub.add( '3. ERROR CODE : ' || P_ATP_REC.ERROR_CODE ( J ) , 1 ) ;
5102: oe_debug_pub.add( '3. J : ' || J , 3 ) ;
5103: oe_debug_pub.add( '3. IDENTIFIER : ' || P_ATP_REC.IDENTIFIER ( J ) , 1 ) ;
5104: oe_debug_pub.add( '3. ITEM : ' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
5105: END IF;
5106:
5107: IF l_debug_level > 0 THEN
5108: oe_debug_pub.add( '3.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5104: oe_debug_pub.add( '3. ITEM : ' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
5105: END IF;
5106:
5107: IF l_debug_level > 0 THEN
5108: oe_debug_pub.add( '3.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5109: oe_debug_pub.add( '3.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
5110: oe_debug_pub.add( '3.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5111: oe_debug_pub.add( '3.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5112: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5105: END IF;
5106:
5107: IF l_debug_level > 0 THEN
5108: oe_debug_pub.add( '3.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5109: oe_debug_pub.add( '3.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
5110: oe_debug_pub.add( '3.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5111: oe_debug_pub.add( '3.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5112: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5113: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5106:
5107: IF l_debug_level > 0 THEN
5108: oe_debug_pub.add( '3.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5109: oe_debug_pub.add( '3.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
5110: oe_debug_pub.add( '3.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5111: oe_debug_pub.add( '3.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5112: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5113: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5114: oe_debug_pub.add( '3.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 1 ) ;
5107: IF l_debug_level > 0 THEN
5108: oe_debug_pub.add( '3.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5109: oe_debug_pub.add( '3.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
5110: oe_debug_pub.add( '3.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5111: oe_debug_pub.add( '3.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5112: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5113: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5114: oe_debug_pub.add( '3.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 1 ) ;
5115: oe_debug_pub.add( '3.GROUP ARRIVAL DATE :' || P_ATP_REC.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
5108: oe_debug_pub.add( '3.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5109: oe_debug_pub.add( '3.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
5110: oe_debug_pub.add( '3.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5111: oe_debug_pub.add( '3.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5112: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5113: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5114: oe_debug_pub.add( '3.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 1 ) ;
5115: oe_debug_pub.add( '3.GROUP ARRIVAL DATE :' || P_ATP_REC.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
5116: END IF;
5109: oe_debug_pub.add( '3.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
5110: oe_debug_pub.add( '3.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5111: oe_debug_pub.add( '3.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5112: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5113: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5114: oe_debug_pub.add( '3.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 1 ) ;
5115: oe_debug_pub.add( '3.GROUP ARRIVAL DATE :' || P_ATP_REC.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
5116: END IF;
5117:
5110: oe_debug_pub.add( '3.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5111: oe_debug_pub.add( '3.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5112: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5113: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5114: oe_debug_pub.add( '3.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 1 ) ;
5115: oe_debug_pub.add( '3.GROUP ARRIVAL DATE :' || P_ATP_REC.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
5116: END IF;
5117:
5118: IF l_sch_action = OESCH_ACT_ATP_CHECK THEN
5111: oe_debug_pub.add( '3.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5112: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5113: oe_debug_pub.add( '3.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5114: oe_debug_pub.add( '3.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 1 ) ;
5115: oe_debug_pub.add( '3.GROUP ARRIVAL DATE :' || P_ATP_REC.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
5116: END IF;
5117:
5118: IF l_sch_action = OESCH_ACT_ATP_CHECK THEN
5119:
5129: and lookup_code = p_atp_rec.error_code(J) ;
5130:
5131: g_atp_tbl(atp_count).error_message := l_explanation;
5132: IF l_debug_level > 0 THEN
5133: oe_debug_pub.add( 'EXPLANATION IS : ' || L_EXPLANATION , 1 ) ;
5134: END IF;
5135:
5136: /* IF p_atp_rec.error_code(J) = 150 THEN -- to fix bug 1880166.
5137: OE_MSG_PUB.add_text(l_explanation);
5211: IF p_atp_rec.inventory_item_id(J) <> p_x_line_rec.inventory_item_id
5212: THEN
5213:
5214: IF l_debug_level > 0 THEN
5215: oe_debug_pub.add( 'SUBSTITUTION OCCURED' , 1 ) ;
5216: oe_debug_pub.add( 'SUB ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
5217: oe_debug_pub.add( 'ORIG ITEM :' || P_ATP_REC.REQUEST_ITEM_ID ( J ) , 1 ) ;
5218: oe_debug_pub.add( 'ORIG NAME :' || P_ATP_REC.REQUEST_ITEM_NAME ( J ) , 1 ) ;
5219: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
5212: THEN
5213:
5214: IF l_debug_level > 0 THEN
5215: oe_debug_pub.add( 'SUBSTITUTION OCCURED' , 1 ) ;
5216: oe_debug_pub.add( 'SUB ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
5217: oe_debug_pub.add( 'ORIG ITEM :' || P_ATP_REC.REQUEST_ITEM_ID ( J ) , 1 ) ;
5218: oe_debug_pub.add( 'ORIG NAME :' || P_ATP_REC.REQUEST_ITEM_NAME ( J ) , 1 ) ;
5219: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
5220: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5213:
5214: IF l_debug_level > 0 THEN
5215: oe_debug_pub.add( 'SUBSTITUTION OCCURED' , 1 ) ;
5216: oe_debug_pub.add( 'SUB ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
5217: oe_debug_pub.add( 'ORIG ITEM :' || P_ATP_REC.REQUEST_ITEM_ID ( J ) , 1 ) ;
5218: oe_debug_pub.add( 'ORIG NAME :' || P_ATP_REC.REQUEST_ITEM_NAME ( J ) , 1 ) ;
5219: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
5220: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5221: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5214: IF l_debug_level > 0 THEN
5215: oe_debug_pub.add( 'SUBSTITUTION OCCURED' , 1 ) ;
5216: oe_debug_pub.add( 'SUB ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
5217: oe_debug_pub.add( 'ORIG ITEM :' || P_ATP_REC.REQUEST_ITEM_ID ( J ) , 1 ) ;
5218: oe_debug_pub.add( 'ORIG NAME :' || P_ATP_REC.REQUEST_ITEM_NAME ( J ) , 1 ) ;
5219: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
5220: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5221: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5222:
5215: oe_debug_pub.add( 'SUBSTITUTION OCCURED' , 1 ) ;
5216: oe_debug_pub.add( 'SUB ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
5217: oe_debug_pub.add( 'ORIG ITEM :' || P_ATP_REC.REQUEST_ITEM_ID ( J ) , 1 ) ;
5218: oe_debug_pub.add( 'ORIG NAME :' || P_ATP_REC.REQUEST_ITEM_NAME ( J ) , 1 ) ;
5219: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
5220: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5221: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5222:
5223: oe_debug_pub.add( 'SUB QTY_ON_REQUEST_DATE :'|| P_ATP_REC.REQUESTED_DATE_QUANTITY ( J ) , 1 ) ;
5216: oe_debug_pub.add( 'SUB ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
5217: oe_debug_pub.add( 'ORIG ITEM :' || P_ATP_REC.REQUEST_ITEM_ID ( J ) , 1 ) ;
5218: oe_debug_pub.add( 'ORIG NAME :' || P_ATP_REC.REQUEST_ITEM_NAME ( J ) , 1 ) ;
5219: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
5220: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5221: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5222:
5223: oe_debug_pub.add( 'SUB QTY_ON_REQUEST_DATE :'|| P_ATP_REC.REQUESTED_DATE_QUANTITY ( J ) , 1 ) ;
5224: oe_debug_pub.add( 'SUB ORDERED_QTY_AVAILABLE_DATE :' || P_ATP_REC.SHIP_DATE ( J ) , 1 ) ;
5217: oe_debug_pub.add( 'ORIG ITEM :' || P_ATP_REC.REQUEST_ITEM_ID ( J ) , 1 ) ;
5218: oe_debug_pub.add( 'ORIG NAME :' || P_ATP_REC.REQUEST_ITEM_NAME ( J ) , 1 ) ;
5219: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
5220: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5221: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5222:
5223: oe_debug_pub.add( 'SUB QTY_ON_REQUEST_DATE :'|| P_ATP_REC.REQUESTED_DATE_QUANTITY ( J ) , 1 ) ;
5224: oe_debug_pub.add( 'SUB ORDERED_QTY_AVAILABLE_DATE :' || P_ATP_REC.SHIP_DATE ( J ) , 1 ) ;
5225: oe_debug_pub.add( 'SUB QTY_ON_AVAILABLE_DATE :' || P_ATP_REC.AVAILABLE_QUANTITY ( J ) , 1 ) ;
5219: oe_debug_pub.add( 'ORIG REQ_ITEM_REQ_DATE_QTY :'|| P_ATP_REC.REQ_ITEM_REQ_DATE_QTY ( J ) , 1 ) ;
5220: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5221: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5222:
5223: oe_debug_pub.add( 'SUB QTY_ON_REQUEST_DATE :'|| P_ATP_REC.REQUESTED_DATE_QUANTITY ( J ) , 1 ) ;
5224: oe_debug_pub.add( 'SUB ORDERED_QTY_AVAILABLE_DATE :' || P_ATP_REC.SHIP_DATE ( J ) , 1 ) ;
5225: oe_debug_pub.add( 'SUB QTY_ON_AVAILABLE_DATE :' || P_ATP_REC.AVAILABLE_QUANTITY ( J ) , 1 ) ;
5226: END IF;
5227:
5220: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE_QTY :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5221: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5222:
5223: oe_debug_pub.add( 'SUB QTY_ON_REQUEST_DATE :'|| P_ATP_REC.REQUESTED_DATE_QUANTITY ( J ) , 1 ) ;
5224: oe_debug_pub.add( 'SUB ORDERED_QTY_AVAILABLE_DATE :' || P_ATP_REC.SHIP_DATE ( J ) , 1 ) ;
5225: oe_debug_pub.add( 'SUB QTY_ON_AVAILABLE_DATE :' || P_ATP_REC.AVAILABLE_QUANTITY ( J ) , 1 ) ;
5226: END IF;
5227:
5228:
5221: oe_debug_pub.add( 'ORIG REQ_ITEM_AVAILABLE_DATE :' || P_ATP_REC.REQ_ITEM_AVAILABLE_DATE ( J ) , 1 ) ;
5222:
5223: oe_debug_pub.add( 'SUB QTY_ON_REQUEST_DATE :'|| P_ATP_REC.REQUESTED_DATE_QUANTITY ( J ) , 1 ) ;
5224: oe_debug_pub.add( 'SUB ORDERED_QTY_AVAILABLE_DATE :' || P_ATP_REC.SHIP_DATE ( J ) , 1 ) ;
5225: oe_debug_pub.add( 'SUB QTY_ON_AVAILABLE_DATE :' || P_ATP_REC.AVAILABLE_QUANTITY ( J ) , 1 ) ;
5226: END IF;
5227:
5228:
5229: --g_atp_tbl(atp_count).request_item_id
5290: ,p_source_document_line_id => p_x_line_rec.source_document_line_id );
5291: -- code fix for 3502139
5292: --8731703 : Code moved from Call_MRP_ATP
5293: IF l_debug_level > 0 THEN
5294: oe_debug_pub.add( '6378240 : inserted the line_id into temp table '||p_x_line_rec.line_id ||' ' ||p_x_line_rec.schedule_action_code);
5295: END IF;
5296: BEGIN
5297: insert into oe_schedule_lines_temp
5298: (LINE_ID ,
5300: values(p_x_line_rec.line_id,p_x_line_rec.schedule_action_code);
5301: EXCEPTION
5302: WHEN OTHERS THEN
5303: IF l_debug_level > 0 THEN
5304: oe_debug_pub.add( '6378240 : INSERT ERROR ');
5305: END IF;
5306: END;
5307: -- 8731703 end
5308:
5318: l_order_date_type_code,
5319: l_return_status );
5320:
5321: IF l_debug_level > 0 THEN
5322: oe_debug_pub.add( 'Back from check_split_needed, status:' || l_return_status , 1 ) ;
5323: END IF;
5324:
5325: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5329: END IF;
5330:
5331: IF l_split_line_rec.line_id is not null AND l_split_line_rec.line_id <> FND_API.G_MISS_NUM THEN
5332: IF l_debug_level > 0 THEN
5333: oe_debug_pub.add( 'Auto split has happened : new qty : ' || l_split_line_rec.ordered_quantity , 1 ) ;
5334: oe_debug_pub.add( 'Auto split has happened : RSV qty : ' || l_split_line_rec.reserved_quantity , 1 ) ;
5335: oe_debug_pub.add( 'Auto split has happened : RSV qty2 : ' || l_split_line_rec.reserved_quantity2 , 1 ) ;
5336: oe_debug_pub.add( 'original qty : ' || p_x_line_rec.ordered_quantity , 1 ) ;
5337: oe_debug_pub.add( 'original RSV qty : ' || p_x_line_rec.reserved_quantity , 1 ) ;
5330:
5331: IF l_split_line_rec.line_id is not null AND l_split_line_rec.line_id <> FND_API.G_MISS_NUM THEN
5332: IF l_debug_level > 0 THEN
5333: oe_debug_pub.add( 'Auto split has happened : new qty : ' || l_split_line_rec.ordered_quantity , 1 ) ;
5334: oe_debug_pub.add( 'Auto split has happened : RSV qty : ' || l_split_line_rec.reserved_quantity , 1 ) ;
5335: oe_debug_pub.add( 'Auto split has happened : RSV qty2 : ' || l_split_line_rec.reserved_quantity2 , 1 ) ;
5336: oe_debug_pub.add( 'original qty : ' || p_x_line_rec.ordered_quantity , 1 ) ;
5337: oe_debug_pub.add( 'original RSV qty : ' || p_x_line_rec.reserved_quantity , 1 ) ;
5338: oe_debug_pub.add( 'original RSV qty2 : ' || p_x_line_rec.reserved_quantity2 , 1 ) ;
5331: IF l_split_line_rec.line_id is not null AND l_split_line_rec.line_id <> FND_API.G_MISS_NUM THEN
5332: IF l_debug_level > 0 THEN
5333: oe_debug_pub.add( 'Auto split has happened : new qty : ' || l_split_line_rec.ordered_quantity , 1 ) ;
5334: oe_debug_pub.add( 'Auto split has happened : RSV qty : ' || l_split_line_rec.reserved_quantity , 1 ) ;
5335: oe_debug_pub.add( 'Auto split has happened : RSV qty2 : ' || l_split_line_rec.reserved_quantity2 , 1 ) ;
5336: oe_debug_pub.add( 'original qty : ' || p_x_line_rec.ordered_quantity , 1 ) ;
5337: oe_debug_pub.add( 'original RSV qty : ' || p_x_line_rec.reserved_quantity , 1 ) ;
5338: oe_debug_pub.add( 'original RSV qty2 : ' || p_x_line_rec.reserved_quantity2 , 1 ) ;
5339: END IF;
5332: IF l_debug_level > 0 THEN
5333: oe_debug_pub.add( 'Auto split has happened : new qty : ' || l_split_line_rec.ordered_quantity , 1 ) ;
5334: oe_debug_pub.add( 'Auto split has happened : RSV qty : ' || l_split_line_rec.reserved_quantity , 1 ) ;
5335: oe_debug_pub.add( 'Auto split has happened : RSV qty2 : ' || l_split_line_rec.reserved_quantity2 , 1 ) ;
5336: oe_debug_pub.add( 'original qty : ' || p_x_line_rec.ordered_quantity , 1 ) ;
5337: oe_debug_pub.add( 'original RSV qty : ' || p_x_line_rec.reserved_quantity , 1 ) ;
5338: oe_debug_pub.add( 'original RSV qty2 : ' || p_x_line_rec.reserved_quantity2 , 1 ) ;
5339: END IF;
5340:
5333: oe_debug_pub.add( 'Auto split has happened : new qty : ' || l_split_line_rec.ordered_quantity , 1 ) ;
5334: oe_debug_pub.add( 'Auto split has happened : RSV qty : ' || l_split_line_rec.reserved_quantity , 1 ) ;
5335: oe_debug_pub.add( 'Auto split has happened : RSV qty2 : ' || l_split_line_rec.reserved_quantity2 , 1 ) ;
5336: oe_debug_pub.add( 'original qty : ' || p_x_line_rec.ordered_quantity , 1 ) ;
5337: oe_debug_pub.add( 'original RSV qty : ' || p_x_line_rec.reserved_quantity , 1 ) ;
5338: oe_debug_pub.add( 'original RSV qty2 : ' || p_x_line_rec.reserved_quantity2 , 1 ) ;
5339: END IF;
5340:
5341: IF p_x_line_rec.reserved_quantity is not null AND p_x_line_rec.reserved_quantity <> FND_API.G_MISS_NUM
5334: oe_debug_pub.add( 'Auto split has happened : RSV qty : ' || l_split_line_rec.reserved_quantity , 1 ) ;
5335: oe_debug_pub.add( 'Auto split has happened : RSV qty2 : ' || l_split_line_rec.reserved_quantity2 , 1 ) ;
5336: oe_debug_pub.add( 'original qty : ' || p_x_line_rec.ordered_quantity , 1 ) ;
5337: oe_debug_pub.add( 'original RSV qty : ' || p_x_line_rec.reserved_quantity , 1 ) ;
5338: oe_debug_pub.add( 'original RSV qty2 : ' || p_x_line_rec.reserved_quantity2 , 1 ) ;
5339: END IF;
5340:
5341: IF p_x_line_rec.reserved_quantity is not null AND p_x_line_rec.reserved_quantity <> FND_API.G_MISS_NUM
5342: AND p_x_line_rec.reserved_quantity > l_split_line_rec.ordered_quantity
5343: THEN
5344: p_x_line_rec.reserved_quantity := l_split_line_rec.ordered_quantity ;
5345: p_x_line_rec.reserved_quantity2 := l_split_line_rec.ordered_quantity2 ;
5346: IF l_debug_level > 0 THEN
5347: oe_debug_pub.add( 'new RSV qty : ' || p_x_line_rec.reserved_quantity , 1 ) ;
5348: oe_debug_pub.add( 'new RSV qty2 : ' || p_x_line_rec.reserved_quantity2 , 1 ) ;
5349: END IF;
5350: END IF;
5351:
5344: p_x_line_rec.reserved_quantity := l_split_line_rec.ordered_quantity ;
5345: p_x_line_rec.reserved_quantity2 := l_split_line_rec.ordered_quantity2 ;
5346: IF l_debug_level > 0 THEN
5347: oe_debug_pub.add( 'new RSV qty : ' || p_x_line_rec.reserved_quantity , 1 ) ;
5348: oe_debug_pub.add( 'new RSV qty2 : ' || p_x_line_rec.reserved_quantity2 , 1 ) ;
5349: END IF;
5350: END IF;
5351:
5352: l_split_line_rec.reserved_quantity := p_x_line_rec.reserved_quantity ;
5362: RETURN;
5363: END IF;
5364: ELSE
5365: IF l_debug_level > 0 THEN
5366: oe_debug_pub.add( 'Not eligible for scheduling split' , 1 ) ;
5367: END IF;
5368: END IF;
5369: --Scheduling Enhancements ER 2736896
5370:
5371: IF l_sch_action = OESCH_ACT_DEMAND
5372: OR l_sch_action = OESCH_ACT_SCHEDULE
5373: THEN
5374: IF l_debug_level > 0 THEN
5375: oe_debug_pub.add( 'LOADING RESULTS OF SCHEDULE' , 1 ) ;
5376: oe_debug_pub.add( '1.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5377: oe_debug_pub.add( '1.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
5378: oe_debug_pub.add( '1.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5379: oe_debug_pub.add( '1.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5372: OR l_sch_action = OESCH_ACT_SCHEDULE
5373: THEN
5374: IF l_debug_level > 0 THEN
5375: oe_debug_pub.add( 'LOADING RESULTS OF SCHEDULE' , 1 ) ;
5376: oe_debug_pub.add( '1.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5377: oe_debug_pub.add( '1.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
5378: oe_debug_pub.add( '1.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5379: oe_debug_pub.add( '1.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5380: oe_debug_pub.add( '1.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5373: THEN
5374: IF l_debug_level > 0 THEN
5375: oe_debug_pub.add( 'LOADING RESULTS OF SCHEDULE' , 1 ) ;
5376: oe_debug_pub.add( '1.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5377: oe_debug_pub.add( '1.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
5378: oe_debug_pub.add( '1.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5379: oe_debug_pub.add( '1.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5380: oe_debug_pub.add( '1.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5381: oe_debug_pub.add( '1.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 1 ) ;
5374: IF l_debug_level > 0 THEN
5375: oe_debug_pub.add( 'LOADING RESULTS OF SCHEDULE' , 1 ) ;
5376: oe_debug_pub.add( '1.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5377: oe_debug_pub.add( '1.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
5378: oe_debug_pub.add( '1.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5379: oe_debug_pub.add( '1.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5380: oe_debug_pub.add( '1.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5381: oe_debug_pub.add( '1.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 1 ) ;
5382: oe_debug_pub.add( '1.GROUP ARRIVAL DATE :' || P_ATP_REC.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
5375: oe_debug_pub.add( 'LOADING RESULTS OF SCHEDULE' , 1 ) ;
5376: oe_debug_pub.add( '1.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5377: oe_debug_pub.add( '1.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
5378: oe_debug_pub.add( '1.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5379: oe_debug_pub.add( '1.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5380: oe_debug_pub.add( '1.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5381: oe_debug_pub.add( '1.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 1 ) ;
5382: oe_debug_pub.add( '1.GROUP ARRIVAL DATE :' || P_ATP_REC.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
5383: END IF;
5376: oe_debug_pub.add( '1.REQUEST SHIP DATE :' || TO_CHAR ( P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5377: oe_debug_pub.add( '1.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
5378: oe_debug_pub.add( '1.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5379: oe_debug_pub.add( '1.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5380: oe_debug_pub.add( '1.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5381: oe_debug_pub.add( '1.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 1 ) ;
5382: oe_debug_pub.add( '1.GROUP ARRIVAL DATE :' || P_ATP_REC.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
5383: END IF;
5384:
5377: oe_debug_pub.add( '1.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 1 ) ;
5378: oe_debug_pub.add( '1.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5379: oe_debug_pub.add( '1.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5380: oe_debug_pub.add( '1.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5381: oe_debug_pub.add( '1.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 1 ) ;
5382: oe_debug_pub.add( '1.GROUP ARRIVAL DATE :' || P_ATP_REC.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
5383: END IF;
5384:
5385: l_old_ship_from_org_id := p_x_line_rec.ship_from_org_id; -- Added for ER 6110708
5378: oe_debug_pub.add( '1.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5379: oe_debug_pub.add( '1.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 1 ) ;
5380: oe_debug_pub.add( '1.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 1 ) ;
5381: oe_debug_pub.add( '1.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 1 ) ;
5382: oe_debug_pub.add( '1.GROUP ARRIVAL DATE :' || P_ATP_REC.GROUP_ARRIVAL_DATE ( J ) , 1 ) ;
5383: END IF;
5384:
5385: l_old_ship_from_org_id := p_x_line_rec.ship_from_org_id; -- Added for ER 6110708
5386:
5393:
5394: IF p_atp_rec.inventory_item_id(J) <> p_x_line_rec.inventory_item_id THEN
5395:
5396: IF l_debug_level > 0 THEN
5397: oe_debug_pub.add( 'SCH: ITEM HAS BEEN SUBSTITUTED' , 1 ) ;
5398: END IF;
5399: IF l_debug_level > 0 THEN
5400: oe_debug_pub.add( 'NEW INVENTORY ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
5401: END IF;
5396: IF l_debug_level > 0 THEN
5397: oe_debug_pub.add( 'SCH: ITEM HAS BEEN SUBSTITUTED' , 1 ) ;
5398: END IF;
5399: IF l_debug_level > 0 THEN
5400: oe_debug_pub.add( 'NEW INVENTORY ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
5401: END IF;
5402:
5403: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ITEM_CHANGE');
5404: FND_MESSAGE.SET_TOKEN('OLDITEM',p_x_line_rec.ordered_item);
5429: := p_x_line_rec.ordered_item;
5430:
5431: END IF;
5432: IF l_debug_level > 0 THEN
5433: oe_debug_pub.add( 'ORIGINAL ITEM :' || P_X_LINE_REC.INVENTORY_ITEM_ID , 2 ) ;
5434: END IF;
5435: IF l_debug_level > 0 THEN
5436: oe_debug_pub.add( 'SUB ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 2 ) ;
5437: END IF;
5432: IF l_debug_level > 0 THEN
5433: oe_debug_pub.add( 'ORIGINAL ITEM :' || P_X_LINE_REC.INVENTORY_ITEM_ID , 2 ) ;
5434: END IF;
5435: IF l_debug_level > 0 THEN
5436: oe_debug_pub.add( 'SUB ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 2 ) ;
5437: END IF;
5438: p_x_line_rec.inventory_item_id
5439: := p_atp_rec.inventory_item_id(J);
5440: p_x_line_rec.item_identifier_type := 'INT';
5494: p_x_line_rec.mfg_lead_time := p_atp_rec.atp_lead_time(J);
5495: p_x_line_rec.schedule_status_code := OESCH_STATUS_SCHEDULED;
5496:
5497: IF l_debug_level > 0 THEN
5498: oe_debug_pub.add( 'BEFORE ATTRIBUTE 05' , 5 ) ;
5499: END IF;
5500:
5501: -- bug fix 1965182/1925326
5502: IF p_atp_rec.attribute_05.COUNT > 0 THEN
5504: IF p_config_exists = 'N' THEN
5505: p_x_line_rec.visible_demand_flag := 'Y';
5506: ELSE
5507: IF l_debug_level > 0 THEN
5508: oe_debug_pub.add( 'INSIDE CONFIG EXISTS' , 3 ) ;
5509: END IF;
5510: END IF;
5511:
5512: ELSIF p_atp_rec.attribute_05(J) = 'N' THEN
5518: IF p_config_exists = 'N' THEN
5519: p_x_line_rec.visible_demand_flag := 'Y';
5520: ELSE
5521: IF l_debug_level > 0 THEN
5522: oe_debug_pub.add( 'CONFIG EXISTS' , 3 ) ;
5523: END IF;
5524: END IF;
5525: END IF;
5526: IF l_debug_level > 0 THEN
5523: END IF;
5524: END IF;
5525: END IF;
5526: IF l_debug_level > 0 THEN
5527: oe_debug_pub.add( 'AFTER ATTRIBUTE 05' , 5 ) ;
5528: END IF;
5529:
5530: -- We had set the ship_set and arrival_set (which are value
5531: -- fields) to the set name values for calling MRP purpose.
5570: IF p_x_line_rec.schedule_ship_date is null
5571: OR p_x_line_rec.schedule_arrival_date is null THEN
5572:
5573: IF l_debug_level > 0 THEN
5574: oe_debug_pub.add( 'SCH: MRP HAS NOT RETURNING VALID SHIP DATE' , 2 ) ;
5575: oe_debug_pub.add( 'SCH: Shedule ship date ' ||
5576: p_x_line_rec.schedule_ship_date , 2 ) ;
5577: oe_debug_pub.add( 'SCH: Schedule Arr Date' ||
5578: p_x_line_rec.schedule_arrival_date , 2 ) ;
5571: OR p_x_line_rec.schedule_arrival_date is null THEN
5572:
5573: IF l_debug_level > 0 THEN
5574: oe_debug_pub.add( 'SCH: MRP HAS NOT RETURNING VALID SHIP DATE' , 2 ) ;
5575: oe_debug_pub.add( 'SCH: Shedule ship date ' ||
5576: p_x_line_rec.schedule_ship_date , 2 ) ;
5577: oe_debug_pub.add( 'SCH: Schedule Arr Date' ||
5578: p_x_line_rec.schedule_arrival_date , 2 ) ;
5579: END IF;
5573: IF l_debug_level > 0 THEN
5574: oe_debug_pub.add( 'SCH: MRP HAS NOT RETURNING VALID SHIP DATE' , 2 ) ;
5575: oe_debug_pub.add( 'SCH: Shedule ship date ' ||
5576: p_x_line_rec.schedule_ship_date , 2 ) ;
5577: oe_debug_pub.add( 'SCH: Schedule Arr Date' ||
5578: p_x_line_rec.schedule_arrival_date , 2 ) ;
5579: END IF;
5580: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATP_ERROR');
5581: OE_MSG_PUB.Add;
5585: ELSIF l_sch_action = OESCH_ACT_REDEMAND OR
5586: l_sch_action = OESCH_ACT_RESCHEDULE
5587: THEN
5588: IF l_debug_level > 0 THEN
5589: oe_debug_pub.add( 'LOAD THE RESULT OF RESCHEDULE' , 3 ) ;
5590: oe_debug_pub.add( '2.REQUEST SHIP DATE :' || P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 3 ) ;
5591: oe_debug_pub.add( '2.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 3 ) ;
5592: oe_debug_pub.add( '2.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5593: oe_debug_pub.add( '2.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5586: l_sch_action = OESCH_ACT_RESCHEDULE
5587: THEN
5588: IF l_debug_level > 0 THEN
5589: oe_debug_pub.add( 'LOAD THE RESULT OF RESCHEDULE' , 3 ) ;
5590: oe_debug_pub.add( '2.REQUEST SHIP DATE :' || P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 3 ) ;
5591: oe_debug_pub.add( '2.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 3 ) ;
5592: oe_debug_pub.add( '2.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5593: oe_debug_pub.add( '2.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5594: oe_debug_pub.add( '2.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 3 ) ;
5587: THEN
5588: IF l_debug_level > 0 THEN
5589: oe_debug_pub.add( 'LOAD THE RESULT OF RESCHEDULE' , 3 ) ;
5590: oe_debug_pub.add( '2.REQUEST SHIP DATE :' || P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 3 ) ;
5591: oe_debug_pub.add( '2.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 3 ) ;
5592: oe_debug_pub.add( '2.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5593: oe_debug_pub.add( '2.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5594: oe_debug_pub.add( '2.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 3 ) ;
5595: oe_debug_pub.add( '2.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 3 ) ;
5588: IF l_debug_level > 0 THEN
5589: oe_debug_pub.add( 'LOAD THE RESULT OF RESCHEDULE' , 3 ) ;
5590: oe_debug_pub.add( '2.REQUEST SHIP DATE :' || P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 3 ) ;
5591: oe_debug_pub.add( '2.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 3 ) ;
5592: oe_debug_pub.add( '2.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5593: oe_debug_pub.add( '2.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5594: oe_debug_pub.add( '2.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 3 ) ;
5595: oe_debug_pub.add( '2.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 3 ) ;
5596: oe_debug_pub.add( '2.GROUP ARRIVAL DATE :' || P_ATP_REC.GROUP_ARRIVAL_DATE ( J ) , 3 ) ;
5589: oe_debug_pub.add( 'LOAD THE RESULT OF RESCHEDULE' , 3 ) ;
5590: oe_debug_pub.add( '2.REQUEST SHIP DATE :' || P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 3 ) ;
5591: oe_debug_pub.add( '2.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 3 ) ;
5592: oe_debug_pub.add( '2.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5593: oe_debug_pub.add( '2.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5594: oe_debug_pub.add( '2.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 3 ) ;
5595: oe_debug_pub.add( '2.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 3 ) ;
5596: oe_debug_pub.add( '2.GROUP ARRIVAL DATE :' || P_ATP_REC.GROUP_ARRIVAL_DATE ( J ) , 3 ) ;
5597: END IF;
5590: oe_debug_pub.add( '2.REQUEST SHIP DATE :' || P_ATP_REC.REQUESTED_SHIP_DATE ( J ) , 3 ) ;
5591: oe_debug_pub.add( '2.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 3 ) ;
5592: oe_debug_pub.add( '2.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5593: oe_debug_pub.add( '2.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5594: oe_debug_pub.add( '2.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 3 ) ;
5595: oe_debug_pub.add( '2.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 3 ) ;
5596: oe_debug_pub.add( '2.GROUP ARRIVAL DATE :' || P_ATP_REC.GROUP_ARRIVAL_DATE ( J ) , 3 ) ;
5597: END IF;
5598:
5591: oe_debug_pub.add( '2.REQUEST ARRIVAL DATE :' || P_ATP_REC.REQUESTED_ARRIVAL_DATE ( J ) , 3 ) ;
5592: oe_debug_pub.add( '2.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5593: oe_debug_pub.add( '2.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5594: oe_debug_pub.add( '2.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 3 ) ;
5595: oe_debug_pub.add( '2.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 3 ) ;
5596: oe_debug_pub.add( '2.GROUP ARRIVAL DATE :' || P_ATP_REC.GROUP_ARRIVAL_DATE ( J ) , 3 ) ;
5597: END IF;
5598:
5599: l_old_ship_from_org_id := p_x_line_rec.ship_from_org_id; -- Added for ER 6110708
5592: oe_debug_pub.add( '2.SHIP DATE :' || TO_CHAR ( P_ATP_REC.SHIP_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5593: oe_debug_pub.add( '2.ARRIVAL DATE :' || TO_CHAR ( P_ATP_REC.ARRIVAL_DATE ( J ) , 'DD-MON-RR:HH:MI:SS' ) , 3 ) ;
5594: oe_debug_pub.add( '2.LEAD TIME :' || P_ATP_REC.DELIVERY_LEAD_TIME ( J ) , 3 ) ;
5595: oe_debug_pub.add( '2.GROUP SHIP DATE :' || P_ATP_REC.GROUP_SHIP_DATE ( J ) , 3 ) ;
5596: oe_debug_pub.add( '2.GROUP ARRIVAL DATE :' || P_ATP_REC.GROUP_ARRIVAL_DATE ( J ) , 3 ) ;
5597: END IF;
5598:
5599: l_old_ship_from_org_id := p_x_line_rec.ship_from_org_id; -- Added for ER 6110708
5600:
5609: IF p_atp_rec.inventory_item_id(J) <> p_x_line_rec.inventory_item_id
5610: THEN
5611:
5612: IF l_debug_level > 0 THEN
5613: oe_debug_pub.add( 'RSCH: ITEM HAS BEEN SUBSTITUTED' , 1 ) ;
5614: oe_debug_pub.add( 'RSCH NEW INVENTORY ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
5615: END IF;
5616:
5617: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ITEM_CHANGE');
5610: THEN
5611:
5612: IF l_debug_level > 0 THEN
5613: oe_debug_pub.add( 'RSCH: ITEM HAS BEEN SUBSTITUTED' , 1 ) ;
5614: oe_debug_pub.add( 'RSCH NEW INVENTORY ITEM :' || P_ATP_REC.INVENTORY_ITEM_ID ( J ) , 1 ) ;
5615: END IF;
5616:
5617: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ITEM_CHANGE');
5618: FND_MESSAGE.SET_TOKEN('OLDITEM',p_x_line_rec.ordered_item);
5711: -- Status assignment will be done after promise date setup call
5712: --p_x_line_rec.schedule_status_code := OESCH_STATUS_SCHEDULED;
5713:
5714: IF l_debug_level > 0 THEN
5715: oe_debug_pub.add( 'RSCH BEFORE ATTRIBUTE 05' , 5 ) ;
5716: END IF;
5717: -- bug fix 1965182/1925326
5718: IF p_atp_rec.attribute_05.COUNT > 0 THEN
5719: IF p_atp_rec.attribute_05(J) IS NULL THEN
5720: IF p_config_exists = 'N' THEN
5721: p_x_line_rec.visible_demand_flag := 'Y';
5722: ELSE
5723: IF l_debug_level > 0 THEN
5724: oe_debug_pub.add( 'INSIDE CONFIG EXISTS' , 3 ) ;
5725: END IF;
5726: END IF;
5727:
5728: ELSIF p_atp_rec.attribute_05(J) = 'N' THEN
5734: IF p_config_exists = 'N' THEN
5735: p_x_line_rec.visible_demand_flag := 'Y';
5736: ELSE
5737: IF l_debug_level > 0 THEN
5738: oe_debug_pub.add( 'CONFIG EXISTS' , 3 ) ;
5739: END IF;
5740: END IF;
5741: END IF;
5742: IF l_debug_level > 0 THEN
5739: END IF;
5740: END IF;
5741: END IF;
5742: IF l_debug_level > 0 THEN
5743: oe_debug_pub.add( 'RSCH AFTER ATTRIBUTE 05' , 5 ) ;
5744: END IF;
5745:
5746: IF (p_x_line_rec.ordered_quantity = 0)
5747: THEN
5772:
5773: IF p_x_line_rec.top_model_line_id = p_x_line_rec.line_id THEN
5774:
5775: IF l_debug_level > 0 THEN
5776: oe_debug_pub.add( 'STORE ARRIVAL_DATE ' || P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 2 ) ;
5777: END IF;
5778: l_arrival_date := p_x_line_rec.schedule_arrival_date;
5779:
5780: END IF;
5804: p_x_line_rec.schedule_status_code := OESCH_STATUS_SCHEDULED;
5805: END IF;
5806:
5807: IF l_debug_level > 0 THEN
5808: oe_debug_pub.add( 'RSCH: PROMISE DATE '||p_x_line_rec.promise_date , 2 ) ;
5809: END IF;
5810:
5811:
5812: -- Adding code to trap if mrp is returning success and not
5815: OR p_x_line_rec.schedule_arrival_date is null)
5816: AND p_x_line_rec.ordered_quantity > 0 THEN
5817:
5818: IF l_debug_level > 0 THEN
5819: oe_debug_pub.add( 'RSCH: MRP HAS NOT RETURNING VALID DATE' , 2 ) ;
5820: END IF;
5821: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATP_ERROR');
5822: OE_MSG_PUB.Add;
5823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5825:
5826: ELSIF l_sch_action = OESCH_ACT_UNDEMAND
5827: THEN
5828: IF l_debug_level > 0 THEN
5829: oe_debug_pub.add( 'RR2:Load the results of undemand: '
5830: || P_X_LINE_REC.RE_SOURCE_FLAG , 1 ) ;
5831: END IF;
5832: -- Commented for bug 7692055
5833: -- We will not clear ship_from_org
5836: if p_x_line_rec.ordered_quantity > 0 then
5837: IF p_x_line_rec.re_source_flag='Y' or
5838: p_x_line_rec.re_source_flag is null THEN
5839: IF l_debug_level > 0 THEN
5840: oe_debug_pub.add( 'SETTING SHIP FROM TO NULL' , 1 ) ;
5841: END IF;
5842: p_x_line_rec.ship_from_org_id := null;
5843: END IF;
5844: end if;
5896: -- For details on IR ISO CMS project, please refer to FOL >
5897: -- OM Development > OM GM > 12.1.1 > TDD > IR_ISO_CMS_TDD.doc
5898:
5899: IF l_debug_level > 0 THEN
5900: oe_debug_pub.add(' Source Type for the order line is : '||p_x_line_rec.order_source_id,5);
5901: oe_debug_pub.add(' Line_id : '||p_x_line_rec.line_id,5);
5902: oe_debug_pub.add(' Header_id : '||p_x_line_rec.header_id,5);
5903: oe_debug_pub.add(' Source Document id : '||p_x_line_rec.source_document_id,5);
5904: oe_debug_pub.add(' Src Doc Line_id : '||p_x_line_rec.source_document_line_id,5);
5897: -- OM Development > OM GM > 12.1.1 > TDD > IR_ISO_CMS_TDD.doc
5898:
5899: IF l_debug_level > 0 THEN
5900: oe_debug_pub.add(' Source Type for the order line is : '||p_x_line_rec.order_source_id,5);
5901: oe_debug_pub.add(' Line_id : '||p_x_line_rec.line_id,5);
5902: oe_debug_pub.add(' Header_id : '||p_x_line_rec.header_id,5);
5903: oe_debug_pub.add(' Source Document id : '||p_x_line_rec.source_document_id,5);
5904: oe_debug_pub.add(' Src Doc Line_id : '||p_x_line_rec.source_document_line_id,5);
5905: oe_debug_pub.add(' Schedule Arrival Date : '||p_x_line_rec.schedule_arrival_date,5);
5898:
5899: IF l_debug_level > 0 THEN
5900: oe_debug_pub.add(' Source Type for the order line is : '||p_x_line_rec.order_source_id,5);
5901: oe_debug_pub.add(' Line_id : '||p_x_line_rec.line_id,5);
5902: oe_debug_pub.add(' Header_id : '||p_x_line_rec.header_id,5);
5903: oe_debug_pub.add(' Source Document id : '||p_x_line_rec.source_document_id,5);
5904: oe_debug_pub.add(' Src Doc Line_id : '||p_x_line_rec.source_document_line_id,5);
5905: oe_debug_pub.add(' Schedule Arrival Date : '||p_x_line_rec.schedule_arrival_date,5);
5906: END IF;
5899: IF l_debug_level > 0 THEN
5900: oe_debug_pub.add(' Source Type for the order line is : '||p_x_line_rec.order_source_id,5);
5901: oe_debug_pub.add(' Line_id : '||p_x_line_rec.line_id,5);
5902: oe_debug_pub.add(' Header_id : '||p_x_line_rec.header_id,5);
5903: oe_debug_pub.add(' Source Document id : '||p_x_line_rec.source_document_id,5);
5904: oe_debug_pub.add(' Src Doc Line_id : '||p_x_line_rec.source_document_line_id,5);
5905: oe_debug_pub.add(' Schedule Arrival Date : '||p_x_line_rec.schedule_arrival_date,5);
5906: END IF;
5907:
5900: oe_debug_pub.add(' Source Type for the order line is : '||p_x_line_rec.order_source_id,5);
5901: oe_debug_pub.add(' Line_id : '||p_x_line_rec.line_id,5);
5902: oe_debug_pub.add(' Header_id : '||p_x_line_rec.header_id,5);
5903: oe_debug_pub.add(' Source Document id : '||p_x_line_rec.source_document_id,5);
5904: oe_debug_pub.add(' Src Doc Line_id : '||p_x_line_rec.source_document_line_id,5);
5905: oe_debug_pub.add(' Schedule Arrival Date : '||p_x_line_rec.schedule_arrival_date,5);
5906: END IF;
5907:
5908: IF p_x_line_rec.order_source_id = 10 THEN
5901: oe_debug_pub.add(' Line_id : '||p_x_line_rec.line_id,5);
5902: oe_debug_pub.add(' Header_id : '||p_x_line_rec.header_id,5);
5903: oe_debug_pub.add(' Source Document id : '||p_x_line_rec.source_document_id,5);
5904: oe_debug_pub.add(' Src Doc Line_id : '||p_x_line_rec.source_document_line_id,5);
5905: oe_debug_pub.add(' Schedule Arrival Date : '||p_x_line_rec.schedule_arrival_date,5);
5906: END IF;
5907:
5908: IF p_x_line_rec.order_source_id = 10 THEN
5909: IF NOT OE_Internal_Requisition_Pvt.G_Update_ISO_From_Req
5911: IF FND_PROFILE.VALUE('POR_SYNC_NEEDBYDATE_OM') = 'YES' THEN
5912: -- Modified for IR ISO Tracking bug 7667702
5913:
5914: IF l_debug_level > 0 THEN
5915: oe_debug_pub.add(' Logging G_UPDATE_REQUISITION delayed request for date change',5);
5916: END IF;
5917:
5918: -- Log a delayed request to update the change in Schedule Ship Date to
5919: -- Requisition Line. This request will be logged only if the change is
5948:
5949: ELSE -- Added for IR ISO Tracking bug 7667702
5950: IF NOT OE_Schedule_GRP.G_ISO_Planning_Update THEN
5951: IF l_debug_level > 0 THEN
5952: oe_debug_pub.add(' Need By Date is not allowed to update. Updating MTL_Supply only',5);
5953: END IF;
5954:
5955: OE_SCHEDULE_UTIL.Update_PO(p_x_line_rec.schedule_arrival_date,
5956: p_x_line_rec.source_document_id,
5968: END IF; -- Return Status.
5969: END IF; -- Main If;
5970:
5971: IF l_debug_level > 0 THEN
5972: oe_debug_pub.add( 'VALUE OF THE INDEX ' || J , 1 ) ;
5973: END IF;
5974: IF l_debug_level > 0 THEN
5975: oe_debug_pub.add( 'EXITING LOAD_RESULTS_FROM_REC' || X_RETURN_STATUS , 1 ) ;
5976: END IF;
5971: IF l_debug_level > 0 THEN
5972: oe_debug_pub.add( 'VALUE OF THE INDEX ' || J , 1 ) ;
5973: END IF;
5974: IF l_debug_level > 0 THEN
5975: oe_debug_pub.add( 'EXITING LOAD_RESULTS_FROM_REC' || X_RETURN_STATUS , 1 ) ;
5976: END IF;
5977:
5978: EXCEPTION
5979: WHEN FND_API.G_EXC_ERROR THEN
5986: , 'Load_Results_from_rec'
5987: );
5988: END IF;
5989: IF l_debug_level > 0 THEN
5990: oe_debug_pub.add( 'UNEXPECTED ERROR IN LOAD_RESULTS_FROM_REC' , 1 ) ;
5991: END IF;
5992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5993: END Load_Results_from_rec;
5994:
6025:
6026:
6027: l_return_status VARCHAR2(1); -- Added for IR ISO CMS Project
6028: --
6029: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6030: --
6031: l_raise_error BOOLEAN := FALSE;
6032: BEGIN
6033: IF l_debug_level > 0 THEN
6030: --
6031: l_raise_error BOOLEAN := FALSE;
6032: BEGIN
6033: IF l_debug_level > 0 THEN
6034: oe_debug_pub.add( 'ENTERING LOAD_RESULTS_FROM_TBL' , 1 ) ;
6035: END IF;
6036: x_return_status := FND_API.G_RET_STS_SUCCESS;
6037:
6038: IF l_sch_action is NULL THEN
6039: l_sch_action := p_x_line_tbl(1).schedule_action_code;
6040: END IF;
6041:
6042: IF l_debug_level > 0 THEN
6043: oe_debug_pub.add('-----------------Loading MRP Result From Tbl---------------',1);
6044: oe_debug_pub.add( 'Loading mrp results' , 1 ) ;
6045: oe_debug_pub.add( 'Mrp count is ' || P_ATP_REC.ERROR_CODE.COUNT , 1 ) ;
6046: oe_debug_pub.add( 'Line count is ' || P_X_LINE_TBL.COUNT , 1 ) ;
6047: oe_debug_pub.add( 'Scheduling action ' || L_SCH_ACTION , 1 ) ;
6040: END IF;
6041:
6042: IF l_debug_level > 0 THEN
6043: oe_debug_pub.add('-----------------Loading MRP Result From Tbl---------------',1);
6044: oe_debug_pub.add( 'Loading mrp results' , 1 ) ;
6045: oe_debug_pub.add( 'Mrp count is ' || P_ATP_REC.ERROR_CODE.COUNT , 1 ) ;
6046: oe_debug_pub.add( 'Line count is ' || P_X_LINE_TBL.COUNT , 1 ) ;
6047: oe_debug_pub.add( 'Scheduling action ' || L_SCH_ACTION , 1 ) ;
6048: END IF;
6041:
6042: IF l_debug_level > 0 THEN
6043: oe_debug_pub.add('-----------------Loading MRP Result From Tbl---------------',1);
6044: oe_debug_pub.add( 'Loading mrp results' , 1 ) ;
6045: oe_debug_pub.add( 'Mrp count is ' || P_ATP_REC.ERROR_CODE.COUNT , 1 ) ;
6046: oe_debug_pub.add( 'Line count is ' || P_X_LINE_TBL.COUNT , 1 ) ;
6047: oe_debug_pub.add( 'Scheduling action ' || L_SCH_ACTION , 1 ) ;
6048: END IF;
6049:
6042: IF l_debug_level > 0 THEN
6043: oe_debug_pub.add('-----------------Loading MRP Result From Tbl---------------',1);
6044: oe_debug_pub.add( 'Loading mrp results' , 1 ) ;
6045: oe_debug_pub.add( 'Mrp count is ' || P_ATP_REC.ERROR_CODE.COUNT , 1 ) ;
6046: oe_debug_pub.add( 'Line count is ' || P_X_LINE_TBL.COUNT , 1 ) ;
6047: oe_debug_pub.add( 'Scheduling action ' || L_SCH_ACTION , 1 ) ;
6048: END IF;
6049:
6050: g_atp_tbl.delete;
6043: oe_debug_pub.add('-----------------Loading MRP Result From Tbl---------------',1);
6044: oe_debug_pub.add( 'Loading mrp results' , 1 ) ;
6045: oe_debug_pub.add( 'Mrp count is ' || P_ATP_REC.ERROR_CODE.COUNT , 1 ) ;
6046: oe_debug_pub.add( 'Line count is ' || P_X_LINE_TBL.COUNT , 1 ) ;
6047: oe_debug_pub.add( 'Scheduling action ' || L_SCH_ACTION , 1 ) ;
6048: END IF;
6049:
6050: g_atp_tbl.delete;
6051:
6059:
6060: -- we know this is line has an inactive demand scheduling level
6061:
6062: IF l_debug_level > 0 THEN
6063: oe_debug_pub.add( 'CALLING INACTIVE_DEMAND_SCHEDULING FROM LOAD_RESULTS_FROM_TBL' , 1 ) ;
6064: END IF;
6065: Inactive_demand_scheduling(p_x_old_line_rec => p_old_line_tbl(I)
6066: ,p_x_line_rec => p_x_line_tbl(I)
6067: ,p_sch_action => L_SCH_ACTION --14097050
6105: AND NVL(p_x_line_tbl(I).ordered_quantity,0) > 0 THEN -- 3907522
6106:
6107: -- Modified this part to fix bug 1900085.
6108: IF l_debug_level > 0 THEN
6109: oe_debug_pub.add( 'UPDATING CONFIG LINE ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
6110: END IF;
6111:
6112: IF p_atp_rec.group_ship_date(k) IS NOT NULL
6113: THEN
6125:
6126: p_x_line_tbl(I).delivery_lead_time := p_atp_rec.delivery_lead_time(k);
6127:
6128: IF l_debug_level > 0 THEN
6129: oe_debug_pub.add( 'Config schedule ' || P_X_LINE_TBL(I).SCHEDULE_SHIP_DATE , 2 ) ;
6130: oe_debug_pub.add( 'Config arrival ' || P_X_LINE_TBL(I).SCHEDULE_ARRIVAL_DATE , 2 ) ;
6131: END IF;
6132: END IF;
6133:
6126: p_x_line_tbl(I).delivery_lead_time := p_atp_rec.delivery_lead_time(k);
6127:
6128: IF l_debug_level > 0 THEN
6129: oe_debug_pub.add( 'Config schedule ' || P_X_LINE_TBL(I).SCHEDULE_SHIP_DATE , 2 ) ;
6130: oe_debug_pub.add( 'Config arrival ' || P_X_LINE_TBL(I).SCHEDULE_ARRIVAL_DATE , 2 ) ;
6131: END IF;
6132: END IF;
6133:
6134: --4052648
6133:
6134: --4052648
6135: IF l_sch_action = OESCH_ACT_UNSCHEDULE THEN
6136: IF l_debug_level > 0 THEN
6137: oe_debug_pub.add( 'CLEARING SCHEDULE INFORMATION FOR CONFIG LINE ' , 2 ) ;
6138: END IF;
6139: p_x_line_tbl(I).schedule_ship_date := null;
6140: p_x_line_tbl(I).schedule_arrival_date := null;
6141: p_x_line_tbl(I).schedule_status_code := null;
6162: THEN
6163:
6164: l_old_ato_line_id := p_x_line_tbl(I).ato_line_id;
6165: IF l_debug_level > 0 THEN
6166: oe_debug_pub.add( 'Check for config on line ' || P_X_LINE_TBL ( I ) .ATO_LINE_ID , 1 ) ;
6167: END IF;
6168: BEGIN
6169:
6170: Select 'Y'
6176:
6177: EXCEPTION
6178: WHEN OTHERS THEN
6179: IF l_debug_level > 0 THEN
6180: oe_debug_pub.add( 'NO CONFIG EXISTS FOR ATO ' , 1 ) ;
6181: END IF;
6182: l_config_exists := 'N';
6183: END;
6184:
6184:
6185: END IF;
6186:
6187: IF l_debug_level > 0 THEN
6188: oe_debug_pub.add( 'Load results line_id ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
6189: oe_debug_pub.add( 'Index ' || J , 1 ) ;
6190: END IF;
6191:
6192:
6185: END IF;
6186:
6187: IF l_debug_level > 0 THEN
6188: oe_debug_pub.add( 'Load results line_id ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
6189: oe_debug_pub.add( 'Index ' || J , 1 ) ;
6190: END IF;
6191:
6192:
6193: IF l_sch_action = OESCH_ACT_ATP_CHECK
6196: AND p_x_line_tbl(I).ato_line_id is not null
6197: AND p_x_line_tbl(I).ato_line_id <> p_x_line_tbl(I).line_id THEN
6198:
6199: IF l_debug_level > 0 THEN
6200: oe_debug_pub.add( 'Do not call load_results for options/calsss');
6201: END IF;
6202:
6203: ELSE
6204:
6210: p_partial_set => p_partial_set,
6211: x_return_status => x_return_status);
6212:
6213: IF l_debug_level > 0 THEN
6214: oe_debug_pub.add( 'After call to load_results_from_rec' || J || x_return_status, 1 ) ;
6215: END IF;
6216:
6217: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6218: IF l_debug_level > 0 THEN
6215: END IF;
6216:
6217: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6218: IF l_debug_level > 0 THEN
6219: oe_debug_pub.add( 'UNEXP ERROR LINE ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
6220: END IF;
6221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6222: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6223: -- This code is required, if user performing scheduling action
6232: -- AND p_atp_rec.error_code(J) = 19
6233: AND NOT p_partial_set THEN
6234:
6235: IF l_debug_level > 0 THEN
6236: oe_debug_pub.add( 'Before setting message for: ' || P_ATP_REC.ERROR_CODE(J) , 2 ) ;
6237: END IF;
6238:
6239: l_old_set_id := l_new_set_id;
6240: FND_MESSAGE.SET_NAME('ONT','OE_SCH_GROUP_MEMBER_FAILED');
6243:
6244: END IF;
6245: IF p_partial THEN
6246: IF l_debug_level > 0 THEN
6247: oe_debug_pub.add( 'SET OPERATION TO NONE' , 1 ) ;
6248: END IF;
6249: p_x_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
6250: x_return_status := FND_API.G_RET_STS_SUCCESS;
6251: ELSE
6249: p_x_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
6250: x_return_status := FND_API.G_RET_STS_SUCCESS;
6251: ELSE
6252: IF l_debug_level > 0 THEN
6253: oe_debug_pub.add( 'EXP ERROR LINE ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
6254: END IF;
6255: l_raise_error := TRUE;
6256: --RAISE FND_API.G_EXC_ERROR;
6257: END IF;
6274:
6275: WHILE (nvl(p_atp_rec.vendor_name(J),'N') = 'SMC')
6276: LOOP
6277: IF l_debug_level > 0 THEN
6278: oe_debug_pub.add( 'SMC : '|| J , 3 ) ;
6279: END IF;
6280: J := J + 1;
6281: IF p_atp_rec.identifier.count < J THEN
6282: GOTO END_ATP_WHILE;
6290: END IF;
6291: -- End of increment and skip.
6292:
6293: IF l_debug_level > 0 THEN
6294: oe_debug_pub.add( 'OPERATION : ' || P_X_LINE_TBL ( I ) .OPERATION , 1 ) ;
6295: END IF;
6296:
6297: END IF; -- for new IF statement for BUG 1955004
6298:
6326: IF FND_PROFILE.VALUE('POR_SYNC_NEEDBYDATE_OM') = 'YES' THEN
6327: -- Modified for IR ISO Tracking bug 7667702
6328:
6329: IF l_debug_level > 0 THEN
6330: oe_debug_pub.add(' Logging G_UPDATE_REQUISITION delayed request for date change');
6331: END IF;
6332:
6333: -- Log a delayed request to update the change in Schedule Ship Date to
6334: -- Requisition Line. This request will be logged only if the change is
6363:
6364: ELSE -- Added for IR ISO Tracking bug 7667702
6365: IF NOT OE_Schedule_GRP.G_ISO_Planning_Update THEN
6366: IF l_debug_level > 0 THEN
6367: oe_debug_pub.add(' Need By Date is not allowed to update. Updating MTL_Supply only',5);
6368: END IF;
6369:
6370: OE_SCHEDULE_UTIL.Update_PO(p_x_line_tbl(i).schedule_arrival_date,
6371: p_x_line_tbl(i).source_document_id,
6396:
6397: END IF;
6398:
6399: IF l_debug_level > 0 THEN
6400: oe_debug_pub.add( 'EXITING LOAD_RESULTS_FROM_TBL' , 1 ) ;
6401: END IF;
6402:
6403: EXCEPTION
6404: WHEN FND_API.G_EXC_ERROR THEN
6412: , 'Load_Results_from_tbl'
6413: );
6414: END IF;
6415: IF l_debug_level > 0 THEN
6416: oe_debug_pub.add( 'UNEXPECTED ERROR IN LOAD_RESULTS_FROM_TBL' , 1 ) ;
6417: END IF;
6418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6419: END Load_Results_from_tbl;
6420:
6440: l_source_document_type_id NUMBER;
6441: l_header_id NUMBER;
6442:
6443: --
6444: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6445: --
6446: BEGIN
6447:
6448: IF l_debug_level > 0 THEN
6445: --
6446: BEGIN
6447:
6448: IF l_debug_level > 0 THEN
6449: oe_debug_pub.add( 'ENTERING DISPLAY_SCH_ERRORS' , 1 ) ;
6450: END IF;
6451:
6452: IF p_atp_rec.error_code.count > 0 THEN
6453:
6454: IF p_line_id is not null THEN
6455:
6456:
6457: IF l_debug_level > 0 THEN
6458: oe_debug_pub.add( 'SCHEDULING FAILED WITH ERROR CODE: ' || P_LINE_ID ) ;
6459: END IF;
6460:
6461: IF p_line_id <> FND_API.G_MISS_NUM THEN
6462: select order_source_id, orig_sys_document_ref, orig_sys_line_ref,
6497: lookup_type = 'MTL_DEMAND_INTERFACE_ERRORS'
6498: and lookup_code = p_atp_rec.error_code(J) ;
6499:
6500: IF l_debug_level > 0 THEN
6501: oe_debug_pub.add( 'ADDING MESSAGE TO THE STACK' , 1 ) ;
6502: END IF;
6503: FND_MESSAGE.SET_NAME('ONT','OE_SCH_OE_ORDER_FAILED');
6504: FND_MESSAGE.SET_TOKEN('EXPLANATION',l_explanation);
6505: OE_MSG_PUB.Add;
6523: IF l_old_set_id <> l_new_set_id
6524: AND p_atp_rec.error_code(J) = 19 THEN
6525:
6526: IF l_debug_level > 0 THEN
6527: oe_debug_pub.add( 'Before setting message for: ' || P_ATP_REC.ERROR_CODE ( J ) , 2 ) ;
6528: END IF;
6529:
6530: l_old_set_id := l_new_set_id;
6531: FND_MESSAGE.SET_NAME('ONT','OE_SCH_GROUP_MEMBER_FAILED');
6534: ELSIF p_atp_rec.error_code(J) <> 0
6535: AND p_atp_rec.error_code(J) <> 19 THEN
6536:
6537: IF l_debug_level > 0 THEN
6538: oe_debug_pub.add( 'SCHEDULING FAILED WITH ERROR CODE:'||P_ATP_REC.ERROR_CODE ( J ) , 1 ) ;
6539: END IF;
6540:
6541:
6542: OE_MSG_PUB.set_msg_context(
6566: lookup_type = 'MTL_DEMAND_INTERFACE_ERRORS'
6567: and lookup_code = p_atp_rec.error_code(J) ;
6568:
6569: IF l_debug_level > 0 THEN
6570: oe_debug_pub.add( 'ADDING MESSAGE TO THE STACK' , 1 ) ;
6571: END IF;
6572: FND_MESSAGE.SET_NAME('ONT','OE_SCH_OE_ORDER_FAILED');
6573: FND_MESSAGE.SET_TOKEN('EXPLANATION',l_explanation);
6574: OE_MSG_PUB.Add;
6627: l_atp_details MRP_ATP_PUB.ATP_Details_Typ;
6628: l_mrp_msg_data VARCHAR2(200);
6629:
6630: --
6631: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6632: --
6633: BEGIN
6634:
6635: IF l_debug_level > 0 THEN
6632: --
6633: BEGIN
6634:
6635: IF l_debug_level > 0 THEN
6636: oe_debug_pub.add( 'ENTERING CALL MRP ATP' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
6637: END IF;
6638:
6639: -- BUG 1955004
6640: -- 3763015
6644: Nvl(p_x_line_rec.bypass_sch_flag, 'N') = 'Y' THEN -- DOO Integration
6645: -- this is an inactive demand line.
6646:
6647: IF l_debug_level > 0 THEN
6648: oe_debug_pub.add( 'THIS IS A SINGLE INACTIVE DEMAND LINE' , 1 ) ;
6649: END IF;
6650:
6651: Inactive_Demand_Scheduling(p_x_old_line_rec => p_old_line_rec
6652: ,p_x_line_rec => p_x_line_rec
6662:
6663: ELSE
6664:
6665: IF l_debug_level > 0 THEN
6666: oe_debug_pub.add( 'ELSE CALL FOR CALL MRP ATP' , 1 ) ;
6667: END IF;
6668: -- END 1955004
6669:
6670: Load_MRP_request_from_rec
6678:
6679: -- Call ATP
6680:
6681: IF l_debug_level > 0 THEN
6682: oe_debug_pub.add( '1. CALLING MRP API WITH SESSION ID '||L_SESSION_ID , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
6683: END IF;
6684: /* 8731703: Code moved to Load_Results_From_rec
6685: -- Added the following 10 lines to fix the bug 6378240
6686: oe_debug_pub.add( '6378240 : inserted the line_id into temp table '||p_x_line_rec.line_id ||' ' ||p_x_line_rec.schedule_action_code);
6682: oe_debug_pub.add( '1. CALLING MRP API WITH SESSION ID '||L_SESSION_ID , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
6683: END IF;
6684: /* 8731703: Code moved to Load_Results_From_rec
6685: -- Added the following 10 lines to fix the bug 6378240
6686: oe_debug_pub.add( '6378240 : inserted the line_id into temp table '||p_x_line_rec.line_id ||' ' ||p_x_line_rec.schedule_action_code);
6687: BEGIN
6688: insert into oe_schedule_lines_temp
6689: (LINE_ID ,
6690: SCHEDULE_ACTION_CODE)
6690: SCHEDULE_ACTION_CODE)
6691: values(p_x_line_rec.line_id,p_x_line_rec.schedule_action_code);
6692: EXCEPTION
6693: WHEN OTHERS THEN
6694: oe_debug_pub.add( '6378240 : INSERT ERROR ');
6695: END;
6696: */
6697:
6698:
6707: , x_msg_data => l_mrp_msg_data
6708: , x_msg_count => l_msg_count);
6709:
6710: IF l_debug_level > 0 THEN
6711: oe_debug_pub.add( '3. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || X_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
6712: END IF;
6713:
6714: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6732: END IF;
6733:
6734: END IF; -- Mrp count.
6735: IF l_debug_level > 0 THEN
6736: oe_debug_pub.add( 'EXITING CALL ATP' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
6737: END IF;
6738:
6739: END IF; -- for new IF statement added for 1955004
6740:
6758: PROCEDURE Cascade_Override_atp
6759: (p_line_rec IN OE_ORDER_PUB.line_rec_type)
6760: IS
6761: --
6762: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6763: --
6764: BEGIN
6765:
6766: IF l_debug_level > 0 THEN
6763: --
6764: BEGIN
6765:
6766: IF l_debug_level > 0 THEN
6767: oe_debug_pub.add( 'ENTERING CASCADE_OVERRIDE_ATP ' , 1 ) ;
6768: END IF;
6769:
6770: IF p_line_rec.ato_line_id IS NOT NULL AND
6771: NOT (p_line_rec.ato_line_id = p_line_rec.line_id AND
6789:
6790: END IF;
6791:
6792: IF l_debug_level > 0 THEN
6793: oe_debug_pub.add( 'EXITING CASCADE_OVERRIDE_ATP ' , 1 ) ;
6794: END IF;
6795: EXCEPTION
6796:
6797: WHEN OTHERS THEN
6854: -- l_ic_item_mst_rec GMI_RESERVATION_UTIL.ic_item_mst_rec; -- INVCONV
6855: -- end fabdi
6856:
6857: --
6858: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6859: --
6860: BEGIN
6861:
6862: IF l_debug_level > 0 THEN
6859: --
6860: BEGIN
6861:
6862: IF l_debug_level > 0 THEN
6863: oe_debug_pub.add( 'ENTERING QUERY_QTY_TREE ' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
6864: END IF;
6865: IF l_debug_level > 0 THEN
6866: oe_debug_pub.add( 'ORG IS : ' || P_ORG_ID , 1 ) ;
6867: END IF;
6862: IF l_debug_level > 0 THEN
6863: oe_debug_pub.add( 'ENTERING QUERY_QTY_TREE ' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
6864: END IF;
6865: IF l_debug_level > 0 THEN
6866: oe_debug_pub.add( 'ORG IS : ' || P_ORG_ID , 1 ) ;
6867: END IF;
6868: IF l_debug_level > 0 THEN
6869: oe_debug_pub.add( 'ITEM IS : ' || P_ITEM_ID , 1 ) ;
6870: oe_debug_pub.add( 'Sub inventory IS : ' || p_subinventory_code , 1 ) ; --11777419
6865: IF l_debug_level > 0 THEN
6866: oe_debug_pub.add( 'ORG IS : ' || P_ORG_ID , 1 ) ;
6867: END IF;
6868: IF l_debug_level > 0 THEN
6869: oe_debug_pub.add( 'ITEM IS : ' || P_ITEM_ID , 1 ) ;
6870: oe_debug_pub.add( 'Sub inventory IS : ' || p_subinventory_code , 1 ) ; --11777419
6871: END IF;
6872: -- added by fabdi 03/May/2001
6873: /* IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_org_id) -- INVCONV remove OPM stuff
6866: oe_debug_pub.add( 'ORG IS : ' || P_ORG_ID , 1 ) ;
6867: END IF;
6868: IF l_debug_level > 0 THEN
6869: oe_debug_pub.add( 'ITEM IS : ' || P_ITEM_ID , 1 ) ;
6870: oe_debug_pub.add( 'Sub inventory IS : ' || p_subinventory_code , 1 ) ; --11777419
6871: END IF;
6872: -- added by fabdi 03/May/2001
6873: /* IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_org_id) -- INVCONV remove OPM stuff
6874: THEN
6944: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
6945: for I in 1..l_msg_count loop
6946: l_msg_data := OE_MSG_PUB.Get(I,'F');
6947: IF l_debug_level > 0 THEN
6948: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
6949: END IF;
6950: end loop;
6951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6952: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6954: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
6955: for I in 1..l_msg_count loop
6956: l_msg_data := OE_MSG_PUB.Get(I,'F');
6957: IF l_debug_level > 0 THEN
6958: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
6959: END IF;
6960: end loop;
6961: RAISE FND_API.G_EXC_ERROR;
6962: END IF;
6993: , x_satr => l_satr -- INVCONV
6994: );
6995:
6996: IF l_debug_level > 0 THEN
6997: oe_debug_pub.add( 'AFTER CALLING QUERY_QUANTITIES' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
6998: END IF;
6999: -- END IF; INVCONV
7000: IF l_debug_level > 0 THEN
7001: oe_debug_pub.add( 'RR: L_QOH ' || L_QOH , 1 ) ;
6997: oe_debug_pub.add( 'AFTER CALLING QUERY_QUANTITIES' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
6998: END IF;
6999: -- END IF; INVCONV
7000: IF l_debug_level > 0 THEN
7001: oe_debug_pub.add( 'RR: L_QOH ' || L_QOH , 1 ) ;
7002: END IF;
7003: IF l_debug_level > 0 THEN
7004: oe_debug_pub.add( 'RR: L_QOH ' || L_ATR , 1 ) ;
7005: END IF;
7000: IF l_debug_level > 0 THEN
7001: oe_debug_pub.add( 'RR: L_QOH ' || L_QOH , 1 ) ;
7002: END IF;
7003: IF l_debug_level > 0 THEN
7004: oe_debug_pub.add( 'RR: L_QOH ' || L_ATR , 1 ) ;
7005: END IF;
7006:
7007: x_on_hand_qty := l_qoh;
7008: x_avail_to_reserve := l_atr;
7010: x_on_hand_qty2 := l_sqoh; -- INVCONV
7011: x_avail_to_reserve2 := l_satr; -- INVCONV
7012:
7013: IF l_debug_level > 0 THEN
7014: oe_debug_pub.add( 'EXITING QUERY_QTY_TREE ' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
7015: END IF;
7016:
7017: EXCEPTION
7018:
7062: --End ER#14763609
7063:
7064: -- l_process_flag VARCHAR2(1) := FND_API.G_FALSE;
7065: --
7066: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level; --INVCONV
7067: --
7068: BEGIN
7069:
7070: IF l_debug_level > 0 THEN
7067: --
7068: BEGIN
7069:
7070: IF l_debug_level > 0 THEN
7071: oe_debug_pub.add( 'ENTERING ACTION ATP ' || P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
7072: END IF;
7073:
7074: -- Call MRP API
7075:
7077: p_old_line_rec => p_old_line_rec,
7078: x_return_status => x_return_status);
7079:
7080: IF l_debug_level > 0 THEN
7081: oe_debug_pub.add( 'AFTER CALLING MRP API: ' || X_RETURN_STATUS , 2 ) ;
7082: END IF;
7083:
7084: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7099: G_ATP_CHECK_session_id := l_session_id;
7100: -- Call ATP
7101:
7102: IF l_debug_level > 0 THEN
7103: oe_debug_pub.add('1. Calling MRP API with session id '||l_session_id,0.5); -- debug level changed to 0.5 for bug 13435459
7104: END IF;
7105:
7106: MRP_ATP_PUB.Call_ATP
7107: ( p_session_id => l_session_id
7114: , x_msg_data => l_mrp_msg_data
7115: , x_msg_count => l_msg_count);
7116:
7117: IF l_debug_level > 0 THEN
7118: oe_debug_pub.add('5. After Calling MRP_ATP_PUB.Call_ATP' ||
7119: x_return_status,0.5); -- debug level changed to 0.5 for bug 13435459
7120: END IF;
7121: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7138: -- qties while performing ATP. Getting these values from inventory.
7139:
7140: FOR K IN 1..g_atp_tbl.count LOOP
7141: IF l_debug_level > 0 THEN
7142: oe_debug_pub.add( 'CALLING QUERY_QTY_TREE' , 1 ) ;
7143: END IF;
7144: Query_Qty_Tree(p_org_id => g_atp_tbl(K).ship_from_org_id,
7145: p_item_id => g_atp_tbl(K).inventory_item_id,
7146: p_line_id => g_atp_tbl(K).line_id,
7169: g_atp_tbl(K).QTY_ON_REQUEST_DATE := l_avail_to_reserve;
7170: -- Available field in ATP
7171:
7172: IF l_debug_level > 0 THEN
7173: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
7174: END IF;
7175: IF l_debug_level > 0 THEN
7176: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
7177: END IF;
7172: IF l_debug_level > 0 THEN
7173: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
7174: END IF;
7175: IF l_debug_level > 0 THEN
7176: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
7177: END IF;
7178: IF l_debug_level > 0 THEN
7179: oe_debug_pub.add( 'AVAILABLE ' || L_AVAIL_TO_RESERVE ) ;
7180: END IF;
7175: IF l_debug_level > 0 THEN
7176: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
7177: END IF;
7178: IF l_debug_level > 0 THEN
7179: oe_debug_pub.add( 'AVAILABLE ' || L_AVAIL_TO_RESERVE ) ;
7180: END IF;
7181: ELSE */ -- INVCONV
7182:
7183: --ER#14763609 Start
7181: ELSE */ -- INVCONV
7182:
7183: --ER#14763609 Start
7184: IF l_debug_level > 0 THEN
7185: oe_debug_pub.add( '1. Fetching primary and secondary UOM' , 1 ) ;
7186: END IF;
7187:
7188: SELECT secondary_uom_code ,primary_uom_code
7189: INTO l_secondary_uom_code ,l_primary_uom_code
7192: AND organization_id = g_atp_tbl(K).ship_from_org_id
7193: AND ROWNUM=1;
7194:
7195: IF l_debug_level > 0 THEN
7196: oe_debug_pub.add( '1. l_primary_uom_code / l_secondary_uom_code ' || l_primary_uom_code || ' / ' || l_secondary_uom_code , 1 ) ;
7197: END IF;
7198:
7199: l_fulfillment_base:= NVL(p_x_line_rec.fulfillment_base,'P') ;
7200:
7198:
7199: l_fulfillment_base:= NVL(p_x_line_rec.fulfillment_base,'P') ;
7200:
7201: IF l_debug_level > 0 THEN
7202: oe_debug_pub.add( '1. fulfillment_base: '|| l_fulfillment_base , 1 ) ;
7203: END IF;
7204: --ER#14763609 End
7205:
7206: IF l_debug_level > 0 THEN
7203: END IF;
7204: --ER#14763609 End
7205:
7206: IF l_debug_level > 0 THEN
7207: oe_debug_pub.add( 'SUBSTITUTE_FLAG :' || G_ATP_TBL ( K ) .SUBSTITUTE_FLAG , 1 ) ;
7208: END IF;
7209: IF g_atp_tbl(K).substitute_flag = 'N' THEN
7210: g_atp_tbl(K).on_hand_qty := l_on_hand_qty;
7211: g_atp_tbl(K).available_to_reserve := l_avail_to_reserve;
7209: IF g_atp_tbl(K).substitute_flag = 'N' THEN
7210: g_atp_tbl(K).on_hand_qty := l_on_hand_qty;
7211: g_atp_tbl(K).available_to_reserve := l_avail_to_reserve;
7212: IF l_debug_level > 0 THEN
7213: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
7214: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
7215: END IF;
7216: --ER#14763609 Start
7217: IF l_fulfillment_base ='P' THEN
7210: g_atp_tbl(K).on_hand_qty := l_on_hand_qty;
7211: g_atp_tbl(K).available_to_reserve := l_avail_to_reserve;
7212: IF l_debug_level > 0 THEN
7213: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
7214: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
7215: END IF;
7216: --ER#14763609 Start
7217: IF l_fulfillment_base ='P' THEN
7218: l_on_hand_ord_qty := OE_Order_Misc_Util.Convert_Uom
7252: g_atp_tbl(K).available_to_reserve_orduom := l_avail_to_reserve_ord;
7253: g_atp_tbl(K).primary_uom := l_primary_uom_code;
7254:
7255: IF l_debug_level > 0 THEN
7256: oe_debug_pub.add( 'l_on_hand_ord_qty: ' || l_on_hand_ord_qty ) ;
7257: oe_debug_pub.add( 'l_avail_to_reserve_ord: ' || l_avail_to_reserve_ord ) ;
7258: oe_debug_pub.add( 'l_primary_uom_code: ' || l_primary_uom_code ) ;
7259: END IF;
7260:
7253: g_atp_tbl(K).primary_uom := l_primary_uom_code;
7254:
7255: IF l_debug_level > 0 THEN
7256: oe_debug_pub.add( 'l_on_hand_ord_qty: ' || l_on_hand_ord_qty ) ;
7257: oe_debug_pub.add( 'l_avail_to_reserve_ord: ' || l_avail_to_reserve_ord ) ;
7258: oe_debug_pub.add( 'l_primary_uom_code: ' || l_primary_uom_code ) ;
7259: END IF;
7260:
7261: --ER#14763609 End
7254:
7255: IF l_debug_level > 0 THEN
7256: oe_debug_pub.add( 'l_on_hand_ord_qty: ' || l_on_hand_ord_qty ) ;
7257: oe_debug_pub.add( 'l_avail_to_reserve_ord: ' || l_avail_to_reserve_ord ) ;
7258: oe_debug_pub.add( 'l_primary_uom_code: ' || l_primary_uom_code ) ;
7259: END IF;
7260:
7261: --ER#14763609 End
7262:
7264: ELSE --If substitute then
7265: g_atp_tbl(K).sub_on_hand_qty := l_on_hand_qty;
7266: g_atp_tbl(K).sub_available_to_reserve := l_avail_to_reserve;
7267: IF l_debug_level > 0 THEN
7268: oe_debug_pub.add( 'SUB L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
7269: oe_debug_pub.add( 'SUB L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
7270: END IF;
7271: --ER#14763609 Start
7272: IF l_fulfillment_base ='P' THEN
7265: g_atp_tbl(K).sub_on_hand_qty := l_on_hand_qty;
7266: g_atp_tbl(K).sub_available_to_reserve := l_avail_to_reserve;
7267: IF l_debug_level > 0 THEN
7268: oe_debug_pub.add( 'SUB L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
7269: oe_debug_pub.add( 'SUB L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
7270: END IF;
7271: --ER#14763609 Start
7272: IF l_fulfillment_base ='P' THEN
7273: l_sub_on_hand_ord_qty := OE_Order_Misc_Util.Convert_Uom
7307: g_atp_tbl(K).sub_avail_to_reserve_orduom := l_sub_avail_to_reserve_ord;
7308: g_atp_tbl(K).sub_primary_uom := l_primary_uom_code;
7309:
7310: IF l_debug_level > 0 THEN
7311: oe_debug_pub.add( 'l_sub_on_hand_ord_qty: ' || l_sub_on_hand_ord_qty ) ;
7312: oe_debug_pub.add( 'l_sub_avail_to_reserve_ord: ' || l_sub_avail_to_reserve_ord ) ;
7313: oe_debug_pub.add( 'l_primary_uom_code: ' || l_primary_uom_code ) ;
7314: END IF;
7315:
7308: g_atp_tbl(K).sub_primary_uom := l_primary_uom_code;
7309:
7310: IF l_debug_level > 0 THEN
7311: oe_debug_pub.add( 'l_sub_on_hand_ord_qty: ' || l_sub_on_hand_ord_qty ) ;
7312: oe_debug_pub.add( 'l_sub_avail_to_reserve_ord: ' || l_sub_avail_to_reserve_ord ) ;
7313: oe_debug_pub.add( 'l_primary_uom_code: ' || l_primary_uom_code ) ;
7314: END IF;
7315:
7316: --ER#14763609 End
7309:
7310: IF l_debug_level > 0 THEN
7311: oe_debug_pub.add( 'l_sub_on_hand_ord_qty: ' || l_sub_on_hand_ord_qty ) ;
7312: oe_debug_pub.add( 'l_sub_avail_to_reserve_ord: ' || l_sub_avail_to_reserve_ord ) ;
7313: oe_debug_pub.add( 'l_primary_uom_code: ' || l_primary_uom_code ) ;
7314: END IF;
7315:
7316: --ER#14763609 End
7317: Query_Qty_Tree
7326: );
7327: g_atp_tbl(K).on_hand_qty := l_on_hand_qty;
7328: g_atp_tbl(K).available_to_reserve := l_avail_to_reserve;
7329: IF l_debug_level > 0 THEN
7330: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
7331: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
7332: END IF;
7333:
7334:
7327: g_atp_tbl(K).on_hand_qty := l_on_hand_qty;
7328: g_atp_tbl(K).available_to_reserve := l_avail_to_reserve;
7329: IF l_debug_level > 0 THEN
7330: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
7331: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
7332: END IF;
7333:
7334:
7335: --ER#14763609 Start
7333:
7334:
7335: --ER#14763609 Start
7336: IF l_debug_level > 0 THEN
7337: oe_debug_pub.add( '1.1 Fetching primary and secondary UOM' , 1 ) ;
7338: END IF;
7339:
7340: SELECT secondary_uom_code ,primary_uom_code
7341: INTO l_secondary_uom_code ,l_primary_uom_code
7343: WHERE inventory_item_id = g_atp_tbl(K).request_item_id
7344: AND organization_id = g_atp_tbl(K).ship_from_org_id
7345: AND ROWNUM=1;
7346: IF l_debug_level > 0 THEN
7347: oe_debug_pub.add( '1.1 l_primary_uom_code / l_secondary_uom_code ' || l_primary_uom_code || ' / ' || l_secondary_uom_code , 1 ) ;
7348: END IF;
7349:
7350: IF l_fulfillment_base ='P' THEN
7351: l_on_hand_ord_qty := OE_Order_Misc_Util.Convert_Uom
7385: g_atp_tbl(K).available_to_reserve_orduom := l_avail_to_reserve_ord;
7386: g_atp_tbl(K).primary_uom := l_primary_uom_code;
7387:
7388: IF l_debug_level > 0 THEN
7389: oe_debug_pub.add( 'l_on_hand_ord_qty: ' || l_on_hand_ord_qty ) ;
7390: oe_debug_pub.add( 'l_avail_to_reserve_ord: ' || l_avail_to_reserve_ord ) ;
7391: oe_debug_pub.add( 'l_primary_uom_code: ' || l_primary_uom_code ) ;
7392: END IF;
7393:
7386: g_atp_tbl(K).primary_uom := l_primary_uom_code;
7387:
7388: IF l_debug_level > 0 THEN
7389: oe_debug_pub.add( 'l_on_hand_ord_qty: ' || l_on_hand_ord_qty ) ;
7390: oe_debug_pub.add( 'l_avail_to_reserve_ord: ' || l_avail_to_reserve_ord ) ;
7391: oe_debug_pub.add( 'l_primary_uom_code: ' || l_primary_uom_code ) ;
7392: END IF;
7393:
7394: --ER#14763609 End
7387:
7388: IF l_debug_level > 0 THEN
7389: oe_debug_pub.add( 'l_on_hand_ord_qty: ' || l_on_hand_ord_qty ) ;
7390: oe_debug_pub.add( 'l_avail_to_reserve_ord: ' || l_avail_to_reserve_ord ) ;
7391: oe_debug_pub.add( 'l_primary_uom_code: ' || l_primary_uom_code ) ;
7392: END IF;
7393:
7394: --ER#14763609 End
7395: END IF; -- g_atp_tbl(K).substitute_flag = 'N'
7398:
7399: END LOOP;
7400:
7401: IF l_debug_level > 0 THEN
7402: oe_debug_pub.add( 'EXITING ACTION ATP' || X_RETURN_STATUS , 1 ) ;
7403: END IF;
7404:
7405: EXCEPTION
7406: WHEN FND_API.G_EXC_ERROR THEN
7447:
7448: l_p_qty2_to_reserve NUMBER := null; -- INVCONV
7449:
7450: --
7451: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7452: --
7453: BEGIN
7454: IF l_debug_level > 0 THEN
7455: oe_debug_pub.add( 'ENTERING ACTION SCHEDULE' , 1 ) ;
7451: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7452: --
7453: BEGIN
7454: IF l_debug_level > 0 THEN
7455: oe_debug_pub.add( 'ENTERING ACTION SCHEDULE' , 1 ) ;
7456: END IF;
7457:
7458: l_p_qty2_to_reserve := p_x_line_rec.reserved_quantity2; -- Bug#8501046
7459:
7467: -- Setting the action to schedule since first we need to schedule the line.
7468: -- Will reset the action to what is actually was after calling MRP.
7469:
7470: IF l_debug_level > 0 THEN
7471: oe_debug_pub.add( 'SCHEDULING FROM ACTION SCHEDULE' , 1 ) ;
7472: END IF;
7473: p_x_line_rec.schedule_action_code := OESCH_ACT_SCHEDULE;
7474:
7475: /*
7477: ( p_line_rec => p_x_line_rec
7478: , p_old_line_rec => p_old_line_rec
7479: , x_mrp_atp_rec => l_mrp_atp_rec);
7480:
7481: oe_debug_pub.add('Action Schedule Count is ' ||
7482: l_mrp_atp_rec.error_code.count,1);
7483:
7484: -- We are adding this so that we will not call MRP when
7485: -- table count is 0.
7489:
7490: l_session_id := Get_Session_Id;
7491:
7492: IF l_debug_level > 0 THEn
7493: oe_debug_pub.add('1. Calling MRP API with session id '||l_session_id,0.5); -- debug level changed to 0.5 for bug 13435459
7494: END IF;
7495:
7496: MRP_ATP_PUB.Call_ATP
7497: ( p_session_id => l_session_id
7504: , x_msg_data => l_mrp_msg_data
7505: , x_msg_count => l_msg_count);
7506:
7507: IF l_debug_level>0 THEN
7508: oe_debug_pub.add('1. After Calling MRP_ATP_PUB.Call_ATP' ||
7509: x_return_status,0.5); -- debug level changed to 0.5 for bug 13435459
7510: END IF;
7511: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7512: oe_debug_pub.add('Error is' || l_mrp_msg_data,1);
7508: oe_debug_pub.add('1. After Calling MRP_ATP_PUB.Call_ATP' ||
7509: x_return_status,0.5); -- debug level changed to 0.5 for bug 13435459
7510: END IF;
7511: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7512: oe_debug_pub.add('Error is' || l_mrp_msg_data,1);
7513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7514: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7515: --Display_Sch_Errors;
7516: Display_sch_errors(p_atp_rec => l_mrp_atp_rec,
7532: p_old_line_rec => p_old_line_rec,
7533: x_return_status => x_return_status);
7534:
7535: IF l_debug_level > 0 THEN
7536: oe_debug_pub.add( 'X_RETURN_STATUS ' || X_RETURN_STATUS , 1 ) ;
7537: END IF;
7538: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7539: IF l_debug_level > 0 THEN
7540: oe_debug_pub.add( 'UNEXPECTED ERROR FROM ' , 1 ) ;
7536: oe_debug_pub.add( 'X_RETURN_STATUS ' || X_RETURN_STATUS , 1 ) ;
7537: END IF;
7538: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7539: IF l_debug_level > 0 THEN
7540: oe_debug_pub.add( 'UNEXPECTED ERROR FROM ' , 1 ) ;
7541: END IF;
7542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7543: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7544: IF l_debug_level > 0 THEN
7541: END IF;
7542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7543: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7544: IF l_debug_level > 0 THEN
7545: oe_debug_pub.add( 'RR: L2' , 1 ) ;
7546: END IF;
7547: RAISE FND_API.G_EXC_ERROR;
7548: END IF;
7549:
7550: -- Reloading p_x_line_rec from l_out_line_tbl since the record
7551: -- in the table is the one which is demanded.
7552:
7553: IF l_debug_level > 0 THEN
7554: oe_debug_pub.add( 'RR: L3' , 1 ) ;
7555: END IF;
7556: p_x_line_rec.schedule_action_code := p_sch_action;
7557:
7558: END IF; /* If schedule_status_code is null */
7557:
7558: END IF; /* If schedule_status_code is null */
7559:
7560: IF l_debug_level > 0 THEN
7561: oe_debug_pub.add( 'RR: L4' , 1 ) ;
7562: END IF;
7563: IF l_debug_level > 0 THEN
7564: oe_debug_pub.add( 'SCH_CACHED_SCH_LEVEL_CODE ' || SCH_CACHED_SCH_LEVEL_CODE , 1 ) ;
7565: END IF;
7560: IF l_debug_level > 0 THEN
7561: oe_debug_pub.add( 'RR: L4' , 1 ) ;
7562: END IF;
7563: IF l_debug_level > 0 THEN
7564: oe_debug_pub.add( 'SCH_CACHED_SCH_LEVEL_CODE ' || SCH_CACHED_SCH_LEVEL_CODE , 1 ) ;
7565: END IF;
7566:
7567: IF ((p_sch_action = OESCH_ACT_RESERVE)
7568: OR (p_sch_action = OESCH_ACT_SCHEDULE AND
7576: AND (NOT G_GOP_AUTO_SPLIT OR G_GOP_AUTO_SPLIT_LINE_ID <> P_X_LINE_REC.LINE_ID ) --ER 2736896. Do not reserve here.
7577: THEN
7578:
7579: IF l_debug_level > 0 THEN
7580: oe_debug_pub.add( 'SCHEDULING IN ACTION_SCHEDULE' , 1 ) ;
7581: END IF;
7582:
7583: -- Assigning reserved_quantity to 0 if MISS_NUM, to fix the bug 1384831
7584:
7624: -- Only invoke the conversion for dual tracked items
7625: --Bug#8501046,Checked the scenario using default and non-default both types for lot-specific conversion as well and the formula works fine.
7626: l_qty2_to_reserve := nvl(p_x_line_rec.ordered_quantity2, 0)- nvl(l_old_reserved_quantity2,0); --bug 7675494
7627: /*IF l_debug_level > 0 THEN
7628: oe_debug_pub.add( 'DUAL Tracked quantity so convert the qty to reserve ' || l_qty_to_reserve , 1 ) ;
7629: END IF;
7630: l_qty2_to_reserve := inv_convert.inv_um_convert(
7631: item_id => p_x_line_rec.inventory_item_id
7632: , lot_number => NULL
7638: , from_name => NULL -- from uom name
7639: , to_name => NULL -- to uom name
7640: );
7641: IF l_debug_level > 0 THEN
7642: oe_debug_pub.add( 'After UOM conversion the secondary to reserve is ' || l_qty2_to_reserve , 1 ) ;
7643: END IF;
7644:
7645: IF l_qty2_to_reserve = -99999 THEN
7646: -- conversion failed
7646: -- conversion failed
7647: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR'); -- INVCONV
7648: OE_MSG_PUB.ADD;
7649: IF l_debug_level > 0 THEN
7650: oe_debug_pub.add( 'ERROR on UOM conversion to Secondary UOM which is '||p_x_line_rec.ordered_quantity_uom2 , 1 ) ;
7651: END IF;
7652: RAISE FND_API.G_EXC_ERROR;
7653: END IF; */
7654: END IF;
7682: -- p_x_line_rec.reserved_quantity := l_qty_to_reserve;
7683:
7684: -- ELSE
7685: IF l_debug_level > 0 THEN
7686: oe_debug_pub.add( 'QTY TO RESERVE ' || L_QTY_TO_RESERVE , 2 ) ;
7687: oe_debug_pub.add( 'QTY2 TO RESERVE ' || L_QTY2_TO_RESERVE , 2 ) ;
7688: END IF;
7689:
7690:
7683:
7684: -- ELSE
7685: IF l_debug_level > 0 THEN
7686: oe_debug_pub.add( 'QTY TO RESERVE ' || L_QTY_TO_RESERVE , 2 ) ;
7687: oe_debug_pub.add( 'QTY2 TO RESERVE ' || L_QTY2_TO_RESERVE , 2 ) ;
7688: END IF;
7689:
7690:
7691: Reserve_Line
7704: p_x_line_rec.reserved_quantity2 :=
7705: p_old_line_rec.reserved_quantity2; -- INVCONV
7706:
7707: IF l_debug_level > 0 THEN
7708: oe_debug_pub.add( 'p_old_line_rec.reserved_quantity ' || p_old_line_rec.reserved_quantity , 2 ) ;
7709: oe_debug_pub.add( 'p_old_line_rec.reserved_quantity2 ' || p_old_line_rec.reserved_quantity2 , 2 ) ;
7710: END IF;
7711:
7712: END IF; -- l_qty_to_reserve
7705: p_old_line_rec.reserved_quantity2; -- INVCONV
7706:
7707: IF l_debug_level > 0 THEN
7708: oe_debug_pub.add( 'p_old_line_rec.reserved_quantity ' || p_old_line_rec.reserved_quantity , 2 ) ;
7709: oe_debug_pub.add( 'p_old_line_rec.reserved_quantity2 ' || p_old_line_rec.reserved_quantity2 , 2 ) ;
7710: END IF;
7711:
7712: END IF; -- l_qty_to_reserve
7713: END IF; -- If shippable Flag = Y
7715: END IF; /* If reservation needs to be performed */
7716:
7717:
7718: IF l_debug_level > 0 THEN
7719: oe_debug_pub.add( 'EXITING ACTION SCHEDULE: ' || X_RETURN_STATUS , 1 ) ;
7720: END IF;
7721:
7722: EXCEPTION
7723: WHEN FND_API.G_EXC_ERROR THEN
7760: l_mrp_msg_data VARCHAR2(200);
7761: l_qty_to_unreserve NUMBER;
7762: l_qty2_to_unreserve NUMBER; -- INVCONV
7763: --
7764: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7765: --
7766: BEGIN
7767:
7768: IF l_debug_level > 0 THEN
7765: --
7766: BEGIN
7767:
7768: IF l_debug_level > 0 THEN
7769: oe_debug_pub.add( 'ENTERING ACTION_UNSCHEDULE ' , 1 ) ;
7770: END IF;
7771:
7772: -- shipping_interfaced_flag
7773: IF (p_old_line_rec.reserved_quantity is not null AND
7817: l_session_id := Get_Session_Id;
7818:
7819: -- Call ATP
7820: IF l_debug_level > 0 THEn
7821: oe_debug_pub.add('1. Calling MRP API with session id '||l_session_id,0.5); -- debug level changed to 0.5 for bug 13435459
7822: END IF;
7823:
7824: MRP_ATP_PUB.Call_ATP
7825: ( p_session_id => l_session_id
7831: , x_return_status => x_return_status
7832: , x_msg_data => l_mrp_msg_data
7833: , x_msg_count => l_msg_count);
7834: IF l_debug_level > 0 THEN
7835: oe_debug_pub.add('2. After Calling MRP_ATP_PUB.Call_ATP' ||
7836: x_return_status,0.5); -- debug level changed to 0.5 for bug 13435459
7837: END IF;
7838:
7839: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7865: p_old_line_rec => p_old_line_rec,
7866: x_return_status => x_return_status);
7867:
7868: IF l_debug_level > 0 THEN
7869: oe_debug_pub.add( 'AFTER CALLING MRP API: ' || X_RETURN_STATUS , 2 ) ;
7870: END IF;
7871:
7872: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7882: p_x_line_rec.reserved_quantity2 := null; -- INVCONV
7883:
7884:
7885: IF l_debug_level > 0 THEN
7886: oe_debug_pub.add( 'EXITING ACTION_UNSCHEDULE ' , 1 ) ;
7887: END IF;
7888: EXCEPTION
7889: WHEN FND_API.G_EXC_ERROR THEN
7890:
7926: -- Bug 1955004
7927: l_scheduling_level_code VARCHAR2(30);
7928:
7929: --
7930: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7931: --
7932: BEGIN
7933:
7934: IF l_debug_level > 0 THEN
7931: --
7932: BEGIN
7933:
7934: IF l_debug_level > 0 THEN
7935: oe_debug_pub.add( 'ENTERING ACTION_UNDEMAND' , 1 ) ;
7936: END IF;
7937:
7938: --BUG 1955004
7939: IF l_debug_level > 0 THEN
7936: END IF;
7937:
7938: --BUG 1955004
7939: IF l_debug_level > 0 THEN
7940: oe_debug_pub.add( 'CHECKING SCHEDULING LEVEL...' , 1 ) ;
7941: END IF;
7942: l_scheduling_level_code := Get_Scheduling_Level(p_old_line_rec.header_id,
7943: p_old_line_rec.line_type_id);
7944:
7942: l_scheduling_level_code := Get_Scheduling_Level(p_old_line_rec.header_id,
7943: p_old_line_rec.line_type_id);
7944:
7945: IF l_debug_level > 0 THEN
7946: oe_debug_pub.add( 'L_SCHEDULING_LEVEL_CODE : ' || L_SCHEDULING_LEVEL_CODE , 1 ) ;
7947: END IF;
7948: -- 3763015
7949: IF (l_scheduling_level_code = SCH_LEVEL_FOUR OR
7950: l_scheduling_level_code = SCH_LEVEL_FIVE OR
7952: Nvl(p_old_line_rec.bypass_sch_flag, 'N') = 'Y' THEN -- DOO Integration
7953: -- this is an inactive demand line.
7954:
7955: IF l_debug_level > 0 THEN
7956: oe_debug_pub.add( 'IT IS AN INACTIVE DEMAND LINE' , 1 ) ;
7957: END IF;
7958: NULL;
7959: ELSE
7960: --END 1955004
7959: ELSE
7960: --END 1955004
7961:
7962: IF l_debug_level > 0 THEN
7963: oe_debug_pub.add( 'STD ACTION_UNDEMAND ACTION' , 1 ) ;
7964: END IF;
7965:
7966: -- Create MRP record with action of UNDEMAND.
7967:
7977:
7978: -- Call ATP
7979:
7980: IF l_debug_level > 0 THEN
7981: oe_debug_pub.add( '4. CALLING MRP API WITH SESSION ID '||L_SESSION_ID , 1 ) ;
7982: END IF;
7983:
7984: MRP_ATP_PUB.Call_ATP
7985: ( p_session_id => l_session_id
7992: , x_msg_data => l_msg_data
7993: , x_msg_count => l_msg_count);
7994:
7995: IF l_debug_level > 0 THEN
7996: oe_debug_pub.add( '4. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || X_RETURN_STATUS , 1 ) ;
7997: END IF;
7998:
7999: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8007: END IF; -- MRP count.
8008: END IF; -- For new IF statement for 1955004
8009:
8010: IF l_debug_level > 0 THEN
8011: oe_debug_pub.add( 'EXITING ACTION_UNDEMAND' , 1 ) ;
8012: END IF;
8013:
8014: EXCEPTION
8015:
8048: l_changed_reserved_qty2 NUMBER; -- INVCONV
8049: l_qty2_to_reserve NUMBER; -- INVCONV
8050:
8051:
8052: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8053: --
8054: BEGIN
8055:
8056: IF l_debug_level > 0 THEN
8053: --
8054: BEGIN
8055:
8056: IF l_debug_level > 0 THEN
8057: oe_debug_pub.add( 'ENTERING ACTION RESERVE ' ) ;
8058: END IF;
8059: x_return_status := FND_API.G_RET_STS_SUCCESS;
8060:
8061: -- When only subinventory changed on the line. Need Scheduling
8095: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED :=TRUE;
8096: -- End Added for bug 2470416
8097:
8098: IF l_debug_level > 0 THEN
8099: oe_debug_pub.add( 'AFTER DELETING THE RESERVATION' , 3 ) ;
8100: END IF;
8101: END IF;
8102:
8103: IF nvl(p_x_line_rec.shippable_flag,'N') = 'Y'
8128: IF (l_changed_reserved_qty > 0 AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='P')-- bug 16782621
8129: OR (l_changed_reserved_qty2 > 0 AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='S')
8130: THEN
8131: IF l_debug_level > 0 THEN
8132: oe_debug_pub.add( 'RESERVED QUANTITY HAS DECREASED' , 1 ) ;
8133: END IF;
8134:
8135: -- No need to pass old record. Since this is a change
8136: -- due to quantity.
8165: ELSIF (l_changed_reserved_qty < 0 AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='P')
8166: OR (l_changed_reserved_qty2 < 0 AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='S')
8167: THEN
8168: IF l_debug_level > 0 THEN
8169: oe_debug_pub.add( 'RESERVED QUANTITY HAS INCREASED' , 1 ) ;
8170: END IF;
8171:
8172: -- Make sure reservation qty should not be more than
8173: -- Ordered qty.
8202: end if;
8203:
8204:
8205: IF l_debug_level > 0 THEN
8206: oe_debug_pub.add( 'QTY TO RESERVE ' || L_QTY_TO_RESERVE , 2 ) ;
8207: oe_debug_pub.add( 'QTY2 TO RESERVE ' || L_QTY2_TO_RESERVE , 2 ) ;
8208: END IF;
8209:
8210: -- IF l_qty_to_reserve > 0 -- bug 16782621
8203:
8204:
8205: IF l_debug_level > 0 THEN
8206: oe_debug_pub.add( 'QTY TO RESERVE ' || L_QTY_TO_RESERVE , 2 ) ;
8207: oe_debug_pub.add( 'QTY2 TO RESERVE ' || L_QTY2_TO_RESERVE , 2 ) ;
8208: END IF;
8209:
8210: -- IF l_qty_to_reserve > 0 -- bug 16782621
8211: IF ( l_qty_to_reserve > 0 AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='P')-- bug 16782621
8233: END IF; -- end of reserved_quantity change code
8234:
8235: END IF; -- Check for shippable flag.
8236: IF l_debug_level > 0 THEN
8237: oe_debug_pub.add( 'EXITING ACTION RESERVE ' ) ;
8238: END IF;
8239:
8240: EXCEPTION
8241: WHEN FND_API.G_EXC_ERROR THEN
8291: l_dummy_sn inv_reservation_global.serial_number_tbl_type;
8292: l_buffer VARCHAR2(2000);
8293: l_rsv_update BOOLEAN :=FALSE;
8294: --
8295: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8296: --
8297: /*OPM BEGIN Bug 2794760
8298: ====================*/
8299: -- l_item_rec OE_ORDER_CACHE.item_rec_type; -- OPM -- INVCONV Not needed now because of OPM inventory convergence
8302: BEGIN
8303: x_return_status := FND_API.G_RET_STS_SUCCESS;
8304: x_reserve_later := 'N';
8305: IF l_debug_level > 0 THEN
8306: oe_debug_pub.add( 'ENTERING ACTION_RESCHEDULE ' || P_X_LINE_REC.OPEN_FLAG , 1 ) ;
8307: oe_debug_pub.add( 'ENTERING ACTION_RESCHEDULE p_x_line_rec.fulfillment_base ' || P_X_LINE_REC.fulfillment_base , 1 ) ;
8308: END IF;
8309:
8310: IF (p_old_line_rec.reserved_quantity is not null)
8303: x_return_status := FND_API.G_RET_STS_SUCCESS;
8304: x_reserve_later := 'N';
8305: IF l_debug_level > 0 THEN
8306: oe_debug_pub.add( 'ENTERING ACTION_RESCHEDULE ' || P_X_LINE_REC.OPEN_FLAG , 1 ) ;
8307: oe_debug_pub.add( 'ENTERING ACTION_RESCHEDULE p_x_line_rec.fulfillment_base ' || P_X_LINE_REC.fulfillment_base , 1 ) ;
8308: END IF;
8309:
8310: IF (p_old_line_rec.reserved_quantity is not null)
8311: THEN
8387: x_return_status => x_return_status);
8388:
8389: --4161641
8390: IF l_debug_level > 0 THEN
8391: oe_debug_pub.add( 'X_RETURN_STATUS ' || X_RETURN_STATUS , 1 ) ;
8392: END IF;
8393: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8394: IF l_debug_level > 0 THEN
8395: oe_debug_pub.add( 'UNEXPECTED ERROR FROM MRP CALL ' , 1 ) ;
8391: oe_debug_pub.add( 'X_RETURN_STATUS ' || X_RETURN_STATUS , 1 ) ;
8392: END IF;
8393: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8394: IF l_debug_level > 0 THEN
8395: oe_debug_pub.add( 'UNEXPECTED ERROR FROM MRP CALL ' , 1 ) ;
8396: END IF;
8397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8398: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
8399: IF l_debug_level > 0 THEN
8396: END IF;
8397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8398: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
8399: IF l_debug_level > 0 THEN
8400: oe_debug_pub.add( 'ACTION RESCHEDULE : ERROR FROM MRP CALL' , 1 ) ;
8401: END IF;
8402: RAISE FND_API.G_EXC_ERROR;
8403: END IF;
8404:
8412: p_old_line_rec.inventory_item_id)
8413: THEN
8414:
8415: IF l_debug_level > 0 THEN
8416: oe_debug_pub.add( 'SUB: REMOVE THE RESERVATION ON OLD LINE' , 1 ) ;
8417: END IF;
8418:
8419: IF l_old_reserved_qty > 0 THEN
8420: l_qty2_to_unreserve := p_old_line_rec.reserved_quantity2 ; --bug 16434168
8444: AND l_old_reserved_qty = 0
8445: THEN
8446:
8447: IF l_debug_level > 0 THEN
8448: oe_debug_pub.add( 'SUB: SETTING RESERVE LATER FLAG' , 3 ) ;
8449: END IF;
8450: x_reserve_later := 'Y';
8451: END IF;
8452:
8474: l_reservation_rec.organization_id := p_old_line_rec.ship_from_org_id;
8475:
8476:
8477: IF l_debug_level > 0 THEN
8478: oe_debug_pub.add( 'RSCH: CALLING INVS QUERY_RESERVATION ' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
8479: END IF;
8480: inv_reservation_pub.query_reservation
8481: ( p_api_version_number => 1.0
8482: , p_init_msg_lst => fnd_api.g_true
8491: , p_sort_by_req_date => l_sort_by_req_date
8492: );
8493:
8494: IF l_debug_level > 0 THEN
8495: oe_debug_pub.add( 'AFTER CALLING INVS QUERY_RESERVATION: ' || X_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
8496: END IF;
8497:
8498: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8501: RAISE FND_API.G_EXC_ERROR;
8502: END IF;
8503:
8504: IF l_debug_level > 0 THEN
8505: oe_debug_pub.add( 'RESERVATION RECORD COUNT IS: ' || L_RSV_TBL.COUNT , 1 ) ;
8506: END IF;
8507:
8508: -- Let's get the total reserved_quantity
8509: FOR K IN 1..l_rsv_tbl.count LOOP
8511: l_reservation_rec := l_rsv_tbl(K);
8512: l_reservation_rec.requirement_date := p_x_line_rec.schedule_ship_date;
8513:
8514: IF l_debug_level > 0 THEN
8515: oe_debug_pub.add( 'RSCH: CALLING INVS UPDATE RESERVATION ' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
8516: END IF;
8517: inv_reservation_pub.update_reservation
8518: ( p_api_version_number => 1.0
8519: , p_init_msg_lst => fnd_api.g_true
8528: , p_over_reservation_flag => 2 -- 4715544
8529: );
8530:
8531: IF l_debug_level > 0 THEN
8532: oe_debug_pub.add( 'AFTER CALLING INVS UPDATE_RESERVATION: ' || X_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
8533: END IF;
8534:
8535: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8539: fnd_message.set_encoded(l_msg_data);
8540: l_buffer := fnd_message.get;
8541: oe_msg_pub.add_text(p_message_text => l_buffer);
8542: IF l_debug_level > 0 THEN
8543: oe_debug_pub.add( 'ERROR : '|| L_BUFFER , 1 ) ;
8544: END IF;
8545: END IF;
8546: RAISE FND_API.G_EXC_ERROR;
8547: END IF;
8562: /* IF NOT OE_GLOBALS.Equal(p_x_line_rec.inventory_item_id,
8563: p_old_line_rec.inventory_item_id)
8564: THEN
8565:
8566: oe_debug_pub.add('No re-reserve due to item change',1);
8567: RETURN;
8568: END IF;
8569: */
8570: -- 4316272
8579: AND l_old_reserved_qty = 0
8580: THEN
8581:
8582: IF l_debug_level > 0 THEN
8583: oe_debug_pub.add( 'RESERVING IN ACTION_RESCHEDULE' ) ;
8584: END IF;
8585:
8586: -- Old reservation does not exists on the line.
8587: -- create a new reservation.
8625: l_qty2_to_reserve := NULL;
8626: END IF;
8627:
8628: IF l_debug_level > 0 THEN
8629: oe_debug_pub.add( 'QTY TO RESERVE ' || L_QTY_TO_RESERVE , 2 ) ;
8630: oe_debug_pub.add( 'QTY2 TO RESERVE ' || L_QTY2_TO_RESERVE , 2 ) ;
8631: END IF;
8632:
8633:
8626: END IF;
8627:
8628: IF l_debug_level > 0 THEN
8629: oe_debug_pub.add( 'QTY TO RESERVE ' || L_QTY_TO_RESERVE , 2 ) ;
8630: oe_debug_pub.add( 'QTY2 TO RESERVE ' || L_QTY2_TO_RESERVE , 2 ) ;
8631: END IF;
8632:
8633:
8634: Reserve_Line
8648: AND NOT OE_GLOBALS.Equal(p_x_line_rec.reserved_quantity,
8649: l_old_reserved_qty)
8650: THEN
8651: IF l_debug_level > 0 THEN
8652: oe_debug_pub.add( 'reserved qty has changed during rescheduling process. ' , 2 ) ;
8653: END IF;
8654: Action_reserve(p_x_line_rec => p_x_line_rec,
8655: p_old_line_rec => p_old_line_rec,
8656: x_return_status => x_return_status);
8662: l_old_reserved_qty2)
8663: AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='S'
8664: THEN
8665: IF l_debug_level > 0 THEN
8666: oe_debug_pub.add( 'reserved qty2 has changed during rescheduling process. ' , 2 ) ;
8667: END IF;
8668: Action_reserve(p_x_line_rec => p_x_line_rec,
8669: p_old_line_rec => p_old_line_rec,
8670: x_return_status => x_return_status);
8695: OR (l_changed_reserved_qty2 > 0 AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='S')
8696: THEN
8697:
8698: IF l_debug_level > 0 THEN
8699: oe_debug_pub.add( 'RESERVED QUANTITY HAS DECREASED' , 1 ) ;
8700: END IF;
8701:
8702: -- No need to pass old record. Since this is a change
8703: -- due to quantity.
8744: OR ( l_changed_reserved_qty2 < 0 AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='S')
8745: THEN
8746:
8747: IF l_debug_level > 0 THEN
8748: oe_debug_pub.add( 'RESERVED QUANTITY HAS INCREASED' , 1 ) ;
8749: END IF;
8750:
8751: l_qty_to_reserve := p_x_line_rec.reserved_quantity -
8752: l_old_reserved_qty;
8757: IF l_qty2_to_reserve = 0 THEN -- INVCONV
8758: l_qty2_to_reserve := null;
8759: END IF;
8760: IF l_debug_level > 0 THEN
8761: oe_debug_pub.add( 'QTY TO RESERVE ' || L_QTY_TO_RESERVE , 2 ) ;
8762: oe_debug_pub.add( 'QTY2 TO RESERVE ' || L_QTY2_TO_RESERVE , 2 ) ;
8763: END IF;
8764:
8765:
8758: l_qty2_to_reserve := null;
8759: END IF;
8760: IF l_debug_level > 0 THEN
8761: oe_debug_pub.add( 'QTY TO RESERVE ' || L_QTY_TO_RESERVE , 2 ) ;
8762: oe_debug_pub.add( 'QTY2 TO RESERVE ' || L_QTY2_TO_RESERVE , 2 ) ;
8763: END IF;
8764:
8765:
8766: Reserve_Line
8808: IF p_x_line_rec.ordered_quantity_uom2 is not null and
8809: p_x_line_rec.ordered_quantity_uom2 <> FND_API.G_MISS_CHAR THEN
8810: -- Only invoke the conversion for dual tracked items
8811: IF l_debug_level > 0 THEN
8812: oe_debug_pub.add( 'DUAL Tracked quantity so convert the qty to reserve ' || l_qty_to_reserve , 1 ) ;
8813: END IF;
8814: IF Nvl(p_x_line_rec.fulfillment_base ,'P') ='P' THEN --added for bug 16782621
8815: l_qty2_to_reserve := inv_convert.inv_um_convert(
8816: item_id => p_x_line_rec.inventory_item_id
8823: , from_name => NULL -- from uom name
8824: , to_name => NULL -- to uom name
8825: );
8826: IF l_debug_level > 0 THEN
8827: oe_debug_pub.add( 'After UOM conversion the secondary to reserve is ' || l_qty2_to_reserve , 1 ) ;
8828: END IF;
8829:
8830: IF l_qty2_to_reserve = -99999 THEN
8831: -- conversion failed
8831: -- conversion failed
8832: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR'); -- INVCONV
8833: OE_MSG_PUB.ADD;
8834: IF l_debug_level > 0 THEN
8835: oe_debug_pub.add( 'ERROR on UOM conversion to Secondary UOM which is '||p_x_line_rec.ordered_quantity_uom2 , 1 ) ;
8836: END IF;
8837: RAISE FND_API.G_EXC_ERROR;
8838: END IF;
8839:
8844: END IF;--p_x_line_rec.ordered_quantity_uom2 is not null
8845: -- KYH BUG 4245418 END
8846:
8847: IF l_debug_level > 0 THEN
8848: oe_debug_pub.add( 'p_x_line_rec.ordered_quantity ' || p_x_line_rec.ordered_quantity , 2 ) ;
8849: oe_debug_pub.add( 'p_x_line_rec.reserved_quantity ' || p_x_line_rec.reserved_quantity , 2 ) ;
8850: oe_debug_pub.add( 'p_x_line_rec.ordered_quantity2 ' || p_x_line_rec.ordered_quantity2 , 2 ) ;
8851: oe_debug_pub.add( 'p_x_line_rec.reserved_quantity2 ' || p_x_line_rec.reserved_quantity2 , 2 ) ;
8852: END IF;
8845: -- KYH BUG 4245418 END
8846:
8847: IF l_debug_level > 0 THEN
8848: oe_debug_pub.add( 'p_x_line_rec.ordered_quantity ' || p_x_line_rec.ordered_quantity , 2 ) ;
8849: oe_debug_pub.add( 'p_x_line_rec.reserved_quantity ' || p_x_line_rec.reserved_quantity , 2 ) ;
8850: oe_debug_pub.add( 'p_x_line_rec.ordered_quantity2 ' || p_x_line_rec.ordered_quantity2 , 2 ) ;
8851: oe_debug_pub.add( 'p_x_line_rec.reserved_quantity2 ' || p_x_line_rec.reserved_quantity2 , 2 ) ;
8852: END IF;
8853:
8846:
8847: IF l_debug_level > 0 THEN
8848: oe_debug_pub.add( 'p_x_line_rec.ordered_quantity ' || p_x_line_rec.ordered_quantity , 2 ) ;
8849: oe_debug_pub.add( 'p_x_line_rec.reserved_quantity ' || p_x_line_rec.reserved_quantity , 2 ) ;
8850: oe_debug_pub.add( 'p_x_line_rec.ordered_quantity2 ' || p_x_line_rec.ordered_quantity2 , 2 ) ;
8851: oe_debug_pub.add( 'p_x_line_rec.reserved_quantity2 ' || p_x_line_rec.reserved_quantity2 , 2 ) ;
8852: END IF;
8853:
8854:
8847: IF l_debug_level > 0 THEN
8848: oe_debug_pub.add( 'p_x_line_rec.ordered_quantity ' || p_x_line_rec.ordered_quantity , 2 ) ;
8849: oe_debug_pub.add( 'p_x_line_rec.reserved_quantity ' || p_x_line_rec.reserved_quantity , 2 ) ;
8850: oe_debug_pub.add( 'p_x_line_rec.ordered_quantity2 ' || p_x_line_rec.ordered_quantity2 , 2 ) ;
8851: oe_debug_pub.add( 'p_x_line_rec.reserved_quantity2 ' || p_x_line_rec.reserved_quantity2 , 2 ) ;
8852: END IF;
8853:
8854:
8855: IF l_qty2_to_reserve = 0 THEN -- INVCONV
8863: l_rsv_update := TRUE;
8864: END IF;
8865:
8866: IF l_debug_level > 0 THEN
8867: oe_debug_pub.add( 'QTY TO RESERVE ' || L_QTY_TO_RESERVE , 2 ) ;
8868: oe_debug_pub.add( 'QTY2 TO RESERVE ' || L_QTY2_TO_RESERVE , 2 ) ;
8869: END IF;
8870:
8871:
8864: END IF;
8865:
8866: IF l_debug_level > 0 THEN
8867: oe_debug_pub.add( 'QTY TO RESERVE ' || L_QTY_TO_RESERVE , 2 ) ;
8868: oe_debug_pub.add( 'QTY2 TO RESERVE ' || L_QTY2_TO_RESERVE , 2 ) ;
8869: END IF;
8870:
8871:
8872:
8889: -- need any res changes. To deal this, check the old reservation
8890: -- with the new ordered qty.
8891:
8892: IF l_debug_level > 0 THEN
8893: oe_debug_pub.add( 'ORDERED QTY IS GREATER THAN RES QTY' , 1 ) ;
8894: END IF;
8895: /*modified below if for bug16782621
8896: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity,
8897: p_old_line_rec.ordered_quantity) THEN --for bug 12378904
8902: p_old_line_rec.ordered_quantity2)
8903: AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='S')
8904: THEN
8905: IF l_debug_level > 0 THEN
8906: oe_debug_pub.add( 'OLD Ordered QTY Not Equal to New Ordered QTY' , 1 ) ;
8907: END IF;
8908:
8909:
8910: l_qty_to_unreserve := l_old_reserved_qty -
8958: END IF; -- Order qty and res qty changes.
8959: END IF; -- Need reservation changes.
8960: END IF; -- Shippable flag.
8961: IF l_debug_level > 0 THEN
8962: oe_debug_pub.add( 'EXITING ACTION_RESCHEDULE ' , 1 ) ;
8963: END IF;
8964: EXCEPTION
8965: WHEN FND_API.G_EXC_ERROR THEN
8966:
8999: l_source_code VARCHAR2(40) := FND_PROFILE.VALUE('ONT_SOURCE_CODE');
9000: l_sales_order_id NUMBER;
9001: l_subinventory VARCHAR2(10);
9002: --
9003: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9004:
9005: l_quantity2_to_reserve NUMBER; --INVCONV
9006: --
9007: BEGIN
9005: l_quantity2_to_reserve NUMBER; --INVCONV
9006: --
9007: BEGIN
9008: IF l_debug_level > 0 THEN
9009: oe_debug_pub.add( 'ENTERING LOAD INV REQUEST' , 1 ) ;
9010: END IF;
9011:
9012: x_reservation_rec := null;
9013: x_reservation_rec.reservation_id := fnd_api.g_miss_num; -- cannot know
9036:
9037: l_sales_order_id := Get_mtl_sales_order_id(p_line_rec.HEADER_ID);
9038:
9039: IF l_debug_level > 0 THEN
9040: oe_debug_pub.add( 'L_SALES_ORDER_ID' || L_SALES_ORDER_ID , 1 ) ;
9041: END IF;
9042:
9043: IF p_line_rec.subinventory = FND_API.G_MISS_CHAR THEN
9044: l_subinventory := NULL;
9085: x_reservation_rec.task_id := p_line_rec.task_id;
9086: END IF;
9087:
9088: IF l_debug_level > 0 THEN
9089: oe_debug_pub.add( 'p_quantity2_to_reserve = ' || p_quantity2_to_reserve , 1 ) ;
9090: oe_debug_pub.add( 'p_line_rec.ordered_quantity_uom2 = ' || p_line_rec.ordered_quantity_uom2 , 1 ) ;
9091: END IF;
9092:
9093:
9086: END IF;
9087:
9088: IF l_debug_level > 0 THEN
9089: oe_debug_pub.add( 'p_quantity2_to_reserve = ' || p_quantity2_to_reserve , 1 ) ;
9090: oe_debug_pub.add( 'p_line_rec.ordered_quantity_uom2 = ' || p_line_rec.ordered_quantity_uom2 , 1 ) ;
9091: END IF;
9092:
9093:
9094: IF l_debug_level > 0 THEN
9091: END IF;
9092:
9093:
9094: IF l_debug_level > 0 THEN
9095: oe_debug_pub.add( 'EXITING LOAD INV REQUEST' , 1 ) ;
9096: END IF;
9097: EXCEPTION
9098:
9099: WHEN NO_DATA_FOUND THEN
9097: EXCEPTION
9098:
9099: WHEN NO_DATA_FOUND THEN
9100: IF l_debug_level > 0 THEN
9101: oe_debug_pub.add( 'WHEN OTHERS OF LOAD INV REQUEST' , 1 ) ;
9102: END IF;
9103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9104:
9105: END Load_INV_Request;
9106:
9107: PROCEDURE Set_Auto_sch_flag_for_batch(p_header_id IN NUMBER)
9108: IS
9109: --
9110: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9111: --
9112: BEGIN
9113: IF l_debug_level > 0 THEN
9114: oe_debug_pub.add( 'ENTERING PROCEDURE SET_AUTO_SCH_FLAG_FOR_BATCH: ' || OESCH_AUTO_SCH_FLAG , 1 ) ;
9110: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9111: --
9112: BEGIN
9113: IF l_debug_level > 0 THEN
9114: oe_debug_pub.add( 'ENTERING PROCEDURE SET_AUTO_SCH_FLAG_FOR_BATCH: ' || OESCH_AUTO_SCH_FLAG , 1 ) ;
9115: END IF;
9116:
9117: IF OESCH_AUTO_SCHEDULE_PROFILE = 'Y' THEN
9118: Set_Auto_Sch_Flag('Y');
9117: IF OESCH_AUTO_SCHEDULE_PROFILE = 'Y' THEN
9118: Set_Auto_Sch_Flag('Y');
9119: ELSE
9120: IF l_debug_level > 0 THEN
9121: oe_debug_pub.add( 'LOAD HEADER : ' || P_HEADER_ID , 2 ) ;
9122: END IF;
9123: OE_Order_Cache.Load_Order_Header(p_header_id);
9124: OE_ORDER_CACHE.Load_order_type(OE_ORDER_CACHE.g_header_rec.order_type_id);
9125: IF l_debug_level > 0 THEN
9122: END IF;
9123: OE_Order_Cache.Load_Order_Header(p_header_id);
9124: OE_ORDER_CACHE.Load_order_type(OE_ORDER_CACHE.g_header_rec.order_type_id);
9125: IF l_debug_level > 0 THEN
9126: oe_debug_pub.add( 'ORDER TYPE ID : ' || OE_ORDER_CACHE.G_ORDER_TYPE_REC.ORDER_TYPE_ID , 2 ) ;
9127: END IF;
9128: IF nvl(OE_ORDER_CACHE.g_order_type_rec.auto_scheduling_flag,'N') = 'Y' THEN
9129: Set_Auto_Sch_Flag('Y');
9130: ELSE
9132: END IF;
9133: END IF;
9134:
9135: IF l_debug_level > 0 THEN
9136: oe_debug_pub.add( 'EXITING PROCEDURE SET_AUTO_SCH_FLAG_FOR_BATCH: ' || OESCH_AUTO_SCH_FLAG , 1 ) ;
9137: END IF;
9138: END Set_Auto_sch_flag_for_batch;
9139: FUNCTION Get_Scheduling_Level( p_header_id IN NUMBER,
9140: p_line_type_id IN NUMBER)
9143: l_scheduling_level_code VARCHAR2(30) := null;
9144: l_line_type VARCHAR2(80) := null;
9145: l_order_type VARCHAR2(80) := null;
9146: --
9147: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9148: --
9149: BEGIN
9150:
9151: IF l_debug_level > 0 THEN
9148: --
9149: BEGIN
9150:
9151: IF l_debug_level > 0 THEN
9152: oe_debug_pub.add( 'ENTERING GET_SCHEDULING_LEVEL: ' || P_HEADER_ID||'/'||P_LINE_TYPE_ID , 1 ) ;
9153: END IF;
9154:
9155: IF p_line_type_id = sch_cached_line_type_id
9156: THEN
9196: sch_cached_sch_level_code_head := l_scheduling_level_code;
9197: sch_cached_order_type := l_order_type;
9198:
9199: IF l_debug_level > 0 THEN
9200: oe_debug_pub.add( 'EXITING GET_SCHEDULING_LEVEL' , 1 ) ;
9201: END IF;
9202: RETURN l_scheduling_level_code;
9203:
9204: EXCEPTION
9203:
9204: EXCEPTION
9205: WHEN NO_DATA_FOUND THEN
9206: IF l_debug_level > 0 THEN
9207: oe_debug_pub.add( 'NO DATA FOUND GET_SCHEDULING_LEVEL' , 1 ) ;
9208: END IF;
9209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9210:
9211: END Get_Scheduling_Level;
9234: AND open_flag = 'Y'
9235: AND source_type_code = 'EXTERNAL';
9236:
9237: --
9238: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9239: --
9240: BEGIN
9241:
9242: IF l_debug_level > 0 THEN
9239: --
9240: BEGIN
9241:
9242: IF l_debug_level > 0 THEN
9243: oe_debug_pub.add( 'UPDATE SHIP DATE , EXTERNAL '|| P_X_LINE_REC.LINE_ID , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
9244: END IF;
9245:
9246: IF p_x_line_rec.ship_from_org_id is NULL THEN
9247: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATO_WHSE_REQD');
9253: p_x_line_rec.schedule_ship_date := p_x_line_rec.request_date;
9254: END IF;
9255:
9256: IF l_debug_level > 0 THEN
9257: oe_debug_pub.add( 'SHIP DATE '|| P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9258: END IF;
9259:
9260: l_index := 0;
9261: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
9283:
9284: END LOOP;
9285:
9286: IF l_debug_level > 0 THEN
9287: oe_debug_pub.add( 'ATO EXTERNAL '|| P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
9288: END IF;
9289: END IF;
9290:
9291:
9292: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
9293: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
9294:
9295: IF l_debug_level > 0 THEN
9296: oe_debug_pub.add( 'CALLING PROCESS ORDER' , 1 ) ;
9297: END IF;
9298:
9299: OE_Order_PVT.Lines
9300: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
9303: ,p_x_old_line_tbl => l_old_line_tbl
9304: ,x_return_status => l_return_status);
9305:
9306: IF l_debug_level > 0 THEN
9307: oe_debug_pub.add( 'SCH RETURN_STATUS IS ' || L_RETURN_STATUS , 1 ) ;
9308: END IF;
9309:
9310: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9320: ,p_old_line_tbl => l_old_line_tbl
9321: ,x_return_status => l_return_status);
9322:
9323: IF l_debug_level > 0 THEN
9324: oe_debug_pub.add( '1 SCH RETURN_STATUS IS ' || L_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
9325: END IF;
9326:
9327: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9331: END IF;
9332:
9333: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
9334: IF l_debug_level > 0 THEN
9335: oe_debug_pub.add( 'UI CASCADE FLAG SET TO TRUE' , 4 ) ;
9336: END IF;
9337:
9338: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
9339: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
9340:
9341: EXCEPTION
9342: WHEN OTHERS THEN
9343: IF l_debug_level > 0 THEN
9344: oe_debug_pub.add( 'HANDLE_EXTERNAL_LINES ERROR '|| SQLERRM , 1 ) ;
9345: END IF;
9346: RAISE;
9347: END Handle_External_Lines;
9348:
9387: l_old_rsv_qty NUMBER;
9388: l_old_rsv_qty2 NUMBER; -- INVCONV
9389: l_index NUMBER;
9390: --
9391: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9392: l_auto_schedule_sets VARCHAR2(1):='Y' ; --4241385
9393: l_set_id NUMBER ; --4241385
9394: l_set_exists BOOLEAN; --4241385
9395: l_set_scheduled BOOLEAN ; --4241385
9399: BEGIN
9400:
9401: Print_Time('Entering ** OE_SCHEDULE_UTIL.Schedule_Line ');
9402: IF l_debug_level > 0 THEN
9403: oe_debug_pub.add('Entering ** OE_SCHEDULE_UTIL.Schedule_Line ',0.5); -- Added for bug 13435459
9404: oe_debug_pub.add('---- Old Record ---- ',1);
9405: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_OLD_LINE_REC.LINE_ID , 1 ) ;
9406: oe_debug_pub.add( 'ATO LINE ID : '||P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
9407: oe_debug_pub.add( 'ORDERED QTY : '||P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9400:
9401: Print_Time('Entering ** OE_SCHEDULE_UTIL.Schedule_Line ');
9402: IF l_debug_level > 0 THEN
9403: oe_debug_pub.add('Entering ** OE_SCHEDULE_UTIL.Schedule_Line ',0.5); -- Added for bug 13435459
9404: oe_debug_pub.add('---- Old Record ---- ',1);
9405: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_OLD_LINE_REC.LINE_ID , 1 ) ;
9406: oe_debug_pub.add( 'ATO LINE ID : '||P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
9407: oe_debug_pub.add( 'ORDERED QTY : '||P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9408: oe_debug_pub.add( 'SHIP FROM : '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9401: Print_Time('Entering ** OE_SCHEDULE_UTIL.Schedule_Line ');
9402: IF l_debug_level > 0 THEN
9403: oe_debug_pub.add('Entering ** OE_SCHEDULE_UTIL.Schedule_Line ',0.5); -- Added for bug 13435459
9404: oe_debug_pub.add('---- Old Record ---- ',1);
9405: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_OLD_LINE_REC.LINE_ID , 1 ) ;
9406: oe_debug_pub.add( 'ATO LINE ID : '||P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
9407: oe_debug_pub.add( 'ORDERED QTY : '||P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9408: oe_debug_pub.add( 'SHIP FROM : '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9409: oe_debug_pub.add( 'SUBINVENTORY : '||P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
9402: IF l_debug_level > 0 THEN
9403: oe_debug_pub.add('Entering ** OE_SCHEDULE_UTIL.Schedule_Line ',0.5); -- Added for bug 13435459
9404: oe_debug_pub.add('---- Old Record ---- ',1);
9405: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_OLD_LINE_REC.LINE_ID , 1 ) ;
9406: oe_debug_pub.add( 'ATO LINE ID : '||P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
9407: oe_debug_pub.add( 'ORDERED QTY : '||P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9408: oe_debug_pub.add( 'SHIP FROM : '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9409: oe_debug_pub.add( 'SUBINVENTORY : '||P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
9410: oe_debug_pub.add( 'SCH SHIP DATE: '||P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9403: oe_debug_pub.add('Entering ** OE_SCHEDULE_UTIL.Schedule_Line ',0.5); -- Added for bug 13435459
9404: oe_debug_pub.add('---- Old Record ---- ',1);
9405: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_OLD_LINE_REC.LINE_ID , 1 ) ;
9406: oe_debug_pub.add( 'ATO LINE ID : '||P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
9407: oe_debug_pub.add( 'ORDERED QTY : '||P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9408: oe_debug_pub.add( 'SHIP FROM : '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9409: oe_debug_pub.add( 'SUBINVENTORY : '||P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
9410: oe_debug_pub.add( 'SCH SHIP DATE: '||P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9411: oe_debug_pub.add( 'SCH ARR DATE : '||P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9404: oe_debug_pub.add('---- Old Record ---- ',1);
9405: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_OLD_LINE_REC.LINE_ID , 1 ) ;
9406: oe_debug_pub.add( 'ATO LINE ID : '||P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
9407: oe_debug_pub.add( 'ORDERED QTY : '||P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9408: oe_debug_pub.add( 'SHIP FROM : '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9409: oe_debug_pub.add( 'SUBINVENTORY : '||P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
9410: oe_debug_pub.add( 'SCH SHIP DATE: '||P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9411: oe_debug_pub.add( 'SCH ARR DATE : '||P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9412: oe_debug_pub.add( 'SHIP SET ID : '||P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
9405: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_OLD_LINE_REC.LINE_ID , 1 ) ;
9406: oe_debug_pub.add( 'ATO LINE ID : '||P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
9407: oe_debug_pub.add( 'ORDERED QTY : '||P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9408: oe_debug_pub.add( 'SHIP FROM : '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9409: oe_debug_pub.add( 'SUBINVENTORY : '||P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
9410: oe_debug_pub.add( 'SCH SHIP DATE: '||P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9411: oe_debug_pub.add( 'SCH ARR DATE : '||P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9412: oe_debug_pub.add( 'SHIP SET ID : '||P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
9413: oe_debug_pub.add( 'ARR SET ID : '||P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9406: oe_debug_pub.add( 'ATO LINE ID : '||P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
9407: oe_debug_pub.add( 'ORDERED QTY : '||P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9408: oe_debug_pub.add( 'SHIP FROM : '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9409: oe_debug_pub.add( 'SUBINVENTORY : '||P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
9410: oe_debug_pub.add( 'SCH SHIP DATE: '||P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9411: oe_debug_pub.add( 'SCH ARR DATE : '||P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9412: oe_debug_pub.add( 'SHIP SET ID : '||P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
9413: oe_debug_pub.add( 'ARR SET ID : '||P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9414: oe_debug_pub.add( 'ACTION : '||P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9407: oe_debug_pub.add( 'ORDERED QTY : '||P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9408: oe_debug_pub.add( 'SHIP FROM : '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9409: oe_debug_pub.add( 'SUBINVENTORY : '||P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
9410: oe_debug_pub.add( 'SCH SHIP DATE: '||P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9411: oe_debug_pub.add( 'SCH ARR DATE : '||P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9412: oe_debug_pub.add( 'SHIP SET ID : '||P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
9413: oe_debug_pub.add( 'ARR SET ID : '||P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9414: oe_debug_pub.add( 'ACTION : '||P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9415: oe_debug_pub.add( 'STATUS : '||P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9408: oe_debug_pub.add( 'SHIP FROM : '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9409: oe_debug_pub.add( 'SUBINVENTORY : '||P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
9410: oe_debug_pub.add( 'SCH SHIP DATE: '||P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9411: oe_debug_pub.add( 'SCH ARR DATE : '||P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9412: oe_debug_pub.add( 'SHIP SET ID : '||P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
9413: oe_debug_pub.add( 'ARR SET ID : '||P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9414: oe_debug_pub.add( 'ACTION : '||P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9415: oe_debug_pub.add( 'STATUS : '||P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9416: oe_debug_pub.add( 'RES QUANTITY : '||P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9409: oe_debug_pub.add( 'SUBINVENTORY : '||P_OLD_LINE_REC.SUBINVENTORY , 1 ) ;
9410: oe_debug_pub.add( 'SCH SHIP DATE: '||P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9411: oe_debug_pub.add( 'SCH ARR DATE : '||P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9412: oe_debug_pub.add( 'SHIP SET ID : '||P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
9413: oe_debug_pub.add( 'ARR SET ID : '||P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9414: oe_debug_pub.add( 'ACTION : '||P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9415: oe_debug_pub.add( 'STATUS : '||P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9416: oe_debug_pub.add( 'RES QUANTITY : '||P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9417: oe_debug_pub.add( 'RES QUANTITY2 : '||P_OLD_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9410: oe_debug_pub.add( 'SCH SHIP DATE: '||P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9411: oe_debug_pub.add( 'SCH ARR DATE : '||P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9412: oe_debug_pub.add( 'SHIP SET ID : '||P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
9413: oe_debug_pub.add( 'ARR SET ID : '||P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9414: oe_debug_pub.add( 'ACTION : '||P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9415: oe_debug_pub.add( 'STATUS : '||P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9416: oe_debug_pub.add( 'RES QUANTITY : '||P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9417: oe_debug_pub.add( 'RES QUANTITY2 : '||P_OLD_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9418: oe_debug_pub.add( 'OVERRIDE ATP : '||P_OLD_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
9411: oe_debug_pub.add( 'SCH ARR DATE : '||P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9412: oe_debug_pub.add( 'SHIP SET ID : '||P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
9413: oe_debug_pub.add( 'ARR SET ID : '||P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9414: oe_debug_pub.add( 'ACTION : '||P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9415: oe_debug_pub.add( 'STATUS : '||P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9416: oe_debug_pub.add( 'RES QUANTITY : '||P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9417: oe_debug_pub.add( 'RES QUANTITY2 : '||P_OLD_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9418: oe_debug_pub.add( 'OVERRIDE ATP : '||P_OLD_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
9419: oe_debug_pub.add( ' ' , 1 ) ;
9412: oe_debug_pub.add( 'SHIP SET ID : '||P_OLD_LINE_REC.SHIP_SET_ID , 1 ) ;
9413: oe_debug_pub.add( 'ARR SET ID : '||P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9414: oe_debug_pub.add( 'ACTION : '||P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9415: oe_debug_pub.add( 'STATUS : '||P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9416: oe_debug_pub.add( 'RES QUANTITY : '||P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9417: oe_debug_pub.add( 'RES QUANTITY2 : '||P_OLD_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9418: oe_debug_pub.add( 'OVERRIDE ATP : '||P_OLD_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
9419: oe_debug_pub.add( ' ' , 1 ) ;
9420: oe_debug_pub.add('---- New Record ----',1);
9413: oe_debug_pub.add( 'ARR SET ID : '||P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9414: oe_debug_pub.add( 'ACTION : '||P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9415: oe_debug_pub.add( 'STATUS : '||P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9416: oe_debug_pub.add( 'RES QUANTITY : '||P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9417: oe_debug_pub.add( 'RES QUANTITY2 : '||P_OLD_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9418: oe_debug_pub.add( 'OVERRIDE ATP : '||P_OLD_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
9419: oe_debug_pub.add( ' ' , 1 ) ;
9420: oe_debug_pub.add('---- New Record ----',1);
9421: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_X_LINE_REC.LINE_ID , 1 ) ;
9414: oe_debug_pub.add( 'ACTION : '||P_OLD_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9415: oe_debug_pub.add( 'STATUS : '||P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9416: oe_debug_pub.add( 'RES QUANTITY : '||P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9417: oe_debug_pub.add( 'RES QUANTITY2 : '||P_OLD_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9418: oe_debug_pub.add( 'OVERRIDE ATP : '||P_OLD_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
9419: oe_debug_pub.add( ' ' , 1 ) ;
9420: oe_debug_pub.add('---- New Record ----',1);
9421: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_X_LINE_REC.LINE_ID , 1 ) ;
9422: oe_debug_pub.add( 'ATO LINE ID : '||P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
9415: oe_debug_pub.add( 'STATUS : '||P_OLD_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9416: oe_debug_pub.add( 'RES QUANTITY : '||P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9417: oe_debug_pub.add( 'RES QUANTITY2 : '||P_OLD_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9418: oe_debug_pub.add( 'OVERRIDE ATP : '||P_OLD_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
9419: oe_debug_pub.add( ' ' , 1 ) ;
9420: oe_debug_pub.add('---- New Record ----',1);
9421: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_X_LINE_REC.LINE_ID , 1 ) ;
9422: oe_debug_pub.add( 'ATO LINE ID : '||P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
9423: oe_debug_pub.add( 'ORDERED QTY : '||P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9416: oe_debug_pub.add( 'RES QUANTITY : '||P_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9417: oe_debug_pub.add( 'RES QUANTITY2 : '||P_OLD_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9418: oe_debug_pub.add( 'OVERRIDE ATP : '||P_OLD_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
9419: oe_debug_pub.add( ' ' , 1 ) ;
9420: oe_debug_pub.add('---- New Record ----',1);
9421: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_X_LINE_REC.LINE_ID , 1 ) ;
9422: oe_debug_pub.add( 'ATO LINE ID : '||P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
9423: oe_debug_pub.add( 'ORDERED QTY : '||P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9424: oe_debug_pub.add( 'SHIP FROM : '||P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9417: oe_debug_pub.add( 'RES QUANTITY2 : '||P_OLD_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9418: oe_debug_pub.add( 'OVERRIDE ATP : '||P_OLD_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
9419: oe_debug_pub.add( ' ' , 1 ) ;
9420: oe_debug_pub.add('---- New Record ----',1);
9421: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_X_LINE_REC.LINE_ID , 1 ) ;
9422: oe_debug_pub.add( 'ATO LINE ID : '||P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
9423: oe_debug_pub.add( 'ORDERED QTY : '||P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9424: oe_debug_pub.add( 'SHIP FROM : '||P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9425: oe_debug_pub.add( 'SUBINVENTORY : '||P_X_LINE_REC.SUBINVENTORY , 1 ) ;
9418: oe_debug_pub.add( 'OVERRIDE ATP : '||P_OLD_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
9419: oe_debug_pub.add( ' ' , 1 ) ;
9420: oe_debug_pub.add('---- New Record ----',1);
9421: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_X_LINE_REC.LINE_ID , 1 ) ;
9422: oe_debug_pub.add( 'ATO LINE ID : '||P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
9423: oe_debug_pub.add( 'ORDERED QTY : '||P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9424: oe_debug_pub.add( 'SHIP FROM : '||P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9425: oe_debug_pub.add( 'SUBINVENTORY : '||P_X_LINE_REC.SUBINVENTORY , 1 ) ;
9426: oe_debug_pub.add( 'SCH SHIP DATE: '||P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9419: oe_debug_pub.add( ' ' , 1 ) ;
9420: oe_debug_pub.add('---- New Record ----',1);
9421: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_X_LINE_REC.LINE_ID , 1 ) ;
9422: oe_debug_pub.add( 'ATO LINE ID : '||P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
9423: oe_debug_pub.add( 'ORDERED QTY : '||P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9424: oe_debug_pub.add( 'SHIP FROM : '||P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9425: oe_debug_pub.add( 'SUBINVENTORY : '||P_X_LINE_REC.SUBINVENTORY , 1 ) ;
9426: oe_debug_pub.add( 'SCH SHIP DATE: '||P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9427: oe_debug_pub.add( 'SCH ARR DATE : '||P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9420: oe_debug_pub.add('---- New Record ----',1);
9421: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_X_LINE_REC.LINE_ID , 1 ) ;
9422: oe_debug_pub.add( 'ATO LINE ID : '||P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
9423: oe_debug_pub.add( 'ORDERED QTY : '||P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9424: oe_debug_pub.add( 'SHIP FROM : '||P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9425: oe_debug_pub.add( 'SUBINVENTORY : '||P_X_LINE_REC.SUBINVENTORY , 1 ) ;
9426: oe_debug_pub.add( 'SCH SHIP DATE: '||P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9427: oe_debug_pub.add( 'SCH ARR DATE : '||P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9428: oe_debug_pub.add( 'SHIP SET ID : '||P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
9421: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_X_LINE_REC.LINE_ID , 1 ) ;
9422: oe_debug_pub.add( 'ATO LINE ID : '||P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
9423: oe_debug_pub.add( 'ORDERED QTY : '||P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9424: oe_debug_pub.add( 'SHIP FROM : '||P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9425: oe_debug_pub.add( 'SUBINVENTORY : '||P_X_LINE_REC.SUBINVENTORY , 1 ) ;
9426: oe_debug_pub.add( 'SCH SHIP DATE: '||P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9427: oe_debug_pub.add( 'SCH ARR DATE : '||P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9428: oe_debug_pub.add( 'SHIP SET ID : '||P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
9429: oe_debug_pub.add( 'ARR SET ID : '||P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9422: oe_debug_pub.add( 'ATO LINE ID : '||P_X_LINE_REC.ATO_LINE_ID , 1 ) ;
9423: oe_debug_pub.add( 'ORDERED QTY : '||P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9424: oe_debug_pub.add( 'SHIP FROM : '||P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9425: oe_debug_pub.add( 'SUBINVENTORY : '||P_X_LINE_REC.SUBINVENTORY , 1 ) ;
9426: oe_debug_pub.add( 'SCH SHIP DATE: '||P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9427: oe_debug_pub.add( 'SCH ARR DATE : '||P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9428: oe_debug_pub.add( 'SHIP SET ID : '||P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
9429: oe_debug_pub.add( 'ARR SET ID : '||P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9430: oe_debug_pub.add( 'ACTION : '||P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9423: oe_debug_pub.add( 'ORDERED QTY : '||P_X_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9424: oe_debug_pub.add( 'SHIP FROM : '||P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9425: oe_debug_pub.add( 'SUBINVENTORY : '||P_X_LINE_REC.SUBINVENTORY , 1 ) ;
9426: oe_debug_pub.add( 'SCH SHIP DATE: '||P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9427: oe_debug_pub.add( 'SCH ARR DATE : '||P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9428: oe_debug_pub.add( 'SHIP SET ID : '||P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
9429: oe_debug_pub.add( 'ARR SET ID : '||P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9430: oe_debug_pub.add( 'ACTION : '||P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9431: oe_debug_pub.add( 'STATUS : '||P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9424: oe_debug_pub.add( 'SHIP FROM : '||P_X_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
9425: oe_debug_pub.add( 'SUBINVENTORY : '||P_X_LINE_REC.SUBINVENTORY , 1 ) ;
9426: oe_debug_pub.add( 'SCH SHIP DATE: '||P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9427: oe_debug_pub.add( 'SCH ARR DATE : '||P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9428: oe_debug_pub.add( 'SHIP SET ID : '||P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
9429: oe_debug_pub.add( 'ARR SET ID : '||P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9430: oe_debug_pub.add( 'ACTION : '||P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9431: oe_debug_pub.add( 'STATUS : '||P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9432: oe_debug_pub.add( 'RES QTY : '||P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9425: oe_debug_pub.add( 'SUBINVENTORY : '||P_X_LINE_REC.SUBINVENTORY , 1 ) ;
9426: oe_debug_pub.add( 'SCH SHIP DATE: '||P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9427: oe_debug_pub.add( 'SCH ARR DATE : '||P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9428: oe_debug_pub.add( 'SHIP SET ID : '||P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
9429: oe_debug_pub.add( 'ARR SET ID : '||P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9430: oe_debug_pub.add( 'ACTION : '||P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9431: oe_debug_pub.add( 'STATUS : '||P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9432: oe_debug_pub.add( 'RES QTY : '||P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9433: oe_debug_pub.add( 'RES QTY2 : '||P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9426: oe_debug_pub.add( 'SCH SHIP DATE: '||P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9427: oe_debug_pub.add( 'SCH ARR DATE : '||P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9428: oe_debug_pub.add( 'SHIP SET ID : '||P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
9429: oe_debug_pub.add( 'ARR SET ID : '||P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9430: oe_debug_pub.add( 'ACTION : '||P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9431: oe_debug_pub.add( 'STATUS : '||P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9432: oe_debug_pub.add( 'RES QTY : '||P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9433: oe_debug_pub.add( 'RES QTY2 : '||P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9434: oe_debug_pub.add( 'OPERATION : '||P_X_LINE_REC.OPERATION , 1 ) ;
9427: oe_debug_pub.add( 'SCH ARR DATE : '||P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
9428: oe_debug_pub.add( 'SHIP SET ID : '||P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
9429: oe_debug_pub.add( 'ARR SET ID : '||P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9430: oe_debug_pub.add( 'ACTION : '||P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9431: oe_debug_pub.add( 'STATUS : '||P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9432: oe_debug_pub.add( 'RES QTY : '||P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9433: oe_debug_pub.add( 'RES QTY2 : '||P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9434: oe_debug_pub.add( 'OPERATION : '||P_X_LINE_REC.OPERATION , 1 ) ;
9435: oe_debug_pub.add( 'OESCH_AUTO_SCH_FLAG : '||OESCH_AUTO_SCH_FLAG , 1 ) ;
9428: oe_debug_pub.add( 'SHIP SET ID : '||P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
9429: oe_debug_pub.add( 'ARR SET ID : '||P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9430: oe_debug_pub.add( 'ACTION : '||P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9431: oe_debug_pub.add( 'STATUS : '||P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9432: oe_debug_pub.add( 'RES QTY : '||P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9433: oe_debug_pub.add( 'RES QTY2 : '||P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9434: oe_debug_pub.add( 'OPERATION : '||P_X_LINE_REC.OPERATION , 1 ) ;
9435: oe_debug_pub.add( 'OESCH_AUTO_SCH_FLAG : '||OESCH_AUTO_SCH_FLAG , 1 ) ;
9436: oe_debug_pub.add( 'OVERRIDE ATP : '||P_X_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
9429: oe_debug_pub.add( 'ARR SET ID : '||P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
9430: oe_debug_pub.add( 'ACTION : '||P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9431: oe_debug_pub.add( 'STATUS : '||P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9432: oe_debug_pub.add( 'RES QTY : '||P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9433: oe_debug_pub.add( 'RES QTY2 : '||P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9434: oe_debug_pub.add( 'OPERATION : '||P_X_LINE_REC.OPERATION , 1 ) ;
9435: oe_debug_pub.add( 'OESCH_AUTO_SCH_FLAG : '||OESCH_AUTO_SCH_FLAG , 1 ) ;
9436: oe_debug_pub.add( 'OVERRIDE ATP : '||P_X_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
9437: oe_debug_pub.add( ' ' , 1 ) ;
9430: oe_debug_pub.add( 'ACTION : '||P_X_LINE_REC.SCHEDULE_ACTION_CODE , 1 ) ;
9431: oe_debug_pub.add( 'STATUS : '||P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9432: oe_debug_pub.add( 'RES QTY : '||P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9433: oe_debug_pub.add( 'RES QTY2 : '||P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9434: oe_debug_pub.add( 'OPERATION : '||P_X_LINE_REC.OPERATION , 1 ) ;
9435: oe_debug_pub.add( 'OESCH_AUTO_SCH_FLAG : '||OESCH_AUTO_SCH_FLAG , 1 ) ;
9436: oe_debug_pub.add( 'OVERRIDE ATP : '||P_X_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
9437: oe_debug_pub.add( ' ' , 1 ) ;
9438: END IF;
9431: oe_debug_pub.add( 'STATUS : '||P_X_LINE_REC.SCHEDULE_STATUS_CODE , 1 ) ;
9432: oe_debug_pub.add( 'RES QTY : '||P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9433: oe_debug_pub.add( 'RES QTY2 : '||P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9434: oe_debug_pub.add( 'OPERATION : '||P_X_LINE_REC.OPERATION , 1 ) ;
9435: oe_debug_pub.add( 'OESCH_AUTO_SCH_FLAG : '||OESCH_AUTO_SCH_FLAG , 1 ) ;
9436: oe_debug_pub.add( 'OVERRIDE ATP : '||P_X_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
9437: oe_debug_pub.add( ' ' , 1 ) ;
9438: END IF;
9439:
9432: oe_debug_pub.add( 'RES QTY : '||P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9433: oe_debug_pub.add( 'RES QTY2 : '||P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9434: oe_debug_pub.add( 'OPERATION : '||P_X_LINE_REC.OPERATION , 1 ) ;
9435: oe_debug_pub.add( 'OESCH_AUTO_SCH_FLAG : '||OESCH_AUTO_SCH_FLAG , 1 ) ;
9436: oe_debug_pub.add( 'OVERRIDE ATP : '||P_X_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
9437: oe_debug_pub.add( ' ' , 1 ) ;
9438: END IF;
9439:
9440: x_return_status := FND_API.G_RET_STS_SUCCESS;
9433: oe_debug_pub.add( 'RES QTY2 : '||P_X_LINE_REC.RESERVED_QUANTITY2 , 1 ) ;
9434: oe_debug_pub.add( 'OPERATION : '||P_X_LINE_REC.OPERATION , 1 ) ;
9435: oe_debug_pub.add( 'OESCH_AUTO_SCH_FLAG : '||OESCH_AUTO_SCH_FLAG , 1 ) ;
9436: oe_debug_pub.add( 'OVERRIDE ATP : '||P_X_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
9437: oe_debug_pub.add( ' ' , 1 ) ;
9438: END IF;
9439:
9440: x_return_status := FND_API.G_RET_STS_SUCCESS;
9441:
9454: l_sales_order_id := Get_mtl_sales_order_id(p_x_line_rec.HEADER_ID);
9455:
9456: IF l_old_line_rec.reserved_quantity is null THEN
9457: IF l_debug_level > 0 THEN
9458: oe_debug_pub.add( 'RR1: L_OLD_LINE_REC.RESERVED_QUANTITY IS NULL' , 1 ) ;
9459: END IF;
9460: ELSIF l_old_line_rec.reserved_quantity = FND_API.G_MISS_NUM THEN
9461: IF l_debug_level > 0 THEN
9462: oe_debug_pub.add( 'RR2: L_OLD_LINE_REC.RESERVED_QUANTITY IS MISSING' , 1 ) ;
9458: oe_debug_pub.add( 'RR1: L_OLD_LINE_REC.RESERVED_QUANTITY IS NULL' , 1 ) ;
9459: END IF;
9460: ELSIF l_old_line_rec.reserved_quantity = FND_API.G_MISS_NUM THEN
9461: IF l_debug_level > 0 THEN
9462: oe_debug_pub.add( 'RR2: L_OLD_LINE_REC.RESERVED_QUANTITY IS MISSING' , 1 ) ;
9463: END IF;
9464: END IF;
9465:
9466: --l_old_line_rec.reserved_quantity :=
9472: -- INVCONV
9473:
9474: IF l_old_line_rec.reserved_quantity2 is null THEN
9475: IF l_debug_level > 0 THEN
9476: oe_debug_pub.add( 'RR1: L_OLD_LINE_REC.RESERVED_QUANTITY2 IS NULL' , 1 ) ;
9477: END IF;
9478: ELSIF l_old_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM THEN
9479: IF l_debug_level > 0 THEN
9480: oe_debug_pub.add( 'RR2: L_OLD_LINE_REC.RESERVED_QUANTITY2 IS MISSING' , 1 ) ;
9476: oe_debug_pub.add( 'RR1: L_OLD_LINE_REC.RESERVED_QUANTITY2 IS NULL' , 1 ) ;
9477: END IF;
9478: ELSIF l_old_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM THEN
9479: IF l_debug_level > 0 THEN
9480: oe_debug_pub.add( 'RR2: L_OLD_LINE_REC.RESERVED_QUANTITY2 IS MISSING' , 1 ) ;
9481: END IF;
9482: END IF;
9483:
9484: --l_old_line_rec.reserved_quantity2 :=
9580: END IF;
9581:
9582:
9583: IF l_debug_level > 0 THEN
9584: oe_debug_pub.add( 'OLD RES QTY :' || L_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9585: END IF;
9586: IF l_debug_level > 0 THEN
9587: oe_debug_pub.add( 'NEW RES QTY :' || P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9588: END IF;
9583: IF l_debug_level > 0 THEN
9584: oe_debug_pub.add( 'OLD RES QTY :' || L_OLD_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9585: END IF;
9586: IF l_debug_level > 0 THEN
9587: oe_debug_pub.add( 'NEW RES QTY :' || P_X_LINE_REC.RESERVED_QUANTITY , 1 ) ;
9588: END IF;
9589:
9590: ------------ reserved qty and miss num handling done ----------
9591:
9608: p_old_line_rec.Inventory_Item_Id)
9609: AND p_x_line_rec.schedule_status_code is not null
9610: AND p_x_line_rec.item_relationship_type is null
9611: THEN
9612: oe_debug_pub.add('SL: clearing out the original item fields') ;
9613: p_x_line_rec.Original_Inventory_Item_Id := Null;
9614: p_x_line_rec.Original_item_identifier_Type := Null;
9615: p_x_line_rec.Original_ordered_item_id := Null;
9616: p_x_line_rec.Original_ordered_item := Null;
9623:
9624: IF OE_GLOBALS.G_UI_FLAG THEN
9625:
9626: IF l_debug_level > 0 THEN
9627: oe_debug_pub.add( 'UI IS SET' , 1 ) ;
9628: END IF;
9629: ELSE
9630:
9631: IF l_debug_level > 0 THEN
9628: END IF;
9629: ELSE
9630:
9631: IF l_debug_level > 0 THEN
9632: oe_debug_pub.add( 'UI IS NOT SET' , 1 ) ;
9633: END IF;
9634: END IF;
9635:
9636: IF l_debug_level > 0 THEN
9633: END IF;
9634: END IF;
9635:
9636: IF l_debug_level > 0 THEN
9637: oe_debug_pub.add( 'SOURCE :' || P_X_LINE_REC.SOURCE_DOCUMENT_TYPE_ID , 1 ) ;
9638: END IF;
9639: IF l_debug_level > 0 THEN
9640: oe_debug_pub.add( 'OPR :' || P_X_LINE_REC.OPERATION , 1 ) ;
9641: END IF;
9636: IF l_debug_level > 0 THEN
9637: oe_debug_pub.add( 'SOURCE :' || P_X_LINE_REC.SOURCE_DOCUMENT_TYPE_ID , 1 ) ;
9638: END IF;
9639: IF l_debug_level > 0 THEN
9640: oe_debug_pub.add( 'OPR :' || P_X_LINE_REC.OPERATION , 1 ) ;
9641: END IF;
9642:
9643: IF NOT OE_GLOBALS.G_UI_FLAG
9644: AND NOT (nvl(p_x_line_rec.source_document_type_id,-99) = 2)
9649: )
9650: THEN --2998550 added check for G_CONFIG_UI_USED to set flag for batch
9651:
9652: IF l_debug_level > 0 THEN
9653: oe_debug_pub.add( 'BEFORE SETTING AUTO SCHEDULING FLAG FOR BATCH' , 1 ) ;
9654: END IF;
9655:
9656: Set_Auto_sch_flag_for_batch(p_x_line_rec.header_id);
9657:
9656: Set_Auto_sch_flag_for_batch(p_x_line_rec.header_id);
9657:
9658: ELSE
9659: IF l_debug_level > 0 THEN
9660: oe_debug_pub.add( 'ELSE SETTING AUTO SCHEDULING FLAG FOR' , 1 ) ;
9661: END IF;
9662: END IF;
9663:
9664: -- 4026758
9682: p_set_id => nvl(l_old_line_rec.ship_set_id,l_old_line_rec.arrival_set_id),
9683: x_return_status => x_return_status);
9684:
9685: IF l_debug_level > 0 THEN
9686: oe_debug_pub.add( 'AFTER Inserting data in OE_SETS_HISTORY table ' || x_return_status , 1 ) ;
9687: END IF;
9688:
9689: Log_Delete_Set_Request
9690: (p_header_id => p_x_line_rec.header_id,
9691: p_line_id => p_x_line_rec.line_id,
9692: p_set_id => nvl(l_old_line_rec.ship_set_id,l_old_line_rec.arrival_set_id),
9693: x_return_status => x_return_status);
9694: IF l_debug_level > 0 THEN
9695: oe_debug_pub.add( 'AFTER LOGGING DELETE SETS DELAYED REQUEST IN SCHEDULE LINE' || X_RETURN_STATUS , 1 ) ;
9696: END IF;
9697: END IF;
9698:
9699: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
9737: AND fnd_profile.value('ONT_SHIP_METHOD_FOR_SHIP_SET') = 'Y'
9738: THEN
9739:
9740: IF l_debug_level > 0 THEN
9741: oe_debug_pub.add( 'SHIPPING_METHOD CHANGED , CASCADE' , 4 ) ;
9742: END IF;
9743:
9744: oe_delayed_requests_pvt.log_request(
9745: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
9755:
9756: END IF;
9757:
9758: IF l_debug_level > 0 THEN
9759: oe_debug_pub.add( 'SCHEDULING NOT REQUIRED' , 1 ) ;
9760: END IF;
9761: RETURN;
9762: END IF;
9763:
9761: RETURN;
9762: END IF;
9763:
9764: IF l_debug_level > 0 THEN
9765: oe_debug_pub.add( 'SCHEDULING LINE_ACTION :' || L_LINE_ACTION , 1 ) ;
9766: END IF;
9767:
9768: -- 5223953 - Versioning and reason not required for system-driven changes.
9769: IF p_caller = SCH_EXTERNAL THEN
9774:
9775: <
9776:
9777: IF l_debug_level > 0 THEN
9778: oe_debug_pub.add( 'CALLING OE_SCHEDULE_UTIL.VALIDATE LINE' , 1 ) ;
9779: END IF;
9780:
9781: Validate_Line(p_line_rec => p_x_line_rec,
9782: p_old_line_rec => l_old_line_rec,
9802: OE_ORDER_CACHE.g_header_rec.customer_preference_set_code = 'ARRIVAL'
9803: THEN
9804:
9805: IF l_debug_level > 0 THEN
9806: oe_debug_pub.add( 'VALIDATION FAILED FOR SET' , 2 ) ;
9807: END IF;
9808: BEGIN
9809:
9810: OE_ORDER_UTIL.Update_Global_Picture
9816: x_return_status => x_return_status);
9817:
9818: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9819: IF l_debug_level > 0 THEN
9820: oe_debug_pub.add( 'After update global pic: UNEXP ERRORED OUT' , 1 ) ;
9821: END IF;
9822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9823: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
9824: IF l_debug_level > 0 THEN
9821: END IF;
9822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9823: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
9824: IF l_debug_level > 0 THEN
9825: oe_debug_pub.add( 'After update global pic : ERRORED OUT' , 1 ) ;
9826: END IF;
9827: RAISE FND_API.G_EXC_ERROR;
9828: END IF;
9829:
9833: OE_ORDER_UTIL.g_line_tbl(l_index).arrival_set_id := Null;
9834: OE_ORDER_UTIL.g_line_tbl(l_index).ship_set := Null;
9835: OE_ORDER_UTIL.g_line_tbl(l_index).arrival_set := Null;
9836: IF l_debug_level > 0 THEN
9837: oe_debug_pub.add( 'GLOBAL SHIP_set is : ' || OE_ORDER_UTIL.G_LINE_TBL (L_INDEX).line_id , 1 ) ;
9838: END IF;
9839: END IF; /*l_index is not null check*/
9840:
9841: Update oe_order_lines_all
9854: OR p_x_line_rec.schedule_ship_date is not null
9855: OR p_x_line_rec.schedule_arrival_date is not null THEN
9856:
9857: IF l_debug_level > 0 THEN
9858: oe_debug_pub.add( 'VALIDATION FAILED re-validate' , 2 ) ;
9859: END IF;
9860:
9861: GOTO RE_VALIDATE;
9862:
9871: AND NVL(oe_sys_parameters.Value('ONT_AUTO_SCH_SETS',p_x_line_rec.org_id),'Y') = 'N' THEN
9872: x_return_status := FND_API.G_RET_STS_SUCCESS;
9873: oe_schedule_util.OESCH_SET_SCHEDULING := 'N';
9874: IF l_debug_level > 0 THEN
9875: oe_debug_pub.add( 'Add Line to set without schedule as Auto Schedule Set is set to No' , 1 ) ;
9876: END IF;
9877:
9878: END IF; -- ship set id
9879: IF l_auto_sch = 'Y' THEN
9877:
9878: END IF; -- ship set id
9879: IF l_auto_sch = 'Y' THEN
9880: IF l_debug_level > 0 THEN
9881: oe_debug_pub.add( 'VALIDATION FAILED WHILE AUTO SCH' , 1 ) ;
9882: END IF;
9883: -- Change the status since we do not want to fail
9884: -- line to get saved .
9885: x_return_status := FND_API.G_RET_STS_SUCCESS;
9945:
9946: /* 4241385 start of auto schedule sets ER changes */
9947:
9948: IF l_debug_level > 0 THEN
9949: oe_debug_pub.add( 'Get the set details' , 1 ) ;
9950: END IF;
9951: IF p_x_line_rec.ship_set_id is NOT NULL THEN
9952:
9953: l_set_id:= p_x_line_rec.ship_set_id ;
9972: OR (NVL(P_X_LINE_REC.BOOKED_FLAG,'N')='Y' --10088102
9973: AND l_auto_schedule_sets='Y') -- 12642790
9974: THEN
9975: IF l_debug_level > 0 THEN
9976: oe_debug_pub.add( 'Set exists and is scheduled.' , 1 ) ;
9977: END IF;
9978: Log_Set_Request
9979: (p_line_rec => p_x_line_rec,
9980: p_old_line_rec => l_old_line_rec,
9989: ,x_return_status => x_return_status );
9990:
9991:
9992: IF l_debug_level > 0 THEN
9993: oe_debug_pub.add( 'After calling request for entity ' || X_RETURN_STATUS , 1 ) ;
9994: END IF;
9995:
9996: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10002: OE_Order_PVT.Process_Requests_And_Notify
10003: ( x_return_status => x_return_status);
10004:
10005: IF l_debug_level > 0 THEN
10006: oe_debug_pub.add( '1 RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
10007: END IF;
10008:
10009: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10015:
10016: --End 10064449
10017: END IF ; --13958294
10018: IF l_debug_level > 0 THEN
10019: oe_debug_pub.add( 'AFTER LOGGING SETS DELAYED REQUEST ' || X_RETURN_STATUS , 1 ) ;
10020: END IF;
10021: ELSE --set is not scheduled. Do not log request.
10022: IF l_debug_level > 0 THEN
10023: oe_debug_pub.add( 'scheduling is not required. So Skip' , 1 ) ;
10019: oe_debug_pub.add( 'AFTER LOGGING SETS DELAYED REQUEST ' || X_RETURN_STATUS , 1 ) ;
10020: END IF;
10021: ELSE --set is not scheduled. Do not log request.
10022: IF l_debug_level > 0 THEN
10023: oe_debug_pub.add( 'scheduling is not required. So Skip' , 1 ) ;
10024: END IF;
10025: END IF ; --set scheduled.
10026:
10027: ELSE --set does not exist. That means new set.
10025: END IF ; --set scheduled.
10026:
10027: ELSE --set does not exist. That means new set.
10028: IF l_debug_level > 0 THEN
10029: oe_debug_pub.add('set does not exist.get the system parameter value' ,1 ) ;
10030: END IF;
10031:
10032: IF l_auto_schedule_sets = 'Y' --parameter is yes
10033: OR Get_Auto_Sch_Flag='Y'
10036: OR (p_x_line_rec.reserved_quantity>0 )
10037: OR (P_X_LINE_REC.SCHEDULE_ACTION_CODE = 'SCHEDULE')
10038: THEN --4241385 tools ->Auto schedule is yes
10039: IF l_debug_level > 0 THEN
10040: oe_debug_pub.add( 'NEW SCHEDULING SETS RELATED' , 1 ) ;
10041: END IF;
10042: Log_Set_Request
10043: (p_line_rec => p_x_line_rec,
10044: p_old_line_rec => l_old_line_rec,
10045: p_sch_action => l_line_action,
10046: p_caller => p_caller,
10047: x_return_status => x_return_status);
10048: IF l_debug_level > 0 THEN
10049: oe_debug_pub.add( 'AFTER LOGGING SETS DELAYED REQUEST ' || X_RETURN_STATUS , 1 ) ;
10050: END IF;
10051: ELSE --auto schedule is not required.
10052: IF l_debug_level > 0 THEN
10053: oe_debug_pub.add( 'Need not log delayed request.' ) ;
10049: oe_debug_pub.add( 'AFTER LOGGING SETS DELAYED REQUEST ' || X_RETURN_STATUS , 1 ) ;
10050: END IF;
10051: ELSE --auto schedule is not required.
10052: IF l_debug_level > 0 THEN
10053: oe_debug_pub.add( 'Need not log delayed request.' ) ;
10054: END IF;
10055: END IF ;
10056:
10057: END IF ;--set exists check.
10068: THEN
10069:
10070:
10071: IF l_debug_level > 0 THEN
10072: oe_debug_pub.add( 'NEW SCHEDULING CONFIG RELATED' , 1 ) ;
10073: END IF;
10074:
10075: OE_CONFIG_SCHEDULE_PVT.Log_Config_Sch_Request
10076: ( p_line_rec => p_x_line_rec
10080: ,x_return_status => x_return_status);
10081:
10082: ELSE
10083: IF l_debug_level > 0 THEN
10084: oe_debug_pub.add( 'NEW SCHEDULING STANDARD LINE ' , 1 ) ;
10085: END IF;
10086:
10087: Process_request( p_old_line_rec => l_old_line_rec,
10088: p_caller => p_caller,
10092: END IF; -- Group, parent and independent
10093:
10094:
10095: IF l_debug_level > 0 THEN
10096: oe_debug_pub.add( 'SCH SHIP DATE ' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 5 ) ;
10097: END IF;
10098: IF l_debug_level > 0 THEN
10099: oe_debug_pub.add( 'SCH ARR DATE ' || P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 5 ) ;
10100: END IF;
10095: IF l_debug_level > 0 THEN
10096: oe_debug_pub.add( 'SCH SHIP DATE ' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 5 ) ;
10097: END IF;
10098: IF l_debug_level > 0 THEN
10099: oe_debug_pub.add( 'SCH ARR DATE ' || P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 5 ) ;
10100: END IF;
10101: IF l_debug_level > 0 THEN
10102: oe_debug_pub.add( 'SHIP_FROM ' || P_X_LINE_REC.SHIP_FROM_ORG_ID , 5 ) ;
10103: END IF;
10098: IF l_debug_level > 0 THEN
10099: oe_debug_pub.add( 'SCH ARR DATE ' || P_X_LINE_REC.SCHEDULE_ARRIVAL_DATE , 5 ) ;
10100: END IF;
10101: IF l_debug_level > 0 THEN
10102: oe_debug_pub.add( 'SHIP_FROM ' || P_X_LINE_REC.SHIP_FROM_ORG_ID , 5 ) ;
10103: END IF;
10104:
10105: Print_Time('Exiting schedule_line');
10106: IF l_debug_level > 0 THEN
10103: END IF;
10104:
10105: Print_Time('Exiting schedule_line');
10106: IF l_debug_level > 0 THEN
10107: oe_debug_pub.add('Exiting schedule_line',0.5); -- Added debug for bug 13435459
10108: END IF;
10109: EXCEPTION
10110: WHEN FND_API.G_EXC_ERROR THEN
10111:
10109: EXCEPTION
10110: WHEN FND_API.G_EXC_ERROR THEN
10111:
10112: IF l_debug_level > 0 THEN
10113: oe_debug_pub.add( 'G_EXC_ERROR IN SCHEDULE_LINE' , 1 ) ;
10114: END IF;
10115: x_return_status := FND_API.G_RET_STS_ERROR;
10116:
10117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10116:
10117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10118:
10119: IF l_debug_level > 0 THEN
10120: oe_debug_pub.add( 'G_EXC__UNEXP_ERROR IN SCHEDULE_LINE' , 1 ) ;
10121: END IF;
10122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10123:
10124: WHEN OTHERS THEN
10123:
10124: WHEN OTHERS THEN
10125:
10126: IF l_debug_level > 0 THEN
10127: oe_debug_pub.add( 'OTHERS IN SCHEDULE_LINE'|| SQLERRM , 1 ) ;
10128: END IF;
10129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10130:
10131: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10188:
10189:
10190:
10191: --
10192: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10193: --
10194: BEGIN
10195: --4241385. get the sys param value.
10196: l_auto_schedule_sets := nvl(oe_sys_parameters.Value('ONT_AUTO_SCH_SETS',p_line_rec.org_id),'Y');
10194: BEGIN
10195: --4241385. get the sys param value.
10196: l_auto_schedule_sets := nvl(oe_sys_parameters.Value('ONT_AUTO_SCH_SETS',p_line_rec.org_id),'Y');
10197: IF l_debug_level > 0 THEN
10198: oe_debug_pub.add( 'ENTERING NEED SCHEDULING' , 1 ) ;
10199: END IF;
10200:
10201: x_line_action := Null;
10202: x_auto_sch := 'N';
10211: RETURN FALSE;
10212: END IF;
10213:
10214: IF l_debug_level > 0 THEN
10215: oe_debug_pub.add( 'N1 NOT A SERVICE LINE' , 1 ) ;
10216: END IF;
10217: IF p_line_rec.line_category_code = 'RETURN' THEN
10218: RETURN FALSE;
10219: END IF;
10218: RETURN FALSE;
10219: END IF;
10220:
10221: IF l_debug_level > 0 THEN
10222: oe_debug_pub.add( 'N01 NOT A RETURN LINE' , 1 ) ;
10223: END IF;
10224: -- bug 7392538 changes start here
10225: -- Issue Discription
10226: -- The function call to OE_OTA_UTIL.Is_OTA_Line has been
10237: RETURN FALSE;
10238: END IF;
10239:
10240: IF l_debug_level > 0 THEN
10241: oe_debug_pub.add( 'N2 NOT A OTA ITEM' , 1 ) ;
10242: END IF;
10243: */
10244:
10245: -- If a config item is deleted, we do not need to call scheduling.
10255: RETURN FALSE;
10256: END IF;
10257:
10258: IF l_debug_level > 0 THEN
10259: oe_debug_pub.add( 'N3 NOT CONFIG WITH DELETE AND CREATE OPR' , 1 ) ;
10260: END IF;
10261:
10262: -- Check to see if this line is a new line which has been created
10263: -- due to the split action. If yes, then do not schedule it, since we
10267: (p_line_rec.split_from_line_id <> FND_API.G_MISS_NUM) AND
10268: (p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE)
10269: THEN
10270: IF l_debug_level > 0 THEN
10271: oe_debug_pub.add( 'THIS IS A NEW LINE CREATED THRU SPLIT' , 1 ) ;
10272: END IF;
10273: RETURN FALSE;
10274: END IF;
10275:
10273: RETURN FALSE;
10274: END IF;
10275:
10276: IF l_debug_level > 0 THEN
10277: oe_debug_pub.add( 'N4 NOT A SPLIT LINE' , 1 ) ;
10278: END IF;
10279:
10280: -- Check to see if this line is the one which is getting split.
10281: -- If it is, then return FALSE, since this line is already rescheduled.
10283: IF (p_line_rec.schedule_status_code is not null) AND
10284: (p_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
10285: THEN
10286: IF l_debug_level > 0 THEN
10287: oe_debug_pub.add( 'THIS LINE IS BEING SPLIT' , 1 ) ;
10288: END IF;
10289: RETURN FALSE;
10290: END IF;
10291: END IF;
10291: END IF;
10292:
10293: /*
10294: IF (p_line_rec.split_action_code = 'SPLIT') THEN
10295: oe_debug_pub.add('This is a split action',1);
10296: RETURN FALSE;
10297: END IF;
10298: */
10299: IF l_debug_level > 0 THEN
10296: RETURN FALSE;
10297: END IF;
10298: */
10299: IF l_debug_level > 0 THEN
10300: oe_debug_pub.add( 'N5 NOT A SPLIT PARENT' , 1 ) ;
10301: END IF;
10302:
10303:
10304: IF p_line_rec.source_type_code = OE_GLOBALS.G_SOURCE_EXTERNAL
10304: IF p_line_rec.source_type_code = OE_GLOBALS.G_SOURCE_EXTERNAL
10305: AND p_line_rec.schedule_status_code is null
10306: THEN
10307: IF l_debug_level > 0 THEN
10308: oe_debug_pub.add( 'UNSCHEDULED EXTERNAL LINE' , 1 ) ;
10309: END IF;
10310: RETURN FALSE;
10311: END IF;
10312:
10310: RETURN FALSE;
10311: END IF;
10312:
10313: IF l_debug_level > 0 THEN
10314: oe_debug_pub.add( 'N6 NOT A DROP SHIP LINE' , 1 ) ;
10315: END IF;
10316:
10317: If (p_line_rec.schedule_status_code is null) AND
10318: ((p_line_rec.schedule_action_code = OESCH_ACT_UNSCHEDULE) OR
10319: (p_line_rec.schedule_action_code = OESCH_ACT_UNDEMAND) OR
10320: (p_line_rec.schedule_action_code = OESCH_ACT_UNRESERVE))
10321: THEN
10322: IF l_debug_level > 0 THEN
10323: oe_debug_pub.add( 'INVALID SCH ACTION ' , 1 ) ;
10324: END IF;
10325: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
10326: OE_MSG_PUB.Add;
10327: RETURN FALSE;
10327: RETURN FALSE;
10328: END IF;
10329:
10330: IF l_debug_level > 0 THEN
10331: oe_debug_pub.add( 'N7 NOT AN INVALID SCH ACTION' , 1 ) ;
10332: END IF;
10333:
10334: x_line_action := OESCH_ACT_SCHEDULE;
10335:
10340: AND p_old_line_rec.source_type_code = OE_GLOBALS.G_SOURCE_EXTERNAL
10341: AND p_line_rec.schedule_ship_date IS NOT NULL THEN
10342:
10343: IF l_debug_level > 0 THEN
10344: oe_debug_pub.add( 'EXTERNAL -> INTERNAL WITH SHIP DATE' , 4 ) ;
10345: END IF;
10346: RETURN TRUE;
10347:
10348: END IF;
10351: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_ship_date,
10352: p_old_line_rec.schedule_ship_date)
10353: THEN
10354: IF l_debug_level > 0 THEN
10355: oe_debug_pub.add( 'SCH_SHIP_DATE IS CHANGED , SCHEDULE' , 4 ) ;
10356: END IF;
10357: RETURN TRUE;
10358: END IF;
10359:
10360: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_arrival_date,
10361: p_old_line_rec.schedule_arrival_date)
10362: THEN
10363: IF l_debug_level > 0 THEN
10364: oe_debug_pub.add( 'SCH_ARR_DATE IS CHANGED , SCHEDULE' , 4 ) ;
10365: END IF;
10366: RETURN TRUE;
10367: END IF;
10368: --14634073: Customer has changed request date after entering schedule ship/Arrival date
10370: p_line_rec.schedule_ship_date IS NOT NULL) AND
10371: NOT OE_GLOBALS.Equal(p_line_rec.request_date,
10372: p_old_line_rec.request_date) THEN
10373: IF l_debug_level > 0 THEN
10374: oe_debug_pub.add( 'REQUEST DATE IS ALSO CHANGED , UPDATE SCHEDULE' , 4 ) ;
10375: END IF;
10376: RETURN TRUE;
10377: END IF;
10378:
10376: RETURN TRUE;
10377: END IF;
10378:
10379: IF l_debug_level > 0 THEN
10380: oe_debug_pub.add( 'NEW RESERVED QTY' || P_LINE_REC.RESERVED_QUANTITY ) ;
10381: END IF;
10382: IF l_debug_level > 0 THEN
10383: oe_debug_pub.add( 'OLD RESERVED QTY' || P_OLD_LINE_REC.RESERVED_QUANTITY ) ;
10384: END IF;
10379: IF l_debug_level > 0 THEN
10380: oe_debug_pub.add( 'NEW RESERVED QTY' || P_LINE_REC.RESERVED_QUANTITY ) ;
10381: END IF;
10382: IF l_debug_level > 0 THEN
10383: oe_debug_pub.add( 'OLD RESERVED QTY' || P_OLD_LINE_REC.RESERVED_QUANTITY ) ;
10384: END IF;
10385:
10386: IF NOT OE_GLOBALS.Equal(p_line_rec.reserved_quantity,
10387: p_old_line_rec.reserved_quantity)
10386: IF NOT OE_GLOBALS.Equal(p_line_rec.reserved_quantity,
10387: p_old_line_rec.reserved_quantity)
10388: THEN
10389: IF l_debug_level > 0 THEN
10390: oe_debug_pub.add( 'RESERVED QTY ENTERED , SCHEDULE' , 4 ) ;
10391: END IF;
10392: RETURN TRUE;
10393: END IF;
10394:
10405: OR l_set_scheduled
10406: OR (NVL(p_line_rec.booked_flag,'N')='Y' AND l_auto_schedule_sets = 'Y') THEN --10088102 --12888703
10407: --4241385
10408: IF l_debug_level > 0 THEN
10409: oe_debug_pub.add( 'LINE IS BEING ADDED TO SHIP SET' , 4 ) ;
10410: END IF;
10411: RETURN TRUE;
10412: END IF ; --4241385
10413: END IF;
10425: OR l_set_scheduled
10426: OR (NVL(p_line_rec.booked_flag,'N')='Y' AND l_auto_schedule_sets = 'Y') THEN --10088102 --12888703
10427: --4241385
10428: IF l_debug_level > 0 THEN
10429: oe_debug_pub.add( 'LINE IS BEING ADDED TO ARRIVAL SET' , 4 ) ;
10430: END IF;
10431: RETURN TRUE;
10432: END IF ; --4241385
10433: END IF;
10435: END IF;
10436:
10437:
10438: IF l_debug_level > 0 THEN
10439: oe_debug_pub.add(p_line_rec.booked_flag,1);
10440: oe_debug_pub.add( 'N8' , 1 ) ;
10441: END IF;
10442:
10443: -- QUOTING changes - trigger auto-scheduling if call is from
10436:
10437:
10438: IF l_debug_level > 0 THEN
10439: oe_debug_pub.add(p_line_rec.booked_flag,1);
10440: oe_debug_pub.add( 'N8' , 1 ) ;
10441: END IF;
10442:
10443: -- QUOTING changes - trigger auto-scheduling if call is from
10444: -- complete negotiation
10450: p_line_rec.top_model_line_id = FND_API.G_MISS_NUM) AND
10451: p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD
10452: THEN
10453: IF l_debug_level > 0 THEN
10454: oe_debug_pub.add( 'AUTO SCHEDULE IS TRUE' , 4 ) ;
10455: oe_debug_pub.add( '6663462 : Delay Scheduling : ' || l_delayed_schedule , 4 ) ;
10456:
10457: END IF;
10458: --8728176 : log request if OM: Bypass ATP is set to 'No'
10451: p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD
10452: THEN
10453: IF l_debug_level > 0 THEN
10454: oe_debug_pub.add( 'AUTO SCHEDULE IS TRUE' , 4 ) ;
10455: oe_debug_pub.add( '6663462 : Delay Scheduling : ' || l_delayed_schedule , 4 ) ;
10456:
10457: END IF;
10458: --8728176 : log request if OM: Bypass ATP is set to 'No'
10459: IF l_delayed_schedule = 'N' OR
10469: p_request_type => OE_GLOBALS.G_DELAYED_SCHEDULE,
10470: x_return_status => l_return_status);
10471: l_index := OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl.count;
10472: OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl(l_index+1) := p_line_rec;
10473: oe_debug_pub.add( '6663462 : logging delayed scheduling req for header_id ' || OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl(l_index+1).header_id, 1 ) ;
10474: END IF;
10475:
10476: END IF;
10477: END IF;
10476: END IF;
10477: END IF;
10478:
10479: IF l_debug_level > 0 THEN
10480: oe_debug_pub.add( 'N9 AFTER AUTO SCHEDULE CHECK' , 1 ) ;
10481: END IF;
10482:
10483: IF p_line_rec.schedule_status_code is NULL AND
10484: p_line_rec.schedule_action_code is NULL AND
10488: RETURN FALSE;
10489: END IF;
10490:
10491: IF l_debug_level > 0 THEN
10492: oe_debug_pub.add( 'N10' , 1 ) ;
10493: END IF;
10494:
10495: IF p_line_rec.schedule_status_code = OESCH_STATUS_SCHEDULED AND
10496: p_line_rec.schedule_action_code = OESCH_ACT_SCHEDULE
10499: RETURN FALSE;
10500: END IF;
10501:
10502: IF l_debug_level > 0 THEN
10503: oe_debug_pub.add( 'N11' , 1 ) ;
10504: END IF;
10505:
10506: IF (p_line_rec.schedule_action_code is not null)
10507: THEN
10506: IF (p_line_rec.schedule_action_code is not null)
10507: THEN
10508: x_line_action := p_line_rec.schedule_action_code;
10509: IF l_debug_level > 0 THEN
10510: oe_debug_pub.add( 'SCH ACTION CODE '|| P_LINE_REC.SCHEDULE_ACTION_CODE , 4 ) ;
10511: END IF;
10512: RETURN TRUE;
10513: END IF;
10514:
10512: RETURN TRUE;
10513: END IF;
10514:
10515: IF l_debug_level > 0 THEN
10516: oe_debug_pub.add( 'N12 AFTER ACTION CHECK' , 1 ) ;
10517: END IF;
10518: -------------- Starts already scheduled line part ------
10519:
10520: -- We should avoid calling scheduling when user changes values
10529: IF p_line_rec.source_type_code = OE_GLOBALS.G_SOURCE_EXTERNAL
10530: THEN
10531: x_line_action := OESCH_ACT_UNSCHEDULE;
10532: IF l_debug_level > 0 THEN
10533: oe_debug_pub.add( 'Source type CHANGED , UNSCHEDULE' , 4 ) ;
10534: END IF;
10535: RETURN TRUE;
10536: END IF;
10537: -- Bug 12735226
10547: THEN
10548: x_line_action := OESCH_ACT_UNSCHEDULE;
10549: END IF;
10550: IF l_debug_level > 0 THEN
10551: oe_debug_pub.add( 'SCH_SHIP_DATE CHANGED , RESCHEDULE' , 4 ) ;
10552: END IF;
10553: RETURN TRUE;
10554: END IF;
10555:
10556: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_arrival_date,
10557: p_old_line_rec.schedule_arrival_date)
10558: THEN
10559: IF l_debug_level > 0 THEN
10560: oe_debug_pub.add( 'SCH_ARR_DATE CHANGED , RESCHEDULE' , 4 ) ;
10561: END IF;
10562: IF p_line_rec.schedule_arrival_date is null
10563: AND p_line_rec.ship_set_id is null
10564: AND p_line_rec.arrival_set_id is null THEN
10570: IF NOT OE_GLOBALS.Equal(p_line_rec.ship_from_org_id,
10571: p_old_line_rec.ship_from_org_id)
10572: THEN
10573: IF l_debug_level > 0 THEN
10574: oe_debug_pub.add( 'SHIP_FROM_ORG CHANGED , RESCHEDULE' , 4 ) ;
10575: END IF;
10576: RETURN TRUE;
10577: END IF;
10578:
10580: IF NOT OE_GLOBALS.Equal(p_line_rec.ordered_quantity,
10581: p_old_line_rec.ordered_quantity)
10582: THEN
10583: IF l_debug_level > 0 THEN
10584: oe_debug_pub.add( 'ORD QTY CHANGED , RESCHEDULE' , 4 ) ;
10585: END IF;
10586: RETURN TRUE;
10587: END IF;
10588:
10590: IF NOT OE_GLOBALS.Equal(p_line_rec.ordered_quantity2,
10591: p_old_line_rec.ordered_quantity2) AND ( Nvl(p_line_rec.fulfillment_base ,'P') ='S')
10592: THEN
10593: IF l_debug_level > 0 THEN
10594: oe_debug_pub.add( 'ORD QTY2 CHANGED for FB=S, RESCHEDULE' , 4 ) ;
10595: END IF;
10596: RETURN TRUE;
10597: END IF;
10598: --end bug 16782621
10600: IF NOT OE_GLOBALS.Equal(p_line_rec.order_quantity_uom,
10601: p_old_line_rec.order_quantity_uom)
10602: THEN
10603: IF l_debug_level > 0 THEN
10604: oe_debug_pub.add( 'ORDER QTY UOM CHANGED , RESCHEDULE' , 4 ) ;
10605: END IF;
10606: RETURN TRUE;
10607: END IF;
10608:
10627:
10628: IF l_request_date_flag = 'Y' THEN
10629:
10630: IF l_debug_level > 0 THEN
10631: oe_debug_pub.add( 'REQ_DATE CHANGED , RESCHEDULE' , 4 ) ;
10632: END IF;
10633: RETURN TRUE;
10634: END IF;
10635:
10646: END IF;
10647: IF l_shipping_method_flag = 'Y' THEN
10648:
10649: IF l_debug_level > 0 THEN
10650: oe_debug_pub.add( 'SHIPPING_METHOD CHANGED , RESCHEDULE' , 4 ) ;
10651: END IF;
10652: RETURN TRUE;
10653: END IF;
10654:
10664: where header_id = p_line_rec.header_id;
10665:
10666: IF l_order_date_type_code = 'ARRIVAL' THEN
10667: IF l_debug_level > 0 THEN
10668: oe_debug_pub.add( 'DEL LEAD TIME CHANGED , RESCHEDULE' , 4 ) ;
10669: END IF;
10670: RETURN TRUE;
10671: END IF;
10672: EXCEPTION
10678: IF NOT OE_GLOBALS.Equal(p_line_rec.demand_class_code,
10679: p_old_line_rec.demand_class_code)
10680: THEN
10681: IF l_debug_level > 0 THEN
10682: oe_debug_pub.add( 'DEMAND_CLASS CHANGED , RESCHEDULE' , 4 ) ;
10683: END IF;
10684: RETURN TRUE;
10685: END IF;
10686:
10687: IF NOT OE_GLOBALS.Equal(p_line_rec.ship_to_org_id,
10688: p_old_line_rec.ship_to_org_id)
10689: THEN
10690: IF l_debug_level > 0 THEN
10691: oe_debug_pub.add( 'SHIP_TO_ORG CHANGED , RESCHEDULE' , 4 ) ;
10692: END IF;
10693: RETURN TRUE;
10694: END IF;
10695:
10696: IF NOT OE_GLOBALS.Equal(p_line_rec.sold_to_org_id,
10697: p_old_line_rec.sold_to_org_id)
10698: THEN
10699: IF l_debug_level > 0 THEN
10700: oe_debug_pub.add( 'SOLD_TO_ORG CHANGED , RESCHEDULE' , 4 ) ;
10701: END IF;
10702: RETURN TRUE;
10703: END IF;
10704:
10705: IF NOT OE_GLOBALS.Equal(p_line_rec.inventory_item_id,
10706: p_old_line_rec.inventory_item_id)
10707: THEN
10708: IF l_debug_level > 0 THEN
10709: oe_debug_pub.add( 'INV ITEM ID CHANGED , RESCHEDULE' , 4 ) ;
10710: END IF;
10711: RETURN TRUE;
10712: END IF;
10713:
10716: AND p_line_rec.ship_set_id IS NOT NULL
10717: THEN
10718:
10719: IF l_debug_level > 0 THEN
10720: oe_debug_pub.add( 'LINE IS BEING ADDED TO SHIP SET' , 4 ) ;
10721: END IF;
10722: RETURN TRUE;
10723: END IF;
10724:
10727: AND p_line_rec.arrival_set_id IS NOT NULL
10728: THEN
10729:
10730: IF l_debug_level > 0 THEN
10731: oe_debug_pub.add( 'LINE IS BEING ADDED TO ARRIVAL SET' , 4 ) ;
10732: END IF;
10733: RETURN TRUE;
10734: END IF;
10735:
10739: p_old_line_rec.override_atp_date_code) THEN
10740: -- This line was previously scheduled with the Override ATP Flag set
10741: -- but it is now not set. Must re-schedule the line
10742: IF l_debug_level > 0 THEN
10743: oe_debug_pub.add( 'OVERRIDE ATP UNCHECKED , RESCHEDULE' , 1 ) ;
10744: END IF;
10745: Return TRUE;
10746: END IF;
10747: END IF;
10753: NOT OE_GLOBALS.Equal(p_line_rec.source_type_code,
10754: p_old_line_rec.source_type_code)
10755: THEN
10756: IF l_debug_level > 0 THEN
10757: oe_debug_pub.add( 'SOURCE TYPE MADE EXTERNAL , UNSCHEDULE' , 4 ) ;
10758: END IF;
10759: x_line_action := OESCH_ACT_UNSCHEDULE;
10760: RETURN TRUE;
10761: END IF;
10763: IF NOT OE_GLOBALS.Equal(p_line_rec.reserved_quantity,
10764: p_old_line_rec.reserved_quantity)
10765: THEN
10766: IF l_debug_level > 0 THEN
10767: oe_debug_pub.add( 'RESERVED QTY CHANGED , RESERVE' , 4 ) ;
10768: END IF;
10769: x_line_action := OESCH_ACT_RESERVE;
10770: RETURN TRUE;
10771: END IF;
10774: IF NOT OE_GLOBALS.Equal(p_line_rec.reserved_quantity2,
10775: p_old_line_rec.reserved_quantity2) AND ( Nvl(p_line_rec.fulfillment_base ,'P') ='S')
10776: THEN
10777: IF l_debug_level > 0 THEN
10778: oe_debug_pub.add( 'RESERVED QTY2 CHANGED FOR FB= S , RESERVE' , 4 ) ;
10779: END IF;
10780: x_line_action := OESCH_ACT_RESERVE;
10781: RETURN TRUE;
10782: END IF;
10791: p_old_line_rec.subinventory)
10792: AND p_old_line_rec.reserved_quantity > 0
10793: THEN
10794: IF l_debug_level > 0 THEN
10795: oe_debug_pub.add( 'SUBINVENTORY CHANGED , RESCHEDULE' , 4 ) ;
10796: END IF;
10797: x_line_action := OESCH_ACT_RESERVE;
10798: RETURN TRUE;
10799: END IF;
10802: p_old_line_rec.project_id)
10803: AND p_old_line_rec.reserved_quantity > 0
10804: THEN
10805: IF l_debug_level > 0 THEN
10806: oe_debug_pub.add( 'PROJECT CHANGED , RESCHEDULE' , 4 ) ;
10807: END IF;
10808: x_line_action := OESCH_ACT_RESERVE;
10809: RETURN TRUE;
10810: END IF;
10813: p_old_line_rec.task_id)
10814: AND p_old_line_rec.reserved_quantity > 0
10815: THEN
10816: IF l_debug_level > 0 THEN
10817: oe_debug_pub.add( 'TASK CHANGED , RESCHEDULE' , 4 ) ;
10818: END IF;
10819: x_line_action := OESCH_ACT_RESERVE;
10820: RETURN TRUE;
10821: END IF;
10822: --4653097 :End
10823: END IF; -- Check for schedule_status_code not NULL.
10824:
10825: IF l_debug_level > 0 THEN
10826: oe_debug_pub.add( 'N13' , 1 ) ;
10827: END IF;
10828: RETURN FALSE;
10829:
10830:
10880: l_set_rec OE_ORDER_CACHE.set_rec_type;
10881: l_found VARCHAR2(1) :='N'; --Bug 2746497
10882: l_overridden VARCHAR2(1) :='N'; --Bug 2716220
10883: --
10884: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10885: --
10886: BEGIN
10887:
10888: IF l_debug_level > 0 THEN
10885: --
10886: BEGIN
10887:
10888: IF l_debug_level > 0 THEN
10889: oe_debug_pub.add( '..ENTERING OE_SCHEDULE_UTIL.VALIDATE_LINE :' || P_SCH_ACTION , 1 ) ;
10890: END IF;
10891: x_return_status := FND_API.G_RET_STS_SUCCESS;
10892:
10893: -- If the quantity on the line is missing or null and if
10900:
10901: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_QUANTITY');
10902: OE_MSG_PUB.Add;
10903: IF l_debug_level > 0 THEN
10904: oe_debug_pub.add( 'E1' , 1 ) ;
10905: END IF;
10906: x_return_status := FND_API.G_RET_STS_ERROR;
10907: END IF;
10908:
10922: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ZERO_QTY');
10923: OE_MSG_PUB.Add;
10924:
10925: IF l_debug_level > 0 THEN
10926: oe_debug_pub.add( 'E2' , 1 ) ;
10927: END IF;
10928: x_return_status := FND_API.G_RET_STS_ERROR;
10929: END IF;
10930:
10931:
10932: END IF;
10933:
10934: IF l_debug_level > 0 THEN
10935: oe_debug_pub.add( 'BEFORE CANCEL CHECK ' || X_RETURN_STATUS , 2 ) ;
10936: END IF;
10937: -- If the line is cancelled, scheduling is not allowed.
10938:
10939: IF (p_line_rec.cancelled_flag = 'Y' AND
10947: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_FULLY_CANCELLED');
10948: OE_MSG_PUB.Add;
10949:
10950: IF l_debug_level > 0 THEN
10951: oe_debug_pub.add( 'E3' , 1 ) ;
10952: END IF;
10953: x_return_status := FND_API.G_RET_STS_ERROR;
10954:
10955: END IF;
10957:
10958: -- If the line is shipped, scheduling is not allowed.
10959:
10960: IF l_debug_level > 0 THEN
10961: oe_debug_pub.add( 'BEFORE SHIPPIED QTY CHECK ' || X_RETURN_STATUS , 2 ) ;
10962: END IF;
10963: IF (p_line_rec.shipped_quantity is not null) AND
10964: (p_line_rec.shipped_quantity <> FND_API.G_MISS_NUM) THEN
10965:
10971: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_SHIPPED');
10972: OE_MSG_PUB.Add;
10973:
10974: IF l_debug_level > 0 THEN
10975: oe_debug_pub.add( 'E4' , 1 ) ;
10976: END IF;
10977: x_return_status := FND_API.G_RET_STS_ERROR;
10978:
10979: END IF;
10979: END IF;
10980: END IF;
10981: /* --Commenting for Bug 13082802
10982: IF l_debug_level > 0 THEN
10983: oe_debug_pub.add( 'BEFORE FULFILLED QTY CHECK ' || X_RETURN_STATUS , 2 ) ;
10984: END IF;
10985: --Added for bug 6873122
10986: IF (p_line_rec.fulfilled_quantity is not null) AND
10987: (p_line_rec.fulfilled_quantity <> FND_API.G_MISS_NUM) THEN
10994: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_FULFILLED');
10995: OE_MSG_PUB.Add;
10996:
10997: IF l_debug_level > 0 THEN
10998: oe_debug_pub.add( 'E4.1' , 1 ) ;
10999: END IF;
11000: x_return_status := FND_API.G_RET_STS_ERROR;
11001:
11002: END IF;
11003: END IF;
11004: --Added for bug 6873122
11005: --Commenting for Bug 13082802 */
11006: IF l_debug_level > 0 THEN
11007: oe_debug_pub.add( 'BEFORE RESERVED QTY CHECK ' || X_RETURN_STATUS , 2 ) ;
11008: END IF;
11009: -- Check to see if the reserved quantity is changed and is more
11010: -- than the ordered quantity. This should not be allowed.
11011: IF NOT OE_GLOBALS.Equal(p_old_line_rec.reserved_quantity,
11019: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_MORE_ORD_QTY');
11020: OE_MSG_PUB.Add;
11021:
11022: IF l_debug_level > 0 THEN
11023: oe_debug_pub.add( 'E5' , 1 ) ;
11024: END IF;
11025: x_return_status := FND_API.G_RET_STS_ERROR;
11026: END IF;
11027:
11034: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_QTY_CHG_NOT_ALLOWED');
11035: OE_MSG_PUB.Add;
11036: x_return_status := FND_API.G_RET_STS_ERROR;
11037: IF l_debug_level > 0 THEN
11038: oe_debug_pub.add( 'E6' , 1 ) ;
11039: END IF;
11040: END IF;
11041: END IF;
11042:
11050: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_MORE_ORD_QTY');
11051: OE_MSG_PUB.Add;
11052:
11053: IF l_debug_level > 0 THEN
11054: oe_debug_pub.add( 'E5a' , 1 ) ;
11055: END IF;
11056: x_return_status := FND_API.G_RET_STS_ERROR;
11057: END IF;
11058:
11065: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_QTY_CHG_NOT_ALLOWED');
11066: OE_MSG_PUB.Add;
11067: x_return_status := FND_API.G_RET_STS_ERROR;
11068: IF l_debug_level > 0 THEN
11069: oe_debug_pub.add( 'E6A' , 1 ) ;
11070: END IF;
11071: END IF;
11072: END IF;
11073:
11092: OE_MSG_PUB.Add;
11093:
11094: x_return_status := FND_API.G_RET_STS_ERROR;
11095: IF l_debug_level > 0 THEN
11096: oe_debug_pub.add( 'E7' , 1 ) ;
11097: END IF;
11098: END IF;
11099: END IF;
11100: END IF;
11113: OE_MSG_PUB.Add;
11114:
11115: x_return_status := FND_API.G_RET_STS_ERROR;
11116: IF l_debug_level > 0 THEN
11117: oe_debug_pub.add( 'E7A' , 1 ) ;
11118: END IF;
11119: END IF;
11120: END IF;
11121: END IF;
11132: OE_MSG_PUB.Add;
11133:
11134: x_return_status := FND_API.G_RET_STS_ERROR;
11135: IF l_debug_level > 0 THEN
11136: oe_debug_pub.add( 'E8' , 1 ) ;
11137: END IF;
11138: END IF;
11139:
11140: -- If the item on the line is missing or null and if the user
11140: -- If the item on the line is missing or null and if the user
11141: -- is trying to performing scheduling, it is an error
11142:
11143: IF l_debug_level > 0 THEN
11144: oe_debug_pub.add( 'CHECKING THE ITEM....' , 1 ) ;
11145: END IF;
11146:
11147: IF (p_line_rec.inventory_item_id is null OR
11148: p_line_rec.inventory_item_id = FND_API.G_MISS_NUM) THEN
11150: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_ITEM');
11151: OE_MSG_PUB.Add;
11152:
11153: IF l_debug_level > 0 THEN
11154: oe_debug_pub.add( 'E9' , 1 ) ;
11155: END IF;
11156: x_return_status := FND_API.G_RET_STS_ERROR;
11157: END IF;
11158:
11160: -- if the user is trying to performing scheduling,
11161: -- it is an error
11162:
11163: IF l_debug_level > 0 THEN
11164: oe_debug_pub.add( 'CHECKING THE REQUEST DATE....' , 1 ) ;
11165: END IF;
11166: IF (p_line_rec.request_date is null OR
11167: p_line_rec.request_date = FND_API.G_MISS_DATE) THEN
11168:
11168:
11169: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_REQUEST_DATE');
11170: OE_MSG_PUB.Add;
11171: IF l_debug_level > 0 THEN
11172: oe_debug_pub.add( 'E10' , 1 ) ;
11173: END IF;
11174: x_return_status := FND_API.G_RET_STS_ERROR;
11175: END IF;
11176: -- 3763015
11178: Nvl(p_line_rec.bypass_sch_flag, 'N') = 'Y' THEN --- DOO Integration Changes
11179:
11180: -- An item with this profile set MUST have a warehouse
11181: IF l_debug_level > 0 THEN
11182: oe_debug_pub.add( 'CHECKING THAT LINE HAS A WAREHOUSE...' , 1 ) ;
11183: END IF;
11184: IF (p_line_rec.ship_from_org_id is null OR
11185: p_line_rec.ship_from_org_id = FND_API.G_MISS_NUM) THEN
11186: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_BYPASS_MISS_WSH');
11186: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_BYPASS_MISS_WSH');
11187: OE_MSG_PUB.Add;
11188:
11189: IF l_debug_level > 0 THEN
11190: oe_debug_pub.add( 'ERROR BYPASS' , 1 ) ;
11191: END IF;
11192: x_return_status := FND_API.G_RET_STS_ERROR;
11193: END IF;
11194: END IF;
11194: END IF;
11195:
11196: -- If the line belongs to a set, you cannot unschedule the line
11197: IF l_debug_level > 0 THEN
11198: oe_debug_pub.add( 'CHECKING FOR SET VALIDATIONS....' , 1 ) ;
11199: END IF;
11200: IF ((p_line_rec.ship_set_id is not null AND
11201: p_line_rec.ship_set_id <> FND_API.G_MISS_NUM) OR
11202: (p_line_rec.arrival_set_id is not null AND
11207:
11208: FND_MESSAGE.SET_NAME('ONT','OE_SCH_CANNOT_UNSCH_SET');
11209: OE_MSG_PUB.Add;
11210: IF l_debug_level > 0 THEN
11211: oe_debug_pub.add( 'E11' , 1 ) ;
11212: END IF;
11213: x_return_status := FND_API.G_RET_STS_ERROR;
11214: END IF;
11215:
11216:
11217: -- Bug 2434132.
11218: -- Reducing the qty should be allowed and not increasing the qty.
11219: IF l_debug_level > 0 THEN
11220: oe_debug_pub.add( 'CHECKING FOR HOLDS....'||p_sch_action , 1 ) ;
11221: END IF;
11222: IF Oe_Sys_Parameters.Value('ONT_SCHEDULE_LINE_ON_HOLD') = 'N'
11223: AND (p_sch_action = OESCH_ACT_SCHEDULE OR
11224: p_sch_action = OESCH_ACT_RESERVE OR
11235: -- Since the profile is set to NO, we should not schedule
11236: -- the line if the line is on hold.
11237:
11238: IF l_debug_level > 0 THEN
11239: oe_debug_pub.add( 'CALLING CHECK HOLDS' , 1 ) ;
11240: END IF;
11241:
11242: OE_Holds_PUB.Check_Holds
11243: ( p_api_version => 1.0
11255: , x_result_out => l_result
11256: );
11257:
11258: IF l_debug_level > 0 THEN
11259: oe_debug_pub.add( 'AFTER CALLING CHECK HOLDS: ' || L_OUT_RETURN_STATUS , 1 ) ;
11260: END IF;
11261:
11262:
11263: IF (l_out_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11279: -- on this line. If the action requested is not allowed for the
11280: -- scheduling action, error out.
11281:
11282: IF l_debug_level > 0 THEN
11283: oe_debug_pub.add( 'CHECKING SCHEDULING LEVEL...' , 1 ) ;
11284: END IF;
11285: l_scheduling_level_code := Get_Scheduling_Level(p_line_rec.header_id,
11286: p_line_rec.line_type_id);
11287:
11285: l_scheduling_level_code := Get_Scheduling_Level(p_line_rec.header_id,
11286: p_line_rec.line_type_id);
11287:
11288: IF l_debug_level > 0 THEN
11289: oe_debug_pub.add( 'L_SCHEDULING_LEVEL_CODE : ' || L_SCHEDULING_LEVEL_CODE , 1 ) ;
11290: END IF;
11291:
11292: --BUG 1955004
11293: -- Checking if transaction type is using a
11292: --BUG 1955004
11293: -- Checking if transaction type is using a
11294: --Repair Item Shipping Scheduling Level
11295: IF l_debug_level > 0 THEN
11296: oe_debug_pub.add( 'CHECKING IF LINE HAS REPAIR ITEM SHIPPING SCHEDULING LEVEL...' , 1 ) ;
11297: END IF;
11298:
11299: IF (l_scheduling_level_code = SCH_LEVEL_FOUR
11300: OR l_scheduling_level_code = SCH_LEVEL_FIVE) THEN
11300: OR l_scheduling_level_code = SCH_LEVEL_FIVE) THEN
11301:
11302: -- An item with this scheduling level MUST have a warehouse
11303: IF l_debug_level > 0 THEN
11304: oe_debug_pub.add( 'CHECKING THAT LINE HAS A WAREHOUSE...' , 1 ) ;
11305: END IF;
11306: IF (p_line_rec.ship_from_org_id is null OR
11307: p_line_rec.ship_from_org_id = FND_API.G_MISS_NUM) THEN
11308: FND_MESSAGE.SET_NAME('ONT','OE_SCH_INACTIVE_MISS_WSH');
11310: nvl(sch_cached_line_type,'0'));
11311: OE_MSG_PUB.Add;
11312:
11313: IF l_debug_level > 0 THEN
11314: oe_debug_pub.add( 'E11.1' , 1 ) ;
11315: END IF;
11316: x_return_status := FND_API.G_RET_STS_ERROR;
11317: END IF;
11318:
11318:
11319: -- An item with this schedling level MUST be a Standard
11320: -- Item, and NOT be a part of an ATO
11321: IF l_debug_level > 0 THEN
11322: oe_debug_pub.add( 'CHECKING THAT IT IS A STANDARD ITEM...' , 1 ) ;
11323: END IF;
11324: IF (p_line_rec.item_type_code <> 'STANDARD'
11325: OR p_line_rec.ato_line_id is not null) THEN
11326:
11329: nvl(sch_cached_line_type,'0'));
11330: OE_MSG_PUB.Add;
11331:
11332: IF l_debug_level > 0 THEN
11333: oe_debug_pub.add( 'E11.2' , 1 ) ;
11334: END IF;
11335: X_return_status := FND_API.G_RET_STS_ERROR;
11336: END IF;
11337:
11337:
11338: -- An item with this scheduling level MUST NOT be part
11339: -- of ANY set
11340: IF l_debug_level > 0 THEN
11341: oe_debug_pub.add( 'CHECKING FOR NO SETS...' , 1 ) ;
11342: END IF;
11343: /* Commenting for Standalone project.
11344: -- We will now allow standard lines into sets.
11345: IF (p_line_rec.ship_set_id is not null OR
11350: nvl(sch_cached_line_type,'0'));
11351: OE_MSG_PUB.Add;
11352:
11353: IF l_debug_level > 0 THEN
11354: oe_debug_pub.add( 'E11.3' , 1 ) ;
11355: END IF;
11356: X_return_status := FND_API.G_RET_STS_ERROR;
11357: END IF;
11358: */
11378: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
11379: nvl(sch_cached_line_type,sch_cached_order_type));
11380: OE_MSG_PUB.Add;
11381: IF l_debug_level > 0 THEN
11382: oe_debug_pub.add( 'E12' , 1 ) ;
11383: END IF;
11384: x_return_status := FND_API.G_RET_STS_ERROR;
11385: END IF;
11386: ELSE
11400: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
11401: nvl(sch_cached_line_type,sch_cached_order_type));
11402: OE_MSG_PUB.Add;
11403: IF l_debug_level > 0 THEN
11404: oe_debug_pub.add( 'E13' , 1 ) ;
11405: END IF;
11406: x_return_status := FND_API.G_RET_STS_ERROR;
11407: END IF;
11408: END IF;
11421: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
11422: nvl(sch_cached_line_type,sch_cached_order_type));
11423: OE_MSG_PUB.Add;
11424: IF l_debug_level > 0 THEN
11425: oe_debug_pub.add('p_line_rec.bypass_sch_flag: ' ||
11426: Nvl(p_line_rec.bypass_sch_flag, 'N'), 1);
11427: -- Debug during DOO Integration.
11428: oe_debug_pub.add( 'E13.1' , 1 ) ;
11429: END IF;
11424: IF l_debug_level > 0 THEN
11425: oe_debug_pub.add('p_line_rec.bypass_sch_flag: ' ||
11426: Nvl(p_line_rec.bypass_sch_flag, 'N'), 1);
11427: -- Debug during DOO Integration.
11428: oe_debug_pub.add( 'E13.1' , 1 ) ;
11429: END IF;
11430: X_return_status := FND_API.G_RET_STS_ERROR;
11431: END IF;
11432: END IF;
11453: l_explanation := NULL;
11454: EXCEPTION
11455: WHEN OTHERS THEN
11456: IF l_debug_level > 0 THEN
11457: oe_debug_pub.ADD('E13.2 Exception section....',1);
11458: END IF;
11459: END;
11460:
11461: IF l_debug_level > 0 THEN
11458: END IF;
11459: END;
11460:
11461: IF l_debug_level > 0 THEN
11462: Oe_Debug_Pub.Add ( 'E13.2', 1);
11463: END IF;
11464:
11465: x_return_status := Fnd_Api.G_Ret_Sts_Error;
11466:
11493:
11494: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNRSV_NOT_ALLOWED');
11495: OE_MSG_PUB.Add;
11496: IF l_debug_level > 0 THEN
11497: oe_debug_pub.add( 'E14' , 1 ) ;
11498: END IF;
11499: x_return_status := FND_API.G_RET_STS_ERROR;
11500:
11501: END IF;
11512: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
11513: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 THEN
11514:
11515: IF l_debug_level > 0 THEN
11516: oe_debug_pub.add('Warehouse Validation is not rqd',1);
11517: END IF;
11518: ELSE
11519:
11520: IF p_line_rec.ship_from_org_id is NULL AND
11523:
11524: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATO_WHSE_REQD');
11525: OE_MSG_PUB.Add;
11526: IF l_debug_level > 0 THEN
11527: oe_debug_pub.add( 'E15' , 1 ) ;
11528: END IF;
11529: x_return_status := FND_API.G_RET_STS_ERROR;
11530:
11531: END IF;
11537:
11538: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_NO_CONFIG');
11539: OE_MSG_PUB.Add;
11540: IF l_debug_level > 0 THEN
11541: oe_debug_pub.add( 'E16' , 1 ) ;
11542: END IF;
11543: -- code fix for 3300528
11544: -- no need for returning error in this case
11545: --IF nvl(p_line_rec.ship_model_complete_flag,'N') = 'N' THEN
11556: THEN
11557: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
11558: OE_MSG_PUB.Add;
11559: IF l_debug_level > 0 THEN
11560: oe_debug_pub.add( 'E16.0' , 1 );
11561: END IF;
11562: x_return_status := FND_API.G_RET_STS_ERROR;
11563: END IF;
11564: -- code fix for 3300528
11570: THEN
11571: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_NOT_RESERVABLE');
11572: OE_MSG_PUB.Add;
11573: IF l_debug_level > 0 THEN
11574: oe_debug_pub.add( 'E16.1' , 1 ) ;
11575: END IF;
11576: -- code fix for 3300528
11577: END IF; -- part of ato
11578:
11600: l_make_buy := 1;
11601: END;
11602:
11603: IF l_debug_level > 0 THEN
11604: oe_debug_pub.add( 'L_MAKE_BUY' || L_MAKE_BUY , 2 );
11605: END IF;
11606:
11607: IF nvl(l_make_buy,1) <> 2 THEN
11608: BEGIN
11617:
11618: EXCEPTION
11619: WHEN NO_DATA_FOUND THEN
11620: IF l_debug_level > 0 THEN
11621: oe_debug_pub.add( 'NO BILL IS DEFINED' , 2 ) ;
11622: END IF;
11623: IF l_debug_level > 0 THEN
11624: oe_debug_pub.add( 'E17' , 1 ) ;
11625: END IF;
11620: IF l_debug_level > 0 THEN
11621: oe_debug_pub.add( 'NO BILL IS DEFINED' , 2 ) ;
11622: END IF;
11623: IF l_debug_level > 0 THEN
11624: oe_debug_pub.add( 'E17' , 1 ) ;
11625: END IF;
11626: FND_MESSAGE.SET_NAME('ONT','OE_BOM_NO_BILL_IN_SHP_ORG');
11627: FND_MESSAGE.SET_TOKEN('ITEM',p_line_rec.ordered_item);
11628:
11631: Into l_org_code
11632: From Inv_Organization_Info_v --ORG_ORGANIZATION_DEFINITIONS
11633: Where ORGANIZATION_ID = NVL(p_line_rec.ship_from_org_id,l_org_id);
11634: IF l_debug_level > 0 THEN
11635: oe_debug_pub.add( 'ORGANIZATION CODE:'||L_ORG_CODE , 2 ) ;
11636: END IF;
11637: FND_MESSAGE.SET_TOKEN('ORG',l_org_code);
11638: -- Bug 2367743 End
11639:
11655: p_line_rec.reserved_quantity
11656: THEN
11657:
11658: -- Added code here to fix bug 2038201.
11659: oe_debug_pub.add('E18',1);
11660: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNRSV_NOT_ALLOWED');
11661: OE_MSG_PUB.Add;
11662: x_return_status := FND_API.G_RET_STS_ERROR;
11663:
11685: Ship_model_complete_flag = 'Y'))
11686: AND item_type_code = 'CONFIG';
11687:
11688: IF l_debug_level > 0 THEN
11689: oe_debug_pub.add( 'E19' , 1 ) ;
11690: END IF;
11691: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNSCH_CONFIG_EXISTS');
11692: OE_MSG_PUB.Add;
11693: x_return_status := FND_API.G_RET_STS_ERROR;
11696: WHEN NO_DATA_FOUND THEN
11697: null;
11698: WHEN TOO_MANY_ROWS THEN
11699: IF l_debug_level > 0 THEN
11700: oe_debug_pub.add( 'E19 TOO MANY ROWS' , 1 ) ;
11701: END IF;
11702: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNSCH_CONFIG_EXISTS');
11703: OE_MSG_PUB.Add;
11704: x_return_status := FND_API.G_RET_STS_ERROR;
11710: -- Start Bug-2371760
11711: -- Change in Schedule Ship/Arrival Date is not allowed
11712: -- when Order Date Type is specified.
11713: /*
11714: OE_DEBUG_PUB.Add('Checking for Order date Type - Arrival');
11715:
11716: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_ship_date,
11717: p_old_line_rec.schedule_ship_date)
11718: THEN
11725:
11726: FND_MESSAGE.SET_NAME('ONT','OE_SCH_INV_SHP_DATE');
11727: OE_MSG_PUB.Add;
11728:
11729: OE_DEBUG_PUB.Add('E20 Order date Type - Arrival');
11730: x_return_status := FND_API.G_RET_STS_ERROR;
11731:
11732: END IF;
11733:
11733:
11734:
11735: END IF;
11736:
11737: OE_DEBUG_PUB.Add('Checking for Order date Type - Ship');
11738:
11739: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_arrival_date,
11740: p_old_line_rec.schedule_arrival_date)
11741: THEN
11749:
11750: FND_MESSAGE.SET_NAME('ONT','OE_SCH_INV_ARR_DATE');
11751: OE_MSG_PUB.Add;
11752:
11753: OE_DEBUG_PUB.Add('E21 Order date Type - Ship');
11754:
11755: x_return_status := FND_API.G_RET_STS_ERROR;
11756:
11757: END IF;
11764: l_auth_to_override_atp :=
11765: NVL(FND_PROFILE.VALUE('ONT_OVERRIDE_ATP'), 'N');
11766:
11767: IF l_debug_level > 0 THEN
11768: oe_debug_pub.add( 'ONT_OVERRIDE_ATP' || L_AUTH_TO_OVERRIDE_ATP , 3 ) ;
11769: END IF;
11770: IF l_auth_to_override_atp = 'N' THEN
11771:
11772: IF NOT OE_GLOBALS.Equal(p_line_rec.override_atp_date_code,
11777: -- Overide ATP Field
11778: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_OVER_ATP_NO_AUTH');
11779: OE_MSG_PUB.Add;
11780: IF l_debug_level > 0 THEN
11781: oe_debug_pub.add( 'E22 INVALID AUTOTIZE' ) ;
11782: END IF;
11783: IF l_debug_level > 0 THEN
11784: oe_debug_pub.add( 'USER DOES NOT HAVE AUTHORITY TO CHANGE THE OVERRIDE ATP FIELD' , 1 ) ;
11785: END IF;
11780: IF l_debug_level > 0 THEN
11781: oe_debug_pub.add( 'E22 INVALID AUTOTIZE' ) ;
11782: END IF;
11783: IF l_debug_level > 0 THEN
11784: oe_debug_pub.add( 'USER DOES NOT HAVE AUTHORITY TO CHANGE THE OVERRIDE ATP FIELD' , 1 ) ;
11785: END IF;
11786: x_return_status := FND_API.G_RET_STS_ERROR;
11787:
11788: END IF;
11801: -- on an overridden line
11802: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_OVER_ATP_NO_AUTH_MOD');
11803: OE_MSG_PUB.Add;
11804: IF l_debug_level > 0 THEN
11805: oe_debug_pub.add( 'E23 USER DOES NOT HAVE AUTHORITY TO UPDATE SCHEDULE ATTRIBUTES' , 1 ) ;
11806: END IF;
11807: X_return_status := FND_API.G_RET_STS_ERROR;
11808:
11809: END IF;
11814: -- Only Authorized users have authority to unschedule an overriddenline
11815: FND_MESSAGE.SET_NAME('ONT','OE_SCH_OVER_ATP_NO_AUTH_UNCHK');
11816: OE_MSG_PUB.Add;
11817: IF l_debug_level > 0 THEN
11818: oe_debug_pub.add( 'E24 GENERAL USER CANNOT UNSCHEDULE AN OVERRIDDEN LINE' , 1 ) ;
11819: END IF;
11820: X_return_status := FND_API.G_RET_STS_ERROR;
11821:
11822: END IF;
11870: -- attributes in a set with an overridden line
11871: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_OVER_ATP_NO_AUTH_SET');
11872: OE_MSG_PUB.Add;
11873: IF l_debug_level > 0 THEN
11874: oe_debug_pub.add( 'E25 USER DOES NOT HAVE AUTHORITY TO UPDATE SCHEDULE ATTRIBUTES ON A SET WITH AN OVERRIDDEN LINE' , 1 ) ;
11875: END IF;
11876: X_return_status := FND_API.G_RET_STS_ERROR;
11877:
11878: END IF; -- l_override > 0
11912:
11913: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_OVER_ATP_NO_AUTH_SET');
11914: OE_MSG_PUB.Add;
11915: IF l_debug_level > 0 THEN
11916: oe_debug_pub.add( 'E26 UNABLE TO ADD THE LINE TO THE SET' , 1 ) ;
11917: END IF;
11918: x_return_status := FND_API.G_RET_STS_ERROR;
11919:
11920: -- 2716220
11960: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_OVER_ATP_NO_AUTH_SET');
11961: OE_MSG_PUB.Add;
11962: -- END IF;
11963: IF l_debug_level > 0 THEN
11964: oe_debug_pub.add( 'E27 UNABLE TO ADD THE line TO THE SET' , 1 ) ;
11965: END IF;
11966: x_return_status := FND_API.G_RET_STS_ERROR;
11967: END IF;
11968:
11981:
11982: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_OVER_ATP_NO_AUTH_SET');
11983: OE_MSG_PUB.Add;
11984: IF l_debug_level > 0 THEN
11985: oe_debug_pub.add( 'E28 UNABLE TO ADD THE Model TO THE SET' , 1 ) ;
11986: END IF;
11987: x_return_status := FND_API.G_RET_STS_ERROR;
11988:
11989: END IF; -- valid
12013:
12014: IF trunc(NVL(p_line_rec.latest_acceptable_date,p_line_rec.request_date))
12015: < trunc(p_line_rec.request_date) THEN
12016: IF l_debug_level > 0 THEN
12017: oe_debug_pub.add ('E29 Request date exceeds Latest Acceptable Date',1);
12018: END IF;
12019: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_REQUEST_EXCEED_LAD');
12020: OE_MSG_PUB.Add;
12021: x_return_status := FND_API.G_RET_STS_ERROR;
12025: OR (l_order_date_type_code = 'ARRIVAL'
12026: AND trunc(NVL(p_line_rec.schedule_arrival_date, p_line_rec.request_date))
12027: > trunc(NVL(p_line_rec.latest_acceptable_date,p_line_rec.request_date)))) THEN
12028: IF l_debug_level > 0 THEN
12029: oe_debug_pub.add('E30 Schedule date exceeds Latest Acceptable Date',1);
12030: END IF;
12031: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_LAD_SCH_FAILED');
12032: OE_MSG_PUB.Add;
12033: x_return_status := FND_API.G_RET_STS_ERROR;
12051: > trunc(NVL(p_line_rec.latest_acceptable_date,p_line_rec.request_date))))
12052: AND l_set_rec.schedule_arrival_date IS NOT NULL
12053: AND l_set_rec.schedule_ship_date IS NOT NULL THEN
12054: IF l_debug_level > 0 THEN
12055: oe_debug_pub.add('E30.1 Schedule date exceeds Latest Acceptable Date',1);
12056: END IF;
12057: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_LAD_SCH_FAILED');
12058: OE_MSG_PUB.Add;
12059: x_return_status := FND_API.G_RET_STS_ERROR;
12076: AND OE_GLOBALS.Equal(p_old_line_rec.task_id,
12077: p_line_rec.task_id) THEN
12078: BEGIN
12079: IF l_debug_level > 0 THEN
12080: OE_DEBUG_PUB.Add('Before checking for Staged/Closed deliveries', 1);
12081: END IF;
12082:
12083: SELECT 'Y'
12084: INTO l_found
12087: AND SOURCE_CODE = 'OE'
12088: AND RELEASED_STATUS IN ('Y', 'C');
12089:
12090: IF l_debug_level > 0 THEN
12091: OE_DEBUG_PUB.Add('Staged/Closed deliveries exist for the line', 3);
12092: END IF;
12093: EXCEPTION
12094: WHEN NO_DATA_FOUND THEN
12095: NULL;
12097: l_found :='Y';
12098: END;
12099: IF l_found = 'Y' THEN
12100: IF l_debug_level > 0 THEN
12101: oe_debug_pub.add('E31 Reservation(s) cannot be created. The line has been pick confirmed/staged',1);
12102: END IF;
12103: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_RSV_FAILURE_STAGED');
12104: OE_MSG_PUB.Add;
12105: x_return_status := FND_API.G_RET_STS_ERROR;
12106: END IF;
12107: END IF;
12108:
12109: IF l_debug_level > 0 THEN
12110: oe_debug_pub.add( '..EXITING OE_SCHEDULE_UTIL.VALIDATE_LINE WITH ' || X_RETURN_STATUS , 1 ) ;
12111: END IF;
12112:
12113:
12114: EXCEPTION
12156: l_lock_control NUMBER;
12157: --End Bug 12641867
12158:
12159: --
12160: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12161: --
12162: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS; --Bug 5343902
12163: BEGIN
12164:
12162: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS; --Bug 5343902
12163: BEGIN
12164:
12165: IF l_debug_level > 0 THEN
12166: oe_debug_pub.add( 'ENTERING OE_SCHEDULE_UTIL.PROCESS_REQUEST' , 1 ) ;
12167: END IF;
12168: IF l_debug_level > 0 THEN
12169: oe_debug_pub.add( 'OESCH_AUTO_SCH_FLAG : ' || OESCH_AUTO_SCH_FLAG , 1 ) ;
12170: END IF;
12165: IF l_debug_level > 0 THEN
12166: oe_debug_pub.add( 'ENTERING OE_SCHEDULE_UTIL.PROCESS_REQUEST' , 1 ) ;
12167: END IF;
12168: IF l_debug_level > 0 THEN
12169: oe_debug_pub.add( 'OESCH_AUTO_SCH_FLAG : ' || OESCH_AUTO_SCH_FLAG , 1 ) ;
12170: END IF;
12171:
12172: -- need to retain orig record to call process order.
12173:
12178:
12179: -- Based on the p_sch_action and schedule_status_code call action_schedule.
12180:
12181: IF l_debug_level > 0 THEN
12182: oe_debug_pub.add( 'NEW' || P_X_LINE_REC.SCHEDULE_SHIP_DATE ) ;
12183: END IF;
12184: IF l_debug_level > 0 THEN
12185: oe_debug_pub.add( 'OLD' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE ) ;
12186: END IF;
12181: IF l_debug_level > 0 THEN
12182: oe_debug_pub.add( 'NEW' || P_X_LINE_REC.SCHEDULE_SHIP_DATE ) ;
12183: END IF;
12184: IF l_debug_level > 0 THEN
12185: oe_debug_pub.add( 'OLD' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE ) ;
12186: END IF;
12187:
12188: IF l_debug_level > 0 THEN
12189: oe_debug_pub.add( 'OLD AD ' || P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
12185: oe_debug_pub.add( 'OLD' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE ) ;
12186: END IF;
12187:
12188: IF l_debug_level > 0 THEN
12189: oe_debug_pub.add( 'OLD AD ' || P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
12190: END IF;
12191: IF l_debug_level > 0 THEN
12192: oe_debug_pub.add( 'NEW AD ' || P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
12193: END IF;
12188: IF l_debug_level > 0 THEN
12189: oe_debug_pub.add( 'OLD AD ' || P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
12190: END IF;
12191: IF l_debug_level > 0 THEN
12192: oe_debug_pub.add( 'NEW AD ' || P_OLD_LINE_REC.SCHEDULE_ARRIVAL_DATE , 1 ) ;
12193: END IF;
12194:
12195: /* Added code for bug 5343902 */
12196: IF nvl(p_x_line_rec.model_remnant_flag, 'N') = 'Y' AND
12196: IF nvl(p_x_line_rec.model_remnant_flag, 'N') = 'Y' AND
12197: p_x_line_rec.item_type_code in ('KIT', 'CLASS','MODEL') AND
12198: p_x_line_rec.explosion_date IS NULL
12199: THEN
12200: oe_debug_pub.add('Remnant ' || p_x_line_rec.item_type_code || ', Calling Process_Included_Items', 5);
12201:
12202: l_return_status := OE_CONFIG_UTIL.Process_Included_Items
12203: (p_line_id => p_x_line_rec.line_id,
12204: p_freeze => FALSE);
12208: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12209: RAISE FND_API.G_EXC_ERROR;
12210: END IF;
12211:
12212: oe_debug_pub.add('After calling Process_Included_Items', 5);
12213: END IF;
12214: /* End of code changes for bug 5343902 */
12215:
12216: Action_Schedule(p_x_line_rec => p_x_line_rec,
12219: p_qty_to_reserve => p_x_line_rec.reserved_quantity,
12220: x_return_status => x_return_status);
12221:
12222: IF l_debug_level > 0 THEN
12223: oe_debug_pub.add( 'AFTER ACTION SCHEDULE : ' || X_RETURN_STATUS , 1 ) ;
12224: END IF;
12225:
12226: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12428: p_caller => p_caller,
12429: x_return_status => x_return_status);
12430:
12431: IF l_debug_level > 0 THEN
12432: oe_debug_pub.add( 'AFTER CALLING CALL_PROCESS_ORDER :' || X_RETURN_STATUS , 1 ) ;
12433: END IF;
12434:
12435: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12440:
12441: IF l_reserve_later = 'Y'
12442: AND (NOT G_GOP_AUTO_SPLIT OR G_GOP_AUTO_SPLIT_LINE_ID <> P_X_LINE_REC.LINE_ID ) THEN --ER 2736896. Do not reserve here.
12443: IF l_debug_level > 0 THEN
12444: oe_debug_pub.add( 'RESERVE THE NEW ITEM: ' || P_X_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
12445: END IF;
12446: IF p_x_line_rec.shippable_flag = 'Y' THEN
12447:
12448:
12468: l_qty2_to_reserve := null;
12469: end if;
12470:
12471: IF l_debug_level > 0 THEN
12472: oe_debug_pub.add( 'QTY TO RESERVE ' || L_QTY_TO_RESERVE , 2 ) ;
12473: oe_debug_pub.add( 'QTY2 TO RESERVE ' || L_QTY2_TO_RESERVE , 2 ) ;
12474: END IF;
12475:
12476:
12469: end if;
12470:
12471: IF l_debug_level > 0 THEN
12472: oe_debug_pub.add( 'QTY TO RESERVE ' || L_QTY_TO_RESERVE , 2 ) ;
12473: oe_debug_pub.add( 'QTY2 TO RESERVE ' || L_QTY2_TO_RESERVE , 2 ) ;
12474: END IF;
12475:
12476:
12477: Reserve_Line
12494: NOT OE_GLOBALS.EQUAL(p_x_line_rec.schedule_arrival_date,
12495: p_old_line_rec.schedule_arrival_date)
12496: THEN
12497: IF l_debug_level > 0 THEN
12498: oe_debug_pub.add( 'PASSING SCHEDULE_ARRIVAL_DATE TO PO ' , 3 ) ;
12499: END IF;
12500: Update_PO(p_x_line_rec.schedule_arrival_date,
12501: p_x_line_rec.source_document_id,
12502: p_x_line_rec.source_document_line_id);
12500: Update_PO(p_x_line_rec.schedule_arrival_date,
12501: p_x_line_rec.source_document_id,
12502: p_x_line_rec.source_document_line_id);
12503: IF l_debug_level > 0 THEN
12504: oe_debug_pub.add( 'AFTER PO CALL BACK' , 3 ) ;
12505: END IF;
12506: END IF;
12507:
12508: IF l_debug_level > 0 THEN
12505: END IF;
12506: END IF;
12507:
12508: IF l_debug_level > 0 THEN
12509: oe_debug_pub.add( 'EXITING OE_SCHEDULE_UTIL.PROCESS_REQUEST: ' || X_RETURN_STATUS , 1 ) ;
12510: END IF;
12511:
12512:
12513: EXCEPTION
12558: db_primary_uom_code VARCHAR2(3);
12559: db_model_item_id NUMBER := 0;
12560: db_line_unit_code VARCHAR2(3);
12561: --
12562: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12563: --
12564: BEGIN
12565:
12566: IF l_debug_level > 0 THEN
12563: --
12564: BEGIN
12565:
12566: IF l_debug_level > 0 THEN
12567: oe_debug_pub.add( 'ENTERING GET_LEAD_TIME' , 1 ) ;
12568: END IF;
12569: IF l_debug_level > 0 THEN
12570: oe_debug_pub.add( 'ATO LINE IS ' || P_ATO_LINE_ID , 1 ) ;
12571: END IF;
12566: IF l_debug_level > 0 THEN
12567: oe_debug_pub.add( 'ENTERING GET_LEAD_TIME' , 1 ) ;
12568: END IF;
12569: IF l_debug_level > 0 THEN
12570: oe_debug_pub.add( 'ATO LINE IS ' || P_ATO_LINE_ID , 1 ) ;
12571: END IF;
12572: IF l_debug_level > 0 THEN
12573: oe_debug_pub.add( 'SHIP FROM IS ' || P_SHIP_FROM_ORG_ID , 1 ) ;
12574: END IF;
12569: IF l_debug_level > 0 THEN
12570: oe_debug_pub.add( 'ATO LINE IS ' || P_ATO_LINE_ID , 1 ) ;
12571: END IF;
12572: IF l_debug_level > 0 THEN
12573: oe_debug_pub.add( 'SHIP FROM IS ' || P_SHIP_FROM_ORG_ID , 1 ) ;
12574: END IF;
12575:
12576: SELECT NVL ( MSI.FULL_LEAD_TIME , 0 )
12577: , NVL ( MSI.FIXED_LEAD_TIME , 0 )
12626: RETURN VARCHAR2
12627: IS
12628: l_order_date_type_code VARCHAR2(30) := null;
12629: --
12630: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12631: --
12632: BEGIN
12633:
12634: IF p_header_id <> nvl(G_HEADER_ID,0) THEN
12664: RETURN NUMBER
12665: IS
12666: l_order_number NUMBER;
12667: --
12668: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12669: --
12670: BEGIN
12671:
12672: IF l_debug_level > 0 THEN
12669: --
12670: BEGIN
12671:
12672: IF l_debug_level > 0 THEN
12673: oe_debug_pub.add( 'ENTERING GET_ORDER_NUMBER: ' || P_HEADER_ID , 1 ) ;
12674: END IF;
12675:
12676: IF p_header_id is not null AND p_header_id <> FND_API.G_MISS_NUM
12677: THEN
12686: END;
12687: END IF;
12688:
12689: IF l_debug_level > 0 THEN
12690: oe_debug_pub.add( 'ORDER NUMBER : ' || L_ORDER_NUMBER ) ;
12691: END IF;
12692: RETURN l_order_number;
12693: EXCEPTION
12694: WHEN OTHERS THEN
12720: l_sales_order_id NUMBER := 0;
12721: l_order_type_name VARCHAR2(80);
12722: l_order_type_id NUMBER;
12723: --
12724: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12725: --
12726: BEGIN
12727:
12728: IF l_debug_level > 0 THEN
12725: --
12726: BEGIN
12727:
12728: IF l_debug_level > 0 THEN
12729: oe_debug_pub.add( 'ENTERING GET_MTL_SALES_ORDER_ID' , 2 ) ;
12730: END IF;
12731: -- 3748723
12732: IF p_order_type_id IS NULL THEN
12733:
12734: IF OE_Order_Cache.g_header_rec.order_type_id IS NOT NULL
12735: AND OE_Order_Cache.g_header_rec.header_id = p_header_id THEN --Bug4683211
12736:
12737: IF l_debug_level > 0 THEN
12738: oe_debug_pub.add( 'From Header Cache ' , 2 ) ;
12739: END IF;
12740: l_order_type_id := OE_Order_Cache.g_header_rec.order_type_id;
12741: ELSE
12742:
12754: l_order_type_id:=p_order_type_id;
12755: END IF;
12756:
12757: IF l_debug_level > 0 THEN
12758: oe_debug_pub.add( 'ORDER TYPE ID :' || L_ORDER_TYPE_ID , 2 ) ;
12759: END IF;
12760:
12761: --3748723
12762: IF l_order_type_id = oe_schedule_util.sch_cached_mtl_order_type_id AND
12761: --3748723
12762: IF l_order_type_id = oe_schedule_util.sch_cached_mtl_order_type_id AND
12763: oe_schedule_util.sch_cached_mtl_order_type_name IS NOT NULL THEN
12764: IF l_debug_level > 0 THEN
12765: oe_debug_pub.add( 'From order_type_id_Cache ' , 2 ) ;
12766: END IF;
12767: l_order_type_name := oe_schedule_util.sch_cached_mtl_order_type_name;
12768: ELSE
12769: BEGIN
12783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12784: END;
12785: END IF;
12786: IF l_debug_level > 0 THEN
12787: oe_debug_pub.add( 'ORDER TYPE: ' || L_ORDER_TYPE_NAME , 2 ) ;
12788: END IF;
12789: IF l_debug_level > 0 THEN
12790: oe_debug_pub.add( 'SOURCE CODE: ' || L_SOURCE_CODE , 2 ) ;
12791: END IF;
12786: IF l_debug_level > 0 THEN
12787: oe_debug_pub.add( 'ORDER TYPE: ' || L_ORDER_TYPE_NAME , 2 ) ;
12788: END IF;
12789: IF l_debug_level > 0 THEN
12790: oe_debug_pub.add( 'SOURCE CODE: ' || L_SOURCE_CODE , 2 ) ;
12791: END IF;
12792:
12793: --3748723
12794: IF l_order_type_name = oe_schedule_util.sch_cached_mtl_order_type_name AND
12795: l_source_code = oe_schedule_util.sch_cached_mtl_source_code AND
12796: p_header_id = oe_schedule_util.sch_cached_mtl_header_id THEN
12797:
12798: IF l_debug_level > 0 THEN
12799: oe_debug_pub.add( 'CACHED SALES_ORDER_ID ' || oe_schedule_util.sch_cached_mtl_sales_order_id , 2 ) ;
12800: END IF;
12801:
12802: RETURN oe_schedule_util.sch_cached_mtl_sales_order_id;
12803: ELSE
12816: oe_schedule_util.sch_cached_mtl_order_type_id := l_order_type_id;
12817: END IF;
12818:
12819: IF l_debug_level > 0 THEN
12820: oe_debug_pub.add( 'L_SALES_ORDER_ID' || L_SALES_ORDER_ID , 2 ) ;
12821: END IF;
12822:
12823: RETURN l_sales_order_id;
12824: EXCEPTION
12823: RETURN l_sales_order_id;
12824: EXCEPTION
12825: WHEN NO_DATA_FOUND THEN
12826: IF l_debug_level > 0 THEN
12827: oe_debug_pub.add( '2. L_SALES_ORDER_ID IS 0' , 2 ) ;
12828: END IF;
12829: RETURN 0;
12830: WHEN OTHERS THEN
12831: IF l_debug_level > 0 THEN
12828: END IF;
12829: RETURN 0;
12830: WHEN OTHERS THEN
12831: IF l_debug_level > 0 THEN
12832: oe_debug_pub.add( '2. L_SALES_ORDER_ID IS 0' , 2 ) ;
12833: END IF;
12834: RETURN 0;
12835: END Get_mtl_sales_order_id;
12836: /*--------------------------------------------------------------------------
12859: l_msg_data VARCHAR2(2000);
12860: l_msg_count NUMBER;
12861: l_return_status VARCHAR2(1);
12862: --
12863: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12864: --
12865: BEGIN
12866:
12867: IF l_debug_level > 0 THEN
12864: --
12865: BEGIN
12866:
12867: IF l_debug_level > 0 THEN
12868: oe_debug_pub.add( 'ENTERING INSERT_INTO_MTL_SALES_ORDERS' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
12869: END IF;
12870:
12871: BEGIN
12872: -- Fix for bug#1078323: the order type name should be selected in
12883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12884: END;
12885:
12886: IF l_debug_level > 0 THEN
12887: oe_debug_pub.add( 'CALLING INVS CREATE_SALESORDER' , 1 ) ;
12888: END IF;
12889: IF l_debug_level > 0 THEN
12890: oe_debug_pub.add( 'ORDER TYPE: ' || L_ORDER_TYPE_NAME , 1 ) ;
12891: END IF;
12886: IF l_debug_level > 0 THEN
12887: oe_debug_pub.add( 'CALLING INVS CREATE_SALESORDER' , 1 ) ;
12888: END IF;
12889: IF l_debug_level > 0 THEN
12890: oe_debug_pub.add( 'ORDER TYPE: ' || L_ORDER_TYPE_NAME , 1 ) ;
12891: END IF;
12892: IF l_debug_level > 0 THEN
12893: oe_debug_pub.add( 'SOURCE CODE: ' || L_SOURCE_CODE , 1 ) ;
12894: END IF;
12889: IF l_debug_level > 0 THEN
12890: oe_debug_pub.add( 'ORDER TYPE: ' || L_ORDER_TYPE_NAME , 1 ) ;
12891: END IF;
12892: IF l_debug_level > 0 THEN
12893: oe_debug_pub.add( 'SOURCE CODE: ' || L_SOURCE_CODE , 1 ) ;
12894: END IF;
12895: IF l_debug_level > 0 THEN
12896: oe_debug_pub.add( 'ORDER NUMBER : ' || P_HEADER_REC.ORDER_NUMBER , 1 ) ;
12897: END IF;
12892: IF l_debug_level > 0 THEN
12893: oe_debug_pub.add( 'SOURCE CODE: ' || L_SOURCE_CODE , 1 ) ;
12894: END IF;
12895: IF l_debug_level > 0 THEN
12896: oe_debug_pub.add( 'ORDER NUMBER : ' || P_HEADER_REC.ORDER_NUMBER , 1 ) ;
12897: END IF;
12898:
12899: inv_salesorder.create_salesorder
12900: ( p_api_version_number => 1.0,
12908: x_return_status => l_return_status);
12909:
12910:
12911: IF l_debug_level > 0 THEN
12912: oe_debug_pub.add( 'L_MSG_COUNT ' || L_MSG_COUNT , 1 ) ;
12913: END IF;
12914: IF l_debug_level > 0 THEN
12915: oe_debug_pub.add( 'RETURN STATUS ' || L_RETURN_STATUS , 1 ) ;
12916: END IF;
12911: IF l_debug_level > 0 THEN
12912: oe_debug_pub.add( 'L_MSG_COUNT ' || L_MSG_COUNT , 1 ) ;
12913: END IF;
12914: IF l_debug_level > 0 THEN
12915: oe_debug_pub.add( 'RETURN STATUS ' || L_RETURN_STATUS , 1 ) ;
12916: END IF;
12917:
12918: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12919: oe_msg_pub.transfer_msg_stack;
12920: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
12921: FOR I in 1..l_msg_count LOOP
12922: l_msg_data := OE_MSG_PUB.Get(I,'F');
12923: IF l_debug_level > 0 THEN
12924: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
12925: END IF;
12926: END LOOP;
12927:
12928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12931: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
12932: FOR I in 1..l_msg_count LOOP
12933: l_msg_data := OE_MSG_PUB.Get(I,'F');
12934: IF l_debug_level > 0 THEN
12935: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
12936: END IF;
12937: END LOOP;
12938: RAISE FND_API.G_EXC_ERROR;
12939: END IF;
12938: RAISE FND_API.G_EXC_ERROR;
12939: END IF;
12940:
12941: IF l_debug_level > 0 THEN
12942: oe_debug_pub.add( 'EXITING INSERT_INTO_MTL_SALES_ORDERS' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
12943: END IF;
12944:
12945: EXCEPTION
12946:
12974:
12975: IS
12976: is_set_recursion VARCHAR2(1) := 'Y';
12977: --
12978: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12979: --
12980: BEGIN
12981:
12982: IF l_debug_level > 0 THEN
12979: --
12980: BEGIN
12981:
12982: IF l_debug_level > 0 THEN
12983: oe_debug_pub.add( 'ENTERING CALL_PROCESS_ORDER' , 1 ) ;
12984: END IF;
12985:
12986: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
12987: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
12986: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
12987: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
12988:
12989: IF l_debug_level > 0 THEN
12990: oe_debug_pub.add( 'CALLING PROCESS ORDER' , 1 ) ;
12991: END IF;
12992:
12993: -- Set global set recursive flag
12994: -- The global flag to supress the sets logic to fire in
13016: oe_set_util.g_set_recursive_flag := FALSE;
13017: END IF;
13018:
13019: IF l_debug_level > 0 THEN
13020: oe_debug_pub.add( 'SCH: AFTER CALLING PROCESS ORDER' , 1 ) ;
13021: END IF;
13022: IF l_debug_level > 0 THEN
13023: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
13024: END IF;
13019: IF l_debug_level > 0 THEN
13020: oe_debug_pub.add( 'SCH: AFTER CALLING PROCESS ORDER' , 1 ) ;
13021: END IF;
13022: IF l_debug_level > 0 THEN
13023: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
13024: END IF;
13025:
13026: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13027: IF l_debug_level > 0 THEN
13024: END IF;
13025:
13026: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13027: IF l_debug_level > 0 THEN
13028: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
13029: END IF;
13030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13031: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13032: IF l_debug_level > 0 THEN
13029: END IF;
13030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13031: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13032: IF l_debug_level > 0 THEN
13033: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
13034: END IF;
13035: RAISE FND_API.G_EXC_ERROR;
13036: END IF;
13037:
13041: -- Resetting the variable after the Process Order API Call.
13042: OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED := 'N'; -- Added for ER 6110708
13043:
13044: IF l_debug_level > 0 THEN
13045: oe_debug_pub.add( 'EXITING CALL PROCESS ORDER' , 1 ) ;
13046: END IF;
13047: EXCEPTION
13048:
13049: WHEN FND_API.G_EXC_ERROR THEN
13089: l_process_requests BOOLEAN;
13090: I NUMBER;
13091: l_index NUMBER;
13092: --
13093: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
13094: --
13095: BEGIN
13096:
13097: IF l_debug_level > 0 THEN
13094: --
13095: BEGIN
13096:
13097: IF l_debug_level > 0 THEN
13098: oe_debug_pub.add( 'ENTERING PROCESS_GROUP_OF_LINES' , 1 ) ;
13099: END IF;
13100: x_return_status := FND_API.G_RET_STS_SUCCESS;
13101: SAVEPOINT Process_Group_of_Lines;
13102: I := p_x_line_tbl.FIRST;
13102: I := p_x_line_tbl.FIRST;
13103: WHILE I IS NOT NULL LOOP
13104: BEGIN
13105: IF l_debug_level > 0 THEN
13106: oe_debug_pub.add( 'OPERATION : ' || P_X_LINE_TBL ( I ) .OPERATION , 1 ) ;
13107: END IF;
13108: IF p_x_line_tbl(I).operation <> OE_GLOBALS.G_OPR_NONE
13109: THEN
13110: Process_Line (p_old_line_rec => p_x_old_line_tbl(I),
13114: x_return_status => x_return_status);
13115:
13116: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13117: IF l_debug_level > 0 THEN
13118: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
13119: END IF;
13120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13121: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13122: IF l_debug_level > 0 THEN
13119: END IF;
13120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13121: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13122: IF l_debug_level > 0 THEN
13123: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
13124: END IF;
13125: RAISE FND_API.G_EXC_ERROR;
13126: END IF;
13127:
13127:
13128: IF p_x_line_tbl(I).top_model_line_id = p_x_line_tbl(I).line_id
13129: THEN
13130: IF l_debug_level > 0 THEN
13131: oe_debug_pub.add( 'CLEAR THE CACHED TOP MODEL RECORD' , 1 ) ;
13132: END IF;
13133: IF l_debug_level > 0 THEN
13134: oe_debug_pub.add( 'MODEL LINE: '|| P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
13135: END IF;
13130: IF l_debug_level > 0 THEN
13131: oe_debug_pub.add( 'CLEAR THE CACHED TOP MODEL RECORD' , 1 ) ;
13132: END IF;
13133: IF l_debug_level > 0 THEN
13134: oe_debug_pub.add( 'MODEL LINE: '|| P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
13135: END IF;
13136: OE_Order_Cache.Clear_Top_Model_Line(p_key => p_x_line_tbl(I).line_id);
13137: END IF;
13138:
13139: ELSIF nvl(p_x_line_tbl(I).open_flag,'Y') = 'N' THEN
13140:
13141:
13142: IF l_debug_level > 0 THEN
13143: oe_debug_pub.add( 'BEFORE DOING DIRECT UPDATE IN GROUP' , 1 ) ;
13144: END IF;
13145:
13146: p_x_line_tbl(I).last_update_date := SYSDATE;
13147: p_x_line_tbl(I).last_updated_by := FND_GLOBAL.USER_ID;
13158: p_line_id => p_x_line_tbl(I).line_id,
13159: x_index => l_index,
13160: x_return_status => x_return_status);
13161: IF l_debug_level > 0 THEN
13162: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_SCHEDULE_UTIL.PROCESS_GROUP_OF_LINE IS: ' || X_RETURN_STATUS ) ;
13163: END IF;
13164: IF l_debug_level > 0 THEN
13165: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_INDEX , 1 ) ;
13166: END IF;
13161: IF l_debug_level > 0 THEN
13162: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_SCHEDULE_UTIL.PROCESS_GROUP_OF_LINE IS: ' || X_RETURN_STATUS ) ;
13163: END IF;
13164: IF l_debug_level > 0 THEN
13165: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_INDEX , 1 ) ;
13166: END IF;
13167:
13168: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13169: IF l_debug_level > 0 THEN
13166: END IF;
13167:
13168: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13169: IF l_debug_level > 0 THEN
13170: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
13171: END IF;
13172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13173: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13174: IF l_debug_level > 0 THEN
13171: END IF;
13172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13173: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13174: IF l_debug_level > 0 THEN
13175: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
13176: END IF;
13177: RAISE FND_API.G_EXC_ERROR;
13178: END IF;
13179: IF l_index is not NULL THEN
13191: OE_ORDER_UTIL.g_line_tbl(l_index).last_updated_by := p_x_line_tbl(I).last_updated_by;
13192: OE_ORDER_UTIL.g_line_tbl(l_index).last_update_login := p_x_line_tbl(I).last_update_login;
13193: OE_ORDER_UTIL.g_line_tbl(l_index).lock_control := p_x_line_tbl(I).lock_control;
13194: IF l_debug_level > 0 THEN
13195: oe_debug_pub.add( 'GLOBAL SHIP_FROM_ORG_ID IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_INDEX ) .SHIP_FROM_ORG_ID , 1 ) ;
13196: END IF;
13197: END IF; /*l_index is not null check*/
13198: END IF; /*code_release_level*/
13199:
13220: ,lock_control = p_x_line_tbl(I).lock_control
13221: WHERE LINE_ID = p_x_line_tbl(I).line_id;
13222:
13223: IF l_debug_level > 0 THEN
13224: oe_debug_pub.add( 'AFTER DOING DIRECT UPDATE' , 1 ) ;
13225: END IF;
13226: END IF;
13227:
13228: END;
13244: , x_return_status => x_return_status
13245: );
13246:
13247: IF l_debug_level > 0 THEN
13248: oe_debug_pub.add( 'SCH: AFTER CALLING PROCESS REQUEST' , 1 ) ;
13249: END IF;
13250: IF l_debug_level > 0 THEN
13251: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
13252: END IF;
13247: IF l_debug_level > 0 THEN
13248: oe_debug_pub.add( 'SCH: AFTER CALLING PROCESS REQUEST' , 1 ) ;
13249: END IF;
13250: IF l_debug_level > 0 THEN
13251: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
13252: END IF;
13253:
13254: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13255: IF l_debug_level > 0 THEN
13252: END IF;
13253:
13254: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13255: IF l_debug_level > 0 THEN
13256: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
13257: END IF;
13258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13259: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13260: IF l_debug_level > 0 THEN
13257: END IF;
13258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13259: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13260: IF l_debug_level > 0 THEN
13261: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
13262: END IF;
13263: RAISE FND_API.G_EXC_ERROR;
13264: END IF;
13265:
13281: , x_return_status => x_return_status
13282: );
13283:
13284: IF l_debug_level > 0 THEN
13285: oe_debug_pub.add( 'SCH: AFTER CALLING PROCESS REQUEST' , 1 ) ;
13286: END IF;
13287: IF l_debug_level > 0 THEN
13288: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
13289: END IF;
13284: IF l_debug_level > 0 THEN
13285: oe_debug_pub.add( 'SCH: AFTER CALLING PROCESS REQUEST' , 1 ) ;
13286: END IF;
13287: IF l_debug_level > 0 THEN
13288: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
13289: END IF;
13290:
13291: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13292: IF l_debug_level > 0 THEN
13289: END IF;
13290:
13291: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13292: IF l_debug_level > 0 THEN
13293: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
13294: END IF;
13295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13296: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13297: IF l_debug_level > 0 THEN
13294: END IF;
13295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13296: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13297: IF l_debug_level > 0 THEN
13298: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
13299: END IF;
13300: RAISE FND_API.G_EXC_ERROR;
13301: END IF;
13302: END IF; /*code_release_level*/
13304:
13305: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13306: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13307: IF l_debug_level > 0 THEN
13308: oe_debug_pub.add( 'PROCESS GROUP ' || OESCH_PERFORM_SCHEDULING , 1 ) ;
13309: END IF;
13310: IF l_debug_level > 0 THEN
13311: oe_debug_pub.add( 'EXITING PROCESS GROUP OF LINES' , 1 ) ;
13312: END IF;
13307: IF l_debug_level > 0 THEN
13308: oe_debug_pub.add( 'PROCESS GROUP ' || OESCH_PERFORM_SCHEDULING , 1 ) ;
13309: END IF;
13310: IF l_debug_level > 0 THEN
13311: oe_debug_pub.add( 'EXITING PROCESS GROUP OF LINES' , 1 ) ;
13312: END IF;
13313: EXCEPTION
13314:
13315: WHEN FND_API.G_EXC_ERROR THEN
13372: l_control_rec OE_GLOBALS.control_rec_type;
13373: l_src_attr_tbl OE_GLOBALS.NUMBER_Tbl_Type;
13374: l_index NUMBER;
13375: --
13376: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
13377: --
13378: BEGIN
13379:
13380: x_return_status := FND_API.G_RET_STS_SUCCESS;
13378: BEGIN
13379:
13380: x_return_status := FND_API.G_RET_STS_SUCCESS;
13381: IF l_debug_level > 0 THEN
13382: oe_debug_pub.add( 'ENTERING PROCESS_LINE' , 1 ) ;
13383: END IF;
13384: IF l_debug_level > 0 THEN
13385: oe_debug_pub.add( 'P_CALLER ' || P_CALLER , 1 ) ;
13386: END IF;
13381: IF l_debug_level > 0 THEN
13382: oe_debug_pub.add( 'ENTERING PROCESS_LINE' , 1 ) ;
13383: END IF;
13384: IF l_debug_level > 0 THEN
13385: oe_debug_pub.add( 'P_CALLER ' || P_CALLER , 1 ) ;
13386: END IF;
13387:
13388: /* Start Audit Trail */
13389: --Added is_mass_change condition for bug 4911340
13398:
13399: IF nvl(p_x_line_rec.open_flag,'Y') = 'N' THEN
13400:
13401: IF l_debug_level > 0 THEN
13402: oe_debug_pub.add( 'DIRECT UPDATE FOR A CANCELLED LINE' || P_X_LINE_REC.LINE_ID , 1 ) ;
13403: END IF;
13404:
13405: p_x_line_rec.last_update_date := SYSDATE;
13406: p_x_line_rec.last_updated_by := FND_GLOBAL.USER_ID;
13432: ,lock_control = p_x_line_rec.lock_control
13433: WHERE LINE_ID = p_x_line_rec.line_id;
13434:
13435: IF l_debug_level > 0 THEN
13436: oe_debug_pub.add( 'AFTER DOING DIRECT UPDATE ON A CANCELLED LINE' , 1 ) ;
13437: END IF;
13438:
13439: ELSIF NOT OE_GLOBALS.Equal(p_x_line_rec.ship_from_org_id,
13440: p_old_line_rec.ship_from_org_id)
13444: p_old_line_rec.inventory_item_id)
13445: THEN
13446:
13447: IF l_debug_level > 0 THEN
13448: oe_debug_pub.add( 'WAREHOUSE/SHIP TO HAS CHANGED ON THE LINE CALLING PO' , 1 ) ;
13449: END IF;
13450:
13451: l_control_rec.controlled_operation := TRUE;
13452: l_control_rec.change_attributes := TRUE;
13487:
13488: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
13489:
13490: IF l_debug_level > 0 THEN
13491: oe_debug_pub.add( 'IT IS UPDATE , CALL SECURITY' ) ;
13492: END IF;
13493:
13494: IF p_caller = 'INTERNAL' THEN -- 5999034
13495: p_x_line_rec.change_reason := 'SYSTEM';
13512: END IF;
13513:
13514: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13515: IF l_debug_level > 0 THEN
13516: oe_debug_pub.add( 'AFTER SECURITY CALL' || X_RETURN_STATUS , 1 ) ;
13517: END IF;
13518:
13519: -- if operation on any attribute is constrained
13520: IF l_sec_result = OE_PC_GLOBALS.YES THEN
13518:
13519: -- if operation on any attribute is constrained
13520: IF l_sec_result = OE_PC_GLOBALS.YES THEN
13521: IF l_debug_level > 0 THEN
13522: oe_debug_pub.add( 'CONSTRAINT FOUND' , 4 ) ;
13523: END IF;
13524: RAISE FND_API.G_EXC_ERROR;
13525: END IF;
13526:
13530: -- We will re-set the value, before calling.
13531: OE_GLOBALS.G_ATTR_UPDATED_BY_DEF := 'N';
13532:
13533: IF l_debug_level > 0 THEN
13534: oe_debug_pub.add( 'OLD SHIP :' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
13535: END IF;
13536: IF l_debug_level > 0 THEN
13537: oe_debug_pub.add( 'NEW SHIP :' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
13538: END IF;
13533: IF l_debug_level > 0 THEN
13534: oe_debug_pub.add( 'OLD SHIP :' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
13535: END IF;
13536: IF l_debug_level > 0 THEN
13537: oe_debug_pub.add( 'NEW SHIP :' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
13538: END IF;
13539:
13540: IF NOT OE_GLOBALS.Equal(trunc(p_x_line_rec.schedule_ship_date), -- 5999034
13541: trunc(p_old_line_rec.schedule_ship_date))
13542:
13543: THEN
13544:
13545: IF l_debug_level > 0 THEN
13546: oe_debug_pub.add( 'SHIP_DATE HAS CHANGED ON THE LINE' , 1 ) ;
13547: END IF;
13548: l_src_attr_tbl(1) := OE_LINE_UTIL.G_SCHEDULE_SHIP_DATE;
13549:
13550: OE_Line_Util_Ext.Clear_Dep_And_Default
13551: ( p_src_attr_tbl => l_src_attr_tbl,
13552: p_x_line_rec => p_x_line_rec,
13553: p_old_line_rec => p_old_line_rec);
13554: IF l_debug_level > 0 THEN
13555: oe_debug_pub.add( 'AFTER CALLING CLEAR_DEP_AND_DEFAULT' , 1 ) ;
13556: END IF;
13557:
13558: END IF;
13559: IF l_debug_level > 0 THEN
13556: END IF;
13557:
13558: END IF;
13559: IF l_debug_level > 0 THEN
13560: oe_debug_pub.add( 'DIRECT/PO ' || OE_GLOBALS.G_ATTR_UPDATED_BY_DEF , 1 ) ;
13561: END IF;
13562: IF OE_GLOBALS.G_ATTR_UPDATED_BY_DEF = 'Y' THEN
13563:
13564:
13598: END IF;
13599:
13600: ELSE
13601: IF l_debug_level > 0 THEN
13602: oe_debug_pub.add( ' DEFAULTING HAS NOT CHANGED ANY THING' , 1 ) ;
13603: END IF;
13604: IF l_debug_level > 0 THEN
13605: oe_debug_pub.add( 'BEFORE CALLING LOG_SCHEDULING REQUESTS' , 1 ) ;
13606: END IF;
13601: IF l_debug_level > 0 THEN
13602: oe_debug_pub.add( ' DEFAULTING HAS NOT CHANGED ANY THING' , 1 ) ;
13603: END IF;
13604: IF l_debug_level > 0 THEN
13605: oe_debug_pub.add( 'BEFORE CALLING LOG_SCHEDULING REQUESTS' , 1 ) ;
13606: END IF;
13607:
13608: OE_MSG_PUB.set_msg_context
13609: (p_entity_code => 'LINE'
13626: ,p_order_type_id => l_order_type_id
13627: ,x_return_status => x_return_status);
13628:
13629: IF l_debug_level > 0 THEN
13630: oe_debug_pub.add( 'AFTER CALLING LOG_SCHEDULING REQUESTS' || X_RETURN_STATUS , 1 ) ;
13631: END IF;
13632:
13633: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13636: RAISE FND_API.G_EXC_ERROR;
13637: END IF;
13638:
13639: IF l_debug_level > 0 THEN
13640: oe_debug_pub.add( 'BEFORE DOING DIRECT UPDATE' , 1 ) ;
13641: END IF;
13642: IF NOT validate_ship_method (p_x_line_rec.shipping_method_code,
13643: p_old_line_rec.shipping_method_code,
13644: p_x_line_rec.ship_from_org_id) THEN
13693: ,lock_control = p_x_line_rec.lock_control
13694: WHERE LINE_ID = p_x_line_rec.line_id; --2806483 Added Fright_carrier_code
13695:
13696: IF l_debug_level > 0 THEN
13697: oe_debug_pub.add( 'AFTER DOING DIRECT UPDATE' , 1 ) ;
13698: END IF;
13699:
13700: END IF; -- OE_GLOBALS.G_ATTR_UPDATED_BY_DEF.
13701: END IF; -- warehouse is changed.
13701: END IF; -- warehouse is changed.
13702:
13703: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13704: IF l_debug_level > 0 THEN
13705: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
13706: END IF;
13707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13708: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13709: IF l_debug_level > 0 THEN
13706: END IF;
13707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13708: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13709: IF l_debug_level > 0 THEN
13710: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
13711: END IF;
13712: RAISE FND_API.G_EXC_ERROR;
13713: END IF;
13714:
13736: p_line_id => p_x_line_rec.line_id,
13737: x_index => l_index,
13738: x_return_status => x_return_status);
13739: IF l_debug_level > 0 THEN
13740: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_SCHEDULE_UTIL.PROCESS_LINE IS: ' || X_RETURN_STATUS ) ;
13741: END IF;
13742: IF l_debug_level > 0 THEN
13743: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_INDEX , 1 ) ;
13744: END IF;
13739: IF l_debug_level > 0 THEN
13740: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_SCHEDULE_UTIL.PROCESS_LINE IS: ' || X_RETURN_STATUS ) ;
13741: END IF;
13742: IF l_debug_level > 0 THEN
13743: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_INDEX , 1 ) ;
13744: END IF;
13745:
13746: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13747: IF l_debug_level > 0 THEN
13744: END IF;
13745:
13746: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13747: IF l_debug_level > 0 THEN
13748: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
13749: END IF;
13750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13751: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13752: IF l_debug_level > 0 THEN
13749: END IF;
13750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13751: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13752: IF l_debug_level > 0 THEN
13753: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
13754: END IF;
13755: RAISE FND_API.G_EXC_ERROR;
13756: END IF;
13757:
13770: OE_ORDER_UTIL.g_line_tbl(l_index).last_updated_by := p_x_line_rec.last_updated_by;
13771: OE_ORDER_UTIL.g_line_tbl(l_index).last_update_login := p_x_line_rec.last_update_login;
13772: OE_ORDER_UTIL.g_line_tbl(l_index).lock_control := p_x_line_rec.lock_control;
13773: IF l_debug_level > 0 THEN
13774: oe_debug_pub.add( 'GLOBAL SHIP_FROM_ORG_ID IS: ' || OE_ORDER_UTIL.G_LINE_TBL ( L_INDEX ) .SHIP_FROM_ORG_ID , 1 ) ;
13775: END IF;
13776: END IF; /*l_index is not null check*/
13777:
13778: -- Do not execute delayed request if it is a internal call.
13794: , x_return_status => x_return_status);
13795:
13796:
13797: IF l_debug_level > 0 THEN
13798: oe_debug_pub.add( 'SCH: AFTER CALLING PROCESS REQUEST AND NOTIFY' , 1 ) ;
13799: END IF;
13800: IF l_debug_level > 0 THEN
13801: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
13802: END IF;
13797: IF l_debug_level > 0 THEN
13798: oe_debug_pub.add( 'SCH: AFTER CALLING PROCESS REQUEST AND NOTIFY' , 1 ) ;
13799: END IF;
13800: IF l_debug_level > 0 THEN
13801: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
13802: END IF;
13803:
13804: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13805: IF l_debug_level > 0 THEN
13802: END IF;
13803:
13804: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13805: IF l_debug_level > 0 THEN
13806: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
13807: END IF;
13808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13809: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13810: IF l_debug_level > 0 THEN
13807: END IF;
13808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13809: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13810: IF l_debug_level > 0 THEN
13811: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
13812: END IF;
13813: RAISE FND_API.G_EXC_ERROR;
13814: END IF;
13815: END IF;
13834: , x_return_status => x_return_status);
13835:
13836:
13837: IF l_debug_level > 0 THEN
13838: oe_debug_pub.add( 'SCH: AFTER CALLING PROCESS REQUEST AND NOTIFY' , 1 ) ;
13839: END IF;
13840: IF l_debug_level > 0 THEN
13841: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
13842: END IF;
13837: IF l_debug_level > 0 THEN
13838: oe_debug_pub.add( 'SCH: AFTER CALLING PROCESS REQUEST AND NOTIFY' , 1 ) ;
13839: END IF;
13840: IF l_debug_level > 0 THEN
13841: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
13842: END IF;
13843:
13844: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13845: IF l_debug_level > 0 THEN
13842: END IF;
13843:
13844: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13845: IF l_debug_level > 0 THEN
13846: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
13847: END IF;
13848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13849: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13850: IF l_debug_level > 0 THEN
13847: END IF;
13848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13849: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13850: IF l_debug_level > 0 THEN
13851: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
13852: END IF;
13853: RAISE FND_API.G_EXC_ERROR;
13854: END IF;
13855:
13855:
13856: END IF;
13857: END IF; /*code_release_level*/
13858: IF l_debug_level > 0 THEN
13859: oe_debug_pub.add( 'EXITING PROCESS_LINE ' , 1 ) ;
13860: END IF;
13861:
13862: EXCEPTION
13863:
13906: l_scheduling_level_code VARCHAR2(30);
13907: -- END 1955004
13908:
13909: --
13910: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
13911: --
13912: BEGIN
13913:
13914: IF l_debug_level > 0 THEN
13911: --
13912: BEGIN
13913:
13914: IF l_debug_level > 0 THEN
13915: oe_debug_pub.add( 'ENTERING ATP_CHECK ' , 2 ) ;
13916: END IF;
13917: -- Since we are not calling need scheduling from here
13918:
13919: g_atp_tbl.Delete;
13920:
13921: IF p_validate = FND_API.G_TRUE THEN
13922:
13923: IF l_debug_level > 0 THEN
13924: oe_debug_pub.add( 'BEFORE CALLING VALIDATE LINE' , 2 ) ;
13925: END IF;
13926: Validate_Line(p_line_rec => p_x_line_rec,
13927: p_old_line_rec => p_old_line_rec,
13928: p_sch_action => p_x_line_rec.schedule_action_code,
13939: l_scheduling_level_code := SCH_LEVEL_THREE;
13940: END IF;
13941:
13942: IF l_debug_level > 0 THEN
13943: oe_debug_pub.add( 'SCHEDULING_LEVEL_CODE IS:' || L_SCHEDULING_LEVEL_CODE , 2 ) ;
13944: END IF;
13945: -- 3763015
13946: IF l_scheduling_level_code <> SCH_LEVEL_FOUR AND
13947: l_scheduling_level_code <> SCH_LEVEL_FIVE AND
13952: -- validation may be off, so we we need to double-check here
13953: --END 1955004
13954:
13955: IF l_debug_level > 0 THEN
13956: oe_debug_pub.add( 'BEFORE CALLING ACTION_ATP ' , 2 ) ;
13957: END IF;
13958: Action_ATP(p_x_line_rec => p_x_line_rec,
13959: p_old_line_rec => p_old_line_rec,
13960: x_return_status => x_return_status);
13961:
13962:
13963:
13964: IF l_debug_level > 0 THEN
13965: oe_debug_pub.add( 'AFTER CALLING ACTION_ATP ' || X_RETURN_STATUS , 2 ) ;
13966: END IF;
13967: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13968: IF l_debug_level > 0 THEN
13969: oe_debug_pub.add( 'UNEXPECTED ERROR FROM ' , 1 ) ;
13965: oe_debug_pub.add( 'AFTER CALLING ACTION_ATP ' || X_RETURN_STATUS , 2 ) ;
13966: END IF;
13967: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13968: IF l_debug_level > 0 THEN
13969: oe_debug_pub.add( 'UNEXPECTED ERROR FROM ' , 1 ) ;
13970: END IF;
13971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13972: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13973: IF l_debug_level > 0 THEN
13970: END IF;
13971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13972: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13973: IF l_debug_level > 0 THEN
13974: oe_debug_pub.add( 'RR: L2' , 1 ) ;
13975: END IF;
13976: RAISE FND_API.G_EXC_ERROR;
13977: END IF;
13978:
13980:
13981: END IF; -- for new IF check added for 1955004
13982:
13983: IF l_debug_level > 0 THEN
13984: oe_debug_pub.add( 'EXITING ATP_CHECK ' , 2 ) ;
13985: END IF;
13986: EXCEPTION
13987:
13988: WHEN FND_API.G_EXC_ERROR THEN
14048: l_sub_avail_to_reserve_ord NUMBER ;
14049: --End ER#14763609
14050:
14051: --
14052: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
14053: --
14054: BEGIN
14055:
14056: IF l_debug_level > 0 THEN
14053: --
14054: BEGIN
14055:
14056: IF l_debug_level > 0 THEN
14057: oe_debug_pub.add( 'ENTERING MULTI ATP_CHECK ' , 2 ) ;
14058: END IF;
14059:
14060: g_atp_tbl.Delete;
14061:
14059:
14060: g_atp_tbl.Delete;
14061:
14062: IF l_debug_level > 0 THEN
14063: oe_debug_pub.add( 'BEFORE CALLING LOAD_MRP_TBL ' , 2 ) ;
14064: END IF;
14065:
14066: Load_MRP_request_from_tbl
14067: ( p_line_tbl => p_x_line_tbl
14069: ,p_sch_action => OESCH_ACT_ATP_CHECK
14070: ,x_mrp_atp_rec => l_mrp_atp_rec);
14071:
14072: IF l_debug_level > 0 THEN
14073: oe_debug_pub.add( 'AFTER CALLING LOAD_MRP_TBL ' , 2 ) ;
14074: END IF;
14075:
14076: IF l_mrp_atp_rec.error_code.count > 0 THEN
14077:
14081:
14082: -- Call ATP
14083:
14084: IF l_debug_level > 0 THEN
14085: oe_debug_pub.add( 'CALLING MRP API WITH SESSION ID '||L_SESSION_ID , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
14086: END IF;
14087:
14088: MRP_ATP_PUB.Call_ATP
14089: ( p_session_id => l_session_id
14096: , x_msg_data => l_mrp_msg_data
14097: , x_msg_count => l_msg_count);
14098:
14099: IF l_debug_level > 0 THEN
14100: oe_debug_pub.add( ' AFTER CALLING MRP_ATP_PUB.CALL_ATP ' || X_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
14101: END IF;
14102:
14103: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14114: p_x_line_tbl => p_x_line_tbl,
14115: x_return_status => x_return_status);
14116:
14117: IF l_debug_level > 0 THEN
14118: oe_debug_pub.add( 'AFTER CALLING ACTION_ATP ' || X_RETURN_STATUS , 2 ) ;
14119: END IF;
14120:
14121: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14130: -- qties while performing ATP. Getting these values from inventory.
14131:
14132: FOR K IN 1..g_atp_tbl.count LOOP
14133: IF l_debug_level > 0 THEN
14134: oe_debug_pub.add( 'CALLING QUERY_QTY_TREE' , 1 ) ;
14135: END IF;
14136: Query_Qty_Tree(p_org_id => g_atp_tbl(K).ship_from_org_id,
14137: p_item_id => g_atp_tbl(K).inventory_item_id,
14138: p_line_id => g_atp_tbl(K).line_id,
14149: -- added by fabdi 03/May/2001
14150:
14151: --ER#14763609 Start
14152: IF l_debug_level > 0 THEN
14153: oe_debug_pub.add( '2. Fetching primary and secondary UOM' , 1 ) ;
14154: END IF;
14155:
14156: SELECT secondary_uom_code ,primary_uom_code
14157: INTO l_secondary_uom_code ,l_primary_uom_code
14160: AND organization_id = g_atp_tbl(K).ship_from_org_id
14161: AND ROWNUM=1;
14162:
14163: IF l_debug_level > 0 THEN
14164: oe_debug_pub.add( '2. l_primary_uom_code / l_secondary_uom_code ' || l_primary_uom_code || ' / ' || l_secondary_uom_code , 1 ) ;
14165: END IF;
14166:
14167: SELECT Nvl(fulfillment_base,'P')
14168: INTO l_fulfillment_base
14168: INTO l_fulfillment_base
14169: FROM oe_order_lines_all
14170: WHERE line_id = g_atp_tbl(K).line_id;
14171: IF l_debug_level > 0 THEN
14172: oe_debug_pub.add( '2. fulfillment_base: '|| l_fulfillment_base , 1 ) ;
14173: END IF;
14174: --ER#14763609 End
14175:
14176: IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id
14188: -- g_atp_tbl(K).QTY_ON_REQUEST_DATE := l_avail_to_reserve;
14189: -- Above line commented for bug 11658607 as it was a wrong assignment -- Available field in ATP
14190:
14191: IF l_debug_level > 0 THEN
14192: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
14193: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
14194: oe_debug_pub.add( 'AVAILABLE ' || L_AVAIL_TO_RESERVE ) ;
14195: END IF;
14196:
14189: -- Above line commented for bug 11658607 as it was a wrong assignment -- Available field in ATP
14190:
14191: IF l_debug_level > 0 THEN
14192: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
14193: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
14194: oe_debug_pub.add( 'AVAILABLE ' || L_AVAIL_TO_RESERVE ) ;
14195: END IF;
14196:
14197: --ER#14763609 Start
14190:
14191: IF l_debug_level > 0 THEN
14192: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
14193: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
14194: oe_debug_pub.add( 'AVAILABLE ' || L_AVAIL_TO_RESERVE ) ;
14195: END IF;
14196:
14197: --ER#14763609 Start
14198: IF l_fulfillment_base ='P' THEN
14233: g_atp_tbl(K).available_to_reserve_orduom := l_avail_to_reserve_ord;
14234: g_atp_tbl(K).primary_uom := l_primary_uom_code;
14235:
14236: IF l_debug_level > 0 THEN
14237: oe_debug_pub.add( '5. l_on_hand_ord_qty: ' || l_on_hand_ord_qty ) ;
14238: oe_debug_pub.add( '5. l_avail_to_reserve_ord: ' || l_avail_to_reserve_ord ) ;
14239: oe_debug_pub.add( '5. l_primary_uom_code: ' || l_primary_uom_code ) ;
14240: END IF;
14241:
14234: g_atp_tbl(K).primary_uom := l_primary_uom_code;
14235:
14236: IF l_debug_level > 0 THEN
14237: oe_debug_pub.add( '5. l_on_hand_ord_qty: ' || l_on_hand_ord_qty ) ;
14238: oe_debug_pub.add( '5. l_avail_to_reserve_ord: ' || l_avail_to_reserve_ord ) ;
14239: oe_debug_pub.add( '5. l_primary_uom_code: ' || l_primary_uom_code ) ;
14240: END IF;
14241:
14242: --ER#14763609 End
14235:
14236: IF l_debug_level > 0 THEN
14237: oe_debug_pub.add( '5. l_on_hand_ord_qty: ' || l_on_hand_ord_qty ) ;
14238: oe_debug_pub.add( '5. l_avail_to_reserve_ord: ' || l_avail_to_reserve_ord ) ;
14239: oe_debug_pub.add( '5. l_primary_uom_code: ' || l_primary_uom_code ) ;
14240: END IF;
14241:
14242: --ER#14763609 End
14243:
14245: IF g_atp_tbl(K).substitute_flag = 'N' THEN
14246: g_atp_tbl(K).on_hand_qty := l_on_hand_qty;
14247: g_atp_tbl(K).available_to_reserve := l_avail_to_reserve;
14248: IF l_debug_level > 0 THEN
14249: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
14250: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
14251: END IF;
14252:
14253: --ER#14763609 Start
14246: g_atp_tbl(K).on_hand_qty := l_on_hand_qty;
14247: g_atp_tbl(K).available_to_reserve := l_avail_to_reserve;
14248: IF l_debug_level > 0 THEN
14249: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
14250: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
14251: END IF;
14252:
14253: --ER#14763609 Start
14254: IF l_fulfillment_base ='P' THEN
14289: g_atp_tbl(K).available_to_reserve_orduom := l_avail_to_reserve_ord;
14290: g_atp_tbl(K).primary_uom := l_primary_uom_code;
14291:
14292: IF l_debug_level > 0 THEN
14293: oe_debug_pub.add( '2. l_on_hand_ord_qty: ' || l_on_hand_ord_qty ) ;
14294: oe_debug_pub.add( '2. l_avail_to_reserve_ord: ' || l_avail_to_reserve_ord ) ;
14295: oe_debug_pub.add( '2. l_primary_uom_code: ' || l_primary_uom_code ) ;
14296: END IF;
14297:
14290: g_atp_tbl(K).primary_uom := l_primary_uom_code;
14291:
14292: IF l_debug_level > 0 THEN
14293: oe_debug_pub.add( '2. l_on_hand_ord_qty: ' || l_on_hand_ord_qty ) ;
14294: oe_debug_pub.add( '2. l_avail_to_reserve_ord: ' || l_avail_to_reserve_ord ) ;
14295: oe_debug_pub.add( '2. l_primary_uom_code: ' || l_primary_uom_code ) ;
14296: END IF;
14297:
14298: --ER#14763609 End
14291:
14292: IF l_debug_level > 0 THEN
14293: oe_debug_pub.add( '2. l_on_hand_ord_qty: ' || l_on_hand_ord_qty ) ;
14294: oe_debug_pub.add( '2. l_avail_to_reserve_ord: ' || l_avail_to_reserve_ord ) ;
14295: oe_debug_pub.add( '2. l_primary_uom_code: ' || l_primary_uom_code ) ;
14296: END IF;
14297:
14298: --ER#14763609 End
14299:
14301: ELSE --g_atp_tbl(K).substitute_flag = 'N'
14302: g_atp_tbl(K).sub_on_hand_qty := l_on_hand_qty;
14303: g_atp_tbl(K).sub_available_to_reserve := l_avail_to_reserve;
14304: IF l_debug_level > 0 THEN
14305: oe_debug_pub.add( 'SUB L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
14306: oe_debug_pub.add( 'SUB L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
14307: END IF;
14308: --ER#14763609 Start
14309: IF l_fulfillment_base ='P' THEN
14302: g_atp_tbl(K).sub_on_hand_qty := l_on_hand_qty;
14303: g_atp_tbl(K).sub_available_to_reserve := l_avail_to_reserve;
14304: IF l_debug_level > 0 THEN
14305: oe_debug_pub.add( 'SUB L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
14306: oe_debug_pub.add( 'SUB L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
14307: END IF;
14308: --ER#14763609 Start
14309: IF l_fulfillment_base ='P' THEN
14310: l_sub_on_hand_ord_qty := OE_Order_Misc_Util.Convert_Uom
14344: g_atp_tbl(K).sub_avail_to_reserve_orduom := l_sub_avail_to_reserve_ord;
14345: g_atp_tbl(K).sub_primary_uom := l_primary_uom_code;
14346:
14347: IF l_debug_level > 0 THEN
14348: oe_debug_pub.add( '3. l_sub_on_hand_ord_qty: ' || l_sub_on_hand_ord_qty ) ;
14349: oe_debug_pub.add( '3. l_sub_avail_to_reserve_ord: ' || l_sub_avail_to_reserve_ord ) ;
14350: oe_debug_pub.add( '3. l_primary_uom_code: ' || l_primary_uom_code ) ;
14351: END IF;
14352:
14345: g_atp_tbl(K).sub_primary_uom := l_primary_uom_code;
14346:
14347: IF l_debug_level > 0 THEN
14348: oe_debug_pub.add( '3. l_sub_on_hand_ord_qty: ' || l_sub_on_hand_ord_qty ) ;
14349: oe_debug_pub.add( '3. l_sub_avail_to_reserve_ord: ' || l_sub_avail_to_reserve_ord ) ;
14350: oe_debug_pub.add( '3. l_primary_uom_code: ' || l_primary_uom_code ) ;
14351: END IF;
14352:
14353: --ER#14763609 End
14346:
14347: IF l_debug_level > 0 THEN
14348: oe_debug_pub.add( '3. l_sub_on_hand_ord_qty: ' || l_sub_on_hand_ord_qty ) ;
14349: oe_debug_pub.add( '3. l_sub_avail_to_reserve_ord: ' || l_sub_avail_to_reserve_ord ) ;
14350: oe_debug_pub.add( '3. l_primary_uom_code: ' || l_primary_uom_code ) ;
14351: END IF;
14352:
14353: --ER#14763609 End
14354:
14365:
14366: g_atp_tbl(K).on_hand_qty := l_on_hand_qty;
14367: g_atp_tbl(K).available_to_reserve := l_avail_to_reserve;
14368: IF l_debug_level > 0 THEN
14369: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
14370: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
14371: END IF;
14372: --ER#14763609 Start
14373: IF l_debug_level > 0 THEN
14366: g_atp_tbl(K).on_hand_qty := l_on_hand_qty;
14367: g_atp_tbl(K).available_to_reserve := l_avail_to_reserve;
14368: IF l_debug_level > 0 THEN
14369: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
14370: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
14371: END IF;
14372: --ER#14763609 Start
14373: IF l_debug_level > 0 THEN
14374: oe_debug_pub.add( '3. Fetching primary and secondary UOM' , 1 ) ;
14370: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
14371: END IF;
14372: --ER#14763609 Start
14373: IF l_debug_level > 0 THEN
14374: oe_debug_pub.add( '3. Fetching primary and secondary UOM' , 1 ) ;
14375: END IF;
14376:
14377: SELECT secondary_uom_code ,primary_uom_code
14378: INTO l_secondary_uom_code ,l_primary_uom_code
14380: WHERE inventory_item_id = g_atp_tbl(K).request_item_id
14381: AND organization_id = g_atp_tbl(K).ship_from_org_id
14382: AND ROWNUM=1;
14383: IF l_debug_level > 0 THEN
14384: oe_debug_pub.add( '3. l_primary_uom_code / l_secondary_uom_code ' || l_primary_uom_code || ' / ' || l_secondary_uom_code , 1 ) ;
14385: END IF;
14386:
14387: IF l_fulfillment_base ='P' THEN
14388: l_on_hand_ord_qty := OE_Order_Misc_Util.Convert_Uom
14422: g_atp_tbl(K).available_to_reserve_orduom := l_avail_to_reserve_ord;
14423: g_atp_tbl(K).primary_uom := l_primary_uom_code;
14424:
14425: IF l_debug_level > 0 THEN
14426: oe_debug_pub.add( '4. l_on_hand_ord_qty: ' || l_on_hand_ord_qty ) ;
14427: oe_debug_pub.add( '4. l_avail_to_reserve_ord: ' || l_avail_to_reserve_ord ) ;
14428: oe_debug_pub.add( '4. l_primary_uom_code: ' || l_primary_uom_code ) ;
14429: END IF;
14430:
14423: g_atp_tbl(K).primary_uom := l_primary_uom_code;
14424:
14425: IF l_debug_level > 0 THEN
14426: oe_debug_pub.add( '4. l_on_hand_ord_qty: ' || l_on_hand_ord_qty ) ;
14427: oe_debug_pub.add( '4. l_avail_to_reserve_ord: ' || l_avail_to_reserve_ord ) ;
14428: oe_debug_pub.add( '4. l_primary_uom_code: ' || l_primary_uom_code ) ;
14429: END IF;
14430:
14431: --ER#14763609 End
14424:
14425: IF l_debug_level > 0 THEN
14426: oe_debug_pub.add( '4. l_on_hand_ord_qty: ' || l_on_hand_ord_qty ) ;
14427: oe_debug_pub.add( '4. l_avail_to_reserve_ord: ' || l_avail_to_reserve_ord ) ;
14428: oe_debug_pub.add( '4. l_primary_uom_code: ' || l_primary_uom_code ) ;
14429: END IF;
14430:
14431: --ER#14763609 End
14432:
14441:
14442: x_atp_tbl := g_atp_tbl;
14443:
14444: IF l_debug_level > 0 THEN
14445: oe_debug_pub.add( 'EXITING MULTI ATP_CHECK ' , 2 ) ;
14446: END IF;
14447: EXCEPTION
14448:
14449: WHEN FND_API.G_EXC_ERROR THEN
14478: l_sales_order_id NUMBER;
14479: l_ato_exists VARCHAR2(1);
14480: l_request_search_rslt BOOLEAN;
14481: --
14482: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
14483: --
14484: BEGIN
14485:
14486: IF l_debug_level > 0 THEN
14483: --
14484: BEGIN
14485:
14486: IF l_debug_level > 0 THEN
14487: oe_debug_pub.add( 'ENTERING OE_SCHEDULE_UTIL.DELETE_ROW' , 1 ) ;
14488: END IF;
14489: OE_Line_Util.Query_Row(p_line_id => p_line_id,
14490: x_line_rec => l_line_rec);
14491:
14518: p_line_id => l_line_rec.line_id,
14519: p_org_id => l_line_rec.ship_from_org_id); */
14520:
14521: IF l_debug_level > 0 THEN
14522: oe_debug_pub.add( 'after Get_Reserved_Quantities, l_line_rec.reserved_quantity2 = ' || l_line_rec.reserved_quantity2, 1 ) ;
14523: END IF;
14524:
14525:
14526:
14553: p_line_id => l_line_rec.line_id,
14554: p_set_id => nvl(l_line_rec.ship_set_id,l_line_rec.arrival_set_id),
14555: x_return_status => l_return_status);
14556: IF l_debug_level > 0 THEN
14557: oe_debug_pub.add( 'AFTER LOGGING DELETE SETS DELAYED REQUEST ' || L_RETURN_STATUS , 1 ) ;
14558: END IF;
14559:
14560: --bug#5631508
14561: IF L_RETURN_STATUS=FND_API.G_RET_STS_SUCCESS then
14562:
14563: OE_AUDIT_HISTORY_PVT.DELETE_SET_HISTORY( p_line_id => l_line_rec.line_id, x_return_status => l_return_status);
14564:
14565: IF l_debug_level > 0 THEN
14566: oe_debug_pub.add( 'AFTER DELETE_SET_HISTORY ' || l_return_status , 1 ) ;
14567: END IF;
14568:
14569: END IF;
14570:
14642:
14643: -- Start 2691579
14644: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
14645: IF l_debug_level > 0 THEN
14646: oe_debug_pub.add( 'Operation '||l_line_rec.operation , 1 ) ;
14647: END IF;
14648: -- End 2691579
14649:
14650: Action_Undemand(p_old_line_rec => l_line_rec,
14654:
14655: END IF;
14656:
14657: IF l_debug_level > 0 THEN
14658: oe_debug_pub.add( 'EXITING OE_SCHEDULE_UTIL.DELETE_ROW' , 1 ) ;
14659: END IF;
14660: EXCEPTION
14661:
14662: WHEN OTHERS THEN
14690: l_dummy_sn inv_reservation_global.serial_number_tbl_type;
14691: l_buffer VARCHAR2(2000);
14692:
14693: --
14694: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
14695: --
14696: BEGIN
14697: IF l_debug_level > 0 THEN
14698: oe_debug_pub.add( 'ENTERING TRANSFER_RESERVATION LINE :' || P_QUANTITY_TO_TRANSFER , 1 ) ;
14694: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
14695: --
14696: BEGIN
14697: IF l_debug_level > 0 THEN
14698: oe_debug_pub.add( 'ENTERING TRANSFER_RESERVATION LINE :' || P_QUANTITY_TO_TRANSFER , 1 ) ;
14699: oe_debug_pub.add( 'TRANSFER_RESERVATION LINE qty2 :' || P_QUANTITY2_TO_TRANSFER , 1 ) ;
14700: oe_debug_pub.add( 'TOTAL RESERVATION ON THE LINE :' || P_RSV_REC.RESERVATION_QUANTITY , 1 ) ;
14701: oe_debug_pub.add( 'TOTAL RESERVATION qty2 ON THE LINE :' || P_RSV_REC.SECONDARY_RESERVATION_QUANTITY , 1 ) ;
14702: oe_debug_pub.add( ' LINE :' || P_LINE_TO_TRANSFER , 1 ) ;
14695: --
14696: BEGIN
14697: IF l_debug_level > 0 THEN
14698: oe_debug_pub.add( 'ENTERING TRANSFER_RESERVATION LINE :' || P_QUANTITY_TO_TRANSFER , 1 ) ;
14699: oe_debug_pub.add( 'TRANSFER_RESERVATION LINE qty2 :' || P_QUANTITY2_TO_TRANSFER , 1 ) ;
14700: oe_debug_pub.add( 'TOTAL RESERVATION ON THE LINE :' || P_RSV_REC.RESERVATION_QUANTITY , 1 ) ;
14701: oe_debug_pub.add( 'TOTAL RESERVATION qty2 ON THE LINE :' || P_RSV_REC.SECONDARY_RESERVATION_QUANTITY , 1 ) ;
14702: oe_debug_pub.add( ' LINE :' || P_LINE_TO_TRANSFER , 1 ) ;
14703: END IF;
14696: BEGIN
14697: IF l_debug_level > 0 THEN
14698: oe_debug_pub.add( 'ENTERING TRANSFER_RESERVATION LINE :' || P_QUANTITY_TO_TRANSFER , 1 ) ;
14699: oe_debug_pub.add( 'TRANSFER_RESERVATION LINE qty2 :' || P_QUANTITY2_TO_TRANSFER , 1 ) ;
14700: oe_debug_pub.add( 'TOTAL RESERVATION ON THE LINE :' || P_RSV_REC.RESERVATION_QUANTITY , 1 ) ;
14701: oe_debug_pub.add( 'TOTAL RESERVATION qty2 ON THE LINE :' || P_RSV_REC.SECONDARY_RESERVATION_QUANTITY , 1 ) ;
14702: oe_debug_pub.add( ' LINE :' || P_LINE_TO_TRANSFER , 1 ) ;
14703: END IF;
14704: x_return_status := FND_API.G_RET_STS_SUCCESS;
14697: IF l_debug_level > 0 THEN
14698: oe_debug_pub.add( 'ENTERING TRANSFER_RESERVATION LINE :' || P_QUANTITY_TO_TRANSFER , 1 ) ;
14699: oe_debug_pub.add( 'TRANSFER_RESERVATION LINE qty2 :' || P_QUANTITY2_TO_TRANSFER , 1 ) ;
14700: oe_debug_pub.add( 'TOTAL RESERVATION ON THE LINE :' || P_RSV_REC.RESERVATION_QUANTITY , 1 ) ;
14701: oe_debug_pub.add( 'TOTAL RESERVATION qty2 ON THE LINE :' || P_RSV_REC.SECONDARY_RESERVATION_QUANTITY , 1 ) ;
14702: oe_debug_pub.add( ' LINE :' || P_LINE_TO_TRANSFER , 1 ) ;
14703: END IF;
14704: x_return_status := FND_API.G_RET_STS_SUCCESS;
14705:
14698: oe_debug_pub.add( 'ENTERING TRANSFER_RESERVATION LINE :' || P_QUANTITY_TO_TRANSFER , 1 ) ;
14699: oe_debug_pub.add( 'TRANSFER_RESERVATION LINE qty2 :' || P_QUANTITY2_TO_TRANSFER , 1 ) ;
14700: oe_debug_pub.add( 'TOTAL RESERVATION ON THE LINE :' || P_RSV_REC.RESERVATION_QUANTITY , 1 ) ;
14701: oe_debug_pub.add( 'TOTAL RESERVATION qty2 ON THE LINE :' || P_RSV_REC.SECONDARY_RESERVATION_QUANTITY , 1 ) ;
14702: oe_debug_pub.add( ' LINE :' || P_LINE_TO_TRANSFER , 1 ) ;
14703: END IF;
14704: x_return_status := FND_API.G_RET_STS_SUCCESS;
14705:
14706: l_rsv_rec := p_rsv_rec;
14716: -- l_rsv_rec.secondary_reservation_quantity := fnd_api.g_miss_num; -- INVCONV -- commneted for bug16788917
14717: --- End 2346233 --
14718:
14719: IF l_debug_level > 0 THEN
14720: oe_debug_pub.add( 'CALLING INVS TRANSFER RESERVATION' , 1 ) ;
14721: END IF;
14722:
14723: inv_reservation_pub.Transfer_reservation
14724: ( p_api_version_number => 1.0
14733: , p_validation_flag => FND_API.G_FALSE
14734: , x_to_reservation_id => l_rsv_id);
14735:
14736: IF l_debug_level > 0 THEN
14737: oe_debug_pub.add( '2. AFTER CALLING TRANSFER RESERVATION' || X_RETURN_STATUS , 1 ) ;
14738: END IF;
14739: IF l_debug_level > 0 THEN
14740: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
14741: END IF;
14736: IF l_debug_level > 0 THEN
14737: oe_debug_pub.add( '2. AFTER CALLING TRANSFER RESERVATION' || X_RETURN_STATUS , 1 ) ;
14738: END IF;
14739: IF l_debug_level > 0 THEN
14740: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
14741: END IF;
14742:
14743: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14744: oe_msg_pub.transfer_msg_stack;
14745: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14746: for I in 1..l_msg_count loop
14747: l_msg_data := OE_MSG_PUB.Get(I,'F');
14748: IF l_debug_level > 0 THEN
14749: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
14750: END IF;
14751: end loop;
14752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14753: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
14755: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14756: for I in 1..l_msg_count loop
14757: l_msg_data := OE_MSG_PUB.Get(I,'F');
14758: IF l_debug_level > 0 THEN
14759: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
14760: END IF;
14761: end loop;
14762: RAISE FND_API.G_EXC_ERROR;
14763:
14763:
14764: END IF;
14765:
14766: IF l_debug_level > 0 THEN
14767: oe_debug_pub.add( 'EXITING TRANSFER RESERVATION' || X_RETURN_STATUS , 1 ) ;
14768: END IF;
14769:
14770: EXCEPTION
14771: WHEN FND_API.G_EXC_ERROR THEN
14779: for I in 1..l_msg_count loop
14780: l_msg_data := OE_MSG_PUB.Get(I,'F');
14781: oe_msg_pub.add_text(l_msg_data);
14782: IF l_debug_level > 0 THEN
14783: oe_debug_pub.add( 'INV : ' || L_MSG_DATA , 2 ) ;
14784: END IF;
14785: end loop;
14786:
14787: WHEN OTHERS THEN
14800: PROCEDURE Set_Auto_Sch_Flag
14801: (p_value_from_user IN VARCHAR2 := FND_API.G_MISS_CHAR)
14802: IS
14803: --
14804: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
14805: --
14806: BEGIN
14807: IF l_debug_level > 0 THEN
14808: oe_debug_pub.add( 'P_VALUE_FROM_USER ' || P_VALUE_FROM_USER , 1 ) ;
14804: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
14805: --
14806: BEGIN
14807: IF l_debug_level > 0 THEN
14808: oe_debug_pub.add( 'P_VALUE_FROM_USER ' || P_VALUE_FROM_USER , 1 ) ;
14809: END IF;
14810: OESCH_AUTO_SCH_FLAG := p_value_from_user;
14811: END Set_Auto_Sch_Flag;
14812:
14814: FUNCTION Get_Auto_Sch_Flag
14815: RETURN VARCHAR2
14816: IS
14817: --
14818: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
14819: --
14820: BEGIN
14821: IF l_debug_level > 0 THEN
14822: oe_debug_pub.add( 'In Get_Auto_Sch_Flag' ) ;
14818: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
14819: --
14820: BEGIN
14821: IF l_debug_level > 0 THEN
14822: oe_debug_pub.add( 'In Get_Auto_Sch_Flag' ) ;
14823: oe_debug_pub.add( 'OESCH_AUTO_SCH_FLAG: '||OESCH_AUTO_SCH_FLAG);
14824: END IF;
14825: RETURN (OESCH_AUTO_SCH_FLAG);
14826: END;
14819: --
14820: BEGIN
14821: IF l_debug_level > 0 THEN
14822: oe_debug_pub.add( 'In Get_Auto_Sch_Flag' ) ;
14823: oe_debug_pub.add( 'OESCH_AUTO_SCH_FLAG: '||OESCH_AUTO_SCH_FLAG);
14824: END IF;
14825: RETURN (OESCH_AUTO_SCH_FLAG);
14826: END;
14827: /* Function find line
14832: p_line_id IN NUMBER)
14833: Return BOOLEAN
14834: IS
14835: --
14836: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
14837: --
14838: BEGIN
14839:
14840: IF l_debug_level > 0 THEN
14837: --
14838: BEGIN
14839:
14840: IF l_debug_level > 0 THEN
14841: oe_debug_pub.add( 'ENTERING FIND_LINE: ' || P_LINE_ID , 1 ) ;
14842: END IF;
14843: IF p_x_line_tbl.count > 0 THEN --8706868
14844: FOR J IN 1..p_x_line_tbl.count LOOP
14845:
14845:
14846: IF p_line_id = p_x_line_tbl(J).line_id THEN
14847:
14848: IF l_debug_level > 0 THEN
14849: oe_debug_pub.add( ' LINE EXISTS IN THE TABLE' , 1 ) ;
14850: END IF;
14851:
14852: RETURN TRUE;
14853: END IF;
14902: l_sales_order_id NUMBER; --8706868
14903: l_need_scheduling BOOLEAN :=FALSE; --8706868
14904:
14905: --
14906: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
14907: --
14908: BEGIN
14909:
14910: IF l_debug_level > 0 THEN
14907: --
14908: BEGIN
14909:
14910: IF l_debug_level > 0 THEN
14911: oe_debug_pub.add( 'ENTERING PROCESS SPLIT'||p_x_line_tbl.count , 1 ) ;
14912: END IF;
14913:
14914: x_return_status := FND_API.G_RET_STS_SUCCESS;
14915: K := 0;
15288: END IF;
15289: l_line_tbl(J).request_date := p_x_line_tbl(I).request_date;
15290: --bug 13954474
15291: l_line_tbl(J).SPLIT_REQUEST_DATE :=p_x_line_tbl(I).SPLIT_REQUEST_DATE;
15292: oe_debug_pub.add( 'Next for '||j||' '||l_line_tbl(J).SPLIT_REQUEST_DATE);
15293: --bug 13954474
15294: END IF;
15295: IF p_x_line_tbl(I).ship_from_org_id IS NOT NULL AND
15296: p_x_line_tbl(I).ship_from_org_id <> fnd_api.G_MISS_NUM AND
15337: p_x_line_tbl(I).ship_to_org_id <> fnd_api.G_MISS_NUM AND
15338: NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).ship_to_org_id
15339: ,l_line_tbl(J).ship_to_org_id) AND
15340: NVL(p_x_line_tbl(I).SPLIT_SHIP_TO,'N') = 'Y' THEN -- 10278858
15341: oe_debug_pub.add( 'Next for 4');
15342: l_line_tbl(J).ship_to_org_id := p_x_line_tbl(I).ship_to_org_id;
15343: --bug 13954474
15344: l_line_tbl(J).SPLIT_SHIP_TO :=p_x_line_tbl(I).SPLIT_SHIP_TO;
15345: --bug 13954474
15347: IF l_line_tbl(J).line_id = p_x_line_tbl(I).line_id THEN
15348: l_line_tbl(J).operation := p_x_line_tbl(I).operation;
15349: ELSE
15350: l_line_tbl(J).operation := oe_globals.g_opr_update;
15351: oe_debug_pub.add( 'Next for 10');
15352: END IF;
15353: IF l_line_tbl(J).schedule_ship_date is NOT NULL THEN
15354: l_line_tbl(J).schedule_action_code :=
15355: OE_SCHEDULE_UTIL.OESCH_ACT_RESCHEDULE;
15353: IF l_line_tbl(J).schedule_ship_date is NOT NULL THEN
15354: l_line_tbl(J).schedule_action_code :=
15355: OE_SCHEDULE_UTIL.OESCH_ACT_RESCHEDULE;
15356: l_need_scheduling := TRUE;
15357: oe_debug_pub.add( 'Next for 14');
15358: END IF;
15359: --8706868
15360: --bug 13954474
15361: ELSIF p_x_line_tbl(I).line_id = l_line_tbl(J).LINE_ID AND
15372:
15373: -- G_OVERRIDE_FLAG := 'N'; -- 8706868 -- 'Y';
15374: l_old_line_tbl := l_line_tbl; --8706868
15375: IF l_debug_level > 0 THEN
15376: oe_debug_pub.add( 'LINE COUNT '||l_line_tbl.count,1);
15377: END IF;
15378: IF l_line_tbl.count > 0 THEN
15379: FOR I in 1..l_line_tbl.count LOOP
15380: --10038568 restrict return lines.
15408: l_mrp_line_tbl(L).schedule_action_code :=
15409: OE_SCHEDULE_UTIL.OESCH_ACT_RESCHEDULE;
15410: l_need_scheduling := TRUE;
15411: IF l_debug_level > 0 THEN
15412: oe_debug_pub.add( 'MRP Line Id '||l_line_tbl(I).line_id,1);
15413: oe_debug_pub.add( 'Req date '||l_line_tbl(I).request_date,1);
15414: oe_debug_pub.add( 'Ship From '||l_line_tbl(I).ship_from_org_id,1);
15415: END IF;
15416: ELSE
15409: OE_SCHEDULE_UTIL.OESCH_ACT_RESCHEDULE;
15410: l_need_scheduling := TRUE;
15411: IF l_debug_level > 0 THEN
15412: oe_debug_pub.add( 'MRP Line Id '||l_line_tbl(I).line_id,1);
15413: oe_debug_pub.add( 'Req date '||l_line_tbl(I).request_date,1);
15414: oe_debug_pub.add( 'Ship From '||l_line_tbl(I).ship_from_org_id,1);
15415: END IF;
15416: ELSE
15417: M:= M+1;
15410: l_need_scheduling := TRUE;
15411: IF l_debug_level > 0 THEN
15412: oe_debug_pub.add( 'MRP Line Id '||l_line_tbl(I).line_id,1);
15413: oe_debug_pub.add( 'Req date '||l_line_tbl(I).request_date,1);
15414: oe_debug_pub.add( 'Ship From '||l_line_tbl(I).ship_from_org_id,1);
15415: END IF;
15416: ELSE
15417: M:= M+1;
15418: l_non_mrp_line_tbl(M):=l_line_tbl(I);
15416: ELSE
15417: M:= M+1;
15418: l_non_mrp_line_tbl(M):=l_line_tbl(I);
15419: IF l_debug_level > 0 THEN
15420: oe_debug_pub.add( 'NON MRP Line Id '||l_line_tbl(I).line_id,1);
15421: oe_debug_pub.add( 'Req date '||l_line_tbl(I).request_date,1);
15422: oe_debug_pub.add( 'Ship From '||l_line_tbl(I).ship_from_org_id,1);
15423: END IF;
15424: END IF;
15417: M:= M+1;
15418: l_non_mrp_line_tbl(M):=l_line_tbl(I);
15419: IF l_debug_level > 0 THEN
15420: oe_debug_pub.add( 'NON MRP Line Id '||l_line_tbl(I).line_id,1);
15421: oe_debug_pub.add( 'Req date '||l_line_tbl(I).request_date,1);
15422: oe_debug_pub.add( 'Ship From '||l_line_tbl(I).ship_from_org_id,1);
15423: END IF;
15424: END IF;
15425: END LOOP;
15418: l_non_mrp_line_tbl(M):=l_line_tbl(I);
15419: IF l_debug_level > 0 THEN
15420: oe_debug_pub.add( 'NON MRP Line Id '||l_line_tbl(I).line_id,1);
15421: oe_debug_pub.add( 'Req date '||l_line_tbl(I).request_date,1);
15422: oe_debug_pub.add( 'Ship From '||l_line_tbl(I).ship_from_org_id,1);
15423: END IF;
15424: END IF;
15425: END LOOP;
15426: L :=0;
15446: x_return_status => l_return_status);
15447:
15448:
15449: IF l_debug_level > 0 THEN
15450: oe_debug_pub.add( ' AFTER VALIDATE_GROUP : '||l_return_status,1);
15451: END IF;
15452: END IF;
15453: IF l_return_status = FND_API.G_RET_STS_SUCCESS
15454: AND l_mrp_line_tbl.count > 0 THEN --12757660
15453: IF l_return_status = FND_API.G_RET_STS_SUCCESS
15454: AND l_mrp_line_tbl.count > 0 THEN --12757660
15455:
15456: IF l_debug_level > 0 THEN
15457: oe_debug_pub.add( 'SPLIT BEFORE CALLING LOAD_MRP_REQUEST' , 2 ) ;
15458: END IF;
15459:
15460: Load_MRP_request_from_tbl
15461: ( p_line_tbl => l_mrp_line_tbl --l_line_tbl
15466: l_session_id := Get_Session_Id;
15467:
15468: -- Call ATP
15469: IF l_debug_level > 0 THEN
15470: oe_debug_pub.add( 'COUNT IS ' || L_MRP_ATP_REC.ERROR_CODE.COUNT , 1 ) ;
15471: END IF;
15472:
15473: -- We are adding this so that we will not call MRP when
15474: -- table count is 0.
15475:
15476: IF l_mrp_atp_rec.error_code.count > 0 THEN
15477:
15478: IF l_debug_level > 0 THEN
15479: oe_debug_pub.add( 'SPLIT CALLING MRP API WITH SESSION ID '||L_SESSION_ID , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
15480: END IF;
15481:
15482: MRP_ATP_PUB.Call_ATP
15483: ( p_session_id => l_session_id
15491: , x_msg_count => l_msg_count);
15492:
15493:
15494: IF l_debug_level > 0 THEN
15495: oe_debug_pub.add( 'SPLIT. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || L_RETURN_STATUS ,0.5 ) ; -- debug level changed to 0.5 for bug 13435459
15496: END IF;
15497:
15498: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15556:
15557: x_return_status := l_return_status;
15558:
15559: IF l_debug_level > 0 THEN
15560: oe_debug_pub.add( 'EXITING PROCESS SPLIT' , 1 ) ;
15561: END IF;
15562: EXCEPTION
15563: -- 8706868
15564: WHEN FND_API.G_EXC_ERROR THEN
15643: l_available_qty2 NUMBER := 0;
15644: l_do_reservation BOOLEAN :=FALSE; -- 8706868
15645: l_line_found BOOLEAN := FALSE; -- 8706868
15646: --
15647: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
15648: --
15649: BEGIN
15650:
15651: IF l_debug_level > 0 THEN
15648: --
15649: BEGIN
15650:
15651: IF l_debug_level > 0 THEN
15652: oe_debug_pub.add( '31. ENTERING SPLIT_SCHEDULING' , 1 ) ;
15653: END IF;
15654:
15655: x_return_status := FND_API.G_RET_STS_SUCCESS;
15656: IF l_debug_level > 0 THEN
15653: END IF;
15654:
15655: x_return_status := FND_API.G_RET_STS_SUCCESS;
15656: IF l_debug_level > 0 THEN
15657: oe_debug_pub.add( 'PICTURE SENT ' , 1 ) ;
15658: END IF;
15659:
15660: FOR I IN 1..p_x_line_tbl.count LOOP
15661: IF l_debug_level > 0 THEN
15658: END IF;
15659:
15660: FOR I IN 1..p_x_line_tbl.count LOOP
15661: IF l_debug_level > 0 THEN
15662: oe_debug_pub.add( 'LINE ID ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
15663: oe_debug_pub.add( 'SPLIT ID ' || P_X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID , 1 ) ;
15664: oe_debug_pub.add( 'SPLIT ACTION ' || P_X_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 1 ) ;
15665: oe_debug_pub.add( 'OPERATIONS ' || P_X_LINE_TBL ( I ) .OPERATION , 1 ) ;
15666: END IF;
15659:
15660: FOR I IN 1..p_x_line_tbl.count LOOP
15661: IF l_debug_level > 0 THEN
15662: oe_debug_pub.add( 'LINE ID ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
15663: oe_debug_pub.add( 'SPLIT ID ' || P_X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID , 1 ) ;
15664: oe_debug_pub.add( 'SPLIT ACTION ' || P_X_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 1 ) ;
15665: oe_debug_pub.add( 'OPERATIONS ' || P_X_LINE_TBL ( I ) .OPERATION , 1 ) ;
15666: END IF;
15667: END LOOP;
15660: FOR I IN 1..p_x_line_tbl.count LOOP
15661: IF l_debug_level > 0 THEN
15662: oe_debug_pub.add( 'LINE ID ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
15663: oe_debug_pub.add( 'SPLIT ID ' || P_X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID , 1 ) ;
15664: oe_debug_pub.add( 'SPLIT ACTION ' || P_X_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 1 ) ;
15665: oe_debug_pub.add( 'OPERATIONS ' || P_X_LINE_TBL ( I ) .OPERATION , 1 ) ;
15666: END IF;
15667: END LOOP;
15668: IF p_x_line_tbl(1).split_by = 'SYSTEM' THEN
15661: IF l_debug_level > 0 THEN
15662: oe_debug_pub.add( 'LINE ID ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
15663: oe_debug_pub.add( 'SPLIT ID ' || P_X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID , 1 ) ;
15664: oe_debug_pub.add( 'SPLIT ACTION ' || P_X_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 1 ) ;
15665: oe_debug_pub.add( 'OPERATIONS ' || P_X_LINE_TBL ( I ) .OPERATION , 1 ) ;
15666: END IF;
15667: END LOOP;
15668: IF p_x_line_tbl(1).split_by = 'SYSTEM' THEN
15669: G_OVERRIDE_FLAG := 'Y';
15670: ELSE
15671: G_OVERRIDE_FLAG := 'N'; --'Y'; --8706868
15672: END IF;
15673: IF l_debug_level > 0 THEN
15674: oe_debug_pub.add( 'COUNT IS :' || P_X_LINE_TBL.COUNT , 1 ) ;
15675: END IF;
15676:
15677: process_split(p_x_line_tbl => p_x_line_tbl,
15678: x_return_status => x_return_status);
15682: FOR I in 1..p_x_line_tbl.count LOOP
15683: IF p_x_line_tbl(I).item_type_code <> 'STANDARD' THEN --AND
15684: --p_x_line_tbl(I).schedule_status_code is not null THEN
15685: IF l_debug_level > 0 THEN
15686: oe_debug_pub.add( 'LINE: ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
15687: END IF;
15688: SELECT schedule_ship_date,schedule_arrival_date,ship_from_org_id
15689: INTO p_x_line_tbl(I).schedule_ship_date,p_x_line_tbl(I).schedule_arrival_date,
15690: p_x_line_tbl(I).ship_from_org_id
15696: /* --9615081
15697: IF p_x_line_tbl(I).item_type_code <> 'STANDARD' THEN --AND
15698: --p_x_line_tbl(I).schedule_status_code is not null THEN
15699: IF l_debug_level > 0 THEN
15700: oe_debug_pub.add( 'LINE: ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
15701: END IF;
15702: SELECT schedule_ship_date,schedule_arrival_date,ship_from_org_id
15703: INTO p_x_line_tbl(I).schedule_ship_date,p_x_line_tbl(I).schedule_arrival_date,p_x_line_tbl(I).ship_from_org_id
15704: FROM OE_ORDER_LINES_ALL
15709: p_x_line_tbl(I).schedule_status_code is not null AND
15710: p_x_line_tbl(I).split_action_code = 'SPLIT' THEN
15711:
15712: IF l_debug_level > 0 THEN
15713: oe_debug_pub.add( 'SPLITTING SCHEDULING' , 1 ) ;
15714: oe_debug_pub.add( 'SPLITTING SCHEDULING FOR LINE: ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
15715: END IF;
15716:
15717: -- Only play with reservation if the line is not interfaced with
15710: p_x_line_tbl(I).split_action_code = 'SPLIT' THEN
15711:
15712: IF l_debug_level > 0 THEN
15713: oe_debug_pub.add( 'SPLITTING SCHEDULING' , 1 ) ;
15714: oe_debug_pub.add( 'SPLITTING SCHEDULING FOR LINE: ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
15715: END IF;
15716:
15717: -- Only play with reservation if the line is not interfaced with
15718: -- shipping. Otherwise shipping will take care of transferring
15738: -- 02-jun-2000 mpetrosi added org_id to query_reservation end
15739:
15740:
15741: IF l_debug_level > 0 THEN
15742: oe_debug_pub.add( 'CALLING INVS QUERY_RESERVATION ' , 1 ) ;
15743: END IF;
15744:
15745: inv_reservation_pub.query_reservation
15746: ( p_api_version_number => 1.0
15756: , p_sort_by_req_date => l_sort_by_req_date
15757: );
15758:
15759: IF l_debug_level > 0 THEN
15760: oe_debug_pub.add( 'AFTER CALLING INVS QUERY_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
15761: END IF;
15762:
15763: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15765: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15766: RAISE FND_API.G_EXC_ERROR;
15767: END IF;
15768: IF l_debug_level > 0 THEN
15769: oe_debug_pub.add( 'RESERVATION RECORD COUNT IS: ' || L_RSV_TBL.COUNT , 1 ) ;
15770: END IF;
15771:
15772: -- Let's get the total reserved_quantity
15773: l_reserved_quantity := 0;
15785: -- End 2346233 --
15786: END LOOP;
15787:
15788: IF l_debug_level > 0 THEN
15789: oe_debug_pub.add( 'RESERVED QUANTITY : ' || L_RESERVED_QUANTITY , 1 ) ;
15790: oe_debug_pub.add( 'RESERVED QUANTITY2 : ' || L_RESERVED_QUANTITY2 , 1 ) ;
15791: END IF;
15792: -- We should process reservation logic only when reservation qty exists
15793: -- and parent line order qty is less than total reserved qty. If parent
15786: END LOOP;
15787:
15788: IF l_debug_level > 0 THEN
15789: oe_debug_pub.add( 'RESERVED QUANTITY : ' || L_RESERVED_QUANTITY , 1 ) ;
15790: oe_debug_pub.add( 'RESERVED QUANTITY2 : ' || L_RESERVED_QUANTITY2 , 1 ) ;
15791: END IF;
15792: -- We should process reservation logic only when reservation qty exists
15793: -- and parent line order qty is less than total reserved qty. If parent
15794: -- ordered qty is greter or equal to total reserved qty, we do not need
15835: -- l_qty_to_retain is to retain in the reservation record.
15836: -- l_available_qty is reamining qty that can be transferred.
15837:
15838: IF l_debug_level > 0 THEN
15839: oe_debug_pub.add( 'USER INITIATED SPLIT' , 1 ) ;
15840: END IF;
15841:
15842: --- Start 2346233 --
15843: -- l_qty_to_retain := p_x_line_tbl(I).ordered_quantity;
15854: OR (l_qty2_to_retain > 0 AND Nvl(p_x_line_tbl(I).fulfillment_base ,'P') ='S')
15855: )
15856: THEN
15857: IF l_debug_level > 0 THEN
15858: oe_debug_pub.add( 'L_QTY_TO_RETAIN ' || L_QTY_TO_RETAIN , 1 ) ;
15859: oe_debug_pub.add( 'L_QTY2_TO_RETAIN ' || l_qty2_to_retain , 1 ) ;
15860: END IF;
15861: ---- Start 2346233 ---
15862: -- IF l_rsv_tbl(K).primary_reservation_quantity <= l_qty_to_retain --bug16788917
15855: )
15856: THEN
15857: IF l_debug_level > 0 THEN
15858: oe_debug_pub.add( 'L_QTY_TO_RETAIN ' || L_QTY_TO_RETAIN , 1 ) ;
15859: oe_debug_pub.add( 'L_QTY2_TO_RETAIN ' || l_qty2_to_retain , 1 ) ;
15860: END IF;
15861: ---- Start 2346233 ---
15862: -- IF l_rsv_tbl(K).primary_reservation_quantity <= l_qty_to_retain --bug16788917
15863: IF ( (l_rsv_tbl(K).primary_reservation_quantity <= l_qty_to_retain
15878: */
15879: ---- End 2346233 ---
15880:
15881: IF l_debug_level > 0 THEN
15882: oe_debug_pub.add( 'BEFORE DELETE ' || K || '/' || L_RSV_TBL ( K ) .RESERVATION_QUANTITY , 1 ) ;
15883: oe_debug_pub.add( 'BEFORE DELETE Primary ' || K || '/' || L_RSV_TBL ( K ) .PRIMARY_RESERVATION_QUANTITY , 1 ) ;
15884: END IF;
15885: l_rsv_tbl.delete(K);
15886: END IF;
15879: ---- End 2346233 ---
15880:
15881: IF l_debug_level > 0 THEN
15882: oe_debug_pub.add( 'BEFORE DELETE ' || K || '/' || L_RSV_TBL ( K ) .RESERVATION_QUANTITY , 1 ) ;
15883: oe_debug_pub.add( 'BEFORE DELETE Primary ' || K || '/' || L_RSV_TBL ( K ) .PRIMARY_RESERVATION_QUANTITY , 1 ) ;
15884: END IF;
15885: l_rsv_tbl.delete(K);
15886: END IF;
15887:
15893: continue_loop := TRUE;
15894: l_rsv_rec := l_rsv_tbl(k);
15895: WHILE K IS NOT NULL LOOP
15896: IF l_debug_level > 0 THEN
15897: oe_debug_pub.add( 'IN THE BEGINING OF THE LOOP K ' || K , 1 ) ;
15898: END IF;
15899: -- IF l_qty_to_retain = 0 THEN-- If cond modified for bug16788917
15900: IF ( (l_qty_to_retain =0 AND Nvl(p_x_line_tbl(I).fulfillment_base ,'P') ='P')
15901: OR (l_qty2_to_retain =0 AND Nvl(p_x_line_tbl(I).fulfillment_base ,'P') ='S')
15913:
15914: WHILE J <= p_x_line_tbl.count AND continue_loop
15915: LOOP
15916: IF l_debug_level > 0 THEN
15917: oe_debug_pub.add( 'IN THE BEGINING OF THE LOOP J ' || J , 1 ) ;
15918: END IF;
15919: IF p_x_line_tbl(J).operation =
15920: OE_GLOBALS.G_OPR_CREATE AND
15921: p_x_line_tbl(J).split_from_line_id =
15945: l_rsv_qty_secondary := p_x_line_tbl(J).ordered_quantity2; -- INVCONV
15946: ---- End 2346233 ---
15947:
15948: IF l_debug_level > 0 THEN
15949: oe_debug_pub.add( 'FOUND NEW RECORD ' || P_X_LINE_TBL ( J ) .LINE_ID || '/' ||L_RSV_QTY , 1 ) ;
15950: END IF;
15951: l_line_id := p_x_line_tbl(J).line_id;
15952: J := J +1;
15953: ELSE
15983:
15984:
15985:
15986: IF l_debug_level > 0 THEN
15987: oe_debug_pub.add( 'L_RSV_QTY_PRIMARY' || l_rsv_qty_primary , 1 ) ;
15988: oe_debug_pub.add( 'L_RSV_QTY_SECONDARY' || l_rsv_qty_secondary , 1 ) ;--bug16788917
15989: END IF;
15990:
15991: -- IF l_rsv_qty <= l_available_qty THEN
15984:
15985:
15986: IF l_debug_level > 0 THEN
15987: oe_debug_pub.add( 'L_RSV_QTY_PRIMARY' || l_rsv_qty_primary , 1 ) ;
15988: oe_debug_pub.add( 'L_RSV_QTY_SECONDARY' || l_rsv_qty_secondary , 1 ) ;--bug16788917
15989: END IF;
15990:
15991: -- IF l_rsv_qty <= l_available_qty THEN
15992: -- IF l_rsv_qty_primary <= l_available_qty THEN -- bug16788917
15996: THEN
15997:
15998:
15999: IF l_debug_level > 0 THEN
16000: oe_debug_pub.add( 'AVAILABLE MORE THAN NEEDED ' || L_AVAILABLE_QTY , 1 ) ;
16001: oe_debug_pub.add( 'AVAILABLE QTY 2: ' || l_available_qty2 , 1 ) ;--bug16788917
16002: END IF;
16003: -- Transfer full l_rsv_qty.
16004: Transfer_Reservation
15997:
15998:
15999: IF l_debug_level > 0 THEN
16000: oe_debug_pub.add( 'AVAILABLE MORE THAN NEEDED ' || L_AVAILABLE_QTY , 1 ) ;
16001: oe_debug_pub.add( 'AVAILABLE QTY 2: ' || l_available_qty2 , 1 ) ;--bug16788917
16002: END IF;
16003: -- Transfer full l_rsv_qty.
16004: Transfer_Reservation
16005: (p_rsv_rec => l_rsv_rec,
16045: l_line_found := TRUE; -- 8706868
16046: l_rsv_qty2 := 0; -- INVCONV
16047: continue_loop := TRUE;
16048: IF l_debug_level > 0 THEN
16049: oe_debug_pub.add( 'AVAILABLE QTY ' || L_AVAILABLE_QTY , 1 ) ;
16050: oe_debug_pub.add( 'AVAILABLE QTY2 '|| L_AVAILABLE_QTY2 , 1 ) ;--bug16788917
16051: END IF;
16052: --bug16788917 /issue 3
16053: l_rsv_tbl(k).primary_reservation_quantity := l_rsv_rec.primary_reservation_quantity;
16046: l_rsv_qty2 := 0; -- INVCONV
16047: continue_loop := TRUE;
16048: IF l_debug_level > 0 THEN
16049: oe_debug_pub.add( 'AVAILABLE QTY ' || L_AVAILABLE_QTY , 1 ) ;
16050: oe_debug_pub.add( 'AVAILABLE QTY2 '|| L_AVAILABLE_QTY2 , 1 ) ;--bug16788917
16051: END IF;
16052: --bug16788917 /issue 3
16053: l_rsv_tbl(k).primary_reservation_quantity := l_rsv_rec.primary_reservation_quantity;
16054: l_rsv_tbl(k).secondary_reservation_quantity := l_rsv_rec.secondary_reservation_quantity;
16128: -- continue_loop := TRUE;
16129: WHILE J <= p_x_line_tbl.count -- AND continue_loop
16130: LOOP
16131: IF l_debug_level > 0 THEN
16132: oe_debug_pub.add( 'IN THE BEGINING OF THE LOOP J TO FIND THE SPLITTED LINE ' || J , 1 ) ;
16133: END IF;
16134:
16135:
16136: IF p_x_line_tbl(J).operation =
16140: THEN
16141: -- continue_loop := FALSE;
16142: l_rsv_qty := p_x_line_tbl(J).ordered_quantity;
16143: IF l_debug_level > 0 THEN
16144: oe_debug_pub.add( 'FOUND NEW RECORD ' || P_X_LINE_TBL ( J ) .LINE_ID || '/' ||L_RSV_QTY , 1 ) ;
16145: END IF;
16146: l_line_id := p_x_line_tbl(J).line_id;
16147:
16148: -- Begin Bug 3330925
16146: l_line_id := p_x_line_tbl(J).line_id;
16147:
16148: -- Begin Bug 3330925
16149: IF l_debug_level > 0 THEN
16150: oe_debug_pub.add( 'CALLING GMI SPLIT_TRANS_FROM_OM ' ) ;
16151: END IF;
16152: GMI_RESERVATION_UTIL.split_trans_from_OM
16153: ( p_old_source_line_id => p_x_line_tbl(I).line_id,
16154: p_new_source_line_id => l_line_id,
16167: END LOOP; -- J loop
16168:
16169: -- Bug3330925 (moved this within the Loop above)
16170: IF l_debug_level > 0 THEN
16171: oe_debug_pub.add( 'CALLING GMI SPLIT_TRANS_FROM_OM ' ) ;
16172: END IF;
16173: GMI_RESERVATION_UTIL.split_trans_from_OM
16174: ( p_old_source_line_id => p_x_line_tbl(I).line_id,
16175: p_new_source_line_id => l_line_id,
16257: l_query_rsv_rec.demand_source_line_id := p_x_line_tbl(I).line_id;
16258: l_query_rsv_rec.organization_id := p_x_line_tbl(I).ship_from_org_id;
16259:
16260: IF l_debug_level > 0 THEN
16261: oe_debug_pub.add( 'CALLING INVS QUERY_RESERVATION ' , 1 ) ;
16262: END IF;
16263:
16264: inv_reservation_pub.query_reservation
16265: ( p_api_version_number => 1.0
16274: , p_lock_records => l_lock_records
16275: , p_sort_by_req_date => l_sort_by_req_date
16276: );
16277: IF l_debug_level > 0 THEN
16278: oe_debug_pub.add( 'AFTER CALLING INVS QUERY_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
16279: END IF;
16280:
16281: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16283: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
16284: RAISE FND_API.G_EXC_ERROR;
16285: END IF;
16286: IF l_debug_level > 0 THEN
16287: oe_debug_pub.add( 'RESERVATION RECORD COUNT IS: ' || L_RSV_TBL.COUNT , 1 ) ;
16288: END IF;
16289: IF l_rsv_tbl.count = 0 THEN
16290: Reserve_Line
16291: ( p_line_rec => p_x_line_tbl(I)
16299: END LOOP; -- Main Loop.
16300: END IF; -- 8706868
16301: G_OVERRIDE_FLAG := 'N';
16302: IF l_debug_level > 0 THEN
16303: oe_debug_pub.add( 'SCHEDULING RESULTS OF THE LINES: ' , 1 ) ;
16304: END IF;
16305:
16306:
16307: FOR I IN 1..p_x_line_tbl.count LOOP
16305:
16306:
16307: FOR I IN 1..p_x_line_tbl.count LOOP
16308: IF l_debug_level > 0 THEN
16309: oe_debug_pub.add( 'LINE ID : ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
16310: oe_debug_pub.add( 'SCHEDULE STATUS : ' || P_X_LINE_TBL ( I ) .SCHEDULE_STATUS_CODE , 1 ) ;
16311: END IF;
16312: END LOOP;
16313: IF l_debug_level > 0 THEN
16306:
16307: FOR I IN 1..p_x_line_tbl.count LOOP
16308: IF l_debug_level > 0 THEN
16309: oe_debug_pub.add( 'LINE ID : ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
16310: oe_debug_pub.add( 'SCHEDULE STATUS : ' || P_X_LINE_TBL ( I ) .SCHEDULE_STATUS_CODE , 1 ) ;
16311: END IF;
16312: END LOOP;
16313: IF l_debug_level > 0 THEN
16314: oe_debug_pub.add( 'EXITING SPLIT_SCHEDULING WITH ' || X_RETURN_STATUS , 1 ) ;
16310: oe_debug_pub.add( 'SCHEDULE STATUS : ' || P_X_LINE_TBL ( I ) .SCHEDULE_STATUS_CODE , 1 ) ;
16311: END IF;
16312: END LOOP;
16313: IF l_debug_level > 0 THEN
16314: oe_debug_pub.add( 'EXITING SPLIT_SCHEDULING WITH ' || X_RETURN_STATUS , 1 ) ;
16315: END IF;
16316:
16317: EXCEPTION
16318: WHEN OTHERS THEN
16358: l_line_tbl OE_ORDER_PUB.line_Tbl_Type;
16359: l_line_rec OE_ORDER_PUB.Line_Rec_Type;
16360: BEGIN
16361:
16362: oe_debug_pub.add('Entering Schedule_Split_Lines',1);
16363:
16364: x_return_status := FND_API.G_RET_STS_SUCCESS;
16365:
16366: FOR I in 1..p_sch_set_tbl.count LOOP
16374: AND nvl(p_sch_set_tbl(I).param5,'N') = 'N'
16375: AND p_sch_set_tbl(I).param9 = OE_GLOBALS.G_SOURCE_INTERNAL --added for bug 12757660
16376: ) THEN -- 4421848: added remnant flag check
16377:
16378: oe_debug_pub.add('Belongs to Set',2);
16379: l_line_tbl(I).line_id := p_sch_set_tbl(I).entity_id;
16380: l_line_tbl(I).schedule_status_code := p_sch_set_tbl(I).param1;
16381: l_line_tbl(I).arrival_set_id := p_sch_set_tbl(I).param2;
16382: l_line_tbl(I).ship_set_id := p_sch_set_tbl(I).param3;
16387: l_line_tbl(I).item_type_code := p_sch_set_tbl(I).param8;
16388:
16389: ELSE
16390: -- Standard or independent line.
16391: oe_debug_pub.add('Independent or remnant line',2);
16392:
16393: OE_Line_Util.Query_Row(p_line_id => p_sch_set_tbl(I).entity_id,
16394: x_line_rec => l_line_rec);
16395:
16400: END LOOP;
16401:
16402: G_OVERRIDE_FLAG := 'Y';
16403:
16404: oe_debug_pub.add( 'COUNT IS :' || l_line_tbl.COUNT , 1 ) ;
16405:
16406: process_split(p_x_line_tbl => l_line_tbl,
16407: x_return_status => x_return_status);
16408:
16455: l_old_line_tbl OE_ORDER_PUB.line_tbl_type;
16456: l_file_val VARCHAR2(80);
16457: */
16458: --
16459: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
16460: --
16461: BEGIN
16462: -- (4735196) This api is obsoleted.
16463: --Use OE_SCHEDULE_GRP.Update_Scheduling_Results instead.
16461: BEGIN
16462: -- (4735196) This api is obsoleted.
16463: --Use OE_SCHEDULE_GRP.Update_Scheduling_Results instead.
16464: IF l_debug_level > 0 THEN
16465: oe_debug_pub.add( 'This API is not supported ' , 1 ) ;
16466: END IF;
16467: /*
16468: fnd_profile.put('OE_DEBUG_LOG_DIRECTORY','/sqlcom/outbound/dom1151');
16469:
16467: /*
16468: fnd_profile.put('OE_DEBUG_LOG_DIRECTORY','/sqlcom/outbound/dom1151');
16469:
16470: IF l_debug_level > 0 THEN
16471: oe_debug_pub.add( 'ENTERING UPDATE_RESULTS_FROM_BACKLOG_WB' , 1 ) ;
16472: END IF;
16473: IF l_debug_level > 0 THEN
16474: oe_debug_pub.add( 'COUNT IS: ' || P_MRP_LINE_TBL.COUNT , 1 ) ;
16475: END IF;
16470: IF l_debug_level > 0 THEN
16471: oe_debug_pub.add( 'ENTERING UPDATE_RESULTS_FROM_BACKLOG_WB' , 1 ) ;
16472: END IF;
16473: IF l_debug_level > 0 THEN
16474: oe_debug_pub.add( 'COUNT IS: ' || P_MRP_LINE_TBL.COUNT , 1 ) ;
16475: END IF;
16476: -- Set control flags.
16477:
16478: l_control_rec.controlled_operation := TRUE;
16493:
16494: FOR I in 1..p_mrp_line_tbl.count LOOP
16495:
16496: IF l_debug_level > 0 THEN
16497: oe_debug_pub.add( 'RR: LINE ID ' || P_MRP_LINE_TBL ( I ) .LINE_ID , 1 ) ;
16498: END IF;
16499: IF l_debug_level > 0 THEN
16500: oe_debug_pub.add( 'RR: SCHEDULE_SHIP_DATE ' || P_MRP_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE , 1 ) ;
16501: END IF;
16496: IF l_debug_level > 0 THEN
16497: oe_debug_pub.add( 'RR: LINE ID ' || P_MRP_LINE_TBL ( I ) .LINE_ID , 1 ) ;
16498: END IF;
16499: IF l_debug_level > 0 THEN
16500: oe_debug_pub.add( 'RR: SCHEDULE_SHIP_DATE ' || P_MRP_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE , 1 ) ;
16501: END IF;
16502:
16503: l_line_rec := OE_Order_Pub.G_MISS_LINE_REC;
16504: l_line_rec.line_id := p_mrp_line_tbl(I).line_id;
16522: END LOOP;
16523:
16524:
16525: IF l_debug_level > 0 THEN
16526: oe_debug_pub.add( 'LINE COUNT IS: ' || L_LINE_TBL.COUNT , 1 ) ;
16527: END IF;
16528: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
16529: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
16530:
16528: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
16529: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
16530:
16531: IF l_debug_level > 0 THEN
16532: oe_debug_pub.add( 'BKL: CALLING PROCESS ORDER' , 1 ) ;
16533: END IF;
16534:
16535:
16536: -- Call OE_Order_PVT.Process_order
16542: p_x_old_line_tbl => l_old_line_tbl,
16543: x_return_status => l_return_status);
16544:
16545: IF l_debug_level > 0 THEN
16546: oe_debug_pub.add( 'BKL: AFTER CALLING PROCESS ORDER' , 1 ) ;
16547: END IF;
16548: IF l_debug_level > 0 THEN
16549: oe_debug_pub.add( 'L_RETURN_STATUS IS ' || L_RETURN_STATUS , 1 ) ;
16550: END IF;
16545: IF l_debug_level > 0 THEN
16546: oe_debug_pub.add( 'BKL: AFTER CALLING PROCESS ORDER' , 1 ) ;
16547: END IF;
16548: IF l_debug_level > 0 THEN
16549: oe_debug_pub.add( 'L_RETURN_STATUS IS ' || L_RETURN_STATUS , 1 ) ;
16550: END IF;
16551:
16552: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16553: IF l_debug_level > 0 THEN
16550: END IF;
16551:
16552: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16553: IF l_debug_level > 0 THEN
16554: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
16555: END IF;
16556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16557: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16558: IF l_debug_level > 0 THEN
16555: END IF;
16556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16557: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16558: IF l_debug_level > 0 THEN
16559: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
16560: END IF;
16561: RAISE FND_API.G_EXC_ERROR;
16562: END IF;
16563:
16576: NOT OE_GLOBALS.EQUAL(l_line_tbl(I).schedule_arrival_date,
16577: l_old_line_tbl(I).schedule_arrival_date)
16578:
16579: THEN
16580: oe_debug_pub.add( 'PASSING SCHEDULE_ARRIVAL_DATE TO PO ' , 3 ) ;
16581: Update_PO(l_line_tbl(I).schedule_arrival_date,
16582: l_line_tbl(I).source_document_id,
16583: l_line_tbl(I).source_document_line_id);
16584: oe_debug_pub.add( 'AFTER PO CALL BACK' , 3 ) ;
16580: oe_debug_pub.add( 'PASSING SCHEDULE_ARRIVAL_DATE TO PO ' , 3 ) ;
16581: Update_PO(l_line_tbl(I).schedule_arrival_date,
16582: l_line_tbl(I).source_document_id,
16583: l_line_tbl(I).source_document_line_id);
16584: oe_debug_pub.add( 'AFTER PO CALL BACK' , 3 ) ;
16585: END IF;
16586: END LOOP ;
16587:
16588: -- End of the code added to fix the bug 3105070
16594: x_msg_count := l_msg_count;
16595: x_msg_data := l_msg_data;
16596:
16597: IF l_debug_level > 0 THEN
16598: oe_debug_pub.add( 'EXITING UPDATE_RESULTS_FROM_BACKLOG_WB' , 1 ) ;
16599: END IF;
16600: OE_DEBUG_PUB.Debug_Off;
16601: */
16602: NULL;
16596:
16597: IF l_debug_level > 0 THEN
16598: oe_debug_pub.add( 'EXITING UPDATE_RESULTS_FROM_BACKLOG_WB' , 1 ) ;
16599: END IF;
16600: OE_DEBUG_PUB.Debug_Off;
16601: */
16602: NULL;
16603: x_msg_data := 'This API is not supported';
16604: RAISE FND_API.G_EXC_ERROR;
16661: l_msg_count NUMBER;
16662: l_msg_data VARCHAR2(500);
16663: l_failed_rsv_temp_tbl INV_RESERVATION_GLOBAL.mtl_failed_rsv_tbl_type;
16664: --
16665: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
16666: --
16667: Begin
16668:
16669: IF l_debug_level > 0 THEN
16666: --
16667: Begin
16668:
16669: IF l_debug_level > 0 THEN
16670: oe_debug_pub.add( '*** INSIDE THE POST_FORMS_COMMIT ***' , 1 ) ;
16671: END IF;
16672:
16673: x_return_status := FND_API.G_RET_STS_SUCCESS;
16674:
16675: -- Check for Performed Reservation Start
16676: IF OESCH_PERFORMED_RESERVATION = 'Y' THEN
16677:
16678: IF l_debug_level > 0 THEN
16679: oe_debug_pub.add( ' BEFORE CALLING THE INV FOR DO_CHECK_FOR_COMMIT' , 1 ) ;
16680: END IF;
16681: INV_RESERVATION_PVT.Do_Check_For_Commit
16682: (p_api_version_number => 1.0
16683: ,p_init_msg_lst => FND_API.G_FALSE
16686: ,x_msg_data => l_msg_data
16687: ,x_failed_rsv_temp_tbl => l_failed_rsv_temp_tbl);
16688:
16689: IF l_debug_level > 0 THEN
16690: oe_debug_pub.add( 'AFTER CALLING THE INV FOR DO_CHECK_FOR_COMMIT : ' || L_RETURN_STATUS , 1 ) ;
16691: END IF;
16692:
16693: -- We need to find out if the Reservation has failed
16694: IF l_failed_rsv_temp_tbl.count > 0 THEN
16692:
16693: -- We need to find out if the Reservation has failed
16694: IF l_failed_rsv_temp_tbl.count > 0 THEN
16695: IF l_debug_level > 0 THEN
16696: oe_debug_pub.add( ' THE RESERVATION PROCESS HAS FAILED ' , 1 ) ;
16697: END IF;
16698: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RSV_FAILURE');
16699: OE_MSG_PUB.Add;
16700: END IF;
16701:
16702: -- Error Handling Start
16703: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16704: IF l_debug_level > 0 THEN
16705: oe_debug_pub.add( 'INSIDE UNEXPECTED ERROR' , 1 ) ;
16706: END IF;
16707: OE_MSG_PUB.Transfer_Msg_Stack;
16708: l_msg_count := OE_MSG_PUB.COUNT_MSG;
16709:
16710: FOR I IN 1..l_msg_count LOOP
16711: l_msg_data := OE_MSG_PUB.Get(I,'F');
16712:
16713: IF l_debug_level > 0 THEN
16714: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
16715: END IF;
16716: END LOOP;
16717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16718:
16717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16718:
16719: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16720: IF l_debug_level > 0 THEN
16721: oe_debug_pub.add( ' INSIDE EXPECTED ERROR' , 1 ) ;
16722: END IF;
16723: OE_MSG_PUB.Transfer_Msg_Stack;
16724: l_msg_count := OE_MSG_PUB.COUNT_MSG;
16725:
16725:
16726: FOR I IN 1..l_msg_count LOOP
16727: l_msg_data := OE_MSG_PUB.Get(I,'F');
16728: IF l_debug_level > 0 THEN
16729: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
16730: END IF;
16731: END LOOP;
16732: RAISE FND_API.G_EXC_ERROR;
16733:
16747: );
16748:
16749:
16750: IF l_debug_level > 0 THEN
16751: oe_debug_pub.add( '*** BEFORE EXITING POST_FORMS_COMMIT ***' , 1 ) ;
16752: END IF;
16753:
16754: EXCEPTION
16755: WHEN FND_API.G_EXC_ERROR THEN
16843: FROM oe_order_lines
16844: WHERE line_id = p_line_id;
16845:
16846: --
16847: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
16848: --
16849: BEGIN
16850:
16851: IF l_debug_level > 0 THEN
16848: --
16849: BEGIN
16850:
16851: IF l_debug_level > 0 THEN
16852: oe_debug_pub.add( 'INSIDE GET_PROCESS_QUERY_QUANTITIES ' ) ;
16853: END IF;
16854: IF l_debug_level > 0 THEN
16855: oe_debug_pub.add( 'P_LINE_ID - IN GET_PROCESS_QUERY_QUANTITIES IS: '|| P_LINE_ID ) ;
16856: END IF;
16851: IF l_debug_level > 0 THEN
16852: oe_debug_pub.add( 'INSIDE GET_PROCESS_QUERY_QUANTITIES ' ) ;
16853: END IF;
16854: IF l_debug_level > 0 THEN
16855: oe_debug_pub.add( 'P_LINE_ID - IN GET_PROCESS_QUERY_QUANTITIES IS: '|| P_LINE_ID ) ;
16856: END IF;
16857:
16858: OPEN c_grade_ctl(p_item_id);
16859: OPEN c_get_grade(p_line_id);
16859: OPEN c_get_grade(p_line_id);
16860: FETCH c_grade_ctl into l_grade_ctl;
16861: FETCH c_get_grade into l_grade;
16862: IF l_debug_level > 0 THEN
16863: oe_debug_pub.add( 'GRADE OF ITEM IS '|| L_GRADE ) ;
16864: END IF;
16865:
16866: IF (l_grade_ctl > 0 AND l_grade is NOT NULL) THEN
16867: -- Grade ctl item
16869: FETCH c_onhand_qty2 into l_onhand_order_qty, l_commitedsales_qty, l_commitedprod_qty;
16870: if c_onhand_qty2%NOTFOUND then
16871: CLOSE c_onhand_qty2;
16872: IF l_debug_level > 0 THEN
16873: oe_debug_pub.add( ' ( 2 ) NO DATA FOUND FOR ITEM '|| P_ITEM_ID || ' ORG_ID '|| P_ORG_ID ) ;
16874: END IF;
16875: x_on_hand_qty := 0;
16876: x_avail_to_reserve := 0;
16877: IF l_debug_level > 0 THEN
16874: END IF;
16875: x_on_hand_qty := 0;
16876: x_avail_to_reserve := 0;
16877: IF l_debug_level > 0 THEN
16878: oe_debug_pub.add( 'POCESS X_ON_HAND_QTY IS: '|| X_ON_HAND_QTY ) ;
16879: END IF;
16880: IF l_debug_level > 0 THEN
16881: oe_debug_pub.add( 'PROCESS X_AVAIL_TO_RESERVE IS: '|| X_AVAIL_TO_RESERVE ) ;
16882: END IF;
16877: IF l_debug_level > 0 THEN
16878: oe_debug_pub.add( 'POCESS X_ON_HAND_QTY IS: '|| X_ON_HAND_QTY ) ;
16879: END IF;
16880: IF l_debug_level > 0 THEN
16881: oe_debug_pub.add( 'PROCESS X_AVAIL_TO_RESERVE IS: '|| X_AVAIL_TO_RESERVE ) ;
16882: END IF;
16883: return;
16884: end if;
16885: CLOSE c_onhand_qty2;
16890: FETCH c_onhand_qty into l_onhand_order_qty, l_commitedsales_qty, l_commitedprod_qty;
16891: if c_onhand_qty%NOTFOUND then
16892: CLOSE c_onhand_qty;
16893: IF l_debug_level > 0 THEN
16894: oe_debug_pub.add( ' ( 1 ) NO DATA FOUND FOR ITEM '|| P_ITEM_ID || ' ORG_ID '|| P_ORG_ID ) ;
16895: END IF;
16896: x_on_hand_qty := 0;
16897: x_avail_to_reserve := 0;
16898: IF l_debug_level > 0 THEN
16895: END IF;
16896: x_on_hand_qty := 0;
16897: x_avail_to_reserve := 0;
16898: IF l_debug_level > 0 THEN
16899: oe_debug_pub.add( 'POCESS X_ON_HAND_QTY IS: '|| X_ON_HAND_QTY ) ;
16900: END IF;
16901: IF l_debug_level > 0 THEN
16902: oe_debug_pub.add( 'PROCESS X_AVAIL_TO_RESERVE IS: '|| X_AVAIL_TO_RESERVE ) ;
16903: END IF;
16898: IF l_debug_level > 0 THEN
16899: oe_debug_pub.add( 'POCESS X_ON_HAND_QTY IS: '|| X_ON_HAND_QTY ) ;
16900: END IF;
16901: IF l_debug_level > 0 THEN
16902: oe_debug_pub.add( 'PROCESS X_AVAIL_TO_RESERVE IS: '|| X_AVAIL_TO_RESERVE ) ;
16903: END IF;
16904: return;
16905: end if;
16906: CLOSE c_onhand_qty;
16912: x_on_hand_qty := l_onhand_order_qty;
16913: x_avail_to_reserve := l_onhand_order_qty - (l_commitedsales_qty + l_commitedprod_qty);
16914:
16915: IF l_debug_level > 0 THEN
16916: oe_debug_pub.add( 'POCESS X_ON_HAND_QTY IS: '|| X_ON_HAND_QTY ) ;
16917: END IF;
16918: IF l_debug_level > 0 THEN
16919: oe_debug_pub.add( 'PROCESS X_AVAIL_TO_RESERVE IS: '|| X_AVAIL_TO_RESERVE ) ;
16920: END IF;
16915: IF l_debug_level > 0 THEN
16916: oe_debug_pub.add( 'POCESS X_ON_HAND_QTY IS: '|| X_ON_HAND_QTY ) ;
16917: END IF;
16918: IF l_debug_level > 0 THEN
16919: oe_debug_pub.add( 'PROCESS X_AVAIL_TO_RESERVE IS: '|| X_AVAIL_TO_RESERVE ) ;
16920: END IF;
16921: END get_process_query_quantities; */
16922: -- end fabdi
16923: -- Start 2595661
16929: FUNCTION Get_Pick_Status (p_line_id IN NUMBER) RETURN BOOLEAN
16930: IS
16931: l_Pick_Status VARCHAR2(1);
16932: --
16933: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
16934: --
16935: BEGIN
16936: SELECT '1'
16937: INTO l_Pick_status
16948: WHEN TOO_MANY_ROWS THEN
16949: RETURN (TRUE);
16950: WHEN OTHERS THEN
16951: IF l_debug_level > 0 THEN
16952: oe_debug_pub.ADD('Error message in Get_Pick_Status : '||substr(sqlerrm,1,100),1);
16953:
16954: END IF;
16955: RETURN (FALSE);
16956: END Get_Pick_Status;
16978: l_sort_by_req_date NUMBER ;
16979: l_buffer VARCHAR2(2000);
16980:
16981: --
16982: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
16983: --
16984: BEGIN
16985:
16986: IF l_debug_level > 0 THEN
16983: --
16984: BEGIN
16985:
16986: IF l_debug_level > 0 THEN
16987: oe_debug_pub.add( 'ENTERING DO_UNRESERVE' , 3 ) ;
16988: oe_debug_pub.add( 'QUANTITY TO UNRESERVE :' || P_QUANTITY_TO_UNRESERVE , 3 ) ;
16989: oe_debug_pub.add( 'QUANTITY2 TO UNRESERVE :' || P_QUANTITY2_TO_UNRESERVE , 3 ) ;--ER#14763609
16990: oe_debug_pub.add( 'fulfillment_Base :' || p_line_rec.fulfillment_base , 3 ) ;--ER#14763609
16991: END IF;
16984: BEGIN
16985:
16986: IF l_debug_level > 0 THEN
16987: oe_debug_pub.add( 'ENTERING DO_UNRESERVE' , 3 ) ;
16988: oe_debug_pub.add( 'QUANTITY TO UNRESERVE :' || P_QUANTITY_TO_UNRESERVE , 3 ) ;
16989: oe_debug_pub.add( 'QUANTITY2 TO UNRESERVE :' || P_QUANTITY2_TO_UNRESERVE , 3 ) ;--ER#14763609
16990: oe_debug_pub.add( 'fulfillment_Base :' || p_line_rec.fulfillment_base , 3 ) ;--ER#14763609
16991: END IF;
16992:
16985:
16986: IF l_debug_level > 0 THEN
16987: oe_debug_pub.add( 'ENTERING DO_UNRESERVE' , 3 ) ;
16988: oe_debug_pub.add( 'QUANTITY TO UNRESERVE :' || P_QUANTITY_TO_UNRESERVE , 3 ) ;
16989: oe_debug_pub.add( 'QUANTITY2 TO UNRESERVE :' || P_QUANTITY2_TO_UNRESERVE , 3 ) ;--ER#14763609
16990: oe_debug_pub.add( 'fulfillment_Base :' || p_line_rec.fulfillment_base , 3 ) ;--ER#14763609
16991: END IF;
16992:
16993: -- If the quantity to unreserve is passed and null or missing, we do not
16986: IF l_debug_level > 0 THEN
16987: oe_debug_pub.add( 'ENTERING DO_UNRESERVE' , 3 ) ;
16988: oe_debug_pub.add( 'QUANTITY TO UNRESERVE :' || P_QUANTITY_TO_UNRESERVE , 3 ) ;
16989: oe_debug_pub.add( 'QUANTITY2 TO UNRESERVE :' || P_QUANTITY2_TO_UNRESERVE , 3 ) ;--ER#14763609
16990: oe_debug_pub.add( 'fulfillment_Base :' || p_line_rec.fulfillment_base , 3 ) ;--ER#14763609
16991: END IF;
16992:
16993: -- If the quantity to unreserve is passed and null or missing, we do not
16994: -- need to go throug this procedure.
17030:
17031: l_sales_order_id := Get_mtl_sales_order_id(p_line_rec.HEADER_ID);
17032:
17033: IF l_debug_level > 0 THEN
17034: oe_debug_pub.add( 'L_SALES_ORDER_ID' || L_SALES_ORDER_ID , 3 ) ;
17035: END IF;
17036:
17037: l_rsv_rec.demand_source_header_id := l_sales_order_id;
17038: l_rsv_rec.demand_source_line_id := p_line_rec.line_id;
17043: ELSE
17044: l_rsv_rec.organization_id := p_line_rec.ship_from_org_id;
17045: END IF;
17046: IF l_debug_level > 0 THEN
17047: oe_debug_pub.add( 'SHIP FROM ORG ' || l_rsv_rec.organization_id , 3 ) ;
17048: END IF;
17049:
17050: inv_reservation_pub.query_reservation
17051: ( p_api_version_number => 1.0
17061: , x_msg_count => l_msg_count
17062: , x_msg_data => l_msg_data);
17063:
17064: IF l_debug_level > 0 THEN
17065: oe_debug_pub.add( '3. AFTER QUERY RESERVATION'||X_RETURN_STATUS , 1 ) ;
17066: END IF;
17067: IF l_debug_level > 0 THEN
17068: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
17069: END IF;
17064: IF l_debug_level > 0 THEN
17065: oe_debug_pub.add( '3. AFTER QUERY RESERVATION'||X_RETURN_STATUS , 1 ) ;
17066: END IF;
17067: IF l_debug_level > 0 THEN
17068: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
17069: END IF;
17070: IF l_rsv_tbl.count > 0 THEN --Bug 8644811 : Proceed only if there is any record in the table
17071: -- Start 2346233
17072: -- l_qty_to_unreserve := p_quantity_to_unreserve;
17094: l_qty_to_unreserve := p_quantity_to_unreserve;
17095: END IF;
17096: END IF;
17097: IF l_debug_level > 0 THEN
17098: oe_debug_pub.add( 'QUANTITY TO UNRESERVE :' || l_QTY_TO_UNRESERVE , 3 ) ;
17099: END IF;
17100: -- End 2346233
17101:
17102:
17103: FOR I IN 1..l_rsv_tbl.COUNT LOOP
17104:
17105: l_rsv_rec := l_rsv_tbl(I);
17106: IF l_debug_level > 0 THEN
17107: oe_debug_pub.add( 'RESERVED QTY : ' || L_RSV_REC.RESERVATION_QUANTITY , 1 ) ;
17108: oe_debug_pub.add( 'RESERVED QTY2 : ' || L_RSV_REC.SECONDARY_RESERVATION_QUANTITY , 1 ) ;--ER#14763609
17109: oe_debug_pub.add( 'QTY TO UNRESERVE: ' || L_QTY_TO_UNRESERVE , 1 ) ;
17110: oe_debug_pub.add( 'QTY2 TO UNRESERVE: ' || l_qty2_to_unreserve , 1 ) ; --ER#14763609
17111: END IF;
17104:
17105: l_rsv_rec := l_rsv_tbl(I);
17106: IF l_debug_level > 0 THEN
17107: oe_debug_pub.add( 'RESERVED QTY : ' || L_RSV_REC.RESERVATION_QUANTITY , 1 ) ;
17108: oe_debug_pub.add( 'RESERVED QTY2 : ' || L_RSV_REC.SECONDARY_RESERVATION_QUANTITY , 1 ) ;--ER#14763609
17109: oe_debug_pub.add( 'QTY TO UNRESERVE: ' || L_QTY_TO_UNRESERVE , 1 ) ;
17110: oe_debug_pub.add( 'QTY2 TO UNRESERVE: ' || l_qty2_to_unreserve , 1 ) ; --ER#14763609
17111: END IF;
17112:
17105: l_rsv_rec := l_rsv_tbl(I);
17106: IF l_debug_level > 0 THEN
17107: oe_debug_pub.add( 'RESERVED QTY : ' || L_RSV_REC.RESERVATION_QUANTITY , 1 ) ;
17108: oe_debug_pub.add( 'RESERVED QTY2 : ' || L_RSV_REC.SECONDARY_RESERVATION_QUANTITY , 1 ) ;--ER#14763609
17109: oe_debug_pub.add( 'QTY TO UNRESERVE: ' || L_QTY_TO_UNRESERVE , 1 ) ;
17110: oe_debug_pub.add( 'QTY2 TO UNRESERVE: ' || l_qty2_to_unreserve , 1 ) ; --ER#14763609
17111: END IF;
17112:
17113: --Start 2346233
17106: IF l_debug_level > 0 THEN
17107: oe_debug_pub.add( 'RESERVED QTY : ' || L_RSV_REC.RESERVATION_QUANTITY , 1 ) ;
17108: oe_debug_pub.add( 'RESERVED QTY2 : ' || L_RSV_REC.SECONDARY_RESERVATION_QUANTITY , 1 ) ;--ER#14763609
17109: oe_debug_pub.add( 'QTY TO UNRESERVE: ' || L_QTY_TO_UNRESERVE , 1 ) ;
17110: oe_debug_pub.add( 'QTY2 TO UNRESERVE: ' || l_qty2_to_unreserve , 1 ) ; --ER#14763609
17111: END IF;
17112:
17113: --Start 2346233
17114: /*
17121: OR ((l_rsv_rec.secondary_reservation_quantity <= l_qty2_to_unreserve) AND ( Nvl(p_line_rec.fulfillment_base, 'P') ='S'))
17122: THEN
17123:
17124: IF l_debug_level > 0 THEN
17125: oe_debug_pub.add( 'CALLING INVS DELETE_RESERVATION' , 3 ) ;
17126: END IF;
17127: inv_reservation_pub.delete_reservation
17128: ( p_api_version_number => 1.0
17129: , p_init_msg_lst => fnd_api.g_true
17134: , p_serial_number => l_dummy_sn
17135: );
17136:
17137: IF l_debug_level > 0 THEN
17138: oe_debug_pub.add( 'AFTER CALLING INVS DELETE_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
17139: END IF;
17140:
17141: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17145: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
17146: FOR I in 1..l_msg_count LOOP
17147: l_msg_data := OE_MSG_PUB.Get(I,'F');
17148: IF l_debug_level > 0 THEN
17149: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
17150: END IF;
17151: END LOOP;
17152:
17153: RAISE FND_API.G_EXC_ERROR;
17226: l_rsv_new_rec.primary_reservation_quantity := fnd_api.g_miss_num;
17227: END IF ; --ER#14763609
17228:
17229: IF l_debug_level > 0 THEN
17230: oe_debug_pub.add( 'OLD QTY : ' || L_RSV_REC.RESERVATION_QUANTITY , 3 ) ;
17231: oe_debug_pub.add( 'NEW QTY : ' || L_RSV_NEW_REC.RESERVATION_QUANTITY , 3 ) ;
17232: END IF;
17233:
17234: -- INVCONV
17227: END IF ; --ER#14763609
17228:
17229: IF l_debug_level > 0 THEN
17230: oe_debug_pub.add( 'OLD QTY : ' || L_RSV_REC.RESERVATION_QUANTITY , 3 ) ;
17231: oe_debug_pub.add( 'NEW QTY : ' || L_RSV_NEW_REC.RESERVATION_QUANTITY , 3 ) ;
17232: END IF;
17233:
17234: -- INVCONV
17235: /* OPM 14/SEP/00 send process attributes into the reservation
17258: ====================*/
17259:
17260:
17261: IF l_debug_level > 0 THEN
17262: oe_debug_pub.add( 'CALLING INVS UPDATE_RESERVATION: ' , 3 ) ;
17263: END IF;
17264: inv_reservation_pub.update_reservation
17265: ( p_api_version_number => 1.0
17266: , p_init_msg_lst => fnd_api.g_true
17273: , x_msg_count => l_msg_count
17274: , x_msg_data => l_msg_data);
17275:
17276: IF l_debug_level > 0 THEN
17277: oe_debug_pub.add( 'AFTER INVS UPDATE_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
17278: END IF;
17279:
17280: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17284: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
17285: for I in 1..l_msg_count loop
17286: l_msg_data := OE_MSG_PUB.Get(I,'F');
17287: IF l_debug_level > 0 THEN
17288: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
17289: END IF;
17290: end loop;
17291: RAISE FND_API.G_EXC_ERROR;
17292: END IF;
17297: END IF;
17298: END LOOP;
17299: ELSE
17300: IF l_debug_level > 0 THEN
17301: oe_debug_pub.add( 'Nothing to unreserve' , 3 ) ;
17302: END IF;
17303: END IF; -- 8644811
17304: <
17305: IF l_debug_level > 0 THEN
17302: END IF;
17303: END IF; -- 8644811
17304: <
17305: IF l_debug_level > 0 THEN
17306: oe_debug_pub.add( 'EXITING DO_UNRESERVE' , 3 ) ;
17307: END IF;
17308:
17309: EXCEPTION
17310: WHEN FND_API.G_EXC_ERROR THEN
17346: l_promise_date_flag VARCHAR2(2);
17347: l_order_date_type_code VARCHAR2(15);
17348: l_header_id NUMBER;
17349: --
17350: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
17351: --
17352:
17353: BEGIN
17354: IF l_debug_level > 0 THEN
17351: --
17352:
17353: BEGIN
17354: IF l_debug_level > 0 THEN
17355: oe_debug_pub.add( 'ENTERING PROMISE_DATE_FOR_SCH_ACTION ' , 3 ) ;
17356: END IF;
17357: IF p_header_id IS NULL THEN
17358: -- Heade id not provided.
17359: OPEN order_header_id;
17364: END IF;
17365: l_order_date_type_code := NVL(oe_schedule_util.Get_Date_Type(l_header_id),'SHIP');
17366: l_promise_date_flag := Oe_Sys_Parameters.Value('PROMISE_DATE_FLAG');
17367: IF l_debug_level > 0 THEN
17368: oe_debug_pub.add( 'PROMISE DATE FLAG: '||l_promise_date_flag , 3 ) ;
17369: oe_debug_pub.add( 'STATUS CODE : '||p_x_line_rec.schedule_status_code , 3 ) ;
17370: END IF;
17371: IF (l_promise_date_flag ='FS'
17372: AND ((p_sch_action = OESCH_ACT_DEMAND
17365: l_order_date_type_code := NVL(oe_schedule_util.Get_Date_Type(l_header_id),'SHIP');
17366: l_promise_date_flag := Oe_Sys_Parameters.Value('PROMISE_DATE_FLAG');
17367: IF l_debug_level > 0 THEN
17368: oe_debug_pub.add( 'PROMISE DATE FLAG: '||l_promise_date_flag , 3 ) ;
17369: oe_debug_pub.add( 'STATUS CODE : '||p_x_line_rec.schedule_status_code , 3 ) ;
17370: END IF;
17371: IF (l_promise_date_flag ='FS'
17372: AND ((p_sch_action = OESCH_ACT_DEMAND
17373: OR p_sch_action = OESCH_ACT_SCHEDULE)
17392: -- Clearing the promise date for unscheduling
17393: p_x_line_rec.promise_date := Null;
17394: END IF;
17395: IF l_debug_level > 0 THEN
17396: oe_debug_pub.add( 'EXITING PROMISE_DATE_FOR_SCH_ACTION ' , 3 ) ;
17397: END IF;
17398: END Promise_Date_for_Sch_Action;
17399:
17400: PROCEDURE Global_atp(p_line_id IN NUMBER)
18193:
18194: l_line_tbl OE_ORDER_PUB.line_tbl_type;
18195: l_old_line_tbl OE_ORDER_PUB.line_tbl_type;
18196: l_control_rec OE_GLOBALS.control_rec_type;
18197: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
18198: --
18199: l_msg_count NUMBER;
18200: l_msg_data VARCHAR2(2000);
18201: BEGIN
18199: l_msg_count NUMBER;
18200: l_msg_data VARCHAR2(2000);
18201: BEGIN
18202: IF l_debug_level > 0 THEN
18203: oe_debug_pub.add( 'ENTERING Cascade Set Attr ' , 1 ) ;
18204: oe_debug_pub.add( 'Header_id ' || p_request_rec.param1 , 2 ) ;
18205: oe_debug_pub.add( 'Ship_Set_id ' || p_request_rec.param2 , 2 ) ;
18206: oe_debug_pub.add( 'Shipping Method ' || p_request_rec.param3 , 2 ) ;
18207: END IF;
18200: l_msg_data VARCHAR2(2000);
18201: BEGIN
18202: IF l_debug_level > 0 THEN
18203: oe_debug_pub.add( 'ENTERING Cascade Set Attr ' , 1 ) ;
18204: oe_debug_pub.add( 'Header_id ' || p_request_rec.param1 , 2 ) ;
18205: oe_debug_pub.add( 'Ship_Set_id ' || p_request_rec.param2 , 2 ) ;
18206: oe_debug_pub.add( 'Shipping Method ' || p_request_rec.param3 , 2 ) ;
18207: END IF;
18208:
18201: BEGIN
18202: IF l_debug_level > 0 THEN
18203: oe_debug_pub.add( 'ENTERING Cascade Set Attr ' , 1 ) ;
18204: oe_debug_pub.add( 'Header_id ' || p_request_rec.param1 , 2 ) ;
18205: oe_debug_pub.add( 'Ship_Set_id ' || p_request_rec.param2 , 2 ) ;
18206: oe_debug_pub.add( 'Shipping Method ' || p_request_rec.param3 , 2 ) ;
18207: END IF;
18208:
18209: x_return_status := FND_API.G_RET_STS_SUCCESS;
18202: IF l_debug_level > 0 THEN
18203: oe_debug_pub.add( 'ENTERING Cascade Set Attr ' , 1 ) ;
18204: oe_debug_pub.add( 'Header_id ' || p_request_rec.param1 , 2 ) ;
18205: oe_debug_pub.add( 'Ship_Set_id ' || p_request_rec.param2 , 2 ) ;
18206: oe_debug_pub.add( 'Shipping Method ' || p_request_rec.param3 , 2 ) ;
18207: END IF;
18208:
18209: x_return_status := FND_API.G_RET_STS_SUCCESS;
18210:
18224:
18225: END LOOP;
18226:
18227: IF l_debug_level > 0 THEN
18228: oe_debug_pub.add( 'Before calling Process Order from cascade ' , 2 ) ;
18229: END IF;
18230: Call_Process_Order(p_x_old_line_tbl => l_old_line_tbl,
18231: p_x_line_tbl => l_line_tbl,
18232: p_control_rec => l_control_rec,
18233: p_caller => 'SCH_INTERNAL',
18234: x_return_status => x_return_status);
18235:
18236: IF l_debug_level > 0 THEN
18237: oe_debug_pub.add( 'After calling Po : ' || x_return_status, 2 ) ;
18238: END IF;
18239:
18240: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18250: , p_old_line_tbl => l_old_line_tbl
18251: , x_return_status => x_return_status);
18252:
18253: IF l_debug_level > 0 THEN
18254: oe_debug_pub.add( 'After calling PRN: ' || x_return_status, 2 ) ;
18255: END IF;
18256:
18257: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18268: x_msg_data => l_msg_data
18269: );
18270:
18271: IF l_debug_level > 0 THEN
18272: oe_debug_pub.add( 'Exiting Cascade Set Attr ' , 1 ) ;
18273: END IF;
18274:
18275: EXCEPTION
18276: WHEN OTHERS THEN
18312: l_old_line_rec OE_Order_Pub.Line_Rec_Type;
18313: l_new_line_rec OE_Order_Pub.Line_Rec_Type;
18314:
18315: --
18316: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
18317: --
18318: BEGIN
18319:
18320: IF l_debug_level > 0 THEN
18317: --
18318: BEGIN
18319:
18320: IF l_debug_level > 0 THEN
18321: oe_debug_pub.add( 'ENTERING CALL MRP ROLLBACK' , 1 ) ;
18322: END IF;
18323:
18324: OE_Line_Util.Query_Row(p_line_id => p_line_id,
18325: x_line_rec => l_old_line_rec);
18338:
18339: -- Call ATP
18340:
18341: IF l_debug_level > 0 THEN
18342: oe_debug_pub.add( '1. CALLING MRP API WITH SESSION ID '||L_SESSION_ID , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
18343: END IF;
18344:
18345: MRP_ATP_PUB.Call_ATP
18346: ( p_session_id => l_session_id
18353: , x_msg_data => l_mrp_msg_data
18354: , x_msg_count => l_msg_count);
18355:
18356: IF l_debug_level > 0 THEN
18357: oe_debug_pub.add( '3. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || X_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
18358: END IF;
18359:
18360: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18376: END IF;
18377:
18378: END IF; -- Mrp count.
18379: IF l_debug_level > 0 THEN
18380: oe_debug_pub.add( 'EXITING CALL MRP ROLLBACK ' , 1 ) ;
18381: END IF;
18382:
18383:
18384: EXCEPTION
18427: l_old_line_rec OE_Order_Pub.Line_Rec_Type;
18428: l_new_line_rec OE_Order_Pub.Line_Rec_Type;
18429:
18430: --
18431: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
18432: --
18433: BEGIN
18434:
18435: IF l_debug_level > 0 THEN
18432: --
18433: BEGIN
18434:
18435: IF l_debug_level > 0 THEN
18436: oe_debug_pub.add( 'ENTERING CALL MRP ROLLBACK' , 1 ) ;
18437: END IF;
18438:
18439: OE_Line_Util.Query_Row(p_line_id => p_line_id,
18440: x_line_rec => l_old_line_rec);
18452:
18453: -- Call ATP
18454:
18455: IF l_debug_level > 0 THEN
18456: oe_debug_pub.add( '1. CALLING MRP API WITH SESSION ID '||L_SESSION_ID , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
18457: END IF;
18458:
18459: MRP_ATP_PUB.Call_ATP
18460: ( p_session_id => l_session_id
18467: , x_msg_data => l_mrp_msg_data
18468: , x_msg_count => l_msg_count);
18469:
18470: IF l_debug_level > 0 THEN
18471: oe_debug_pub.add( '3. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || X_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
18472: END IF;
18473:
18474: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18490: END IF;
18491:
18492: END IF; -- Mrp count.
18493: IF l_debug_level > 0 THEN
18494: oe_debug_pub.add( 'EXITING CALL MRP ROLLBACK ' , 1 ) ;
18495: END IF;
18496:
18497:
18498: EXCEPTION
18526: from oe_schedule_lines_temp;
18527:
18528: BEGIN
18529:
18530: oe_debug_pub.add( '6015417,6053872 : in call_mrp_rollback ');
18531: for rec in C1 loop
18532: oe_debug_pub.add( '6015417,6053872 : line_id '||rec.line_id ||' ' ||rec.schedule_action_code);
18533: if rec.schedule_action_code = 'SCHEDULE' then
18534: MRP_ROLLBACK
18528: BEGIN
18529:
18530: oe_debug_pub.add( '6015417,6053872 : in call_mrp_rollback ');
18531: for rec in C1 loop
18532: oe_debug_pub.add( '6015417,6053872 : line_id '||rec.line_id ||' ' ||rec.schedule_action_code);
18533: if rec.schedule_action_code = 'SCHEDULE' then
18534: MRP_ROLLBACK
18535: ( p_line_id => rec.line_id
18536: ,p_schedule_action_code => OESCH_ACT_UNSCHEDULE
18579: l_line_tbl OE_ORDER_PUB.Line_tbl_type;
18580: l_old_line_tbl OE_ORDER_PUB.Line_tbl_type;
18581: l_line_rec OE_Order_PUB.Line_Rec_Type; --Bug 8652339
18582: BEGIN
18583: oe_debug_pub.add( '6663462 : in schedule_delayed_lines ');
18584:
18585: --Bug 8652339 : Initialize l_line_tbl from OE_ORDER_LINES_ALL table
18586: --using OE_LINE_UTIL.QUERY_ROW instead of following.
18587: --l_line_tbl := OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl;
18606: end loop;
18607:
18608: l_old_line_tbl := l_line_tbl;
18609: for j in 1..l_line_tbl.count LOOP
18610: oe_debug_pub.add( ' 6663462 : line_id '|| l_line_tbl(j).line_id );
18611: l_line_tbl(j).operation := OE_GLOBALS.G_OPR_UPDATE; --6715950
18612: end loop;
18613: oe_debug_pub.add( ' 6663462 : calling process group ' );
18614: IF l_line_tbl.count > 0 THEN
18609: for j in 1..l_line_tbl.count LOOP
18610: oe_debug_pub.add( ' 6663462 : line_id '|| l_line_tbl(j).line_id );
18611: l_line_tbl(j).operation := OE_GLOBALS.G_OPR_UPDATE; --6715950
18612: end loop;
18613: oe_debug_pub.add( ' 6663462 : calling process group ' );
18614: IF l_line_tbl.count > 0 THEN
18615:
18616: Oe_Config_Schedule_Pvt.Process_Group
18617: (p_x_line_tbl => l_line_tbl
18729: WHERE INVENTORY_ITEM_ID = p_new_inventory_item_id
18730: AND ORGANIZATION_ID = p_new_ship_from_org_id;
18731:
18732: IF l_shippable_flag <> p_old_shippable_flag THEN
18733: oe_debug_pub.add( 'Item substitution cannot happen between shippable and non-shippable items' , 5 ) ;
18734: Fnd_Message.set_name('ONT','OE_SCH_LOOP_SHP_NONSHP');
18735: Oe_Msg_Pub.Add;
18736: OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED := 'N';
18737: RAISE FND_API.G_EXC_ERROR;
18772: BEGIN
18773:
18774: If p_validation_entity_short_name = 'LINE' Then
18775:
18776: oe_debug_pub.add('Getting Reservation Details:');
18777: oe_debug_pub.add('Header :'||OE_LINE_SECURITY.g_record.header_id);
18778: oe_debug_pub.add('Line :'||OE_LINE_SECURITY.g_record.line_id);
18779:
18780: l_reservation_rec.reservation_id := fnd_api.g_miss_num;
18773:
18774: If p_validation_entity_short_name = 'LINE' Then
18775:
18776: oe_debug_pub.add('Getting Reservation Details:');
18777: oe_debug_pub.add('Header :'||OE_LINE_SECURITY.g_record.header_id);
18778: oe_debug_pub.add('Line :'||OE_LINE_SECURITY.g_record.line_id);
18779:
18780: l_reservation_rec.reservation_id := fnd_api.g_miss_num;
18781: l_reservation_rec.demand_source_header_id :=
18774: If p_validation_entity_short_name = 'LINE' Then
18775:
18776: oe_debug_pub.add('Getting Reservation Details:');
18777: oe_debug_pub.add('Header :'||OE_LINE_SECURITY.g_record.header_id);
18778: oe_debug_pub.add('Line :'||OE_LINE_SECURITY.g_record.line_id);
18779:
18780: l_reservation_rec.reservation_id := fnd_api.g_miss_num;
18781: l_reservation_rec.demand_source_header_id :=
18782: oe_schedule_util.Get_mtl_sales_order_id(OE_LINE_SECURITY.g_record.header_id);
18797: , p_sort_by_req_date => l_sort_by_req_date
18798: );
18799:
18800:
18801: oe_debug_pub.add('After Querying Reservations');
18802:
18803: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18804: oe_debug_pub.add('Error Code :'||l_x_error_code);
18805: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18800:
18801: oe_debug_pub.add('After Querying Reservations');
18802:
18803: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18804: oe_debug_pub.add('Error Code :'||l_x_error_code);
18805: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18806: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
18807: oe_debug_pub.add('Error Code :'||l_x_error_code);
18808: RAISE FND_API.G_EXC_ERROR;
18803: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18804: oe_debug_pub.add('Error Code :'||l_x_error_code);
18805: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18806: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
18807: oe_debug_pub.add('Error Code :'||l_x_error_code);
18808: RAISE FND_API.G_EXC_ERROR;
18809: END IF;
18810:
18811: oe_debug_pub.add('Total Number of Reservation Records:'||l_rsv_tbl.count);
18807: oe_debug_pub.add('Error Code :'||l_x_error_code);
18808: RAISE FND_API.G_EXC_ERROR;
18809: END IF;
18810:
18811: oe_debug_pub.add('Total Number of Reservation Records:'||l_rsv_tbl.count);
18812:
18813: FOR K IN 1..l_rsv_tbl.count LOOP
18814: oe_debug_pub.add('Supply_source '||k||' :'||l_rsv_tbl(K).supply_source_type_id);
18815: oe_debug_pub.add('Demand_source '||k||' :'||l_rsv_tbl(K).demand_source_type_id);
18810:
18811: oe_debug_pub.add('Total Number of Reservation Records:'||l_rsv_tbl.count);
18812:
18813: FOR K IN 1..l_rsv_tbl.count LOOP
18814: oe_debug_pub.add('Supply_source '||k||' :'||l_rsv_tbl(K).supply_source_type_id);
18815: oe_debug_pub.add('Demand_source '||k||' :'||l_rsv_tbl(K).demand_source_type_id);
18816: IF l_rsv_tbl(K).supply_source_type_id IN (1,17) THEN
18817: p_result := 1; --Return 1;
18818: oe_debug_pub.add('There is some Qty Reserved against Req/Purchase Order. Return Value from Validation Pkg :'||p_result);
18811: oe_debug_pub.add('Total Number of Reservation Records:'||l_rsv_tbl.count);
18812:
18813: FOR K IN 1..l_rsv_tbl.count LOOP
18814: oe_debug_pub.add('Supply_source '||k||' :'||l_rsv_tbl(K).supply_source_type_id);
18815: oe_debug_pub.add('Demand_source '||k||' :'||l_rsv_tbl(K).demand_source_type_id);
18816: IF l_rsv_tbl(K).supply_source_type_id IN (1,17) THEN
18817: p_result := 1; --Return 1;
18818: oe_debug_pub.add('There is some Qty Reserved against Req/Purchase Order. Return Value from Validation Pkg :'||p_result);
18819: return;
18814: oe_debug_pub.add('Supply_source '||k||' :'||l_rsv_tbl(K).supply_source_type_id);
18815: oe_debug_pub.add('Demand_source '||k||' :'||l_rsv_tbl(K).demand_source_type_id);
18816: IF l_rsv_tbl(K).supply_source_type_id IN (1,17) THEN
18817: p_result := 1; --Return 1;
18818: oe_debug_pub.add('There is some Qty Reserved against Req/Purchase Order. Return Value from Validation Pkg :'||p_result);
18819: return;
18820: END IF;
18821: END LOOP;
18822:
18820: END IF;
18821: END LOOP;
18822:
18823: p_result := 0; --Return 0;
18824: oe_debug_pub.add('There are no reservations against Req/Purchase Order. Return Value from Validation Pkg :'||p_result);
18825:
18826: END IF;
18827:
18828: EXCEPTION
18826: END IF;
18827:
18828: EXCEPTION
18829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
18830: oe_debug_pub.add('Unexpected Error'||l_msg_data);
18831: WHEN FND_API.G_EXC_ERROR THEN
18832: oe_debug_pub.add('Expected Error'||l_msg_data);
18833: END res_against_req_po;
18834:
18828: EXCEPTION
18829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
18830: oe_debug_pub.add('Unexpected Error'||l_msg_data);
18831: WHEN FND_API.G_EXC_ERROR THEN
18832: oe_debug_pub.add('Expected Error'||l_msg_data);
18833: END res_against_req_po;
18834:
18835: /*4241385*/
18836: /*----------------------------------------------------------------------------------
18844: p_set_id IN NUMBER ,
18845: x_set_exists OUT NOCOPY BOOLEAN ,
18846: x_set_scheduled OUT NOCOPY BOOLEAN )
18847: IS
18848: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
18849: l_ship_date DATE ;
18850: l_arrival_date DATE ;
18851: BEGIN
18852: IF l_debug_level >0 THEN
18849: l_ship_date DATE ;
18850: l_arrival_date DATE ;
18851: BEGIN
18852: IF l_debug_level >0 THEN
18853: oe_debug_pub.ADD('in get_Set_details-set_id is:'||p_set_id);
18854: END IF ;
18855: SELECT schedule_ship_date,
18856: schedule_arrival_date
18857: INTO l_ship_date,
18868: END IF ;
18869: --check the debug level commands.
18870: IF l_debug_level >0 THEN
18871: IF x_set_exists THEN
18872: oe_debug_pub.ADD('set exists');
18873: IF x_set_scheduled THEN
18874: oe_debug_pub.ADD('set is scheduled');
18875: ELSE
18876: oe_debug_pub.ADD('set is not scheduled.');
18870: IF l_debug_level >0 THEN
18871: IF x_set_exists THEN
18872: oe_debug_pub.ADD('set exists');
18873: IF x_set_scheduled THEN
18874: oe_debug_pub.ADD('set is scheduled');
18875: ELSE
18876: oe_debug_pub.ADD('set is not scheduled.');
18877: END IF ;
18878: END IF ;
18872: oe_debug_pub.ADD('set exists');
18873: IF x_set_scheduled THEN
18874: oe_debug_pub.ADD('set is scheduled');
18875: ELSE
18876: oe_debug_pub.ADD('set is not scheduled.');
18877: END IF ;
18878: END IF ;
18879: END IF ;
18880: EXCEPTION
18880: EXCEPTION
18881: WHEN NO_DATA_FOUND THEN
18882: x_set_exists := FALSE;
18883: IF l_debug_level >0 THEN
18884: oe_debug_pub.ADD('in no data found exception. set does not exists');
18885: END IF ;
18886: WHEN OTHERS THEN
18887: IF l_debug_level >0 THEN
18888: oe_debug_pub.ADD('error in get_set_details:'||SQLERRM,5);
18884: oe_debug_pub.ADD('in no data found exception. set does not exists');
18885: END IF ;
18886: WHEN OTHERS THEN
18887: IF l_debug_level >0 THEN
18888: oe_debug_pub.ADD('error in get_set_details:'||SQLERRM,5);
18889: END IF ;
18890: END get_set_details ;
18891: /*4241385*/
18892: END OE_SCHEDULE_UTIL;