The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure update_dml
(p_rec in out nocopy pay_pev_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'update_dml';
update pay_process_events
set
process_event_id = p_rec.process_event_id
,assignment_id = p_rec.assignment_id
,effective_date = p_rec.effective_date
,change_type = p_rec.change_type
,status = p_rec.status
,description = p_rec.description
,event_update_id = p_rec.event_update_id
,business_group_id = p_rec.business_group_id
,org_process_event_group_id = p_rec.org_process_event_group_id
,surrogate_key = p_rec.surrogate_key
,object_version_number = p_rec.object_version_number
,calculation_date = p_rec.calculation_date
,retroactive_status = p_rec.retroactive_status
,noted_value = p_rec.noted_value
where process_event_id = p_rec.process_event_id;
End update_dml;
Procedure pre_update
(p_rec in pay_pev_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'pre_update';
End pre_update;
Procedure post_update
(p_rec in pay_pev_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'post_update';
pay_pev_rku.after_update
(p_process_event_id
=> p_rec.process_event_id
,p_assignment_id
=> p_rec.assignment_id
,p_effective_date
=> p_rec.effective_date
,p_change_type
=> p_rec.change_type
,p_status
=> p_rec.status
,p_description
=> p_rec.description
,p_event_update_id
=> p_rec.event_update_id
,p_business_group_id
=> p_rec.business_group_id
,p_org_process_event_group_id
=> p_rec.org_process_event_group_id
,p_surrogate_key
=> p_rec.surrogate_key
,p_object_version_number
=> p_rec.object_version_number
,p_calculation_date
=> p_rec.calculation_date
,p_retroactive_status
=> p_rec.retroactive_status
,p_noted_value
=> p_rec.noted_value
,p_assignment_id_o
=> pay_pev_shd.g_old_rec.assignment_id
,p_effective_date_o
=> pay_pev_shd.g_old_rec.effective_date
,p_change_type_o
=> pay_pev_shd.g_old_rec.change_type
,p_status_o
=> pay_pev_shd.g_old_rec.status
,p_description_o
=> pay_pev_shd.g_old_rec.description
,p_event_update_id_o
=> pay_pev_shd.g_old_rec.event_update_id
,p_business_group_id_o
=> pay_pev_shd.g_old_rec.business_group_id
,p_org_process_event_group_id_o
=> pay_pev_shd.g_old_rec.org_process_event_group_id
,p_surrogate_key_o
=> pay_pev_shd.g_old_rec.surrogate_key
,p_object_version_number_o
=> pay_pev_shd.g_old_rec.object_version_number
,p_calculation_date_o
=> pay_pev_shd.g_old_rec.calculation_date
,p_retroactive_status_o
=> pay_pev_shd.g_old_rec.retroactive_status
,p_noted_value_o
=> pay_pev_shd.g_old_rec.noted_value
);
End post_update;
If (p_rec.event_update_id = hr_api.g_number) then
p_rec.event_update_id :=
pay_pev_shd.g_old_rec.event_update_id;
pay_pev_bus.update_validate
(p_rec
);
pay_pev_upd.pre_update(p_rec);
pay_pev_upd.update_dml(p_rec);
pay_pev_upd.post_update
(p_rec
);
,p_event_update_id in number default hr_api.g_number
,p_business_group_id in number default hr_api.g_number
,p_org_process_event_group_id in number default hr_api.g_number
,p_surrogate_key in varchar2 default hr_api.g_varchar2
,p_calculation_date in date default hr_api.g_date
,p_retroactive_status in varchar2 default hr_api.g_varchar2
,p_noted_value in varchar2 default hr_api.g_varchar2
) is
--
l_rec pay_pev_shd.g_rec_type;
,p_event_update_id
,p_business_group_id
,p_org_process_event_group_id
,p_surrogate_key
,p_object_version_number
,p_calculation_date
,p_retroactive_status
,p_noted_value
);