The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure update_dml(p_rec in out nocopy pqh_ttl_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_dml';
update pqh_templates_tl
set
template_id = p_rec.template_id,
template_name = p_rec.template_name,
language = p_rec.language,
source_lang = p_rec.source_lang
where template_id = p_rec.template_id
and language = p_rec.language;
End update_dml;
Procedure pre_update(p_rec in pqh_ttl_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_update';
End pre_update;
Procedure post_update(p_rec in pqh_ttl_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_update';
pqh_ttl_rku.after_update
(
p_template_id =>p_rec.template_id
,p_template_name =>p_rec.template_name
,p_language =>p_rec.language
,p_source_lang =>p_rec.source_lang
,p_template_name_o =>pqh_ttl_shd.g_old_rec.template_name
,p_language_o =>pqh_ttl_shd.g_old_rec.language
,p_source_lang_o =>pqh_ttl_shd.g_old_rec.source_lang
);
End post_update;
pqh_ttl_bus.update_validate(p_rec);
pre_update(p_rec);
update_dml(p_rec);
post_update(p_rec);
select ttl.language
from pqh_templates_tl ttl
where ttl.template_id = p_template_id
AND p_language_code in (ttl.language,ttl.source_lang);
l_last_updated_by pqh_templates.last_updated_by%TYPE;
l_last_update_date pqh_templates.last_update_date%TYPE;
l_last_update_login pqh_templates.last_update_login%TYPE;
select template_id
from pqh_templates
where short_name = p_short_name ;
l_last_updated_by := -1;
l_last_updated_by := 0;
l_last_updated_by := fnd_load_util.owner_id(p_owner);
l_last_update_date := sysdate;
l_last_update_login := 0;
UPDATE pqh_templates_tl
SET template_name = p_template_name,
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 template_id = l_template_id
AND userenv('LANG') in (LANGUAGE, SOURCE_LANG);