interface/reports/clinical_reports.php

   1 <?php
   2 /**
   3  * This report lists prescriptions and their dispensations according
   4  * to various input selection criteria.
   5  *
   6  * Prescription report written by Rod Roark, 2010
   7  * Fixed drug name search to work in a broader sense - tony@mi-squared.com, 2010
   8  * Added five new reports as per EHR certification requirements for Patient Lists - OpenEMR Support LLC, 2010
   9  *
  10  * Copyright (C) 2010 OpenEMR Support LLC
  11  * Copyright (C) 2017 Brady Miller <brady.g.miller@gmail.com>
  12  *
  13  * LICENSE: This program is free software; you can redistribute it and/or
  14  * modify it under the terms of the GNU General Public License
  15  * as published by the Free Software Foundation; either version 3
  16  * of the License, or (at your option) any later version.
  17  * This program is distributed in the hope that it will be useful,
  18  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  19  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  20  * GNU General Public License for more details.
  21  * You should have received a copy of the GNU General Public License
  22  * along with this program. If not, see <http://opensource.org/licenses/gpl-license.php>;.
  23  *
  24  * @package OpenEMR
  25  * @author  Brady Miller <brady.g.miller@gmail.com>
  26  * @link    http://www.open-emr.org
  27  */
  28
  29 //SANITIZE ALL ESCAPES
  30 $sanitize_all_escapes=true;
  31 //
  32
  33 //STOP FAKE REGISTER GLOBALS
  34 $fake_register_globals=false;
  35
  36         require_once("../globals.php");
  37         require_once("$srcdir/patient.inc");
  38         require_once("$srcdir/options.inc.php");
  39         require_once("../drugs/drugs.inc.php");
  40         require_once("$srcdir/formatting.inc.php");
  41   require_once("../../custom/code_types.inc.php");
  42         $comarr = array('allow_sms'=>xl('Allow SMS'),'allow_voice'=>xl('Allow Voice Message'),'allow_mail'=>xl('Allow Mail Message'),'allow_email'=>xl('Allow Email'));
  43         function add_date($givendate,$day=0,$mth=0,$yr=0) {
  44                 $cd = strtotime($givendate);
  45                 $newdate = date('Y-m-d H:i:s', mktime(date('h',$cd),
  46                 date('i',$cd), date('s',$cd), date('m',$cd)+$mth,
  47                 date('d',$cd)+$day, date('Y',$cd)+$yr));
  48                 return $newdate;
  49         }
  50         $type = $_POST["type"];
  51         $facility = isset($_POST['facility']) ? $_POST['facility'] : '';
  52         if($_POST['date_from'] != "")
  53                 $sql_date_from = $_POST['date_from'];
  54         else
  55                 $sql_date_from = fixDate($_POST['date_from'], date('Y-01-01 H:i:s'));
  56
  57         if($_POST['date_to'] != "")
  58                 $sql_date_to = $_POST['date_to'];
  59         else
  60                 $sql_date_to = fixDate($_POST['date_to']  , add_date(date('Y-m-d H:i:s')));
  61
  62
  63         $patient_id = trim($_POST["patient_id"]);
  64         $age_from = $_POST["age_from"];
  65         $age_to = $_POST["age_to"];
  66         $sql_gender = $_POST["gender"];
  67         $sql_ethnicity = $_POST["ethnicity"];
  68         $sql_race=$_POST["race"];
  69         $form_drug_name = trim($_POST["form_drug_name"]);
  70         $form_diagnosis = trim($_POST["form_diagnosis"]);
  71         $form_lab_results = trim($_POST["form_lab_results"]);
  72         $form_service_codes = trim($_POST["form_service_codes"]);
  73         $form_immunization = trim($_POST["form_immunization"]);
  74         $communication = trim($_POST["communication"]);
  75
  76 ?>
  77 <html>
  78 <head>
  79 <?php html_header_show();?>
  80 <title>
  81 <?php echo htmlspecialchars(xl('Clinical Reports'),ENT_NOQUOTES); ?>
  82 </title>
  83 <script type="text/javascript" src="../../library/overlib_mini.js"></script>
  84 <script type="text/javascript" src="../../library/textformat.js?v=<?php echo $v_js_includes; ?>"></script>
  85 <script type="text/javascript" src="../../library/dialog.js?v=<?php echo $v_js_includes; ?>"></script>
  86 <script type="text/javascript" src="<?php echo $GLOBALS['assets_static_relative']; ?>/jquery-min-3-1-1/index.js"></script>
  87 <script type="text/javascript" src="<?php echo $GLOBALS['assets_static_relative']; ?>/jquery-datetimepicker-2-5-4/build/jquery.datetimepicker.full.min.js"></script>
  88 <script language="JavaScript">
  89
  90  var mypcc = '<?php echo $GLOBALS['phone_country_code'] ?>';
  91
  92  $(document).ready(function() {
  93   var win = top.printLogSetup ? top : opener.top;
  94   win.printLogSetup(document.getElementById('printbutton'));
  95  });
  96
  97            function toggle(id) {
  98                 var tr = document.getElementById(id);
  99                 if (tr==null) { return; }
 100                 var bExpand = tr.style.display == '';
 101                 tr.style.display = (bExpand ? 'none' : '');
 102             }
 103             function changeimage(id, sMinus, sPlus) {
 104                 var img = document.getElementById(id);
 105                 if (img!=null) {
 106                    var bExpand = img.src.indexOf(sPlus) >= 0;
 107                         if (!bExpand)
 108                         img.src = "../pic/blue-up-arrow.gif";
 109                         else
 110                         img.src = "../pic/blue-down-arrow.gif";
 111                 }
 112             }
 113            function Toggle_trGrpHeader2(t_id,i_id) {
 114                 var img=i_id;
 115                 changeimage(img, 'blue-down-arrow.gif', 'blue-up-arrow.gif');
 116                 var id1=t_id;
 117                 toggle(id1);
 118              }
 119 // This is for callback by the find-code popup.
 120 // Appends to or erases the current list of diagnoses.
 121 function set_related(codetype, code, selector, codedesc) {
 122  var f = document.forms[0][current_sel_name];
 123  var s = f.value;
 124  if (code) {
 125   if (s.length > 0) s += ';';
 126   s += codetype + ':' + code;
 127  } else {
 128   s = '';
 129  }
 130  f.value = s;
 131 }
 132
 133 //This invokes the find-code popup.
 134 function sel_diagnosis(e) {
 135  current_sel_name = e.name;
 136  dlgopen('../patient_file/encounter/find_code_popup.php?codetype=<?php echo collect_codetypes("diagnosis","csv"); ?>', '_blank', 500, 400);
 137 }
 138
 139 //This invokes the find-code popup.
 140 function sel_procedure(e) {
 141  current_sel_name = e.name;
 142  dlgopen('../patient_file/encounter/find_code_popup.php?codetype=<?php echo collect_codetypes("procedure","csv"); ?>', '_blank', 500, 400);
 143 }
 144 </script>
 145
 146 <link rel='stylesheet' href='<?php echo $css_header ?>' type='text/css'>
 147 <link rel="stylesheet" href="<?php echo $GLOBALS['assets_static_relative']; ?>/jquery-datetimepicker-2-5-4/build/jquery.datetimepicker.min.css">
 148 <style type="text/css">
 149 /* specifically include & exclude from printing */
 150 @media print {
 151 #report_parameters {
 152         visibility: hidden;
 153         display: none;
 154 }
 155 #report_parameters_daterange {
 156         visibility: visible;
 157         display: inline;
 158 }
 159 #report_results table {
 160         margin-top: 0px;
 161 }
 162 }
 163
 164 /* specifically exclude some from the screen */
 165 @media screen {
 166 #report_parameters_daterange {
 167         visibility: hidden;
 168         display: none;
 169 }
 170 }
 171 .optional_area_service_codes {
 172         <?php
 173         if($type != 'Service Codes' || $type == '')
 174         {
 175         ?>
 176         display: none;
 177         <?php
 178         }
 179         ?>
 180 }
 181 </style>
 182 <script language="javascript" type="text/javascript">
 183         function checkType() {
 184                 if($('#type').val() == 'Service Codes')
 185                 {
 186                         $('.optional_area_service_codes').css("display", "inline");
 187                 }
 188                 else
 189                 {
 190                         $('.optional_area_service_codes').css("display", "none");
 191                 }
 192         }
 193
 194         function submitForm() {
 195                 var d_from = new String($('#date_from').val());
 196                 var d_to = new String($('#date_to').val());
 197
 198                 var d_from_arr = d_from.split('-');
 199                 var d_to_arr = d_to.split('-');
 200
 201                 var dt_from = new Date(d_from_arr[0], d_from_arr[1], d_from_arr[2]);
 202                 var dt_to = new Date(d_to_arr[0], d_to_arr[1], d_to_arr[2]);
 203
 204                 var mili_from = dt_from.getTime();
 205                 var mili_to = dt_to.getTime();
 206                 var diff = mili_to - mili_from;
 207
 208                 $('#date_error').css("display", "none");
 209
 210                 if(diff < 0) //negative
 211                 {
 212                         $('#date_error').css("display", "inline");
 213                 }
 214                 else
 215                 {
 216                         $("#form_refresh").attr("value","true");
 217                         $("#theform").submit();
 218                 }
 219         }
 220
 221         $(document).ready(function() {
 222                 $(".numeric_only").keydown(function(event) {
 223                         //alert(event.keyCode);
 224                         // Allow only backspace and delete
 225                         if ( event.keyCode == 46 || event.keyCode == 8 ) {
 226                                 // let it happen, don't do anything
 227                         }
 228                         else {
 229                                 if(!((event.keyCode >= 96 && event.keyCode <= 105) || (event.keyCode >= 48 && event.keyCode <= 57)))
 230                                 {
 231                                         event.preventDefault();
 232                                 }
 233                         }
 234                 });
 235
 236                 $('.datetimepicker').datetimepicker({
 237                         <?php $datetimepicker_timepicker = true; ?>
 238                         <?php $datetimepicker_formatInput = false; ?>
 239                         <?php require($GLOBALS['srcdir'] . '/js/xl/jquery-datetimepicker-2-5-4.js.php'); ?>
 240                         <?php // can add any additional javascript settings to datetimepicker here; need to prepend first setting with a comma ?>
 241                 });
 242         });
 243 </script>
 244 </head>
 245 <body class="body_top">
 246 <!-- Required for the popup date selectors -->
 247 <div id="overDiv" style="position:absolute; visibility:hidden; z-index:1000;"></div>
 248 <span class='title'>
 249 <?php echo htmlspecialchars(xl('Report - Clinical'),ENT_NOQUOTES); ?>
 250 </span>
 251 <!-- Search can be done using age range, gender, and ethnicity filters.
 252 Search options include diagnosis, procedure, prescription, medical history, and lab results.
 253 -->
 254 <div id="report_parameters_daterange"> <?php echo htmlspecialchars(date("d F Y", strtotime($sql_date_from)),ENT_NOQUOTES) .
 255       " &nbsp; to &nbsp; ". htmlspecialchars(date("d F Y", strtotime($sql_date_to)),ENT_NOQUOTES); ?> </div>
 256 <form name='theform' id='theform' method='post' action='clinical_reports.php'>
 257         <div id="report_parameters">
 258                 <input type='hidden' name='form_refresh' id='form_refresh' value=''/>
 259                 <table>
 260                       <tr>
 261                         <td width='740px'><div style='float:left'>
 262                                 <table class='text'>
 263                                         <tr>
 264                                                 <td class='label' width="100"><?php echo htmlspecialchars(xl('Facility'),ENT_NOQUOTES); ?>: </td>
 265                                                 <td width="250"> <?php dropdown_facility($facility,'facility',false); ?> </td>
 266                                                 <td class='label' width="100"><?php echo htmlspecialchars(xl('From'),ENT_NOQUOTES); ?>: </td>
 267                                                 <td><input type='text' class='datetimepicker' name='date_from' id="date_from" size='18' value='<?php echo htmlspecialchars($sql_date_from,ENT_QUOTES); ?>' title='yyyy-mm-dd H:m:s'></td>
 268                                         </tr>
 269                                         <tr>
 270                                                 <td class='label'><?php echo htmlspecialchars(xl('Patient ID'),ENT_NOQUOTES); ?>:</td>
 271                                                 <td><input name='patient_id' class="numeric_only" type='text' id="patient_id" title='<?php echo htmlspecialchars(xl('Optional numeric patient ID'),ENT_QUOTES); ?>' value='<?php echo htmlspecialchars($patient_id,ENT_QUOTES); ?>' size='10' maxlength='20' /></td>
 272                                                 <td class='label'><?php echo htmlspecialchars(xl('To'),ENT_NOQUOTES); ?>: </td>
 273                                                 <td><input type='text' class='datetimepicker' name='date_to' id="date_to" size='18' value='<?php echo htmlspecialchars($sql_date_to,ENT_QUOTES); ?>' title='yyyy-mm-dd H:m:s'></td>
 274                                         </tr>
 275                                         <tr>
 276                                                 <td class='label'><?php echo htmlspecialchars(xl('Age Range'),ENT_NOQUOTES); ?>:</td>
 277                                                 <td><?php echo htmlspecialchars(xl('From'),ENT_NOQUOTES); ?>
 278                                                         <input name='age_from' class="numeric_only" type='text' id="age_from" value="<?php echo htmlspecialchars($age_from,ENT_QUOTES); ?>" size='3' maxlength='3' /> <?php echo htmlspecialchars(xl('To'),ENT_NOQUOTES); ?>
 279                                                         <input name='age_to' class="numeric_only" type='text' id="age_to" value="<?php echo htmlspecialchars($age_to,ENT_QUOTES); ?>" size='3' maxlength='3' /></td>
 280                                                 <td class='label'><?php echo htmlspecialchars(xl('Problem DX'),ENT_NOQUOTES); ?>:</td>
 281                                                 <td><input type='text' name='form_diagnosis' size='10' maxlength='250' value='<?php echo htmlspecialchars($form_diagnosis,ENT_QUOTES); ?>' onclick='sel_diagnosis(this)' title='<?php echo htmlspecialchars(xl('Click to select or change diagnoses'),ENT_QUOTES); ?>' readonly /></td>
 282                                                 <td>&nbsp;</td>
 283 <!-- Visolve -->
 284                                         </tr>
 285                                         <tr>
 286                                                 <td class='label'><?php echo htmlspecialchars(xl('Gender'),ENT_NOQUOTES); ?>:</td>
 287                                                 <td><?php echo generate_select_list('gender', 'sex', $sql_gender, 'Select Gender', 'Unassigned', '', ''); ?></td>
 288                                                 <td class='label'><?php echo htmlspecialchars(xl('Drug'),ENT_NOQUOTES); ?>:</td>
 289                                                 <td><input type='text' name='form_drug_name' size='10' maxlength='250' value='<?php echo htmlspecialchars($form_drug_name,ENT_QUOTES); ?>' title='<?php echo htmlspecialchars(xl('Optional drug name, use % as a wildcard'),ENT_QUOTES); ?>' /></td>
 290
 291                                         </tr>
 292                                         <tr>
 293                                                 <td class='label'><?php echo htmlspecialchars(xl('Race'),ENT_NOQUOTES); ?>:</td>
 294                                                 <td><?php echo generate_select_list('race', 'race', $sql_race, 'Select Race', 'Unassigned', '', ''); ?></td>
 295                                 <td class='label'><?php echo htmlspecialchars(xl('Ethnicity'),ENT_NOQUOTES); ?>:</td>
 296                         <td><?php echo generate_select_list('ethnicity', 'ethnicity', $sql_ethnicity, 'Select Ethnicity', 'Unassigned', '', ''); ?></td>
 297                                                 <td class='label'><?php echo htmlspecialchars(xl('Immunization'),ENT_NOQUOTES); ?>:</td>
 298                                                 <td><input type='text' name='form_immunization' size='10' maxlength='250' value='<?php echo htmlspecialchars($form_immunization,ENT_QUOTES); ?>' title='<?php echo htmlspecialchars(xl('Optional immunization name or code, use % as a wildcard'),ENT_QUOTES); ?>' /></td>
 299                                         </tr>
 300                                         <tr>
 301                                                 <td class='label' width='100'><?php echo htmlspecialchars(xl('Lab Result'),ENT_NOQUOTES); ?>:</td>
 302                                                 <td width='100'><input type='text' name='form_lab_results' size='13' maxlength='250' value='<?php echo htmlspecialchars($form_lab_results,ENT_QUOTES); ?>' title='<?php echo htmlspecialchars(xl('Result, use % as a wildcard'),ENT_QUOTES); ?>' /></td>
 303
 304                                                 <td class='label' width='100'><?php echo htmlspecialchars(xl('Option'),ENT_NOQUOTES); ?>:</td>
 305                                                 <td><select name="type" id="type" onChange="checkType();">
 306                                                         <option> <?php echo htmlspecialchars(xl('Select'),ENT_NOQUOTES); ?></option>
 307                                                         <option value="Procedure" <?php if($type == 'Procedure') { echo "selected"; } ?>><?php echo htmlspecialchars(xl('Procedure'),ENT_NOQUOTES); ?></option>
 308                                                         <option value="Medical History" <?php if($type == 'Medical History') { echo "selected"; } ?>><?php echo htmlspecialchars(xl('Medical History'),ENT_NOQUOTES); ?></option>
 309                                                         <option value="Service Codes" <?php if($type == 'Service Codes') { echo "selected"; } ?>><?php echo htmlspecialchars(xl('Service Codes'),ENT_NOQUOTES); ?></option>
 310                                                    </select>
 311                                                 </td>
 312                                                 <td class='label'><?php echo htmlspecialchars(xl('Communication'),ENT_NOQUOTES); ?>:</td>
 313                         <td>
 314                                                         <select name="communication" id="communication" title="<?php echo htmlspecialchars(xl('Select Communication Preferences'),ENT_NOQUOTES); ?>">
 315                                                                 <option value=""> <?php echo htmlspecialchars(xl('Select'),ENT_NOQUOTES); ?></option>
 316                                                                 <?php foreach($comarr as $comkey => $comvalue){ ?>
 317                                                                 <option value="<?php echo attr($comkey); ?>" <?php if($communication == $comkey){ echo "selected";}?>><?php echo text($comvalue); ?></option>
 318                                                                 <?php } ?>
 319                                                         </select>
 320                                                 </td>
 321                                         </tr>
 322                                 </table>
 323                                 <table>
 324                                         <tr class="optional_area_service_codes">
 325                                         <td width='100'>&nbsp;</td>
 326                                         <td width='100'>&nbsp;</td>
 327                                         <td width='195'>&nbsp;</td>
 328                                         <td class='label' width='76'><?php echo htmlspecialchars(xl('Code'),ENT_NOQUOTES); ?>:</td>
 329                                         <td> <input type='text' name='form_service_codes' size='10' maxlength='250' value='<?php echo htmlspecialchars($form_service_codes,ENT_QUOTES); ?>' onclick='sel_procedure(this)' title='<?php echo htmlspecialchars(xl('Click to select or change service codes'),ENT_QUOTES); ?>' readonly />&nbsp;</td>
 330                                         </tr>
 331                                 </table>
 332                                 <table class='text'>
 333                                         <tr>
 334                                                 <!-- Sort by Start -->
 335                                                  <td class='label' width='63'><?php echo htmlspecialchars(xl('Sort By'),ENT_NOQUOTES); ?>:</td>
 336                                                  <td>
 337                                                    <input type='checkbox' name='form_pt_name'<?php if ($_POST['form_pt_name'] == true) echo ' checked'; ?>>
 338                                                    <?php echo htmlspecialchars(xl('Patient Name'),ENT_NOQUOTES); ?>&nbsp;
 339
 340                                                    <input type='checkbox' name='form_pt_age'<?php if ($_POST['form_pt_age'] == true) echo ' checked'; ?>>
 341                                                    <?php echo htmlspecialchars(xl('Age'),ENT_NOQUOTES); ?>&nbsp;
 342
 343                                                    <input type='checkbox' name='form_diagnosis_allergy'<?php if ($_POST['form_diagnosis_allergy'] == true) echo ' checked'; ?>>
 344                                                    <?php echo htmlspecialchars(xl('Allergies'),ENT_NOQUOTES); ?>&nbsp;
 345
 346                                                    <input type='checkbox' name='form_diagnosis_medprb'<?php if ($_POST['form_diagnosis_medprb'] == true) echo ' checked'; ?>>
 347                                                    <?php echo htmlspecialchars(xl('Medical Problems'),ENT_NOQUOTES); ?>&nbsp;
 348
 349                                                    <input type='checkbox' name='form_drug'<?php if ($_POST['form_drug'] == true) echo ' checked'; ?>>
 350                                                   <?php echo htmlspecialchars(xl('Drug'),ENT_NOQUOTES); ?>&nbsp;
 351
 352                                                    <input type='checkbox' name='ndc_no'<?php if ($_POST['ndc_no'] == true) echo ' checked'; ?>>
 353                                                    <?php echo htmlspecialchars(xl('NDC Number'),ENT_NOQUOTES); ?>&nbsp;
 354                                                    <input type='checkbox' name='lab_results'<?php if ($_POST['lab_results'] == true) echo ' checked'; ?>>
 355                                                   <?php echo htmlspecialchars(xl('Lab Results'),ENT_NOQUOTES); ?>&nbsp;
 356                                                   <input type='checkbox' name='communication_check'<?php if ($_POST['communication_check'] == true) echo ' checked'; ?>>
 357                                                   <?php echo xlt('Communication'); ?>
 358                                                </td>
 359                                         </tr>
 360                                 <!-- Sort by ends -->
 361                                         </tr>
 362                                         <tr>
 363                                                 <td colspan=3><span id="date_error" style="color: #F00; font-siz: 11px; display: none;"><?php echo htmlspecialchars(xl('From Date Cannot be Greater than To Date.'),ENT_NOQUOTES); ?></span>&nbsp;</td>
 364                                         </tr>
 365                                 </table>
 366                                 </div></td>
 367                                 <td height="100%" valign='middle' width="175"><table style='border-left:1px solid; width:100%; height:100%'>
 368                                         <tr>
 369                                                 <td><div style='margin-left:15px'> <a href='#' class='css_button' onclick='submitForm();'> <span>
 370                                                                         <?php echo htmlspecialchars(xl('Submit'),ENT_NOQUOTES); ?>
 371                                                                         </span> </a>
 372                                                                         <?php if ($_POST['form_refresh']) { ?>
 373                                                                         <a href='#' class='css_button' id='printbutton'> <span>
 374                                                                         <?php echo xlt('Print'); ?>
 375                                                                         </span> </a>
 376                                                                         <?php } ?>
 377                                                         </div></td>
 378                                         </tr>
 379                                 </table></td>
 380                         </tr>
 381                 </table>
 382         </div>
 383 <!-- end of parameters -->
 384 <?php
 385 // SQL scripts for the various searches
 386 $sqlBindArray = array();
 387 if ($_POST['form_refresh'])
 388 {
 389 $sqlstmt = "select
 390                 concat(pd.fname, ' ', pd.lname) AS patient_name,
 391                 pd.pid AS patient_id,
 392                 DATE_FORMAT(FROM_DAYS(DATEDIFF(NOW(),pd.dob)), '%Y')+0 AS patient_age,
 393                 pd.sex AS patient_sex,
 394                 pd.race AS patient_race,pd.ethnicity AS patient_ethinic,
 395                 concat(u.fname, ' ', u.lname)  AS users_provider,
 396                 REPLACE(REPLACE(concat_ws(',',IF(pd.hipaa_allowemail = 'YES', 'Allow Email','NO'),IF(pd.hipaa_allowsms = 'YES', 'Allow SMS','NO') , IF(pd.hipaa_mail = 'YES', 'Allow Mail Message','NO') , IF(pd.hipaa_voice = 'YES', 'Allow Voice Message','NO') ), ',NO',''), 'NO,','') as communications";
 397         if(strlen($form_diagnosis) > 0 || $_POST['form_diagnosis_allergy'] == true || $_POST['form_diagnosis_medprb'] == true)  {
 398                 $sqlstmt=$sqlstmt.",li.date AS lists_date,
 399                    li.diagnosis AS lists_diagnosis,
 400                         li.title AS lists_title";
 401         }
 402         if(strlen($form_drug_name) > 0 || $_POST['form_drug'] == true)  {
 403
 404                 $sqlstmt=$sqlstmt.",r.id as id, r.date_modified AS prescriptions_date_modified, r.dosage as dosage, r.route as route, r.interval as hinterval, r.refills as refills, r.drug as drug,
 405                 r.form as hform, r.size as size, r.unit as hunit, d.name as name, d.ndc_number as ndc_number,r.quantity as quantity";
 406         }
 407
 408         if(strlen($form_lab_results) > 0 || $_POST['lab_results'] == true) {
 409     $sqlstmt = $sqlstmt.",pr.date AS procedure_result_date,
 410                            pr.facility AS procedure_result_facility,
 411                                 pr.units AS procedure_result_units,
 412                                 pr.result AS procedure_result_result,
 413                                 pr.range AS procedure_result_range,
 414                                 pr.abnormal AS procedure_result_abnormal,
 415                                 pr.comments AS procedure_result_comments,
 416                                 pr.document_id AS procedure_result_document_id";
 417         }
 418
 419         if ( $type == 'Procedure') {
 420     $sqlstmt = $sqlstmt.",po.date_ordered AS procedure_order_date_ordered,
 421             pt.standard_code AS procedure_type_standard_code,
 422             pc.procedure_name as procedure_name,
 423             po.order_priority AS procedure_order_order_priority,
 424             po.order_status AS procedure_order_order_status,
 425             po.encounter_id AS procedure_order_encounter,
 426             po.patient_instructions AS procedure_order_patient_instructions,
 427             po.activity AS procedure_order_activity,
 428             po.control_id AS procedure_order_control_id ";
 429   }
 430
 431        if ( $type == 'Medical History') {
 432                 $sqlstmt = $sqlstmt.",hd.date AS history_data_date,
 433             hd.tobacco AS history_data_tobacco,
 434             hd.alcohol AS history_data_alcohol,
 435             hd.recreational_drugs AS history_data_recreational_drugs   ";
 436        }
 437       if($type == 'Service Codes') {
 438               $sqlstmt .= ", c.code as code,
 439                         c.code_text as code_text,
 440                         fe.encounter as encounter,
 441                         b.date as date";
 442                         $mh_stmt = $mh_stmt.",code,code_text,encounter,date";
 443       }
 444           if (strlen($form_immunization) > 0) {
 445                 $sqlstmt .= ", immc.code_text as imm_code, immc.code_text_short as imm_code_short, immc.id as cvx_code, imm.administered_date as imm_date, imm.amount_administered, imm.amount_administered_unit,  imm.administration_site, imm.note as notes ";
 446           }
 447 //from
 448         $sqlstmt=$sqlstmt." from patient_data as pd left outer join users as u on u.id = pd.providerid
 449             left outer join facility as f on f.id = u.facility_id";
 450
 451         if(strlen($form_diagnosis) > 0 || ($_POST['form_diagnosis_allergy'] == true && $_POST['form_diagnosis_medprb'] == true)){
 452                 $sqlstmt = $sqlstmt." left outer join lists as li on (li.pid  = pd.pid AND (li.type='medical_problem' OR li.type='allergy')) ";
 453         }elseif($_POST['form_diagnosis_allergy'] == true){
 454                 $sqlstmt = $sqlstmt." left outer join lists as li on (li.pid  = pd.pid AND (li.type='allergy')) ";
 455         }elseif($_POST['form_diagnosis_medprb'] == true){
 456                 $sqlstmt = $sqlstmt." left outer join lists as li on (li.pid  = pd.pid AND (li.type='medical_problem')) ";
 457         }
 458   if ( $type == 'Procedure' ||( strlen($form_lab_results)!=0) || $_POST['lab_results'] == true) {
 459     $sqlstmt = $sqlstmt." left outer join procedure_order as po on po.patient_id = pd.pid
 460     left outer join procedure_order_code as pc on pc.procedure_order_id = po.procedure_order_id
 461     left outer join procedure_report as pp on pp.procedure_order_id   = po.procedure_order_id
 462     left outer join procedure_type as pt on pt.procedure_code = pc.procedure_code and pt.lab_id = po.lab_id ";
 463   }
 464
 465         if (strlen($form_lab_results)!=0 || $_POST['lab_results'] == true) {
 466                 $sqlstmt = $sqlstmt." left outer join procedure_result as pr on pr.procedure_report_id = pp.procedure_report_id ";
 467         }
 468         //Immunization added in clinical report
 469         if (strlen($form_immunization)!=0 ) {
 470                 $sqlstmt = $sqlstmt." LEFT OUTER JOIN immunizations as imm ON imm.patient_id = pd.pid
 471                                                   LEFT OUTER JOIN codes as immc ON imm.cvx_code = immc.id ";
 472         }
 473         if(strlen($form_drug_name)!=0 || $_POST['form_drug'] == true) {
 474                $sqlstmt=$sqlstmt." left outer join prescriptions AS r on r.patient_id=pd.pid
 475                         LEFT OUTER JOIN drugs AS d ON d.drug_id = r.drug_id";
 476         }
 477       if ( $type == 'Medical History') {
 478               $sqlstmt = $sqlstmt." left outer join history_data as hd on hd.pid   =  pd.pid
 479             and (isnull(hd.tobacco)  = 0
 480             or isnull(hd.alcohol)  = 0
 481             or isnull(hd.recreational_drugs)  = 0)";
 482       }
 483       if($type == 'Service Codes') {
 484             $sqlstmt = $sqlstmt." left outer join billing as b on b.pid = pd.pid
 485             left outer join form_encounter as fe on fe.encounter = b.encounter and b.code_type = 'CPT4'
 486             left outer join codes as c on c.code = b.code ";
 487       }
 488 //where
 489       $whr_stmt="where 1=1";
 490       if(strlen($form_diagnosis) > 0 || $_POST['form_diagnosis_allergy'] == true || $_POST['form_diagnosis_medprb'] == true) {
 491             $whr_stmt=$whr_stmt." AND li.date >= ? AND li.date < DATE_ADD(?, INTERVAL 1 DAY) AND DATE(li.date) <= ?";
 492             array_push($sqlBindArray, $sql_date_from, $sql_date_to, date("Y-m-d"));
 493         }
 494         if(strlen($form_lab_results)!=0 || $_POST['lab_results'] == true) {
 495               $whr_stmt=$whr_stmt." AND pr.date >= ? AND pr.date < DATE_ADD(?, INTERVAL 1 DAY) AND DATE(pr.date) <= ?";
 496               array_push($sqlBindArray, $sql_date_from, $sql_date_to, date("Y-m-d"));
 497         }
 498         if(strlen($form_drug_name)!=0 || $_POST['form_drug'] == true) {
 499               $whr_stmt=$whr_stmt." AND r.date_modified >= ? AND r.date_modified < DATE_ADD(?, INTERVAL 1 DAY) AND DATE(r.date_modified) <= ?";
 500               array_push($sqlBindArray, $sql_date_from, $sql_date_to, date("Y-m-d"));
 501         }
 502         if($type == 'Medical History') {
 503              $whr_stmt=$whr_stmt." AND hd.date >= ? AND hd.date < DATE_ADD(?, INTERVAL 1 DAY) AND DATE(hd.date) <= ?";
 504              array_push($sqlBindArray, $sql_date_from, $sql_date_to, date("Y-m-d"));
 505         }
 506         if($type == 'Procedure') {
 507              $whr_stmt=$whr_stmt." AND po.date_ordered >= ? AND po.date_ordered < DATE_ADD(?, INTERVAL 1 DAY) AND DATE(po.date_ordered) <= ?";
 508              array_push($sqlBindArray, substr($sql_date_from,0,10), substr($sql_date_to,0,10), date("Y-m-d"));
 509          }
 510         if($type == "Service Codes") {
 511              $whr_stmt=$whr_stmt." AND b.date >= ? AND b.date < DATE_ADD(?, INTERVAL 1 DAY) AND DATE(b.date) <= ?";
 512              array_push($sqlBindArray, $sql_date_from, $sql_date_to, date("Y-m-d"));
 513         }
 514         if(strlen($form_lab_results) != 0 || $_POST['lab_results'] == true) {
 515             $whr_stmt= $whr_stmt." AND (pr.result LIKE ?) ";
 516             if(empty($form_lab_results)) $form_lab_results ="%";
 517             array_push($sqlBindArray, $form_lab_results);
 518         }
 519         if(strlen($form_drug_name) > 0 || $_POST['form_drug'] == true) {
 520             $whr_stmt .= " AND (
 521                         d.name LIKE ?
 522                         OR r.drug LIKE ?
 523                         ) ";
 524                         if(empty($form_drug_name)) $form_drug_name ="%";
 525             array_push($sqlBindArray, $form_drug_name, $form_drug_name);
 526          }
 527        if($type == 'Service Codes') {
 528           if(strlen($form_service_codes) != 0) {
 529              $whr_stmt = $whr_stmt." AND (b.code = ?) ";
 530              $service_code = explode(":",$form_service_codes);
 531              array_push($sqlBindArray, $service_code[1]);
 532        }
 533        }
 534       if(strlen($patient_id) != 0) {
 535            $whr_stmt = $whr_stmt."   and pd.pid = ?";
 536            array_push($sqlBindArray, $patient_id);
 537        }
 538
 539      if(strlen($age_from) != 0) {
 540            $whr_stmt = $whr_stmt."   and DATE_FORMAT(FROM_DAYS(DATEDIFF(NOW(),pd.dob)), '%Y')+0 >= ?";
 541            array_push($sqlBindArray, $age_from);
 542      }
 543      if(strlen($age_to) != 0) {
 544            $whr_stmt = $whr_stmt."   and DATE_FORMAT(FROM_DAYS(DATEDIFF(NOW(),pd.dob)), '%Y')+0 <= ?";
 545            array_push($sqlBindArray, $age_to);
 546     }
 547     if(strlen($sql_gender) != 0) {
 548           $whr_stmt = $whr_stmt."   and pd.sex = ?";
 549           array_push($sqlBindArray, $sql_gender);
 550     }
 551    if(strlen($sql_ethnicity) != 0) {
 552          $whr_stmt = $whr_stmt."   and pd.ethnicity = ?";
 553          array_push($sqlBindArray, $sql_ethnicity);
 554     }
 555    if(strlen($sql_race) != 0) {
 556          $whr_stmt = $whr_stmt."   and pd.race = ?";
 557          array_push($sqlBindArray, $sql_race);
 558    }
 559   if($facility != '') {
 560         $whr_stmt = $whr_stmt."   and f.id = ? ";
 561         array_push($sqlBindArray, $facility);
 562   }
 563   if(strlen($form_diagnosis) > 0) {
 564         $whr_stmt = $whr_stmt." AND (li.diagnosis LIKE ? or li.diagnosis LIKE ? or li.diagnosis LIKE ? or li.diagnosis = ?) ";
 565         array_push($sqlBindArray, $form_diagnosis."%", '%'.$form_diagnosis.'%', '%'.$form_diagnosis, $form_diagnosis);
 566   }
 567   //communication preferences added in clinical report
 568   if(strlen($communication) > 0 || $_POST['communication_check'] == true){
 569
 570         if($communication == "allow_sms")  $whr_stmt .= " AND pd.hipaa_allowsms = 'YES' ";
 571         else if($communication == "allow_voice")  $whr_stmt .= " AND pd.hipaa_voice = 'YES' ";
 572         else if($communication == "allow_mail")  $whr_stmt .= " AND pd.hipaa_mail  = 'YES' ";
 573         else if($communication == "allow_email")  $whr_stmt .= " AND pd.hipaa_allowemail  = 'YES' ";
 574         else if($communication == "" && $_POST['communication_check'] == true){
 575                 $whr_stmt .= " AND (pd.hipaa_allowsms = 'YES' OR pd.hipaa_voice = 'YES' OR pd.hipaa_mail  = 'YES' OR pd.hipaa_allowemail  = 'YES') ";
 576         }
 577   }
 578
 579   //Immunization where condition for full text or short text
 580   if(strlen($form_immunization) > 0) {
 581         $whr_stmt .= " AND (
 582                                 immc.code_text LIKE ?
 583                                 OR immc.code_text_short LIKE ?
 584                                 ) ";
 585         array_push($sqlBindArray, '%'.$form_immunization.'%', '%'.$form_immunization.'%');
 586  }
 587 // order by
 588   if ($_POST['form_pt_name'] == true){
 589         $odrstmt=$odrstmt.",patient_name";
 590   }
 591   if ($_POST['form_pt_age'] == true) {
 592         $odrstmt=$odrstmt.",patient_age";
 593   }
 594   if((strlen($form_diagnosis) > 0)){
 595                 $odrstmt=$odrstmt.",lists_diagnosis";
 596   }elseif (($_POST['form_diagnosis_allergy'] == true) || ($_POST['form_diagnosis_medprb'] == true)){
 597         $odrstmt=$odrstmt.",lists_title";
 598   }
 599   if (($_POST['form_drug'] == true) || (strlen($form_drug_name) > 0)){
 600         $odrstmt=$odrstmt.",r.drug";
 601   }
 602   if (($_POST['ndc_no'] == true) && (strlen($form_drug_name) > 0)) {
 603          $odrstmt=$odrstmt.",d.ndc_number";
 604   }
 605   if (($_POST['lab_results'] == true) || (strlen($form_lab_results) > 0)) {
 606          $odrstmt=$odrstmt.",procedure_result_result";
 607   }
 608   if (strlen($communication) > 0 || $_POST['communication_check'] == true) {
 609         $odrstmt=$odrstmt.",ROUND((LENGTH(communications) - LENGTH(REPLACE(communications, ',', '')))/LENGTH(',')) , communications";
 610   }
 611
 612
 613   if($odrstmt == '') {
 614         $odrstmt = " ORDER BY patient_id";
 615   }
 616   else {
 617         $odrstmt = " ORDER BY ".ltrim($odrstmt,",");
 618   }
 619
 620   if($type == 'Medical History') {
 621         $sqlstmt="select * from (".$sqlstmt." ".$whr_stmt." ".$odrstmt.",history_data_date desc) a group by patient_id";
 622   }
 623   else {
 624         $sqlstmt=$sqlstmt." ".$whr_stmt." ".$odrstmt;
 625   }
 626
 627 $result = sqlStatement($sqlstmt,$sqlBindArray);
 628
 629 $row_id = 1.1;//given to each row to identify and toggle
 630 $img_id = 1.2;
 631 $k=1.3;
 632
 633 if(sqlNumRows($result) > 0)
 634 {
 635    //Added on 6-jun-2k14(regarding displaying smoking code descriptions)
 636    $smoke_codes_arr = getSmokeCodes();
 637 ?>
 638 <br>
 639         <div id = "report_results">
 640
 641         <?php $pidarr = array();
 642                         while ($row = sqlFetchArray($result)) { ?>
 643         <table width=90% align="center" cellpadding="5" cellspacing="0" style="font-family:tahoma;color:black;" border="0">
 644                 <tr bgcolor = "#CCCCCC" style="font-size:15px;">
 645                         <td><b><?php echo htmlspecialchars(xl('Summary of'),ENT_NOQUOTES); echo " "; ?> <?php echo htmlspecialchars($row['patient_name'],ENT_NOQUOTES); ?></b></td>
 646                         <td>&nbsp;</td>
 647                         <td>&nbsp;</td>
 648                         <td align="center">
 649                         <span onclick="javascript:Toggle_trGrpHeader2(<?php echo $row_id; ?>,<?php echo $img_id; ?>);"><img src="../pic/blue-down-arrow.gif" id="<?php echo $img_id; $img_id++; ?>" title="<?php echo htmlspecialchars( xl('Click here to view patient details'), ENT_QUOTES); ?>" /></span>
 650                         </td></tr>
 651                         <table width="100%" align="center" id = "<?php echo $row_id; $row_id++;?>" class="border1" style="display:none; font-size:13px;" cellpadding=5>
 652                                 <tr bgcolor="#C3FDB8" align="left">
 653                                 <td width="15%"><b><?php echo htmlspecialchars(xl('Patient Name'),ENT_NOQUOTES); ?></b></td>
 654                                 <td width="5%"><b><?php echo htmlspecialchars(xl('PID'),ENT_NOQUOTES);?></b></td>
 655                                 <td width="5%"><b><?php echo htmlspecialchars(xl('Age'),ENT_NOQUOTES);?></b></td>
 656                                 <td width="10%"><b><?php echo htmlspecialchars(xl('Gender'),ENT_NOQUOTES); ?></b></td>
 657                                 <td width="15%"><b><?php echo htmlspecialchars(xl('Race'),ENT_NOQUOTES);?></b></td>
 658                                 <td width="15%"><b><?php echo htmlspecialchars(xl('Ethnicity'),ENT_NOQUOTES);?></b></td>
 659                                 <td width="15%" <?php if(strlen($communication) == 0 || $_POST['communication_check'] == true){ ?> colspan=5 <?php } ?>><b><?php echo htmlspecialchars(xl('Provider'),ENT_NOQUOTES);?></b></td>
 660                                 <?php if(strlen($communication) > 0 || ($_POST['communication_check'] == true)){ ?>
 661                                 <td colspan=4><b><?php echo xlt('Communication');?></b></td>
 662                                 <?php } ?>
 663                                 </tr>
 664                                 <tr bgcolor="#FFFFFF">
 665                                 <td><?php echo htmlspecialchars($row['patient_name'],ENT_NOQUOTES); ?>&nbsp;</td>
 666                                 <td> <?php echo htmlspecialchars($row['patient_id'],ENT_NOQUOTES); ?>&nbsp;</td>
 667                                 <td> <?php echo htmlspecialchars($row['patient_age'],ENT_NOQUOTES); ?>&nbsp;</td>
 668                                 <td> <?php echo htmlspecialchars(generate_display_field(array('data_type'=>'1','list_id'=>'sex'), $row['patient_sex']),ENT_NOQUOTES); ?>&nbsp;</td>
 669                                 <td> <?php echo htmlspecialchars(generate_display_field(array('data_type'=>'1','list_id'=>'race'), $row['patient_race']),ENT_NOQUOTES); ?>&nbsp;</td>
 670                                <td> <?php echo htmlspecialchars(generate_display_field(array('data_type'=>'1','list_id'=>'ethnicity'), $row['patient_ethinic']),ENT_NOQUOTES); ?>&nbsp;</td>
 671                                <td <?php if(strlen($communication) == 0 || ($_POST['communication_check'] == true)){ ?> colspan=5 <?php } ?>> <?php echo htmlspecialchars($row['users_provider'],ENT_NOQUOTES); ?>&nbsp;</td>
 672
 673                                                             <?php if(strlen($communication) > 0 || $_POST['communication_check'] == true){ ?>
 674                                                                         <td colspan=4><?php echo text($row['communications']); ?></td>
 675                                                                 <?php }  ?>
 676                                 </tr>
 677 <!-- Diagnosis Report Start-->
 678                                 <?php
 679                                 if(strlen($form_diagnosis) > 0 || $_POST['form_diagnosis_allergy'] == true || $_POST['form_diagnosis_medprb'] == true)
 680                                 {
 681                                 ?>
 682                                 <tr bgcolor="#C3FDB8" align= "left">
 683                                 <td colspan=12><b><?php echo "#"; echo htmlspecialchars(xl('Diagnosis Report'),ENT_NOQUOTES);?></b></td>
 684                                 </tr>
 685                                 <tr bgcolor="#C3FDB8" align= "left">
 686                                 <td><b><?php echo htmlspecialchars(xl('Diagnosis Date'),ENT_NOQUOTES);?></b></td>
 687                                 <td><b><?php echo htmlspecialchars(xl('Diagnosis'),ENT_NOQUOTES);?></b></td>
 688                                 <td colspan=10><b><?php echo htmlspecialchars(xl('Diagnosis Name'),ENT_NOQUOTES);?></b></td>
 689                                 </tr>
 690                                 <tr bgcolor="#FFFFFF">
 691                                 <td><?php echo htmlspecialchars($row['lists_date'],ENT_NOQUOTES); ?>&nbsp;</td>
 692                                 <td><?php echo htmlspecialchars($row['lists_diagnosis'],ENT_NOQUOTES); ?>&nbsp;</td>
 693                                 <td colspan=10><?php echo htmlspecialchars($row['lists_title'],ENT_NOQUOTES); ?>&nbsp;</td>
 694                                 </tr>
 695         <?php } ?>
 696 <!-- Diagnosis Report End-->
 697
 698 <!-- Prescription Report Start-->
 699                                <?php
 700                                 if(strlen($form_drug_name) > 0 || $_POST['form_drug'] == true)
 701                                 {
 702                                 ?>
 703                                 <tr bgcolor="#C3FDB8" align= "left">
 704                                 <td colspan=12><b><?php echo "#"; echo htmlspecialchars(xl('Prescription Report'),ENT_NOQUOTES);?><b></td></tr>
 705                                 <tr bgcolor="#C3FDB8" align= "left">
 706                                 <td><b><?php echo htmlspecialchars(xl('Date'),ENT_NOQUOTES); ?></b></td>
 707                                 <td><b><?php echo htmlspecialchars(xl('Drug Name'),ENT_NOQUOTES);?></b></td>
 708                                 <td><b><?php echo htmlspecialchars(xl('Route'),ENT_NOQUOTES);?></b></td>
 709                                 <td><b><?php echo htmlspecialchars(xl('Dosage'),ENT_NOQUOTES);?></b></td>
 710                                 <td><b><?php echo htmlspecialchars(xl('Form'),ENT_NOQUOTES);?></b></td>
 711                                 <td><b><?php echo htmlspecialchars(xl('Interval'),ENT_NOQUOTES);?></b></td>
 712                                 <td><b><?php echo htmlspecialchars(xl('Size'),ENT_NOQUOTES);?></b></td>
 713                                 <td><b><?php echo htmlspecialchars(xl('Unit'),ENT_NOQUOTES);?></b></td>
 714                                 <td><b><?php echo htmlspecialchars(xl('ReFill'),ENT_NOQUOTES);?></b></td>
 715                                 <td><b><?php echo htmlspecialchars(xl('Quantity'),ENT_NOQUOTES);?></b></td>
 716                                 <td colspan="2"><b><?php echo htmlspecialchars(xl('NDC'),ENT_NOQUOTES);?></b></td>
 717                                 </tr>
 718                                 <tr bgcolor="#FFFFFF" align="">
 719                                 <?php
 720                                         $rx_route =  generate_display_field(array('data_type'=>'1','list_id'=>'drug_route'), $row['route']) ;
 721                                         $rx_form = generate_display_field(array('data_type'=>'1','list_id'=>'drug_form'), $row['hform']) ;
 722                                         $rx_interval = generate_display_field(array('data_type'=>'1','list_id'=>'drug_interval'), $row['hinterval']) ;
 723                                         $rx_units =   generate_display_field(array('data_type'=>'1','list_id'=>'drug_units'), $row['hunit']);
 724                                 ?>
 725                                  <td> <?php echo htmlspecialchars(oeFormatShortDate($row['prescriptions_date_modified']),ENT_NOQUOTES); ?>&nbsp;</td>
 726                                 <td><?php echo htmlspecialchars($row['drug'],ENT_NOQUOTES); ?></td>
 727                                 <td><?php echo htmlspecialchars($rx_route,ENT_NOQUOTES); ?></td>
 728                                 <td><?php echo htmlspecialchars($row['dosage'],ENT_NOQUOTES); ?></td>
 729                                 <td><?php echo htmlspecialchars($rx_form,ENT_NOQUOTES); ?></td>
 730                                 <td><?php echo htmlspecialchars($rx_interval,ENT_NOQUOTES); ?></td>
 731                                 <td><?php echo htmlspecialchars($row['size'],ENT_NOQUOTES); ?></td>
 732                                 <td><?php echo htmlspecialchars($rx_units,ENT_NOQUOTES); ?></td>
 733                                 <td><?php echo htmlspecialchars($row['refills'],ENT_NOQUOTES); ?></td>
 734                                 <td><?php echo htmlspecialchars($row['quantity'],ENT_NOQUOTES); ?></td>
 735                                 <td colspan="2"><?php echo htmlspecialchars($row['ndc_number'],ENT_NOQUOTES); ?></td>
 736                                 </tr>
 737                                 <?php } ?>
 738 <!-- Prescription Report End-->
 739
 740 <!-- Lab Results Report Start-->
 741                                 <?php
 742                                 if(strlen($form_lab_results) > 0 || $_POST['lab_results'] == true)
 743                                 {
 744                                 ?>
 745                                 <tr bgcolor="#C3FDB8" align= "left">
 746                                 <td colspan=12><b><?php echo "#"; echo htmlspecialchars(xl('Lab Results Report'),ENT_NOQUOTES);?><b></td></tr>
 747                                 <tr bgcolor="#C3FDB8" align= "left">
 748                                 <td><b><?php echo htmlspecialchars(xl('Date'),ENT_NOQUOTES); ?></b></td>
 749                                 <td><b><?php echo htmlspecialchars(xl('Facility'),ENT_NOQUOTES);?></b></td>
 750                                 <td><b><?php echo htmlspecialchars(xl('Unit'),ENT_NOQUOTES);?></b></td>
 751                                 <td><b><?php echo htmlspecialchars(xl('Result'),ENT_NOQUOTES);?></b></td>
 752                                 <td><b><?php echo htmlspecialchars(xl('Range'),ENT_NOQUOTES);?></b></td>
 753                                 <td><b><?php echo htmlspecialchars(xl('Abnormal'),ENT_NOQUOTES);?></b></td>
 754                                 <td><b><?php echo htmlspecialchars(xl('Comments'),ENT_NOQUOTES);?></b></td>
 755                                 <td colspan=5><b><?php echo htmlspecialchars(xl('Document ID'),ENT_NOQUOTES);?></b></td>
 756                                 </tr>
 757                                 <tr bgcolor="#FFFFFF">
 758                                 <td> <?php echo htmlspecialchars(oeFormatShortDate($row['procedure_result_date']),ENT_NOQUOTES); ?>&nbsp;</td>
 759                                 <td> <?php echo htmlspecialchars($row['procedure_result_facility'],ENT_NOQUOTES); ?>&nbsp;</td>
 760                                 <td> <?php echo htmlspecialchars(generate_display_field(array('data_type'=>'1','list_id'=>'proc_unit'),$row['procedure_result_units']),ENT_NOQUOTES); ?>&nbsp;</td>
 761                                  <td> <?php echo htmlspecialchars($row['procedure_result_result'],ENT_NOQUOTES); ?>&nbsp;</td>
 762                                  <td> <?php echo htmlspecialchars($row['procedure_result_range'],ENT_NOQUOTES); ?>&nbsp;</td>
 763                                  <td> <?php echo htmlspecialchars($row['procedure_result_abnormal'],ENT_NOQUOTES); ?>&nbsp;</td>
 764                                  <td> <?php echo htmlspecialchars($row['procedure_result_comments'],ENT_NOQUOTES); ?>&nbsp;</td>
 765                                  <td colspan=5> <?php echo htmlspecialchars($row['procedure_result_document_id'],ENT_NOQUOTES); ?>&nbsp;</td>
 766                         </tr>
 767                                 <?php } ?>
 768 <!-- Lab Results End-->
 769
 770 <!-- Procedures Report Start-->
 771                                 <?php
 772                                 if ( $type == 'Procedure')
 773                                 {
 774                                 ?>
 775                                 <tr bgcolor="#C3FDB8" align= "left">
 776                                 <td colspan=12><b><?php echo "#"; echo htmlspecialchars(xl('Procedure Report'),ENT_NOQUOTES);?><b></td></tr>
 777                                 <tr bgcolor="#C3FDB8" align= "left">
 778                                 <td><b><?php echo htmlspecialchars(xl('Date'),ENT_NOQUOTES); ?></b></td>
 779                                 <td><b><?php echo htmlspecialchars(xl('Standard Name'),ENT_NOQUOTES);?></b></td>
 780                                 <td><b><?php echo htmlspecialchars(xl('Procedure'),ENT_NOQUOTES); ?></b></td>
 781                                 <td><b><?php echo htmlspecialchars(xl('Encounter'),ENT_NOQUOTES);?></b></td>
 782                                 <td><b><?php echo htmlspecialchars(xl('Priority'),ENT_NOQUOTES);?></b></td>
 783                                 <td><b><?php echo htmlspecialchars(xl('Status'),ENT_NOQUOTES);?></b></td>
 784                                 <td><b><?php echo htmlspecialchars(xl('Instruction'),ENT_NOQUOTES);?></b></td>
 785                                 <td><b><?php echo htmlspecialchars(xl('Activity'),ENT_NOQUOTES);?></b></td>
 786                                 <td colspan=3><b><?php echo htmlspecialchars(xl('Control ID'),ENT_NOQUOTES);?></b></td>
 787                                 </tr>
 788                                 <tr bgcolor="#FFFFFF">
 789                                 <?php
 790                                     $procedure_type_standard_code_arr = explode(':', $row['procedure_type_standard_code']);
 791                                     $procedure_type_standard_code = $procedure_type_standard_code_arr[1];
 792                                  ?>
 793                                   <!-- Procedure -->
 794                                   <td> <?php echo htmlspecialchars(oeFormatShortDate($row['procedure_order_date_ordered']),ENT_NOQUOTES); ?>&nbsp;</td>
 795                                   <td> <?php echo htmlspecialchars($procedure_type_standard_code,ENT_NOQUOTES); ?>&nbsp;</td>
 796                                   <td> <?php echo htmlspecialchars($row['procedure_name'],ENT_NOQUOTES); ?>&nbsp;</td>
 797                                   <td> <?php echo htmlspecialchars($row['procedure_order_encounter'],ENT_NOQUOTES); ?>&nbsp;</td>
 798                                   <td> <?php echo htmlspecialchars(generate_display_field(array('data_type'=>'1','list_id'=>'ord_priority'),$row['procedure_order_order_priority']),ENT_NOQUOTES); ?>&nbsp;</td>
 799                                   <td> <?php echo htmlspecialchars(generate_display_field(array('data_type'=>'1','list_id'=>'ord_status'),$row['procedure_order_order_status']),ENT_NOQUOTES); ?>&nbsp;</td>
 800                                   <td> <?php echo htmlspecialchars($row['procedure_order_patient_instructions'],ENT_NOQUOTES); ?>&nbsp;</td>
 801                                   <td> <?php echo htmlspecialchars($row['procedure_order_activity'],ENT_NOQUOTES); ?>&nbsp;</td>
 802                                   <td colspan=3> <?php echo htmlspecialchars($row['procedure_order_control_id'],ENT_NOQUOTES); ?>&nbsp;</td>
 803
 804                                   </tr>
 805                         <?php } ?>
 806 <!-- Procedure Report End-->
 807
 808 <!-- Medical History Report Start-->
 809                                 <?php
 810                                 if ( $type == 'Medical History')
 811                                 {
 812                                 ?>
 813                                 <tr bgcolor="#C3FDB8" align= "left">
 814                                 <td colspan=12><b><?php echo "#"; echo htmlspecialchars(xl('Medical History'),ENT_NOQUOTES);?><b></td></tr>
 815                                 <tr bgcolor="#C3FDB8" align= "left">
 816                                 <td><b><?php echo htmlspecialchars(xl('History Date'),ENT_NOQUOTES); ?></b></td>
 817                                 <td><b><?php echo htmlspecialchars(xl('Tobacco'),ENT_NOQUOTES);?></b></td>
 818                                 <td><b><?php echo htmlspecialchars(xl('Alcohol'),ENT_NOQUOTES);?></b></td>
 819                                 <td colspan=8><b><?php echo htmlspecialchars(xl('Recreational Drugs'),ENT_NOQUOTES);?></b></td>
 820                                 </tr>
 821                                 <tr bgcolor="#FFFFFF">
 822                                 <?php
 823                                         $tmp_t = explode('|', $row['history_data_tobacco']);
 824                                         $tmp_a = explode('|', $row['history_data_alcohol']);
 825                                         $tmp_d = explode('|', $row['history_data_recreational_drugs']);
 826                                         $his_tobac =  generate_display_field(array('data_type'=>'1','list_id'=>'smoking_status'), $tmp_t[3]) ;
 827                                 ?>
 828                                 <td> <?php echo htmlspecialchars(oeFormatShortDate($row['history_data_date']),ENT_NOQUOTES); ?>&nbsp;</td>
 829                                 <td> <?php
 830                                 //Added on 6-jun-2k14(regarding displaying smoking code descriptions)
 831                                 if(!empty($smoke_codes_arr[$tmp_t[3]])){
 832                                     $his_tobac.= " ( ".$smoke_codes_arr[$tmp_t[3]]." )";
 833                                 }
 834                                 echo htmlspecialchars($his_tobac,ENT_NOQUOTES); ?>&nbsp;</td>
 835                                 <?php
 836                                         if ($tmp_a[1] == "currentalcohol") $res = xl('Current Alcohol');
 837                                         if ($tmp_a[1] == "quitalcohol") $res = xl('Quit Alcohol');
 838                                         if ($tmp_a[1] == "neveralcohol") $res = xl('Never Alcohol');
 839                                         if ($tmp_a[1] == "not_applicablealcohol") $res = xl('N/A');
 840                                 ?>
 841                                  <td> <?php echo htmlspecialchars($res,ENT_NOQUOTES); ?>&nbsp;</td>
 842                                  <?php
 843                                          if ($tmp_d[1] == "currentrecreational_drugs") $resd = xl('Current Recreational Drugs');
 844                                          if ($tmp_d[1] == "quitrecreational_drugs") $resd = xl('Quit');
 845                                          if ($tmp_d[1] == "neverrecreational_drugs") $resd = xl('Never');
 846                                          if ($tmp_d[1] == "not_applicablerecreational_drugs") $resd = xl('N/A');
 847                                   ?>
 848                                   <td colspan=8> <?php echo htmlspecialchars($resd,ENT_NOQUOTES); ?>&nbsp;</td>
 849                                   </tr>
 850                                   <?php } ?>
 851 <!-- Medical History Report End-->
 852
 853 <!-- Service Codes Report Start-->
 854                                 <?php
 855                                 if ( $type == 'Service Codes') {
 856                                 ?>
 857                                 <tr bgcolor="#C3FDB8" align= "left">
 858                                 <td colspan=11><b><?php echo "#"; echo htmlspecialchars(xl('Service Codes'),ENT_NOQUOTES);?><b></td></tr>
 859                                 <tr bgcolor="#C3FDB8" align= "left">
 860                                 <td><b><?php echo htmlspecialchars(xl('Date'),ENT_NOQUOTES); ?></b></td>
 861                                 <td><b><?php echo htmlspecialchars(xl('Code'),ENT_NOQUOTES);?></b></td>
 862                                 <td><b><?php echo htmlspecialchars(xl('Encounter ID'),ENT_NOQUOTES);?></b></td>
 863                                 <td colspan=8><b><?php echo htmlspecialchars(xl('Code Text'),ENT_NOQUOTES);?></b></td></tr>
 864                                 <tr bgcolor="#FFFFFF">
 865                                 <td><?php echo htmlspecialchars(oeFormatShortDate($row['date']),ENT_NOQUOTES); ?>&nbsp;</td>
 866                                 <td><?php echo htmlspecialchars($row['code'],ENT_NOQUOTES); ?>&nbsp;</td>
 867                                 <td><?php echo htmlspecialchars($row['encounter'],ENT_NOQUOTES); ?>&nbsp;</td>
 868                                 <td colspan=8><?php echo htmlspecialchars($row['code_text'],ENT_NOQUOTES); ?>&nbsp;</td>
 869                                 </tr>
 870                                 <?php } ?>
 871 <!-- Service Codes Report End-->
 872
 873 <!-- Immunization Report Start-->
 874                                 <?php
 875                                 if(strlen($form_immunization) > 0){?>
 876                                         <tr bgcolor="#C3FDB8" align= "left">
 877                                                 <td colspan=12><b><?php echo "#"; echo htmlspecialchars(xl('Immunization Report'),ENT_NOQUOTES);?></b></td>
 878                                         </tr>
 879                                         <tr bgcolor="#C3FDB8" align= "left">
 880                                                 <td><b><?php echo htmlspecialchars(xl('Immunization Date'),ENT_NOQUOTES);?></b></td>
 881                                                 <td><b><?php echo htmlspecialchars(xl('CVX Code'),ENT_NOQUOTES);?></b></td>
 882                                                 <td><b><?php echo htmlspecialchars(xl('Vaccine'),ENT_NOQUOTES);?></b></td>
 883                                                 <td><b><?php echo htmlspecialchars(xl('Amount'),ENT_NOQUOTES);?></b></td>
 884                                                 <td><b><?php echo htmlspecialchars(xl('Administered Site'),ENT_NOQUOTES);?></b></td>
 885                                                 <td colspan="7"><b><?php echo htmlspecialchars(xl('Notes'),ENT_NOQUOTES);?></b></td>
 886                                         </tr>
 887                                         <tr bgcolor="#FFFFFF">
 888                                                 <td><?php echo htmlspecialchars($row['imm_date'],ENT_NOQUOTES); ?>&nbsp;</td>
 889                                                 <td><?php echo htmlspecialchars($row['cvx_code'],ENT_NOQUOTES); ?>&nbsp;</td>
 890                                                 <td><?php echo htmlspecialchars($row['imm_code_short'],ENT_NOQUOTES)." (".htmlspecialchars($row['imm_code']).")"; ?>&nbsp;</td>
 891                                                 <td>
 892                                             <?php
 893                                                 if ($row["amount_administered"] > 0) {
 894                                                         echo htmlspecialchars( $row["amount_administered"] . " " . generate_display_field(array('data_type'=>'1','list_id'=>'drug_units'), $row['amount_administered_unit']) , ENT_NOQUOTES);
 895                                                 }else{
 896                                                         echo "&nbsp;";
 897                                                 }
 898                                                 ?>
 899
 900                                           </td>
 901
 902                                           <td>
 903                                            <?php echo generate_display_field(array('data_type'=>'1','list_id'=>'proc_body_site'), $row['administration_site']); ?>
 904                                           </td>
 905
 906                                           <td colspan="7">
 907                                            <?php echo htmlspecialchars($row['notes']); ?>
 908                                           </td>
 909                                         </tr>
 910                         <?php } ?>
 911 <!-- Immunization Report End-->
 912                                  </table>
 913                  <?php }  //while loop end ?>
 914                 </table> <!-- Main table ends -->
 915 <?php
 916 } //End if $result
 917 } //End if form_refresh
 918 else
 919 {
 920         ?><div class='text'> <?php echo htmlspecialchars(xl('Please input search criteria above, and click Submit to view results.'),ENT_NOQUOTES); ?> </div><?php
 921 }
 922 ?>
 923 </form>
 924 </body>
 925
 926 </html>