interface/forms/ros/report.php

   1 <?php
   2 //------------Forms generated from formsWiz
   3 include_once("../../globals.php");
   4 include_once($GLOBALS["srcdir"]."/api.inc");
   5
   6 function ros_report( $pid, $encounter, $cols, $id) {
   7
   8     $count = 0;
   9
  10     $data = formFetch("form_ros", $id);
  11
  12     if ($data) {
  13         print "<div id='form_ros_values'><table class='report_results'><tr>";
  14
  15         foreach($data as $key => $value) {
  16             if ($key == "id" || $key == "pid" || $key == "user" || $key == "groupname" || $key == "activity" ||
  17                 $key == "authorized" ||  $key == "date" || $value == "" || $value == "0000-00-00 00:00:00")
  18             {
  19                 continue;
  20             }
  21
  22             // skip the N/A values -- cfapress, Jan 2009
  23             if ($value == "N/A") { continue; }
  24
  25             if ($value == "on") { $value = "yes"; }
  26
  27             $key=ucwords(str_replace("_"," ",$key));
  28
  29             //added by BM 07-2009 to clarify labels
  30             if ($key == "Glaucoma History") { $key = "Glaucoma Family History"; }
  31             if ($key == "Irritation") { $key = "Eye Irritation"; }
  32             if ($key == "Redness") { $key = "Eye Redness"; }
  33             if ($key == "Discharge") { $key = "ENT Discharge"; }
  34             if ($key == "Pain") { $key = "ENT Pain"; }
  35             if ($key == "Biopsy") { $key = "Breast Biopsy"; }
  36             if ($key == "Hemoptsyis") { $key = "Hemoptysis"; }
  37             if ($key == "Copd") { $key = "COPD"; }
  38             if ($key == "Pnd") { $key = "PND"; }
  39             if ($key == "Doe") { $key = "DOE"; }
  40             if ($key == "Peripheal") { $key = "Peripheral"; }
  41             if ($key == "Legpain Cramping") { $key = "Leg Pain/Cramping"; }
  42             if ($key == "Frequency") { $key = "Urine Frequency"; }
  43             if ($key == "Urgency") { $key = "Urine Urgency"; }
  44             if ($key == "Utis") { $key = "UTIs"; }
  45             if ($key == "Hesitancy") { $key = "Urine Hesitancy"; }
  46             if ($key == "Dribbling") { $key = "Urine Dribbling"; }
  47             if ($key == "Stream") { $key = "Urine Stream"; }
  48             if ($key == "G") { $key = "Female G"; }
  49             if ($key == "P") { $key = "Female P"; }
  50             if ($key == "Lc") { $key = "Female LC"; }
  51             if ($key == "Ap") { $key = "Female AP"; }
  52             if ($key == "Mearche") { $key = "Menarche"; }
  53             if ($key == "Lmp") { $key = "LMP"; }
  54             if ($key == "F Frequency") { $key = "Menstrual Frequency"; }
  55             if ($key == "F Flow") { $key = "Menstrual Flow"; }
  56             if ($key == "F Symptoms") { $key = "Female Symptoms"; }
  57             if ($key == "F Hirsutism") { $key = "Hirsutism/Striae"; }
  58             if ($key == "Swelling") { $key = "Musc Swelling"; }
  59             if ($key == "M Redness") { $key = "Musc Redness"; }
  60             if ($key == "M Warm") { $key = "Musc Warm"; }
  61             if ($key == "M Stiffness") { $key = "Musc Stiffness"; }
  62             if ($key == "M Aches") { $key = "Musc Aches"; }
  63             if ($key == "Fms") { $key = "FMS"; }
  64             if ($key == "Loc") { $key = "LOC"; }
  65             if ($key == "Tia") { $key = "TIA"; }
  66             if ($key == "N Numbness") { $key = "Neuro Numbness"; }
  67             if ($key == "N Weakness") { $key = "Neuro Weakness"; }
  68             if ($key == "N Headache") { $key = "Headache"; }
  69             if ($key == "S Cancer") { $key = "Skin Cancer"; }
  70             if ($key == "S Acne") { $key = "Acne"; }
  71             if ($key == "S Other") { $key = "Skin Other"; }
  72             if ($key == "S Disease") { $key = "Skin Disease"; }
  73             if ($key == "P Diagnosis") { $key = "Psych Diagnosis"; }
  74             if ($key == "P Medication") { $key = "Psych Medication"; }
  75             if ($key == "Abnormal Blood") { $key = "Endo Abnormal Blood"; }
  76             if ($key == "Fh Blood Problems") { $key = "FH Blood Problems"; }
  77             if ($key == "Hiv") { $key = "HIV"; }
  78             if ($key == "Hai Status") { $key = "HAI Status"; }
  79
  80             //modified by BM 07-2009 for internationalization
  81             print "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . xl($value) . "</span></td>";
  82             $count++;
  83
  84             if ($count == $cols) {
  85                 $count = 0;
  86                 print "</tr><tr>\n";
  87             }
  88         }
  89     }
  90     print "</tr></table></div>";
  91 }
  92 ?>