The following lines contain the word 'select', 'insert', 'update' or 'delete':
v_delete_permitted varchar2(1);
select 'Y'
into v_delete_permitted
from sys.dual
where not exists (
select null
from eng_engineering_changes eng
where eng.requestor_id in (select party_id
from hz_parties
where person_identifier = to_char(p_person_id)));
select 'Y'
into v_delete_permitted
from sys.dual
where not exists (
select null
from eng_current_scheduled_dates eng
where eng.employee_id in (select party_id
from hz_parties
where person_identifier = to_char(p_person_id)));
select 'Y'
into v_delete_permitted
from sys.dual
where not exists (
select null
from eng_ecn_approvers eng
where eng.employee_id = P_PERSON_ID);
select 'Y'
into v_delete_permitted
from sys.dual
where not exists (
select null
from eng_eng_changes_interface eng
where eng.requestor_id in (select party_id
from hz_parties
where person_identifier = to_char(p_person_id)));