The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure chk_non_updateable_args
(p_rec in pay_seu_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
select null
from pay_shadow_element_types pset
where pset.element_type_id = p_element_type_id;
select null
from pay_shadow_element_types pset
, pay_template_exclusion_rules ter
where pset.element_type_id = p_element_type_id
and ter.template_id = pset.template_id
and ter.exclusion_rule_id = p_exclusion_rule_id;
Procedure chk_delete
(p_element_type_usage_id in number) is
--
-- Cursor to check for rows referencing the element type usage.
--
cursor c_core_objects is
select null
from pay_template_core_objects tco
where tco.core_object_type = pay_tco_shd.g_seu_lookup_type
and tco.shadow_object_id = p_element_type_usage_id;
l_proc varchar2(72) := g_package||'chk_delete';
fnd_message.set_name('PAY', 'PAY_50118_SEU_INVALID_DELETE');
End chk_delete;
Procedure insert_validate
(p_effective_date in date
,p_rec in pay_seu_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_seu_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_non_updateable_args(p_rec);
End update_validate;
Procedure delete_validate
(p_rec in pay_seu_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
chk_delete(p_rec.element_type_usage_id);
End delete_validate;