The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, per_rating_levels rt
, per_rating_levels_tl rtx
where rt.rating_level_id = p_rating_level_id
and rt.rating_level_id = rtx.rating_level_id
and pbg.business_group_id = rt.business_group_id;
select pbg.legislation_code
from per_business_groups pbg
, per_rating_levels rt
, per_rating_levels_tl rtx
where rt.rating_level_id = p_rating_level_id
and rt.rating_level_id = rtx.rating_level_id
and rtx.language = p_language
and pbg.business_group_id = rt.business_group_id;
Procedure chk_non_updateable_args
(p_rec in per_rtx_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
select 'Y'
from per_rating_levels rtl
, per_rating_levels_tl rtx
where rtl.rating_level_id = rtx.rating_level_id
and rtx.language = p_language
and ( (p_rating_level_id is null)
or(p_rating_level_id <> rtx.rating_level_id)
)
and rtx.name = p_name
and ( (nvl(rtl.competence_id,hr_api.g_number)
= nvl(p_competence_id,hr_api.g_number) )
and(nvl(rtl.rating_scale_id,hr_api.g_number)
= nvl(p_rating_scale_id,hr_api.g_number))
);
select rtl.rating_scale_id
, rtl.competence_id
from per_rating_levels rtl
where rtl.rating_level_id = nvl(p_rec.rating_level_id, p_rating_level_id);
Procedure insert_validate
(p_rec in per_rtx_shd.g_rec_type
,p_rating_level_id in per_rating_levels_tl.rating_level_id%TYPE
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_rec in per_rtx_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_non_updateable_args
(p_rec => p_rec
);
End update_validate;
Procedure delete_validate
(p_rec in per_rtx_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;