The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, per_rating_scales_tl rsl_tl
, per_rating_scales rsl
where rsl.rating_scale_id = p_rating_scale_id
and rsl.rating_scale_id = rsl_tl.rating_scale_id
and pbg.business_group_id = rsl.business_group_id;
select pbg.legislation_code
from per_business_groups pbg
, per_rating_scales_tl rsl_tl
, per_rating_scales rsl
where
rsl.rating_scale_id = p_rating_scale_id
and rsl_tl.language = p_language
and pbg.business_group_id = rsl.business_group_id
and rsl.rating_scale_id = rsl_tl.rating_scale_id;
Procedure chk_non_updateable_args
(p_rec in per_rsl_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
select rsc.business_group_id
from per_rating_scales rsc
, per_rating_scales_tl rsl
where rsc.rating_scale_id = rsl.rating_scale_id
and rsl.language = p_language
and ( (p_rating_scale_id is null)
or(rsc.rating_scale_id <> p_rating_scale_id)
)
and rsl.name = p_name
and p_business_group_id is null
UNION
select rsc.business_group_id
from per_rating_scales rsc
, per_rating_scales_tl rsl
where rsc.rating_scale_id = rsl.rating_scale_id
and rsl.language = p_language
and ( (p_rating_scale_id is null)
or(rsc.rating_scale_id <> p_rating_scale_id)
)
and rsl.name = p_name
and (rsc.business_group_id = p_business_group_id or
rsc.business_group_id is null)
and p_business_group_id is not null;
select rsc.business_group_id
from per_rating_scales rsc
where rsc.rating_scale_id = nvl(p_rec.rating_scale_id, p_rating_scale_id);
Procedure insert_validate
(p_rec in per_rsl_shd.g_rec_type
,p_rating_scale_id in per_rating_scales_tl.rating_scale_id%TYPE
) is
--
-- Name : M. Burton
-- Date 02-DEC-2002
-- Description Amended with comment
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_rec in per_rsl_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_rsl_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;