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 ap_expense_report_headers_all erh
where erh.employee_id = P_PERSON_ID)
--Start Bug 9741494
and not exists( Select 1
from AP_SUPPLIERS ap
where ap.employee_id=P_PERSON_ID);