The following lines contain the word 'select', 'insert', 'update' or 'delete':
select 'Y'
from pay_payroll_actions pya
, pay_assignment_actions aga
where pya.payroll_action_id = p_target_payroll_action_id
and pya.action_type = 'Q'
and aga.payroll_action_id = pya.payroll_action_id
and aga.action_status in ('C', 'S');
select 'Y'
from pay_payroll_actions pya
where pya.target_payroll_action_id = p_target_payroll_action_id
and pya.action_type = 'U';
select /*+ INDEX(ppq PAY_PAYROLL_ACTIONS_PK) */
'Y'
from pay_payroll_actions ppq
, pay_assignment_actions app
, pay_action_interlocks ail
, pay_assignment_actions aqr
where aqr.payroll_action_id = p_target_payroll_action_id
and ail.locked_action_id = aqr.assignment_action_id
and app.assignment_action_id = ail.locking_action_id
and ppq.payroll_action_id = app.payroll_action_id
and ppq.action_type = 'P';
select 'Y'
from pay_payroll_actions pya
where pya.payroll_action_id = p_target_payroll_action_id
and pya.business_group_id = p_business_group_id
and pya.effective_date = p_effective_date;
select 'Y'
from pay_org_payment_methods_f org
where org.org_payment_method_id = p_org_payment_method_id
and org.business_group_id = p_business_group_id
and p_effective_date between org.effective_start_date
and org.effective_end_date;
select 'Y'
from pay_org_payment_methods_f org
, pay_payment_types typ
where org.org_payment_method_id = p_org_payment_method_id
and typ.payment_type_id = org.payment_type_id
and typ.category = 'MT'
and p_effective_date between org.effective_start_date
and org.effective_end_date;
select 'Y'
from pay_payroll_actions
where payroll_action_id = p_payroll_action_id
and current_task is not null;
select 'Y'
from pay_payroll_actions pac
, pay_assignment_actions aac
, pay_action_interlocks aci
where aci.locked_action_id = p_assignment_action_id
and aac.assignment_action_id = aci.locking_action_id
and pac.payroll_action_id = aac.payroll_action_id
and pac.action_type in ('E', 'H', 'A', 'M');
Procedure check_non_updateable_args(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'check_non_updateable_args';
end check_non_updateable_args;
Procedure insert_dml
(p_rec in out nocopy g_rec_type
,p_action_type in pay_payroll_actions.action_type%TYPE
,p_payroll_id in pay_payroll_actions.payroll_id%TYPE
,p_consolidation_set_id in
pay_payroll_actions.consolidation_set_id%TYPE
,p_action_population_status in
pay_payroll_actions.action_population_status%TYPE
) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into pay_payroll_actions
(payroll_action_id
,business_group_id
,org_payment_method_id
,action_status
,effective_date
,target_payroll_action_id
,action_type
,payroll_id
,consolidation_set_id
,action_population_status
,object_version_number
)
values
(p_rec.payroll_action_id
,p_rec.business_group_id
,p_rec.org_payment_method_id
,p_rec.action_status
,p_rec.effective_date
,p_rec.target_payroll_action_id
,p_action_type
,p_payroll_id
,p_consolidation_set_id
,p_action_population_status
,p_rec.object_version_number
);
End insert_dml;
Procedure update_dml(p_rec in out nocopy g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_dml';
update pay_payroll_actions
set action_status = p_rec.action_status
, object_version_number = p_rec.object_version_number
where payroll_action_id = p_rec.payroll_action_id;
End update_dml;
Procedure delete_dml(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'delete_dml';
delete from pay_payroll_actions
where payroll_action_id = p_rec.payroll_action_id;
End delete_dml;
Procedure pre_insert
(p_rec in out nocopy g_rec_type
,p_action_type out nocopy varchar2
,p_payroll_id out nocopy number
,p_consolidation_set_id out nocopy pay_payroll_actions.
consolidation_set_id%TYPE
,p_action_population_status out nocopy varchar2
) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select pay_payroll_actions_s.nextval from sys.dual;
select pya.payroll_id
, pya.consolidation_set_id
from pay_payroll_actions pya
where pya.payroll_action_id = v_target_payroll_action_id;
End pre_insert;
Procedure pre_update(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_update';
End pre_update;
Procedure pre_delete(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_delete';
End pre_delete;
Procedure post_insert
(p_rec in g_rec_type
,p_assignment_action_id out nocopy number
,p_a_object_version_number out nocopy number
) is
--
l_proc varchar2(72) := g_package||'post_insert';
End post_insert;
Procedure post_update(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_update';
End post_update;
Procedure post_delete(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_delete';
End post_delete;
select pya.payroll_action_id
, pya.business_group_id
, pya.org_payment_method_id
, pya.action_status
, pya.effective_date
, pya.target_payroll_action_id
, aga.object_version_number
, pya.object_version_number
from pay_payroll_actions pya
, pay_assignment_actions aga
where /* Payroll action lock */
pya.payroll_action_id = p_payroll_action_id
and pya.action_type = 'U'
/* Assignment action lock */
and aga.payroll_action_id = pya.payroll_action_id
for update nowait;
Procedure insert_validate(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_validate';
check_non_updateable_args(p_rec => p_rec);
End update_validate;
Procedure delete_validate(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;
insert_validate(p_rec);
pre_insert
(p_rec => p_rec
,p_action_type => l_action_type
,p_payroll_id => l_payroll_id
,p_consolidation_set_id => l_consolidation_set_id
,p_action_population_status => l_action_population_status
);
insert_dml
(p_rec => p_rec
,p_action_type => l_action_type
,p_payroll_id => l_payroll_id
,p_consolidation_set_id => l_consolidation_set_id
,p_action_population_status => l_action_population_status
);
post_insert
(p_rec => p_rec
,p_assignment_action_id => l_assignment_action_id
,p_a_object_version_number => l_a_object_version_number
);
update_validate(convert_defs(p_rec));
pre_update(p_rec);
update_dml(p_rec);
post_update(p_rec);
delete_validate(p_rec);
pre_delete(p_rec);
delete_dml(p_rec);
post_delete(p_rec);
select aga.action_status
from pay_payroll_actions pya
, pay_assignment_actions aga
where pya.payroll_action_id = p_payroll_action_id
and aga.payroll_action_id = pya.payroll_action_id;