contrib/forms/clinical_notes/report.php

   1 <?php
   2 // Copyright (C) 2005 Rod Roark <rod@sunsetsystems.com>
   3 //
   4 // This program is free software; you can redistribute it and/or
   5 // modify it under the terms of the GNU General Public License
   6 // as published by the Free Software Foundation; either version 2
   7 // of the License, or (at your option) any later version.
   8
   9 include_once("../../globals.php");
  10 include_once($GLOBALS["srcdir"] . "/api.inc");
  11
  12 function clinical_notes_report($pid, $encounter, $cols, $id) {
  13  $cols = 1; // force always 1 column
  14  $count = 0;
  15  $data = sqlQuery("SELECT * " .
  16   "FROM form_clinical_notes WHERE " .
  17   "id = '$id' AND activity = '1'");
  18  if ($data) {
  19   print "<table cellpadding='0' cellspacing='0'>\n<tr>\n";
  20   foreach($data as $key => $value) {
  21    if ($key == "id" || $key == "pid" || $key == "user" || $key == "groupname" ||
  22        $key == "authorized" || $key == "activity" || $key == "date" ||
  23        $value == "" || $value == "0" || $value == "0.00") {
  24     continue;
  25    }
  26
  27    if ($key == 'followup_required') {
  28     switch ($value) {
  29      case '1': $value = 'Yes'; break;
  30      case '2': $value = 'Pending investigation'; break;
  31     }
  32    }
  33
  34    /****
  35    else if ($key == 'outcome') {
  36     switch ($value) {
  37      case '1': $value = 'Resolved'  ; break;
  38      case '2': $value = 'Improved'  ; break;
  39      case '3': $value = 'Status Quo'; break;
  40      case '4': $value = 'Worse'     ; break;
  41     }
  42    }
  43    else if ($key == 'destination') {
  44     switch ($value) {
  45      case '1': $value = 'GP'; break;
  46      case '2': $value = 'Hospital Specialist'; break;
  47     }
  48    }
  49    ****/
  50
  51    $key=ucwords(str_replace("_"," ",$key));
  52    print "<td valign='top'><span class='bold'>$key: </span><span class='text'>$value &nbsp;</span></td>\n";
  53    $count++;
  54    if ($count == $cols) {
  55     $count = 0;
  56     print "</tr>\n<tr>\n";
  57    }
  58   }
  59   print "</tr>\n</table>\n";
  60  }
  61 }
  62 ?>