[Home] [Help]
16: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
17: IS
18: l_validate_combinition NUMBER;
19: --
20: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
21: --
22: BEGIN
23: IF l_debug_level > 0 THEN
24: oe_debug_pub.add( 'ENTERING OE_GROUP_SCH_UTIL.VALIDATE_ITEM_WAREHOUSE' , 2 ) ;
20: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
21: --
22: BEGIN
23: IF l_debug_level > 0 THEN
24: oe_debug_pub.add( 'ENTERING OE_GROUP_SCH_UTIL.VALIDATE_ITEM_WAREHOUSE' , 2 ) ;
25: END IF;
26: -- bug 3594016
27: IF (p_inventory_item_id is NOT NULL
28: AND p_ship_from_org_id is NOT NULL)
41: x_return_status := FND_API.G_RET_STS_SUCCESS;
42: EXCEPTION
43: WHEN NO_DATA_FOUND THEN
44: IF l_debug_level > 0 THEN
45: oe_debug_pub.add('INVALID ITEM WAREHOUSE COMBINATION',3);
46: END IF;
47: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_ITEM_WHSE');
48: OE_MSG_PUB.Add;
49: x_return_status := FND_API.G_RET_STS_ERROR;
66: l_msg_data VARCHAR2(2000);
67: l_result VARCHAR2(30);
68: l_scheduling_level_code VARCHAR2(30) := NULL;
69: --
70: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
71: --
72: BEGIN
73:
74: x_return_status := FND_API.G_RET_STS_SUCCESS;
72: BEGIN
73:
74: x_return_status := FND_API.G_RET_STS_SUCCESS;
75: IF l_debug_level > 0 THEN
76: oe_debug_pub.add( '..ENTERING OE_SCHEDULE_UTIL.VALIDATE_GROUP_LINE' , 6 ) ;
77: END IF;
78:
79: -- If the line is shipped, scheduling is not allowed.
80:
87: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_SHIPPED');
88: OE_MSG_PUB.Add;
89:
90: IF l_debug_level > 0 THEN
91: oe_debug_pub.add( ' SHIPPED LINE.' , 4 ) ;
92: END IF;
93: x_return_status := FND_API.G_RET_STS_ERROR;
94: RETURN;
95:
101: -- if the user is trying to performing scheduling,
102: -- it is an error
103:
104: IF l_debug_level > 0 THEN
105: oe_debug_pub.add( 'CHECKING THE REQUEST DATE....' , 1 ) ;
106: END IF;
107: IF (p_line_rec.request_date is null OR
108: p_line_rec.request_date = FND_API.G_MISS_DATE) THEN
109:
109:
110: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_REQUEST_DATE');
111: OE_MSG_PUB.Add;
112: IF l_debug_level > 0 THEN
113: oe_debug_pub.add( 'REQUEST DATE IS MISSING' , 4 ) ;
114: END IF;
115: x_return_status := FND_API.G_RET_STS_ERROR;
116: RETURN;
117: END IF;
116: RETURN;
117: END IF;
118:
119: IF l_debug_level > 0 THEN
120: oe_debug_pub.add( 'CHECKING FOR HOLDS....' , 1 ) ;
121: END IF;
122: -- Call will be made to validate_group_line only when
123: -- line is getting scheduled due to action OESCH_ACT_SCHEDULE
124: -- or OESCH_ACT_RESERVE.
129: -- Since the profile is set to NO, we should not schedule
130: -- the line if the line is on hold.
131:
132: IF l_debug_level > 0 THEN
133: oe_debug_pub.add( 'CALLING CHECK HOLDS' , 1 ) ;
134: END IF;
135:
136: OE_Holds_PUB.Check_Holds
137: ( p_api_version => 1.0
147: , p_entity_id => NULL
148: , x_result_out => l_result);
149:
150: IF l_debug_level > 0 THEN
151: oe_debug_pub.add( 'AFTER CALLING CHECK HOLDS: ' || X_RETURN_STATUS , 1 ) ;
152: END IF;
153:
154:
155: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
164: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_ON_HOLD');
165: OE_MSG_PUB.Add;
166: x_return_status := FND_API.G_RET_STS_ERROR;
167: IF l_debug_level > 0 THEN
168: oe_debug_pub.add( 'LINE IS ON HOLD' , 4 ) ;
169: END IF;
170: RETURN;
171: END IF;
172:
176: -- on this line. If the action requested is not allowed for the
177: -- scheduling action, error out.
178:
179: IF l_debug_level > 0 THEN
180: oe_debug_pub.add( 'CHECKING SCHEDULING LEVEL...' , 1 ) ;
181: END IF;
182: l_scheduling_level_code :=
183: OE_SCHEDULE_UTIL.Get_Scheduling_Level(p_line_rec.header_id,
184: p_line_rec.line_type_id);
183: OE_SCHEDULE_UTIL.Get_Scheduling_Level(p_line_rec.header_id,
184: p_line_rec.line_type_id);
185:
186: IF l_debug_level > 0 THEN
187: oe_debug_pub.add( 'L_SCHEDULING_LEVEL_CODE : ' || L_SCHEDULING_LEVEL_CODE , 1 ) ;
188: END IF;
189:
190: IF l_scheduling_level_code is not null THEN
191: IF l_scheduling_level_code = OE_SCHEDULE_UTIL.SCH_LEVEL_ONE THEN
197: OE_SCHEDULE_UTIL.sch_cached_order_type));
198: OE_MSG_PUB.Add;
199: x_return_status := FND_API.G_RET_STS_ERROR;
200: IF l_debug_level > 0 THEN
201: oe_debug_pub.add( 'LINE TYPE IS ATP ONLY' , 4 ) ;
202: END IF;
203:
204: ELSIF l_scheduling_level_code = OE_SCHEDULE_UTIL.SCH_LEVEL_TWO
205: AND p_line_rec.schedule_action_code =
215: OE_SCHEDULE_UTIL.sch_cached_order_type));
216: OE_MSG_PUB.Add;
217: x_return_status := FND_API.G_RET_STS_ERROR;
218: IF l_debug_level > 0 THEN
219: oe_debug_pub.add( 'LINE TYPE IS NOT ELIGIBLE FOR RESERVATION ' , 4 ) ;
220: END IF;
221:
222: END IF;
223: END IF;
222: END IF;
223: END IF;
224:
225: IF l_debug_level > 0 THEN
226: oe_debug_pub.add( '..EXITING OE_SCHEDULE_UTIL.VALIDATE_GROUP_LINE WITH ' || X_RETURN_STATUS , 1 ) ;
227: END IF;
228:
229:
230: EXCEPTION
260: l_return_status VARCHAR2(30);
261: J NUMBER := 0;
262: l_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
263: --
264: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
265: --
266: BEGIN
267: -- 3870895 : Revorted back the code modified for bug 3349770
268: IF l_debug_level > 0 THEN
265: --
266: BEGIN
267: -- 3870895 : Revorted back the code modified for bug 3349770
268: IF l_debug_level > 0 THEN
269: oe_debug_pub.add( 'ENTERING VALIDATE GROUP' || P_X_LINE_TBL.COUNT , 1 ) ;
270: END IF;
271: x_return_status := FND_API.G_RET_STS_SUCCESS;
272: FOR I IN 1..p_x_line_tbl.count LOOP
273:
323: p_x_line_tbl(I).ato_line_id <> p_x_line_tbl(I).top_model_line_id) AND
324: p_x_line_tbl(I).item_type_code = OE_GLOBALS.G_ITEM_INCLUDED THEN
325: IF NOT OE_SCH_CONC_REQUESTS.included_processed(p_x_line_tbl(I).line_id) THEN
326: IF l_debug_level > 0 THEN
327: oe_debug_pub.add( 'INCLUDED PROCESSED : ' || p_x_line_tbl(I).line_id, 3 ) ;
328: END IF;
329: -- 5166476
330: OE_SCH_CONC_REQUESTS.OE_line_status_Tbl(p_x_line_tbl(I).line_id) := 'N';
331: END IF;
356: END IF;
357:
358: END IF;
359: IF l_debug_level > 0 THEN
360: oe_debug_pub.add( 'EXITING VALIDATE GROUP' || P_X_LINE_TBL.COUNT , 1 ) ;
361: END IF;
362:
363: EXCEPTION
364:
378: Function Not_Part_of_set(p_top_model_line_id IN NUMBER)
379: RETURN BOOLEAN
380: IS
381: l_set_id NUMBER := Null;
382: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
383: BEGIN
384:
385: IF l_debug_level > 0 THEN
386: oe_debug_pub.add( 'Entering Not_Part_of_set ' || p_top_model_line_id , 1 ) ;
382: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
383: BEGIN
384:
385: IF l_debug_level > 0 THEN
386: oe_debug_pub.add( 'Entering Not_Part_of_set ' || p_top_model_line_id , 1 ) ;
387: oe_debug_pub.add( 'Value of the cached model ' || g_top_model_line_id,2);
388: END IF;
389: IF p_top_model_line_id = g_top_model_line_id
390: THEN
383: BEGIN
384:
385: IF l_debug_level > 0 THEN
386: oe_debug_pub.add( 'Entering Not_Part_of_set ' || p_top_model_line_id , 1 ) ;
387: oe_debug_pub.add( 'Value of the cached model ' || g_top_model_line_id,2);
388: END IF;
389: IF p_top_model_line_id = g_top_model_line_id
390: THEN
391: RETURN g_part_of_set;
433: l_option_exists VARCHAR2(1) := 'N';
434:
435: BEGIN
436: IF l_debug_level > 0 THEN
437: oe_debug_pub.add('Entering Check_Merge_Line: ' || p_x_line_tbl.count,1);
438: oe_debug_pub.add('Size of the in table : ' || p_line_tbl.count,1);
439: END IF;
440: J := p_x_line_tbl.count;
441: IF p_line_rec.line_id is NOT NULL
434:
435: BEGIN
436: IF l_debug_level > 0 THEN
437: oe_debug_pub.add('Entering Check_Merge_Line: ' || p_x_line_tbl.count,1);
438: oe_debug_pub.add('Size of the in table : ' || p_line_tbl.count,1);
439: END IF;
440: J := p_x_line_tbl.count;
441: IF p_line_rec.line_id is NOT NULL
442: AND p_line_rec.line_id <> FND_API.G_MISS_NUM THEN -- Main IF Start
443:
444: FOR l_option_search in 1..J LOOP
445: IF p_line_rec.line_id = p_x_line_tbl(l_option_search).line_id THEN
446: IF l_debug_level > 0 THEN
447: OE_DEBUG_PUB.Add('Option already exists in the line table',1);
448: END IF;
449: l_option_exists := 'Y';
450: EXIT; -- Exit the Loop if a match is found
451: END IF;
462: l_option_exists := 'N';
463: FOR l_option_search in 1..p_x_line_tbl.count LOOP
464: IF p_line_tbl(I).line_id = p_x_line_tbl(l_option_search).line_id THEN
465: IF l_debug_level > 0 THEN
466: OE_DEBUG_PUB.Add('Option already exists in the line table',1);
467: END IF;
468: l_option_exists := 'Y';
469: EXIT; -- Exit the Inner Loop if a match is found
470: END IF;
478: END LOOP;
479:
480: END IF; -- Main IF End
481: IF l_debug_level > 0 THEN
482: oe_debug_pub.add('Exiting Check_Merge_Line: ' || p_x_line_tbl.count,1);
483: END IF;
484:
485: End Check_Merge_Line;
486: */
496: p_line_id IN NUMBER)
497: Return BOOLEAN
498: IS
499: --
500: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
501: --
502: BEGIN
503:
504: IF l_debug_level > 0 THEN
501: --
502: BEGIN
503:
504: IF l_debug_level > 0 THEN
505: oe_debug_pub.add( 'ENTERING FIND_LINE: ' || P_LINE_ID , 1 ) ;
506: END IF;
507:
508: FOR J IN 1..p_x_line_tbl.count LOOP
509:
509:
510: IF p_line_id = p_x_line_tbl(J).line_id THEN
511:
512: IF l_debug_level > 0 THEN
513: oe_debug_pub.add( ' LINE EXISTS IN THE TABLE' , 1 ) ;
514: END IF;
515:
516: RETURN TRUE;
517: END IF;
584: AND schedule_status_code IS NOT NULL
585: ORDER BY arrival_set_id,ship_set_id,line_number,shipment_number,nvl(option_number,-1);
586:
587: --
588: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
589: --
590: BEGIN
591:
592: IF l_debug_level > 0 THEN
589: --
590: BEGIN
591:
592: IF l_debug_level > 0 THEN
593: oe_debug_pub.add( 'ENTERING QUERY LINES' , 1 ) ;
594: END IF;
595:
596: -- Process Included Items if the action is schedule, atp_check
597: -- and reserve.
605:
606: FOR I IN process_inc LOOP
607:
608: IF l_debug_level > 0 THEN
609: oe_debug_pub.add( 'BEFORE CALLING INC'|| I.LINE_ID , 3 ) ;
610: END IF;
611: l_return_status := OE_CONFIG_UTIL.Process_Included_Items
612: (p_line_id => I.line_id,
613: p_freeze => FALSE);
612: (p_line_id => I.line_id,
613: p_freeze => FALSE);
614:
615: IF l_debug_level > 0 THEN
616: oe_debug_pub.add( 'AFTER CALLING INC'|| L_RETURN_STATUS , 3 ) ;
617: END IF;
618:
619: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
643: FOR c1 IN l_line_csr LOOP
644:
645:
646: IF l_debug_level > 0 THEN
647: oe_debug_pub.add( 'PROCESSING LINE ' || C1.LINE_ID , 1 ) ;
648: END IF;
649:
650: IF c1.schedule_status_code is null THEN
651:
694: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
695:
696: I := I + 1;
697: IF l_debug_level > 0 THEN
698: oe_debug_pub.add( 'LINE SELECTED FOR SCHEDULING **** : ' || L_LINE_REC.LINE_ID , 1 ) ;
699: END IF;
700: x_line_tbl(I) := l_line_rec;
701: x_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
702:
735: I := 0;
736: FOR c1 IN l_line_csr LOOP
737:
738: IF l_debug_level > 0 THEN
739: oe_debug_pub.add( 'LINE_ID :' || C1.LINE_ID , 1 ) ;
740: END IF;
741:
742: -- 4382036
743: /* OE_Line_Util.Query_Row( p_line_id => c1.line_id
822: l_line_rec.reserved_quantity) THEN
823:
824:
825: IF l_debug_level > 0 THEN
826: oe_debug_pub.add( 'NEED TO RESERVE THE LINE' , 2 ) ;
827: END IF;
828:
829: -- Check if the line is eligible for reservation.
830: l_return_status := FND_API.G_RET_STS_SUCCESS;
858: l_quantity2_to_reserve := NULL;
859: END IF;
860:
861: IF l_debug_level > 0 THEN
862: oe_debug_pub.add( 'QUANTITY TO RESERVE '||l_quantity_to_reserve , 2 ) ;
863: oe_debug_pub.add( 'QUANTITY2 TO RESERVE '||l_quantity2_to_reserve , 2 ) ;
864: oe_debug_pub.add( 'LINE SELECTED FOR RESERVE **** : '|| L_LINE_REC.LINE_ID , 1 ) ;
865: END IF;
866: --partial reservation exists
859: END IF;
860:
861: IF l_debug_level > 0 THEN
862: oe_debug_pub.add( 'QUANTITY TO RESERVE '||l_quantity_to_reserve , 2 ) ;
863: oe_debug_pub.add( 'QUANTITY2 TO RESERVE '||l_quantity2_to_reserve , 2 ) ;
864: oe_debug_pub.add( 'LINE SELECTED FOR RESERVE **** : '|| L_LINE_REC.LINE_ID , 1 ) ;
865: END IF;
866: --partial reservation exists
867: IF nvl(l_line_rec.reserved_quantity,0) > 0 THEN
860:
861: IF l_debug_level > 0 THEN
862: oe_debug_pub.add( 'QUANTITY TO RESERVE '||l_quantity_to_reserve , 2 ) ;
863: oe_debug_pub.add( 'QUANTITY2 TO RESERVE '||l_quantity2_to_reserve , 2 ) ;
864: oe_debug_pub.add( 'LINE SELECTED FOR RESERVE **** : '|| L_LINE_REC.LINE_ID , 1 ) ;
865: END IF;
866: --partial reservation exists
867: IF nvl(l_line_rec.reserved_quantity,0) > 0 THEN
868: l_rsv_update := TRUE;
875: ,x_return_status => l_return_status);
876:
877: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
878: IF l_debug_level > 0 THEN
879: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
880: END IF;
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
883: IF l_debug_level > 0 THEN
880: END IF;
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
883: IF l_debug_level > 0 THEN
884: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
885: END IF;
886: l_return_status := FND_API.G_RET_STS_SUCCESS;
887: END IF;
888:
891:
892: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
893: OE_MSG_PUB.Add;
894: IF l_debug_level > 0 THEN
895: oe_debug_pub.add( 'LINE IS ALREADY RESERVED , DO NOT NEED RESERVATION :' || L_LINE_REC.RESERVED_QUANTITY ) ;
896: END IF;
897:
898: END IF; -- Reserve.
899: ELSE
900:
901: l_line_rec.reserved_quantity := 0;
902: l_line_rec.reserved_quantity2 := 0; -- INVCONV
903: IF l_debug_level > 0 THEN
904: oe_debug_pub.add( 'LINE IS NON SHIPPABLE ' , 2 ) ;
905: END IF;
906: -- code fix for 3300528
907: --FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
908: IF l_line_rec.ato_line_id IS NOT NULL AND
929: x_return_status => l_return_status);
930:
931: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
932: IF l_debug_level > 0 THEN
933: oe_debug_pub.add( 'LINE SELECTED FOR RESERVE **** : '|| L_LINE_REC.LINE_ID , 1 ) ;
934: END IF;
935: I := I + 1;
936: x_line_tbl(I) := l_line_rec;
937: x_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
974: l_sales_order_id :=OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(p_header_id);
975: END IF;
976:
977: IF l_debug_level > 0 THEN
978: oe_debug_pub.add( 'LINE SELECTED FOR ATP **** : ' || C1.LINE_ID , 1 ) ;
979: END IF;
980: OE_Line_Util.Query_Row( p_line_id => c1.line_id
981: ,x_line_rec => l_line_rec);
982:
1105:
1106: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNRSV_NOT_ALLOWED');
1107: OE_MSG_PUB.Add;
1108: IF l_debug_level > 0 THEN
1109: oe_debug_pub.add( 'LINE IS SHIPPING INTERFACED ' || C2.LINE_ID , 1 ) ;
1110: END IF;
1111:
1112: ELSE
1113:
1192:
1193: END IF;
1194:
1195: IF l_debug_level > 0 THEN
1196: oe_debug_pub.add( 'LINE SELECTED FOR UNRES **** : ' || L_LINE_REC.LINE_ID , 1 ) ;
1197: END IF;
1198:
1199:
1200: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1257: END IF;
1258:
1259:
1260: IF l_debug_level > 0 THEN
1261: oe_debug_pub.add( 'LINE SELECTED FOR UNSCH **** : ' || C2.LINE_ID , 1 ) ;
1262: END IF;
1263:
1264: -- 4382036
1265: /* OE_Line_Util.Query_Row( p_line_id => c2.line_id
1349: ELSE -- part of set
1350: FND_MESSAGE.SET_NAME('ONT','OE_SCH_CANNOT_UNSCH_SET');
1351: OE_MSG_PUB.Add;
1352: IF l_debug_level > 0 THEN
1353: oe_debug_pub.add( 'LINE IS PART OF SET ' , 1 ) ;
1354: END IF;
1355:
1356: END IF; -- do not unschedule if line is part of set.
1357:
1360: END IF; -- Main.
1361:
1362:
1363: IF l_debug_level > 0 THEN
1364: oe_debug_pub.add( 'EXITING OE_GROUP_SCH_UTIL.QUERY_LINES ' || X_LINE_TBL.COUNT , 1 ) ;
1365: END IF;
1366:
1367:
1368: EXCEPTION
1368: EXCEPTION
1369:
1370: WHEN FND_API.G_EXC_ERROR THEN
1371: IF l_debug_level > 0 THEN
1372: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY LINES ' , 1 ) ;
1373: END IF;
1374: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1375: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1376: RAISE FND_API.G_EXC_ERROR;
1377:
1378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1379:
1380: IF l_debug_level > 0 THEN
1381: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY LINES ' , 1 ) ;
1382: END IF;
1383: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1384: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1386:
1387: WHEN OTHERS THEN
1388:
1389: IF l_debug_level > 0 THEN
1390: oe_debug_pub.add( 'WHEN OTHERS ERROR IN QUERY LINES ' , 1 ) ;
1391: END IF;
1392: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1393: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1394: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1442: l_header_id NUMBER;
1443: l_open_flag VARCHAR2(1);
1444:
1445: --
1446: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1447: --
1448: l_orig_sys_document_ref VARCHAR2(50);
1449: l_orig_sys_line_ref VARCHAR2(50);
1450: l_orig_sys_shipment_ref VARCHAR2(50);
1456: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1457: BEGIN
1458:
1459: IF l_debug_level > 0 THEN
1460: oe_debug_pub.add( 'ENTERING INTO QUERY SCHEDULE LINES ' , 1 ) ;
1461: END IF;
1462: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
1463:
1464: IF l_debug_level > 0 THEN
1461: END IF;
1462: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
1463:
1464: IF l_debug_level > 0 THEN
1465: oe_debug_pub.add( 'PROCESSING LINE_ID' || P_SELECTED_TBL(L).ID1 , 2 ) ;
1466: END IF;
1467:
1468: l_line_id := p_selected_tbl(L).id1;
1469: -- Query required attributes and check does any action is required
1526:
1527: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
1528: OE_MSG_PUB.Add;
1529: IF l_debug_level > 0 THEN
1530: oe_debug_pub.add( 'LINE IS A SCHEDULED LINE' || L_LINE_ID , 2 ) ;
1531: END IF;
1532:
1533: ELSE -- line not scheduled, please select the line to schedule.
1534:
1551: IF l_top_model_line_id = p_selected_tbl(K).id1
1552: OR (l_item_type_code = OE_GLOBALS.G_ITEM_INCLUDED AND
1553: l_link_to_line_id = p_selected_tbl(K).id1) THEN
1554: IF l_debug_level > 0 THEN
1555: oe_debug_pub.add( 'PARENT LINE IS PART OF TABLE' || P_SELECTED_TBL(K).ID1 , 2 ) ;
1556: END IF;
1557: l_query := 'N';
1558: exit;
1559: END IF;
1571: IF l_line_id = x_line_tbl(I).line_id
1572: THEN
1573: l_query := 'N';
1574: IF l_debug_level > 0 THEN
1575: oe_debug_pub.add( '2 LINE IS PART OF TABLE' , 2 ) ;
1576: END IF;
1577: Exit;
1578: END IF;
1579: END LOOP;
1739:
1740: END LOOP;
1741:
1742: IF l_debug_level > 0 THEN
1743: oe_debug_pub.add( 'EXITING QUERY_SCHEDULE_LINES' || X_LINE_TBL.COUNT , 1 ) ;
1744: END IF;
1745:
1746:
1747: EXCEPTION
1747: EXCEPTION
1748:
1749: WHEN FND_API.G_EXC_ERROR THEN
1750: IF l_debug_level > 0 THEN
1751: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_SCHEDULE_LINES ' , 1 ) ;
1752: END IF;
1753: RAISE FND_API.G_EXC_ERROR;
1754:
1755: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1754:
1755: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1756:
1757: IF l_debug_level > 0 THEN
1758: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_SCHEDULE_LINES ' , 1 ) ;
1759: END IF;
1760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1761: -- Start 2742982 --
1762: WHEN NO_DATA_FOUND THEN
1820: l_sales_order_id NUMBER;
1821: l_open_flag VARCHAR2(1);
1822:
1823: --
1824: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1825: --
1826: l_orig_sys_document_ref VARCHAR2(50);
1827: l_orig_sys_line_ref VARCHAR2(50);
1828: l_orig_sys_shipment_ref VARCHAR2(50);
1834: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1835: BEGIN
1836:
1837: IF l_debug_level > 0 THEN
1838: oe_debug_pub.add( 'ENTERING INTO QUERY UNSCHEDULE LINES ' , 1 ) ;
1839: END IF;
1840: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
1841:
1842: IF l_debug_level > 0 THEN
1839: END IF;
1840: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
1841:
1842: IF l_debug_level > 0 THEN
1843: oe_debug_pub.add( 'PROCESSING LINE_ID' || p_selected_tbl(L).id1 , 2 ) ;
1844: END IF;
1845:
1846: --l_line_id := p_line_id_tbl(L);
1847: l_line_id := p_selected_tbl(L).id1;
1885: IF l_arrival_set_id is not null
1886: OR l_ship_set_id is not null THEN
1887:
1888: IF l_debug_level > 0 THEN
1889: oe_debug_pub.add( 'LINE CANNOT BE UNSCHEDULED IF IT IS PART OF SET' , 1 ) ;
1890: END IF;
1891: FND_MESSAGE.SET_NAME('ONT','OE_SCH_CANNOT_UNSCH_SET');
1892: OE_MSG_PUB.Add;
1893: ELSIF (l_schedule_status_code IS NULL AND
1904: -- not scheduled. Bipass these lines.
1905: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
1906: OE_MSG_PUB.Add;
1907: IF l_debug_level > 0 THEN
1908: oe_debug_pub.add( 'NOT A VALID LINE' || L_LINE_ID , 2 ) ;
1909: END IF;
1910: ELSE -- line not scheduled, please select the line to schedule.
1911:
1912: l_query := 'Y';
2147: EXCEPTION
2148:
2149: WHEN FND_API.G_EXC_ERROR THEN
2150: IF l_debug_level > 0 THEN
2151: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2152: END IF;
2153: RAISE FND_API.G_EXC_ERROR;
2154:
2155: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2154:
2155: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2156:
2157: IF l_debug_level > 0 THEN
2158: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2159: END IF;
2160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2161:
2162: -- Start 2742982 --
2168:
2169: WHEN OTHERS THEN
2170:
2171: IF l_debug_level > 0 THEN
2172: oe_debug_pub.add( ' WHEN OTHERS ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2173: END IF;
2174: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2175: THEN
2176: OE_MSG_PUB.Add_Exc_Msg
2223: l_sales_order_id NUMBER;
2224: l_open_flag VARCHAR2(1);
2225:
2226: --
2227: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2228: --
2229: l_orig_sys_document_ref VARCHAR2(50);
2230: l_orig_sys_line_ref VARCHAR2(50);
2231: l_orig_sys_shipment_ref VARCHAR2(50);
2240: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
2241:
2242:
2243: IF l_debug_level > 0 THEN
2244: oe_debug_pub.add( 'PROCESSING LINE_ID' || P_SELECTED_TBL(L).ID1 , 2 ) ;
2245: END IF;
2246:
2247: l_line_id := p_selected_tbl(L).id1;
2248: -- Query required attributes and check does any action is required
2292:
2293: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNRSV_NOT_ALLOWED');
2294: OE_MSG_PUB.Add;
2295: IF l_debug_level > 0 THEN
2296: oe_debug_pub.add( 'LINE IS SHIPPING INTERFACED' || L_LINE_ID , 1 ) ;
2297: END IF;
2298:
2299: END IF;
2300: ELSE -- line not scheduled, please select the line to schedule.
2471:
2472:
2473: WHEN FND_API.G_EXC_ERROR THEN
2474: IF l_debug_level > 0 THEN
2475: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2476: END IF;
2477: RAISE FND_API.G_EXC_ERROR;
2478:
2479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2478:
2479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2480:
2481: IF l_debug_level > 0 THEN
2482: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2483: END IF;
2484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2485:
2486: -- Start 2742982 --
2492:
2493: WHEN OTHERS THEN
2494:
2495: IF l_debug_level > 0 THEN
2496: oe_debug_pub.add( ' WHEN OTHERS ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2497: END IF;
2498: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2499: THEN
2500: OE_MSG_PUB.Add_Exc_Msg
2552: l_sales_order_id NUMBER := Null;
2553: l_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
2554: l_open_flag VARCHAR2(1);
2555: --
2556: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2557: --
2558: l_orig_sys_document_ref VARCHAR2(50);
2559: l_orig_sys_line_ref VARCHAR2(50);
2560: l_orig_sys_shipment_ref VARCHAR2(50);
2568: l_rsv_update BOOLEAN :=FALSE;
2569: BEGIN
2570:
2571: IF l_debug_level > 0 THEN
2572: oe_debug_pub.add( 'ENTERING QUERY RESERVE LINES' , 1 ) ;
2573: END IF;
2574: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
2575:
2576: IF l_debug_level > 0 THEN
2573: END IF;
2574: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
2575:
2576: IF l_debug_level > 0 THEN
2577: oe_debug_pub.add( 'PROCESSING LINE_ID' || P_SELECTED_TBL(L).ID1 , 2 ) ;
2578: END IF;
2579:
2580: l_line_id := p_selected_tbl(L).id1;
2581: -- Query required attributes and check does any action is required
2620: -- populate the error message and skip the line.
2621: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
2622: OE_MSG_PUB.Add;
2623: IF l_debug_level > 0 THEN
2624: oe_debug_pub.add( 'NOT A VALIDE LINE' || L_LINE_ID , 2 ) ;
2625: END IF;
2626:
2627: ELSE
2628: l_query := 'Y';
2762:
2763: IF l_config_id IS NOT NULL THEN
2764:
2765: IF l_debug_level > 0 THEN
2766: oe_debug_pub.add( 'NEED TO RESERVE THE LINE' , 2 ) ;
2767: END IF;
2768:
2769: OE_Line_Util.Query_Row
2770: (p_line_id => l_config_id,
2954: AND l_line_tbl(I).ordered_quantity >
2955: l_line_tbl(I).reserved_quantity)) THEN
2956:
2957: IF l_debug_level > 0 THEN
2958: oe_debug_pub.add( 'NEED TO RESERVE THE LINE' , 2 ) ;
2959: END IF;
2960:
2961: -- Check if the line is eligible for reservation.
2962: l_return_status := FND_API.G_RET_STS_SUCCESS;
2991: l_quantity2_to_reserve := NULL;
2992: END IF;
2993:
2994: IF l_debug_level > 0 THEN
2995: oe_debug_pub.add( 'QUANTITY TO RESERVE '||l_quantity_to_reserve , 2 ) ;
2996: oe_debug_pub.add( 'QUANTITY2 TO RESERVE '||l_quantity2_to_reserve , 2 ) ;
2997: END IF;
2998: IF nvl(l_line_tbl(I).reserved_quantity,0) > 0 THEN
2999: l_rsv_update := TRUE;
2992: END IF;
2993:
2994: IF l_debug_level > 0 THEN
2995: oe_debug_pub.add( 'QUANTITY TO RESERVE '||l_quantity_to_reserve , 2 ) ;
2996: oe_debug_pub.add( 'QUANTITY2 TO RESERVE '||l_quantity2_to_reserve , 2 ) ;
2997: END IF;
2998: IF nvl(l_line_tbl(I).reserved_quantity,0) > 0 THEN
2999: l_rsv_update := TRUE;
3000: END IF;
3007: ,x_return_status => l_return_status);
3008:
3009: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3010: IF l_debug_level > 0 THEN
3011: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
3012: END IF;
3013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3014: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3015: IF l_debug_level > 0 THEN
3012: END IF;
3013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3014: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3015: IF l_debug_level > 0 THEN
3016: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
3017: END IF;
3018: l_return_status := FND_API.G_RET_STS_SUCCESS;
3019: END IF;
3020:
3029: OE_GLOBALS.G_ITEM_STANDARD))
3030: THEN -- check for ato
3031: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_NO_CONFIG');
3032: IF l_debug_level > 0 THEN
3033: oe_debug_pub.add( 'NON SHIPPABLE ATO LINE' , 2 ) ;
3034: END IF;
3035: ELSE
3036: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_NOT_RESERVABLE');
3037: END IF;-- end check for ato
3037: END IF;-- end check for ato
3038: ELSE
3039: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
3040: IF l_debug_level > 0 THEN
3041: oe_debug_pub.add( 'ALREADY RESERVED' , 2 ) ;
3042: END IF;
3043: END IF; -- shippable flag
3044: OE_MSG_PUB.Add;
3045: -- code fix for 3300528
3052: END IF;
3053: END LOOP;
3054:
3055: IF l_debug_level > 0 THEN
3056: oe_debug_pub.add( 'EXITING QUERY RESERVE LINES' , 1 ) ;
3057: END IF;
3058:
3059:
3060: EXCEPTION
3061:
3062:
3063: WHEN FND_API.G_EXC_ERROR THEN
3064: IF l_debug_level > 0 THEN
3065: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3066: END IF;
3067: RAISE FND_API.G_EXC_ERROR;
3068:
3069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3068:
3069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3070:
3071: IF l_debug_level > 0 THEN
3072: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3073: END IF;
3074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3075:
3076: -- Start 2742982 --
3082:
3083: WHEN OTHERS THEN
3084:
3085: IF l_debug_level > 0 THEN
3086: oe_debug_pub.add( 'WHEN OTHERS ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3087: END IF;
3088: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3089: THEN
3090: OE_MSG_PUB.Add_Exc_Msg
3135: l_sales_order_id NUMBER := Null;
3136: l_open_flag VARCHAR2(1);
3137:
3138: --
3139: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3140: --
3141: l_orig_sys_document_ref VARCHAR2(50);
3142: l_orig_sys_line_ref VARCHAR2(50);
3143: l_orig_sys_shipment_ref VARCHAR2(50);
3151:
3152:
3153: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
3154: IF l_debug_level > 0 THEN
3155: oe_debug_pub.add( 'PROCESSING LINE_ID ' || P_SELECTED_TBL(L).ID1 , 2 ) ;
3156: END IF;
3157:
3158: l_line_id := p_selected_tbl(L).id1;
3159: -- Query required attributes and check does any action is required
3424:
3425:
3426: WHEN FND_API.G_EXC_ERROR THEN
3427: IF l_debug_level > 0 THEN
3428: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3429: END IF;
3430: RAISE FND_API.G_EXC_ERROR;
3431:
3432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3431:
3432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3433:
3434: IF l_debug_level > 0 THEN
3435: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3436: END IF;
3437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3438:
3439: -- Start 2742982 --
3444:
3445: WHEN OTHERS THEN
3446:
3447: IF l_debug_level > 0 THEN
3448: oe_debug_pub.add( 'WHEN OTHERS ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3449: END IF;
3450: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3451: THEN
3452: OE_MSG_PUB.Add_Exc_Msg
3484:
3485: -- Need to remove this.
3486: l_atp_tbl OE_ATP.atp_tbl_type;
3487: --
3488: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3489: --
3490: BEGIN
3491:
3492: x_return_status := FND_API.G_RET_STS_SUCCESS;
3490: BEGIN
3491:
3492: x_return_status := FND_API.G_RET_STS_SUCCESS;
3493: IF l_debug_level > 0 THEN
3494: oe_debug_pub.add( 'ENTERING OE_GROUP_SCH_UTIL.SCHEDULE_ORDER' , 1 ) ;
3495: END IF;
3496:
3497: IF l_debug_level > 0 THEN
3498: oe_debug_pub.add( 'P_HEADER_ID : ' || P_HEADER_ID , 1 ) ;
3494: oe_debug_pub.add( 'ENTERING OE_GROUP_SCH_UTIL.SCHEDULE_ORDER' , 1 ) ;
3495: END IF;
3496:
3497: IF l_debug_level > 0 THEN
3498: oe_debug_pub.add( 'P_HEADER_ID : ' || P_HEADER_ID , 1 ) ;
3499: END IF;
3500: IF l_debug_level > 0 THEN
3501: oe_debug_pub.add( 'P_SCH_ACTION: ' || P_SCH_ACTION , 1 ) ;
3502: END IF;
3497: IF l_debug_level > 0 THEN
3498: oe_debug_pub.add( 'P_HEADER_ID : ' || P_HEADER_ID , 1 ) ;
3499: END IF;
3500: IF l_debug_level > 0 THEN
3501: oe_debug_pub.add( 'P_SCH_ACTION: ' || P_SCH_ACTION , 1 ) ;
3502: END IF;
3503:
3504: -- Start 2434807 -
3505: -- Added to clear existing records from g_atp_tbl
3517: l_old_line_tbl := l_line_tbl;
3518:
3519: IF p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_ATP_CHECK THEN
3520: IF l_debug_level > 0 THEN
3521: oe_debug_pub.add( 'BEFORE CALLING MULTI_ATP_CHECK ' ) ;
3522: END IF;
3523: IF l_debug_level > 0 THEN
3524: oe_debug_pub.add( 'COUNT ' || L_LINE_TBL.COUNT ) ;
3525: END IF;
3520: IF l_debug_level > 0 THEN
3521: oe_debug_pub.add( 'BEFORE CALLING MULTI_ATP_CHECK ' ) ;
3522: END IF;
3523: IF l_debug_level > 0 THEN
3524: oe_debug_pub.add( 'COUNT ' || L_LINE_TBL.COUNT ) ;
3525: END IF;
3526:
3527: IF l_line_tbl.count > 0 THEN
3528:
3540:
3541: ELSE
3542:
3543: IF l_debug_level > 0 THEN
3544: oe_debug_pub.add( 'BEFORE CALLING PROCESS SCHEDULING GROUP ' ) ;
3545: END IF;
3546: IF l_debug_level > 0 THEN
3547: oe_debug_pub.add( 'COUNT ' || L_LINE_TBL.COUNT ) ;
3548: END IF;
3543: IF l_debug_level > 0 THEN
3544: oe_debug_pub.add( 'BEFORE CALLING PROCESS SCHEDULING GROUP ' ) ;
3545: END IF;
3546: IF l_debug_level > 0 THEN
3547: oe_debug_pub.add( 'COUNT ' || L_LINE_TBL.COUNT ) ;
3548: END IF;
3549: IF l_debug_level > 0 THEN
3550: oe_debug_pub.add( 'FIRST ' || L_LINE_TBL.FIRST ) ;
3551: END IF;
3546: IF l_debug_level > 0 THEN
3547: oe_debug_pub.add( 'COUNT ' || L_LINE_TBL.COUNT ) ;
3548: END IF;
3549: IF l_debug_level > 0 THEN
3550: oe_debug_pub.add( 'FIRST ' || L_LINE_TBL.FIRST ) ;
3551: END IF;
3552: IF l_debug_level > 0 THEN
3553: oe_debug_pub.add( 'LAST ' || L_LINE_TBL.LAST ) ;
3554: END IF;
3549: IF l_debug_level > 0 THEN
3550: oe_debug_pub.add( 'FIRST ' || L_LINE_TBL.FIRST ) ;
3551: END IF;
3552: IF l_debug_level > 0 THEN
3553: oe_debug_pub.add( 'LAST ' || L_LINE_TBL.LAST ) ;
3554: END IF;
3555:
3556: IF l_line_tbl.count > 0 THEN
3557:
3582: (p_count => x_msg_count
3583: ,p_data => x_msg_data);
3584:
3585: IF l_debug_level > 0 THEN
3586: oe_debug_pub.add( 'COUNT IS ' || X_MSG_COUNT , 1 ) ;
3587: END IF;
3588: IF l_debug_level > 0 THEN
3589: oe_debug_pub.add( 'EXITING OE_GROUP_SCH_UTIL.SCHEDULE_ORDER' , 1 ) ;
3590: END IF;
3585: IF l_debug_level > 0 THEN
3586: oe_debug_pub.add( 'COUNT IS ' || X_MSG_COUNT , 1 ) ;
3587: END IF;
3588: IF l_debug_level > 0 THEN
3589: oe_debug_pub.add( 'EXITING OE_GROUP_SCH_UTIL.SCHEDULE_ORDER' , 1 ) ;
3590: END IF;
3591: x_return_status := FND_API.G_RET_STS_SUCCESS;
3592:
3593: EXCEPTION
3659: l_line_id_tbl number_arr;
3660: l_set_rec OE_ORDER_CACHE.set_rec_type;
3661:
3662: --
3663: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3664: --
3665: BEGIN
3666: IF l_debug_level > 0 THEN
3667: oe_debug_pub.add( 'ENTERING SCHEDULE_MULTI_LINES' , 1 ) ;
3663: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3664: --
3665: BEGIN
3666: IF l_debug_level > 0 THEN
3667: oe_debug_pub.add( 'ENTERING SCHEDULE_MULTI_LINES' , 1 ) ;
3668: oe_debug_pub.add( 'LINE COUNT IS: ' || P_LINE_COUNT , 1 ) ;
3669: oe_debug_pub.add( 'ACTION IS: ' || P_SCH_ACTION , 1 ) ;
3670: END IF;
3671:
3664: --
3665: BEGIN
3666: IF l_debug_level > 0 THEN
3667: oe_debug_pub.add( 'ENTERING SCHEDULE_MULTI_LINES' , 1 ) ;
3668: oe_debug_pub.add( 'LINE COUNT IS: ' || P_LINE_COUNT , 1 ) ;
3669: oe_debug_pub.add( 'ACTION IS: ' || P_SCH_ACTION , 1 ) ;
3670: END IF;
3671:
3672: -- Start 2434807 -
3665: BEGIN
3666: IF l_debug_level > 0 THEN
3667: oe_debug_pub.add( 'ENTERING SCHEDULE_MULTI_LINES' , 1 ) ;
3668: oe_debug_pub.add( 'LINE COUNT IS: ' || P_LINE_COUNT , 1 ) ;
3669: oe_debug_pub.add( 'ACTION IS: ' || P_SCH_ACTION , 1 ) ;
3670: END IF;
3671:
3672: -- Start 2434807 -
3673: -- Added to clear existing records from g_atp_tbl
3689: l_line_id := to_number(substr(l_record_ids,initial, nextpos-initial));
3690: l_line_id_tbl(j) := l_line_id;
3691:
3692: IF l_debug_level > 0 THEN
3693: oe_debug_pub.add( 'LINE_ID : ' || L_LINE_ID , 1 ) ;
3694: END IF;
3695:
3696: initial := nextpos + 1.0;
3697: j := j + 1.0;
3728: --Creating a savepoint, so that it can be be rolled for ATP Checks.
3729: --This is to rollback updates to database made by Availability window, which
3730: --calls process_included_items to explode included items and oe_order_pvt.lines
3731: --which updates the database tables.
3732: oe_debug_pub.add('Creating a savepoint for ATP Check activity.');
3733: SAVEPOINT SP_ONLY_ATP_CHECK;
3734: Query_ATP_CHECK_lines(p_sch_action => p_sch_action,
3735: p_selected_tbl => p_selected_line_tbl, --R12.MOAC
3736: x_line_tbl => l_line_tbl);
3738:
3739: IF l_line_tbl.count > 0 THEN
3740:
3741: IF l_debug_level > 0 THEN
3742: oe_debug_pub.add('No lines to process : '||l_line_tbl.count,1);
3743: END IF;
3744:
3745: Validate_Group
3746: (p_x_line_tbl => l_line_tbl,
3751: --3990887
3752: --END IF;
3753:
3754: IF l_debug_level > 0 THEN
3755: oe_debug_pub.add( ' AFTER VALIDATE_GROUP : '||x_return_status,1);
3756: END IF;
3757:
3758: -- 3990887
3759: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3763:
3764: FOR I IN 1..l_line_tbl.count LOOP
3765:
3766: IF l_debug_level > 0 THEN
3767: oe_debug_pub.add( ' LINE ID : ' || L_LINE_TBL ( I ) .LINE_ID , 4 ) ;
3768: END IF;
3769: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
3770: l_line_tbl(I).schedule_action_code := p_sch_action;
3771:
3793: IF p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_ATP_CHECK
3794: THEN
3795: --Bug 5881611
3796: --Rolling back
3797: oe_debug_pub.add('Rollback for only atp check');
3798: oe_delayed_requests_pvt.Clear_Request(
3799: x_return_status => x_return_status);
3800: ROLLBACK TO SAVEPOINT SP_ONLY_ATP_CHECK;
3801:
3799: x_return_status => x_return_status);
3800: ROLLBACK TO SAVEPOINT SP_ONLY_ATP_CHECK;
3801:
3802: IF l_debug_level > 0 THEN
3803: oe_debug_pub.add( 'BEFORE CALLING MULTI_ATP_CHECK ' ) ;
3804: END IF;
3805: IF l_debug_level > 0 THEN
3806: oe_debug_pub.add( 'LINE COUNT ' || L_LINE_TBL.COUNT , 1 ) ;
3807: END IF;
3802: IF l_debug_level > 0 THEN
3803: oe_debug_pub.add( 'BEFORE CALLING MULTI_ATP_CHECK ' ) ;
3804: END IF;
3805: IF l_debug_level > 0 THEN
3806: oe_debug_pub.add( 'LINE COUNT ' || L_LINE_TBL.COUNT , 1 ) ;
3807: END IF;
3808:
3809: OE_SCHEDULE_UTIL.Multi_ATP_CHECK
3810: (p_old_line_tbl => l_old_line_tbl,
3814:
3815: ELSE
3816:
3817: IF l_debug_level > 0 THEN
3818: oe_debug_pub.add( 'BEFORE CALLING PROCESS SCHEDULING GROUP ' ) ;
3819: oe_debug_pub.add( 'LINE COUNT ' || L_LINE_TBL.COUNT , 1 ) ;
3820: END IF;
3821:
3822: -- 3870895 : call process_group only when coun > 0 and return status is success
3815: ELSE
3816:
3817: IF l_debug_level > 0 THEN
3818: oe_debug_pub.add( 'BEFORE CALLING PROCESS SCHEDULING GROUP ' ) ;
3819: oe_debug_pub.add( 'LINE COUNT ' || L_LINE_TBL.COUNT , 1 ) ;
3820: END IF;
3821:
3822: -- 3870895 : call process_group only when coun > 0 and return status is success
3823: IF l_line_tbl.count > 0
3847: END IF;
3848: END IF;
3849:
3850: IF l_debug_level > 0 THEN
3851: oe_debug_pub.add( 'AFTER PROCESS GROUP' || X_RETURN_STATUS , 1 ) ;
3852: END IF;
3853: END IF;
3854: -- Set return status.
3855:
3860: ( p_count => x_msg_count
3861: , p_data => x_msg_data);
3862:
3863: IF l_debug_level > 0 THEN
3864: oe_debug_pub.add( ' MESSAGE COUNT: ' || X_MSG_COUNT , 1 ) ;
3865: END IF;
3866: -- Set return status.
3867:
3868: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3885: );
3886:
3887: */
3888: IF l_debug_level > 0 THEN
3889: oe_debug_pub.add( 'EXITING SCHEDULE_MULTI_LINES WITH: ' || X_RETURN_STATUS , 1 ) ;
3890: END IF;
3891:
3892: EXCEPTION
3893:
4006: where top_model_line_id = l_top_model_line_id
4007: and open_flag = 'Y'
4008: and shipping_interfaced_flag = 'Y';
4009: --
4010: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4011: --
4012: BEGIN
4013:
4014: x_return_status := FND_API.G_RET_STS_SUCCESS;
4012: BEGIN
4013:
4014: x_return_status := FND_API.G_RET_STS_SUCCESS;
4015: IF l_debug_level > 0 THEN
4016: oe_debug_pub.add( 'ENTERING OE_GROUP_SCH_UTIL.SCHEDULE_SET_LINES' , 1 ) ;
4017: END IF;
4018:
4019: K := 0;
4020: FOR I in 1..p_sch_set_tbl.count LOOP
4019: K := 0;
4020: FOR I in 1..p_sch_set_tbl.count LOOP
4021:
4022: IF l_debug_level > 0 THEN
4023: oe_debug_pub.add( 'PROCESSING LINE' || P_SCH_SET_TBL ( I ) .ENTITY_ID , 1 ) ;
4024: END IF;
4025:
4026: -- For the included item, check if the parent is present the in table.
4027: -- That means parent will explode the line or else add the line to
4053: Where line_id = p_sch_set_tbl(I).entity_id;
4054: EXCEPTION
4055: WHEN OTHERS THEN
4056: IF l_debug_level > 0 THEN
4057: oe_debug_pub.add( 'ERROR WHILE SELECTING DATA' , 5 ) ;
4058: END IF;
4059: l_line_exists := 'Y';
4060: END;
4061:
4065: l_ship_set_id <> p_sch_set_tbl(I).param1) OR
4066: (p_sch_set_tbl(I).param8 = OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET AND
4067: l_arrival_set_id <> p_sch_set_tbl(I).param1) THEN
4068: IF l_debug_level > 0 THEN
4069: OE_DEBUG_PUB.Add('Sets differs, goto END OF PROCESS',2);
4070: END IF;
4071: GOTO END_OF_PROCESS;
4072: END IF;
4073: -- end of bug3885953 }
4091: FOR optionrec in C5
4092: LOOP
4093:
4094: IF l_debug_level > 0 THEN
4095: oe_debug_pub.add( 'UPDATE SHIPPING : CHILDREN OF MODEL ' || TO_CHAR ( OPTIONREC.LINE_ID ) , 1 ) ;
4096: END IF;
4097:
4098: OE_Delayed_Requests_Pvt.Log_Request(
4099: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4106: x_return_status => x_return_status);
4107:
4108: End loop;
4109:
4110: oe_debug_pub.add('Set does not exist on line ' || p_sch_set_tbl(I).entity_id,2);
4111:
4112: goto END_OF_PROCESS;
4113:
4114: END IF;
4124: OR l_top_model_line_id = p_sch_set_tbl(J).entity_id
4125: THEN
4126: --Parent exists.
4127: IF l_debug_level > 0 THEN
4128: oe_debug_pub.add( 'PARENT EXISTS: ' || P_SCH_SET_TBL ( J).ENTITY_ID , 1 ) ;
4129: END IF;
4130: l_line_exists := 'Y';
4131: EXIT;
4132: END IF;
4140: FOR J IN 1..p_sch_set_tbl.count LOOP
4141: IF l_link_to_line_id = p_sch_set_tbl(J).entity_id THEN
4142: --Parent exists.
4143: IF l_debug_level > 0 THEN
4144: oe_debug_pub.add( 'PARENT EXISTS: ' || P_SCH_SET_TBL ( J ) .ENTITY_ID , 1 ) ;
4145: END IF;
4146: l_line_exists := 'Y';
4147: EXIT;
4148: END IF;
4153:
4154: -- Do not go in to this code, if the line is a top model or
4155: -- an ato model
4156:
4157: oe_debug_pub.add(' l_line_exists :' || l_line_exists,1);
4158: oe_debug_pub.add(' l_ato_line_id :' || l_ato_line_id,1);
4159: oe_debug_pub.add(' l_item_type_code :'|| l_item_type_code,1);
4160: IF l_line_exists = 'N'
4161: AND nvl(l_top_model_line_id,0) <> p_sch_set_tbl(I).entity_id
4154: -- Do not go in to this code, if the line is a top model or
4155: -- an ato model
4156:
4157: oe_debug_pub.add(' l_line_exists :' || l_line_exists,1);
4158: oe_debug_pub.add(' l_ato_line_id :' || l_ato_line_id,1);
4159: oe_debug_pub.add(' l_item_type_code :'|| l_item_type_code,1);
4160: IF l_line_exists = 'N'
4161: AND nvl(l_top_model_line_id,0) <> p_sch_set_tbl(I).entity_id
4162: AND NOT (l_item_type_code = OE_GLOBALS.G_ITEM_CLASS
4155: -- an ato model
4156:
4157: oe_debug_pub.add(' l_line_exists :' || l_line_exists,1);
4158: oe_debug_pub.add(' l_ato_line_id :' || l_ato_line_id,1);
4159: oe_debug_pub.add(' l_item_type_code :'|| l_item_type_code,1);
4160: IF l_line_exists = 'N'
4161: AND nvl(l_top_model_line_id,0) <> p_sch_set_tbl(I).entity_id
4162: AND NOT (l_item_type_code = OE_GLOBALS.G_ITEM_CLASS
4163: AND nvl(l_ato_line_id,-99) = p_sch_set_tbl(I).entity_id) THEN
4163: AND nvl(l_ato_line_id,-99) = p_sch_set_tbl(I).entity_id) THEN
4164:
4165:
4166: IF l_debug_level > 0 THEN
4167: oe_debug_pub.add( 'LINE IS SELECTED FOR PROCESSING ' || P_SCH_SET_TBL ( I ) .ENTITY_ID , 1 ) ;
4168: END IF;
4169: l_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
4170: OE_LINE_UTIL.Lock_Row(p_line_id => p_sch_set_tbl(I).entity_id,
4171: p_x_line_rec => l_line_rec,
4267: l_line_tbl(K).ship_from_org_id := p_sch_set_tbl(I).param10;
4268: l_line_tbl(k).re_source_flag := 'N';
4269: END IF;
4270: IF fnd_profile.value('ONT_SHIP_METHOD_FOR_SHIP_SET') = 'Y' THEN
4271: oe_debug_pub.add('ONT_SHIP_METHOD_FOR_SHIP_SET' || p_sch_set_tbl(I).param11,2);
4272: l_line_tbl(K).shipping_method_code := p_sch_set_tbl(I).param11;
4273: END IF;
4274: END IF;
4275:
4305: OR l_item_type_code = 'KIT'
4306: OR l_item_type_code = 'MODEL'
4307: THEN
4308:
4309: oe_debug_pub.add('line_id ' || p_sch_set_tbl(I).entity_id,3);
4310: oe_debug_pub.add(' top line ' || l_top_model_line_id,3);
4311: oe_debug_pub.add(' ato line ' || l_ato_line_id,3);
4312: oe_debug_pub.add(' item type ' || l_item_type_code,3);
4313: oe_debug_pub.add(' header_id ' || l_header_id,3);
4306: OR l_item_type_code = 'MODEL'
4307: THEN
4308:
4309: oe_debug_pub.add('line_id ' || p_sch_set_tbl(I).entity_id,3);
4310: oe_debug_pub.add(' top line ' || l_top_model_line_id,3);
4311: oe_debug_pub.add(' ato line ' || l_ato_line_id,3);
4312: oe_debug_pub.add(' item type ' || l_item_type_code,3);
4313: oe_debug_pub.add(' header_id ' || l_header_id,3);
4314:
4307: THEN
4308:
4309: oe_debug_pub.add('line_id ' || p_sch_set_tbl(I).entity_id,3);
4310: oe_debug_pub.add(' top line ' || l_top_model_line_id,3);
4311: oe_debug_pub.add(' ato line ' || l_ato_line_id,3);
4312: oe_debug_pub.add(' item type ' || l_item_type_code,3);
4313: oe_debug_pub.add(' header_id ' || l_header_id,3);
4314:
4315: IF p_sch_set_tbl(I).entity_id = nvl(l_top_model_line_id,0) THEN
4308:
4309: oe_debug_pub.add('line_id ' || p_sch_set_tbl(I).entity_id,3);
4310: oe_debug_pub.add(' top line ' || l_top_model_line_id,3);
4311: oe_debug_pub.add(' ato line ' || l_ato_line_id,3);
4312: oe_debug_pub.add(' item type ' || l_item_type_code,3);
4313: oe_debug_pub.add(' header_id ' || l_header_id,3);
4314:
4315: IF p_sch_set_tbl(I).entity_id = nvl(l_top_model_line_id,0) THEN
4316: Oe_Config_Schedule_Pvt.Query_Set_Lines
4309: oe_debug_pub.add('line_id ' || p_sch_set_tbl(I).entity_id,3);
4310: oe_debug_pub.add(' top line ' || l_top_model_line_id,3);
4311: oe_debug_pub.add(' ato line ' || l_ato_line_id,3);
4312: oe_debug_pub.add(' item type ' || l_item_type_code,3);
4313: oe_debug_pub.add(' header_id ' || l_header_id,3);
4314:
4315: IF p_sch_set_tbl(I).entity_id = nvl(l_top_model_line_id,0) THEN
4316: Oe_Config_Schedule_Pvt.Query_Set_Lines
4317: (p_header_id => l_header_id,
4385: p_set_id => nvl(l_iline_tbl(I).ship_set_id,
4386: l_iline_tbl(I).arrival_set_id),
4387: x_return_status => x_return_status);
4388: IF l_debug_level > 0 THEN
4389: oe_debug_pub.add( 'AFTER LOGGING DELETE SETS DELAYED REQUEST '
4390: || X_RETURN_STATUS , 1 ) ;
4391: END IF;
4392: END IF;
4393:
4392: END IF;
4393:
4394: IF l_iline_tbl(I).shipping_interfaced_flag = 'Y' THEN
4395:
4396: oe_debug_pub.add('Line is interfaced ',2);
4397:
4398: OE_Delayed_Requests_Pvt.Log_Request(
4399: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4400: p_entity_id => l_iline_tbl(I).line_id,
4410: EXIT;
4411: END IF;
4412:
4413: IF l_debug_level > 0 THEN
4414: oe_debug_pub.add( 'INCLUDED ITEM COUNT ' || L_ILINE_TBL.COUNT,2);
4415: END IF;
4416:
4417: -- Start 2716220 --
4418: -- To check schedule dates with override flag
4440: IF l_iline_tbl(O).schedule_arrival_date IS NOT NULL
4441: AND l_set_rec.schedule_arrival_date IS NOT NULL
4442: AND l_iline_tbl(O).schedule_arrival_date <> l_set_rec.schedule_arrival_date
4443: THEN
4444: oe_debug_pub.add('Arr date does not match with set date' || l_iline_tbl(O).line_id,2);
4445: l_log_error := TRUE;
4446: END IF;
4447:
4448: ELSE
4450: IF l_iline_tbl(O).schedule_ship_date IS NOT NULL
4451: AND l_set_rec.schedule_ship_date IS NOT NULL
4452: AND l_iline_tbl(O).schedule_ship_date <> l_set_rec.schedule_ship_date
4453: THEN
4454: oe_debug_pub.add('Sch date does not match with set date' || l_iline_tbl(O).line_id,2);
4455: l_log_error := TRUE;
4456: END IF;
4457: END IF;
4458: END IF;
4466: END IF;
4467:
4468: FOR M IN 1..l_iline_tbl.count LOOP
4469: IF l_debug_level > 0 THEN
4470: oe_debug_pub.add('LINE_ID: ' || l_iline_tbl(M).LINE_ID, 1);
4471: END IF;
4472:
4473: K := K + 1;
4474:
4476: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
4477: IF l_line_rec.override_atp_date_code = 'Y' THEN
4478: l_iline_tbl(M).override_atp_date_code := l_line_rec.override_atp_date_code;
4479: IF l_debug_level > 0 THEN
4480: oe_debug_pub.add( 'OVERRIDE_ATP :' || L_ILINE_TBL(M).OVERRIDE_ATP_DATE_CODE , 3 ) ;
4481: END IF;
4482: END IF;
4483: END IF;
4484: -- END 1282873
4522: l_line_tbl(K).ship_from_org_id := p_sch_set_tbl(I).param10;
4523: l_line_tbl(k).re_source_flag := 'N';
4524: END IF;
4525: IF fnd_profile.value('ONT_SHIP_METHOD_FOR_SHIP_SET') = 'Y' THEN
4526: oe_debug_pub.add('ONT_SHIP_METHOD_FOR_SHIP_SET Model:' || p_sch_set_tbl(I).param11,1);
4527: l_line_tbl(K).shipping_method_code := p_sch_set_tbl(I).param11;
4528: END IF;
4529: END IF;
4530:
4561: Null;
4562: END LOOP; -- Main loop.
4563:
4564: IF l_debug_level > 0 THEN
4565: oe_debug_pub.add('Line Count :' || l_line_tbl.count,1);
4566: END IF;
4567: --3564310
4568: -- Validate the lines befor calling process_group
4569: IF l_line_tbl.count > 0 THEN
4576:
4577: END IF;
4578:
4579: IF l_debug_level > 0 THEN
4580: oe_debug_pub.add( 'AFTER CALLING Validate Group ' || X_RETURN_STATUS
4581: || l_line_tbl.count , 1 ) ;
4582: END IF;
4583: -- 3564310
4584: IF l_line_tbl.count > 0
4592: ,p_part_of_set => l_part_of_set --4405004
4593: ,x_return_status => x_return_status);
4594:
4595: IF l_debug_level > 0 THEN
4596: oe_debug_pub.add('After call to Process Group :' || x_return_status ,1);
4597: END IF;
4598: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4600: END IF;
4603: -- Additional process we are doing to fix bug 2232950.
4604: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
4605:
4606: IF l_debug_level > 0 THEN
4607: oe_debug_pub.add('Compare output with requested values',1);
4608: END IF;
4609:
4610: FOR I IN 1..l_line_tbl.count LOOP
4611:
4612: IF p_sch_set_tbl(1).param8 = OE_SCHEDULE_UTIL.OESCH_ENTITY_SHIP_SET
4613: AND trunc(l_line_tbl(I).Schedule_ship_date) <> trunc(p_sch_set_tbl(1).date_param4)
4614: THEN
4615: IF l_debug_level > 0 THEN
4616: oe_debug_pub.add('Not received correct values for ship set',1);
4617: END IF;
4618: x_return_status := FND_API.G_RET_STS_ERROR;
4619: EXIT;
4620: ELSIF p_sch_set_tbl(1).param8 = OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET
4620: ELSIF p_sch_set_tbl(1).param8 = OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET
4621: AND trunc(l_line_tbl(I).Schedule_arrival_date) <> trunc(p_sch_set_tbl(1).date_param5)
4622: THEN
4623: IF l_debug_level > 0 THEN
4624: oe_debug_pub.add('Not received correct values for arrival set',1);
4625: END IF;
4626: x_return_status := FND_API.G_RET_STS_ERROR;
4627: EXIT;
4628: END IF;
4632:
4633: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4634:
4635: IF l_debug_level > 0 THEN
4636: oe_debug_pub.add('Line Id error out : ' || l_line_rec.line_id,2);
4637: END IF;
4638:
4639: -- Could not schedule the line on the set date. Let's schedule
4640: -- the whole set to see if we get another date got the whole
4642:
4643: IF fnd_profile.value('ONT_AUTO_PUSH_GRP_DATE') = 'Y' THEN
4644:
4645: IF l_debug_level > 0 THEN
4646: oe_debug_pub.add('Auto Push Group Date is Yes',2);
4647: END IF;
4648:
4649: -- Added this stmt to fix big 1899651.
4650: l_request_rec := p_sch_set_tbl(1);
4652: -- 3384975
4653: l_request_rec.param12 := l_param12;
4654:
4655: IF l_debug_level > 0 THEN
4656: oe_debug_pub.add('Stng G_CASCADING_REQUEST_LOGGED to TRUE',2);
4657: END IF;
4658: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
4659:
4660: Schedule_Set(p_request_rec => l_request_rec,
4662:
4663: ELSE
4664:
4665: IF l_debug_level > 0 THEN
4666: oe_debug_pub.add('Before setting message for group failure',2);
4667: END IF;
4668:
4669: FND_MESSAGE.SET_NAME('ONT','OE_SCH_GROUP_MEMBER_FAILED');
4670: OE_MSG_PUB.Add;
4676: -- message that the line schedule failed. We will return a success
4677: -- since we do not want to fail the line insert due to this.
4678:
4679: IF l_debug_level > 0 THEN
4680: oe_debug_pub.add('Calling Update Set');
4681: END IF;
4682:
4683: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4684:
4682:
4683: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4684:
4685: IF l_debug_level > 0 THEN
4686: oe_debug_pub.add('Unable to schedule the line for set date');
4687: END IF;
4688:
4689: FOR I IN 1..l_line_tbl.count LOOP
4690: IF l_line_tbl(I).top_model_line_id IS NOT NULL
4695: -- to a scheduled ATO or SMC PTO if it cannot be scheduled on
4696: -- the same date as that of the model.
4697:
4698: IF l_debug_level > 0 THEN
4699: oe_debug_pub.add('Line belong to model');
4700: END IF;
4701: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
4702: OE_MSG_PUB.Add;
4703: RAISE FND_API.G_EXC_ERROR;
4705: ELSE
4706: -- If the line is being added to set is a standard line
4707: -- save the line without scheduling attributes.
4708: IF l_debug_level > 0 THEN
4709: oe_debug_pub.add('Standard line is failed');
4710: END IF;
4711: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
4712: OE_MSG_PUB.Add;
4713:
4746: p_line_id => l_line_tbl(I).line_id,
4747: p_set_id => nvl(l_line_tbl(I).ship_set_id,l_line_tbl(I).arrival_set_id),
4748: x_return_status => x_return_status);
4749: IF l_debug_level > 0 THEN
4750: oe_debug_pub.add( 'AFTER LOGGING DELETE SETS DELAYED REQUEST '
4751: || X_RETURN_STATUS , 1 ) ;
4752: END IF;
4753: END IF;
4754:
4776: END IF; -- If g_ret_status is error
4777:
4778: l_old_set_tbl.delete;
4779: IF l_debug_level > 0 THEN
4780: oe_debug_pub.add('Exiting OE_Delayed_Requests_UTIL.Schedule_set_lines');
4781: END IF;
4782: EXCEPTION
4783:
4784: WHEN FND_API.G_EXC_ERROR THEN
4784: WHEN FND_API.G_EXC_ERROR THEN
4785: x_return_status := FND_API.G_RET_STS_ERROR;
4786: l_old_set_tbl.delete;
4787: IF l_debug_level > 0 THEN
4788: oe_debug_pub.add('No data from expected error',1);
4789: END IF;
4790: RAISE FND_API.G_EXC_ERROR;
4791:
4792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4798: , 'Schedule_set_lines'
4799: );
4800: END IF;
4801: IF l_debug_level > 0 THEN
4802: oe_debug_pub.add('No data from unexpected error',1);
4803: END IF;
4804:
4805: l_old_set_tbl.delete;
4806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4815: , 'Schedule_set_lines'
4816: );
4817: END IF;
4818: IF l_debug_level > 0 THEN
4819: oe_debug_pub.add('No data from unexpected error',1);
4820: END IF;
4821: l_old_set_tbl.delete;
4822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4823:
4894: l_override_arrival_date DATE := NULL;
4895: l_log_error BOOLEAN := FALSE;
4896: l_operation VARCHAR2(30) := 'UPDATE';
4897: --
4898: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4899: --
4900: /* Added the following 2 line to fix the bug 2740480 */
4901: l_push_logic VARCHAR2(1) := 'N';
4902: l_date_changed VARCHAR2(1) := 'N';
4905: l_count NUMBER := 0; -- 5043206
4906:
4907: BEGIN
4908: IF l_debug_level > 0 THEN
4909: oe_debug_pub.add( 'ENTERING SCHEDULE_SET' , 1 ) ;
4910: END IF;
4911:
4912: l_entity_type := p_request_rec.param8;
4913: l_action := p_request_rec.param3;
4927: l_set_schedule_ship_date := p_request_rec.date_param4;
4928: l_set_schedule_arrival_date := p_request_rec.date_param5;
4929:
4930: IF l_debug_level > 0 THEN
4931: oe_debug_pub.add( 'L_OLD_SCHEDULE_SHIP_DATE :'
4932: || L_OLD_SCHEDULE_SHIP_DATE , 1 ) ;
4933: oe_debug_pub.add( 'L_OLD_REQUEST_DATE :' || L_OLD_REQUEST_DATE , 1 ) ;
4934: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
4935: oe_debug_pub.add( 'L_OLD_SHIP_SET_ID :' || L_OLD_SHIP_SET_ID , 1 ) ;
4929:
4930: IF l_debug_level > 0 THEN
4931: oe_debug_pub.add( 'L_OLD_SCHEDULE_SHIP_DATE :'
4932: || L_OLD_SCHEDULE_SHIP_DATE , 1 ) ;
4933: oe_debug_pub.add( 'L_OLD_REQUEST_DATE :' || L_OLD_REQUEST_DATE , 1 ) ;
4934: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
4935: oe_debug_pub.add( 'L_OLD_SHIP_SET_ID :' || L_OLD_SHIP_SET_ID , 1 ) ;
4936: END IF;
4937:
4930: IF l_debug_level > 0 THEN
4931: oe_debug_pub.add( 'L_OLD_SCHEDULE_SHIP_DATE :'
4932: || L_OLD_SCHEDULE_SHIP_DATE , 1 ) ;
4933: oe_debug_pub.add( 'L_OLD_REQUEST_DATE :' || L_OLD_REQUEST_DATE , 1 ) ;
4934: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
4935: oe_debug_pub.add( 'L_OLD_SHIP_SET_ID :' || L_OLD_SHIP_SET_ID , 1 ) ;
4936: END IF;
4937:
4938: Select Schedule_ship_date, Schedule_arrival_date,
4931: oe_debug_pub.add( 'L_OLD_SCHEDULE_SHIP_DATE :'
4932: || L_OLD_SCHEDULE_SHIP_DATE , 1 ) ;
4933: oe_debug_pub.add( 'L_OLD_REQUEST_DATE :' || L_OLD_REQUEST_DATE , 1 ) ;
4934: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
4935: oe_debug_pub.add( 'L_OLD_SHIP_SET_ID :' || L_OLD_SHIP_SET_ID , 1 ) ;
4936: END IF;
4937:
4938: Select Schedule_ship_date, Schedule_arrival_date,
4939: ship_to_org_id, ship_from_org_id, request_date,
4971: EXCEPTION
4972: WHEN OTHERS THEN
4973:
4974: IF l_debug_level > 0 THEN
4975: oe_debug_pub.add( 'No Records found after checking For Lines in set' , 1 ) ;
4976: END IF;
4977:
4978: END ;
4979:
4993: l_Schedule_ship_date := p_request_rec.date_param4;
4994: END IF;
4995: */
4996: IF l_debug_level > 0 THEN
4997: oe_debug_pub.add( 'L_SCHEDULE_SHIP_DATE :' || L_SCHEDULE_SHIP_DATE , 1 ) ;
4998: oe_debug_pub.add( 'L_REQUEST_DATE :' || L_REQUEST_DATE , 1 ) ;
4999: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
5000: oe_debug_pub.add( 'L_SET_ID :' || L_SET_ID , 1 ) ;
5001: END IF;
4994: END IF;
4995: */
4996: IF l_debug_level > 0 THEN
4997: oe_debug_pub.add( 'L_SCHEDULE_SHIP_DATE :' || L_SCHEDULE_SHIP_DATE , 1 ) ;
4998: oe_debug_pub.add( 'L_REQUEST_DATE :' || L_REQUEST_DATE , 1 ) ;
4999: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
5000: oe_debug_pub.add( 'L_SET_ID :' || L_SET_ID , 1 ) ;
5001: END IF;
5002:
4995: */
4996: IF l_debug_level > 0 THEN
4997: oe_debug_pub.add( 'L_SCHEDULE_SHIP_DATE :' || L_SCHEDULE_SHIP_DATE , 1 ) ;
4998: oe_debug_pub.add( 'L_REQUEST_DATE :' || L_REQUEST_DATE , 1 ) ;
4999: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
5000: oe_debug_pub.add( 'L_SET_ID :' || L_SET_ID , 1 ) ;
5001: END IF;
5002:
5003: l_set_id := p_request_rec.param1;
4996: IF l_debug_level > 0 THEN
4997: oe_debug_pub.add( 'L_SCHEDULE_SHIP_DATE :' || L_SCHEDULE_SHIP_DATE , 1 ) ;
4998: oe_debug_pub.add( 'L_REQUEST_DATE :' || L_REQUEST_DATE , 1 ) ;
4999: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
5000: oe_debug_pub.add( 'L_SET_ID :' || L_SET_ID , 1 ) ;
5001: END IF;
5002:
5003: l_set_id := p_request_rec.param1;
5004: IF l_debug_level > 0 THEN
5001: END IF;
5002:
5003: l_set_id := p_request_rec.param1;
5004: IF l_debug_level > 0 THEN
5005: oe_debug_pub.add( 'CALLING QUERY_SET_LINES' , 1 ) ;
5006: END IF;
5007: BEGIN
5008:
5009: IF p_request_rec.param8 = OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET THEN
5034:
5035: EXCEPTION
5036: WHEN OTHERS THEN
5037: IF l_debug_level > 0 THEN
5038: oe_debug_pub.add( 'ERROR AFTER CALLING QUERY_SET_LINES' , 1 ) ;
5039: END IF;
5040: goto END_OF_PROCESS;
5041: END;
5042:
5040: goto END_OF_PROCESS;
5041: END;
5042:
5043: IF l_debug_level > 0 THEN
5044: oe_debug_pub.add( 'AFTER CALLING QUERY_SET_LINES' , 1 ) ;
5045: oe_debug_pub.add( 'COUNT IS ' || L_LINE_TBL.COUNT , 1 ) ;
5046: END IF;
5047:
5048: -- Start 2716220 --
5041: END;
5042:
5043: IF l_debug_level > 0 THEN
5044: oe_debug_pub.add( 'AFTER CALLING QUERY_SET_LINES' , 1 ) ;
5045: oe_debug_pub.add( 'COUNT IS ' || L_LINE_TBL.COUNT , 1 ) ;
5046: END IF;
5047:
5048: -- Start 2716220 --
5049: -- To check schedule dates with override flag
5094: (l_line_tbl(I).item_type_code <> OE_GLOBALS.G_ITEM_STANDARD AND
5095: nvl(l_line_tbl(I).model_remnant_flag,'N') = 'N') THEN
5096:
5097: IF l_debug_level > 0 THEN
5098: oe_debug_pub.add( 'UNABLE TO BYPASS' , 2 ) ;
5099: END IF;
5100: l_can_bypass := FALSE;
5101: EXIT;
5102:
5126: -- of the lines that are part of the set are being changed.
5127: -- In that case compare the line attributes with that of Set attributes. If any change is found call MRP.
5128: IF l_set_rec.schedule_ship_date IS NULL THEN
5129: IF l_debug_level > 0 THEN
5130: oe_debug_pub.add('New Set is being created, comparing scheduling attributes with first line', 5);
5131: END IF;
5132:
5133: IF OE_SCHEDULE_UTIL.Set_Attr_Matched
5134: (p_set_ship_from_org_id => l_line_tbl(1).ship_from_org_id ,
5149: EXIT;
5150: END IF;
5151: ELSE
5152: IF l_debug_level > 0 THEN
5153: oe_debug_pub.add('Set already exists, comparing scheduling attributes with set', 5);
5154: END IF;
5155:
5156: -- following code added for bug 3878494
5157: IF OE_SCHEDULE_UTIL.Set_Attr_Matched
5169: l_can_bypass := TRUE;
5170:
5171: ELSE
5172: IF l_debug_level > 0 THEN
5173: oe_debug_pub.add( 'LINES DID NOT MATCH' , 2 ) ;
5174: END IF;
5175: l_can_bypass := FALSE;
5176: EXIT;
5177: END IF;
5182:
5183: IF l_can_bypass THEN
5184:
5185: IF l_debug_level > 0 THEN
5186: oe_debug_pub.add( 'ALL LINES MATCH WITH SET DATES , BYPASS MRP CALL' , 2 ) ;
5187: END IF;
5188: GOTO BYPASS_PROCESS;
5189:
5190: END IF;
5249: And override_atp_date_code = 'Y'
5250: And rownum < 2;
5251:
5252: IF l_debug_level > 0 THEN
5253: oe_debug_pub.add( 'ato override flag :' || l_line_tbl ( I ) .override_atp_date_code , 3 ) ;
5254: END IF;
5255: EXCEPTION
5256: WHEN OTHERS THEN
5257: Null;
5257: Null;
5258:
5259: END;
5260: IF l_debug_level > 0 THEN
5261: oe_debug_pub.add( 'override_atp for ato :' || L_LINE_TBL ( I ) .OVERRIDE_ATP_DATE_CODE || L_LINE_TBL ( I ) .LINE_ID , 3 ) ;
5262: END IF;
5263: ELSIF l_line_tbl(I).item_type_code = OE_GLOBALS.G_ITEM_INCLUDED THEN
5264:
5265:
5272: Where header_id = l_line_tbl(I).header_id
5273: And line_id = l_line_tbl(I).link_to_line_id;
5274:
5275: IF l_debug_level > 0 THEN
5276: oe_debug_pub.add( 'INC OVERRIDE FLAG :' || L_LINE_TBL ( I ) .OVERRIDE_ATP_DATE_CODE , 3 ) ;
5277: END IF;
5278: EXCEPTION
5279: WHEN OTHERS THEN
5280: Null;
5280: Null;
5281:
5282: END;
5283: IF l_debug_level > 0 THEN
5284: oe_debug_pub.add( 'override_atp for inc :' || L_LINE_TBL ( I ) .OVERRIDE_ATP_DATE_CODE || L_LINE_TBL ( I ) .LINE_ID , 3 ) ;
5285: END IF;
5286: END IF; -- Ato/included.
5287: END IF; -- Check for pack I
5288: -- END 1282873
5302: l_line_tbl(I).change_comments := 'Delayed Request , Scheduling';
5303: /* End of Bug 6250075 */
5304:
5305: IF fnd_profile.value('ONT_SHIP_METHOD_FOR_SHIP_SET') = 'Y' THEN
5306: oe_debug_pub.add('ONT_SHIP_METHOD_FOR_SHIP_SET: ' || p_request_rec.param11,2);
5307: l_line_tbl(I).shipping_method_code := p_request_rec.param11;
5308: END IF;
5309: -- l_line_tbl(I).shipping_method_code := p_request_rec.param11;
5310: /* Commented the above line to fix the bug 2916814 */
5334: l_line_tbl(I).re_source_flag := 'N';
5335: END IF;
5336:
5337: IF l_debug_level > 0 THEN
5338: oe_debug_pub.add( 'REQUEST DATE :' || L_REQUEST_DATE , 1 ) ;
5339: END IF;
5340:
5341: -- Start 2787962
5342: IF l_line_tbl(I).top_model_line_id is not null
5408: l_line_tbl(I).schedule_ship_date := l_line_tbl(I).request_date;
5409: END IF;
5410:
5411: IF l_debug_level > 0 THEN
5412: oe_debug_pub.add( 'request ship date :' || L_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE , 1 ) ;
5413: END IF;
5414:
5415:
5416: IF l_set_schedule_arrival_date is not null THEN
5428: -- END IF; -- 2716220
5429:
5430: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
5431: IF l_debug_level > 0 THEN
5432: oe_debug_pub.add('request date :' || l_line_tbl(i).request_date , 1 ) ;
5433: oe_debug_pub.add('schedule_ship_date :' || l_line_tbl(I).schedule_ship_date , 1 ) ;
5434: oe_debug_pub.add('schedule_arrival_date :' || l_line_tbl(I).schedule_arrival_date , 1 ) ;
5435: oe_debug_pub.add('ship_from_org_id :' || l_line_tbl(I).ship_from_org_id , 1 ) ;
5436: END IF;
5429:
5430: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
5431: IF l_debug_level > 0 THEN
5432: oe_debug_pub.add('request date :' || l_line_tbl(i).request_date , 1 ) ;
5433: oe_debug_pub.add('schedule_ship_date :' || l_line_tbl(I).schedule_ship_date , 1 ) ;
5434: oe_debug_pub.add('schedule_arrival_date :' || l_line_tbl(I).schedule_arrival_date , 1 ) ;
5435: oe_debug_pub.add('ship_from_org_id :' || l_line_tbl(I).ship_from_org_id , 1 ) ;
5436: END IF;
5437: END LOOP;
5430: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
5431: IF l_debug_level > 0 THEN
5432: oe_debug_pub.add('request date :' || l_line_tbl(i).request_date , 1 ) ;
5433: oe_debug_pub.add('schedule_ship_date :' || l_line_tbl(I).schedule_ship_date , 1 ) ;
5434: oe_debug_pub.add('schedule_arrival_date :' || l_line_tbl(I).schedule_arrival_date , 1 ) ;
5435: oe_debug_pub.add('ship_from_org_id :' || l_line_tbl(I).ship_from_org_id , 1 ) ;
5436: END IF;
5437: END LOOP;
5438: END IF; -- Ship Set
5431: IF l_debug_level > 0 THEN
5432: oe_debug_pub.add('request date :' || l_line_tbl(i).request_date , 1 ) ;
5433: oe_debug_pub.add('schedule_ship_date :' || l_line_tbl(I).schedule_ship_date , 1 ) ;
5434: oe_debug_pub.add('schedule_arrival_date :' || l_line_tbl(I).schedule_arrival_date , 1 ) ;
5435: oe_debug_pub.add('ship_from_org_id :' || l_line_tbl(I).ship_from_org_id , 1 ) ;
5436: END IF;
5437: END LOOP;
5438: END IF; -- Ship Set
5439:
5581: END IF;
5582: -- END IF; -- 2716220
5583:
5584: IF l_debug_level > 0 THEN
5585: oe_debug_pub.add( 'REQUEST ARRIVAL DATE :' || L_LINE_TBL ( I ) .SCHEDULE_ARRIVAL_DATE , 1 ) ;
5586: END IF;
5587:
5588:
5589: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
5618:
5619: END LOOP;
5620: END IF;
5621: IF l_debug_level > 0 THEN
5622: oe_debug_pub.add( 'CALLING PROCESS_GROUP' , 1 ) ;
5623: END IF;
5624:
5625: IF l_line_tbl.count > 0 THEN
5626:
5632:
5633: END IF;
5634:
5635: IF l_debug_level > 0 THEN
5636: oe_debug_pub.add( 'AFTER CALLING Validate Group ' || X_RETURN_STATUS
5637: || l_line_tbl.count || ':' || l_old_line_tbl.count , 1 ) ;
5638: END IF;
5639:
5640: IF l_line_tbl.count <> l_old_line_tbl.count THEN
5656: */
5657: /* Commented the above code and added the following code to fix the bug 2740480 */
5658: IF l_push_logic = 'Y' THEN
5659:
5660: oe_debug_pub.add('2740480: Push logic is set to Y ',2);
5661: Oe_Config_Schedule_Pvt.Process_Group
5662: (p_x_line_tbl => l_line_tbl
5663: ,p_old_line_tbl => l_old_line_tbl
5664: ,p_caller => 'SET'
5666: ,p_partial_set => TRUE
5667: ,x_return_status => x_return_status);
5668:
5669: IF l_debug_level > 0 THEN
5670: oe_debug_pub.add('2740480: After call to Process Group :' || x_return_status ,1);
5671: END IF;
5672: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5674: END IF;
5674: END IF;
5675: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
5676:
5677: IF l_debug_level > 0 THEN
5678: oe_debug_pub.add('2740480: Compare output with requested values',1);
5679: END IF;
5680:
5681: FOR I IN 1..l_line_tbl.count LOOP
5682: oe_debug_pub.add('2740480: Entity type : '|| l_entity_type);
5678: oe_debug_pub.add('2740480: Compare output with requested values',1);
5679: END IF;
5680:
5681: FOR I IN 1..l_line_tbl.count LOOP
5682: oe_debug_pub.add('2740480: Entity type : '|| l_entity_type);
5683: oe_debug_pub.add('2740480: line schedule ship date : '|| l_line_tbl(I).Schedule_ship_date);
5684: oe_debug_pub.add('2740480: set schedule ship date : '|| l_set_rec.Schedule_ship_date );
5685: IF l_entity_type = OE_SCHEDULE_UTIL.OESCH_ENTITY_SHIP_SET
5686: AND trunc(l_line_tbl(I).Schedule_ship_date) <> trunc(l_set_rec.Schedule_ship_date)
5679: END IF;
5680:
5681: FOR I IN 1..l_line_tbl.count LOOP
5682: oe_debug_pub.add('2740480: Entity type : '|| l_entity_type);
5683: oe_debug_pub.add('2740480: line schedule ship date : '|| l_line_tbl(I).Schedule_ship_date);
5684: oe_debug_pub.add('2740480: set schedule ship date : '|| l_set_rec.Schedule_ship_date );
5685: IF l_entity_type = OE_SCHEDULE_UTIL.OESCH_ENTITY_SHIP_SET
5686: AND trunc(l_line_tbl(I).Schedule_ship_date) <> trunc(l_set_rec.Schedule_ship_date)
5687: THEN
5680:
5681: FOR I IN 1..l_line_tbl.count LOOP
5682: oe_debug_pub.add('2740480: Entity type : '|| l_entity_type);
5683: oe_debug_pub.add('2740480: line schedule ship date : '|| l_line_tbl(I).Schedule_ship_date);
5684: oe_debug_pub.add('2740480: set schedule ship date : '|| l_set_rec.Schedule_ship_date );
5685: IF l_entity_type = OE_SCHEDULE_UTIL.OESCH_ENTITY_SHIP_SET
5686: AND trunc(l_line_tbl(I).Schedule_ship_date) <> trunc(l_set_rec.Schedule_ship_date)
5687: THEN
5688: IF l_debug_level > 0 THEN
5685: IF l_entity_type = OE_SCHEDULE_UTIL.OESCH_ENTITY_SHIP_SET
5686: AND trunc(l_line_tbl(I).Schedule_ship_date) <> trunc(l_set_rec.Schedule_ship_date)
5687: THEN
5688: IF l_debug_level > 0 THEN
5689: oe_debug_pub.add('2740480: Not received correct values for ship set',1);
5690: END IF;
5691: l_date_changed := 'Y' ;
5692: EXIT;
5693: ELSIF l_entity_type = OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET
5693: ELSIF l_entity_type = OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET
5694: AND trunc(l_line_tbl(I).Schedule_arrival_date) <> trunc(l_set_rec.Schedule_arrival_date)
5695: THEN
5696: IF l_debug_level > 0 THEN
5697: oe_debug_pub.add('2740480: Not received correct values for arrival set',1);
5698: END IF;
5699: l_date_changed := 'Y' ;
5700: EXIT;
5701: END IF;
5709:
5710: IF fnd_profile.value('ONT_AUTO_PUSH_GRP_DATE') = 'Y' THEN
5711:
5712: IF l_debug_level > 0 THEN
5713: oe_debug_pub.add('2740480: Auto Push Group Date is Yes',2);
5714: END IF;
5715: goto Push;
5716: ELSE
5717:
5715: goto Push;
5716: ELSE
5717:
5718: IF l_debug_level > 0 THEN
5719: oe_debug_pub.add('Before setting message for group failure',2);
5720: END IF;
5721:
5722: x_return_status := FND_API.G_RET_STS_ERROR;
5723: FND_MESSAGE.SET_NAME('ONT','OE_SCH_GROUP_MEMBER_FAILED');
5729: END IF; -- Push logic ends here.
5730:
5731: <
5732:
5733: oe_debug_pub.add('2740480: Push logic is set to N ',2);
5734: Oe_Config_Schedule_Pvt.Process_Group
5735: (p_x_line_tbl => l_line_tbl
5736: ,p_old_line_tbl => l_old_line_tbl
5737: ,p_caller => 'SET'
5741: /* End of code for the bug fix 2740480 */
5742:
5743:
5744: IF l_debug_level > 0 THEN
5745: oe_debug_pub.add( 'AFTER CALLING PROCESS_GROUP' || X_RETURN_STATUS , 1 ) ;
5746: END IF;
5747:
5748: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5752:
5753: -- Code added for bug 2812346
5754:
5755: IF l_debug_level > 0 THEN
5756: oe_debug_pub.add('l_operation :' || l_operation,2);
5757: oe_debug_pub.add('l_set_rec.set_status :' || l_set_rec.set_status,2);
5758: END IF;
5759: IF l_operation = OE_GLOBALS.G_OPR_CREATE
5760: AND l_set_rec.set_status = 'T' THEN
5753: -- Code added for bug 2812346
5754:
5755: IF l_debug_level > 0 THEN
5756: oe_debug_pub.add('l_operation :' || l_operation,2);
5757: oe_debug_pub.add('l_set_rec.set_status :' || l_set_rec.set_status,2);
5758: END IF;
5759: IF l_operation = OE_GLOBALS.G_OPR_CREATE
5760: AND l_set_rec.set_status = 'T' THEN
5761: -- Could not schedule the line on the set date. Let's schedule
5797: p_line_id => l_line_tbl(I).line_id,
5798: p_set_id => nvl(l_line_tbl(I).ship_set_id,l_line_tbl(I).arrival_set_id),
5799: x_return_status => x_return_status);
5800: IF l_debug_level > 0 THEN
5801: oe_debug_pub.add( 'AFTER LOGGING DELETE SETS DELAYED REQUEST ' || X_RETURN_STATUS , 1 ) ;
5802: END IF;
5803: END IF;
5804:
5805: ELSE
5804:
5805: ELSE
5806:
5807: IF l_debug_level > 0 THEN
5808: oe_debug_pub.add('Model is part of a set cannot save ' ,2);
5809: END IF;
5810:
5811: RAISE FND_API.G_EXC_ERROR;
5812: END IF;
5814: -- END IF; --commented for bug3986288
5815:
5816: END LOOP;
5817: IF l_debug_level > 0 THEN
5818: oe_debug_pub.add('It is a create operation ' ,2);
5819: END IF;
5820: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
5821: OE_MSG_PUB.Add;
5822: x_return_status := FND_API.G_RET_STS_SUCCESS;
5820: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
5821: OE_MSG_PUB.Add;
5822: x_return_status := FND_API.G_RET_STS_SUCCESS;
5823: IF l_debug_level > 0 THEN
5824: oe_debug_pub.add('x_return_status ' || x_return_status,2);
5825: END IF;
5826: GOTO END_OF_PROCESS;
5827: ELSE -- Create
5828: IF l_debug_level > 0 THEN
5825: END IF;
5826: GOTO END_OF_PROCESS;
5827: ELSE -- Create
5828: IF l_debug_level > 0 THEN
5829: oe_debug_pub.add('It is not a create operation ' ,2);
5830: END IF;
5831:
5832: RAISE FND_API.G_EXC_ERROR;
5833: END IF; -- Create.
5863: From oe_order_lines_all
5864: Where line_id = l_line_tbl(1).line_id;
5865:
5866: IF l_debug_level > 0 THEN
5867: oe_debug_pub.add( 'CALLING UPDATE SET' ) ;
5868: END IF;
5869:
5870: OE_Set_Util.Update_Set
5871: (p_Set_Id => l_set_id,
5881: x_msg_data => l_msg_data
5882: );
5883:
5884: IF l_debug_level > 0 THEN
5885: oe_debug_pub.add( 'AFTER CALLING UPDATE SET' ) ;
5886: END IF;
5887:
5888: EXCEPTION
5889: WHEN OTHERS THEN
5893: G_TOP_MODEL_LINE_ID := Null;
5894: G_PART_OF_SET := Null;
5895:
5896: IF l_debug_level > 0 THEN
5897: oe_debug_pub.add('Exiting Schedule_Set',1);
5898: END IF;
5899: EXCEPTION
5900: WHEN FND_API.G_EXC_ERROR THEN
5901: --3543774 If new set show the error message
5969: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5970: l_set_exists VARCHAR2(1);
5971:
5972: --
5973: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5974: --
5975: BEGIN
5976:
5977: x_return_status := FND_API.G_RET_STS_SUCCESS;
5976:
5977: x_return_status := FND_API.G_RET_STS_SUCCESS;
5978:
5979: IF l_debug_level > 0 THEN
5980: oe_debug_pub.add( 'ENTERING Group_Schedule_sets' , 1 ) ;
5981: END IF;
5982:
5983: FOR I in 1..p_sch_set_tbl.count LOOP
5984: l_set_exists := 'Y';
5983: FOR I in 1..p_sch_set_tbl.count LOOP
5984: l_set_exists := 'Y';
5985:
5986: IF l_debug_level > 0 THEN
5987: oe_debug_pub.add( 'Processing Line' || P_SCH_SET_TBL(I).ENTITY_ID, 1);
5988: END IF;
5989:
5990: l_return_status := FND_API.G_RET_STS_SUCCESS;
5991:
6000: And open_flag = 'Y'
6001: And rownum = 1;
6002:
6003: IF l_debug_level > 0 THEN
6004: oe_debug_pub.add( 'Lines exists in the set', 2);
6005: END IF;
6006:
6007: EXCEPTION
6008: WHEN NO_DATA_FOUND THEN
6012: l_set_exists := 'Y';
6013: END;
6014:
6015: IF l_debug_level > 0 THEN
6016: oe_debug_pub.add( 'Before quering the date ' || l_set_exists, 2);
6017: END IF;
6018: IF l_set_exists = 'N' THEN
6019: GOTO END_PROCESS;
6020: END IF;
6040:
6041: END IF;
6042:
6043: IF l_debug_level > 0 THEN
6044: oe_debug_pub.add(' L_return_status :' || l_return_status,1);
6045: END IF;
6046:
6047: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6047: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6049: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6050: IF l_debug_level > 0 THEN
6051: oe_debug_pub.add(' Goto End due to error',1);
6052: END IF;
6053: GOTO END_PROCESS;
6054: END IF;
6055:
6062:
6063: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6064:
6065: IF l_debug_level > 0 THEN
6066: oe_debug_pub.add(' Error in validation ',1);
6067: END IF;
6068: GOTO END_PROCESS;
6069: END IF;
6070:
6147:
6148: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6149:
6150: IF l_debug_level > 0 THEN
6151: oe_debug_pub.add(' Error in ' || p_sch_set_tbl(I).param1,2);
6152: END IF;
6153:
6154: IF p_sch_set_tbl(I).param4 is null
6155: THEN
6180: p_line_id => l_sch_line_tbl(I).line_id,
6181: p_set_id => nvl(l_sch_line_tbl(I).ship_set_id,l_sch_line_tbl(I).arrival_set_id),
6182: x_return_status => x_return_status);
6183: IF l_debug_level > 0 THEN
6184: oe_debug_pub.add( 'AFTER LOGGING DELETE SETS DELAYED REQUEST '
6185: || X_RETURN_STATUS , 1 ) ;
6186: END IF;
6187: END IF;
6188: END IF;
6186: END IF;
6187: END IF;
6188: END IF;
6189: IF l_debug_level > 0 THEN
6190: oe_debug_pub.add(' Process next set :' || l_sch_line_tbl.count,1);
6191: END IF;
6192:
6193: END LOOP; -- Main loop.
6194:
6192:
6193: END LOOP; -- Main loop.
6194:
6195: IF l_debug_level > 0 THEN
6196: oe_debug_pub.add('Line Count :' || l_sch_line_tbl.count,1);
6197: END IF;
6198:
6199: IF l_sch_line_tbl.count > 0 THEN
6200:
6206: ,p_partial => TRUE
6207: ,x_return_status => x_return_status);
6208:
6209: IF l_debug_level > 0 THEN
6210: oe_debug_pub.add('After call to Process Group :' || x_return_status ,1);
6211: END IF;
6212: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6214: END IF;
6216:
6217:
6218: FOR I IN 1..l_sch_line_tbl.count LOOP
6219:
6220: oe_debug_pub.add('line id :' || l_sch_line_tbl(I).line_id ,1);
6221: oe_debug_pub.add('Schedule status code :' || l_sch_line_tbl(I).schedule_status_code ,1);
6222:
6223: -- 4188166
6224: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
6217:
6218: FOR I IN 1..l_sch_line_tbl.count LOOP
6219:
6220: oe_debug_pub.add('line id :' || l_sch_line_tbl(I).line_id ,1);
6221: oe_debug_pub.add('Schedule status code :' || l_sch_line_tbl(I).schedule_status_code ,1);
6222:
6223: -- 4188166
6224: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
6225: l_sch_line_tbl(I).schedule_status_code IS NOT NULL
6304: p_set_id => nvl(l_sch_line_tbl(I).ship_set_id,l_sch_line_tbl(I).arrival_set_id),
6305: x_return_status => l_return_status);
6306:
6307: IF l_debug_level > 0 THEN
6308: oe_debug_pub.add('AFTER LOGGING DELETE SETS DELAYED REQUEST ' || L_RETURN_STATUS,1) ;
6309: END IF;
6310:
6311: END IF;
6312: -- End 4026758
6318: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
6319: OE_MSG_PUB.Add;
6320: x_return_status := FND_API.G_RET_STS_SUCCESS;
6321: IF l_debug_level > 0 THEN
6322: oe_debug_pub.add('x_return_status ' || x_return_status,2);
6323: END IF;
6324: END IF;
6325: -- End 4188166
6326:
6324: END IF;
6325: -- End 4188166
6326:
6327: IF l_debug_level > 0 THEN
6328: oe_debug_pub.add('Exiting Group_Schedule_sets' || x_return_status,1);
6329: END IF;
6330:
6331: EXCEPTION
6332:
6332:
6333: WHEN FND_API.G_EXC_ERROR THEN
6334: x_return_status := FND_API.G_RET_STS_ERROR;
6335: IF l_debug_level > 0 THEN
6336: oe_debug_pub.add('No data from expected error',1);
6337: END IF;
6338: RAISE FND_API.G_EXC_ERROR;
6339:
6340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6346: , 'Group_Schedule_sets'
6347: );
6348: END IF;
6349: IF l_debug_level > 0 THEN
6350: oe_debug_pub.add('No data from unexpected error',1);
6351: END IF;
6352:
6353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6354:
6362: , 'Group_Schedule_sets'
6363: );
6364: END IF;
6365: IF l_debug_level > 0 THEN
6366: oe_debug_pub.add('No data from unexpected error',1);
6367: END IF;
6368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6369: END Group_Schedule_sets;
6370: END OE_GROUP_SCH_UTIL;