2 //------------Forms generated from formsWiz
3 include_once(dirname(__FILE__
).'/../../globals.php');
4 include_once($GLOBALS["srcdir"]."/api.inc");
6 function ros_report( $pid, $encounter, $cols, $id) {
10 $data = formFetch("form_ros", $id);
22 // This maps a label to custom text. For example "glaucoma_history" should be
23 // displayed as "Glaucoma Family History". If this wasn't specified, the code
24 // will display it as "Glaucoma History" due to some clever string manipulation.
25 // Acronyms are handled in this map as well.
26 "glaucoma_history" => "Glaucoma Family History",
27 "irritation" => "Eye Irritation",
28 "redness" => "Eye Redness",
29 "discharge" => "ENT Discharge",
31 "biopsy" => "Breast Biopsy",
32 "hemoptsyis" => "Hemoptysis",
36 "peripheal" => "Peripheral",
37 "legpain_cramping" => "Leg Pain/Cramping",
38 "frequency" => "Urine Frequency",
39 "urgency" => "Urine Urgency",
41 "hesitancy" => "Urine Hesitancy",
42 "dribbling" => "Urine Dribbling",
43 "stream" => "Urine Stream",
48 "mearche" => "Menarche",
50 "f_frequency" => "Menstrual Frequency",
51 "f_flow" => "Menstrual Flow",
52 "f_symptoms" => "Female Symptoms",
53 "f_hirsutism" => "Hirsutism/Striae",
54 "swelling" => "Musc Swelling",
55 "m_redness" => "Musc Redness",
56 "m_warm" => "Musc Warm",
57 "m_stiffness" => "Musc Stiffness",
58 "m_aches" => "Musc Aches",
62 "n_numbness" => "Neuro Numbness",
63 "n_weakness" => "Neuro Weakness",
64 "n_headache" => "Headache",
65 "s_cancer" => "Skin Cancer",
67 "s_other" => "Skin Other",
68 "s_disease" => "Skin Disease",
69 "p_diagnosis" => "Psych Diagnosis",
70 "p_medication" => "Psych Medication",
71 "abnormal_blood" => "Endo Abnormal Blood",
72 "fh_blood_problems" => "FH Blood Problems",
74 "hai_status" => "HAI Status",
77 print "<div id='form_ros_values'><table class='report_results'><tr>";
79 foreach($data as $key => $value) {
80 if (isset($cmap[$key])) {
81 if ($cmap[$key] == '') continue;
84 $key = ucwords(str_replace("_"," ",$key));
87 // skip the N/A values -- cfapress, Jan 2009 OR blank or zero date values
88 if ($value == "N/A" ||
$value == "" ||
89 $value == "0000-00-00" ||
$value == "0000-00-00 00:00:00") continue;
91 if ($value == "on") { $value = "yes"; }
93 printf ("<td><span class=bold>%s: </span><span class=text>%s</span></td>"
94 , xl($key), xl($value));
97 if ($count == $cols) {
103 print "</tr></table></div>";