The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, pqp_exception_reports exr
where exr.exception_report_id = p_exception_report_id
and pbg.business_group_id = exr.business_group_id;
select pbg.legislation_code
from per_business_groups pbg
where pbg.business_group_id = p_business_group_id;
select pbg.legislation_code
,exr.legislation_code
from per_business_groups pbg
,pqp_exception_reports exr
where pbg.business_group_id = exr.business_group_id
and exr.exception_report_id= p_exception_report_id;
Procedure chk_non_updateable_args
(p_rec in pqp_exr_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 ) 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 'X'
from pay_balance_types
where balance_type_id = p_balance_type_id
and ( (legislation_code is not null
and legislation_code = l_legislation_code)
or (business_group_id is not null
and business_group_id = p_business_group_id));
select 'X'
from pay_defined_balances
where balance_type_id = p_balance_type_id
and balance_dimension_id = p_balance_dimension_id;
select effective_date
from fnd_sessions
where session_id = USERENV('sessionid');
select effective_date
from fnd_sessions
where session_id = USERENV('sessionid');
SELECT decode(pers.exception_report_period
,'YEAR' ,'Y'
,'QUARTER','Q'
,'PERIOD' ,'P'
,'MONTH' ,'M','INCEPTION','I','X') db_suffix
FROM pay_balance_dimensions pbd
,pqp_exception_report_suffix pers
WHERE pbd.balance_dimension_id = p_balance_dimension_id
and pers.legislation_code = pbd.legislation_code
and pers.database_item_suffix = pbd.database_item_suffix;
select effective_date
from fnd_sessions
where session_id = USERENV('sessionid');
select 'X'
from pqp_exception_reports
where exception_report_name = p_exception_report_name
and( (legislation_code is not null
and legislation_code = l_legislation_code)
or (business_group_id is not null
and business_group_id = p_business_group_id)
);
select 'X'
from pqp_exception_report_groups
where exception_report_id = p_exception_report_id;
Procedure insert_validate
(p_rec in pqp_exr_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
chk_startup_action(p_insert =>true
,p_business_group_id =>p_rec.business_group_id
,p_legislation_code =>p_rec.legislation_code
,p_legislation_subgroup =>NULL
);
End insert_validate;
Procedure update_validate
(p_rec in pqp_exr_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_startup_action(p_insert =>false
,p_business_group_id =>p_rec.business_group_id
,p_legislation_code =>p_rec.legislation_code
,p_legislation_subgroup=>NULL
);
chk_non_updateable_args (
p_rec => p_rec
);
End update_validate;
Procedure delete_validate
(p_rec in pqp_exr_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
chk_startup_action(p_insert =>false
,p_business_group_id =>pqp_exr_shd.g_old_rec.business_group_id
,p_legislation_code =>pqp_exr_shd.g_old_rec.legislation_code
,p_legislation_subgroup =>NULL
);
End delete_validate;