The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'Y' FROM DUAL
WHERE EXISTS(SELECT ppt.system_person_type
FROM per_person_types ppt
,per_person_type_usages_f ptu
,fnd_sessions ses
WHERE ptu.person_id = p_person_id
AND ppt.person_type_id = ptu.person_type_id
AND ses.session_id=userenv('sessionid')
AND ses.effective_date BETWEEN ptu.effective_start_date AND ptu.effective_end_date
AND ppt.system_person_type IN ('EMP','EX_EMP','CWK','EX_CWK'));
SELECT per_information2
FROM per_all_people_f
WHERE person_id=p_person_id
AND p_effective_date BETWEEN effective_start_date
AND effective_end_date;
SELECT p_per_information3
FROM per_all_people_f
WHERE person_id=p_person_id
AND p_effective_date BETWEEN effective_start_date
AND effective_end_date;
SELECT national_identifier
FROM per_all_people_f
WHERE person_id=p_person_id
AND p_effective_date BETWEEN effective_start_date
AND effective_end_date;
l_proc := 'PER_ES_UPDATE_PERSON.UPDATE_ES_PERSON';
END update_es_person;