The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, pqp_exception_report_groups erg
, pqp_exception_reports exr
where erg.exception_group_id = p_exception_group_id
and pbg.business_group_id = exr.business_group_id
and exr.exception_report_id = erg.exception_report_id;
select pbg.legislation_code
from per_business_groups pbg
, pqp_exception_report_groups erg
, pqp_exception_reports exr
where erg.exception_group_id = p_exception_group_id
and exr.exception_report_id = erg.exception_report_id
and pbg.business_group_id = exr.business_group_id;
Procedure chk_non_updateable_args
(p_rec in pqp_erg_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
hr_startup_data_api_support.chk_startup_action
(p_generic_allowed => TRUE
,p_startup_allowed => TRUE
,p_user_allowed => TRUE
,p_business_group_id => p_business_group_id
,p_legislation_code => p_legislation_code
,p_legislation_subgroup => p_legislation_subgroup
);
select null
from pqp_exception_reports a
where a.exception_report_id = p_exception_report_id;
select null
from pay_consolidation_sets a
where a.consolidation_set_id = p_consolidation_set_id
and a.business_group_id = p_business_group_id;
select null
from pay_payrolls_f a
where a.payroll_id = p_payroll_id
and a.business_group_id = p_business_group_id;
cursor c1(p_legislation_code VARCHAR2) is select null
from pqp_exception_report_groups
Where exception_group_id <> nvl(p_exception_group_id,-1)
and exception_group_name = p_exception_group_name
and (legislation_code is not null and
legislation_code = p_legislation_code)
;
SELECT pbg.legislation_code
FROM per_business_groups pbg where pbg.business_group_id=p_business_group_id;
cursor c1 is select null
from pqp_exception_report_groups
Where exception_group_id <> nvl(p_exception_group_id,-1)
and exception_group_name = p_exception_group_name
and exception_report_id = p_exception_report_id
and ((legislation_code is not null
and legislation_code = NVL(p_legislation_code,l_legislation_code))
or (business_group_id is not null
and business_group_id = p_business_group_id)
);
SELECT pbg.legislation_code
FROM per_business_groups pbg where pbg.business_group_id=p_business_group_id;
Procedure insert_validate
(p_rec in pqp_erg_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_rec in pqp_erg_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 pqp_erg_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;