[Home] [Help]
136:
137: -- after changing reserved qty, trying to unschedule or unreserve
138: -- dose not make sense.
139: IF (p_line_rec.schedule_action_code =
140: OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
141: p_line_rec.schedule_action_code =
142: OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE) AND
143: (p_line_rec.reserved_quantity is not null) THEN
144:
138: -- dose not make sense.
139: IF (p_line_rec.schedule_action_code =
140: OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
141: p_line_rec.schedule_action_code =
142: OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE) AND
143: (p_line_rec.reserved_quantity is not null) THEN
144:
145: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_QTY_CHG_NOT_ALLOWED');
146: OE_MSG_PUB.Add;
229: END IF;
230: IF ((p_line_rec.ship_set_id is not null AND
231: p_line_rec.ship_set_id <> FND_API.G_MISS_NUM) AND
232: (p_line_rec.schedule_action_code =
233: OE_ORDER_SCH_UTIL.OESCH_ACT_UNDEMAND OR
234: p_line_rec.schedule_action_code =
235: OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE))
236: THEN
237:
231: p_line_rec.ship_set_id <> FND_API.G_MISS_NUM) AND
232: (p_line_rec.schedule_action_code =
233: OE_ORDER_SCH_UTIL.OESCH_ACT_UNDEMAND OR
234: p_line_rec.schedule_action_code =
235: OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE))
236: THEN
237:
238: FND_MESSAGE.SET_NAME('ONT','OE_SCH_OE_ORDER_FAILED');
239: OE_MSG_PUB.Add;
246: END IF;
247: --IF FND_PROFILE.VALUE('ONT_SCHEDULE_LINE_ON_HOLD') = 'N' AND
248: IF oe_sys_parameters.value ('ONT_SCHEDULE_LINE_ON_HOLD') = 'N' AND --moac
249: (p_line_rec.schedule_action_code =
250: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
251: p_line_rec.schedule_action_code =
252: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE OR
253: (p_line_rec.schedule_status_code is not null AND
254: OE_ORDER_SCH_UTIL.Schedule_Attribute_Changed
248: IF oe_sys_parameters.value ('ONT_SCHEDULE_LINE_ON_HOLD') = 'N' AND --moac
249: (p_line_rec.schedule_action_code =
250: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
251: p_line_rec.schedule_action_code =
252: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE OR
253: (p_line_rec.schedule_status_code is not null AND
254: OE_ORDER_SCH_UTIL.Schedule_Attribute_Changed
255: (p_line_rec => p_line_rec,
256: p_old_line_rec => p_old_line_rec)) OR
250: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
251: p_line_rec.schedule_action_code =
252: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE OR
253: (p_line_rec.schedule_status_code is not null AND
254: OE_ORDER_SCH_UTIL.Schedule_Attribute_Changed
255: (p_line_rec => p_line_rec,
256: p_old_line_rec => p_old_line_rec)) OR
257: (p_line_rec.schedule_status_code is not null AND
258: p_line_rec.ordered_quantity > p_old_line_rec.ordered_quantity))
306:
307: IF l_debug_level > 0 THEN
308: oe_debug_pub.add( 'CHECKING SCHEDULING LEVEL...' , 1 ) ;
309: END IF;
310: l_scheduling_level_code := OE_ORDER_SCH_UTIL.Get_Scheduling_Level
311: (p_line_rec.header_id,
312: p_line_rec.line_type_id);
313:
314: IF l_debug_level > 0 THEN
315: oe_debug_pub.add( 'L_SCHEDULING_LEVEL_CODE : ' || L_SCHEDULING_LEVEL_CODE , 1 ) ;
316: END IF;
317:
318: IF l_scheduling_level_code is not null THEN
319: IF l_scheduling_level_code = OE_ORDER_SCH_UTIL.SCH_LEVEL_ONE THEN
320: IF p_line_rec.schedule_action_code =
321: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
322: p_line_rec.schedule_action_code =
323: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE OR
317:
318: IF l_scheduling_level_code is not null THEN
319: IF l_scheduling_level_code = OE_ORDER_SCH_UTIL.SCH_LEVEL_ONE THEN
320: IF p_line_rec.schedule_action_code =
321: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
322: p_line_rec.schedule_action_code =
323: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE OR
324: (p_line_rec.schedule_status_code is null AND
325: (p_line_rec.schedule_ship_date is NOT NULL OR
319: IF l_scheduling_level_code = OE_ORDER_SCH_UTIL.SCH_LEVEL_ONE THEN
320: IF p_line_rec.schedule_action_code =
321: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
322: p_line_rec.schedule_action_code =
323: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE OR
324: (p_line_rec.schedule_status_code is null AND
325: (p_line_rec.schedule_ship_date is NOT NULL OR
326: p_line_rec.schedule_arrival_date is NOT NULL))
327: THEN
328:
329: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ACTION_NOT_ALLOWED');
330: FND_MESSAGE.SET_TOKEN('ACTION',
331: nvl(p_line_rec.schedule_action_code,
332: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE));
333: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
334: nvl(oe_order_sch_util.sch_cached_line_type,
335: oe_order_sch_util.sch_cached_order_type));
336: OE_MSG_PUB.Add;
330: FND_MESSAGE.SET_TOKEN('ACTION',
331: nvl(p_line_rec.schedule_action_code,
332: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE));
333: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
334: nvl(oe_order_sch_util.sch_cached_line_type,
335: oe_order_sch_util.sch_cached_order_type));
336: OE_MSG_PUB.Add;
337: l_return_status := FND_API.G_RET_STS_ERROR;
338: END IF;
331: nvl(p_line_rec.schedule_action_code,
332: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE));
333: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
334: nvl(oe_order_sch_util.sch_cached_line_type,
335: oe_order_sch_util.sch_cached_order_type));
336: OE_MSG_PUB.Add;
337: l_return_status := FND_API.G_RET_STS_ERROR;
338: END IF;
339: ELSIF l_scheduling_level_code = OE_ORDER_SCH_UTIL.SCH_LEVEL_TWO THEN
335: oe_order_sch_util.sch_cached_order_type));
336: OE_MSG_PUB.Add;
337: l_return_status := FND_API.G_RET_STS_ERROR;
338: END IF;
339: ELSIF l_scheduling_level_code = OE_ORDER_SCH_UTIL.SCH_LEVEL_TWO THEN
340: -- Changes for Bug-2497354
341: -- Changed the IF condition for bug 2681047
342: IF p_line_rec.reserved_quantity > 0 AND
343: p_line_rec.reserved_quantity <> FND_API.G_MISS_NUM AND
345:
346: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ACTION_NOT_ALLOWED');
347: FND_MESSAGE.SET_TOKEN('ACTION',
348: nvl(p_line_rec.schedule_action_code,
349: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE));
350: IF l_debug_level > 0 THEN
351: oe_debug_pub.add( 'RESERVED QUANTITY IS GREATER THAN ZERO' ) ;
352: END IF;
353: OE_MSG_PUB.Add;
354: l_return_status := FND_API.G_RET_STS_ERROR;
355: END IF;
356:
357: IF p_line_rec.schedule_action_code =
358: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE THEN
359: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ACTION_NOT_ALLOWED');
360: FND_MESSAGE.SET_TOKEN('ACTION',
361: nvl(p_line_rec.schedule_action_code,
362: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE));
358: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE THEN
359: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ACTION_NOT_ALLOWED');
360: FND_MESSAGE.SET_TOKEN('ACTION',
361: nvl(p_line_rec.schedule_action_code,
362: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE));
363: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
364: nvl(oe_order_sch_util.sch_cached_line_type,
365: oe_order_sch_util.sch_cached_order_type));
366: OE_MSG_PUB.Add;
360: FND_MESSAGE.SET_TOKEN('ACTION',
361: nvl(p_line_rec.schedule_action_code,
362: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE));
363: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
364: nvl(oe_order_sch_util.sch_cached_line_type,
365: oe_order_sch_util.sch_cached_order_type));
366: OE_MSG_PUB.Add;
367: l_return_status := FND_API.G_RET_STS_ERROR;
368: END IF;
361: nvl(p_line_rec.schedule_action_code,
362: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE));
363: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
364: nvl(oe_order_sch_util.sch_cached_line_type,
365: oe_order_sch_util.sch_cached_order_type));
366: OE_MSG_PUB.Add;
367: l_return_status := FND_API.G_RET_STS_ERROR;
368: END IF;
369: END IF;
487: RAISE FND_API.G_EXC_ERROR;
488: END IF;
489:
490: IF (p_group_req_rec.entity_type =
491: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ATO_CONFIG)
492: THEN
493: Schedule_ATO(p_group_req_rec => p_group_req_rec,
494: x_atp_tbl => l_atp_tbl,
495: x_return_status => l_return_status);
495: x_return_status => l_return_status);
496:
497: x_atp_tbl := l_atp_tbl;
498: ELSIF (p_group_req_rec.entity_type =
499: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ORDER) OR
500: (p_group_req_rec.entity_type =
501: OE_ORDER_SCH_UTIL.OESCH_ENTITY_LINE)
502: THEN
503: Schedule_Order(p_header_id => p_group_req_rec.header_id,
497: x_atp_tbl := l_atp_tbl;
498: ELSIF (p_group_req_rec.entity_type =
499: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ORDER) OR
500: (p_group_req_rec.entity_type =
501: OE_ORDER_SCH_UTIL.OESCH_ENTITY_LINE)
502: THEN
503: Schedule_Order(p_header_id => p_group_req_rec.header_id,
504: p_sch_action => p_group_req_rec.action,
505: p_entity_type => p_group_req_rec.entity_type,
511:
512: x_atp_tbl := l_atp_tbl;
513:
514: ELSIF (p_group_req_rec.entity_type =
515: OE_ORDER_SCH_UTIL.OESCH_ENTITY_SMC)
516: THEN
517: Schedule_Set(p_group_req_rec => p_group_req_rec,
518: x_atp_tbl => l_atp_tbl,
519: x_return_status => l_return_status);
519: x_return_status => l_return_status);
520:
521: x_atp_tbl := l_atp_tbl;
522: ELSIF (p_group_req_rec.entity_type =
523: OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET) OR
524: (p_group_req_rec.entity_type =
525: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ARRIVAL_SET)
526: THEN
527: Schedule_Set(p_group_req_rec => p_group_req_rec,
521: x_atp_tbl := l_atp_tbl;
522: ELSIF (p_group_req_rec.entity_type =
523: OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET) OR
524: (p_group_req_rec.entity_type =
525: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ARRIVAL_SET)
526: THEN
527: Schedule_Set(p_group_req_rec => p_group_req_rec,
528: x_atp_tbl => l_atp_tbl,
529: x_return_status => l_return_status);
694: oe_debug_pub.add( 'ENTERING OE_GRP_SCH_UTIL.SCHEDULE_ORDER' , 1 ) ;
695: END IF;
696:
697: /* Bug :2222360 */
698: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
699: IF l_debug_level > 0 THEN
700: oe_debug_pub.add( 'INSIDE ATP CHECK SAVEPOINT' ) ;
701: END IF;
702: SAVEPOINT ATP_CHECK;
766: l_line_tbl(line_index).ato_line_id <>
767: l_line_tbl(line_index).line_id AND
768: (l_line_tbl(line_index).ship_model_complete_flag = 'Y' OR
769: l_line_tbl(line_index).ato_line_id is not null) AND
770: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
771: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
772: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK) THEN
773:
774: -- Skipping this option line since it will be picked up when the
767: l_line_tbl(line_index).line_id AND
768: (l_line_tbl(line_index).ship_model_complete_flag = 'Y' OR
769: l_line_tbl(line_index).ato_line_id is not null) AND
770: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
771: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
772: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK) THEN
773:
774: -- Skipping this option line since it will be picked up when the
775: -- model is scheduled.
768: (l_line_tbl(line_index).ship_model_complete_flag = 'Y' OR
769: l_line_tbl(line_index).ato_line_id is not null) AND
770: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
771: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
772: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK) THEN
773:
774: -- Skipping this option line since it will be picked up when the
775: -- model is scheduled.
776: goto end_loop;
780: l_line_rec := l_line_tbl(line_index);
781: l_old_line_rec := l_line_rec;
782:
783: -- Code has been modified to fix bug 1873099.
784: -- IF p_sch_action <> OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE THEN
785: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
786: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
787: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
788: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE AND
781: l_old_line_rec := l_line_rec;
782:
783: -- Code has been modified to fix bug 1873099.
784: -- IF p_sch_action <> OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE THEN
785: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
786: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
787: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
788: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE AND
789: l_line_rec.schedule_status_code is null) THEN
782:
783: -- Code has been modified to fix bug 1873099.
784: -- IF p_sch_action <> OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE THEN
785: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
786: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
787: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
788: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE AND
789: l_line_rec.schedule_status_code is null) THEN
790:
783: -- Code has been modified to fix bug 1873099.
784: -- IF p_sch_action <> OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE THEN
785: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
786: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
787: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
788: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE AND
789: l_line_rec.schedule_status_code is null) THEN
790:
791: -- We want to skip a line belonging to a set only if the action
784: -- IF p_sch_action <> OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE THEN
785: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
786: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
787: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
788: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE AND
789: l_line_rec.schedule_status_code is null) THEN
790:
791: -- We want to skip a line belonging to a set only if the action
792: -- is SCHEDULE,ATP or UNSCHEDULE. We do not want to skip if the
878: l_line_rec.ship_model_complete_flag = 'Y' OR
879: (l_line_rec.ato_line_id = l_line_rec.line_id AND
880: l_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_STANDARD AND
881: l_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_OPTION)) AND
882: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
883: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
884: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
885: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE AND
886: l_line_rec.schedule_status_code is null ) )
879: (l_line_rec.ato_line_id = l_line_rec.line_id AND
880: l_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_STANDARD AND
881: l_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_OPTION)) AND
882: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
883: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
884: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
885: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE AND
886: l_line_rec.schedule_status_code is null ) )
887: THEN
880: l_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_STANDARD AND
881: l_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_OPTION)) AND
882: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
883: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
884: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
885: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE AND
886: l_line_rec.schedule_status_code is null ) )
887: THEN
888:
881: l_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_OPTION)) AND
882: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
883: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
884: p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
885: (p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE AND
886: l_line_rec.schedule_status_code is null ) )
887: THEN
888:
889: IF l_debug_level > 0 THEN
894: IF l_debug_level > 0 THEN
895: oe_debug_pub.add( 'SO: CREATING GROUP_REQUEST' , 1 ) ;
896: END IF;
897:
898: OE_ORDER_SCH_UTIL.Create_Group_Request
899: ( p_line_rec => l_line_rec
900: , p_old_line_rec => l_line_rec
901: , x_group_req_rec => l_group_req_rec
902: , x_return_status => l_return_status
947: IF l_debug_level > 0 THEN
948: oe_debug_pub.add( 'GRP: CALLING SCHEDULE LINE' , 1 ) ;
949: END IF;
950:
951: OE_ORDER_SCH_UTIL.Schedule_line
952: ( p_old_line_rec => l_old_line_rec
953: ,p_write_to_db => FND_API.G_TRUE
954: ,p_x_line_rec => l_line_rec
955: ,x_atp_tbl => l_out_atp_tbl
1024: END IF;
1025: x_return_status := FND_API.G_RET_STS_SUCCESS;
1026:
1027: /* Bug :2222360 */
1028: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
1029: IF l_debug_level > 0 THEN
1030: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
1031: END IF;
1032: ROLLBACK TO ATP_CHECK;
1045: ( p_count => x_msg_count
1046: ,p_data => x_msg_data
1047: );
1048: /* Bug :2222360 */
1049: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
1050: IF l_debug_level > 0 THEN
1051: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
1052: END IF;
1053: ROLLBACK TO ATP_CHECK;
1065: ,p_data => x_msg_data
1066: );
1067:
1068: /* Bug :2222360 */
1069: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
1070: IF l_debug_level > 0 THEN
1071: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
1072: END IF;
1073: ROLLBACK TO ATP_CHECK;
1079:
1080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1081:
1082: /* Bug :2222360 */
1083: IF p_sch_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
1084: IF l_debug_level > 0 THEN
1085: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
1086: END IF;
1087: ROLLBACK TO ATP_CHECK;
1194: -- Check to see if a warehouse is specified on the line. You need a
1195: -- warehouse to schedule an ATO
1196:
1197: IF l_model_line_rec.ship_from_org_id is NULL AND
1198: (p_group_req_rec.action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
1199: p_group_req_rec.action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE) THEN
1200:
1201: -- You cannot schedule a ATO model without a warehouse. So flag
1202: -- an error.
1195: -- warehouse to schedule an ATO
1196:
1197: IF l_model_line_rec.ship_from_org_id is NULL AND
1198: (p_group_req_rec.action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
1199: p_group_req_rec.action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE) THEN
1200:
1201: -- You cannot schedule a ATO model without a warehouse. So flag
1202: -- an error.
1203:
1206: RAISE FND_API.G_EXC_ERROR;
1207:
1208: END IF;
1209:
1210: IF (p_group_req_rec.action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE) OR
1211: (p_group_req_rec.action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE)
1212: THEN
1213: -- This action is not allowed on an ATO configuration.
1214: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_NO_CONFIG');
1207:
1208: END IF;
1209:
1210: IF (p_group_req_rec.action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE) OR
1211: (p_group_req_rec.action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE)
1212: THEN
1213: -- This action is not allowed on an ATO configuration.
1214: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_NO_CONFIG');
1215: OE_MSG_PUB.Add;
1216: RAISE FND_API.G_EXC_ERROR;
1217:
1218: END IF; /* If action was reserve or unreserve */
1219:
1220: IF (p_group_req_rec.action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE)
1221: THEN
1222: -- This action is not allowed on an ATO configuration if the config
1223: -- item is created.
1224: BEGIN
1377: -- If the group action is schedule on a scheduled group, changing the same
1378: -- to reschedule, otherwise respect group action value.
1379:
1380: IF l_model_line_rec.schedule_status_code is not null
1381: AND p_group_req_rec.action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE
1382: THEN
1383: l_action := OE_ORDER_SCH_UTIL.OESCH_ACT_RESCHEDULE;
1384: ELSE
1385:
1379:
1380: IF l_model_line_rec.schedule_status_code is not null
1381: AND p_group_req_rec.action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE
1382: THEN
1383: l_action := OE_ORDER_SCH_UTIL.OESCH_ACT_RESCHEDULE;
1384: ELSE
1385:
1386: IF p_group_req_rec.action is not null THEN
1387: l_action := p_group_req_rec.action;
1385:
1386: IF p_group_req_rec.action is not null THEN
1387: l_action := p_group_req_rec.action;
1388: ELSE
1389: l_action := OE_ORDER_SCH_UTIL.OESCH_ACT_RESCHEDULE;
1390: END IF;
1391:
1392: END IF;
1393:
1397: /* IF p_group_req_rec.action is not null THEN
1398: l_line_rec.schedule_action_code := p_group_req_rec.action;
1399: ELSE
1400: l_line_rec.schedule_action_code :=
1401: OE_ORDER_SCH_UTIL.OESCH_ACT_RESCHEDULE;
1402: END IF;
1403: */
1404: l_line_rec.schedule_action_code := l_action;
1405: l_line_rec.ship_set := l_line_rec.ato_line_id;
1577: IF l_debug_level > 0 THEN
1578: oe_debug_pub.add( 'ENTITY IS ' || P_ENTITY_TYPE , 1 ) ;
1579: END IF;
1580:
1581: IF p_entity_type = OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET THEN
1582: IF l_debug_level > 0 THEN
1583: oe_debug_pub.add( 'CALLING QUERY_SET_ROWS FOR: ' || P_SHIP_SET_ID , 1 ) ;
1584: END IF;
1585:
1585:
1586: OE_Set_Util.Query_Set_Rows(p_set_id => p_ship_set_id,
1587: x_line_tbl => l_set_line_tbl);
1588:
1589: ELSIF p_entity_type = OE_ORDER_SCH_UTIL.OESCH_ENTITY_ARRIVAL_SET THEN
1590: IF l_debug_level > 0 THEN
1591: oe_debug_pub.add( 'CALLING QUERY_SET_ROWS FOR: ' || P_ARRIVAL_SET_ID , 1 ) ;
1592: END IF;
1593:
1595: x_line_tbl => l_set_line_tbl);
1596:
1597: END IF;
1598:
1599: IF p_entity_type = OE_ORDER_SCH_UTIL.OESCH_ENTITY_SMC
1600: THEN
1601: OE_Config_Util.Query_Options(p_top_model_line_id => p_ship_set_id,
1602: p_send_cancel_lines => 'Y',
1603: x_line_tbl => l_set_line_tbl);
1618: J := 0;
1619: FOR I IN 1..l_set_line_tbl.count LOOP
1620:
1621: IF I = 1 THEN
1622: l_sales_order_id := OE_ORDER_SCH_UTIL.Get_mtl_sales_order_id
1623: (l_set_line_tbl(1).HEADER_ID);
1624: END IF;
1625:
1626: IF l_set_line_tbl(I).item_type_code <> OE_GLOBALS.G_ITEM_INCLUDED THEN
1816: END IF;
1817:
1818: -- Added this part of validation to fix bug 2411889.
1819:
1820: IF p_group_req_rec.action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE
1821: AND p_group_req_rec.entity_type = OE_ORDER_SCH_UTIL.OESCH_ENTITY_SMC
1822: AND l_line_tbl(1).schedule_status_code is not null
1823: THEN
1824: -- This action is not allowed on an ATO configuration if the config
1817:
1818: -- Added this part of validation to fix bug 2411889.
1819:
1820: IF p_group_req_rec.action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE
1821: AND p_group_req_rec.entity_type = OE_ORDER_SCH_UTIL.OESCH_ENTITY_SMC
1822: AND l_line_tbl(1).schedule_status_code is not null
1823: THEN
1824: -- This action is not allowed on an ATO configuration if the config
1825: -- item is created.
1904: -- to reschedule, otherwise respect group action value.
1905: IF l_line_tbl.count > 0 THEN
1906:
1907: IF l_line_tbl(1).schedule_status_code is not null
1908: AND p_group_req_rec.action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE
1909: THEN
1910: l_action := OE_ORDER_SCH_UTIL.OESCH_ACT_RESCHEDULE;
1911: ELSE
1912:
1906:
1907: IF l_line_tbl(1).schedule_status_code is not null
1908: AND p_group_req_rec.action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE
1909: THEN
1910: l_action := OE_ORDER_SCH_UTIL.OESCH_ACT_RESCHEDULE;
1911: ELSE
1912:
1913: IF p_group_req_rec.action is not null THEN
1914: l_action := p_group_req_rec.action;
1912:
1913: IF p_group_req_rec.action is not null THEN
1914: l_action := p_group_req_rec.action;
1915: ELSE
1916: l_action := OE_ORDER_SCH_UTIL.OESCH_ACT_RESCHEDULE;
1917: END IF;
1918:
1919: END IF;
1920:
1919: END IF;
1920:
1921: END IF;
1922:
1923: IF p_group_req_rec.entity_type = OE_ORDER_SCH_UTIL.OESCH_ENTITY_SMC OR
1924: p_group_req_rec.entity_type = OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET THEN
1925:
1926: IF p_group_req_rec.entity_type =
1927: OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET
1920:
1921: END IF;
1922:
1923: IF p_group_req_rec.entity_type = OE_ORDER_SCH_UTIL.OESCH_ENTITY_SMC OR
1924: p_group_req_rec.entity_type = OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET THEN
1925:
1926: IF p_group_req_rec.entity_type =
1927: OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET
1928: THEN
1923: IF p_group_req_rec.entity_type = OE_ORDER_SCH_UTIL.OESCH_ENTITY_SMC OR
1924: p_group_req_rec.entity_type = OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET THEN
1925:
1926: IF p_group_req_rec.entity_type =
1927: OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET
1928: THEN
1929: l_set_rec := OE_ORDER_CACHE.Load_Set
1930: (p_group_req_rec.ship_set_number);
1931: l_set_name := l_set_rec.set_name;
1943: /* IF p_group_req_rec.action is not null THEN
1944: l_line_rec.schedule_action_code := p_group_req_rec.action;
1945: ELSE
1946: l_line_rec.schedule_action_code :=
1947: OE_ORDER_SCH_UTIL.OESCH_ACT_RESCHEDULE;
1948: END IF;*/
1949:
1950: l_line_rec.schedule_action_code := l_action;
1951:
1981: END LOOP;
1982: END IF; /* Ship Set */
1983:
1984: IF p_group_req_rec.entity_type =
1985: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ARRIVAL_SET THEN
1986:
1987: l_set_rec := OE_ORDER_CACHE.Load_Set(p_group_req_rec.arrival_set_number);
1988: l_set_name := l_set_rec.set_name;
1989: l_set_id := l_set_rec.set_id;
2288:
2289: IF p_x_line_tbl.count = 1 THEN
2290:
2291: IF p_x_line_tbl(1).schedule_status_code IS NOT NULL AND
2292: NOT OE_ORDER_SCH_UTIL.Schedule_Attribute_Changed
2293: (p_line_rec => p_x_line_tbl(1),
2294: p_old_line_rec => p_old_line_tbl(1)) AND
2295: (p_x_line_tbl(1).item_type_code = OE_GLOBALS.G_ITEM_STANDARD OR
2296: nvl(p_x_line_tbl(1).model_remnant_flag,'N') = 'Y') THEN
2339:
2340: FOR I IN 1..p_x_line_tbl.count LOOP
2341:
2342: IF p_x_line_tbl(I).schedule_status_code IS NULL OR
2343: OE_ORDER_SCH_UTIL.Schedule_Attribute_Changed
2344: (p_line_rec => p_x_line_tbl(I),
2345: p_old_line_rec => p_old_line_tbl(I)) OR
2346: (p_x_line_tbl(I).item_type_code <> OE_GLOBALS.G_ITEM_STANDARD AND
2347: nvl(p_x_line_tbl(I).model_remnant_flag,'N') = 'N') THEN
2403: BEGIN
2404: IF I =1 AND
2405: (p_x_line_tbl(I).ship_set_id is not null OR
2406: p_x_line_tbl(I).arrival_set_id is not null) THEN
2407: OE_ORDER_SCH_UTIL.OESCH_PERFORM_GRP_SCHEDULING := 'N';
2408: l_log_msg := 'N';
2409: END IF;
2410: IF ((p_x_line_tbl(I).item_type_code = OE_GLOBALS.G_ITEM_INCLUDED AND
2411: nvl(p_x_line_tbl(I).model_remnant_flag,'N') = 'N') OR
2419: END IF;
2420:
2421: ELSIF (nvl(p_x_line_tbl(I).source_type_code,'INTERNAL') = 'INTERNAL')
2422: THEN
2423: OE_ORDER_SCH_UTIL.Validate_Line
2424: (p_line_rec => p_x_line_tbl(I),
2425: p_old_line_rec => p_old_line_tbl(I),
2426: x_return_status => l_return_status);
2427:
2456: l_old_recursion_mode := OE_GLOBALS.G_RECURSION_MODE;
2457: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
2458:
2459: -- Bug 2304287
2460: l_old_perform := OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING;
2461: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
2462:
2463: l_return_status := OE_CONFIG_UTIL.Process_Included_Items
2464: (p_line_rec => p_x_line_tbl(I),
2457: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
2458:
2459: -- Bug 2304287
2460: l_old_perform := OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING;
2461: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
2462:
2463: l_return_status := OE_CONFIG_UTIL.Process_Included_Items
2464: (p_line_rec => p_x_line_tbl(I),
2465: p_freeze => FALSE);
2478: OE_Config_Util.Query_Included_Items
2479: (p_line_id => p_x_line_tbl(I).line_id,
2480: x_line_tbl => l_ii_line_tbl);
2481:
2482: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := l_old_perform;
2483:
2484: IF l_debug_level > 0 THEN
2485: oe_debug_pub.add( 'MERGING INCLUDED ITEM TABLE WITH LINE TABLE' , 1 ) ;
2486: END IF;
2491: l_line_tbl(k) := l_ii_line_tbl(J);
2492: l_old_line_tbl(K) := l_ii_line_tbl(J);
2493: l_line_tbl(k).operation := OE_GLOBALS.G_OPR_UPDATE;
2494: l_line_tbl(k).schedule_action_code :=
2495: OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE;
2496: l_line_tbl(k).ship_set :=
2497: p_x_line_tbl(I).ship_set;
2498: l_line_tbl(k).ship_set_id :=
2499: p_x_line_tbl(I).ship_set_id;
2544: FOR I IN 1..l_line_tbl.count LOOP
2545:
2546: IF I = 1 THEN
2547:
2548: l_sales_order_id := OE_ORDER_SCH_UTIL.Get_mtl_sales_order_id
2549: (l_line_tbl(1).HEADER_ID);
2550: END IF;
2551: -- If any of the lines are previously scheduled, then pass
2552: -- action as reschedule to MRP.
2552: -- action as reschedule to MRP.
2553:
2554: IF l_need_reschedule = 'Y' THEN
2555: l_line_tbl(I).schedule_action_code :=
2556: OE_ORDER_SCH_UTIL.OESCH_ACT_RESCHEDULE;
2557: END IF;
2558:
2559: IF l_line_tbl(I).schedule_status_code is not null THEN
2560: l_line_tbl(I).reserved_quantity :=
2597: IF fnd_profile.value('ONT_AUTO_PUSH_GRP_DATE') = 'Y'
2598: AND (l_line_tbl(1).arrival_set_id is not null OR
2599: l_line_tbl(1).ship_set_id is not null) THEN
2600:
2601: OE_ORDER_SCH_UTIL.OESCH_PERFORM_GRP_SCHEDULING := 'Y';
2602:
2603: -- Derive the entity id.
2604: IF l_line_tbl(1).arrival_set_id is not null THEN
2605:
2602:
2603: -- Derive the entity id.
2604: IF l_line_tbl(1).arrival_set_id is not null THEN
2605:
2606: l_entity_type := OE_ORDER_SCH_UTIL.OESCH_ENTITY_ARRIVAL_SET;
2607:
2608: ELSIF l_line_tbl(1).ship_set_id is not null THEN
2609:
2610: l_entity_type := OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET;
2606: l_entity_type := OE_ORDER_SCH_UTIL.OESCH_ENTITY_ARRIVAL_SET;
2607:
2608: ELSIF l_line_tbl(1).ship_set_id is not null THEN
2609:
2610: l_entity_type := OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET;
2611:
2612: END IF;
2613:
2614: -- Call query set lines to query old lines from db.
2633:
2634: FOR I in 1..l_line_tbl.count LOOP
2635:
2636: l_line_tbl(I).schedule_action_code :=
2637: OE_ORDER_SCH_UTIL.OESCH_ACT_RESCHEDULE;
2638:
2639: END LOOP;
2640:
2641: END IF;
2666: --2319050.
2667: J := J + 1;
2668: l_line_tbl(J) := l_grp_line_tbl(I);
2669: l_line_tbl(J).schedule_action_code :=
2670: OE_ORDER_SCH_UTIL.OESCH_ACT_RESCHEDULE;
2671:
2672: l_line_tbl(J).operation := OE_GLOBALS.G_OPR_UPDATE;
2673:
2674: l_old_line_tbl(J) := l_grp_line_tbl(I);
2715: END IF;
2716: END IF; -- Push group
2717: END IF; -- Return Status is error.
2718:
2719: OE_ORDER_SCH_UTIL.OESCH_PERFORM_GRP_SCHEDULING := 'Y';
2720: p_x_line_tbl := l_line_tbl;
2721: <
2722: null;
2723: IF l_debug_level > 0 THEN
2726:
2727: EXCEPTION
2728: WHEN FND_API.G_EXC_ERROR THEN
2729:
2730: OE_ORDER_SCH_UTIL.OESCH_PERFORM_GRP_SCHEDULING := 'Y';
2731: x_return_status := FND_API.G_RET_STS_ERROR;
2732:
2733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2734:
2732:
2733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2734:
2735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2736: OE_ORDER_SCH_UTIL.OESCH_PERFORM_GRP_SCHEDULING := 'Y';
2737:
2738: WHEN OTHERS THEN
2739:
2740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2737:
2738: WHEN OTHERS THEN
2739:
2740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2741: OE_ORDER_SCH_UTIL.OESCH_PERFORM_GRP_SCHEDULING := 'Y';
2742:
2743: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2744: THEN
2745: OE_MSG_PUB.Add_Exc_Msg
2835:
2836: -- If the action is unreserve, we should unreserve what is reserved
2837:
2838: IF l_line_tbl(1).schedule_action_code =
2839: OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE OR
2840: l_line_tbl(1).schedule_action_code =
2841: OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE THEN
2842:
2843: FOR J IN 1..l_line_tbl.count LOOP
2837:
2838: IF l_line_tbl(1).schedule_action_code =
2839: OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE OR
2840: l_line_tbl(1).schedule_action_code =
2841: OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE THEN
2842:
2843: FOR J IN 1..l_line_tbl.count LOOP
2844: IF l_old_line_tbl(J).reserved_quantity > 0 AND
2845: nvl(l_line_tbl(J).shipping_interfaced_flag, 'N') = 'N' THEN
2843: FOR J IN 1..l_line_tbl.count LOOP
2844: IF l_old_line_tbl(J).reserved_quantity > 0 AND
2845: nvl(l_line_tbl(J).shipping_interfaced_flag, 'N') = 'N' THEN
2846:
2847: /*OE_ORDER_SCH_UTIL.Unreserve_Line
2848: ( p_line_rec => l_old_line_tbl(J)
2849: , p_quantity_to_unreserve => l_old_line_tbl(J).reserved_quantity
2850: , x_return_status => l_return_status); */ -- INVCONV TO COPMPILE
2851:
2856: END IF;
2857: ELSE
2858: -- Added for Bug-2319081
2859: IF l_line_tbl(J).schedule_action_code =
2860: OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE
2861: AND nvl(l_line_tbl(J).shipping_interfaced_flag, 'N') = 'Y' THEN
2862:
2863: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNRSV_NOT_ALLOWED');
2864: OE_MSG_PUB.Add;
2866: END IF;
2867: END LOOP;
2868: l_out_line_tbl := l_line_tbl;
2869: IF l_line_tbl(1).schedule_action_code =
2870: OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE
2871: THEN
2872: -- To fix bug 1895086.
2873: l_schedule_action_code := l_line_tbl(1).schedule_action_code;
2874: goto end_processing;
2878: -- If the action is reschedule, we should unreserve what is reserved
2879: -- for the line before redemanding.
2880:
2881: IF l_line_tbl(1).schedule_action_code =
2882: OE_ORDER_SCH_UTIL.OESCH_ACT_RESCHEDULE THEN
2883: FOR J IN 1..l_line_tbl.count LOOP
2884:
2885: l_re_reserve_flag(j) := 'N';
2886: IF l_line_tbl(J).item_type_code <> OE_GLOBALS.G_ITEM_CONFIG AND
2892: -- Modified code to fix bug 1894284.
2893: IF NOT OE_GLOBALS.Equal(l_line_tbl(j).ship_from_org_id,
2894: l_old_line_tbl(j).ship_from_org_id) THEN
2895: IF l_old_line_tbl(J).reserved_quantity > 0 THEN
2896: /*OE_ORDER_SCH_UTIL.Unreserve_Line
2897: ( p_line_rec => l_old_line_tbl(J)
2898: , p_quantity_to_unreserve => l_old_line_tbl(J).reserved_quantity
2899: , x_return_status => l_return_status); */ -- INVCONV
2900:
2918:
2919: IF l_debug_level > 0 THEN
2920: oe_debug_pub.add( 'CALLING UNRESERVE FOR DIFFERENCE' , 1 ) ;
2921: END IF;
2922: /*OE_ORDER_SCH_UTIL.Unreserve_Line
2923: ( p_line_rec => l_line_tbl(J)
2924: , p_quantity_to_unreserve => l_line_tbl(J).reserved_quantity -
2925: l_line_tbl(j).ordered_quantity
2926: , x_return_status => l_return_status); */ -- INVCONV
2949: -- When User reserves the group lines without scheduling, changes the status to
2950: -- Schedule and call MRP and change the status back to reserve and call inv.
2951:
2952: IF l_line_tbl(1).schedule_action_code =
2953: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE
2954: AND l_line_tbl(1).schedule_status_code is null THEN
2955:
2956: IF l_debug_level > 0 THEN
2957: oe_debug_pub.add( ' GRP SCHEDULE ACTION IS : ' || L_SCHEDULE_ACTION_CODE , 1 ) ;
2959: l_reset_action := 'Y';
2960:
2961: FOR J IN 1..l_line_tbl.count LOOP
2962:
2963: l_line_tbl(j).schedule_action_code := OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE;
2964:
2965: END LOOP;
2966: END IF; -- Reserve.
2967:
2966: END IF; -- Reserve.
2967:
2968: -- Do not call scheduling is action is reserve and line already scheduled.
2969:
2970: IF l_schedule_action_code = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE
2971: AND l_line_tbl(1).schedule_status_code is NOT NULL
2972: THEN
2973:
2974: Null;
2974: Null;
2975:
2976: ELSE
2977:
2978: OE_ORDER_SCH_UTIL.Load_MRP_Request
2979: ( p_line_tbl => l_line_tbl
2980: , p_old_line_tbl => l_old_line_tbl
2981: , x_atp_table => l_mrp_atp_rec);
2982:
2985: END IF;
2986:
2987: -- Added if stmt to fix bug 2162690.
2988: IF l_mrp_atp_rec.error_code.count > 0 THEN
2989: l_session_id := OE_ORDER_SCH_UTIL.Get_Session_Id;
2990:
2991: IF l_debug_level > 0 THEN
2992: oe_debug_pub.add( 'CALLING MRPS ATP API ' || L_SESSION_ID , 1 ) ;
2993: END IF;
3014: IF l_debug_level > 0 THEN
3015: oe_debug_pub.add( 'GRP1: CALLING LOAD_RESULTS' , 1 ) ;
3016: END IF;
3017:
3018: OE_ORDER_SCH_UTIL.Load_Results
3019: ( p_atp_table => l_out_mtp_atp_rec
3020: , p_x_line_tbl => l_line_tbl
3021: , x_atp_tbl => l_out_atp_table
3022: , x_return_status => l_return_status);
3044: END IF;
3045:
3046:
3047: IF NOT OE_GLOBALS.Equal(l_schedule_action_code,
3048: OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK) AND
3049: NOT OE_GLOBALS.Equal(l_schedule_action_code,
3050: OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE) AND
3051: p_write_to_db = FND_API.G_TRUE THEN
3052:
3046:
3047: IF NOT OE_GLOBALS.Equal(l_schedule_action_code,
3048: OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK) AND
3049: NOT OE_GLOBALS.Equal(l_schedule_action_code,
3050: OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE) AND
3051: p_write_to_db = FND_API.G_TRUE THEN
3052:
3053: -- Turning off Perform Scheduling Flag Before calling
3054: -- this procedure since this procedure is calling Process Order
3053: -- Turning off Perform Scheduling Flag Before calling
3054: -- this procedure since this procedure is calling Process Order
3055: -- which in turn will call scheduling if this flag is not turned off.
3056:
3057: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
3058:
3059: IF l_debug_level > 0 THEN
3060: oe_debug_pub.add( 'L_LINE_TBL.SHIP_FROM_ORG_ID' || L_LINE_TBL ( 1 ) .SHIP_FROM_ORG_ID ) ;
3061: END IF;
3094: OE_SET_UTIL.g_set_recursive_flag := TRUE;
3095: IF l_out_line_tbl1.count >= 1 THEN
3096:
3097: IF l_debug_level > 0 THEN
3098: oe_debug_pub.add( 'NOW CALLING OE_ORDER_SCH_UTIL.UPDATE_LINE_RECORD' , 1 ) ;
3099: END IF;
3100:
3101: OE_ORDER_SCH_UTIL.Update_line_record
3102: ( p_line_tbl => l_old_line_tbl1
3097: IF l_debug_level > 0 THEN
3098: oe_debug_pub.add( 'NOW CALLING OE_ORDER_SCH_UTIL.UPDATE_LINE_RECORD' , 1 ) ;
3099: END IF;
3100:
3101: OE_ORDER_SCH_UTIL.Update_line_record
3102: ( p_line_tbl => l_old_line_tbl1
3103: , p_x_new_line_tbl => l_out_line_tbl1
3104: , p_write_to_db => p_write_to_db
3105: , p_recursive_call => FND_API.G_FALSE
3163: -- Fix for bug 2898623 ends
3164:
3165: -- Resetting the Flag Back
3166:
3167: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3168:
3169: END IF; -- Call po
3170:
3171: -- No reservation is required.
3170:
3171: -- No reservation is required.
3172: -- Modified if stmt and added atp_check to fix bug 1936990.
3173: IF l_line_tbl(1).schedule_action_code =
3174: OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
3175: l_line_tbl(1).schedule_action_code =
3176: OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK
3177:
3178: THEN
3172: -- Modified if stmt and added atp_check to fix bug 1936990.
3173: IF l_line_tbl(1).schedule_action_code =
3174: OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
3175: l_line_tbl(1).schedule_action_code =
3176: OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK
3177:
3178: THEN
3179: goto end_processing;
3180: END IF;
3213:
3214: IF l_reservable_type = 1 THEN
3215:
3216: l_schedule_level :=
3217: OE_ORDER_SCH_UTIL.Get_Scheduling_Level(l_line_tbl(j).header_id,
3218: l_line_tbl(j).line_type_id);
3219:
3220:
3221: IF l_debug_level > 0 THEN
3225: oe_debug_pub.add( 'QTY :' || L_LINE_TBL ( J ) .RESERVED_QUANTITY , 1 ) ;
3226: END IF;
3227:
3228: IF ((l_line_tbl(j).schedule_action_code =
3229: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE
3230: OR ((l_schedule_level = OE_ORDER_SCH_UTIL.SCH_LEVEL_THREE OR
3231: l_schedule_level is NULL) AND
3232: OE_ORDER_SCH_UTIL.Within_Rsv_Time_Fence
3233: (l_line_tbl(j).schedule_ship_date)))
3226: END IF;
3227:
3228: IF ((l_line_tbl(j).schedule_action_code =
3229: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE
3230: OR ((l_schedule_level = OE_ORDER_SCH_UTIL.SCH_LEVEL_THREE OR
3231: l_schedule_level is NULL) AND
3232: OE_ORDER_SCH_UTIL.Within_Rsv_Time_Fence
3233: (l_line_tbl(j).schedule_ship_date)))
3234: AND nvl(l_line_tbl(j).reserved_quantity,0) = 0)
3228: IF ((l_line_tbl(j).schedule_action_code =
3229: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE
3230: OR ((l_schedule_level = OE_ORDER_SCH_UTIL.SCH_LEVEL_THREE OR
3231: l_schedule_level is NULL) AND
3232: OE_ORDER_SCH_UTIL.Within_Rsv_Time_Fence
3233: (l_line_tbl(j).schedule_ship_date)))
3234: AND nvl(l_line_tbl(j).reserved_quantity,0) = 0)
3235:
3236: OR (l_line_tbl(j).schedule_action_code =
3233: (l_line_tbl(j).schedule_ship_date)))
3234: AND nvl(l_line_tbl(j).reserved_quantity,0) = 0)
3235:
3236: OR (l_line_tbl(j).schedule_action_code =
3237: OE_ORDER_SCH_UTIL.OESCH_ACT_RESCHEDULE AND
3238: Nvl(l_re_reserve_flag(j),'N') = 'Y')
3239: THEN
3240: --newsub check if item is under lot/revision/serial control
3241: IF l_line_tbl(j).subinventory is not null
3260: -- 2 == YES
3261: fnd_message.set_name('ONT', 'OE_SUBINV_NOT_ALLOWED');
3262: OE_MSG_PUB.Add;
3263: IF l_line_tbl(j).schedule_action_code =
3264: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE THEN
3265: l_return_status := FND_API.G_RET_STS_ERROR;
3266: RAISE FND_API.G_EXC_ERROR;
3267: ELSE
3268: -- We should not fail the transaction, if we are
3281: END IF;
3282:
3283: l_line_tbl(j).reserved_quantity := l_line_tbl(j).ordered_quantity;
3284:
3285: OE_ORDER_SCH_UTIL.Load_INV_Request
3286: ( p_line_rec => l_line_tbl(j)
3287: , p_quantity_to_reserve => l_line_tbl(j).ordered_quantity
3288: , x_reservation_rec => l_reservation_rec);
3289:
3316: -- Bug No:2097933
3317: -- If the Reservation was succesfull we set
3318: -- the package variable to "Y".
3319: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3320: OE_ORDER_SCH_UTIL.OESCH_PERFORMED_RESERVATION := 'Y';
3321: END IF;
3322:
3323: IF l_debug_level > 0 THEN
3324: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
3336:
3337: l_line_tbl(j).reserved_quantity := null;
3338:
3339: IF l_line_tbl(j).schedule_action_code =
3340: OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE
3341: THEN
3342: RAISE FND_API.G_EXC_ERROR;
3343:
3344: ELSE
3364:
3365: -- Adding code to fix bug 2126165.
3366:
3367: IF l_line_tbl(j).schedule_action_code =
3368: OE_ORDER_SCH_UTIL.OESCH_ACT_RESCHEDULE
3369: AND NOT OE_GLOBALS.Equal(l_line_tbl(j).schedule_ship_date,
3370: l_old_line_tbl(j).schedule_ship_date)
3371: AND l_old_line_tbl(j).reserved_quantity > 0
3372: AND l_old_line_tbl(j).reserved_quantity <> FND_API.G_MISS_NUM
3376:
3377: l_query_rsv_rec.reservation_id := fnd_api.g_miss_num;
3378:
3379: l_sales_order_id
3380: := OE_ORDER_SCH_UTIL.Get_mtl_sales_order_id(l_old_line_tbl(j).header_id);
3381: l_query_rsv_rec.demand_source_header_id := l_sales_order_id;
3382: l_query_rsv_rec.demand_source_line_id := l_old_line_tbl(j).line_id;
3383:
3384: -- 02-jun-2000 mpetrosi added org_id to query_reservation start
3473: -- Get the on-hand and available_to_reserve quantities if you are
3474: -- performing ATP.
3475:
3476: IF l_line_tbl(1).schedule_action_code =
3477: OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
3478:
3479: FOR K IN 1..l_out_atp_table.count LOOP
3480:
3481: IF l_debug_level > 0 THEN
3485: -- added fabdi 03/May/2001
3486: -- added p_line_id - AS DEFAULT for process atp to work
3487:
3488: -- passing additional parameter p_sch_date to fix bug 2111470.
3489: /*OE_ORDER_SCH_UTIL.Query_Qty_Tree -- INVCONV - COMMENTED OUT FOR COMPILES
3490:
3491: (p_org_id => l_out_atp_table(K).ship_from_org_id,
3492: p_item_id => l_out_atp_table(K).inventory_item_id,
3493: p_line_id => l_out_atp_table(K).line_id,
3568: oe_debug_pub.add('----- After Printing OUT Table -----',1);
3569: oe_debug_pub.add(' ',1);
3570:
3571: IF NOT OE_GLOBALS.Equal(l_schedule_action_code,
3572: OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK) AND
3573: NOT OE_GLOBALS.Equal(l_schedule_action_code,
3574: OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE) AND
3575: p_write_to_db = FND_API.G_TRUE THEN
3576:
3570:
3571: IF NOT OE_GLOBALS.Equal(l_schedule_action_code,
3572: OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK) AND
3573: NOT OE_GLOBALS.Equal(l_schedule_action_code,
3574: OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE) AND
3575: p_write_to_db = FND_API.G_TRUE THEN
3576:
3577: -- Turning off Perform Scheduling Flag Before calling
3578: -- this procedure since this procedure is calling Process Order
3577: -- Turning off Perform Scheduling Flag Before calling
3578: -- this procedure since this procedure is calling Process Order
3579: -- which in turn will call scheduling if this flag is not turned off.
3580:
3581: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
3582:
3583: oe_debug_pub.add('l_line_tbl.ship_from_org_id' ||
3584: l_line_tbl(1).ship_from_org_id);
3585: oe_debug_pub.add('l_line_tbl.schedule_ship_date' ||
3613:
3614: OE_SET_UTIL.g_set_recursive_flag := TRUE;
3615: IF l_out_line_tbl1.count >= 1 THEN
3616:
3617: oe_debug_pub.add('Now Calling OE_ORDER_SCH_UTIL.Update_line_record',1);
3618:
3619: OE_ORDER_SCH_UTIL.Update_line_record
3620: ( p_line_tbl => l_old_line_tbl1
3621: , p_x_new_line_tbl => l_out_line_tbl1
3615: IF l_out_line_tbl1.count >= 1 THEN
3616:
3617: oe_debug_pub.add('Now Calling OE_ORDER_SCH_UTIL.Update_line_record',1);
3618:
3619: OE_ORDER_SCH_UTIL.Update_line_record
3620: ( p_line_tbl => l_old_line_tbl1
3621: , p_x_new_line_tbl => l_out_line_tbl1
3622: , p_write_to_db => p_write_to_db
3623: , p_recursive_call => FND_API.G_FALSE
3660:
3661: p_x_line_tbl := l_out_line_tbl1;
3662: -- Resetting the Flag Back
3663:
3664: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3665:
3666:
3667: ELSE
3668: oe_debug_pub.add('Assigning l_out_table to x_line_tbl',1);
3829: -- Currently, we do not allow unscheduling a line, if it belongs
3830: -- to a user defined set (ship or arrival set).
3831:
3832: IF (p_group_req_rec.entity_type =
3833: OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET) OR
3834: (p_group_req_rec.entity_type =
3835: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ARRIVAL_SET) THEN
3836:
3837: IF (p_group_req_rec.action =
3831:
3832: IF (p_group_req_rec.entity_type =
3833: OE_ORDER_SCH_UTIL.OESCH_ENTITY_SHIP_SET) OR
3834: (p_group_req_rec.entity_type =
3835: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ARRIVAL_SET) THEN
3836:
3837: IF (p_group_req_rec.action =
3838: OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE ) OR
3839: (p_group_req_rec.action =
3834: (p_group_req_rec.entity_type =
3835: OE_ORDER_SCH_UTIL.OESCH_ENTITY_ARRIVAL_SET) THEN
3836:
3837: IF (p_group_req_rec.action =
3838: OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE ) OR
3839: (p_group_req_rec.action =
3840: OE_ORDER_SCH_UTIL.OESCH_ACT_UNDEMAND ) THEN
3841:
3842: -- You cannot unschedule a set. This is an invalid action on
3836:
3837: IF (p_group_req_rec.action =
3838: OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE ) OR
3839: (p_group_req_rec.action =
3840: OE_ORDER_SCH_UTIL.OESCH_ACT_UNDEMAND ) THEN
3841:
3842: -- You cannot unschedule a set. This is an invalid action on
3843: -- the group.
3844:
3978: oe_debug_pub.add( 'ACTION IS: ' || P_ACTION , 1 ) ;
3979: END IF;
3980:
3981: /* Bug :2222360 */
3982: IF p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
3983: IF l_debug_level > 0 THEN
3984: oe_debug_pub.add( 'INSIDE ATP CHECK SAVEPOINT' ) ;
3985: END IF;
3986: SAVEPOINT ATP_CHECK;
4114:
4115: l_line_rec := l_line_tbl(line_index);
4116: l_old_line_rec := l_line_rec;
4117:
4118: IF p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
4119: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
4120: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
4121: (p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE AND
4122: l_line_rec.schedule_status_code is null) THEN
4115: l_line_rec := l_line_tbl(line_index);
4116: l_old_line_rec := l_line_rec;
4117:
4118: IF p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
4119: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
4120: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
4121: (p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE AND
4122: l_line_rec.schedule_status_code is null) THEN
4123:
4116: l_old_line_rec := l_line_rec;
4117:
4118: IF p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
4119: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
4120: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
4121: (p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE AND
4122: l_line_rec.schedule_status_code is null) THEN
4123:
4124: -- We want to skip a line belonging to a set only if the action
4117:
4118: IF p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
4119: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
4120: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
4121: (p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE AND
4122: l_line_rec.schedule_status_code is null) THEN
4123:
4124: -- We want to skip a line belonging to a set only if the action
4125: -- is SCHEDULE,ATP or UNSCHEDULE. We do not want to skip if the
4216: (l_line_rec.ato_line_id is not null AND
4217: NOT (l_line_rec.line_id = l_line_rec.ato_line_id AND
4218: l_line_rec.item_type_code IN( OE_GLOBALS.G_ITEM_STANDARD,
4219: OE_GLOBALS.G_ITEM_OPTION)))) AND
4220: (p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
4221: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
4222: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
4223: ((p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE OR
4224: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE ) AND
4217: NOT (l_line_rec.line_id = l_line_rec.ato_line_id AND
4218: l_line_rec.item_type_code IN( OE_GLOBALS.G_ITEM_STANDARD,
4219: OE_GLOBALS.G_ITEM_OPTION)))) AND
4220: (p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
4221: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
4222: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
4223: ((p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE OR
4224: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE ) AND
4225: l_line_rec.ship_model_complete_flag = 'Y'))
4218: l_line_rec.item_type_code IN( OE_GLOBALS.G_ITEM_STANDARD,
4219: OE_GLOBALS.G_ITEM_OPTION)))) AND
4220: (p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
4221: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
4222: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
4223: ((p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE OR
4224: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE ) AND
4225: l_line_rec.ship_model_complete_flag = 'Y'))
4226: THEN
4219: OE_GLOBALS.G_ITEM_OPTION)))) AND
4220: (p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
4221: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
4222: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
4223: ((p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE OR
4224: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE ) AND
4225: l_line_rec.ship_model_complete_flag = 'Y'))
4226: THEN
4227:
4220: (p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_SCHEDULE OR
4221: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNSCHEDULE OR
4222: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK OR
4223: ((p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE OR
4224: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE ) AND
4225: l_line_rec.ship_model_complete_flag = 'Y'))
4226: THEN
4227:
4228: IF l_debug_level > 0 THEN
4233: IF l_debug_level > 0 THEN
4234: oe_debug_pub.add( 'SM: CREATING GROUP_REQUEST' , 1 ) ;
4235: END IF;
4236:
4237: OE_ORDER_SCH_UTIL.Create_Group_Request
4238: ( p_line_rec => l_line_rec
4239: , p_old_line_rec => l_line_rec
4240: , x_group_req_rec => l_group_req_rec
4241: , x_return_status => l_return_status
4241: , x_return_status => l_return_status
4242: );
4243:
4244: /* Bug 2270426 */
4245: IF (p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE OR
4246: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE)
4247: AND l_line_rec.ship_model_complete_flag = 'Y'
4248: AND (l_line_rec.arrival_set_id is not null OR
4249: l_line_rec.ship_set_id is not null) THEN
4242: );
4243:
4244: /* Bug 2270426 */
4245: IF (p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_RESERVE OR
4246: p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_UNRESERVE)
4247: AND l_line_rec.ship_model_complete_flag = 'Y'
4248: AND (l_line_rec.arrival_set_id is not null OR
4249: l_line_rec.ship_set_id is not null) THEN
4250:
4250:
4251: IF l_debug_level > 0 THEN
4252: oe_debug_pub.add( 'INSIDE RESERVE , SMC AND SET' ) ;
4253: END IF;
4254: l_group_req_rec.entity_type := OE_ORDER_SCH_UTIL.OESCH_ENTITY_SMC;
4255: l_group_req_rec.ship_set_number := l_line_rec.top_model_line_id;
4256:
4257: END IF;
4258:
4309: IF l_debug_level > 0 THEN
4310: oe_debug_pub.add( 'GRP2: CALLING SCHEDULE LINE' , 1 ) ;
4311: END IF;
4312:
4313: OE_ORDER_SCH_UTIL.Schedule_line
4314: ( p_old_line_rec => l_old_line_rec
4315: ,p_write_to_db => FND_API.G_TRUE
4316: ,p_x_line_rec => l_line_rec
4317: ,x_atp_tbl => l_out_atp_tbl
4380: , p_data => x_msg_data
4381: );
4382:
4383: /* Bug :2222360 */
4384: IF p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
4385: IF l_debug_level > 0 THEN
4386: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
4387: END IF;
4388: ROLLBACK TO ATP_CHECK;
4400:
4401: x_return_status := FND_API.G_RET_STS_ERROR;
4402:
4403: /* Bug :2222360 */
4404: IF p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
4405: IF l_debug_level > 0 THEN
4406: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
4407: END IF;
4408: ROLLBACK TO ATP_CHECK;
4424:
4425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4426:
4427: /* Bug :2222360 */
4428: IF p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
4429: IF l_debug_level > 0 THEN
4430: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
4431: END IF;
4432: ROLLBACK TO ATP_CHECK;
4447:
4448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4449:
4450: /* Bug :2222360 */
4451: IF p_action = OE_ORDER_SCH_UTIL.OESCH_ACT_ATP_CHECK THEN
4452: IF l_debug_level > 0 THEN
4453: oe_debug_pub.add( 'INSIDE ATP CHECK ROLLBACK' ) ;
4454: END IF;
4455: ROLLBACK TO ATP_CHECK;