The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT customer_id,
customer_site_use_id
FROM pn_payment_terms_all
WHERE lease_id = p_lease_id
AND rownum = 1;
SELECT pt.tenancy_id,
pt.customer_id,
pt.customer_site_use_id,
pt.fin_oblig_end_date,
pt.allocated_area_pct,
pt.recovery_type_code,
pt.recovery_space_std_code,
NVL(pt.occupancy_date, pt.estimated_occupancy_date),
pt.expiration_date,
pt.lease_id,
pt.location_id,
pt.org_id
FROM pn_tenancies_all pt,
pn_leases pl
WHERE pt.lease_id = pl.lease_id
AND pl.lease_num <= NVL(p_lease_num_to, pl.lease_num)
AND pl.lease_num >= NVL(p_lease_num_from, pl.lease_num)
AND pl.lease_class_code IN ('SUB_LEASE', 'THIRD_PARTY')
AND NOT EXISTS (SELECT NULL
FROM pn_space_assign_cust_all psc
WHERE psc.tenancy_id = pt.tenancy_id);
pnp_debug_pkg.log('Update Customer : ' || p_upd_customer);
pnp_debug_pkg.log('Update Financial Obligation End Date : ' || p_upd_fin_oblg_end_dt);
tenancy_id_tbl.delete;
cust_id_tbl.delete;
cust_site_use_id_tbl.delete;
fin_oblig_end_date_tbl.delete;
allocated_area_pct_tbl.delete;
recovery_type_code_tbl.delete;
recovery_space_std_code_tbl.delete;
estm_occupancy_date_tbl.delete;
exp_date_tbl.delete;
lease_id_tbl.delete;
location_id_tbl.delete;
org_id_tbl.delete;
UPDATE pn_tenancies_all
SET customer_id = NVL(cust_id_tbl(i), l_cust_id),
customer_site_use_id = NVL(cust_site_use_id_tbl(i), l_cust_site_id),
recovery_type_code = NVL(recovery_type_code_tbl(i), p_rec_type_code),
recovery_space_std_code = NVL(recovery_space_std_code_tbl(i),
p_rec_space_std_code),
fin_oblig_end_date = NVL(fin_oblig_end_date_tbl(i), l_date),
last_update_date = SYSDATE,
last_updated_by = NVL(fnd_profile.value('USER_ID'),0)
WHERE tenancy_id = tenancy_id_tbl(i)
RETURNING customer_id,
customer_site_use_id,
recovery_type_code,
recovery_space_std_code,
fin_oblig_end_date
INTO l_customer_id,
l_customer_site_id,
l_rec_type_code,
l_rec_space_std_code,
l_fin_oblig_end_date;
pnp_debug_pkg.log('Updated pn_tenancies.');
pnp_debug_pkg.put_log_msg(fnd_message.get_string('PN','PN_REC_UPG_LEASE_SELECTED') ||' '||tenancy_id_tbl.COUNT);
SELECT 'Y'
FROM pn_space_assign_cust_all
WHERE tenancy_id = p_tenancy_id
AND rownum = 1;