The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT GHR_EVENTS_S.NEXTVAL event_id
FROM DUAL;
FUNCTION delete_ok
(p_event_id IN ghr_events.event_id%type) RETURN BOOLEAN IS
--
-- Returning TRUE allows Delete to happen.
-- Returning FALSE will Stop Delete
--
l_proc varchar2(72) := g_package||'delete_ok';
SELECT EVH.event_id
FROM GHR_EVENT_HISTORY EVH
WHERE EVH.event_id = p_event_id;
END delete_ok;