The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure delete_dml(p_rec in per_sht_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'delete_dml';
delete from per_shared_types
where shared_type_id = p_rec.shared_type_id;
End delete_dml;
Procedure pre_delete(p_rec in per_sht_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_delete';
End pre_delete;
Procedure post_delete(
p_effective_date in date,p_rec in per_sht_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_delete';
per_sht_rkd.after_delete
(
p_shared_type_id =>p_rec.shared_type_id
,p_business_group_id_o =>per_sht_shd.g_old_rec.business_group_id
,p_shared_type_name_o =>per_sht_shd.g_old_rec.shared_type_name
,p_shared_type_code_o =>per_sht_shd.g_old_rec.shared_type_code
,p_system_type_cd_o =>per_sht_shd.g_old_rec.system_type_cd
,p_information1_o =>per_sht_shd.g_old_rec.information1
,p_information2_o =>per_sht_shd.g_old_rec.information2
,p_information3_o =>per_sht_shd.g_old_rec.information3
,p_information4_o =>per_sht_shd.g_old_rec.information4
,p_information5_o =>per_sht_shd.g_old_rec.information5
,p_information6_o =>per_sht_shd.g_old_rec.information6
,p_information7_o =>per_sht_shd.g_old_rec.information7
,p_information8_o =>per_sht_shd.g_old_rec.information8
,p_information9_o =>per_sht_shd.g_old_rec.information9
,p_information10_o =>per_sht_shd.g_old_rec.information10
,p_information11_o =>per_sht_shd.g_old_rec.information11
,p_information12_o =>per_sht_shd.g_old_rec.information12
,p_information13_o =>per_sht_shd.g_old_rec.information13
,p_information14_o =>per_sht_shd.g_old_rec.information14
,p_information15_o =>per_sht_shd.g_old_rec.information15
,p_information16_o =>per_sht_shd.g_old_rec.information16
,p_information17_o =>per_sht_shd.g_old_rec.information17
,p_information18_o =>per_sht_shd.g_old_rec.information18
,p_information19_o =>per_sht_shd.g_old_rec.information19
,p_information20_o =>per_sht_shd.g_old_rec.information20
,p_information21_o =>per_sht_shd.g_old_rec.information21
,p_information22_o =>per_sht_shd.g_old_rec.information22
,p_information23_o =>per_sht_shd.g_old_rec.information23
,p_information24_o =>per_sht_shd.g_old_rec.information24
,p_information25_o =>per_sht_shd.g_old_rec.information25
,p_information26_o =>per_sht_shd.g_old_rec.information26
,p_information27_o =>per_sht_shd.g_old_rec.information27
,p_information28_o =>per_sht_shd.g_old_rec.information28
,p_information29_o =>per_sht_shd.g_old_rec.information29
,p_information30_o =>per_sht_shd.g_old_rec.information30
,p_information_category_o =>per_sht_shd.g_old_rec.information_category
,p_object_version_number_o =>per_sht_shd.g_old_rec.object_version_number
,p_lookup_type_o =>per_sht_shd.g_old_rec.lookup_type
);
End post_delete;
per_sht_bus.delete_validate(p_rec
,p_effective_date);
pre_delete(p_rec);
delete_dml(p_rec);
post_delete(
p_effective_date,p_rec);