The following lines contain the word 'select', 'insert', 'update' or 'delete':
END qualify_nie_update;
PROCEDURE update_NIE(p_person_id number) IS
cursor get_NIE_value is
select per_information2 identifier_type,
per_information3 identifier_value,
effective_start_date, effective_end_date
from per_all_people_f
where person_id = p_person_id ;
select org_information9
from hr_organization_information org, per_all_people_f p
where org.org_information_context = 'Business Group Information'
and org.organization_id = p.business_group_id
and p.person_id = p_person_id ;
l_updated_NIE varchar2(150);
l_updated_NIE := substr(l_identifier_value,1,1)
|| '0'
|| substr(l_identifier_value,2);
update per_all_people_f
set per_information3 = l_updated_NIE
where person_id = p_person_id
and effective_start_date = NIE_rec.effective_start_date
and effective_end_date = NIE_rec.effective_end_date ;
END update_NIE;