The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE vr_update_volume_status ( errbuf OUT NOCOPY VARCHAR2,
retcode OUT NOCOPY VARCHAR2,
p_property_code IN VARCHAR2,
p_property_name IN VARCHAR2,
p_location_code_from IN VARCHAR2,
p_location_code_to IN VARCHAR2,
p_lease_num_from IN VARCHAR2,
p_lease_num_to IN VARCHAR2,
p_vrent_num_from IN VARCHAR2,
p_vrent_num_to IN VARCHAR2)
IS
CURSOR csr_get_vrent_wprop IS
SELECT pvr.var_rent_id
FROM pn_leases pl,
pn_var_rents_all pvr,
pn_locations_all ploc
WHERE pl.lease_id = pvr.lease_id
AND ploc.location_id = pvr.location_id
AND ploc.location_id IN (SELECT location_id
FROM pn_locations_all
START WITH location_id
IN
(SELECT location_id
FROM pn_locations_all
WHERE property_id IN(SELECT property_id
FROM pn_properties_all
WHERE property_code=NVL(p_property_code,property_code)
AND property_name=NVL(p_property_name,property_name))
)
CONNECT BY PRIOR location_id=parent_location_id)
AND pl.lease_num >= NVL(p_lease_num_from, pl.lease_num)
AND pl.lease_num <= NVL(p_lease_num_to, pl.lease_num)
AND ploc.location_code >= NVL(p_location_code_from, ploc.location_code)
AND ploc.location_code <= NVL(p_location_code_to, ploc.location_code)
AND pvr.rent_num >= NVL(p_vrent_num_from,pvr.rent_num)
AND pvr.rent_num <= NVL(p_vrent_num_to,pvr.rent_num)
ORDER BY pl.lease_id, pvr.var_rent_id;
SELECT pvr.var_rent_id
FROM pn_leases pl,
pn_var_rents_all pvr,
pn_locations_all ploc
WHERE pl.lease_id = pvr.lease_id
AND ploc.location_id = pvr.location_id
AND pl.lease_num >= NVL(p_lease_num_from, pl.lease_num)
AND pl.lease_num <= NVL(p_lease_num_to, pl.lease_num)
AND ploc.location_code >= NVL(p_location_code_from, ploc.location_code)
AND ploc.location_code <= NVL(p_location_code_to, ploc.location_code)
AND pvr.rent_num >= NVL(p_vrent_num_from,pvr.rent_num)
AND pvr.rent_num <= NVL(p_vrent_num_to,pvr.rent_num)
ORDER BY pl.lease_id, pvr.var_rent_id;
SELECT pvr.var_rent_id
FROM pn_var_rents_all pvr,
pn_leases_all pl
WHERE pl.lease_id = pvr.lease_id
AND pl.lease_num >= NVL(p_lease_num_from, pl.lease_num)
AND pl.lease_num <= NVL(p_lease_num_to, pl.lease_num)
AND pvr.rent_num >= NVL(p_vrent_num_from,pvr.rent_num)
AND pvr.rent_num <= NVL(p_vrent_num_to,pvr.rent_num)
ORDER BY pl.lease_id, pvr.var_rent_id;
END vr_update_volume_status;
SELECT period_id
FROM pn_var_periods_all
WHERE var_rent_id = p_var_rent_id;
UPDATE PN_VAR_VOL_HIST_ALL vol
SET vol_hist_status_code = 'APPROVED'
WHERE period_id = rec.period_id;