The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT RESERVABLE_TYPE
INTO l_reservable_type
FROM MTL_SYSTEM_ITEMS
WHERE INVENTORY_ITEM_ID = l_line_tbl(l_reservation_tbl(I).line_index).inventory_item_id
AND ORGANIZATION_ID = l_line_tbl(l_reservation_tbl(I).line_index).ship_from_org_id;
IF l_reservation_tbl(I).operation in ('CREATE', 'INSERT') AND
l_qty_to_reserve-l_reservation_tbl(I).quantity >= 0
THEN
IF(nvl(l_line_tbl(l_reservation_tbl(I).line_index).shippable_flag, 'N') = 'Y' and l_reservable_type =1) THEN
IF l_debug_level > 0 THEN
oe_debug_pub.add( 'BEFORE CALLING CREATE_RESERVATION' ) ;
PROCEDURE Delete_Reservation (
p_rsv IN INV_RESERVATION_GLOBAL.MTL_RESERVATION_REC_TYPE
,p_msg_count OUT NOCOPY NUMBER
,p_msg_data OUT NOCOPY VARCHAR2
,p_return_status OUT NOCOPY VARCHAR2
)
IS
l_rsv INV_RESERVATION_GLOBAL.MTL_RESERVATION_REC_TYPE :=p_rsv;
oe_debug_pub.add( 'BEFORE CALLING DELETE RESERVATIONS API' ) ;
INV_RESERVATION_PUB.Delete_Reservation (
p_api_version_number => 1.0
,p_init_msg_lst => FND_API.G_TRUE
,p_rsv_rec => l_rsv
,p_serial_number => l_dummy_sn
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,x_return_status => l_return_status
);
oe_debug_pub.add( 'RESERVATION DELETED' ) ;
oe_debug_pub.add( 'UNEXPECTED ERROR IN DELETE_RESERVATION: '||SQLERRM ) ;
OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Delete_Reservation');
END Delete_Reservation;