[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: IF p_line_rec.SERVICE_REFERENCE_TYPE_CODE <> 'ORDER'
226: THEN
274: line_id not in
275: (select line_id from oe_line_sets where
276: set_id = p_set_id );
277: --
278: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
279: --
280: BEGIN
281:
282: IF NOT Get_Fulfillment_Set(p_line_id => p_line_id,
282: IF NOT Get_Fulfillment_Set(p_line_id => p_line_id,
283: p_set_id => p_set_id) THEN
284:
285: IF l_debug_level > 0 THEN
286: oe_debug_pub.add( 'CREATE FULLFILLMENT SET' ) ;
287: END IF;
288:
289: l_set_rec := get_set_rec(p_set_id);
290: IF is_set_closed(p_set_id => p_set_id) THEN
321:
322:
323: END IF;
324: IF l_debug_level > 0 THEN
325: oe_debug_pub.add( 'EXIT - CREATE FULLFILLMENT SET' ) ;
326: END IF;
327:
328: EXCEPTION
329: WHEN FND_API.G_EXC_ERROR THEN
334: ( p_count => x_msg_count
335: , p_data => x_msg_data
336: );
337: IF l_debug_level > 0 THEN
338: oe_debug_pub.add( 'IN FULFILLMENT CREATE EXCEPTION ' , 1 ) ;
339: END IF;
340:
341: RAISE FND_API.G_EXC_ERROR;
342:
362: l_activity_result VARCHAR2(30);
363: l_activity_id NUMBER;
364: l_return_status VARCHAR2(1);
365: --
366: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
367: --
368: BEGIN
369: IF l_debug_level > 0 THEN
370: oe_debug_pub.add( 'ENTER OE_SET_UTIL.FULFILL_STS' , 5 ) ;
366: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
367: --
368: BEGIN
369: IF l_debug_level > 0 THEN
370: oe_debug_pub.add( 'ENTER OE_SET_UTIL.FULFILL_STS' , 5 ) ;
371: END IF;
372: OE_LINE_FULLFILL.Get_Activity_Result (
373: p_item_type => OE_GLOBALS.G_WFI_LIN
374: , p_item_key => to_char(p_line_id)
378: , x_activity_status_code => l_activity_status
379: , x_activity_id => l_activity_id);
380:
381: IF l_debug_level > 0 THEN
382: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 5 ) ;
383: END IF;
384:
385: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
390: ELSE
391: l_activity_status := 'ERROR';
392: END IF;
393: IF l_debug_level > 0 THEN
394: oe_debug_pub.add( 'EXIT OE_SET_UTIL.FULFILL_STS:'||L_ACTIVITY_STATUS , 5 ) ;
395: END IF;
396: RETURN l_activity_status;
397:
398: END Fulfill_Sts;
401: p_set_id NUMBER) IS
402: l_return_status varchar2(30);
403: -- l_line_rec oe_order_pub.line_rec_type; removed for 2525203
404: --
405: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
406: --
407: BEGIN
408:
409: IF Get_Fulfillment_Set(p_line_id => p_line_id,
409: IF Get_Fulfillment_Set(p_line_id => p_line_id,
410: p_set_id => p_set_id) THEN
411:
412: IF l_debug_level > 0 THEN
413: oe_debug_pub.add( 'DELETE FULLFILLMENT SET' ) ;
414: END IF;
415:
416: /* The next check is redundant and harmful if a child line is being deleted from
417: set. The check has already been done in process_sets(). Commented for 2525203.
454: and set_id = p_set_id;
455:
456: END IF;
457: IF l_debug_level > 0 THEN
458: oe_debug_pub.add( 'EXIT - DELETE FULLFILLMENT SET' ) ;
459: END IF;
460:
461: EXCEPTION
462: WHEN FND_API.G_EXC_ERROR THEN
480: FUNCTION Find_line(p_line_id IN NUMBER)
481: Return NUMBER
482: IS
483: --
484: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
485: --
486: BEGIN
487:
488: IF l_debug_level > 0 THEN
485: --
486: BEGIN
487:
488: IF l_debug_level > 0 THEN
489: oe_debug_pub.add( 'ENTERING FIND_LINE: ' || P_LINE_ID , 1 ) ;
490: END IF;
491:
492: FOR J IN 1..g_old_line_tbl.count LOOP
493:
493:
494: IF p_line_id = g_old_line_tbl(J).line_id THEN
495:
496: IF l_debug_level > 0 THEN
497: oe_debug_pub.add( ' LINE EXISTS IN THE TABLE' , 1 ) ;
498: END IF;
499:
500: RETURN J;
501: END IF;
535: l_count number;
536: l_perform_sch boolean := FALSE;
537: l_found NUMBER;
538: --
539: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
540: --
541: BEGIN
542:
543: FOR I in 1 .. g_set_opt_tbl.count
604: g_old_line_tbl.delete;
605: END IF;
606:
607: IF l_debug_level > 0 THEN
608: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' || L_LINE_TBL.COUNT , 1 ) ;
609: END IF;
610: IF l_debug_level > 0 THEN
611: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' || L_OLD_LINE_TBL.COUNT , 1 ) ;
612: END IF;
607: IF l_debug_level > 0 THEN
608: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' || L_LINE_TBL.COUNT , 1 ) ;
609: END IF;
610: IF l_debug_level > 0 THEN
611: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' || L_OLD_LINE_TBL.COUNT , 1 ) ;
612: END IF;
613: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
614: IF l_debug_level > 0 THEN
615: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
611: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' || L_OLD_LINE_TBL.COUNT , 1 ) ;
612: END IF;
613: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
614: IF l_debug_level > 0 THEN
615: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
616: END IF;
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
619: IF l_debug_level > 0 THEN
616: END IF;
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
619: IF l_debug_level > 0 THEN
620: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
621: END IF;
622: RAISE FND_API.G_EXC_ERROR;
623: END IF;
624:
630: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
631: g_set_recursive_flag := TRUE;
632:
633: IF l_debug_level > 0 THEN
634: oe_debug_pub.add( 'PROCESS OPTIONS- BEFORE CALLING PROCESS ORDER IN SETS' ) ;
635: END IF;
636:
637: FOR I in 1 .. l_line_tbl.count
638: Loop
636:
637: FOR I in 1 .. l_line_tbl.count
638: Loop
639: IF l_debug_level > 0 THEN
640: oe_debug_pub.add( 'SHIP_SET: ' || L_LINE_TBL ( I ) .SHIP_SET_ID ) ;
641: END IF;
642: IF l_debug_level > 0 THEN
643: oe_debug_pub.add( 'LINE_ID :' || L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
644: END IF;
639: IF l_debug_level > 0 THEN
640: oe_debug_pub.add( 'SHIP_SET: ' || L_LINE_TBL ( I ) .SHIP_SET_ID ) ;
641: END IF;
642: IF l_debug_level > 0 THEN
643: oe_debug_pub.add( 'LINE_ID :' || L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
644: END IF;
645: end loop;
646: IF l_line_tbl.count > 0 THEN
647:
674: jolin end */
675:
676: END IF;
677: IF l_debug_level > 0 THEN
678: oe_debug_pub.add( 'PROCESS OPTIONS- AFTER CALLING PROCESS ORDER IN SETS' ) ;
679: END IF;
680:
681: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
682: g_set_recursive_flag := FALSE;
730: l_return_status varchar2(1);
731: l_line_rec OE_ORDER_PUB.line_rec_type := p_line_rec;
732:
733: --
734: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
735: --
736: BEGIN
737: IF l_debug_level > 0 THEN
738: oe_debug_pub.add( 'ENTER GET OPTIONS' ) ;
734: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
735: --
736: BEGIN
737: IF l_debug_level > 0 THEN
738: oe_debug_pub.add( 'ENTER GET OPTIONS' ) ;
739: END IF;
740: IF l_debug_level > 0 THEN
741: oe_debug_pub.add( 'ENTER COUNT GET OPTIONS'|| P_X_LINE_TBL.COUNT ) ;
742: END IF;
737: IF l_debug_level > 0 THEN
738: oe_debug_pub.add( 'ENTER GET OPTIONS' ) ;
739: END IF;
740: IF l_debug_level > 0 THEN
741: oe_debug_pub.add( 'ENTER COUNT GET OPTIONS'|| P_X_LINE_TBL.COUNT ) ;
742: END IF;
743: IF p_x_line_tbl.count = 0 THEN
744: l_line_id := p_line_id;
745: else
753:
754: FOR Optionrec IN Optiontbl
755: Loop
756: IF l_debug_level > 0 THEN
757: oe_debug_pub.add( 'ENTER INTO OPTIONS' ) ;
758: END IF;
759:
760: lexist := FALSE;
761: IF g_process_options THEN
776:
777: g_old_line_tbl(g_old_line_tbl.count + 1) :=
778: p_x_line_tbl(l_count);
779: IF l_debug_level > 0 THEN
780: oe_debug_pub.add( 'ENTER INTO OPTIONS' || P_X_LINE_TBL ( L_COUNT ) .ITEM_TYPE_CODE ) ;
781: END IF;
782:
783: IF p_set_type = 'SHIP_SET' THEN
784: IF l_debug_level > 0 THEN
781: END IF;
782:
783: IF p_set_type = 'SHIP_SET' THEN
784: IF l_debug_level > 0 THEN
785: oe_debug_pub.add( 'IN SHIP SET:' ) ;
786: END IF;
787: p_x_line_tbl(l_count).ship_from_org_id
788: := l_line_rec.ship_from_org_id;
789: p_x_line_tbl(l_count).ship_to_org_id
811: END IF; -- if not exists
812: End Loop;
813:
814: IF l_debug_level > 0 THEN
815: oe_debug_pub.add( 'COUNT GET OPTIONS'|| P_X_LINE_TBL.COUNT ) ;
816: END IF;
817: IF l_debug_level > 0 THEN
818: oe_debug_pub.add( 'EXIT GET OPTIONS' ) ;
819: END IF;
814: IF l_debug_level > 0 THEN
815: oe_debug_pub.add( 'COUNT GET OPTIONS'|| P_X_LINE_TBL.COUNT ) ;
816: END IF;
817: IF l_debug_level > 0 THEN
818: oe_debug_pub.add( 'EXIT GET OPTIONS' ) ;
819: END IF;
820:
821: EXCEPTION
822: WHEN FND_API.G_EXC_ERROR THEN
952: l_x_arrival_set_id number;
953:
954:
955: --
956: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
957: --
958: Begin
959: IF l_debug_level > 0 THEN
960: oe_debug_pub.add( 'INSERT_INTO ARRIVAL SETSS' , 1 ) ;
956: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
957: --
958: Begin
959: IF l_debug_level > 0 THEN
960: oe_debug_pub.add( 'INSERT_INTO ARRIVAL SETSS' , 1 ) ;
961: END IF;
962: g_old_arrival_set_path := TRUE;
963:
964: IF p_set_request_tbl.count > 0 THEN
963:
964: IF p_set_request_tbl.count > 0 THEN
965: --g_cust_pref_set := TRUE;
966: IF l_debug_level > 0 THEN
967: oe_debug_pub.add( 'PROCESS REQUEST RECORD ' , 1 ) ;
968: END IF;
969:
970: l_header_id := p_set_request_tbl(1).entity_id;
971: oe_header_util.query_row(p_header_id => l_header_id,
984: Begin
985: l_temp_line_tbl.delete;
986: g_old_line_tbl.delete;
987: IF l_debug_level > 0 THEN
988: oe_debug_pub.add( 'ENTER INTO AUTO SET TABLE LOOP ' , 1 ) ;
989: END IF;
990: oe_line_util.query_row(p_line_id => g_auto_set_tbl(I).line_id,
991: x_line_rec => l_line_rec);
992: IF (l_line_rec.split_from_line_id is not null) THEN
990: oe_line_util.query_row(p_line_id => g_auto_set_tbl(I).line_id,
991: x_line_rec => l_line_rec);
992: IF (l_line_rec.split_from_line_id is not null) THEN
993: IF l_debug_level > 0 THEN
994: oe_debug_pub.add( 'INVALID ITEM SPLIT'||L_LINE_REC.LINE_ID ) ;
995: END IF;
996: RAISE NO_DATA_FOUND;
997: END IF;
998: IF l_line_rec.line_category_code = 'RETURN' OR
1004: g_old_line_tbl(g_old_line_tbl.count +1 ) :=
1005: l_temp_line_tbl(1);
1006:
1007: IF l_debug_level > 0 THEN
1008: oe_debug_pub.add( 'ITEM TYPE CODE IS: '||L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
1009: END IF;
1010: IF l_debug_level > 0 THEN
1011: oe_debug_pub.add( 'SHIP FROM : '||L_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1012: END IF;
1007: IF l_debug_level > 0 THEN
1008: oe_debug_pub.add( 'ITEM TYPE CODE IS: '||L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
1009: END IF;
1010: IF l_debug_level > 0 THEN
1011: oe_debug_pub.add( 'SHIP FROM : '||L_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
1012: END IF;
1013: IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL
1014: OR l_line_rec.item_type_code = 'KIT' THEN
1015: l_model_exists := TRUE;
1055: l_ship_from_org_id IS NOT NULL AND
1056: l_ship_to_org_id IS NOT NULL */
1057: THEN
1058: IF l_debug_level > 0 THEN
1059: oe_debug_pub.add( 'INTO SHIP SET' , 1 ) ;
1060: END IF;
1061: l_temp_line_tbl(1).schedule_ship_date := l_schedule_ship_date;
1062: l_temp_line_tbl(1).ship_from_org_id := l_ship_from_org_id;
1063: l_temp_line_tbl(1).ship_to_org_id := l_ship_to_org_id;
1074: END IF;
1075: END IF;
1076: -- IF l_line_rec.schedule_status_code IS NULL THEN
1077: IF l_debug_level > 0 THEN
1078: oe_debug_pub.add( 'COUNT OF TEMP TABLE' || L_TEMP_LINE_TBL.COUNT , 1 ) ;
1079: END IF;
1080: IF l_debug_level > 0 THEN
1081: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1082: END IF;
1077: IF l_debug_level > 0 THEN
1078: oe_debug_pub.add( 'COUNT OF TEMP TABLE' || L_TEMP_LINE_TBL.COUNT , 1 ) ;
1079: END IF;
1080: IF l_debug_level > 0 THEN
1081: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1082: END IF;
1083: IF l_debug_level > 0 THEN
1084: oe_debug_pub.add( 'SHIP SET' || L_TEMP_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
1085: END IF;
1080: IF l_debug_level > 0 THEN
1081: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1082: END IF;
1083: IF l_debug_level > 0 THEN
1084: oe_debug_pub.add( 'SHIP SET' || L_TEMP_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
1085: END IF;
1086: FOR J in 1..l_temp_line_tbl.count
1087: LOOP
1088: l_temp_line_tbl(J).schedule_action_code :=
1089: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE;
1090: l_sch_count := l_sch_count + 1;
1091: l_sch_line_tbl(l_sch_count) := l_temp_line_tbl(J);
1092: IF l_debug_level > 0 THEN
1093: oe_debug_pub.add( 'COUNT OF TEMP TABLE' || L_TEMP_LINE_TBL.COUNT , 1 ) ;
1094: END IF;
1095: IF l_debug_level > 0 THEN
1096: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1097: END IF;
1092: IF l_debug_level > 0 THEN
1093: oe_debug_pub.add( 'COUNT OF TEMP TABLE' || L_TEMP_LINE_TBL.COUNT , 1 ) ;
1094: END IF;
1095: IF l_debug_level > 0 THEN
1096: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1097: END IF;
1098: IF l_debug_level > 0 THEN
1099: oe_debug_pub.add( 'SHIP SET' || L_TEMP_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
1100: END IF;
1095: IF l_debug_level > 0 THEN
1096: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1097: END IF;
1098: IF l_debug_level > 0 THEN
1099: oe_debug_pub.add( 'SHIP SET' || L_TEMP_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
1100: END IF;
1101: l_model_exists := false;
1102: IF l_temp_line_tbl(J).item_type_code = 'INCLUDED' OR
1103: l_temp_line_tbl(J).item_type_code = 'OPTION' OR
1111: exit;
1112: END IF;
1113: END LOOP;
1114: IF l_debug_level > 0 THEN
1115: oe_debug_pub.add( 'COUNT OF TEMP TABLE' || L_TEMP_LINE_TBL.COUNT , 1 ) ;
1116: END IF;
1117: IF l_debug_level > 0 THEN
1118: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1119: END IF;
1114: IF l_debug_level > 0 THEN
1115: oe_debug_pub.add( 'COUNT OF TEMP TABLE' || L_TEMP_LINE_TBL.COUNT , 1 ) ;
1116: END IF;
1117: IF l_debug_level > 0 THEN
1118: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1119: END IF;
1120: IF l_debug_level > 0 THEN
1121: oe_debug_pub.add( 'SHIP SET' || L_TEMP_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
1122: END IF;
1117: IF l_debug_level > 0 THEN
1118: oe_debug_pub.add( 'ITEM TYPE CODE' || L_TEMP_LINE_TBL ( 1 ) .ITEM_TYPE_CODE , 1 ) ;
1119: END IF;
1120: IF l_debug_level > 0 THEN
1121: oe_debug_pub.add( 'SHIP SET' || L_TEMP_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
1122: END IF;
1123: if not l_model_exists then
1124: oe_line_util.query_row(p_line_id => l_temp_line_tbl(J).top_model_line_id,
1125: x_line_rec => l_model_line_rec);
1139: END LOOP;
1140:
1141: -- Call scheduling
1142: IF l_debug_level > 0 THEN
1143: oe_debug_pub.add( 'BEFORE CALLING SCHEDULING ' , 1 ) ;
1144: END IF;
1145: IF l_debug_level > 0 THEN
1146: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.COUNT , 1 ) ;
1147: END IF;
1142: IF l_debug_level > 0 THEN
1143: oe_debug_pub.add( 'BEFORE CALLING SCHEDULING ' , 1 ) ;
1144: END IF;
1145: IF l_debug_level > 0 THEN
1146: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.COUNT , 1 ) ;
1147: END IF;
1148: IF l_debug_level > 0 THEN
1149: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.LAST , 1 ) ;
1150: END IF;
1145: IF l_debug_level > 0 THEN
1146: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.COUNT , 1 ) ;
1147: END IF;
1148: IF l_debug_level > 0 THEN
1149: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.LAST , 1 ) ;
1150: END IF;
1151: IF l_debug_level > 0 THEN
1152: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
1153: END IF;
1148: IF l_debug_level > 0 THEN
1149: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.LAST , 1 ) ;
1150: END IF;
1151: IF l_debug_level > 0 THEN
1152: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
1153: END IF;
1154: IF l_debug_level > 0 THEN
1155: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.LAST , 1 ) ;
1156: END IF;
1151: IF l_debug_level > 0 THEN
1152: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
1153: END IF;
1154: IF l_debug_level > 0 THEN
1155: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.LAST , 1 ) ;
1156: END IF;
1157: IF l_debug_level > 0 THEN
1158: oe_debug_pub.add( 'SHIP FROM : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1159: END IF;
1154: IF l_debug_level > 0 THEN
1155: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.LAST , 1 ) ;
1156: END IF;
1157: IF l_debug_level > 0 THEN
1158: oe_debug_pub.add( 'SHIP FROM : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1159: END IF;
1160: IF l_debug_level > 0 THEN
1161: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1162: END IF;
1157: IF l_debug_level > 0 THEN
1158: oe_debug_pub.add( 'SHIP FROM : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1159: END IF;
1160: IF l_debug_level > 0 THEN
1161: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1162: END IF;
1163: IF l_debug_level > 0 THEN
1164: oe_debug_pub.add( 'SHIP TO : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1165: END IF;
1160: IF l_debug_level > 0 THEN
1161: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1162: END IF;
1163: IF l_debug_level > 0 THEN
1164: oe_debug_pub.add( 'SHIP TO : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1165: END IF;
1166: IF l_debug_level > 0 THEN
1167: oe_debug_pub.add( 'SHIP FROM : '||L_SCH_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1168: END IF;
1163: IF l_debug_level > 0 THEN
1164: oe_debug_pub.add( 'SHIP TO : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1165: END IF;
1166: IF l_debug_level > 0 THEN
1167: oe_debug_pub.add( 'SHIP FROM : '||L_SCH_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1168: END IF;
1169: IF l_debug_level > 0 THEN
1170: oe_debug_pub.add( 'LINE : '||L_SCH_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1171: END IF;
1166: IF l_debug_level > 0 THEN
1167: oe_debug_pub.add( 'SHIP FROM : '||L_SCH_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1168: END IF;
1169: IF l_debug_level > 0 THEN
1170: oe_debug_pub.add( 'LINE : '||L_SCH_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1171: END IF;
1172: IF l_debug_level > 0 THEN
1173: oe_debug_pub.add( 'SHIP TO : '||L_SCH_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1174: END IF;
1169: IF l_debug_level > 0 THEN
1170: oe_debug_pub.add( 'LINE : '||L_SCH_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1171: END IF;
1172: IF l_debug_level > 0 THEN
1173: oe_debug_pub.add( 'SHIP TO : '||L_SCH_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1174: END IF;
1175: IF l_debug_level > 0 THEN
1176: oe_debug_pub.add( 'SHIP FROM : '||G_OLD_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1177: END IF;
1172: IF l_debug_level > 0 THEN
1173: oe_debug_pub.add( 'SHIP TO : '||L_SCH_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1174: END IF;
1175: IF l_debug_level > 0 THEN
1176: oe_debug_pub.add( 'SHIP FROM : '||G_OLD_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1177: END IF;
1178: IF l_debug_level > 0 THEN
1179: oe_debug_pub.add( 'LINE : '||G_OLD_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1180: END IF;
1175: IF l_debug_level > 0 THEN
1176: oe_debug_pub.add( 'SHIP FROM : '||G_OLD_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1177: END IF;
1178: IF l_debug_level > 0 THEN
1179: oe_debug_pub.add( 'LINE : '||G_OLD_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1180: END IF;
1181: IF l_debug_level > 0 THEN
1182: oe_debug_pub.add( 'SHIP TO : '||G_OLD_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1183: END IF;
1178: IF l_debug_level > 0 THEN
1179: oe_debug_pub.add( 'LINE : '||G_OLD_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1180: END IF;
1181: IF l_debug_level > 0 THEN
1182: oe_debug_pub.add( 'SHIP TO : '||G_OLD_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1183: END IF;
1184: IF l_debug_level > 0 THEN
1185: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
1186: END IF;
1181: IF l_debug_level > 0 THEN
1182: oe_debug_pub.add( 'SHIP TO : '||G_OLD_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1183: END IF;
1184: IF l_debug_level > 0 THEN
1185: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
1186: END IF;
1187: IF l_debug_level > 0 THEN
1188: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.COUNT , 1 ) ;
1189: END IF;
1184: IF l_debug_level > 0 THEN
1185: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
1186: END IF;
1187: IF l_debug_level > 0 THEN
1188: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||G_OLD_LINE_TBL.COUNT , 1 ) ;
1189: END IF;
1190: IF l_perform_sch and l_sch_line_tbl.count > 0 THEN
1191: OE_GRP_SCH_UTIL.Schedule_set_of_lines
1192: (p_x_line_tbl => l_sch_line_tbl,
1197: l_perform_sch := TRUE;
1198:
1199: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1200: IF l_debug_level > 0 THEN
1201: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
1202: END IF;
1203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1204: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1205: IF l_debug_level > 0 THEN
1202: END IF;
1203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1204: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1205: IF l_debug_level > 0 THEN
1206: oe_debug_pub.add( ' EXPECTED ERROR ' , 1 ) ;
1207: END IF;
1208: l_sch_line_tbl.delete;
1209: l_sch_count := 0;
1210: goto END_2;
1212: -- RAISE FND_API.G_EXC_ERROR;
1213: END IF;
1214: -- END IF; -- Schedule Action Code
1215: IF l_debug_level > 0 THEN
1216: oe_debug_pub.add( 'AFTER CALLIN SCHEDULING ' , 1 ) ;
1217: END IF;
1218: IF l_sch_line_tbl.count > 0 THEN
1219: l_temp_line_tbl.delete;
1220: --END IF;
1236: Fetch shipset into l_set_id;
1237: Close shipset;
1238: ELSIF l_set_type = 'ARRIVAL_SET' THEN
1239: IF l_debug_level > 0 THEN
1240: oe_debug_pub.add( 'SHIP FROM : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1241: END IF;
1242: IF l_debug_level > 0 THEN
1243: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1244: END IF;
1239: IF l_debug_level > 0 THEN
1240: oe_debug_pub.add( 'SHIP FROM : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1241: END IF;
1242: IF l_debug_level > 0 THEN
1243: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1244: END IF;
1245: IF l_debug_level > 0 THEN
1246: oe_debug_pub.add( 'SHIP TO : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1247: END IF;
1242: IF l_debug_level > 0 THEN
1243: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1244: END IF;
1245: IF l_debug_level > 0 THEN
1246: oe_debug_pub.add( 'SHIP TO : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1247: END IF;
1248: Open arrivalset;
1249: Fetch arrivalset into l_set_id;
1250: Close arrivalset;
1251: END IF;
1252:
1253: IF l_set_id IS NULL THEN
1254: IF l_debug_level > 0 THEN
1255: oe_debug_pub.add( 'SHIP FROM : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1256: END IF;
1257: IF l_debug_level > 0 THEN
1258: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1259: END IF;
1254: IF l_debug_level > 0 THEN
1255: oe_debug_pub.add( 'SHIP FROM : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID , 1 ) ;
1256: END IF;
1257: IF l_debug_level > 0 THEN
1258: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1259: END IF;
1260: IF l_debug_level > 0 THEN
1261: oe_debug_pub.add( 'SHIP TO : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1262: END IF;
1257: IF l_debug_level > 0 THEN
1258: oe_debug_pub.add( 'LINE : '||L_TEMP_LINE_TBL ( 1 ) .LINE_ID , 1 ) ;
1259: END IF;
1260: IF l_debug_level > 0 THEN
1261: oe_debug_pub.add( 'SHIP TO : '||L_TEMP_LINE_TBL ( 1 ) .SHIP_TO_ORG_ID , 1 ) ;
1262: END IF;
1263: OPEN C1;
1264: FETCH C1 INTO lsettempname;
1265: CLOSE C1;
1280: ELSE
1281: lsettempname := lsettempname + 1;
1282: END IF;
1283: IF l_debug_level > 0 THEN
1284: oe_debug_pub.add( ' BEFORE CREATING SET ' , 1 ) ;
1285: END IF;
1286: Create_Set
1287: (p_Set_Name => to_char(lsettempname),
1288: p_Set_Type => l_set_type,
1306:
1307: END IF; -- if set id is null
1308:
1309: IF l_debug_level > 0 THEN
1310: oe_debug_pub.add( ' SET ID IS '|| L_SET_ID , 1 ) ;
1311: END IF;
1312:
1313: FOR K in 1..l_temp_line_tbl.count
1314: LOOP
1343: ( p_count => x_msg_count
1344: , p_data => x_msg_data
1345: );
1346: IF l_debug_level > 0 THEN
1347: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
1348: END IF;
1349: RAISE FND_API.G_EXC_ERROR;
1350:
1351: WHEN OTHERS THEN
1356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1357:
1358: /*x_return_status := FND_API.G_EXC_UNEXPECTED_ERROR ;
1359:
1360: OE_DEBUG_PUB.Add('In Inserinto exception ',1);
1361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;*/
1362:
1363: NULL;
1364:
1399: END IF;
1400:
1401:
1402: IF l_debug_level > 0 THEN
1403: oe_debug_pub.add( 'SHIP SET IS-'||L_LINE_TBL ( I ) .SHIP_SET_ID , 1 ) ;
1404: END IF;
1405: IF l_debug_level > 0 THEN
1406: oe_debug_pub.add( 'LINE -'||L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
1407: END IF;
1402: IF l_debug_level > 0 THEN
1403: oe_debug_pub.add( 'SHIP SET IS-'||L_LINE_TBL ( I ) .SHIP_SET_ID , 1 ) ;
1404: END IF;
1405: IF l_debug_level > 0 THEN
1406: oe_debug_pub.add( 'LINE -'||L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
1407: END IF;
1408: IF l_debug_level > 0 THEN
1409: oe_debug_pub.add( 'ITEM TYPE -'||L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
1410: END IF;
1405: IF l_debug_level > 0 THEN
1406: oe_debug_pub.add( 'LINE -'||L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
1407: END IF;
1408: IF l_debug_level > 0 THEN
1409: oe_debug_pub.add( 'ITEM TYPE -'||L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
1410: END IF;
1411: END LOOP;
1412:
1413: IF l_line_tbl.count > 0 THEN
1470:
1471: END IF;
1472: g_auto_set_tbl.delete;
1473: IF l_debug_level > 0 THEN
1474: oe_debug_pub.add( ' EXIT INSERT INTO SETS' , 1 ) ;
1475: END IF;
1476:
1477: <
1478: NULL;
1494: ( p_count => x_msg_count
1495: , p_data => x_msg_data
1496: );
1497: IF l_debug_level > 0 THEN
1498: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
1499: END IF;
1500: RAISE FND_API.G_EXC_ERROR;
1501:
1502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1576: l_Shipping_Method_Code VARCHAR2(30) ;
1577: l_Shipment_priority_code VARCHAR2(30);
1578: l_set_rec OE_ORDER_CACHE.set_rec_type;
1579: --
1580: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1581: --
1582: BEGIN
1583: SAVEPOINT New_Process_sets;
1584: x_return_status := FND_API.G_RET_STS_SUCCESS;
1585:
1586:
1587:
1588: IF l_debug_level > 0 THEN
1589: oe_debug_pub.add( 'PROCEDURE NEW PROCESS SETS' , 1 ) ;
1590: END IF;
1591:
1592: j := 1;
1593: initial := 1;
1593: initial := 1;
1594: --nextpos := INSTR(l_record_ids,',',1,j) ; --R12.MOAC
1595:
1596: IF l_debug_level > 0 THEN
1597: oe_debug_pub.add( 'SET NAME IS-' || P_SET_NAME , 1 ) ;
1598: END IF;
1599: IF l_debug_level > 0 THEN
1600: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
1601: END IF;
1596: IF l_debug_level > 0 THEN
1597: oe_debug_pub.add( 'SET NAME IS-' || P_SET_NAME , 1 ) ;
1598: END IF;
1599: IF l_debug_level > 0 THEN
1600: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
1601: END IF;
1602: if p_set_name is not null then
1603: IF l_debug_level > 0 THEN
1604: oe_debug_pub.add( 'SET TYPE IS-' || P_SET_TYPE , 1 ) ;
1600: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
1601: END IF;
1602: if p_set_name is not null then
1603: IF l_debug_level > 0 THEN
1604: oe_debug_pub.add( 'SET TYPE IS-' || P_SET_TYPE , 1 ) ;
1605: END IF;
1606: IF l_debug_level > 0 THEN
1607: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
1608: END IF;
1603: IF l_debug_level > 0 THEN
1604: oe_debug_pub.add( 'SET TYPE IS-' || P_SET_TYPE , 1 ) ;
1605: END IF;
1606: IF l_debug_level > 0 THEN
1607: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
1608: END IF;
1609:
1610: if p_set_type = 'ARRIVAL' THEN
1611: l_set_type := 'ARRIVAL_SET';
1626: END IF;
1627: END IF;
1628: if (p_operation = 'REMOVE' ) THEN
1629: IF l_debug_level > 0 THEN
1630: oe_debug_pub.add( 'INTO REMOVE' , 1 ) ;
1631: END IF;
1632: l_exists := TRUE;
1633: l_set_id := NULL;
1634: end if;
1694: l_line_tbl(I) := l_line_rec;
1695:
1696: --{ Bug 3692277 starts
1697: IF l_debug_level > 0 THEN
1698: OE_DEBUG_PUB.Add('RMC: Versioning with Reason');
1699: END IF;
1700: l_line_tbl(I).change_reason := 'SYSTEM';
1701: l_line_tbl(I).change_comments := 'Set Action';
1702: -- bug 3692277 ends }
1719: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE',
1720: -- l_line_tbl(I).item_type_code);
1721: OE_MSG_PUB.ADD;
1722: IF l_debug_level > 0 THEN
1723: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
1724: END IF;
1725: RAISE FND_API.G_EXC_ERROR;
1726: END IF;
1727:
1735:
1736: IF l_line_tbl(I).ship_set_id is not null or
1737: l_line_tbl(I).ship_set is not null THEN
1738: IF l_debug_level > 0 THEN
1739: oe_debug_pub.add( 'ship_set:' || l_line_tbl(I).ship_set,2 ) ;
1740: oe_debug_pub.add( 'ship_set_id:' || l_line_tbl(I).ship_set_id,2 ) ;
1741: END IF;
1742: /* Changed the message to fix the bug 2862565 */
1743: -- FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
1736: IF l_line_tbl(I).ship_set_id is not null or
1737: l_line_tbl(I).ship_set is not null THEN
1738: IF l_debug_level > 0 THEN
1739: oe_debug_pub.add( 'ship_set:' || l_line_tbl(I).ship_set,2 ) ;
1740: oe_debug_pub.add( 'ship_set_id:' || l_line_tbl(I).ship_set_id,2 ) ;
1741: END IF;
1742: /* Changed the message to fix the bug 2862565 */
1743: -- FND_MESSAGE.Set_Name('ONT', 'OE_INVALID_SET_COMB');
1744: FND_MESSAGE.Set_Name('ONT','OE_SCH_NOT_IN_SHIP_ARR');
1753: l_line_tbl(I).arrival_set_id := l_set_id ;
1754: END IF;
1755: ELSIF (p_operation = 'MOVE') THEN
1756: IF l_debug_level > 0 THEN
1757: oe_debug_pub.add( 'PROCEDURE PROCESS SETS'||TO_CHAR ( L_SET_ID ) , 1 ) ;
1758: END IF;
1759: IF l_set_id IS NOT NULL THEN
1760: l_line_tbl(I).arrival_set_id := l_set_id ;
1761: ELSE
1773: l_line_tbl(I).ship_set_id := l_set_id ;
1774: END IF;
1775: ELSIF (p_operation = 'MOVE') THEN
1776: IF l_debug_level > 0 THEN
1777: oe_debug_pub.add( 'PROCEDURE NEW PROCESS SETS'||TO_CHAR ( L_SET_ID ) , 1 ) ;
1778: END IF;
1779: IF l_set_id IS NOT NULL THEN
1780: l_line_tbl(I).ship_set_id := l_set_id ;
1781: ELSE
1850: ( p_count => x_msg_count
1851: , p_data => x_msg_data
1852: );
1853: IF l_debug_level > 0 THEN
1854: oe_debug_pub.add( 'BEFORE ROLLING BACK' , 1 ) ;
1855: END IF;
1856: ROLLBACK TO SAVEPOINT New_Process_sets;
1857: IF l_debug_level > 0 THEN
1858: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
1854: oe_debug_pub.add( 'BEFORE ROLLING BACK' , 1 ) ;
1855: END IF;
1856: ROLLBACK TO SAVEPOINT New_Process_sets;
1857: IF l_debug_level > 0 THEN
1858: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
1859: END IF;
1860:
1861: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1862:
1867: ( p_count => x_msg_count
1868: , p_data => x_msg_data
1869: );
1870: IF l_debug_level > 0 THEN
1871: oe_debug_pub.add( 'BEFORE ROLLING BACK' , 1 ) ;
1872: END IF;
1873:
1874: ROLLBACK TO SAVEPOINT New_Process_sets;
1875: IF l_debug_level > 0 THEN
1872: END IF;
1873:
1874: ROLLBACK TO SAVEPOINT New_Process_sets;
1875: IF l_debug_level > 0 THEN
1876: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
1877: END IF;
1878: WHEN OTHERS THEN
1879:
1880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1904:
1905: RETURN BOOLEAN IS
1906: row_exists VARCHAR2(1);
1907: --
1908: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1909: --
1910: Begin
1911: SELECT set_id
1912: INTO x_set_id
1934: RETURN BOOLEAN IS
1935: row_exists VARCHAR2(1);
1936: l_header_id NUMBER := p_header_id;
1937: --
1938: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1939: --
1940: Begin
1941: IF p_header_id = FND_API.G_MISS_NUM THEN
1942: l_header_id := NULL;
1987: )IS
1988: l_set_id NUMBER;
1989: lcustpref varchar2(1) := 'A';
1990: --
1991: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1992: --
1993: Begin
1994: x_return_status := FND_API.G_RET_STS_SUCCESS;
1995: IF l_debug_level > 0 THEN
1992: --
1993: Begin
1994: x_return_status := FND_API.G_RET_STS_SUCCESS;
1995: IF l_debug_level > 0 THEN
1996: oe_debug_pub.add( 'ENTER:CREATE SETS ' , 1 ) ;
1997: END IF;
1998: IF l_debug_level > 0 THEN
1999: oe_debug_pub.add( 'HEADER ' || P_HEADER_ID , 1 ) ;
2000: END IF;
1995: IF l_debug_level > 0 THEN
1996: oe_debug_pub.add( 'ENTER:CREATE SETS ' , 1 ) ;
1997: END IF;
1998: IF l_debug_level > 0 THEN
1999: oe_debug_pub.add( 'HEADER ' || P_HEADER_ID , 1 ) ;
2000: END IF;
2001: IF l_debug_level > 0 THEN
2002: oe_debug_pub.add( 'SET NAME ' || P_SET_NAME , 1 ) ;
2003: END IF;
1998: IF l_debug_level > 0 THEN
1999: oe_debug_pub.add( 'HEADER ' || P_HEADER_ID , 1 ) ;
2000: END IF;
2001: IF l_debug_level > 0 THEN
2002: oe_debug_pub.add( 'SET NAME ' || P_SET_NAME , 1 ) ;
2003: END IF;
2004: IF l_debug_level > 0 THEN
2005: oe_debug_pub.add( 'SET TYPE ' || P_SET_TYPE , 1 ) ;
2006: END IF;
2001: IF l_debug_level > 0 THEN
2002: oe_debug_pub.add( 'SET NAME ' || P_SET_NAME , 1 ) ;
2003: END IF;
2004: IF l_debug_level > 0 THEN
2005: oe_debug_pub.add( 'SET TYPE ' || P_SET_TYPE , 1 ) ;
2006: END IF;
2007: IF (p_header_id IS NULL OR
2008: p_set_name IS NULL OR
2009: p_set_type IS NULL) THEN
2013: RAISE FND_API.G_EXC_ERROR ;
2014: -- Require all three header,set name ane set type to create
2015: END IF;
2016: IF l_debug_level > 0 THEN
2017: oe_debug_pub.add( 'BEFORE SETEXISTS ' , 1 ) ;
2018: END IF;
2019:
2020: IF NOT Set_Exist(p_set_name => p_set_name,
2021: p_set_type => p_set_type,
2049: SELECT OE_SETS_S.NEXTVAL
2050: INTO l_set_id
2051: FROM DUAL;
2052: IF l_debug_level > 0 THEN
2053: oe_debug_pub.add( 'AFTERSEQUECEVALUE ' , 1 ) ;
2054: END IF;
2055: IF g_cust_pref_set AND (p_set_type = 'SHIP_SET'
2056: OR p_set_type = 'ARRIVAL_SET')
2057: THEN
2100: );
2101: x_set_id := l_Set_id;
2102:
2103: IF l_debug_level > 0 THEN
2104: oe_debug_pub.add( 'AFTERINSERT ' , 1 ) ;
2105: END IF;
2106: END IF; -- set EXISTS
2107:
2108:
2119: ( p_count => x_msg_count
2120: , p_data => x_msg_data
2121: );
2122: IF l_debug_level > 0 THEN
2123: oe_debug_pub.add( 'IN CREATE EXCEPTION ' , 1 ) ;
2124: END IF;
2125:
2126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2127:
2275: l_x_arrival_set_id number;
2276:
2277:
2278: --
2279: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2280: --
2281: Begin
2282: IF l_debug_level > 0 THEN
2283: oe_debug_pub.add( 'INSERT_INTO SETSS' , 1 ) ;
2279: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2280: --
2281: Begin
2282: IF l_debug_level > 0 THEN
2283: oe_debug_pub.add( 'INSERT_INTO SETSS' , 1 ) ;
2284: END IF;
2285:
2286: IF p_set_request_tbl.count > 0 THEN
2287: g_cust_pref_set := TRUE;
2285:
2286: IF p_set_request_tbl.count > 0 THEN
2287: g_cust_pref_set := TRUE;
2288: IF l_debug_level > 0 THEN
2289: oe_debug_pub.add( 'PROCESS REQUEST RECORD ' , 1 ) ;
2290: END IF;
2291:
2292: l_header_id := p_set_request_tbl(1).entity_id;
2293: oe_header_util.query_row(p_header_id => l_header_id,
2301: END IF;
2302:
2303: IF l_set_type = 'ARRIVAL_SET' THEN
2304: IF l_debug_level > 0 THEN
2305: oe_debug_pub.add( ' INTO CALLING ARRIVAL SET ' , 1 ) ;
2306: END IF;
2307: Insert_Into_arrival_Set
2308: (p_Set_request_tbl => p_Set_request_tbl ,
2309: X_Return_Status => l_return_status ,
2309: X_Return_Status => l_return_status ,
2310: x_msg_count => x_msg_count,
2311: x_msg_data => x_msg_data);
2312: IF l_debug_level > 0 THEN
2313: oe_debug_pub.add( ' EXIT CALLING ARRIVAL SET ' , 1 ) ;
2314: END IF;
2315:
2316: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2317: IF l_debug_level > 0 THEN
2314: END IF;
2315:
2316: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2317: IF l_debug_level > 0 THEN
2318: oe_debug_pub.add( ' ARRIVAL SET UNEXPECTED ERROR ' , 1 ) ;
2319: END IF;
2320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2321: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2322: IF l_debug_level > 0 THEN
2319: END IF;
2320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2321: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2322: IF l_debug_level > 0 THEN
2323: oe_debug_pub.add( ' ARRIVAL SET ' , 1 ) ;
2324: END IF;
2325: RAISE FND_API.G_EXC_ERROR;
2326: END IF;
2327:
2336: FOR I in 1..g_auto_set_tbl.count
2337: Loop
2338: Begin
2339: IF l_debug_level > 0 THEN
2340: oe_debug_pub.add( 'ENTER INTO AUTO SET TABLE LOOP ' , 1 ) ;
2341: END IF;
2342: oe_line_util.query_row(p_line_id => g_auto_set_tbl(I).line_id,
2343: x_line_rec => l_line_rec);
2344: IF (l_line_rec.split_from_line_id IS NOT NULL) THEN
2342: oe_line_util.query_row(p_line_id => g_auto_set_tbl(I).line_id,
2343: x_line_rec => l_line_rec);
2344: IF (l_line_rec.split_from_line_id IS NOT NULL) THEN
2345: IF l_debug_level > 0 THEN
2346: oe_debug_pub.add( 'INVALID SPLIT LINEE'||L_LINE_REC.LINE_ID ) ;
2347: END IF;
2348: RAISE NO_DATA_FOUND;
2349: END IF;
2350: IF l_line_rec.line_category_code = 'RETURN' THEN
2394:
2395:
2396:
2397: IF l_debug_level > 0 THEN
2398: oe_debug_pub.add( 'ITEM TYPE CODE IS: '||L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
2399: END IF;
2400: IF l_debug_level > 0 THEN
2401: oe_debug_pub.add( 'SHIP FROM : '||L_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
2402: END IF;
2397: IF l_debug_level > 0 THEN
2398: oe_debug_pub.add( 'ITEM TYPE CODE IS: '||L_LINE_REC.ITEM_TYPE_CODE , 1 ) ;
2399: END IF;
2400: IF l_debug_level > 0 THEN
2401: oe_debug_pub.add( 'SHIP FROM : '||L_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
2402: END IF;
2403: IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL
2404: OR l_line_rec.item_type_code = 'KIT' THEN
2405: l_model_exists := TRUE;
2418: l_ship_to_org_id,
2419: l_schedule_arrival_date;
2420: CLOSE C2;
2421: IF l_set_type = 'SHIP_SET' THEN
2422: OE_DEBUG_PUB.Add('Into Ship Set',1);
2423: l_temp_line_tbl(l_temp_line_tbl.count).schedule_ship_date := l_schedule_ship_date;
2424: l_temp_line_tbl(l_temp_line_tbl.count).ship_from_org_id := l_ship_from_org_id;
2425: l_temp_line_tbl(l_temp_line_tbl.count).ship_to_org_id := l_ship_to_org_id;
2426: --l_perform_sch := FALSE;
2480: END LOOP;
2481:
2482: -- Call scheduling
2483: IF l_debug_level > 0 THEN
2484: oe_debug_pub.add( 'BEFORE CALLING SCHEDULING ' , 1 ) ;
2485: END IF;
2486: IF l_debug_level > 0 THEN
2487: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
2488: END IF;
2483: IF l_debug_level > 0 THEN
2484: oe_debug_pub.add( 'BEFORE CALLING SCHEDULING ' , 1 ) ;
2485: END IF;
2486: IF l_debug_level > 0 THEN
2487: oe_debug_pub.add( 'COUNT BEFORE CALLING : '||L_SCH_LINE_TBL.COUNT , 1 ) ;
2488: END IF;
2489:
2490: IF l_perform_sch and l_sch_line_tbl.count > 0 THEN
2491:
2497: l_perform_sch := TRUE;
2498:
2499: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2500: IF l_debug_level > 0 THEN
2501: oe_debug_pub.add( ' SCHEDULING UNEXPECTED ERROR ' , 1 ) ;
2502: END IF;
2503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2504: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2505: GOTO END_1;
2503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2504: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2505: GOTO END_1;
2506: IF l_debug_level > 0 THEN
2507: oe_debug_pub.add( ' EXPECTED ERROR ' , 1 ) ;
2508: END IF;
2509: --RAISE FND_API.G_EXC_ERROR;
2510: END IF;
2511:
2510: END IF;
2511:
2512: -- END IF; -- Schedule Action Code
2513: IF l_debug_level > 0 THEN
2514: oe_debug_pub.add( 'AFTER CALLIN SCHEDULING ' , 1 ) ;
2515: END IF;
2516: l_temp_line_tbl.delete;
2517: l_temp_line_tbl := l_sch_line_tbl;
2518: IF l_temp_line_tbl.count > 0 and l_ship_set_id is null THEN
2524: l_shipping_method_code := l_temp_line_tbl(1).shipping_method_code;
2525: l_shipment_priority_code := l_temp_line_tbl(1).shipment_priority_code;
2526: l_set_id := null;
2527: IF l_debug_level > 0 THEN
2528: oe_debug_pub.add( 'INTO CREATING SET ' , 1 ) ;
2529: END IF;
2530:
2531: IF l_set_type = 'SHIP_SET' THEN
2532: Open shipset;
2559: ELSE
2560: lsettempname := lsettempname + 1;
2561: END IF;
2562: IF l_debug_level > 0 THEN
2563: oe_debug_pub.add( ' BEFORE CREATING SET ' , 1 ) ;
2564: END IF;
2565: Create_Set
2566: (p_Set_Name => to_char(lsettempname),
2567: p_Set_Type => l_set_type,
2587: END IF; -- Temp table intenal if condition
2588: END IF ; -- If temp table is greater than zero
2589:
2590: IF l_debug_level > 0 THEN
2591: oe_debug_pub.add( ' SET ID IS '|| L_SET_ID , 1 ) ;
2592: END IF;
2593:
2594: FOR K in 1..l_temp_line_tbl.count
2595: LOOP
2652: END IF;
2653:
2654:
2655: IF l_debug_level > 0 THEN
2656: oe_debug_pub.add( 'SHIP SET IS-'||L_LINE_TBL ( I ) .SHIP_SET_ID , 1 ) ;
2657: END IF;
2658: IF l_debug_level > 0 THEN
2659: oe_debug_pub.add( 'LINE -'||L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
2660: END IF;
2655: IF l_debug_level > 0 THEN
2656: oe_debug_pub.add( 'SHIP SET IS-'||L_LINE_TBL ( I ) .SHIP_SET_ID , 1 ) ;
2657: END IF;
2658: IF l_debug_level > 0 THEN
2659: oe_debug_pub.add( 'LINE -'||L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
2660: END IF;
2661: IF l_debug_level > 0 THEN
2662: oe_debug_pub.add( 'ITEM TYPE -'||L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
2663: END IF;
2658: IF l_debug_level > 0 THEN
2659: oe_debug_pub.add( 'LINE -'||L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
2660: END IF;
2661: IF l_debug_level > 0 THEN
2662: oe_debug_pub.add( 'ITEM TYPE -'||L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
2663: END IF;
2664: END LOOP;
2665:
2666: IF l_line_tbl.count > 0 THEN
2721:
2722: END IF;
2723: g_auto_set_tbl.delete;
2724: IF l_debug_level > 0 THEN
2725: oe_debug_pub.add( ' EXIT INSERT INTO SETS' , 1 ) ;
2726: END IF;
2727:
2728: <
2729: NULL;
2744: ( p_count => x_msg_count
2745: , p_data => x_msg_data
2746: );
2747: IF l_debug_level > 0 THEN
2748: oe_debug_pub.add( 'IN INSERINTO EXCEPTION ' , 1 ) ;
2749: END IF;
2750: RAISE FND_API.G_EXC_ERROR;
2751:
2752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2809: l_shipment_priority_code VARCHAR2(30);
2810: l_Return_Status VARCHAR2(30);
2811:
2812: --
2813: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2814: --
2815: Begin
2816: l_set_rec := get_set_rec(p_set_id);
2817: IF (p_ship_from_org_id = fnd_api.g_miss_num or
2923:
2924: FUNCTION get_set_rec(p_set_id IN NUMBER)
2925: RETURN OE_ORDER_CACHE.set_rec_type IS
2926: --
2927: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2928: --
2929: begin
2930: --Performance regression. Reverted the changes made earlier for Bug4080531
2931: IF g_set_rec.set_id IS NULL OR
2953: l_set_rec OE_ORDER_CACHE.set_rec_type;
2954: x_msg_count NUMBER;
2955: x_msg_data VARCHAR2(254);
2956: --
2957: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2958: --
2959: BEGIN
2960:
2961: l_set_rec := get_set_rec(p_set_id);
3073: l_Freight_Carrier_Code VARCHAR2(30) ;
3074: l_Shipping_Method_Code VARCHAR2(30) ;
3075: l_Shipment_priority_code VARCHAR2(30);
3076: l_set_rec OE_ORDER_CACHE.set_rec_type;
3077: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3078: -- 4925992
3079: l_top_model_line_id NUMBER;
3080: BEGIN
3081:
3113: END IF;
3114:
3115:
3116: IF l_debug_level > 0 THEN
3117: oe_debug_pub.add( 'PROCEDURE PROCESS SETS' , 1 ) ;
3118: END IF;
3119:
3120: j := 1;
3121: initial := 1;
3121: initial := 1;
3122: --nextpos := INSTR(l_record_ids,',',1,j) ; --R12.MOAC
3123:
3124: IF l_debug_level > 0 THEN
3125: oe_debug_pub.add( 'SET NAME IS-' || P_SET_NAME , 1 ) ;
3126: END IF;
3127: IF l_debug_level > 0 THEN
3128: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
3129: END IF;
3124: IF l_debug_level > 0 THEN
3125: oe_debug_pub.add( 'SET NAME IS-' || P_SET_NAME , 1 ) ;
3126: END IF;
3127: IF l_debug_level > 0 THEN
3128: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
3129: END IF;
3130:
3131: IF p_set_name is not null THEN
3132:
3130:
3131: IF p_set_name is not null THEN
3132:
3133: IF l_debug_level > 0 THEN
3134: oe_debug_pub.add( 'SET TYPE IS-' || P_SET_TYPE , 1 ) ;
3135: END IF;
3136: IF l_debug_level > 0 THEN
3137: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
3138: END IF;
3133: IF l_debug_level > 0 THEN
3134: oe_debug_pub.add( 'SET TYPE IS-' || P_SET_TYPE , 1 ) ;
3135: END IF;
3136: IF l_debug_level > 0 THEN
3137: oe_debug_pub.add( 'SET TYPE IS-' || P_OPERATION , 1 ) ;
3138: END IF;
3139:
3140: IF p_set_type = 'ARRIVAL' THEN
3141: l_set_type := 'ARRIVAL_SET';
3142: ELSIF p_set_type = 'SHIP' THEN
3143: l_set_type := 'SHIP_SET';
3144: ELSIF p_set_type = 'FULFILLMENT' THEN
3145: IF l_debug_level > 0 THEN
3146: oe_debug_pub.add( 'INTO FULFILLMENT SETS' , 1 ) ;
3147: END IF;
3148: l_set_type := 'FULFILLMENT_SET';
3149: END IF;
3150:
3167: IF (p_operation = 'REMOVE' AND
3168: l_set_type <> 'FULFILLMENT_SET') THEN
3169:
3170: IF l_debug_level > 0 THEN
3171: oe_debug_pub.add( 'INTO REMOVE' , 1 ) ;
3172: END IF;
3173: l_exists := TRUE;
3174: l_set_id := NULL;
3175: END IF;
3180: IF (p_operation = 'REMOVE' AND
3181: p_set_type <> 'FULFILLMENT_SET') THEN
3182:
3183: IF l_debug_level > 0 THEN
3184: oe_debug_pub.add( 'INTO REMOVE' , 1 ) ;
3185: END IF;
3186: l_exists := TRUE;
3187:
3188: END IF;
3244:
3245: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SET_OPR');
3246: OE_MSG_PUB.ADD;
3247: IF l_debug_level > 0 THEN
3248: oe_debug_pub.add( 'LINE IS NOT VALID TO ADD: ' || L_LINE_REC.LINE_ID , 1 ) ;
3249: END IF;
3250: GOTO do_not_process;
3251:
3252: END IF;
3283: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE',
3284: -- l_line_tbl(I).item_type_code);
3285: OE_MSG_PUB.ADD;
3286: IF l_debug_level > 0 THEN
3287: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
3288: END IF;
3289: RAISE FND_API.G_EXC_ERROR;
3290: END IF;
3291:
3313:
3314: ELSIF (p_operation = 'MOVE') THEN
3315:
3316: IF l_debug_level > 0 THEN
3317: oe_debug_pub.add( 'PROCEDURE PROCESS SETS'||TO_CHAR ( L_SET_ID ) , 1 ) ;
3318: END IF;
3319: IF l_set_id IS NOT NULL THEN
3320: l_line_tbl(I).arrival_set_id := l_set_id ;
3321: l_line_tbl(I).arrival_set := p_set_name ;
3341:
3342: ELSIF (p_operation = 'MOVE') THEN
3343:
3344: IF l_debug_level > 0 THEN
3345: oe_debug_pub.add( 'PROCEDURE PROCESS SETS'||TO_CHAR ( L_SET_ID ) , 1 ) ;
3346: END IF;
3347: IF l_set_id IS NOT NULL THEN
3348: l_line_tbl(I).ship_set_id := l_set_id ;
3349: l_line_tbl(I).ship_set := p_set_name ;
3359:
3360: ELSIF p_set_type = 'FULFILLMENT' THEN
3361:
3362: IF l_debug_level > 0 THEN
3363: oe_debug_pub.add( 'INTO FULFILLMENT SETS-2' , 1 ) ;
3364: END IF;
3365: IF (p_operation = 'ADD' ) THEN
3366:
3367: IF l_debug_level > 0 THEN
3364: END IF;
3365: IF (p_operation = 'ADD' ) THEN
3366:
3367: IF l_debug_level > 0 THEN
3368: oe_debug_pub.add( 'INTO FULFILLMENT SETS-3' , 1 ) ;
3369: END IF;
3370: IF (l_set_id IS NULL) THEN
3371: l_line_tbl(I).fulfillment_set := p_set_name ;
3372: ELSE
3406: END IF;
3407: ELSIF (p_operation = 'MOVE') THEN
3408:
3409: IF l_debug_level > 0 THEN
3410: oe_debug_pub.add( 'PROCEDURE PROCESS SETS'||TO_CHAR ( L_SET_ID ) , 1 ) ;
3411: END IF;
3412: IF l_set_id IS NOT NULL THEN
3413: l_line_tbl(I).fulfillment_set_id := l_set_id ;
3414: l_line_tbl(I).fulfillment_set := p_set_name ;
3506: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
3507: FOR t in 1..l_line_tbl.count
3508: LOOP
3509: IF l_debug_level > 0 THEN
3510: oe_debug_pub.add( 'IN LOOP' ) ;
3511: END IF;
3512: IF l_debug_level > 0 THEN
3513: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3514: END IF;
3509: IF l_debug_level > 0 THEN
3510: oe_debug_pub.add( 'IN LOOP' ) ;
3511: END IF;
3512: IF l_debug_level > 0 THEN
3513: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3514: END IF;
3515: IF l_debug_level > 0 THEN
3516: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3517: END IF;
3512: IF l_debug_level > 0 THEN
3513: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3514: END IF;
3515: IF l_debug_level > 0 THEN
3516: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3517: END IF;
3518: IF l_debug_level > 0 THEN
3519: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3520: END IF;
3515: IF l_debug_level > 0 THEN
3516: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3517: END IF;
3518: IF l_debug_level > 0 THEN
3519: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3520: END IF;
3521: IF l_debug_level > 0 THEN
3522: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .ITEM_TYPE_CODE ) ;
3523: END IF;
3518: IF l_debug_level > 0 THEN
3519: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3520: END IF;
3521: IF l_debug_level > 0 THEN
3522: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .ITEM_TYPE_CODE ) ;
3523: END IF;
3524: IF l_debug_level > 0 THEN
3525: oe_debug_pub.add( 'SCH DATE' || TO_CHAR ( L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 'DD-MON-YY' ) ) ;
3526: END IF;
3521: IF l_debug_level > 0 THEN
3522: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .ITEM_TYPE_CODE ) ;
3523: END IF;
3524: IF l_debug_level > 0 THEN
3525: oe_debug_pub.add( 'SCH DATE' || TO_CHAR ( L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 'DD-MON-YY' ) ) ;
3526: END IF;
3527: END LOOP;
3528:
3529: FOR t in 1..l_line_opt_temp_tbl.count
3528:
3529: FOR t in 1..l_line_opt_temp_tbl.count
3530: LOOP
3531: IF l_debug_level > 0 THEN
3532: oe_debug_pub.add( 'OPTION TABLE' ) ;
3533: END IF;
3534: IF l_debug_level > 0 THEN
3535: oe_debug_pub.add( 'ITEM TYPE' || L_LINE_OPT_TEMP_TBL ( T ) .ITEM_TYPE_CODE ) ;
3536: END IF;
3531: IF l_debug_level > 0 THEN
3532: oe_debug_pub.add( 'OPTION TABLE' ) ;
3533: END IF;
3534: IF l_debug_level > 0 THEN
3535: oe_debug_pub.add( 'ITEM TYPE' || L_LINE_OPT_TEMP_TBL ( T ) .ITEM_TYPE_CODE ) ;
3536: END IF;
3537: l_line_opt_tbl(l_line_opt_tbl.count +1 ) := l_line_opt_temp_tbl(t);
3538: END LOOP;
3539:
3548: For t in 1..l_line_opt_tbl.count
3549: loop
3550: l_line_tbl(l_line_tbl.count +1 ) := l_line_opt_tbl(t);
3551: IF l_debug_level > 0 THEN
3552: oe_debug_pub.add( 'OPTION TABLE' ) ;
3553: END IF;
3554: IF l_debug_level > 0 THEN
3555: oe_debug_pub.add( 'ITEM TYPE' || L_LINE_OPT_TBL ( T ) .ITEM_TYPE_CODE ) ;
3556: END IF;
3551: IF l_debug_level > 0 THEN
3552: oe_debug_pub.add( 'OPTION TABLE' ) ;
3553: END IF;
3554: IF l_debug_level > 0 THEN
3555: oe_debug_pub.add( 'ITEM TYPE' || L_LINE_OPT_TBL ( T ) .ITEM_TYPE_CODE ) ;
3556: END IF;
3557: end loop;
3558:
3559: g_old_line_tbl.delete;
3563: x_line_rec => l_line_rec);
3564: g_old_line_tbl(t) := l_line_rec;
3565:
3566: IF l_debug_level > 0 THEN
3567: oe_debug_pub.add( 'OUT 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( 'OUT 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: IF p_set_type <> 'FULFILLMENT' THEN
3613: FOR I IN 1 .. l_line_tbl.COUNT
3614: LOOP
3615: IF l_set_type = 'SHIP_SET' THEN
3616: IF l_debug_level > 0 THEN
3617: oe_debug_pub.add( 'SHIP_TO_ORG_ID'||L_LINE_TBL ( I ) .SHIP_TO_ORG_ID ) ;
3618: END IF;
3619: IF l_debug_level > 0 THEN
3620: oe_debug_pub.add( 'SHIP_FROM_ORG_ID'||L_LINE_TBL ( I ) .SHIP_FROM_ORG_ID ) ;
3621: END IF;
3616: IF l_debug_level > 0 THEN
3617: oe_debug_pub.add( 'SHIP_TO_ORG_ID'||L_LINE_TBL ( I ) .SHIP_TO_ORG_ID ) ;
3618: END IF;
3619: IF l_debug_level > 0 THEN
3620: oe_debug_pub.add( 'SHIP_FROM_ORG_ID'||L_LINE_TBL ( I ) .SHIP_FROM_ORG_ID ) ;
3621: END IF;
3622: IF l_debug_level > 0 THEN
3623: oe_debug_pub.add( 'SHIP_RG_ID'||L_SET_REC.SHIP_FROM_ORG_ID ) ;
3624: END IF;
3619: IF l_debug_level > 0 THEN
3620: oe_debug_pub.add( 'SHIP_FROM_ORG_ID'||L_LINE_TBL ( I ) .SHIP_FROM_ORG_ID ) ;
3621: END IF;
3622: IF l_debug_level > 0 THEN
3623: oe_debug_pub.add( 'SHIP_RG_ID'||L_SET_REC.SHIP_FROM_ORG_ID ) ;
3624: END IF;
3625: l_line_tbl(I).schedule_ship_date := l_set_rec.schedule_ship_date;
3626: l_line_tbl(I).ship_to_org_id := l_set_rec.ship_to_org_id;
3627: l_line_tbl(I).ship_from_org_id := l_set_rec.ship_from_org_id;
3653: END IF; -- lexists
3654:
3655: IF NOT l_exists and p_set_name IS NULL THEN
3656: IF l_debug_level > 0 THEN
3657: oe_debug_pub.add( 'BEFORE FAILING AT SET NAME' , 1 ) ;
3658: END IF;
3659: fnd_message.set_name('ONT', 'OE_SET_NAME_REQ');
3660: oe_msg_pub.add;
3661: RAISE FND_API.G_EXC_ERROR ;
3663: IF p_operation <> 'REMOVE' THEN
3664: IF p_set_type <> 'FULFILLMENT'
3665: AND l_line_tbl.count > 0 THEN
3666: IF l_debug_level > 0 THEN
3667: oe_debug_pub.add( 'BEFORE CALLING SCHEDULET'|| L_LINE_TBL.COUNT ) ;
3668: END IF;
3669: IF l_debug_level > 0 THEN
3670: oe_debug_pub.add( 'BEFORE CALLING SCHEDULET'|| G_OLD_LINE_TBL.COUNT ) ;
3671: END IF;
3666: IF l_debug_level > 0 THEN
3667: oe_debug_pub.add( 'BEFORE CALLING SCHEDULET'|| L_LINE_TBL.COUNT ) ;
3668: END IF;
3669: IF l_debug_level > 0 THEN
3670: oe_debug_pub.add( 'BEFORE CALLING SCHEDULET'|| G_OLD_LINE_TBL.COUNT ) ;
3671: END IF;
3672: For t in 1..l_line_tbl.count
3673: loop
3674: IF l_debug_level > 0 THEN
3671: END IF;
3672: For t in 1..l_line_tbl.count
3673: loop
3674: IF l_debug_level > 0 THEN
3675: oe_debug_pub.add( 'BEFORE CALLING SCHEDULET' ) ;
3676: END IF;
3677: IF l_debug_level > 0 THEN
3678: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3679: END IF;
3674: IF l_debug_level > 0 THEN
3675: oe_debug_pub.add( 'BEFORE CALLING SCHEDULET' ) ;
3676: END IF;
3677: IF l_debug_level > 0 THEN
3678: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3679: END IF;
3680: IF l_debug_level > 0 THEN
3681: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3682: END IF;
3677: IF l_debug_level > 0 THEN
3678: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3679: END IF;
3680: IF l_debug_level > 0 THEN
3681: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3682: END IF;
3683: IF l_debug_level > 0 THEN
3684: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3685: END IF;
3680: IF l_debug_level > 0 THEN
3681: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3682: END IF;
3683: IF l_debug_level > 0 THEN
3684: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3685: END IF;
3686: end loop;
3687:
3688: OE_GRP_SCH_UTIL.Schedule_set_of_lines(p_x_line_tbl => l_line_tbl,
3715: --l_shipping_method_code := l_line_tbl(1).shipping_method_code;
3716: --l_shipment_priority_code := l_line_tbl(1).shipment_priority_code;
3717: END IF;
3718: IF l_debug_level > 0 THEN
3719: oe_debug_pub.add( 'SET6' , 1 ) ;
3720: END IF;
3721:
3722: IF l_debug_level > 0 THEN
3723: oe_debug_pub.add( 'BEFORE CALLING CREATE SET-4'||P_SET_NAME , 1 ) ;
3719: oe_debug_pub.add( 'SET6' , 1 ) ;
3720: END IF;
3721:
3722: IF l_debug_level > 0 THEN
3723: oe_debug_pub.add( 'BEFORE CALLING CREATE SET-4'||P_SET_NAME , 1 ) ;
3724: END IF;
3725: IF l_debug_level > 0 THEN
3726: oe_debug_pub.add( 'BEFORE CALLING SET TYPE -5'||L_SET_TYPE , 1 ) ;
3727: END IF;
3722: IF l_debug_level > 0 THEN
3723: oe_debug_pub.add( 'BEFORE CALLING CREATE SET-4'||P_SET_NAME , 1 ) ;
3724: END IF;
3725: IF l_debug_level > 0 THEN
3726: oe_debug_pub.add( 'BEFORE CALLING SET TYPE -5'||L_SET_TYPE , 1 ) ;
3727: END IF;
3728:
3729: Create_Set
3730: (p_Set_Name => p_set_name,
3743: x_msg_data => x_msg_data);
3744:
3745: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3746: IF l_debug_level > 0 THEN
3747: oe_debug_pub.add( 'INTO UNEXPECTED ERROR' , 1 ) ;
3748: END IF;
3749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3750: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3751: IF l_debug_level > 0 THEN
3748: END IF;
3749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3750: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3751: IF l_debug_level > 0 THEN
3752: oe_debug_pub.add( 'INTO EXPECTED ERROR' , 1 ) ;
3753: END IF;
3754: RAISE FND_API.G_EXC_ERROR;
3755: END IF;
3756:
3774: l_line_tbl(I).ship_set_id := l_set_id ;
3775: ELSIF p_set_type = 'FULFILLMENT' THEN
3776: l_line_tbl(I).Fulfillment_set_id := l_set_id ;
3777: IF l_debug_level > 0 THEN
3778: oe_debug_pub.add( 'INTO LOOP - CREATING FULLFILLMENT SET' ) ;
3779: END IF;
3780: -- 4925992
3781: IF l_line_tbl(I).line_id = l_line_tbl(I).top_model_line_id
3782: AND l_line_tbl(I).operation <> 'CREATE'
3831: g_set_recursive_flag := TRUE;
3832:
3833: -- Call OE_Order_PVT.Process_order
3834: IF l_debug_level > 0 THEN
3835: oe_debug_pub.add( 'CALLING PROCESS ORDER' ) ;
3836: END IF;
3837: For t in 1..l_line_tbl.count
3838: loop
3839: IF l_debug_level > 0 THEN
3836: END IF;
3837: For t in 1..l_line_tbl.count
3838: loop
3839: IF l_debug_level > 0 THEN
3840: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3841: END IF;
3842: IF l_debug_level > 0 THEN
3843: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3844: END IF;
3839: IF l_debug_level > 0 THEN
3840: oe_debug_pub.add( 'SHIP SET' || L_LINE_TBL ( T ) .SHIP_SET_ID ) ;
3841: END IF;
3842: IF l_debug_level > 0 THEN
3843: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3844: END IF;
3845: IF l_debug_level > 0 THEN
3846: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3847: END IF;
3842: IF l_debug_level > 0 THEN
3843: oe_debug_pub.add( 'SHIP TO' || L_LINE_TBL ( T ) .SHIP_TO_ORG_ID ) ;
3844: END IF;
3845: IF l_debug_level > 0 THEN
3846: oe_debug_pub.add( 'SHIP FROM' || L_LINE_TBL ( T ) .SHIP_FROM_ORG_ID ) ;
3847: END IF;
3848: end loop;
3849: oe_order_pvt.Lines
3850: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
3907: ( p_count => x_msg_count
3908: , p_data => x_msg_data
3909: );
3910: IF l_debug_level > 0 THEN
3911: oe_debug_pub.add( 'BEFORE ROLLING BACK' , 1 ) ;
3912: END IF;
3913: ROLLBACK TO SAVEPOINT Process_sets;
3914: IF l_debug_level > 0 THEN
3915: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
3911: oe_debug_pub.add( 'BEFORE ROLLING BACK' , 1 ) ;
3912: END IF;
3913: ROLLBACK TO SAVEPOINT Process_sets;
3914: IF l_debug_level > 0 THEN
3915: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
3916: END IF;
3917:
3918: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3919:
3924: ( p_count => x_msg_count
3925: , p_data => x_msg_data
3926: );
3927: IF l_debug_level > 0 THEN
3928: oe_debug_pub.add( 'BEFORE ROLLING BACK' , 1 ) ;
3929: END IF;
3930:
3931: ROLLBACK TO SAVEPOINT Process_sets;
3932: IF l_debug_level > 0 THEN
3929: END IF;
3930:
3931: ROLLBACK TO SAVEPOINT Process_sets;
3932: IF l_debug_level > 0 THEN
3933: oe_debug_pub.add( 'AFTER ROLLING BACK' , 1 ) ;
3934: END IF;
3935: WHEN OTHERS THEN
3936:
3937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3978: l_set_id NUMBER;
3979: l_seq_id NUMBER;
3980: l_position NUMBER;
3981: --
3982: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3983: --
3984: BEGIN
3985: NULL;
3986: EXCEPTION
4030: p_ship_set_id IN NUMBER,
4031: x_arrival_set_id OUT NOCOPY NUMBER) IS
4032:
4033: --
4034: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4035: --
4036: BEGIN
4037:
4038: SELECT arrival_set_id INTO
4064: column1 varchar2(240);
4065: column2 varchar2(240);
4066: TYPE test1 IS TABLE OF OE_ORDER_PUB.HEADER_REC_TYPE;
4067: --
4068: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4069: --
4070: BEGIN
4071: /**********************
4072: IF p_set_type = 'SHIP_SET' THEN
4110: l_exist boolean := FALSE;
4111: litemtypecode number := 0;
4112: lshpqty number := 0;
4113: --
4114: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4115: --
4116: BEGIN
4117:
4118: IF NOT (g_set_recursive_flag) THEN
4119: -- This is to supress the recursive call made from sets login itself and
4120: -- is coded before the g recursion flag is desingned
4121:
4122: IF l_debug_level > 0 THEN
4123: oe_debug_pub.add( 'ENTER GET SET ID' ) ;
4124: END IF;
4125: IF (p_x_line_rec.item_type_code IS NULL OR
4126: p_x_line_rec.item_type_code = FND_API.G_MISS_CHAR) AND
4127: p_x_line_rec.operation = oe_globals.g_opr_create THEN
4125: IF (p_x_line_rec.item_type_code IS NULL OR
4126: p_x_line_rec.item_type_code = FND_API.G_MISS_CHAR) AND
4127: p_x_line_rec.operation = oe_globals.g_opr_create THEN
4128: IF l_debug_level > 0 THEN
4129: oe_debug_pub.add( 'ENTER ITEM TYPE CODE NULL' ) ;
4130: END IF;
4131:
4132: IF ( NVL(p_x_line_rec.top_model_line_id,FND_API.G_MISS_NUM)
4133: <> FND_API.G_MISS_NUM
4138: OR ( p_x_line_rec.top_model_line_index <> FND_API.G_MISS_NUM
4139: AND p_x_line_rec.top_model_line_index = p_index )
4140: THEN
4141: IF l_debug_level > 0 THEN
4142: oe_debug_pub.add( 'TOP MODEL LINE' , 1 ) ;
4143: END IF;
4144: litemtypecode := 1;
4145: -- OPTION/CLASS line if line is NOT the model line
4146: ELSE
4144: litemtypecode := 1;
4145: -- OPTION/CLASS line if line is NOT the model line
4146: ELSE
4147: IF l_debug_level > 0 THEN
4148: oe_debug_pub.add( 'OPTION/CLASS LINE' , 1 ) ;
4149: END IF;
4150: litemtypecode := 0;
4151: END IF;
4152:
4157:
4158:
4159:
4160: IF l_debug_level > 0 THEN
4161: oe_debug_pub.add( 'ITEM TYPE CODE' || P_X_LINE_REC.ITEM_TYPE_CODE ) ;
4162: END IF;
4163: IF l_debug_level > 0 THEN
4164: oe_debug_pub.add( 'SHIP SET' || P_X_LINE_REC.SHIP_SET_ID ) ;
4165: END IF;
4160: IF l_debug_level > 0 THEN
4161: oe_debug_pub.add( 'ITEM TYPE CODE' || P_X_LINE_REC.ITEM_TYPE_CODE ) ;
4162: END IF;
4163: IF l_debug_level > 0 THEN
4164: oe_debug_pub.add( 'SHIP SET' || P_X_LINE_REC.SHIP_SET_ID ) ;
4165: END IF;
4166: IF l_debug_level > 0 THEN
4167: oe_debug_pub.add( 'OLD SHIP SET' || P_OLD_LINE_REC.SHIP_SET_ID ) ;
4168: END IF;
4163: IF l_debug_level > 0 THEN
4164: oe_debug_pub.add( 'SHIP SET' || P_X_LINE_REC.SHIP_SET_ID ) ;
4165: END IF;
4166: IF l_debug_level > 0 THEN
4167: oe_debug_pub.add( 'OLD SHIP SET' || P_OLD_LINE_REC.SHIP_SET_ID ) ;
4168: END IF;
4169: IF l_debug_level > 0 THEN
4170: oe_debug_pub.add( 'SHIP SET' || P_X_LINE_REC.SHIP_SET ) ;
4171: END IF;
4166: IF l_debug_level > 0 THEN
4167: oe_debug_pub.add( 'OLD SHIP SET' || P_OLD_LINE_REC.SHIP_SET_ID ) ;
4168: END IF;
4169: IF l_debug_level > 0 THEN
4170: oe_debug_pub.add( 'SHIP SET' || P_X_LINE_REC.SHIP_SET ) ;
4171: END IF;
4172: IF l_debug_level > 0 THEN
4173: oe_debug_pub.add( 'ARRIVAL SET' || P_X_LINE_REC.ARRIVAL_SET ) ;
4174: END IF;
4169: IF l_debug_level > 0 THEN
4170: oe_debug_pub.add( 'SHIP SET' || P_X_LINE_REC.SHIP_SET ) ;
4171: END IF;
4172: IF l_debug_level > 0 THEN
4173: oe_debug_pub.add( 'ARRIVAL SET' || P_X_LINE_REC.ARRIVAL_SET ) ;
4174: END IF;
4175: IF l_debug_level > 0 THEN
4176: oe_debug_pub.add( 'FULFILLMENT SET' || P_X_LINE_REC.FULFILLMENT_SET ) ;
4177: END IF;
4172: IF l_debug_level > 0 THEN
4173: oe_debug_pub.add( 'ARRIVAL SET' || P_X_LINE_REC.ARRIVAL_SET ) ;
4174: END IF;
4175: IF l_debug_level > 0 THEN
4176: oe_debug_pub.add( 'FULFILLMENT SET' || P_X_LINE_REC.FULFILLMENT_SET ) ;
4177: END IF;
4178: IF l_debug_level > 0 THEN
4179: oe_debug_pub.add( 'OLD SHIP SET' || P_OLD_LINE_REC.SHIP_SET ) ;
4180: END IF;
4175: IF l_debug_level > 0 THEN
4176: oe_debug_pub.add( 'FULFILLMENT SET' || P_X_LINE_REC.FULFILLMENT_SET ) ;
4177: END IF;
4178: IF l_debug_level > 0 THEN
4179: oe_debug_pub.add( 'OLD SHIP SET' || P_OLD_LINE_REC.SHIP_SET ) ;
4180: END IF;
4181: IF l_debug_level > 0 THEN
4182: oe_debug_pub.add( 'ITEM TYPE CODE' || LITEMTYPECODE ) ;
4183: END IF;
4178: IF l_debug_level > 0 THEN
4179: oe_debug_pub.add( 'OLD SHIP SET' || P_OLD_LINE_REC.SHIP_SET ) ;
4180: END IF;
4181: IF l_debug_level > 0 THEN
4182: oe_debug_pub.add( 'ITEM TYPE CODE' || LITEMTYPECODE ) ;
4183: END IF;
4184: IF l_debug_level > 0 THEN
4185: oe_debug_pub.add( 'SOURCE TYPE' || P_X_LINE_REC.SOURCE_TYPE_CODE , 1 ) ;
4186: END IF;
4181: IF l_debug_level > 0 THEN
4182: oe_debug_pub.add( 'ITEM TYPE CODE' || LITEMTYPECODE ) ;
4183: END IF;
4184: IF l_debug_level > 0 THEN
4185: oe_debug_pub.add( 'SOURCE TYPE' || P_X_LINE_REC.SOURCE_TYPE_CODE , 1 ) ;
4186: END IF;
4187:
4188: -- Lines that are of type external(drop ships) or shipped or any line that
4189: -- is not model standard and kit are not allowed to have set operations.
4196:
4197: IF nvl(p_x_line_rec.source_type_code,'X') <> 'EXTERNAL' AND
4198: lshpqty = 0 THEN
4199: IF l_debug_level > 0 THEN
4200: oe_debug_pub.add( 'INTO THE SOURCE TYPE' , 1 ) ;
4201: END IF;
4202:
4203: IF (p_x_line_rec.item_type_code = 'MODEL' AND
4204: p_x_line_rec.top_model_line_id =
4219: --and process them by set
4220: -- together for group scheduling reasons, we decided for performance reasons
4221: -- to gather informations as and when requested and process the global table.
4222: IF l_debug_level > 0 THEN
4223: oe_debug_pub.add( 'BEFORE SETTING THE LINE '||P_X_LINE_REC.LINE_ID , 1 ) ;
4224: END IF;
4225: IF (p_x_line_rec.operation = oe_globals.g_opr_create AND
4226: (p_x_line_rec.line_id = FND_API.G_MISS_NUM OR
4227: p_x_line_rec.line_id IS NULL)) THEN
4225: IF (p_x_line_rec.operation = oe_globals.g_opr_create AND
4226: (p_x_line_rec.line_id = FND_API.G_MISS_NUM OR
4227: p_x_line_rec.line_id IS NULL)) THEN
4228: IF l_debug_level > 0 THEN
4229: oe_debug_pub.add( 'BEFORE SETTING THE LINE -1' , 1 ) ;
4230: END IF;
4231: p_x_line_rec.line_id := OE_Default_Line.get_Line;
4232: IF l_debug_level > 0 THEN
4233: oe_debug_pub.add( 'AFTER SETTING THE LINE -1' , 1 ) ;
4229: oe_debug_pub.add( 'BEFORE SETTING THE LINE -1' , 1 ) ;
4230: END IF;
4231: p_x_line_rec.line_id := OE_Default_Line.get_Line;
4232: IF l_debug_level > 0 THEN
4233: oe_debug_pub.add( 'AFTER SETTING THE LINE -1' , 1 ) ;
4234: END IF;
4235: END IF;
4236:
4237: IF g_set_tbl.count = 0 THEN
4278:
4279: END IF; -- name not null.
4280:
4281: IF l_debug_level > 0 THEN
4282: oe_debug_pub.add( 'BEFORE CALLING ARRIVAL SET' , 1 ) ;
4283: END IF;
4284: -- The arrrival sets are processed first. User can either pass a set name or
4285: -- set id to request a set operation.
4286: -- set id will be derived from set name if passed and if set already exists
4291: p_x_line_rec.arrival_set_id = FND_API.G_MISS_NUM)) OR
4292: (p_old_line_rec.arrival_set is not null AND
4293: p_old_line_rec.arrival_set <> FND_API.G_MISS_CHAR ) then
4294: IF l_debug_level > 0 THEN
4295: oe_debug_pub.add( 'ARRIVAL SET CREATION' , 1 ) ;
4296: END IF;
4297:
4298: -- Validate if arrival set already exists
4299:
4391: END IF; -- Set table > 0
4392:
4393: ELSE -- Set does not exists
4394: IF l_debug_level > 0 THEN
4395: oe_debug_pub.add( 'ARRIVAL SET CREATION- ' , 1 ) ;
4396: END IF;
4397:
4398: IF g_set_tbl.count > 0 THEN
4399: l_exist := FALSE;
4445:
4446: g_set_tbl(I).set_name := p_x_line_rec.arrival_set;
4447: g_set_tbl(I).set_type := 'ARRIVAL_SET';
4448: IF l_debug_level > 0 THEN
4449: oe_debug_pub.add( 'ADDING INTO GLOBAL TABLE - ARRIVAL' , 1 ) ;
4450: END IF;
4451:
4452: I := I + 1;
4453:
4461:
4462: ELSIF (p_x_line_rec.arrival_set_id IS NOT NULL AND
4463: p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM) then
4464: IF l_debug_level > 0 THEN
4465: oe_debug_pub.add( 'IN ARRIVAL SET ID' , 1 ) ;
4466: END IF;
4467:
4468: IF NOT OE_GLOBALS.Equal
4469: (p_x_line_rec.arrival_set_id,p_old_line_rec.arrival_set_id)
4513: p_old_line_rec.arrival_set_id <> FND_API.G_MISS_NUM) AND
4514: (p_x_line_rec.arrival_set_id IS NULL)then
4515: IF (p_x_line_rec.top_model_line_id = p_x_line_rec.line_id) THEN
4516: IF l_debug_level > 0 THEN
4517: oe_debug_pub.add( 'IN REMOVE OF ARRIVAL SET' , 1 ) ;
4518: END IF;
4519:
4520: IF g_set_opt_tbl.count > 0 THEN
4521: l_exist := FALSE;
4539: END IF;
4540: END IF;
4541: END IF; -- END ARRIVAL SETS
4542: IF l_debug_level > 0 THEN
4543: oe_debug_pub.add( 'OUT OF ARRIVAL SET' , 1 ) ;
4544: END IF;
4545: for Cnt In 1..g_set_tbl.count
4546: Loop
4547: IF l_debug_level > 0 THEN
4544: END IF;
4545: for Cnt In 1..g_set_tbl.count
4546: Loop
4547: IF l_debug_level > 0 THEN
4548: oe_debug_pub.add( ' END OF ARRIVAL SET NAME' || G_SET_TBL ( CNT ) .SET_NAME , 1 ) ;
4549: END IF;
4550: IF l_debug_level > 0 THEN
4551: oe_debug_pub.add( 'SET TYPE' || G_SET_TBL ( CNT ) .SET_TYPE , 1 ) ;
4552: END IF;
4547: IF l_debug_level > 0 THEN
4548: oe_debug_pub.add( ' END OF ARRIVAL SET NAME' || G_SET_TBL ( CNT ) .SET_NAME , 1 ) ;
4549: END IF;
4550: IF l_debug_level > 0 THEN
4551: oe_debug_pub.add( 'SET TYPE' || G_SET_TBL ( CNT ) .SET_TYPE , 1 ) ;
4552: END IF;
4553: end loop;
4554:
4555: -- Start Ship Sets and ship sets follow the similar logic as arrival sets
4554:
4555: -- Start Ship Sets and ship sets follow the similar logic as arrival sets
4556: -- above
4557: IF l_debug_level > 0 THEN
4558: oe_debug_pub.add( 'WHAT THE HEC ' , 1 ) ;
4559: END IF;
4560:
4561: IF (p_x_line_rec.ship_set IS NOT NULL AND
4562: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR)OR
4562: p_x_line_rec.ship_set <> FND_API.G_MISS_CHAR)OR
4563: ( p_old_line_rec.ship_set is not null AND
4564: p_old_line_rec.ship_set <> FND_API.G_MISS_CHAR) then
4565: IF l_debug_level > 0 THEN
4566: oe_debug_pub.add( 'BEFORE SHIP SET NAME' ) ;
4567: END IF;
4568: IF Set_Exist(p_set_name =>p_x_line_rec.ship_set,
4569: p_set_type => 'SHIP_SET',
4570: p_header_id =>p_x_line_rec.header_id,
4569: p_set_type => 'SHIP_SET',
4570: p_header_id =>p_x_line_rec.header_id,
4571: x_set_id => l_set_id) THEN
4572: IF l_debug_level > 0 THEN
4573: oe_debug_pub.add( 'SHIP SET EXISTS' ) ;
4574: END IF;
4575: l_set_rec := get_set_rec(l_set_id);
4576: IF l_set_rec.set_status = 'C' THEN
4577: fnd_message.set_name('ONT', 'OE_SET_CLOSED');
4600: END IF;
4601: end loop;
4602: END IF;
4603: IF l_debug_level > 0 THEN
4604: oe_debug_pub.add( 'BEFORE GOING INTO OPTIONS TABLE ' , 1 ) ;
4605: END IF;
4606: IF (p_x_line_rec.item_type_code = 'MODEL' OR
4607: p_x_line_rec.item_type_code = 'KIT') AND
4608: (p_x_line_rec.top_model_line_id = p_x_line_rec.line_id) THEN
4606: IF (p_x_line_rec.item_type_code = 'MODEL' OR
4607: p_x_line_rec.item_type_code = 'KIT') AND
4608: (p_x_line_rec.top_model_line_id = p_x_line_rec.line_id) THEN
4609: IF l_debug_level > 0 THEN
4610: oe_debug_pub.add( 'INTO MODEL IF CONDITON ' , 1 ) ;
4611: END IF;
4612:
4613: IF g_set_opt_tbl.count > 0 THEN
4614: IF l_debug_level > 0 THEN
4611: END IF;
4612:
4613: IF g_set_opt_tbl.count > 0 THEN
4614: IF l_debug_level > 0 THEN
4615: oe_debug_pub.add( 'INTO SET OPT TABLE ' , 1 ) ;
4616: END IF;
4617: l_exist := FALSE;
4618: for Cnt In 1..g_set_opt_tbl.count
4619: Loop
4627: End Loop;
4628: End IF;
4629: IF NOT L_exist THEN
4630: IF l_debug_level > 0 THEN
4631: oe_debug_pub.add( 'IF NOT EXISTS ' , 1 ) ;
4632: END IF;
4633: g_set_opt_tbl(J).line_id := p_x_line_rec.line_id;
4634: g_set_opt_tbl(J).set_id := p_x_line_rec.ship_set_id;
4635: g_set_opt_tbl(J).set_type := 'SHIP_SET';
4644: l_exist := FALSE;
4645: for Cnt In 1..g_set_tbl.count
4646: Loop
4647: IF l_debug_level > 0 THEN
4648: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .LINE_ID ) ;
4649: END IF;
4650: IF l_debug_level > 0 THEN
4651: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4652: END IF;
4647: IF l_debug_level > 0 THEN
4648: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .LINE_ID ) ;
4649: END IF;
4650: IF l_debug_level > 0 THEN
4651: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4652: END IF;
4653: IF l_debug_level > 0 THEN
4654: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4655: END IF;
4650: IF l_debug_level > 0 THEN
4651: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4652: END IF;
4653: IF l_debug_level > 0 THEN
4654: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4655: END IF;
4656: IF l_debug_level > 0 THEN
4657: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4658: END IF;
4653: IF l_debug_level > 0 THEN
4654: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4655: END IF;
4656: IF l_debug_level > 0 THEN
4657: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4658: END IF;
4659: IF l_debug_level > 0 THEN
4660: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
4661: END IF;
4656: IF l_debug_level > 0 THEN
4657: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4658: END IF;
4659: IF l_debug_level > 0 THEN
4660: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
4661: END IF;
4662:
4663: IF (g_set_tbl(cnt).line_id = p_x_line_rec.line_id AND
4664: p_x_line_rec.ship_set IS NULL AND
4677: IF (g_set_tbl(cnt).line_id = p_x_line_rec.line_id AND
4678: g_set_tbl(cnt).set_name = p_x_line_rec.ship_Set AND
4679: g_set_tbl(cnt).set_type = 'SHIP_SET') THEN
4680: IF l_debug_level > 0 THEN
4681: oe_debug_pub.add( 'EXISTS' ) ;
4682: END IF;
4683: l_exist := TRUE;
4684: exit;
4685: END IF;
4686: End Loop;
4687: End IF;
4688: IF Not L_Exist THEN
4689: IF l_debug_level > 0 THEN
4690: oe_debug_pub.add( 'NOT EXISTS' ) ;
4691: END IF;
4692: IF p_x_line_rec.operation = oe_globals.g_opr_create THEN
4693: IF (p_x_line_rec.line_id IS NOT NULL AND
4694: p_x_line_rec.line_id <> FND_API.G_MISS_NUM ) THEN
4700: ELSIF p_x_line_rec.operation = oe_globals.g_opr_update THEN
4701: g_set_tbl(I).line_id := p_x_line_rec.line_id;
4702: END IF;
4703: IF l_debug_level > 0 THEN
4704: oe_debug_pub.add( 'POPULATING SHIP SET S' ) ;
4705: END IF;
4706: g_set_tbl(I).set_name := p_x_line_rec.ship_set;
4707: g_set_tbl(I).set_type := 'SHIP_SET';
4708: I := I + 1;
4714: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM)THEN
4715: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ship_set_id,p_old_line_rec.ship_set_id)
4716: THEN
4717: IF l_debug_level > 0 THEN
4718: oe_debug_pub.add( 'ITEM TYPE CODE' || P_X_LINE_REC.SHIP_SET_ID ) ;
4719: END IF;
4720:
4721: IF NOT Set_Exist(p_set_id => p_x_line_rec.ship_set_id) THEN
4722: p_x_line_rec.ship_set_id := NULL;
4721: IF NOT Set_Exist(p_set_id => p_x_line_rec.ship_set_id) THEN
4722: p_x_line_rec.ship_set_id := NULL;
4723: ELSE
4724: IF l_debug_level > 0 THEN
4725: oe_debug_pub.add( 'INTO DEFAULTING SCHEDULING ATTRIBUTES' ) ;
4726: END IF;
4727: l_set_rec := get_set_rec(p_x_line_rec.ship_set_id);
4728: p_x_line_rec.ship_to_org_id := l_set_rec.ship_to_org_id;
4729: p_x_line_rec.ship_from_org_id := l_set_rec.ship_from_org_id;
4781: END IF;
4782: for Cnt In 1..g_set_tbl.count
4783: Loop
4784: IF l_debug_level > 0 THEN
4785: oe_debug_pub.add( ' END OF SHIP SET NAME' || G_SET_TBL ( CNT ) .SET_NAME , 1 ) ;
4786: END IF;
4787: IF l_debug_level > 0 THEN
4788: oe_debug_pub.add( 'SET TYPE' || G_SET_TBL ( CNT ) .SET_TYPE , 1 ) ;
4789: END IF;
4784: IF l_debug_level > 0 THEN
4785: oe_debug_pub.add( ' END OF SHIP SET NAME' || G_SET_TBL ( CNT ) .SET_NAME , 1 ) ;
4786: END IF;
4787: IF l_debug_level > 0 THEN
4788: oe_debug_pub.add( 'SET TYPE' || G_SET_TBL ( CNT ) .SET_TYPE , 1 ) ;
4789: END IF;
4790: end loop;
4791:
4792: -- fulfillment sets
4796: IF (p_x_line_rec.fulfillment_set IS NOT NULL AND
4797: p_x_line_rec.fulfillment_set <> FND_API.G_MISS_CHAR)THEN
4798:
4799: IF l_debug_level > 0 THEN
4800: oe_debug_pub.add( 'INTO FULLFILLMENT SETS ' ) ;
4801: END IF;
4802:
4803: /*IF Set_Exist(p_set_name =>p_x_line_rec.fulfillment_set,
4804: p_set_type => 'FULFILLMENT_SET',
4815: l_exist := FALSE;
4816: for Cnt In 1..g_set_tbl.count
4817: Loop
4818: IF l_debug_level > 0 THEN
4819: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .LINE_ID ) ;
4820: END IF;
4821: IF l_debug_level > 0 THEN
4822: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4823: END IF;
4818: IF l_debug_level > 0 THEN
4819: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .LINE_ID ) ;
4820: END IF;
4821: IF l_debug_level > 0 THEN
4822: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4823: END IF;
4824: IF l_debug_level > 0 THEN
4825: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4826: END IF;
4821: IF l_debug_level > 0 THEN
4822: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4823: END IF;
4824: IF l_debug_level > 0 THEN
4825: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4826: END IF;
4827: IF l_debug_level > 0 THEN
4828: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4829: END IF;
4824: IF l_debug_level > 0 THEN
4825: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4826: END IF;
4827: IF l_debug_level > 0 THEN
4828: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4829: END IF;
4830: IF l_debug_level > 0 THEN
4831: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
4832: END IF;
4827: IF l_debug_level > 0 THEN
4828: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4829: END IF;
4830: IF l_debug_level > 0 THEN
4831: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
4832: END IF;
4833: IF (g_set_tbl(cnt).line_id = p_x_line_rec.line_id AND
4834: g_set_tbl(cnt).set_name = p_x_line_rec.fulfillment_set AND
4835: g_set_tbl(cnt).set_type = 'FULFILLMENT_SET') THEN
4833: IF (g_set_tbl(cnt).line_id = p_x_line_rec.line_id AND
4834: g_set_tbl(cnt).set_name = p_x_line_rec.fulfillment_set AND
4835: g_set_tbl(cnt).set_type = 'FULFILLMENT_SET') THEN
4836: IF l_debug_level > 0 THEN
4837: oe_debug_pub.add( 'EXISTS' ) ;
4838: END IF;
4839: l_exist := TRUE;
4840: exit;
4841: END IF;
4842: End Loop;
4843: End IF;
4844: IF Not L_Exist THEN
4845: IF l_debug_level > 0 THEN
4846: oe_debug_pub.add( 'NOT EXISTS' ) ;
4847: END IF;
4848: IF p_x_line_rec.operation = oe_globals.g_opr_create THEN
4849: IF (p_x_line_rec.line_id IS NOT NULL AND
4850: p_x_line_rec.line_id <> FND_API.G_MISS_NUM ) THEN
4862:
4863: p_x_line_rec.fulfillment_set_id := NULL;
4864: --END IF;
4865: IF l_debug_level > 0 THEN
4866: oe_debug_pub.add( 'EXIT FULLFILLMENT SET ' ) ;
4867: END IF;
4868: ELSIF (p_x_line_rec.fulfillment_set_id IS NOT NULL AND
4869: p_x_line_rec.fulfillment_set_id <> FND_API.G_MISS_NUM)THEN
4870: IF NOT OE_GLOBALS.Equal(p_x_line_rec.fulfillment_set_id,p_old_line_rec.fulfillment_set_id)
4881: l_exist := FALSE;
4882: for Cnt In 1..g_set_tbl.count
4883: Loop
4884: IF l_debug_level > 0 THEN
4885: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .LINE_ID ) ;
4886: END IF;
4887: IF l_debug_level > 0 THEN
4888: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4889: END IF;
4884: IF l_debug_level > 0 THEN
4885: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .LINE_ID ) ;
4886: END IF;
4887: IF l_debug_level > 0 THEN
4888: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4889: END IF;
4890: IF l_debug_level > 0 THEN
4891: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4892: END IF;
4887: IF l_debug_level > 0 THEN
4888: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.LINE_ID ) ;
4889: END IF;
4890: IF l_debug_level > 0 THEN
4891: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4892: END IF;
4893: IF l_debug_level > 0 THEN
4894: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4895: END IF;
4890: IF l_debug_level > 0 THEN
4891: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_NAME ) ;
4892: END IF;
4893: IF l_debug_level > 0 THEN
4894: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4895: END IF;
4896: IF l_debug_level > 0 THEN
4897: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
4898: END IF;
4893: IF l_debug_level > 0 THEN
4894: oe_debug_pub.add( 'INTO GETSETID TBL' || P_X_LINE_REC.SHIP_SET ) ;
4895: END IF;
4896: IF l_debug_level > 0 THEN
4897: oe_debug_pub.add( 'INTO GETSETID TBL' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
4898: END IF;
4899: IF (g_set_tbl(cnt).line_id = p_x_line_rec.line_id AND
4900: g_set_tbl(cnt).set_name = p_x_line_rec.fulfillment_set AND
4901: g_set_tbl(cnt).set_type = 'FULFILLMENT_SET') THEN
4899: IF (g_set_tbl(cnt).line_id = p_x_line_rec.line_id AND
4900: g_set_tbl(cnt).set_name = p_x_line_rec.fulfillment_set AND
4901: g_set_tbl(cnt).set_type = 'FULFILLMENT_SET') THEN
4902: IF l_debug_level > 0 THEN
4903: oe_debug_pub.add( 'EXISTS' ) ;
4904: END IF;
4905: l_exist := TRUE;
4906: exit;
4907: END IF;
4908: End Loop;
4909: End IF;
4910: IF Not L_Exist THEN
4911: IF l_debug_level > 0 THEN
4912: oe_debug_pub.add( 'NOT EXISTS' ) ;
4913: END IF;
4914: IF p_x_line_rec.operation = oe_globals.g_opr_create THEN
4915: IF (p_x_line_rec.line_id IS NOT NULL AND
4916: p_x_line_rec.line_id <> FND_API.G_MISS_NUM ) THEN
4995: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE',
4996: -- p_x_line_rec.item_type_code);
4997:
4998: OE_MSG_PUB.ADD;
4999: oe_debug_pub.add('Set- not allowed for this itemtype');
5000: RAISE FND_API.G_EXC_ERROR;
5001:
5002: END IF;
5003: */
5041: p_x_line_rec.ship_set_id := NULL;
5042:
5043: END IF;
5044: IF l_debug_level > 0 THEN
5045: oe_debug_pub.add( 'EXIT GET SET ID' ) ;
5046: END IF;
5047: IF l_debug_level > 0 THEN
5048: oe_debug_pub.add( 'AFTER GET SET ID PROCESS - COMPLETE TABLE - ' ) ;
5049: END IF;
5044: IF l_debug_level > 0 THEN
5045: oe_debug_pub.add( 'EXIT GET SET ID' ) ;
5046: END IF;
5047: IF l_debug_level > 0 THEN
5048: oe_debug_pub.add( 'AFTER GET SET ID PROCESS - COMPLETE TABLE - ' ) ;
5049: END IF;
5050: for Cnt In 1..g_set_tbl.count
5051: Loop
5052: IF l_debug_level > 0 THEN
5049: END IF;
5050: for Cnt In 1..g_set_tbl.count
5051: Loop
5052: IF l_debug_level > 0 THEN
5053: oe_debug_pub.add( 'SET NAME' || G_SET_TBL ( CNT ) .SET_NAME ) ;
5054: END IF;
5055: IF l_debug_level > 0 THEN
5056: oe_debug_pub.add( 'SET TYPE' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
5057: END IF;
5052: IF l_debug_level > 0 THEN
5053: oe_debug_pub.add( 'SET NAME' || G_SET_TBL ( CNT ) .SET_NAME ) ;
5054: END IF;
5055: IF l_debug_level > 0 THEN
5056: oe_debug_pub.add( 'SET TYPE' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
5057: END IF;
5058: IF l_debug_level > 0 THEN
5059: oe_debug_pub.add( 'LINE ID' || G_SET_TBL ( CNT ) .LINE_ID ) ;
5060: END IF;
5055: IF l_debug_level > 0 THEN
5056: oe_debug_pub.add( 'SET TYPE' || G_SET_TBL ( CNT ) .SET_TYPE ) ;
5057: END IF;
5058: IF l_debug_level > 0 THEN
5059: oe_debug_pub.add( 'LINE ID' || G_SET_TBL ( CNT ) .LINE_ID ) ;
5060: END IF;
5061: IF l_debug_level > 0 THEN
5062: oe_debug_pub.add( 'OPERATION' || G_SET_TBL ( CNT ) .OPERATION ) ;
5063: END IF;
5058: IF l_debug_level > 0 THEN
5059: oe_debug_pub.add( 'LINE ID' || G_SET_TBL ( CNT ) .LINE_ID ) ;
5060: END IF;
5061: IF l_debug_level > 0 THEN
5062: oe_debug_pub.add( 'OPERATION' || G_SET_TBL ( CNT ) .OPERATION ) ;
5063: END IF;
5064: end loop;
5065:
5066:
5105: OR arrival_set_id = p_set_id)
5106: ORDER BY line_number,shipment_number,nvl(option_number,-1);
5107:
5108: --
5109: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5110: --
5111: BEGIN
5112:
5113: IF l_debug_level > 0 THEN
5110: --
5111: BEGIN
5112:
5113: IF l_debug_level > 0 THEN
5114: oe_debug_pub.add( 'ENTERING OE_SET_UTIL.QUERY_ROWS' , 1 ) ;
5115: END IF;
5116:
5117:
5118: IF
5157:
5158:
5159: -- Return fetched table
5160: IF l_debug_level > 0 THEN
5161: oe_debug_pub.add( 'EXITING OE_LINE_UTIL.QUERY_ROWS' , 1 ) ;
5162: END IF;
5163:
5164:
5165: EXCEPTION
5185: PROCEDURE Create_line_Set(p_x_line_rec IN OUT NOCOPY OE_ORDER_PUB.LINE_REC_TYPE
5186: ) IS
5187: l_set_id number;
5188: --
5189: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5190: --
5191: BEGIN
5192:
5193: IF l_debug_level > 0 THEN
5190: --
5191: BEGIN
5192:
5193: IF l_debug_level > 0 THEN
5194: oe_debug_pub.add( 'ENTER:CREATE LINE SETS ' , 1 ) ;
5195: END IF;
5196:
5197: SELECT OE_SETS_S.NEXTVAL
5198: INTO l_set_id
5197: SELECT OE_SETS_S.NEXTVAL
5198: INTO l_set_id
5199: FROM DUAL;
5200: IF l_debug_level > 0 THEN
5201: oe_debug_pub.add( 'AFTERSEQUECEVALUE ' , 1 ) ;
5202: END IF;
5203: INSERT INTO OE_SETS(
5204: SET_ID
5205: , SET_NAME
5232: );
5233: p_x_line_rec.line_set_id := l_Set_id;
5234:
5235: IF l_debug_level > 0 THEN
5236: oe_debug_pub.add( 'AFTERINSERT'||TO_CHAR ( L_SET_ID ) , 1 ) ;
5237: END IF;
5238: IF l_debug_level > 0 THEN
5239: oe_debug_pub.add( 'AFTERINSERT ' , 1 ) ;
5240: END IF;
5235: IF l_debug_level > 0 THEN
5236: oe_debug_pub.add( 'AFTERINSERT'||TO_CHAR ( L_SET_ID ) , 1 ) ;
5237: END IF;
5238: IF l_debug_level > 0 THEN
5239: oe_debug_pub.add( 'AFTERINSERT ' , 1 ) ;
5240: END IF;
5241:
5242:
5243: EXCEPTION
5290: x_msg_data varchar2(2000);
5291: next number;
5292: l_proc_record number := 0;
5293: x_arrival_set_id number;
5294: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5295: -- 4925992
5296: l_top_model_line_id NUMBER;
5297: BEGIN
5298:
5298:
5299:
5300:
5301: IF l_debug_level > 0 THEN
5302: oe_debug_pub.add( 'ENTER PROCESS SETS' ) ;
5303: END IF;
5304: IF l_debug_level > 0 THEN
5305: oe_debug_pub.add( 'RECURSION MODE' || OE_GLOBALS.G_RECURSION_MODE ) ;
5306: END IF;
5301: IF l_debug_level > 0 THEN
5302: oe_debug_pub.add( 'ENTER PROCESS SETS' ) ;
5303: END IF;
5304: IF l_debug_level > 0 THEN
5305: oe_debug_pub.add( 'RECURSION MODE' || OE_GLOBALS.G_RECURSION_MODE ) ;
5306: END IF;
5307:
5308: -- To avoid this in a recursive procedure
5309:
5324:
5325: -- Populate line id if the index id populated and operation is create
5326: --on the line
5327: IF l_debug_level > 0 THEN
5328: oe_debug_pub.add( 'LINE ID' || G_SET_TBL ( I ) .LINE_ID ) ;
5329: END IF;
5330: IF l_debug_level > 0 THEN
5331: oe_debug_pub.add( 'OPERATION' || G_SET_TBL ( I ) .OPERATION ) ;
5332: END IF;
5327: IF l_debug_level > 0 THEN
5328: oe_debug_pub.add( 'LINE ID' || G_SET_TBL ( I ) .LINE_ID ) ;
5329: END IF;
5330: IF l_debug_level > 0 THEN
5331: oe_debug_pub.add( 'OPERATION' || G_SET_TBL ( I ) .OPERATION ) ;
5332: END IF;
5333:
5334: IF g_set_tbl(I).line_id = J THEN
5335: IF l_debug_level > 0 THEN
5332: END IF;
5333:
5334: IF g_set_tbl(I).line_id = J THEN
5335: IF l_debug_level > 0 THEN
5336: oe_debug_pub.add( 'OPERATION' || P_X_LINE_TBL ( J ) .ITEM_TYPE_CODE ) ;
5337: END IF;
5338: IF p_x_line_tbl(J).item_type_code <> 'MODEL' AND
5339: p_x_line_tbl(J).item_type_code <> 'STANDARD' AND
5340: p_x_line_tbl(J).item_type_code <> 'KIT' THEN
5348: END IF;
5349: End Loop;
5350:
5351: IF l_debug_level > 0 THEN
5352: oe_debug_pub.add( 'G_LINE_TBL: COUNT' || G_SET_TBL.COUNT ) ;
5353: END IF;
5354:
5355: -- Process all the lines in the set table now
5356:
5364: IF l_proc_record = g_set_tbl.count THEN
5365: EXIT;
5366: END IF;
5367: IF l_debug_level > 0 THEN
5368: oe_debug_pub.add( 'INTO SET COUNT' ) ;
5369: END IF;
5370:
5371: -- This logic is avoid the invalid sets that are marked in get set id api
5372:
5384:
5385: WHEN NO_DATA_FOUND THEN
5386:
5387: IF l_debug_level > 0 THEN
5388: oe_debug_pub.add( 'No data found ' || g_set_tbl(I).line_id ) ;
5389: END IF;
5390: g_set_tbl(I).process_flag := 'Y' ;
5391: END;
5392:
5429:
5430: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SET_OPR');
5431: OE_MSG_PUB.ADD;
5432: IF l_debug_level > 0 THEN
5433: oe_debug_pub.add( 'LINE IS NOT VALID TO PROCESS: ' || L_LINE_REC.LINE_ID , 1 ) ;
5434: END IF;
5435: g_set_tbl(I).process_flag := 'Y' ;
5436: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
5437:
5449: AND (g_set_tbl(I).set_type = 'ARRIVAL'
5450: OR g_set_tbl(I).set_type = 'SHIP')) THEN
5451:
5452: IF l_debug_level > 0 THEN
5453: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' || L_LINE_REC.ITEM_TYPE_CODE ) ;
5454: END IF;
5455:
5456: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SET_OPR');
5457: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE',
5457: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE',
5458: -- l_line_rec.item_type_code);
5459: OE_MSG_PUB.ADD;
5460: IF l_debug_level > 0 THEN
5461: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
5462: END IF;
5463: --RAISE FND_API.G_EXC_ERROR;
5464: g_set_tbl(I).process_flag := 'Y' ;
5465: END IF;
5466: END IF;
5467:
5468: IF g_set_tbl(I).process_flag <> 'Y' THEN
5469: IF l_debug_level > 0 THEN
5470: oe_debug_pub.add( 'SET PROCESSING- I:' || I ) ;
5471: END IF;
5472: l_set_name := g_set_tbl(I).set_name;
5473: IF l_debug_level > 0 THEN
5474: oe_debug_pub.add( 'LINE ID :' || G_SET_TBL ( I ) .LINE_ID ) ;
5470: oe_debug_pub.add( 'SET PROCESSING- I:' || I ) ;
5471: END IF;
5472: l_set_name := g_set_tbl(I).set_name;
5473: IF l_debug_level > 0 THEN
5474: oe_debug_pub.add( 'LINE ID :' || G_SET_TBL ( I ) .LINE_ID ) ;
5475: END IF;
5476: l_line_tbl(l_count) :=
5477: l_line_rec;
5478: l_old_line_tbl(l_count) :=
5477: l_line_rec;
5478: l_old_line_tbl(l_count) :=
5479: l_line_rec;
5480: IF l_debug_level > 0 THEN
5481: oe_debug_pub.add( 'SCHEDULE REQUEST DATE- :' || L_LINE_REC.REQUEST_DATE , 1 ) ;
5482: END IF;
5483: IF l_debug_level > 0 THEN
5484: oe_debug_pub.add( 'SCHEDULE REQUEST DATE- :' || L_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
5485: END IF;
5480: IF l_debug_level > 0 THEN
5481: oe_debug_pub.add( 'SCHEDULE REQUEST DATE- :' || L_LINE_REC.REQUEST_DATE , 1 ) ;
5482: END IF;
5483: IF l_debug_level > 0 THEN
5484: oe_debug_pub.add( 'SCHEDULE REQUEST DATE- :' || L_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
5485: END IF;
5486: g_old_line_tbl(l_count) :=
5487: l_line_tbl(l_count);
5488: IF l_debug_level > 0 THEN
5485: END IF;
5486: g_old_line_tbl(l_count) :=
5487: l_line_tbl(l_count);
5488: IF l_debug_level > 0 THEN
5489: oe_debug_pub.add( 'AFTER QUERY_ROW :' ) ;
5490: END IF;
5491: l_line_tbl(l_count).schedule_action_code :=
5492: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE;
5493: IF l_debug_level > 0 THEN
5490: END IF;
5491: l_line_tbl(l_count).schedule_action_code :=
5492: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE;
5493: IF l_debug_level > 0 THEN
5494: oe_debug_pub.add( 'AFTER SCHDULING ACITON ASSIGN:' ) ;
5495: END IF;
5496: IF g_set_tbl(I).set_type = 'SHIP_SET' THEN
5497: IF l_debug_level > 0 THEN
5498: oe_debug_pub.add( 'IN SHIP SET:' ) ;
5494: oe_debug_pub.add( 'AFTER SCHDULING ACITON ASSIGN:' ) ;
5495: END IF;
5496: IF g_set_tbl(I).set_type = 'SHIP_SET' THEN
5497: IF l_debug_level > 0 THEN
5498: oe_debug_pub.add( 'IN SHIP SET:' ) ;
5499: END IF;
5500: l_set_type := 'SHIP_SET';
5501: l_ship_from_org_id := l_line_tbl(l_count).ship_from_org_id;
5502: l_ship_to_org_id := l_line_tbl(l_count).ship_to_org_id;
5523: p_index => l_count);
5524: END IF;
5525:
5526: IF l_debug_level > 0 THEN
5527: oe_debug_pub.add( 'AFTER ASSIGNING SCHEDULE ATTRI- I:' || I ) ;
5528: END IF;
5529: g_set_tbl(I).process_flag := 'Y';
5530: l_count := l_line_tbl.count + 1;
5531: l_proc_record := l_proc_record + 1;
5543:
5544: FOR J in Next .. g_set_tbl.count
5545: LOOP
5546: IF l_debug_level > 0 THEN
5547: oe_debug_pub.add( 'SET PROCESSING- J:' || J ) ;
5548: END IF;
5549: IF l_debug_level > 0 THEN
5550: oe_debug_pub.add( 'SET PROCESSING- NEXT:' || NEXT ) ;
5551: END IF;
5546: IF l_debug_level > 0 THEN
5547: oe_debug_pub.add( 'SET PROCESSING- J:' || J ) ;
5548: END IF;
5549: IF l_debug_level > 0 THEN
5550: oe_debug_pub.add( 'SET PROCESSING- NEXT:' || NEXT ) ;
5551: END IF;
5552: IF l_debug_level > 0 THEN
5553: oe_debug_pub.add( 'SET NAME- NEXT:' || L_SET_NAME ) ;
5554: END IF;
5549: IF l_debug_level > 0 THEN
5550: oe_debug_pub.add( 'SET PROCESSING- NEXT:' || NEXT ) ;
5551: END IF;
5552: IF l_debug_level > 0 THEN
5553: oe_debug_pub.add( 'SET NAME- NEXT:' || L_SET_NAME ) ;
5554: END IF;
5555: IF l_debug_level > 0 THEN
5556: oe_debug_pub.add( 'SET NAME- NEXT:' || L_SET_TYPE ) ;
5557: END IF;
5552: IF l_debug_level > 0 THEN
5553: oe_debug_pub.add( 'SET NAME- NEXT:' || L_SET_NAME ) ;
5554: END IF;
5555: IF l_debug_level > 0 THEN
5556: oe_debug_pub.add( 'SET NAME- NEXT:' || L_SET_TYPE ) ;
5557: END IF;
5558: IF l_debug_level > 0 THEN
5559: oe_debug_pub.add( 'SET NAME- NEXT:' || G_SET_TBL ( J ) .SET_NAME ) ;
5560: END IF;
5555: IF l_debug_level > 0 THEN
5556: oe_debug_pub.add( 'SET NAME- NEXT:' || L_SET_TYPE ) ;
5557: END IF;
5558: IF l_debug_level > 0 THEN
5559: oe_debug_pub.add( 'SET NAME- NEXT:' || G_SET_TBL ( J ) .SET_NAME ) ;
5560: END IF;
5561: IF l_debug_level > 0 THEN
5562: oe_debug_pub.add( 'SET NAME- NEXT:' || G_SET_TBL ( J ) .SET_TYPE ) ;
5563: END IF;
5558: IF l_debug_level > 0 THEN
5559: oe_debug_pub.add( 'SET NAME- NEXT:' || G_SET_TBL ( J ) .SET_NAME ) ;
5560: END IF;
5561: IF l_debug_level > 0 THEN
5562: oe_debug_pub.add( 'SET NAME- NEXT:' || G_SET_TBL ( J ) .SET_TYPE ) ;
5563: END IF;
5564: oe_line_util.query_row(p_line_id => g_set_tbl(J).line_id,
5565: x_line_rec => l_line_rec);
5566:
5598: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE',
5599: -- l_line_rec.item_type_code);
5600: OE_MSG_PUB.ADD;
5601: IF l_debug_level > 0 THEN
5602: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
5603: END IF;
5604: --RAISE FND_API.G_EXC_ERROR;
5605: g_set_tbl(J).process_flag := 'Y' ;
5606: END IF;
5604: --RAISE FND_API.G_EXC_ERROR;
5605: g_set_tbl(J).process_flag := 'Y' ;
5606: END IF;
5607: IF l_debug_level > 0 THEN
5608: oe_debug_pub.add( 'PROCES FLAG- J:' || G_SET_TBL ( J ) .PROCESS_FLAG ) ;
5609: END IF;
5610:
5611: IF g_set_tbl(J).process_flag <> 'Y' THEN
5612:
5610:
5611: IF g_set_tbl(J).process_flag <> 'Y' THEN
5612:
5613: IF l_debug_level > 0 THEN
5614: oe_debug_pub.add( 'INTO PROCESSFLAG- J:' ) ;
5615: END IF;
5616: IF g_set_tbl(J).set_name = l_set_name AND
5617: g_set_tbl(J).set_type = l_set_type THEN
5618: IF l_debug_level > 0 THEN
5615: END IF;
5616: IF g_set_tbl(J).set_name = l_set_name AND
5617: g_set_tbl(J).set_type = l_set_type THEN
5618: IF l_debug_level > 0 THEN
5619: oe_debug_pub.add( 'SET PROCESSING- J:' || J ) ;
5620: END IF;
5621: IF l_debug_level > 0 THEN
5622: oe_debug_pub.add( 'SET PROCESSING- NEXT:' || NEXT ) ;
5623: END IF;
5618: IF l_debug_level > 0 THEN
5619: oe_debug_pub.add( 'SET PROCESSING- J:' || J ) ;
5620: END IF;
5621: IF l_debug_level > 0 THEN
5622: oe_debug_pub.add( 'SET PROCESSING- NEXT:' || NEXT ) ;
5623: END IF;
5624:
5625: IF l_debug_level > 0 THEN
5626: oe_debug_pub.add( 'INTO PROCESSING- J:' || NEXT ) ;
5622: oe_debug_pub.add( 'SET PROCESSING- NEXT:' || NEXT ) ;
5623: END IF;
5624:
5625: IF l_debug_level > 0 THEN
5626: oe_debug_pub.add( 'INTO PROCESSING- J:' || NEXT ) ;
5627: END IF;
5628: l_line_tbl(l_count) :=
5629: l_line_rec;
5630: l_old_line_tbl(l_count) :=
5682: l_line_tbl(l_count).top_model_line_id =
5683: l_line_tbl(l_count).line_id) OR
5684: l_line_tbl(l_count).item_type_code = 'KIT' THEN
5685: IF l_debug_level > 0 THEN
5686: oe_debug_pub.add( 'CALLING OPTIONS J:' ) ;
5687: END IF;
5688: Get_Options(p_x_line_tbl => l_line_tbl,
5689: p_set_type => l_set_type,
5690: p_index => l_count);
5697:
5698: END LOOP; -- J
5699:
5700: IF l_debug_level > 0 THEN
5701: oe_debug_pub.add( 'BEFORE CALLING SCHSET:'|| L_LINE_TBL.COUNT , 1 ) ;
5702: END IF;
5703: IF l_debug_level > 0 THEN
5704: oe_debug_pub.add( 'BEFORE CALLING SCHSET REQUEST DATE:'|| L_LINE_TBL ( 1 ) .REQUEST_DATE , 1 ) ;
5705: END IF;
5700: IF l_debug_level > 0 THEN
5701: oe_debug_pub.add( 'BEFORE CALLING SCHSET:'|| L_LINE_TBL.COUNT , 1 ) ;
5702: END IF;
5703: IF l_debug_level > 0 THEN
5704: oe_debug_pub.add( 'BEFORE CALLING SCHSET REQUEST DATE:'|| L_LINE_TBL ( 1 ) .REQUEST_DATE , 1 ) ;
5705: END IF;
5706: IF l_debug_level > 0 THEN
5707: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( 1 ) .SCHEDULE_SHIP_DATE , 1 ) ;
5708: END IF;
5703: IF l_debug_level > 0 THEN
5704: oe_debug_pub.add( 'BEFORE CALLING SCHSET REQUEST DATE:'|| L_LINE_TBL ( 1 ) .REQUEST_DATE , 1 ) ;
5705: END IF;
5706: IF l_debug_level > 0 THEN
5707: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( 1 ) .SCHEDULE_SHIP_DATE , 1 ) ;
5708: END IF;
5709: IF l_debug_level > 0 THEN
5710: oe_debug_pub.add( 'BEFORE CALLING SHIP SET:'|| L_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
5711: END IF;
5706: IF l_debug_level > 0 THEN
5707: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( 1 ) .SCHEDULE_SHIP_DATE , 1 ) ;
5708: END IF;
5709: IF l_debug_level > 0 THEN
5710: oe_debug_pub.add( 'BEFORE CALLING SHIP SET:'|| L_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
5711: END IF;
5712: IF l_debug_level > 0 THEN
5713: oe_debug_pub.add( 'BEFORE CALLING SHIP SET:'|| G_OLD_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
5714: END IF;
5709: IF l_debug_level > 0 THEN
5710: oe_debug_pub.add( 'BEFORE CALLING SHIP SET:'|| L_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
5711: END IF;
5712: IF l_debug_level > 0 THEN
5713: oe_debug_pub.add( 'BEFORE CALLING SHIP SET:'|| G_OLD_LINE_TBL ( 1 ) .SHIP_SET_ID , 1 ) ;
5714: END IF;
5715: --l_line_tbl(1).schedule_ship_date := l_line_tbl(1).request_date;
5716:
5717: g_set_recursive_flag := TRUE;
5730: END LOOP;*/
5731: IF l_set_type <> 'FULFILLMENT_SET' THEN
5732: for t in 1..l_line_tbl.count loop
5733: IF l_debug_level > 0 THEN
5734: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 1 ) ;
5735: END IF;
5736: IF l_debug_level > 0 THEN
5737: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .REQUEST_DATE , 1 ) ;
5738: END IF;
5733: IF l_debug_level > 0 THEN
5734: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 1 ) ;
5735: END IF;
5736: IF l_debug_level > 0 THEN
5737: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .REQUEST_DATE , 1 ) ;
5738: END IF;
5739: IF l_debug_level > 0 THEN
5740: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .ITEM_TYPE_CODE , 1 ) ;
5741: END IF;
5736: IF l_debug_level > 0 THEN
5737: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .REQUEST_DATE , 1 ) ;
5738: END IF;
5739: IF l_debug_level > 0 THEN
5740: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .ITEM_TYPE_CODE , 1 ) ;
5741: END IF;
5742: end loop;
5743:
5744:
5746: p_old_line_tbl => g_old_line_tbl,
5747: x_return_status => l_return_status);
5748: END IF;
5749: IF l_debug_level > 0 THEN
5750: oe_debug_pub.add( 'AFTER CALLING SCHSET:'|| L_LINE_TBL.COUNT , 1 ) ;
5751: END IF;
5752: for t in 1..l_line_tbl.count loop
5753: IF l_debug_level > 0 THEN
5754: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 1 ) ;
5750: oe_debug_pub.add( 'AFTER CALLING SCHSET:'|| L_LINE_TBL.COUNT , 1 ) ;
5751: END IF;
5752: for t in 1..l_line_tbl.count loop
5753: IF l_debug_level > 0 THEN
5754: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 1 ) ;
5755: END IF;
5756: IF l_debug_level > 0 THEN
5757: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .REQUEST_DATE , 1 ) ;
5758: END IF;
5753: IF l_debug_level > 0 THEN
5754: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .SCHEDULE_SHIP_DATE , 1 ) ;
5755: END IF;
5756: IF l_debug_level > 0 THEN
5757: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .REQUEST_DATE , 1 ) ;
5758: END IF;
5759: IF l_debug_level > 0 THEN
5760: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .ITEM_TYPE_CODE , 1 ) ;
5761: END IF;
5756: IF l_debug_level > 0 THEN
5757: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .REQUEST_DATE , 1 ) ;
5758: END IF;
5759: IF l_debug_level > 0 THEN
5760: oe_debug_pub.add( 'BEFORE CALLING SCHSET SCHEDULE DATE:'|| L_LINE_TBL ( T ) .ITEM_TYPE_CODE , 1 ) ;
5761: END IF;
5762: end loop;
5763: --g_old_line_tbl.delete;
5764:
5762: end loop;
5763: --g_old_line_tbl.delete;
5764:
5765: IF l_debug_level > 0 THEN
5766: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' , 1 ) ;
5767: END IF;
5768: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5769: IF l_debug_level > 0 THEN
5770: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
5766: oe_debug_pub.add( 'AFTER GROUP SCHEDULING' , 1 ) ;
5767: END IF;
5768: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5769: IF l_debug_level > 0 THEN
5770: oe_debug_pub.add( 'RETURNSTATUS UNEXPECTED SCHEDULING' , 1 ) ;
5771: END IF;
5772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5773: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5774: IF l_debug_level > 0 THEN
5771: END IF;
5772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5773: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5774: IF l_debug_level > 0 THEN
5775: oe_debug_pub.add( 'RETURNSTATUS ERROR SCHEDULING' , 1 ) ;
5776: END IF;
5777: RAISE FND_API.G_EXC_ERROR;
5778: END IF;
5779: --l_header_id := l_line_tbl(1).header_id;
5785: l_schedule_arrival_date := l_line_tbl(1).schedule_arrival_date;
5786: l_ship_to_org_id := l_line_tbl(1).ship_to_org_id;
5787: END IF;
5788: IF l_debug_level > 0 THEN
5789: oe_debug_pub.add( 'SET6' , 1 ) ;
5790: END IF;
5791: END IF;
5792: l_header_id := l_line_tbl(1).header_id;
5793: IF l_debug_level > 0 THEN
5790: END IF;
5791: END IF;
5792: l_header_id := l_line_tbl(1).header_id;
5793: IF l_debug_level > 0 THEN
5794: oe_debug_pub.add( 'SET NAME- BEFORE CREATE:' || L_SET_NAME ) ;
5795: END IF;
5796: IF l_debug_level > 0 THEN
5797: oe_debug_pub.add( 'SET TYPE- BEFORE CREATE:' || L_SET_TYPE ) ;
5798: END IF;
5793: IF l_debug_level > 0 THEN
5794: oe_debug_pub.add( 'SET NAME- BEFORE CREATE:' || L_SET_NAME ) ;
5795: END IF;
5796: IF l_debug_level > 0 THEN
5797: oe_debug_pub.add( 'SET TYPE- BEFORE CREATE:' || L_SET_TYPE ) ;
5798: END IF;
5799: IF l_debug_level > 0 THEN
5800: oe_debug_pub.add( ' HEADER- BEFORE CREATE:' || L_HEADER_ID ) ;
5801: END IF;
5796: IF l_debug_level > 0 THEN
5797: oe_debug_pub.add( 'SET TYPE- BEFORE CREATE:' || L_SET_TYPE ) ;
5798: END IF;
5799: IF l_debug_level > 0 THEN
5800: oe_debug_pub.add( ' HEADER- BEFORE CREATE:' || L_HEADER_ID ) ;
5801: END IF;
5802:
5803: Create_Set
5804: (p_Set_Name => l_set_name,
5823: END IF;
5824:
5825: IF l_set_type = 'FULFILLMENT_SET' THEN
5826: IF l_debug_level > 0 THEN
5827: oe_debug_pub.add( 'BEFORE CREATING FULLFILLMENT SET' ) ;
5828: END IF;
5829: FOR fullrec in 1..l_line_tbl.COUNT
5830: LOOP
5831: IF l_debug_level > 0 THEN
5828: END IF;
5829: FOR fullrec in 1..l_line_tbl.COUNT
5830: LOOP
5831: IF l_debug_level > 0 THEN
5832: oe_debug_pub.add( 'INTO LOOP - CREATING FULLFILLMENT SET' ) ;
5833: END IF;
5834: -- 4274226
5835: IF l_line_tbl(fullrec).line_id = l_line_tbl(fullrec).top_model_line_id
5836: AND l_line_tbl(fullrec).operation <> 'CREATE'
5848:
5849: FOR K IN 1 .. l_line_tbl.COUNT
5850: LOOP
5851: IF l_debug_level > 0 THEN
5852: oe_debug_pub.add( 'BEFORE ASSIGNING THE OLD RECORD IN SET' , 1 ) ;
5853: END IF;
5854: oe_line_util.query_row( l_line_tbl(K).line_id,
5855: l_line_rec);
5856: g_old_line_tbl(K) := l_line_rec;
5906:
5907: FOR I IN 1..l_line_tbl.count LOOP
5908:
5909: IF l_debug_level > 0 THEN
5910: oe_debug_pub.add( 'LINE ID ' || L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
5911: END IF;
5912: IF l_debug_level > 0 THEN
5913: oe_debug_pub.add( 'ITEM ' || L_LINE_TBL ( I ) .INVENTORY_ITEM_ID , 1 ) ;
5914: END IF;
5909: IF l_debug_level > 0 THEN
5910: oe_debug_pub.add( 'LINE ID ' || L_LINE_TBL ( I ) .LINE_ID , 1 ) ;
5911: END IF;
5912: IF l_debug_level > 0 THEN
5913: oe_debug_pub.add( 'ITEM ' || L_LINE_TBL ( I ) .INVENTORY_ITEM_ID , 1 ) ;
5914: END IF;
5915: IF l_debug_level > 0 THEN
5916: oe_debug_pub.add( 'OLD ITEM ' || G_OLD_LINE_TBL ( I ) .INVENTORY_ITEM_ID , 1 ) ;
5917: END IF;
5912: IF l_debug_level > 0 THEN
5913: oe_debug_pub.add( 'ITEM ' || L_LINE_TBL ( I ) .INVENTORY_ITEM_ID , 1 ) ;
5914: END IF;
5915: IF l_debug_level > 0 THEN
5916: oe_debug_pub.add( 'OLD ITEM ' || G_OLD_LINE_TBL ( I ) .INVENTORY_ITEM_ID , 1 ) ;
5917: END IF;
5918:
5919:
5920:
5919:
5920:
5921: END LOOP;
5922: IF l_debug_level > 0 THEN
5923: oe_debug_pub.add( 'BEFORE CALLING PROCESS ORDER IN SETS' ) ;
5924: END IF;
5925:
5926:
5927: oe_order_pvt.Lines
5951: );
5952: jolin end */
5953:
5954: IF l_debug_level > 0 THEN
5955: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS' ) ;
5956: END IF;
5957:
5958: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
5959: END IF;
5957:
5958: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
5959: END IF;
5960: IF l_debug_level > 0 THEN
5961: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS-1' ) ;
5962: END IF;
5963: g_set_recursive_flag := FALSE;
5964:
5965: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5969:
5970: FOR M in 1..l_line_tbl.count
5971: LOOP
5972: IF l_debug_level > 0 THEN
5973: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS-2' ) ;
5974: END IF;
5975: FOR H in 1..p_x_line_tbl.count
5976: Loop
5977: IF p_x_line_tbl(H).line_id = l_line_tbl(M).line_id THEN
5980: END IF;
5981: END LOOP;
5982: END LOOP;
5983: IF l_debug_level > 0 THEN
5984: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS-3' ) ;
5985: END IF;
5986: l_line_tbl.delete;
5987: g_old_line_tbl.delete;
5988: l_count := 1;
5990: -- END LOOP; -- J
5991: END IF; -- This is for if processed flag = Y for I
5992:
5993: IF l_debug_level > 0 THEN
5994: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS-4' ) ;
5995: END IF;
5996:
5997: END LOOP; -- I
5998: IF g_set_tbl.count > 0 THEN
6001:
6002: IF g_set_opt_tbl.count <> 0 THEN
6003:
6004: IF l_debug_level > 0 THEN
6005: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS-5' ) ;
6006: END IF;
6007: -- This is to process options that has been effected by changes on the model
6008: -- other than creating a new set. If model is removed or moved into an
6009: -- existing sets then all the options are queried and we will put them in
6009: -- existing sets then all the options are queried and we will put them in
6010: -- a new set.
6011: Process_Options;
6012: IF l_debug_level > 0 THEN
6013: oe_debug_pub.add( 'AFTER CALLING PROCESS ORDER IN SETS-6' ) ;
6014: END IF;
6015: g_set_opt_tbl.delete;
6016: END IF;
6017:
6018: END IF;
6019: <
6020: g_process_options := TRUE;
6021: IF l_debug_level > 0 THEN
6022: oe_debug_pub.add( 'EXIT PROCESS SETS' ) ;
6023: END IF;
6024:
6025:
6026: EXCEPTION
6056: os.set_id = ls.set_id;
6057: lfullist varchar2(2000);
6058: lcount number := 0;
6059: --
6060: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6061: --
6062: BEGIN
6063:
6064: FOR I in FULLIST
6064: FOR I in FULLIST
6065: LOOP
6066: lfullist := lfullist || I.set_name || ',';
6067: IF l_debug_level > 0 THEN
6068: oe_debug_pub.add( 'FULLFILLMENT LIST' ||LFULLIST ) ;
6069: END IF;
6070: END LOOP;
6071: lfullist := rtrim(lfullist,',');
6072: IF l_debug_level > 0 THEN
6069: END IF;
6070: END LOOP;
6071: lfullist := rtrim(lfullist,',');
6072: IF l_debug_level > 0 THEN
6073: oe_debug_pub.add( 'AFTER TRIM FULLFILLMENT LIST' ||LFULLIST ) ;
6074: END IF;
6075: RETURN lfullist;
6076:
6077: END Get_Fulfillment_List;
6078:
6079: Procedure Remove_from_fulfillment(p_line_id NUMBER)
6080: IS
6081: --
6082: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6083: --
6084: Begin
6085:
6086: Delete oe_line_sets
6182:
6183:
6184:
6185: --
6186: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6187: --
6188: BEGIN
6189:
6190: -- Firstly Check if the Set is a new set Requested. We can check in the
6190: -- Firstly Check if the Set is a new set Requested. We can check in the
6191: -- order of Arrival, Ship and Fulfillment set
6192:
6193: IF l_debug_level > 0 THEN
6194: oe_debug_pub.add( 'ENTER PROCEDURE DEFAULT LINE SET' , 1 ) ;
6195: END IF;
6196:
6197: -- This will process only if the line is internal , standard and model and
6198: -- not shipped
6213: p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM))
6214: THEN
6215:
6216: IF l_debug_level > 0 THEN
6217: oe_debug_pub.add( 'INVALID SER OPR' , 2 ) ;
6218: END IF;
6219: FND_MESSAGE.Set_Name('ONT', 'OE_SCH_NOT_IN_SHIP_ARR'); -- 2724197 New message added
6220: oe_msg_pub.add;
6221: RAISE FND_API.G_EXC_ERROR;
6235: p_x_line_rec.top_model_line_id = p_x_line_rec.line_id ) AND
6236: p_x_line_rec.line_category_code <> 'RETURN' THEN
6237:
6238: IF l_debug_level > 0 THEN
6239: oe_debug_pub.add( 'IS A VALID SET REQUEST' , 1 ) ;
6240: END IF;
6241:
6242: -- Check if the header preference is set to keep the line in a set
6243: -- by default
6264:
6265: g_cust_pref_set := TRUE;
6266:
6267: IF l_debug_level > 0 THEN
6268: oe_debug_pub.add( 'INTO SYSTEM SET' , 1 ) ;
6269: END IF;
6270:
6271: IF NVL(FND_PROFILE.VALUE('ONT_SET_FOR_EACH_LINE'),'N') = 'N' THEN
6272:
6274: OPEN C4;
6275: FETCH C4 into l_set_id;
6276: close C4;
6277: ELSE
6278: oe_debug_pub.add('Profile ARRIVAL: '|| p_x_line_rec.arrival_set,2);
6279: oe_debug_pub.add('Profile SHIP: ' || p_x_line_rec.ship_set , 2);
6280:
6281: IF p_x_line_rec.arrival_set is not null or
6282: p_x_line_rec.ship_set is not null THEN
6275: FETCH C4 into l_set_id;
6276: close C4;
6277: ELSE
6278: oe_debug_pub.add('Profile ARRIVAL: '|| p_x_line_rec.arrival_set,2);
6279: oe_debug_pub.add('Profile SHIP: ' || p_x_line_rec.ship_set , 2);
6280:
6281: IF p_x_line_rec.arrival_set is not null or
6282: p_x_line_rec.ship_set is not null THEN
6283: OPEN C2;
6303: ,p_old_line_rec => p_old_line_rec
6304: ,x_return_status => l_return_status);
6305:
6306: IF l_debug_level > 0 THEN
6307: oe_debug_pub.add( 'Return Status '|| l_return_status , 1 ) ;
6308: END IF;
6309:
6310: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6311: p_x_line_rec.ship_set_id := Null;
6316:
6317: END IF;
6318:
6319: IF l_debug_level > 0 THEN
6320: oe_debug_pub.add( 'INTO SET EXISTS'|| L_SET_ID , 1 ) ;
6321: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
6322: END IF;
6323:
6324: ELSIF l_cust_pref = 'ARRIVAL' THEN
6317: END IF;
6318:
6319: IF l_debug_level > 0 THEN
6320: oe_debug_pub.add( 'INTO SET EXISTS'|| L_SET_ID , 1 ) ;
6321: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
6322: END IF;
6323:
6324: ELSIF l_cust_pref = 'ARRIVAL' THEN
6325: p_x_line_rec.arrival_set_id := l_set_id;
6323:
6324: ELSIF l_cust_pref = 'ARRIVAL' THEN
6325: p_x_line_rec.arrival_set_id := l_set_id;
6326: IF l_debug_level > 0 THEN
6327: oe_debug_pub.add( 'INTO SET EXISTS'|| L_SET_ID , 1 ) ;
6328: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6329: END IF;
6330: END IF;
6331:
6324: ELSIF l_cust_pref = 'ARRIVAL' THEN
6325: p_x_line_rec.arrival_set_id := l_set_id;
6326: IF l_debug_level > 0 THEN
6327: oe_debug_pub.add( 'INTO SET EXISTS'|| L_SET_ID , 1 ) ;
6328: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6329: END IF;
6330: END IF;
6331:
6332: END IF; -- lSet_id is not null
6382: IF p_x_line_rec.ship_set IS NULL
6383: THEN
6384: p_x_line_rec.ship_set := lsettempname;
6385: ELSE
6386: oe_debug_pub.add('Using the Ship Set Name passed: '||p_x_line_rec.ship_set);
6387: END IF;
6388: ELSIF l_cust_pref = 'ARRIVAL' THEN
6389: --Bug 5654902
6390: --Added the condition to check if 'Arrival Set' name already exists
6391: IF p_x_line_rec.arrival_set IS NULL
6392: THEN
6393: p_x_line_rec.arrival_set := lsettempname;
6394: ELSE
6395: oe_debug_pub.add('Using the Arrival Set Name passed: '||p_x_line_rec.arrival_set);
6396: END IF;
6397: END IF;
6398: END IF; -- L_set_id is null
6399:
6397: END IF;
6398: END IF; -- L_set_id is null
6399:
6400: IF l_debug_level > 0 THEN
6401: oe_debug_pub.add( 'SYSTEM SET IS' || LSETTEMPNAME , 1 ) ;
6402: END IF;
6403:
6404: END IF; -- Customer Preference
6405: END IF; -- Operation is create
6404: END IF; -- Customer Preference
6405: END IF; -- Operation is create
6406:
6407: IF l_debug_level > 0 THEN
6408: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
6409: END IF;
6410: IF l_debug_level > 0 THEN
6411: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.SHIP_SET , 1 ) ;
6412: END IF;
6407: IF l_debug_level > 0 THEN
6408: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
6409: END IF;
6410: IF l_debug_level > 0 THEN
6411: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.SHIP_SET , 1 ) ;
6412: END IF;
6413: IF l_debug_level > 0 THEN
6414: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.ARRIVAL_SET , 1 ) ;
6415: END IF;
6410: IF l_debug_level > 0 THEN
6411: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.SHIP_SET , 1 ) ;
6412: END IF;
6413: IF l_debug_level > 0 THEN
6414: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.ARRIVAL_SET , 1 ) ;
6415: END IF;
6416: IF l_debug_level > 0 THEN
6417: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6418: END IF;
6413: IF l_debug_level > 0 THEN
6414: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.ARRIVAL_SET , 1 ) ;
6415: END IF;
6416: IF l_debug_level > 0 THEN
6417: oe_debug_pub.add( 'INTO SET EXISTS'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6418: END IF;
6419:
6420: -- Check if the set name is populated and it is a new set
6421: -- Process for arrival sets
6423: IF (p_x_line_rec.arrival_set IS NOT NULL AND
6424: p_x_line_rec.arrival_set <> FND_API.G_MISS_CHAR) THEN
6425:
6426: IF l_debug_level > 0 THEN
6427: oe_debug_pub.add( 'INTO ARRIVAL SET'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6428: END IF;
6429: -- Check if this is existing set
6430: IF Set_Exist(p_set_name => p_x_line_rec.arrival_set,
6431: p_set_type => 'ARRIVAL_SET',
6440: GOTO NO_PROCESS;
6441: END IF; -- Set Status = 'C'
6442:
6443: IF l_debug_level > 0 THEN
6444: oe_debug_pub.add( 'ARRIVAL SET-1'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6445: END IF;
6446: p_x_line_rec.arrival_set_id := l_set_id;
6447: l_set_type := 'ARRIVAL_SET';
6448: l_set_name := p_x_line_rec.arrival_set;
6456: END IF ; -- Set Exists
6457:
6458: -- Set the cascade flag if line is a model or kit
6459: IF l_debug_level > 0 THEN
6460: oe_debug_pub.add( 'ARRIVAL SET-2'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6461: END IF;
6462:
6463: IF p_x_line_rec.top_model_line_id = p_x_line_rec.line_id
6464: THEN
6470: ELSIF NOT OE_GLOBALS.EQUAL (p_x_line_rec.arrival_set_id,
6471: p_old_line_rec.arrival_set_id )
6472: THEN
6473: IF l_debug_level > 0 THEN
6474: oe_debug_pub.add( 'ARRIVAL SET-3'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6475: END IF;
6476: -- Process the moving from one set to another
6477: IF p_x_line_rec.arrival_set_id IS NOT NULL THEN
6478:
6491: END IF; -- Set Status = 'C'
6492: p_x_line_rec.arrival_set_id := l_set_id;
6493: l_set_type := 'ARRIVAL_SET';
6494: IF l_debug_level > 0 THEN
6495: oe_debug_pub.add( 'ARRIVAL SET-4'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6496: END IF;
6497:
6498: ELSE -- If set not exists
6499:
6499:
6500: -- not a valid set so retain the old value;
6501: p_x_line_rec.arrival_set_id := p_old_line_rec.arrival_set_id;
6502: IF l_debug_level > 0 THEN
6503: oe_debug_pub.add( 'ARRIVAL SET-5'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6504: END IF;
6505: GOTO NO_PROCESS;
6506:
6507: END IF ; -- Set Exists
6509: -- See if the line is removed from the set */
6510: ELSIF p_x_line_rec.arrival_set_id IS NULL THEN
6511: p_x_line_rec.arrival_set_id := null;
6512: IF l_debug_level > 0 THEN
6513: oe_debug_pub.add( 'ARRIVAL SET-6'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6514: END IF;
6515: l_set_id := null;
6516: l_set_type := 'ARRIVAL_SET';
6517: END IF; -- Arrival set id is not null
6520: p_x_line_rec.line_id THEN
6521: l_cascade_flag := 'Y';
6522: END IF;
6523: IF l_debug_level > 0 THEN
6524: oe_debug_pub.add( 'ARRIVAL SET-7'|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6525: END IF;
6526:
6527: -- End Arrival Set Logic
6528: -- Begin the logic for Ship sets . The logic must go in the same way as
6567: ELSIF NOT OE_GLOBALS.EQUAL (p_x_line_rec.ship_set_id,
6568: p_old_line_rec.ship_set_id )
6569: THEN
6570: IF l_debug_level > 0 THEN
6571: oe_debug_pub.add( 'INTO SHIP SETS '|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
6572: END IF;
6573: -- Process the moving from one set to another
6574: IF p_x_line_rec.ship_set_id IS NOT NULL THEN
6575:
6573: -- Process the moving from one set to another
6574: IF p_x_line_rec.ship_set_id IS NOT NULL THEN
6575:
6576: IF l_debug_level > 0 THEN
6577: oe_debug_pub.add( 'SHIP SET ID NOT NULL '|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
6578: END IF;
6579:
6580: IF Set_Exist(p_set_id => p_x_line_rec.ship_set_id) THEN
6581:
6617: -- Create or Update based on the flags set above
6618:
6619: /* First we will create the set if l_create_flag is set to 'Y' */
6620: IF l_debug_level > 0 THEN
6621: oe_debug_pub.add( 'CREATE FLAG IS - ' || L_CREATE_SET , 1 ) ;
6622: END IF;
6623: IF l_debug_level > 0 THEN
6624: oe_debug_pub.add( 'CASCADE FLAG IS - ' || L_CASCADE_FLAG , 1 ) ;
6625: END IF;
6620: IF l_debug_level > 0 THEN
6621: oe_debug_pub.add( 'CREATE FLAG IS - ' || L_CREATE_SET , 1 ) ;
6622: END IF;
6623: IF l_debug_level > 0 THEN
6624: oe_debug_pub.add( 'CASCADE FLAG IS - ' || L_CASCADE_FLAG , 1 ) ;
6625: END IF;
6626: IF l_debug_level > 0 THEN
6627: oe_debug_pub.add( 'SET NAME - ' || L_SET_NAME , 1 ) ;
6628: END IF;
6623: IF l_debug_level > 0 THEN
6624: oe_debug_pub.add( 'CASCADE FLAG IS - ' || L_CASCADE_FLAG , 1 ) ;
6625: END IF;
6626: IF l_debug_level > 0 THEN
6627: oe_debug_pub.add( 'SET NAME - ' || L_SET_NAME , 1 ) ;
6628: END IF;
6629: IF l_debug_level > 0 THEN
6630: oe_debug_pub.add( 'SET TYPE - ' || L_SET_TYPE , 1 ) ;
6631: END IF;
6626: IF l_debug_level > 0 THEN
6627: oe_debug_pub.add( 'SET NAME - ' || L_SET_NAME , 1 ) ;
6628: END IF;
6629: IF l_debug_level > 0 THEN
6630: oe_debug_pub.add( 'SET TYPE - ' || L_SET_TYPE , 1 ) ;
6631: END IF;
6632: IF l_debug_level > 0 THEN
6633: oe_debug_pub.add( 'SET ID - ' || L_SET_ID , 1 ) ;
6634: END IF;
6629: IF l_debug_level > 0 THEN
6630: oe_debug_pub.add( 'SET TYPE - ' || L_SET_TYPE , 1 ) ;
6631: END IF;
6632: IF l_debug_level > 0 THEN
6633: oe_debug_pub.add( 'SET ID - ' || L_SET_ID , 1 ) ;
6634: END IF;
6635:
6636: IF l_create_set = 'Y' THEN
6637: IF l_debug_level > 0 THEN
6634: END IF;
6635:
6636: IF l_create_set = 'Y' THEN
6637: IF l_debug_level > 0 THEN
6638: oe_debug_pub.add( ' BEFORE CREATING SET ' , 1 ) ;
6639: END IF;
6640: Create_Set
6641: (p_Set_Name => l_set_name,
6642: p_Set_Type => l_set_type,
6658: -- Populate set id on the line record accordingly
6659: IF l_set_type = 'ARRIVAL_SET' THEN
6660: p_x_line_rec.arrival_set_id := l_set_id;
6661: IF l_debug_level > 0 THEN
6662: oe_debug_pub.add( 'ARRIVAL SET ID IS '|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6663: END IF;
6664: ELSIF l_set_type = 'SHIP_SET' THEN
6665: p_x_line_rec.ship_set_id := l_set_id;
6666: IF l_debug_level > 0 THEN
6663: END IF;
6664: ELSIF l_set_type = 'SHIP_SET' THEN
6665: p_x_line_rec.ship_set_id := l_set_id;
6666: IF l_debug_level > 0 THEN
6667: oe_debug_pub.add( 'SHIP SET ID IS '|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
6668: END IF;
6669: END IF;
6670:
6671: END IF ; -- Create Set is Y
6675: /* Update set id on the children of the top model */
6676:
6677: /*Changes for bug 6719457 start*/
6678: IF l_debug_level > 0 THEN
6679: oe_debug_pub.add( 'Cascade flag is yes',1);
6680: END IF;
6681: IF l_set_type = 'ARRIVAL_SET' THEN
6682: begin
6683: select ol.arrival_set_id
6689: exception
6690: when no_data_found then
6691: null;
6692: IF l_debug_level > 0 THEN
6693: oe_debug_pub.add('old arrival set does not exist');
6694: END IF;
6695: end;
6696: ELSIF l_set_type='SHIP_SET' THEN
6697: begin
6704: exception
6705: when no_data_found then
6706: null;
6707: IF l_debug_level > 0 THEN
6708: oe_debug_pub.add('old Ship set does not exist');
6709: END IF;
6710: end;
6711: END IF;
6712: IF l_debug_level > 0 THEN
6709: END IF;
6710: end;
6711: END IF;
6712: IF l_debug_level > 0 THEN
6713: oe_debug_pub.add( 'After selecting, old set id is:'||l_old_set_id,1);
6714: END IF;
6715: /*Changes for bug 6719457 End*/
6716:
6717: Begin
6747:
6748: l_entity_type := OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET;
6749:
6750: IF l_debug_level > 0 THEN
6751: oe_debug_pub.add( 'new arrival set id id'||i.arrival_set_id);
6752: END IF;
6753:
6754: IF OE_Delayed_Requests_PVT.Check_for_Request
6755: ( p_entity_code =>OE_GLOBALS.G_ENTITY_ALL
6790:
6791: l_entity_type := OE_SCHEDULE_UTIL.OESCH_ENTITY_SHIP_SET;
6792:
6793: IF l_debug_level > 0 THEN
6794: oe_debug_pub.add( 'new ship set id id'||i.ship_set_id);
6795: END IF;
6796:
6797: IF OE_Delayed_Requests_PVT.Check_for_Request
6798: ( p_entity_code =>OE_GLOBALS.G_ENTITY_ALL
6827: );
6828: END IF;
6829: END IF;
6830: IF l_debug_level > 0 THEN
6831: oe_debug_pub.add( 'After loggin the group_schedule request for line '||i.line_id,1);
6832: END IF;
6833: END LOOP;
6834:
6835: /*Changes for bug 6719457 End*/
6839: Loop
6840: IF optionrec.shipping_interfaced_flag = 'Y' THEN
6841:
6842: IF l_debug_level > 0 THEN
6843: oe_debug_pub.add( 'UPDATE SHIPPING : CHILDREN OF MODEL FOR SETS ' || TO_CHAR ( OPTIONREC.LINE_ID ) , 1 ) ;
6844: END IF;
6845:
6846: OE_Delayed_Requests_Pvt.Log_Request(
6847: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
6896: p_old_line_rec.arrival_Set_id) THEN
6897:
6898:
6899: IF l_debug_level > 0 THEN
6900: oe_debug_pub.add( 'SHIP SET NAME-' || P_X_LINE_REC.SHIP_SET ) ;
6901: END IF;
6902: IF l_debug_level > 0 THEN
6903: oe_debug_pub.add( 'OLD SHIP SET NAME-' || P_OLD_LINE_REC.SHIP_SET ) ;
6904: END IF;
6899: IF l_debug_level > 0 THEN
6900: oe_debug_pub.add( 'SHIP SET NAME-' || P_X_LINE_REC.SHIP_SET ) ;
6901: END IF;
6902: IF l_debug_level > 0 THEN
6903: oe_debug_pub.add( 'OLD SHIP SET NAME-' || P_OLD_LINE_REC.SHIP_SET ) ;
6904: END IF;
6905: IF l_debug_level > 0 THEN
6906: oe_debug_pub.add( 'SHIP SET-' || P_X_LINE_REC.SHIP_SET_ID ) ;
6907: END IF;
6902: IF l_debug_level > 0 THEN
6903: oe_debug_pub.add( 'OLD SHIP SET NAME-' || P_OLD_LINE_REC.SHIP_SET ) ;
6904: END IF;
6905: IF l_debug_level > 0 THEN
6906: oe_debug_pub.add( 'SHIP SET-' || P_X_LINE_REC.SHIP_SET_ID ) ;
6907: END IF;
6908: IF l_debug_level > 0 THEN
6909: oe_debug_pub.add( 'OLD SHIP SET-' || P_OLD_LINE_REC.SHIP_SET_ID ) ;
6910: END IF;
6905: IF l_debug_level > 0 THEN
6906: oe_debug_pub.add( 'SHIP SET-' || P_X_LINE_REC.SHIP_SET_ID ) ;
6907: END IF;
6908: IF l_debug_level > 0 THEN
6909: oe_debug_pub.add( 'OLD SHIP SET-' || P_OLD_LINE_REC.SHIP_SET_ID ) ;
6910: END IF;
6911: IF l_debug_level > 0 THEN
6912: oe_debug_pub.add( 'ARRIVAL SET-' || P_X_LINE_REC.ARRIVAL_SET_ID ) ;
6913: END IF;
6908: IF l_debug_level > 0 THEN
6909: oe_debug_pub.add( 'OLD SHIP SET-' || P_OLD_LINE_REC.SHIP_SET_ID ) ;
6910: END IF;
6911: IF l_debug_level > 0 THEN
6912: oe_debug_pub.add( 'ARRIVAL SET-' || P_X_LINE_REC.ARRIVAL_SET_ID ) ;
6913: END IF;
6914: IF l_debug_level > 0 THEN
6915: oe_debug_pub.add( 'ARRIVAL SHIP SET-' || P_OLD_LINE_REC.ARRIVAL_SET_ID ) ;
6916: END IF;
6911: IF l_debug_level > 0 THEN
6912: oe_debug_pub.add( 'ARRIVAL SET-' || P_X_LINE_REC.ARRIVAL_SET_ID ) ;
6913: END IF;
6914: IF l_debug_level > 0 THEN
6915: oe_debug_pub.add( 'ARRIVAL SHIP SET-' || P_OLD_LINE_REC.ARRIVAL_SET_ID ) ;
6916: END IF;
6917: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SET_OPR');
6918: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE', p_x_line_rec.item_type_code);
6919: OE_MSG_PUB.ADD;
6917: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SET_OPR');
6918: -- FND_MESSAGE.SET_TOKEN('ITEMTYPE', p_x_line_rec.item_type_code);
6919: OE_MSG_PUB.ADD;
6920: IF l_debug_level > 0 THEN
6921: oe_debug_pub.add( 'SET- NOT ALLOWED FOR THIS ITEMTYPE' ) ;
6922: END IF;
6923: RAISE FND_API.G_EXC_ERROR;
6924: END IF;
6925:
6928: END IF; -- If not EXTERNAL
6929: << NO_PROCESS >>
6930: NULL;
6931: IF l_debug_level > 0 THEN
6932: oe_debug_pub.add( 'SHIP SET ID IS '|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
6933: END IF;
6934: IF l_debug_level > 0 THEN
6935: oe_debug_pub.add( 'ARRIVAL SET ID IS '|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6936: END IF;
6931: IF l_debug_level > 0 THEN
6932: oe_debug_pub.add( 'SHIP SET ID IS '|| P_X_LINE_REC.SHIP_SET_ID , 1 ) ;
6933: END IF;
6934: IF l_debug_level > 0 THEN
6935: oe_debug_pub.add( 'ARRIVAL SET ID IS '|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6936: END IF;
6937:
6938:
6939: OE_DEBUG_PUB.Add('Automatic Fulfillment Set:'||p_x_line_rec.fulfillment_set);
6935: oe_debug_pub.add( 'ARRIVAL SET ID IS '|| P_X_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
6936: END IF;
6937:
6938:
6939: OE_DEBUG_PUB.Add('Automatic Fulfillment Set:'||p_x_line_rec.fulfillment_set);
6940:
6941: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
6942:
6943: OE_Order_Cache.Load_Order_Header(p_x_line_rec.header_id);
6944:
6945: IF OE_ORDER_CACHE.g_header_rec.default_fulfillment_set = 'Y' THEN
6946:
6947: IF l_debug_level > 0 THEN
6948: OE_DEBUG_PUB.Add('Default Fulfillment set to YES!!!',1 ) ;
6949: END IF;
6950:
6951: l_set_pref_type := 'FULFILLMENT_SET';
6952:
6956: FETCH C6 INTO l_fulfillment_set;
6957: CLOSE C6;
6958:
6959: IF l_debug_level > 0 THEN
6960: OE_DEBUG_PUB.Add('After Checking System Set:'||l_fulfillment_set) ;
6961: END IF;
6962:
6963: l_x_line_rec := p_x_line_rec;
6964:
6969: OPEN C1;
6970: FETCH C1 INTO lsettempname;
6971: CLOSE C1;
6972:
6973: OE_DEBUG_PUB.Add('Temp Set Name:'||lsettempname);
6974:
6975: IF lsettempname IS NULL THEN
6976: lsettempname := 1;
6977:
6999:
7000: END IF;
7001:
7002: IF l_debug_level > 0 THEN
7003: OE_DEBUG_PUB.Add('Auto Fulfillment Set:'||p_x_line_rec.fulfillment_set);
7004: OE_DEBUG_PUB.Add('Item Type:'||p_x_line_rec.item_type_code);
7005: OE_DEBUG_PUB.Add('Service Reference:'||p_x_line_rec.service_reference_line_id);
7006: END IF;
7007:
7000: END IF;
7001:
7002: IF l_debug_level > 0 THEN
7003: OE_DEBUG_PUB.Add('Auto Fulfillment Set:'||p_x_line_rec.fulfillment_set);
7004: OE_DEBUG_PUB.Add('Item Type:'||p_x_line_rec.item_type_code);
7005: OE_DEBUG_PUB.Add('Service Reference:'||p_x_line_rec.service_reference_line_id);
7006: END IF;
7007:
7008: IF p_x_line_rec.fulfillment_set IS NULL THEN
7001:
7002: IF l_debug_level > 0 THEN
7003: OE_DEBUG_PUB.Add('Auto Fulfillment Set:'||p_x_line_rec.fulfillment_set);
7004: OE_DEBUG_PUB.Add('Item Type:'||p_x_line_rec.item_type_code);
7005: OE_DEBUG_PUB.Add('Service Reference:'||p_x_line_rec.service_reference_line_id);
7006: END IF;
7007:
7008: IF p_x_line_rec.fulfillment_set IS NULL THEN
7009: p_x_line_rec.fulfillment_set := l_x_line_rec.fulfillment_set;
7023: END IF;
7024:
7025: END IF;
7026:
7027: OE_DEBUG_PUB.Add('Before User Defined Ful Set:'||p_x_line_rec.item_type_code);
7028:
7029: IF p_x_line_rec.fulfillment_set is NOT NULL AND
7030: (p_x_line_rec.item_type_code <> 'SERVICE') OR
7031: (p_x_line_rec.item_type_code = 'SERVICE' AND
7042: END IF; -- g old arrival set path
7043:
7044:
7045: IF l_debug_level > 0 THEN
7046: oe_debug_pub.add( 'EXIT PROCEDURE DEFAULT LINE SET' , 1 ) ;
7047: END IF;
7048:
7049:
7050: EXCEPTION
7084: x_msg_data varchar2(32000);
7085: x_msg_count number ;
7086: l_return_status varchar2(30);
7087: l_ful_exists varchar2(1) := 'N';
7088: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7089: -- 4925992
7090: l_top_model_line_id NUMBER;
7091: BEGIN
7092:
7089: -- 4925992
7090: l_top_model_line_id NUMBER;
7091: BEGIN
7092:
7093: OE_DEBUG_PUB.Add('Entering Validate Fulfillment Set');
7094:
7095: IF --p_x_line_rec.source_type_code <> 'EXTERNAL' AND --Bug #4537341
7096: p_x_line_rec.shipped_quantity IS NULL AND
7097: (p_x_line_rec.item_type_code = 'STANDARD' OR
7202: -- passed is a model line
7203:
7204: END IF;
7205:
7206: OE_DEBUG_PUB.Add('Exiting Validate Fulfillment Set');
7207:
7208: EXCEPTION
7209: WHEN OTHERS THEN
7210:
7231: IS
7232: l_dummy NUMBER;
7233:
7234: --
7235: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7236: --
7237: BEGIN
7238: IF l_debug_level > 0 THEN
7239: oe_debug_pub.add( 'ENTERING DELETE SET' , 3 ) ;
7235: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7236: --
7237: BEGIN
7238: IF l_debug_level > 0 THEN
7239: oe_debug_pub.add( 'ENTERING DELETE SET' , 3 ) ;
7240: oe_debug_pub.add( 'HEADER ID '||p_request_rec.param2 , 3 ) ;
7241: oe_debug_pub.add( 'SET TYPE'||p_request_rec.param3 , 3 ) ;
7242: oe_debug_pub.add( 'SET ID'||p_request_rec.param1 , 3 ) ;
7243: END IF;
7236: --
7237: BEGIN
7238: IF l_debug_level > 0 THEN
7239: oe_debug_pub.add( 'ENTERING DELETE SET' , 3 ) ;
7240: oe_debug_pub.add( 'HEADER ID '||p_request_rec.param2 , 3 ) ;
7241: oe_debug_pub.add( 'SET TYPE'||p_request_rec.param3 , 3 ) ;
7242: oe_debug_pub.add( 'SET ID'||p_request_rec.param1 , 3 ) ;
7243: END IF;
7244: x_return_status := FND_API.G_RET_STS_SUCCESS;
7237: BEGIN
7238: IF l_debug_level > 0 THEN
7239: oe_debug_pub.add( 'ENTERING DELETE SET' , 3 ) ;
7240: oe_debug_pub.add( 'HEADER ID '||p_request_rec.param2 , 3 ) ;
7241: oe_debug_pub.add( 'SET TYPE'||p_request_rec.param3 , 3 ) ;
7242: oe_debug_pub.add( 'SET ID'||p_request_rec.param1 , 3 ) ;
7243: END IF;
7244: x_return_status := FND_API.G_RET_STS_SUCCESS;
7245: BEGIN
7238: IF l_debug_level > 0 THEN
7239: oe_debug_pub.add( 'ENTERING DELETE SET' , 3 ) ;
7240: oe_debug_pub.add( 'HEADER ID '||p_request_rec.param2 , 3 ) ;
7241: oe_debug_pub.add( 'SET TYPE'||p_request_rec.param3 , 3 ) ;
7242: oe_debug_pub.add( 'SET ID'||p_request_rec.param1 , 3 ) ;
7243: END IF;
7244: x_return_status := FND_API.G_RET_STS_SUCCESS;
7245: BEGIN
7246: IF p_request_rec.param3 = oe_schedule_util.OESCH_ENTITY_SHIP_SET THEN
7251: AND ship_set_id =p_request_rec.param1
7252: AND ROWNUM =1;
7253:
7254: IF l_debug_level > 0 THEN
7255: oe_debug_pub.add( 'LINE EXISTS WITH THE SHIP SET' , 3 ) ;
7256: END IF;
7257: ELSIF p_request_rec.param3 = oe_schedule_util.OESCH_ENTITY_ARRIVAL_SET THEN
7258: SELECT 1
7259: INTO l_dummy
7262: AND arrival_set_id =p_request_rec.param1
7263: AND ROWNUM =1;
7264:
7265: IF l_debug_level > 0 THEN
7266: oe_debug_pub.add( 'LINE EXISTS WITH THE ARRIVAL SET' , 3 ) ;
7267: END IF;
7268: END IF;
7269: EXCEPTION
7270: WHEN NO_DATA_FOUND THEN
7268: END IF;
7269: EXCEPTION
7270: WHEN NO_DATA_FOUND THEN
7271: IF l_debug_level > 0 THEN
7272: oe_debug_pub.add( 'DELETING SET '||p_request_rec.param1 , 3 ) ;
7273: END IF;
7274:
7275: DELETE FROM OE_SETS
7276: WHERE set_id = p_request_rec.param1;
7277:
7278: WHEN OTHERS THEN
7279: NULL;
7280: IF l_debug_level > 0 THEN
7281: oe_debug_pub.add( 'IN OTHERS EXCEPTION OF DELETE SET ' , 3 ) ;
7282: END IF;
7283: END;
7284: IF l_debug_level > 0 THEN
7285: oe_debug_pub.add( 'EXITING DELETE SET' , 3 ) ;
7281: oe_debug_pub.add( 'IN OTHERS EXCEPTION OF DELETE SET ' , 3 ) ;
7282: END IF;
7283: END;
7284: IF l_debug_level > 0 THEN
7285: oe_debug_pub.add( 'EXITING DELETE SET' , 3 ) ;
7286: END IF;
7287: EXCEPTION
7288: WHEN FND_API.G_EXC_ERROR THEN
7289: x_return_status := FND_API.G_RET_STS_ERROR;