The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure update_dml(p_rec in out nocopy pqh_rtl_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_dml';
update pqh_rule_sets_tl
set
rule_set_id = p_rec.rule_set_id,
rule_set_name = p_rec.rule_set_name,
description = p_rec.description,
language = p_rec.language,
source_lang = p_rec.source_lang
where rule_set_id = p_rec.rule_set_id
and language = p_rec.language;
End update_dml;
Procedure pre_update(p_rec in pqh_rtl_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_update';
End pre_update;
Procedure post_update(p_rec in pqh_rtl_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_update';
pqh_rtl_rku.after_update
(
p_rule_set_id =>p_rec.rule_set_id
,p_rule_set_name =>p_rec.rule_set_name
,p_description =>p_rec.description
,p_language =>p_rec.language
,p_source_lang =>p_rec.source_lang
,p_rule_set_name_o =>pqh_rtl_shd.g_old_rec.rule_set_name
,p_description_o =>pqh_rtl_shd.g_old_rec.description
,p_language_o =>pqh_rtl_shd.g_old_rec.language
,p_source_lang_o =>pqh_rtl_shd.g_old_rec.source_lang
);
End post_update;
pqh_rtl_bus.update_validate(p_rec);
pre_update(p_rec);
update_dml(p_rec);
post_update(p_rec);
select rtl.language
from pqh_rule_sets_tl rtl
where rtl.rule_set_id = p_rule_set_id
AND p_language_code in (rtl.language,rtl.source_lang);
l_last_updated_by pqh_rule_sets.last_updated_by%TYPE;
l_last_update_date pqh_rule_sets.last_update_date%TYPE;
l_last_update_login pqh_rule_sets.last_update_login%TYPE;
Cursor c1 is select rule_set_id
from pqh_rule_sets
where short_name = p_short_name ;
l_last_updated_by := -1;
l_last_updated_by := 0;
l_last_update_date := sysdate;
l_last_update_login := 0;
update pqh_rule_sets_tl
set rule_set_name = p_rule_set_name ,
description = p_description,
last_updated_by = l_last_updated_by,
last_update_date = l_last_update_date,
last_update_login = l_last_update_login,
source_lang = USERENV('LANG')
where USERENV('LANG') in (language,source_lang)
and rule_set_id = l_rule_set_id ;