The following lines contain the word 'select', 'insert', 'update' or 'delete':
select null
from per_people_f
where person_id = p_person_id
and effective_start_date = start_date
for update of person_id nowait;
select 'Y'
from dual
where exists(
select null
from per_contact_relationships
where person_id = p_person_id
and contact_person_id = p_contact_person_id
and contact_relationship_id <> p_contact_relationship_id
and cont_information1 = 'Y'
and nvl(date_end, hr_general.end_of_time) >= nvl(p_date_start, hr_general.start_of_time)
and nvl(date_start, hr_general.start_of_time) <= nvl(p_date_end, hr_general.end_of_time));
'select ''Y''
from dual
where exists(
select null
from per_contact_relationships
where person_id = :p_person_id
and contact_person_id = :p_contact_person_id
and contact_relationship_id <> :p_contact_relationship_id
and cont_information1 = ''Y''
and nvl(date_end, hr_general.end_of_time) >= nvl(:p_date_start, hr_general.start_of_time)
and nvl(date_start, hr_general.start_of_time) <= nvl(:p_date_end, hr_general.end_of_time))'
using p_person_id, p_contact_person_id, p_contact_relationship_id, p_date_start, p_date_end;