From 889601cdb8671f0de591956cf86b249bcd394728 Mon Sep 17 00:00:00 2001 From: Rod Roark Date: Wed, 20 Feb 2013 12:46:20 -0800 Subject: [PATCH] Deleter fix for procedure orders. --- interface/patient_file/deleter.php | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) diff --git a/interface/patient_file/deleter.php b/interface/patient_file/deleter.php index 0766909f6..b62c8bca9 100644 --- a/interface/patient_file/deleter.php +++ b/interface/patient_file/deleter.php @@ -95,10 +95,23 @@ function delete_drug_sales($patient_id, $encounter_id=0) { // function form_delete($formdir, $formid) { $formdir = ($formdir == 'newpatient') ? 'encounter' : $formdir; - if (substr($formdir,0,3) == 'LBF') + if (substr($formdir,0,3) == 'LBF') { row_delete("lbf_data", "form_id = '$formid'"); - else + } + else if ($formdir == 'procedure_order') { + $tres = sqlStatement("SELECT procedure_report_id FROM procedure_report " . + "WHERE procedure_order_id = ?", array($formid)); + while ($trow = sqlFetchArray($tres)) { + $reportid = 0 + $trow['procedure_report_id']; + row_delete("procedure_result", "procedure_report_id = '$reportid'"); + } + row_delete("procedure_report", "procedure_order_id = '$formid'"); + row_delete("procedure_order_code", "procedure_order_id = '$formid'"); + row_delete("procedure_order", "procedure_order_id = '$formid'"); + } + else { row_delete("form_$formdir", "id = '$formid'"); + } } // Delete a specified document including its associated relations and file. -- 2.11.4.GIT