The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure delete_document_a (
p_effective_date date,
p_document_id number,
p_object_version_number number,
p_person_id number,
p_party_id number,
p_end_date date,
p_type varchar2,
p_purge varchar2) is
l_event_key number;
select per_wf_events_s.nextval from dual;
l_proc varchar2(72):=' irc_document_be3.delete_document_a';
l_event_name:='oracle.apps.per.irc.api.document.delete_document';
end delete_document_a;