The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, pay_org_payment_methods_f opm
where opm.org_payment_method_id = p_org_payment_method_id
and pbg.business_group_id = opm.business_group_id;
select pbg.legislation_code
from per_business_groups pbg
, pay_org_payment_methods_f_tl opt
, pay_org_payment_methods_f opm
where opt.org_payment_method_id = p_org_payment_method_id
and opt.language = p_language
and opm.org_payment_method_id = opt.org_payment_method_id
and pbg.business_group_id = opm.business_group_id;
Procedure chk_non_updateable_args
(p_rec in pay_opt_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
select null
from pay_org_payment_methods_f opm,
pay_org_payment_methods_f_tl opt
where upper(opt.org_payment_method_name) = upper(p_org_payment_method_name)
and opt.language = p_language
and opm.org_payment_method_id = opt.org_payment_method_id
and opm.org_payment_method_id <> p_org_payment_method_id
and exists
(select null
from pay_org_payment_methods_f opm1
where opm1.org_payment_method_id = p_org_payment_method_id
and opm1.business_group_id = opm.business_group_id);
Procedure insert_validate
(p_rec in pay_opt_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_rec in pay_opt_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_opt_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;