You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
88 lines
3.1 KiB
88 lines
3.1 KiB
2 years ago
|
<?php
|
||
|
|
|
||
|
|
////////////////////////////////////////////////////////////////////
|
||
|
|
// Form: BRIEF AAN VERWIJZER
|
||
|
|
// Package: letter to - Dutch specific form
|
||
|
|
// Created by: Larry Lart
|
||
|
|
// Version: 1.0 - 30-03-2008
|
||
|
|
////////////////////////////////////////////////////////////////////
|
||
|
|
|
||
|
|
require_once("../../globals.php");
|
||
|
|
require_once($GLOBALS["srcdir"] . "/api.inc");
|
||
|
|
|
||
|
|
////////////////////////////////////////////////////////////////////
|
||
|
|
// Function: brief_aan_verwijzer_report
|
||
|
|
// Purpose: callback func?
|
||
|
|
// Input: pid? encounter, cols, id ?
|
||
|
|
////////////////////////////////////////////////////////////////////
|
||
|
|
function brief_aan_verwijzer_report($pid, $encounter, $cols, $id)
|
||
|
|
{
|
||
|
|
$count = 0;
|
||
|
|
$data = formFetch("form_psychiatrisch_onderzoek", $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";
|
||
|
|
}
|
||
|
|
|
||
|
|
// Introductie
|
||
|
|
if ($key == "introductie") {
|
||
|
|
print "<tr><td><span class=bold>" . xlt('Introduction') . ": </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>";
|
||
|
|
}
|
||
|
|
|
||
|
|
// Anamnese
|
||
|
|
if ($key == "anamnese") {
|
||
|
|
print "<tr><td><span class=bold>" . xlt('History') . ": </span><span class=text>" .
|
||
|
|
nl2br(text($value)) . "</span></td></tr>";
|
||
|
|
}
|
||
|
|
|
||
|
|
// Psychiatrisch onderzoek
|
||
|
|
if ($key == "psychiatrisch_onderzoek") {
|
||
|
|
print "<tr><td><span class=bold>" . xlt('Psychiatric Examination') . ": </span><span class=text>" .
|
||
|
|
nl2br(text($value)) . "</span></td></tr>";
|
||
|
|
}
|
||
|
|
|
||
|
|
// Beschrijvend conclusie
|
||
|
|
if ($key == "beschrijvend_conclusie") {
|
||
|
|
print "<tr><td><span class=bold>" . xlt('Conclusions') . ": </span><span class=text>" .
|
||
|
|
nl2br(text($value)) . "</span></td></tr>";
|
||
|
|
}
|
||
|
|
|
||
|
|
// Advies/beleid
|
||
|
|
if ($key == "advies_beleid") {
|
||
|
|
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>";
|
||
|
|
}
|