interface/forms/ros/report.php

   1 <?php
   2
   3 /**
   4  * ROS form
   5  * Forms generated from formsWiz
   6  *
   7  * @package   OpenEMR
   8  * @link      http://www.open-emr.org
   9  * @author    Brady Miller <brady.g.miller@gmail.com>
  10  * @copyright Copyright (c) 2019 Brady Miller <brady.g.miller@gmail.com>
  11  * @license   https://github.com/openemr/openemr/blob/master/LICENSE GNU General Public License 3
  12  */
  13
  14 require_once(dirname(__FILE__) . '/../../globals.php');
  15 require_once($GLOBALS["srcdir"] . "/api.inc.php");
  16
  17 function ros_report($pid, $encounter, $cols, $id)
  18 {
  19
  20     $count = 0;
  21
  22     $data = formFetch("form_ros", $id);
  23
  24     if ($data) {
  25         $cmap = array(
  26                 "id" => '',
  27                 "pid" => '',
  28                 "user" => '',
  29                 "groupname" => '',
  30                 "activity" => '',
  31                 "authorized" => '',
  32                 "date" => '',
  33
  34                 // This maps a label to custom text. For example "glaucoma_history" should be
  35                 // displayed as "Glaucoma Family History". If this wasn't specified, the code
  36                 // will display it as "Glaucoma History" due to some clever string manipulation.
  37                 // Acronyms are handled in this map as well.
  38                 "glaucoma_history" => "Glaucoma Family History",
  39                 "irritation" => "Eye Irritation",
  40                 "redness" => "Eye Redness",
  41                 "discharge" => "ENT Discharge",
  42                 "pain" => "ENT Pain",
  43                 "biopsy" => "Breast Biopsy",
  44                 "hemoptsyis" => "Hemoptysis",
  45                 "copd" => "COPD",
  46                 "pnd" => "PND",
  47                 "doe" => "DOE",
  48                 "peripheal" => "Peripheral",
  49                 "legpain_cramping" => "Leg Pain/Cramping",
  50                 "frequency" => "Urine Frequency",
  51                 "urgency" => "Urine Urgency",
  52                 "utis" => "UTIs",
  53                 "hesitancy" => "Urine Hesitancy",
  54                 "dribbling" => "Urine Dribbling",
  55                 "stream" => "Urine Stream",
  56                 "g" => "Female G",
  57                 "p" => "Female P",
  58                 "lc" => "Female LC",
  59                 "ap" => "Female AP",
  60                 "mearche" => "Menarche",
  61                 "lmp" => "LMP",
  62                 "f_frequency" => "Menstrual Frequency",
  63                 "f_flow" => "Menstrual Flow",
  64                 "f_symptoms" => "Female Symptoms",
  65                 "f_hirsutism" => "Hirsutism/Striae",
  66                 "swelling" => "Musc Swelling",
  67                 "m_redness" => "Musc Redness",
  68                 "m_warm" => "Musc Warm",
  69                 "m_stiffness" => "Musc Stiffness",
  70                 "m_aches" => "Musc Aches",
  71                 "fms" => "FMS",
  72                 "loc" => "LOC",
  73                 "tia" => "TIA",
  74                 "n_numbness" => "Neuro Numbness",
  75                 "n_weakness" => "Neuro Weakness",
  76                 "n_headache" => "Headache",
  77                 "s_cancer" => "Skin Cancer",
  78                 "s_acne" => "Acne",
  79                 "s_other" => "Skin Other",
  80                 "s_disease" => "Skin Disease",
  81                 "p_diagnosis" => "Psych Diagnosis",
  82                 "p_medication" => "Psych Medication",
  83                 "abnormal_blood" => "Endo Abnormal Blood",
  84                 "fh_blood_problems" => "FH Blood Problems",
  85                 "hiv" => "HIV",
  86                 "hai_status" => "HAI Status",
  87         );
  88
  89         print "<div id='form_ros_values'><table class='report_results'><tr>";
  90
  91         foreach ($data as $key => $value) {
  92             if (isset($cmap[$key])) {
  93                 if ($cmap[$key] == '') {
  94                     continue;
  95                 }
  96
  97                 $key = $cmap[$key];
  98             } else {
  99                 $key = ucwords(str_replace("_", " ", $key));
 100             }
 101
 102             // skip the N/A values -- cfapress, Jan 2009 OR blank or zero date values
 103             if (
 104                 $value == "N/A" || $value == "" ||
 105                 $value == "0000-00-00" || $value == "0000-00-00 00:00:00"
 106             ) {
 107                 continue;
 108             }
 109
 110             if ($value == "on") {
 111                 $value = "yes";
 112             }
 113
 114             printf("<td><span class=bold>%s: </span><span class=text>%s</span></td>", xlt($key), xlt($value));
 115             $count++;
 116
 117             if ($count == $cols) {
 118                 $count = 0;
 119                 print "</tr><tr>\n";
 120             }
 121         }
 122     }
 123
 124     print "</tr></table></div>";
 125 }