The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure check_non_updateable_args(p_rec in per_rsc_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'check_non_updateable_args';
end check_non_updateable_args;
select business_group_id
from per_rating_scales
where ( (p_rating_scale_id is null)
or(rating_scale_id <> p_rating_scale_id)
)
and name = p_name
and p_business_group_id is null
UNION
select business_group_id
from per_rating_scales
where ( (p_rating_scale_id is null)
or(rating_scale_id <> p_rating_scale_id)
)
and name = p_name
and (business_group_id = p_business_group_id or
business_group_id is null)
and p_business_group_id is not null;
select null
from per_rating_scales
where ( (p_rating_scale_id is null)
or(rating_scale_id <> p_rating_scale_id)
)
and default_flag = 'Y'
and type = p_type
and business_group_id is null
and p_business_group_id is null
UNION
select null
from per_rating_scales
where ( (p_rating_scale_id is null)
or(rating_scale_id <> p_rating_scale_id)
)
and business_group_id = p_business_group_id
and default_flag = 'Y'
and type = p_type
and p_business_group_id is not null;
procedure chk_rating_scale_delete
(p_rating_scale_id in per_rating_scales.rating_scale_id%TYPE
,p_object_version_number in per_rating_scales.object_version_number%TYPE
) is
--
l_proc varchar2(72) := g_package||' chk_rating_scale_delete';
select null
from per_assessment_types
where ( (rating_scale_id = p_rating_scale_id)
or(weighting_scale_id = p_rating_scale_id)
);
select null
from per_performance_ratings
where rating_scale_id = p_rating_scale_id;
select null
from per_competences
where rating_scale_id = p_rating_scale_id;
select null from per_rating_levels rle
where rle.rating_scale_id = p_rating_scale_id and
exists (select /*+ INDEX(pce)*/ null
from per_competence_elements pce
where (rle.rating_level_id= pce.rating_level_id)
or (rle.rating_level_id = pce.weighting_level_id) );
end chk_rating_scale_delete;
Procedure insert_validate(p_rec in per_rsc_shd.g_rec_type
,p_effective_date in date) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate(p_rec in per_rsc_shd.g_rec_type
,p_effective_date in date) is
--
l_proc varchar2(72) := g_package||'update_validate';
per_rsc_bus.check_non_updateable_args
(p_rec => p_rec);
End update_validate;
Procedure delete_validate(p_rec in per_rsc_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'delete_validate';
per_rsc_bus.chk_rating_scale_delete
(p_rating_scale_id => p_rec.rating_scale_id
,p_object_version_number => p_rec.object_version_number
);
End delete_validate;
select legislation_code
from per_business_groups pbg,
per_rating_scales prs
where prs.rating_scale_id = p_rating_scale_id
and pbg.business_group_id = prs.business_group_id;
select 'Y' into l_business_group_flag
from per_rating_scales
where rating_scale_id = p_rating_scale_id
and business_group_id is null;