The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure delete_dml
(p_rec in per_cnl_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_dml';
delete from per_ri_config_locations
where location_id = p_rec.location_id;
End delete_dml;
Procedure pre_delete(p_rec in per_cnl_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_delete';
End pre_delete;
Procedure post_delete(p_rec in per_cnl_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_delete';
per_cnl_rkd.after_delete
(p_location_id => p_rec.location_id
,p_configuration_code_o => per_cnl_shd.g_old_rec.configuration_code
,p_configuration_context_o => per_cnl_shd.g_old_rec.configuration_context
,p_location_code_o => per_cnl_shd.g_old_rec.location_code
,p_description_o => per_cnl_shd.g_old_rec.description
,p_style_o => per_cnl_shd.g_old_rec.style
,p_address_line_1_o => per_cnl_shd.g_old_rec.address_line_1
,p_address_line_2_o => per_cnl_shd.g_old_rec.address_line_2
,p_address_line_3_o => per_cnl_shd.g_old_rec.address_line_3
,p_town_or_city_o => per_cnl_shd.g_old_rec.town_or_city
,p_country_o => per_cnl_shd.g_old_rec.country
,p_postal_code_o => per_cnl_shd.g_old_rec.postal_code
,p_region_1_o => per_cnl_shd.g_old_rec.region_1
,p_region_2_o => per_cnl_shd.g_old_rec.region_2
,p_region_3_o => per_cnl_shd.g_old_rec.region_3
,p_telephone_number_1_o => per_cnl_shd.g_old_rec.telephone_number_1
,p_telephone_number_2_o => per_cnl_shd.g_old_rec.telephone_number_2
,p_telephone_number_3_o => per_cnl_shd.g_old_rec.telephone_number_3
,p_loc_information13_o => per_cnl_shd.g_old_rec.loc_information13
,p_loc_information14_o => per_cnl_shd.g_old_rec.loc_information14
,p_loc_information15_o => per_cnl_shd.g_old_rec.loc_information15
,p_loc_information16_o => per_cnl_shd.g_old_rec.loc_information16
,p_loc_information17_o => per_cnl_shd.g_old_rec.loc_information17
,p_loc_information18_o => per_cnl_shd.g_old_rec.loc_information18
,p_loc_information19_o => per_cnl_shd.g_old_rec.loc_information19
,p_loc_information20_o => per_cnl_shd.g_old_rec.loc_information20
,p_object_version_number_o => per_cnl_shd.g_old_rec.object_version_number
);
End post_delete;
per_cnl_bus.delete_validate(p_rec);
per_cnl_del.pre_delete(p_rec);
per_cnl_del.delete_dml(p_rec);
per_cnl_del.post_delete(p_rec);