The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure chk_non_updateable_args(p_rec in per_cpn_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'chk_non_updateable_args';
end chk_non_updateable_args;
select business_group_id
from per_competences pc
where (( p_competence_id is null)
or (p_competence_id <> pc.competence_id)
)
and competence_definition_id = p_competence_definition_id
and p_business_group_id is null
UNION
select business_group_id
from per_competences pc
where ( (p_competence_id is null)
or(p_competence_id <> pc.competence_id)
)
and competence_definition_id = p_competence_definition_id
and p_business_group_id is not null
and ( business_group_id + 0 = p_business_group_id or
business_group_id is null);
select 'Y'
from per_competence_elements cpe
where ( nvl(cpe.effective_date_from,hr_api.g_sot) <
nvl(p_date_from, nvl(cpe.effective_date_from,hr_api.g_sot))
or nvl(cpe.effective_date_from,hr_api.g_sot) >
nvl(p_date_to, nvl(cpe.effective_date_from,hr_api.g_sot))
)
and cpe.competence_id = p_competence_id
--adhunter reinstated the following check for 2533926
and cpe.type not in
('COMPETENCE_USAGE');
if p_called_from = 'UPDATE'
and ( p_date_from <> per_cpn_shd.g_old_rec.date_from
or nvl(p_date_to,hr_api.g_date)<>nvl(per_cpn_shd.g_old_rec.date_to,hr_api.g_date)
) then
open csr_check_dates_in_ele;
select business_group_id
from per_rating_scales
where rating_scale_id = p_rating_scale_id;
select 'Y'
from per_rating_scales
where rating_scale_id = p_rating_scale_id
and upper(type) = 'PROFICIENCY';
select 'Y'
from per_rating_levels
where competence_id = p_competence_id;
procedure chk_competence_rating_update
(p_competence_id in per_competences.competence_id%TYPE
,p_object_version_number in per_competences.object_version_number%TYPE
,p_rating_scale_id in per_competences.rating_scale_id%TYPE
)
is
--
l_exists varchar2(1);
l_proc varchar2(72) := g_package||'chk_competence_rating_update';
select 'Y'
from per_rating_levels rl,
per_competence_elements ce
where ((rl.rating_level_id = ce.proficiency_level_id) or
(rl.rating_level_id = ce.high_proficiency_level_id))
and rl.rating_scale_id = nvl(per_cpn_shd.g_old_rec.rating_scale_id,-9999)
and ce.competence_id = p_competence_id;
end chk_competence_rating_update;
procedure chk_competence_delete
(p_competence_id in per_competences.competence_id%TYPE
,p_object_version_number in per_competences.object_version_number%TYPE
)
is
--
l_exists varchar2(1);
l_proc varchar2(72) := g_package||'chk_competence_delete';
select 'Y'
from per_competence_elements
where competence_id = p_competence_id;
select 'Y'
from per_rating_levels
where competence_id = p_competence_id;
select 'Y'
from per_competence_outcomes
where competence_id = p_competence_id;
end chk_competence_delete;
select 1
from per_rating_levels
where competence_id = p_competence_id;
select 1 from per_competences
where unit_standard_id = p_unit_standard_id
and business_group_id = p_business_group_id
and p_effective_date between date_from and NVL(date_to, hr_api.g_eot);
select 1 from per_competences
where unit_standard_id = p_unit_standard_id
and p_effective_date between date_from and NVL(date_to, hr_api.g_eot);
Procedure insert_validate(p_rec in per_cpn_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_cpn_shd.g_rec_type
,p_effective_date in date ) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_non_updateable_args(p_rec => p_rec);
,p_called_from => 'UPDATE'
);
per_cpn_bus.chk_competence_rating_update
(p_competence_id => p_rec.competence_id
,p_object_version_number => p_rec.object_version_number
,p_rating_scale_id => p_rec.rating_scale_id
);
End update_validate;
Procedure delete_validate(p_rec in per_cpn_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'delete_validate';
per_cpn_bus.chk_competence_delete
(p_competence_id => p_rec.competence_id
,p_object_version_number => p_rec.object_version_number
);
End delete_validate;
select pbg.legislation_code, pcp.business_group_id
from per_business_groups pbg,
per_competences pcp
where pcp.competence_id = p_competence_id
and pbg.business_group_id(+) = pcp.business_group_id;