The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure Update_reservation(p_index IN NUMBER,
x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2);
Procedure Update_Scheduling_Results
(p_x_sch_tbl IN OUT NOCOPY sch_tbl_type,
p_request_id IN Number,
x_return_status OUT NOCOPY Varchar2)
IS
l_old_org_id Number := -99;
SELECT ol.line_id,
ol.inventory_item_id,
ol.ordered_quantity
FROM oe_order_lines_all ol
WHERE ship_set_id=p_ship_set;
SELECT ol.line_id ,
ol.inventory_item_id,
ol.ordered_quantity
FROM oe_order_lines_all ol
WHERE arrival_set_id=p_arrival_set;
oe_debug_pub.add('Entering oe_schedule_grp.update_scheduling_results' || p_x_sch_tbl.count ,1);
SELECT ship_set_id, arrival_set_id
INTO l_ship_set_id, l_arrival_set_id
FROM oe_order_lines_all
WHERE line_id=p_x_sch_tbl(I).line_id;
g_sch_tbl.delete;
oe_debug_pub.add('Exiting oe_schedule_grp.update_scheduling_results' ||
x_return_status,1);
, 'update_scheduling_results'
);
END Update_Scheduling_Results;
OE_Schedule_GRP.G_ISO_Planning_Update := FALSE;
SELECT shippable_item_flag
INTO l_shippable_flag
FROM MTL_SYSTEM_ITEMS
WHERE INVENTORY_ITEM_ID = g_sch_tbl(I).inventory_item_id
AND ORGANIZATION_ID = nvl(g_sch_tbl(I).ship_from_org_id, l_line_rec.ship_from_org_id);
g_line_tbl(l_count).operation := OE_GLOBALS.G_OPR_UPDATE;
l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
g_line_tbl(J).change_comments := 'ASCP UPDATE';
OE_Schedule_GRP.G_ISO_Planning_Update := TRUE;
oe_debug_pub.add(' Setting global OE_Schedule_GRP.G_ISO_Planning_Update to TRUE',5);
OE_Config_Pvt.OE_MODIFY_INC_ITEMS_TBL.DELETE;
OE_Schedule_GRP.G_ISO_Planning_Update := FALSE;
oe_debug_pub.add(' Setting global OE_Schedule_GRP.G_ISO_Planning_Update to FALSE',5);
Update_reservation(p_index => I,
x_return_status => l_return_status);
g_line_tbl.delete;
g_old_line_tbl.delete;
OE_Schedule_GRP.G_ISO_Planning_Update := FALSE;
g_line_tbl.delete;
g_old_line_tbl.delete;
OE_Schedule_GRP.G_ISO_Planning_Update := FALSE;
g_line_tbl.delete;
g_old_line_tbl.delete;
OE_Schedule_GRP.G_ISO_Planning_Update := FALSE;
g_line_tbl.delete;
g_old_line_tbl.delete;
FND_MESSAGE.SET_NAME('ONT', 'ONT_SCH_LOOP_CANT_UPDATE');
Select line_id,ato_line_id,item_type_code
From oe_order_lines_all
Where ship_set_id = p_ship_set_id;
Select line_id,ato_line_id,item_type_code
From oe_order_lines_all
Where arrival_set_id = p_arrival_set_id;
Select line_id,ato_line_id,item_type_code
From oe_order_lines_all
Where top_model_line_id = p_top_model_line_id;
Procedure Update_reservation(p_index IN NUMBER,
x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
IS
BEGIN
IF (NOT OE_GLOBALS.Equal(g_line_tbl(p_index).ship_from_org_id,
g_old_line_tbl(p_index).ship_from_org_id))
OR ( NOT OE_GLOBALS.Equal(g_line_tbl(p_index).inventory_item_id, g_old_line_tbl(p_index).inventory_item_id)
AND nvl(g_line_tbl(p_index).booked_flag, 'N') = 'N'
) -- OR clause added for ER 6110708
THEN
OE_SCHEDULE_UTIL.Unreserve_Line
(p_line_rec => g_old_line_tbl(p_index),
p_quantity_to_unreserve => g_old_line_tbl(p_index).reserved_quantity,
p_quantity2_to_unreserve => g_old_line_tbl(p_index).reserved_quantity2,-- --bug 16434168/16480604
x_return_status => x_return_status);
OE_CONFIG_SCHEDULE_PVT.Update_Reservation
( p_line_rec => g_line_tbl(p_index)
,p_old_line_rec => g_old_line_tbl(p_index)
,x_return_status => x_return_status);
END Update_Reservation;