The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT trip_stop
INTO l_trip_stop
FROM wms_dock_appointments_b
WHERE dock_id = p_dock_locator_id
AND appointment_status = 2 -- occupied
AND start_time <= Sysdate
AND end_time >= Sysdate;
PROCEDURE update_dock_appointment
(
x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
p_dock_appointments_v_rec IN wms_dock_appointments_v%ROWTYPE
)
IS
BEGIN
SAVEPOINT update_dock_sp;
UPDATE wms_dock_appointments_b
SET
APPOINTMENT_TYPE = p_dock_appointments_v_rec.APPOINTMENT_TYPE,
DOCK_ID = p_dock_appointments_v_rec.DOCK_ID,
ORGANIZATION_ID = p_dock_appointments_v_rec.ORGANIZATION_ID,
START_TIME = p_dock_appointments_v_rec.START_TIME,
END_TIME = p_dock_appointments_v_rec.END_TIME,
CARRIER_CODE = p_dock_appointments_v_rec.CARRIER_CODE,
TRIP_STOP = p_dock_appointments_v_rec.TRIP_STOP,
SOURCE_TYPE = p_dock_appointments_v_rec.SOURCE_TYPE,
SOURCE_HEADER_ID = p_dock_appointments_v_rec.SOURCE_HEADER_ID,
SOURCE_LINE_ID = p_dock_appointments_v_rec.SOURCE_LINE_ID,
CREATED_BY = p_dock_appointments_v_rec.CREATED_BY,
CREATION_DATE = p_dock_appointments_v_rec.CREATION_DATE,
LAST_UPDATED_BY = p_dock_appointments_v_rec.LAST_UPDATED_BY,
LAST_UPDATE_DATE = p_dock_appointments_v_rec.LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN = p_dock_appointments_v_rec.LAST_UPDATE_LOGIN
WHERE
DOCK_APPOINTMENT_ID = p_dock_appointments_v_rec.DOCK_APPOINTMENT_ID;
UPDATE wms_dock_appointments_tl
SET
SUBJECT = p_dock_appointments_v_rec.SUBJECT,
DESCRIPTION = p_dock_appointments_v_rec.DESCRIPTION,
SOURCE_LANG = USERENV('LANG'),
CREATED_BY = p_dock_appointments_v_rec.CREATED_BY,
CREATION_DATE = p_dock_appointments_v_rec.CREATION_DATE,
LAST_UPDATED_BY = p_dock_appointments_v_rec.LAST_UPDATED_BY,
LAST_UPDATE_DATE = p_dock_appointments_v_rec.LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN = p_dock_appointments_v_rec.LAST_UPDATE_LOGIN
WHERE
DOCK_APPOINTMENT_ID = p_dock_appointments_v_rec.dock_appointment_id
AND userenv('LANG') in (LANGUAGE, SOURCE_LANG);
ROLLBACK TO update_dock_sp;
FND_MESSAGE.SET_NAME('WMS', 'WMS_DOCK_UPDATE_FAIL');
END update_dock_appointment;
PROCEDURE update_rep_appointments
(
x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
p_orig_id IN NUMBER,
p_dock_appointments_v_rec IN wms_dock_appointments_v%ROWTYPE
)
IS
BEGIN
SAVEPOINT update_rep_dock_sp;
UPDATE wms_dock_appointments_b
SET
APPOINTMENT_TYPE = p_dock_appointments_v_rec.APPOINTMENT_TYPE,
DOCK_ID = p_dock_appointments_v_rec.DOCK_ID,
ORGANIZATION_ID = p_dock_appointments_v_rec.ORGANIZATION_ID,
START_TIME = trunc(start_time) + (p_dock_appointments_v_rec.START_TIME - trunc(p_dock_appointments_v_rec.START_TIME)),
END_TIME = trunc(end_time) + (p_dock_appointments_v_rec.END_TIME - trunc(p_dock_appointments_v_rec.END_TIME)),
CARRIER_CODE = p_dock_appointments_v_rec.CARRIER_CODE,
TRIP_STOP = p_dock_appointments_v_rec.TRIP_STOP,
SOURCE_TYPE = p_dock_appointments_v_rec.SOURCE_TYPE,
SOURCE_HEADER_ID = p_dock_appointments_v_rec.SOURCE_HEADER_ID,
SOURCE_LINE_ID = p_dock_appointments_v_rec.SOURCE_LINE_ID,
CREATED_BY = p_dock_appointments_v_rec.CREATED_BY,
CREATION_DATE = p_dock_appointments_v_rec.CREATION_DATE,
LAST_UPDATED_BY = p_dock_appointments_v_rec.LAST_UPDATED_BY,
LAST_UPDATE_DATE = p_dock_appointments_v_rec.LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN = p_dock_appointments_v_rec.LAST_UPDATE_LOGIN
WHERE
REP_ORIGIN = p_orig_id;
UPDATE wms_dock_appointments_tl
SET
SUBJECT = p_dock_appointments_v_rec.SUBJECT,
DESCRIPTION = p_dock_appointments_v_rec.DESCRIPTION,
SOURCE_LANG = USERENV('LANG'),
CREATED_BY = p_dock_appointments_v_rec.CREATED_BY,
CREATION_DATE = p_dock_appointments_v_rec.CREATION_DATE,
LAST_UPDATED_BY = p_dock_appointments_v_rec.LAST_UPDATED_BY,
LAST_UPDATE_DATE = p_dock_appointments_v_rec.LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN = p_dock_appointments_v_rec.LAST_UPDATE_LOGIN
WHERE
DOCK_APPOINTMENT_ID IN
(SELECT dock_appointment_id
FROM wms_dock_appointments_b
WHERE REP_ORIGIN = p_orig_id)
AND userenv('LANG') in (LANGUAGE, SOURCE_LANG);
ROLLBACK TO update_rep_dock_sp;
FND_MESSAGE.SET_NAME('WMS', 'WMS_DOCK_UPDATE_REP_FAIL');
END update_rep_appointments;
PROCEDURE insert_dock_appointment
(
x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
, x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, p_dock_appointments_v_rec IN wms_dock_appointments_v%ROWTYPE
)
IS
BEGIN
SAVEPOINT insert_dock_sp;
INSERT INTO wms_dock_appointments_b
(DOCK_APPOINTMENT_ID,
APPOINTMENT_TYPE,
DOCK_ID,
ORGANIZATION_ID,
START_TIME,
END_TIME,
CARRIER_CODE,
TRIP_STOP,
SOURCE_TYPE,
SOURCE_HEADER_ID,
SOURCE_LINE_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
REP_FREQUENCY,
REP_START_DATE,
REP_END_DATE,
REP_ORIGIN,
APPOINTMENT_STATUS)
VALUES
(p_dock_appointments_v_rec.DOCK_APPOINTMENT_ID,
p_dock_appointments_v_rec.APPOINTMENT_TYPE,
p_dock_appointments_v_rec.DOCK_ID,
p_dock_appointments_v_rec.ORGANIZATION_ID,
p_dock_appointments_v_rec.START_TIME,
p_dock_appointments_v_rec.END_TIME,
p_dock_appointments_v_rec.CARRIER_CODE,
p_dock_appointments_v_rec.TRIP_STOP,
p_dock_appointments_v_rec.SOURCE_TYPE,
p_dock_appointments_v_rec.SOURCE_HEADER_ID,
p_dock_appointments_v_rec.SOURCE_LINE_ID,
p_dock_appointments_v_rec.CREATED_BY,
p_dock_appointments_v_rec.CREATION_DATE,
p_dock_appointments_v_rec.LAST_UPDATED_BY,
p_dock_appointments_v_rec.LAST_UPDATE_DATE,
p_dock_appointments_v_rec.LAST_UPDATE_LOGIN,
p_dock_appointments_v_rec.REP_FREQUENCY,
p_dock_appointments_v_rec.REP_START_DATE,
p_dock_appointments_v_rec.REP_END_DATE,
p_dock_appointments_v_rec.DOCK_APPOINTMENT_ID,
p_dock_appointments_v_rec.APPOINTMENT_STATUS);
INSERT INTO wms_dock_appointments_tl
(DOCK_APPOINTMENT_ID,
SUBJECT,
DESCRIPTION,
LANGUAGE,
SOURCE_LANG,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN)
SELECT
p_dock_appointments_v_rec.DOCK_APPOINTMENT_ID,
p_dock_appointments_v_rec.SUBJECT,
p_dock_appointments_v_rec.DESCRIPTION,
l.language_code,
USERENV('LANG'),
p_dock_appointments_v_rec.CREATED_BY,
p_dock_appointments_v_rec.CREATION_DATE,
p_dock_appointments_v_rec.LAST_UPDATED_BY,
p_dock_appointments_v_rec.LAST_UPDATE_DATE,
p_dock_appointments_v_rec.LAST_UPDATE_LOGIN
FROM fnd_languages l
WHERE l.installed_flag IN ('I', 'B')
AND NOT exists
(SELECT NULL
FROM wms_dock_appointments_tl t
WHERE t.dock_appointment_id = p_dock_appointments_v_rec.dock_appointment_id
AND t.language = l.language_code);
ROLLBACK TO insert_dock_sp;
FND_MESSAGE.SET_NAME('WMS', 'WMS_DOCK_INSERT_FAIL');
END insert_dock_appointment;
PROCEDURE insert_rep_dock_appointments
(
x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
, x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, p_rep_orig_id IN NUMBER
, p_dock_appointments_v_rec IN wms_dock_appointments_v%ROWTYPE
)
IS
BEGIN
SAVEPOINT insert_rep_dock_sp;
INSERT INTO wms_dock_appointments_b
(DOCK_APPOINTMENT_ID,
APPOINTMENT_TYPE,
DOCK_ID,
ORGANIZATION_ID,
START_TIME,
END_TIME,
CARRIER_CODE,
TRIP_STOP,
SOURCE_TYPE,
SOURCE_HEADER_ID,
SOURCE_LINE_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
REP_FREQUENCY,
REP_START_DATE,
REP_END_DATE,
REP_ORIGIN,
APPOINTMENT_STATUS)
VALUES
(p_dock_appointments_v_rec.DOCK_APPOINTMENT_ID,
p_dock_appointments_v_rec.APPOINTMENT_TYPE,
p_dock_appointments_v_rec.DOCK_ID,
p_dock_appointments_v_rec.ORGANIZATION_ID,
p_dock_appointments_v_rec.START_TIME,
p_dock_appointments_v_rec.END_TIME,
p_dock_appointments_v_rec.CARRIER_CODE,
p_dock_appointments_v_rec.TRIP_STOP,
p_dock_appointments_v_rec.SOURCE_TYPE,
p_dock_appointments_v_rec.SOURCE_HEADER_ID,
p_dock_appointments_v_rec.SOURCE_LINE_ID,
p_dock_appointments_v_rec.CREATED_BY,
p_dock_appointments_v_rec.CREATION_DATE,
p_dock_appointments_v_rec.LAST_UPDATED_BY,
p_dock_appointments_v_rec.LAST_UPDATE_DATE,
p_dock_appointments_v_rec.LAST_UPDATE_LOGIN,
p_dock_appointments_v_rec.REP_FREQUENCY,
p_dock_appointments_v_rec.REP_START_DATE,
p_dock_appointments_v_rec.REP_END_DATE,
p_rep_orig_id,
p_dock_appointments_v_rec.APPOINTMENT_STATUS);
INSERT INTO wms_dock_appointments_tl
(DOCK_APPOINTMENT_ID,
SUBJECT,
DESCRIPTION,
LANGUAGE,
SOURCE_LANG,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN)
SELECT
p_dock_appointments_v_rec.DOCK_APPOINTMENT_ID,
p_dock_appointments_v_rec.SUBJECT,
p_dock_appointments_v_rec.DESCRIPTION,
l.language_code,
USERENV('LANG'),
p_dock_appointments_v_rec.CREATED_BY,
p_dock_appointments_v_rec.CREATION_DATE,
p_dock_appointments_v_rec.LAST_UPDATED_BY,
p_dock_appointments_v_rec.LAST_UPDATE_DATE,
p_dock_appointments_v_rec.last_update_login
FROM fnd_languages l
WHERE l.installed_flag IN ('I', 'B')
AND NOT exists
(SELECT NULL
FROM wms_dock_appointments_tl t
WHERE t.dock_appointment_id = p_dock_appointments_v_rec.dock_appointment_id
AND t.language = l.language_code);
ROLLBACK TO insert_rep_dock_sp;
FND_MESSAGE.SET_NAME('WMS', 'WMS_DOCK_INSERT_REP_FAIL');
END insert_rep_dock_appointments;
PROCEDURE delete_dock_appointment
(
x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
, x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, p_dock_appointment_id IN NUMBER
)
IS
BEGIN
SAVEPOINT delete_dock_sp;
DELETE wms_dock_appointments_b
WHERE DOCK_APPOINTMENT_ID = p_dock_appointment_id;
DELETE wms_dock_appointments_tl
WHERE DOCK_APPOINTMENT_ID = p_dock_appointment_id;
ROLLBACK TO delete_dock_sp;
FND_MESSAGE.SET_NAME('WMS', 'WMS_DOCK_DELETE_FAIL');
END delete_dock_appointment;
PROCEDURE delete_rep_dock_appointment
(
x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
, x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, p_rep_orig_id IN NUMBER
)
IS
BEGIN
SAVEPOINT delete_rep_dock_sp;
DELETE wms_dock_appointments_tl
WHERE dock_appointment_id IN
(SELECT dock_appointment_id
FROM wms_dock_appointments_b
WHERE REP_ORIGIN = p_rep_orig_id);
DELETE wms_dock_appointments_b
WHERE REP_ORIGIN = p_rep_orig_id;
ROLLBACK TO delete_rep_dock_sp;
FND_MESSAGE.SET_NAME('WMS', 'WMS_DOCK_DELETE_REP_FAIL');
END delete_rep_dock_appointment;
DELETE FROM WMS_DOCK_APPOINTMENTS_TL T
WHERE NOT exists
(SELECT NULL
FROM WMS_DOCK_APPOINTMENTS_B B
WHERE B.DOCK_APPOINTMENT_ID = T.DOCK_APPOINTMENT_ID
);
UPDATE WMS_DOCK_APPOINTMENTS_TL T
SET (
SUBJECT,
DESCRIPTION
) = (SELECT
B.SUBJECT,
B.DESCRIPTION
FROM WMS_DOCK_APPOINTMENTS_TL B
WHERE B.DOCK_APPOINTMENT_ID = T.DOCK_APPOINTMENT_ID
AND B.LANGUAGE = T.SOURCE_LANG)
WHERE (
T.DOCK_APPOINTMENT_ID,
T.LANGUAGE
) IN (SELECT
SUBT.DOCK_APPOINTMENT_ID,
SUBT.LANGUAGE
FROM WMS_DOCK_APPOINTMENTS_TL SUBB, WMS_DOCK_APPOINTMENTS_TL SUBT
WHERE SUBB.DOCK_APPOINTMENT_ID = SUBT.DOCK_APPOINTMENT_ID
AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
AND (SUBB.SUBJECT <> SUBT.SUBJECT
OR SUBB.DESCRIPTION <> SUBT.DESCRIPTION
OR (SUBB.DESCRIPTION IS NULL AND SUBT.DESCRIPTION IS NOT NULL)
OR (SUBB.DESCRIPTION IS NOT NULL AND SUBT.DESCRIPTION IS NULL)
)
);
INSERT INTO WMS_DOCK_APPOINTMENTS_TL
(DOCK_APPOINTMENT_ID,
SUBJECT,
DESCRIPTION,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
LANGUAGE,
SOURCE_LANG
) SELECT /*+ ORDERED */
B.DOCK_APPOINTMENT_ID,
B.SUBJECT,
B.DESCRIPTION,
B.CREATED_BY,
B.CREATION_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_DATE,
B.LAST_UPDATE_LOGIN,
L.LANGUAGE_CODE,
B.SOURCE_LANG
FROM WMS_DOCK_APPOINTMENTS_TL B, FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I', 'B')
AND B.LANGUAGE = userenv('LANG')
AND NOT exists
(SELECT NULL
FROM WMS_DOCK_APPOINTMENTS_TL T
WHERE T.DOCK_APPOINTMENT_ID = B.DOCK_APPOINTMENT_ID
AND T.LANGUAGE = L.LANGUAGE_CODE);
cursor c is select
CARRIER_CODE,
STAGING_LANE_ID,
TRIP_STOP,
REP_START_DATE,
REP_END_DATE,
REP_ORIGIN,
REP_FREQUENCY,
APPOINTMENT_STATUS,
APPOINTMENT_TYPE,
DOCK_ID,
ORGANIZATION_ID,
START_TIME,
END_TIME,
SOURCE_TYPE,
SOURCE_HEADER_ID,
SOURCE_LINE_ID
from WMS_DOCK_APPOINTMENTS_B
where DOCK_APPOINTMENT_ID = X_DOCK_APPOINTMENT_ID
for update of DOCK_APPOINTMENT_ID nowait;
cursor c1 is select
SUBJECT,
DESCRIPTION,
decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
from WMS_DOCK_APPOINTMENTS_TL
where DOCK_APPOINTMENT_ID = X_DOCK_APPOINTMENT_ID
and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
for update of DOCK_APPOINTMENT_ID nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
SELECT FREIGHT_CODE INTO l_carrier_code
FROM WSH_CARRIERS
WHERE CARRIER_ID = p_carrier_id;
SELECT dock_appointment_id
, start_time
, end_time
INTO x_dock_appt_list(1)
FROM wms_dock_appointments_b
WHERE
start_time=(SELECT min(start_time)
FROM wms_dock_appointments_b
WHERE organization_id = p_organization_id
AND appointment_type = NVL(p_appointment_type, appointment_type)
AND start_time >= p_start_date
AND trip_stop = p_trip_stop_id
)
AND organization_id = p_organization_id
AND appointment_type = NVL(p_appointment_type, appointment_type)
AND trip_stop = p_trip_stop_id
AND ROWNUM = 1;
SELECT dock_appointment_id
, start_time
, end_time
BULK COLLECT
INTO x_dock_appt_list
FROM wms_dock_appointments_b
WHERE organization_id = p_organization_id
AND appointment_type = NVL(p_appointment_type, appointment_type)
AND carrier_code = l_carrier_code
AND start_time >= p_start_date
AND end_time <= p_end_date
ORDER BY start_time;
SELECT dock_appointment_id
FROM wms_dock_appointments_b
WHERE trip_stop = v_trip_stop_id
AND organization_id = v_organization_id;
SELECT inventory_location_id, disable_date
FROM mtl_item_locations
WHERE inventory_location_id = v_locator_id
AND organization_id = v_organization_id
AND inventory_location_type = 1
AND NVL(disable_date, SYSDATE + 1) > SYSDATE;
l_dock_appointments_v_rec.last_updated_by := FND_GLOBAL.User_Id;
l_dock_appointments_v_rec.last_update_date := SYSDATE;
l_dock_appointments_v_rec.last_update_login := FND_GLOBAL.Login_Id;
SELECT wms_dock_appointments_s.nextval
INTO l_dock_appointments_v_rec.DOCK_APPOINTMENT_ID
FROM dual;
print_debug('Calling Insert_dock_appointment API', 4);
Insert_dock_appointment
( x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_dock_appointments_v_rec => l_dock_appointments_v_rec);
print_debug('Calling Update_dock_appointment API', 4);
Update_dock_appointment
(p_dock_appointments_v_rec => l_dock_appointments_v_rec,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data);
print_debug('Unable to update Dock Door appt, return status : '||l_return_status, 4);
-- Delete appointment for any locator for the Trip Stop and Organization
OPEN Get_Appt_Info(p_dock_appt_tab(i).trip_stop_id, p_dock_appt_tab(i).organization_id);
print_debug('Calling Delete_dock_appointment API', 4);
DELETE_dock_appointment
(x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_dock_appointment_id => l_dock_appointment_id);
print_debug('Unable to delete Dock Door appt, return status : '||l_return_status, 4);