The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_CSM_UOM_TL_ACC (p_access_id IN number,
p_uom_code mtl_units_of_measure_tl.uom_code%TYPE,
p_language mtl_units_of_measure_tl.language%TYPE
)
IS
l_sysdate DATE;
INSERT INTO csm_unit_of_measure_tl_acc (access_id, uom_code, language, created_by, creation_date,
last_updated_by, last_update_date, last_update_login
)
VALUES (p_access_id, p_uom_code, p_language, fnd_global.user_id, l_sysdate,
fnd_global.user_id, l_sysdate, fnd_global.login_id);
END;-- end INSERT_CSM_UOM_TL_ACC
l_prog_update_date jtm_con_request_data.last_run_date%TYPE;
SELECT nvl(last_run_date, (sysdate - 365*50))
FROM jtm_con_request_data
WHERE package_name = 'CSM_UOM_EVENT_PKG'
AND procedure_name = 'REFRESH_ACC';
SELECT uom.uom_code,
uom.language
FROM mtl_units_of_measure_tl uom
WHERE NOT EXISTS
(SELECT 1
FROM csm_unit_of_measure_tl_acc acc
WHERE acc.uom_code = uom.uom_code
AND acc.language = uom.language
);
SELECT acc.access_id,
uom.uom_code,
uom.language
FROM mtl_units_of_measure_tl uom,
csm_unit_of_measure_tl_acc acc
WHERE acc.uom_code = uom.uom_code
AND acc.language = uom.language
AND uom.last_update_date > p_last_upd_date;
SELECT acc.access_id,
acc.uom_code,
acc.language
FROM csm_unit_of_measure_tl_acc acc
WHERE NOT EXISTS
(SELECT 1
FROM mtl_units_of_measure_tl uom
WHERE acc.uom_code = uom.uom_code
AND acc.language = uom.language
);
FETCH l_last_run_date_csr INTO l_prog_update_date;
DELETE FROM csm_unit_of_measure_tl_acc WHERE access_id = l_access_id;
FOR r_uom_upd_rec IN l_uom_upd_csr(l_prog_update_date) LOOP
--get the users with this language
l_tl_omfs_palm_resource_list := l_null_resource_list;
SELECT csm_unit_of_measure_tl_acc_s.nextval
INTO l_access_id
FROM dual;
INSERT_CSM_UOM_TL_ACC (l_access_id, r_uom_ins_rec.uom_code , r_uom_ins_rec.language);
UPDATE jtm_con_request_data
SET last_run_date = l_run_date
WHERE package_name = 'CSM_UOM_EVENT_PKG'
AND procedure_name = 'REFRESH_ACC';