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
, ff_functions ffn
where ffn.function_id = p_function_id
and pbg.business_group_id (+) = ffn.business_group_id;
select pbg.legislation_code
from per_business_groups_perf pbg
, ff_functions ffn
where ffn.function_id = p_function_id
and pbg.business_group_id (+) = ffn.business_group_id;
select null
from fnd_territories
where territory_code = p_legislation_code ;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in ff_ffn_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
if p_business_group_id is not null and p_legislation_code is not null then
fnd_message.set_name('PAY', 'PAY_33179_BGLEG_INVALID');
Procedure insert_validate
(p_effective_date in date
,p_rec in ff_ffn_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 ff_ffn_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 ff_ffn_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;