The following lines contain the word 'select', 'insert', 'update' or 'delete':
cursor get_title is select job.name
from per_all_assignments_f passign, per_jobs_vl job
where passign.person_id = p_person_id
and passign.job_id = job.job_id
and passign.effective_start_date <= sysdate
and nvl(passign.effective_end_date, sysdate+1) > sysdate;
select perph.phone_number
from per_phones perph
where perph.phone_type = 'W1'
and perph.parent_id = p_person_id
and perph.parent_table = 'PER_ALL_PEOPLE_F'
and perph.date_from <= sysdate
and nvl(perph.date_to, sysdate + 1) > sysdate;