The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id,
pbg.legislation_code
from per_business_groups_perf pbg
, pay_retro_component_usages rcu
where rcu.retro_component_usage_id = p_retro_component_usage_id
and pbg.business_group_id (+) = rcu.business_group_id;
select pbg.legislation_code
from per_business_groups_perf pbg
, pay_retro_component_usages rcu
where rcu.retro_component_usage_id = p_retro_component_usage_id
and pbg.business_group_id (+) = rcu.business_group_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in pay_rcu_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
(p_insert IN boolean
,p_business_group_id IN number
,p_legislation_code IN varchar2
,p_legislation_subgroup IN varchar2 DEFAULT NULL) IS
--
BEGIN
--
-- Call the supporting procedure to check startup mode
IF (p_insert) THEN
hr_startup_data_api_support.chk_startup_action
(p_generic_allowed => TRUE
,p_startup_allowed => TRUE
,p_user_allowed => TRUE
,p_business_group_id => p_business_group_id
,p_legislation_code => p_legislation_code
,p_legislation_subgroup => p_legislation_subgroup
);
select null
from pay_retro_components
where retro_component_id = p_retro_component_id
and nvl(legislation_code, nvl(l_legislation_code, l_varchar2))
= nvl(l_legislation_code, l_varchar2);
select null
from pay_element_types_f
where element_type_id = p_creator_id
and p_effective_date between effective_start_date
and effective_end_date
and nvl(legislation_code, nvl(l_legislation_code, l_varchar2))
= nvl(l_legislation_code, l_varchar2)
and nvl(business_group_id, nvl(p_business_group_id, l_number))
= nvl(p_business_group_id, l_number);
select null
from pay_element_classifications
where classification_id = p_creator_id
and nvl(legislation_code, nvl(l_legislation_code, l_varchar2))
= nvl(l_legislation_code, l_varchar2)
and nvl(business_group_id, nvl(p_business_group_id, l_number))
= nvl(p_business_group_id, l_number);
select retro_type
from pay_retro_components
where retro_component_id = p_retro_component_id;
select null
from pay_retro_component_usages
where creator_type = p_creator_type
and creator_id = p_creator_id
and retro_component_usage_id <> nvl(p_retro_component_usage_id, l_number)
and default_component = 'Y'
and (( business_group_id = p_business_group_id and
legislation_code is null )
or
(legislation_code = p_legislation_code and
business_group_id is null )
or
(legislation_code is null and
business_group_id is null )
);
select recalculation_style
from pay_retro_components
where retro_component_id = p_retro_component_id;
select recalculation_style
from pay_retro_components
where retro_component_id = p_retro_component_id;
Procedure insert_validate
(p_effective_date in date
,p_rec in pay_rcu_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_effective_date in date
,p_rec in pay_rcu_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_non_updateable_args
(p_effective_date => p_effective_date
,p_rec => p_rec
);
End update_validate;
Procedure delete_validate
(p_rec in pay_rcu_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;