The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure chk_person_selection_rl(p_benefit_action_id in number,
p_person_selection_rl in number,
p_business_group_id in number,
p_effective_date in date,
p_object_version_number in number) is
--
l_proc varchar2(72) := g_package||'chk_person_selection_rl';
and nvl(p_person_selection_rl,hr_api.g_number)
<> ben_bft_shd.g_old_rec.person_selection_rl
or not l_api_updating)
and p_person_selection_rl is not null then
--
-- check if value of formula rule is valid.
--
if not benutils.formula_exists
(p_formula_id => p_person_selection_rl,
p_formula_type_id => -214,
p_business_group_id => p_business_group_id,
p_effective_date => p_effective_date) then
--
-- raise error
--
fnd_message.set_name('BEN','BEN_91471_FORMULA_NOT_FOUND');
fnd_message.set_token('ID',p_person_selection_rl);
end chk_person_selection_rl;
Procedure chk_comp_selection_rl(p_benefit_action_id in number,
p_comp_selection_rl in number,
p_business_group_id in number,
p_effective_date in date,
p_object_version_number in number) is
--
l_proc varchar2(72) := g_package||'chk_comp_selection_rl';
and nvl(p_comp_selection_rl,hr_api.g_number)
<> ben_bft_shd.g_old_rec.comp_selection_rl
or not l_api_updating)
and p_comp_selection_rl is not null then
--
-- check if value of formula rule is valid.
--
if not benutils.formula_exists
(p_formula_id => p_comp_selection_rl,
p_formula_type_id => -213,
p_business_group_id => p_business_group_id,
p_effective_date => p_effective_date) then
--
-- raise error
--
fnd_message.set_name('BEN','BEN_91471_FORMULA_NOT_FOUND');
fnd_message.set_token('ID',p_comp_selection_rl);
end chk_comp_selection_rl;
Procedure insert_validate(p_rec in ben_bft_shd.g_rec_type
,p_effective_date in date) is
--
l_proc varchar2(72) := g_package||'insert_validate';
chk_person_selection_rl
(p_benefit_action_id => p_rec.benefit_action_id,
p_person_selection_rl => p_rec.person_selection_rl,
p_business_group_id => p_rec.business_group_id,
p_effective_date => p_effective_date,
p_object_version_number => p_rec.object_version_number);
chk_comp_selection_rl
(p_benefit_action_id => p_rec.benefit_action_id,
p_comp_selection_rl => p_rec.comp_selection_rl,
p_business_group_id => p_rec.business_group_id,
p_effective_date => p_effective_date,
p_object_version_number => p_rec.object_version_number);
End insert_validate;
Procedure update_validate(p_rec in ben_bft_shd.g_rec_type
,p_effective_date in date) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_person_selection_rl
(p_benefit_action_id => p_rec.benefit_action_id,
p_person_selection_rl => p_rec.person_selection_rl,
p_business_group_id => p_rec.business_group_id,
p_effective_date => p_effective_date,
p_object_version_number => p_rec.object_version_number);
chk_comp_selection_rl
(p_benefit_action_id => p_rec.benefit_action_id,
p_comp_selection_rl => p_rec.comp_selection_rl,
p_business_group_id => p_rec.business_group_id,
p_effective_date => p_effective_date,
p_object_version_number => p_rec.object_version_number);
End update_validate;
Procedure delete_validate(p_rec in ben_bft_shd.g_rec_type
,p_effective_date in date) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;
select a.legislation_code
from per_business_groups a,
ben_benefit_actions b
where b.benefit_action_id = p_benefit_action_id
and a.business_group_id = b.business_group_id;