The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_hu_person (p_person_id NUMBER
,p_last_name VARCHAR2
,p_first_name VARCHAR2
,p_national_identifier VARCHAR2
,p_per_information1 VARCHAR2
,p_per_information2 VARCHAR2
,p_effective_date DATE
) is
l_proc VARCHAR2(72) := g_package||'UPDATE_HU_PERSON';
SELECT ppt.system_person_type,ppt.seeded_person_type_key
FROM per_person_types ppt,per_person_type_usages_f ptu
WHERE ppt.person_type_id = ptu.person_type_id
AND p_effective_date BETWEEN ptu.effective_start_date AND ptu.effective_end_date
AND ptu.person_id = p_person_id;
END update_hu_person;