The following lines contain the word 'select', 'insert', 'update' or 'delete':
select papf.business_group_id, papf.nationality, papf.national_identifier, papf.per_information1,
papf.per_information2,papf.per_information3,papf.per_information8
from per_all_people_f papf
where papf.person_id = p_person_id and
p_effective_date between papf.effective_start_date and papf.effective_end_date;
select 'Y' from per_person_types ppt, per_person_type_usages_f pptu
where ppt.person_type_id = pptu.person_type_id and
pptu.person_id = p_person_id and
ppt.business_group_id = per_business_group_id and
ppt.seeded_person_type_key = p_person_type_key and
p_effective_date between pptu.effective_start_date and pptu.effective_end_date;
select payroll_id from per_all_assignments_f paaf where paaf.person_id = p_person_id and
p_effective_date between paaf.effective_start_date and paaf.effective_end_date;
l_proc := 'PER_PL_UPDATE_PERSON.UPDATE_PL_PERSON';
END update_pl_person;