The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_EXP_tables (p_paid_invoices_flag IN VARCHAR2,
p_old_vendor_id IN NUMBER,
p_old_vendor_site_id IN NUMBER,
p_new_vendor_id IN NUMBER,
p_new_vendor_site_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2 ,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2);
SELECT adv.paid_invoices_flag,
adv.process
FROM ap_duplicate_vendors adv
WHERE adv.vendor_id = p_new_vendor_id
AND adv.duplicate_vendor_id = p_old_vendor_id
AND adv.duplicate_vendor_site_id = p_old_vendor_site_id
AND adv.process_flag IN ('S','D');
UPDATE igi_cis_payment_vouchers
SET vendor_id = p_new_vendor_id,
vendor_site_id = p_new_vendor_site_id,
last_update_date = SYSDATE,
last_update_login = FND_GLOBAL.login_id,
last_updated_by = FND_GLOBAL.user_id
WHERE vendor_id = p_old_vendor_id
AND vendor_site_id = p_old_vendor_site_id;
update_EXP_tables (p_paid_invoices_flag => l_paid_invoices_flag,
p_old_vendor_id => p_old_vendor_id,
p_old_vendor_site_id => p_old_vendor_site_id,
p_new_vendor_id => p_new_vendor_id,
p_new_vendor_site_id => p_new_vendor_site_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
PROCEDURE update_EXP_tables (p_paid_invoices_flag IN VARCHAR2,
p_old_vendor_id IN NUMBER,
p_old_vendor_site_id IN NUMBER,
p_new_vendor_id IN NUMBER,
p_new_vendor_site_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2 ,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2)
IS
l_api_name VARCHAR2(30) := 'Update_EXP_Tables';
UPDATE igi_exp_dus du
SET du.du_stp_id = p_new_vendor_id,
du.du_stp_site_id = p_new_vendor_site_id,
du.last_update_date = SYSDATE,
du.last_update_login = FND_GLOBAL.login_id,
du.last_updated_by = FND_GLOBAL.user_id
WHERE du.du_stp_id = p_old_vendor_id
AND du.du_stp_site_id = p_old_vendor_site_id
AND du.du_type_header_id IN
(SELECT du_type_header_id
FROM igi_exp_du_type_headers
WHERE application_id = 200) ;
UPDATE igi_exp_dus du
SET du.du_stp_id = p_new_vendor_id,
du.du_stp_site_id = p_new_vendor_site_id,
du.last_update_date = SYSDATE,
du.last_update_login = FND_GLOBAL.login_id,
du.last_updated_by = FND_GLOBAL.user_id
WHERE du.du_stp_id = p_old_vendor_id
AND du.du_stp_site_id = p_old_vendor_site_id
AND du.du_status <> 'COM'
AND du.du_type_header_id IN
(SELECT du_type_header_id
FROM igi_exp_du_type_headers
WHERE application_id = 200) ;
UPDATE igi_exp_dus du
SET du.du_stp_id = p_new_vendor_id,
du.du_stp_site_id = p_new_vendor_site_id,
du.last_update_date = SYSDATE,
du.last_update_login = FND_GLOBAL.login_id,
du.last_updated_by = FND_GLOBAL.user_id
WHERE du.du_stp_id = p_old_vendor_id
AND du.du_stp_site_id = p_old_vendor_site_id
AND du.du_status = 'COM'
AND du.du_type_header_id IN
(SELECT du_type_header_id
FROM igi_exp_du_type_headers
WHERE application_id = 200)
AND NOT EXISTS
(SELECT 'X'
FROM ap_invoices api,
igi_exp_ap_trans eapi
WHERE eapi.du_id = du.du_id
AND eapi.invoice_id = api.invoice_id
AND Nvl(api.payment_status_flag,'N') = 'Y');
END update_EXP_tables;