The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'x'
FROM wms_xdock_source_assignments wxsa
WHERE wxsa.criterion_id = p_crt_id
AND wxsa.source_code = p_src_cd
AND wxsa.source_type = p_src_tp;
SELECT 'x'
FROM oe_order_lines_all oola
WHERE oola.line_id = p_line_id
AND oola.booked_flag = 'Y'
AND oola.open_flag = 'Y';
SELECT wdd.delivery_detail_id
, wdd.released_status
, wdd.requested_quantity
, wdd.requested_quantity_uom
, wdd.requested_quantity2
, wdd.requested_quantity_uom2
FROM wsh_delivery_details wdd
WHERE wdd.delivery_detail_id = p_delivery_detail_id
FOR UPDATE NOWAIT;
IF p_action_code = 'UPDATE'
THEN
-- {
-- Calculate the WDD quantity to split off
l_new_wdd_qty := l_wdd_rec.requested_quantity
* (p_orig_rsv_rec.primary_reservation_quantity
- p_new_rsv_rec.primary_reservation_quantity)
/ p_orig_rsv_rec.primary_reservation_quantity;
END IF; -- end IF action is UPDATE
IF p_action_code IN ('UPDATE','DELETE')
THEN
-- {
-- Update the released_status to 'R' for the new WDD record
l_detail_info_tab(1).delivery_detail_id := l_delivery_detail_id;
l_in_rec.action_code := 'UPDATE';
WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail
( p_api_version_number => 1.0
, p_init_msg_list => fnd_api.g_false
, p_commit => fnd_api.g_false
, x_return_status => l_api_return_status
, x_msg_count => l_msg_count
, x_msg_data => l_msg_data
, p_detail_info_tab => l_detail_info_tab
, p_in_rec => l_in_rec
, x_out_rec => l_out_rec
);
( 'Error status from WSH_INTERFACE_GRP.Create_Update_Delivery_Detail: '
|| l_api_return_status
, l_api_name
);
print_debug('Successfully updated the WDD record to status ''R''', l_api_name);
END IF; -- end IF ok to update WDD status to 'R'
PROCEDURE update_crossdock_reservation
( x_return_status OUT NOCOPY VARCHAR2
, p_orig_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
, p_new_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
) IS
l_api_name VARCHAR2(30);
l_api_name := 'update_crossdock_reservation';
SAVEPOINT wmsxdutb_update_sp;
delete_crossdock_reservation
( x_return_status => l_api_return_status
, p_rsv_rec => p_orig_rsv_rec
);
( 'Error status from delete_crossdock_reservation: '
|| l_api_return_status
, l_api_name
);
print_debug('Successfully processed delete rsv', l_api_name);
, p_action_code => 'UPDATE'
);
ROLLBACK TO wmsxdutb_update_sp;
ROLLBACK TO wmsxdutb_update_sp;
END update_crossdock_reservation;
PROCEDURE delete_crossdock_reservation
( x_return_status OUT NOCOPY VARCHAR2
, p_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
) IS
l_api_name VARCHAR2(30);
l_api_name := 'delete_crossdock_reservation';
SAVEPOINT wmsxdutb_delete_sp;
, p_action_code => 'DELETE'
);
ROLLBACK TO wmsxdutb_delete_sp;
ROLLBACK TO wmsxdutb_delete_sp;
END delete_crossdock_reservation;