[Home] [Help]
25: FUNCTION Delink_Required(p_line_rec IN OE_ORDER_PUB.line_rec_type)
26: RETURN BOOLEAN
27: IS
28: --
29: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
30: --
31: BEGIN
32: RETURN TRUE;
33: END Delink_Required;
49: l_org_id NUMBER;
50: l_bill_seq_id NUMBER;
51: l_make_buy NUMBER;
52: --
53: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
54: --
55: BEGIN
56:
57: IF l_debug_level > 0 THEN
54: --
55: BEGIN
56:
57: IF l_debug_level > 0 THEN
58: oe_debug_pub.add( '..ENTERING OE_GRP_SCH_UTIL.VALIDATE_LINE' , 1 ) ;
59: END IF;
60:
61: -- If the quantity on the line is missing or null and if
62: -- the user is trying to performing scheduling, it is an error
86: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ZERO_QTY');
87: OE_MSG_PUB.Add;
88:
89: IF l_debug_level > 0 THEN
90: oe_debug_pub.add( 'E2' , 1 ) ;
91: END IF;
92: l_return_status := FND_API.G_RET_STS_ERROR;
93: END IF;
94:
107: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_SHIPPED');
108: OE_MSG_PUB.Add;
109:
110: IF l_debug_level > 0 THEN
111: oe_debug_pub.add( 'OE_SCH_LINE_SHIPPED' , 1 ) ;
112: END IF;
113: l_return_status := FND_API.G_RET_STS_ERROR;
114:
115: END IF;
128: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_MORE_ORD_QTY');
129: OE_MSG_PUB.Add;
130:
131: IF l_debug_level > 0 THEN
132: oe_debug_pub.add( 'E4' , 1 ) ;
133: END IF;
134: l_return_status := FND_API.G_RET_STS_ERROR;
135: END IF;
136:
145: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_QTY_CHG_NOT_ALLOWED');
146: OE_MSG_PUB.Add;
147: l_return_status := FND_API.G_RET_STS_ERROR;
148: IF l_debug_level > 0 THEN
149: oe_debug_pub.add( 'E5' , 1 ) ;
150: END IF;
151: END IF;
152: END IF;
153:
169: OE_MSG_PUB.Add;
170:
171: l_return_status := FND_API.G_RET_STS_ERROR;
172: IF l_debug_level > 0 THEN
173: oe_debug_pub.add( 'E6' , 1 ) ;
174: END IF;
175: END IF;
176: END IF;
177: END IF;
187: OE_MSG_PUB.Add;
188:
189: l_return_status := FND_API.G_RET_STS_ERROR;
190: IF l_debug_level > 0 THEN
191: oe_debug_pub.add( 'E7' , 1 ) ;
192: END IF;
193: END IF;
194:
195: -- If the item on the line is missing or null and if the user
195: -- If the item on the line is missing or null and if the user
196: -- is trying to performing scheduling, it is an error
197:
198: IF l_debug_level > 0 THEN
199: oe_debug_pub.add( 'CHECKING THE ITEM....' , 1 ) ;
200: END IF;
201:
202: IF (p_line_rec.inventory_item_id is null OR
203: p_line_rec.inventory_item_id = FND_API.G_MISS_NUM) THEN
212: -- if the user is trying to performing scheduling,
213: -- it is an error
214:
215: IF l_debug_level > 0 THEN
216: oe_debug_pub.add( 'CHECKING THE REQUEST DATE....' , 1 ) ;
217: END IF;
218: IF (p_line_rec.request_date is null OR
219: p_line_rec.request_date = FND_API.G_MISS_DATE) THEN
220:
224: END IF;
225:
226: -- If the line belongs to a set, you cannot unschedule the line
227: IF l_debug_level > 0 THEN
228: oe_debug_pub.add( 'CHECKING FOR SET VALIDATIONS....' , 1 ) ;
229: END IF;
230: IF ((p_line_rec.ship_set_id is not null AND
231: p_line_rec.ship_set_id <> FND_API.G_MISS_NUM) AND
232: (p_line_rec.schedule_action_code =
241: l_return_status := FND_API.G_RET_STS_ERROR;
242: END IF;
243:
244: IF l_debug_level > 0 THEN
245: oe_debug_pub.add( 'CHECKING FOR HOLDS....' , 1 ) ;
246: END IF;
247: --IF FND_PROFILE.VALUE('ONT_SCHEDULE_LINE_ON_HOLD') = 'N' AND
248: IF oe_sys_parameters.value ('ONT_SCHEDULE_LINE_ON_HOLD') = 'N' AND --moac
249: (p_line_rec.schedule_action_code =
261: -- Since the profile is set to NO, we should not schedule
262: -- the line if the line is on hold.
263:
264: IF l_debug_level > 0 THEN
265: oe_debug_pub.add( 'CALLING CHECK HOLDS' , 1 ) ;
266: END IF;
267:
268: OE_Holds_PUB.Check_Holds
269: ( p_api_version => 1.0
280: , x_result_out => l_result
281: );
282:
283: IF l_debug_level > 0 THEN
284: oe_debug_pub.add( 'AFTER CALLING CHECK HOLDS: ' || L_OUT_RETURN_STATUS , 1 ) ;
285: END IF;
286:
287: IF (l_out_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
288: IF l_out_return_status = FND_API.G_RET_STS_ERROR THEN
304: -- on this line. If the action requested is not allowed for the
305: -- scheduling action, error out.
306:
307: IF l_debug_level > 0 THEN
308: oe_debug_pub.add( 'CHECKING SCHEDULING LEVEL...' , 1 ) ;
309: END IF;
310: l_scheduling_level_code := OE_ORDER_SCH_UTIL.Get_Scheduling_Level
311: (p_line_rec.header_id,
312: p_line_rec.line_type_id);
311: (p_line_rec.header_id,
312: p_line_rec.line_type_id);
313:
314: IF l_debug_level > 0 THEN
315: oe_debug_pub.add( 'L_SCHEDULING_LEVEL_CODE : ' || L_SCHEDULING_LEVEL_CODE , 1 ) ;
316: END IF;
317:
318: IF l_scheduling_level_code is not null THEN
319: IF l_scheduling_level_code = OE_ORDER_SCH_UTIL.SCH_LEVEL_ONE THEN
347: FND_MESSAGE.SET_TOKEN('ACTION',
348: nvl(p_line_rec.schedule_action_code,
349: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE));
350: IF l_debug_level > 0 THEN
351: oe_debug_pub.add( 'RESERVED QUANTITY IS GREATER THAN ZERO' ) ;
352: END IF;
353: OE_MSG_PUB.Add;
354: l_return_status := FND_API.G_RET_STS_ERROR;
355: END IF;
390: l_make_buy := 1;
391: END;
392:
393: IF l_debug_level > 0 THEN
394: oe_debug_pub.add( 'L_MAKE_BUY' || L_MAKE_BUY , 2 ) ;
395: END IF;
396:
397: IF nvl(l_make_buy,1) <> 2 THEN
398: BEGIN
409:
410: EXCEPTION
411: WHEN NO_DATA_FOUND THEN
412: IF l_debug_level > 0 THEN
413: oe_debug_pub.add( 'NO BILL IS DEFINED' , 2 ) ;
414: END IF;
415: FND_MESSAGE.SET_NAME('ONT','OE_BOM_NO_BILL_IN_VAL_ORG');
416: FND_MESSAGE.SET_TOKEN('ITEM',nvl(p_line_rec.ordered_item,p_line_rec.inventory_item_id));
417: FND_MESSAGE.SET_TOKEN('ORG',l_org_id);
426:
427: x_return_status := l_return_status;
428:
429: IF l_debug_level > 0 THEN
430: oe_debug_pub.add( '..EXITING OE_GRP_SCH_UTIL.VALIDATE_LINE WITH ' || L_RETURN_STATUS , 1 ) ;
431: END IF;
432: END Validate_Line;
433:
434: /*-------------------------------------------------------------------
465: l_msg_count NUMBER;
466: l_msg_data VARCHAR2(2000);
467:
468: --
469: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
470: --
471: BEGIN
472:
473: IF l_debug_level > 0 THEN
470: --
471: BEGIN
472:
473: IF l_debug_level > 0 THEN
474: oe_debug_pub.add( 'ENTERING GROUP SCHEDULE' , 1 ) ;
475: END IF;
476: IF l_debug_level > 0 THEN
477: oe_debug_pub.add( 'ENTITY :' || P_GROUP_REQ_REC.ENTITY_TYPE , 1 ) ;
478: END IF;
473: IF l_debug_level > 0 THEN
474: oe_debug_pub.add( 'ENTERING GROUP SCHEDULE' , 1 ) ;
475: END IF;
476: IF l_debug_level > 0 THEN
477: oe_debug_pub.add( 'ENTITY :' || P_GROUP_REQ_REC.ENTITY_TYPE , 1 ) ;
478: END IF;
479: SAVEPOINT group_schedule;
480:
481: Validate_Group_Request(p_group_req_rec => p_group_req_rec,
539:
540: x_return_status := FND_API.G_RET_STS_SUCCESS;
541:
542: IF l_debug_level > 0 THEN
543: oe_debug_pub.add( 'EXITING GROUP SCHEDULE' , 1 ) ;
544: END IF;
545:
546: EXCEPTION
547:
685: WHERE header_id = p_header_id
686: AND item_type_code <> OE_GLOBALS.G_ITEM_INCLUDED;
687:
688: --
689: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
690: --
691: BEGIN
692:
693: IF l_debug_level > 0 THEN
690: --
691: BEGIN
692:
693: IF l_debug_level > 0 THEN
694: oe_debug_pub.add( 'ENTERING OE_GRP_SCH_UTIL.SCHEDULE_ORDER' , 1 ) ;
695: END IF;
696:
697: /* Bug :2222360 */
698: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
696:
697: /* Bug :2222360 */
698: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
699: IF l_debug_level > 0 THEN
700: oe_debug_pub.add( 'INSIDE ATP CHECK SAVEPOINT' ) ;
701: END IF;
702: SAVEPOINT ATP_CHECK;
703: END IF;
704:
702: SAVEPOINT ATP_CHECK;
703: END IF;
704:
705: IF l_debug_level > 0 THEN
706: oe_debug_pub.add( 'P_HEADER_ID : ' || P_HEADER_ID , 1 ) ;
707: END IF;
708: IF l_debug_level > 0 THEN
709: oe_debug_pub.add( 'P_SCH_ACTION: ' || P_SCH_ACTION , 1 ) ;
710: END IF;
705: IF l_debug_level > 0 THEN
706: oe_debug_pub.add( 'P_HEADER_ID : ' || P_HEADER_ID , 1 ) ;
707: END IF;
708: IF l_debug_level > 0 THEN
709: oe_debug_pub.add( 'P_SCH_ACTION: ' || P_SCH_ACTION , 1 ) ;
710: END IF;
711:
712: -- l_line_tbl := Query_Lines(p_header_id => p_header_id);
713:
717: atp_count := 1;
718: I := 1;
719:
720: IF l_debug_level > 0 THEN
721: oe_debug_pub.add( 'NO. OF LINES TO SCHEDULE: ' || L_LINE_TBL.COUNT , 1 ) ;
722: END IF;
723:
724: l_arrival_set_id := null;
725: l_ship_set_id := null;
886: l_line_rec.schedule_status_code is null ) )
887: THEN
888:
889: IF l_debug_level > 0 THEN
890: oe_debug_pub.add( 'SCHEDULING A GROUP ' , 1 ) ;
891: END IF;
892: l_line_rec.schedule_action_code := p_sch_action;
893:
894: IF l_debug_level > 0 THEN
891: END IF;
892: l_line_rec.schedule_action_code := p_sch_action;
893:
894: IF l_debug_level > 0 THEN
895: oe_debug_pub.add( 'SO: CREATING GROUP_REQUEST' , 1 ) ;
896: END IF;
897:
898: OE_ORDER_SCH_UTIL.Create_Group_Request
899: ( p_line_rec => l_line_rec
904:
905: -- Line belongs to a group. Needs to be scheduled in a group.
906:
907: IF l_debug_level > 0 THEN
908: oe_debug_pub.add( 'SO: CALLING GROUP_SCHEDULE: ' || L_RETURN_STATUS , 1 ) ;
909: END IF;
910:
911: Group_Schedule
912: ( p_group_req_rec => l_group_req_rec
913: ,x_atp_tbl => l_out_atp_tbl
914: ,x_return_status => l_return_status);
915:
916: IF l_debug_level > 0 THEN
917: oe_debug_pub.add( 'SO: AFTER CALLING GROUP_SCHEDULE' || L_RETURN_STATUS , 1 ) ;
918: END IF;
919:
920: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
934: l_line_rec.schedule_action_code := p_sch_action;
935: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
936:
937: IF l_debug_level > 0 THEN
938: oe_debug_pub.add( 'SCHEDULING LINE: ' || L_LINE_REC.LINE_ID , 1 ) ;
939: END IF;
940: IF l_debug_level > 0 THEN
941: oe_debug_pub.add( 'ITEM TYPE IS : ' || L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
942: END IF;
937: IF l_debug_level > 0 THEN
938: oe_debug_pub.add( 'SCHEDULING LINE: ' || L_LINE_REC.LINE_ID , 1 ) ;
939: END IF;
940: IF l_debug_level > 0 THEN
941: oe_debug_pub.add( 'ITEM TYPE IS : ' || L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
942: END IF;
943: IF l_debug_level > 0 THEN
944: oe_debug_pub.add( ' ' , 1 ) ;
945: END IF;
940: IF l_debug_level > 0 THEN
941: oe_debug_pub.add( 'ITEM TYPE IS : ' || L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
942: END IF;
943: IF l_debug_level > 0 THEN
944: oe_debug_pub.add( ' ' , 1 ) ;
945: END IF;
946:
947: IF l_debug_level > 0 THEN
948: oe_debug_pub.add( 'GRP: CALLING SCHEDULE LINE' , 1 ) ;
944: oe_debug_pub.add( ' ' , 1 ) ;
945: END IF;
946:
947: IF l_debug_level > 0 THEN
948: oe_debug_pub.add( 'GRP: CALLING SCHEDULE LINE' , 1 ) ;
949: END IF;
950:
951: OE_ORDER_SCH_UTIL.Schedule_line
952: ( p_old_line_rec => l_old_line_rec
955: ,x_atp_tbl => l_out_atp_tbl
956: ,x_return_status => l_return_status);
957:
958: IF l_debug_level > 0 THEN
959: oe_debug_pub.add( 'GRP:AFTER CALLING SCHEDULE LINE: ' || L_RETURN_STATUS , 1 ) ;
960: END IF;
961:
962: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1016: ,p_data => x_msg_data
1017: );
1018:
1019: IF l_debug_level > 0 THEN
1020: oe_debug_pub.add( 'COUNT IS ' || X_MSG_COUNT , 1 ) ;
1021: END IF;
1022: IF l_debug_level > 0 THEN
1023: oe_debug_pub.add( 'EXITING OE_GRP_SCH_UTIL.SCHEDULE_ORDER' , 1 ) ;
1024: END IF;
1019: IF l_debug_level > 0 THEN
1020: oe_debug_pub.add( 'COUNT IS ' || X_MSG_COUNT , 1 ) ;
1021: END IF;
1022: IF l_debug_level > 0 THEN
1023: oe_debug_pub.add( 'EXITING OE_GRP_SCH_UTIL.SCHEDULE_ORDER' , 1 ) ;
1024: END IF;
1025: x_return_status := FND_API.G_RET_STS_SUCCESS;
1026:
1027: /* Bug :2222360 */
1026:
1027: /* Bug :2222360 */
1028: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
1029: IF l_debug_level > 0 THEN
1030: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
1031: END IF;
1032: ROLLBACK TO ATP_CHECK;
1033: OE_Delayed_Requests_Pvt.Clear_Request
1034: (x_return_status => l_return_status);
1047: );
1048: /* Bug :2222360 */
1049: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
1050: IF l_debug_level > 0 THEN
1051: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
1052: END IF;
1053: ROLLBACK TO ATP_CHECK;
1054: OE_Delayed_Requests_Pvt.Clear_Request
1055: (x_return_status => l_return_status);
1067:
1068: /* Bug :2222360 */
1069: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
1070: IF l_debug_level > 0 THEN
1071: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
1072: END IF;
1073: ROLLBACK TO ATP_CHECK;
1074: OE_Delayed_Requests_Pvt.Clear_Request
1075: (x_return_status => l_return_status);
1081:
1082: /* Bug :2222360 */
1083: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
1084: IF l_debug_level > 0 THEN
1085: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
1086: END IF;
1087: ROLLBACK TO ATP_CHECK;
1088: OE_Delayed_Requests_Pvt.Clear_Request
1089: (x_return_status => l_return_status);
1157: l_arrival_set_id NUMBER := null;
1158: l_cancelled_flag VARCHAR2(1) := 'N';
1159:
1160: --
1161: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1162: --
1163: BEGIN
1164:
1165: IF l_debug_level > 0 THEN
1162: --
1163: BEGIN
1164:
1165: IF l_debug_level > 0 THEN
1166: oe_debug_pub.add( 'ENTERING SCHEDULE_ATO' , 1 ) ;
1167: END IF;
1168:
1169: l_line_id := p_group_req_rec.line_id;
1170:
1175: FROM oe_order_lines_all
1176: WHERE line_id = l_line_id;
1177:
1178: IF l_debug_level > 0 THEN
1179: oe_debug_pub.add( 'WAREHOUSE IS ' || P_GROUP_REQ_REC.SHIP_FROM_ORG_ID , 1 ) ;
1180: END IF;
1181: IF l_debug_level > 0 THEN
1182: oe_debug_pub.add( 'LINE ID IS : ' || L_LINE_ID , 1 ) ;
1183: END IF;
1178: IF l_debug_level > 0 THEN
1179: oe_debug_pub.add( 'WAREHOUSE IS ' || P_GROUP_REQ_REC.SHIP_FROM_ORG_ID , 1 ) ;
1180: END IF;
1181: IF l_debug_level > 0 THEN
1182: oe_debug_pub.add( 'LINE ID IS : ' || L_LINE_ID , 1 ) ;
1183: END IF;
1184:
1185: --l_model_line_rec := Oe_line_Util.Query_Row(p_line_id => l_line_id);
1186:
1187: OE_Line_Util.Query_Row(p_line_id => l_ato_line_id,
1188: x_line_rec => l_model_line_rec);
1189:
1190: IF l_debug_level > 0 THEN
1191: oe_debug_pub.add( 'CHECKING WAREHOUSE' , 1 ) ;
1192: END IF;
1193:
1194: -- Check to see if a warehouse is specified on the line. You need a
1195: -- warehouse to schedule an ATO
1245: -- (l_model_line_rec.ato_line_id);
1246: /*
1247: IF l_model_line_rec.ordered_quantity = 0 THEN
1248: l_cancelled_flag := 'Y';
1249: oe_debug_pub.add('SCH: Setting cancelled flag to Y',1);
1250: ELSE
1251: l_cancelled_flag := 'N';
1252: END IF;
1253: */
1263:
1264: IF (p_group_req_rec.ship_from_org_id is not null) THEN
1265:
1266: IF l_debug_level > 0 THEN
1267: oe_debug_pub.add( 'CALLING VALIDATE_WAREHOUSE' , 1 ) ;
1268: END IF;
1269:
1270: Validate_Warehouse
1271: (p_line_tbl => l_line_tbl
1272: ,p_ship_from_org_id => p_group_req_rec.ship_from_org_id
1273: ,x_return_status => l_return_status);
1274:
1275: IF l_debug_level > 0 THEN
1276: oe_debug_pub.add( 'AFTER CALLING VALIDATE_WAREHOUSE: ' || L_RETURN_STATUS , 1 ) ;
1277: END IF;
1278:
1279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1283: END IF;
1284: END IF;
1285:
1286: IF l_debug_level > 0 THEN
1287: oe_debug_pub.add( 'NO. OF LINES: ' || L_LINE_TBL.COUNT , 1 ) ;
1288: END IF;
1289: l_old_line_tbl := l_line_tbl;
1290:
1291: FOR I IN 1..l_old_line_tbl.count LOOP
1298: l_old_line_tbl(I).ship_set_id := null;
1299: ELSE
1300:
1301: IF l_debug_level > 0 THEN
1302: oe_debug_pub.add( 'SETTING OLD TO OLD DATES ' , 1 ) ;
1303: END IF;
1304: IF p_group_req_rec.old_schedule_ship_date is not null THEN
1305: l_old_line_tbl(I).schedule_ship_date :=
1306: p_group_req_rec.old_schedule_ship_date;
1328:
1329: /* IF p_group_req_rec.old_schedule_ship_date is not null OR
1330: p_group_req_rec.old_schedule_arrival_date is not null THEN
1331:
1332: oe_debug_pub.add('Schedule date has changed',1);
1333: oe_debug_pub.add('Setting Old to old dates ',1);
1334: FOR I IN 1..l_old_line_tbl.count LOOP
1335: IF p_group_req_rec.old_schedule_ship_date is not null THEN
1336: l_old_line_tbl(I).schedule_ship_date :=
1329: /* IF p_group_req_rec.old_schedule_ship_date is not null OR
1330: p_group_req_rec.old_schedule_arrival_date is not null THEN
1331:
1332: oe_debug_pub.add('Schedule date has changed',1);
1333: oe_debug_pub.add('Setting Old to old dates ',1);
1334: FOR I IN 1..l_old_line_tbl.count LOOP
1335: IF p_group_req_rec.old_schedule_ship_date is not null THEN
1336: l_old_line_tbl(I).schedule_ship_date :=
1337: p_group_req_rec.old_schedule_ship_date;
1360:
1361: IF p_group_req_rec.old_quantity <> p_group_req_rec.quantity
1362: THEN
1363: IF l_debug_level > 0 THEN
1364: oe_debug_pub.add( 'MODEL QUANTITY HAS CHANGED' , 1 ) ;
1365: END IF;
1366: IF l_debug_level > 0 THEN
1367: oe_debug_pub.add( 'MODEL OLD QUANTITY ' || P_GROUP_REQ_REC.OLD_QUANTITY , 1 ) ;
1368: END IF;
1363: IF l_debug_level > 0 THEN
1364: oe_debug_pub.add( 'MODEL QUANTITY HAS CHANGED' , 1 ) ;
1365: END IF;
1366: IF l_debug_level > 0 THEN
1367: oe_debug_pub.add( 'MODEL OLD QUANTITY ' || P_GROUP_REQ_REC.OLD_QUANTITY , 1 ) ;
1368: END IF;
1369: IF l_debug_level > 0 THEN
1370: oe_debug_pub.add( 'MODEL QUANTITY ' || P_GROUP_REQ_REC.QUANTITY , 1 ) ;
1371: END IF;
1366: IF l_debug_level > 0 THEN
1367: oe_debug_pub.add( 'MODEL OLD QUANTITY ' || P_GROUP_REQ_REC.OLD_QUANTITY , 1 ) ;
1368: END IF;
1369: IF l_debug_level > 0 THEN
1370: oe_debug_pub.add( 'MODEL QUANTITY ' || P_GROUP_REQ_REC.QUANTITY , 1 ) ;
1371: END IF;
1372: l_ato_model_quantity := p_group_req_rec.old_quantity;
1373: l_model_quantity_chg := p_group_req_rec.quantity -
1374: p_group_req_rec.old_quantity;
1413: l_component_ratio := l_line_rec.ordered_quantity/l_ato_model_quantity;
1414: l_line_rec.ordered_quantity := l_component_ratio *
1415: p_group_req_rec.quantity;
1416: IF l_debug_level > 0 THEN
1417: oe_debug_pub.add( 'NEW QTY: ' || L_LINE_REC.ORDERED_QUANTITY , 1 ) ;
1418: END IF;
1419: END IF;
1420:
1421: IF (p_group_req_rec.ship_from_org_id is not null) THEN
1449: x_return_status => l_return_status);
1450:
1451: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1452: IF l_debug_level > 0 THEN
1453: oe_debug_pub.add( 'ATO: AFTER VALIDATE LINE UN EXP ERROR' || L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
1454: END IF;
1455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1456: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1457: RAISE FND_API.G_EXC_ERROR;
1455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1456: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1457: RAISE FND_API.G_EXC_ERROR;
1458: IF l_debug_level > 0 THEN
1459: oe_debug_pub.add( 'ATO: AFTER VALIDATE LINE EXP ERROR' || L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
1460: END IF;
1461: END IF;
1462:
1463: END LOOP;
1461: END IF;
1462:
1463: END LOOP;
1464: IF l_debug_level > 0 THEN
1465: oe_debug_pub.add( 'ATO: CALLING PROCESS_SET_OF_LINES' , 1 ) ;
1466: END IF;
1467:
1468: Process_set_of_lines( p_old_line_tbl => l_old_line_tbl,
1469: x_atp_tbl => l_atp_tbl,
1470: p_x_line_tbl => l_line_tbl,
1471: x_return_status => l_return_status);
1472:
1473: IF l_debug_level > 0 THEN
1474: oe_debug_pub.add( 'ATO: AFTER CALLING PROCESS_SET_OF_LINES' , 1 ) ;
1475: END IF;
1476:
1477: x_atp_tbl := l_atp_tbl;
1478:
1482: RAISE FND_API.G_EXC_ERROR;
1483: END IF;
1484:
1485: IF l_debug_level > 0 THEN
1486: oe_debug_pub.add( 'EXITING SCHEDULE_ATO' , 1 ) ;
1487: END IF;
1488:
1489: EXCEPTION
1490:
1518: x_return_status OUT NOCOPY VARCHAR2)
1519:
1520: IS
1521: --
1522: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1523: --
1524: BEGIN
1525: null;
1526:
1566: l_sales_order_id NUMBER;
1567: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1568: l_old_recursion_mode VARCHAR2(1);
1569: --
1570: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1571: --
1572: BEGIN
1573:
1574: IF l_debug_level > 0 THEN
1571: --
1572: BEGIN
1573:
1574: IF l_debug_level > 0 THEN
1575: oe_debug_pub.add( 'ENTERING QUERY_SET_LINES' , 1 ) ;
1576: END IF;
1577: IF l_debug_level > 0 THEN
1578: oe_debug_pub.add( 'ENTITY IS ' || P_ENTITY_TYPE , 1 ) ;
1579: END IF;
1574: IF l_debug_level > 0 THEN
1575: oe_debug_pub.add( 'ENTERING QUERY_SET_LINES' , 1 ) ;
1576: END IF;
1577: IF l_debug_level > 0 THEN
1578: oe_debug_pub.add( 'ENTITY IS ' || P_ENTITY_TYPE , 1 ) ;
1579: END IF;
1580:
1581: IF p_entity_type = OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET THEN
1582: IF l_debug_level > 0 THEN
1579: END IF;
1580:
1581: IF p_entity_type = OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET THEN
1582: IF l_debug_level > 0 THEN
1583: oe_debug_pub.add( 'CALLING QUERY_SET_ROWS FOR: ' || P_SHIP_SET_ID , 1 ) ;
1584: END IF;
1585:
1586: OE_Set_Util.Query_Set_Rows(p_set_id => p_ship_set_id,
1587: x_line_tbl => l_set_line_tbl);
1587: x_line_tbl => l_set_line_tbl);
1588:
1589: ELSIF p_entity_type = OE_ORDER_SCH_UTIL.OESCH_ENTITY_ARRIVAL_SET THEN
1590: IF l_debug_level > 0 THEN
1591: oe_debug_pub.add( 'CALLING QUERY_SET_ROWS FOR: ' || P_ARRIVAL_SET_ID , 1 ) ;
1592: END IF;
1593:
1594: OE_Set_Util.Query_Set_Rows(p_set_id => p_arrival_set_id,
1595: x_line_tbl => l_set_line_tbl);
1607: -- Loop through the queried records, assign to out table. And also explode the
1608: -- included items for model,class and kit.
1609:
1610: IF l_debug_level > 0 THEN
1611: oe_debug_pub.add( 'ORIGINAL COUNT ' || L_SET_LINE_TBL.COUNT , 1 ) ;
1612: END IF;
1613:
1614: -- removed extra looping to explode included items and populate reservation
1615: -- quantity, that way we can improve performance of this procedure and also
1653: l_old_recursion_mode := OE_GLOBALS.G_RECURSION_MODE;
1654: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
1655:
1656: IF l_debug_level > 0 THEN
1657: oe_debug_pub.add( 'CALLING PROCESS_INCLUDED_ITEMS FOR ITEM: ' || X_LINE_TBL ( J ) .INVENTORY_ITEM_ID ) ;
1658: END IF;
1659:
1660: l_return_status := OE_CONFIG_UTIL.Process_Included_Items
1661: (p_line_rec => x_line_tbl(J),
1663:
1664: -- OE_GLOBALS.G_RECURSION_MODE := l_old_recursion_mode;
1665:
1666: IF l_debug_level > 0 THEN
1667: oe_debug_pub.add( 'AFTER CALLING PROCESS_INCLUDED_ITEMS ' , 1 ) ;
1668: END IF;
1669:
1670: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1671: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1678: p_send_cancel_lines => 'Y',
1679: x_line_tbl => l_ii_line_tbl);
1680:
1681: IF l_debug_level > 0 THEN
1682: oe_debug_pub.add( 'MERGING INCLUDED ITEM TABLE WITH LINE TABLE' , 1 ) ;
1683: END IF;
1684:
1685: -- Merge the Included Item table to the line table
1686: FOR K IN 1..l_ii_line_tbl.count LOOP
1706: END IF; -- Included Items.
1707: END LOOP;
1708:
1709: IF l_debug_level > 0 THEN
1710: oe_debug_pub.add( 'SIZE OF NEW TABLE IS: ' || X_LINE_TBL.COUNT , 1 ) ;
1711: END IF;
1712:
1713: IF l_debug_level > 0 THEN
1714: oe_debug_pub.add( 'EXITING QUERY_SET_LINES' , 1 ) ;
1710: oe_debug_pub.add( 'SIZE OF NEW TABLE IS: ' || X_LINE_TBL.COUNT , 1 ) ;
1711: END IF;
1712:
1713: IF l_debug_level > 0 THEN
1714: oe_debug_pub.add( 'EXITING QUERY_SET_LINES' , 1 ) ;
1715: END IF;
1716:
1717:
1718: EXCEPTION
1744: p_line_tbl IN OE_ORDER_PUB.line_tbl_type,
1745: x_return_status OUT NOCOPY VARCHAR2) IS
1746:
1747: --
1748: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1749: --
1750: BEGIN
1751: x_return_status := FND_API.G_RET_STS_SUCCESS;
1752: END Validate_Set_Attributes;
1788: l_set_name VARCHAR2(30);
1789: l_set_id NUMBER := null;
1790: l_action VARCHAR2(30) := Null;
1791: --
1792: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1793: --
1794: BEGIN
1795: IF l_debug_level > 0 THEN
1796: oe_debug_pub.add( 'ENTERING SCHEDULE_SET' , 1 ) ;
1792: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1793: --
1794: BEGIN
1795: IF l_debug_level > 0 THEN
1796: oe_debug_pub.add( 'ENTERING SCHEDULE_SET' , 1 ) ;
1797: END IF;
1798:
1799: IF l_debug_level > 0 THEN
1800: oe_debug_pub.add( 'CALLING QUERY_SET_LINES' , 1 ) ;
1796: oe_debug_pub.add( 'ENTERING SCHEDULE_SET' , 1 ) ;
1797: END IF;
1798:
1799: IF l_debug_level > 0 THEN
1800: oe_debug_pub.add( 'CALLING QUERY_SET_LINES' , 1 ) ;
1801: END IF;
1802:
1803: Query_Set_Lines
1804: (p_header_id => p_group_req_rec.header_id,
1808: p_line_id => p_group_req_rec.line_id,
1809: x_line_tbl => l_line_tbl);
1810:
1811: IF l_debug_level > 0 THEN
1812: oe_debug_pub.add( 'AFTER CALLING QUERY_SET_LINES' , 1 ) ;
1813: END IF;
1814: IF l_debug_level > 0 THEN
1815: oe_debug_pub.add( 'COUNT IS ' || L_LINE_TBL.COUNT , 1 ) ;
1816: END IF;
1811: IF l_debug_level > 0 THEN
1812: oe_debug_pub.add( 'AFTER CALLING QUERY_SET_LINES' , 1 ) ;
1813: END IF;
1814: IF l_debug_level > 0 THEN
1815: oe_debug_pub.add( 'COUNT IS ' || L_LINE_TBL.COUNT , 1 ) ;
1816: END IF;
1817:
1818: -- Added this part of validation to fix bug 2411889.
1819:
1845:
1846: END IF; /* If action was unschedule */
1847:
1848: IF l_debug_level > 0 THEN
1849: oe_debug_pub.add( 'AFTER THE VALIDATION' , 1 ) ;
1850: END IF;
1851:
1852: l_old_line_tbl := l_line_tbl;
1853:
1853:
1854: -- If any of the lines is a model or class, get it's included items.
1855:
1856: IF l_debug_level > 0 THEN
1857: oe_debug_pub.add( 'COUNT IS ' || L_LINE_TBL.COUNT , 1 ) ;
1858: END IF;
1859:
1860: FOR I IN 1..l_old_line_tbl.count LOOP
1861:
2026: x_return_status => l_return_status);
2027:
2028: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2029: IF l_debug_level > 0 THEN
2030: oe_debug_pub.add( 'ATO: AFTER VALIDATE LINE UN EXP ERROR' || L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
2031: END IF;
2032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2033: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2034: RAISE FND_API.G_EXC_ERROR;
2032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2033: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2034: RAISE FND_API.G_EXC_ERROR;
2035: IF l_debug_level > 0 THEN
2036: oe_debug_pub.add( 'ATO: AFTER VALIDATE LINE EXP ERROR' || L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
2037: END IF;
2038: END IF;
2039:
2040: END LOOP;
2044: RAISE FND_API.G_EXC_ERROR;
2045: END IF;
2046:
2047: IF l_debug_level > 0 THEN
2048: oe_debug_pub.add( 'CALLING PROCESS_SET_OF_LINES' , 1 ) ;
2049: END IF;
2050:
2051: Process_set_of_lines( p_old_line_tbl => l_old_line_tbl,
2052: x_atp_tbl => l_atp_tbl,
2053: p_x_line_tbl => l_line_tbl,
2054: x_return_status => l_return_status);
2055:
2056: IF l_debug_level > 0 THEN
2057: oe_debug_pub.add( 'AFTER CALLING PROCESS_SET_OF_LINES' , 1 ) ;
2058: END IF;
2059:
2060: x_atp_tbl := l_atp_tbl;
2061: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2085: l_schedule_arrival_date := l_new_line_rec.schedule_arrival_date;
2086: l_shipping_method_code := l_new_line_rec.shipping_method_code;
2087:
2088: IF l_debug_level > 0 THEN
2089: oe_debug_pub.add( 'CALLING UPDATE SET' ) ;
2090: END IF;
2091:
2092: OE_Set_Util.Update_Set
2093: (p_Set_Id => l_set_id,
2103: x_msg_data => l_msg_data
2104: );
2105:
2106: IF l_debug_level > 0 THEN
2107: oe_debug_pub.add( 'AFTER CALLING UPDATE SET' ) ;
2108: END IF;
2109:
2110: END IF;
2111:
2109:
2110: END IF;
2111:
2112: IF l_debug_level > 0 THEN
2113: oe_debug_pub.add( 'EXITING SCHEDULE_SET' , 1 ) ;
2114: END IF;
2115:
2116: EXCEPTION
2117: WHEN FND_API.G_EXC_ERROR THEN
2154: RETURN BOOLEAN
2155: IS
2156:
2157: --
2158: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2159: --
2160: BEGIN
2161:
2162: IF l_debug_level > 0 THEN
2159: --
2160: BEGIN
2161:
2162: IF l_debug_level > 0 THEN
2163: oe_debug_pub.add( 'P_SET_TYPE :' || P_SET_TYPE , 2 ) ;
2164: END IF;
2165: IF l_debug_level > 0 THEN
2166: oe_debug_pub.add( 'P_LINE_SHIP_FROM_ORG_ID :' || P_LINE_SHIP_FROM_ORG_ID , 2 ) ;
2167: END IF;
2162: IF l_debug_level > 0 THEN
2163: oe_debug_pub.add( 'P_SET_TYPE :' || P_SET_TYPE , 2 ) ;
2164: END IF;
2165: IF l_debug_level > 0 THEN
2166: oe_debug_pub.add( 'P_LINE_SHIP_FROM_ORG_ID :' || P_LINE_SHIP_FROM_ORG_ID , 2 ) ;
2167: END IF;
2168: IF l_debug_level > 0 THEN
2169: oe_debug_pub.add( 'P_SET_SHIP_FROM_ORG_ID :' || P_SET_SHIP_FROM_ORG_ID , 2 ) ;
2170: END IF;
2165: IF l_debug_level > 0 THEN
2166: oe_debug_pub.add( 'P_LINE_SHIP_FROM_ORG_ID :' || P_LINE_SHIP_FROM_ORG_ID , 2 ) ;
2167: END IF;
2168: IF l_debug_level > 0 THEN
2169: oe_debug_pub.add( 'P_SET_SHIP_FROM_ORG_ID :' || P_SET_SHIP_FROM_ORG_ID , 2 ) ;
2170: END IF;
2171: IF l_debug_level > 0 THEN
2172: oe_debug_pub.add( 'P_LINE_SHIP_TO_ORG_ID :' || P_LINE_SHIP_TO_ORG_ID , 2 ) ;
2173: END IF;
2168: IF l_debug_level > 0 THEN
2169: oe_debug_pub.add( 'P_SET_SHIP_FROM_ORG_ID :' || P_SET_SHIP_FROM_ORG_ID , 2 ) ;
2170: END IF;
2171: IF l_debug_level > 0 THEN
2172: oe_debug_pub.add( 'P_LINE_SHIP_TO_ORG_ID :' || P_LINE_SHIP_TO_ORG_ID , 2 ) ;
2173: END IF;
2174: IF l_debug_level > 0 THEN
2175: oe_debug_pub.add( 'P_SET_SHIP_TO_ORG_ID :' || P_SET_SHIP_TO_ORG_ID , 2 ) ;
2176: END IF;
2171: IF l_debug_level > 0 THEN
2172: oe_debug_pub.add( 'P_LINE_SHIP_TO_ORG_ID :' || P_LINE_SHIP_TO_ORG_ID , 2 ) ;
2173: END IF;
2174: IF l_debug_level > 0 THEN
2175: oe_debug_pub.add( 'P_SET_SHIP_TO_ORG_ID :' || P_SET_SHIP_TO_ORG_ID , 2 ) ;
2176: END IF;
2177: IF l_debug_level > 0 THEN
2178: oe_debug_pub.add( 'P_LINE_SCHEDULE_SHIP_DATE :' || P_LINE_SCHEDULE_SHIP_DATE , 2 ) ;
2179: END IF;
2174: IF l_debug_level > 0 THEN
2175: oe_debug_pub.add( 'P_SET_SHIP_TO_ORG_ID :' || P_SET_SHIP_TO_ORG_ID , 2 ) ;
2176: END IF;
2177: IF l_debug_level > 0 THEN
2178: oe_debug_pub.add( 'P_LINE_SCHEDULE_SHIP_DATE :' || P_LINE_SCHEDULE_SHIP_DATE , 2 ) ;
2179: END IF;
2180: IF l_debug_level > 0 THEN
2181: oe_debug_pub.add( 'P_SET_SCHEDULE_SHIP_DATE :' || P_SET_SCHEDULE_SHIP_DATE , 2 ) ;
2182: END IF;
2177: IF l_debug_level > 0 THEN
2178: oe_debug_pub.add( 'P_LINE_SCHEDULE_SHIP_DATE :' || P_LINE_SCHEDULE_SHIP_DATE , 2 ) ;
2179: END IF;
2180: IF l_debug_level > 0 THEN
2181: oe_debug_pub.add( 'P_SET_SCHEDULE_SHIP_DATE :' || P_SET_SCHEDULE_SHIP_DATE , 2 ) ;
2182: END IF;
2183: IF l_debug_level > 0 THEN
2184: oe_debug_pub.add( 'P_LINE_ARRIVAL_DATE :' || P_LINE_ARRIVAL_DATE , 2 ) ;
2185: END IF;
2180: IF l_debug_level > 0 THEN
2181: oe_debug_pub.add( 'P_SET_SCHEDULE_SHIP_DATE :' || P_SET_SCHEDULE_SHIP_DATE , 2 ) ;
2182: END IF;
2183: IF l_debug_level > 0 THEN
2184: oe_debug_pub.add( 'P_LINE_ARRIVAL_DATE :' || P_LINE_ARRIVAL_DATE , 2 ) ;
2185: END IF;
2186: IF l_debug_level > 0 THEN
2187: oe_debug_pub.add( 'P_SET_ARRIVAL_DATE :' || P_SET_ARRIVAL_DATE , 2 ) ;
2188: END IF;
2183: IF l_debug_level > 0 THEN
2184: oe_debug_pub.add( 'P_LINE_ARRIVAL_DATE :' || P_LINE_ARRIVAL_DATE , 2 ) ;
2185: END IF;
2186: IF l_debug_level > 0 THEN
2187: oe_debug_pub.add( 'P_SET_ARRIVAL_DATE :' || P_SET_ARRIVAL_DATE , 2 ) ;
2188: END IF;
2189: IF (p_set_type = 'SHIP_SET' AND
2190: p_line_ship_from_org_id = p_set_ship_from_org_id AND
2191: p_line_ship_to_org_id = p_set_Ship_To_Org_Id AND
2198:
2199: END IF;
2200:
2201: IF l_debug_level > 0 THEN
2202: oe_debug_pub.add( 'EXITING CAMPARE ATTR' , 3 ) ;
2203: END IF;
2204: RETURN FALSE;
2205:
2206: EXCEPTION
2247: l_option_search NUMBER; -- Bug - 2287767
2248: l_set_rec OE_ORDER_CACHE.set_rec_type;
2249: l_can_bypass BOOLEAN := TRUE;
2250: --
2251: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2252: --
2253: BEGIN
2254:
2255: IF l_debug_level > 0 THEN
2252: --
2253: BEGIN
2254:
2255: IF l_debug_level > 0 THEN
2256: oe_debug_pub.add( 'ENTERING SCHEDULE_SET_OF_LINES' , 1 ) ;
2257: END IF;
2258:
2259: -- This procedure is called from the SETS api. The sets API has taken
2260: -- care of of validation that needed to be done for the lines
2295: (p_x_line_tbl(1).item_type_code = OE_GLOBALS.G_ITEM_STANDARD OR
2296: nvl(p_x_line_tbl(1).model_remnant_flag,'N') = 'Y') THEN
2297:
2298: IF l_debug_level > 0 THEN
2299: oe_debug_pub.add( 'ARRIVAL_SET_ID : ' || P_X_LINE_TBL ( 1 ) .ARRIVAL_SET_ID || ':' || P_X_LINE_TBL ( 1 ) .SHIP_SET_ID , 2 ) ;
2300: END IF;
2301:
2302: IF l_debug_level > 0 THEN
2303: oe_debug_pub.add( 'OLD SHIP DATE ' || P_OLD_LINE_TBL ( 1 ) .SCHEDULE_SHIP_DATE , 2 ) ;
2299: oe_debug_pub.add( 'ARRIVAL_SET_ID : ' || P_X_LINE_TBL ( 1 ) .ARRIVAL_SET_ID || ':' || P_X_LINE_TBL ( 1 ) .SHIP_SET_ID , 2 ) ;
2300: END IF;
2301:
2302: IF l_debug_level > 0 THEN
2303: oe_debug_pub.add( 'OLD SHIP DATE ' || P_OLD_LINE_TBL ( 1 ) .SCHEDULE_SHIP_DATE , 2 ) ;
2304: END IF;
2305: IF l_set_rec.ship_from_org_id is null
2306: OR l_set_rec.ship_from_org_id = FND_API.G_MISS_NUM THEN
2307:
2305: IF l_set_rec.ship_from_org_id is null
2306: OR l_set_rec.ship_from_org_id = FND_API.G_MISS_NUM THEN
2307:
2308: IF l_debug_level > 0 THEN
2309: oe_debug_pub.add( 'ONLY SCHEDULED LINE IS GETTING INTO NEW SET' , 2 ) ;
2310: END IF;
2311: GOTO END_PROCESS;
2312:
2313: ELSE
2323: p_line_arrival_date => p_x_line_tbl(1).schedule_arrival_date,
2324: p_set_type => l_set_rec.set_type) THEN
2325:
2326: IF l_debug_level > 0 THEN
2327: oe_debug_pub.add( 'ONLY SCHEDULED LINE IS GETTING INTO OLD SET' , 2 ) ;
2328: END IF;
2329: GOTO END_PROCESS;
2330:
2331: END IF; -- compare.
2346: (p_x_line_tbl(I).item_type_code <> OE_GLOBALS.G_ITEM_STANDARD AND
2347: nvl(p_x_line_tbl(I).model_remnant_flag,'N') = 'N') THEN
2348:
2349: IF l_debug_level > 0 THEN
2350: oe_debug_pub.add( 'UNABLE TO BYPASS' , 2 ) ;
2351: END IF;
2352: l_can_bypass := FALSE;
2353: EXIT;
2354:
2389:
2390: IF l_can_bypass THEN
2391:
2392: IF l_debug_level > 0 THEN
2393: oe_debug_pub.add( 'ALL LINES MATCH WITH SET DATES , BYPASS MRP CALL' , 2 ) ;
2394: END IF;
2395: GOTO END_PROCESS;
2396:
2397: END IF;
2414: -- Service items cannot be scheduled, so we will skip them.
2415: -- Included items will be picked up by their parent, so we will
2416: -- skip them.
2417: IF l_debug_level > 0 THEN
2418: oe_debug_pub.add( 'LINE IS A SERVICE OR INCLUDED ITEM' , 1 ) ;
2419: END IF;
2420:
2421: ELSIF (nvl(p_x_line_tbl(I).source_type_code,'INTERNAL') = 'INTERNAL')
2422: THEN
2449: -- will take care of exploding and updating the picture
2450: -- of included_items in the oe_order_lines table.
2451:
2452: IF l_debug_level > 0 THEN
2453: oe_debug_pub.add( 'CALLING PROCESS_INCLUDED_ITEMS ' , 1 ) ;
2454: END IF;
2455:
2456: l_old_recursion_mode := OE_GLOBALS.G_RECURSION_MODE;
2457: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
2465: p_freeze => FALSE);
2466:
2467: -- OE_GLOBALS.G_RECURSION_MODE := l_old_recursion_mode;
2468: IF l_debug_level > 0 THEN
2469: oe_debug_pub.add( 'AFTER CALLING PROCESS_INCLUDED_ITEMS ' , 1 ) ;
2470: END IF;
2471:
2472: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2481:
2482: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := l_old_perform;
2483:
2484: IF l_debug_level > 0 THEN
2485: oe_debug_pub.add( 'MERGING INCLUDED ITEM TABLE WITH LINE TABLE' , 1 ) ;
2486: END IF;
2487:
2488: -- Merge the Included Item table to the line table
2489: FOR J IN 1..l_ii_line_tbl.count LOOP
2534: END;
2535: END LOOP;
2536:
2537: IF l_debug_level > 0 THEN
2538: oe_debug_pub.add( 'CALLING PROCESS_SET_OF_LINES WITH : ' || L_LINE_TBL.COUNT , 1 ) ;
2539: END IF;
2540:
2541: -- Added this part of code to populate reserved qty to
2542: -- fix bug 1874169.
2586: END IF;
2587:
2588: -- Added code to fix bug 1899651.
2589: IF l_debug_level > 0 THEN
2590: oe_debug_pub.add( 'AFTER PROCESS SET_OF_LINES ' || X_RETURN_STATUS , 1 ) ;
2591: END IF;
2592: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2593:
2594: IF l_debug_level > 0 THEN
2591: END IF;
2592: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2593:
2594: IF l_debug_level > 0 THEN
2595: oe_debug_pub.add( 'WELCOME TO AUTO PUSH GROUP ' || L_LINE_TBL.COUNT , 1 ) ;
2596: END IF;
2597: IF fnd_profile.value('ONT_AUTO_PUSH_GRP_DATE') = 'Y'
2598: AND (l_line_tbl(1).arrival_set_id is not null OR
2599: l_line_tbl(1).ship_set_id is not null) THEN
2621: p_line_id => Null,
2622: x_line_tbl => l_grp_line_tbl);
2623:
2624: IF l_debug_level > 0 THEN
2625: oe_debug_pub.add( 'AFTER QUERY SETS :' || L_GRP_LINE_TBL.COUNT , 1 ) ;
2626: END IF;
2627: IF l_grp_line_tbl.count > 0 THEN
2628: IF l_need_reschedule = 'N' THEN
2629:
2655: IF l_grp_line_tbl(I).line_id =
2656: l_line_tbl(l_option_search).line_id THEN
2657: l_option_exists := 1;
2658: IF l_debug_level > 0 THEN
2659: oe_debug_pub.add( 'OPTION ALREADY EXISTS IN THE LINE TABLE' ) ;
2660: END IF;
2661: EXIT;
2662: END IF;
2663: END LOOP;
2675: END IF;
2676: END LOOP;
2677:
2678: IF l_debug_level > 0 THEN
2679: oe_debug_pub.add( 'BEFORE CALLING PROCESS SET ' || L_LINE_TBL.COUNT , 1 ) ;
2680: END IF;
2681: Process_set_of_lines(p_old_line_tbl => l_old_line_tbl,
2682: p_write_to_db => FND_API.G_FALSE,
2683: x_atp_tbl => l_atp_tbl,
2702: x_msg_data => l_msg_data
2703: );
2704:
2705: IF l_debug_level > 0 THEN
2706: oe_debug_pub.add( 'AFTER CALLING UPDATE SET' ) ;
2707: END IF;
2708:
2709: END IF;
2710: END IF; -- l_grp_count.
2720: p_x_line_tbl := l_line_tbl;
2721: <
2722: null;
2723: IF l_debug_level > 0 THEN
2724: oe_debug_pub.add( 'EXITING SCHEDULE_SET_OF_LINES' , 1 ) ;
2725: END IF;
2726:
2727: EXCEPTION
2728: WHEN FND_API.G_EXC_ERROR THEN
2821: l_serial_code NUMBER;
2822:
2823:
2824: --
2825: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2826: --
2827: BEGIN
2828:
2829: IF l_debug_level > 0 THEN
2826: --
2827: BEGIN
2828:
2829: IF l_debug_level > 0 THEN
2830: oe_debug_pub.add( 'ENTERING PROCESS_SET_OF_LINES' , 1 ) ;
2831: END IF;
2832:
2833: l_line_tbl := p_x_line_tbl;
2834: l_old_line_tbl := p_old_line_tbl;
2900:
2901: l_line_tbl(j).reserved_quantity := 0;
2902: l_re_reserve_flag(j) := 'Y';
2903: IF l_debug_level > 0 THEN
2904: oe_debug_pub.add( 'L_RE_RESERVE_FLAG :' || J || L_RE_RESERVE_FLAG ( J ) , 1 ) ;
2905: END IF;
2906:
2907: END IF; -- Reserved qty.
2908: END IF; -- ship from change.
2916: IF l_line_tbl(j).ordered_quantity <
2917: nvl(l_line_tbl(j).reserved_quantity,0) THEN
2918:
2919: IF l_debug_level > 0 THEN
2920: oe_debug_pub.add( 'CALLING UNRESERVE FOR DIFFERENCE' , 1 ) ;
2921: END IF;
2922: /*OE_ORDER_SCH_UTIL.Unreserve_Line
2923: ( p_line_rec => l_line_tbl(J)
2924: , p_quantity_to_unreserve => l_line_tbl(J).reserved_quantity -
2941: END IF;
2942:
2943: l_schedule_action_code := l_line_tbl(1).schedule_action_code;
2944: IF l_debug_level > 0 THEN
2945: oe_debug_pub.add( 'SCHEDULE ACTION IS : ' || L_SCHEDULE_ACTION_CODE , 1 ) ;
2946: END IF;
2947:
2948:
2949: -- When User reserves the group lines without scheduling, changes the status to
2953: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE
2954: AND l_line_tbl(1).schedule_status_code is null THEN
2955:
2956: IF l_debug_level > 0 THEN
2957: oe_debug_pub.add( ' GRP SCHEDULE ACTION IS : ' || L_SCHEDULE_ACTION_CODE , 1 ) ;
2958: END IF;
2959: l_reset_action := 'Y';
2960:
2961: FOR J IN 1..l_line_tbl.count LOOP
2980: , p_old_line_tbl => l_old_line_tbl
2981: , x_atp_table => l_mrp_atp_rec);
2982:
2983: IF l_debug_level > 0 THEN
2984: oe_debug_pub.add( 'AFTER CALLING LOAD_MRP_REQUEST' , 1 ) ;
2985: END IF;
2986:
2987: -- Added if stmt to fix bug 2162690.
2988: IF l_mrp_atp_rec.error_code.count > 0 THEN
2988: IF l_mrp_atp_rec.error_code.count > 0 THEN
2989: l_session_id := OE_ORDER_SCH_UTIL.Get_Session_Id;
2990:
2991: IF l_debug_level > 0 THEN
2992: oe_debug_pub.add( 'CALLING MRPS ATP API ' || L_SESSION_ID , 1 ) ;
2993: END IF;
2994:
2995: MRP_ATP_PUB.Call_ATP
2996: ( p_session_id => l_session_id
3003: , x_msg_data => mrp_msg_data
3004: , x_msg_count => l_msg_count);
3005:
3006: IF l_debug_level > 0 THEN
3007: oe_debug_pub.add( 'AFTER CALLING MRPS ATP API: ' || L_RETURN_STATUS , 1 ) ;
3008: END IF;
3009:
3010: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3012: END IF;
3013:
3014: IF l_debug_level > 0 THEN
3015: oe_debug_pub.add( 'GRP1: CALLING LOAD_RESULTS' , 1 ) ;
3016: END IF;
3017:
3018: OE_ORDER_SCH_UTIL.Load_Results
3019: ( p_atp_table => l_out_mtp_atp_rec
3021: , x_atp_tbl => l_out_atp_table
3022: , x_return_status => l_return_status);
3023:
3024: IF l_debug_level > 0 THEN
3025: oe_debug_pub.add( 'GRP1: AFTER CALLING LOAD_RESULTS: ' || L_RETURN_STATUS , 1 ) ;
3026: END IF;
3027:
3028: x_atp_tbl := l_out_atp_table;
3029: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3035:
3036: -- Code has been moved up to fix bug 2408551.
3037:
3038: IF l_debug_level > 0 THEN
3039: oe_debug_pub.add( '----- AFTER PRINTING OUT NOCOPY TABLE -----' , 1 ) ;
3040:
3041: END IF;
3042: IF l_debug_level > 0 THEN
3043: oe_debug_pub.add( ' ' , 1 ) ;
3039: oe_debug_pub.add( '----- AFTER PRINTING OUT NOCOPY TABLE -----' , 1 ) ;
3040:
3041: END IF;
3042: IF l_debug_level > 0 THEN
3043: oe_debug_pub.add( ' ' , 1 ) ;
3044: END IF;
3045:
3046:
3047: IF NOT OE_GLOBALS.Equal(l_schedule_action_code,
3056:
3057: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
3058:
3059: IF l_debug_level > 0 THEN
3060: oe_debug_pub.add( 'L_LINE_TBL.SHIP_FROM_ORG_ID' || L_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID ) ;
3061: END IF;
3062: IF l_debug_level > 0 THEN
3063: oe_debug_pub.add( 'L_LINE_TBL.SCHEDULE_SHIP_DATE' || L_LINE_TBL ( 1 ) .SCHEDULE_SHIP_DATE ) ;
3064: END IF;
3059: IF l_debug_level > 0 THEN
3060: oe_debug_pub.add( 'L_LINE_TBL.SHIP_FROM_ORG_ID' || L_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID ) ;
3061: END IF;
3062: IF l_debug_level > 0 THEN
3063: oe_debug_pub.add( 'L_LINE_TBL.SCHEDULE_SHIP_DATE' || L_LINE_TBL ( 1 ) .SCHEDULE_SHIP_DATE ) ;
3064: END IF;
3065: IF l_debug_level > 0 THEN
3066: oe_debug_pub.add( 'L_LINE_TBL.SCHEDULE_STATUS_CODE' || L_LINE_TBL ( 1 ) .SCHEDULE_STATUS_CODE ) ;
3067: END IF;
3062: IF l_debug_level > 0 THEN
3063: oe_debug_pub.add( 'L_LINE_TBL.SCHEDULE_SHIP_DATE' || L_LINE_TBL ( 1 ) .SCHEDULE_SHIP_DATE ) ;
3064: END IF;
3065: IF l_debug_level > 0 THEN
3066: oe_debug_pub.add( 'L_LINE_TBL.SCHEDULE_STATUS_CODE' || L_LINE_TBL ( 1 ) .SCHEDULE_STATUS_CODE ) ;
3067: END IF;
3068: IF l_debug_level > 0 THEN
3069: oe_debug_pub.add( 'L_LINE_TBL.INVENTORY_ITEM_ID' || L_LINE_TBL ( 1 ) .INVENTORY_ITEM_ID ) ;
3070: END IF;
3065: IF l_debug_level > 0 THEN
3066: oe_debug_pub.add( 'L_LINE_TBL.SCHEDULE_STATUS_CODE' || L_LINE_TBL ( 1 ) .SCHEDULE_STATUS_CODE ) ;
3067: END IF;
3068: IF l_debug_level > 0 THEN
3069: oe_debug_pub.add( 'L_LINE_TBL.INVENTORY_ITEM_ID' || L_LINE_TBL ( 1 ) .INVENTORY_ITEM_ID ) ;
3070: END IF;
3071:
3072: -- Set the status of the lines to update
3073:
3094: OE_SET_UTIL.g_set_recursive_flag := TRUE;
3095: IF l_out_line_tbl1.count >= 1 THEN
3096:
3097: IF l_debug_level > 0 THEN
3098: oe_debug_pub.add( 'NOW CALLING OE_ORDER_SCH_UTIL.UPDATE_LINE_RECORD' , 1 ) ;
3099: END IF;
3100:
3101: OE_ORDER_SCH_UTIL.Update_line_record
3102: ( p_line_tbl => l_old_line_tbl1
3105: , p_recursive_call => FND_API.G_FALSE
3106: , x_return_status => l_return_status);
3107:
3108: IF l_debug_level > 0 THEN
3109: oe_debug_pub.add( 'AFTER CALLING UPDATE_LINE_RECORD: ' || L_RETURN_STATUS , 1 ) ;
3110: END IF;
3111:
3112: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3185: -- If the user action is Reserve, then call reservation for reserving the line.
3186:
3187:
3188: IF l_debug_level > 0 THEN
3189: oe_debug_pub.add( ' GRP RES CALL INV ' , 1 ) ;
3190: END IF;
3191:
3192: FOR J IN 1..l_line_tbl.count LOOP
3193:
3191:
3192: FOR J IN 1..l_line_tbl.count LOOP
3193:
3194: IF l_debug_level > 0 THEN
3195: oe_debug_pub.add( 'LINE TO RESERVE ' || L_LINE_TBL ( J ) .LINE_ID , 1 ) ;
3196: END IF;
3197:
3198: IF l_reset_action = 'Y' THEN
3199:
3218: l_line_tbl(j).line_type_id);
3219:
3220:
3221: IF l_debug_level > 0 THEN
3222: oe_debug_pub.add( 'ACTION :' || L_LINE_TBL ( J ) .SCHEDULE_ACTION_CODE , 1 ) ;
3223: END IF;
3224: IF l_debug_level > 0 THEN
3225: oe_debug_pub.add( 'QTY :' || L_LINE_TBL ( J ) .RESERVED_QUANTITY , 1 ) ;
3226: END IF;
3221: IF l_debug_level > 0 THEN
3222: oe_debug_pub.add( 'ACTION :' || L_LINE_TBL ( J ) .SCHEDULE_ACTION_CODE , 1 ) ;
3223: END IF;
3224: IF l_debug_level > 0 THEN
3225: oe_debug_pub.add( 'QTY :' || L_LINE_TBL ( J ) .RESERVED_QUANTITY , 1 ) ;
3226: END IF;
3227:
3228: IF ((l_line_tbl(j).schedule_action_code =
3229: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE
3276: --end newsub
3277:
3278:
3279: IF l_debug_level > 0 THEN
3280: oe_debug_pub.add( 'GRP RES: RESERVED_QUANTITY ' || L_LINE_TBL ( J ) .ORDERED_QUANTITY , 1 ) ;
3281: END IF;
3282:
3283: l_line_tbl(j).reserved_quantity := l_line_tbl(j).ordered_quantity;
3284:
3287: , p_quantity_to_reserve => l_line_tbl(j).ordered_quantity
3288: , x_reservation_rec => l_reservation_rec);
3289:
3290: IF l_debug_level > 0 THEN
3291: oe_debug_pub.add( 'GRP RES AFTER CALLING LOAD INV' , 1 ) ;
3292: END IF;
3293:
3294: -- Call INV with action = RESERVE
3295:
3309: , x_reservation_id => l_rsv_id
3310: );
3311:
3312: IF l_debug_level > 0 THEN
3313: oe_debug_pub.add( 'GRP RES AFTER CALLING CREATE RESERVATION' || L_RETURN_STATUS , 1 ) ;
3314: END IF;
3315:
3316: -- Bug No:2097933
3317: -- If the Reservation was succesfull we set
3320: OE_ORDER_SCH_UTIL.OESCH_PERFORMED_RESERVATION := 'Y';
3321: END IF;
3322:
3323: IF l_debug_level > 0 THEN
3324: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
3325: END IF;
3326:
3327: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3328: l_line_tbl(j).reserved_quantity := null;
3351: END IF;
3352:
3353: END IF; -- return status
3354: IF l_debug_level > 0 THEN
3355: oe_debug_pub.add( 'GRP RES AFTER CALLING INVS CREATE_RESERVATION' , 1 ) ;
3356: END IF;
3357:
3358:
3359: -- l_line_tbl(j).reserved_quantity := l_quantity_reserved;
3386: -- 02-jun-2000 mpetrosi added org_id to query_reservation end
3387:
3388:
3389: IF l_debug_level > 0 THEN
3390: oe_debug_pub.add( 'RSCH: CALLING INVS QUERY_RESERVATION ' , 1 ) ;
3391: END IF;
3392:
3393: inv_reservation_pub.query_reservation
3394: ( p_api_version_number => 1.0
3404: , p_sort_by_req_date => l_sort_by_req_date
3405: );
3406:
3407: IF l_debug_level > 0 THEN
3408: oe_debug_pub.add( 'AFTER CALLING INVS QUERY_RESERVATION: ' || L_RETURN_STATUS , 1 ) ;
3409: END IF;
3410:
3411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3414: RAISE FND_API.G_EXC_ERROR;
3415: END IF;
3416:
3417: IF l_debug_level > 0 THEN
3418: oe_debug_pub.add( 'RESERVATION RECORD COUNT IS: ' || L_RSV_TBL.COUNT , 1 ) ;
3419: END IF;
3420:
3421: -- Let's get the total reserved_quantity
3422: FOR M IN 1..l_rsv_tbl.count LOOP
3424: l_reservation_rec := l_rsv_tbl(M);
3425: l_reservation_rec.requirement_date := l_line_tbl(j).schedule_ship_date;
3426:
3427: IF l_debug_level > 0 THEN
3428: oe_debug_pub.add( 'RSCH: CALLING INVS UPDATE RESERVATION ' , 1 ) ;
3429: END IF;
3430: inv_reservation_pub.update_reservation
3431: ( p_api_version_number => 1.0
3432: , p_init_msg_lst => fnd_api.g_true
3440: , p_validation_flag => fnd_api.g_true
3441: );
3442:
3443: IF l_debug_level > 0 THEN
3444: oe_debug_pub.add( 'AFTER CALLING INVS UPDATE_RESERVATION: ' || L_RETURN_STATUS , 1 ) ;
3445: END IF;
3446:
3447: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3448: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3451: fnd_message.set_encoded(l_msg_data);
3452: l_buffer := fnd_message.get;
3453: oe_msg_pub.add_text(p_message_text => l_buffer);
3454: IF l_debug_level > 0 THEN
3455: oe_debug_pub.add( 'ERROR : '|| L_BUFFER , 1 ) ;
3456: END IF;
3457: END IF;
3458: RAISE FND_API.G_EXC_ERROR;
3459: END IF;
3478:
3479: FOR K IN 1..l_out_atp_table.count LOOP
3480:
3481: IF l_debug_level > 0 THEN
3482: oe_debug_pub.add( 'CALLING QUERY_QTY_TREE' , 1 ) ;
3483: END IF;
3484:
3485: -- added fabdi 03/May/2001
3486: -- added p_line_id - AS DEFAULT for process atp to work
3510: l_out_atp_table(K).available_to_reserve := l_avail_to_reserve;
3511: l_out_atp_table(K).QTY_ON_REQUEST_DATE := l_avail_to_reserve; -- This is Available field in ATP
3512:
3513: IF l_debug_level > 0 THEN
3514: oe_debug_pub.add( 'L_ON_HAND_QTY ' || L_ON_HAND_QTY ) ;
3515: END IF;
3516: IF l_debug_level > 0 THEN
3517: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE ' || L_AVAIL_TO_RESERVE ) ;
3518: END IF;
3513: IF l_debug_level > 0 THEN
3514: oe_debug_pub.add( 'L_ON_HAND_QTY ' || L_ON_HAND_QTY ) ;
3515: END IF;
3516: IF l_debug_level > 0 THEN
3517: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE ' || L_AVAIL_TO_RESERVE ) ;
3518: END IF;
3519: IF l_debug_level > 0 THEN
3520: oe_debug_pub.add( 'ORDERED_QUANTITY ' || L_AVAIL_TO_RESERVE ) ;
3521: END IF;
3516: IF l_debug_level > 0 THEN
3517: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE ' || L_AVAIL_TO_RESERVE ) ;
3518: END IF;
3519: IF l_debug_level > 0 THEN
3520: oe_debug_pub.add( 'ORDERED_QUANTITY ' || L_AVAIL_TO_RESERVE ) ;
3521: END IF;
3522: else
3523: l_out_atp_table(K).on_hand_qty := l_on_hand_qty;
3524: l_out_atp_table(K).available_to_reserve := l_avail_to_reserve;
3522: else
3523: l_out_atp_table(K).on_hand_qty := l_on_hand_qty;
3524: l_out_atp_table(K).available_to_reserve := l_avail_to_reserve;
3525: IF l_debug_level > 0 THEN
3526: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
3527: END IF;
3528: IF l_debug_level > 0 THEN
3529: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
3530: END IF;
3525: IF l_debug_level > 0 THEN
3526: oe_debug_pub.add( 'L_ON_HAND_QTY' || L_ON_HAND_QTY ) ;
3527: END IF;
3528: IF l_debug_level > 0 THEN
3529: oe_debug_pub.add( 'L_AVAIL_TO_RESERVE' || L_AVAIL_TO_RESERVE ) ;
3530: END IF;
3531: end if;
3532: -- end fabdi
3533:
3538: FOR I IN 1..l_line_tbl.count LOOP
3539:
3540:
3541: IF l_debug_level > 0 THEN
3542: oe_debug_pub.add( 'LINE_ID :' || L_LINE_TBL ( I ) .LINE_ID , 20 ) ;
3543: END IF;
3544: IF l_debug_level > 0 THEN
3545: oe_debug_pub.add( 'ORDER_QUANTITY :' || L_LINE_TBL ( I ) .ORDERED_QUANTITY , 20 ) ;
3546: END IF;
3541: IF l_debug_level > 0 THEN
3542: oe_debug_pub.add( 'LINE_ID :' || L_LINE_TBL ( I ) .LINE_ID , 20 ) ;
3543: END IF;
3544: IF l_debug_level > 0 THEN
3545: oe_debug_pub.add( 'ORDER_QUANTITY :' || L_LINE_TBL ( I ) .ORDERED_QUANTITY , 20 ) ;
3546: END IF;
3547: IF l_debug_level > 0 THEN
3548: oe_debug_pub.add( 'SCHEDULE_SHIP_DATE :' || L_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE , 20 ) ;
3549: END IF;
3544: IF l_debug_level > 0 THEN
3545: oe_debug_pub.add( 'ORDER_QUANTITY :' || L_LINE_TBL ( I ) .ORDERED_QUANTITY , 20 ) ;
3546: END IF;
3547: IF l_debug_level > 0 THEN
3548: oe_debug_pub.add( 'SCHEDULE_SHIP_DATE :' || L_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE , 20 ) ;
3549: END IF;
3550: IF l_debug_level > 0 THEN
3551: oe_debug_pub.add( 'SCHEDULE_ARRIVAL_DATE :' || L_LINE_TBL ( I ) .SCHEDULE_ARRIVAL_DATE , 20 ) ;
3552: END IF;
3547: IF l_debug_level > 0 THEN
3548: oe_debug_pub.add( 'SCHEDULE_SHIP_DATE :' || L_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE , 20 ) ;
3549: END IF;
3550: IF l_debug_level > 0 THEN
3551: oe_debug_pub.add( 'SCHEDULE_ARRIVAL_DATE :' || L_LINE_TBL ( I ) .SCHEDULE_ARRIVAL_DATE , 20 ) ;
3552: END IF;
3553: IF l_debug_level > 0 THEN
3554: oe_debug_pub.add( 'SHIP_FROM_ORG_ID :' || L_LINE_TBL ( I ) .SHIP_FROM_ORG_ID , 20 ) ;
3555: END IF;
3550: IF l_debug_level > 0 THEN
3551: oe_debug_pub.add( 'SCHEDULE_ARRIVAL_DATE :' || L_LINE_TBL ( I ) .SCHEDULE_ARRIVAL_DATE , 20 ) ;
3552: END IF;
3553: IF l_debug_level > 0 THEN
3554: oe_debug_pub.add( 'SHIP_FROM_ORG_ID :' || L_LINE_TBL ( I ) .SHIP_FROM_ORG_ID , 20 ) ;
3555: END IF;
3556: IF l_debug_level > 0 THEN
3557: oe_debug_pub.add( 'SCHEDULE_STATUS_CODE :' || L_LINE_TBL ( I ) .SCHEDULE_STATUS_CODE , 20 ) ;
3558: END IF;
3553: IF l_debug_level > 0 THEN
3554: oe_debug_pub.add( 'SHIP_FROM_ORG_ID :' || L_LINE_TBL ( I ) .SHIP_FROM_ORG_ID , 20 ) ;
3555: END IF;
3556: IF l_debug_level > 0 THEN
3557: oe_debug_pub.add( 'SCHEDULE_STATUS_CODE :' || L_LINE_TBL ( I ) .SCHEDULE_STATUS_CODE , 20 ) ;
3558: END IF;
3559: IF l_debug_level > 0 THEN
3560: oe_debug_pub.add( 'RESERVED_QUANTITY :' || L_LINE_TBL ( I ) .RESERVED_QUANTITY , 20 ) ;
3561: END IF;
3556: IF l_debug_level > 0 THEN
3557: oe_debug_pub.add( 'SCHEDULE_STATUS_CODE :' || L_LINE_TBL ( I ) .SCHEDULE_STATUS_CODE , 20 ) ;
3558: END IF;
3559: IF l_debug_level > 0 THEN
3560: oe_debug_pub.add( 'RESERVED_QUANTITY :' || L_LINE_TBL ( I ) .RESERVED_QUANTITY , 20 ) ;
3561: END IF;
3562: IF l_debug_level > 0 THEN
3563: oe_debug_pub.add( ' ' , 20 ) ;
3564: END IF;
3559: IF l_debug_level > 0 THEN
3560: oe_debug_pub.add( 'RESERVED_QUANTITY :' || L_LINE_TBL ( I ) .RESERVED_QUANTITY , 20 ) ;
3561: END IF;
3562: IF l_debug_level > 0 THEN
3563: oe_debug_pub.add( ' ' , 20 ) ;
3564: END IF;
3565:
3566: END LOOP;
3567: /*
3564: END IF;
3565:
3566: END LOOP;
3567: /*
3568: oe_debug_pub.add('----- After Printing OUT Table -----',1);
3569: oe_debug_pub.add(' ',1);
3570:
3571: IF NOT OE_GLOBALS.Equal(l_schedule_action_code,
3572: OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK) AND
3565:
3566: END LOOP;
3567: /*
3568: oe_debug_pub.add('----- After Printing OUT Table -----',1);
3569: oe_debug_pub.add(' ',1);
3570:
3571: IF NOT OE_GLOBALS.Equal(l_schedule_action_code,
3572: OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK) AND
3573: NOT OE_GLOBALS.Equal(l_schedule_action_code,
3579: -- which in turn will call scheduling if this flag is not turned off.
3580:
3581: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
3582:
3583: oe_debug_pub.add('l_line_tbl.ship_from_org_id' ||
3584: l_line_tbl(1).ship_from_org_id);
3585: oe_debug_pub.add('l_line_tbl.schedule_ship_date' ||
3586: l_line_tbl(1).schedule_ship_date);
3587: oe_debug_pub.add('l_line_tbl.schedule_status_code' ||
3581: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
3582:
3583: oe_debug_pub.add('l_line_tbl.ship_from_org_id' ||
3584: l_line_tbl(1).ship_from_org_id);
3585: oe_debug_pub.add('l_line_tbl.schedule_ship_date' ||
3586: l_line_tbl(1).schedule_ship_date);
3587: oe_debug_pub.add('l_line_tbl.schedule_status_code' ||
3588: l_line_tbl(1).schedule_status_code);
3589: oe_debug_pub.add('l_line_tbl.inventory_item_id' ||
3583: oe_debug_pub.add('l_line_tbl.ship_from_org_id' ||
3584: l_line_tbl(1).ship_from_org_id);
3585: oe_debug_pub.add('l_line_tbl.schedule_ship_date' ||
3586: l_line_tbl(1).schedule_ship_date);
3587: oe_debug_pub.add('l_line_tbl.schedule_status_code' ||
3588: l_line_tbl(1).schedule_status_code);
3589: oe_debug_pub.add('l_line_tbl.inventory_item_id' ||
3590: l_line_tbl(1).inventory_item_id);
3591:
3585: oe_debug_pub.add('l_line_tbl.schedule_ship_date' ||
3586: l_line_tbl(1).schedule_ship_date);
3587: oe_debug_pub.add('l_line_tbl.schedule_status_code' ||
3588: l_line_tbl(1).schedule_status_code);
3589: oe_debug_pub.add('l_line_tbl.inventory_item_id' ||
3590: l_line_tbl(1).inventory_item_id);
3591:
3592: -- Set the status of the lines to update
3593:
3613:
3614: OE_SET_UTIL.g_set_recursive_flag := TRUE;
3615: IF l_out_line_tbl1.count >= 1 THEN
3616:
3617: oe_debug_pub.add('Now Calling OE_ORDER_SCH_UTIL.Update_line_record',1);
3618:
3619: OE_ORDER_SCH_UTIL.Update_line_record
3620: ( p_line_tbl => l_old_line_tbl1
3621: , p_x_new_line_tbl => l_out_line_tbl1
3622: , p_write_to_db => p_write_to_db
3623: , p_recursive_call => FND_API.G_FALSE
3624: , x_return_status => l_return_status);
3625:
3626: oe_debug_pub.add('After Calling Update_line_record: ' ||
3627: l_return_status,1);
3628:
3629: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3664: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3665:
3666:
3667: ELSE
3668: oe_debug_pub.add('Assigning l_out_table to x_line_tbl',1);
3669: p_x_line_tbl := l_line_tbl;
3670: END IF;
3671: */
3672: p_x_line_tbl := l_line_tbl;
3673: x_atp_tbl := l_out_atp_table;
3674: x_return_status := l_return_status;
3675:
3676: IF l_debug_level > 0 THEN
3677: oe_debug_pub.add( 'PASSING BACK ' || L_OUT_ATP_TABLE.COUNT || ' LINES' || P_X_LINE_TBL.COUNT , 1 ) ;
3678: END IF;
3679: IF l_debug_level > 0 THEN
3680: oe_debug_pub.add( 'EXITING PROCESS_SET_OF_LINES WITH: ' || L_RETURN_STATUS , 1 ) ;
3681: END IF;
3676: IF l_debug_level > 0 THEN
3677: oe_debug_pub.add( 'PASSING BACK ' || L_OUT_ATP_TABLE.COUNT || ' LINES' || P_X_LINE_TBL.COUNT , 1 ) ;
3678: END IF;
3679: IF l_debug_level > 0 THEN
3680: oe_debug_pub.add( 'EXITING PROCESS_SET_OF_LINES WITH: ' || L_RETURN_STATUS , 1 ) ;
3681: END IF;
3682:
3683: EXCEPTION
3684: WHEN FND_API.G_EXC_ERROR THEN
3725: x_result out nocopy number)
3726:
3727: IS
3728: --
3729: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3730: --
3731: BEGIN
3732: x_result := 0;
3733: END;
3755: ORDER BY arrival_set_id,ship_set_id,line_number,shipment_number,nvl(option_number,-1);
3756:
3757: -- Added nvl stmt to fix bug 1937881.
3758: --
3759: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3760: --
3761: BEGIN
3762:
3763: IF l_debug_level > 0 THEN
3760: --
3761: BEGIN
3762:
3763: IF l_debug_level > 0 THEN
3764: oe_debug_pub.add( 'ENTERING QUERY LINES' , 1 ) ;
3765: END IF;
3766:
3767: -- Loop over fetched records
3768:
3779:
3780:
3781: -- Return fetched table
3782: IF l_debug_level > 0 THEN
3783: oe_debug_pub.add( 'EXITING OE_GRP_SCH_UTIL.QUERY_LINES' , 1 ) ;
3784: END IF;
3785:
3786: -- RETURN l_line_tbl;
3787:
3817:
3818: IS
3819: l_return_status VARCHAR2(1);
3820: --
3821: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3822: --
3823: BEGIN
3824:
3825: IF l_debug_level > 0 THEN
3822: --
3823: BEGIN
3824:
3825: IF l_debug_level > 0 THEN
3826: oe_debug_pub.add( 'ENTERING VALIDATE_GROUP_REQUEST' , 1 ) ;
3827: END IF;
3828:
3829: -- Currently, we do not allow unscheduling a line, if it belongs
3830: -- to a user defined set (ship or arrival set).
3850: END IF;
3851:
3852: x_return_status := l_return_status;
3853: IF l_debug_level > 0 THEN
3854: oe_debug_pub.add( 'EXITING VALIDATE_GROUP_REQUEST WITH: ' || L_RETURN_STATUS , 1 ) ;
3855: END IF;
3856: IF l_debug_level > 0 THEN
3857: oe_debug_pub.add( ' ' , 1 ) ;
3858: END IF;
3853: IF l_debug_level > 0 THEN
3854: oe_debug_pub.add( 'EXITING VALIDATE_GROUP_REQUEST WITH: ' || L_RETURN_STATUS , 1 ) ;
3855: END IF;
3856: IF l_debug_level > 0 THEN
3857: oe_debug_pub.add( ' ' , 1 ) ;
3858: END IF;
3859:
3860: END Validate_Group_Request;
3861:
3873: IS
3874: l_line_number NUMBER;
3875: l_dummy VARCHAR2(10);
3876: --
3877: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3878: --
3879: BEGIN
3880: FOR I in 1..p_line_tbl.count LOOP
3881:
3963: l_top_model_line_id NUMBER;
3964: pto_model_count NUMBER := 0;
3965:
3966: --
3967: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3968: --
3969: BEGIN
3970: IF l_debug_level > 0 THEN
3971: oe_debug_pub.add( 'GG: ENTERING SCH_MULTI_SELECTED_LINES' , 1 ) ;
3967: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3968: --
3969: BEGIN
3970: IF l_debug_level > 0 THEN
3971: oe_debug_pub.add( 'GG: ENTERING SCH_MULTI_SELECTED_LINES' , 1 ) ;
3972: END IF;
3973:
3974: IF l_debug_level > 0 THEN
3975: oe_debug_pub.add( 'LINE COUNT IS: ' || P_LINE_COUNT , 1 ) ;
3971: oe_debug_pub.add( 'GG: ENTERING SCH_MULTI_SELECTED_LINES' , 1 ) ;
3972: END IF;
3973:
3974: IF l_debug_level > 0 THEN
3975: oe_debug_pub.add( 'LINE COUNT IS: ' || P_LINE_COUNT , 1 ) ;
3976: END IF;
3977: IF l_debug_level > 0 THEN
3978: oe_debug_pub.add( 'ACTION IS: ' || P_ACTION , 1 ) ;
3979: END IF;
3974: IF l_debug_level > 0 THEN
3975: oe_debug_pub.add( 'LINE COUNT IS: ' || P_LINE_COUNT , 1 ) ;
3976: END IF;
3977: IF l_debug_level > 0 THEN
3978: oe_debug_pub.add( 'ACTION IS: ' || P_ACTION , 1 ) ;
3979: END IF;
3980:
3981: /* Bug :2222360 */
3982: IF p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
3980:
3981: /* Bug :2222360 */
3982: IF p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
3983: IF l_debug_level > 0 THEN
3984: oe_debug_pub.add( 'INSIDE ATP CHECK SAVEPOINT' ) ;
3985: END IF;
3986: SAVEPOINT ATP_CHECK;
3987: ELSE
3988: SAVEPOINT SCH_ACTION;
3996:
3997:
3998: l_line_id := to_number(substr(l_record_ids,initial, nextpos-initial));
3999: IF l_debug_level > 0 THEN
4000: oe_debug_pub.add( 'LINE_ID : ' || L_LINE_ID , 1 ) ;
4001: END IF;
4002:
4003: initial := nextpos + 1.0;
4004: j := j + 1.0;
4071: IF l_option_tbl(option_count).line_id =
4072: l_line_tbl(l_option_search).line_id THEN
4073: l_option_exists := 1;
4074: IF l_debug_level > 0 THEN
4075: oe_debug_pub.add( 'OPTION ALREADY EXISTS IN LINE TABLE' ) ;
4076: END IF;
4077: EXIT;
4078: END IF;
4079: END LOOP;
4094:
4095: atp_count := 1;
4096:
4097: IF l_debug_level > 0 THEN
4098: oe_debug_pub.add( 'LINES TO PROCESS : ' || L_LINE_TBL.COUNT , 1 ) ;
4099: END IF;
4100:
4101: FOR line_index IN 1..l_line_tbl.count
4102: LOOP
4225: l_line_rec.ship_model_complete_flag = 'Y'))
4226: THEN
4227:
4228: IF l_debug_level > 0 THEN
4229: oe_debug_pub.add( 'SCHEDULING A GROUP ' , 1 ) ;
4230: END IF;
4231: l_line_rec.schedule_action_code := p_action;
4232:
4233: IF l_debug_level > 0 THEN
4230: END IF;
4231: l_line_rec.schedule_action_code := p_action;
4232:
4233: IF l_debug_level > 0 THEN
4234: oe_debug_pub.add( 'SM: CREATING GROUP_REQUEST' , 1 ) ;
4235: END IF;
4236:
4237: OE_ORDER_SCH_UTIL.Create_Group_Request
4238: ( p_line_rec => l_line_rec
4248: AND (l_line_rec.arrival_set_id is not null OR
4249: l_line_rec.ship_set_id is not null) THEN
4250:
4251: IF l_debug_level > 0 THEN
4252: oe_debug_pub.add( 'INSIDE RESERVE , SMC AND SET' ) ;
4253: END IF;
4254: l_group_req_rec.entity_type := OE_ORDER_SCH_UTIL.OESCH_ENTITY_SMC;
4255: l_group_req_rec.ship_set_number := l_line_rec.top_model_line_id;
4256:
4259: -- Line belongs to a group. Needs to be scheduled in a group.
4260:
4261:
4262: IF l_debug_level > 0 THEN
4263: oe_debug_pub.add( 'SM: CALLING GRP_SCHEDULE: ' || L_RETURN_STATUS , 1 ) ;
4264: END IF;
4265:
4266: Group_Schedule
4267: ( p_group_req_rec => l_group_req_rec
4268: ,x_atp_tbl => l_out_atp_tbl
4269: ,x_return_status => l_return_status);
4270:
4271: IF l_debug_level > 0 THEN
4272: oe_debug_pub.add( 'SM: AFTER CALLING GROUP_SCHEDULE: ' || L_RETURN_STATUS , 1 ) ;
4273: END IF;
4274:
4275: FOR J IN 1..l_out_atp_tbl.count
4276: LOOP
4295: l_line_rec.schedule_action_code := p_action;
4296: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
4297:
4298: IF l_debug_level > 0 THEN
4299: oe_debug_pub.add( 'SCHEDULING LINE: ' || L_LINE_REC.LINE_ID , 1 ) ;
4300: END IF;
4301: IF l_debug_level > 0 THEN
4302: oe_debug_pub.add( 'ITEM TYPE IS : ' || L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
4303: END IF;
4298: IF l_debug_level > 0 THEN
4299: oe_debug_pub.add( 'SCHEDULING LINE: ' || L_LINE_REC.LINE_ID , 1 ) ;
4300: END IF;
4301: IF l_debug_level > 0 THEN
4302: oe_debug_pub.add( 'ITEM TYPE IS : ' || L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
4303: END IF;
4304: IF l_debug_level > 0 THEN
4305: oe_debug_pub.add( ' ' , 1 ) ;
4306: END IF;
4301: IF l_debug_level > 0 THEN
4302: oe_debug_pub.add( 'ITEM TYPE IS : ' || L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
4303: END IF;
4304: IF l_debug_level > 0 THEN
4305: oe_debug_pub.add( ' ' , 1 ) ;
4306: END IF;
4307:
4308:
4309: IF l_debug_level > 0 THEN
4306: END IF;
4307:
4308:
4309: IF l_debug_level > 0 THEN
4310: oe_debug_pub.add( 'GRP2: CALLING SCHEDULE LINE' , 1 ) ;
4311: END IF;
4312:
4313: OE_ORDER_SCH_UTIL.Schedule_line
4314: ( p_old_line_rec => l_old_line_rec
4324: ROLLBACK TO SCH_LINE;
4325: END IF;
4326:
4327: IF l_debug_level > 0 THEN
4328: oe_debug_pub.add( 'GRP2:AFTER CALLING SCHEDULE LINE' || L_RETURN_STATUS , 1 ) ;
4329: END IF;
4330:
4331: IF l_debug_level > 0 THEN
4332: oe_debug_pub.add( 'COUNT OF ATP IS : ' || L_OUT_ATP_TBL.COUNT , 1 ) ;
4328: oe_debug_pub.add( 'GRP2:AFTER CALLING SCHEDULE LINE' || L_RETURN_STATUS , 1 ) ;
4329: END IF;
4330:
4331: IF l_debug_level > 0 THEN
4332: oe_debug_pub.add( 'COUNT OF ATP IS : ' || L_OUT_ATP_TBL.COUNT , 1 ) ;
4333: END IF;
4334: -- Load the ATP table which could have more records than 1 since
4335: -- included items got scheduled.
4336:
4382:
4383: /* Bug :2222360 */
4384: IF p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
4385: IF l_debug_level > 0 THEN
4386: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
4387: END IF;
4388: ROLLBACK TO ATP_CHECK;
4389: OE_Delayed_Requests_Pvt.Clear_Request
4390: (x_return_status => l_return_status);
4390: (x_return_status => l_return_status);
4391: END IF;
4392:
4393: IF l_debug_level > 0 THEN
4394: oe_debug_pub.add( 'EXITING SCH_MULTI_SELECTED_LINES WITH: ' || L_OUT_RETURN_STATUS , 1 ) ;
4395: END IF;
4396:
4397: EXCEPTION
4398:
4402:
4403: /* Bug :2222360 */
4404: IF p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
4405: IF l_debug_level > 0 THEN
4406: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
4407: END IF;
4408: ROLLBACK TO ATP_CHECK;
4409: OE_Delayed_Requests_Pvt.Clear_Request
4410: (x_return_status => l_return_status);
4426:
4427: /* Bug :2222360 */
4428: IF p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
4429: IF l_debug_level > 0 THEN
4430: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
4431: END IF;
4432: ROLLBACK TO ATP_CHECK;
4433: OE_Delayed_Requests_Pvt.Clear_Request
4434: (x_return_status => l_return_status);
4449:
4450: /* Bug :2222360 */
4451: IF p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
4452: IF l_debug_level > 0 THEN
4453: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
4454: END IF;
4455: ROLLBACK TO ATP_CHECK;
4456: OE_Delayed_Requests_Pvt.Clear_Request
4457: (x_return_status => l_return_status);