The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure update_dml(p_rec in out nocopy hr_lot_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_dml';
update hr_locations_all_tl
set
location_id = p_rec.location_id,
language = p_rec.language,
source_lang = p_rec.source_lang,
location_code = p_rec.location_code,
description = p_rec.description
where location_id = p_rec.location_id
and language = p_rec.language;
End update_dml;
Procedure pre_update(p_rec in hr_lot_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_update';
End pre_update;
Procedure post_update(p_rec in hr_lot_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_update';
hr_lot_rku.after_update
(
p_location_id =>p_rec.location_id
,p_language =>p_rec.language
,p_source_lang =>p_rec.source_lang
,p_location_code =>p_rec.location_code
,p_description =>p_rec.description
,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_update;
hr_lot_bus.update_validate(p_rec, p_business_group_id);
pre_update(p_rec);
update_dml(p_rec);
post_update(p_rec);
select lot.language
from hr_locations_all_tl lot
where lot.location_id = p_location_id
and p_language_code in (lot.language, lot.source_lang);
l_updated_anything boolean := false;
l_updated_anything := true;
if not l_updated_anything then
hr_utility.set_message(800, 'PER_52518_NO_MLS_UPDATES');