The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure delete_dml(p_rec in hr_lot_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'delete_dml';
delete from hr_locations_all_tl
where location_id = p_rec.location_id
and language = p_rec.language;
End delete_dml;
Procedure pre_delete(p_rec in hr_lot_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_delete';
End pre_delete;
Procedure post_delete(p_rec in hr_lot_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_delete';
hr_lot_rkd.after_delete
(
p_location_id =>p_rec.location_id
,p_language =>p_rec.language
,p_source_lang_o =>hr_lot_shd.g_old_rec.source_lang
,p_location_code_o =>hr_lot_shd.g_old_rec.location_code
,p_description_o =>hr_lot_shd.g_old_rec.description
);
End post_delete;
hr_lot_bus.delete_validate(p_rec);
pre_delete(p_rec);
delete_dml(p_rec);
post_delete(p_rec);
select lot.language
from hr_locations_all_tl lot
where lot.location_id = p_location_id;
l_deleted_anything boolean := false;
l_deleted_anything := true;
if not l_deleted_anything then
hr_utility.set_message(800, 'HR_7220_INVALID_PRIMARY_KEY');