[Home] [Help]
17: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
18: IS
19: l_validate_combinition NUMBER;
20: --
21: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
22: --
23: BEGIN
24: IF l_debug_level > 0 THEN
25: oe_debug_pub.add( 'ENTERING OE_GROUP_SCH_UTIL.VALIDATE_ITEM_WAREHOUSE' , 2 ) ;
21: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
22: --
23: BEGIN
24: IF l_debug_level > 0 THEN
25: oe_debug_pub.add( 'ENTERING OE_GROUP_SCH_UTIL.VALIDATE_ITEM_WAREHOUSE' , 2 ) ;
26: END IF;
27: -- bug 3594016
28: IF (p_inventory_item_id is NOT NULL
29: AND p_ship_from_org_id is NOT NULL)
42: x_return_status := FND_API.G_RET_STS_SUCCESS;
43: EXCEPTION
44: WHEN NO_DATA_FOUND THEN
45: IF l_debug_level > 0 THEN
46: oe_debug_pub.add('INVALID ITEM WAREHOUSE COMBINATION',3);
47: END IF;
48: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_ITEM_WHSE');
49: OE_MSG_PUB.Add;
50: x_return_status := FND_API.G_RET_STS_ERROR;
67: l_msg_data VARCHAR2(2000);
68: l_result VARCHAR2(30);
69: l_scheduling_level_code VARCHAR2(30) := NULL;
70: --
71: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
72: --
73: BEGIN
74:
75: x_return_status := FND_API.G_RET_STS_SUCCESS;
73: BEGIN
74:
75: x_return_status := FND_API.G_RET_STS_SUCCESS;
76: IF l_debug_level > 0 THEN
77: oe_debug_pub.add( '..ENTERING OE_SCHEDULE_UTIL.VALIDATE_GROUP_LINE' , 6 ) ;
78: END IF;
79:
80: -- If the line is shipped, scheduling is not allowed.
81:
88: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_SHIPPED');
89: OE_MSG_PUB.Add;
90:
91: IF l_debug_level > 0 THEN
92: oe_debug_pub.add( ' SHIPPED LINE.' , 4 ) ;
93: END IF;
94: x_return_status := FND_API.G_RET_STS_ERROR;
95: RETURN;
96:
102: -- if the user is trying to performing scheduling,
103: -- it is an error
104:
105: IF l_debug_level > 0 THEN
106: oe_debug_pub.add( 'CHECKING THE REQUEST DATE....' , 1 ) ;
107: END IF;
108: IF (p_line_rec.request_date is null OR
109: p_line_rec.request_date = FND_API.G_MISS_DATE) THEN
110:
110:
111: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_REQUEST_DATE');
112: OE_MSG_PUB.Add;
113: IF l_debug_level > 0 THEN
114: oe_debug_pub.add( 'REQUEST DATE IS MISSING' , 4 ) ;
115: END IF;
116: x_return_status := FND_API.G_RET_STS_ERROR;
117: RETURN;
118: END IF;
117: RETURN;
118: END IF;
119:
120: IF l_debug_level > 0 THEN
121: oe_debug_pub.add( 'CHECKING FOR HOLDS....' , 1 ) ;
122: END IF;
123: -- Call will be made to validate_group_line only when
124: -- line is getting scheduled due to action OESCH_ACT_SCHEDULE
125: -- or OESCH_ACT_RESERVE.
130: -- Since the profile is set to NO, we should not schedule
131: -- the line if the line is on hold.
132:
133: IF l_debug_level > 0 THEN
134: oe_debug_pub.add( 'CALLING CHECK HOLDS' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
135: END IF;
136:
137: OE_Holds_PUB.Check_Holds
138: ( p_api_version => 1.0
148: , p_entity_id => NULL
149: , x_result_out => l_result);
150:
151: IF l_debug_level > 0 THEN
152: oe_debug_pub.add( 'AFTER CALLING CHECK HOLDS: ' || X_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
153: END IF;
154:
155:
156: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
165: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_ON_HOLD');
166: OE_MSG_PUB.Add;
167: x_return_status := FND_API.G_RET_STS_ERROR;
168: IF l_debug_level > 0 THEN
169: oe_debug_pub.add( 'LINE IS ON HOLD' , 4 ) ;
170: END IF;
171: RETURN;
172: END IF;
173:
177: -- on this line. If the action requested is not allowed for the
178: -- scheduling action, error out.
179:
180: IF l_debug_level > 0 THEN
181: oe_debug_pub.add( 'CHECKING SCHEDULING LEVEL...' , 1 ) ;
182: END IF;
183: l_scheduling_level_code :=
184: OE_SCHEDULE_UTIL.Get_Scheduling_Level(p_line_rec.header_id,
185: p_line_rec.line_type_id);
184: OE_SCHEDULE_UTIL.Get_Scheduling_Level(p_line_rec.header_id,
185: p_line_rec.line_type_id);
186:
187: IF l_debug_level > 0 THEN
188: oe_debug_pub.add( 'L_SCHEDULING_LEVEL_CODE : ' || L_SCHEDULING_LEVEL_CODE , 1 ) ;
189: END IF;
190:
191: IF l_scheduling_level_code is not null THEN
192: IF l_scheduling_level_code = OE_SCHEDULE_UTIL.SCH_LEVEL_ONE THEN
198: OE_SCHEDULE_UTIL.sch_cached_order_type));
199: OE_MSG_PUB.Add;
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: IF l_debug_level > 0 THEN
202: oe_debug_pub.add( 'LINE TYPE IS ATP ONLY' , 4 ) ;
203: END IF;
204:
205: ELSIF l_scheduling_level_code = OE_SCHEDULE_UTIL.SCH_LEVEL_TWO
206: AND p_line_rec.schedule_action_code =
216: OE_SCHEDULE_UTIL.sch_cached_order_type));
217: OE_MSG_PUB.Add;
218: x_return_status := FND_API.G_RET_STS_ERROR;
219: IF l_debug_level > 0 THEN
220: oe_debug_pub.add( 'LINE TYPE IS NOT ELIGIBLE FOR RESERVATION ' , 4 ) ;
221: END IF;
222:
223: END IF;
224: END IF;
223: END IF;
224: END IF;
225:
226: IF l_debug_level > 0 THEN
227: oe_debug_pub.add( '..EXITING OE_SCHEDULE_UTIL.VALIDATE_GROUP_LINE WITH ' || X_RETURN_STATUS , 1 ) ;
228: END IF;
229:
230:
231: EXCEPTION
261: l_return_status VARCHAR2(30);
262: J NUMBER := 0;
263: l_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
264: --
265: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
266: --
267: BEGIN
268: -- 3870895 : Revorted back the code modified for bug 3349770
269: IF l_debug_level > 0 THEN
266: --
267: BEGIN
268: -- 3870895 : Revorted back the code modified for bug 3349770
269: IF l_debug_level > 0 THEN
270: oe_debug_pub.add( 'ENTERING VALIDATE GROUP' || P_X_LINE_TBL.COUNT , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
271: END IF;
272: x_return_status := FND_API.G_RET_STS_SUCCESS;
273: FOR I IN 1..p_x_line_tbl.count LOOP
274:
324: p_x_line_tbl(I).ato_line_id <> p_x_line_tbl(I).top_model_line_id) AND
325: p_x_line_tbl(I).item_type_code = OE_GLOBALS.G_ITEM_INCLUDED THEN
326: IF NOT OE_SCH_CONC_REQUESTS.included_processed(p_x_line_tbl(I).line_id) THEN
327: IF l_debug_level > 0 THEN
328: oe_debug_pub.add( 'INCLUDED PROCESSED : ' || p_x_line_tbl(I).line_id, 3 ) ;
329: END IF;
330: -- 5166476
331: OE_SCH_CONC_REQUESTS.OE_line_status_Tbl(p_x_line_tbl(I).line_id) := 'N';
332: END IF;
357: END IF;
358:
359: END IF;
360: IF l_debug_level > 0 THEN
361: oe_debug_pub.add( 'EXITING VALIDATE GROUP' || P_X_LINE_TBL.COUNT , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
362: END IF;
363:
364: EXCEPTION
365:
379: Function Not_Part_of_set(p_top_model_line_id IN NUMBER)
380: RETURN BOOLEAN
381: IS
382: l_set_id NUMBER := Null;
383: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
384: BEGIN
385:
386: IF l_debug_level > 0 THEN
387: oe_debug_pub.add( 'Entering Not_Part_of_set ' || p_top_model_line_id , 1 ) ;
383: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
384: BEGIN
385:
386: IF l_debug_level > 0 THEN
387: oe_debug_pub.add( 'Entering Not_Part_of_set ' || p_top_model_line_id , 1 ) ;
388: oe_debug_pub.add( 'Value of the cached model ' || g_top_model_line_id,2);
389: END IF;
390: IF p_top_model_line_id = g_top_model_line_id
391: THEN
384: BEGIN
385:
386: IF l_debug_level > 0 THEN
387: oe_debug_pub.add( 'Entering Not_Part_of_set ' || p_top_model_line_id , 1 ) ;
388: oe_debug_pub.add( 'Value of the cached model ' || g_top_model_line_id,2);
389: END IF;
390: IF p_top_model_line_id = g_top_model_line_id
391: THEN
392: RETURN g_part_of_set;
434: l_option_exists VARCHAR2(1) := 'N';
435:
436: BEGIN
437: IF l_debug_level > 0 THEN
438: oe_debug_pub.add('Entering Check_Merge_Line: ' || p_x_line_tbl.count,1);
439: oe_debug_pub.add('Size of the in table : ' || p_line_tbl.count,1);
440: END IF;
441: J := p_x_line_tbl.count;
442: IF p_line_rec.line_id is NOT NULL
435:
436: BEGIN
437: IF l_debug_level > 0 THEN
438: oe_debug_pub.add('Entering Check_Merge_Line: ' || p_x_line_tbl.count,1);
439: oe_debug_pub.add('Size of the in table : ' || p_line_tbl.count,1);
440: END IF;
441: J := p_x_line_tbl.count;
442: IF p_line_rec.line_id is NOT NULL
443: AND p_line_rec.line_id <> FND_API.G_MISS_NUM THEN -- Main IF Start
444:
445: FOR l_option_search in 1..J LOOP
446: IF p_line_rec.line_id = p_x_line_tbl(l_option_search).line_id THEN
447: IF l_debug_level > 0 THEN
448: OE_DEBUG_PUB.Add('Option already exists in the line table',1);
449: END IF;
450: l_option_exists := 'Y';
451: EXIT; -- Exit the Loop if a match is found
452: END IF;
463: l_option_exists := 'N';
464: FOR l_option_search in 1..p_x_line_tbl.count LOOP
465: IF p_line_tbl(I).line_id = p_x_line_tbl(l_option_search).line_id THEN
466: IF l_debug_level > 0 THEN
467: OE_DEBUG_PUB.Add('Option already exists in the line table',1);
468: END IF;
469: l_option_exists := 'Y';
470: EXIT; -- Exit the Inner Loop if a match is found
471: END IF;
479: END LOOP;
480:
481: END IF; -- Main IF End
482: IF l_debug_level > 0 THEN
483: oe_debug_pub.add('Exiting Check_Merge_Line: ' || p_x_line_tbl.count,1);
484: END IF;
485:
486: End Check_Merge_Line;
487: */
497: p_line_id IN NUMBER)
498: Return BOOLEAN
499: IS
500: --
501: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
502: --
503: BEGIN
504:
505: IF l_debug_level > 0 THEN
502: --
503: BEGIN
504:
505: IF l_debug_level > 0 THEN
506: oe_debug_pub.add( 'ENTERING FIND_LINE: ' || P_LINE_ID , 1 ) ;
507: END IF;
508:
509: FOR J IN 1..p_x_line_tbl.count LOOP
510:
510:
511: IF p_line_id = p_x_line_tbl(J).line_id THEN
512:
513: IF l_debug_level > 0 THEN
514: oe_debug_pub.add( ' LINE EXISTS IN THE TABLE' , 1 ) ;
515: END IF;
516:
517: RETURN TRUE;
518: END IF;
591: ,nvl(component_number,-1),nvl(service_number,-1);
592:
593:
594: --
595: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
596: --
597: BEGIN
598:
599: IF l_debug_level > 0 THEN
596: --
597: BEGIN
598:
599: IF l_debug_level > 0 THEN
600: oe_debug_pub.add( 'ENTERING QUERY LINES' , 1 ) ;
601: END IF;
602:
603: -- Process Included Items if the action is schedule, atp_check
604: -- and reserve.
612:
613: FOR I IN process_inc LOOP
614:
615: IF l_debug_level > 0 THEN
616: oe_debug_pub.add( 'BEFORE CALLING INC'|| I.LINE_ID , 3 ) ;
617: END IF;
618: l_return_status := OE_CONFIG_UTIL.Process_Included_Items
619: (p_line_id => I.line_id,
620: p_freeze => FALSE);
619: (p_line_id => I.line_id,
620: p_freeze => FALSE);
621:
622: IF l_debug_level > 0 THEN
623: oe_debug_pub.add( 'AFTER CALLING INC'|| L_RETURN_STATUS , 3 ) ;
624: END IF;
625:
626: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: FOR c1 IN l_line_csr LOOP
651:
652:
653: IF l_debug_level > 0 THEN
654: oe_debug_pub.add( 'PROCESSING LINE ' || C1.LINE_ID , 1 ) ;
655: END IF;
656:
657: IF c1.schedule_status_code is null THEN
658:
701: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
702:
703: I := I + 1;
704: IF l_debug_level > 0 THEN
705: oe_debug_pub.add( 'LINE SELECTED FOR SCHEDULING **** : ' || L_LINE_REC.LINE_ID , 1 ) ;
706: END IF;
707: x_line_tbl(I) := l_line_rec;
708: x_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
709:
742: I := 0;
743: FOR c1 IN l_line_csr LOOP
744:
745: IF l_debug_level > 0 THEN
746: oe_debug_pub.add( 'LINE_ID :' || C1.LINE_ID , 1 ) ;
747: END IF;
748:
749: -- 4382036
750: /* OE_Line_Util.Query_Row( p_line_id => c1.line_id
829: l_line_rec.reserved_quantity) THEN
830:
831:
832: IF l_debug_level > 0 THEN
833: oe_debug_pub.add( 'NEED TO RESERVE THE LINE' , 2 ) ;
834: END IF;
835:
836: -- Check if the line is eligible for reservation.
837: l_return_status := FND_API.G_RET_STS_SUCCESS;
865: l_quantity2_to_reserve := NULL;
866: END IF;
867:
868: IF l_debug_level > 0 THEN
869: oe_debug_pub.add( 'QUANTITY TO RESERVE '||l_quantity_to_reserve , 2 ) ;
870: oe_debug_pub.add( 'QUANTITY2 TO RESERVE '||l_quantity2_to_reserve , 2 ) ;
871: oe_debug_pub.add( 'LINE SELECTED FOR RESERVE **** : '|| L_LINE_REC.LINE_ID , 1 ) ;
872: END IF;
873: --partial reservation exists
866: END IF;
867:
868: IF l_debug_level > 0 THEN
869: oe_debug_pub.add( 'QUANTITY TO RESERVE '||l_quantity_to_reserve , 2 ) ;
870: oe_debug_pub.add( 'QUANTITY2 TO RESERVE '||l_quantity2_to_reserve , 2 ) ;
871: oe_debug_pub.add( 'LINE SELECTED FOR RESERVE **** : '|| L_LINE_REC.LINE_ID , 1 ) ;
872: END IF;
873: --partial reservation exists
874: IF nvl(l_line_rec.reserved_quantity,0) > 0 THEN
867:
868: IF l_debug_level > 0 THEN
869: oe_debug_pub.add( 'QUANTITY TO RESERVE '||l_quantity_to_reserve , 2 ) ;
870: oe_debug_pub.add( 'QUANTITY2 TO RESERVE '||l_quantity2_to_reserve , 2 ) ;
871: oe_debug_pub.add( 'LINE SELECTED FOR RESERVE **** : '|| L_LINE_REC.LINE_ID , 1 ) ;
872: END IF;
873: --partial reservation exists
874: IF nvl(l_line_rec.reserved_quantity,0) > 0 THEN
875: l_rsv_update := TRUE;
882: ,x_return_status => l_return_status);
883:
884: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
885: IF l_debug_level > 0 THEN
886: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
887: END IF;
888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
889: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
890: IF l_debug_level > 0 THEN
887: END IF;
888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
889: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
890: IF l_debug_level > 0 THEN
891: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
892: END IF;
893: l_return_status := FND_API.G_RET_STS_SUCCESS;
894: END IF;
895:
898:
899: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
900: OE_MSG_PUB.Add;
901: IF l_debug_level > 0 THEN
902: oe_debug_pub.add( 'LINE IS ALREADY RESERVED , DO NOT NEED RESERVATION :' || L_LINE_REC.RESERVED_QUANTITY ) ;
903: END IF;
904:
905: END IF; -- Reserve.
906: ELSE
907:
908: l_line_rec.reserved_quantity := 0;
909: l_line_rec.reserved_quantity2 := 0; -- INVCONV
910: IF l_debug_level > 0 THEN
911: oe_debug_pub.add( 'LINE IS NON SHIPPABLE ' , 2 ) ;
912: END IF;
913: -- code fix for 3300528
914: --FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
915: IF l_line_rec.ato_line_id IS NOT NULL AND
936: x_return_status => l_return_status);
937:
938: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
939: IF l_debug_level > 0 THEN
940: oe_debug_pub.add( 'LINE SELECTED FOR RESERVE **** : '|| L_LINE_REC.LINE_ID , 1 ) ;
941: END IF;
942: I := I + 1;
943: x_line_tbl(I) := l_line_rec;
944: x_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
981: l_sales_order_id :=OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(p_header_id);
982: END IF;
983:
984: IF l_debug_level > 0 THEN
985: oe_debug_pub.add( 'LINE SELECTED FOR ATP **** : ' || C1.LINE_ID , 1 ) ;
986: END IF;
987: OE_Line_Util.Query_Row( p_line_id => c1.line_id
988: ,x_line_rec => l_line_rec);
989:
1112:
1113: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNRSV_NOT_ALLOWED');
1114: OE_MSG_PUB.Add;
1115: IF l_debug_level > 0 THEN
1116: oe_debug_pub.add( 'LINE IS SHIPPING INTERFACED ' || C2.LINE_ID , 1 ) ;
1117: END IF;
1118:
1119: ELSE
1120:
1199:
1200: END IF;
1201:
1202: IF l_debug_level > 0 THEN
1203: oe_debug_pub.add( 'LINE SELECTED FOR UNRES **** : ' || L_LINE_REC.LINE_ID , 1 ) ;
1204: END IF;
1205:
1206:
1207: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1264: END IF;
1265:
1266:
1267: IF l_debug_level > 0 THEN
1268: oe_debug_pub.add( 'LINE SELECTED FOR UNSCH **** : ' || C2.LINE_ID , 1 ) ;
1269: END IF;
1270:
1271: -- 4382036
1272: /* OE_Line_Util.Query_Row( p_line_id => c2.line_id
1356: ELSE -- part of set
1357: FND_MESSAGE.SET_NAME('ONT','OE_SCH_CANNOT_UNSCH_SET');
1358: OE_MSG_PUB.Add;
1359: IF l_debug_level > 0 THEN
1360: oe_debug_pub.add( 'LINE IS PART OF SET ' , 1 ) ;
1361: END IF;
1362:
1363: END IF; -- do not unschedule if line is part of set.
1364:
1367: END IF; -- Main.
1368:
1369:
1370: IF l_debug_level > 0 THEN
1371: oe_debug_pub.add( 'EXITING OE_GROUP_SCH_UTIL.QUERY_LINES ' || X_LINE_TBL.COUNT , 1 ) ;
1372: END IF;
1373:
1374:
1375: EXCEPTION
1375: EXCEPTION
1376:
1377: WHEN FND_API.G_EXC_ERROR THEN
1378: IF l_debug_level > 0 THEN
1379: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY LINES ' , 1 ) ;
1380: END IF;
1381: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1382: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1383: RAISE FND_API.G_EXC_ERROR;
1384:
1385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1386:
1387: IF l_debug_level > 0 THEN
1388: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY LINES ' , 1 ) ;
1389: END IF;
1390: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1391: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1393:
1394: WHEN OTHERS THEN
1395:
1396: IF l_debug_level > 0 THEN
1397: oe_debug_pub.add( 'WHEN OTHERS ERROR IN QUERY LINES ' , 1 ) ;
1398: END IF;
1399: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1400: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1401: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1449: l_header_id NUMBER;
1450: l_open_flag VARCHAR2(1);
1451:
1452: --
1453: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1454: --
1455: l_orig_sys_document_ref VARCHAR2(50);
1456: l_orig_sys_line_ref VARCHAR2(50);
1457: l_orig_sys_shipment_ref VARCHAR2(50);
1466: l_subscription_enable_flag varchar2(10) := '';
1467: BEGIN
1468:
1469: IF l_debug_level > 0 THEN
1470: oe_debug_pub.add( 'ENTERING INTO QUERY SCHEDULE LINES ' , 1 ) ;
1471: END IF;
1472: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
1473:
1474: IF l_debug_level > 0 THEN
1471: END IF;
1472: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
1473:
1474: IF l_debug_level > 0 THEN
1475: oe_debug_pub.add( 'PROCESSING LINE_ID' || P_SELECTED_TBL(L).ID1 , 2 ) ;
1476: END IF;
1477:
1478: l_line_id := p_selected_tbl(L).id1;
1479: -- Query required attributes and check does any action is required
1539:
1540: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
1541: OE_MSG_PUB.Add;
1542: IF l_debug_level > 0 THEN
1543: oe_debug_pub.add( 'LINE IS A SCHEDULED LINE' || L_LINE_ID , 2 ) ;
1544: END IF;
1545:
1546: --4241385
1547: /* Added the below elsif condition, so that all the lines in a set
1552: OR l_ship_set_id is not null)
1553: AND l_schedule_status_code IS NULL THEN
1554:
1555: IF l_debug_level > 0 THEN
1556: oe_debug_pub.add( 'log schedule set delayed request');
1557: END IF;
1558:
1559:
1560: OE_Line_Util.Query_Row
1591: IF l_top_model_line_id = p_selected_tbl(K).id1
1592: OR (l_item_type_code = OE_GLOBALS.G_ITEM_INCLUDED AND
1593: l_link_to_line_id = p_selected_tbl(K).id1) THEN
1594: IF l_debug_level > 0 THEN
1595: oe_debug_pub.add( 'PARENT LINE IS PART OF TABLE' || P_SELECTED_TBL(K).ID1 , 2 ) ;
1596: END IF;
1597: l_query := 'N';
1598: exit;
1599: END IF;
1611: IF l_line_id = x_line_tbl(I).line_id
1612: THEN
1613: l_query := 'N';
1614: IF l_debug_level > 0 THEN
1615: oe_debug_pub.add( '2 LINE IS PART OF TABLE' , 2 ) ;
1616: END IF;
1617: Exit;
1618: END IF;
1619: END LOOP;
1782:
1783: END LOOP;
1784:
1785: IF l_debug_level > 0 THEN
1786: oe_debug_pub.add( 'EXITING QUERY_SCHEDULE_LINES' || X_LINE_TBL.COUNT , 1 ) ;
1787: END IF;
1788:
1789:
1790: EXCEPTION
1790: EXCEPTION
1791:
1792: WHEN FND_API.G_EXC_ERROR THEN
1793: IF l_debug_level > 0 THEN
1794: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_SCHEDULE_LINES ' , 1 ) ;
1795: END IF;
1796: RAISE FND_API.G_EXC_ERROR;
1797:
1798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1797:
1798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1799:
1800: IF l_debug_level > 0 THEN
1801: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_SCHEDULE_LINES ' , 1 ) ;
1802: END IF;
1803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1804: -- Start 2742982 --
1805: WHEN NO_DATA_FOUND THEN
1863: l_sales_order_id NUMBER;
1864: l_open_flag VARCHAR2(1);
1865:
1866: --
1867: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1868: --
1869: l_orig_sys_document_ref VARCHAR2(50);
1870: l_orig_sys_line_ref VARCHAR2(50);
1871: l_orig_sys_shipment_ref VARCHAR2(50);
1878: l_subscription_enable_flag varchar2(10):= ''; --sol_ord_er #16014165
1879: BEGIN
1880:
1881: IF l_debug_level > 0 THEN
1882: oe_debug_pub.add( 'ENTERING INTO QUERY UNSCHEDULE LINES ' , 1 ) ;
1883: END IF;
1884: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
1885:
1886: IF l_debug_level > 0 THEN
1883: END IF;
1884: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
1885:
1886: IF l_debug_level > 0 THEN
1887: oe_debug_pub.add( 'PROCESSING LINE_ID' || p_selected_tbl(L).id1 , 2 ) ;
1888: END IF;
1889:
1890: --l_line_id := p_line_id_tbl(L);
1891: l_line_id := p_selected_tbl(L).id1;
1931: IF l_arrival_set_id is not null
1932: OR l_ship_set_id is not null THEN
1933:
1934: IF l_debug_level > 0 THEN
1935: oe_debug_pub.add( 'LINE CANNOT BE UNSCHEDULED IF IT IS PART OF SET' , 1 ) ;
1936: END IF;
1937: FND_MESSAGE.SET_NAME('ONT','OE_SCH_CANNOT_UNSCH_SET');
1938: OE_MSG_PUB.Add;
1939: ELSIF (l_schedule_status_code IS NULL AND
1951: -- not scheduled. Bipass these lines.
1952: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
1953: OE_MSG_PUB.Add;
1954: IF l_debug_level > 0 THEN
1955: oe_debug_pub.add( 'NOT A VALID LINE' || L_LINE_ID , 2 ) ;
1956: END IF;
1957: ELSE -- line not scheduled, please select the line to schedule.
1958:
1959: l_query := 'Y';
2195: EXCEPTION
2196:
2197: WHEN FND_API.G_EXC_ERROR THEN
2198: IF l_debug_level > 0 THEN
2199: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2200: END IF;
2201: RAISE FND_API.G_EXC_ERROR;
2202:
2203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2202:
2203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2204:
2205: IF l_debug_level > 0 THEN
2206: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2207: END IF;
2208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2209:
2210: -- Start 2742982 --
2216:
2217: WHEN OTHERS THEN
2218:
2219: IF l_debug_level > 0 THEN
2220: oe_debug_pub.add( ' WHEN OTHERS ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2221: END IF;
2222: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2223: THEN
2224: OE_MSG_PUB.Add_Exc_Msg
2271: l_sales_order_id NUMBER;
2272: l_open_flag VARCHAR2(1);
2273:
2274: --
2275: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2276: --
2277: l_orig_sys_document_ref VARCHAR2(50);
2278: l_orig_sys_line_ref VARCHAR2(50);
2279: l_orig_sys_shipment_ref VARCHAR2(50);
2288: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
2289:
2290:
2291: IF l_debug_level > 0 THEN
2292: oe_debug_pub.add( 'PROCESSING LINE_ID' || P_SELECTED_TBL(L).ID1 , 2 ) ;
2293: END IF;
2294:
2295: l_line_id := p_selected_tbl(L).id1;
2296: -- Query required attributes and check does any action is required
2340:
2341: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNRSV_NOT_ALLOWED');
2342: OE_MSG_PUB.Add;
2343: IF l_debug_level > 0 THEN
2344: oe_debug_pub.add( 'LINE IS SHIPPING INTERFACED' || L_LINE_ID , 1 ) ;
2345: END IF;
2346:
2347: END IF;
2348: ELSE -- line not scheduled, please select the line to schedule.
2519:
2520:
2521: WHEN FND_API.G_EXC_ERROR THEN
2522: IF l_debug_level > 0 THEN
2523: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2524: END IF;
2525: RAISE FND_API.G_EXC_ERROR;
2526:
2527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2526:
2527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2528:
2529: IF l_debug_level > 0 THEN
2530: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2531: END IF;
2532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2533:
2534: -- Start 2742982 --
2540:
2541: WHEN OTHERS THEN
2542:
2543: IF l_debug_level > 0 THEN
2544: oe_debug_pub.add( ' WHEN OTHERS ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2545: END IF;
2546: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2547: THEN
2548: OE_MSG_PUB.Add_Exc_Msg
2600: l_sales_order_id NUMBER := Null;
2601: l_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
2602: l_open_flag VARCHAR2(1);
2603: --
2604: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2605: --
2606: l_orig_sys_document_ref VARCHAR2(50);
2607: l_orig_sys_line_ref VARCHAR2(50);
2608: l_orig_sys_shipment_ref VARCHAR2(50);
2618: l_subscription_enable_flag varchar2(10) := ''; --sol_ord_er #16014165
2619: BEGIN
2620:
2621: IF l_debug_level > 0 THEN
2622: oe_debug_pub.add( 'ENTERING QUERY RESERVE LINES' , 1 ) ;
2623: END IF;
2624: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
2625:
2626: IF l_debug_level > 0 THEN
2623: END IF;
2624: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
2625:
2626: IF l_debug_level > 0 THEN
2627: oe_debug_pub.add( 'PROCESSING LINE_ID' || P_SELECTED_TBL(L).ID1 , 2 ) ;
2628: END IF;
2629:
2630: l_line_id := p_selected_tbl(L).id1;
2631: -- Query required attributes and check does any action is required
2673: -- populate the error message and skip the line.
2674: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
2675: OE_MSG_PUB.Add;
2676: IF l_debug_level > 0 THEN
2677: oe_debug_pub.add( 'NOT A VALIDE LINE' || L_LINE_ID , 2 ) ;
2678: END IF;
2679:
2680: --4241385
2681: /* Added the below elsif condition, so that all the lines in a set
2686: OR l_ship_set_id is not null)
2687: AND l_schedule_status_code IS NULL THEN
2688: -- AND l_auto_schedule_sets='N') THEN
2689: IF l_debug_level > 0 THEN
2690: oe_debug_pub.add( 'log schedule set delayed request');
2691: END IF;
2692:
2693:
2694: OE_Line_Util.Query_Row
2841:
2842: IF l_config_id IS NOT NULL THEN
2843:
2844: IF l_debug_level > 0 THEN
2845: oe_debug_pub.add( 'NEED TO RESERVE THE LINE' , 2 ) ;
2846: END IF;
2847:
2848: OE_Line_Util.Query_Row
2849: (p_line_id => l_config_id,
3033: AND l_line_tbl(I).ordered_quantity >
3034: l_line_tbl(I).reserved_quantity)) THEN
3035:
3036: IF l_debug_level > 0 THEN
3037: oe_debug_pub.add( 'NEED TO RESERVE THE LINE' , 2 ) ;
3038: END IF;
3039:
3040: -- Check if the line is eligible for reservation.
3041: l_return_status := FND_API.G_RET_STS_SUCCESS;
3070: l_quantity2_to_reserve := NULL;
3071: END IF;
3072:
3073: IF l_debug_level > 0 THEN
3074: oe_debug_pub.add( 'QUANTITY TO RESERVE '||l_quantity_to_reserve , 2 ) ;
3075: oe_debug_pub.add( 'QUANTITY2 TO RESERVE '||l_quantity2_to_reserve , 2 ) ;
3076: END IF;
3077: IF nvl(l_line_tbl(I).reserved_quantity,0) > 0 THEN
3078: l_rsv_update := TRUE;
3071: END IF;
3072:
3073: IF l_debug_level > 0 THEN
3074: oe_debug_pub.add( 'QUANTITY TO RESERVE '||l_quantity_to_reserve , 2 ) ;
3075: oe_debug_pub.add( 'QUANTITY2 TO RESERVE '||l_quantity2_to_reserve , 2 ) ;
3076: END IF;
3077: IF nvl(l_line_tbl(I).reserved_quantity,0) > 0 THEN
3078: l_rsv_update := TRUE;
3079: END IF;
3086: ,x_return_status => l_return_status);
3087:
3088: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3089: IF l_debug_level > 0 THEN
3090: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
3091: END IF;
3092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3093: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3094: IF l_debug_level > 0 THEN
3091: END IF;
3092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3093: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3094: IF l_debug_level > 0 THEN
3095: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
3096: END IF;
3097: l_return_status := FND_API.G_RET_STS_SUCCESS;
3098: END IF;
3099:
3108: OE_GLOBALS.G_ITEM_STANDARD,OE_GLOBALS.G_ITEM_INCLUDED)) -- 9775352
3109: THEN -- check for ato
3110: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_NO_CONFIG');
3111: IF l_debug_level > 0 THEN
3112: oe_debug_pub.add( 'NON SHIPPABLE ATO LINE' , 2 ) ;
3113: END IF;
3114: ELSE
3115: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_NOT_RESERVABLE');
3116: END IF;-- end check for ato
3116: END IF;-- end check for ato
3117: ELSE
3118: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
3119: IF l_debug_level > 0 THEN
3120: oe_debug_pub.add( 'ALREADY RESERVED' , 2 ) ;
3121: END IF;
3122: END IF; -- shippable flag
3123: OE_MSG_PUB.Add;
3124: -- code fix for 3300528
3131: END IF;
3132: END LOOP;
3133:
3134: IF l_debug_level > 0 THEN
3135: oe_debug_pub.add( 'EXITING QUERY RESERVE LINES' , 1 ) ;
3136: END IF;
3137:
3138:
3139: EXCEPTION
3140:
3141:
3142: WHEN FND_API.G_EXC_ERROR THEN
3143: IF l_debug_level > 0 THEN
3144: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3145: END IF;
3146: RAISE FND_API.G_EXC_ERROR;
3147:
3148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3147:
3148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3149:
3150: IF l_debug_level > 0 THEN
3151: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3152: END IF;
3153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3154:
3155: -- Start 2742982 --
3161:
3162: WHEN OTHERS THEN
3163:
3164: IF l_debug_level > 0 THEN
3165: oe_debug_pub.add( 'WHEN OTHERS ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3166: END IF;
3167: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3168: THEN
3169: OE_MSG_PUB.Add_Exc_Msg
3214: l_sales_order_id NUMBER := Null;
3215: l_open_flag VARCHAR2(1);
3216:
3217: --
3218: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3219: --
3220: l_orig_sys_document_ref VARCHAR2(50);
3221: l_orig_sys_line_ref VARCHAR2(50);
3222: l_orig_sys_shipment_ref VARCHAR2(50);
3231:
3232:
3233: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
3234: IF l_debug_level > 0 THEN
3235: oe_debug_pub.add( 'PROCESSING LINE_ID ' || P_SELECTED_TBL(L).ID1 , 2 ) ;
3236: END IF;
3237:
3238: l_line_id := p_selected_tbl(L).id1;
3239: -- Query required attributes and check does any action is required
3508:
3509:
3510: WHEN FND_API.G_EXC_ERROR THEN
3511: IF l_debug_level > 0 THEN
3512: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3513: END IF;
3514: RAISE FND_API.G_EXC_ERROR;
3515:
3516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3515:
3516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3517:
3518: IF l_debug_level > 0 THEN
3519: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3520: END IF;
3521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3522:
3523: -- Start 2742982 --
3528:
3529: WHEN OTHERS THEN
3530:
3531: IF l_debug_level > 0 THEN
3532: oe_debug_pub.add( 'WHEN OTHERS ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3533: END IF;
3534: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3535: THEN
3536: OE_MSG_PUB.Add_Exc_Msg
3568:
3569: -- Need to remove this.
3570: l_atp_tbl OE_ATP.atp_tbl_type;
3571: --
3572: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3573: --
3574: BEGIN
3575:
3576: x_return_status := FND_API.G_RET_STS_SUCCESS;
3574: BEGIN
3575:
3576: x_return_status := FND_API.G_RET_STS_SUCCESS;
3577: IF l_debug_level > 0 THEN
3578: oe_debug_pub.add( 'ENTERING OE_GROUP_SCH_UTIL.SCHEDULE_ORDER' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
3579: END IF;
3580:
3581: IF l_debug_level > 0 THEN
3582: oe_debug_pub.add( 'P_HEADER_ID : ' || P_HEADER_ID , 1 ) ;
3578: oe_debug_pub.add( 'ENTERING OE_GROUP_SCH_UTIL.SCHEDULE_ORDER' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
3579: END IF;
3580:
3581: IF l_debug_level > 0 THEN
3582: oe_debug_pub.add( 'P_HEADER_ID : ' || P_HEADER_ID , 1 ) ;
3583: END IF;
3584: IF l_debug_level > 0 THEN
3585: oe_debug_pub.add( 'P_SCH_ACTION: ' || P_SCH_ACTION , 1 ) ;
3586: END IF;
3581: IF l_debug_level > 0 THEN
3582: oe_debug_pub.add( 'P_HEADER_ID : ' || P_HEADER_ID , 1 ) ;
3583: END IF;
3584: IF l_debug_level > 0 THEN
3585: oe_debug_pub.add( 'P_SCH_ACTION: ' || P_SCH_ACTION , 1 ) ;
3586: END IF;
3587:
3588: -- Start 2434807 -
3589: -- Added to clear existing records from g_atp_tbl
3601: l_old_line_tbl := l_line_tbl;
3602:
3603: IF p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_ATP_CHECK THEN
3604: IF l_debug_level > 0 THEN
3605: oe_debug_pub.add( 'BEFORE CALLING MULTI_ATP_CHECK ' ) ;
3606: END IF;
3607: IF l_debug_level > 0 THEN
3608: oe_debug_pub.add( 'COUNT ' || L_LINE_TBL.COUNT ) ;
3609: END IF;
3604: IF l_debug_level > 0 THEN
3605: oe_debug_pub.add( 'BEFORE CALLING MULTI_ATP_CHECK ' ) ;
3606: END IF;
3607: IF l_debug_level > 0 THEN
3608: oe_debug_pub.add( 'COUNT ' || L_LINE_TBL.COUNT ) ;
3609: END IF;
3610:
3611: IF l_line_tbl.count > 0 THEN
3612:
3624:
3625: ELSE
3626:
3627: IF l_debug_level > 0 THEN
3628: oe_debug_pub.add( 'BEFORE CALLING PROCESS SCHEDULING GROUP ' ) ;
3629: END IF;
3630: IF l_debug_level > 0 THEN
3631: oe_debug_pub.add( 'COUNT ' || L_LINE_TBL.COUNT ) ;
3632: END IF;
3627: IF l_debug_level > 0 THEN
3628: oe_debug_pub.add( 'BEFORE CALLING PROCESS SCHEDULING GROUP ' ) ;
3629: END IF;
3630: IF l_debug_level > 0 THEN
3631: oe_debug_pub.add( 'COUNT ' || L_LINE_TBL.COUNT ) ;
3632: END IF;
3633: IF l_debug_level > 0 THEN
3634: oe_debug_pub.add( 'FIRST ' || L_LINE_TBL.FIRST ) ;
3635: END IF;
3630: IF l_debug_level > 0 THEN
3631: oe_debug_pub.add( 'COUNT ' || L_LINE_TBL.COUNT ) ;
3632: END IF;
3633: IF l_debug_level > 0 THEN
3634: oe_debug_pub.add( 'FIRST ' || L_LINE_TBL.FIRST ) ;
3635: END IF;
3636: IF l_debug_level > 0 THEN
3637: oe_debug_pub.add( 'LAST ' || L_LINE_TBL.LAST ) ;
3638: END IF;
3633: IF l_debug_level > 0 THEN
3634: oe_debug_pub.add( 'FIRST ' || L_LINE_TBL.FIRST ) ;
3635: END IF;
3636: IF l_debug_level > 0 THEN
3637: oe_debug_pub.add( 'LAST ' || L_LINE_TBL.LAST ) ;
3638: END IF;
3639:
3640: IF l_line_tbl.count > 0 THEN
3641:
3666: (p_count => x_msg_count
3667: ,p_data => x_msg_data);
3668:
3669: IF l_debug_level > 0 THEN
3670: oe_debug_pub.add( 'COUNT IS ' || X_MSG_COUNT , 1 ) ;
3671: END IF;
3672: IF l_debug_level > 0 THEN
3673: oe_debug_pub.add( 'EXITING OE_GROUP_SCH_UTIL.SCHEDULE_ORDER' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
3674: END IF;
3669: IF l_debug_level > 0 THEN
3670: oe_debug_pub.add( 'COUNT IS ' || X_MSG_COUNT , 1 ) ;
3671: END IF;
3672: IF l_debug_level > 0 THEN
3673: oe_debug_pub.add( 'EXITING OE_GROUP_SCH_UTIL.SCHEDULE_ORDER' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
3674: END IF;
3675: x_return_status := FND_API.G_RET_STS_SUCCESS;
3676:
3677: EXCEPTION
3743: l_line_id_tbl number_arr;
3744: l_set_rec OE_ORDER_CACHE.set_rec_type;
3745:
3746: --
3747: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3748: --
3749: BEGIN
3750: IF l_debug_level > 0 THEN
3751: oe_debug_pub.add( 'ENTERING SCHEDULE_MULTI_LINES' , 1 ) ;
3747: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3748: --
3749: BEGIN
3750: IF l_debug_level > 0 THEN
3751: oe_debug_pub.add( 'ENTERING SCHEDULE_MULTI_LINES' , 1 ) ;
3752: oe_debug_pub.add( 'LINE COUNT IS: ' || P_LINE_COUNT , 1 ) ;
3753: oe_debug_pub.add( 'ACTION IS: ' || P_SCH_ACTION , 1 ) ;
3754: END IF;
3755:
3748: --
3749: BEGIN
3750: IF l_debug_level > 0 THEN
3751: oe_debug_pub.add( 'ENTERING SCHEDULE_MULTI_LINES' , 1 ) ;
3752: oe_debug_pub.add( 'LINE COUNT IS: ' || P_LINE_COUNT , 1 ) ;
3753: oe_debug_pub.add( 'ACTION IS: ' || P_SCH_ACTION , 1 ) ;
3754: END IF;
3755:
3756: -- Start 2434807 -
3749: BEGIN
3750: IF l_debug_level > 0 THEN
3751: oe_debug_pub.add( 'ENTERING SCHEDULE_MULTI_LINES' , 1 ) ;
3752: oe_debug_pub.add( 'LINE COUNT IS: ' || P_LINE_COUNT , 1 ) ;
3753: oe_debug_pub.add( 'ACTION IS: ' || P_SCH_ACTION , 1 ) ;
3754: END IF;
3755:
3756: -- Start 2434807 -
3757: -- Added to clear existing records from g_atp_tbl
3773: l_line_id := to_number(substr(l_record_ids,initial, nextpos-initial));
3774: l_line_id_tbl(j) := l_line_id;
3775:
3776: IF l_debug_level > 0 THEN
3777: oe_debug_pub.add( 'LINE_ID : ' || L_LINE_ID , 1 ) ;
3778: END IF;
3779:
3780: initial := nextpos + 1.0;
3781: j := j + 1.0;
3812: --Creating a savepoint, so that it can be be rolled for ATP Checks.
3813: --This is to rollback updates to database made by Availability window, which
3814: --calls process_included_items to explode included items and oe_order_pvt.lines
3815: --which updates the database tables.
3816: oe_debug_pub.add('Creating a savepoint for ATP Check activity.');
3817: SAVEPOINT SP_ONLY_ATP_CHECK;
3818: Query_ATP_CHECK_lines(p_sch_action => p_sch_action,
3819: p_selected_tbl => p_selected_line_tbl, --R12.MOAC
3820: x_line_tbl => l_line_tbl);
3822:
3823: IF l_line_tbl.count > 0 THEN
3824:
3825: IF l_debug_level > 0 THEN
3826: oe_debug_pub.add('No lines to process : '||l_line_tbl.count,1);
3827: END IF;
3828:
3829: Validate_Group
3830: (p_x_line_tbl => l_line_tbl,
3835: --3990887
3836: --END IF;
3837:
3838: IF l_debug_level > 0 THEN
3839: oe_debug_pub.add( ' AFTER VALIDATE_GROUP : '||x_return_status,1);
3840: END IF;
3841:
3842: -- 3990887
3843: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3847:
3848: FOR I IN 1..l_line_tbl.count LOOP
3849:
3850: IF l_debug_level > 0 THEN
3851: oe_debug_pub.add( ' LINE ID : ' || L_LINE_TBL ( I ) .LINE_ID , 4 ) ;
3852: END IF;
3853: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
3854: l_line_tbl(I).schedule_action_code := p_sch_action;
3855:
3877: IF p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_ATP_CHECK
3878: THEN
3879: --Bug 5881611
3880: --Rolling back
3881: oe_debug_pub.add('Rollback for only atp check');
3882: oe_delayed_requests_pvt.Clear_Request(
3883: x_return_status => x_return_status);
3884: ROLLBACK TO SAVEPOINT SP_ONLY_ATP_CHECK;
3885:
3883: x_return_status => x_return_status);
3884: ROLLBACK TO SAVEPOINT SP_ONLY_ATP_CHECK;
3885:
3886: IF l_debug_level > 0 THEN
3887: oe_debug_pub.add( 'BEFORE CALLING MULTI_ATP_CHECK ' ) ;
3888: END IF;
3889: IF l_debug_level > 0 THEN
3890: oe_debug_pub.add( 'LINE COUNT ' || L_LINE_TBL.COUNT , 1 ) ;
3891: END IF;
3886: IF l_debug_level > 0 THEN
3887: oe_debug_pub.add( 'BEFORE CALLING MULTI_ATP_CHECK ' ) ;
3888: END IF;
3889: IF l_debug_level > 0 THEN
3890: oe_debug_pub.add( 'LINE COUNT ' || L_LINE_TBL.COUNT , 1 ) ;
3891: END IF;
3892:
3893: OE_SCHEDULE_UTIL.Multi_ATP_CHECK
3894: (p_old_line_tbl => l_old_line_tbl,
3898:
3899: ELSE
3900:
3901: IF l_debug_level > 0 THEN
3902: oe_debug_pub.add( 'BEFORE CALLING PROCESS SCHEDULING GROUP ' ) ;
3903: oe_debug_pub.add( 'LINE COUNT ' || L_LINE_TBL.COUNT , 1 ) ;
3904: END IF;
3905:
3906: -- 3870895 : call process_group only when coun > 0 and return status is success
3899: ELSE
3900:
3901: IF l_debug_level > 0 THEN
3902: oe_debug_pub.add( 'BEFORE CALLING PROCESS SCHEDULING GROUP ' ) ;
3903: oe_debug_pub.add( 'LINE COUNT ' || L_LINE_TBL.COUNT , 1 ) ;
3904: END IF;
3905:
3906: -- 3870895 : call process_group only when coun > 0 and return status is success
3907: IF l_line_tbl.count > 0
3931: END IF;
3932: END IF;
3933:
3934: IF l_debug_level > 0 THEN
3935: oe_debug_pub.add( 'AFTER PROCESS GROUP' || X_RETURN_STATUS , 1 ) ;
3936: END IF;
3937: END IF;
3938: -- Set return status.
3939:
3944: ( p_count => x_msg_count
3945: , p_data => x_msg_data);
3946:
3947: IF l_debug_level > 0 THEN
3948: oe_debug_pub.add( ' MESSAGE COUNT: ' || X_MSG_COUNT , 1 ) ;
3949: END IF;
3950: -- Set return status.
3951:
3952: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3969: );
3970:
3971: */
3972: IF l_debug_level > 0 THEN
3973: oe_debug_pub.add( 'EXITING SCHEDULE_MULTI_LINES WITH: ' || X_RETURN_STATUS , 1 ) ;
3974: END IF;
3975:
3976: EXCEPTION
3977:
4090: where top_model_line_id = l_top_model_line_id
4091: and open_flag = 'Y'
4092: and shipping_interfaced_flag = 'Y';
4093: --
4094: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4095: --
4096: BEGIN
4097:
4098: x_return_status := FND_API.G_RET_STS_SUCCESS;
4096: BEGIN
4097:
4098: x_return_status := FND_API.G_RET_STS_SUCCESS;
4099: IF l_debug_level > 0 THEN
4100: oe_debug_pub.add( 'ENTERING OE_GROUP_SCH_UTIL.SCHEDULE_SET_LINES' , 1 ) ;
4101: END IF;
4102:
4103: K := 0;
4104: FOR I in 1..p_sch_set_tbl.count LOOP
4103: K := 0;
4104: FOR I in 1..p_sch_set_tbl.count LOOP
4105:
4106: IF l_debug_level > 0 THEN
4107: oe_debug_pub.add( 'PROCESSING LINE' || P_SCH_SET_TBL ( I ) .ENTITY_ID , 1 ) ;
4108: END IF;
4109:
4110: -- For the included item, check if the parent is present the in table.
4111: -- That means parent will explode the line or else add the line to
4137: Where line_id = p_sch_set_tbl(I).entity_id;
4138: EXCEPTION
4139: WHEN OTHERS THEN
4140: IF l_debug_level > 0 THEN
4141: oe_debug_pub.add( 'ERROR WHILE SELECTING DATA' , 5 ) ;
4142: END IF;
4143: l_line_exists := 'Y';
4144: END;
4145:
4149: l_ship_set_id <> p_sch_set_tbl(I).param1) OR
4150: (p_sch_set_tbl(I).param8 = OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET AND
4151: l_arrival_set_id <> p_sch_set_tbl(I).param1) THEN
4152: IF l_debug_level > 0 THEN
4153: OE_DEBUG_PUB.Add('Sets differs, goto END OF PROCESS',2);
4154: END IF;
4155: GOTO END_OF_PROCESS;
4156: END IF;
4157: -- end of bug3885953 }
4175: FOR optionrec in C5
4176: LOOP
4177:
4178: IF l_debug_level > 0 THEN
4179: oe_debug_pub.add( 'UPDATE SHIPPING : CHILDREN OF MODEL ' || TO_CHAR ( OPTIONREC.LINE_ID ) , 1 ) ;
4180: END IF;
4181:
4182: OE_Delayed_Requests_Pvt.Log_Request(
4183: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4190: x_return_status => x_return_status);
4191:
4192: End loop;
4193:
4194: oe_debug_pub.add('Set does not exist on line ' || p_sch_set_tbl(I).entity_id,2);
4195:
4196: goto END_OF_PROCESS;
4197:
4198: END IF;
4208: OR l_top_model_line_id = p_sch_set_tbl(J).entity_id
4209: THEN
4210: --Parent exists.
4211: IF l_debug_level > 0 THEN
4212: oe_debug_pub.add( 'PARENT EXISTS: ' || P_SCH_SET_TBL ( J).ENTITY_ID , 1 ) ;
4213: END IF;
4214: l_line_exists := 'Y';
4215: EXIT;
4216: END IF;
4224: FOR J IN 1..p_sch_set_tbl.count LOOP
4225: IF l_link_to_line_id = p_sch_set_tbl(J).entity_id THEN
4226: --Parent exists.
4227: IF l_debug_level > 0 THEN
4228: oe_debug_pub.add( 'PARENT EXISTS: ' || P_SCH_SET_TBL ( J ) .ENTITY_ID , 1 ) ;
4229: END IF;
4230: l_line_exists := 'Y';
4231: EXIT;
4232: END IF;
4237:
4238: -- Do not go in to this code, if the line is a top model or
4239: -- an ato model
4240:
4241: oe_debug_pub.add(' l_line_exists :' || l_line_exists,1);
4242: oe_debug_pub.add(' l_ato_line_id :' || l_ato_line_id,1);
4243: oe_debug_pub.add(' l_item_type_code :'|| l_item_type_code,1);
4244: IF l_line_exists = 'N'
4245: AND nvl(l_top_model_line_id,0) <> p_sch_set_tbl(I).entity_id
4238: -- Do not go in to this code, if the line is a top model or
4239: -- an ato model
4240:
4241: oe_debug_pub.add(' l_line_exists :' || l_line_exists,1);
4242: oe_debug_pub.add(' l_ato_line_id :' || l_ato_line_id,1);
4243: oe_debug_pub.add(' l_item_type_code :'|| l_item_type_code,1);
4244: IF l_line_exists = 'N'
4245: AND nvl(l_top_model_line_id,0) <> p_sch_set_tbl(I).entity_id
4246: AND NOT (l_item_type_code = OE_GLOBALS.G_ITEM_CLASS
4239: -- an ato model
4240:
4241: oe_debug_pub.add(' l_line_exists :' || l_line_exists,1);
4242: oe_debug_pub.add(' l_ato_line_id :' || l_ato_line_id,1);
4243: oe_debug_pub.add(' l_item_type_code :'|| l_item_type_code,1);
4244: IF l_line_exists = 'N'
4245: AND nvl(l_top_model_line_id,0) <> p_sch_set_tbl(I).entity_id
4246: AND NOT (l_item_type_code = OE_GLOBALS.G_ITEM_CLASS
4247: AND nvl(l_ato_line_id,-99) = p_sch_set_tbl(I).entity_id) THEN
4247: AND nvl(l_ato_line_id,-99) = p_sch_set_tbl(I).entity_id) THEN
4248:
4249:
4250: IF l_debug_level > 0 THEN
4251: oe_debug_pub.add( 'LINE IS SELECTED FOR PROCESSING ' || P_SCH_SET_TBL ( I ) .ENTITY_ID , 1 ) ;
4252: END IF;
4253: l_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
4254: OE_LINE_UTIL.Lock_Row(p_line_id => p_sch_set_tbl(I).entity_id,
4255: p_x_line_rec => l_line_rec,
4351: l_line_tbl(K).ship_from_org_id := p_sch_set_tbl(I).param10;
4352: l_line_tbl(k).re_source_flag := 'N';
4353: END IF;
4354: IF fnd_profile.value('ONT_SHIP_METHOD_FOR_SHIP_SET') = 'Y' THEN
4355: oe_debug_pub.add('ONT_SHIP_METHOD_FOR_SHIP_SET' || p_sch_set_tbl(I).param11,2);
4356: l_line_tbl(K).shipping_method_code := p_sch_set_tbl(I).param11;
4357: END IF;
4358: END IF;
4359:
4389: OR l_item_type_code = 'KIT'
4390: OR l_item_type_code = 'MODEL'
4391: THEN
4392:
4393: oe_debug_pub.add('line_id ' || p_sch_set_tbl(I).entity_id,3);
4394: oe_debug_pub.add(' top line ' || l_top_model_line_id,3);
4395: oe_debug_pub.add(' ato line ' || l_ato_line_id,3);
4396: oe_debug_pub.add(' item type ' || l_item_type_code,3);
4397: oe_debug_pub.add(' header_id ' || l_header_id,3);
4390: OR l_item_type_code = 'MODEL'
4391: THEN
4392:
4393: oe_debug_pub.add('line_id ' || p_sch_set_tbl(I).entity_id,3);
4394: oe_debug_pub.add(' top line ' || l_top_model_line_id,3);
4395: oe_debug_pub.add(' ato line ' || l_ato_line_id,3);
4396: oe_debug_pub.add(' item type ' || l_item_type_code,3);
4397: oe_debug_pub.add(' header_id ' || l_header_id,3);
4398:
4391: THEN
4392:
4393: oe_debug_pub.add('line_id ' || p_sch_set_tbl(I).entity_id,3);
4394: oe_debug_pub.add(' top line ' || l_top_model_line_id,3);
4395: oe_debug_pub.add(' ato line ' || l_ato_line_id,3);
4396: oe_debug_pub.add(' item type ' || l_item_type_code,3);
4397: oe_debug_pub.add(' header_id ' || l_header_id,3);
4398:
4399: IF p_sch_set_tbl(I).entity_id = nvl(l_top_model_line_id,0) THEN
4392:
4393: oe_debug_pub.add('line_id ' || p_sch_set_tbl(I).entity_id,3);
4394: oe_debug_pub.add(' top line ' || l_top_model_line_id,3);
4395: oe_debug_pub.add(' ato line ' || l_ato_line_id,3);
4396: oe_debug_pub.add(' item type ' || l_item_type_code,3);
4397: oe_debug_pub.add(' header_id ' || l_header_id,3);
4398:
4399: IF p_sch_set_tbl(I).entity_id = nvl(l_top_model_line_id,0) THEN
4400: Oe_Config_Schedule_Pvt.Query_Set_Lines
4393: oe_debug_pub.add('line_id ' || p_sch_set_tbl(I).entity_id,3);
4394: oe_debug_pub.add(' top line ' || l_top_model_line_id,3);
4395: oe_debug_pub.add(' ato line ' || l_ato_line_id,3);
4396: oe_debug_pub.add(' item type ' || l_item_type_code,3);
4397: oe_debug_pub.add(' header_id ' || l_header_id,3);
4398:
4399: IF p_sch_set_tbl(I).entity_id = nvl(l_top_model_line_id,0) THEN
4400: Oe_Config_Schedule_Pvt.Query_Set_Lines
4401: (p_header_id => l_header_id,
4470: p_set_id => nvl(l_iline_tbl(I).ship_set_id,
4471: l_iline_tbl(I).arrival_set_id),
4472: x_return_status => x_return_status);
4473: IF l_debug_level > 0 THEN
4474: oe_debug_pub.add( 'AFTER LOGGING DELETE SETS DELAYED REQUEST '
4475: || X_RETURN_STATUS , 1 ) ;
4476: END IF;
4477: END IF;
4478:
4477: END IF;
4478:
4479: IF l_iline_tbl(I).shipping_interfaced_flag = 'Y' THEN
4480:
4481: oe_debug_pub.add('Line is interfaced ',2);
4482:
4483: OE_Delayed_Requests_Pvt.Log_Request(
4484: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4485: p_entity_id => l_iline_tbl(I).line_id,
4495: EXIT;
4496: END IF;
4497:
4498: IF l_debug_level > 0 THEN
4499: oe_debug_pub.add( 'INCLUDED ITEM COUNT ' || L_ILINE_TBL.COUNT,2);
4500: END IF;
4501:
4502: -- Start 2716220 --
4503: -- To check schedule dates with override flag
4525: IF l_iline_tbl(O).schedule_arrival_date IS NOT NULL
4526: AND l_set_rec.schedule_arrival_date IS NOT NULL
4527: AND l_iline_tbl(O).schedule_arrival_date <> l_set_rec.schedule_arrival_date
4528: THEN
4529: oe_debug_pub.add('Arr date does not match with set date' || l_iline_tbl(O).line_id,2);
4530: l_log_error := TRUE;
4531: END IF;
4532:
4533: ELSE
4535: IF l_iline_tbl(O).schedule_ship_date IS NOT NULL
4536: AND l_set_rec.schedule_ship_date IS NOT NULL
4537: AND l_iline_tbl(O).schedule_ship_date <> l_set_rec.schedule_ship_date
4538: THEN
4539: oe_debug_pub.add('Sch date does not match with set date' || l_iline_tbl(O).line_id,2);
4540: l_log_error := TRUE;
4541: END IF;
4542: END IF;
4543: END IF;
4551: END IF;
4552:
4553: FOR M IN 1..l_iline_tbl.count LOOP
4554: IF l_debug_level > 0 THEN
4555: oe_debug_pub.add('LINE_ID: ' || l_iline_tbl(M).LINE_ID, 1);
4556: END IF;
4557:
4558: K := K + 1;
4559:
4561: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
4562: IF l_line_rec.override_atp_date_code = 'Y' THEN
4563: l_iline_tbl(M).override_atp_date_code := l_line_rec.override_atp_date_code;
4564: IF l_debug_level > 0 THEN
4565: oe_debug_pub.add( 'OVERRIDE_ATP :' || L_ILINE_TBL(M).OVERRIDE_ATP_DATE_CODE , 3 ) ;
4566: END IF;
4567: END IF;
4568: END IF;
4569: -- END 1282873
4607: l_line_tbl(K).ship_from_org_id := p_sch_set_tbl(I).param10;
4608: l_line_tbl(k).re_source_flag := 'N';
4609: END IF;
4610: IF fnd_profile.value('ONT_SHIP_METHOD_FOR_SHIP_SET') = 'Y' THEN
4611: oe_debug_pub.add('ONT_SHIP_METHOD_FOR_SHIP_SET Model:' || p_sch_set_tbl(I).param11,1);
4612: l_line_tbl(K).shipping_method_code := p_sch_set_tbl(I).param11;
4613: END IF;
4614: END IF;
4615:
4646: Null;
4647: END LOOP; -- Main loop.
4648:
4649: IF l_debug_level > 0 THEN
4650: oe_debug_pub.add('Line Count :' || l_line_tbl.count,1);
4651: END IF;
4652: --3564310
4653: -- Validate the lines befor calling process_group
4654: IF l_line_tbl.count > 0 THEN
4661:
4662: END IF;
4663:
4664: IF l_debug_level > 0 THEN
4665: oe_debug_pub.add( 'AFTER CALLING Validate Group ' || X_RETURN_STATUS
4666: || l_line_tbl.count , 1 ) ;
4667: END IF;
4668: -- 3564310
4669: IF l_line_tbl.count > 0
4677: ,p_part_of_set => l_part_of_set --4405004
4678: ,x_return_status => x_return_status);
4679:
4680: IF l_debug_level > 0 THEN
4681: oe_debug_pub.add('After call to Process Group :' || x_return_status ,1);
4682: END IF;
4683: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4685: END IF;
4688: -- Additional process we are doing to fix bug 2232950.
4689: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
4690:
4691: IF l_debug_level > 0 THEN
4692: oe_debug_pub.add('Compare output with requested values',1);
4693: END IF;
4694:
4695: FOR I IN 1..l_line_tbl.count LOOP
4696:
4697: IF p_sch_set_tbl(1).param8 = OE_SCHEDULE_UTIL.OESCH_ENTITY_SHIP_SET
4698: AND trunc(l_line_tbl(I).Schedule_ship_date) <> trunc(p_sch_set_tbl(1).date_param4)
4699: THEN
4700: IF l_debug_level > 0 THEN
4701: oe_debug_pub.add('Not received correct values for ship set',1);
4702: END IF;
4703: x_return_status := FND_API.G_RET_STS_ERROR;
4704: EXIT;
4705: ELSIF p_sch_set_tbl(1).param8 = OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET
4705: ELSIF p_sch_set_tbl(1).param8 = OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET
4706: AND trunc(l_line_tbl(I).Schedule_arrival_date) <> trunc(p_sch_set_tbl(1).date_param5)
4707: THEN
4708: IF l_debug_level > 0 THEN
4709: oe_debug_pub.add('Not received correct values for arrival set',1);
4710: END IF;
4711: x_return_status := FND_API.G_RET_STS_ERROR;
4712: EXIT;
4713: END IF;
4717:
4718: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4719:
4720: IF l_debug_level > 0 THEN
4721: oe_debug_pub.add('Line Id error out : ' || l_line_rec.line_id,2);
4722: END IF;
4723:
4724: -- Could not schedule the line on the set date. Let's schedule
4725: -- the whole set to see if we get another date got the whole
4727:
4728: IF fnd_profile.value('ONT_AUTO_PUSH_GRP_DATE') = 'Y' THEN
4729:
4730: IF l_debug_level > 0 THEN
4731: oe_debug_pub.add('Auto Push Group Date is Yes',2);
4732: END IF;
4733:
4734: -- Added this stmt to fix big 1899651.
4735: l_request_rec := p_sch_set_tbl(1);
4737: -- 3384975
4738: l_request_rec.param12 := l_param12;
4739:
4740: IF l_debug_level > 0 THEN
4741: oe_debug_pub.add('Stng G_CASCADING_REQUEST_LOGGED to TRUE',2);
4742: END IF;
4743: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
4744:
4745: Schedule_Set(p_request_rec => l_request_rec,
4747:
4748: ELSE
4749:
4750: IF l_debug_level > 0 THEN
4751: oe_debug_pub.add('Before setting message for group failure',2);
4752: END IF;
4753:
4754: FND_MESSAGE.SET_NAME('ONT','OE_SCH_GROUP_MEMBER_FAILED');
4755: OE_MSG_PUB.Add;
4761: -- message that the line schedule failed. We will return a success
4762: -- since we do not want to fail the line insert due to this.
4763:
4764: IF l_debug_level > 0 THEN
4765: oe_debug_pub.add('Calling Update Set');
4766: END IF;
4767:
4768: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4769:
4767:
4768: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4769:
4770: IF l_debug_level > 0 THEN
4771: oe_debug_pub.add('Unable to schedule the line for set date');
4772: END IF;
4773:
4774: FOR I IN 1..l_line_tbl.count LOOP
4775: IF l_line_tbl(I).top_model_line_id IS NOT NULL
4780: -- to a scheduled ATO or SMC PTO if it cannot be scheduled on
4781: -- the same date as that of the model.
4782:
4783: IF l_debug_level > 0 THEN
4784: oe_debug_pub.add('Line belong to model');
4785: END IF;
4786: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
4787: OE_MSG_PUB.Add;
4788: RAISE FND_API.G_EXC_ERROR;
4790: ELSE
4791: -- If the line is being added to set is a standard line
4792: -- save the line without scheduling attributes.
4793: IF l_debug_level > 0 THEN
4794: oe_debug_pub.add('Standard line is failed');
4795: END IF;
4796: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
4797: OE_MSG_PUB.Add;
4798:
4831: p_line_id => l_line_tbl(I).line_id,
4832: p_set_id => nvl(l_line_tbl(I).ship_set_id,l_line_tbl(I).arrival_set_id),
4833: x_return_status => x_return_status);
4834: IF l_debug_level > 0 THEN
4835: oe_debug_pub.add( 'AFTER LOGGING DELETE SETS DELAYED REQUEST '
4836: || X_RETURN_STATUS , 1 ) ;
4837: END IF;
4838: END IF;
4839:
4861: END IF; -- If g_ret_status is error
4862:
4863: l_old_set_tbl.delete;
4864: IF l_debug_level > 0 THEN
4865: oe_debug_pub.add('Exiting OE_Delayed_Requests_UTIL.Schedule_set_lines');
4866: END IF;
4867: EXCEPTION
4868:
4869: WHEN FND_API.G_EXC_ERROR THEN
4869: WHEN FND_API.G_EXC_ERROR THEN
4870: x_return_status := FND_API.G_RET_STS_ERROR;
4871: l_old_set_tbl.delete;
4872: IF l_debug_level > 0 THEN
4873: oe_debug_pub.add('No data from expected error',1);
4874: END IF;
4875: RAISE FND_API.G_EXC_ERROR;
4876:
4877: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4883: , 'Schedule_set_lines'
4884: );
4885: END IF;
4886: IF l_debug_level > 0 THEN
4887: oe_debug_pub.add('No data from unexpected error',1);
4888: END IF;
4889:
4890: l_old_set_tbl.delete;
4891: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4900: , 'Schedule_set_lines'
4901: );
4902: END IF;
4903: IF l_debug_level > 0 THEN
4904: oe_debug_pub.add('No data from unexpected error',1);
4905: END IF;
4906: l_old_set_tbl.delete;
4907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4908:
4979: l_override_arrival_date DATE := NULL;
4980: l_log_error BOOLEAN := FALSE;
4981: l_operation VARCHAR2(30) := 'UPDATE';
4982: --
4983: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4984: --
4985: /* Added the following 2 line to fix the bug 2740480 */
4986: l_push_logic VARCHAR2(1) := 'N';
4987: l_date_changed VARCHAR2(1) := 'N';
4990: l_count NUMBER := 0; -- 5043206
4991: l_org_id NUMBER ; --4241385
4992: BEGIN
4993: IF l_debug_level > 0 THEN
4994: oe_debug_pub.add( 'ENTERING SCHEDULE_SET' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
4995: END IF;
4996:
4997: l_entity_type := p_request_rec.param8;
4998: l_action := p_request_rec.param3;
5012: l_set_schedule_ship_date := p_request_rec.date_param4;
5013: l_set_schedule_arrival_date := p_request_rec.date_param5;
5014:
5015: IF l_debug_level > 0 THEN
5016: oe_debug_pub.add( 'L_OLD_SCHEDULE_SHIP_DATE :'
5017: || L_OLD_SCHEDULE_SHIP_DATE , 1 ) ;
5018: oe_debug_pub.add( 'L_OLD_REQUEST_DATE :' || L_OLD_REQUEST_DATE , 1 ) ;
5019: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
5020: oe_debug_pub.add( 'L_OLD_SHIP_SET_ID :' || L_OLD_SHIP_SET_ID , 1 ) ;
5014:
5015: IF l_debug_level > 0 THEN
5016: oe_debug_pub.add( 'L_OLD_SCHEDULE_SHIP_DATE :'
5017: || L_OLD_SCHEDULE_SHIP_DATE , 1 ) ;
5018: oe_debug_pub.add( 'L_OLD_REQUEST_DATE :' || L_OLD_REQUEST_DATE , 1 ) ;
5019: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
5020: oe_debug_pub.add( 'L_OLD_SHIP_SET_ID :' || L_OLD_SHIP_SET_ID , 1 ) ;
5021: oe_debug_pub.add( 'l_set_ship_from_org_id :' || l_set_ship_from_org_id , 1 ) ;
5022: END IF;
5015: IF l_debug_level > 0 THEN
5016: oe_debug_pub.add( 'L_OLD_SCHEDULE_SHIP_DATE :'
5017: || L_OLD_SCHEDULE_SHIP_DATE , 1 ) ;
5018: oe_debug_pub.add( 'L_OLD_REQUEST_DATE :' || L_OLD_REQUEST_DATE , 1 ) ;
5019: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
5020: oe_debug_pub.add( 'L_OLD_SHIP_SET_ID :' || L_OLD_SHIP_SET_ID , 1 ) ;
5021: oe_debug_pub.add( 'l_set_ship_from_org_id :' || l_set_ship_from_org_id , 1 ) ;
5022: END IF;
5023:
5016: oe_debug_pub.add( 'L_OLD_SCHEDULE_SHIP_DATE :'
5017: || L_OLD_SCHEDULE_SHIP_DATE , 1 ) ;
5018: oe_debug_pub.add( 'L_OLD_REQUEST_DATE :' || L_OLD_REQUEST_DATE , 1 ) ;
5019: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
5020: oe_debug_pub.add( 'L_OLD_SHIP_SET_ID :' || L_OLD_SHIP_SET_ID , 1 ) ;
5021: oe_debug_pub.add( 'l_set_ship_from_org_id :' || l_set_ship_from_org_id , 1 ) ;
5022: END IF;
5023:
5024: Select Schedule_ship_date, Schedule_arrival_date,
5017: || L_OLD_SCHEDULE_SHIP_DATE , 1 ) ;
5018: oe_debug_pub.add( 'L_OLD_REQUEST_DATE :' || L_OLD_REQUEST_DATE , 1 ) ;
5019: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
5020: oe_debug_pub.add( 'L_OLD_SHIP_SET_ID :' || L_OLD_SHIP_SET_ID , 1 ) ;
5021: oe_debug_pub.add( 'l_set_ship_from_org_id :' || l_set_ship_from_org_id , 1 ) ;
5022: END IF;
5023:
5024: Select Schedule_ship_date, Schedule_arrival_date,
5025: ship_to_org_id, ship_from_org_id, request_date,
5057: EXCEPTION
5058: WHEN OTHERS THEN
5059:
5060: IF l_debug_level > 0 THEN
5061: oe_debug_pub.add( 'No Records found after checking For Lines in set' , 1 ) ;
5062: END IF;
5063:
5064: END ;
5065:
5079: l_Schedule_ship_date := p_request_rec.date_param4;
5080: END IF;
5081: */
5082: IF l_debug_level > 0 THEN
5083: oe_debug_pub.add( 'L_SCHEDULE_SHIP_DATE :' || L_SCHEDULE_SHIP_DATE , 1 ) ;
5084: oe_debug_pub.add( 'L_REQUEST_DATE :' || L_REQUEST_DATE , 1 ) ;
5085: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
5086: oe_debug_pub.add( 'L_SET_ID :' || L_SET_ID , 1 ) ;
5087: oe_debug_pub.add( 'L_SCHEDULE_ARRIVAL_DATE :' ||l_schedule_arrival_date,1);
5080: END IF;
5081: */
5082: IF l_debug_level > 0 THEN
5083: oe_debug_pub.add( 'L_SCHEDULE_SHIP_DATE :' || L_SCHEDULE_SHIP_DATE , 1 ) ;
5084: oe_debug_pub.add( 'L_REQUEST_DATE :' || L_REQUEST_DATE , 1 ) ;
5085: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
5086: oe_debug_pub.add( 'L_SET_ID :' || L_SET_ID , 1 ) ;
5087: oe_debug_pub.add( 'L_SCHEDULE_ARRIVAL_DATE :' ||l_schedule_arrival_date,1);
5088: oe_debug_pub.add( 'l_ship_from_org_id :' ||l_ship_from_org_id,1);
5081: */
5082: IF l_debug_level > 0 THEN
5083: oe_debug_pub.add( 'L_SCHEDULE_SHIP_DATE :' || L_SCHEDULE_SHIP_DATE , 1 ) ;
5084: oe_debug_pub.add( 'L_REQUEST_DATE :' || L_REQUEST_DATE , 1 ) ;
5085: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
5086: oe_debug_pub.add( 'L_SET_ID :' || L_SET_ID , 1 ) ;
5087: oe_debug_pub.add( 'L_SCHEDULE_ARRIVAL_DATE :' ||l_schedule_arrival_date,1);
5088: oe_debug_pub.add( 'l_ship_from_org_id :' ||l_ship_from_org_id,1);
5089: END IF;
5082: IF l_debug_level > 0 THEN
5083: oe_debug_pub.add( 'L_SCHEDULE_SHIP_DATE :' || L_SCHEDULE_SHIP_DATE , 1 ) ;
5084: oe_debug_pub.add( 'L_REQUEST_DATE :' || L_REQUEST_DATE , 1 ) ;
5085: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
5086: oe_debug_pub.add( 'L_SET_ID :' || L_SET_ID , 1 ) ;
5087: oe_debug_pub.add( 'L_SCHEDULE_ARRIVAL_DATE :' ||l_schedule_arrival_date,1);
5088: oe_debug_pub.add( 'l_ship_from_org_id :' ||l_ship_from_org_id,1);
5089: END IF;
5090:
5083: oe_debug_pub.add( 'L_SCHEDULE_SHIP_DATE :' || L_SCHEDULE_SHIP_DATE , 1 ) ;
5084: oe_debug_pub.add( 'L_REQUEST_DATE :' || L_REQUEST_DATE , 1 ) ;
5085: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
5086: oe_debug_pub.add( 'L_SET_ID :' || L_SET_ID , 1 ) ;
5087: oe_debug_pub.add( 'L_SCHEDULE_ARRIVAL_DATE :' ||l_schedule_arrival_date,1);
5088: oe_debug_pub.add( 'l_ship_from_org_id :' ||l_ship_from_org_id,1);
5089: END IF;
5090:
5091: l_set_id := p_request_rec.param1;
5084: oe_debug_pub.add( 'L_REQUEST_DATE :' || L_REQUEST_DATE , 1 ) ;
5085: oe_debug_pub.add( 'L_LINE_ID :' || L_LINE_ID , 1 ) ;
5086: oe_debug_pub.add( 'L_SET_ID :' || L_SET_ID , 1 ) ;
5087: oe_debug_pub.add( 'L_SCHEDULE_ARRIVAL_DATE :' ||l_schedule_arrival_date,1);
5088: oe_debug_pub.add( 'l_ship_from_org_id :' ||l_ship_from_org_id,1);
5089: END IF;
5090:
5091: l_set_id := p_request_rec.param1;
5092: IF l_debug_level > 0 THEN
5089: END IF;
5090:
5091: l_set_id := p_request_rec.param1;
5092: IF l_debug_level > 0 THEN
5093: oe_debug_pub.add( 'CALLING QUERY_SET_LINES' , 1 ) ;
5094: END IF;
5095: BEGIN
5096:
5097: IF p_request_rec.param8 = OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET THEN
5122:
5123: EXCEPTION
5124: WHEN OTHERS THEN
5125: IF l_debug_level > 0 THEN
5126: oe_debug_pub.add( 'ERROR AFTER CALLING QUERY_SET_LINES' , 1 ) ;
5127: END IF;
5128: goto END_OF_PROCESS;
5129: END;
5130:
5128: goto END_OF_PROCESS;
5129: END;
5130:
5131: IF l_debug_level > 0 THEN
5132: oe_debug_pub.add( 'AFTER CALLING QUERY_SET_LINES' , 1 ) ;
5133: oe_debug_pub.add( 'COUNT IS ' || L_LINE_TBL.COUNT , 1 ) ;
5134: END IF;
5135:
5136: -- Start 2716220 --
5129: END;
5130:
5131: IF l_debug_level > 0 THEN
5132: oe_debug_pub.add( 'AFTER CALLING QUERY_SET_LINES' , 1 ) ;
5133: oe_debug_pub.add( 'COUNT IS ' || L_LINE_TBL.COUNT , 1 ) ;
5134: END IF;
5135:
5136: -- Start 2716220 --
5137: -- To check schedule dates with override flag
5182: (l_line_tbl(I).item_type_code <> OE_GLOBALS.G_ITEM_STANDARD AND
5183: nvl(l_line_tbl(I).model_remnant_flag,'N') = 'N') THEN
5184:
5185: IF l_debug_level > 0 THEN
5186: oe_debug_pub.add( 'UNABLE TO BYPASS' , 2 ) ;
5187: END IF;
5188: l_can_bypass := FALSE;
5189: EXIT;
5190:
5214: -- of the lines that are part of the set are being changed.
5215: -- In that case compare the line attributes with that of Set attributes. If any change is found call MRP.
5216: IF l_set_rec.schedule_ship_date IS NULL THEN
5217: IF l_debug_level > 0 THEN
5218: oe_debug_pub.add('New Set is being created, comparing scheduling attributes with first line', 5);
5219: END IF;
5220:
5221: IF OE_SCHEDULE_UTIL.Set_Attr_Matched
5222: (p_set_ship_from_org_id => l_line_tbl(1).ship_from_org_id ,
5237: EXIT;
5238: END IF;
5239: ELSE
5240: IF l_debug_level > 0 THEN
5241: oe_debug_pub.add('Set already exists, comparing scheduling attributes with set', 5);
5242: END IF;
5243:
5244: -- following code added for bug 3878494
5245: IF OE_SCHEDULE_UTIL.Set_Attr_Matched
5257: l_can_bypass := TRUE;
5258:
5259: ELSE
5260: IF l_debug_level > 0 THEN
5261: oe_debug_pub.add( 'LINES DID NOT MATCH' , 2 ) ;
5262: END IF;
5263: l_can_bypass := FALSE;
5264: EXIT;
5265: END IF;
5270:
5271: IF l_can_bypass THEN
5272:
5273: IF l_debug_level > 0 THEN
5274: oe_debug_pub.add( 'ALL LINES MATCH WITH SET DATES , BYPASS MRP CALL' , 2 ) ;
5275: END IF;
5276: GOTO BYPASS_PROCESS;
5277:
5278: END IF;
5338: And override_atp_date_code = 'Y'
5339: And rownum < 2;
5340:
5341: IF l_debug_level > 0 THEN
5342: oe_debug_pub.add( 'ato override flag :' || l_line_tbl ( I ) .override_atp_date_code , 3 ) ;
5343: END IF;
5344: EXCEPTION
5345: WHEN OTHERS THEN
5346: Null;
5346: Null;
5347:
5348: END;
5349: IF l_debug_level > 0 THEN
5350: oe_debug_pub.add( 'override_atp for ato :' || L_LINE_TBL ( I ) .OVERRIDE_ATP_DATE_CODE || L_LINE_TBL ( I ) .LINE_ID , 3 ) ;
5351: END IF;
5352: ELSIF l_line_tbl(I).item_type_code = OE_GLOBALS.G_ITEM_INCLUDED THEN
5353:
5354:
5361: Where header_id = l_line_tbl(I).header_id
5362: And line_id = l_line_tbl(I).link_to_line_id;
5363:
5364: IF l_debug_level > 0 THEN
5365: oe_debug_pub.add( 'INC OVERRIDE FLAG :' || L_LINE_TBL ( I ) .OVERRIDE_ATP_DATE_CODE , 3 ) ;
5366: END IF;
5367: EXCEPTION
5368: WHEN OTHERS THEN
5369: Null;
5369: Null;
5370:
5371: END;
5372: IF l_debug_level > 0 THEN
5373: oe_debug_pub.add( 'override_atp for inc :' || L_LINE_TBL ( I ) .OVERRIDE_ATP_DATE_CODE || L_LINE_TBL ( I ) .LINE_ID , 3 ) ;
5374: END IF;
5375: END IF; -- Ato/included.
5376: END IF; -- Check for pack I
5377: -- END 1282873
5391: l_line_tbl(I).change_comments := 'Delayed Request , Scheduling';
5392: /* End of Bug 6250075 */
5393:
5394: IF fnd_profile.value('ONT_SHIP_METHOD_FOR_SHIP_SET') = 'Y' THEN
5395: oe_debug_pub.add('ONT_SHIP_METHOD_FOR_SHIP_SET: ' || p_request_rec.param11,2);
5396: l_line_tbl(I).shipping_method_code := p_request_rec.param11;
5397: END IF;
5398: -- l_line_tbl(I).shipping_method_code := p_request_rec.param11;
5399: /* Commented the above line to fix the bug 2916814 */
5426: l_line_tbl(I).re_source_flag := 'N';
5427: END IF;
5428:
5429: IF l_debug_level > 0 THEN
5430: oe_debug_pub.add( 'REQUEST DATE :' || L_REQUEST_DATE , 1 ) ;
5431: END IF;
5432:
5433: -- Start 2787962
5434: IF l_line_tbl(I).top_model_line_id is not null
5488: l_line_tbl(I).schedule_ship_date := l_line_tbl(I).request_date;
5489: END IF;
5490:
5491: IF l_debug_level > 0 THEN
5492: oe_debug_pub.add( 'request ship date :' || L_LINE_TBL ( I ) .SCHEDULE_SHIP_DATE , 1 ) ;
5493: END IF;
5494:
5495:
5496: IF l_set_schedule_arrival_date is not null THEN
5508: -- END IF; -- 2716220
5509:
5510: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
5511: IF l_debug_level > 0 THEN
5512: oe_debug_pub.add('request date :' || l_line_tbl(i).request_date , 1 ) ;
5513: oe_debug_pub.add('schedule_ship_date :' || l_line_tbl(I).schedule_ship_date , 1 ) ;
5514: oe_debug_pub.add('schedule_arrival_date :' || l_line_tbl(I).schedule_arrival_date , 1 ) ;
5515: oe_debug_pub.add('ship_from_org_id :' || l_line_tbl(I).ship_from_org_id , 1 ) ;
5516: END IF;
5509:
5510: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
5511: IF l_debug_level > 0 THEN
5512: oe_debug_pub.add('request date :' || l_line_tbl(i).request_date , 1 ) ;
5513: oe_debug_pub.add('schedule_ship_date :' || l_line_tbl(I).schedule_ship_date , 1 ) ;
5514: oe_debug_pub.add('schedule_arrival_date :' || l_line_tbl(I).schedule_arrival_date , 1 ) ;
5515: oe_debug_pub.add('ship_from_org_id :' || l_line_tbl(I).ship_from_org_id , 1 ) ;
5516: END IF;
5517: END LOOP;
5510: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
5511: IF l_debug_level > 0 THEN
5512: oe_debug_pub.add('request date :' || l_line_tbl(i).request_date , 1 ) ;
5513: oe_debug_pub.add('schedule_ship_date :' || l_line_tbl(I).schedule_ship_date , 1 ) ;
5514: oe_debug_pub.add('schedule_arrival_date :' || l_line_tbl(I).schedule_arrival_date , 1 ) ;
5515: oe_debug_pub.add('ship_from_org_id :' || l_line_tbl(I).ship_from_org_id , 1 ) ;
5516: END IF;
5517: END LOOP;
5518: END IF; -- Ship Set
5511: IF l_debug_level > 0 THEN
5512: oe_debug_pub.add('request date :' || l_line_tbl(i).request_date , 1 ) ;
5513: oe_debug_pub.add('schedule_ship_date :' || l_line_tbl(I).schedule_ship_date , 1 ) ;
5514: oe_debug_pub.add('schedule_arrival_date :' || l_line_tbl(I).schedule_arrival_date , 1 ) ;
5515: oe_debug_pub.add('ship_from_org_id :' || l_line_tbl(I).ship_from_org_id , 1 ) ;
5516: END IF;
5517: END LOOP;
5518: END IF; -- Ship Set
5519:
5642: END IF;
5643: -- END IF; -- 2716220
5644:
5645: IF l_debug_level > 0 THEN
5646: oe_debug_pub.add( 'REQUEST ARRIVAL DATE :' || L_LINE_TBL ( I ) .SCHEDULE_ARRIVAL_DATE , 1 ) ;
5647: END IF;
5648:
5649:
5650: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
5679:
5680: END LOOP;
5681: END IF;
5682: IF l_debug_level > 0 THEN
5683: oe_debug_pub.add( 'CALLING PROCESS_GROUP' , 1 ) ;
5684: END IF;
5685:
5686: IF l_line_tbl.count > 0 THEN
5687:
5693:
5694: END IF;
5695:
5696: IF l_debug_level > 0 THEN
5697: oe_debug_pub.add( 'AFTER CALLING Validate Group ' || X_RETURN_STATUS
5698: || l_line_tbl.count || ':' || l_old_line_tbl.count , 1 ) ;
5699: END IF;
5700:
5701: IF l_line_tbl.count <> l_old_line_tbl.count THEN
5717: */
5718: /* Commented the above code and added the following code to fix the bug 2740480 */
5719: IF l_push_logic = 'Y' THEN
5720:
5721: oe_debug_pub.add('2740480: Push logic is set to Y ',2);
5722: Oe_Config_Schedule_Pvt.Process_Group
5723: (p_x_line_tbl => l_line_tbl
5724: ,p_old_line_tbl => l_old_line_tbl
5725: ,p_caller => 'SET'
5727: ,p_partial_set => TRUE
5728: ,x_return_status => x_return_status);
5729:
5730: IF l_debug_level > 0 THEN
5731: oe_debug_pub.add('2740480: After call to Process Group :' || x_return_status ,1);
5732: END IF;
5733: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5735: END IF;
5735: END IF;
5736: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
5737:
5738: IF l_debug_level > 0 THEN
5739: oe_debug_pub.add('2740480: Compare output with requested values',1);
5740: END IF;
5741:
5742: FOR I IN 1..l_line_tbl.count LOOP
5743: oe_debug_pub.add('2740480: Entity type : '|| l_entity_type);
5739: oe_debug_pub.add('2740480: Compare output with requested values',1);
5740: END IF;
5741:
5742: FOR I IN 1..l_line_tbl.count LOOP
5743: oe_debug_pub.add('2740480: Entity type : '|| l_entity_type);
5744: oe_debug_pub.add('2740480: line schedule ship date : '|| l_line_tbl(I).Schedule_ship_date);
5745: oe_debug_pub.add('2740480: set schedule ship date : '|| l_set_rec.Schedule_ship_date );
5746: IF l_entity_type = OE_SCHEDULE_UTIL.OESCH_ENTITY_SHIP_SET
5747: AND trunc(l_line_tbl(I).Schedule_ship_date) <> trunc(l_set_rec.Schedule_ship_date)
5740: END IF;
5741:
5742: FOR I IN 1..l_line_tbl.count LOOP
5743: oe_debug_pub.add('2740480: Entity type : '|| l_entity_type);
5744: oe_debug_pub.add('2740480: line schedule ship date : '|| l_line_tbl(I).Schedule_ship_date);
5745: oe_debug_pub.add('2740480: set schedule ship date : '|| l_set_rec.Schedule_ship_date );
5746: IF l_entity_type = OE_SCHEDULE_UTIL.OESCH_ENTITY_SHIP_SET
5747: AND trunc(l_line_tbl(I).Schedule_ship_date) <> trunc(l_set_rec.Schedule_ship_date)
5748: THEN
5741:
5742: FOR I IN 1..l_line_tbl.count LOOP
5743: oe_debug_pub.add('2740480: Entity type : '|| l_entity_type);
5744: oe_debug_pub.add('2740480: line schedule ship date : '|| l_line_tbl(I).Schedule_ship_date);
5745: oe_debug_pub.add('2740480: set schedule ship date : '|| l_set_rec.Schedule_ship_date );
5746: IF l_entity_type = OE_SCHEDULE_UTIL.OESCH_ENTITY_SHIP_SET
5747: AND trunc(l_line_tbl(I).Schedule_ship_date) <> trunc(l_set_rec.Schedule_ship_date)
5748: THEN
5749: IF l_debug_level > 0 THEN
5746: IF l_entity_type = OE_SCHEDULE_UTIL.OESCH_ENTITY_SHIP_SET
5747: AND trunc(l_line_tbl(I).Schedule_ship_date) <> trunc(l_set_rec.Schedule_ship_date)
5748: THEN
5749: IF l_debug_level > 0 THEN
5750: oe_debug_pub.add('2740480: Not received correct values for ship set',1);
5751: END IF;
5752: l_date_changed := 'Y' ;
5753: EXIT;
5754: ELSIF l_entity_type = OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET
5754: ELSIF l_entity_type = OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET
5755: AND trunc(l_line_tbl(I).Schedule_arrival_date) <> trunc(l_set_rec.Schedule_arrival_date)
5756: THEN
5757: IF l_debug_level > 0 THEN
5758: oe_debug_pub.add('2740480: Not received correct values for arrival set',1);
5759: END IF;
5760: l_date_changed := 'Y' ;
5761: EXIT;
5762: END IF;
5770:
5771: IF fnd_profile.value('ONT_AUTO_PUSH_GRP_DATE') = 'Y' THEN
5772:
5773: IF l_debug_level > 0 THEN
5774: oe_debug_pub.add('2740480: Auto Push Group Date is Yes',2);
5775: END IF;
5776: goto Push;
5777: ELSE
5778:
5776: goto Push;
5777: ELSE
5778:
5779: IF l_debug_level > 0 THEN
5780: oe_debug_pub.add('Before setting message for group failure',2);
5781: END IF;
5782:
5783: x_return_status := FND_API.G_RET_STS_ERROR;
5784: FND_MESSAGE.SET_NAME('ONT','OE_SCH_GROUP_MEMBER_FAILED');
5790: END IF; -- Push logic ends here.
5791:
5792: <
5793:
5794: oe_debug_pub.add('2740480: Push logic is set to N ',2);
5795: Oe_Config_Schedule_Pvt.Process_Group
5796: (p_x_line_tbl => l_line_tbl
5797: ,p_old_line_tbl => l_old_line_tbl
5798: ,p_caller => 'SET'
5802: /* End of code for the bug fix 2740480 */
5803:
5804:
5805: IF l_debug_level > 0 THEN
5806: oe_debug_pub.add( 'AFTER CALLING PROCESS_GROUP' || X_RETURN_STATUS , 1 ) ;
5807: END IF;
5808:
5809: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5813:
5814: -- Code added for bug 2812346
5815:
5816: IF l_debug_level > 0 THEN
5817: oe_debug_pub.add('l_operation :' || l_operation,2);
5818: oe_debug_pub.add('l_set_rec.set_status :' || l_set_rec.set_status,2);
5819: END IF;
5820: IF l_operation = OE_GLOBALS.G_OPR_CREATE
5821: AND l_set_rec.set_status = 'T' THEN
5814: -- Code added for bug 2812346
5815:
5816: IF l_debug_level > 0 THEN
5817: oe_debug_pub.add('l_operation :' || l_operation,2);
5818: oe_debug_pub.add('l_set_rec.set_status :' || l_set_rec.set_status,2);
5819: END IF;
5820: IF l_operation = OE_GLOBALS.G_OPR_CREATE
5821: AND l_set_rec.set_status = 'T' THEN
5822: -- Could not schedule the line on the set date. Let's schedule
5860: p_line_id => l_line_tbl(I).line_id,
5861: p_set_id => nvl(l_line_tbl(I).ship_set_id,l_line_tbl(I).arrival_set_id),
5862: x_return_status => x_return_status);
5863: IF l_debug_level > 0 THEN
5864: oe_debug_pub.add( 'AFTER LOGGING DELETE SETS DELAYED REQUEST ' || X_RETURN_STATUS , 1 ) ;
5865: END IF;
5866: END IF;
5867:
5868: ELSE
5867:
5868: ELSE
5869:
5870: IF l_debug_level > 0 THEN
5871: oe_debug_pub.add('Model is part of a set cannot save ' ,2);
5872: END IF;
5873:
5874: RAISE FND_API.G_EXC_ERROR;
5875: END IF;
5880: l_set_rec.set_status := 'A'; --4241385
5881: END IF ; --4241385
5882:
5883: IF l_debug_level > 0 THEN
5884: oe_debug_pub.add('It is a create operation ' ,2);
5885: END IF;
5886: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
5887: OE_MSG_PUB.Add;
5888: x_return_status := FND_API.G_RET_STS_SUCCESS;
5886: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
5887: OE_MSG_PUB.Add;
5888: x_return_status := FND_API.G_RET_STS_SUCCESS;
5889: IF l_debug_level > 0 THEN
5890: oe_debug_pub.add('x_return_status ' || x_return_status,2);
5891: END IF;
5892: GOTO END_OF_PROCESS;
5893: ELSE -- Create
5894: IF l_debug_level > 0 THEN
5891: END IF;
5892: GOTO END_OF_PROCESS;
5893: ELSE -- Create
5894: IF l_debug_level > 0 THEN
5895: oe_debug_pub.add('It is not a create operation ' ,2);
5896: END IF;
5897:
5898: RAISE FND_API.G_EXC_ERROR;
5899: END IF; -- Create.
5929: From oe_order_lines_all
5930: Where line_id = l_line_tbl(1).line_id;
5931:
5932: IF l_debug_level > 0 THEN
5933: oe_debug_pub.add( 'CALLING UPDATE SET' ) ;
5934: END IF;
5935:
5936: OE_Set_Util.Update_Set
5937: (p_Set_Id => l_set_id,
5947: x_msg_data => l_msg_data
5948: );
5949:
5950: IF l_debug_level > 0 THEN
5951: oe_debug_pub.add( 'AFTER CALLING UPDATE SET' ) ;
5952: END IF;
5953:
5954: EXCEPTION
5955: WHEN OTHERS THEN
5959: G_TOP_MODEL_LINE_ID := Null;
5960: G_PART_OF_SET := Null;
5961:
5962: IF l_debug_level > 0 THEN
5963: oe_debug_pub.add('Exiting Schedule_Set',0.5); -- debug level changed to 0.5 for bug 13435459
5964: END IF;
5965: EXCEPTION
5966: WHEN FND_API.G_EXC_ERROR THEN
5967: --3543774 If new set show the error message
6035: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6036: l_set_exists VARCHAR2(1);
6037:
6038: --
6039: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6040: --
6041: BEGIN
6042:
6043: x_return_status := FND_API.G_RET_STS_SUCCESS;
6042:
6043: x_return_status := FND_API.G_RET_STS_SUCCESS;
6044:
6045: IF l_debug_level > 0 THEN
6046: oe_debug_pub.add( 'ENTERING Group_Schedule_sets' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
6047: END IF;
6048:
6049: FOR I in 1..p_sch_set_tbl.count LOOP
6050: l_set_exists := 'Y';
6049: FOR I in 1..p_sch_set_tbl.count LOOP
6050: l_set_exists := 'Y';
6051:
6052: IF l_debug_level > 0 THEN
6053: oe_debug_pub.add( 'Processing Line' || P_SCH_SET_TBL(I).ENTITY_ID, 1);
6054: END IF;
6055:
6056: l_return_status := FND_API.G_RET_STS_SUCCESS;
6057:
6066: And open_flag = 'Y'
6067: And rownum = 1;
6068:
6069: IF l_debug_level > 0 THEN
6070: oe_debug_pub.add( 'Lines exists in the set', 2);
6071: END IF;
6072:
6073: EXCEPTION
6074: WHEN NO_DATA_FOUND THEN
6078: l_set_exists := 'Y';
6079: END;
6080:
6081: IF l_debug_level > 0 THEN
6082: oe_debug_pub.add( 'Before quering the date ' || l_set_exists, 2);
6083: END IF;
6084: IF l_set_exists = 'N' THEN
6085: GOTO END_PROCESS;
6086: END IF;
6106:
6107: END IF;
6108:
6109: IF l_debug_level > 0 THEN
6110: oe_debug_pub.add(' L_return_status :' || l_return_status,1);
6111: END IF;
6112:
6113: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6113: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6116: IF l_debug_level > 0 THEN
6117: oe_debug_pub.add(' Goto End due to error',1);
6118: END IF;
6119: GOTO END_PROCESS;
6120: END IF;
6121:
6128:
6129: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6130:
6131: IF l_debug_level > 0 THEN
6132: oe_debug_pub.add(' Error in validation ',1);
6133: END IF;
6134: GOTO END_PROCESS;
6135: END IF;
6136:
6214:
6215: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6216:
6217: IF l_debug_level > 0 THEN
6218: oe_debug_pub.add(' Error in ' || p_sch_set_tbl(I).param1,2);
6219: END IF;
6220:
6221: IF p_sch_set_tbl(I).param4 is null
6222: THEN
6247: p_line_id => l_sch_line_tbl(I).line_id,
6248: p_set_id => nvl(l_sch_line_tbl(I).ship_set_id,l_sch_line_tbl(I).arrival_set_id),
6249: x_return_status => x_return_status);
6250: IF l_debug_level > 0 THEN
6251: oe_debug_pub.add( 'AFTER LOGGING DELETE SETS DELAYED REQUEST '
6252: || X_RETURN_STATUS , 1 ) ;
6253: END IF;
6254: END IF;
6255: END IF;
6253: END IF;
6254: END IF;
6255: END IF;
6256: IF l_debug_level > 0 THEN
6257: oe_debug_pub.add(' Process next set :' || l_sch_line_tbl.count,1);
6258: END IF;
6259:
6260: END LOOP; -- Main loop.
6261:
6259:
6260: END LOOP; -- Main loop.
6261:
6262: IF l_debug_level > 0 THEN
6263: oe_debug_pub.add('Line Count :' || l_sch_line_tbl.count,1);
6264: END IF;
6265:
6266: IF l_sch_line_tbl.count > 0 THEN
6267:
6273: ,p_partial => TRUE
6274: ,x_return_status => x_return_status);
6275:
6276: IF l_debug_level > 0 THEN
6277: oe_debug_pub.add('After call to Process Group :' || x_return_status ,1);
6278: END IF;
6279: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6281: END IF;
6283:
6284:
6285: FOR I IN 1..l_sch_line_tbl.count LOOP
6286:
6287: oe_debug_pub.add('line id :' || l_sch_line_tbl(I).line_id ,1);
6288: oe_debug_pub.add('Schedule status code :' || l_sch_line_tbl(I).schedule_status_code ,1);
6289:
6290: -- 4188166
6291: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
6284:
6285: FOR I IN 1..l_sch_line_tbl.count LOOP
6286:
6287: oe_debug_pub.add('line id :' || l_sch_line_tbl(I).line_id ,1);
6288: oe_debug_pub.add('Schedule status code :' || l_sch_line_tbl(I).schedule_status_code ,1);
6289:
6290: -- 4188166
6291: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
6292: l_sch_line_tbl(I).schedule_status_code IS NOT NULL
6371: p_set_id => nvl(l_sch_line_tbl(I).ship_set_id,l_sch_line_tbl(I).arrival_set_id),
6372: x_return_status => l_return_status);
6373:
6374: IF l_debug_level > 0 THEN
6375: oe_debug_pub.add('AFTER LOGGING DELETE SETS DELAYED REQUEST ' || L_RETURN_STATUS,1) ;
6376: END IF;
6377:
6378: END IF;
6379: -- End 4026758
6385: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
6386: OE_MSG_PUB.Add;
6387: x_return_status := FND_API.G_RET_STS_SUCCESS;
6388: IF l_debug_level > 0 THEN
6389: oe_debug_pub.add('x_return_status ' || x_return_status,2);
6390: END IF;
6391: END IF;
6392: -- End 4188166
6393:
6391: END IF;
6392: -- End 4188166
6393:
6394: IF l_debug_level > 0 THEN
6395: oe_debug_pub.add('Exiting Group_Schedule_sets' || x_return_status,0.5); -- debug level changed to 0.5 for bug 13435459
6396: END IF;
6397:
6398: EXCEPTION
6399:
6399:
6400: WHEN FND_API.G_EXC_ERROR THEN
6401: x_return_status := FND_API.G_RET_STS_ERROR;
6402: IF l_debug_level > 0 THEN
6403: oe_debug_pub.add('No data from expected error',1);
6404: END IF;
6405: RAISE FND_API.G_EXC_ERROR;
6406:
6407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6413: , 'Group_Schedule_sets'
6414: );
6415: END IF;
6416: IF l_debug_level > 0 THEN
6417: oe_debug_pub.add('No data from unexpected error',1);
6418: END IF;
6419:
6420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6421:
6429: , 'Group_Schedule_sets'
6430: );
6431: END IF;
6432: IF l_debug_level > 0 THEN
6433: oe_debug_pub.add('No data from unexpected error',1);
6434: END IF;
6435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6436: END Group_Schedule_sets;
6437: END OE_GROUP_SCH_UTIL;