The following lines contain the word 'select', 'insert', 'update' or 'delete':
select per.party_id
from per_all_people_f per
where per.person_id=p_person_id
and sysdate between per.effective_start_date and per.effective_end_date;
select 1 from per_person_type_usages_f ptu
, per_person_types ppt
where ptu.person_id=p_person_id
and ppt.person_type_id=ptu.person_type_id
and ppt.system_person_type='IRC_REG_USER'
and sysdate between ptu.effective_start_date and ptu.effective_end_date;
select 1 from per_person_type_usages_f ptu
, per_person_types ppt
,per_all_people_f per
where ptu.person_id=per.person_id
and ppt.person_type_id=ptu.person_type_id
and ppt.system_person_type='IRC_REG_USER'
and sysdate between ptu.effective_start_date and ptu.effective_end_date
and per.party_id=l_party_id
and sysdate between per.effective_start_date and per.effective_end_date;