38: AND org.organization_id=p_ship_from_org_id
39: AND rownum=1 ;
40: END IF;
41:
42: x_return_status := FND_API.G_RET_STS_SUCCESS;
43: EXCEPTION
44: WHEN NO_DATA_FOUND THEN
45: IF l_debug_level > 0 THEN
46: oe_debug_pub.add('INVALID ITEM WAREHOUSE COMBINATION',3);
46: oe_debug_pub.add('INVALID ITEM WAREHOUSE COMBINATION',3);
47: END IF;
48: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_ITEM_WHSE');
49: OE_MSG_PUB.Add;
50: x_return_status := FND_API.G_RET_STS_ERROR;
51: END Validate_Item_Warehouse;
52:
53: /*---------------------------------------------------------------------
54: Procedure Name : Validate_group_Line
71: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
72: --
73: BEGIN
74:
75: x_return_status := FND_API.G_RET_STS_SUCCESS;
76: IF l_debug_level > 0 THEN
77: oe_debug_pub.add( '..ENTERING OE_SCHEDULE_UTIL.VALIDATE_GROUP_LINE' , 6 ) ;
78: END IF;
79:
79:
80: -- If the line is shipped, scheduling is not allowed.
81:
82: IF p_line_rec.shipped_quantity is not null AND
83: p_line_rec.shipped_quantity <> FND_API.G_MISS_NUM THEN
84:
85: -- The line is cancelled. Cannot perform scheduling
86: -- on it.
87:
90:
91: IF l_debug_level > 0 THEN
92: oe_debug_pub.add( ' SHIPPED LINE.' , 4 ) ;
93: END IF;
94: x_return_status := FND_API.G_RET_STS_ERROR;
95: RETURN;
96:
97: END IF;
98:
105: IF l_debug_level > 0 THEN
106: oe_debug_pub.add( 'CHECKING THE REQUEST DATE....' , 1 ) ;
107: END IF;
108: IF (p_line_rec.request_date is null OR
109: p_line_rec.request_date = FND_API.G_MISS_DATE) THEN
110:
111: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_REQUEST_DATE');
112: OE_MSG_PUB.Add;
113: IF l_debug_level > 0 THEN
112: OE_MSG_PUB.Add;
113: IF l_debug_level > 0 THEN
114: oe_debug_pub.add( 'REQUEST DATE IS MISSING' , 4 ) ;
115: END IF;
116: x_return_status := FND_API.G_RET_STS_ERROR;
117: RETURN;
118: END IF;
119:
120: IF l_debug_level > 0 THEN
135: END IF;
136:
137: OE_Holds_PUB.Check_Holds
138: ( p_api_version => 1.0
139: , p_init_msg_list => FND_API.G_FALSE
140: , p_commit => FND_API.G_FALSE
141: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
142: , x_return_status => x_return_status
143: , x_msg_count => l_msg_count
136:
137: OE_Holds_PUB.Check_Holds
138: ( p_api_version => 1.0
139: , p_init_msg_list => FND_API.G_FALSE
140: , p_commit => FND_API.G_FALSE
141: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
142: , x_return_status => x_return_status
143: , x_msg_count => l_msg_count
144: , x_msg_data => l_msg_data
137: OE_Holds_PUB.Check_Holds
138: ( p_api_version => 1.0
139: , p_init_msg_list => FND_API.G_FALSE
140: , p_commit => FND_API.G_FALSE
141: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
142: , x_return_status => x_return_status
143: , x_msg_count => l_msg_count
144: , x_msg_data => l_msg_data
145: , p_line_id => p_line_rec.line_id
152: oe_debug_pub.add( 'AFTER CALLING CHECK HOLDS: ' || X_RETURN_STATUS , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
153: END IF;
154:
155:
156: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
157: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
158: RAISE FND_API.G_EXC_ERROR;
159: ELSE
160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153: END IF;
154:
155:
156: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
157: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
158: RAISE FND_API.G_EXC_ERROR;
159: ELSE
160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161: END IF;
154:
155:
156: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
157: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
158: RAISE FND_API.G_EXC_ERROR;
159: ELSE
160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161: END IF;
162: END IF;
156: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
157: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
158: RAISE FND_API.G_EXC_ERROR;
159: ELSE
160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161: END IF;
162: END IF;
163:
164: IF (l_result = FND_API.G_TRUE) THEN
160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161: END IF;
162: END IF;
163:
164: IF (l_result = FND_API.G_TRUE) THEN
165: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_ON_HOLD');
166: OE_MSG_PUB.Add;
167: x_return_status := FND_API.G_RET_STS_ERROR;
168: IF l_debug_level > 0 THEN
163:
164: IF (l_result = FND_API.G_TRUE) THEN
165: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_ON_HOLD');
166: OE_MSG_PUB.Add;
167: x_return_status := FND_API.G_RET_STS_ERROR;
168: IF l_debug_level > 0 THEN
169: oe_debug_pub.add( 'LINE IS ON HOLD' , 4 ) ;
170: END IF;
171: RETURN;
196: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
197: nvl(OE_SCHEDULE_UTIL.sch_cached_line_type,
198: OE_SCHEDULE_UTIL.sch_cached_order_type));
199: OE_MSG_PUB.Add;
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: IF l_debug_level > 0 THEN
202: oe_debug_pub.add( 'LINE TYPE IS ATP ONLY' , 4 ) ;
203: END IF;
204:
214: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
215: nvl(OE_SCHEDULE_UTIL.sch_cached_line_type,
216: OE_SCHEDULE_UTIL.sch_cached_order_type));
217: OE_MSG_PUB.Add;
218: x_return_status := FND_API.G_RET_STS_ERROR;
219: IF l_debug_level > 0 THEN
220: oe_debug_pub.add( 'LINE TYPE IS NOT ELIGIBLE FOR RESERVATION ' , 4 ) ;
221: END IF;
222:
229:
230:
231: EXCEPTION
232:
233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
234:
235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
236:
237: WHEN OTHERS THEN
231: EXCEPTION
232:
233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
234:
235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
236:
237: WHEN OTHERS THEN
238:
239: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
243: , 'Validate_Group_Line'
244: );
245: END IF;
246:
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: END Validate_Group_Line;
249:
250: /*---------------------------------------------------------------------
251: Procedure Name : Validate_Group
268: -- 3870895 : Revorted back the code modified for bug 3349770
269: IF l_debug_level > 0 THEN
270: oe_debug_pub.add( 'ENTERING VALIDATE GROUP' || P_X_LINE_TBL.COUNT , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
271: END IF;
272: x_return_status := FND_API.G_RET_STS_SUCCESS;
273: FOR I IN 1..p_x_line_tbl.count LOOP
274:
275: OE_MSG_PUB.set_msg_context
276: ( p_entity_code => 'LINE'
297: Validate_Item_Warehouse
298: (p_inventory_item_id => p_x_line_tbl(I).inventory_item_id,
299: p_ship_from_org_id => p_x_line_tbl(I).ship_from_org_id,
300: x_return_status => l_return_status);
301: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
302: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => p_x_line_tbl(I),
303: p_old_line_rec => p_x_line_tbl(I),
304: p_sch_action => p_sch_action ,
305: x_return_status => l_return_status);
303: p_old_line_rec => p_x_line_tbl(I),
304: p_sch_action => p_sch_action ,
305: x_return_status => l_return_status);
306:
307: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
308:
309: J := J + 1;
310: l_line_tbl(J) := p_x_line_tbl(I);
311:
308:
309: J := J + 1;
310: l_line_tbl(J) := p_x_line_tbl(I);
311:
312: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
313:
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
316: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN -- 3870895
310: l_line_tbl(J) := p_x_line_tbl(I);
311:
312: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
313:
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
316: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN -- 3870895
317:
318: x_return_status := FND_API.G_RET_STS_ERROR;
311:
312: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
313:
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
316: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN -- 3870895
317:
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: --5166476
312: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
313:
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
316: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN -- 3870895
317:
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: --5166476
320: IF OE_SCH_CONC_REQUESTS.g_conc_program = 'Y' THEN
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
316: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN -- 3870895
317:
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: --5166476
320: IF OE_SCH_CONC_REQUESTS.g_conc_program = 'Y' THEN
321: IF p_x_line_tbl(I).ship_model_complete_flag = 'N' AND
322: p_x_line_tbl(I).top_model_line_id IS NOT NULL AND
340: IF OE_SCH_CONC_REQUESTS.g_conc_program = 'Y' THEN
341: --5166476
342: OE_SCH_CONC_REQUESTS.OE_line_status_Tbl(p_x_line_tbl(I).line_id) := 'N';
343: END IF;
344: x_return_status := FND_API.G_RET_STS_ERROR;
345: END IF;
346:
347: END LOOP;
348: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN -- 3870895
344: x_return_status := FND_API.G_RET_STS_ERROR;
345: END IF;
346:
347: END LOOP;
348: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN -- 3870895
349: p_x_line_tbl := l_line_tbl;
350: --5166476
351: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
352: AND l_line_tbl.count > 0 THEN
347: END LOOP;
348: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN -- 3870895
349: p_x_line_tbl := l_line_tbl;
350: --5166476
351: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
352: AND l_line_tbl.count > 0 THEN
353: IF OE_SCH_CONC_REQUESTS.g_conc_program = 'Y' THEN
354: FOR I IN 1..l_line_tbl.count LOOP
355: OE_SCH_CONC_REQUESTS.OE_line_status_Tbl(l_line_tbl(I).line_id) := 'N';
363:
364: EXCEPTION
365:
366: WHEN OTHERS THEN
367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
368: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
369: THEN
370: OE_MSG_PUB.Add_Exc_Msg
371: ( G_PKG_NAME
371: ( G_PKG_NAME
372: , 'Validate_Group');
373: END IF;
374:
375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
376:
377: END Validate_Group;
378:
379: Function Not_Part_of_set(p_top_model_line_id IN NUMBER)
439: oe_debug_pub.add('Size of the in table : ' || p_line_tbl.count,1);
440: END IF;
441: J := p_x_line_tbl.count;
442: IF p_line_rec.line_id is NOT NULL
443: AND p_line_rec.line_id <> FND_API.G_MISS_NUM THEN -- Main IF Start
444:
445: FOR l_option_search in 1..J LOOP
446: IF p_line_rec.line_id = p_x_line_tbl(l_option_search).line_id THEN
447: IF l_debug_level > 0 THEN
545: I NUMBER;
546: l_inc_tbl OE_Order_PUB.Line_Tbl_Type;
547: l_sales_order_id NUMBER := Null;
548: l_line_rec OE_Order_PUB.Line_Rec_type;
549: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
550: l_set_rec OE_ORDER_CACHE.set_rec_type;
551: l_quantity_to_reserve NUMBER;
552: l_quantity2_to_reserve NUMBER; -- INVCONV
553: l_rsv_update BOOLEAN := FALSE;
622: IF l_debug_level > 0 THEN
623: oe_debug_pub.add( 'AFTER CALLING INC'|| L_RETURN_STATUS , 3 ) ;
624: END IF;
625:
626: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
628: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
629: RAISE FND_API.G_EXC_ERROR;
630: END IF;
623: oe_debug_pub.add( 'AFTER CALLING INC'|| L_RETURN_STATUS , 3 ) ;
624: END IF;
625:
626: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
628: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
629: RAISE FND_API.G_EXC_ERROR;
630: END IF;
631:
624: END IF;
625:
626: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
628: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
629: RAISE FND_API.G_EXC_ERROR;
630: END IF;
631:
632: END LOOP;
625:
626: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
628: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
629: RAISE FND_API.G_EXC_ERROR;
630: END IF;
631:
632: END LOOP;
633:
690: l_line_rec.schedule_action_code := p_sch_action;
691: -- 2766876
692: l_line_rec.reserved_quantity := 0;
693:
694: l_return_status := FND_API.G_RET_STS_SUCCESS;
695: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => l_line_rec,
696: p_old_line_rec => l_line_rec,
697: p_sch_action => p_sch_action,
698: x_return_status => l_return_status);
697: p_sch_action => p_sch_action,
698: x_return_status => l_return_status);
699:
700:
701: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
702:
703: I := I + 1;
704: IF l_debug_level > 0 THEN
705: oe_debug_pub.add( 'LINE SELECTED FOR SCHEDULING **** : ' || L_LINE_REC.LINE_ID , 1 ) ;
804: p_line_id => l_line_rec.line_id,
805: p_org_id => l_line_rec.ship_from_org_id); */
806:
807: IF l_line_rec.reserved_quantity IS NULL
808: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM THEN
809: l_line_rec.reserved_quantity := 0;
810: END IF;
811:
812: /*l_line_rec.reserved_quantity2 := -- INVCONV
815: p_line_id => l_line_rec.line_id,
816: p_org_id => l_line_rec.ship_from_org_id);*/
817:
818: /*IF l_line_rec.reserved_quantity2 IS NULL
819: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM THEN
820: l_line_rec.reserved_quantity2 := 0;
821: END IF; */ -- INVCONV PAL
822:
823:
833: oe_debug_pub.add( 'NEED TO RESERVE THE LINE' , 2 ) ;
834: END IF;
835:
836: -- Check if the line is eligible for reservation.
837: l_return_status := FND_API.G_RET_STS_SUCCESS;
838: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => l_line_rec,
839: p_old_line_rec => l_line_rec,
840: p_sch_action => p_sch_action,
841: x_return_status => l_return_status);
839: p_old_line_rec => l_line_rec,
840: p_sch_action => p_sch_action,
841: x_return_status => l_return_status);
842:
843: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
844: --Pack J
845: -- To calculate the remaining quantity to be reserved
846: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
847: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG')= 'Y'
880: ,p_quantity2_to_reserve => l_quantity2_to_reserve --l_line_rec.ordered_quantity2
881: ,p_rsv_update => l_rsv_update
882: ,x_return_status => l_return_status);
883:
884: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
885: IF l_debug_level > 0 THEN
886: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
887: END IF;
888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
884: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
885: IF l_debug_level > 0 THEN
886: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
887: END IF;
888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
889: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
890: IF l_debug_level > 0 THEN
891: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
892: END IF;
885: IF l_debug_level > 0 THEN
886: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
887: END IF;
888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
889: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
890: IF l_debug_level > 0 THEN
891: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
892: END IF;
893: l_return_status := FND_API.G_RET_STS_SUCCESS;
889: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
890: IF l_debug_level > 0 THEN
891: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
892: END IF;
893: l_return_status := FND_API.G_RET_STS_SUCCESS;
894: END IF;
895:
896: END IF;
897: ELSE -- reservation exists
928: ELSE -- Line is not scheduled yet.
929:
930: l_line_rec.reserved_quantity := 0;
931: l_line_rec.reserved_quantity2 := 0; -- INCONV
932: l_return_status := FND_API.G_RET_STS_SUCCESS;
933: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => l_line_rec,
934: p_old_line_rec => l_line_rec,
935: p_sch_action => p_sch_action,
936: x_return_status => l_return_status);
934: p_old_line_rec => l_line_rec,
935: p_sch_action => p_sch_action,
936: x_return_status => l_return_status);
937:
938: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
939: IF l_debug_level > 0 THEN
940: oe_debug_pub.add( 'LINE SELECTED FOR RESERVE **** : '|| L_LINE_REC.LINE_ID , 1 ) ;
941: END IF;
942: I := I + 1;
1010: l_line_rec.source_document_type_id);
1011: l_line_rec.schedule_action_code := p_sch_action;
1012:
1013:
1014: l_return_status := FND_API.G_RET_STS_SUCCESS;
1015: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => l_line_rec,
1016: p_old_line_rec => l_line_rec,
1017: p_sch_action => p_sch_action,
1018: x_return_status => l_return_status);
1017: p_sch_action => p_sch_action,
1018: x_return_status => l_return_status);
1019:
1020:
1021: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1022: I := I +1; -- 2327783
1023: x_line_tbl(I) := l_line_rec;
1024: -- x_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
1025:
1065:
1066: END IF;
1067:
1068: IF x_line_tbl(I).reserved_quantity IS NULL
1069: OR x_line_tbl(I).reserved_quantity = FND_API.G_MISS_NUM THEN
1070: x_line_tbl(I).reserved_quantity := 0;
1071: END IF;
1072:
1073: /* IF x_line_tbl(I).reserved_quantity2 IS NULL -- INVCONV
1070: x_line_tbl(I).reserved_quantity := 0;
1071: END IF;
1072:
1073: /* IF x_line_tbl(I).reserved_quantity2 IS NULL -- INVCONV
1074: OR x_line_tbl(I).reserved_quantity2 = FND_API.G_MISS_NUM THEN
1075: x_line_tbl(I).reserved_quantity2 := 0;
1076: END IF; */
1077:
1078: END IF; -- Validation success
1170: p_line_id => l_line_rec.line_id,
1171: p_org_id => l_line_rec.ship_from_org_id); */
1172:
1173: IF l_line_rec.reserved_quantity IS NULL
1174: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM THEN
1175: l_line_rec.reserved_quantity := 0;
1176: END IF;
1177:
1178:
1182: p_line_id => l_line_rec.line_id,
1183: p_org_id => l_line_rec.ship_from_org_id); */
1184:
1185: /*IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV - why was this commented out
1186: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM THEN
1187: l_line_rec.reserved_quantity2 := 0;
1188: END IF; */
1189:
1190:
1205:
1206:
1207: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1208: l_line_rec.schedule_action_code := p_sch_action;
1209: l_return_status := FND_API.G_RET_STS_SUCCESS;
1210:
1211: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => l_line_rec,
1212: p_old_line_rec => l_line_rec,
1213: p_sch_action => p_sch_action,
1213: p_sch_action => p_sch_action,
1214: x_return_status => l_return_status);
1215:
1216:
1217: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1218: I := I + 1; --2327783
1219: x_line_tbl(I) := l_line_rec;
1220: END IF;
1221: END IF; -- reservation qty.
1301:
1302: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1303: l_line_rec.schedule_action_code := p_sch_action;
1304:
1305: l_return_status := FND_API.G_RET_STS_SUCCESS;
1306: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => l_line_rec,
1307: p_old_line_rec => l_line_rec,
1308: p_sch_action => p_sch_action,
1309: x_return_status => l_return_status);
1307: p_old_line_rec => l_line_rec,
1308: p_sch_action => p_sch_action,
1309: x_return_status => l_return_status);
1310:
1311: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1312: I := I + 1; --2327783
1313: x_line_tbl(I) := l_line_rec;
1314:
1315: IF (x_line_tbl(I).ship_model_complete_flag ='Y') THEN
1343:
1344: END IF;
1345:
1346: IF x_line_tbl(I).reserved_quantity IS NULL
1347: OR x_line_tbl(I).reserved_quantity = FND_API.G_MISS_NUM THEN
1348: x_line_tbl(I).reserved_quantity := 0;
1349: END IF;
1350: IF x_line_tbl(I).reserved_quantity2 IS NULL -- INVCONV
1351: OR x_line_tbl(I).reserved_quantity2 = FND_API.G_MISS_NUM THEN
1347: OR x_line_tbl(I).reserved_quantity = FND_API.G_MISS_NUM THEN
1348: x_line_tbl(I).reserved_quantity := 0;
1349: END IF;
1350: IF x_line_tbl(I).reserved_quantity2 IS NULL -- INVCONV
1351: OR x_line_tbl(I).reserved_quantity2 = FND_API.G_MISS_NUM THEN
1352: x_line_tbl(I).reserved_quantity2 := 0;
1353: END IF;
1354:
1355: END IF; -- Success.
1373:
1374:
1375: EXCEPTION
1376:
1377: WHEN FND_API.G_EXC_ERROR THEN
1378: IF l_debug_level > 0 THEN
1379: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY LINES ' , 1 ) ;
1380: END IF;
1381: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1379: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY LINES ' , 1 ) ;
1380: END IF;
1381: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1382: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1383: RAISE FND_API.G_EXC_ERROR;
1384:
1385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1386:
1387: IF l_debug_level > 0 THEN
1381: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1382: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1383: RAISE FND_API.G_EXC_ERROR;
1384:
1385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1386:
1387: IF l_debug_level > 0 THEN
1388: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY LINES ' , 1 ) ;
1389: END IF;
1388: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY LINES ' , 1 ) ;
1389: END IF;
1390: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1391: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1393:
1394: WHEN OTHERS THEN
1395:
1396: IF l_debug_level > 0 THEN
1405: , 'Query_lines'
1406: );
1407: END IF;
1408:
1409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1410:
1411: END Query_Lines;
1412: /*----------------------------------------------------------------
1413: PROCEDURE Query_Schedule_Lines
1459: l_change_sequence VARCHAR2(50);
1460: l_source_document_id NUMBER;
1461: l_source_document_line_id NUMBER;
1462: l_order_source_id NUMBER;
1463: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1464: l_set_line_rec OE_Order_PUB.Line_rec_Type; --4241385
1465: -- sol_ord_er #16014165
1466: l_subscription_enable_flag varchar2(10) := '';
1467: BEGIN
1632: p_sch_action => p_sch_action,
1633: x_line_tbl => l_line_tbl,
1634: x_return_status => l_return_status);
1635:
1636: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1638: END IF;
1639:
1640: IF x_line_tbl.count = 0 THEN
1633: x_line_tbl => l_line_tbl,
1634: x_return_status => l_return_status);
1635:
1636: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1638: END IF;
1639:
1640: IF x_line_tbl.count = 0 THEN
1641:
1696: p_sch_action => p_sch_action,
1697: x_line_tbl => l_line_tbl,
1698: x_return_status => l_return_status);
1699:
1700: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1702: END IF;
1703:
1704: IF x_line_tbl.count = 0 THEN
1697: x_line_tbl => l_line_tbl,
1698: x_return_status => l_return_status);
1699:
1700: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1702: END IF;
1703:
1704: IF x_line_tbl.count = 0 THEN
1705: -- Added for Bug 2454163
1739: l_line_rec.reserved_quantity := 0;
1740: /*Check_Merge_Line(p_line_rec => l_line_rec
1741: ,p_x_line_tbl => x_line_tbl); */ --Bug-2454163
1742: --8731703
1743: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1744: IF NOT Find_Line(x_line_tbl,l_line_rec.line_id) THEN
1745: x_line_tbl(x_line_tbl.count + 1) := l_line_rec;
1746: END IF;
1747:
1755: p_sch_action => p_sch_action,
1756: x_line_tbl => l_line_tbl,
1757: x_return_status => l_return_status);
1758:
1759: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1761: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1762: x_line_tbl.delete(x_line_tbl.count);
1763: END IF;
1756: x_line_tbl => l_line_tbl,
1757: x_return_status => l_return_status);
1758:
1759: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1761: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1762: x_line_tbl.delete(x_line_tbl.count);
1763: END IF;
1764:
1757: x_return_status => l_return_status);
1758:
1759: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1761: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1762: x_line_tbl.delete(x_line_tbl.count);
1763: END IF;
1764:
1765: J := x_line_tbl.count;
1788:
1789:
1790: EXCEPTION
1791:
1792: WHEN FND_API.G_EXC_ERROR THEN
1793: IF l_debug_level > 0 THEN
1794: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_SCHEDULE_LINES ' , 1 ) ;
1795: END IF;
1796: RAISE FND_API.G_EXC_ERROR;
1792: WHEN FND_API.G_EXC_ERROR THEN
1793: IF l_debug_level > 0 THEN
1794: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_SCHEDULE_LINES ' , 1 ) ;
1795: END IF;
1796: RAISE FND_API.G_EXC_ERROR;
1797:
1798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1799:
1800: IF l_debug_level > 0 THEN
1794: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_SCHEDULE_LINES ' , 1 ) ;
1795: END IF;
1796: RAISE FND_API.G_EXC_ERROR;
1797:
1798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1799:
1800: IF l_debug_level > 0 THEN
1801: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_SCHEDULE_LINES ' , 1 ) ;
1802: END IF;
1799:
1800: IF l_debug_level > 0 THEN
1801: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_SCHEDULE_LINES ' , 1 ) ;
1802: END IF;
1803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1804: -- Start 2742982 --
1805: WHEN NO_DATA_FOUND THEN
1806: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
1807: OE_MSG_PUB.Add;
1804: -- Start 2742982 --
1805: WHEN NO_DATA_FOUND THEN
1806: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
1807: OE_MSG_PUB.Add;
1808: RAISE FND_API.G_EXC_ERROR;
1809: -- End 2742982 --
1810:
1811: WHEN OTHERS THEN
1812:
1817: , 'Query_Schedule_Lines'
1818: );
1819: END IF;
1820:
1821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1822: END Query_Schedule_Lines;
1823:
1824: /*----------------------------------------------------------------
1825: PROCEDURE Query_Unschedule_Lines
1873: l_change_sequence VARCHAR2(50);
1874: l_source_document_id NUMBER;
1875: l_source_document_line_id NUMBER;
1876: l_order_source_id NUMBER;
1877: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1878: l_subscription_enable_flag varchar2(10):= ''; --sol_ord_er #16014165
1879: BEGIN
1880:
1881: IF l_debug_level > 0 THEN
2015: p_sch_action => p_sch_action,
2016: x_line_tbl => l_line_tbl,
2017: x_return_status => l_return_status);
2018:
2019: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2021: END IF;
2022: ELSE
2023:
2016: x_line_tbl => l_line_tbl,
2017: x_return_status => l_return_status);
2018:
2019: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2021: END IF;
2022: ELSE
2023:
2024: -- Query ato model.
2058: p_sch_action => p_sch_action,
2059: x_line_tbl => l_line_tbl,
2060: x_return_status => l_return_status);
2061:
2062: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2064: END IF;
2065:
2066: IF x_line_tbl.count = 0 THEN
2059: x_line_tbl => l_line_tbl,
2060: x_return_status => l_return_status);
2061:
2062: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2064: END IF;
2065:
2066: IF x_line_tbl.count = 0 THEN
2067: J := x_line_tbl.count;
2131:
2132:
2133: END IF;
2134: IF l_line_rec.reserved_quantity IS NULL
2135: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM
2136: THEN
2137: l_line_rec.reserved_quantity := 0;
2138: END IF;
2139: IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2136: THEN
2137: l_line_rec.reserved_quantity := 0;
2138: END IF;
2139: IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2140: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM
2141: THEN
2142: l_line_rec.reserved_quantity2 := 0;
2143: END IF;
2144:
2161: p_sch_action => p_sch_action,
2162: x_line_tbl => l_line_tbl,
2163: x_return_status => l_return_status);
2164:
2165: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2167: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2168: x_line_tbl.delete(x_line_tbl.count);
2169: END IF;
2162: x_line_tbl => l_line_tbl,
2163: x_return_status => l_return_status);
2164:
2165: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2167: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2168: x_line_tbl.delete(x_line_tbl.count);
2169: END IF;
2170:
2163: x_return_status => l_return_status);
2164:
2165: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2167: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2168: x_line_tbl.delete(x_line_tbl.count);
2169: END IF;
2170:
2171:
2193:
2194:
2195: EXCEPTION
2196:
2197: WHEN FND_API.G_EXC_ERROR THEN
2198: IF l_debug_level > 0 THEN
2199: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2200: END IF;
2201: RAISE FND_API.G_EXC_ERROR;
2197: WHEN FND_API.G_EXC_ERROR THEN
2198: IF l_debug_level > 0 THEN
2199: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2200: END IF;
2201: RAISE FND_API.G_EXC_ERROR;
2202:
2203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2204:
2205: IF l_debug_level > 0 THEN
2199: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2200: END IF;
2201: RAISE FND_API.G_EXC_ERROR;
2202:
2203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2204:
2205: IF l_debug_level > 0 THEN
2206: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2207: END IF;
2204:
2205: IF l_debug_level > 0 THEN
2206: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2207: END IF;
2208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2209:
2210: -- Start 2742982 --
2211: WHEN NO_DATA_FOUND THEN
2212: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
2210: -- Start 2742982 --
2211: WHEN NO_DATA_FOUND THEN
2212: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
2213: OE_MSG_PUB.Add;
2214: RAISE FND_API.G_EXC_ERROR;
2215: -- End 2742982 --
2216:
2217: WHEN OTHERS THEN
2218:
2226: , 'Query_Unschedule_Lines'
2227: );
2228: END IF;
2229:
2230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2231:
2232: END Query_Unschedule_Lines;
2233:
2234: /*----------------------------------------------------------------
2281: l_change_sequence VARCHAR2(50);
2282: l_source_document_id NUMBER;
2283: l_source_document_line_id NUMBER;
2284: l_order_source_id NUMBER;
2285: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2286: BEGIN
2287:
2288: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
2289:
2386: p_sch_action => p_sch_action,
2387: x_line_tbl => l_line_tbl,
2388: x_return_status => l_return_status);
2389:
2390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2392: END IF;
2393:
2394:
2387: x_line_tbl => l_line_tbl,
2388: x_return_status => l_return_status);
2389:
2390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2392: END IF;
2393:
2394:
2395: IF x_line_tbl.count = 0 THEN
2455: p_org_id => l_line_rec.ship_from_org_id); */
2456: END IF;
2457:
2458: IF l_line_rec.reserved_quantity IS NULL
2459: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM
2460: THEN
2461: l_line_rec.reserved_quantity := 0;
2462: END IF;
2463: /*IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2460: THEN
2461: l_line_rec.reserved_quantity := 0;
2462: END IF;
2463: /*IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2464: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM
2465: THEN
2466: l_line_rec.reserved_quantity2 := 0;
2467: END IF; */
2468:
2484: p_sch_action => p_sch_action,
2485: x_line_tbl => l_line_tbl,
2486: x_return_status => l_return_status);
2487:
2488: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2490: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2491: x_line_tbl.delete(x_line_tbl.count);
2492: END IF;
2485: x_line_tbl => l_line_tbl,
2486: x_return_status => l_return_status);
2487:
2488: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2490: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2491: x_line_tbl.delete(x_line_tbl.count);
2492: END IF;
2493:
2486: x_return_status => l_return_status);
2487:
2488: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2490: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2491: x_line_tbl.delete(x_line_tbl.count);
2492: END IF;
2493:
2494: /* Check_Merge_Line(p_x_line_tbl => x_line_tbl
2517:
2518: EXCEPTION
2519:
2520:
2521: WHEN FND_API.G_EXC_ERROR THEN
2522: IF l_debug_level > 0 THEN
2523: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2524: END IF;
2525: RAISE FND_API.G_EXC_ERROR;
2521: WHEN FND_API.G_EXC_ERROR THEN
2522: IF l_debug_level > 0 THEN
2523: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2524: END IF;
2525: RAISE FND_API.G_EXC_ERROR;
2526:
2527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2528:
2529: IF l_debug_level > 0 THEN
2523: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2524: END IF;
2525: RAISE FND_API.G_EXC_ERROR;
2526:
2527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2528:
2529: IF l_debug_level > 0 THEN
2530: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2531: END IF;
2528:
2529: IF l_debug_level > 0 THEN
2530: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2531: END IF;
2532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2533:
2534: -- Start 2742982 --
2535: WHEN NO_DATA_FOUND THEN
2536: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
2534: -- Start 2742982 --
2535: WHEN NO_DATA_FOUND THEN
2536: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
2537: OE_MSG_PUB.Add;
2538: RAISE FND_API.G_EXC_ERROR;
2539: -- End 2742982 --
2540:
2541: WHEN OTHERS THEN
2542:
2550: , 'Query_Unreserve_Lines'
2551: );
2552: END IF;
2553:
2554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2555: END Query_Unreserve_Lines;
2556:
2557: /*----------------------------------------------------------------
2558: PROCEDURE Query_Reserve_Lines
2597: J NUMBER;
2598: l_header_id NUMBER;
2599: l_config_id NUMBER;
2600: l_sales_order_id NUMBER := Null;
2601: l_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
2602: l_open_flag VARCHAR2(1);
2603: --
2604: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2605: --
2762: p_sch_action => p_sch_action,
2763: x_line_tbl => x_line_tbl,
2764: x_return_status => l_return_status);
2765:
2766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2768: END IF;
2769:
2770: /* Check_Merge_Line(p_x_line_tbl => x_line_tbl
2763: x_line_tbl => x_line_tbl,
2764: x_return_status => l_return_status);
2765:
2766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2768: END IF;
2769:
2770: /* Check_Merge_Line(p_x_line_tbl => x_line_tbl
2771: ,p_line_tbl => l_line_tbl); */ -- Bug-2454163
2879:
2880:
2881: END IF;
2882: IF l_line_rec.reserved_quantity IS NULL
2883: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM
2884: THEN
2885: l_line_rec.reserved_quantity := 0;
2886: END IF;
2887: /*IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2884: THEN
2885: l_line_rec.reserved_quantity := 0;
2886: END IF;
2887: /*IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2888: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM
2889: THEN
2890: l_line_rec.reserved_quantity2 := 0;
2891: END IF; */
2892:
2938: p_org_id => l_line_rec.ship_from_org_id); */
2939:
2940: END IF;
2941: IF l_line_rec.reserved_quantity IS NULL
2942: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM
2943: THEN
2944: l_line_rec.reserved_quantity := 0;
2945: END IF;
2946: /* IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2943: THEN
2944: l_line_rec.reserved_quantity := 0;
2945: END IF;
2946: /* IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2947: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM
2948: THEN
2949: l_line_rec.reserved_quantity2 := 0;
2950: END IF; */
2951:
2967: p_sch_action => p_sch_action,
2968: x_line_tbl => x_line_tbl,
2969: x_return_status => l_return_status);
2970:
2971: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2974: l_line_tbl.delete(l_line_tbl.count);
2975: END IF;
2968: x_line_tbl => x_line_tbl,
2969: x_return_status => l_return_status);
2970:
2971: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2974: l_line_tbl.delete(l_line_tbl.count);
2975: END IF;
2976:
2969: x_return_status => l_return_status);
2970:
2971: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2974: l_line_tbl.delete(l_line_tbl.count);
2975: END IF;
2976:
2977:
3037: oe_debug_pub.add( 'NEED TO RESERVE THE LINE' , 2 ) ;
3038: END IF;
3039:
3040: -- Check if the line is eligible for reservation.
3041: l_return_status := FND_API.G_RET_STS_SUCCESS;
3042: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => l_line_tbl(I),
3043: p_old_line_rec => l_line_tbl(I),
3044: p_sch_action => p_sch_action,
3045: x_return_status => l_return_status);
3043: p_old_line_rec => l_line_tbl(I),
3044: p_sch_action => p_sch_action,
3045: x_return_status => l_return_status);
3046:
3047: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3048: --Pack J
3049: -- To calculate the remaining quantity to be reserved
3050: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
3051: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG')= 'Y'
3084: ,p_quantity2_to_reserve => l_quantity2_to_reserve --l_line_tbl(I).ordered_quantity2 -- INVCONV
3085: ,p_rsv_update => l_rsv_update
3086: ,x_return_status => l_return_status);
3087:
3088: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3089: IF l_debug_level > 0 THEN
3090: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
3091: END IF;
3092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3088: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3089: IF l_debug_level > 0 THEN
3090: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
3091: END IF;
3092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3093: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3094: IF l_debug_level > 0 THEN
3095: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
3096: END IF;
3089: IF l_debug_level > 0 THEN
3090: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
3091: END IF;
3092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3093: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3094: IF l_debug_level > 0 THEN
3095: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
3096: END IF;
3097: l_return_status := FND_API.G_RET_STS_SUCCESS;
3093: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3094: IF l_debug_level > 0 THEN
3095: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
3096: END IF;
3097: l_return_status := FND_API.G_RET_STS_SUCCESS;
3098: END IF;
3099:
3100: END IF; -- Return status
3101: ELSE
3138:
3139: EXCEPTION
3140:
3141:
3142: WHEN FND_API.G_EXC_ERROR THEN
3143: IF l_debug_level > 0 THEN
3144: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3145: END IF;
3146: RAISE FND_API.G_EXC_ERROR;
3142: WHEN FND_API.G_EXC_ERROR THEN
3143: IF l_debug_level > 0 THEN
3144: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3145: END IF;
3146: RAISE FND_API.G_EXC_ERROR;
3147:
3148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3149:
3150: IF l_debug_level > 0 THEN
3144: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3145: END IF;
3146: RAISE FND_API.G_EXC_ERROR;
3147:
3148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3149:
3150: IF l_debug_level > 0 THEN
3151: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3152: END IF;
3149:
3150: IF l_debug_level > 0 THEN
3151: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3152: END IF;
3153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3154:
3155: -- Start 2742982 --
3156: WHEN NO_DATA_FOUND THEN
3157: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
3155: -- Start 2742982 --
3156: WHEN NO_DATA_FOUND THEN
3157: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
3158: OE_MSG_PUB.Add;
3159: RAISE FND_API.G_EXC_ERROR;
3160: -- End 2742982 --
3161:
3162: WHEN OTHERS THEN
3163:
3171: , 'Validate_Group_Line'
3172: );
3173: END IF;
3174:
3175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3176: END Query_Reserve_Lines;
3177:
3178: /*----------------------------------------------------------------
3179: PROCEDURE Query_ATP_CHECK_Lines
3224: l_change_sequence VARCHAR2(50);
3225: l_source_document_id NUMBER;
3226: l_source_document_line_id NUMBER;
3227: l_order_source_id NUMBER;
3228: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3229: l_subscription_enable_flag varchar2(10) := ''; --sol_ord_er #16014165
3230: BEGIN
3231:
3232:
3353: p_sch_action => p_sch_action,
3354: x_line_tbl => l_line_tbl,
3355: x_return_status => l_return_status);
3356:
3357: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3359: END IF;
3360:
3361: ELSE
3354: x_line_tbl => l_line_tbl,
3355: x_return_status => l_return_status);
3356:
3357: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3359: END IF;
3360:
3361: ELSE
3362:
3400: p_sch_action => p_sch_action,
3401: x_line_tbl => l_line_tbl,
3402: x_return_status => l_return_status);
3403:
3404: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3406: END IF;
3407:
3408: IF x_line_tbl.count = 0 THEN
3401: x_line_tbl => l_line_tbl,
3402: x_return_status => l_return_status);
3403:
3404: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3406: END IF;
3407:
3408: IF x_line_tbl.count = 0 THEN
3409: x_line_tbl := l_line_tbl;
3448: p_line_id => l_line_rec.line_id,
3449: p_org_id => l_line_rec.ship_from_org_id);
3450: END IF;
3451: IF l_line_rec.reserved_quantity IS NULL
3452: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM
3453: THEN
3454: l_line_rec.reserved_quantity := 0;
3455: END IF;
3456:
3454: l_line_rec.reserved_quantity := 0;
3455: END IF;
3456:
3457: /*IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
3458: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM
3459: THEN
3460: l_line_rec.reserved_quantity2 := 0;
3461: END IF; */
3462: /* Check_Merge_Line(p_line_rec => l_line_rec
3476: p_sch_action => p_sch_action,
3477: x_line_tbl => l_line_tbl,
3478: x_return_status => l_return_status);
3479:
3480: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3482: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3483: x_line_tbl.delete(x_line_tbl.count);
3484:
3477: x_line_tbl => l_line_tbl,
3478: x_return_status => l_return_status);
3479:
3480: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3482: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3483: x_line_tbl.delete(x_line_tbl.count);
3484:
3485: END IF;
3478: x_return_status => l_return_status);
3479:
3480: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3482: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3483: x_line_tbl.delete(x_line_tbl.count);
3484:
3485: END IF;
3486:
3506:
3507: EXCEPTION
3508:
3509:
3510: WHEN FND_API.G_EXC_ERROR THEN
3511: IF l_debug_level > 0 THEN
3512: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3513: END IF;
3514: RAISE FND_API.G_EXC_ERROR;
3510: WHEN FND_API.G_EXC_ERROR THEN
3511: IF l_debug_level > 0 THEN
3512: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3513: END IF;
3514: RAISE FND_API.G_EXC_ERROR;
3515:
3516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3517:
3518: IF l_debug_level > 0 THEN
3512: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3513: END IF;
3514: RAISE FND_API.G_EXC_ERROR;
3515:
3516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3517:
3518: IF l_debug_level > 0 THEN
3519: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3520: END IF;
3517:
3518: IF l_debug_level > 0 THEN
3519: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3520: END IF;
3521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3522:
3523: -- Start 2742982 --
3524: WHEN NO_DATA_FOUND THEN
3525: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
3538: , 'Query_ATP_CHECK_Lines'
3539: );
3540: END IF;
3541:
3542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3543: END Query_ATP_CHECK_Lines;
3544:
3545:
3546: /* ---------------------------------------------------------------
3572: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3573: --
3574: BEGIN
3575:
3576: x_return_status := FND_API.G_RET_STS_SUCCESS;
3577: IF l_debug_level > 0 THEN
3578: oe_debug_pub.add( 'ENTERING OE_GROUP_SCH_UTIL.SCHEDULE_ORDER' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
3579: END IF;
3580:
3653: OE_MSG_PUB.Add;
3654: END IF;
3655: END IF;
3656:
3657: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3659: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3660: RAISE FND_API.G_EXC_ERROR;
3661: END IF;
3654: END IF;
3655: END IF;
3656:
3657: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3659: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3660: RAISE FND_API.G_EXC_ERROR;
3661: END IF;
3662:
3655: END IF;
3656:
3657: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3659: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3660: RAISE FND_API.G_EXC_ERROR;
3661: END IF;
3662:
3663: END IF;
3656:
3657: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3659: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3660: RAISE FND_API.G_EXC_ERROR;
3661: END IF;
3662:
3663: END IF;
3664:
3671: END IF;
3672: IF l_debug_level > 0 THEN
3673: oe_debug_pub.add( 'EXITING OE_GROUP_SCH_UTIL.SCHEDULE_ORDER' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
3674: END IF;
3675: x_return_status := FND_API.G_RET_STS_SUCCESS;
3676:
3677: EXCEPTION
3678:
3679: WHEN FND_API.G_EXC_ERROR THEN
3675: x_return_status := FND_API.G_RET_STS_SUCCESS;
3676:
3677: EXCEPTION
3678:
3679: WHEN FND_API.G_EXC_ERROR THEN
3680:
3681: x_return_status := FND_API.G_RET_STS_ERROR;
3682:
3683: oe_msg_pub.count_and_get
3677: EXCEPTION
3678:
3679: WHEN FND_API.G_EXC_ERROR THEN
3680:
3681: x_return_status := FND_API.G_RET_STS_ERROR;
3682:
3683: oe_msg_pub.count_and_get
3684: ( p_count => x_msg_count
3685: ,p_data => x_msg_data
3684: ( p_count => x_msg_count
3685: ,p_data => x_msg_data
3686: );
3687:
3688: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3689:
3690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3691:
3692: oe_msg_pub.count_and_get
3686: );
3687:
3688: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3689:
3690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3691:
3692: oe_msg_pub.count_and_get
3693: ( p_count => x_msg_count
3694: ,p_data => x_msg_data
3695: );
3696:
3697: WHEN OTHERS THEN
3698:
3699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3700:
3701: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3702: THEN
3703: OE_MSG_PUB.Add_Exc_Msg
3709: oe_msg_pub.count_and_get
3710: ( p_count => x_msg_count
3711: ,p_data => x_msg_data
3712: );
3713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3714: END Schedule_Order;
3715: /*---------------------------------------------------------------
3716: Procedure :Schedule_Multi_lines
3717: This procedure is called when lines are multi-selected and
3760: Oe_Schedule_Util.g_atp_tbl.delete;
3761: END IF;
3762: -- End 2434807 -
3763:
3764: x_return_status := FND_API.G_RET_STS_SUCCESS;
3765: --R12.MOAC
3766: /*
3767: j := 1;
3768: initial := 1;
3839: oe_debug_pub.add( ' AFTER VALIDATE_GROUP : '||x_return_status,1);
3840: END IF;
3841:
3842: -- 3990887
3843: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3844:
3845: ----------- set up the tables -------------------------
3846: l_old_line_tbl := l_line_tbl;
3847:
3904: END IF;
3905:
3906: -- 3870895 : call process_group only when coun > 0 and return status is success
3907: IF l_line_tbl.count > 0
3908: AND x_return_status = FND_API.G_RET_STS_SUCCESS
3909: THEN
3910:
3911: Oe_Config_Schedule_Pvt.Process_Group
3912: (p_x_line_tbl => l_line_tbl
3915: ,p_sch_action => p_sch_action
3916: ,p_partial => TRUE
3917: ,x_return_status => x_return_status);
3918:
3919: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3921: -- ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3922: -- RAISE FND_API.G_EXC_ERROR;
3923: END IF;
3916: ,p_partial => TRUE
3917: ,x_return_status => x_return_status);
3918:
3919: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3921: -- ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3922: -- RAISE FND_API.G_EXC_ERROR;
3923: END IF;
3924:
3917: ,x_return_status => x_return_status);
3918:
3919: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3921: -- ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3922: -- RAISE FND_API.G_EXC_ERROR;
3923: END IF;
3924:
3925: ELSE
3918:
3919: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3921: -- ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3922: -- RAISE FND_API.G_EXC_ERROR;
3923: END IF;
3924:
3925: ELSE
3926: IF p_sch_action <> OE_SCHEDULE_UTIL.OESCH_ACT_RESERVE
3948: oe_debug_pub.add( ' MESSAGE COUNT: ' || X_MSG_COUNT , 1 ) ;
3949: END IF;
3950: -- Set return status.
3951:
3952: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3953: RAISE FND_API.G_EXC_ERROR;
3954:
3955: END IF;
3956:
3949: END IF;
3950: -- Set return status.
3951:
3952: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3953: RAISE FND_API.G_EXC_ERROR;
3954:
3955: END IF;
3956:
3957:
3958: -- Returning success, even if there were errors (unexpected errors will
3959: -- be raised and taken care of). This is because we do not want to rollback
3960: -- since the successful lines should get committed.
3961:
3962: x_return_status := FND_API.G_RET_STS_SUCCESS;
3963:
3964: /* -- Get message count and data
3965:
3966: oe_msg_pub.count_and_get
3974: END IF;
3975:
3976: EXCEPTION
3977:
3978: WHEN FND_API.G_EXC_ERROR THEN
3979:
3980: x_return_status := FND_API.G_RET_STS_ERROR;
3981:
3982: -- Get message count and data
3976: EXCEPTION
3977:
3978: WHEN FND_API.G_EXC_ERROR THEN
3979:
3980: x_return_status := FND_API.G_RET_STS_ERROR;
3981:
3982: -- Get message count and data
3983:
3984: oe_msg_pub.count_and_get
3985: ( p_count => x_msg_count
3986: , p_data => x_msg_data
3987: );
3988:
3989: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3990:
3991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3992:
3993: -- Get message count and data
3987: );
3988:
3989: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3990:
3991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3992:
3993: -- Get message count and data
3994:
3995: oe_msg_pub.count_and_get
3998: );
3999:
4000: WHEN OTHERS THEN
4001:
4002: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4003:
4004: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
4005: THEN
4006: oe_msg_pub.Add_Exc_Msg
4015: ( p_count => x_msg_count
4016: , p_data => x_msg_data
4017: );
4018:
4019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4020: END Schedule_Multi_lines;
4021: /* ------------------------------------------------------------
4022: Procedure schedule_set_lines
4023: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4094: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4095: --
4096: BEGIN
4097:
4098: x_return_status := FND_API.G_RET_STS_SUCCESS;
4099: IF l_debug_level > 0 THEN
4100: oe_debug_pub.add( 'ENTERING OE_GROUP_SCH_UTIL.SCHEDULE_SET_LINES' , 1 ) ;
4101: END IF;
4102:
4185: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4186: p_requesting_entity_id => optionrec.line_id,
4187: p_request_type => OE_GLOBALS.G_UPDATE_SHIPPING,
4188: p_request_unique_key1 => OE_GLOBALS.G_OPR_UPDATE,
4189: p_param1 => FND_API.G_TRUE,
4190: x_return_status => x_return_status);
4191:
4192: End loop;
4193:
4254: OE_LINE_UTIL.Lock_Row(p_line_id => p_sch_set_tbl(I).entity_id,
4255: p_x_line_rec => l_line_rec,
4256: x_return_status => x_return_status);
4257:
4258: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4260: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4261: RAISE FND_API.G_EXC_ERROR;
4262: END IF;
4255: p_x_line_rec => l_line_rec,
4256: x_return_status => x_return_status);
4257:
4258: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4260: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4261: RAISE FND_API.G_EXC_ERROR;
4262: END IF;
4263:
4256: x_return_status => x_return_status);
4257:
4258: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4260: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4261: RAISE FND_API.G_EXC_ERROR;
4262: END IF;
4263:
4264:
4257:
4258: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4260: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4261: RAISE FND_API.G_EXC_ERROR;
4262: END IF;
4263:
4264:
4265: IF nvl(l_line_rec.shippable_flag,'N') = 'Y'
4292: p_org_id => l_line_rec.ship_from_org_id); */
4293: END IF;
4294:
4295: IF l_line_rec.reserved_quantity IS NULL
4296: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM THEN
4297: l_line_rec.reserved_quantity := 0;
4298: END IF;
4299: /* IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV -- why was this commented out
4300: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM THEN
4296: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM THEN
4297: l_line_rec.reserved_quantity := 0;
4298: END IF;
4299: /* IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV -- why was this commented out
4300: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM THEN
4301: l_line_rec.reserved_quantity2 := 0;
4302: END IF; */
4303:
4304:
4428: x_return_status => x_return_status);
4429:
4430: END IF;
4431:
4432: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4434: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4435: RAISE FND_API.G_EXC_ERROR;
4436: END IF;
4429:
4430: END IF;
4431:
4432: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4434: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4435: RAISE FND_API.G_EXC_ERROR;
4436: END IF;
4437: -- 3564310
4430: END IF;
4431:
4432: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4434: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4435: RAISE FND_API.G_EXC_ERROR;
4436: END IF;
4437: -- 3564310
4438: -- Line is no longer with the set
4431:
4432: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4434: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4435: RAISE FND_API.G_EXC_ERROR;
4436: END IF;
4437: -- 3564310
4438: -- Line is no longer with the set
4439: -- rollback the changes.
4486: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4487: p_requesting_entity_id => l_iline_tbl(I).line_id,
4488: p_request_type => OE_GLOBALS.G_UPDATE_SHIPPING,
4489: p_request_unique_key1 => OE_GLOBALS.G_OPR_UPDATE,
4490: p_param1 => FND_API.G_TRUE,
4491: x_return_status => x_return_status);
4492:
4493: END IF;
4494: END LOOP;
4545:
4546: IF l_log_error THEN
4547: FND_MESSAGE.SET_NAME('ONT','OE_SCH_OVER_ATP_SET_NO_MATCH');
4548: OE_MSG_PUB.Add;
4549: x_return_status := FND_API.G_RET_STS_ERROR;
4550: RAISE FND_API.G_EXC_ERROR;
4551: END IF;
4552:
4553: FOR M IN 1..l_iline_tbl.count LOOP
4546: IF l_log_error THEN
4547: FND_MESSAGE.SET_NAME('ONT','OE_SCH_OVER_ATP_SET_NO_MATCH');
4548: OE_MSG_PUB.Add;
4549: x_return_status := FND_API.G_RET_STS_ERROR;
4550: RAISE FND_API.G_EXC_ERROR;
4551: END IF;
4552:
4553: FOR M IN 1..l_iline_tbl.count LOOP
4554: IF l_debug_level > 0 THEN
4666: || l_line_tbl.count , 1 ) ;
4667: END IF;
4668: -- 3564310
4669: IF l_line_tbl.count > 0
4670: AND x_return_status = FND_API.G_RET_STS_SUCCESS THEN
4671: Oe_Config_Schedule_Pvt.Process_Group
4672: (p_x_line_tbl => l_line_tbl
4673: ,p_old_line_tbl => l_old_line_tbl
4674: ,p_caller => 'SET'
4679:
4680: IF l_debug_level > 0 THEN
4681: oe_debug_pub.add('After call to Process Group :' || x_return_status ,1);
4682: END IF;
4683: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4685: END IF;
4686: END IF;
4687:
4680: IF l_debug_level > 0 THEN
4681: oe_debug_pub.add('After call to Process Group :' || x_return_status ,1);
4682: END IF;
4683: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4685: END IF;
4686: END IF;
4687:
4688: -- Additional process we are doing to fix bug 2232950.
4685: END IF;
4686: END IF;
4687:
4688: -- Additional process we are doing to fix bug 2232950.
4689: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
4690:
4691: IF l_debug_level > 0 THEN
4692: oe_debug_pub.add('Compare output with requested values',1);
4693: END IF;
4699: THEN
4700: IF l_debug_level > 0 THEN
4701: oe_debug_pub.add('Not received correct values for ship set',1);
4702: END IF;
4703: x_return_status := FND_API.G_RET_STS_ERROR;
4704: EXIT;
4705: ELSIF p_sch_set_tbl(1).param8 = OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET
4706: AND trunc(l_line_tbl(I).Schedule_arrival_date) <> trunc(p_sch_set_tbl(1).date_param5)
4707: THEN
4707: THEN
4708: IF l_debug_level > 0 THEN
4709: oe_debug_pub.add('Not received correct values for arrival set',1);
4710: END IF;
4711: x_return_status := FND_API.G_RET_STS_ERROR;
4712: EXIT;
4713: END IF;
4714:
4715: END LOOP;
4714:
4715: END LOOP;
4716: END IF; -- Success.
4717:
4718: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4719:
4720: IF l_debug_level > 0 THEN
4721: oe_debug_pub.add('Line Id error out : ' || l_line_rec.line_id,2);
4722: END IF;
4764: IF l_debug_level > 0 THEN
4765: oe_debug_pub.add('Calling Update Set');
4766: END IF;
4767:
4768: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4769:
4770: IF l_debug_level > 0 THEN
4771: oe_debug_pub.add('Unable to schedule the line for set date');
4772: END IF;
4784: oe_debug_pub.add('Line belong to model');
4785: END IF;
4786: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
4787: OE_MSG_PUB.Add;
4788: RAISE FND_API.G_EXC_ERROR;
4789:
4790: ELSE
4791: -- If the line is being added to set is a standard line
4792: -- save the line without scheduling attributes.
4845: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4846: p_requesting_entity_id => l_line_tbl(I).line_id,
4847: p_request_type => OE_GLOBALS.G_UPDATE_SHIPPING,
4848: p_request_unique_key1 => OE_GLOBALS.G_OPR_UPDATE,
4849: p_param1 => FND_API.G_TRUE,
4850: x_return_status => x_return_status);
4851: END IF;
4852: END IF; -- Part of Model.
4853: END LOOP;
4852: END IF; -- Part of Model.
4853: END LOOP;
4854: -- 3384975
4855: IF l_param12 = 'N' THEN
4856: x_return_status := FND_API.G_RET_STS_SUCCESS;
4857: END IF;
4858:
4859: END IF; -- x_return_status = succ/error
4860:
4865: oe_debug_pub.add('Exiting OE_Delayed_Requests_UTIL.Schedule_set_lines');
4866: END IF;
4867: EXCEPTION
4868:
4869: WHEN FND_API.G_EXC_ERROR THEN
4870: x_return_status := FND_API.G_RET_STS_ERROR;
4871: l_old_set_tbl.delete;
4872: IF l_debug_level > 0 THEN
4873: oe_debug_pub.add('No data from expected error',1);
4866: END IF;
4867: EXCEPTION
4868:
4869: WHEN FND_API.G_EXC_ERROR THEN
4870: x_return_status := FND_API.G_RET_STS_ERROR;
4871: l_old_set_tbl.delete;
4872: IF l_debug_level > 0 THEN
4873: oe_debug_pub.add('No data from expected error',1);
4874: END IF;
4871: l_old_set_tbl.delete;
4872: IF l_debug_level > 0 THEN
4873: oe_debug_pub.add('No data from expected error',1);
4874: END IF;
4875: RAISE FND_API.G_EXC_ERROR;
4876:
4877: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4878:
4879: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4873: oe_debug_pub.add('No data from expected error',1);
4874: END IF;
4875: RAISE FND_API.G_EXC_ERROR;
4876:
4877: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4878:
4879: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4880: THEN
4881: OE_MSG_PUB.Add_Exc_Msg
4887: oe_debug_pub.add('No data from unexpected error',1);
4888: END IF;
4889:
4890: l_old_set_tbl.delete;
4891: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4892:
4893: WHEN OTHERS THEN
4894:
4895:
4903: IF l_debug_level > 0 THEN
4904: oe_debug_pub.add('No data from unexpected error',1);
4905: END IF;
4906: l_old_set_tbl.delete;
4907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4908:
4909: END Schedule_set_lines;
4910:
4911: /* ---------------------------------------------------------------
5074:
5075: END IF;
5076: /*
5077: IF p_request_rec.date_param4 IS NOT NULL
5078: AND p_request_rec.date_param4 <> FND_API.G_MISS_DATE THEN
5079: l_Schedule_ship_date := p_request_rec.date_param4;
5080: END IF;
5081: */
5082: IF l_debug_level > 0 THEN
5113: x_return_status => x_return_status);
5114:
5115: END IF;
5116:
5117: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5119: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5120: RAISE FND_API.G_EXC_ERROR;
5121: END IF;
5114:
5115: END IF;
5116:
5117: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5119: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5120: RAISE FND_API.G_EXC_ERROR;
5121: END IF;
5122:
5115: END IF;
5116:
5117: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5119: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5120: RAISE FND_API.G_EXC_ERROR;
5121: END IF;
5122:
5123: EXCEPTION
5116:
5117: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5119: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5120: RAISE FND_API.G_EXC_ERROR;
5121: END IF;
5122:
5123: EXCEPTION
5124: WHEN OTHERS THEN
5163:
5164: IF l_log_error THEN
5165: FND_MESSAGE.SET_NAME('ONT','OE_SCH_OVER_ATP_SET_NO_MATCH');
5166: OE_MSG_PUB.Add;
5167: x_return_status := FND_API.G_RET_STS_ERROR;
5168: goto END_OF_PROCESS;
5169: END IF;
5170: END IF; -- code level.
5171:
5698: || l_line_tbl.count || ':' || l_old_line_tbl.count , 1 ) ;
5699: END IF;
5700:
5701: IF l_line_tbl.count <> l_old_line_tbl.count THEN
5702: x_return_status := FND_API.G_RET_STS_ERROR;
5703: RAISE FND_API.G_EXC_ERROR;
5704: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5706: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5699: END IF;
5700:
5701: IF l_line_tbl.count <> l_old_line_tbl.count THEN
5702: x_return_status := FND_API.G_RET_STS_ERROR;
5703: RAISE FND_API.G_EXC_ERROR;
5704: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5706: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5707: RAISE FND_API.G_EXC_ERROR;
5700:
5701: IF l_line_tbl.count <> l_old_line_tbl.count THEN
5702: x_return_status := FND_API.G_RET_STS_ERROR;
5703: RAISE FND_API.G_EXC_ERROR;
5704: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5706: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5707: RAISE FND_API.G_EXC_ERROR;
5708: END IF;
5701: IF l_line_tbl.count <> l_old_line_tbl.count THEN
5702: x_return_status := FND_API.G_RET_STS_ERROR;
5703: RAISE FND_API.G_EXC_ERROR;
5704: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5706: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5707: RAISE FND_API.G_EXC_ERROR;
5708: END IF;
5709:
5702: x_return_status := FND_API.G_RET_STS_ERROR;
5703: RAISE FND_API.G_EXC_ERROR;
5704: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5706: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5707: RAISE FND_API.G_EXC_ERROR;
5708: END IF;
5709:
5710: /*
5703: RAISE FND_API.G_EXC_ERROR;
5704: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5706: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5707: RAISE FND_API.G_EXC_ERROR;
5708: END IF;
5709:
5710: /*
5711: Oe_Config_Schedule_Pvt.Process_Group
5729:
5730: IF l_debug_level > 0 THEN
5731: oe_debug_pub.add('2740480: After call to Process Group :' || x_return_status ,1);
5732: END IF;
5733: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5735: END IF;
5736: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
5737:
5730: IF l_debug_level > 0 THEN
5731: oe_debug_pub.add('2740480: After call to Process Group :' || x_return_status ,1);
5732: END IF;
5733: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5735: END IF;
5736: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
5737:
5738: IF l_debug_level > 0 THEN
5732: END IF;
5733: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5735: END IF;
5736: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
5737:
5738: IF l_debug_level > 0 THEN
5739: oe_debug_pub.add('2740480: Compare output with requested values',1);
5740: END IF;
5779: IF l_debug_level > 0 THEN
5780: oe_debug_pub.add('Before setting message for group failure',2);
5781: END IF;
5782:
5783: x_return_status := FND_API.G_RET_STS_ERROR;
5784: FND_MESSAGE.SET_NAME('ONT','OE_SCH_GROUP_MEMBER_FAILED');
5785: OE_MSG_PUB.Add;
5786: RAISE FND_API.G_EXC_ERROR;
5787:
5782:
5783: x_return_status := FND_API.G_RET_STS_ERROR;
5784: FND_MESSAGE.SET_NAME('ONT','OE_SCH_GROUP_MEMBER_FAILED');
5785: OE_MSG_PUB.Add;
5786: RAISE FND_API.G_EXC_ERROR;
5787:
5788: END IF;
5789:
5790: END IF; -- Push logic ends here.
5805: IF l_debug_level > 0 THEN
5806: oe_debug_pub.add( 'AFTER CALLING PROCESS_GROUP' || X_RETURN_STATUS , 1 ) ;
5807: END IF;
5808:
5809: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5811: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5812: -- RAISE FND_API.G_EXC_ERROR;
5813:
5806: oe_debug_pub.add( 'AFTER CALLING PROCESS_GROUP' || X_RETURN_STATUS , 1 ) ;
5807: END IF;
5808:
5809: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5811: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5812: -- RAISE FND_API.G_EXC_ERROR;
5813:
5814: -- Code added for bug 2812346
5807: END IF;
5808:
5809: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5811: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5812: -- RAISE FND_API.G_EXC_ERROR;
5813:
5814: -- Code added for bug 2812346
5815:
5808:
5809: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5811: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5812: -- RAISE FND_API.G_EXC_ERROR;
5813:
5814: -- Code added for bug 2812346
5815:
5816: IF l_debug_level > 0 THEN
5870: IF l_debug_level > 0 THEN
5871: oe_debug_pub.add('Model is part of a set cannot save ' ,2);
5872: END IF;
5873:
5874: RAISE FND_API.G_EXC_ERROR;
5875: END IF;
5876: END IF; -- bug 4188166
5877: -- END IF; --commented for bug3986288
5878: END LOOP;
5884: oe_debug_pub.add('It is a create operation ' ,2);
5885: END IF;
5886: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
5887: OE_MSG_PUB.Add;
5888: x_return_status := FND_API.G_RET_STS_SUCCESS;
5889: IF l_debug_level > 0 THEN
5890: oe_debug_pub.add('x_return_status ' || x_return_status,2);
5891: END IF;
5892: GOTO END_OF_PROCESS;
5894: IF l_debug_level > 0 THEN
5895: oe_debug_pub.add('It is not a create operation ' ,2);
5896: END IF;
5897:
5898: RAISE FND_API.G_EXC_ERROR;
5899: END IF; -- Create.
5900: END IF;
5901:
5902: -- If scheduling set suceeded, then the result of scheduling
5962: IF l_debug_level > 0 THEN
5963: oe_debug_pub.add('Exiting Schedule_Set',0.5); -- debug level changed to 0.5 for bug 13435459
5964: END IF;
5965: EXCEPTION
5966: WHEN FND_API.G_EXC_ERROR THEN
5967: --3543774 If new set show the error message
5968: IF p_request_rec.request_type = OE_GLOBALS.G_GROUP_SCHEDULE
5969: AND ((l_entity_type =
5970: OE_SCHEDULE_UTIL.OESCH_ENTITY_SHIP_SET
5977: OE_MSG_PUB.Add;
5978: END IF;
5979: G_TOP_MODEL_LINE_ID := Null;
5980: G_PART_OF_SET := Null;
5981: x_return_status := FND_API.G_RET_STS_ERROR;
5982:
5983: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5984:
5985: G_TOP_MODEL_LINE_ID := Null;
5979: G_TOP_MODEL_LINE_ID := Null;
5980: G_PART_OF_SET := Null;
5981: x_return_status := FND_API.G_RET_STS_ERROR;
5982:
5983: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5984:
5985: G_TOP_MODEL_LINE_ID := Null;
5986: G_PART_OF_SET := Null;
5987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5983: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5984:
5985: G_TOP_MODEL_LINE_ID := Null;
5986: G_PART_OF_SET := Null;
5987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5988:
5989: WHEN OTHERS THEN
5990:
5991: G_TOP_MODEL_LINE_ID := Null;
5989: WHEN OTHERS THEN
5990:
5991: G_TOP_MODEL_LINE_ID := Null;
5992: G_PART_OF_SET := Null;
5993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5994:
5995: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5996: THEN
5997: OE_MSG_PUB.Add_Exc_Msg
6031: l_count NUMBER := 0;
6032: l_set_rec OE_ORDER_CACHE.set_rec_type;
6033: l_msg_count NUMBER;
6034: l_msg_data VARCHAR2(2000);
6035: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6036: l_set_exists VARCHAR2(1);
6037:
6038: --
6039: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6039: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6040: --
6041: BEGIN
6042:
6043: x_return_status := FND_API.G_RET_STS_SUCCESS;
6044:
6045: IF l_debug_level > 0 THEN
6046: oe_debug_pub.add( 'ENTERING Group_Schedule_sets' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
6047: END IF;
6052: IF l_debug_level > 0 THEN
6053: oe_debug_pub.add( 'Processing Line' || P_SCH_SET_TBL(I).ENTITY_ID, 1);
6054: END IF;
6055:
6056: l_return_status := FND_API.G_RET_STS_SUCCESS;
6057:
6058: BEGIN
6059:
6060: Select 'Y'
6109: IF l_debug_level > 0 THEN
6110: oe_debug_pub.add(' L_return_status :' || l_return_status,1);
6111: END IF;
6112:
6113: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6116: IF l_debug_level > 0 THEN
6117: oe_debug_pub.add(' Goto End due to error',1);
6110: oe_debug_pub.add(' L_return_status :' || l_return_status,1);
6111: END IF;
6112:
6113: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6116: IF l_debug_level > 0 THEN
6117: oe_debug_pub.add(' Goto End due to error',1);
6118: END IF;
6111: END IF;
6112:
6113: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6116: IF l_debug_level > 0 THEN
6117: oe_debug_pub.add(' Goto End due to error',1);
6118: END IF;
6119: GOTO END_PROCESS;
6125: p_old_line_rec => l_line_tbl(J),
6126: p_sch_action => 'SCHEDULE' ,
6127: x_return_status => l_return_status);
6128:
6129: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6130:
6131: IF l_debug_level > 0 THEN
6132: oe_debug_pub.add(' Error in validation ',1);
6133: END IF;
6211: END LOOP; -- lsch_tbl
6212:
6213: <
6214:
6215: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6216:
6217: IF l_debug_level > 0 THEN
6218: oe_debug_pub.add(' Error in ' || p_sch_set_tbl(I).param1,2);
6219: END IF;
6275:
6276: IF l_debug_level > 0 THEN
6277: oe_debug_pub.add('After call to Process Group :' || x_return_status ,1);
6278: END IF;
6279: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6281: END IF;
6282: END IF;
6283:
6276: IF l_debug_level > 0 THEN
6277: oe_debug_pub.add('After call to Process Group :' || x_return_status ,1);
6278: END IF;
6279: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6281: END IF;
6282: END IF;
6283:
6284:
6287: oe_debug_pub.add('line id :' || l_sch_line_tbl(I).line_id ,1);
6288: oe_debug_pub.add('Schedule status code :' || l_sch_line_tbl(I).schedule_status_code ,1);
6289:
6290: -- 4188166
6291: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
6292: l_sch_line_tbl(I).schedule_status_code IS NOT NULL
6293: THEN
6294:
6295: /*
6380:
6381: END IF;
6382: END LOOP;
6383:
6384: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
6385: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
6386: OE_MSG_PUB.Add;
6387: x_return_status := FND_API.G_RET_STS_SUCCESS;
6388: IF l_debug_level > 0 THEN
6383:
6384: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
6385: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
6386: OE_MSG_PUB.Add;
6387: x_return_status := FND_API.G_RET_STS_SUCCESS;
6388: IF l_debug_level > 0 THEN
6389: oe_debug_pub.add('x_return_status ' || x_return_status,2);
6390: END IF;
6391: END IF;
6396: END IF;
6397:
6398: EXCEPTION
6399:
6400: WHEN FND_API.G_EXC_ERROR THEN
6401: x_return_status := FND_API.G_RET_STS_ERROR;
6402: IF l_debug_level > 0 THEN
6403: oe_debug_pub.add('No data from expected error',1);
6404: END IF;
6397:
6398: EXCEPTION
6399:
6400: WHEN FND_API.G_EXC_ERROR THEN
6401: x_return_status := FND_API.G_RET_STS_ERROR;
6402: IF l_debug_level > 0 THEN
6403: oe_debug_pub.add('No data from expected error',1);
6404: END IF;
6405: RAISE FND_API.G_EXC_ERROR;
6401: x_return_status := FND_API.G_RET_STS_ERROR;
6402: IF l_debug_level > 0 THEN
6403: oe_debug_pub.add('No data from expected error',1);
6404: END IF;
6405: RAISE FND_API.G_EXC_ERROR;
6406:
6407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6408:
6409: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6403: oe_debug_pub.add('No data from expected error',1);
6404: END IF;
6405: RAISE FND_API.G_EXC_ERROR;
6406:
6407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6408:
6409: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6410: THEN
6411: OE_MSG_PUB.Add_Exc_Msg
6416: IF l_debug_level > 0 THEN
6417: oe_debug_pub.add('No data from unexpected error',1);
6418: END IF;
6419:
6420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6421:
6422: WHEN OTHERS THEN
6423:
6424:
6431: END IF;
6432: IF l_debug_level > 0 THEN
6433: oe_debug_pub.add('No data from unexpected error',1);
6434: END IF;
6435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6436: END Group_Schedule_sets;
6437: END OE_GROUP_SCH_UTIL;
6438: