The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure check_delete(p_vendor_id number default null
,p_contact_id number default null
,p_vendor_site_id number default null) is
--
l_proc varchar2(72) := g_package||'check_delete';
select null
from ota_events
where vendor_id = p_vendor_id;
select null
from ota_activity_versions
where vendor_id = p_vendor_id;
select null
from ota_suppliable_resources
where vendor_id = p_vendor_id;
select null
from ota_finance_headers
where vendor_id = p_vendor_id;
select null
from ota_finance_headers
where contact_id = p_contact_id
and vendor_id is not null;
select null
from ota_finance_headers
where address_id = p_vendor_site_id
and vendor_id is not null;
fnd_message.set_name('OTA','OTA_13543_VENDOR_DELETE');
fnd_message.set_name('OTA','OTA_13543_VENDOR_DELETE');
fnd_message.set_name('OTA','OTA_13543_VENDOR_DELETE');
fnd_message.set_name('OTA','OTA_13543_VENDOR_DELETE');
fnd_message.set_name('OTA','OTA_13544_VEND_CONTACT_DELETE');
fnd_message.set_name('OTA','OTA_13545_VEND_SITE_DELETE');