The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure delete_dml(p_rec in ghr_prh_shd.g_rec_type) is
--
l_proc varchar2(72);
l_proc := g_package||'delete_dml';
delete from ghr_pa_routing_history
where pa_routing_history_id = p_rec.pa_routing_history_id;
End delete_dml;
Procedure pre_delete(p_rec in ghr_prh_shd.g_rec_type) is
--
l_proc varchar2(72) ;
l_proc := g_package||'pre_delete';
End pre_delete;
Procedure post_delete(p_rec in ghr_prh_shd.g_rec_type) is
--
l_proc varchar2(72) ;
l_proc := g_package||'post_delete';
ghr_prh_rkd.after_delete (
p_pa_routing_history_id => p_rec.pa_routing_history_id,
p_pa_request_id_o => ghr_prh_shd.g_old_rec.pa_request_id,
p_action_taken_o => ghr_prh_shd.g_old_rec.action_taken,
p_approved_flag_o => ghr_prh_shd.g_old_rec.approved_flag,
p_approver_flag_o => ghr_prh_shd.g_old_rec.approver_flag,
p_approval_status_o => ghr_prh_shd.g_old_rec.approval_status,
p_attachment_modified_flag_o => ghr_prh_shd.g_old_rec.attachment_modified_flag,
p_authorizer_flag_o => ghr_prh_shd.g_old_rec.authorizer_flag,
p_date_notification_sent_o => ghr_prh_shd.g_old_rec.date_notification_sent,
p_groupbox_id_o => ghr_prh_shd.g_old_rec.groupbox_id,
p_initiator_flag_o => ghr_prh_shd.g_old_rec.initiator_flag,
p_nature_of_action_id_o => ghr_prh_shd.g_old_rec.nature_of_action_id,
p_noa_family_code_o => ghr_prh_shd.g_old_rec.noa_family_code,
p_notepad_o => ghr_prh_shd.g_old_rec.notepad,
p_personnelist_flag_o => ghr_prh_shd.g_old_rec.personnelist_flag,
p_requester_flag_o => ghr_prh_shd.g_old_rec.requester_flag,
p_reviewer_flag_o => ghr_prh_shd.g_old_rec.reviewer_flag,
p_routing_list_id_o => ghr_prh_shd.g_old_rec.routing_list_id,
p_routing_seq_number_o => ghr_prh_shd.g_old_rec.routing_seq_number,
p_second_nature_of_action_id_o =>
ghr_prh_shd.g_old_rec.second_nature_of_action_id,
p_user_name_o => ghr_prh_shd.g_old_rec.user_name,
p_user_name_employee_id_o => ghr_prh_shd.g_old_rec.user_name_employee_id,
p_user_name_emp_first_name_o => ghr_prh_shd.g_old_rec.user_name_emp_first_name,
p_user_name_emp_last_name_o => ghr_prh_shd.g_old_rec.user_name_emp_last_name,
p_user_name_emp_middle_names_o =>
ghr_prh_shd.g_old_rec.user_name_emp_middle_names,
p_object_version_number_o => ghr_prh_shd.g_old_rec.object_version_number
);
End post_delete;
ghr_prh_bus.delete_validate(p_rec);
pre_delete(p_rec);
delete_dml(p_rec);
post_delete(p_rec);