The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure delete_dml(p_rec in ghr_pdh_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'delete_dml';
delete from ghr_pd_routing_history
where pd_routing_history_id = p_rec.pd_routing_history_id;
End delete_dml;
Procedure pre_delete(p_rec in ghr_pdh_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_delete';
End pre_delete;
Procedure post_delete(p_rec in ghr_pdh_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_delete';
ghr_pdh_rkd.after_delete (
p_pd_routing_history_id => p_rec.pd_routing_history_id,
p_position_description_id_o => ghr_pdh_shd.g_old_rec.position_description_id,
p_initiator_flag_o => ghr_pdh_shd.g_old_rec.initiator_flag,
p_requester_flag_o => ghr_pdh_shd.g_old_rec.requester_flag,
p_approver_flag_o => ghr_pdh_shd.g_old_rec.approver_flag,
p_personnelist_flag_o => ghr_pdh_shd.g_old_rec.personnelist_flag,
p_reviewer_flag_o => ghr_pdh_shd.g_old_rec.reviewer_flag,
p_authorizer_flag_o => ghr_pdh_shd.g_old_rec.authorizer_flag,
p_approved_flag_o => ghr_pdh_shd.g_old_rec.approved_flag,
p_user_name_o => ghr_pdh_shd.g_old_rec.user_name,
p_user_name_employee_id_o => ghr_pdh_shd.g_old_rec.user_name_employee_id,
p_user_name_emp_first_name_o => ghr_pdh_shd.g_old_rec.user_name_emp_first_name,
p_user_name_emp_last_name_o => ghr_pdh_shd.g_old_rec.user_name_emp_last_name,
p_user_name_emp_middle_names_o=> ghr_pdh_shd.g_old_rec.user_name_emp_middle_names,
p_action_taken_o => ghr_pdh_shd.g_old_rec.action_taken,
p_groupbox_id_o => ghr_pdh_shd.g_old_rec.groupbox_id,
p_routing_list_id_o => ghr_pdh_shd.g_old_rec.routing_list_id,
p_routing_seq_number_o => ghr_pdh_shd.g_old_rec.routing_seq_number,
p_date_notification_sent_o => ghr_pdh_shd.g_old_rec.date_notification_sent,
p_item_key_o => ghr_pdh_shd.g_old_rec.item_key,
p_object_version_number_o => ghr_pdh_shd.g_old_rec.object_version_number );
End post_delete;
ghr_pdh_bus.delete_validate(p_rec);
pre_delete(p_rec);
delete_dml(p_rec);
post_delete(p_rec);