interface/forms/vitals/report.php

   1 <?php
   2 include_once("../../globals.php");
   3 include_once($GLOBALS["srcdir"]."/api.inc");
   4 include_once ($GLOBALS['fileroot']."/library/patient.inc");
   5
   6 function vitals_report( $pid, $encounter, $cols, $id, $print = true) {
   7     $count = 0;
   8     $data = formFetch("form_vitals", $id);
   9     $patient_data = getPatientData($GLOBALS['pid']);
  10     $patient_age = getPatientAge($patient_data['DOB']);
  11
  12     if ($data) {
  13         $vitals .= "<table><tr>";
  14
  15         foreach($data as $key => $value) {
  16
  17             if ($key == "id" || $key == "pid" ||
  18                 $key == "user" || $key == "groupname" ||
  19                 $key == "authorized" || $key == "activity" ||
  20                 $key == "date" || $value == "" ||
  21                 $value == "0000-00-00 00:00:00" || $value == "0.0" )
  22             {
  23                 // skip certain data
  24                 continue;
  25             }
  26
  27             if ($value == "on") { $value = "yes"; }
  28
  29             $key=ucwords(str_replace("_"," ",$key));
  30
  31             //modified by BM 06-2009 for required translation
  32             if ($key == "Temp Method" || $key == "BMI Status") {
  33                 if ($key == "BMI Status") {
  34                     if ($patient_age <= 20 || (preg_match('/month/', $patient_age))) {
  35                         $value = "See Growth-Chart";
  36                     }
  37                 }
  38                 $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . xl($value) . "</span></td>";
  39             }
  40             elseif ($key == "Bps") {
  41                 $bps = $value;
  42                 if ($bpd) {
  43                     $vitals .= "<td><span class=bold>" . xl('Blood Pressure') . ": </span><span class=text>" . $bps . "/". $bpd  . "</span></td>";
  44                 }
  45                 else {
  46                     continue;
  47                 }
  48             }
  49             elseif ($key == "Bpd") {
  50                 $bpd = $value;
  51                 if ($bps) {
  52                     $vitals .= "<td><span class=bold>" . xl('Blood Pressure') . ": </span><span class=text>" . $bps . "/". $bpd  . "</span></td>";
  53                 }
  54                 else {
  55                     continue;
  56                 }
  57             }
  58             elseif ($key == "Weight") {
  59                 $convValue = number_format($value*0.45359237,2);
  60                 // show appropriate units
  61                 if ($GLOBALS['units_of_measurement'] == 2) {
  62                     $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . $convValue . " " . xl('kg') . " (" . $value . " " . xl('lb')  . ")</span></td>";
  63                 }
  64                 elseif ($GLOBALS['units_of_measurement'] == 3) {
  65                     $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . $value . " " . xl('lb') . "</span></td>";
  66                 }
  67                 elseif ($GLOBALS['units_of_measurement'] == 4) {
  68                     $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . $convValue . " " . xl('kg') . "</span></td>";
  69                 }
  70                 else { // = 1 or not set
  71                     $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . $value . " " . xl('lb') . " (" . $convValue . " " . xl('kg')  . ")</span></td>";
  72                 }
  73             }
  74             elseif ($key == "Height" || $key == "Waist Circ"  || $key == "Head Circ") {
  75                 $convValue = number_format($value*2.54,2);
  76                 // show appropriate units
  77                 if ($GLOBALS['units_of_measurement'] == 2) {
  78                     $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . $convValue . " " . xl('cm') . " (" . $value . " " . xl('in')  . ")</span></td>";
  79                 }
  80                 elseif ($GLOBALS['units_of_measurement'] == 3) {
  81                     $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . $value . " " . xl('in') . "</span></td>";
  82                 }
  83                 elseif ($GLOBALS['units_of_measurement'] == 4) {
  84                     $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . $convValue . " " . xl('cm') . "</span></td>";
  85                 }
  86                 else { // = 1 or not set
  87                     $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . $value . " " . xl('in') . " (" . $convValue . " " . xl('cm')  . ")</span></td>";
  88                 }
  89             }
  90             elseif ($key == "Temperature") {
  91                 $convValue = number_format((($value-32)*0.5556),2);
  92                 // show appropriate units
  93                 if ($GLOBALS['units_of_measurement'] == 2) {
  94                     $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . $convValue . " " . xl('C') . " (" . $value . " " . xl('F')  . ")</span></td>";
  95                 }
  96                 elseif ($GLOBALS['units_of_measurement'] == 3) {
  97                     $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . $value . " " . xl('F') . "</span></td>";
  98                 }
  99                 elseif ($GLOBALS['units_of_measurement'] == 4) {
 100                     $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . $convValue . " " . xl('C') . "</span></td>";
 101                 }
 102                 else { // = 1 or not set
 103                     $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . $value . " " . xl('F') . " (" . $convValue . " " . xl('C')  . ")</span></td>";
 104                 }
 105             }
 106
 107             elseif ($key == "Pulse" || $key == "Respiration"  || $key == "Oxygen Saturation" || $key == "BMI") {
 108                 $value = number_format($value,0);
 109                 if ($key == "Oxygen Saturation") {
 110                     $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . $value . " " . xl('%') . "</span></td>";
 111                 }
 112                 elseif ($key == "BMI") {
 113                     $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . $value . " " . xl('kg/m^2') . "</span></td>";
 114                 }
 115                 else { //pulse and respirations
 116                     $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . $value . " " . xl('per min') . "</span></td>";
 117                 }
 118             }
 119             else {
 120                 $vitals .= "<td><span class=bold>" . xl($key) . ": </span><span class=text>$value</span></td>";
 121             }
 122
 123             $count++;
 124
 125             if ($count == $cols) {
 126                 $count = 0;
 127                 $vitals .= "</tr><tr>\n";
 128             }
 129         }
 130
 131         $vitals .= "</tr></table>";
 132     }
 133     if($print) echo $vitals ;
 134     else return $vitals;
 135 }
 136 ?>