The following lines contain the word 'select', 'insert', 'update' or 'delete':
select public_event_flag,
enrolment_start_date,
enrolment_end_date,
organization_id,
secure_event_flag
from ota_events
where event_id = p_program_event_id;
select effective_date
from fnd_sessions
where session_id=userenv('SESSIONID');
select object_version_number
from ota_events
where event_id = p_event_id
and book_independent_flag <> 'Y'
and not exists
(select null
from ota_program_memberships
where event_id = p_event_id
and program_membership_id <> p_program_membership_id);