The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure chk_non_updateable_args
(p_rec in pay_sba_shd.g_rec_type
) is
--
-- Cursor to disallow update if a core defined balance has been
-- generated from this shadow defined balance.
--
cursor csr_disallow_update is
select null
from pay_template_core_objects tco
where tco.core_object_type = pay_tco_shd.g_sba_lookup_type
and tco.shadow_object_id = p_rec.balance_attribute_id;
l_proc varchar2(72) := g_package||'chk_non_updateable_args';
open csr_disallow_update;
fetch csr_disallow_update into l_disallow;
if csr_disallow_update%found then
hr_utility.set_location(l_proc, 20);
close csr_disallow_update;
close csr_disallow_update;
End chk_non_updateable_args;
select null
from pay_template_exclusion_rules ter
, pay_shadow_balance_types bt
, pay_shadow_defined_balances db
where db.defined_balance_id = p_defined_balance_id
and bt.balance_type_id = db.balance_type_id
and ter.exclusion_rule_id = p_exclusion_rule_id
and ter.template_id = bt.template_id
;
select null
from pay_shadow_defined_balances sdb
where sdb.defined_balance_id = p_defined_balance_id;
select null
from pay_shadow_bal_attributes sba
where sba.defined_balance_id = p_defined_balance_id
and upper(sba.attribute_name) = upper(p_attribute_name);
Procedure chk_delete
(p_balance_attribute_id in number
) is
--
-- Cursors to check for rows referencing the balance classification.
--
cursor csr_core_objects is
select null
from pay_template_core_objects tco
where tco.core_object_type = pay_tco_shd.g_sba_lookup_type
and tco.shadow_object_id = p_balance_attribute_id;
l_proc varchar2(72) := g_package||'chk_delete';
fnd_message.set_name('PAY', 'PAY_50204_SBA_INVALID_DELETE');
End chk_delete;
Procedure insert_validate
(p_rec in pay_sba_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_rec in pay_sba_shd.g_rec_type
) 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_sba_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
chk_delete
(p_balance_attribute_id => p_rec.balance_attribute_id
);
End delete_validate;