The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, pay_user_columns puc
where puc.user_column_id = p_user_column_id
and pbg.business_group_id = puc.business_group_id;
select pbg.legislation_code
from per_business_groups pbg
, pay_user_columns puc
where puc.user_column_id = p_user_column_id
and pbg.business_group_id (+) = puc.business_group_id;
Procedure chk_non_updateable_args
(p_rec in pay_puc_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
select null
from fnd_territories
where territory_code = p_legislation_code ;
select put.legislation_code
, put.business_group_id
from pay_user_tables put
where put.user_table_id = p_user_table_id
;
select null
from pay_user_columns puc
where puc.user_table_id = p_user_table_id
and upper(puc.user_column_name) = p_user_column_name
and (p_business_group_id is null
or ( p_business_group_id is not null and p_business_group_id = puc.business_group_id )
or ( p_business_group_id is not null and
puc.legislation_code is null and puc.business_group_id is null )
or ( p_business_group_id is not null and
puc.legislation_code = hr_api.return_legislation_code(p_business_group_id )))
and (p_legislation_code is null
or ( p_legislation_code is not null and p_legislation_code = puc.legislation_code )
or ( p_legislation_code is not null and
puc.legislation_code is null and puc.business_group_id is null)
or ( p_legislation_code is not null and
p_legislation_code = hr_api.return_legislation_code(puc.business_group_id )));
select fft.formula_type_id
into pay_puc_bus.g_formula_type_id
from ff_formula_types fft
where formula_type_name = pay_puc_bus.g_formula_type_name
;
select ff.business_group_id
, ff.legislation_code
from ff_formulas_f ff
where ff.formula_id = p_formula_id
and ff.formula_type_id = pay_puc_bus.g_formula_type_id
;
procedure chk_delete
(p_user_column_id in number
) is
--
-- Only interested in child rows from PAY_USER_COLUMN_INSTANCES_F.
--
cursor csr_values_exist
(p_user_column_id in number
) is
select 'Y'
from pay_user_column_instances_f uci
where uci.user_column_id = p_user_column_id
;
end chk_delete;
(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_rec in pay_puc_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_rec in pay_puc_shd.g_rec_type
,p_formula_warning out nocopy boolean
) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_non_updateable_args
(p_rec => p_rec
);
End update_validate;
Procedure delete_validate
(p_rec in pay_puc_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
chk_delete(p_user_column_id => p_rec.user_column_id);
End delete_validate;