The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* program as well as updated in table "wms_dock_appointments_b" for the trip stop in question. */
/****************************************************************************************************/
FUNCTION get_available_staginglane(
x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, p_trip_stop IN NUMBER
, p_dock_id IN NUMBER)
RETURN NUMBER
IS
CURSOR get_stglanes_for_dkdr_cur IS
SELECT stage_lane_id
FROM wms_staginglanes_assignments
WHERE dock_door_id = p_dock_id
AND enabled = 'Y'
-- Bug# 4612553: Available staging lanes should be ordered by the number entry sequence
ORDER BY entry_sequence;
update_staging_lane_id( x_return_status
, x_msg_count
, x_msg_data
, l_cur_staging_lane_id
, p_trip_stop
, p_dock_id);
update_staging_lane_id( x_return_status
, x_msg_count
, x_msg_data
, x_staging_lane_id
, p_trip_stop
, p_dock_id);
trace('the status returned from update staging lane id is ' || x_return_status);
trace('Before select in FUNCTION check_if_stagelane_assigned');
SELECT 1 into l_dummy
FROM DUAL WHERE EXISTS (SELECT staging_lane_id
FROM wms_dock_appointments_b
WHERE staging_lane_id = p_stg_lane_id
and end_time>=sysdate);
update_staging_lane_id( x_return_status
, x_msg_count
, x_msg_data
, p_stg_lane_id
, p_trip_stop
, p_dock_id);
SELECT staging_lane_id, to_char(end_time, 'DD-MON-YY HH:MI:SS')
INTO x_stage_id, l_date_end_time
FROM wms_dock_appointments_b
WHERE end_time = (SELECT min(end_time)
FROM wms_dock_appointments_b
WHERE dock_id = p_dock_id
AND staging_lane_id is not NULL
AND end_time>=sysdate)
AND staging_lane_id is not NULL
AND rownum = 1
AND dock_id=p_dock_id;
-- the future. Also the staging lane selected was not limited to
-- the same dock door
IF (l_debug = 1) THEN
trace('FUNCTION get_earliest_available_stglane - Stage lane id selected = ' || x_stage_id);
trace('Before select in FUNCTION check_dockdoor_tripstop_exists trip stop = ' || p_trip_stop);
SELECT nvl(dock_id,0), nvl(staging_lane_id ,0)
INTO x_dock_id, x_staging_lane_id
FROM wms_dock_appointments_b
WHERE trip_stop = p_trip_stop
and end_time = (SELECT min(end_time)
FROM wms_dock_appointments_b
WHERE trip_stop = p_trip_stop
and end_time >= sysdate)
and rownum = 1;
PROCEDURE update_staging_lane_id(
x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, p_stage_lane_id IN NUMBER
, p_trip_stop IN NUMBER
, p_dock_id IN NUMBER)
IS
l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
SAVEPOINT update_dock_sp;
trace('Before update PROCEDURE update_staging_lane_id = ' || p_stage_lane_id);
trace('Before update PROCEDURE update_staging_lane_id = ' || p_trip_stop);
trace('Before update PROCEDURE update_staging_lane_id = ' || p_dock_id);
UPDATE wms_dock_appointments_b
SET
STAGING_LANE_ID = p_stage_lane_id,
LAST_UPDATED_BY = 1,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATE_LOGIN = 1
WHERE DOCK_ID = p_dock_id
AND TRIP_STOP = p_trip_stop;
trace('After update PROCEDURE update_staging_lane_id');
ROLLBACK TO update_dock_sp;
FND_MESSAGE.SET_NAME('WMS', 'WMS_DOCK_UPDATE_FAIL');
END update_staging_lane_id;
trace('Before select in FUNCTION get_subinventory_code Staging lane = '||p_staging_lane_id);
SELECT subinventory_code
INTO l_sub_code
FROM mtl_item_locations
WHERE INVENTORY_LOCATION_ID = p_staging_lane_id
AND ORGANIZATION_ID = p_org_id;