contrib/forms/psychiatrySet/intakeverslag/report.php

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