contrib/forms/psychiatrySet/intakeverslag/report.php

   1 <?php
   2 ////////////////////////////////////////////////////////////////////
   3 // Form:        Intakeverslag
   4 // Package:     Report of First visit - Dutch specific form
   5 // Created by:  Larry Lart
   6 // Version:     1.0 - 27-03-2008
   7 ////////////////////////////////////////////////////////////////////
   8
   9 include_once("../../globals.php");
  10 include_once($GLOBALS["srcdir"]."/api.inc");
  11
  12 ////////////////////////////////////////////////////////////////////
  13 // Function:    intakeverslag_report
  14 // Purpose:     callback func?
  15 // Input:       pid? encounter, cols, id ?
  16 ////////////////////////////////////////////////////////////////////
  17 function intakeverslag_report($pid, $encounter, $cols, $id)
  18 {
  19     $count = 0;
  20     $data = formFetch("form_intakeverslag", $id);
  21     if ($data) {
  22         print "<table>";
  23
  24         foreach ($data as $key => $value) {
  25             // here we check for current ???? what ? session ?
  26             if ($key == "id" || $key == "pid" || $key == "user" ||
  27             $key == "groupname" || $key == "authorized" || $key == "activity" ||
  28             $key == "date" || $value == "" || $value == "0000-00-00 00:00:00") {
  29                 continue;
  30             }
  31
  32             // larry :: ??? - is this for check box or select or what ?
  33             if ($value == "on") {
  34                 $value = "yes";
  35             }
  36
  37             // Intakedatum
  38             if ($key == "intakedatum") {
  39                 print "<tr><td><span class=bold>" . xl('Intake Date') . ": </span><span class=text>" .
  40                     nl2br(stripslashes($value)) . "</span></td></tr>";
  41             }
  42
  43             // Reden van aanmelding
  44             if ($key == "reden_van_aanmelding") {
  45                 print "<tr><td><span class=bold>" . xl('Reason for Visit')  . ": </span><span class=text>" .
  46                     nl2br(stripslashes($value)) . "</span></td></tr>";
  47             }
  48
  49             // Klachten/Probleemgebieden
  50             if ($key == "klachten_probleemgebieden") {
  51                 print "<tr><td><span class=bold>" . xl('Problem List') . ": </span><span class=text>" .
  52                     nl2br(stripslashes($value)) . "</span></td></tr>";
  53             }
  54
  55             // Hulpverlening en/of onderzoek tot nu toe
  56             if ($key == "hulpverlening_onderzoek") {
  57                 print "<tr><td><span class=bold>" . xl('Psychiatric History') . ": </span><span class=text>" .
  58                     nl2br(stripslashes($value)) . "</span></td></tr>";
  59             }
  60
  61             // Hulpvraag en doelen
  62             if ($key == "hulpvraag_en_doelen") {
  63                 print "<tr><td><span class=bold>" . xl('Treatment Goals') . ": </span><span class=text>" .
  64                     nl2br(stripslashes($value)) . "</span></td></tr>";
  65             }
  66
  67             // Bijzonderheden systeem
  68             if ($key == "bijzonderheden_systeem") {
  69                 print "<tr><td><span class=bold>" . xl('Specialty Systems') . ": </span><span class=text>" .
  70                     nl2br(stripslashes($value)) . "</span></td></tr>";
  71             }
  72
  73             // Werk/ opleiding/ vrije tijdsbesteding
  74             if ($key == "werk_opleiding_vrije_tijdsbesteding") {
  75                 print "<tr><td><span class=bold>" . xl('Work/ Education/ Hobbies') . ": </span><span class=text>" .
  76                     nl2br(stripslashes($value)) . "</span></td></tr>";
  77             }
  78
  79             // Relatie(s)/ kinderen
  80             if ($key == "relatie_kinderen") {
  81                 print "<tr><td><span class=bold>" . xl('Relation(s) / Children') . ": </span><span class=text>" .
  82                     nl2br(stripslashes($value)) . "</span></td></tr>";
  83             }
  84
  85             // Somatische context
  86             if ($key == "somatische_context") {
  87                 print "<tr><td><span class=bold>" . xl('Somatic Context') . ": </span><span class=text>" .
  88                     nl2br(stripslashes($value)) . "</span></td></tr>";
  89             }
  90
  91             /////////////////////////////////////////////////////
  92             // - one line entry forms
  93             // alcohol
  94             if ($key == "alcohol") {
  95                 print "<tr><td><span class=bold>" . xl('Alcohol') . ": </span><span class=text>" .
  96                     nl2br(stripslashes($value)) . "</span></td></tr>";
  97             }
  98
  99             // drugs
 100             if ($key == "drugs") {
 101                 print "<tr><td><span class=bold>" . xl('Drugs') . ": </span><span class=text>" .
 102                     nl2br(stripslashes($value)) . "</span></td></tr>";
 103             }
 104
 105             // roken
 106             if ($key == "roken") {
 107                 print "<tr><td><span class=bold>" . xl('Tobacco') . ": </span><span class=text>" .
 108                     nl2br(stripslashes($value)) . "</span></td></tr>";
 109             }
 110
 111             ////////////////////////////////////////////////////////
 112
 113             // Medicatie
 114             if ($key == "medicatie") {
 115                 print "<tr><td><span class=bold>" . xl('Medications') . ": </span><span class=text>" .
 116                     nl2br(stripslashes($value)) . "</span></td></tr>";
 117             }
 118
 119             // Familieanamnese
 120             if ($key == "familieanamnese") {
 121                 print "<tr><td><span class=bold>" . xl('Family History') . ": </span><span class=text>" .
 122                     nl2br(stripslashes($value)) . "</span></td></tr>";
 123             }
 124
 125             // Indruk/observaties
 126             if ($key == "indruk_observaties") {
 127                 print "<tr><td><span class=bold>" . xl('Assessment') . ": </span><span class=text>" .
 128                     nl2br(stripslashes($value)) . "</span></td></tr>";
 129             }
 130
 131             // Beschrijvende conclusie
 132             if ($key == "beschrijvende_conclusie") {
 133                 print "<tr><td><span class=bold>" . xl('Conclusions') . ": </span><span class=text>" .
 134                     nl2br(stripslashes($value)) . "</span></td></tr>";
 135             }
 136
 137             // Behandelvoorstel
 138             if ($key == "behandelvoorstel") {
 139                 print "<tr><td><span class=bold>" . xl('Treatment Plan') . ": </span><span class=text>" .
 140                     nl2br(stripslashes($value)) . "</span></td></tr>";
 141             }
 142
 143             // increment records counter
 144             $count++;
 145             // check if not at the end close/open new row
 146             if ($count == $cols) {
 147                 $count = 0;
 148                 print "</tr><tr>\n";
 149             }
 150         }
 151     }
 152
 153     print "</tr></table>";
 154 }