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);