[Home] [Help]
23: IS
24: l_set_rec OE_ORDER_CACHE.set_rec_type;
25:
26: --
27: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
28: --
29: Begin
30: l_set_rec := get_set_rec(p_set_id);
31: IF l_set_rec.set_status = 'C' THEN
61: RETURN BOOLEAN
62: IS
63: lcount number := 0;
64: --
65: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
66: --
67: Begin
68:
69: -- 4236316 start
79:
80:
81: IF lcount > 0 THEN
82: IF l_debug_level > 0 THEN
83: oe_debug_pub.add( 'THIS LINE EXIST IN FULLFILLMENT SET' ) ;
84: END IF;
85: RETURN TRUE;
86: ELSE
87: IF l_debug_level > 0 THEN
84: END IF;
85: RETURN TRUE;
86: ELSE
87: IF l_debug_level > 0 THEN
88: oe_debug_pub.add( 'DOES NOT EXIST' ) ;
89: END IF;
90: RETURN FALSE;
91: END IF;
92:
96: RAISE FND_API.G_EXC_ERROR;
97:
98: WHEN NO_DATA_FOUND THEN
99: IF l_debug_level > 0 THEN
100: oe_debug_pub.add( 'DOES NOT EXIST- IN NO DATA FOUND' ) ;
101: END IF;
102: RETURN FALSE;
103:
104: End Get_Fulfillment_Set;
109: ,p_old_line_rec IN OE_Order_PUB.Line_Rec_Type
110: ,x_return_status OUT NOCOPY VARCHAR2
111: )
112: IS
113: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
114: l_shipset_enforce VARCHAR2(1);
115: l_set_name VARCHAR2(30);
116: l_ship_set NUMBER := 0;
117: BEGIN
118:
119: x_return_status := FND_API.G_RET_STS_SUCCESS;
120:
121: IF l_debug_level > 0 then
122: OE_DEBUG_PUB.Add('Entering OE_SET_UTIL.Validate_Shipset',1);
123: END IF;
124:
125: -- Select statement to check the Ship Set Enforce Parameter.
126: BEGIN
180: END IF;
181:
182: END IF;
183: IF l_debug_level > 0 then
184: OE_DEBUG_PUB.Add('Exiting OE_SET_UTIL.Validate_Shipset:'
185: ||x_return_status,1);
186: END IF;
187:
188: EXCEPTION
187:
188: EXCEPTION
189: WHEN FND_API.G_EXC_ERROR THEN
190: if l_debug_level > 0 then
191: OE_DEBUG_PUB.Add('Expected Error in Validate_Shipset ',2);
192: End if;
193:
194: x_return_status := FND_API.G_RET_STS_ERROR;
195:
194: x_return_status := FND_API.G_RET_STS_ERROR;
195:
196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
197: if l_debug_level > 0 then
198: OE_DEBUG_PUB.Add('Unexpected Error in Validate_Shipset:'||SqlErrm, 1);
199: End if;
200:
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202:
214: Function Is_Service_Eligible (p_line_rec IN OE_Order_Pub.Line_Rec_Type)
215: RETURN BOOLEAN
216: IS
217: l_header_id Number;
218: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
219: BEGIN
220:
221: IF l_debug_level > 0 then
222: OE_DEBUG_PUB.Add('Entering Is_Service_Eligible',1);
218: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
219: BEGIN
220:
221: IF l_debug_level > 0 then
222: OE_DEBUG_PUB.Add('Entering Is_Service_Eligible',1);
223: END IF;
224:
225: -- sol_ord_er #16014165
226: IF p_line_rec.subscription_enable_flag = 'Y' then
224:
225: -- sol_ord_er #16014165
226: IF p_line_rec.subscription_enable_flag = 'Y' then
227: IF l_debug_level > 0 then
228: OE_DEBUG_PUB.Add('Subscription Line, Elligible',1);
229: END IF;
230: RETURN TRUE;
231: End IF;
232: -- sol_ord_er #16014165 end
284: line_id not in
285: (select line_id from oe_line_sets where
286: set_id = p_set_id );
287: --
288: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
289:
290: l_set_s VARCHAR2(2); --bug8420761
291: --
292: BEGIN
294: IF NOT Get_Fulfillment_Set(p_line_id => p_line_id,
295: p_set_id => p_set_id) THEN
296:
297: IF l_debug_level > 0 THEN
298: oe_debug_pub.add( 'CREATE FULLFILLMENT SET' ) ;
299: END IF;
300:
301: l_set_rec := get_set_rec(p_set_id);
302:
301: l_set_rec := get_set_rec(p_set_id);
302:
303: -- Begin changes for bug8420761
304: BEGIN
305: oe_debug_pub.add('Locking The Set Status ');
306:
307: SELECT set_status
308: INTO l_set_s
309: FROM oe_sets
312:
313: EXCEPTION
314: WHEN Others THEN
315: l_set_s := 'U' ;
316: oe_debug_pub.add('Error while locking Set status : '||SQLERRM);
317: fnd_message.set_name('ONT', 'OE_SET_LOCKED');
318: oe_msg_pub.add;
319: RAISE FND_API.G_EXC_ERROR ;
320: END;
318: oe_msg_pub.add;
319: RAISE FND_API.G_EXC_ERROR ;
320: END;
321:
322: oe_debug_pub.add('Create_Fulfillment_Set:'||OE_Set_util.g_set_rec.set_status ||' l_set_s ' || l_set_s);
323:
324: -- End changes for bug8420761
325:
326: IF is_set_closed(p_set_id => p_set_id) THEN
357:
358:
359: END IF;
360: IF l_debug_level > 0 THEN
361: oe_debug_pub.add( 'EXIT - CREATE FULLFILLMENT SET' ) ;
362: END IF;
363:
364: EXCEPTION
365: WHEN FND_API.G_EXC_ERROR THEN
370: ( p_count => x_msg_count
371: , p_data => x_msg_data
372: );
373: IF l_debug_level > 0 THEN
374: oe_debug_pub.add( 'IN FULFILLMENT CREATE EXCEPTION ' , 1 ) ;
375: END IF;
376:
377: RAISE FND_API.G_EXC_ERROR;
378:
398: l_activity_result VARCHAR2(30);
399: l_activity_id NUMBER;
400: l_return_status VARCHAR2(1);
401: --
402: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
403: --
404: BEGIN
405: IF l_debug_level > 0 THEN
406: oe_debug_pub.add( 'ENTER OE_SET_UTIL.FULFILL_STS' , 5 ) ;
402: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
403: --
404: BEGIN
405: IF l_debug_level > 0 THEN
406: oe_debug_pub.add( 'ENTER OE_SET_UTIL.FULFILL_STS' , 5 ) ;
407: END IF;
408: OE_LINE_FULLFILL.Get_Activity_Result (
409: p_item_type => OE_GLOBALS.G_WFI_LIN
410: , p_item_key => to_char(p_line_id)
414: , x_activity_status_code => l_activity_status
415: , x_activity_id => l_activity_id);
416:
417: IF l_debug_level > 0 THEN
418: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 5 ) ;
419: END IF;
420:
421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
426: ELSE
427: l_activity_status := 'ERROR';
428: END IF;
429: IF l_debug_level > 0 THEN
430: oe_debug_pub.add( 'EXIT OE_SET_UTIL.FULFILL_STS:'||L_ACTIVITY_STATUS , 5 ) ;
431: END IF;
432: RETURN l_activity_status;
433:
434: END Fulfill_Sts;
437: p_set_id NUMBER) IS
438: l_return_status varchar2(30);
439: -- l_line_rec oe_order_pub.line_rec_type; removed for 2525203
440: --
441: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
442: --
443: BEGIN
444:
445: IF Get_Fulfillment_Set(p_line_id => p_line_id,
445: IF Get_Fulfillment_Set(p_line_id => p_line_id,
446: p_set_id => p_set_id) THEN
447:
448: IF l_debug_level > 0 THEN
449: oe_debug_pub.add( 'DELETE FULLFILLMENT SET' ) ;
450: END IF;
451:
452: /* The next check is redundant and harmful if a child line is being deleted from
453: set. The check has already been done in process_sets(). Commented for 2525203.
490: and set_id = p_set_id;
491:
492: END IF;
493: IF l_debug_level > 0 THEN
494: oe_debug_pub.add( 'EXIT - DELETE FULLFILLMENT SET' ) ;
495: END IF;
496:
497: EXCEPTION
498: WHEN FND_API.G_EXC_ERROR THEN
516: FUNCTION Find_line(p_line_id IN NUMBER)
517: Return NUMBER
518: IS
519: --
520: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
521: --
522: BEGIN
523:
524: IF l_debug_level > 0 THEN
521: --
522: BEGIN
523:
524: IF l_debug_level > 0 THEN
525: oe_debug_pub.add( 'ENTERING FIND_LINE: ' || P_LINE_ID , 1 ) ;
526: END IF;
527:
528: FOR J IN 1..g_old_line_tbl.count LOOP
529:
529:
530: IF p_line_id = g_old_line_tbl(J).line_id THEN
531:
532: IF l_debug_level > 0 THEN
533: oe_debug_pub.add( ' LINE EXISTS IN THE TABLE' , 1 ) ;
534: END IF;
535:
536: RETURN J;
537: END IF;
571: l_count number;
572: l_perform_sch boolean := FALSE;
573: l_found NUMBER;
574: --
575: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
576: --
577: BEGIN
578:
579: FOR I in 1 .. g_set_opt_tbl.count
640: g_old_line_tbl.delete;
641: END IF;
642:
643: IF l_debug_level > 0 THEN
644: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' || L_LINE_TBL.COUNT , 1 ) ;
645: END IF;
646: IF l_debug_level > 0 THEN
647: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' || L_OLD_LINE_TBL.COUNT , 1 ) ;
648: END IF;
643: IF l_debug_level > 0 THEN
644: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' || L_LINE_TBL.COUNT , 1 ) ;
645: END IF;
646: IF l_debug_level > 0 THEN
647: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' || L_OLD_LINE_TBL.COUNT , 1 ) ;
648: END IF;
649: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
650: IF l_debug_level > 0 THEN
651: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
647: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' || L_OLD_LINE_TBL.COUNT , 1 ) ;
648: END IF;
649: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
650: IF l_debug_level > 0 THEN
651: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
652: END IF;
653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
654: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
655: IF l_debug_level > 0 THEN
652: END IF;
653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
654: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
655: IF l_debug_level > 0 THEN
656: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
657: END IF;
658: RAISE FND_API.G_EXC_ERROR;
659: END IF;
660:
666: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
667: g_set_recursive_flag := TRUE;
668:
669: IF l_debug_level > 0 THEN
670: oe_debug_pub.add( 'PROCESS OPTIONS- BEFORE CALLING PROCESS ORDER IN SETS' ) ;
671: END IF;
672:
673: FOR I in 1 .. l_line_tbl.count
674: Loop
672:
673: FOR I in 1 .. l_line_tbl.count
674: Loop
675: IF l_debug_level > 0 THEN
676: oe_debug_pub.add( 'SHIP_SET: ' || L_LINE_TBL ( I ) .SHIP_SET_ID ) ;
677: END IF;
678: IF l_debug_level > 0 THEN
679: oe_debug_pub.add( 'LINE_ID :' || L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
680: END IF;
675: IF l_debug_level > 0 THEN
676: oe_debug_pub.add( 'SHIP_SET: ' || L_LINE_TBL ( I ) .SHIP_SET_ID ) ;
677: END IF;
678: IF l_debug_level > 0 THEN
679: oe_debug_pub.add( 'LINE_ID :' || L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
680: END IF;
681: end loop;
682: IF l_line_tbl.count > 0 THEN
683:
710: jolin end */
711:
712: END IF;
713: IF l_debug_level > 0 THEN
714: oe_debug_pub.add( 'PROCESS OPTIONS- AFTER CALLING PROCESS ORDER IN SETS' ) ;
715: END IF;
716:
717: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
718: g_set_recursive_flag := FALSE;
766: l_return_status varchar2(1);
767: l_line_rec OE_ORDER_PUB.line_rec_type := p_line_rec;
768:
769: --
770: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
771: --
772: BEGIN
773: IF l_debug_level > 0 THEN
774: oe_debug_pub.add( 'ENTER GET OPTIONS' ) ;
770: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
771: --
772: BEGIN
773: IF l_debug_level > 0 THEN
774: oe_debug_pub.add( 'ENTER GET OPTIONS' ) ;
775: END IF;
776: IF l_debug_level > 0 THEN
777: oe_debug_pub.add( 'ENTER COUNT GET OPTIONS'|| P_X_LINE_TBL.COUNT ) ;
778: END IF;
773: IF l_debug_level > 0 THEN
774: oe_debug_pub.add( 'ENTER GET OPTIONS' ) ;
775: END IF;
776: IF l_debug_level > 0 THEN
777: oe_debug_pub.add( 'ENTER COUNT GET OPTIONS'|| P_X_LINE_TBL.COUNT ) ;
778: END IF;
779: IF p_x_line_tbl.count = 0 THEN
780: l_line_id := p_line_id;
781: else
789:
790: FOR Optionrec IN Optiontbl
791: Loop
792: IF l_debug_level > 0 THEN
793: oe_debug_pub.add( 'ENTER INTO OPTIONS' ) ;
794: END IF;
795:
796: lexist := FALSE;
797: IF g_process_options THEN
812:
813: g_old_line_tbl(g_old_line_tbl.count + 1) :=
814: p_x_line_tbl(l_count);
815: IF l_debug_level > 0 THEN
816: oe_debug_pub.add( 'ENTER INTO OPTIONS' || P_X_LINE_TBL ( L_COUNT ) .ITEM_TYPE_CODE ) ;
817: END IF;
818:
819: IF p_set_type = 'SHIP_SET' THEN
820: IF l_debug_level > 0 THEN
817: END IF;
818:
819: IF p_set_type = 'SHIP_SET' THEN
820: IF l_debug_level > 0 THEN
821: oe_debug_pub.add( 'IN SHIP SET:' ) ;
822: END IF;
823: p_x_line_tbl(l_count).ship_from_org_id
824: := l_line_rec.ship_from_org_id;
825: p_x_line_tbl(l_count).ship_to_org_id
847: END IF; -- if not exists
848: End Loop;
849:
850: IF l_debug_level > 0 THEN
851: oe_debug_pub.add( 'COUNT GET OPTIONS'|| P_X_LINE_TBL.COUNT ) ;
852: END IF;
853: IF l_debug_level > 0 THEN
854: oe_debug_pub.add( 'EXIT GET OPTIONS' ) ;
855: END IF;
850: IF l_debug_level > 0 THEN
851: oe_debug_pub.add( 'COUNT GET OPTIONS'|| P_X_LINE_TBL.COUNT ) ;
852: END IF;
853: IF l_debug_level > 0 THEN
854: oe_debug_pub.add( 'EXIT GET OPTIONS' ) ;
855: END IF;
856:
857: EXCEPTION
858: WHEN FND_API.G_EXC_ERROR THEN
988: l_x_arrival_set_id number;
989:
990:
991: --
992: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
993: --
994: Begin
995: IF l_debug_level > 0 THEN
996: oe_debug_pub.add( 'INSERT_INTO ARRIVAL SETSS' , 1 ) ;
992: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
993: --
994: Begin
995: IF l_debug_level > 0 THEN
996: oe_debug_pub.add( 'INSERT_INTO ARRIVAL SETSS' , 1 ) ;
997: END IF;
998: g_old_arrival_set_path := TRUE;
999:
1000: IF p_set_request_tbl.count > 0 THEN
999:
1000: IF p_set_request_tbl.count > 0 THEN
1001: --g_cust_pref_set := TRUE;
1002: IF l_debug_level > 0 THEN
1003: oe_debug_pub.add( 'PROCESS REQUEST RECORD ' , 1 ) ;
1004: END IF;
1005:
1006: l_header_id := p_set_request_tbl(1).entity_id;
1007: oe_header_util.query_row(p_header_id => l_header_id,
1020: Begin
1021: l_temp_line_tbl.delete;
1022: g_old_line_tbl.delete;
1023: IF l_debug_level > 0 THEN
1024: oe_debug_pub.add( 'ENTER INTO AUTO SET TABLE LOOP ' , 1 ) ;
1025: END IF;
1026: oe_line_util.query_row(p_line_id => g_auto_set_tbl(I).line_id,
1027: x_line_rec => l_line_rec);
1028: IF (l_line_rec.split_from_line_id is not null) THEN
1026: oe_line_util.query_row(p_line_id => g_auto_set_tbl(I).line_id,
1027: x_line_rec => l_line_rec);
1028: IF (l_line_rec.split_from_line_id is not null) THEN
1029: IF l_debug_level > 0 THEN
1030: oe_debug_pub.add( 'INVALID ITEM SPLIT'||L_LINE_REC.LINE_ID ) ;
1031: END IF;
1032: RAISE NO_DATA_FOUND;
1033: END IF;
1034: IF l_line_rec.line_category_code = 'RETURN' OR
1040: g_old_line_tbl(g_old_line_tbl.count +1 ) :=
1041: l_temp_line_tbl(1);
1042:
1043: IF l_debug_level > 0 THEN
1044: oe_debug_pub.add( 'ITEM TYPE CODE IS: '||L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
1045: END IF;
1046: IF l_debug_level > 0 THEN
1047: oe_debug_pub.add( 'SHIP FROM : '||L_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1048: END IF;
1043: IF l_debug_level > 0 THEN
1044: oe_debug_pub.add( 'ITEM TYPE CODE IS: '||L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
1045: END IF;
1046: IF l_debug_level > 0 THEN
1047: oe_debug_pub.add( 'SHIP FROM : '||L_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1048: END IF;
1049: IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL
1050: OR l_line_rec.item_type_code = 'KIT' THEN
1051: l_model_exists := TRUE;
1091: l_ship_from_org_id IS NOT NULL AND
1092: l_ship_to_org_id IS NOT NULL */
1093: THEN
1094: IF l_debug_level > 0 THEN
1095: oe_debug_pub.add( 'INTO SHIP SET' , 1 ) ;
1096: END IF;
1097: l_temp_line_tbl(1).schedule_ship_date := l_schedule_ship_date;
1098: l_temp_line_tbl(1).ship_from_org_id := l_ship_from_org_id;
1099: l_temp_line_tbl(1).ship_to_org_id := l_ship_to_org_id;
1110: END IF;
1111: END IF;
1112: -- IF l_line_rec.schedule_status_code IS NULL THEN
1113: IF l_debug_level > 0 THEN
1114: oe_debug_pub.add( 'COUNT OF TEMP TABLE' || L_TEMP_LINE_TBL.COUNT , 1 ) ;
1115: END IF;
1116: IF l_debug_level > 0 THEN
1117: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1118: END IF;
1113: IF l_debug_level > 0 THEN
1114: oe_debug_pub.add( 'COUNT OF TEMP TABLE' || L_TEMP_LINE_TBL.COUNT , 1 ) ;
1115: END IF;
1116: IF l_debug_level > 0 THEN
1117: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1118: END IF;
1119: IF l_debug_level > 0 THEN
1120: oe_debug_pub.add( 'SHIP SET' || L_TEMP_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
1121: END IF;
1116: IF l_debug_level > 0 THEN
1117: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1118: END IF;
1119: IF l_debug_level > 0 THEN
1120: oe_debug_pub.add( 'SHIP SET' || L_TEMP_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
1121: END IF;
1122: FOR J in 1..l_temp_line_tbl.count
1123: LOOP
1124: l_temp_line_tbl(J).schedule_action_code :=
1125: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE;
1126: l_sch_count := l_sch_count + 1;
1127: l_sch_line_tbl(l_sch_count) := l_temp_line_tbl(J);
1128: IF l_debug_level > 0 THEN
1129: oe_debug_pub.add( 'COUNT OF TEMP TABLE' || L_TEMP_LINE_TBL.COUNT , 1 ) ;
1130: END IF;
1131: IF l_debug_level > 0 THEN
1132: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1133: END IF;
1128: IF l_debug_level > 0 THEN
1129: oe_debug_pub.add( 'COUNT OF TEMP TABLE' || L_TEMP_LINE_TBL.COUNT , 1 ) ;
1130: END IF;
1131: IF l_debug_level > 0 THEN
1132: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1133: END IF;
1134: IF l_debug_level > 0 THEN
1135: oe_debug_pub.add( 'SHIP SET' || L_TEMP_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
1136: END IF;
1131: IF l_debug_level > 0 THEN
1132: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1133: END IF;
1134: IF l_debug_level > 0 THEN
1135: oe_debug_pub.add( 'SHIP SET' || L_TEMP_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
1136: END IF;
1137: l_model_exists := false;
1138: IF l_temp_line_tbl(J).item_type_code = 'INCLUDED' OR
1139: l_temp_line_tbl(J).item_type_code = 'OPTION' OR
1147: exit;
1148: END IF;
1149: END LOOP;
1150: IF l_debug_level > 0 THEN
1151: oe_debug_pub.add( 'COUNT OF TEMP TABLE' || L_TEMP_LINE_TBL.COUNT , 1 ) ;
1152: END IF;
1153: IF l_debug_level > 0 THEN
1154: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1155: END IF;
1150: IF l_debug_level > 0 THEN
1151: oe_debug_pub.add( 'COUNT OF TEMP TABLE' || L_TEMP_LINE_TBL.COUNT , 1 ) ;
1152: END IF;
1153: IF l_debug_level > 0 THEN
1154: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1155: END IF;
1156: IF l_debug_level > 0 THEN
1157: oe_debug_pub.add( 'SHIP SET' || L_TEMP_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
1158: END IF;
1153: IF l_debug_level > 0 THEN
1154: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1155: END IF;
1156: IF l_debug_level > 0 THEN
1157: oe_debug_pub.add( 'SHIP SET' || L_TEMP_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
1158: END IF;
1159: if not l_model_exists then
1160: oe_line_util.query_row(p_line_id => l_temp_line_tbl(J).top_model_line_id,
1161: x_line_rec => l_model_line_rec);
1175: END LOOP;
1176:
1177: -- Call scheduling
1178: IF l_debug_level > 0 THEN
1179: oe_debug_pub.add( 'BEFORE CALLING SCHEDULING ' , 1 ) ;
1180: END IF;
1181: IF l_debug_level > 0 THEN
1182: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.COUNT , 1 ) ;
1183: END IF;
1178: IF l_debug_level > 0 THEN
1179: oe_debug_pub.add( 'BEFORE CALLING SCHEDULING ' , 1 ) ;
1180: END IF;
1181: IF l_debug_level > 0 THEN
1182: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.COUNT , 1 ) ;
1183: END IF;
1184: IF l_debug_level > 0 THEN
1185: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.LAST , 1 ) ;
1186: END IF;
1181: IF l_debug_level > 0 THEN
1182: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.COUNT , 1 ) ;
1183: END IF;
1184: IF l_debug_level > 0 THEN
1185: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.LAST , 1 ) ;
1186: END IF;
1187: IF l_debug_level > 0 THEN
1188: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
1189: END IF;
1184: IF l_debug_level > 0 THEN
1185: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.LAST , 1 ) ;
1186: END IF;
1187: IF l_debug_level > 0 THEN
1188: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
1189: END IF;
1190: IF l_debug_level > 0 THEN
1191: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.LAST , 1 ) ;
1192: END IF;
1187: IF l_debug_level > 0 THEN
1188: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
1189: END IF;
1190: IF l_debug_level > 0 THEN
1191: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.LAST , 1 ) ;
1192: END IF;
1193: IF l_debug_level > 0 THEN
1194: oe_debug_pub.add( 'SHIP FROM : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1195: END IF;
1190: IF l_debug_level > 0 THEN
1191: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.LAST , 1 ) ;
1192: END IF;
1193: IF l_debug_level > 0 THEN
1194: oe_debug_pub.add( 'SHIP FROM : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1195: END IF;
1196: IF l_debug_level > 0 THEN
1197: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1198: END IF;
1193: IF l_debug_level > 0 THEN
1194: oe_debug_pub.add( 'SHIP FROM : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1195: END IF;
1196: IF l_debug_level > 0 THEN
1197: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1198: END IF;
1199: IF l_debug_level > 0 THEN
1200: oe_debug_pub.add( 'SHIP TO : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1201: END IF;
1196: IF l_debug_level > 0 THEN
1197: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1198: END IF;
1199: IF l_debug_level > 0 THEN
1200: oe_debug_pub.add( 'SHIP TO : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1201: END IF;
1202: IF l_debug_level > 0 THEN
1203: oe_debug_pub.add( 'SHIP FROM : '||L_SCH_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1204: END IF;
1199: IF l_debug_level > 0 THEN
1200: oe_debug_pub.add( 'SHIP TO : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1201: END IF;
1202: IF l_debug_level > 0 THEN
1203: oe_debug_pub.add( 'SHIP FROM : '||L_SCH_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1204: END IF;
1205: IF l_debug_level > 0 THEN
1206: oe_debug_pub.add( 'LINE : '||L_SCH_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1207: END IF;
1202: IF l_debug_level > 0 THEN
1203: oe_debug_pub.add( 'SHIP FROM : '||L_SCH_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1204: END IF;
1205: IF l_debug_level > 0 THEN
1206: oe_debug_pub.add( 'LINE : '||L_SCH_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1207: END IF;
1208: IF l_debug_level > 0 THEN
1209: oe_debug_pub.add( 'SHIP TO : '||L_SCH_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1210: END IF;
1205: IF l_debug_level > 0 THEN
1206: oe_debug_pub.add( 'LINE : '||L_SCH_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1207: END IF;
1208: IF l_debug_level > 0 THEN
1209: oe_debug_pub.add( 'SHIP TO : '||L_SCH_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1210: END IF;
1211: IF l_debug_level > 0 THEN
1212: oe_debug_pub.add( 'SHIP FROM : '||G_OLD_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1213: END IF;
1208: IF l_debug_level > 0 THEN
1209: oe_debug_pub.add( 'SHIP TO : '||L_SCH_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1210: END IF;
1211: IF l_debug_level > 0 THEN
1212: oe_debug_pub.add( 'SHIP FROM : '||G_OLD_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1213: END IF;
1214: IF l_debug_level > 0 THEN
1215: oe_debug_pub.add( 'LINE : '||G_OLD_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1216: END IF;
1211: IF l_debug_level > 0 THEN
1212: oe_debug_pub.add( 'SHIP FROM : '||G_OLD_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1213: END IF;
1214: IF l_debug_level > 0 THEN
1215: oe_debug_pub.add( 'LINE : '||G_OLD_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1216: END IF;
1217: IF l_debug_level > 0 THEN
1218: oe_debug_pub.add( 'SHIP TO : '||G_OLD_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1219: END IF;
1214: IF l_debug_level > 0 THEN
1215: oe_debug_pub.add( 'LINE : '||G_OLD_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1216: END IF;
1217: IF l_debug_level > 0 THEN
1218: oe_debug_pub.add( 'SHIP TO : '||G_OLD_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1219: END IF;
1220: IF l_debug_level > 0 THEN
1221: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
1222: END IF;
1217: IF l_debug_level > 0 THEN
1218: oe_debug_pub.add( 'SHIP TO : '||G_OLD_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1219: END IF;
1220: IF l_debug_level > 0 THEN
1221: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
1222: END IF;
1223: IF l_debug_level > 0 THEN
1224: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.COUNT , 1 ) ;
1225: END IF;
1220: IF l_debug_level > 0 THEN
1221: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
1222: END IF;
1223: IF l_debug_level > 0 THEN
1224: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.COUNT , 1 ) ;
1225: END IF;
1226: IF l_perform_sch and l_sch_line_tbl.count > 0 THEN
1227: OE_GRP_SCH_UTIL.Schedule_set_of_lines
1228: (p_x_line_tbl => l_sch_line_tbl,
1233: l_perform_sch := TRUE;
1234:
1235: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1236: IF l_debug_level > 0 THEN
1237: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
1238: END IF;
1239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1240: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1241: IF l_debug_level > 0 THEN
1238: END IF;
1239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1240: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1241: IF l_debug_level > 0 THEN
1242: oe_debug_pub.add( ' EXPECTED ERROR ' , 1 ) ;
1243: END IF;
1244: l_sch_line_tbl.delete;
1245: l_sch_count := 0;
1246: goto END_2;
1248: -- RAISE FND_API.G_EXC_ERROR;
1249: END IF;
1250: -- END IF; -- Schedule Action Code
1251: IF l_debug_level > 0 THEN
1252: oe_debug_pub.add( 'AFTER CALLIN SCHEDULING ' , 1 ) ;
1253: END IF;
1254: IF l_sch_line_tbl.count > 0 THEN
1255: l_temp_line_tbl.delete;
1256: --END IF;
1272: Fetch shipset into l_set_id;
1273: Close shipset;
1274: ELSIF l_set_type = 'ARRIVAL_SET' THEN
1275: IF l_debug_level > 0 THEN
1276: oe_debug_pub.add( 'SHIP FROM : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1277: END IF;
1278: IF l_debug_level > 0 THEN
1279: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1280: END IF;
1275: IF l_debug_level > 0 THEN
1276: oe_debug_pub.add( 'SHIP FROM : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1277: END IF;
1278: IF l_debug_level > 0 THEN
1279: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1280: END IF;
1281: IF l_debug_level > 0 THEN
1282: oe_debug_pub.add( 'SHIP TO : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1283: END IF;
1278: IF l_debug_level > 0 THEN
1279: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1280: END IF;
1281: IF l_debug_level > 0 THEN
1282: oe_debug_pub.add( 'SHIP TO : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1283: END IF;
1284: Open arrivalset;
1285: Fetch arrivalset into l_set_id;
1286: Close arrivalset;
1287: END IF;
1288:
1289: IF l_set_id IS NULL THEN
1290: IF l_debug_level > 0 THEN
1291: oe_debug_pub.add( 'SHIP FROM : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1292: END IF;
1293: IF l_debug_level > 0 THEN
1294: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1295: END IF;
1290: IF l_debug_level > 0 THEN
1291: oe_debug_pub.add( 'SHIP FROM : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1292: END IF;
1293: IF l_debug_level > 0 THEN
1294: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1295: END IF;
1296: IF l_debug_level > 0 THEN
1297: oe_debug_pub.add( 'SHIP TO : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1298: END IF;
1293: IF l_debug_level > 0 THEN
1294: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1295: END IF;
1296: IF l_debug_level > 0 THEN
1297: oe_debug_pub.add( 'SHIP TO : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1298: END IF;
1299: OPEN C1;
1300: FETCH C1 INTO lsettempname;
1301: CLOSE C1;
1316: ELSE
1317: lsettempname := lsettempname + 1;
1318: END IF;
1319: IF l_debug_level > 0 THEN
1320: oe_debug_pub.add( ' BEFORE CREATING SET ' , 1 ) ;
1321: END IF;
1322: Create_Set
1323: (p_Set_Name => to_char(lsettempname),
1324: p_Set_Type => l_set_type,
1342:
1343: END IF; -- if set id is null
1344:
1345: IF l_debug_level > 0 THEN
1346: oe_debug_pub.add( ' SET ID IS '|| L_SET_ID , 1 ) ;
1347: END IF;
1348:
1349: FOR K in 1..l_temp_line_tbl.count
1350: LOOP
1379: ( p_count => x_msg_count
1380: , p_data => x_msg_data
1381: );
1382: IF l_debug_level > 0 THEN
1383: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
1384: END IF;
1385: RAISE FND_API.G_EXC_ERROR;
1386:
1387: WHEN OTHERS THEN
1392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1393:
1394: /*x_return_status := FND_API.G_EXC_UNEXPECTED_ERROR ;
1395:
1396: OE_DEBUG_PUB.Add('In Inserinto exception ',1);
1397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;*/
1398:
1399: NULL;
1400:
1435: END IF;
1436:
1437:
1438: IF l_debug_level > 0 THEN
1439: oe_debug_pub.add( 'SHIP SET IS-'||L_LINE_TBL ( I ) .SHIP_SET_ID , 1 ) ;
1440: END IF;
1441: IF l_debug_level > 0 THEN
1442: oe_debug_pub.add( 'LINE -'||L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
1443: END IF;
1438: IF l_debug_level > 0 THEN
1439: oe_debug_pub.add( 'SHIP SET IS-'||L_LINE_TBL ( I ) .SHIP_SET_ID , 1 ) ;
1440: END IF;
1441: IF l_debug_level > 0 THEN
1442: oe_debug_pub.add( 'LINE -'||L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
1443: END IF;
1444: IF l_debug_level > 0 THEN
1445: oe_debug_pub.add( 'ITEM TYPE -'||L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
1446: END IF;
1441: IF l_debug_level > 0 THEN
1442: oe_debug_pub.add( 'LINE -'||L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
1443: END IF;
1444: IF l_debug_level > 0 THEN
1445: oe_debug_pub.add( 'ITEM TYPE -'||L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
1446: END IF;
1447: END LOOP;
1448:
1449: IF l_line_tbl.count > 0 THEN
1506:
1507: END IF;
1508: g_auto_set_tbl.delete;
1509: IF l_debug_level > 0 THEN
1510: oe_debug_pub.add( ' EXIT INSERT INTO SETS' , 1 ) ;
1511: END IF;
1512:
1513: <
1514: NULL;
1530: ( p_count => x_msg_count
1531: , p_data => x_msg_data
1532: );
1533: IF l_debug_level > 0 THEN
1534: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
1535: END IF;
1536: RAISE FND_API.G_EXC_ERROR;
1537:
1538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1612: l_Shipping_Method_Code VARCHAR2(30) ;
1613: l_Shipment_priority_code VARCHAR2(30);
1614: l_set_rec OE_ORDER_CACHE.set_rec_type;
1615: --
1616: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1617: --
1618: BEGIN
1619: SAVEPOINT New_Process_sets;
1620: x_return_status := FND_API.G_RET_STS_SUCCESS;
1621:
1622:
1623:
1624: IF l_debug_level > 0 THEN
1625: oe_debug_pub.add( 'PROCEDURE NEW PROCESS SETS' , 1 ) ;
1626: END IF;
1627:
1628: j := 1;
1629: initial := 1;
1629: initial := 1;
1630: --nextpos := INSTR(l_record_ids,',',1,j) ; --R12.MOAC
1631:
1632: IF l_debug_level > 0 THEN
1633: oe_debug_pub.add( 'SET NAME IS-' || P_SET_NAME , 1 ) ;
1634: END IF;
1635: IF l_debug_level > 0 THEN
1636: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
1637: END IF;
1632: IF l_debug_level > 0 THEN
1633: oe_debug_pub.add( 'SET NAME IS-' || P_SET_NAME , 1 ) ;
1634: END IF;
1635: IF l_debug_level > 0 THEN
1636: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
1637: END IF;
1638: if p_set_name is not null then
1639: IF l_debug_level > 0 THEN
1640: oe_debug_pub.add( 'SET TYPE IS-' || P_SET_TYPE , 1 ) ;
1636: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
1637: END IF;
1638: if p_set_name is not null then
1639: IF l_debug_level > 0 THEN
1640: oe_debug_pub.add( 'SET TYPE IS-' || P_SET_TYPE , 1 ) ;
1641: END IF;
1642: IF l_debug_level > 0 THEN
1643: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
1644: END IF;
1639: IF l_debug_level > 0 THEN
1640: oe_debug_pub.add( 'SET TYPE IS-' || P_SET_TYPE , 1 ) ;
1641: END IF;
1642: IF l_debug_level > 0 THEN
1643: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
1644: END IF;
1645:
1646: if p_set_type = 'ARRIVAL' THEN
1647: l_set_type := 'ARRIVAL_SET';
1662: END IF;
1663: END IF;
1664: if (p_operation = 'REMOVE' ) THEN
1665: IF l_debug_level > 0 THEN
1666: oe_debug_pub.add( 'INTO REMOVE' , 1 ) ;
1667: END IF;
1668: l_exists := TRUE;
1669: l_set_id := NULL;
1670: end if;
1730: l_line_tbl(I) := l_line_rec;
1731:
1732: --{ Bug 3692277 starts
1733: IF l_debug_level > 0 THEN
1734: OE_DEBUG_PUB.Add('RMC: Versioning with Reason');
1735: END IF;
1736: l_line_tbl(I).change_reason := 'SYSTEM';
1737: l_line_tbl(I).change_comments := 'Set Action';
1738: -- bug 3692277 ends }
1757: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE',
1758: -- l_line_tbl(I).item_type_code);
1759: OE_MSG_PUB.ADD;
1760: IF l_debug_level > 0 THEN
1761: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
1762: END IF;
1763: RAISE FND_API.G_EXC_ERROR;
1764: END IF;
1765:
1773:
1774: IF l_line_tbl(I).ship_set_id is not null or
1775: l_line_tbl(I).ship_set is not null THEN
1776: IF l_debug_level > 0 THEN
1777: oe_debug_pub.add( 'ship_set:' || l_line_tbl(I).ship_set,2 ) ;
1778: oe_debug_pub.add( 'ship_set_id:' || l_line_tbl(I).ship_set_id,2 ) ;
1779: END IF;
1780: /* Changed the message to fix the bug 2862565 */
1781: -- FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
1774: IF l_line_tbl(I).ship_set_id is not null or
1775: l_line_tbl(I).ship_set is not null THEN
1776: IF l_debug_level > 0 THEN
1777: oe_debug_pub.add( 'ship_set:' || l_line_tbl(I).ship_set,2 ) ;
1778: oe_debug_pub.add( 'ship_set_id:' || l_line_tbl(I).ship_set_id,2 ) ;
1779: END IF;
1780: /* Changed the message to fix the bug 2862565 */
1781: -- FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
1782: FND_MESSAGE.Set_Name('ONT','OE_SCH_NOT_IN_SHIP_ARR');
1791: l_line_tbl(I).arrival_set_id := l_set_id ;
1792: END IF;
1793: ELSIF (p_operation = 'MOVE') THEN
1794: IF l_debug_level > 0 THEN
1795: oe_debug_pub.add( 'PROCEDURE PROCESS SETS'||TO_CHAR ( L_SET_ID ) , 1 ) ;
1796: END IF;
1797: IF l_set_id IS NOT NULL THEN
1798: l_line_tbl(I).arrival_set_id := l_set_id ;
1799: ELSE
1811: l_line_tbl(I).ship_set_id := l_set_id ;
1812: END IF;
1813: ELSIF (p_operation = 'MOVE') THEN
1814: IF l_debug_level > 0 THEN
1815: oe_debug_pub.add( 'PROCEDURE NEW PROCESS SETS'||TO_CHAR ( L_SET_ID ) , 1 ) ;
1816: END IF;
1817: IF l_set_id IS NOT NULL THEN
1818: l_line_tbl(I).ship_set_id := l_set_id ;
1819: ELSE
1888: ( p_count => x_msg_count
1889: , p_data => x_msg_data
1890: );
1891: IF l_debug_level > 0 THEN
1892: oe_debug_pub.add( 'BEFORE ROLLING BACK' , 1 ) ;
1893: END IF;
1894: ROLLBACK TO SAVEPOINT New_Process_sets;
1895: IF l_debug_level > 0 THEN
1896: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
1892: oe_debug_pub.add( 'BEFORE ROLLING BACK' , 1 ) ;
1893: END IF;
1894: ROLLBACK TO SAVEPOINT New_Process_sets;
1895: IF l_debug_level > 0 THEN
1896: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
1897: END IF;
1898:
1899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1900:
1905: ( p_count => x_msg_count
1906: , p_data => x_msg_data
1907: );
1908: IF l_debug_level > 0 THEN
1909: oe_debug_pub.add( 'BEFORE ROLLING BACK' , 1 ) ;
1910: END IF;
1911:
1912: ROLLBACK TO SAVEPOINT New_Process_sets;
1913: IF l_debug_level > 0 THEN
1910: END IF;
1911:
1912: ROLLBACK TO SAVEPOINT New_Process_sets;
1913: IF l_debug_level > 0 THEN
1914: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
1915: END IF;
1916: WHEN OTHERS THEN
1917:
1918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1942:
1943: RETURN BOOLEAN IS
1944: row_exists VARCHAR2(1);
1945: --
1946: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1947: --
1948: Begin
1949: SELECT set_id
1950: INTO x_set_id
1972: RETURN BOOLEAN IS
1973: row_exists VARCHAR2(1);
1974: l_header_id NUMBER := p_header_id;
1975: --
1976: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1977: --
1978: Begin
1979: IF p_header_id = FND_API.G_MISS_NUM THEN
1980: l_header_id := NULL;
2026: l_set_id NUMBER;
2027: lcustpref varchar2(1) := 'A';
2028: l_header_rec OE_ORDER_PUB.Header_Rec_Type; -- Bug 14760471
2029: --
2030: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2031: --
2032: Begin
2033: x_return_status := FND_API.G_RET_STS_SUCCESS;
2034: IF l_debug_level > 0 THEN
2031: --
2032: Begin
2033: x_return_status := FND_API.G_RET_STS_SUCCESS;
2034: IF l_debug_level > 0 THEN
2035: oe_debug_pub.add( 'ENTER:CREATE SETS ' , 1 ) ;
2036: END IF;
2037: IF l_debug_level > 0 THEN
2038: oe_debug_pub.add( 'HEADER ' || P_HEADER_ID , 1 ) ;
2039: END IF;
2034: IF l_debug_level > 0 THEN
2035: oe_debug_pub.add( 'ENTER:CREATE SETS ' , 1 ) ;
2036: END IF;
2037: IF l_debug_level > 0 THEN
2038: oe_debug_pub.add( 'HEADER ' || P_HEADER_ID , 1 ) ;
2039: END IF;
2040: IF l_debug_level > 0 THEN
2041: oe_debug_pub.add( 'SET NAME ' || P_SET_NAME , 1 ) ;
2042: END IF;
2037: IF l_debug_level > 0 THEN
2038: oe_debug_pub.add( 'HEADER ' || P_HEADER_ID , 1 ) ;
2039: END IF;
2040: IF l_debug_level > 0 THEN
2041: oe_debug_pub.add( 'SET NAME ' || P_SET_NAME , 1 ) ;
2042: END IF;
2043: IF l_debug_level > 0 THEN
2044: oe_debug_pub.add( 'SET TYPE ' || P_SET_TYPE , 1 ) ;
2045: END IF;
2040: IF l_debug_level > 0 THEN
2041: oe_debug_pub.add( 'SET NAME ' || P_SET_NAME , 1 ) ;
2042: END IF;
2043: IF l_debug_level > 0 THEN
2044: oe_debug_pub.add( 'SET TYPE ' || P_SET_TYPE , 1 ) ;
2045: END IF;
2046: IF (p_header_id IS NULL OR
2047: p_set_name IS NULL OR
2048: p_set_type IS NULL) THEN
2052: RAISE FND_API.G_EXC_ERROR ;
2053: -- Require all three header,set name ane set type to create
2054: END IF;
2055: IF l_debug_level > 0 THEN
2056: oe_debug_pub.add( 'BEFORE SETEXISTS ' , 1 ) ;
2057: END IF;
2058:
2059: IF NOT Set_Exist(p_set_name => p_set_name,
2060: p_set_type => p_set_type,
2102: SELECT OE_SETS_S.NEXTVAL
2103: INTO l_set_id
2104: FROM DUAL;
2105: IF l_debug_level > 0 THEN
2106: oe_debug_pub.add( 'AFTERSEQUECEVALUE ' , 1 ) ;
2107: END IF;
2108: IF g_cust_pref_set AND (p_set_type = 'SHIP_SET'
2109: OR p_set_type = 'ARRIVAL_SET')
2110: THEN
2153: );
2154: x_set_id := l_Set_id;
2155:
2156: IF l_debug_level > 0 THEN
2157: oe_debug_pub.add( 'AFTERINSERT ' , 1 ) ;
2158: END IF;
2159: END IF; -- set EXISTS
2160:
2161:
2172: ( p_count => x_msg_count
2173: , p_data => x_msg_data
2174: );
2175: IF l_debug_level > 0 THEN
2176: oe_debug_pub.add( 'IN CREATE EXCEPTION ' , 1 ) ;
2177: END IF;
2178:
2179: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2180:
2328: l_x_arrival_set_id number;
2329:
2330:
2331: --
2332: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2333: --
2334: Begin
2335: IF l_debug_level > 0 THEN
2336: oe_debug_pub.add( 'INSERT_INTO SETSS' , 1 ) ;
2332: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2333: --
2334: Begin
2335: IF l_debug_level > 0 THEN
2336: oe_debug_pub.add( 'INSERT_INTO SETSS' , 1 ) ;
2337: END IF;
2338:
2339: IF p_set_request_tbl.count > 0 THEN
2340: g_cust_pref_set := TRUE;
2338:
2339: IF p_set_request_tbl.count > 0 THEN
2340: g_cust_pref_set := TRUE;
2341: IF l_debug_level > 0 THEN
2342: oe_debug_pub.add( 'PROCESS REQUEST RECORD ' , 1 ) ;
2343: END IF;
2344:
2345: l_header_id := p_set_request_tbl(1).entity_id;
2346: oe_header_util.query_row(p_header_id => l_header_id,
2354: END IF;
2355:
2356: IF l_set_type = 'ARRIVAL_SET' THEN
2357: IF l_debug_level > 0 THEN
2358: oe_debug_pub.add( ' INTO CALLING ARRIVAL SET ' , 1 ) ;
2359: END IF;
2360: Insert_Into_arrival_Set
2361: (p_Set_request_tbl => p_Set_request_tbl ,
2362: X_Return_Status => l_return_status ,
2362: X_Return_Status => l_return_status ,
2363: x_msg_count => x_msg_count,
2364: x_msg_data => x_msg_data);
2365: IF l_debug_level > 0 THEN
2366: oe_debug_pub.add( ' EXIT CALLING ARRIVAL SET ' , 1 ) ;
2367: END IF;
2368:
2369: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2370: IF l_debug_level > 0 THEN
2367: END IF;
2368:
2369: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2370: IF l_debug_level > 0 THEN
2371: oe_debug_pub.add( ' ARRIVAL SET UNEXPECTED ERROR ' , 1 ) ;
2372: END IF;
2373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2375: IF l_debug_level > 0 THEN
2372: END IF;
2373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2375: IF l_debug_level > 0 THEN
2376: oe_debug_pub.add( ' ARRIVAL SET ' , 1 ) ;
2377: END IF;
2378: RAISE FND_API.G_EXC_ERROR;
2379: END IF;
2380:
2389: FOR I in 1..g_auto_set_tbl.count
2390: Loop
2391: Begin
2392: IF l_debug_level > 0 THEN
2393: oe_debug_pub.add( 'ENTER INTO AUTO SET TABLE LOOP ' , 1 ) ;
2394: END IF;
2395: oe_line_util.query_row(p_line_id => g_auto_set_tbl(I).line_id,
2396: x_line_rec => l_line_rec);
2397: IF (l_line_rec.split_from_line_id IS NOT NULL) THEN
2395: oe_line_util.query_row(p_line_id => g_auto_set_tbl(I).line_id,
2396: x_line_rec => l_line_rec);
2397: IF (l_line_rec.split_from_line_id IS NOT NULL) THEN
2398: IF l_debug_level > 0 THEN
2399: oe_debug_pub.add( 'INVALID SPLIT LINEE'||L_LINE_REC.LINE_ID ) ;
2400: END IF;
2401: RAISE NO_DATA_FOUND;
2402: END IF;
2403: IF l_line_rec.line_category_code = 'RETURN' THEN
2447:
2448:
2449:
2450: IF l_debug_level > 0 THEN
2451: oe_debug_pub.add( 'ITEM TYPE CODE IS: '||L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
2452: END IF;
2453: IF l_debug_level > 0 THEN
2454: oe_debug_pub.add( 'SHIP FROM : '||L_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
2455: END IF;
2450: IF l_debug_level > 0 THEN
2451: oe_debug_pub.add( 'ITEM TYPE CODE IS: '||L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
2452: END IF;
2453: IF l_debug_level > 0 THEN
2454: oe_debug_pub.add( 'SHIP FROM : '||L_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
2455: END IF;
2456: IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL
2457: OR l_line_rec.item_type_code = 'KIT' THEN
2458: l_model_exists := TRUE;
2471: l_ship_to_org_id,
2472: l_schedule_arrival_date;
2473: CLOSE C2;
2474: IF l_set_type = 'SHIP_SET' THEN
2475: OE_DEBUG_PUB.Add('Into Ship Set',1);
2476: l_temp_line_tbl(l_temp_line_tbl.count).schedule_ship_date := l_schedule_ship_date;
2477: l_temp_line_tbl(l_temp_line_tbl.count).ship_from_org_id := l_ship_from_org_id;
2478: l_temp_line_tbl(l_temp_line_tbl.count).ship_to_org_id := l_ship_to_org_id;
2479: --l_perform_sch := FALSE;
2533: END LOOP;
2534:
2535: -- Call scheduling
2536: IF l_debug_level > 0 THEN
2537: oe_debug_pub.add( 'BEFORE CALLING SCHEDULING ' , 1 ) ;
2538: END IF;
2539: IF l_debug_level > 0 THEN
2540: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
2541: END IF;
2536: IF l_debug_level > 0 THEN
2537: oe_debug_pub.add( 'BEFORE CALLING SCHEDULING ' , 1 ) ;
2538: END IF;
2539: IF l_debug_level > 0 THEN
2540: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
2541: END IF;
2542:
2543: IF l_perform_sch and l_sch_line_tbl.count > 0 THEN
2544:
2550: l_perform_sch := TRUE;
2551:
2552: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2553: IF l_debug_level > 0 THEN
2554: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
2555: END IF;
2556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2557: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2558: GOTO END_1;
2556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2557: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2558: GOTO END_1;
2559: IF l_debug_level > 0 THEN
2560: oe_debug_pub.add( ' EXPECTED ERROR ' , 1 ) ;
2561: END IF;
2562: --RAISE FND_API.G_EXC_ERROR;
2563: END IF;
2564:
2563: END IF;
2564:
2565: -- END IF; -- Schedule Action Code
2566: IF l_debug_level > 0 THEN
2567: oe_debug_pub.add( 'AFTER CALLIN SCHEDULING ' , 1 ) ;
2568: END IF;
2569: l_temp_line_tbl.delete;
2570: l_temp_line_tbl := l_sch_line_tbl;
2571: IF l_temp_line_tbl.count > 0 and l_ship_set_id is null THEN
2577: l_shipping_method_code := l_temp_line_tbl(1).shipping_method_code;
2578: l_shipment_priority_code := l_temp_line_tbl(1).shipment_priority_code;
2579: l_set_id := null;
2580: IF l_debug_level > 0 THEN
2581: oe_debug_pub.add( 'INTO CREATING SET ' , 1 ) ;
2582: END IF;
2583:
2584: IF l_set_type = 'SHIP_SET' THEN
2585: Open shipset;
2612: ELSE
2613: lsettempname := lsettempname + 1;
2614: END IF;
2615: IF l_debug_level > 0 THEN
2616: oe_debug_pub.add( ' BEFORE CREATING SET ' , 1 ) ;
2617: END IF;
2618: Create_Set
2619: (p_Set_Name => to_char(lsettempname),
2620: p_Set_Type => l_set_type,
2640: END IF; -- Temp table intenal if condition
2641: END IF ; -- If temp table is greater than zero
2642:
2643: IF l_debug_level > 0 THEN
2644: oe_debug_pub.add( ' SET ID IS '|| L_SET_ID , 1 ) ;
2645: END IF;
2646:
2647: FOR K in 1..l_temp_line_tbl.count
2648: LOOP
2705: END IF;
2706:
2707:
2708: IF l_debug_level > 0 THEN
2709: oe_debug_pub.add( 'SHIP SET IS-'||L_LINE_TBL ( I ) .SHIP_SET_ID , 1 ) ;
2710: END IF;
2711: IF l_debug_level > 0 THEN
2712: oe_debug_pub.add( 'LINE -'||L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
2713: END IF;
2708: IF l_debug_level > 0 THEN
2709: oe_debug_pub.add( 'SHIP SET IS-'||L_LINE_TBL ( I ) .SHIP_SET_ID , 1 ) ;
2710: END IF;
2711: IF l_debug_level > 0 THEN
2712: oe_debug_pub.add( 'LINE -'||L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
2713: END IF;
2714: IF l_debug_level > 0 THEN
2715: oe_debug_pub.add( 'ITEM TYPE -'||L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
2716: END IF;
2711: IF l_debug_level > 0 THEN
2712: oe_debug_pub.add( 'LINE -'||L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
2713: END IF;
2714: IF l_debug_level > 0 THEN
2715: oe_debug_pub.add( 'ITEM TYPE -'||L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
2716: END IF;
2717: END LOOP;
2718:
2719: IF l_line_tbl.count > 0 THEN
2774:
2775: END IF;
2776: g_auto_set_tbl.delete;
2777: IF l_debug_level > 0 THEN
2778: oe_debug_pub.add( ' EXIT INSERT INTO SETS' , 1 ) ;
2779: END IF;
2780:
2781: <
2782: NULL;
2797: ( p_count => x_msg_count
2798: , p_data => x_msg_data
2799: );
2800: IF l_debug_level > 0 THEN
2801: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
2802: END IF;
2803: RAISE FND_API.G_EXC_ERROR;
2804:
2805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2862: l_shipment_priority_code VARCHAR2(30);
2863: l_Return_Status VARCHAR2(30);
2864:
2865: --
2866: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2867: --
2868: Begin
2869: l_set_rec := get_set_rec(p_set_id);
2870: IF (p_ship_from_org_id = fnd_api.g_miss_num or
2976:
2977: FUNCTION get_set_rec(p_set_id IN NUMBER)
2978: RETURN OE_ORDER_CACHE.set_rec_type IS
2979: --
2980: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2981: --
2982: begin
2983: --Performance regression. Reverted the changes made earlier for Bug4080531
2984: IF g_set_rec.set_id IS NULL OR
3006: l_set_rec OE_ORDER_CACHE.set_rec_type;
3007: x_msg_count NUMBER;
3008: x_msg_data VARCHAR2(254);
3009: --
3010: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3011: --
3012: BEGIN
3013:
3014: l_set_rec := get_set_rec(p_set_id);
3126: l_Freight_Carrier_Code VARCHAR2(30) ;
3127: l_Shipping_Method_Code VARCHAR2(30) ;
3128: l_Shipment_priority_code VARCHAR2(30);
3129: l_set_rec OE_ORDER_CACHE.set_rec_type;
3130: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3131: -- 4925992
3132: l_top_model_line_id NUMBER;
3133: BEGIN
3134:
3166: END IF;
3167:
3168:
3169: IF l_debug_level > 0 THEN
3170: oe_debug_pub.add( 'PROCEDURE PROCESS SETS' , 1 ) ;
3171: END IF;
3172:
3173: j := 1;
3174: initial := 1;
3174: initial := 1;
3175: --nextpos := INSTR(l_record_ids,',',1,j) ; --R12.MOAC
3176:
3177: IF l_debug_level > 0 THEN
3178: oe_debug_pub.add( 'SET NAME IS-' || P_SET_NAME , 1 ) ;
3179: END IF;
3180: IF l_debug_level > 0 THEN
3181: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
3182: END IF;
3177: IF l_debug_level > 0 THEN
3178: oe_debug_pub.add( 'SET NAME IS-' || P_SET_NAME , 1 ) ;
3179: END IF;
3180: IF l_debug_level > 0 THEN
3181: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
3182: END IF;
3183:
3184: IF p_set_name is not null THEN
3185:
3183:
3184: IF p_set_name is not null THEN
3185:
3186: IF l_debug_level > 0 THEN
3187: oe_debug_pub.add( 'SET TYPE IS-' || P_SET_TYPE , 1 ) ;
3188: END IF;
3189: IF l_debug_level > 0 THEN
3190: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
3191: END IF;
3186: IF l_debug_level > 0 THEN
3187: oe_debug_pub.add( 'SET TYPE IS-' || P_SET_TYPE , 1 ) ;
3188: END IF;
3189: IF l_debug_level > 0 THEN
3190: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
3191: END IF;
3192:
3193: IF p_set_type = 'ARRIVAL' THEN
3194: l_set_type := 'ARRIVAL_SET';
3195: ELSIF p_set_type = 'SHIP' THEN
3196: l_set_type := 'SHIP_SET';
3197: ELSIF p_set_type = 'FULFILLMENT' THEN
3198: IF l_debug_level > 0 THEN
3199: oe_debug_pub.add( 'INTO FULFILLMENT SETS' , 1 ) ;
3200: END IF;
3201: l_set_type := 'FULFILLMENT_SET';
3202: END IF;
3203:
3224: IF (p_operation = 'REMOVE' AND
3225: l_set_type <> 'FULFILLMENT_SET') THEN
3226:
3227: IF l_debug_level > 0 THEN
3228: oe_debug_pub.add( 'INTO REMOVE' , 1 ) ;
3229: END IF;
3230: l_exists := TRUE;
3231: l_set_id := NULL;
3232: END IF;
3237: IF (p_operation = 'REMOVE' AND
3238: p_set_type <> 'FULFILLMENT_SET') THEN
3239:
3240: IF l_debug_level > 0 THEN
3241: oe_debug_pub.add( 'INTO REMOVE' , 1 ) ;
3242: END IF;
3243: l_exists := TRUE;
3244:
3245: END IF;
3301:
3302: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SET_OPR');
3303: OE_MSG_PUB.ADD;
3304: IF l_debug_level > 0 THEN
3305: oe_debug_pub.add( 'LINE IS NOT VALID TO ADD: ' || L_LINE_REC.LINE_ID , 1 ) ;
3306: END IF;
3307: GOTO do_not_process;
3308:
3309: END IF;
3340: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE',
3341: -- l_line_tbl(I).item_type_code);
3342: OE_MSG_PUB.ADD;
3343: IF l_debug_level > 0 THEN
3344: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
3345: END IF;
3346: RAISE FND_API.G_EXC_ERROR;
3347: END IF;
3348:
3370:
3371: ELSIF (p_operation = 'MOVE') THEN
3372:
3373: IF l_debug_level > 0 THEN
3374: oe_debug_pub.add( 'PROCEDURE PROCESS SETS'||TO_CHAR ( L_SET_ID ) , 1 ) ;
3375: END IF;
3376: IF l_set_id IS NOT NULL THEN
3377: l_line_tbl(I).arrival_set_id := l_set_id ;
3378: l_line_tbl(I).arrival_set := p_set_name ;
3398:
3399: ELSIF (p_operation = 'MOVE') THEN
3400:
3401: IF l_debug_level > 0 THEN
3402: oe_debug_pub.add( 'PROCEDURE PROCESS SETS'||TO_CHAR ( L_SET_ID ) , 1 ) ;
3403: END IF;
3404: IF l_set_id IS NOT NULL THEN
3405: l_line_tbl(I).ship_set_id := l_set_id ;
3406: l_line_tbl(I).ship_set := p_set_name ;
3416:
3417: ELSIF p_set_type = 'FULFILLMENT' THEN
3418:
3419: IF l_debug_level > 0 THEN
3420: oe_debug_pub.add( 'INTO FULFILLMENT SETS-2' , 1 ) ;
3421: END IF;
3422: IF (p_operation = 'ADD' ) THEN
3423:
3424: IF l_debug_level > 0 THEN
3421: END IF;
3422: IF (p_operation = 'ADD' ) THEN
3423:
3424: IF l_debug_level > 0 THEN
3425: oe_debug_pub.add( 'INTO FULFILLMENT SETS-3' , 1 ) ;
3426: END IF;
3427: IF (l_set_id IS NULL) THEN
3428: l_line_tbl(I).fulfillment_set := p_set_name ;
3429: ELSE
3463: END IF;
3464: ELSIF (p_operation = 'MOVE') THEN
3465:
3466: IF l_debug_level > 0 THEN
3467: oe_debug_pub.add( 'PROCEDURE PROCESS SETS'||TO_CHAR ( L_SET_ID ) , 1 ) ;
3468: END IF;
3469: IF l_set_id IS NOT NULL THEN
3470: l_line_tbl(I).fulfillment_set_id := l_set_id ;
3471: l_line_tbl(I).fulfillment_set := p_set_name ;
3563: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
3564: FOR t in 1..l_line_tbl.count
3565: LOOP
3566: IF l_debug_level > 0 THEN
3567: oe_debug_pub.add( 'IN LOOP' ) ;
3568: END IF;
3569: IF l_debug_level > 0 THEN
3570: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3571: END IF;
3566: IF l_debug_level > 0 THEN
3567: oe_debug_pub.add( 'IN LOOP' ) ;
3568: END IF;
3569: IF l_debug_level > 0 THEN
3570: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3571: END IF;
3572: IF l_debug_level > 0 THEN
3573: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3574: END IF;
3569: IF l_debug_level > 0 THEN
3570: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3571: END IF;
3572: IF l_debug_level > 0 THEN
3573: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3574: END IF;
3575: IF l_debug_level > 0 THEN
3576: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3577: END IF;
3572: IF l_debug_level > 0 THEN
3573: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3574: END IF;
3575: IF l_debug_level > 0 THEN
3576: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3577: END IF;
3578: IF l_debug_level > 0 THEN
3579: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .ITEM_TYPE_CODE ) ;
3580: END IF;
3575: IF l_debug_level > 0 THEN
3576: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3577: END IF;
3578: IF l_debug_level > 0 THEN
3579: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .ITEM_TYPE_CODE ) ;
3580: END IF;
3581: IF l_debug_level > 0 THEN
3582: oe_debug_pub.add( 'SCH DATE' || TO_CHAR ( L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 'DD-MON-YY' ) ) ;
3583: END IF;
3578: IF l_debug_level > 0 THEN
3579: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .ITEM_TYPE_CODE ) ;
3580: END IF;
3581: IF l_debug_level > 0 THEN
3582: oe_debug_pub.add( 'SCH DATE' || TO_CHAR ( L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 'DD-MON-YY' ) ) ;
3583: END IF;
3584: END LOOP;
3585:
3586: FOR t in 1..l_line_opt_temp_tbl.count
3585:
3586: FOR t in 1..l_line_opt_temp_tbl.count
3587: LOOP
3588: IF l_debug_level > 0 THEN
3589: oe_debug_pub.add( 'OPTION TABLE' ) ;
3590: END IF;
3591: IF l_debug_level > 0 THEN
3592: oe_debug_pub.add( 'ITEM TYPE' || L_LINE_OPT_TEMP_TBL ( T ) .ITEM_TYPE_CODE ) ;
3593: END IF;
3588: IF l_debug_level > 0 THEN
3589: oe_debug_pub.add( 'OPTION TABLE' ) ;
3590: END IF;
3591: IF l_debug_level > 0 THEN
3592: oe_debug_pub.add( 'ITEM TYPE' || L_LINE_OPT_TEMP_TBL ( T ) .ITEM_TYPE_CODE ) ;
3593: END IF;
3594: l_line_opt_tbl(l_line_opt_tbl.count +1 ) := l_line_opt_temp_tbl(t);
3595: END LOOP;
3596:
3605: For t in 1..l_line_opt_tbl.count
3606: loop
3607: l_line_tbl(l_line_tbl.count +1 ) := l_line_opt_tbl(t);
3608: IF l_debug_level > 0 THEN
3609: oe_debug_pub.add( 'OPTION TABLE' ) ;
3610: END IF;
3611: IF l_debug_level > 0 THEN
3612: oe_debug_pub.add( 'ITEM TYPE' || L_LINE_OPT_TBL ( T ) .ITEM_TYPE_CODE ) ;
3613: END IF;
3608: IF l_debug_level > 0 THEN
3609: oe_debug_pub.add( 'OPTION TABLE' ) ;
3610: END IF;
3611: IF l_debug_level > 0 THEN
3612: oe_debug_pub.add( 'ITEM TYPE' || L_LINE_OPT_TBL ( T ) .ITEM_TYPE_CODE ) ;
3613: END IF;
3614: end loop;
3615:
3616: g_old_line_tbl.delete;
3620: x_line_rec => l_line_rec);
3621: g_old_line_tbl(t) := l_line_rec;
3622:
3623: IF l_debug_level > 0 THEN
3624: oe_debug_pub.add( 'OUT LOOP' ) ;
3625: END IF;
3626: IF l_debug_level > 0 THEN
3627: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3628: END IF;
3623: IF l_debug_level > 0 THEN
3624: oe_debug_pub.add( 'OUT LOOP' ) ;
3625: END IF;
3626: IF l_debug_level > 0 THEN
3627: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3628: END IF;
3629: IF l_debug_level > 0 THEN
3630: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3631: END IF;
3626: IF l_debug_level > 0 THEN
3627: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3628: END IF;
3629: IF l_debug_level > 0 THEN
3630: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3631: END IF;
3632: IF l_debug_level > 0 THEN
3633: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3634: END IF;
3629: IF l_debug_level > 0 THEN
3630: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3631: END IF;
3632: IF l_debug_level > 0 THEN
3633: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3634: END IF;
3635: IF l_debug_level > 0 THEN
3636: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .ITEM_TYPE_CODE ) ;
3637: END IF;
3632: IF l_debug_level > 0 THEN
3633: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3634: END IF;
3635: IF l_debug_level > 0 THEN
3636: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .ITEM_TYPE_CODE ) ;
3637: END IF;
3638: IF l_debug_level > 0 THEN
3639: oe_debug_pub.add( 'SCH DATE' || TO_CHAR ( L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 'DD-MON-YY' ) ) ;
3640: END IF;
3635: IF l_debug_level > 0 THEN
3636: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .ITEM_TYPE_CODE ) ;
3637: END IF;
3638: IF l_debug_level > 0 THEN
3639: oe_debug_pub.add( 'SCH DATE' || TO_CHAR ( L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 'DD-MON-YY' ) ) ;
3640: END IF;
3641: end loop;
3642:
3643: IF p_set_type <> 'FULFILLMENT' THEN
3670: FOR I IN 1 .. l_line_tbl.COUNT
3671: LOOP
3672: IF l_set_type = 'SHIP_SET' THEN
3673: IF l_debug_level > 0 THEN
3674: oe_debug_pub.add( 'SHIP_TO_ORG_ID'||L_LINE_TBL ( I ) .SHIP_TO_ORG_ID ) ;
3675: END IF;
3676: IF l_debug_level > 0 THEN
3677: oe_debug_pub.add( 'SHIP_FROM_ORG_ID'||L_LINE_TBL ( I ) .SHIP_FROM_ORG_ID ) ;
3678: END IF;
3673: IF l_debug_level > 0 THEN
3674: oe_debug_pub.add( 'SHIP_TO_ORG_ID'||L_LINE_TBL ( I ) .SHIP_TO_ORG_ID ) ;
3675: END IF;
3676: IF l_debug_level > 0 THEN
3677: oe_debug_pub.add( 'SHIP_FROM_ORG_ID'||L_LINE_TBL ( I ) .SHIP_FROM_ORG_ID ) ;
3678: END IF;
3679: IF l_debug_level > 0 THEN
3680: oe_debug_pub.add( 'SHIP_RG_ID'||L_SET_REC.SHIP_FROM_ORG_ID ) ;
3681: END IF;
3676: IF l_debug_level > 0 THEN
3677: oe_debug_pub.add( 'SHIP_FROM_ORG_ID'||L_LINE_TBL ( I ) .SHIP_FROM_ORG_ID ) ;
3678: END IF;
3679: IF l_debug_level > 0 THEN
3680: oe_debug_pub.add( 'SHIP_RG_ID'||L_SET_REC.SHIP_FROM_ORG_ID ) ;
3681: END IF;
3682: l_line_tbl(I).schedule_ship_date := l_set_rec.schedule_ship_date;
3683: l_line_tbl(I).ship_to_org_id := l_set_rec.ship_to_org_id;
3684: l_line_tbl(I).ship_from_org_id := l_set_rec.ship_from_org_id;
3710: END IF; -- lexists
3711:
3712: IF NOT l_exists and p_set_name IS NULL THEN
3713: IF l_debug_level > 0 THEN
3714: oe_debug_pub.add( 'BEFORE FAILING AT SET NAME' , 1 ) ;
3715: END IF;
3716: fnd_message.set_name('ONT', 'OE_SET_NAME_REQ');
3717: oe_msg_pub.add;
3718: RAISE FND_API.G_EXC_ERROR ;
3720: IF p_operation <> 'REMOVE' THEN
3721: IF p_set_type <> 'FULFILLMENT'
3722: AND l_line_tbl.count > 0 THEN
3723: IF l_debug_level > 0 THEN
3724: oe_debug_pub.add( 'BEFORE CALLING SCHEDULET'|| L_LINE_TBL.COUNT ) ;
3725: END IF;
3726: IF l_debug_level > 0 THEN
3727: oe_debug_pub.add( 'BEFORE CALLING SCHEDULET'|| G_OLD_LINE_TBL.COUNT ) ;
3728: END IF;
3723: IF l_debug_level > 0 THEN
3724: oe_debug_pub.add( 'BEFORE CALLING SCHEDULET'|| L_LINE_TBL.COUNT ) ;
3725: END IF;
3726: IF l_debug_level > 0 THEN
3727: oe_debug_pub.add( 'BEFORE CALLING SCHEDULET'|| G_OLD_LINE_TBL.COUNT ) ;
3728: END IF;
3729: For t in 1..l_line_tbl.count
3730: loop
3731: IF l_debug_level > 0 THEN
3728: END IF;
3729: For t in 1..l_line_tbl.count
3730: loop
3731: IF l_debug_level > 0 THEN
3732: oe_debug_pub.add( 'BEFORE CALLING SCHEDULET' ) ;
3733: END IF;
3734: IF l_debug_level > 0 THEN
3735: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3736: END IF;
3731: IF l_debug_level > 0 THEN
3732: oe_debug_pub.add( 'BEFORE CALLING SCHEDULET' ) ;
3733: END IF;
3734: IF l_debug_level > 0 THEN
3735: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3736: END IF;
3737: IF l_debug_level > 0 THEN
3738: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3739: END IF;
3734: IF l_debug_level > 0 THEN
3735: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3736: END IF;
3737: IF l_debug_level > 0 THEN
3738: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3739: END IF;
3740: IF l_debug_level > 0 THEN
3741: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3742: END IF;
3737: IF l_debug_level > 0 THEN
3738: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3739: END IF;
3740: IF l_debug_level > 0 THEN
3741: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3742: END IF;
3743: end loop;
3744:
3745: OE_GRP_SCH_UTIL.Schedule_set_of_lines(p_x_line_tbl => l_line_tbl,
3772: --l_shipping_method_code := l_line_tbl(1).shipping_method_code;
3773: --l_shipment_priority_code := l_line_tbl(1).shipment_priority_code;
3774: END IF;
3775: IF l_debug_level > 0 THEN
3776: oe_debug_pub.add( 'SET6' , 1 ) ;
3777: END IF;
3778:
3779: IF l_debug_level > 0 THEN
3780: oe_debug_pub.add( 'BEFORE CALLING CREATE SET-4'||P_SET_NAME , 1 ) ;
3776: oe_debug_pub.add( 'SET6' , 1 ) ;
3777: END IF;
3778:
3779: IF l_debug_level > 0 THEN
3780: oe_debug_pub.add( 'BEFORE CALLING CREATE SET-4'||P_SET_NAME , 1 ) ;
3781: END IF;
3782: IF l_debug_level > 0 THEN
3783: oe_debug_pub.add( 'BEFORE CALLING SET TYPE -5'||L_SET_TYPE , 1 ) ;
3784: END IF;
3779: IF l_debug_level > 0 THEN
3780: oe_debug_pub.add( 'BEFORE CALLING CREATE SET-4'||P_SET_NAME , 1 ) ;
3781: END IF;
3782: IF l_debug_level > 0 THEN
3783: oe_debug_pub.add( 'BEFORE CALLING SET TYPE -5'||L_SET_TYPE , 1 ) ;
3784: END IF;
3785:
3786: Create_Set
3787: (p_Set_Name => p_set_name,
3800: x_msg_data => x_msg_data);
3801:
3802: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3803: IF l_debug_level > 0 THEN
3804: oe_debug_pub.add( 'INTO UNEXPECTED ERROR' , 1 ) ;
3805: END IF;
3806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3807: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3808: IF l_debug_level > 0 THEN
3805: END IF;
3806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3807: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3808: IF l_debug_level > 0 THEN
3809: oe_debug_pub.add( 'INTO EXPECTED ERROR' , 1 ) ;
3810: END IF;
3811: RAISE FND_API.G_EXC_ERROR;
3812: END IF;
3813:
3831: l_line_tbl(I).ship_set_id := l_set_id ;
3832: ELSIF p_set_type = 'FULFILLMENT' THEN
3833: l_line_tbl(I).Fulfillment_set_id := l_set_id ;
3834: IF l_debug_level > 0 THEN
3835: oe_debug_pub.add( 'INTO LOOP - CREATING FULLFILLMENT SET' ) ;
3836: END IF;
3837: -- 4925992
3838: IF l_line_tbl(I).line_id = l_line_tbl(I).top_model_line_id
3839: AND l_line_tbl(I).operation <> 'CREATE'
3888: g_set_recursive_flag := TRUE;
3889:
3890: -- Call OE_Order_PVT.Process_order
3891: IF l_debug_level > 0 THEN
3892: oe_debug_pub.add( 'CALLING PROCESS ORDER' ) ;
3893: END IF;
3894: For t in 1..l_line_tbl.count
3895: loop
3896: IF l_debug_level > 0 THEN
3893: END IF;
3894: For t in 1..l_line_tbl.count
3895: loop
3896: IF l_debug_level > 0 THEN
3897: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3898: END IF;
3899: IF l_debug_level > 0 THEN
3900: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3901: END IF;
3896: IF l_debug_level > 0 THEN
3897: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3898: END IF;
3899: IF l_debug_level > 0 THEN
3900: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3901: END IF;
3902: IF l_debug_level > 0 THEN
3903: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3904: END IF;
3899: IF l_debug_level > 0 THEN
3900: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3901: END IF;
3902: IF l_debug_level > 0 THEN
3903: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3904: END IF;
3905: end loop;
3906: oe_order_pvt.Lines
3907: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
3964: ( p_count => x_msg_count
3965: , p_data => x_msg_data
3966: );
3967: IF l_debug_level > 0 THEN
3968: oe_debug_pub.add( 'BEFORE ROLLING BACK' , 1 ) ;
3969: END IF;
3970: ROLLBACK TO SAVEPOINT Process_sets;
3971: IF l_debug_level > 0 THEN
3972: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
3968: oe_debug_pub.add( 'BEFORE ROLLING BACK' , 1 ) ;
3969: END IF;
3970: ROLLBACK TO SAVEPOINT Process_sets;
3971: IF l_debug_level > 0 THEN
3972: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
3973: END IF;
3974:
3975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3976:
3981: ( p_count => x_msg_count
3982: , p_data => x_msg_data
3983: );
3984: IF l_debug_level > 0 THEN
3985: oe_debug_pub.add( 'BEFORE ROLLING BACK' , 1 ) ;
3986: END IF;
3987:
3988: ROLLBACK TO SAVEPOINT Process_sets;
3989: IF l_debug_level > 0 THEN
3986: END IF;
3987:
3988: ROLLBACK TO SAVEPOINT Process_sets;
3989: IF l_debug_level > 0 THEN
3990: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
3991: END IF;
3992: WHEN OTHERS THEN
3993:
3994: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4035: l_set_id NUMBER;
4036: l_seq_id NUMBER;
4037: l_position NUMBER;
4038: --
4039: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4040: --
4041: BEGIN
4042: NULL;
4043: EXCEPTION
4087: p_ship_set_id IN NUMBER,
4088: x_arrival_set_id OUT NOCOPY NUMBER) IS
4089:
4090: --
4091: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4092: --
4093: BEGIN
4094:
4095: SELECT arrival_set_id INTO
4121: column1 varchar2(240);
4122: column2 varchar2(240);
4123: TYPE test1 IS TABLE OF OE_ORDER_PUB.HEADER_REC_TYPE;
4124: --
4125: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4126: --
4127: BEGIN
4128: /**********************
4129: IF p_set_type = 'SHIP_SET' THEN
4167: l_exist boolean := FALSE;
4168: litemtypecode number := 0;
4169: lshpqty number := 0;
4170: --
4171: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4172: --
4173: BEGIN
4174:
4175: IF NOT (g_set_recursive_flag) THEN
4176: -- This is to supress the recursive call made from sets login itself and
4177: -- is coded before the g recursion flag is desingned
4178:
4179: IF l_debug_level > 0 THEN
4180: oe_debug_pub.add( 'ENTER GET SET ID' ) ;
4181: END IF;
4182: IF (p_x_line_rec.item_type_code IS NULL OR
4183: p_x_line_rec.item_type_code = FND_API.G_MISS_CHAR) AND
4184: p_x_line_rec.operation = oe_globals.g_opr_create THEN
4182: IF (p_x_line_rec.item_type_code IS NULL OR
4183: p_x_line_rec.item_type_code = FND_API.G_MISS_CHAR) AND
4184: p_x_line_rec.operation = oe_globals.g_opr_create THEN
4185: IF l_debug_level > 0 THEN
4186: oe_debug_pub.add( 'ENTER ITEM TYPE CODE NULL' ) ;
4187: END IF;
4188:
4189: IF ( NVL(p_x_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
4190: <> FND_API.G_MISS_NUM
4195: OR ( p_x_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
4196: AND p_x_line_rec.top_model_line_index = p_index )
4197: THEN
4198: IF l_debug_level > 0 THEN
4199: oe_debug_pub.add( 'TOP MODEL LINE' , 1 ) ;
4200: END IF;
4201: litemtypecode := 1;
4202: -- OPTION/CLASS line if line is NOT the model line
4203: ELSE
4201: litemtypecode := 1;
4202: -- OPTION/CLASS line if line is NOT the model line
4203: ELSE
4204: IF l_debug_level > 0 THEN
4205: oe_debug_pub.add( 'OPTION/CLASS LINE' , 1 ) ;
4206: END IF;
4207: litemtypecode := 0;
4208: END IF;
4209:
4214:
4215:
4216:
4217: IF l_debug_level > 0 THEN
4218: oe_debug_pub.add( 'ITEM TYPE CODE' || P_X_LINE_REC.ITEM_TYPE_CODE ) ;
4219: END IF;
4220: IF l_debug_level > 0 THEN
4221: oe_debug_pub.add( 'SHIP SET' || P_X_LINE_REC.SHIP_SET_ID ) ;
4222: END IF;
4217: IF l_debug_level > 0 THEN
4218: oe_debug_pub.add( 'ITEM TYPE CODE' || P_X_LINE_REC.ITEM_TYPE_CODE ) ;
4219: END IF;
4220: IF l_debug_level > 0 THEN
4221: oe_debug_pub.add( 'SHIP SET' || P_X_LINE_REC.SHIP_SET_ID ) ;
4222: END IF;
4223: IF l_debug_level > 0 THEN
4224: oe_debug_pub.add( 'OLD SHIP SET' || P_OLD_LINE_REC.SHIP_SET_ID ) ;
4225: END IF;
4220: IF l_debug_level > 0 THEN
4221: oe_debug_pub.add( 'SHIP SET' || P_X_LINE_REC.SHIP_SET_ID ) ;
4222: END IF;
4223: IF l_debug_level > 0 THEN
4224: oe_debug_pub.add( 'OLD SHIP SET' || P_OLD_LINE_REC.SHIP_SET_ID ) ;
4225: END IF;
4226: IF l_debug_level > 0 THEN
4227: oe_debug_pub.add( 'SHIP SET' || P_X_LINE_REC.SHIP_SET ) ;
4228: END IF;
4223: IF l_debug_level > 0 THEN
4224: oe_debug_pub.add( 'OLD SHIP SET' || P_OLD_LINE_REC.SHIP_SET_ID ) ;
4225: END IF;
4226: IF l_debug_level > 0 THEN
4227: oe_debug_pub.add( 'SHIP SET' || P_X_LINE_REC.SHIP_SET ) ;
4228: END IF;
4229: IF l_debug_level > 0 THEN
4230: oe_debug_pub.add( 'ARRIVAL SET' || P_X_LINE_REC.ARRIVAL_SET ) ;
4231: END IF;
4226: IF l_debug_level > 0 THEN
4227: oe_debug_pub.add( 'SHIP SET' || P_X_LINE_REC.SHIP_SET ) ;
4228: END IF;
4229: IF l_debug_level > 0 THEN
4230: oe_debug_pub.add( 'ARRIVAL SET' || P_X_LINE_REC.ARRIVAL_SET ) ;
4231: END IF;
4232: IF l_debug_level > 0 THEN
4233: oe_debug_pub.add( 'FULFILLMENT SET' || P_X_LINE_REC.FULFILLMENT_SET ) ;
4234: END IF;
4229: IF l_debug_level > 0 THEN
4230: oe_debug_pub.add( 'ARRIVAL SET' || P_X_LINE_REC.ARRIVAL_SET ) ;
4231: END IF;
4232: IF l_debug_level > 0 THEN
4233: oe_debug_pub.add( 'FULFILLMENT SET' || P_X_LINE_REC.FULFILLMENT_SET ) ;
4234: END IF;
4235: IF l_debug_level > 0 THEN
4236: oe_debug_pub.add( 'OLD SHIP SET' || P_OLD_LINE_REC.SHIP_SET ) ;
4237: END IF;
4232: IF l_debug_level > 0 THEN
4233: oe_debug_pub.add( 'FULFILLMENT SET' || P_X_LINE_REC.FULFILLMENT_SET ) ;
4234: END IF;
4235: IF l_debug_level > 0 THEN
4236: oe_debug_pub.add( 'OLD SHIP SET' || P_OLD_LINE_REC.SHIP_SET ) ;
4237: END IF;
4238: IF l_debug_level > 0 THEN
4239: oe_debug_pub.add( 'ITEM TYPE CODE' || LITEMTYPECODE ) ;
4240: END IF;
4235: IF l_debug_level > 0 THEN
4236: oe_debug_pub.add( 'OLD SHIP SET' || P_OLD_LINE_REC.SHIP_SET ) ;
4237: END IF;
4238: IF l_debug_level > 0 THEN
4239: oe_debug_pub.add( 'ITEM TYPE CODE' || LITEMTYPECODE ) ;
4240: END IF;
4241: IF l_debug_level > 0 THEN
4242: oe_debug_pub.add( 'SOURCE TYPE' || P_X_LINE_REC.SOURCE_TYPE_CODE , 1 ) ;
4243: END IF;
4238: IF l_debug_level > 0 THEN
4239: oe_debug_pub.add( 'ITEM TYPE CODE' || LITEMTYPECODE ) ;
4240: END IF;
4241: IF l_debug_level > 0 THEN
4242: oe_debug_pub.add( 'SOURCE TYPE' || P_X_LINE_REC.SOURCE_TYPE_CODE , 1 ) ;
4243: END IF;
4244:
4245: -- Lines that are of type external(drop ships) or shipped or any line that
4246: -- is not model standard and kit are not allowed to have set operations.
4253:
4254: IF nvl(p_x_line_rec.source_type_code,'X') <> 'EXTERNAL' AND
4255: lshpqty = 0 THEN
4256: IF l_debug_level > 0 THEN
4257: oe_debug_pub.add( 'INTO THE SOURCE TYPE' , 1 ) ;
4258: END IF;
4259:
4260: IF (p_x_line_rec.item_type_code = 'MODEL' AND
4261: p_x_line_rec.top_model_line_id =
4276: --and process them by set
4277: -- together for group scheduling reasons, we decided for performance reasons
4278: -- to gather informations as and when requested and process the global table.
4279: IF l_debug_level > 0 THEN
4280: oe_debug_pub.add( 'BEFORE SETTING THE LINE '||P_X_LINE_REC.LINE_ID , 1 ) ;
4281: END IF;
4282: IF (p_x_line_rec.operation = oe_globals.g_opr_create AND
4283: (p_x_line_rec.line_id = FND_API.G_MISS_NUM OR
4284: p_x_line_rec.line_id IS NULL)) THEN
4282: IF (p_x_line_rec.operation = oe_globals.g_opr_create AND
4283: (p_x_line_rec.line_id = FND_API.G_MISS_NUM OR
4284: p_x_line_rec.line_id IS NULL)) THEN
4285: IF l_debug_level > 0 THEN
4286: oe_debug_pub.add( 'BEFORE SETTING THE LINE -1' , 1 ) ;
4287: END IF;
4288: p_x_line_rec.line_id := OE_Default_Line.get_Line;
4289: IF l_debug_level > 0 THEN
4290: oe_debug_pub.add( 'AFTER SETTING THE LINE -1' , 1 ) ;
4286: oe_debug_pub.add( 'BEFORE SETTING THE LINE -1' , 1 ) ;
4287: END IF;
4288: p_x_line_rec.line_id := OE_Default_Line.get_Line;
4289: IF l_debug_level > 0 THEN
4290: oe_debug_pub.add( 'AFTER SETTING THE LINE -1' , 1 ) ;
4291: END IF;
4292: END IF;
4293:
4294: IF g_set_tbl.count = 0 THEN
4335:
4336: END IF; -- name not null.
4337:
4338: IF l_debug_level > 0 THEN
4339: oe_debug_pub.add( 'BEFORE CALLING ARRIVAL SET' , 1 ) ;
4340: END IF;
4341: -- The arrrival sets are processed first. User can either pass a set name or
4342: -- set id to request a set operation.
4343: -- set id will be derived from set name if passed and if set already exists
4348: p_x_line_rec.arrival_set_id = FND_API.G_MISS_NUM)) OR
4349: (p_old_line_rec.arrival_set is not null AND
4350: p_old_line_rec.arrival_set <> FND_API.G_MISS_CHAR ) then
4351: IF l_debug_level > 0 THEN
4352: oe_debug_pub.add( 'ARRIVAL SET CREATION' , 1 ) ;
4353: END IF;
4354:
4355: -- Validate if arrival set already exists
4356:
4448: END IF; -- Set table > 0
4449:
4450: ELSE -- Set does not exists
4451: IF l_debug_level > 0 THEN
4452: oe_debug_pub.add( 'ARRIVAL SET CREATION- ' , 1 ) ;
4453: END IF;
4454:
4455: IF g_set_tbl.count > 0 THEN
4456: l_exist := FALSE;
4502:
4503: g_set_tbl(I).set_name := p_x_line_rec.arrival_set;
4504: g_set_tbl(I).set_type := 'ARRIVAL_SET';
4505: IF l_debug_level > 0 THEN
4506: oe_debug_pub.add( 'ADDING INTO GLOBAL TABLE - ARRIVAL' , 1 ) ;
4507: END IF;
4508:
4509: I := I + 1;
4510:
4518:
4519: ELSIF (p_x_line_rec.arrival_set_id IS NOT NULL AND
4520: p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM) then
4521: IF l_debug_level > 0 THEN
4522: oe_debug_pub.add( 'IN ARRIVAL SET ID' , 1 ) ;
4523: END IF;
4524:
4525: IF NOT OE_GLOBALS.Equal
4526: (p_x_line_rec.arrival_set_id,p_old_line_rec.arrival_set_id)
4570: p_old_line_rec.arrival_set_id <> FND_API.G_MISS_NUM) AND
4571: (p_x_line_rec.arrival_set_id IS NULL)then
4572: IF (p_x_line_rec.top_model_line_id = p_x_line_rec.line_id) THEN
4573: IF l_debug_level > 0 THEN
4574: oe_debug_pub.add( 'IN REMOVE OF ARRIVAL SET' , 1 ) ;
4575: END IF;
4576:
4577: IF g_set_opt_tbl.count > 0 THEN
4578: l_exist := FALSE;
4596: END IF;
4597: END IF;
4598: END IF; -- END ARRIVAL SETS
4599: IF l_debug_level > 0 THEN
4600: oe_debug_pub.add( 'OUT OF ARRIVAL SET' , 1 ) ;
4601: END IF;
4602: for Cnt In 1..g_set_tbl.count
4603: Loop
4604: IF l_debug_level > 0 THEN
4601: END IF;
4602: for Cnt In 1..g_set_tbl.count
4603: Loop
4604: IF l_debug_level > 0 THEN
4605: oe_debug_pub.add( ' END OF ARRIVAL SET NAME' || G_SET_TBL ( CNT ) .SET_NAME , 1 ) ;
4606: END IF;
4607: IF l_debug_level > 0 THEN
4608: oe_debug_pub.add( 'SET TYPE' || G_SET_TBL ( CNT ) .SET_TYPE , 1 ) ;
4609: END IF;
4604: IF l_debug_level > 0 THEN
4605: oe_debug_pub.add( ' END OF ARRIVAL SET NAME' || G_SET_TBL ( CNT ) .SET_NAME , 1 ) ;
4606: END IF;
4607: IF l_debug_level > 0 THEN
4608: oe_debug_pub.add( 'SET TYPE' || G_SET_TBL ( CNT ) .SET_TYPE , 1 ) ;
4609: END IF;
4610: end loop;
4611:
4612: -- Start Ship Sets and ship sets follow the similar logic as arrival sets
4611:
4612: -- Start Ship Sets and ship sets follow the similar logic as arrival sets
4613: -- above
4614: IF l_debug_level > 0 THEN
4615: oe_debug_pub.add( 'WHAT THE HEC ' , 1 ) ;
4616: END IF;
4617:
4618: IF (p_x_line_rec.ship_set IS NOT NULL AND
4619: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR)OR
4619: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR)OR
4620: ( p_old_line_rec.ship_set is not null AND
4621: p_old_line_rec.ship_set <> FND_API.G_MISS_CHAR) then
4622: IF l_debug_level > 0 THEN
4623: oe_debug_pub.add( 'BEFORE SHIP SET NAME' ) ;
4624: END IF;
4625: IF Set_Exist(p_set_name =>p_x_line_rec.ship_set,
4626: p_set_type => 'SHIP_SET',
4627: p_header_id =>p_x_line_rec.header_id,
4626: p_set_type => 'SHIP_SET',
4627: p_header_id =>p_x_line_rec.header_id,
4628: x_set_id => l_set_id) THEN
4629: IF l_debug_level > 0 THEN
4630: oe_debug_pub.add( 'SHIP SET EXISTS' ) ;
4631: END IF;
4632: l_set_rec := get_set_rec(l_set_id);
4633: IF l_set_rec.set_status = 'C' THEN
4634: fnd_message.set_name('ONT', 'OE_SET_CLOSED');
4657: END IF;
4658: end loop;
4659: END IF;
4660: IF l_debug_level > 0 THEN
4661: oe_debug_pub.add( 'BEFORE GOING INTO OPTIONS TABLE ' , 1 ) ;
4662: END IF;
4663: IF (p_x_line_rec.item_type_code = 'MODEL' OR
4664: p_x_line_rec.item_type_code = 'KIT') AND
4665: (p_x_line_rec.top_model_line_id = p_x_line_rec.line_id) THEN
4663: IF (p_x_line_rec.item_type_code = 'MODEL' OR
4664: p_x_line_rec.item_type_code = 'KIT') AND
4665: (p_x_line_rec.top_model_line_id = p_x_line_rec.line_id) THEN
4666: IF l_debug_level > 0 THEN
4667: oe_debug_pub.add( 'INTO MODEL IF CONDITON ' , 1 ) ;
4668: END IF;
4669:
4670: IF g_set_opt_tbl.count > 0 THEN
4671: IF l_debug_level > 0 THEN
4668: END IF;
4669:
4670: IF g_set_opt_tbl.count > 0 THEN
4671: IF l_debug_level > 0 THEN
4672: oe_debug_pub.add( 'INTO SET OPT TABLE ' , 1 ) ;
4673: END IF;
4674: l_exist := FALSE;
4675: for Cnt In 1..g_set_opt_tbl.count
4676: Loop
4684: End Loop;
4685: End IF;
4686: IF NOT L_exist THEN
4687: IF l_debug_level > 0 THEN
4688: oe_debug_pub.add( 'IF NOT EXISTS ' , 1 ) ;
4689: END IF;
4690: g_set_opt_tbl(J).line_id := p_x_line_rec.line_id;
4691: g_set_opt_tbl(J).set_id := p_x_line_rec.ship_set_id;
4692: g_set_opt_tbl(J).set_type := 'SHIP_SET';
4701: l_exist := FALSE;
4702: for Cnt In 1..g_set_tbl.count
4703: Loop
4704: IF l_debug_level > 0 THEN
4705: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .LINE_ID ) ;
4706: END IF;
4707: IF l_debug_level > 0 THEN
4708: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4709: END IF;
4704: IF l_debug_level > 0 THEN
4705: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .LINE_ID ) ;
4706: END IF;
4707: IF l_debug_level > 0 THEN
4708: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4709: END IF;
4710: IF l_debug_level > 0 THEN
4711: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4712: END IF;
4707: IF l_debug_level > 0 THEN
4708: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4709: END IF;
4710: IF l_debug_level > 0 THEN
4711: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4712: END IF;
4713: IF l_debug_level > 0 THEN
4714: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4715: END IF;
4710: IF l_debug_level > 0 THEN
4711: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4712: END IF;
4713: IF l_debug_level > 0 THEN
4714: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4715: END IF;
4716: IF l_debug_level > 0 THEN
4717: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
4718: END IF;
4713: IF l_debug_level > 0 THEN
4714: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4715: END IF;
4716: IF l_debug_level > 0 THEN
4717: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
4718: END IF;
4719:
4720: IF (g_set_tbl(cnt).line_id = p_x_line_rec.line_id AND
4721: p_x_line_rec.ship_set IS NULL AND
4734: IF (g_set_tbl(cnt).line_id = p_x_line_rec.line_id AND
4735: g_set_tbl(cnt).set_name = p_x_line_rec.ship_Set AND
4736: g_set_tbl(cnt).set_type = 'SHIP_SET') THEN
4737: IF l_debug_level > 0 THEN
4738: oe_debug_pub.add( 'EXISTS' ) ;
4739: END IF;
4740: l_exist := TRUE;
4741: exit;
4742: END IF;
4743: End Loop;
4744: End IF;
4745: IF Not L_Exist THEN
4746: IF l_debug_level > 0 THEN
4747: oe_debug_pub.add( 'NOT EXISTS' ) ;
4748: END IF;
4749: IF p_x_line_rec.operation = oe_globals.g_opr_create THEN
4750: IF (p_x_line_rec.line_id IS NOT NULL AND
4751: p_x_line_rec.line_id <> FND_API.G_MISS_NUM ) THEN
4757: ELSIF p_x_line_rec.operation = oe_globals.g_opr_update THEN
4758: g_set_tbl(I).line_id := p_x_line_rec.line_id;
4759: END IF;
4760: IF l_debug_level > 0 THEN
4761: oe_debug_pub.add( 'POPULATING SHIP SET S' ) ;
4762: END IF;
4763: g_set_tbl(I).set_name := p_x_line_rec.ship_set;
4764: g_set_tbl(I).set_type := 'SHIP_SET';
4765: I := I + 1;
4771: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM)THEN
4772: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ship_set_id,p_old_line_rec.ship_set_id)
4773: THEN
4774: IF l_debug_level > 0 THEN
4775: oe_debug_pub.add( 'ITEM TYPE CODE' || P_X_LINE_REC.SHIP_SET_ID ) ;
4776: END IF;
4777:
4778: IF NOT Set_Exist(p_set_id => p_x_line_rec.ship_set_id) THEN
4779: p_x_line_rec.ship_set_id := NULL;
4778: IF NOT Set_Exist(p_set_id => p_x_line_rec.ship_set_id) THEN
4779: p_x_line_rec.ship_set_id := NULL;
4780: ELSE
4781: IF l_debug_level > 0 THEN
4782: oe_debug_pub.add( 'INTO DEFAULTING SCHEDULING ATTRIBUTES' ) ;
4783: END IF;
4784: l_set_rec := get_set_rec(p_x_line_rec.ship_set_id);
4785: p_x_line_rec.ship_to_org_id := l_set_rec.ship_to_org_id;
4786: p_x_line_rec.ship_from_org_id := l_set_rec.ship_from_org_id;
4838: END IF;
4839: for Cnt In 1..g_set_tbl.count
4840: Loop
4841: IF l_debug_level > 0 THEN
4842: oe_debug_pub.add( ' END OF SHIP SET NAME' || G_SET_TBL ( CNT ) .SET_NAME , 1 ) ;
4843: END IF;
4844: IF l_debug_level > 0 THEN
4845: oe_debug_pub.add( 'SET TYPE' || G_SET_TBL ( CNT ) .SET_TYPE , 1 ) ;
4846: END IF;
4841: IF l_debug_level > 0 THEN
4842: oe_debug_pub.add( ' END OF SHIP SET NAME' || G_SET_TBL ( CNT ) .SET_NAME , 1 ) ;
4843: END IF;
4844: IF l_debug_level > 0 THEN
4845: oe_debug_pub.add( 'SET TYPE' || G_SET_TBL ( CNT ) .SET_TYPE , 1 ) ;
4846: END IF;
4847: end loop;
4848:
4849: -- fulfillment sets
4853: IF (p_x_line_rec.fulfillment_set IS NOT NULL AND
4854: p_x_line_rec.fulfillment_set <> FND_API.G_MISS_CHAR)THEN
4855:
4856: IF l_debug_level > 0 THEN
4857: oe_debug_pub.add( 'INTO FULLFILLMENT SETS ' ) ;
4858: END IF;
4859:
4860: /*IF Set_Exist(p_set_name =>p_x_line_rec.fulfillment_set,
4861: p_set_type => 'FULFILLMENT_SET',
4872: l_exist := FALSE;
4873: for Cnt In 1..g_set_tbl.count
4874: Loop
4875: IF l_debug_level > 0 THEN
4876: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .LINE_ID ) ;
4877: END IF;
4878: IF l_debug_level > 0 THEN
4879: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4880: END IF;
4875: IF l_debug_level > 0 THEN
4876: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .LINE_ID ) ;
4877: END IF;
4878: IF l_debug_level > 0 THEN
4879: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4880: END IF;
4881: IF l_debug_level > 0 THEN
4882: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4883: END IF;
4878: IF l_debug_level > 0 THEN
4879: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4880: END IF;
4881: IF l_debug_level > 0 THEN
4882: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4883: END IF;
4884: IF l_debug_level > 0 THEN
4885: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4886: END IF;
4881: IF l_debug_level > 0 THEN
4882: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4883: END IF;
4884: IF l_debug_level > 0 THEN
4885: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4886: END IF;
4887: IF l_debug_level > 0 THEN
4888: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
4889: END IF;
4884: IF l_debug_level > 0 THEN
4885: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4886: END IF;
4887: IF l_debug_level > 0 THEN
4888: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
4889: END IF;
4890: IF (g_set_tbl(cnt).line_id = p_x_line_rec.line_id AND
4891: g_set_tbl(cnt).set_name = p_x_line_rec.fulfillment_set AND
4892: g_set_tbl(cnt).set_type = 'FULFILLMENT_SET') THEN
4890: IF (g_set_tbl(cnt).line_id = p_x_line_rec.line_id AND
4891: g_set_tbl(cnt).set_name = p_x_line_rec.fulfillment_set AND
4892: g_set_tbl(cnt).set_type = 'FULFILLMENT_SET') THEN
4893: IF l_debug_level > 0 THEN
4894: oe_debug_pub.add( 'EXISTS' ) ;
4895: END IF;
4896: l_exist := TRUE;
4897: exit;
4898: END IF;
4899: End Loop;
4900: End IF;
4901: IF Not L_Exist THEN
4902: IF l_debug_level > 0 THEN
4903: oe_debug_pub.add( 'NOT EXISTS' ) ;
4904: END IF;
4905: IF p_x_line_rec.operation = oe_globals.g_opr_create THEN
4906: IF (p_x_line_rec.line_id IS NOT NULL AND
4907: p_x_line_rec.line_id <> FND_API.G_MISS_NUM ) THEN
4919:
4920: p_x_line_rec.fulfillment_set_id := NULL;
4921: --END IF;
4922: IF l_debug_level > 0 THEN
4923: oe_debug_pub.add( 'EXIT FULLFILLMENT SET ' ) ;
4924: END IF;
4925: ELSIF (p_x_line_rec.fulfillment_set_id IS NOT NULL AND
4926: p_x_line_rec.fulfillment_set_id <> FND_API.G_MISS_NUM)THEN
4927: IF NOT OE_GLOBALS.Equal(p_x_line_rec.fulfillment_set_id,p_old_line_rec.fulfillment_set_id)
4938: l_exist := FALSE;
4939: for Cnt In 1..g_set_tbl.count
4940: Loop
4941: IF l_debug_level > 0 THEN
4942: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .LINE_ID ) ;
4943: END IF;
4944: IF l_debug_level > 0 THEN
4945: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4946: END IF;
4941: IF l_debug_level > 0 THEN
4942: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .LINE_ID ) ;
4943: END IF;
4944: IF l_debug_level > 0 THEN
4945: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4946: END IF;
4947: IF l_debug_level > 0 THEN
4948: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4949: END IF;
4944: IF l_debug_level > 0 THEN
4945: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4946: END IF;
4947: IF l_debug_level > 0 THEN
4948: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4949: END IF;
4950: IF l_debug_level > 0 THEN
4951: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4952: END IF;
4947: IF l_debug_level > 0 THEN
4948: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4949: END IF;
4950: IF l_debug_level > 0 THEN
4951: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4952: END IF;
4953: IF l_debug_level > 0 THEN
4954: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
4955: END IF;
4950: IF l_debug_level > 0 THEN
4951: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4952: END IF;
4953: IF l_debug_level > 0 THEN
4954: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
4955: END IF;
4956: IF (g_set_tbl(cnt).line_id = p_x_line_rec.line_id AND
4957: g_set_tbl(cnt).set_name = p_x_line_rec.fulfillment_set AND
4958: g_set_tbl(cnt).set_type = 'FULFILLMENT_SET') THEN
4956: IF (g_set_tbl(cnt).line_id = p_x_line_rec.line_id AND
4957: g_set_tbl(cnt).set_name = p_x_line_rec.fulfillment_set AND
4958: g_set_tbl(cnt).set_type = 'FULFILLMENT_SET') THEN
4959: IF l_debug_level > 0 THEN
4960: oe_debug_pub.add( 'EXISTS' ) ;
4961: END IF;
4962: l_exist := TRUE;
4963: exit;
4964: END IF;
4965: End Loop;
4966: End IF;
4967: IF Not L_Exist THEN
4968: IF l_debug_level > 0 THEN
4969: oe_debug_pub.add( 'NOT EXISTS' ) ;
4970: END IF;
4971: IF p_x_line_rec.operation = oe_globals.g_opr_create THEN
4972: IF (p_x_line_rec.line_id IS NOT NULL AND
4973: p_x_line_rec.line_id <> FND_API.G_MISS_NUM ) THEN
5052: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE',
5053: -- p_x_line_rec.item_type_code);
5054:
5055: OE_MSG_PUB.ADD;
5056: oe_debug_pub.add('Set- not allowed for this itemtype');
5057: RAISE FND_API.G_EXC_ERROR;
5058:
5059: END IF;
5060: */
5098: p_x_line_rec.ship_set_id := NULL;
5099:
5100: END IF;
5101: IF l_debug_level > 0 THEN
5102: oe_debug_pub.add( 'EXIT GET SET ID' ) ;
5103: END IF;
5104: IF l_debug_level > 0 THEN
5105: oe_debug_pub.add( 'AFTER GET SET ID PROCESS - COMPLETE TABLE - ' ) ;
5106: END IF;
5101: IF l_debug_level > 0 THEN
5102: oe_debug_pub.add( 'EXIT GET SET ID' ) ;
5103: END IF;
5104: IF l_debug_level > 0 THEN
5105: oe_debug_pub.add( 'AFTER GET SET ID PROCESS - COMPLETE TABLE - ' ) ;
5106: END IF;
5107: for Cnt In 1..g_set_tbl.count
5108: Loop
5109: IF l_debug_level > 0 THEN
5106: END IF;
5107: for Cnt In 1..g_set_tbl.count
5108: Loop
5109: IF l_debug_level > 0 THEN
5110: oe_debug_pub.add( 'SET NAME' || G_SET_TBL ( CNT ) .SET_NAME ) ;
5111: END IF;
5112: IF l_debug_level > 0 THEN
5113: oe_debug_pub.add( 'SET TYPE' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
5114: END IF;
5109: IF l_debug_level > 0 THEN
5110: oe_debug_pub.add( 'SET NAME' || G_SET_TBL ( CNT ) .SET_NAME ) ;
5111: END IF;
5112: IF l_debug_level > 0 THEN
5113: oe_debug_pub.add( 'SET TYPE' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
5114: END IF;
5115: IF l_debug_level > 0 THEN
5116: oe_debug_pub.add( 'LINE ID' || G_SET_TBL ( CNT ) .LINE_ID ) ;
5117: END IF;
5112: IF l_debug_level > 0 THEN
5113: oe_debug_pub.add( 'SET TYPE' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
5114: END IF;
5115: IF l_debug_level > 0 THEN
5116: oe_debug_pub.add( 'LINE ID' || G_SET_TBL ( CNT ) .LINE_ID ) ;
5117: END IF;
5118: IF l_debug_level > 0 THEN
5119: oe_debug_pub.add( 'OPERATION' || G_SET_TBL ( CNT ) .OPERATION ) ;
5120: END IF;
5115: IF l_debug_level > 0 THEN
5116: oe_debug_pub.add( 'LINE ID' || G_SET_TBL ( CNT ) .LINE_ID ) ;
5117: END IF;
5118: IF l_debug_level > 0 THEN
5119: oe_debug_pub.add( 'OPERATION' || G_SET_TBL ( CNT ) .OPERATION ) ;
5120: END IF;
5121: end loop;
5122:
5123:
5162: OR arrival_set_id = p_set_id)
5163: ORDER BY line_number,shipment_number,nvl(option_number,-1);
5164:
5165: --
5166: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5167: --
5168: BEGIN
5169:
5170: IF l_debug_level > 0 THEN
5167: --
5168: BEGIN
5169:
5170: IF l_debug_level > 0 THEN
5171: oe_debug_pub.add( 'ENTERING OE_SET_UTIL.QUERY_ROWS' , 1 ) ;
5172: END IF;
5173:
5174:
5175: IF
5214:
5215:
5216: -- Return fetched table
5217: IF l_debug_level > 0 THEN
5218: oe_debug_pub.add( 'EXITING OE_LINE_UTIL.QUERY_ROWS' , 1 ) ;
5219: END IF;
5220:
5221:
5222: EXCEPTION
5242: PROCEDURE Create_line_Set(p_x_line_rec IN OUT NOCOPY OE_ORDER_PUB.LINE_REC_TYPE
5243: ) IS
5244: l_set_id number;
5245: --
5246: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5247: --
5248: BEGIN
5249:
5250: IF l_debug_level > 0 THEN
5247: --
5248: BEGIN
5249:
5250: IF l_debug_level > 0 THEN
5251: oe_debug_pub.add( 'ENTER:CREATE LINE SETS ' , 1 ) ;
5252: END IF;
5253:
5254: SELECT OE_SETS_S.NEXTVAL
5255: INTO l_set_id
5254: SELECT OE_SETS_S.NEXTVAL
5255: INTO l_set_id
5256: FROM DUAL;
5257: IF l_debug_level > 0 THEN
5258: oe_debug_pub.add( 'AFTERSEQUECEVALUE ' , 1 ) ;
5259: END IF;
5260: INSERT INTO OE_SETS(
5261: SET_ID
5262: , SET_NAME
5289: );
5290: p_x_line_rec.line_set_id := l_Set_id;
5291:
5292: IF l_debug_level > 0 THEN
5293: oe_debug_pub.add( 'AFTERINSERT'||TO_CHAR ( L_SET_ID ) , 1 ) ;
5294: END IF;
5295: IF l_debug_level > 0 THEN
5296: oe_debug_pub.add( 'AFTERINSERT ' , 1 ) ;
5297: END IF;
5292: IF l_debug_level > 0 THEN
5293: oe_debug_pub.add( 'AFTERINSERT'||TO_CHAR ( L_SET_ID ) , 1 ) ;
5294: END IF;
5295: IF l_debug_level > 0 THEN
5296: oe_debug_pub.add( 'AFTERINSERT ' , 1 ) ;
5297: END IF;
5298:
5299:
5300: EXCEPTION
5347: x_msg_data varchar2(2000);
5348: next number;
5349: l_proc_record number := 0;
5350: x_arrival_set_id number;
5351: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5352: -- 4925992
5353: l_top_model_line_id NUMBER;
5354: BEGIN
5355:
5355:
5356:
5357:
5358: IF l_debug_level > 0 THEN
5359: oe_debug_pub.add( 'ENTER PROCESS SETS' ) ;
5360: END IF;
5361: IF l_debug_level > 0 THEN
5362: oe_debug_pub.add( 'RECURSION MODE' || OE_GLOBALS.G_RECURSION_MODE ) ;
5363: END IF;
5358: IF l_debug_level > 0 THEN
5359: oe_debug_pub.add( 'ENTER PROCESS SETS' ) ;
5360: END IF;
5361: IF l_debug_level > 0 THEN
5362: oe_debug_pub.add( 'RECURSION MODE' || OE_GLOBALS.G_RECURSION_MODE ) ;
5363: END IF;
5364:
5365: -- To avoid this in a recursive procedure
5366:
5381:
5382: -- Populate line id if the index id populated and operation is create
5383: --on the line
5384: IF l_debug_level > 0 THEN
5385: oe_debug_pub.add( 'LINE ID' || G_SET_TBL ( I ) .LINE_ID ) ;
5386: END IF;
5387: IF l_debug_level > 0 THEN
5388: oe_debug_pub.add( 'OPERATION' || G_SET_TBL ( I ) .OPERATION ) ;
5389: END IF;
5384: IF l_debug_level > 0 THEN
5385: oe_debug_pub.add( 'LINE ID' || G_SET_TBL ( I ) .LINE_ID ) ;
5386: END IF;
5387: IF l_debug_level > 0 THEN
5388: oe_debug_pub.add( 'OPERATION' || G_SET_TBL ( I ) .OPERATION ) ;
5389: END IF;
5390:
5391: IF g_set_tbl(I).line_id = J THEN
5392: IF l_debug_level > 0 THEN
5389: END IF;
5390:
5391: IF g_set_tbl(I).line_id = J THEN
5392: IF l_debug_level > 0 THEN
5393: oe_debug_pub.add( 'OPERATION' || P_X_LINE_TBL ( J ) .ITEM_TYPE_CODE ) ;
5394: END IF;
5395: IF p_x_line_tbl(J).item_type_code <> 'MODEL' AND
5396: p_x_line_tbl(J).item_type_code <> 'STANDARD' AND
5397: p_x_line_tbl(J).item_type_code <> 'KIT' THEN
5405: END IF;
5406: End Loop;
5407:
5408: IF l_debug_level > 0 THEN
5409: oe_debug_pub.add( 'G_LINE_TBL: COUNT' || G_SET_TBL.COUNT ) ;
5410: END IF;
5411:
5412: -- Process all the lines in the set table now
5413:
5421: IF l_proc_record = g_set_tbl.count THEN
5422: EXIT;
5423: END IF;
5424: IF l_debug_level > 0 THEN
5425: oe_debug_pub.add( 'INTO SET COUNT' ) ;
5426: END IF;
5427:
5428: -- This logic is avoid the invalid sets that are marked in get set id api
5429:
5441:
5442: WHEN NO_DATA_FOUND THEN
5443:
5444: IF l_debug_level > 0 THEN
5445: oe_debug_pub.add( 'No data found ' || g_set_tbl(I).line_id ) ;
5446: END IF;
5447: g_set_tbl(I).process_flag := 'Y' ;
5448: END;
5449:
5486:
5487: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SET_OPR');
5488: OE_MSG_PUB.ADD;
5489: IF l_debug_level > 0 THEN
5490: oe_debug_pub.add( 'LINE IS NOT VALID TO PROCESS: ' || L_LINE_REC.LINE_ID , 1 ) ;
5491: END IF;
5492: g_set_tbl(I).process_flag := 'Y' ;
5493: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
5494:
5506: AND (g_set_tbl(I).set_type = 'ARRIVAL'
5507: OR g_set_tbl(I).set_type = 'SHIP')) THEN
5508:
5509: IF l_debug_level > 0 THEN
5510: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' || L_LINE_REC.ITEM_TYPE_CODE ) ;
5511: END IF;
5512:
5513: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SET_OPR');
5514: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE',
5514: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE',
5515: -- l_line_rec.item_type_code);
5516: OE_MSG_PUB.ADD;
5517: IF l_debug_level > 0 THEN
5518: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
5519: END IF;
5520: --RAISE FND_API.G_EXC_ERROR;
5521: g_set_tbl(I).process_flag := 'Y' ;
5522: END IF;
5523: END IF;
5524:
5525: IF g_set_tbl(I).process_flag <> 'Y' THEN
5526: IF l_debug_level > 0 THEN
5527: oe_debug_pub.add( 'SET PROCESSING- I:' || I ) ;
5528: END IF;
5529: l_set_name := g_set_tbl(I).set_name;
5530: IF l_debug_level > 0 THEN
5531: oe_debug_pub.add( 'LINE ID :' || G_SET_TBL ( I ) .LINE_ID ) ;
5527: oe_debug_pub.add( 'SET PROCESSING- I:' || I ) ;
5528: END IF;
5529: l_set_name := g_set_tbl(I).set_name;
5530: IF l_debug_level > 0 THEN
5531: oe_debug_pub.add( 'LINE ID :' || G_SET_TBL ( I ) .LINE_ID ) ;
5532: END IF;
5533: l_line_tbl(l_count) :=
5534: l_line_rec;
5535: l_old_line_tbl(l_count) :=
5534: l_line_rec;
5535: l_old_line_tbl(l_count) :=
5536: l_line_rec;
5537: IF l_debug_level > 0 THEN
5538: oe_debug_pub.add( 'SCHEDULE REQUEST DATE- :' || L_LINE_REC.REQUEST_DATE , 1 ) ;
5539: END IF;
5540: IF l_debug_level > 0 THEN
5541: oe_debug_pub.add( 'SCHEDULE REQUEST DATE- :' || L_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
5542: END IF;
5537: IF l_debug_level > 0 THEN
5538: oe_debug_pub.add( 'SCHEDULE REQUEST DATE- :' || L_LINE_REC.REQUEST_DATE , 1 ) ;
5539: END IF;
5540: IF l_debug_level > 0 THEN
5541: oe_debug_pub.add( 'SCHEDULE REQUEST DATE- :' || L_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
5542: END IF;
5543: g_old_line_tbl(l_count) :=
5544: l_line_tbl(l_count);
5545: IF l_debug_level > 0 THEN
5542: END IF;
5543: g_old_line_tbl(l_count) :=
5544: l_line_tbl(l_count);
5545: IF l_debug_level > 0 THEN
5546: oe_debug_pub.add( 'AFTER QUERY_ROW :' ) ;
5547: END IF;
5548: l_line_tbl(l_count).schedule_action_code :=
5549: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE;
5550: IF l_debug_level > 0 THEN
5547: END IF;
5548: l_line_tbl(l_count).schedule_action_code :=
5549: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE;
5550: IF l_debug_level > 0 THEN
5551: oe_debug_pub.add( 'AFTER SCHDULING ACITON ASSIGN:' ) ;
5552: END IF;
5553: IF g_set_tbl(I).set_type = 'SHIP_SET' THEN
5554: IF l_debug_level > 0 THEN
5555: oe_debug_pub.add( 'IN SHIP SET:' ) ;
5551: oe_debug_pub.add( 'AFTER SCHDULING ACITON ASSIGN:' ) ;
5552: END IF;
5553: IF g_set_tbl(I).set_type = 'SHIP_SET' THEN
5554: IF l_debug_level > 0 THEN
5555: oe_debug_pub.add( 'IN SHIP SET:' ) ;
5556: END IF;
5557: l_set_type := 'SHIP_SET';
5558: l_ship_from_org_id := l_line_tbl(l_count).ship_from_org_id;
5559: l_ship_to_org_id := l_line_tbl(l_count).ship_to_org_id;
5580: p_index => l_count);
5581: END IF;
5582:
5583: IF l_debug_level > 0 THEN
5584: oe_debug_pub.add( 'AFTER ASSIGNING SCHEDULE ATTRI- I:' || I ) ;
5585: END IF;
5586: g_set_tbl(I).process_flag := 'Y';
5587: l_count := l_line_tbl.count + 1;
5588: l_proc_record := l_proc_record + 1;
5600:
5601: FOR J in Next .. g_set_tbl.count
5602: LOOP
5603: IF l_debug_level > 0 THEN
5604: oe_debug_pub.add( 'SET PROCESSING- J:' || J ) ;
5605: END IF;
5606: IF l_debug_level > 0 THEN
5607: oe_debug_pub.add( 'SET PROCESSING- NEXT:' || NEXT ) ;
5608: END IF;
5603: IF l_debug_level > 0 THEN
5604: oe_debug_pub.add( 'SET PROCESSING- J:' || J ) ;
5605: END IF;
5606: IF l_debug_level > 0 THEN
5607: oe_debug_pub.add( 'SET PROCESSING- NEXT:' || NEXT ) ;
5608: END IF;
5609: IF l_debug_level > 0 THEN
5610: oe_debug_pub.add( 'SET NAME- NEXT:' || L_SET_NAME ) ;
5611: END IF;
5606: IF l_debug_level > 0 THEN
5607: oe_debug_pub.add( 'SET PROCESSING- NEXT:' || NEXT ) ;
5608: END IF;
5609: IF l_debug_level > 0 THEN
5610: oe_debug_pub.add( 'SET NAME- NEXT:' || L_SET_NAME ) ;
5611: END IF;
5612: IF l_debug_level > 0 THEN
5613: oe_debug_pub.add( 'SET NAME- NEXT:' || L_SET_TYPE ) ;
5614: END IF;
5609: IF l_debug_level > 0 THEN
5610: oe_debug_pub.add( 'SET NAME- NEXT:' || L_SET_NAME ) ;
5611: END IF;
5612: IF l_debug_level > 0 THEN
5613: oe_debug_pub.add( 'SET NAME- NEXT:' || L_SET_TYPE ) ;
5614: END IF;
5615: IF l_debug_level > 0 THEN
5616: oe_debug_pub.add( 'SET NAME- NEXT:' || G_SET_TBL ( J ) .SET_NAME ) ;
5617: END IF;
5612: IF l_debug_level > 0 THEN
5613: oe_debug_pub.add( 'SET NAME- NEXT:' || L_SET_TYPE ) ;
5614: END IF;
5615: IF l_debug_level > 0 THEN
5616: oe_debug_pub.add( 'SET NAME- NEXT:' || G_SET_TBL ( J ) .SET_NAME ) ;
5617: END IF;
5618: IF l_debug_level > 0 THEN
5619: oe_debug_pub.add( 'SET NAME- NEXT:' || G_SET_TBL ( J ) .SET_TYPE ) ;
5620: END IF;
5615: IF l_debug_level > 0 THEN
5616: oe_debug_pub.add( 'SET NAME- NEXT:' || G_SET_TBL ( J ) .SET_NAME ) ;
5617: END IF;
5618: IF l_debug_level > 0 THEN
5619: oe_debug_pub.add( 'SET NAME- NEXT:' || G_SET_TBL ( J ) .SET_TYPE ) ;
5620: END IF;
5621: oe_line_util.query_row(p_line_id => g_set_tbl(J).line_id,
5622: x_line_rec => l_line_rec);
5623:
5655: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE',
5656: -- l_line_rec.item_type_code);
5657: OE_MSG_PUB.ADD;
5658: IF l_debug_level > 0 THEN
5659: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
5660: END IF;
5661: --RAISE FND_API.G_EXC_ERROR;
5662: g_set_tbl(J).process_flag := 'Y' ;
5663: END IF;
5661: --RAISE FND_API.G_EXC_ERROR;
5662: g_set_tbl(J).process_flag := 'Y' ;
5663: END IF;
5664: IF l_debug_level > 0 THEN
5665: oe_debug_pub.add( 'PROCES FLAG- J:' || G_SET_TBL ( J ) .PROCESS_FLAG ) ;
5666: END IF;
5667:
5668: IF g_set_tbl(J).process_flag <> 'Y' THEN
5669:
5667:
5668: IF g_set_tbl(J).process_flag <> 'Y' THEN
5669:
5670: IF l_debug_level > 0 THEN
5671: oe_debug_pub.add( 'INTO PROCESSFLAG- J:' ) ;
5672: END IF;
5673: IF g_set_tbl(J).set_name = l_set_name AND
5674: g_set_tbl(J).set_type = l_set_type THEN
5675: IF l_debug_level > 0 THEN
5672: END IF;
5673: IF g_set_tbl(J).set_name = l_set_name AND
5674: g_set_tbl(J).set_type = l_set_type THEN
5675: IF l_debug_level > 0 THEN
5676: oe_debug_pub.add( 'SET PROCESSING- J:' || J ) ;
5677: END IF;
5678: IF l_debug_level > 0 THEN
5679: oe_debug_pub.add( 'SET PROCESSING- NEXT:' || NEXT ) ;
5680: END IF;
5675: IF l_debug_level > 0 THEN
5676: oe_debug_pub.add( 'SET PROCESSING- J:' || J ) ;
5677: END IF;
5678: IF l_debug_level > 0 THEN
5679: oe_debug_pub.add( 'SET PROCESSING- NEXT:' || NEXT ) ;
5680: END IF;
5681:
5682: IF l_debug_level > 0 THEN
5683: oe_debug_pub.add( 'INTO PROCESSING- J:' || NEXT ) ;
5679: oe_debug_pub.add( 'SET PROCESSING- NEXT:' || NEXT ) ;
5680: END IF;
5681:
5682: IF l_debug_level > 0 THEN
5683: oe_debug_pub.add( 'INTO PROCESSING- J:' || NEXT ) ;
5684: END IF;
5685: l_line_tbl(l_count) :=
5686: l_line_rec;
5687: l_old_line_tbl(l_count) :=
5739: l_line_tbl(l_count).top_model_line_id =
5740: l_line_tbl(l_count).line_id) OR
5741: l_line_tbl(l_count).item_type_code = 'KIT' THEN
5742: IF l_debug_level > 0 THEN
5743: oe_debug_pub.add( 'CALLING OPTIONS J:' ) ;
5744: END IF;
5745: Get_Options(p_x_line_tbl => l_line_tbl,
5746: p_set_type => l_set_type,
5747: p_index => l_count);
5754:
5755: END LOOP; -- J
5756:
5757: IF l_debug_level > 0 THEN
5758: oe_debug_pub.add( 'BEFORE CALLING SCHSET:'|| L_LINE_TBL.COUNT , 1 ) ;
5759: END IF;
5760: IF l_debug_level > 0 THEN
5761: oe_debug_pub.add( 'BEFORE CALLING SCHSET REQUEST DATE:'|| L_LINE_TBL ( 1 ) .REQUEST_DATE , 1 ) ;
5762: END IF;
5757: IF l_debug_level > 0 THEN
5758: oe_debug_pub.add( 'BEFORE CALLING SCHSET:'|| L_LINE_TBL.COUNT , 1 ) ;
5759: END IF;
5760: IF l_debug_level > 0 THEN
5761: oe_debug_pub.add( 'BEFORE CALLING SCHSET REQUEST DATE:'|| L_LINE_TBL ( 1 ) .REQUEST_DATE , 1 ) ;
5762: END IF;
5763: IF l_debug_level > 0 THEN
5764: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( 1 ) .SCHEDULE_SHIP_DATE , 1 ) ;
5765: END IF;
5760: IF l_debug_level > 0 THEN
5761: oe_debug_pub.add( 'BEFORE CALLING SCHSET REQUEST DATE:'|| L_LINE_TBL ( 1 ) .REQUEST_DATE , 1 ) ;
5762: END IF;
5763: IF l_debug_level > 0 THEN
5764: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( 1 ) .SCHEDULE_SHIP_DATE , 1 ) ;
5765: END IF;
5766: IF l_debug_level > 0 THEN
5767: oe_debug_pub.add( 'BEFORE CALLING SHIP SET:'|| L_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
5768: END IF;
5763: IF l_debug_level > 0 THEN
5764: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( 1 ) .SCHEDULE_SHIP_DATE , 1 ) ;
5765: END IF;
5766: IF l_debug_level > 0 THEN
5767: oe_debug_pub.add( 'BEFORE CALLING SHIP SET:'|| L_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
5768: END IF;
5769: IF l_debug_level > 0 THEN
5770: oe_debug_pub.add( 'BEFORE CALLING SHIP SET:'|| G_OLD_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
5771: END IF;
5766: IF l_debug_level > 0 THEN
5767: oe_debug_pub.add( 'BEFORE CALLING SHIP SET:'|| L_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
5768: END IF;
5769: IF l_debug_level > 0 THEN
5770: oe_debug_pub.add( 'BEFORE CALLING SHIP SET:'|| G_OLD_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
5771: END IF;
5772: --l_line_tbl(1).schedule_ship_date := l_line_tbl(1).request_date;
5773:
5774: g_set_recursive_flag := TRUE;
5787: END LOOP;*/
5788: IF l_set_type <> 'FULFILLMENT_SET' THEN
5789: for t in 1..l_line_tbl.count loop
5790: IF l_debug_level > 0 THEN
5791: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 1 ) ;
5792: END IF;
5793: IF l_debug_level > 0 THEN
5794: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .REQUEST_DATE , 1 ) ;
5795: END IF;
5790: IF l_debug_level > 0 THEN
5791: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 1 ) ;
5792: END IF;
5793: IF l_debug_level > 0 THEN
5794: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .REQUEST_DATE , 1 ) ;
5795: END IF;
5796: IF l_debug_level > 0 THEN
5797: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .ITEM_TYPE_CODE , 1 ) ;
5798: END IF;
5793: IF l_debug_level > 0 THEN
5794: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .REQUEST_DATE , 1 ) ;
5795: END IF;
5796: IF l_debug_level > 0 THEN
5797: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .ITEM_TYPE_CODE , 1 ) ;
5798: END IF;
5799: end loop;
5800:
5801:
5803: p_old_line_tbl => g_old_line_tbl,
5804: x_return_status => l_return_status);
5805: END IF;
5806: IF l_debug_level > 0 THEN
5807: oe_debug_pub.add( 'AFTER CALLING SCHSET:'|| L_LINE_TBL.COUNT , 1 ) ;
5808: END IF;
5809: for t in 1..l_line_tbl.count loop
5810: IF l_debug_level > 0 THEN
5811: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 1 ) ;
5807: oe_debug_pub.add( 'AFTER CALLING SCHSET:'|| L_LINE_TBL.COUNT , 1 ) ;
5808: END IF;
5809: for t in 1..l_line_tbl.count loop
5810: IF l_debug_level > 0 THEN
5811: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 1 ) ;
5812: END IF;
5813: IF l_debug_level > 0 THEN
5814: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .REQUEST_DATE , 1 ) ;
5815: END IF;
5810: IF l_debug_level > 0 THEN
5811: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 1 ) ;
5812: END IF;
5813: IF l_debug_level > 0 THEN
5814: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .REQUEST_DATE , 1 ) ;
5815: END IF;
5816: IF l_debug_level > 0 THEN
5817: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .ITEM_TYPE_CODE , 1 ) ;
5818: END IF;
5813: IF l_debug_level > 0 THEN
5814: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .REQUEST_DATE , 1 ) ;
5815: END IF;
5816: IF l_debug_level > 0 THEN
5817: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .ITEM_TYPE_CODE , 1 ) ;
5818: END IF;
5819: end loop;
5820: --g_old_line_tbl.delete;
5821:
5819: end loop;
5820: --g_old_line_tbl.delete;
5821:
5822: IF l_debug_level > 0 THEN
5823: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' , 1 ) ;
5824: END IF;
5825: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5826: IF l_debug_level > 0 THEN
5827: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
5823: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' , 1 ) ;
5824: END IF;
5825: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5826: IF l_debug_level > 0 THEN
5827: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
5828: END IF;
5829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5830: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5831: IF l_debug_level > 0 THEN
5828: END IF;
5829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5830: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5831: IF l_debug_level > 0 THEN
5832: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
5833: END IF;
5834: RAISE FND_API.G_EXC_ERROR;
5835: END IF;
5836: --l_header_id := l_line_tbl(1).header_id;
5842: l_schedule_arrival_date := l_line_tbl(1).schedule_arrival_date;
5843: l_ship_to_org_id := l_line_tbl(1).ship_to_org_id;
5844: END IF;
5845: IF l_debug_level > 0 THEN
5846: oe_debug_pub.add( 'SET6' , 1 ) ;
5847: END IF;
5848: END IF;
5849: l_header_id := l_line_tbl(1).header_id;
5850: IF l_debug_level > 0 THEN
5847: END IF;
5848: END IF;
5849: l_header_id := l_line_tbl(1).header_id;
5850: IF l_debug_level > 0 THEN
5851: oe_debug_pub.add( 'SET NAME- BEFORE CREATE:' || L_SET_NAME ) ;
5852: END IF;
5853: IF l_debug_level > 0 THEN
5854: oe_debug_pub.add( 'SET TYPE- BEFORE CREATE:' || L_SET_TYPE ) ;
5855: END IF;
5850: IF l_debug_level > 0 THEN
5851: oe_debug_pub.add( 'SET NAME- BEFORE CREATE:' || L_SET_NAME ) ;
5852: END IF;
5853: IF l_debug_level > 0 THEN
5854: oe_debug_pub.add( 'SET TYPE- BEFORE CREATE:' || L_SET_TYPE ) ;
5855: END IF;
5856: IF l_debug_level > 0 THEN
5857: oe_debug_pub.add( ' HEADER- BEFORE CREATE:' || L_HEADER_ID ) ;
5858: END IF;
5853: IF l_debug_level > 0 THEN
5854: oe_debug_pub.add( 'SET TYPE- BEFORE CREATE:' || L_SET_TYPE ) ;
5855: END IF;
5856: IF l_debug_level > 0 THEN
5857: oe_debug_pub.add( ' HEADER- BEFORE CREATE:' || L_HEADER_ID ) ;
5858: END IF;
5859:
5860: Create_Set
5861: (p_Set_Name => l_set_name,
5880: END IF;
5881:
5882: IF l_set_type = 'FULFILLMENT_SET' THEN
5883: IF l_debug_level > 0 THEN
5884: oe_debug_pub.add( 'BEFORE CREATING FULLFILLMENT SET' ) ;
5885: END IF;
5886: FOR fullrec in 1..l_line_tbl.COUNT
5887: LOOP
5888: IF l_debug_level > 0 THEN
5885: END IF;
5886: FOR fullrec in 1..l_line_tbl.COUNT
5887: LOOP
5888: IF l_debug_level > 0 THEN
5889: oe_debug_pub.add( 'INTO LOOP - CREATING FULLFILLMENT SET' ) ;
5890: END IF;
5891: -- 4274226
5892: IF l_line_tbl(fullrec).line_id = l_line_tbl(fullrec).top_model_line_id
5893: AND l_line_tbl(fullrec).operation <> 'CREATE'
5905:
5906: FOR K IN 1 .. l_line_tbl.COUNT
5907: LOOP
5908: IF l_debug_level > 0 THEN
5909: oe_debug_pub.add( 'BEFORE ASSIGNING THE OLD RECORD IN SET' , 1 ) ;
5910: END IF;
5911: oe_line_util.query_row( l_line_tbl(K).line_id,
5912: l_line_rec);
5913: g_old_line_tbl(K) := l_line_rec;
5963:
5964: FOR I IN 1..l_line_tbl.count LOOP
5965:
5966: IF l_debug_level > 0 THEN
5967: oe_debug_pub.add( 'LINE ID ' || L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
5968: END IF;
5969: IF l_debug_level > 0 THEN
5970: oe_debug_pub.add( 'ITEM ' || L_LINE_TBL ( I ) .INVENTORY_ITEM_ID , 1 ) ;
5971: END IF;
5966: IF l_debug_level > 0 THEN
5967: oe_debug_pub.add( 'LINE ID ' || L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
5968: END IF;
5969: IF l_debug_level > 0 THEN
5970: oe_debug_pub.add( 'ITEM ' || L_LINE_TBL ( I ) .INVENTORY_ITEM_ID , 1 ) ;
5971: END IF;
5972: IF l_debug_level > 0 THEN
5973: oe_debug_pub.add( 'OLD ITEM ' || G_OLD_LINE_TBL ( I ) .INVENTORY_ITEM_ID , 1 ) ;
5974: END IF;
5969: IF l_debug_level > 0 THEN
5970: oe_debug_pub.add( 'ITEM ' || L_LINE_TBL ( I ) .INVENTORY_ITEM_ID , 1 ) ;
5971: END IF;
5972: IF l_debug_level > 0 THEN
5973: oe_debug_pub.add( 'OLD ITEM ' || G_OLD_LINE_TBL ( I ) .INVENTORY_ITEM_ID , 1 ) ;
5974: END IF;
5975:
5976:
5977:
5976:
5977:
5978: END LOOP;
5979: IF l_debug_level > 0 THEN
5980: oe_debug_pub.add( 'BEFORE CALLING PROCESS ORDER IN SETS' ) ;
5981: END IF;
5982:
5983:
5984: oe_order_pvt.Lines
6008: );
6009: jolin end */
6010:
6011: IF l_debug_level > 0 THEN
6012: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS' ) ;
6013: END IF;
6014:
6015: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
6016: END IF;
6014:
6015: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
6016: END IF;
6017: IF l_debug_level > 0 THEN
6018: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS-1' ) ;
6019: END IF;
6020: g_set_recursive_flag := FALSE;
6021:
6022: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6026:
6027: FOR M in 1..l_line_tbl.count
6028: LOOP
6029: IF l_debug_level > 0 THEN
6030: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS-2' ) ;
6031: END IF;
6032: FOR H in 1..p_x_line_tbl.count
6033: Loop
6034: IF p_x_line_tbl(H).line_id = l_line_tbl(M).line_id THEN
6037: END IF;
6038: END LOOP;
6039: END LOOP;
6040: IF l_debug_level > 0 THEN
6041: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS-3' ) ;
6042: END IF;
6043: l_line_tbl.delete;
6044: g_old_line_tbl.delete;
6045: l_count := 1;
6047: -- END LOOP; -- J
6048: END IF; -- This is for if processed flag = Y for I
6049:
6050: IF l_debug_level > 0 THEN
6051: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS-4' ) ;
6052: END IF;
6053:
6054: END LOOP; -- I
6055: IF g_set_tbl.count > 0 THEN
6058:
6059: IF g_set_opt_tbl.count <> 0 THEN
6060:
6061: IF l_debug_level > 0 THEN
6062: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS-5' ) ;
6063: END IF;
6064: -- This is to process options that has been effected by changes on the model
6065: -- other than creating a new set. If model is removed or moved into an
6066: -- existing sets then all the options are queried and we will put them in
6066: -- existing sets then all the options are queried and we will put them in
6067: -- a new set.
6068: Process_Options;
6069: IF l_debug_level > 0 THEN
6070: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS-6' ) ;
6071: END IF;
6072: g_set_opt_tbl.delete;
6073: END IF;
6074:
6075: END IF;
6076: <
6077: g_process_options := TRUE;
6078: IF l_debug_level > 0 THEN
6079: oe_debug_pub.add( 'EXIT PROCESS SETS' ) ;
6080: END IF;
6081:
6082:
6083: EXCEPTION
6113: os.set_id = ls.set_id;
6114: lfullist varchar2(2000);
6115: lcount number := 0;
6116: --
6117: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6118: --
6119: BEGIN
6120:
6121: FOR I in FULLIST
6121: FOR I in FULLIST
6122: LOOP
6123: lfullist := lfullist || I.set_name || ',';
6124: IF l_debug_level > 0 THEN
6125: oe_debug_pub.add( 'FULLFILLMENT LIST' ||LFULLIST ) ;
6126: END IF;
6127: END LOOP;
6128: lfullist := rtrim(lfullist,',');
6129: IF l_debug_level > 0 THEN
6126: END IF;
6127: END LOOP;
6128: lfullist := rtrim(lfullist,',');
6129: IF l_debug_level > 0 THEN
6130: oe_debug_pub.add( 'AFTER TRIM FULLFILLMENT LIST' ||LFULLIST ) ;
6131: END IF;
6132: RETURN lfullist;
6133:
6134: END Get_Fulfillment_List;
6135:
6136: Procedure Remove_from_fulfillment(p_line_id NUMBER)
6137: IS
6138: --
6139: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6140: --
6141: Begin
6142:
6143: Delete oe_line_sets
6286: and set_status = 'A'
6287: AND set_id = nvl(ship_set_id,arrival_set_id); --Bug 13691678
6288:
6289: --
6290: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6291: --
6292: BEGIN
6293:
6294: -- Firstly Check if the Set is a new set Requested. We can check in the
6294: -- Firstly Check if the Set is a new set Requested. We can check in the
6295: -- order of Arrival, Ship and Fulfillment set
6296:
6297: IF l_debug_level > 0 THEN
6298: oe_debug_pub.add( 'ENTER PROCEDURE DEFAULT LINE SET '|| p_x_line_rec.line_id , 1 ) ;
6299: END IF;
6300:
6301: l_param := NVL(oe_sys_parameters.Value('ONT_LINE_SET_WH',p_x_line_rec.org_id),'N'); --2843738
6302:
6319: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM))
6320: THEN
6321:
6322: IF l_debug_level > 0 THEN
6323: oe_debug_pub.add( 'INVALID SER OPR' , 2 ) ;
6324: END IF;
6325: FND_MESSAGE.Set_Name('ONT', 'OE_SCH_NOT_IN_SHIP_ARR'); -- 2724197 New message added
6326: oe_msg_pub.add;
6327: RAISE FND_API.G_EXC_ERROR;
6342: OE_Quote_Util.G_COMPLETE_NEG = 'Y' ) AND --12955144 : Allow other child lines as well-- Bug 2843738*/
6343: p_x_line_rec.line_category_code <> 'RETURN' THEN
6344:
6345: IF l_debug_level > 0 THEN
6346: oe_debug_pub.add( 'IS A VALID SET REQUEST' , 1 ) ;
6347: END IF;
6348:
6349: -- Check if the header preference is set to keep the line in a set
6350: -- by default
6378: WHEN OTHERS THEN NULL;
6379: END;
6380: END IF;
6381: IF l_debug_level > 0 THEN
6382: oe_debug_pub.add( 'l_set_id : ' || l_set_id, 1 ) ;
6383: END IF;
6384:
6385: IF (OE_ORDER_CACHE.g_header_rec.customer_preference_set_code = 'SHIP' OR
6386: OE_ORDER_CACHE.g_header_rec.customer_preference_set_code = 'ARRIVAL')
6401: g_cust_pref_set := TRUE;
6402: END IF;
6403:
6404: IF l_debug_level > 0 THEN
6405: oe_debug_pub.add( 'INTO SYSTEM SET' , 1 ) ;
6406: END IF;
6407:
6408: --2843738
6409: IF l_set_id IS NULL AND
6425: where header_id = p_x_line_rec.header_id
6426: AND set_status = 'T'
6427: AND not exists (select line_id FROM oe_order_lines_all
6428: WHERE ship_set_id = set_id);
6429: oe_debug_pub.add( 'existing ship set id retrieved :' || l_set_id) ;
6430: EXCEPTION
6431: WHEN Others THEN NULL;
6432: END;
6433: END IF;
6432: END;
6433: END IF;
6434: ELSE
6435: IF l_debug_level > 0 THEN
6436: oe_debug_pub.add('Profile ARRIVAL: '|| p_x_line_rec.arrival_set,2);
6437: oe_debug_pub.add('Profile SHIP: ' || p_x_line_rec.ship_set , 2);
6438: END IF;
6439:
6440: IF p_x_line_rec.arrival_set is not null or
6433: END IF;
6434: ELSE
6435: IF l_debug_level > 0 THEN
6436: oe_debug_pub.add('Profile ARRIVAL: '|| p_x_line_rec.arrival_set,2);
6437: oe_debug_pub.add('Profile SHIP: ' || p_x_line_rec.ship_set , 2);
6438: END IF;
6439:
6440: IF p_x_line_rec.arrival_set is not null or
6441: p_x_line_rec.ship_set is not null THEN
6475: ,p_old_line_rec => p_old_line_rec
6476: ,x_return_status => l_return_status);
6477:
6478: IF l_debug_level > 0 THEN
6479: oe_debug_pub.add( 'Return Status '|| l_return_status , 1 ) ;
6480: END IF;
6481:
6482: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6483: p_x_line_rec.ship_set_id := Null;
6488:
6489: END IF;
6490:
6491: IF l_debug_level > 0 THEN
6492: oe_debug_pub.add( 'INTO SET EXISTS'|| L_SET_ID , 1 ) ;
6493: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
6494: END IF;
6495:
6496: ELSIF l_cust_pref = 'ARRIVAL' THEN
6489: END IF;
6490:
6491: IF l_debug_level > 0 THEN
6492: oe_debug_pub.add( 'INTO SET EXISTS'|| L_SET_ID , 1 ) ;
6493: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
6494: END IF;
6495:
6496: ELSIF l_cust_pref = 'ARRIVAL' THEN
6497: p_x_line_rec.arrival_set_id := l_set_id;
6495:
6496: ELSIF l_cust_pref = 'ARRIVAL' THEN
6497: p_x_line_rec.arrival_set_id := l_set_id;
6498: IF l_debug_level > 0 THEN
6499: oe_debug_pub.add( 'INTO SET EXISTS'|| L_SET_ID , 1 ) ;
6500: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6501: END IF;
6502: END IF;
6503:
6496: ELSIF l_cust_pref = 'ARRIVAL' THEN
6497: p_x_line_rec.arrival_set_id := l_set_id;
6498: IF l_debug_level > 0 THEN
6499: oe_debug_pub.add( 'INTO SET EXISTS'|| L_SET_ID , 1 ) ;
6500: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6501: END IF;
6502: END IF;
6503:
6504: END IF; -- lSet_id is not null
6556: IF p_x_line_rec.ship_set IS NULL
6557: THEN
6558: p_x_line_rec.ship_set := lsettempname;
6559: ELSE
6560: oe_debug_pub.add('Using the Ship Set Name passed: '||p_x_line_rec.ship_set);
6561: END IF;
6562: ELSIF l_cust_pref = 'ARRIVAL' THEN
6563: --Bug 5654902
6564: --Added the condition to check if 'Arrival Set' name already exists
6565: IF p_x_line_rec.arrival_set IS NULL
6566: THEN
6567: p_x_line_rec.arrival_set := lsettempname;
6568: ELSE
6569: oe_debug_pub.add('Using the Arrival Set Name passed: '||p_x_line_rec.arrival_set);
6570: END IF;
6571: END IF;
6572: END IF; -- L_set_id is null
6573:
6571: END IF;
6572: END IF; -- L_set_id is null
6573:
6574: IF l_debug_level > 0 THEN
6575: oe_debug_pub.add( 'SYSTEM SET IS' || LSETTEMPNAME , 1 ) ;
6576: END IF;
6577:
6578: END IF; -- Customer Preference
6579: END IF; -- Operation is create
6578: END IF; -- Customer Preference
6579: END IF; -- Operation is create
6580:
6581: IF l_debug_level > 0 THEN
6582: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
6583: END IF;
6584: IF l_debug_level > 0 THEN
6585: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.SHIP_SET , 1 ) ;
6586: END IF;
6581: IF l_debug_level > 0 THEN
6582: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
6583: END IF;
6584: IF l_debug_level > 0 THEN
6585: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.SHIP_SET , 1 ) ;
6586: END IF;
6587: IF l_debug_level > 0 THEN
6588: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.ARRIVAL_SET , 1 ) ;
6589: END IF;
6584: IF l_debug_level > 0 THEN
6585: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.SHIP_SET , 1 ) ;
6586: END IF;
6587: IF l_debug_level > 0 THEN
6588: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.ARRIVAL_SET , 1 ) ;
6589: END IF;
6590: IF l_debug_level > 0 THEN
6591: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6592: END IF;
6587: IF l_debug_level > 0 THEN
6588: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.ARRIVAL_SET , 1 ) ;
6589: END IF;
6590: IF l_debug_level > 0 THEN
6591: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6592: END IF;
6593:
6594: -- Check if the set name is populated and it is a new set
6595: -- Process for arrival sets
6597: IF (p_x_line_rec.arrival_set IS NOT NULL AND
6598: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR) THEN
6599:
6600: IF l_debug_level > 0 THEN
6601: oe_debug_pub.add( 'INTO ARRIVAL SET'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6602: END IF;
6603: -- Check if this is existing set
6604: IF Set_Exist(p_set_name => p_x_line_rec.arrival_set,
6605: p_set_type => 'ARRIVAL_SET',
6614: GOTO NO_PROCESS;
6615: END IF; -- Set Status = 'C'
6616:
6617: IF l_debug_level > 0 THEN
6618: oe_debug_pub.add( 'ARRIVAL SET-1'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6619: END IF;
6620: p_x_line_rec.arrival_set_id := l_set_id;
6621: l_set_type := 'ARRIVAL_SET';
6622: l_set_name := p_x_line_rec.arrival_set;
6630: END IF ; -- Set Exists
6631:
6632: -- Set the cascade flag if line is a model or kit
6633: IF l_debug_level > 0 THEN
6634: oe_debug_pub.add( 'ARRIVAL SET-2'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6635: END IF;
6636:
6637: IF p_x_line_rec.top_model_line_id = p_x_line_rec.line_id
6638: THEN
6644: ELSIF NOT OE_GLOBALS.EQUAL (p_x_line_rec.arrival_set_id,
6645: p_old_line_rec.arrival_set_id )
6646: THEN
6647: IF l_debug_level > 0 THEN
6648: oe_debug_pub.add( 'ARRIVAL SET-3'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6649: END IF;
6650: -- Process the moving from one set to another
6651: IF p_x_line_rec.arrival_set_id IS NOT NULL THEN
6652:
6665: END IF; -- Set Status = 'C'
6666: p_x_line_rec.arrival_set_id := l_set_id;
6667: l_set_type := 'ARRIVAL_SET';
6668: IF l_debug_level > 0 THEN
6669: oe_debug_pub.add( 'ARRIVAL SET-4'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6670: END IF;
6671:
6672: ELSE -- If set not exists
6673:
6673:
6674: -- not a valid set so retain the old value;
6675: p_x_line_rec.arrival_set_id := p_old_line_rec.arrival_set_id;
6676: IF l_debug_level > 0 THEN
6677: oe_debug_pub.add( 'ARRIVAL SET-5'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6678: END IF;
6679: GOTO NO_PROCESS;
6680:
6681: END IF ; -- Set Exists
6683: -- See if the line is removed from the set */
6684: ELSIF p_x_line_rec.arrival_set_id IS NULL THEN
6685: p_x_line_rec.arrival_set_id := null;
6686: IF l_debug_level > 0 THEN
6687: oe_debug_pub.add( 'ARRIVAL SET-6'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6688: END IF;
6689: l_set_id := null;
6690: l_set_type := 'ARRIVAL_SET';
6691: END IF; -- Arrival set id is not null
6694: p_x_line_rec.line_id THEN
6695: l_cascade_flag := 'Y';
6696: END IF;
6697: IF l_debug_level > 0 THEN
6698: oe_debug_pub.add( 'ARRIVAL SET-7'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6699: END IF;
6700:
6701: -- End Arrival Set Logic
6702: -- Begin the logic for Ship sets . The logic must go in the same way as
6741: ELSIF NOT OE_GLOBALS.EQUAL (p_x_line_rec.ship_set_id,
6742: p_old_line_rec.ship_set_id )
6743: THEN
6744: IF l_debug_level > 0 THEN
6745: oe_debug_pub.add( 'INTO SHIP SETS '|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
6746: END IF;
6747: -- Process the moving from one set to another
6748: IF p_x_line_rec.ship_set_id IS NOT NULL THEN
6749:
6747: -- Process the moving from one set to another
6748: IF p_x_line_rec.ship_set_id IS NOT NULL THEN
6749:
6750: IF l_debug_level > 0 THEN
6751: oe_debug_pub.add( 'SHIP SET ID NOT NULL '|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
6752: END IF;
6753:
6754: IF Set_Exist(p_set_id => p_x_line_rec.ship_set_id) THEN
6755:
6791: -- Create or Update based on the flags set above
6792:
6793: /* First we will create the set if l_create_flag is set to 'Y' */
6794: IF l_debug_level > 0 THEN
6795: oe_debug_pub.add( 'CREATE FLAG IS - ' || L_CREATE_SET , 1 ) ;
6796: END IF;
6797: IF l_debug_level > 0 THEN
6798: oe_debug_pub.add( 'CASCADE FLAG IS - ' || L_CASCADE_FLAG , 1 ) ;
6799: END IF;
6794: IF l_debug_level > 0 THEN
6795: oe_debug_pub.add( 'CREATE FLAG IS - ' || L_CREATE_SET , 1 ) ;
6796: END IF;
6797: IF l_debug_level > 0 THEN
6798: oe_debug_pub.add( 'CASCADE FLAG IS - ' || L_CASCADE_FLAG , 1 ) ;
6799: END IF;
6800: IF l_debug_level > 0 THEN
6801: oe_debug_pub.add( 'SET NAME - ' || L_SET_NAME , 1 ) ;
6802: END IF;
6797: IF l_debug_level > 0 THEN
6798: oe_debug_pub.add( 'CASCADE FLAG IS - ' || L_CASCADE_FLAG , 1 ) ;
6799: END IF;
6800: IF l_debug_level > 0 THEN
6801: oe_debug_pub.add( 'SET NAME - ' || L_SET_NAME , 1 ) ;
6802: END IF;
6803: IF l_debug_level > 0 THEN
6804: oe_debug_pub.add( 'SET TYPE - ' || L_SET_TYPE , 1 ) ;
6805: END IF;
6800: IF l_debug_level > 0 THEN
6801: oe_debug_pub.add( 'SET NAME - ' || L_SET_NAME , 1 ) ;
6802: END IF;
6803: IF l_debug_level > 0 THEN
6804: oe_debug_pub.add( 'SET TYPE - ' || L_SET_TYPE , 1 ) ;
6805: END IF;
6806: IF l_debug_level > 0 THEN
6807: oe_debug_pub.add( 'SET ID - ' || L_SET_ID , 1 ) ;
6808: END IF;
6803: IF l_debug_level > 0 THEN
6804: oe_debug_pub.add( 'SET TYPE - ' || L_SET_TYPE , 1 ) ;
6805: END IF;
6806: IF l_debug_level > 0 THEN
6807: oe_debug_pub.add( 'SET ID - ' || L_SET_ID , 1 ) ;
6808: END IF;
6809: /* 4241385
6810: The below logic will come into picture only when the system parameter "OM:Auto Schedule Sets"
6811: is set to "No" and the set is not yet scheduled. Becuase if the set is scheduled, then
6816: */
6817: l_auto_schedule_sets := NVL(oe_sys_parameters.Value('ONT_AUTO_SCH_SETS',p_x_line_rec.org_id),'Y');
6818: IF l_auto_schedule_sets = 'N' AND p_x_line_rec.schedule_ship_date IS NULL THEN --12866052
6819: IF l_debug_level > 0 THEN
6820: oe_debug_pub.add( 'p_old_line_rec.ship_from_org_id' ||p_old_line_rec.ship_from_org_id) ;
6821: oe_debug_pub.add( 'p_x_line_rec.ship_from_org_id' ||p_x_line_rec.ship_from_org_id) ;
6822: oe_debug_pub.add( 'p_old_line_rec.ship_set_id' ||p_old_line_rec.ship_set_id) ;
6823: oe_debug_pub.add( 'p_x_line_rec.ship_set_id' ||p_x_line_rec.ship_set_id) ;
6824: oe_debug_pub.add( 'p_x_line_rec.ship_set' ||p_x_line_rec.ship_set) ;
6817: l_auto_schedule_sets := NVL(oe_sys_parameters.Value('ONT_AUTO_SCH_SETS',p_x_line_rec.org_id),'Y');
6818: IF l_auto_schedule_sets = 'N' AND p_x_line_rec.schedule_ship_date IS NULL THEN --12866052
6819: IF l_debug_level > 0 THEN
6820: oe_debug_pub.add( 'p_old_line_rec.ship_from_org_id' ||p_old_line_rec.ship_from_org_id) ;
6821: oe_debug_pub.add( 'p_x_line_rec.ship_from_org_id' ||p_x_line_rec.ship_from_org_id) ;
6822: oe_debug_pub.add( 'p_old_line_rec.ship_set_id' ||p_old_line_rec.ship_set_id) ;
6823: oe_debug_pub.add( 'p_x_line_rec.ship_set_id' ||p_x_line_rec.ship_set_id) ;
6824: oe_debug_pub.add( 'p_x_line_rec.ship_set' ||p_x_line_rec.ship_set) ;
6825: oe_debug_pub.add( 'p_x_line_rec.arrival_set_id' ||p_x_line_rec.arrival_set_id) ;
6818: IF l_auto_schedule_sets = 'N' AND p_x_line_rec.schedule_ship_date IS NULL THEN --12866052
6819: IF l_debug_level > 0 THEN
6820: oe_debug_pub.add( 'p_old_line_rec.ship_from_org_id' ||p_old_line_rec.ship_from_org_id) ;
6821: oe_debug_pub.add( 'p_x_line_rec.ship_from_org_id' ||p_x_line_rec.ship_from_org_id) ;
6822: oe_debug_pub.add( 'p_old_line_rec.ship_set_id' ||p_old_line_rec.ship_set_id) ;
6823: oe_debug_pub.add( 'p_x_line_rec.ship_set_id' ||p_x_line_rec.ship_set_id) ;
6824: oe_debug_pub.add( 'p_x_line_rec.ship_set' ||p_x_line_rec.ship_set) ;
6825: oe_debug_pub.add( 'p_x_line_rec.arrival_set_id' ||p_x_line_rec.arrival_set_id) ;
6826: oe_debug_pub.add( 'p_x_line_rec.schedule_arrival_date' ||p_x_line_rec.schedule_arrival_date) ;
6819: IF l_debug_level > 0 THEN
6820: oe_debug_pub.add( 'p_old_line_rec.ship_from_org_id' ||p_old_line_rec.ship_from_org_id) ;
6821: oe_debug_pub.add( 'p_x_line_rec.ship_from_org_id' ||p_x_line_rec.ship_from_org_id) ;
6822: oe_debug_pub.add( 'p_old_line_rec.ship_set_id' ||p_old_line_rec.ship_set_id) ;
6823: oe_debug_pub.add( 'p_x_line_rec.ship_set_id' ||p_x_line_rec.ship_set_id) ;
6824: oe_debug_pub.add( 'p_x_line_rec.ship_set' ||p_x_line_rec.ship_set) ;
6825: oe_debug_pub.add( 'p_x_line_rec.arrival_set_id' ||p_x_line_rec.arrival_set_id) ;
6826: oe_debug_pub.add( 'p_x_line_rec.schedule_arrival_date' ||p_x_line_rec.schedule_arrival_date) ;
6827: oe_debug_pub.add( 'p_x_line_rec.schedule_ship_date' ||p_x_line_rec.schedule_ship_date) ;
6820: oe_debug_pub.add( 'p_old_line_rec.ship_from_org_id' ||p_old_line_rec.ship_from_org_id) ;
6821: oe_debug_pub.add( 'p_x_line_rec.ship_from_org_id' ||p_x_line_rec.ship_from_org_id) ;
6822: oe_debug_pub.add( 'p_old_line_rec.ship_set_id' ||p_old_line_rec.ship_set_id) ;
6823: oe_debug_pub.add( 'p_x_line_rec.ship_set_id' ||p_x_line_rec.ship_set_id) ;
6824: oe_debug_pub.add( 'p_x_line_rec.ship_set' ||p_x_line_rec.ship_set) ;
6825: oe_debug_pub.add( 'p_x_line_rec.arrival_set_id' ||p_x_line_rec.arrival_set_id) ;
6826: oe_debug_pub.add( 'p_x_line_rec.schedule_arrival_date' ||p_x_line_rec.schedule_arrival_date) ;
6827: oe_debug_pub.add( 'p_x_line_rec.schedule_ship_date' ||p_x_line_rec.schedule_ship_date) ;
6828:
6821: oe_debug_pub.add( 'p_x_line_rec.ship_from_org_id' ||p_x_line_rec.ship_from_org_id) ;
6822: oe_debug_pub.add( 'p_old_line_rec.ship_set_id' ||p_old_line_rec.ship_set_id) ;
6823: oe_debug_pub.add( 'p_x_line_rec.ship_set_id' ||p_x_line_rec.ship_set_id) ;
6824: oe_debug_pub.add( 'p_x_line_rec.ship_set' ||p_x_line_rec.ship_set) ;
6825: oe_debug_pub.add( 'p_x_line_rec.arrival_set_id' ||p_x_line_rec.arrival_set_id) ;
6826: oe_debug_pub.add( 'p_x_line_rec.schedule_arrival_date' ||p_x_line_rec.schedule_arrival_date) ;
6827: oe_debug_pub.add( 'p_x_line_rec.schedule_ship_date' ||p_x_line_rec.schedule_ship_date) ;
6828:
6829: END IF;
6822: oe_debug_pub.add( 'p_old_line_rec.ship_set_id' ||p_old_line_rec.ship_set_id) ;
6823: oe_debug_pub.add( 'p_x_line_rec.ship_set_id' ||p_x_line_rec.ship_set_id) ;
6824: oe_debug_pub.add( 'p_x_line_rec.ship_set' ||p_x_line_rec.ship_set) ;
6825: oe_debug_pub.add( 'p_x_line_rec.arrival_set_id' ||p_x_line_rec.arrival_set_id) ;
6826: oe_debug_pub.add( 'p_x_line_rec.schedule_arrival_date' ||p_x_line_rec.schedule_arrival_date) ;
6827: oe_debug_pub.add( 'p_x_line_rec.schedule_ship_date' ||p_x_line_rec.schedule_ship_date) ;
6828:
6829: END IF;
6830: --12866052
6823: oe_debug_pub.add( 'p_x_line_rec.ship_set_id' ||p_x_line_rec.ship_set_id) ;
6824: oe_debug_pub.add( 'p_x_line_rec.ship_set' ||p_x_line_rec.ship_set) ;
6825: oe_debug_pub.add( 'p_x_line_rec.arrival_set_id' ||p_x_line_rec.arrival_set_id) ;
6826: oe_debug_pub.add( 'p_x_line_rec.schedule_arrival_date' ||p_x_line_rec.schedule_arrival_date) ;
6827: oe_debug_pub.add( 'p_x_line_rec.schedule_ship_date' ||p_x_line_rec.schedule_ship_date) ;
6828:
6829: END IF;
6830: --12866052
6831: l_set_ship_from_org_id := p_x_line_rec.ship_from_org_id;
6885: RAISE FND_API.G_EXC_ERROR;
6886: END IF ; */
6887:
6888: IF l_debug_level > 0 THEN
6889: oe_debug_pub.add( ' BEFORE SET EXISTS ' , 1 ) ;
6890: END IF;
6891: IF (p_x_line_rec.ship_set_id IS NOT NULL
6892: AND p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM) THEN
6893:
7106: END IF ; -- autoschedule sets.
7107: -- end 4241385
7108: IF l_create_set = 'Y' THEN
7109: IF l_debug_level > 0 THEN
7110: oe_debug_pub.add( ' BEFORE CREATING SET ' , 1 ) ;
7111: END IF;
7112: --12866052: Added Ship_to_org,SSD and SAD parameters
7113: Create_Set
7114: (p_Set_Name => l_set_name,
7136: -- Populate set id on the line record accordingly
7137: IF l_set_type = 'ARRIVAL_SET' THEN
7138: p_x_line_rec.arrival_set_id := l_set_id;
7139: IF l_debug_level > 0 THEN
7140: oe_debug_pub.add( 'ARRIVAL SET ID IS '|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
7141: END IF;
7142: ELSIF l_set_type = 'SHIP_SET' THEN
7143: p_x_line_rec.ship_set_id := l_set_id;
7144: IF l_debug_level > 0 THEN
7141: END IF;
7142: ELSIF l_set_type = 'SHIP_SET' THEN
7143: p_x_line_rec.ship_set_id := l_set_id;
7144: IF l_debug_level > 0 THEN
7145: oe_debug_pub.add( 'SHIP SET ID IS '|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
7146: END IF;
7147: END IF;
7148:
7149: END IF ; -- Create Set is Y
7153: /* Update set id on the children of the top model */
7154:
7155: /*Changes for bug 6719457 start*/
7156: IF l_debug_level > 0 THEN
7157: oe_debug_pub.add( 'Cascade flag is yes',1);
7158: END IF;
7159: IF l_set_type = 'ARRIVAL_SET' THEN
7160: begin
7161: select ol.arrival_set_id
7167: exception
7168: when no_data_found then
7169: null;
7170: IF l_debug_level > 0 THEN
7171: oe_debug_pub.add('old arrival set does not exist');
7172: END IF;
7173: end;
7174: ELSIF l_set_type='SHIP_SET' THEN
7175: begin
7182: exception
7183: when no_data_found then
7184: null;
7185: IF l_debug_level > 0 THEN
7186: oe_debug_pub.add('old Ship set does not exist');
7187: END IF;
7188: end;
7189: END IF;
7190: IF l_debug_level > 0 THEN
7187: END IF;
7188: end;
7189: END IF;
7190: IF l_debug_level > 0 THEN
7191: oe_debug_pub.add( 'After selecting, old set id is:'||l_old_set_id,1);
7192: END IF;
7193: /*Changes for bug 6719457 End*/
7194:
7195: Begin
7227:
7228: l_entity_type := OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET;
7229:
7230: IF l_debug_level > 0 THEN
7231: oe_debug_pub.add( 'new arrival set id id'||i.arrival_set_id);
7232: END IF;
7233:
7234: IF OE_Delayed_Requests_PVT.Check_for_Request
7235: ( p_entity_code =>OE_GLOBALS.G_ENTITY_ALL
7270:
7271: l_entity_type := OE_SCHEDULE_UTIL.OESCH_ENTITY_SHIP_SET;
7272:
7273: IF l_debug_level > 0 THEN
7274: oe_debug_pub.add( 'new ship set id id'||i.ship_set_id);
7275: END IF;
7276:
7277: IF OE_Delayed_Requests_PVT.Check_for_Request
7278: ( p_entity_code =>OE_GLOBALS.G_ENTITY_ALL
7307: );
7308: END IF;
7309: END IF;
7310: IF l_debug_level > 0 THEN
7311: oe_debug_pub.add( 'After loggin the group_schedule request for line '||i.line_id,1);
7312: END IF;
7313: END LOOP;
7314:
7315: /*Changes for bug 6719457 End*/
7319: Loop
7320: IF optionrec.shipping_interfaced_flag = 'Y' THEN
7321:
7322: IF l_debug_level > 0 THEN
7323: oe_debug_pub.add( 'UPDATE SHIPPING : CHILDREN OF MODEL FOR SETS ' || TO_CHAR ( OPTIONREC.LINE_ID ) , 1 ) ;
7324: END IF;
7325:
7326: OE_Delayed_Requests_Pvt.Log_Request(
7327: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
7376: p_old_line_rec.arrival_Set_id) THEN
7377:
7378:
7379: IF l_debug_level > 0 THEN
7380: oe_debug_pub.add( 'SHIP SET NAME-' || P_X_LINE_REC.SHIP_SET ) ;
7381: END IF;
7382: IF l_debug_level > 0 THEN
7383: oe_debug_pub.add( 'OLD SHIP SET NAME-' || P_OLD_LINE_REC.SHIP_SET ) ;
7384: END IF;
7379: IF l_debug_level > 0 THEN
7380: oe_debug_pub.add( 'SHIP SET NAME-' || P_X_LINE_REC.SHIP_SET ) ;
7381: END IF;
7382: IF l_debug_level > 0 THEN
7383: oe_debug_pub.add( 'OLD SHIP SET NAME-' || P_OLD_LINE_REC.SHIP_SET ) ;
7384: END IF;
7385: IF l_debug_level > 0 THEN
7386: oe_debug_pub.add( 'SHIP SET-' || P_X_LINE_REC.SHIP_SET_ID ) ;
7387: END IF;
7382: IF l_debug_level > 0 THEN
7383: oe_debug_pub.add( 'OLD SHIP SET NAME-' || P_OLD_LINE_REC.SHIP_SET ) ;
7384: END IF;
7385: IF l_debug_level > 0 THEN
7386: oe_debug_pub.add( 'SHIP SET-' || P_X_LINE_REC.SHIP_SET_ID ) ;
7387: END IF;
7388: IF l_debug_level > 0 THEN
7389: oe_debug_pub.add( 'OLD SHIP SET-' || P_OLD_LINE_REC.SHIP_SET_ID ) ;
7390: END IF;
7385: IF l_debug_level > 0 THEN
7386: oe_debug_pub.add( 'SHIP SET-' || P_X_LINE_REC.SHIP_SET_ID ) ;
7387: END IF;
7388: IF l_debug_level > 0 THEN
7389: oe_debug_pub.add( 'OLD SHIP SET-' || P_OLD_LINE_REC.SHIP_SET_ID ) ;
7390: END IF;
7391: IF l_debug_level > 0 THEN
7392: oe_debug_pub.add( 'ARRIVAL SET-' || P_X_LINE_REC.ARRIVAL_SET_ID ) ;
7393: END IF;
7388: IF l_debug_level > 0 THEN
7389: oe_debug_pub.add( 'OLD SHIP SET-' || P_OLD_LINE_REC.SHIP_SET_ID ) ;
7390: END IF;
7391: IF l_debug_level > 0 THEN
7392: oe_debug_pub.add( 'ARRIVAL SET-' || P_X_LINE_REC.ARRIVAL_SET_ID ) ;
7393: END IF;
7394: IF l_debug_level > 0 THEN
7395: oe_debug_pub.add( 'ARRIVAL SHIP SET-' || P_OLD_LINE_REC.ARRIVAL_SET_ID ) ;
7396: END IF;
7391: IF l_debug_level > 0 THEN
7392: oe_debug_pub.add( 'ARRIVAL SET-' || P_X_LINE_REC.ARRIVAL_SET_ID ) ;
7393: END IF;
7394: IF l_debug_level > 0 THEN
7395: oe_debug_pub.add( 'ARRIVAL SHIP SET-' || P_OLD_LINE_REC.ARRIVAL_SET_ID ) ;
7396: END IF;
7397: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SET_OPR');
7398: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE', p_x_line_rec.item_type_code);
7399: OE_MSG_PUB.ADD;
7397: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SET_OPR');
7398: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE', p_x_line_rec.item_type_code);
7399: OE_MSG_PUB.ADD;
7400: IF l_debug_level > 0 THEN
7401: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
7402: END IF;
7403: RAISE FND_API.G_EXC_ERROR;
7404: END IF;
7405:
7408: END IF; -- If not EXTERNAL
7409: << NO_PROCESS >>
7410: NULL;
7411: IF l_debug_level > 0 THEN
7412: oe_debug_pub.add( 'SHIP SET ID IS '|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
7413: END IF;
7414: IF l_debug_level > 0 THEN
7415: oe_debug_pub.add( 'ARRIVAL SET ID IS '|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
7416: END IF;
7411: IF l_debug_level > 0 THEN
7412: oe_debug_pub.add( 'SHIP SET ID IS '|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
7413: END IF;
7414: IF l_debug_level > 0 THEN
7415: oe_debug_pub.add( 'ARRIVAL SET ID IS '|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
7416: END IF;
7417:
7418:
7419: OE_DEBUG_PUB.Add('Automatic Fulfillment Set:'||p_x_line_rec.fulfillment_set);
7415: oe_debug_pub.add( 'ARRIVAL SET ID IS '|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
7416: END IF;
7417:
7418:
7419: OE_DEBUG_PUB.Add('Automatic Fulfillment Set:'||p_x_line_rec.fulfillment_set);
7420:
7421: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
7422:
7423: OE_Order_Cache.Load_Order_Header(p_x_line_rec.header_id);
7424:
7425: IF OE_ORDER_CACHE.g_header_rec.default_fulfillment_set = 'Y' THEN
7426:
7427: IF l_debug_level > 0 THEN
7428: OE_DEBUG_PUB.Add('Default Fulfillment set to YES!!!',1 ) ;
7429: END IF;
7430:
7431: l_set_pref_type := 'FULFILLMENT_SET';
7432:
7436: FETCH C6 INTO l_fulfillment_set;
7437: CLOSE C6;
7438:
7439: IF l_debug_level > 0 THEN
7440: OE_DEBUG_PUB.Add('After Checking System Set:'||l_fulfillment_set) ;
7441: END IF;
7442:
7443: l_x_line_rec := p_x_line_rec;
7444:
7449: OPEN C1;
7450: FETCH C1 INTO lsettempname;
7451: CLOSE C1;
7452:
7453: OE_DEBUG_PUB.Add('Temp Set Name:'||lsettempname);
7454:
7455: IF lsettempname IS NULL THEN
7456: lsettempname := 1;
7457:
7479:
7480: END IF;
7481:
7482: IF l_debug_level > 0 THEN
7483: OE_DEBUG_PUB.Add('Auto Fulfillment Set:'||p_x_line_rec.fulfillment_set);
7484: OE_DEBUG_PUB.Add('Item Type:'||p_x_line_rec.item_type_code);
7485: OE_DEBUG_PUB.Add('Service Reference:'||p_x_line_rec.service_reference_line_id);
7486: END IF;
7487:
7480: END IF;
7481:
7482: IF l_debug_level > 0 THEN
7483: OE_DEBUG_PUB.Add('Auto Fulfillment Set:'||p_x_line_rec.fulfillment_set);
7484: OE_DEBUG_PUB.Add('Item Type:'||p_x_line_rec.item_type_code);
7485: OE_DEBUG_PUB.Add('Service Reference:'||p_x_line_rec.service_reference_line_id);
7486: END IF;
7487:
7488: IF p_x_line_rec.fulfillment_set IS NULL THEN
7481:
7482: IF l_debug_level > 0 THEN
7483: OE_DEBUG_PUB.Add('Auto Fulfillment Set:'||p_x_line_rec.fulfillment_set);
7484: OE_DEBUG_PUB.Add('Item Type:'||p_x_line_rec.item_type_code);
7485: OE_DEBUG_PUB.Add('Service Reference:'||p_x_line_rec.service_reference_line_id);
7486: END IF;
7487:
7488: IF p_x_line_rec.fulfillment_set IS NULL THEN
7489: p_x_line_rec.fulfillment_set := l_x_line_rec.fulfillment_set;
7505: END IF;
7506:
7507: END IF;
7508:
7509: OE_DEBUG_PUB.Add('Before User Defined Ful Set:'||p_x_line_rec.item_type_code);
7510:
7511: IF p_x_line_rec.fulfillment_set is NOT NULL AND
7512: (p_x_line_rec.item_type_code <> 'SERVICE') OR
7513: (p_x_line_rec.item_type_code = 'SERVICE' AND
7524: END IF; -- g old arrival set path
7525:
7526:
7527: IF l_debug_level > 0 THEN
7528: oe_debug_pub.add( 'EXIT PROCEDURE DEFAULT LINE SET' , 1 ) ;
7529: END IF;
7530:
7531:
7532: EXCEPTION
7566: x_msg_data varchar2(32000);
7567: x_msg_count number ;
7568: l_return_status varchar2(30);
7569: l_ful_exists varchar2(1) := 'N';
7570: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7571: -- 4925992
7572: l_top_model_line_id NUMBER;
7573: BEGIN
7574:
7571: -- 4925992
7572: l_top_model_line_id NUMBER;
7573: BEGIN
7574:
7575: OE_DEBUG_PUB.Add('Entering Validate Fulfillment Set');
7576:
7577: IF --p_x_line_rec.source_type_code <> 'EXTERNAL' AND --Bug #4537341
7578: p_x_line_rec.shipped_quantity IS NULL AND
7579: (p_x_line_rec.item_type_code = 'STANDARD' OR
7684: -- passed is a model line
7685:
7686: END IF;
7687:
7688: OE_DEBUG_PUB.Add('Exiting Validate Fulfillment Set');
7689:
7690: EXCEPTION
7691: WHEN OTHERS THEN
7692:
7713: IS
7714: l_dummy NUMBER;
7715:
7716: --
7717: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7718: --
7719: BEGIN
7720: IF l_debug_level > 0 THEN
7721: oe_debug_pub.add( 'ENTERING DELETE SET' , 3 ) ;
7717: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7718: --
7719: BEGIN
7720: IF l_debug_level > 0 THEN
7721: oe_debug_pub.add( 'ENTERING DELETE SET' , 3 ) ;
7722: oe_debug_pub.add( 'HEADER ID '||p_request_rec.param2 , 3 ) ;
7723: oe_debug_pub.add( 'SET TYPE'||p_request_rec.param3 , 3 ) ;
7724: oe_debug_pub.add( 'SET ID'||p_request_rec.param1 , 3 ) ;
7725: END IF;
7718: --
7719: BEGIN
7720: IF l_debug_level > 0 THEN
7721: oe_debug_pub.add( 'ENTERING DELETE SET' , 3 ) ;
7722: oe_debug_pub.add( 'HEADER ID '||p_request_rec.param2 , 3 ) ;
7723: oe_debug_pub.add( 'SET TYPE'||p_request_rec.param3 , 3 ) ;
7724: oe_debug_pub.add( 'SET ID'||p_request_rec.param1 , 3 ) ;
7725: END IF;
7726: x_return_status := FND_API.G_RET_STS_SUCCESS;
7719: BEGIN
7720: IF l_debug_level > 0 THEN
7721: oe_debug_pub.add( 'ENTERING DELETE SET' , 3 ) ;
7722: oe_debug_pub.add( 'HEADER ID '||p_request_rec.param2 , 3 ) ;
7723: oe_debug_pub.add( 'SET TYPE'||p_request_rec.param3 , 3 ) ;
7724: oe_debug_pub.add( 'SET ID'||p_request_rec.param1 , 3 ) ;
7725: END IF;
7726: x_return_status := FND_API.G_RET_STS_SUCCESS;
7727: BEGIN
7720: IF l_debug_level > 0 THEN
7721: oe_debug_pub.add( 'ENTERING DELETE SET' , 3 ) ;
7722: oe_debug_pub.add( 'HEADER ID '||p_request_rec.param2 , 3 ) ;
7723: oe_debug_pub.add( 'SET TYPE'||p_request_rec.param3 , 3 ) ;
7724: oe_debug_pub.add( 'SET ID'||p_request_rec.param1 , 3 ) ;
7725: END IF;
7726: x_return_status := FND_API.G_RET_STS_SUCCESS;
7727: BEGIN
7728: IF p_request_rec.param3 = oe_schedule_util.OESCH_ENTITY_SHIP_SET THEN
7733: AND ship_set_id =p_request_rec.param1
7734: AND ROWNUM =1;
7735:
7736: IF l_debug_level > 0 THEN
7737: oe_debug_pub.add( 'LINE EXISTS WITH THE SHIP SET' , 3 ) ;
7738: END IF;
7739: ELSIF p_request_rec.param3 = oe_schedule_util.OESCH_ENTITY_ARRIVAL_SET THEN
7740: SELECT 1
7741: INTO l_dummy
7744: AND arrival_set_id =p_request_rec.param1
7745: AND ROWNUM =1;
7746:
7747: IF l_debug_level > 0 THEN
7748: oe_debug_pub.add( 'LINE EXISTS WITH THE ARRIVAL SET' , 3 ) ;
7749: END IF;
7750: END IF;
7751: EXCEPTION
7752: WHEN NO_DATA_FOUND THEN
7750: END IF;
7751: EXCEPTION
7752: WHEN NO_DATA_FOUND THEN
7753: IF l_debug_level > 0 THEN
7754: oe_debug_pub.add( 'DELETING SET '||p_request_rec.param1 , 3 ) ;
7755: END IF;
7756:
7757: DELETE FROM OE_SETS
7758: WHERE set_id = p_request_rec.param1;
7759:
7760: WHEN OTHERS THEN
7761: NULL;
7762: IF l_debug_level > 0 THEN
7763: oe_debug_pub.add( 'IN OTHERS EXCEPTION OF DELETE SET ' , 3 ) ;
7764: END IF;
7765: END;
7766: IF l_debug_level > 0 THEN
7767: oe_debug_pub.add( 'EXITING DELETE SET' , 3 ) ;
7763: oe_debug_pub.add( 'IN OTHERS EXCEPTION OF DELETE SET ' , 3 ) ;
7764: END IF;
7765: END;
7766: IF l_debug_level > 0 THEN
7767: oe_debug_pub.add( 'EXITING DELETE SET' , 3 ) ;
7768: END IF;
7769: EXCEPTION
7770: WHEN FND_API.G_EXC_ERROR THEN
7771: x_return_status := FND_API.G_RET_STS_ERROR;
7806: RETURN BOOLEAN IS
7807: l_row_exists NUMBER;
7808: l_scheduling_Level_code VARCHAR2(30);
7809: l_line_type_id NUMBER;
7810: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7811: BEGIN
7812: IF l_debug_level > 0 THEN
7813: oe_debug_pub.add( 'ENTERING STAND_ALONE_SET_EXISTS '||p_ship_set_id, 1 ) ;
7814: END IF;
7809: l_line_type_id NUMBER;
7810: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7811: BEGIN
7812: IF l_debug_level > 0 THEN
7813: oe_debug_pub.add( 'ENTERING STAND_ALONE_SET_EXISTS '||p_ship_set_id, 1 ) ;
7814: END IF;
7815:
7816: IF p_ship_set_id IS NOT NULL THEN
7817: SELECT line_type_id INTO l_line_type_id