The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure delete_dml
(p_rec in ghr_cah_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_dml';
delete from ghr_compl_ca_headers
where compl_ca_header_id = p_rec.compl_ca_header_id;
End delete_dml;
Procedure pre_delete(p_rec in ghr_cah_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_delete';
End pre_delete;
Procedure post_delete(p_rec in ghr_cah_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_delete';
ghr_cah_rkd.after_delete
(p_compl_ca_header_id => p_rec.compl_ca_header_id
,p_complaint_id_o => ghr_cah_shd.g_old_rec.complaint_id
,p_ca_source_o => ghr_cah_shd.g_old_rec.ca_source
,p_last_compliance_report_o => ghr_cah_shd.g_old_rec.last_compliance_report
,p_compliance_closed_o => ghr_cah_shd.g_old_rec.compliance_closed
,p_compl_docket_number_o => ghr_cah_shd.g_old_rec.compl_docket_number
,p_appeal_docket_number_o => ghr_cah_shd.g_old_rec.appeal_docket_number
,p_pfe_docket_number_o => ghr_cah_shd.g_old_rec.pfe_docket_number
,p_pfe_received_o => ghr_cah_shd.g_old_rec.pfe_received
,p_agency_brief_pfe_due_o => ghr_cah_shd.g_old_rec.agency_brief_pfe_due
,p_agency_brief_pfe_date_o => ghr_cah_shd.g_old_rec.agency_brief_pfe_date
,p_decision_pfe_date_o => ghr_cah_shd.g_old_rec.decision_pfe_date
,p_decision_pfe_o => ghr_cah_shd.g_old_rec.decision_pfe
,p_agency_recvd_pfe_decision_o => ghr_cah_shd.g_old_rec.agency_recvd_pfe_decision
,p_agency_pfe_brief_forwd_o => ghr_cah_shd.g_old_rec.agency_pfe_brief_forwd
,p_agency_notified_noncom_o => ghr_cah_shd.g_old_rec.agency_notified_noncom
,p_comrep_noncom_req_o => ghr_cah_shd.g_old_rec.comrep_noncom_req
,p_eeo_off_req_data_from_org_o => ghr_cah_shd.g_old_rec.eeo_off_req_data_from_org
,p_org_forwd_data_to_eeo_off_o => ghr_cah_shd.g_old_rec.org_forwd_data_to_eeo_off
,p_dec_implemented_o => ghr_cah_shd.g_old_rec.dec_implemented
,p_complaint_reinstated_o => ghr_cah_shd.g_old_rec.complaint_reinstated
,p_stage_complaint_reinstated_o => ghr_cah_shd.g_old_rec.stage_complaint_reinstated
,p_object_version_number_o => ghr_cah_shd.g_old_rec.object_version_number
);
End post_delete;
ghr_cah_bus.delete_validate(p_rec);
ghr_cah_del.pre_delete(p_rec);
ghr_cah_del.delete_dml(p_rec);
ghr_cah_del.post_delete(p_rec);