interface/orders/single_order_results.inc.php

   1 <?php
   2 /**
   3 * Script to display results for a given procedure order.
   4 *
   5 * Copyright (C) 2013-2016 Rod Roark <rod@sunsetsystems.com>
   6 *
   7 * LICENSE: This program is free software; you can redistribute it and/or
   8 * modify it under the terms of the GNU General Public License
   9 * as published by the Free Software Foundation; either version 2
  10 * of the License, or (at your option) any later version.
  11 * This program is distributed in the hope that it will be useful,
  12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 * GNU General Public License for more details.
  15 * You should have received a copy of the GNU General Public License
  16 * along with this program.  If not, see <http://opensource.org/licenses/gpl-license.php>.
  17 *
  18 * @package   OpenEMR
  19 * @author    Rod Roark <rod@sunsetsystems.com>
  20 */
  21
  22 require_once($GLOBALS["srcdir"] . "/acl.inc");
  23 require_once($GLOBALS["srcdir"] . "/options.inc.php");
  24
  25 function getListItem($listid, $value)
  26 {
  27     $lrow = sqlQuery(
  28         "SELECT title FROM list_options " .
  29         "WHERE list_id = ? AND option_id = ? AND activity = 1",
  30         array($listid, $value)
  31     );
  32     $tmp = xl_list_label($lrow['title']);
  33     if (empty($tmp)) {
  34         $tmp = (($value === '') ? '' : "($value)");
  35     }
  36
  37     return $tmp;
  38 }
  39
  40 function myCellText($s)
  41 {
  42     $s = trim($s);
  43     if ($s === '') {
  44         return '&nbsp;';
  45     }
  46
  47     return text($s);
  48 }
  49
  50 // Check if the given string already exists in the $aNotes array.
  51 // If not, stores it as a new entry.
  52 // Either way, returns the corresponding key which is a small integer.
  53 function storeNote($s)
  54 {
  55     global $aNotes;
  56     $key = array_search($s, $aNotes);
  57     if ($key !== false) {
  58         return $key;
  59     }
  60
  61     $key = count($aNotes);
  62     $aNotes[$key] = $s;
  63     return $key;
  64 }
  65
  66 // Display a single row of output including order, report and result information.
  67 //
  68 function generate_result_row(&$ctx, &$row, &$rrow, $priors_omitted = false)
  69 {
  70     $lab_id         = empty($row['lab_id'             ]) ? 0 : ($row['lab_id'             ] + 0);
  71     $order_type_id  = empty($row['order_type_id'      ]) ? 0 : ($row['order_type_id'      ] + 0);
  72     $order_seq      = empty($row['procedure_order_seq']) ? 0 : ($row['procedure_order_seq'] + 0);
  73     $report_id      = empty($row['procedure_report_id']) ? 0 : ($row['procedure_report_id'] + 0);
  74     $procedure_code = empty($row['procedure_code'  ]) ? '' : $row['procedure_code'];
  75     $procedure_name = empty($row['procedure_name'  ]) ? '' : $row['procedure_name'];
  76     $date_report    = empty($row['date_report'     ]) ? '' : substr($row['date_report'], 0, 16);
  77     $date_report_suf = empty($row['date_report_tz' ]) ? '' : (' ' . $row['date_report_tz' ]);
  78     $date_collected = empty($row['date_collected'  ]) ? '' : substr($row['date_collected'], 0, 16);
  79     $date_collected_suf = empty($row['date_collected_tz' ]) ? '' : (' ' . $row['date_collected_tz' ]);
  80     $specimen_num   = empty($row['specimen_num'    ]) ? '' : $row['specimen_num'];
  81     $report_status  = empty($row['report_status'   ]) ? '' : $row['report_status'];
  82     $review_status  = empty($row['review_status'   ]) ? 'received' : $row['review_status'];
  83
  84     $report_noteid = '';
  85     if ($report_id && !isset($ctx['seen_report_ids'][$report_id])) {
  86         $ctx['seen_report_ids'][$report_id] = true;
  87         if ($review_status != 'reviewed') {
  88             if ($ctx['sign_list']) {
  89                 $ctx['sign_list'] .= ',';
  90             }
  91
  92             $ctx['sign_list'] .= $report_id;
  93         }
  94
  95         // Allowing for multiple report notes separated by newlines.
  96         if (!empty($row['report_notes'])) {
  97             $notes = explode("\n", $row['report_notes']);
  98             foreach ($notes as $note) {
  99                 if ($note === '') {
 100                     continue;
 101                 }
 102
 103                 if ($report_noteid) {
 104                     $report_noteid .= ', ';
 105                 }
 106
 107                 $report_noteid .= 1 + storeNote($note);
 108             }
 109         }
 110     }
 111
 112   // allow for 0 to be displayed as a result value
 113     if ($rrow['result'] == '' && $rrow['result'] !== 0 && $rrow['result'] !== '0') {
 114         $result_result = '';
 115     } else {
 116         $result_result = $rrow['result'];
 117     }
 118
 119     $result_code      = empty($rrow['result_code'     ]) ? '' : $rrow['result_code'];
 120     $result_text      = empty($rrow['result_text'     ]) ? '' : $rrow['result_text'];
 121     $result_abnormal  = empty($rrow['abnormal'        ]) ? '' : $rrow['abnormal'];
 122     $result_units     = empty($rrow['units'           ]) ? '' : $rrow['units'];
 123     $result_facility  = empty($rrow['facility'        ]) ? '' : $rrow['facility'];
 124     $result_comments  = empty($rrow['comments'        ]) ? '' : $rrow['comments'];
 125     $result_range     = empty($rrow['range'           ]) ? '' : $rrow['range'];
 126     $result_status    = empty($rrow['result_status'   ]) ? '' : $rrow['result_status'];
 127     $result_document_id = empty($rrow['document_id'   ]) ? '' : $rrow['document_id'];
 128
 129   // Someone changed the delimiter in result comments from \n to \r.
 130   // Have to make sure results are consistent with those before that change.
 131     $result_comments = str_replace("\r", "\n", $result_comments);
 132
 133     if ($i = strpos($result_comments, "\n")) { // "=" is not a mistake!
 134         // If the first line of comments is not empty, then it is actually a long textual
 135         // result value with lines delimited by "~" characters.
 136         $result_comments = str_replace("~", "\n", substr($result_comments, 0, $i)) .
 137         substr($result_comments, $i);
 138     }
 139
 140     $result_comments = trim($result_comments);
 141
 142     $result_noteid = '';
 143     if (!empty($result_comments)) {
 144         $result_noteid = 1 + storeNote($result_comments);
 145     }
 146
 147     if ($priors_omitted) {
 148         if ($result_noteid) {
 149             $result_noteid .= ', ';
 150         }
 151
 152         $result_noteid .= 1 + storeNote(xl('This is the latest of multiple result values.'));
 153         $ctx['priors_omitted'] = true;
 154     }
 155
 156   // If a performing organization is provided, make a note for it also.
 157     $result_facility = trim(str_replace("\r", "\n", $result_facility));
 158     if ($result_facility) {
 159         if ($result_noteid) {
 160             $result_noteid .= ', ';
 161         }
 162
 163         $result_noteid .= 1 + storeNote(xl('Performing organization') . ":\n" . $result_facility);
 164     }
 165
 166     if ($ctx['lastpcid'] != $order_seq) {
 167         ++$ctx['encount'];
 168     }
 169
 170     $bgcolor = "#" . (($ctx['encount'] & 1) ? "ddddff" : "ffdddd");
 171
 172     echo " <tr class='detail' bgcolor='$bgcolor'>\n";
 173
 174     if ($ctx['lastpcid'] != $order_seq) {
 175         $ctx['lastprid'] = -1; // force report fields on first line of each procedure
 176         $tmp = text("$procedure_code: $procedure_name");
 177         // Get the LOINC code if one exists in the compendium for this order type.
 178         if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) {
 179             $trow = sqlQuery(
 180                 "SELECT standard_code FROM procedure_type WHERE " .
 181                 "lab_id = ? AND procedure_code = ? AND procedure_type = 'ord' " .
 182                 "ORDER BY procedure_type_id LIMIT 1",
 183                 array($lab_id, $procedure_code)
 184             );
 185             if (!empty($trow['standard_code'])) {
 186                   $tmp = "<a href='javascript:educlick(\"LOINC\",\"" . attr($trow['standard_code']) .
 187                     "\")'>$tmp</a>";
 188             }
 189         }
 190
 191         echo "  <td>$tmp</td>\n";
 192     } else {
 193         echo "  <td style='background-color:transparent'>&nbsp;</td>";
 194     }
 195
 196   // If this starts a new report or a new order, generate the report fields.
 197     if ($report_id != $ctx['lastprid']) {
 198         echo "  <td>";
 199         echo myCellText(oeFormatShortDate(substr($date_report, 0, 10)) . substr($date_report, 10) . $date_report_suf);
 200         echo "</td>\n";
 201
 202         echo "  <td>";
 203         echo myCellText(oeFormatShortDate(substr($date_collected, 0, 10)) . substr($date_collected, 10) . $date_collected_suf);
 204         echo "</td>\n";
 205
 206         echo "  <td>";
 207         echo myCellText($specimen_num);
 208         echo "</td>\n";
 209
 210         echo "  <td title='" . xla('Check mark indicates reviewed') . "'>";
 211         echo myCellText(getListItem('proc_rep_status', $report_status));
 212         if ($row['review_status'] == 'reviewed') {
 213             echo " &#x2713;"; // unicode check mark character
 214         }
 215
 216         echo "</td>\n";
 217
 218         echo "  <td align='center'>";
 219         echo myCellText($report_noteid);
 220         echo "</td>\n";
 221     } else {
 222         echo "  <td colspan='5' style='background-color:transparent'>&nbsp;</td>\n";
 223     }
 224
 225     if ($result_code !== '' || $result_document_id) {
 226         $tmp = myCellText($result_code);
 227         if (empty($GLOBALS['PATIENT_REPORT_ACTIVE']) && !empty($result_code)) {
 228             $tmp = "<a href='javascript:educlick(\"LOINC\",\"" . attr($result_code) .
 229             "\")'>$tmp</a>";
 230         }
 231
 232         echo "  <td>$tmp</td>\n";
 233         echo "  <td>";
 234         echo myCellText($result_text);
 235         echo "</td>\n";
 236         echo "  <td>";
 237         $tmp = myCellText(getListItem('proc_res_abnormal', $result_abnormal));
 238         if ($result_abnormal && strtolower($result_abnormal) != 'no') {
 239             echo "<b><font color='red'>$tmp</font></b>";
 240         } else {
 241             echo $tmp;
 242         }
 243
 244         echo "</td>\n";
 245         //
 246         if ($result_document_id) {
 247             $d = new Document($result_document_id);
 248             echo "  <td colspan='3'>";
 249             if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) {
 250                 echo "<a href='" . $GLOBALS['webroot'] . "/controller.php?document";
 251                 echo "&retrieve&patient_id=$patient_id&document_id=$result_document_id' ";
 252                 echo "onclick='top.restoreSession()'>";
 253             }
 254
 255             echo $d->get_url_file();
 256             if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) {
 257                 echo "</a>";
 258             }
 259
 260             echo "</td>\n";
 261             $narrative_notes = sqlQuery("select group_concat(note SEPARATOR '\n') as notes from notes where foreign_id = ?", array($result_document_id));
 262             if (!empty($narrative_notes)) {
 263                 $nnotes = explode("\n", $narrative_notes['notes']);
 264                 $narrative_note_list = '';
 265                 foreach ($nnotes as $nnote) {
 266                     if ($narrative_note_list == '') {
 267                         $narrative_note_list = 'Narrative Notes:';
 268                     }
 269
 270                     $narrative_note_list .= $nnote;
 271                 }
 272
 273                 if ($narrative_note_list != '') {
 274                     if ($result_noteid) {
 275                         $result_noteid .= ', ';
 276                     }
 277
 278                     $result_noteid .= 1 + storeNote($narrative_note_list);
 279                 }
 280             }
 281         } else {
 282             echo "  <td>";
 283             echo myCellText($result_result);
 284             echo "</td>\n";
 285             echo "  <td>";
 286             echo myCellText($result_range);
 287             echo "</td>\n";
 288             echo "  <td>";
 289             // Units comes from the lab so might not match anything in the proc_unit list,
 290             // but in that case the call will return the same value.
 291             echo myCellText(getListItemTitle('proc_unit', $result_units));
 292             echo "</td>\n";
 293         }
 294
 295         echo "  <td align='center'>";
 296         echo myCellText($result_noteid);
 297         echo "</td>\n";
 298     } else {
 299         echo "  <td colspan='7' style='background-color:transparent'>&nbsp;</td>\n";
 300     }
 301
 302     echo " </tr>\n";
 303
 304     $ctx['lastpcid'] = $order_seq;
 305     $ctx['lastprid'] = $report_id;
 306     ++$ctx['lino'];
 307 }
 308
 309 function generate_order_report($orderid, $input_form = false, $genstyles = true, $finals_only = false)
 310 {
 311     global $aNotes;
 312
 313   // Check authorization.
 314     $thisauth = acl_check('patients', 'med');
 315     if (!$thisauth) {
 316         return xl('Not authorized');
 317     }
 318
 319     $orow = sqlQuery(
 320         "SELECT " .
 321         "po.procedure_order_id, po.date_ordered, po.control_id, " .
 322         "po.order_status, po.specimen_type, po.patient_id, " .
 323         "pd.pubpid, pd.lname, pd.fname, pd.mname, pd.cmsportal_login, pd.language, " .
 324         "fe.date, " .
 325         "pp.name AS labname, " .
 326         "u.lname AS ulname, u.fname AS ufname, u.mname AS umname " .
 327         "FROM procedure_order AS po " .
 328         "LEFT JOIN patient_data AS pd ON pd.pid = po.patient_id " .
 329         "LEFT JOIN procedure_providers AS pp ON pp.ppid = po.lab_id " .
 330         "LEFT JOIN users AS u ON u.id = po.provider_id " .
 331         "LEFT JOIN form_encounter AS fe ON fe.pid = po.patient_id AND fe.encounter = po.encounter_id " .
 332         "WHERE po.procedure_order_id = ?",
 333         array($orderid)
 334     );
 335
 336     $patient_id = $orow['patient_id'];
 337     $language = $orow['language'];
 338 ?>
 339
 340 <?php if ($genstyles) { ?>
 341         <style>
 342
 343             <?php if (empty($_SESSION['language_direction']) || $_SESSION['language_direction'] == 'ltr') { ?>
 344
 345             .labres tr.head   { font-size:10pt; background-color:#cccccc; text-align:center; }
 346             .labres tr.detail { font-size:10pt; }
 347             .labres a, .labres a:visited, .labres a:hover { color:#0000cc; }
 348
 349             .labres table {
 350                 border-style: solid;
 351                 border-width: 1px 0px 0px 1px;
 352                 border-color: black;
 353             }
 354             .labres td, .labres th {
 355                 border-style: solid;
 356                 border-width: 0px 1px 1px 0px;
 357                 border-color: black;
 358             }
 359             /***** What is this for? Seems ugly to me. --Rod
 360             .labres tr{
 361                 background-color: #cccccc;
 362             }
 363             *****/
 364
 365             <?php } else { ?>
 366
 367             .labres tr.head   { font-size:10pt;  text-align:center; }
 368             .labres tr.detail { font-size:10pt; }
 369
 370             .labres table {
 371                 border-style: none;
 372                 border-width: 1px 0px 0px 1px;
 373                 border-color: black;
 374             }
 375             .labres td, .labres th {
 376                 border-style: none;
 377                 border-width: 0px 1px 1px 0px;
 378                 border-color: black;
 379                 padding: 4px;
 380             }
 381             .labres table td.td-label{
 382
 383                 font-weight: bold;
 384             }
 385
 386
 387             <?php } ?>
 388
 389         </style>
 390 <?php } ?>
 391
 392 <?php if ($input_form) { ?>
 393 <script type="text/javascript" src="<?php echo $GLOBALS['webroot']; ?>/library/textformat.js"></script>
 394 <?php } // end if input form ?>
 395
 396 <?php if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) { ?>
 397
 398 <script type="text/javascript" src="<?php echo $GLOBALS['webroot']; ?>/library/dialog.js?v=<?php echo $v_js_includes; ?>"></script>
 399 <script language="JavaScript">
 400
 401 var mypcc = '<?php echo $GLOBALS['phone_country_code'] ?>';
 402
 403 // Called to show patient notes related to this order in the "other" frame.
 404 // This works even if we are in a separate window.
 405 function showpnotes(orderid) {
 406  // Find the top or bottom frame that contains or opened this page; return if none.
 407  var w = window.opener ? window.opener : window;
 408  if (!top.tab_mode) {
 409      for (; w.name != 'RTop' && w.name != 'RBot'; w = w.parent) {
 410          if (w.parent == w) {
 411              // This message is not translated because a developer will need to find it.
 412              alert('Internal error locating target frame in ' + (window.opener ? 'opener' : 'window'));
 413              return false;
 414          }
 415      }
 416      var othername = (w.name == 'RTop') ? 'RBot' : 'RTop';
 417      w.parent.left_nav.forceDual();
 418      w.parent.left_nav.loadFrame('pno1', othername, 'patient_file/summary/pnotes_full.php?orderid=' + orderid);
 419  } else {
 420      let url = '../../patient_file/summary/pnotes_full.php?orderid=' + orderid;
 421      dlgopen(url, 'notes', 750, 500, '', '', {onClosed: 'reload'});
 422  }
 423  return false;
 424 }
 425
 426 // Process click on LOINC code for patient education popup.
 427 function educlick(codetype, codevalue) {
 428   dlgopen('<?php echo $GLOBALS['webroot']; ?>/interface/patient_file/education.php' +
 429     '?type=' + encodeURIComponent(codetype) +
 430     '&code=' + encodeURIComponent(codevalue) +
 431     '&language=<?php echo urlencode($language); ?>',
 432     '_blank', 1024, 750,true); // Force a new window instead of iframe to address cross site scripting potential
 433 }
 434
 435 </script>
 436
 437 <?php } // end if not patient report ?>
 438
 439 <?php if ($input_form) { ?>
 440 <form method='post' action='single_order_results.php?orderid=<?php echo $orderid; ?>'>
 441 <?php } // end if input form ?>
 442
 443 <div class='labres'>
 444
 445 <table width='100%' cellpadding='2' cellspacing='0'>
 446  <tr>
 447   <td class="td-label" width='5%' nowrap><?php echo xlt('Patient ID'); ?></td>
 448   <td width='45%'><?php echo myCellText($orow['pubpid']); ?></td>
 449   <td class="td-label" width='5%' nowrap><?php echo xlt('Order ID'); ?></td>
 450   <td width='45%'>
 451 <?php
 452 if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) {
 453     echo "   <a href='" . $GLOBALS['webroot'];
 454     echo "/interface/orders/order_manifest.php?orderid=";
 455     echo attr($orow['procedure_order_id']);
 456     echo "' target='_blank' onclick='top.restoreSession()'>";
 457 }
 458
 459   echo myCellText($orow['procedure_order_id']);
 460 if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) {
 461     echo "</a>\n";
 462 }
 463
 464 if ($orow['control_id']) {
 465     echo myCellText(' ' . xl('Lab') . ': ' . $orow['control_id']);
 466 }
 467 ?>
 468   </td>
 469  </tr>
 470  <tr>
 471   <td class="td-label" nowrap><?php echo xlt('Patient Name'); ?></td>
 472   <td><?php echo myCellText($orow['lname'] . ', ' . $orow['fname'] . ' ' . $orow['mname']); ?></td>
 473   <td class="td-label" nowrap><?php echo xlt('Ordered By'); ?></td>
 474   <td><?php echo myCellText($orow['ulname'] . ', ' . $orow['ufname'] . ' ' . $orow['umname']); ?></td>
 475  </tr>
 476  <tr>
 477   <td class="td-label" nowrap><?php echo xlt('Order Date'); ?></td>
 478   <td><?php echo myCellText(oeFormatShortDate($orow['date_ordered'])); ?></td>
 479   <td class="td-label" nowrap><?php echo xlt('Print Date'); ?></td>
 480   <td><?php echo text(oeFormatShortDate(date('Y-m-d'))); ?></td>
 481  </tr>
 482  <tr>
 483   <td class="td-label" nowrap><?php echo xlt('Order Status'); ?></td>
 484   <td><?php echo myCellText($orow['order_status']); ?></td>
 485   <td class="td-label" nowrap><?php echo xlt('Encounter Date'); ?></td>
 486   <td><?php echo myCellText(oeFormatShortDate(substr($orow['date'], 0, 10))); ?></td>
 487  </tr>
 488  <tr>
 489   <td class="td-label" nowrap><?php echo xlt('Lab'); ?></td>
 490   <td><?php echo myCellText($orow['labname']); ?></td>
 491   <td class="td-label" nowrap><?php echo $orow['specimen_type'] ? xlt('Specimen Type') : '&nbsp;'; ?></td>
 492   <td><?php echo myCellText($orow['specimen_type']); ?></td>
 493  </tr>
 494 </table>
 495
 496 &nbsp;<br />
 497
 498 <table width='100%' cellpadding='2' cellspacing='0'>
 499
 500  <tr class='head'>
 501   <td class="td-label" rowspan='2' valign='middle'><?php echo xlt('Ordered Procedure'); ?></td>
 502   <td  class="td-label" colspan='5'><?php echo xlt('Report'); ?></td>
 503   <td class="td-label" colspan='7'><?php echo xlt('Results'); ?></td>
 504  </tr>
 505
 506  <tr class='head'>
 507   <td><?php echo xlt('Reported'); ?></td>
 508   <td><?php echo xlt('Collected'); ?></td>
 509   <td><?php echo xlt('Specimen'); ?></td>
 510   <td><?php echo xlt('Status'); ?></td>
 511   <td><?php echo xlt('Note'); ?></td>
 512   <td><?php echo xlt('Code'); ?></td>
 513   <td><?php echo xlt('Name'); ?></td>
 514   <td><?php echo xlt('Abn'); ?></td>
 515   <td><?php echo xlt('Value'); ?></td>
 516   <td><?php echo xlt('Range'); ?></td>
 517   <td><?php echo xlt('Units'); ?></td>
 518   <td><?php echo xlt('Note'); ?></td>
 519  </tr>
 520
 521 <?php
 522   $query = "SELECT " .
 523     "po.lab_id, po.date_ordered, pc.procedure_order_seq, pc.procedure_code, " .
 524     "pc.procedure_name, " .
 525     "pr.date_report, pr.date_report_tz, pr.date_collected, pr.date_collected_tz, " .
 526     "pr.procedure_report_id, pr.specimen_num, pr.report_status, pr.review_status, pr.report_notes " .
 527     "FROM procedure_order AS po " .
 528     "JOIN procedure_order_code AS pc ON pc.procedure_order_id = po.procedure_order_id " .
 529     "LEFT JOIN procedure_report AS pr ON pr.procedure_order_id = po.procedure_order_id AND " .
 530     "pr.procedure_order_seq = pc.procedure_order_seq " .
 531     "WHERE po.procedure_order_id = ? " .
 532     "ORDER BY pc.procedure_order_seq, pr.date_report, pr.procedure_report_id";
 533
 534   $res = sqlStatement($query, array($orderid));
 535   $aNotes = array();
 536   $finals = array();
 537   $empty_results = array('result_code' => '');
 538
 539   // Context for this call that may be used in other functions.
 540   $ctx = array(
 541     'lastpcid' => -1,
 542     'lastprid' => -1,
 543     'encount' => 0,
 544     'lino' => 0,
 545     'sign_list' => '',
 546     'seen_report_ids' => array(),
 547   );
 548
 549 while ($row = sqlFetchArray($res)) {
 550     $report_id = empty($row['procedure_report_id']) ? 0 : ($row['procedure_report_id'] + 0);
 551
 552     $query = "SELECT " .
 553     "ps.result_code, ps.result_text, ps.abnormal, ps.result, ps.range, " .
 554     "ps.result_status, ps.facility, ps.units, ps.comments, ps.document_id, ps.date " .
 555     "FROM procedure_result AS ps " .
 556     "WHERE ps.procedure_report_id = ? " .
 557     "ORDER BY ps.procedure_result_id";
 558
 559     $rres = sqlStatement($query, array($report_id));
 560
 561     if ($finals_only) {
 562       // We are consolidating reports.
 563         if (sqlNumRows($rres)) {
 564             $rrowsets = array();
 565             // First pass creates a $rrowsets[$key] for each unique result code in *this* report, with
 566             // the value being an array of the corresponding result rows. This caters to multiple
 567             // occurrences of the same result code in the same report.
 568             while ($rrow = sqlFetchArray($rres)) {
 569                 $result_code = empty($rrow['result_code']) ? '' : $rrow['result_code'];
 570                 $key = sprintf('%05d/', $row['procedure_order_seq']) . $result_code;
 571                 if (!isset($rrowsets[$key])) {
 572                     $rrowsets[$key] = array();
 573                 }
 574
 575                 $rrowsets[$key][] = $rrow;
 576             }
 577
 578             // Second pass builds onto the array of final results for *all* reports, where each final
 579             // result for a given result code is its *array* of result rows from *one* of the reports.
 580             foreach ($rrowsets as $key => $rrowset) {
 581                 // When two reports have the same date, use the result date to decide which is "latest".
 582                 if (isset($finals[$key]) &&
 583                 $row['date_report'] == $finals[$key][0]['date_report'] &&
 584                 !empty($rrow['date']) && !empty($finals[$key][1]['date']) &&
 585                 $rrow['date'] < $finals[$key][1]['date']) {
 586                     $finals[$key][2] = true; // see comment below
 587                     continue;
 588                 }
 589
 590                 // $finals[$key][2] indicates if there are multiple results for this result code.
 591                 $finals[$key] = array($row, $rrowset, isset($finals[$key]));
 592             }
 593         } else {
 594             // We have no results for this report.
 595             $key = sprintf('%05d/', $row['procedure_order_seq']);
 596             $finals[$key] = array($row, array($empty_results), false);
 597         }
 598     } else {
 599       // We are showing all results for all reports.
 600         if (sqlNumRows($rres)) {
 601             while ($rrow = sqlFetchArray($rres)) {
 602                 generate_result_row($ctx, $row, $rrow, false);
 603             }
 604         } else {
 605             generate_result_row($ctx, $row, $empty_results, false);
 606         }
 607     }
 608 }
 609
 610 if ($finals_only) {
 611     // The sort here was removed because $finals is already ordered by procedure_result_id
 612     // within procedure_order_seq which is probably desirable.  Sorting by result code defeats
 613     // the sequencing of results chosen by the sender.
 614     // ksort($finals);
 615     foreach ($finals as $final) {
 616         foreach ($final[1] as $rrow) {
 617             generate_result_row($ctx, $final[0], $rrow, $final[2]);
 618         }
 619     }
 620 }
 621
 622 ?>
 623
 624 </table>
 625
 626 &nbsp;<br />
 627 <table width='100%' style='border-width:0px;'>
 628  <tr>
 629   <td style='border-width:0px;'>
 630 <?php
 631 if (!empty($aNotes)) {
 632     echo "<table cellpadding='3' cellspacing='0'>\n";
 633     echo " <tr bgcolor='#cccccc'>\n";
 634     echo "  <th align='center' colspan='2'>" . xlt('Notes') . "</th>\n";
 635     echo " </tr>\n";
 636     foreach ($aNotes as $key => $value) {
 637         echo " <tr>\n";
 638         echo "  <td valign='top'>" . ($key + 1) . "</td>\n";
 639       // <pre> tag because white space and a fixed font are often used to line things up.
 640         echo "  <td><pre style='white-space:pre-wrap;'>" . text($value) . "</pre></td>\n";
 641         echo " </tr>\n";
 642     }
 643
 644     echo "</table>\n";
 645 }
 646 ?>
 647   </td>
 648   <td style='border-width:0px;' align='right' valign='top'>
 649 <?php if ($input_form && !empty($ctx['priors_omitted']) /* empty($_POST['form_showall']) */) { ?>
 650    <input type='submit' name='form_showall' value='<?php echo xla('Show All Results'); ?>'
 651     title='<?php echo xla('Include all values reported for each result code'); ?>' />
 652 <?php } else if ($input_form && !empty($_POST['form_showall'])) { ?>
 653    <input type='submit' name='form_latest' value='<?php echo xla('Latest Results Only'); ?>'
 654     title='<?php echo xla('Show only latest values reported for each result code'); ?>' />
 655 <?php } ?>
 656 <?php if (empty($GLOBALS['PATIENT_REPORT_ACTIVE'])) { ?>
 657    &nbsp;
 658    <input type='button' value='<?php echo xla('Related Patient Notes'); ?>'
 659     onclick='showpnotes(<?php echo $orderid; ?>)' />
 660 <?php } ?>
 661 <?php if ($input_form && $ctx['sign_list']) { ?>
 662    &nbsp;
 663    <input type='hidden' name='form_sign_list' value='<?php echo attr($ctx['sign_list']); ?>' />
 664    <input type='submit' name='form_sign' value='<?php echo xla('Sign Results'); ?>'
 665     title='<?php echo xla('Mark these reports as reviewed'); ?>' />
 666 <?php
 667   // If this is a portal patient, sending them a copy is an option.
 668 if ($GLOBALS['gbl_portal_cms_enable'] && $orow['cmsportal_login'] !== '') {
 669     echo "&nbsp;";
 670     echo "<input type='checkbox' name='form_send_to_portal' value='" .
 671      attr($orow['cmsportal_login']) . "' checked />\n";
 672     echo xlt('Send to portal');
 673 }
 674 ?>
 675 <?php } ?>
 676 <?php if ($input_form) { ?>
 677    &nbsp;
 678    <input type='button' value='<?php echo xla('Close'); ?>' onclick='window.close()' />
 679 <?php } ?>
 680   </td>
 681  </tr>
 682 </table>
 683
 684 </div>
 685
 686 <?php if ($input_form) { ?>
 687 </form>
 688 <?php } // end if input form ?>
 689
 690 <?php
 691 } // end function generate_order_report
 692 ?>