The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure delete_dml(p_rec in pe_pei_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'delete_dml';
delete from per_people_extra_info
where person_extra_info_id = p_rec.person_extra_info_id;
End delete_dml;
Procedure pre_delete(p_rec in pe_pei_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_delete';
End pre_delete;
Procedure post_delete(p_rec in pe_pei_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_delete';
pe_pei_rkd.after_delete (
p_person_extra_info_id_o => pe_pei_shd.g_old_rec.person_extra_info_id ,
p_person_id_o => pe_pei_shd.g_old_rec.person_id ,
p_information_type_o => pe_pei_shd.g_old_rec.information_type ,
p_request_id_o => pe_pei_shd.g_old_rec.request_id ,
p_program_application_id_o => pe_pei_shd.g_old_rec.program_application_id ,
p_program_id_o => pe_pei_shd.g_old_rec.program_id ,
p_program_update_date_o => pe_pei_shd.g_old_rec.program_update_date ,
p_pei_attribute_category_o => pe_pei_shd.g_old_rec.pei_attribute_category ,
p_pei_attribute1_o => pe_pei_shd.g_old_rec.pei_attribute1 ,
p_pei_attribute2_o => pe_pei_shd.g_old_rec.pei_attribute2 ,
p_pei_attribute3_o => pe_pei_shd.g_old_rec.pei_attribute3 ,
p_pei_attribute4_o => pe_pei_shd.g_old_rec.pei_attribute4 ,
p_pei_attribute5_o => pe_pei_shd.g_old_rec.pei_attribute5 ,
p_pei_attribute6_o => pe_pei_shd.g_old_rec.pei_attribute6 ,
p_pei_attribute7_o => pe_pei_shd.g_old_rec.pei_attribute7 ,
p_pei_attribute8_o => pe_pei_shd.g_old_rec.pei_attribute8 ,
p_pei_attribute9_o => pe_pei_shd.g_old_rec.pei_attribute9 ,
p_pei_attribute10_o => pe_pei_shd.g_old_rec.pei_attribute10 ,
p_pei_attribute11_o => pe_pei_shd.g_old_rec.pei_attribute11 ,
p_pei_attribute12_o => pe_pei_shd.g_old_rec.pei_attribute12 ,
p_pei_attribute13_o => pe_pei_shd.g_old_rec.pei_attribute13 ,
p_pei_attribute14_o => pe_pei_shd.g_old_rec.pei_attribute14 ,
p_pei_attribute15_o => pe_pei_shd.g_old_rec.pei_attribute15 ,
p_pei_attribute16_o => pe_pei_shd.g_old_rec.pei_attribute16 ,
p_pei_attribute17_o => pe_pei_shd.g_old_rec.pei_attribute17 ,
p_pei_attribute18_o => pe_pei_shd.g_old_rec.pei_attribute18 ,
p_pei_attribute19_o => pe_pei_shd.g_old_rec.pei_attribute19 ,
p_pei_attribute20_o => pe_pei_shd.g_old_rec.pei_attribute20 ,
p_pei_information_category_o => pe_pei_shd.g_old_rec.pei_information_category ,
p_pei_information1_o => pe_pei_shd.g_old_rec.pei_information1 ,
p_pei_information2_o => pe_pei_shd.g_old_rec.pei_information2 ,
p_pei_information3_o => pe_pei_shd.g_old_rec.pei_information3 ,
p_pei_information4_o => pe_pei_shd.g_old_rec.pei_information4 ,
p_pei_information5_o => pe_pei_shd.g_old_rec.pei_information5 ,
p_pei_information6_o => pe_pei_shd.g_old_rec.pei_information6 ,
p_pei_information7_o => pe_pei_shd.g_old_rec.pei_information7 ,
p_pei_information8_o => pe_pei_shd.g_old_rec.pei_information8 ,
p_pei_information9_o => pe_pei_shd.g_old_rec.pei_information9 ,
p_pei_information10_o => pe_pei_shd.g_old_rec.pei_information10 ,
p_pei_information11_o => pe_pei_shd.g_old_rec.pei_information11 ,
p_pei_information12_o => pe_pei_shd.g_old_rec.pei_information12 ,
p_pei_information13_o => pe_pei_shd.g_old_rec.pei_information13 ,
p_pei_information14_o => pe_pei_shd.g_old_rec.pei_information14 ,
p_pei_information15_o => pe_pei_shd.g_old_rec.pei_information15 ,
p_pei_information16_o => pe_pei_shd.g_old_rec.pei_information16 ,
p_pei_information17_o => pe_pei_shd.g_old_rec.pei_information17 ,
p_pei_information18_o => pe_pei_shd.g_old_rec.pei_information18 ,
p_pei_information19_o => pe_pei_shd.g_old_rec.pei_information19 ,
p_pei_information20_o => pe_pei_shd.g_old_rec.pei_information20 ,
p_pei_information21_o => pe_pei_shd.g_old_rec.pei_information21 ,
p_pei_information22_o => pe_pei_shd.g_old_rec.pei_information22 ,
p_pei_information23_o => pe_pei_shd.g_old_rec.pei_information23 ,
p_pei_information24_o => pe_pei_shd.g_old_rec.pei_information24 ,
p_pei_information25_o => pe_pei_shd.g_old_rec.pei_information25 ,
p_pei_information26_o => pe_pei_shd.g_old_rec.pei_information26 ,
p_pei_information27_o => pe_pei_shd.g_old_rec.pei_information27 ,
p_pei_information28_o => pe_pei_shd.g_old_rec.pei_information28 ,
p_pei_information29_o => pe_pei_shd.g_old_rec.pei_information29 ,
p_pei_information30_o => pe_pei_shd.g_old_rec.pei_information30
);
select usr.user_name, usr.start_date, usr.start_date
from fnd_user usr
where usr.employee_id = pe_pei_shd.g_old_rec.person_id;
End post_delete;
pe_pei_bus.delete_validate(p_rec);
pre_delete(p_rec);
delete_dml(p_rec);
post_delete(p_rec);