37: AND org.organization_id=p_ship_from_org_id
38: AND rownum=1 ;
39: END IF;
40:
41: x_return_status := FND_API.G_RET_STS_SUCCESS;
42: EXCEPTION
43: WHEN NO_DATA_FOUND THEN
44: IF l_debug_level > 0 THEN
45: oe_debug_pub.add('INVALID ITEM WAREHOUSE COMBINATION',3);
45: oe_debug_pub.add('INVALID ITEM WAREHOUSE COMBINATION',3);
46: END IF;
47: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_ITEM_WHSE');
48: OE_MSG_PUB.Add;
49: x_return_status := FND_API.G_RET_STS_ERROR;
50: END Validate_Item_Warehouse;
51:
52: /*---------------------------------------------------------------------
53: Procedure Name : Validate_group_Line
70: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
71: --
72: BEGIN
73:
74: x_return_status := FND_API.G_RET_STS_SUCCESS;
75: IF l_debug_level > 0 THEN
76: oe_debug_pub.add( '..ENTERING OE_SCHEDULE_UTIL.VALIDATE_GROUP_LINE' , 6 ) ;
77: END IF;
78:
78:
79: -- If the line is shipped, scheduling is not allowed.
80:
81: IF p_line_rec.shipped_quantity is not null AND
82: p_line_rec.shipped_quantity <> FND_API.G_MISS_NUM THEN
83:
84: -- The line is cancelled. Cannot perform scheduling
85: -- on it.
86:
89:
90: IF l_debug_level > 0 THEN
91: oe_debug_pub.add( ' SHIPPED LINE.' , 4 ) ;
92: END IF;
93: x_return_status := FND_API.G_RET_STS_ERROR;
94: RETURN;
95:
96: END IF;
97:
104: IF l_debug_level > 0 THEN
105: oe_debug_pub.add( 'CHECKING THE REQUEST DATE....' , 1 ) ;
106: END IF;
107: IF (p_line_rec.request_date is null OR
108: p_line_rec.request_date = FND_API.G_MISS_DATE) THEN
109:
110: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_REQUEST_DATE');
111: OE_MSG_PUB.Add;
112: IF l_debug_level > 0 THEN
111: OE_MSG_PUB.Add;
112: IF l_debug_level > 0 THEN
113: oe_debug_pub.add( 'REQUEST DATE IS MISSING' , 4 ) ;
114: END IF;
115: x_return_status := FND_API.G_RET_STS_ERROR;
116: RETURN;
117: END IF;
118:
119: IF l_debug_level > 0 THEN
134: END IF;
135:
136: OE_Holds_PUB.Check_Holds
137: ( p_api_version => 1.0
138: , p_init_msg_list => FND_API.G_FALSE
139: , p_commit => FND_API.G_FALSE
140: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
141: , x_return_status => x_return_status
142: , x_msg_count => l_msg_count
135:
136: OE_Holds_PUB.Check_Holds
137: ( p_api_version => 1.0
138: , p_init_msg_list => FND_API.G_FALSE
139: , p_commit => FND_API.G_FALSE
140: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
141: , x_return_status => x_return_status
142: , x_msg_count => l_msg_count
143: , x_msg_data => l_msg_data
136: OE_Holds_PUB.Check_Holds
137: ( p_api_version => 1.0
138: , p_init_msg_list => FND_API.G_FALSE
139: , p_commit => FND_API.G_FALSE
140: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
141: , x_return_status => x_return_status
142: , x_msg_count => l_msg_count
143: , x_msg_data => l_msg_data
144: , p_line_id => p_line_rec.line_id
151: oe_debug_pub.add( 'AFTER CALLING CHECK HOLDS: ' || X_RETURN_STATUS , 1 ) ;
152: END IF;
153:
154:
155: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
156: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
157: RAISE FND_API.G_EXC_ERROR;
158: ELSE
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
152: END IF;
153:
154:
155: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
156: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
157: RAISE FND_API.G_EXC_ERROR;
158: ELSE
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: END IF;
153:
154:
155: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
156: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
157: RAISE FND_API.G_EXC_ERROR;
158: ELSE
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: END IF;
161: END IF;
155: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
156: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
157: RAISE FND_API.G_EXC_ERROR;
158: ELSE
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: END IF;
161: END IF;
162:
163: IF (l_result = FND_API.G_TRUE) THEN
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: END IF;
161: END IF;
162:
163: IF (l_result = FND_API.G_TRUE) THEN
164: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_ON_HOLD');
165: OE_MSG_PUB.Add;
166: x_return_status := FND_API.G_RET_STS_ERROR;
167: IF l_debug_level > 0 THEN
162:
163: IF (l_result = FND_API.G_TRUE) THEN
164: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_ON_HOLD');
165: OE_MSG_PUB.Add;
166: x_return_status := FND_API.G_RET_STS_ERROR;
167: IF l_debug_level > 0 THEN
168: oe_debug_pub.add( 'LINE IS ON HOLD' , 4 ) ;
169: END IF;
170: RETURN;
195: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
196: nvl(OE_SCHEDULE_UTIL.sch_cached_line_type,
197: OE_SCHEDULE_UTIL.sch_cached_order_type));
198: OE_MSG_PUB.Add;
199: x_return_status := FND_API.G_RET_STS_ERROR;
200: IF l_debug_level > 0 THEN
201: oe_debug_pub.add( 'LINE TYPE IS ATP ONLY' , 4 ) ;
202: END IF;
203:
213: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
214: nvl(OE_SCHEDULE_UTIL.sch_cached_line_type,
215: OE_SCHEDULE_UTIL.sch_cached_order_type));
216: OE_MSG_PUB.Add;
217: x_return_status := FND_API.G_RET_STS_ERROR;
218: IF l_debug_level > 0 THEN
219: oe_debug_pub.add( 'LINE TYPE IS NOT ELIGIBLE FOR RESERVATION ' , 4 ) ;
220: END IF;
221:
228:
229:
230: EXCEPTION
231:
232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
233:
234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
235:
236: WHEN OTHERS THEN
230: EXCEPTION
231:
232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
233:
234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
235:
236: WHEN OTHERS THEN
237:
238: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
242: , 'Validate_Group_Line'
243: );
244: END IF;
245:
246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247: END Validate_Group_Line;
248:
249: /*---------------------------------------------------------------------
250: Procedure Name : Validate_Group
267: -- 3870895 : Revorted back the code modified for bug 3349770
268: IF l_debug_level > 0 THEN
269: oe_debug_pub.add( 'ENTERING VALIDATE GROUP' || P_X_LINE_TBL.COUNT , 1 ) ;
270: END IF;
271: x_return_status := FND_API.G_RET_STS_SUCCESS;
272: FOR I IN 1..p_x_line_tbl.count LOOP
273:
274: OE_MSG_PUB.set_msg_context
275: ( p_entity_code => 'LINE'
296: Validate_Item_Warehouse
297: (p_inventory_item_id => p_x_line_tbl(I).inventory_item_id,
298: p_ship_from_org_id => p_x_line_tbl(I).ship_from_org_id,
299: x_return_status => l_return_status);
300: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
301: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => p_x_line_tbl(I),
302: p_old_line_rec => p_x_line_tbl(I),
303: p_sch_action => p_sch_action ,
304: x_return_status => l_return_status);
302: p_old_line_rec => p_x_line_tbl(I),
303: p_sch_action => p_sch_action ,
304: x_return_status => l_return_status);
305:
306: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
307:
308: J := J + 1;
309: l_line_tbl(J) := p_x_line_tbl(I);
310:
307:
308: J := J + 1;
309: l_line_tbl(J) := p_x_line_tbl(I);
310:
311: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
312:
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN -- 3870895
309: l_line_tbl(J) := p_x_line_tbl(I);
310:
311: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
312:
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN -- 3870895
316:
317: x_return_status := FND_API.G_RET_STS_ERROR;
310:
311: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
312:
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN -- 3870895
316:
317: x_return_status := FND_API.G_RET_STS_ERROR;
318: --5166476
311: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
312:
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN -- 3870895
316:
317: x_return_status := FND_API.G_RET_STS_ERROR;
318: --5166476
319: IF OE_SCH_CONC_REQUESTS.g_conc_program = 'Y' THEN
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN -- 3870895
316:
317: x_return_status := FND_API.G_RET_STS_ERROR;
318: --5166476
319: IF OE_SCH_CONC_REQUESTS.g_conc_program = 'Y' THEN
320: IF p_x_line_tbl(I).ship_model_complete_flag = 'N' AND
321: p_x_line_tbl(I).top_model_line_id IS NOT NULL AND
339: IF OE_SCH_CONC_REQUESTS.g_conc_program = 'Y' THEN
340: --5166476
341: OE_SCH_CONC_REQUESTS.OE_line_status_Tbl(p_x_line_tbl(I).line_id) := 'N';
342: END IF;
343: x_return_status := FND_API.G_RET_STS_ERROR;
344: END IF;
345:
346: END LOOP;
347: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN -- 3870895
343: x_return_status := FND_API.G_RET_STS_ERROR;
344: END IF;
345:
346: END LOOP;
347: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN -- 3870895
348: p_x_line_tbl := l_line_tbl;
349: --5166476
350: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
351: AND l_line_tbl.count > 0 THEN
346: END LOOP;
347: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN -- 3870895
348: p_x_line_tbl := l_line_tbl;
349: --5166476
350: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
351: AND l_line_tbl.count > 0 THEN
352: IF OE_SCH_CONC_REQUESTS.g_conc_program = 'Y' THEN
353: FOR I IN 1..l_line_tbl.count LOOP
354: OE_SCH_CONC_REQUESTS.OE_line_status_Tbl(l_line_tbl(I).line_id) := 'N';
362:
363: EXCEPTION
364:
365: WHEN OTHERS THEN
366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
367: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
368: THEN
369: OE_MSG_PUB.Add_Exc_Msg
370: ( G_PKG_NAME
370: ( G_PKG_NAME
371: , 'Validate_Group');
372: END IF;
373:
374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
375:
376: END Validate_Group;
377:
378: Function Not_Part_of_set(p_top_model_line_id IN NUMBER)
438: oe_debug_pub.add('Size of the in table : ' || p_line_tbl.count,1);
439: END IF;
440: J := p_x_line_tbl.count;
441: IF p_line_rec.line_id is NOT NULL
442: AND p_line_rec.line_id <> FND_API.G_MISS_NUM THEN -- Main IF Start
443:
444: FOR l_option_search in 1..J LOOP
445: IF p_line_rec.line_id = p_x_line_tbl(l_option_search).line_id THEN
446: IF l_debug_level > 0 THEN
544: I NUMBER;
545: l_inc_tbl OE_Order_PUB.Line_Tbl_Type;
546: l_sales_order_id NUMBER := Null;
547: l_line_rec OE_Order_PUB.Line_Rec_type;
548: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
549: l_set_rec OE_ORDER_CACHE.set_rec_type;
550: l_quantity_to_reserve NUMBER;
551: l_quantity2_to_reserve NUMBER; -- INVCONV
552: l_rsv_update BOOLEAN := FALSE;
615: IF l_debug_level > 0 THEN
616: oe_debug_pub.add( 'AFTER CALLING INC'|| L_RETURN_STATUS , 3 ) ;
617: END IF;
618:
619: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
621: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
622: RAISE FND_API.G_EXC_ERROR;
623: END IF;
616: oe_debug_pub.add( 'AFTER CALLING INC'|| L_RETURN_STATUS , 3 ) ;
617: END IF;
618:
619: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
621: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
622: RAISE FND_API.G_EXC_ERROR;
623: END IF;
624:
617: END IF;
618:
619: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
621: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
622: RAISE FND_API.G_EXC_ERROR;
623: END IF;
624:
625: END LOOP;
618:
619: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
621: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
622: RAISE FND_API.G_EXC_ERROR;
623: END IF;
624:
625: END LOOP;
626:
683: l_line_rec.schedule_action_code := p_sch_action;
684: -- 2766876
685: l_line_rec.reserved_quantity := 0;
686:
687: l_return_status := FND_API.G_RET_STS_SUCCESS;
688: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => l_line_rec,
689: p_old_line_rec => l_line_rec,
690: p_sch_action => p_sch_action,
691: x_return_status => l_return_status);
690: p_sch_action => p_sch_action,
691: x_return_status => l_return_status);
692:
693:
694: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
695:
696: I := I + 1;
697: IF l_debug_level > 0 THEN
698: oe_debug_pub.add( 'LINE SELECTED FOR SCHEDULING **** : ' || L_LINE_REC.LINE_ID , 1 ) ;
797: p_line_id => l_line_rec.line_id,
798: p_org_id => l_line_rec.ship_from_org_id); */
799:
800: IF l_line_rec.reserved_quantity IS NULL
801: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM THEN
802: l_line_rec.reserved_quantity := 0;
803: END IF;
804:
805: /*l_line_rec.reserved_quantity2 := -- INVCONV
808: p_line_id => l_line_rec.line_id,
809: p_org_id => l_line_rec.ship_from_org_id);*/
810:
811: /*IF l_line_rec.reserved_quantity2 IS NULL
812: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM THEN
813: l_line_rec.reserved_quantity2 := 0;
814: END IF; */ -- INVCONV PAL
815:
816:
826: oe_debug_pub.add( 'NEED TO RESERVE THE LINE' , 2 ) ;
827: END IF;
828:
829: -- Check if the line is eligible for reservation.
830: l_return_status := FND_API.G_RET_STS_SUCCESS;
831: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => l_line_rec,
832: p_old_line_rec => l_line_rec,
833: p_sch_action => p_sch_action,
834: x_return_status => l_return_status);
832: p_old_line_rec => l_line_rec,
833: p_sch_action => p_sch_action,
834: x_return_status => l_return_status);
835:
836: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
837: --Pack J
838: -- To calculate the remaining quantity to be reserved
839: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
840: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG')= 'Y'
873: ,p_quantity2_to_reserve => l_quantity2_to_reserve --l_line_rec.ordered_quantity2
874: ,p_rsv_update => l_rsv_update
875: ,x_return_status => l_return_status);
876:
877: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
878: IF l_debug_level > 0 THEN
879: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
880: END IF;
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
877: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
878: IF l_debug_level > 0 THEN
879: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
880: END IF;
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
883: IF l_debug_level > 0 THEN
884: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
885: END IF;
878: IF l_debug_level > 0 THEN
879: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
880: END IF;
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
883: IF l_debug_level > 0 THEN
884: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
885: END IF;
886: l_return_status := FND_API.G_RET_STS_SUCCESS;
882: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
883: IF l_debug_level > 0 THEN
884: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
885: END IF;
886: l_return_status := FND_API.G_RET_STS_SUCCESS;
887: END IF;
888:
889: END IF;
890: ELSE -- reservation exists
921: ELSE -- Line is not scheduled yet.
922:
923: l_line_rec.reserved_quantity := 0;
924: l_line_rec.reserved_quantity2 := 0; -- INCONV
925: l_return_status := FND_API.G_RET_STS_SUCCESS;
926: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => l_line_rec,
927: p_old_line_rec => l_line_rec,
928: p_sch_action => p_sch_action,
929: x_return_status => l_return_status);
927: p_old_line_rec => l_line_rec,
928: p_sch_action => p_sch_action,
929: x_return_status => l_return_status);
930:
931: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
932: IF l_debug_level > 0 THEN
933: oe_debug_pub.add( 'LINE SELECTED FOR RESERVE **** : '|| L_LINE_REC.LINE_ID , 1 ) ;
934: END IF;
935: I := I + 1;
1003: l_line_rec.source_document_type_id);
1004: l_line_rec.schedule_action_code := p_sch_action;
1005:
1006:
1007: l_return_status := FND_API.G_RET_STS_SUCCESS;
1008: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => l_line_rec,
1009: p_old_line_rec => l_line_rec,
1010: p_sch_action => p_sch_action,
1011: x_return_status => l_return_status);
1010: p_sch_action => p_sch_action,
1011: x_return_status => l_return_status);
1012:
1013:
1014: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1015: I := I +1; -- 2327783
1016: x_line_tbl(I) := l_line_rec;
1017: -- x_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
1018:
1058:
1059: END IF;
1060:
1061: IF x_line_tbl(I).reserved_quantity IS NULL
1062: OR x_line_tbl(I).reserved_quantity = FND_API.G_MISS_NUM THEN
1063: x_line_tbl(I).reserved_quantity := 0;
1064: END IF;
1065:
1066: /* IF x_line_tbl(I).reserved_quantity2 IS NULL -- INVCONV
1063: x_line_tbl(I).reserved_quantity := 0;
1064: END IF;
1065:
1066: /* IF x_line_tbl(I).reserved_quantity2 IS NULL -- INVCONV
1067: OR x_line_tbl(I).reserved_quantity2 = FND_API.G_MISS_NUM THEN
1068: x_line_tbl(I).reserved_quantity2 := 0;
1069: END IF; */
1070:
1071: END IF; -- Validation success
1163: p_line_id => l_line_rec.line_id,
1164: p_org_id => l_line_rec.ship_from_org_id); */
1165:
1166: IF l_line_rec.reserved_quantity IS NULL
1167: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM THEN
1168: l_line_rec.reserved_quantity := 0;
1169: END IF;
1170:
1171:
1175: p_line_id => l_line_rec.line_id,
1176: p_org_id => l_line_rec.ship_from_org_id); */
1177:
1178: /*IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV - why was this commented out
1179: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM THEN
1180: l_line_rec.reserved_quantity2 := 0;
1181: END IF; */
1182:
1183:
1198:
1199:
1200: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1201: l_line_rec.schedule_action_code := p_sch_action;
1202: l_return_status := FND_API.G_RET_STS_SUCCESS;
1203:
1204: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => l_line_rec,
1205: p_old_line_rec => l_line_rec,
1206: p_sch_action => p_sch_action,
1206: p_sch_action => p_sch_action,
1207: x_return_status => l_return_status);
1208:
1209:
1210: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1211: I := I + 1; --2327783
1212: x_line_tbl(I) := l_line_rec;
1213: END IF;
1214: END IF; -- reservation qty.
1294:
1295: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1296: l_line_rec.schedule_action_code := p_sch_action;
1297:
1298: l_return_status := FND_API.G_RET_STS_SUCCESS;
1299: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => l_line_rec,
1300: p_old_line_rec => l_line_rec,
1301: p_sch_action => p_sch_action,
1302: x_return_status => l_return_status);
1300: p_old_line_rec => l_line_rec,
1301: p_sch_action => p_sch_action,
1302: x_return_status => l_return_status);
1303:
1304: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1305: I := I + 1; --2327783
1306: x_line_tbl(I) := l_line_rec;
1307:
1308: IF (x_line_tbl(I).ship_model_complete_flag ='Y') THEN
1336:
1337: END IF;
1338:
1339: IF x_line_tbl(I).reserved_quantity IS NULL
1340: OR x_line_tbl(I).reserved_quantity = FND_API.G_MISS_NUM THEN
1341: x_line_tbl(I).reserved_quantity := 0;
1342: END IF;
1343: IF x_line_tbl(I).reserved_quantity2 IS NULL -- INVCONV
1344: OR x_line_tbl(I).reserved_quantity2 = FND_API.G_MISS_NUM THEN
1340: OR x_line_tbl(I).reserved_quantity = FND_API.G_MISS_NUM THEN
1341: x_line_tbl(I).reserved_quantity := 0;
1342: END IF;
1343: IF x_line_tbl(I).reserved_quantity2 IS NULL -- INVCONV
1344: OR x_line_tbl(I).reserved_quantity2 = FND_API.G_MISS_NUM THEN
1345: x_line_tbl(I).reserved_quantity2 := 0;
1346: END IF;
1347:
1348: END IF; -- Success.
1366:
1367:
1368: EXCEPTION
1369:
1370: WHEN FND_API.G_EXC_ERROR THEN
1371: IF l_debug_level > 0 THEN
1372: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY LINES ' , 1 ) ;
1373: END IF;
1374: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1372: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY LINES ' , 1 ) ;
1373: END IF;
1374: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1375: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1376: RAISE FND_API.G_EXC_ERROR;
1377:
1378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1379:
1380: IF l_debug_level > 0 THEN
1374: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1375: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1376: RAISE FND_API.G_EXC_ERROR;
1377:
1378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1379:
1380: IF l_debug_level > 0 THEN
1381: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY LINES ' , 1 ) ;
1382: END IF;
1381: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY LINES ' , 1 ) ;
1382: END IF;
1383: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1384: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
1385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1386:
1387: WHEN OTHERS THEN
1388:
1389: IF l_debug_level > 0 THEN
1398: , 'Query_lines'
1399: );
1400: END IF;
1401:
1402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1403:
1404: END Query_Lines;
1405: /*----------------------------------------------------------------
1406: PROCEDURE Query_Schedule_Lines
1452: l_change_sequence VARCHAR2(50);
1453: l_source_document_id NUMBER;
1454: l_source_document_line_id NUMBER;
1455: l_order_source_id NUMBER;
1456: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1457: BEGIN
1458:
1459: IF l_debug_level > 0 THEN
1460: oe_debug_pub.add( 'ENTERING INTO QUERY SCHEDULE LINES ' , 1 ) ;
1592: p_sch_action => p_sch_action,
1593: x_line_tbl => l_line_tbl,
1594: x_return_status => l_return_status);
1595:
1596: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1598: END IF;
1599:
1600: IF x_line_tbl.count = 0 THEN
1593: x_line_tbl => l_line_tbl,
1594: x_return_status => l_return_status);
1595:
1596: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1598: END IF;
1599:
1600: IF x_line_tbl.count = 0 THEN
1601:
1655: p_sch_action => p_sch_action,
1656: x_line_tbl => l_line_tbl,
1657: x_return_status => l_return_status);
1658:
1659: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1661: END IF;
1662:
1663: IF x_line_tbl.count = 0 THEN
1656: x_line_tbl => l_line_tbl,
1657: x_return_status => l_return_status);
1658:
1659: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1661: END IF;
1662:
1663: IF x_line_tbl.count = 0 THEN
1664: -- Added for Bug 2454163
1713: p_sch_action => p_sch_action,
1714: x_line_tbl => l_line_tbl,
1715: x_return_status => l_return_status);
1716:
1717: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1719: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1720: x_line_tbl.delete(x_line_tbl.count);
1721: END IF;
1714: x_line_tbl => l_line_tbl,
1715: x_return_status => l_return_status);
1716:
1717: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1719: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1720: x_line_tbl.delete(x_line_tbl.count);
1721: END IF;
1722:
1715: x_return_status => l_return_status);
1716:
1717: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1719: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1720: x_line_tbl.delete(x_line_tbl.count);
1721: END IF;
1722:
1723: J := x_line_tbl.count;
1745:
1746:
1747: EXCEPTION
1748:
1749: WHEN FND_API.G_EXC_ERROR THEN
1750: IF l_debug_level > 0 THEN
1751: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_SCHEDULE_LINES ' , 1 ) ;
1752: END IF;
1753: RAISE FND_API.G_EXC_ERROR;
1749: WHEN FND_API.G_EXC_ERROR THEN
1750: IF l_debug_level > 0 THEN
1751: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_SCHEDULE_LINES ' , 1 ) ;
1752: END IF;
1753: RAISE FND_API.G_EXC_ERROR;
1754:
1755: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1756:
1757: IF l_debug_level > 0 THEN
1751: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_SCHEDULE_LINES ' , 1 ) ;
1752: END IF;
1753: RAISE FND_API.G_EXC_ERROR;
1754:
1755: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1756:
1757: IF l_debug_level > 0 THEN
1758: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_SCHEDULE_LINES ' , 1 ) ;
1759: END IF;
1756:
1757: IF l_debug_level > 0 THEN
1758: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_SCHEDULE_LINES ' , 1 ) ;
1759: END IF;
1760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1761: -- Start 2742982 --
1762: WHEN NO_DATA_FOUND THEN
1763: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
1764: OE_MSG_PUB.Add;
1761: -- Start 2742982 --
1762: WHEN NO_DATA_FOUND THEN
1763: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
1764: OE_MSG_PUB.Add;
1765: RAISE FND_API.G_EXC_ERROR;
1766: -- End 2742982 --
1767:
1768: WHEN OTHERS THEN
1769:
1774: , 'Query_Schedule_Lines'
1775: );
1776: END IF;
1777:
1778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1779: END Query_Schedule_Lines;
1780:
1781: /*----------------------------------------------------------------
1782: PROCEDURE Query_Unschedule_Lines
1830: l_change_sequence VARCHAR2(50);
1831: l_source_document_id NUMBER;
1832: l_source_document_line_id NUMBER;
1833: l_order_source_id NUMBER;
1834: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1835: BEGIN
1836:
1837: IF l_debug_level > 0 THEN
1838: oe_debug_pub.add( 'ENTERING INTO QUERY UNSCHEDULE LINES ' , 1 ) ;
1967: p_sch_action => p_sch_action,
1968: x_line_tbl => l_line_tbl,
1969: x_return_status => l_return_status);
1970:
1971: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1973: END IF;
1974: ELSE
1975:
1968: x_line_tbl => l_line_tbl,
1969: x_return_status => l_return_status);
1970:
1971: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1973: END IF;
1974: ELSE
1975:
1976: -- Query ato model.
2010: p_sch_action => p_sch_action,
2011: x_line_tbl => l_line_tbl,
2012: x_return_status => l_return_status);
2013:
2014: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2016: END IF;
2017:
2018: IF x_line_tbl.count = 0 THEN
2011: x_line_tbl => l_line_tbl,
2012: x_return_status => l_return_status);
2013:
2014: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2016: END IF;
2017:
2018: IF x_line_tbl.count = 0 THEN
2019: J := x_line_tbl.count;
2083:
2084:
2085: END IF;
2086: IF l_line_rec.reserved_quantity IS NULL
2087: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM
2088: THEN
2089: l_line_rec.reserved_quantity := 0;
2090: END IF;
2091: IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2088: THEN
2089: l_line_rec.reserved_quantity := 0;
2090: END IF;
2091: IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2092: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM
2093: THEN
2094: l_line_rec.reserved_quantity2 := 0;
2095: END IF;
2096:
2113: p_sch_action => p_sch_action,
2114: x_line_tbl => l_line_tbl,
2115: x_return_status => l_return_status);
2116:
2117: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2119: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2120: x_line_tbl.delete(x_line_tbl.count);
2121: END IF;
2114: x_line_tbl => l_line_tbl,
2115: x_return_status => l_return_status);
2116:
2117: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2119: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2120: x_line_tbl.delete(x_line_tbl.count);
2121: END IF;
2122:
2115: x_return_status => l_return_status);
2116:
2117: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2119: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2120: x_line_tbl.delete(x_line_tbl.count);
2121: END IF;
2122:
2123:
2145:
2146:
2147: EXCEPTION
2148:
2149: WHEN FND_API.G_EXC_ERROR THEN
2150: IF l_debug_level > 0 THEN
2151: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2152: END IF;
2153: RAISE FND_API.G_EXC_ERROR;
2149: WHEN FND_API.G_EXC_ERROR THEN
2150: IF l_debug_level > 0 THEN
2151: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2152: END IF;
2153: RAISE FND_API.G_EXC_ERROR;
2154:
2155: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2156:
2157: IF l_debug_level > 0 THEN
2151: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2152: END IF;
2153: RAISE FND_API.G_EXC_ERROR;
2154:
2155: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2156:
2157: IF l_debug_level > 0 THEN
2158: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2159: END IF;
2156:
2157: IF l_debug_level > 0 THEN
2158: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_UNSCHEDULE_LINES ' , 1 ) ;
2159: END IF;
2160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2161:
2162: -- Start 2742982 --
2163: WHEN NO_DATA_FOUND THEN
2164: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
2162: -- Start 2742982 --
2163: WHEN NO_DATA_FOUND THEN
2164: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
2165: OE_MSG_PUB.Add;
2166: RAISE FND_API.G_EXC_ERROR;
2167: -- End 2742982 --
2168:
2169: WHEN OTHERS THEN
2170:
2178: , 'Query_Unschedule_Lines'
2179: );
2180: END IF;
2181:
2182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2183:
2184: END Query_Unschedule_Lines;
2185:
2186: /*----------------------------------------------------------------
2233: l_change_sequence VARCHAR2(50);
2234: l_source_document_id NUMBER;
2235: l_source_document_line_id NUMBER;
2236: l_order_source_id NUMBER;
2237: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2238: BEGIN
2239:
2240: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
2241:
2338: p_sch_action => p_sch_action,
2339: x_line_tbl => l_line_tbl,
2340: x_return_status => l_return_status);
2341:
2342: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2344: END IF;
2345:
2346:
2339: x_line_tbl => l_line_tbl,
2340: x_return_status => l_return_status);
2341:
2342: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2344: END IF;
2345:
2346:
2347: IF x_line_tbl.count = 0 THEN
2407: p_org_id => l_line_rec.ship_from_org_id); */
2408: END IF;
2409:
2410: IF l_line_rec.reserved_quantity IS NULL
2411: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM
2412: THEN
2413: l_line_rec.reserved_quantity := 0;
2414: END IF;
2415: /*IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2412: THEN
2413: l_line_rec.reserved_quantity := 0;
2414: END IF;
2415: /*IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2416: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM
2417: THEN
2418: l_line_rec.reserved_quantity2 := 0;
2419: END IF; */
2420:
2436: p_sch_action => p_sch_action,
2437: x_line_tbl => l_line_tbl,
2438: x_return_status => l_return_status);
2439:
2440: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2442: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2443: x_line_tbl.delete(x_line_tbl.count);
2444: END IF;
2437: x_line_tbl => l_line_tbl,
2438: x_return_status => l_return_status);
2439:
2440: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2442: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2443: x_line_tbl.delete(x_line_tbl.count);
2444: END IF;
2445:
2438: x_return_status => l_return_status);
2439:
2440: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2442: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2443: x_line_tbl.delete(x_line_tbl.count);
2444: END IF;
2445:
2446: /* Check_Merge_Line(p_x_line_tbl => x_line_tbl
2469:
2470: EXCEPTION
2471:
2472:
2473: WHEN FND_API.G_EXC_ERROR THEN
2474: IF l_debug_level > 0 THEN
2475: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2476: END IF;
2477: RAISE FND_API.G_EXC_ERROR;
2473: WHEN FND_API.G_EXC_ERROR THEN
2474: IF l_debug_level > 0 THEN
2475: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2476: END IF;
2477: RAISE FND_API.G_EXC_ERROR;
2478:
2479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2480:
2481: IF l_debug_level > 0 THEN
2475: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2476: END IF;
2477: RAISE FND_API.G_EXC_ERROR;
2478:
2479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2480:
2481: IF l_debug_level > 0 THEN
2482: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2483: END IF;
2480:
2481: IF l_debug_level > 0 THEN
2482: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_UNRESERVE_LINES ' , 1 ) ;
2483: END IF;
2484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2485:
2486: -- Start 2742982 --
2487: WHEN NO_DATA_FOUND THEN
2488: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
2486: -- Start 2742982 --
2487: WHEN NO_DATA_FOUND THEN
2488: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
2489: OE_MSG_PUB.Add;
2490: RAISE FND_API.G_EXC_ERROR;
2491: -- End 2742982 --
2492:
2493: WHEN OTHERS THEN
2494:
2502: , 'Query_Unreserve_Lines'
2503: );
2504: END IF;
2505:
2506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2507: END Query_Unreserve_Lines;
2508:
2509: /*----------------------------------------------------------------
2510: PROCEDURE Query_Reserve_Lines
2549: J NUMBER;
2550: l_header_id NUMBER;
2551: l_config_id NUMBER;
2552: l_sales_order_id NUMBER := Null;
2553: l_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
2554: l_open_flag VARCHAR2(1);
2555: --
2556: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2557: --
2684: p_sch_action => p_sch_action,
2685: x_line_tbl => x_line_tbl,
2686: x_return_status => l_return_status);
2687:
2688: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2690: END IF;
2691:
2692: /* Check_Merge_Line(p_x_line_tbl => x_line_tbl
2685: x_line_tbl => x_line_tbl,
2686: x_return_status => l_return_status);
2687:
2688: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2690: END IF;
2691:
2692: /* Check_Merge_Line(p_x_line_tbl => x_line_tbl
2693: ,p_line_tbl => l_line_tbl); */ -- Bug-2454163
2800:
2801:
2802: END IF;
2803: IF l_line_rec.reserved_quantity IS NULL
2804: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM
2805: THEN
2806: l_line_rec.reserved_quantity := 0;
2807: END IF;
2808: /*IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2805: THEN
2806: l_line_rec.reserved_quantity := 0;
2807: END IF;
2808: /*IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2809: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM
2810: THEN
2811: l_line_rec.reserved_quantity2 := 0;
2812: END IF; */
2813:
2859: p_org_id => l_line_rec.ship_from_org_id); */
2860:
2861: END IF;
2862: IF l_line_rec.reserved_quantity IS NULL
2863: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM
2864: THEN
2865: l_line_rec.reserved_quantity := 0;
2866: END IF;
2867: /* IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2864: THEN
2865: l_line_rec.reserved_quantity := 0;
2866: END IF;
2867: /* IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
2868: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM
2869: THEN
2870: l_line_rec.reserved_quantity2 := 0;
2871: END IF; */
2872:
2888: p_sch_action => p_sch_action,
2889: x_line_tbl => x_line_tbl,
2890: x_return_status => l_return_status);
2891:
2892: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2894: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2895: l_line_tbl.delete(l_line_tbl.count);
2896: END IF;
2889: x_line_tbl => x_line_tbl,
2890: x_return_status => l_return_status);
2891:
2892: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2894: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2895: l_line_tbl.delete(l_line_tbl.count);
2896: END IF;
2897:
2890: x_return_status => l_return_status);
2891:
2892: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2894: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2895: l_line_tbl.delete(l_line_tbl.count);
2896: END IF;
2897:
2898:
2958: oe_debug_pub.add( 'NEED TO RESERVE THE LINE' , 2 ) ;
2959: END IF;
2960:
2961: -- Check if the line is eligible for reservation.
2962: l_return_status := FND_API.G_RET_STS_SUCCESS;
2963: OE_SCHEDULE_UTIL.Validate_Line(p_line_rec => l_line_tbl(I),
2964: p_old_line_rec => l_line_tbl(I),
2965: p_sch_action => p_sch_action,
2966: x_return_status => l_return_status);
2964: p_old_line_rec => l_line_tbl(I),
2965: p_sch_action => p_sch_action,
2966: x_return_status => l_return_status);
2967:
2968: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2969: --Pack J
2970: -- To calculate the remaining quantity to be reserved
2971: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
2972: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG')= 'Y'
3005: ,p_quantity2_to_reserve => l_quantity2_to_reserve --l_line_tbl(I).ordered_quantity2 -- INVCONV
3006: ,p_rsv_update => l_rsv_update
3007: ,x_return_status => l_return_status);
3008:
3009: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3010: IF l_debug_level > 0 THEN
3011: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
3012: END IF;
3013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3009: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3010: IF l_debug_level > 0 THEN
3011: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
3012: END IF;
3013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3014: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3015: IF l_debug_level > 0 THEN
3016: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
3017: END IF;
3010: IF l_debug_level > 0 THEN
3011: oe_debug_pub.add( 'RAISING UNEXPECTED ERROR' , 1 ) ;
3012: END IF;
3013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3014: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3015: IF l_debug_level > 0 THEN
3016: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
3017: END IF;
3018: l_return_status := FND_API.G_RET_STS_SUCCESS;
3014: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3015: IF l_debug_level > 0 THEN
3016: oe_debug_pub.add( 'WILL IGNORE THE LINE AND PROCEED' , 1 ) ;
3017: END IF;
3018: l_return_status := FND_API.G_RET_STS_SUCCESS;
3019: END IF;
3020:
3021: END IF; -- Return status
3022: ELSE
3059:
3060: EXCEPTION
3061:
3062:
3063: WHEN FND_API.G_EXC_ERROR THEN
3064: IF l_debug_level > 0 THEN
3065: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3066: END IF;
3067: RAISE FND_API.G_EXC_ERROR;
3063: WHEN FND_API.G_EXC_ERROR THEN
3064: IF l_debug_level > 0 THEN
3065: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3066: END IF;
3067: RAISE FND_API.G_EXC_ERROR;
3068:
3069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3070:
3071: IF l_debug_level > 0 THEN
3065: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3066: END IF;
3067: RAISE FND_API.G_EXC_ERROR;
3068:
3069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3070:
3071: IF l_debug_level > 0 THEN
3072: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3073: END IF;
3070:
3071: IF l_debug_level > 0 THEN
3072: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_RESERVE_LINES ' , 1 ) ;
3073: END IF;
3074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3075:
3076: -- Start 2742982 --
3077: WHEN NO_DATA_FOUND THEN
3078: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
3076: -- Start 2742982 --
3077: WHEN NO_DATA_FOUND THEN
3078: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
3079: OE_MSG_PUB.Add;
3080: RAISE FND_API.G_EXC_ERROR;
3081: -- End 2742982 --
3082:
3083: WHEN OTHERS THEN
3084:
3092: , 'Validate_Group_Line'
3093: );
3094: END IF;
3095:
3096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3097: END Query_Reserve_Lines;
3098:
3099: /*----------------------------------------------------------------
3100: PROCEDURE Query_ATP_CHECK_Lines
3145: l_change_sequence VARCHAR2(50);
3146: l_source_document_id NUMBER;
3147: l_source_document_line_id NUMBER;
3148: l_order_source_id NUMBER;
3149: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3150: BEGIN
3151:
3152:
3153: FOR L IN 1..p_selected_tbl.count LOOP --R12.MOAC
3269: p_sch_action => p_sch_action,
3270: x_line_tbl => l_line_tbl,
3271: x_return_status => l_return_status);
3272:
3273: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3275: END IF;
3276:
3277: ELSE
3270: x_line_tbl => l_line_tbl,
3271: x_return_status => l_return_status);
3272:
3273: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3275: END IF;
3276:
3277: ELSE
3278:
3316: p_sch_action => p_sch_action,
3317: x_line_tbl => l_line_tbl,
3318: x_return_status => l_return_status);
3319:
3320: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3322: END IF;
3323:
3324: IF x_line_tbl.count = 0 THEN
3317: x_line_tbl => l_line_tbl,
3318: x_return_status => l_return_status);
3319:
3320: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3322: END IF;
3323:
3324: IF x_line_tbl.count = 0 THEN
3325: x_line_tbl := l_line_tbl;
3364: p_line_id => l_line_rec.line_id,
3365: p_org_id => l_line_rec.ship_from_org_id);
3366: END IF;
3367: IF l_line_rec.reserved_quantity IS NULL
3368: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM
3369: THEN
3370: l_line_rec.reserved_quantity := 0;
3371: END IF;
3372:
3370: l_line_rec.reserved_quantity := 0;
3371: END IF;
3372:
3373: /*IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV
3374: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM
3375: THEN
3376: l_line_rec.reserved_quantity2 := 0;
3377: END IF; */
3378: /* Check_Merge_Line(p_line_rec => l_line_rec
3392: p_sch_action => p_sch_action,
3393: x_line_tbl => l_line_tbl,
3394: x_return_status => l_return_status);
3395:
3396: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3398: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3399: x_line_tbl.delete(x_line_tbl.count);
3400:
3393: x_line_tbl => l_line_tbl,
3394: x_return_status => l_return_status);
3395:
3396: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3398: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3399: x_line_tbl.delete(x_line_tbl.count);
3400:
3401: END IF;
3394: x_return_status => l_return_status);
3395:
3396: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3398: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3399: x_line_tbl.delete(x_line_tbl.count);
3400:
3401: END IF;
3402:
3422:
3423: EXCEPTION
3424:
3425:
3426: WHEN FND_API.G_EXC_ERROR THEN
3427: IF l_debug_level > 0 THEN
3428: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3429: END IF;
3430: RAISE FND_API.G_EXC_ERROR;
3426: WHEN FND_API.G_EXC_ERROR THEN
3427: IF l_debug_level > 0 THEN
3428: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3429: END IF;
3430: RAISE FND_API.G_EXC_ERROR;
3431:
3432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3433:
3434: IF l_debug_level > 0 THEN
3428: oe_debug_pub.add( 'EXPECTED ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3429: END IF;
3430: RAISE FND_API.G_EXC_ERROR;
3431:
3432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3433:
3434: IF l_debug_level > 0 THEN
3435: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3436: END IF;
3433:
3434: IF l_debug_level > 0 THEN
3435: oe_debug_pub.add( 'UNEXPECTED ERROR IN QUERY_ATP_CHECK_LINES ' , 1 ) ;
3436: END IF;
3437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3438:
3439: -- Start 2742982 --
3440: WHEN NO_DATA_FOUND THEN
3441: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
3454: , 'Query_ATP_CHECK_Lines'
3455: );
3456: END IF;
3457:
3458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3459: END Query_ATP_CHECK_Lines;
3460:
3461:
3462: /* ---------------------------------------------------------------
3488: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3489: --
3490: BEGIN
3491:
3492: x_return_status := FND_API.G_RET_STS_SUCCESS;
3493: IF l_debug_level > 0 THEN
3494: oe_debug_pub.add( 'ENTERING OE_GROUP_SCH_UTIL.SCHEDULE_ORDER' , 1 ) ;
3495: END IF;
3496:
3569: OE_MSG_PUB.Add;
3570: END IF;
3571: END IF;
3572:
3573: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3575: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3576: RAISE FND_API.G_EXC_ERROR;
3577: END IF;
3570: END IF;
3571: END IF;
3572:
3573: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3575: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3576: RAISE FND_API.G_EXC_ERROR;
3577: END IF;
3578:
3571: END IF;
3572:
3573: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3575: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3576: RAISE FND_API.G_EXC_ERROR;
3577: END IF;
3578:
3579: END IF;
3572:
3573: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3575: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3576: RAISE FND_API.G_EXC_ERROR;
3577: END IF;
3578:
3579: END IF;
3580:
3587: END IF;
3588: IF l_debug_level > 0 THEN
3589: oe_debug_pub.add( 'EXITING OE_GROUP_SCH_UTIL.SCHEDULE_ORDER' , 1 ) ;
3590: END IF;
3591: x_return_status := FND_API.G_RET_STS_SUCCESS;
3592:
3593: EXCEPTION
3594:
3595: WHEN FND_API.G_EXC_ERROR THEN
3591: x_return_status := FND_API.G_RET_STS_SUCCESS;
3592:
3593: EXCEPTION
3594:
3595: WHEN FND_API.G_EXC_ERROR THEN
3596:
3597: x_return_status := FND_API.G_RET_STS_ERROR;
3598:
3599: oe_msg_pub.count_and_get
3593: EXCEPTION
3594:
3595: WHEN FND_API.G_EXC_ERROR THEN
3596:
3597: x_return_status := FND_API.G_RET_STS_ERROR;
3598:
3599: oe_msg_pub.count_and_get
3600: ( p_count => x_msg_count
3601: ,p_data => x_msg_data
3600: ( p_count => x_msg_count
3601: ,p_data => x_msg_data
3602: );
3603:
3604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3605:
3606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3607:
3608: oe_msg_pub.count_and_get
3602: );
3603:
3604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3605:
3606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3607:
3608: oe_msg_pub.count_and_get
3609: ( p_count => x_msg_count
3610: ,p_data => x_msg_data
3611: );
3612:
3613: WHEN OTHERS THEN
3614:
3615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3616:
3617: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3618: THEN
3619: OE_MSG_PUB.Add_Exc_Msg
3625: oe_msg_pub.count_and_get
3626: ( p_count => x_msg_count
3627: ,p_data => x_msg_data
3628: );
3629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3630: END Schedule_Order;
3631: /*---------------------------------------------------------------
3632: Procedure :Schedule_Multi_lines
3633: This procedure is called when lines are multi-selected and
3676: Oe_Schedule_Util.g_atp_tbl.delete;
3677: END IF;
3678: -- End 2434807 -
3679:
3680: x_return_status := FND_API.G_RET_STS_SUCCESS;
3681: --R12.MOAC
3682: /*
3683: j := 1;
3684: initial := 1;
3755: oe_debug_pub.add( ' AFTER VALIDATE_GROUP : '||x_return_status,1);
3756: END IF;
3757:
3758: -- 3990887
3759: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3760:
3761: ----------- set up the tables -------------------------
3762: l_old_line_tbl := l_line_tbl;
3763:
3820: END IF;
3821:
3822: -- 3870895 : call process_group only when coun > 0 and return status is success
3823: IF l_line_tbl.count > 0
3824: AND x_return_status = FND_API.G_RET_STS_SUCCESS
3825: THEN
3826:
3827: Oe_Config_Schedule_Pvt.Process_Group
3828: (p_x_line_tbl => l_line_tbl
3831: ,p_sch_action => p_sch_action
3832: ,p_partial => TRUE
3833: ,x_return_status => x_return_status);
3834:
3835: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3837: -- ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3838: -- RAISE FND_API.G_EXC_ERROR;
3839: END IF;
3832: ,p_partial => TRUE
3833: ,x_return_status => x_return_status);
3834:
3835: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3837: -- ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3838: -- RAISE FND_API.G_EXC_ERROR;
3839: END IF;
3840:
3833: ,x_return_status => x_return_status);
3834:
3835: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3837: -- ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3838: -- RAISE FND_API.G_EXC_ERROR;
3839: END IF;
3840:
3841: ELSE
3834:
3835: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3837: -- ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3838: -- RAISE FND_API.G_EXC_ERROR;
3839: END IF;
3840:
3841: ELSE
3842: IF p_sch_action <> OE_SCHEDULE_UTIL.OESCH_ACT_RESERVE
3864: oe_debug_pub.add( ' MESSAGE COUNT: ' || X_MSG_COUNT , 1 ) ;
3865: END IF;
3866: -- Set return status.
3867:
3868: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3869: RAISE FND_API.G_EXC_ERROR;
3870:
3871: END IF;
3872:
3865: END IF;
3866: -- Set return status.
3867:
3868: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3869: RAISE FND_API.G_EXC_ERROR;
3870:
3871: END IF;
3872:
3873:
3874: -- Returning success, even if there were errors (unexpected errors will
3875: -- be raised and taken care of). This is because we do not want to rollback
3876: -- since the successful lines should get committed.
3877:
3878: x_return_status := FND_API.G_RET_STS_SUCCESS;
3879:
3880: /* -- Get message count and data
3881:
3882: oe_msg_pub.count_and_get
3890: END IF;
3891:
3892: EXCEPTION
3893:
3894: WHEN FND_API.G_EXC_ERROR THEN
3895:
3896: x_return_status := FND_API.G_RET_STS_ERROR;
3897:
3898: -- Get message count and data
3892: EXCEPTION
3893:
3894: WHEN FND_API.G_EXC_ERROR THEN
3895:
3896: x_return_status := FND_API.G_RET_STS_ERROR;
3897:
3898: -- Get message count and data
3899:
3900: oe_msg_pub.count_and_get
3901: ( p_count => x_msg_count
3902: , p_data => x_msg_data
3903: );
3904:
3905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3906:
3907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3908:
3909: -- Get message count and data
3903: );
3904:
3905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3906:
3907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3908:
3909: -- Get message count and data
3910:
3911: oe_msg_pub.count_and_get
3914: );
3915:
3916: WHEN OTHERS THEN
3917:
3918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3919:
3920: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
3921: THEN
3922: oe_msg_pub.Add_Exc_Msg
3931: ( p_count => x_msg_count
3932: , p_data => x_msg_data
3933: );
3934:
3935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3936: END Schedule_Multi_lines;
3937: /* ------------------------------------------------------------
3938: Procedure schedule_set_lines
3939: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4010: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4011: --
4012: BEGIN
4013:
4014: x_return_status := FND_API.G_RET_STS_SUCCESS;
4015: IF l_debug_level > 0 THEN
4016: oe_debug_pub.add( 'ENTERING OE_GROUP_SCH_UTIL.SCHEDULE_SET_LINES' , 1 ) ;
4017: END IF;
4018:
4101: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4102: p_requesting_entity_id => optionrec.line_id,
4103: p_request_type => OE_GLOBALS.G_UPDATE_SHIPPING,
4104: p_request_unique_key1 => OE_GLOBALS.G_OPR_UPDATE,
4105: p_param1 => FND_API.G_TRUE,
4106: x_return_status => x_return_status);
4107:
4108: End loop;
4109:
4170: OE_LINE_UTIL.Lock_Row(p_line_id => p_sch_set_tbl(I).entity_id,
4171: p_x_line_rec => l_line_rec,
4172: x_return_status => x_return_status);
4173:
4174: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4176: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4177: RAISE FND_API.G_EXC_ERROR;
4178: END IF;
4171: p_x_line_rec => l_line_rec,
4172: x_return_status => x_return_status);
4173:
4174: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4176: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4177: RAISE FND_API.G_EXC_ERROR;
4178: END IF;
4179:
4172: x_return_status => x_return_status);
4173:
4174: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4176: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4177: RAISE FND_API.G_EXC_ERROR;
4178: END IF;
4179:
4180:
4173:
4174: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4176: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4177: RAISE FND_API.G_EXC_ERROR;
4178: END IF;
4179:
4180:
4181: IF nvl(l_line_rec.shippable_flag,'N') = 'Y'
4208: p_org_id => l_line_rec.ship_from_org_id); */
4209: END IF;
4210:
4211: IF l_line_rec.reserved_quantity IS NULL
4212: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM THEN
4213: l_line_rec.reserved_quantity := 0;
4214: END IF;
4215: /* IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV -- why was this commented out
4216: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM THEN
4212: OR l_line_rec.reserved_quantity = FND_API.G_MISS_NUM THEN
4213: l_line_rec.reserved_quantity := 0;
4214: END IF;
4215: /* IF l_line_rec.reserved_quantity2 IS NULL -- INVCONV -- why was this commented out
4216: OR l_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM THEN
4217: l_line_rec.reserved_quantity2 := 0;
4218: END IF; */
4219:
4220:
4343: x_return_status => x_return_status);
4344:
4345: END IF;
4346:
4347: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4349: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4350: RAISE FND_API.G_EXC_ERROR;
4351: END IF;
4344:
4345: END IF;
4346:
4347: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4349: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4350: RAISE FND_API.G_EXC_ERROR;
4351: END IF;
4352: -- 3564310
4345: END IF;
4346:
4347: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4349: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4350: RAISE FND_API.G_EXC_ERROR;
4351: END IF;
4352: -- 3564310
4353: -- Line is no longer with the set
4346:
4347: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4349: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4350: RAISE FND_API.G_EXC_ERROR;
4351: END IF;
4352: -- 3564310
4353: -- Line is no longer with the set
4354: -- rollback the changes.
4401: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4402: p_requesting_entity_id => l_iline_tbl(I).line_id,
4403: p_request_type => OE_GLOBALS.G_UPDATE_SHIPPING,
4404: p_request_unique_key1 => OE_GLOBALS.G_OPR_UPDATE,
4405: p_param1 => FND_API.G_TRUE,
4406: x_return_status => x_return_status);
4407:
4408: END IF;
4409: END LOOP;
4460:
4461: IF l_log_error THEN
4462: FND_MESSAGE.SET_NAME('ONT','OE_SCH_OVER_ATP_SET_NO_MATCH');
4463: OE_MSG_PUB.Add;
4464: x_return_status := FND_API.G_RET_STS_ERROR;
4465: RAISE FND_API.G_EXC_ERROR;
4466: END IF;
4467:
4468: FOR M IN 1..l_iline_tbl.count LOOP
4461: IF l_log_error THEN
4462: FND_MESSAGE.SET_NAME('ONT','OE_SCH_OVER_ATP_SET_NO_MATCH');
4463: OE_MSG_PUB.Add;
4464: x_return_status := FND_API.G_RET_STS_ERROR;
4465: RAISE FND_API.G_EXC_ERROR;
4466: END IF;
4467:
4468: FOR M IN 1..l_iline_tbl.count LOOP
4469: IF l_debug_level > 0 THEN
4581: || l_line_tbl.count , 1 ) ;
4582: END IF;
4583: -- 3564310
4584: IF l_line_tbl.count > 0
4585: AND x_return_status = FND_API.G_RET_STS_SUCCESS THEN
4586: Oe_Config_Schedule_Pvt.Process_Group
4587: (p_x_line_tbl => l_line_tbl
4588: ,p_old_line_tbl => l_old_line_tbl
4589: ,p_caller => 'SET'
4594:
4595: IF l_debug_level > 0 THEN
4596: oe_debug_pub.add('After call to Process Group :' || x_return_status ,1);
4597: END IF;
4598: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4600: END IF;
4601: END IF;
4602:
4595: IF l_debug_level > 0 THEN
4596: oe_debug_pub.add('After call to Process Group :' || x_return_status ,1);
4597: END IF;
4598: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4600: END IF;
4601: END IF;
4602:
4603: -- Additional process we are doing to fix bug 2232950.
4600: END IF;
4601: END IF;
4602:
4603: -- Additional process we are doing to fix bug 2232950.
4604: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
4605:
4606: IF l_debug_level > 0 THEN
4607: oe_debug_pub.add('Compare output with requested values',1);
4608: END IF;
4614: THEN
4615: IF l_debug_level > 0 THEN
4616: oe_debug_pub.add('Not received correct values for ship set',1);
4617: END IF;
4618: x_return_status := FND_API.G_RET_STS_ERROR;
4619: EXIT;
4620: ELSIF p_sch_set_tbl(1).param8 = OE_SCHEDULE_UTIL.OESCH_ENTITY_ARRIVAL_SET
4621: AND trunc(l_line_tbl(I).Schedule_arrival_date) <> trunc(p_sch_set_tbl(1).date_param5)
4622: THEN
4622: THEN
4623: IF l_debug_level > 0 THEN
4624: oe_debug_pub.add('Not received correct values for arrival set',1);
4625: END IF;
4626: x_return_status := FND_API.G_RET_STS_ERROR;
4627: EXIT;
4628: END IF;
4629:
4630: END LOOP;
4629:
4630: END LOOP;
4631: END IF; -- Success.
4632:
4633: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4634:
4635: IF l_debug_level > 0 THEN
4636: oe_debug_pub.add('Line Id error out : ' || l_line_rec.line_id,2);
4637: END IF;
4679: IF l_debug_level > 0 THEN
4680: oe_debug_pub.add('Calling Update Set');
4681: END IF;
4682:
4683: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4684:
4685: IF l_debug_level > 0 THEN
4686: oe_debug_pub.add('Unable to schedule the line for set date');
4687: END IF;
4699: oe_debug_pub.add('Line belong to model');
4700: END IF;
4701: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
4702: OE_MSG_PUB.Add;
4703: RAISE FND_API.G_EXC_ERROR;
4704:
4705: ELSE
4706: -- If the line is being added to set is a standard line
4707: -- save the line without scheduling attributes.
4760: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
4761: p_requesting_entity_id => l_line_tbl(I).line_id,
4762: p_request_type => OE_GLOBALS.G_UPDATE_SHIPPING,
4763: p_request_unique_key1 => OE_GLOBALS.G_OPR_UPDATE,
4764: p_param1 => FND_API.G_TRUE,
4765: x_return_status => x_return_status);
4766: END IF;
4767: END IF; -- Part of Model.
4768: END LOOP;
4767: END IF; -- Part of Model.
4768: END LOOP;
4769: -- 3384975
4770: IF l_param12 = 'N' THEN
4771: x_return_status := FND_API.G_RET_STS_SUCCESS;
4772: END IF;
4773:
4774: END IF; -- x_return_status = succ/error
4775:
4780: oe_debug_pub.add('Exiting OE_Delayed_Requests_UTIL.Schedule_set_lines');
4781: END IF;
4782: EXCEPTION
4783:
4784: WHEN FND_API.G_EXC_ERROR THEN
4785: x_return_status := FND_API.G_RET_STS_ERROR;
4786: l_old_set_tbl.delete;
4787: IF l_debug_level > 0 THEN
4788: oe_debug_pub.add('No data from expected error',1);
4781: END IF;
4782: EXCEPTION
4783:
4784: WHEN FND_API.G_EXC_ERROR THEN
4785: x_return_status := FND_API.G_RET_STS_ERROR;
4786: l_old_set_tbl.delete;
4787: IF l_debug_level > 0 THEN
4788: oe_debug_pub.add('No data from expected error',1);
4789: END IF;
4786: l_old_set_tbl.delete;
4787: IF l_debug_level > 0 THEN
4788: oe_debug_pub.add('No data from expected error',1);
4789: END IF;
4790: RAISE FND_API.G_EXC_ERROR;
4791:
4792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4793:
4794: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4788: oe_debug_pub.add('No data from expected error',1);
4789: END IF;
4790: RAISE FND_API.G_EXC_ERROR;
4791:
4792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4793:
4794: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4795: THEN
4796: OE_MSG_PUB.Add_Exc_Msg
4802: oe_debug_pub.add('No data from unexpected error',1);
4803: END IF;
4804:
4805: l_old_set_tbl.delete;
4806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4807:
4808: WHEN OTHERS THEN
4809:
4810:
4818: IF l_debug_level > 0 THEN
4819: oe_debug_pub.add('No data from unexpected error',1);
4820: END IF;
4821: l_old_set_tbl.delete;
4822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4823:
4824: END Schedule_set_lines;
4825:
4826: /* ---------------------------------------------------------------
4988:
4989: END IF;
4990: /*
4991: IF p_request_rec.date_param4 IS NOT NULL
4992: AND p_request_rec.date_param4 <> FND_API.G_MISS_DATE THEN
4993: l_Schedule_ship_date := p_request_rec.date_param4;
4994: END IF;
4995: */
4996: IF l_debug_level > 0 THEN
5025: x_return_status => x_return_status);
5026:
5027: END IF;
5028:
5029: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5031: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5032: RAISE FND_API.G_EXC_ERROR;
5033: END IF;
5026:
5027: END IF;
5028:
5029: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5031: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5032: RAISE FND_API.G_EXC_ERROR;
5033: END IF;
5034:
5027: END IF;
5028:
5029: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5031: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5032: RAISE FND_API.G_EXC_ERROR;
5033: END IF;
5034:
5035: EXCEPTION
5028:
5029: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5031: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5032: RAISE FND_API.G_EXC_ERROR;
5033: END IF;
5034:
5035: EXCEPTION
5036: WHEN OTHERS THEN
5075:
5076: IF l_log_error THEN
5077: FND_MESSAGE.SET_NAME('ONT','OE_SCH_OVER_ATP_SET_NO_MATCH');
5078: OE_MSG_PUB.Add;
5079: x_return_status := FND_API.G_RET_STS_ERROR;
5080: goto END_OF_PROCESS;
5081: END IF;
5082: END IF; -- code level.
5083:
5637: || l_line_tbl.count || ':' || l_old_line_tbl.count , 1 ) ;
5638: END IF;
5639:
5640: IF l_line_tbl.count <> l_old_line_tbl.count THEN
5641: x_return_status := FND_API.G_RET_STS_ERROR;
5642: RAISE FND_API.G_EXC_ERROR;
5643: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5645: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5638: END IF;
5639:
5640: IF l_line_tbl.count <> l_old_line_tbl.count THEN
5641: x_return_status := FND_API.G_RET_STS_ERROR;
5642: RAISE FND_API.G_EXC_ERROR;
5643: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5645: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5646: RAISE FND_API.G_EXC_ERROR;
5639:
5640: IF l_line_tbl.count <> l_old_line_tbl.count THEN
5641: x_return_status := FND_API.G_RET_STS_ERROR;
5642: RAISE FND_API.G_EXC_ERROR;
5643: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5645: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5646: RAISE FND_API.G_EXC_ERROR;
5647: END IF;
5640: IF l_line_tbl.count <> l_old_line_tbl.count THEN
5641: x_return_status := FND_API.G_RET_STS_ERROR;
5642: RAISE FND_API.G_EXC_ERROR;
5643: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5645: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5646: RAISE FND_API.G_EXC_ERROR;
5647: END IF;
5648:
5641: x_return_status := FND_API.G_RET_STS_ERROR;
5642: RAISE FND_API.G_EXC_ERROR;
5643: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5645: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5646: RAISE FND_API.G_EXC_ERROR;
5647: END IF;
5648:
5649: /*
5642: RAISE FND_API.G_EXC_ERROR;
5643: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5645: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5646: RAISE FND_API.G_EXC_ERROR;
5647: END IF;
5648:
5649: /*
5650: Oe_Config_Schedule_Pvt.Process_Group
5668:
5669: IF l_debug_level > 0 THEN
5670: oe_debug_pub.add('2740480: After call to Process Group :' || x_return_status ,1);
5671: END IF;
5672: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5674: END IF;
5675: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
5676:
5669: IF l_debug_level > 0 THEN
5670: oe_debug_pub.add('2740480: After call to Process Group :' || x_return_status ,1);
5671: END IF;
5672: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5674: END IF;
5675: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
5676:
5677: IF l_debug_level > 0 THEN
5671: END IF;
5672: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5674: END IF;
5675: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
5676:
5677: IF l_debug_level > 0 THEN
5678: oe_debug_pub.add('2740480: Compare output with requested values',1);
5679: END IF;
5718: IF l_debug_level > 0 THEN
5719: oe_debug_pub.add('Before setting message for group failure',2);
5720: END IF;
5721:
5722: x_return_status := FND_API.G_RET_STS_ERROR;
5723: FND_MESSAGE.SET_NAME('ONT','OE_SCH_GROUP_MEMBER_FAILED');
5724: OE_MSG_PUB.Add;
5725: RAISE FND_API.G_EXC_ERROR;
5726:
5721:
5722: x_return_status := FND_API.G_RET_STS_ERROR;
5723: FND_MESSAGE.SET_NAME('ONT','OE_SCH_GROUP_MEMBER_FAILED');
5724: OE_MSG_PUB.Add;
5725: RAISE FND_API.G_EXC_ERROR;
5726:
5727: END IF;
5728:
5729: END IF; -- Push logic ends here.
5744: IF l_debug_level > 0 THEN
5745: oe_debug_pub.add( 'AFTER CALLING PROCESS_GROUP' || X_RETURN_STATUS , 1 ) ;
5746: END IF;
5747:
5748: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5750: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5751: -- RAISE FND_API.G_EXC_ERROR;
5752:
5745: oe_debug_pub.add( 'AFTER CALLING PROCESS_GROUP' || X_RETURN_STATUS , 1 ) ;
5746: END IF;
5747:
5748: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5750: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5751: -- RAISE FND_API.G_EXC_ERROR;
5752:
5753: -- Code added for bug 2812346
5746: END IF;
5747:
5748: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5750: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5751: -- RAISE FND_API.G_EXC_ERROR;
5752:
5753: -- Code added for bug 2812346
5754:
5747:
5748: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5750: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5751: -- RAISE FND_API.G_EXC_ERROR;
5752:
5753: -- Code added for bug 2812346
5754:
5755: IF l_debug_level > 0 THEN
5807: IF l_debug_level > 0 THEN
5808: oe_debug_pub.add('Model is part of a set cannot save ' ,2);
5809: END IF;
5810:
5811: RAISE FND_API.G_EXC_ERROR;
5812: END IF;
5813: END IF; -- bug 4188166
5814: -- END IF; --commented for bug3986288
5815:
5818: oe_debug_pub.add('It is a create operation ' ,2);
5819: END IF;
5820: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
5821: OE_MSG_PUB.Add;
5822: x_return_status := FND_API.G_RET_STS_SUCCESS;
5823: IF l_debug_level > 0 THEN
5824: oe_debug_pub.add('x_return_status ' || x_return_status,2);
5825: END IF;
5826: GOTO END_OF_PROCESS;
5828: IF l_debug_level > 0 THEN
5829: oe_debug_pub.add('It is not a create operation ' ,2);
5830: END IF;
5831:
5832: RAISE FND_API.G_EXC_ERROR;
5833: END IF; -- Create.
5834: END IF;
5835:
5836: -- If scheduling set suceeded, then the result of scheduling
5896: IF l_debug_level > 0 THEN
5897: oe_debug_pub.add('Exiting Schedule_Set',1);
5898: END IF;
5899: EXCEPTION
5900: WHEN FND_API.G_EXC_ERROR THEN
5901: --3543774 If new set show the error message
5902: IF p_request_rec.request_type = OE_GLOBALS.G_GROUP_SCHEDULE
5903: AND ((l_entity_type =
5904: OE_SCHEDULE_UTIL.OESCH_ENTITY_SHIP_SET
5911: OE_MSG_PUB.Add;
5912: END IF;
5913: G_TOP_MODEL_LINE_ID := Null;
5914: G_PART_OF_SET := Null;
5915: x_return_status := FND_API.G_RET_STS_ERROR;
5916:
5917: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5918:
5919: G_TOP_MODEL_LINE_ID := Null;
5913: G_TOP_MODEL_LINE_ID := Null;
5914: G_PART_OF_SET := Null;
5915: x_return_status := FND_API.G_RET_STS_ERROR;
5916:
5917: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5918:
5919: G_TOP_MODEL_LINE_ID := Null;
5920: G_PART_OF_SET := Null;
5921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5917: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5918:
5919: G_TOP_MODEL_LINE_ID := Null;
5920: G_PART_OF_SET := Null;
5921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5922:
5923: WHEN OTHERS THEN
5924:
5925: G_TOP_MODEL_LINE_ID := Null;
5923: WHEN OTHERS THEN
5924:
5925: G_TOP_MODEL_LINE_ID := Null;
5926: G_PART_OF_SET := Null;
5927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5928:
5929: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5930: THEN
5931: OE_MSG_PUB.Add_Exc_Msg
5965: l_count NUMBER := 0;
5966: l_set_rec OE_ORDER_CACHE.set_rec_type;
5967: l_msg_count NUMBER;
5968: l_msg_data VARCHAR2(2000);
5969: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5970: l_set_exists VARCHAR2(1);
5971:
5972: --
5973: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5973: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5974: --
5975: BEGIN
5976:
5977: x_return_status := FND_API.G_RET_STS_SUCCESS;
5978:
5979: IF l_debug_level > 0 THEN
5980: oe_debug_pub.add( 'ENTERING Group_Schedule_sets' , 1 ) ;
5981: END IF;
5986: IF l_debug_level > 0 THEN
5987: oe_debug_pub.add( 'Processing Line' || P_SCH_SET_TBL(I).ENTITY_ID, 1);
5988: END IF;
5989:
5990: l_return_status := FND_API.G_RET_STS_SUCCESS;
5991:
5992: BEGIN
5993:
5994: Select 'Y'
6043: IF l_debug_level > 0 THEN
6044: oe_debug_pub.add(' L_return_status :' || l_return_status,1);
6045: END IF;
6046:
6047: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6049: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6050: IF l_debug_level > 0 THEN
6051: oe_debug_pub.add(' Goto End due to error',1);
6044: oe_debug_pub.add(' L_return_status :' || l_return_status,1);
6045: END IF;
6046:
6047: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6049: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6050: IF l_debug_level > 0 THEN
6051: oe_debug_pub.add(' Goto End due to error',1);
6052: END IF;
6045: END IF;
6046:
6047: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6049: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6050: IF l_debug_level > 0 THEN
6051: oe_debug_pub.add(' Goto End due to error',1);
6052: END IF;
6053: GOTO END_PROCESS;
6059: p_old_line_rec => l_line_tbl(J),
6060: p_sch_action => 'SCHEDULE' ,
6061: x_return_status => l_return_status);
6062:
6063: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6064:
6065: IF l_debug_level > 0 THEN
6066: oe_debug_pub.add(' Error in validation ',1);
6067: END IF;
6144: END LOOP; -- lsch_tbl
6145:
6146: <
6147:
6148: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6149:
6150: IF l_debug_level > 0 THEN
6151: oe_debug_pub.add(' Error in ' || p_sch_set_tbl(I).param1,2);
6152: END IF;
6208:
6209: IF l_debug_level > 0 THEN
6210: oe_debug_pub.add('After call to Process Group :' || x_return_status ,1);
6211: END IF;
6212: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6214: END IF;
6215: END IF;
6216:
6209: IF l_debug_level > 0 THEN
6210: oe_debug_pub.add('After call to Process Group :' || x_return_status ,1);
6211: END IF;
6212: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6214: END IF;
6215: END IF;
6216:
6217:
6220: oe_debug_pub.add('line id :' || l_sch_line_tbl(I).line_id ,1);
6221: oe_debug_pub.add('Schedule status code :' || l_sch_line_tbl(I).schedule_status_code ,1);
6222:
6223: -- 4188166
6224: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
6225: l_sch_line_tbl(I).schedule_status_code IS NOT NULL
6226: THEN
6227:
6228: /*
6313:
6314: END IF;
6315: END LOOP;
6316:
6317: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
6318: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
6319: OE_MSG_PUB.Add;
6320: x_return_status := FND_API.G_RET_STS_SUCCESS;
6321: IF l_debug_level > 0 THEN
6316:
6317: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
6318: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
6319: OE_MSG_PUB.Add;
6320: x_return_status := FND_API.G_RET_STS_SUCCESS;
6321: IF l_debug_level > 0 THEN
6322: oe_debug_pub.add('x_return_status ' || x_return_status,2);
6323: END IF;
6324: END IF;
6329: END IF;
6330:
6331: EXCEPTION
6332:
6333: WHEN FND_API.G_EXC_ERROR THEN
6334: x_return_status := FND_API.G_RET_STS_ERROR;
6335: IF l_debug_level > 0 THEN
6336: oe_debug_pub.add('No data from expected error',1);
6337: END IF;
6330:
6331: EXCEPTION
6332:
6333: WHEN FND_API.G_EXC_ERROR THEN
6334: x_return_status := FND_API.G_RET_STS_ERROR;
6335: IF l_debug_level > 0 THEN
6336: oe_debug_pub.add('No data from expected error',1);
6337: END IF;
6338: RAISE FND_API.G_EXC_ERROR;
6334: x_return_status := FND_API.G_RET_STS_ERROR;
6335: IF l_debug_level > 0 THEN
6336: oe_debug_pub.add('No data from expected error',1);
6337: END IF;
6338: RAISE FND_API.G_EXC_ERROR;
6339:
6340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6341:
6342: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6336: oe_debug_pub.add('No data from expected error',1);
6337: END IF;
6338: RAISE FND_API.G_EXC_ERROR;
6339:
6340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6341:
6342: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6343: THEN
6344: OE_MSG_PUB.Add_Exc_Msg
6349: IF l_debug_level > 0 THEN
6350: oe_debug_pub.add('No data from unexpected error',1);
6351: END IF;
6352:
6353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6354:
6355: WHEN OTHERS THEN
6356:
6357:
6364: END IF;
6365: IF l_debug_level > 0 THEN
6366: oe_debug_pub.add('No data from unexpected error',1);
6367: END IF;
6368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6369: END Group_Schedule_sets;
6370: END OE_GROUP_SCH_UTIL;
6371: