openemr/contrib/forms/psychiatrySet/intakeverslag/report.php

<?php

////////////////////////////////////////////////////////////////////
// Form:    Intakeverslag
// Package: Report of First visit - Dutch specific form
// Created by:  Larry Lart
// Version: 1.0 - 27-03-2008
////////////////////////////////////////////////////////////////////

require_once("../../globals.php");
require_once($GLOBALS["srcdir"] . "/api.inc");

////////////////////////////////////////////////////////////////////
// Function:    intakeverslag_report
// Purpose: callback func?
// Input:   pid? encounter, cols, id ?
////////////////////////////////////////////////////////////////////
function intakeverslag_report($pid, $encounter, $cols, $id)
{
    $count = 0;
    $data = formFetch("form_intakeverslag", $id);
    if ($data) {
        print "<table>";

        foreach ($data as $key => $value) {
            // here we check for current ???? what ? session ?
            if (
                $key == "id" || $key == "pid" || $key == "user" ||
                $key == "groupname" || $key == "authorized" || $key == "activity" ||
                $key == "date" || $value == "" || $value == "0000-00-00 00:00:00"
            ) {
                continue;
            }

            // larry :: ??? - is this for check box or select or what ?
            if ($value == "on") {
                $value = "yes";
            }

            // Intakedatum
            if ($key == "intakedatum") {
                print "<tr><td><span class=bold>" . xlt('Intake Date') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            // Reden van aanmelding
            if ($key == "reden_van_aanmelding") {
                print "<tr><td><span class=bold>" . xlt('Reason for Visit')  . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            // Klachten/Probleemgebieden
            if ($key == "klachten_probleemgebieden") {
                print "<tr><td><span class=bold>" . xlt('Problem List') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            // Hulpverlening en/of onderzoek tot nu toe
            if ($key == "hulpverlening_onderzoek") {
                print "<tr><td><span class=bold>" . xlt('Psychiatric History') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            // Hulpvraag en doelen
            if ($key == "hulpvraag_en_doelen") {
                print "<tr><td><span class=bold>" . xlt('Treatment Goals') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            // Bijzonderheden systeem
            if ($key == "bijzonderheden_systeem") {
                print "<tr><td><span class=bold>" . xlt('Specialty Systems') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            // Werk/ opleiding/ vrije tijdsbesteding
            if ($key == "werk_opleiding_vrije_tijdsbesteding") {
                print "<tr><td><span class=bold>" . xlt('Work/ Education/ Hobbies') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            // Relatie(s)/ kinderen
            if ($key == "relatie_kinderen") {
                print "<tr><td><span class=bold>" . xlt('Relation(s) / Children') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            // Somatische context
            if ($key == "somatische_context") {
                print "<tr><td><span class=bold>" . xlt('Somatic Context') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            /////////////////////////////////////////////////////
            // - one line entry forms
            // alcohol
            if ($key == "alcohol") {
                print "<tr><td><span class=bold>" . xlt('Alcohol') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            // drugs
            if ($key == "drugs") {
                print "<tr><td><span class=bold>" . xlt('Drugs') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            // roken
            if ($key == "roken") {
                print "<tr><td><span class=bold>" . xlt('Tobacco') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            ////////////////////////////////////////////////////////

            // Medicatie
            if ($key == "medicatie") {
                print "<tr><td><span class=bold>" . xlt('Medications') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            // Familieanamnese
            if ($key == "familieanamnese") {
                print "<tr><td><span class=bold>" . xlt('Family History') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            // Indruk/observaties
            if ($key == "indruk_observaties") {
                print "<tr><td><span class=bold>" . xlt('Assessment') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            // Beschrijvende conclusie
            if ($key == "beschrijvende_conclusie") {
                print "<tr><td><span class=bold>" . xlt('Conclusions') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            // Behandelvoorstel
            if ($key == "behandelvoorstel") {
                print "<tr><td><span class=bold>" . xlt('Treatment Plan') . ": </span><span class=text>" .
                    nl2br(text($value)) . "</span></td></tr>";
            }

            // increment records counter
            $count++;
            // check if not at the end close/open new row
            if ($count == $cols) {
                $count = 0;
                print "</tr><tr>\n";
            }
        }
    }

    print "</tr></table>";
}