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.
4974 lines
195 KiB
4974 lines
195 KiB
2 years ago
|
<?php
|
||
|
|
|
||
|
|
// Copyright (C) 2007-2021 Rod Roark <rod@sunsetsystems.com>
|
||
|
|
// Copyright © 2010 by Andrew Moore <amoore@cpan.org>
|
||
|
|
// Copyright © 2010 by "Boyd Stephen Smith Jr." <bss@iguanasuicide.net>
|
||
|
|
// Copyright (c) 2017 - 2021 Jerry Padgett <sjpadgett@gmail.com>
|
||
|
|
// Copyright (c) 2021 Robert Down <robertdown@live.com>
|
||
|
|
// Copyright (c) 2022 David Eschelbacher <psoas@tampabay.rr.com>
|
||
|
|
//
|
||
|
|
// This program is free software; you can redistribute it and/or
|
||
|
|
// modify it under the terms of the GNU General Public License
|
||
|
|
// as published by the Free Software Foundation; either version 2
|
||
|
|
// of the License, or (at your option) any later version.
|
||
|
|
|
||
|
|
// Functions for managing the lists and layouts
|
||
|
|
//
|
||
|
|
// Note: there are translation wrappers for the lists and layout labels
|
||
|
|
// at library/translation.inc.php. The functions are titled
|
||
|
|
// xl_list_label() and xl_layout_label() and are controlled by the
|
||
|
|
// $GLOBALS['translate_lists'] and $GLOBALS['translate_layout']
|
||
|
|
// flags in globals.php
|
||
|
|
|
||
|
|
// Documentation for layout_options.edit_options:
|
||
|
|
//
|
||
|
|
// A = Age as years or "xx month(s)"
|
||
|
|
// B = Gestational age as "xx week(s) y day(s)"
|
||
|
|
// C = Capitalize first letter of each word (text fields)
|
||
|
|
// D = Check for duplicates in New Patient form
|
||
|
|
// G = Graphable (for numeric fields in forms supporting historical data)
|
||
|
|
// H = Read-only field copied from static history (this is obsolete)
|
||
|
|
// J = Jump to Next Row
|
||
|
|
// K = Prepend Blank Row
|
||
|
|
// L = Lab Order ("ord_lab") types only (address book)
|
||
|
|
// M = Radio Group Master (currently for radio buttons only)
|
||
|
|
// m = Radio Group Member (currently for radio buttons only)
|
||
|
|
// N = Show in New Patient form
|
||
|
|
// O = Procedure Order ("ord_*") types only (address book)
|
||
|
|
// P = Default to previous value when current value is not yet set
|
||
|
|
// R = Distributor types only (address book)
|
||
|
|
// T = Use description as default Text
|
||
|
|
// DAP = Use description as placeholder
|
||
|
|
// U = Capitalize all letters (text fields)
|
||
|
|
// V = Vendor types only (address book)
|
||
|
|
// 0 = Read Only - the input element's "disabled" property is set
|
||
|
|
// 1 = Write Once (not editable when not empty) (text fields)
|
||
|
|
// 2 = Show descriptions instead of codes for billing code input
|
||
|
|
|
||
|
|
// note: isOption() returns true/false
|
||
|
|
|
||
|
|
// NOTE: All of the magic constants for the data types here are found in library/layout.inc.php
|
||
|
|
|
||
|
|
require_once("user.inc");
|
||
|
|
require_once("patient.inc");
|
||
|
|
require_once("lists.inc");
|
||
|
|
require_once(dirname(dirname(__FILE__)) . "/custom/code_types.inc.php");
|
||
|
|
|
||
|
|
use OpenEMR\Common\Acl\AclExtended;
|
||
|
|
use OpenEMR\Common\Acl\AclMain;
|
||
|
|
use OpenEMR\Services\EncounterService;
|
||
|
|
use OpenEMR\Services\FacilityService;
|
||
|
|
use OpenEMR\Services\PatientService;
|
||
|
|
|
||
|
|
$facilityService = new FacilityService();
|
||
|
|
|
||
|
|
$date_init = "";
|
||
|
|
$membership_group_number = 0;
|
||
|
|
|
||
|
|
// Our base Bootstrap column class, referenced here and in some other modules.
|
||
|
|
// Using col-lg allow us to have additional breakpoint at col-md.(992px, 768px)
|
||
|
|
// col-md-auto will let BS decide with col-12 always for sm devices.
|
||
|
|
$BS_COL_CLASS = 'col-12 col-md-auto col-lg';
|
||
|
|
|
||
|
|
function get_pharmacies()
|
||
|
|
{
|
||
|
|
return sqlStatement("SELECT d.id, d.name, a.line1, a.city, " .
|
||
|
|
"p.area_code, p.prefix, p.number FROM pharmacies AS d " .
|
||
|
|
"LEFT OUTER JOIN addresses AS a ON a.foreign_id = d.id " .
|
||
|
|
"LEFT OUTER JOIN phone_numbers AS p ON p.foreign_id = d.id " .
|
||
|
|
"AND p.type = 2 " .
|
||
|
|
"ORDER BY a.state, a.city, d.name, p.area_code, p.prefix, p.number");
|
||
|
|
}
|
||
|
|
|
||
|
|
function optionalAge($frow, $date, &$asof, $description = '')
|
||
|
|
{
|
||
|
|
$asof = '';
|
||
|
|
if (empty($date)) {
|
||
|
|
return '';
|
||
|
|
}
|
||
|
|
|
||
|
|
$edit_options = $frow['edit_options'] ?? null;
|
||
|
|
|
||
|
|
$date = substr($date, 0, 10);
|
||
|
|
if (isOption($edit_options, 'A') !== false) {
|
||
|
|
$format = 0;
|
||
|
|
} elseif (isOption($edit_options, 'B') !== false) {
|
||
|
|
$format = 3;
|
||
|
|
} else {
|
||
|
|
return '';
|
||
|
|
}
|
||
|
|
|
||
|
|
if (isOption($frow['form_id'], 'LBF') === false) {
|
||
|
|
$tmp = sqlQuery(
|
||
|
|
"SELECT date FROM form_encounter WHERE " .
|
||
|
|
"pid = ? AND encounter = ? ORDER BY id DESC LIMIT 1",
|
||
|
|
array($GLOBALS['pid'], $GLOBALS['encounter'])
|
||
|
|
);
|
||
|
|
if (!empty($tmp['date'])) {
|
||
|
|
$asof = substr($tmp['date'], 0, 10);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($description === '') {
|
||
|
|
$prefix = ($format ? xl('Gest age') : xl('Age')) . ' ';
|
||
|
|
} else {
|
||
|
|
$prefix = $description . ' ';
|
||
|
|
}
|
||
|
|
return $prefix . oeFormatAge($date, $asof, $format);
|
||
|
|
}
|
||
|
|
|
||
|
|
// Function to generate a drop-list.
|
||
|
|
//
|
||
|
|
function generate_select_list(
|
||
|
|
$tag_name,
|
||
|
|
$list_id,
|
||
|
|
$currvalue,
|
||
|
|
$title,
|
||
|
|
$empty_name = ' ',
|
||
|
|
$class = '',
|
||
|
|
$onchange = '',
|
||
|
|
$tag_id = '',
|
||
|
|
$custom_attributes = null,
|
||
|
|
$multiple = false, // new #10
|
||
|
|
$backup_list = '', // new #11
|
||
|
|
$ignore_default = false,
|
||
|
|
$include_inactive = false,
|
||
|
|
$tabIndex = false
|
||
|
|
) {
|
||
|
|
$s = '';
|
||
|
|
|
||
|
|
$tag_name_esc = attr($tag_name);
|
||
|
|
|
||
|
|
if ($multiple) {
|
||
|
|
$tag_name_esc = $tag_name_esc . "[]";
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= "<select name='$tag_name_esc'";
|
||
|
|
|
||
|
|
if ($tabIndex !== false) {
|
||
|
|
$s .= " tabindex='" . attr($tabIndex) . "' '";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($multiple) {
|
||
|
|
$s .= " multiple='multiple'";
|
||
|
|
}
|
||
|
|
|
||
|
|
$tag_id_esc = attr($tag_name);
|
||
|
|
|
||
|
|
if ($tag_id != '') {
|
||
|
|
$tag_id_esc = attr($tag_id);
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= " id='$tag_id_esc'";
|
||
|
|
|
||
|
|
if (!empty($class)) {
|
||
|
|
$class_esc = attr($class);
|
||
|
|
$s .= " class='form-control $class_esc'";
|
||
|
|
} else {
|
||
|
|
$s .= " class='form-control'";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($onchange) {
|
||
|
|
$s .= " onchange='$onchange'";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($custom_attributes != null && is_array($custom_attributes)) {
|
||
|
|
foreach ($custom_attributes as $attr => $val) {
|
||
|
|
if (isset($custom_attributes [$attr])) {
|
||
|
|
$s .= " " . attr($attr) . "='" . attr($val) . "'";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$selectTitle = attr($title);
|
||
|
|
$s .= " title='$selectTitle'>";
|
||
|
|
$selectEmptyName = xlt($empty_name);
|
||
|
|
if ($empty_name) {
|
||
|
|
$s .= "<option value=''>" . $selectEmptyName . "</option>";
|
||
|
|
}
|
||
|
|
|
||
|
|
$got_selected = false;
|
||
|
|
|
||
|
|
for ($active = 1; $active == 1 || ($active == 0 && $include_inactive); --$active) {
|
||
|
|
if ($include_inactive) {
|
||
|
|
$s .= "<optgroup label='" . ($active ? xla('Active') : xla('Inactive')) . "'>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
// List order depends on language translation options.
|
||
|
|
// (Note we do not need to worry about the list order in the algorithm
|
||
|
|
// after the below code block since that is where searches for exceptions
|
||
|
|
// are done which include inactive items or items from a backup
|
||
|
|
// list; note these will always be shown at the bottom of the list no matter the
|
||
|
|
// chosen order.)
|
||
|
|
$lang_id = empty($_SESSION['language_choice']) ? '1' : $_SESSION['language_choice'];
|
||
|
|
// sort by title
|
||
|
|
if (!$GLOBALS['translate_lists']) {
|
||
|
|
// do not translate
|
||
|
|
if ($GLOBALS['gb_how_sort_list'] == '0') {
|
||
|
|
// order by seq
|
||
|
|
$order_by_sql = "seq, title";
|
||
|
|
} else { //$GLOBALS['gb_how_sort_list'] == '1'
|
||
|
|
// order by title
|
||
|
|
$order_by_sql = "title, seq";
|
||
|
|
}
|
||
|
|
$lres = sqlStatement(
|
||
|
|
"SELECT * FROM list_options WHERE list_id = ? AND activity = ? ORDER BY "
|
||
|
|
. $order_by_sql,
|
||
|
|
array($list_id, $active)
|
||
|
|
);
|
||
|
|
} else {
|
||
|
|
// do translate
|
||
|
|
if ($GLOBALS['gb_how_sort_list'] == '0') {
|
||
|
|
// order by seq
|
||
|
|
$order_by_sql = "lo.seq, title";
|
||
|
|
} else { //$GLOBALS['gb_how_sort_list'] == '1'
|
||
|
|
// order by title
|
||
|
|
$order_by_sql = "title, lo.seq";
|
||
|
|
}
|
||
|
|
$lres = sqlStatement(
|
||
|
|
"SELECT lo.option_id, lo.is_default, " .
|
||
|
|
"COALESCE((SELECT ld.definition FROM lang_constants AS lc, lang_definitions AS ld " .
|
||
|
|
"WHERE lc.constant_name = lo.title AND ld.cons_id = lc.cons_id AND ld.lang_id = ? " .
|
||
|
|
"AND ld.definition IS NOT NULL AND ld.definition != '' " .
|
||
|
|
"LIMIT 1), lo.title) AS title " .
|
||
|
|
"FROM list_options AS lo " .
|
||
|
|
"WHERE lo.list_id = ? AND lo.activity = ? " .
|
||
|
|
"ORDER BY " . $order_by_sql,
|
||
|
|
array($lang_id, $list_id, $active)
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
$selectedValues = explode("|", $currvalue ?? '');
|
||
|
|
|
||
|
|
$optionValue = attr($lrow ['option_id']);
|
||
|
|
$s .= "<option value='$optionValue'";
|
||
|
|
|
||
|
|
if (
|
||
|
|
(strlen($currvalue ?? '') == 0 && $lrow ['is_default'] && !$ignore_default) ||
|
||
|
|
(strlen($currvalue ?? '') > 0 && in_array($lrow ['option_id'], $selectedValues))
|
||
|
|
) {
|
||
|
|
$s .= " selected";
|
||
|
|
$got_selected = true;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Already has been translated above (if applicable), so do not need to use
|
||
|
|
// the xl_list_label() function here
|
||
|
|
$optionLabel = text($lrow ['title']);
|
||
|
|
$s .= ">$optionLabel</option>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($include_inactive) {
|
||
|
|
$s .= "</optgroup>\n";
|
||
|
|
}
|
||
|
|
} // end $active loop
|
||
|
|
|
||
|
|
/*
|
||
|
|
To show the inactive item in the list if the value is saved to database
|
||
|
|
*/
|
||
|
|
if (!$got_selected && strlen($currvalue ?? '') > 0) {
|
||
|
|
$lres_inactive = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 0 AND option_id = ? ORDER BY seq, title", array($list_id, $currvalue));
|
||
|
|
$lrow_inactive = sqlFetchArray($lres_inactive);
|
||
|
|
if (!empty($lrow_inactive['option_id'])) {
|
||
|
|
$optionValue = htmlspecialchars($lrow_inactive['option_id'], ENT_QUOTES);
|
||
|
|
$s .= "<option value='$optionValue' selected>" . htmlspecialchars(xl_list_label($lrow_inactive['title']), ENT_NOQUOTES) . "</option>\n";
|
||
|
|
$got_selected = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$got_selected && strlen($currvalue ?? '') > 0 && !$multiple) {
|
||
|
|
$list_id = $backup_list;
|
||
|
|
$lrow = sqlQuery("SELECT title FROM list_options WHERE list_id = ? AND option_id = ?", array($list_id,$currvalue));
|
||
|
|
|
||
|
|
if ($lrow > 0 && !empty($backup_list)) {
|
||
|
|
$selected = text(xl_list_label($lrow['title']));
|
||
|
|
$s .= "<option value='" . attr($currvalue) . "' selected> $selected </option>";
|
||
|
|
$s .= "</select>";
|
||
|
|
} else {
|
||
|
|
$s .= "<option value='" . attr($currvalue) . "' selected>* " . text($currvalue) . " *</option>";
|
||
|
|
$s .= "</select>";
|
||
|
|
$fontTitle = xlt('Please choose a valid selection from the list.');
|
||
|
|
$fontText = xlt('Fix this');
|
||
|
|
$s .= " <span class='text-danger' title='$fontTitle'>$fontText!</span>";
|
||
|
|
}
|
||
|
|
} elseif (!$got_selected && strlen($currvalue ?? '') > 0 && $multiple) {
|
||
|
|
//if not found in main list, display all selected values that exist in backup list
|
||
|
|
$list_id = $backup_list;
|
||
|
|
|
||
|
|
$got_selected_backup = false;
|
||
|
|
if (!empty($backup_list)) {
|
||
|
|
$lres_backup = sqlStatement("SELECT * FROM list_options WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
while ($lrow_backup = sqlFetchArray($lres_backup)) {
|
||
|
|
$selectedValues = explode("|", $currvalue);
|
||
|
|
|
||
|
|
$optionValue = attr($lrow_backup['option_id']);
|
||
|
|
|
||
|
|
if (in_array($lrow_backup ['option_id'], $selectedValues)) {
|
||
|
|
$s .= "<option value='$optionValue'";
|
||
|
|
$s .= " selected";
|
||
|
|
$optionLabel = text(xl_list_label($lrow_backup ['title']));
|
||
|
|
$s .= ">$optionLabel</option>\n";
|
||
|
|
$got_selected_backup = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$got_selected_backup) {
|
||
|
|
$selectedValues = explode("|", $currvalue);
|
||
|
|
foreach ($selectedValues as $selectedValue) {
|
||
|
|
$s .= "<option value='" . attr($selectedValue) . "'";
|
||
|
|
$s .= " selected";
|
||
|
|
$s .= ">* " . text($selectedValue) . " *</option>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= "</select>";
|
||
|
|
$fontTitle = xlt('Please choose a valid selection from the list.');
|
||
|
|
$fontText = xlt('Fix this');
|
||
|
|
$s .= " <span class='text-danger' title='$fontTitle'>$fontText!</span>";
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$s .= "</select>";
|
||
|
|
}
|
||
|
|
|
||
|
|
return $s;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Parsing for data type 31, static text.
|
||
|
|
function parse_static_text($frow, $value_allowed = true)
|
||
|
|
{
|
||
|
|
$tmp = str_replace("\r\n", "\n", $frow['description']);
|
||
|
|
// Translate if it does not look like HTML.
|
||
|
|
if (substr($tmp, 0, 1) != '<') {
|
||
|
|
$tmp2 = $frow['description'];
|
||
|
|
$tmp3 = xl_layout_label($tmp);
|
||
|
|
if ($tmp3 == $tmp && $tmp2 != $tmp) {
|
||
|
|
// No translation, try again without the CRLF substitution.
|
||
|
|
$tmp3 = xl_layout_label($tmp2);
|
||
|
|
}
|
||
|
|
$tmp = nl2br($tmp3);
|
||
|
|
}
|
||
|
|
$s = '';
|
||
|
|
if ($frow['source'] == 'D' || $frow['source'] == 'H') {
|
||
|
|
// Source is demographics or history. This case supports value substitution.
|
||
|
|
while (preg_match('/^(.*?)\{(\w+)\}(.*)$/', $tmp, $matches)) {
|
||
|
|
$s .= $matches[1];
|
||
|
|
if ($value_allowed) {
|
||
|
|
$tmprow = $frow;
|
||
|
|
$tmprow['field_id'] = $matches[2];
|
||
|
|
$s .= lbf_current_value($tmprow, 0, 0);
|
||
|
|
}
|
||
|
|
$tmp = $matches[3];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$s .= $tmp;
|
||
|
|
return $s;
|
||
|
|
}
|
||
|
|
|
||
|
|
function genLabResultsTextItem($name, $value, $outtype, $size, $maxlength, $disabled = '')
|
||
|
|
{
|
||
|
|
$string_maxlength = $maxlength ? ("maxlength='" . attr($maxlength) . "'") : '';
|
||
|
|
$s = "<td align='center'>";
|
||
|
|
if ($outtype == 2) {
|
||
|
|
$s .= text($value);
|
||
|
|
} else {
|
||
|
|
$s .= "<input type='text'";
|
||
|
|
if ($outtype == 0) {
|
||
|
|
$s .= " name='" . attr($name) . "' id='" . attr($name) . "'";
|
||
|
|
}
|
||
|
|
$s .= " size='" . attr($size) . "' $string_maxlength" .
|
||
|
|
" value='" . attr($value) . "'" .
|
||
|
|
" $under $disabled />";
|
||
|
|
}
|
||
|
|
$s .= " </td>";
|
||
|
|
return $s;
|
||
|
|
}
|
||
|
|
|
||
|
|
// $outtype = 0 for form, 1 for print, 2 for display, 3 for plain text.
|
||
|
|
function genLabResults($frow, $currvalue, $outtype = 0, $disabled = '')
|
||
|
|
{
|
||
|
|
$field_id = $frow['field_id'];
|
||
|
|
$list_id = $frow['list_id'];
|
||
|
|
$field_id_esc = text($field_id);
|
||
|
|
$under = $outtype == 1 ? "class='under'" : "";
|
||
|
|
$s = '';
|
||
|
|
|
||
|
|
$avalue = json_decode($currvalue, true);
|
||
|
|
if (empty($avalue)) {
|
||
|
|
$avalue = array();
|
||
|
|
}
|
||
|
|
// $avalue[$option_id][0] : gestation
|
||
|
|
// $avalue[$option_id][1] : radio button value
|
||
|
|
// $avalue[$option_id][2] : test value
|
||
|
|
// $avalue[$option_id][3] : notes
|
||
|
|
|
||
|
|
$maxlength = $frow['max_length'];
|
||
|
|
$fldlength = empty($frow['fld_length']) ? 20 : $frow['fld_length'];
|
||
|
|
|
||
|
|
$under = $outtype == 1 ? "class='under'" : "";
|
||
|
|
|
||
|
|
$s .= "<table cellpadding='0' cellspacing='0'>";
|
||
|
|
if ($outtype < 2) {
|
||
|
|
$s .= "<tr>" .
|
||
|
|
"<td class='bold' align='center'>" . xlt('Test/Screening') . " </td>" .
|
||
|
|
"<td class='bold' align='center'>" . xlt('Gest wks') . " </td>" .
|
||
|
|
"<td class='bold' align='center'> " . xlt('N/A') . " </td>" .
|
||
|
|
"<td class='bold' align='center'>" . xlt('Neg/Nrml') . "</td>" .
|
||
|
|
"<td class='bold' align='center'> " . xlt('Pos/Abn') . " </td>" .
|
||
|
|
"<td class='bold' align='center'>" . xlt('Test Value') . " </td>" .
|
||
|
|
"<td class='bold' align='center'>" . xlt('Date/Notes') . " </td>" .
|
||
|
|
"</tr>";
|
||
|
|
}
|
||
|
|
|
||
|
|
$lres = sqlStatement(
|
||
|
|
"SELECT * FROM list_options WHERE " .
|
||
|
|
"list_id = ? AND activity = 1 ORDER BY seq, title",
|
||
|
|
array($list_id)
|
||
|
|
);
|
||
|
|
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
$option_id_esc = text($option_id);
|
||
|
|
|
||
|
|
if ($outtype >= 2 && empty($avalue[$option_id][1])) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($outtype == 3) {
|
||
|
|
if (isset($avalue[$option_id][1]) && $avalue[$option_id][1] == '2') {
|
||
|
|
if ($s !== '') {
|
||
|
|
$s .= '; ';
|
||
|
|
}
|
||
|
|
$s .= text(xl_list_label($lrow['title']));
|
||
|
|
$s .= ':' . text($avalue[$option_id][0]);
|
||
|
|
$s .= ':' . text($avalue[$option_id][2]);
|
||
|
|
$s .= ':' . text($avalue[$option_id][3]);
|
||
|
|
}
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= "<tr>";
|
||
|
|
$s .= $outtype == 2 ? "<td class='bold'>" : "<td>";
|
||
|
|
$s .= text(xl_list_label($lrow['title'])) . " </td>";
|
||
|
|
|
||
|
|
$s .= genLabResultsTextItem(
|
||
|
|
"form_{$field_id_esc}[$option_id_esc][0]",
|
||
|
|
(isset($avalue[$option_id][0]) ? $avalue[$option_id][0] : ''),
|
||
|
|
$outtype,
|
||
|
|
3,
|
||
|
|
2,
|
||
|
|
$disabled,
|
||
|
|
$under
|
||
|
|
);
|
||
|
|
|
||
|
|
if ($outtype == 2) {
|
||
|
|
$tmp = isset($avalue[$option_id][1]) ? $avalue[$option_id][1] : '0';
|
||
|
|
$restype = ($tmp == '1') ? xl('Normal') : (($tmp == '2') ? xl('Abnormal') : xl('N/A'));
|
||
|
|
$s .= "<td>" . text($restype) . " </td>";
|
||
|
|
} else {
|
||
|
|
for ($i = 0; $i < 3; ++$i) {
|
||
|
|
$s .= "<td align='center'>";
|
||
|
|
$s .= "<input type='radio'";
|
||
|
|
if ($outtype == 0) {
|
||
|
|
$s .= " name='radio_{$field_id_esc}[$option_id_esc]'" .
|
||
|
|
" id='radio_{$field_id_esc}[$option_id_esc]'";
|
||
|
|
}
|
||
|
|
$s .= " value='$i' $lbfonchange";
|
||
|
|
if (isset($avalue[$option_id][1]) && $avalue[$option_id][1] == "$i") {
|
||
|
|
$s .= " checked";
|
||
|
|
}
|
||
|
|
$s .= " $disabled />";
|
||
|
|
$s .= "</td>";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$s .= genLabResultsTextItem(
|
||
|
|
"form_{$field_id_esc}[$option_id_esc][2]",
|
||
|
|
(isset($avalue[$option_id][2]) ? $avalue[$option_id][2] : ''),
|
||
|
|
$outtype,
|
||
|
|
10,
|
||
|
|
30,
|
||
|
|
$disabled,
|
||
|
|
$under
|
||
|
|
);
|
||
|
|
$s .= genLabResultsTextItem(
|
||
|
|
"form_{$field_id_esc}[$option_id_esc][3]",
|
||
|
|
(isset($avalue[$option_id][3]) ? $avalue[$option_id][3] : ''),
|
||
|
|
$outtype,
|
||
|
|
$fldlength,
|
||
|
|
$maxlength,
|
||
|
|
$disabled,
|
||
|
|
$under
|
||
|
|
);
|
||
|
|
$s .= "</tr>";
|
||
|
|
}
|
||
|
|
if ($outtype != 3) {
|
||
|
|
$s .= "</table>";
|
||
|
|
}
|
||
|
|
|
||
|
|
return $s;
|
||
|
|
}
|
||
|
|
|
||
|
|
// $frow is a row from the layout_options table.
|
||
|
|
// $currvalue is the current value, if any, of the associated item.
|
||
|
|
//
|
||
|
|
function generate_form_field($frow, $currvalue)
|
||
|
|
{
|
||
|
|
global $rootdir, $date_init, $ISSUE_TYPES, $code_types, $membership_group_number;
|
||
|
|
|
||
|
|
$currescaped = htmlspecialchars($currvalue ?? '', ENT_QUOTES);
|
||
|
|
|
||
|
|
$data_type = $frow['data_type'];
|
||
|
|
$field_id = $frow['field_id'];
|
||
|
|
$list_id = $frow['list_id'] ?? null;
|
||
|
|
$backup_list = $frow['list_backup_id'] ?? null;
|
||
|
|
$edit_options = $frow['edit_options'] ?? null;
|
||
|
|
$form_id = $frow['form_id'] ?? null;
|
||
|
|
|
||
|
|
// 'smallform' can be 'true' if we want a smaller form field, otherwise
|
||
|
|
// can be used to assign arbitrary CSS classes to data entry fields.
|
||
|
|
$smallform = $frow['smallform'] ?? null;
|
||
|
|
if ($smallform === 'true') {
|
||
|
|
$smallform = ' form-control-sm';
|
||
|
|
}
|
||
|
|
|
||
|
|
// escaped variables to use in html
|
||
|
|
$field_id_esc = htmlspecialchars($field_id, ENT_QUOTES);
|
||
|
|
$list_id_esc = htmlspecialchars(($list_id ?? ''), ENT_QUOTES);
|
||
|
|
|
||
|
|
// Added 5-09 by BM - Translate description if applicable
|
||
|
|
$description = (isset($frow['description']) ? htmlspecialchars(xl_layout_label($frow['description']), ENT_QUOTES) : '');
|
||
|
|
|
||
|
|
// Support edit option T which assigns the (possibly very long) description as
|
||
|
|
// the default value.
|
||
|
|
if (isOption($edit_options, 'T') !== false) {
|
||
|
|
if (strlen($currescaped) == 0) {
|
||
|
|
$currescaped = $description;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Description used in this way is not suitable as a title.
|
||
|
|
$description = '';
|
||
|
|
}
|
||
|
|
|
||
|
|
// Support using the description as a placeholder
|
||
|
|
$placeholder = (isOption($edit_options, 'DAP') === true) ? " placeholder='{$description}' " : '';
|
||
|
|
|
||
|
|
// added 5-2009 by BM to allow modification of the 'empty' text title field.
|
||
|
|
// Can pass $frow['empty_title'] with this variable, otherwise
|
||
|
|
// will default to 'Unassigned'.
|
||
|
|
// modified 6-2009 by BM to allow complete skipping of the 'empty' text title
|
||
|
|
// if make $frow['empty_title'] equal to 'SKIP'
|
||
|
|
$showEmpty = true;
|
||
|
|
if (isset($frow['empty_title'])) {
|
||
|
|
if ($frow['empty_title'] == "SKIP") {
|
||
|
|
//do not display an 'empty' choice
|
||
|
|
$showEmpty = false;
|
||
|
|
$empty_title = "Unassigned";
|
||
|
|
} else {
|
||
|
|
$empty_title = $frow['empty_title'];
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$empty_title = "Unassigned";
|
||
|
|
}
|
||
|
|
|
||
|
|
$disabled = isOption($edit_options, '0') === false ? '' : 'disabled';
|
||
|
|
|
||
|
|
$lbfchange = (
|
||
|
|
!empty($form_id) &&
|
||
|
|
(
|
||
|
|
strpos($form_id, 'LBF') === 0 ||
|
||
|
|
strpos($form_id, 'LBT') === 0 ||
|
||
|
|
strpos($form_id, 'DEM') === 0 ||
|
||
|
|
strpos($form_id, 'HIS') === 0
|
||
|
|
)
|
||
|
|
) ? "checkSkipConditions();" : "";
|
||
|
|
$lbfonchange = $lbfchange ? "onchange='$lbfchange'" : "";
|
||
|
|
|
||
|
|
// generic single-selection list or single-selection list with search or single-selection list with comment support.
|
||
|
|
// These data types support backup lists.
|
||
|
|
if ($data_type == 1 || $data_type == 43 || $data_type == 46) {
|
||
|
|
if ($data_type == 46) {
|
||
|
|
// support for single-selection list with comment support
|
||
|
|
$lbfchange = "processCommentField(" . attr_js($field_id) . ");" . $lbfchange;
|
||
|
|
}
|
||
|
|
|
||
|
|
echo generate_select_list(
|
||
|
|
"form_$field_id",
|
||
|
|
$list_id,
|
||
|
|
$currvalue,
|
||
|
|
$description,
|
||
|
|
($showEmpty ? $empty_title : ''),
|
||
|
|
(($data_type == 43) ? "select-dropdown" : $smallform),
|
||
|
|
$lbfchange,
|
||
|
|
'',
|
||
|
|
($disabled ? array('disabled' => 'disabled') : null),
|
||
|
|
false,
|
||
|
|
$backup_list
|
||
|
|
);
|
||
|
|
|
||
|
|
if ($data_type == 46) {
|
||
|
|
// support for single-selection list with comment support
|
||
|
|
$selectedValues = explode("|", $currvalue);
|
||
|
|
if (!preg_match('/^comment_/', $currvalue) || (count($selectedValues) == 1)) {
|
||
|
|
$display = "display:none";
|
||
|
|
$comment = "";
|
||
|
|
} else {
|
||
|
|
$display = "display:inline-block";
|
||
|
|
$comment = $selectedValues[count($selectedValues) - 1];
|
||
|
|
}
|
||
|
|
echo "<input type='text'" .
|
||
|
|
" name='form_text_" . attr($field_id) . "'" .
|
||
|
|
" id='form_text_" . attr($field_id) . "'" .
|
||
|
|
" size='" . attr($frow['fld_length']) . "'" .
|
||
|
|
" class='form-control'" .
|
||
|
|
$placeholder .
|
||
|
|
" " . ((!empty($frow['max_length'])) ? "maxlength='" . attr($frow['max_length']) . "'" : "") . " " .
|
||
|
|
" style='" . $display . "'" .
|
||
|
|
" value='" . attr($comment) . "'/>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 2) { // simple text field
|
||
|
|
$fldlength = htmlspecialchars($frow['fld_length'] ?? '', ENT_QUOTES);
|
||
|
|
$maxlength = $frow['max_length'] ?? '';
|
||
|
|
$string_maxlength = "";
|
||
|
|
// if max_length is set to zero, then do not set a maxlength
|
||
|
|
if ($maxlength) {
|
||
|
|
$string_maxlength = "maxlength='" . attr($maxlength) . "'";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "<input type='text'
|
||
|
|
class='form-control{$smallform}'
|
||
|
|
name='form_{$field_id_esc}'
|
||
|
|
id='form_{$field_id_esc}'
|
||
|
|
size='{$fldlength}'
|
||
|
|
{$string_maxlength}
|
||
|
|
{$placeholder}
|
||
|
|
title='{$description}'
|
||
|
|
value='{$currescaped}'";
|
||
|
|
$tmp = $lbfchange;
|
||
|
|
if (isOption($edit_options, 'C') !== false) {
|
||
|
|
$tmp .= "capitalizeMe(this);";
|
||
|
|
} elseif (isOption($edit_options, 'U') !== false) {
|
||
|
|
$tmp .= "this.value = this.value.toUpperCase();";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($tmp) {
|
||
|
|
echo " onchange='$tmp'";
|
||
|
|
}
|
||
|
|
|
||
|
|
$tmp = htmlspecialchars($GLOBALS['gbl_mask_patient_id'], ENT_QUOTES);
|
||
|
|
// If mask is for use at save time, treat as no mask.
|
||
|
|
if (strpos($tmp, '^') !== false) {
|
||
|
|
$tmp = '';
|
||
|
|
}
|
||
|
|
if ($field_id == 'pubpid' && strlen($tmp) > 0) {
|
||
|
|
echo " onkeyup='maskkeyup(this,\"$tmp\")'";
|
||
|
|
echo " onblur='maskblur(this,\"$tmp\")'";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (isOption($edit_options, '1') !== false && strlen($currescaped) > 0) {
|
||
|
|
echo " readonly";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($disabled) {
|
||
|
|
echo ' disabled';
|
||
|
|
}
|
||
|
|
|
||
|
|
echo " />";
|
||
|
|
} elseif ($data_type == 3) { // long or multi-line text field
|
||
|
|
$textCols = htmlspecialchars($frow['fld_length'], ENT_QUOTES);
|
||
|
|
$textRows = htmlspecialchars($frow['fld_rows'], ENT_QUOTES);
|
||
|
|
echo "<textarea" .
|
||
|
|
" name='form_$field_id_esc'" .
|
||
|
|
" class='form-control$smallform'" .
|
||
|
|
" id='form_$field_id_esc'" .
|
||
|
|
" title='$description'" .
|
||
|
|
$placeholder .
|
||
|
|
" cols='$textCols'" .
|
||
|
|
" rows='$textRows' $lbfonchange $disabled" .
|
||
|
|
">" . $currescaped . "</textarea>";
|
||
|
|
} elseif ($data_type == 4) { // date
|
||
|
|
$age_asof_date = ''; // optionalAge() sets this
|
||
|
|
$age_format = isOption($edit_options, 'A') === false ? 3 : 0;
|
||
|
|
$agestr = optionalAge($frow, $currvalue, $age_asof_date, $description);
|
||
|
|
if ($agestr) {
|
||
|
|
echo "<table class='table'><tr><td class='text'>";
|
||
|
|
}
|
||
|
|
|
||
|
|
$onchange_string = '';
|
||
|
|
if (!$disabled && $agestr) {
|
||
|
|
$onchange_string = "onchange=\"if (typeof(updateAgeString) == 'function') " .
|
||
|
|
"updateAgeString('$field_id','$age_asof_date', $age_format, '$description')\"";
|
||
|
|
}
|
||
|
|
if ($data_type == 4) {
|
||
|
|
$modtmp = isOption($edit_options, 'F') === false ? 0 : 1;
|
||
|
|
$datetimepickerclass = ($frow['validation'] ?? null) === 'past_date' ? '-past' : ( ($frow['validation'] ?? null) === 'future_date' ? '-future' : '' );
|
||
|
|
if (!$modtmp) {
|
||
|
|
$dateValue = oeFormatShortDate(substr($currescaped, 0, 10));
|
||
|
|
echo "<input type='text' size='10' class='datepicker$datetimepickerclass form-control$smallform' name='form_$field_id_esc' id='form_$field_id_esc'" . " value='" . attr($dateValue) . "'";
|
||
|
|
} else {
|
||
|
|
$dateValue = oeFormatDateTime(substr($currescaped, 0, 20), 0);
|
||
|
|
echo "<input type='text' size='20' class='datetimepicker$datetimepickerclass form-control$smallform' name='form_$field_id_esc' id='form_$field_id_esc'" . " value='" . attr($dateValue) . "'";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (!$agestr) {
|
||
|
|
echo " title='$description'";
|
||
|
|
}
|
||
|
|
|
||
|
|
// help chrome users avoid autocomplete interfere with datepicker widget display
|
||
|
|
if ($frow['field_id'] == 'DOB') {
|
||
|
|
echo " autocomplete='off' $onchange_string $lbfonchange $disabled />";
|
||
|
|
} else {
|
||
|
|
echo " $onchange_string $lbfonchange $disabled />";
|
||
|
|
}
|
||
|
|
|
||
|
|
// Optional display of age or gestational age.
|
||
|
|
if ($agestr) {
|
||
|
|
echo "</td></tr><tr><td id='span_$field_id' class='text'>" . text($agestr) . "</td></tr></table>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 10) { // provider list, local providers only
|
||
|
|
$ures = sqlStatement("SELECT id, fname, lname, specialty FROM users " .
|
||
|
|
"WHERE active = 1 AND ( info IS NULL OR info NOT LIKE '%Inactive%' ) " .
|
||
|
|
"AND authorized = 1 " .
|
||
|
|
"ORDER BY lname, fname");
|
||
|
|
echo "<select name='form_$field_id_esc' id='form_$field_id_esc' title='$description' $lbfonchange $disabled class='form-control$smallform'>";
|
||
|
|
echo "<option value=''>" . xlt($empty_title) . "</option>";
|
||
|
|
$got_selected = false;
|
||
|
|
while ($urow = sqlFetchArray($ures)) {
|
||
|
|
$uname = text($urow['fname'] . ' ' . $urow['lname']);
|
||
|
|
$optionId = attr($urow['id']);
|
||
|
|
echo "<option value='$optionId'";
|
||
|
|
if ($urow['id'] == $currvalue) {
|
||
|
|
echo " selected";
|
||
|
|
$got_selected = true;
|
||
|
|
}
|
||
|
|
|
||
|
|
echo ">$uname</option>";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$got_selected && $currvalue) {
|
||
|
|
echo "<option value='" . attr($currvalue) . "' selected>* " . text($currvalue) . " *</option>";
|
||
|
|
echo "</select>";
|
||
|
|
echo " <span class='text-danger' title='" . xla('Please choose a valid selection from the list.') . "'>" . xlt('Fix this') . "!</span>";
|
||
|
|
} else {
|
||
|
|
echo "</select>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 11) { // provider list, including address book entries with an NPI number
|
||
|
|
$ures = sqlStatement("SELECT id, fname, lname, specialty FROM users " .
|
||
|
|
"WHERE active = 1 AND ( info IS NULL OR info NOT LIKE '%Inactive%' ) " .
|
||
|
|
"AND ( authorized = 1 OR ( username = '' AND npi != '' ) ) " .
|
||
|
|
"ORDER BY lname, fname");
|
||
|
|
echo "<select name='form_$field_id_esc' id='form_$field_id_esc' title='$description' class='form-control$smallform'";
|
||
|
|
echo " $lbfonchange $disabled>";
|
||
|
|
echo "<option value=''>" . xlt('Unassigned') . "</option>";
|
||
|
|
$got_selected = false;
|
||
|
|
while ($urow = sqlFetchArray($ures)) {
|
||
|
|
$uname = text($urow['fname'] . ' ' . $urow['lname']);
|
||
|
|
$optionId = attr($urow['id']);
|
||
|
|
echo "<option value='$optionId'";
|
||
|
|
if ($urow['id'] == $currvalue) {
|
||
|
|
echo " selected";
|
||
|
|
$got_selected = true;
|
||
|
|
}
|
||
|
|
|
||
|
|
echo ">$uname</option>";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$got_selected && $currvalue) {
|
||
|
|
echo "<option value='" . attr($currvalue) . "' selected>* " . text($currvalue) . " *</option>";
|
||
|
|
echo "</select>";
|
||
|
|
echo " <span class='text-danger' title='" . xla('Please choose a valid selection from the list.') . "'>" . xlt('Fix this') . "!</span>";
|
||
|
|
} else {
|
||
|
|
echo "</select>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 12) { // pharmacy list
|
||
|
|
echo "<select name='form_$field_id_esc' id='form_$field_id_esc' title='$description' class='form-control$smallform'";
|
||
|
|
echo " $lbfonchange $disabled>";
|
||
|
|
echo "<option value='0'></option>";
|
||
|
|
$pres = get_pharmacies();
|
||
|
|
$got_selected = false;
|
||
|
|
$zone = '';
|
||
|
|
while ($prow = sqlFetchArray($pres)) {
|
||
|
|
if ($zone != strtolower(trim($prow['city']))) {
|
||
|
|
if ($zone != '') {
|
||
|
|
echo "</optgroup>";
|
||
|
|
}
|
||
|
|
$zone = strtolower(trim($prow['city']));
|
||
|
|
echo "<optgroup label='" . attr($prow['city']) . "'>";
|
||
|
|
}
|
||
|
|
$key = $prow['id'];
|
||
|
|
$optionValue = htmlspecialchars($key, ENT_QUOTES);
|
||
|
|
$optionLabel = htmlspecialchars($prow['name'] . ' ' . $prow['area_code'] . '-' .
|
||
|
|
$prow['prefix'] . '-' . $prow['number'] . ' / ' .
|
||
|
|
$prow['line1'] . ' / ' . $prow['city'], ENT_NOQUOTES);
|
||
|
|
echo "<option value='$optionValue'";
|
||
|
|
if ($currvalue == $key) {
|
||
|
|
echo " selected";
|
||
|
|
$got_selected = true;
|
||
|
|
}
|
||
|
|
|
||
|
|
echo ">$optionLabel</option>";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$got_selected && $currvalue) {
|
||
|
|
echo "<option value='" . attr($currvalue) . "' selected>* " . text($currvalue) . " *</option>";
|
||
|
|
echo "</select>";
|
||
|
|
echo " <span class='text-danger' title='" . xla('Please choose a valid selection from the list.') . "'>" . xlt('Fix this') . "!</span>";
|
||
|
|
} else {
|
||
|
|
echo "</select>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 13) { // squads
|
||
|
|
echo "<select name='form_$field_id_esc' id='form_$field_id_esc' title='$description' class='form-control$smallform'";
|
||
|
|
echo " $lbfonchange $disabled>";
|
||
|
|
echo "<option value=''> </option>";
|
||
|
|
$squads = AclExtended::aclGetSquads();
|
||
|
|
if ($squads) {
|
||
|
|
foreach ($squads as $key => $value) {
|
||
|
|
$optionValue = htmlspecialchars($key, ENT_QUOTES);
|
||
|
|
$optionLabel = htmlspecialchars($value[3], ENT_NOQUOTES);
|
||
|
|
echo "<option value='$optionValue'";
|
||
|
|
if ($currvalue == $key) {
|
||
|
|
echo " selected";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo ">$optionLabel</option>\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "</select>";
|
||
|
|
} elseif ($data_type == 14) {
|
||
|
|
// Address book, preferring organization name if it exists and is not in
|
||
|
|
// parentheses, and excluding local users who are not providers.
|
||
|
|
// Supports "referred to" practitioners and facilities.
|
||
|
|
// Alternatively the letter L in edit_options means that abook_type
|
||
|
|
// must be "ord_lab", indicating types used with the procedure
|
||
|
|
// lab ordering system.
|
||
|
|
// Alternatively the letter O in edit_options means that abook_type
|
||
|
|
// must begin with "ord_", indicating types used with the procedure
|
||
|
|
// ordering system.
|
||
|
|
// Alternatively the letter V in edit_options means that abook_type
|
||
|
|
// must be "vendor", indicating the Vendor type.
|
||
|
|
// Alternatively the letter R in edit_options means that abook_type
|
||
|
|
// must be "dist", indicating the Distributor type.
|
||
|
|
|
||
|
|
if (isOption($edit_options, 'L') !== false) {
|
||
|
|
$tmp = "abook_type = 'ord_lab'";
|
||
|
|
} elseif (isOption($edit_options, 'O') !== false) {
|
||
|
|
$tmp = "abook_type LIKE 'ord\\_%'";
|
||
|
|
} elseif (isOption($edit_options, 'V') !== false) {
|
||
|
|
$tmp = "abook_type LIKE 'vendor%'";
|
||
|
|
} elseif (isOption($edit_options, 'R') !== false) {
|
||
|
|
$tmp = "abook_type LIKE 'dist'";
|
||
|
|
} else {
|
||
|
|
$tmp = "( username = '' OR authorized = 1 )";
|
||
|
|
}
|
||
|
|
|
||
|
|
$ures = sqlStatement("SELECT id, fname, lname, organization, username, npi FROM users " .
|
||
|
|
"WHERE active = 1 AND ( info IS NULL OR info NOT LIKE '%Inactive%' ) " .
|
||
|
|
"AND $tmp " .
|
||
|
|
"ORDER BY organization, lname, fname, npi");
|
||
|
|
echo "<select name='form_$field_id_esc' id='form_$field_id_esc' title='$description' class='form-control$smallform'";
|
||
|
|
echo " $lbfonchange $disabled>";
|
||
|
|
echo "<option value=''>" . htmlspecialchars(xl('Unassigned'), ENT_NOQUOTES) . "</option>";
|
||
|
|
while ($urow = sqlFetchArray($ures)) {
|
||
|
|
$uname = $urow['organization'];
|
||
|
|
if (empty($uname) || substr($uname, 0, 1) == '(') {
|
||
|
|
$uname = $urow['lname'];
|
||
|
|
if ($urow['fname']) {
|
||
|
|
$uname .= ", " . $urow['fname'];
|
||
|
|
}
|
||
|
|
if ($urow['npi']) {
|
||
|
|
$uname .= ": " . $urow['npi'];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$optionValue = htmlspecialchars($urow['id'], ENT_QUOTES);
|
||
|
|
$optionLabel = htmlspecialchars($uname, ENT_NOQUOTES);
|
||
|
|
echo "<option value='$optionValue'";
|
||
|
|
// Failure to translate Local and External is not an error here;
|
||
|
|
// they are only used as internal flags and must not be translated!
|
||
|
|
$title = $urow['username'] ? 'Local' : 'External';
|
||
|
|
$optionTitle = htmlspecialchars($title, ENT_QUOTES);
|
||
|
|
echo " title='$optionTitle'";
|
||
|
|
if ($urow['id'] == $currvalue) {
|
||
|
|
echo " selected";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo ">$optionLabel</option>";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "</select>";
|
||
|
|
} elseif ($data_type == 15) { // A billing code. If description matches an existing code type then that type is used.
|
||
|
|
$codetype = '';
|
||
|
|
if (!empty($frow['description']) && isset($code_types[$frow['description']])) {
|
||
|
|
$codetype = $frow['description'];
|
||
|
|
}
|
||
|
|
$fldlength = attr($frow['fld_length']);
|
||
|
|
$maxlength = $frow['max_length'];
|
||
|
|
$string_maxlength = "";
|
||
|
|
// if max_length is set to zero, then do not set a maxlength
|
||
|
|
if ($maxlength) {
|
||
|
|
$string_maxlength = "maxlength='" . attr($maxlength) . "'";
|
||
|
|
}
|
||
|
|
// Edit option E means allow multiple (Extra) billing codes in a field.
|
||
|
|
// We invent a class name for this because JavaScript needs to know.
|
||
|
|
$className = '';
|
||
|
|
if (strpos($frow['edit_options'], 'E') !== false) {
|
||
|
|
$className = 'EditOptionE';
|
||
|
|
}
|
||
|
|
//
|
||
|
|
if (isOption($edit_options, '2') !== false) {
|
||
|
|
// Option "2" generates a hidden input for the codes, and a matching visible field
|
||
|
|
// displaying their descriptions. First step is computing the description string.
|
||
|
|
$currdescstring = '';
|
||
|
|
if (!empty($currvalue)) {
|
||
|
|
$relcodes = explode(';', $currvalue);
|
||
|
|
foreach ($relcodes as $codestring) {
|
||
|
|
if ($codestring === '') {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
if ($currdescstring !== '') {
|
||
|
|
$currdescstring .= '; ';
|
||
|
|
}
|
||
|
|
$currdescstring .= getCodeDescription($codestring, $codetype);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$currdescstring = attr($currdescstring);
|
||
|
|
//
|
||
|
|
echo "<div>"; // wrapper for myHideOrShow()
|
||
|
|
echo "<input type='text'" .
|
||
|
|
" name='form_$field_id_esc'" .
|
||
|
|
" id='form_related_code'" .
|
||
|
|
" class='" . attr($className) . "'" .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
" value='$currescaped'" .
|
||
|
|
" style='display:none'" .
|
||
|
|
" $lbfonchange readonly $disabled />";
|
||
|
|
// Extra readonly input field for optional display of code description(s).
|
||
|
|
echo "<input type='text'" .
|
||
|
|
" name='form_$field_id_esc" . "__desc'" .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
" title='$description'" .
|
||
|
|
" value='$currdescstring'";
|
||
|
|
if (!$disabled) {
|
||
|
|
echo " onclick='sel_related(this," . attr_js($codetype) . ")'";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "class='form-control$smallform'";
|
||
|
|
echo " readonly $disabled />";
|
||
|
|
echo "</div>";
|
||
|
|
} else {
|
||
|
|
echo "<input type='text'" .
|
||
|
|
" name='form_$field_id_esc'" .
|
||
|
|
" id='form_related_code'" .
|
||
|
|
" class='" . attr($className) . "'" .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
" $string_maxlength" .
|
||
|
|
" title='$description'" .
|
||
|
|
" value='$currescaped'";
|
||
|
|
if (!$disabled) {
|
||
|
|
echo " onclick='sel_related(this," . attr_js($codetype) . ")'";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "class='form-control$smallform'";
|
||
|
|
echo " $lbfonchange readonly $disabled />";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 16) { // insurance company list
|
||
|
|
echo "<select name='form_$field_id_esc' id='form_$field_id_esc' class='form-control$smallform' title='$description'>";
|
||
|
|
echo "<option value='0'></option>";
|
||
|
|
$insprovs = getInsuranceProviders();
|
||
|
|
$got_selected = false;
|
||
|
|
foreach ($insprovs as $key => $ipname) {
|
||
|
|
$optionValue = htmlspecialchars($key, ENT_QUOTES);
|
||
|
|
$optionLabel = htmlspecialchars($ipname, ENT_NOQUOTES);
|
||
|
|
echo "<option value='$optionValue'";
|
||
|
|
if ($currvalue == $key) {
|
||
|
|
echo " selected";
|
||
|
|
$got_selected = true;
|
||
|
|
}
|
||
|
|
|
||
|
|
echo ">$optionLabel</option>";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$got_selected && $currvalue) {
|
||
|
|
echo "<option value='" . attr($currvalue) . "' selected>* " . text($currvalue) . " *</option>";
|
||
|
|
echo "</select>";
|
||
|
|
echo " <span class='text-danger' title='" . xla('Please choose a valid selection from the list.') . "'>" . xlt('Fix this') . "!</span>";
|
||
|
|
} else {
|
||
|
|
echo "</select>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 17) { // issue types
|
||
|
|
echo "<select name='form_$field_id_esc' id='form_$field_id_esc' class='form-control$smallform' title='$description'>";
|
||
|
|
echo "<option value='0'></option>";
|
||
|
|
$got_selected = false;
|
||
|
|
foreach ($ISSUE_TYPES as $key => $value) {
|
||
|
|
$optionValue = htmlspecialchars($key, ENT_QUOTES);
|
||
|
|
$optionLabel = htmlspecialchars($value[1], ENT_NOQUOTES);
|
||
|
|
echo "<option value='$optionValue'";
|
||
|
|
if ($currvalue == $key) {
|
||
|
|
echo " selected";
|
||
|
|
$got_selected = true;
|
||
|
|
}
|
||
|
|
|
||
|
|
echo ">$optionLabel</option>";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$got_selected && strlen($currvalue) > 0) {
|
||
|
|
echo "<option value='" . attr($currvalue) . "' selected>* " . text($currvalue) . " *</option>";
|
||
|
|
echo "</select>";
|
||
|
|
echo " <span class='text-danger' title='" . xla('Please choose a valid selection from the list.') . "'>" . xlt('Fix this') . "!</span>";
|
||
|
|
} else {
|
||
|
|
echo "</select>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 18) { // Visit categories.
|
||
|
|
$cres = sqlStatement("SELECT pc_catid, pc_catname " .
|
||
|
|
"FROM openemr_postcalendar_categories ORDER BY pc_catname");
|
||
|
|
echo "<select name='form_$field_id_esc' id='form_$field_id_esc' class='form-control$smallform' title='$description'" . " $lbfonchange $disabled>";
|
||
|
|
echo "<option value=''>" . xlt($empty_title) . "</option>";
|
||
|
|
$got_selected = false;
|
||
|
|
while ($crow = sqlFetchArray($cres)) {
|
||
|
|
$catid = $crow['pc_catid'];
|
||
|
|
if (($catid < 9 && $catid != 5) || $catid == 11) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "<option value='" . attr($catid) . "'";
|
||
|
|
if ($catid == $currvalue) {
|
||
|
|
echo " selected";
|
||
|
|
$got_selected = true;
|
||
|
|
}
|
||
|
|
|
||
|
|
echo ">" . text(xl_appt_category($crow['pc_catname'])) . "</option>";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$got_selected && $currvalue) {
|
||
|
|
echo "<option value='" . attr($currvalue) . "' selected>* " . text($currvalue) . " *</option>";
|
||
|
|
echo "</select>";
|
||
|
|
echo " <span class='text-danger' title='" . xla('Please choose a valid selection from the list.') . "'>" . xlt('Fix this') . "!</span>";
|
||
|
|
} else {
|
||
|
|
echo "</select>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 21) { // a set of labeled checkboxes
|
||
|
|
// If no list then it's a single checkbox and its value is "Yes" or empty.
|
||
|
|
if (!$list_id) {
|
||
|
|
echo "<input type='checkbox' name='form_{$field_id_esc}' " .
|
||
|
|
"id='form_{$field_id_esc}' value='Yes' $lbfonchange";
|
||
|
|
if ($currvalue) {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
echo " $disabled />";
|
||
|
|
} else {
|
||
|
|
// In this special case, fld_length is the number of columns generated.
|
||
|
|
$cols = max(1, $frow['fld_length']);
|
||
|
|
$avalue = explode('|', $currvalue);
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
echo "<table class='w-100' cellpadding='0' cellspacing='0' title='" . attr($description) . "'>";
|
||
|
|
$tdpct = (int) (100 / $cols);
|
||
|
|
for ($count = 0; $lrow = sqlFetchArray($lres); ++$count) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
$option_id_esc = htmlspecialchars($option_id, ENT_QUOTES);
|
||
|
|
// if ($count) echo "<br />";
|
||
|
|
if ($count % $cols == 0) {
|
||
|
|
if ($count) {
|
||
|
|
echo "</tr>";
|
||
|
|
}
|
||
|
|
echo "<tr>";
|
||
|
|
}
|
||
|
|
echo "<td width='" . attr($tdpct) . "%' nowrap>";
|
||
|
|
echo "<input type='checkbox' name='form_{$field_id_esc}[$option_id_esc]'" .
|
||
|
|
"id='form_{$field_id_esc}[$option_id_esc]' class='form-check-inline' value='1' $lbfonchange";
|
||
|
|
if (in_array($option_id, $avalue)) {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
// Added 5-09 by BM - Translate label if applicable
|
||
|
|
echo " $disabled />" . htmlspecialchars(xl_list_label($lrow['title']), ENT_NOQUOTES);
|
||
|
|
echo "</td>";
|
||
|
|
}
|
||
|
|
if ($count) {
|
||
|
|
echo "</tr>";
|
||
|
|
if ($count > $cols) {
|
||
|
|
// Add some space after multiple rows of checkboxes.
|
||
|
|
$cols = htmlspecialchars($cols, ENT_QUOTES);
|
||
|
|
echo "<tr><td colspan='$cols' style='height:0.7rem'></td></tr>";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
echo "</table>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 22) { // a set of labeled text input fields
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
$avalue = array();
|
||
|
|
foreach ($tmp as $value) {
|
||
|
|
if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
|
||
|
|
$avalue[$matches[1]] = $matches[2];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
echo "<table class='table'>";
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
$option_id_esc = htmlspecialchars($option_id, ENT_QUOTES);
|
||
|
|
$maxlength = $frow['max_length'];
|
||
|
|
$string_maxlength = "";
|
||
|
|
// if max_length is set to zero, then do not set a maxlength
|
||
|
|
if ($maxlength) {
|
||
|
|
$string_maxlength = "maxlength='" . attr($maxlength) . "'";
|
||
|
|
}
|
||
|
|
|
||
|
|
$fldlength = empty($frow['fld_length']) ? 20 : $frow['fld_length'];
|
||
|
|
|
||
|
|
// Added 5-09 by BM - Translate label if applicable
|
||
|
|
echo "<tr><td>" . htmlspecialchars(xl_list_label($lrow['title']), ENT_NOQUOTES) . " </td>";
|
||
|
|
$fldlength = htmlspecialchars($fldlength, ENT_QUOTES);
|
||
|
|
$optionValue = htmlspecialchars($avalue[$option_id], ENT_QUOTES);
|
||
|
|
echo "<td><input type='text'" .
|
||
|
|
" name='form_{$field_id_esc}[$option_id_esc]'" .
|
||
|
|
" id='form_{$field_id_esc}[$option_id_esc]'" .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
$placeholder .
|
||
|
|
" class='form-control$smallform'" .
|
||
|
|
" $string_maxlength" .
|
||
|
|
" value='$optionValue'";
|
||
|
|
echo " $lbfonchange $disabled /></td></tr>";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "</table>";
|
||
|
|
} elseif ($data_type == 23) { // a set of exam results; 3 radio buttons and a text field:
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
$avalue = array();
|
||
|
|
foreach ($tmp as $value) {
|
||
|
|
if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
|
||
|
|
$avalue[$matches[1]] = $matches[2];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$maxlength = $frow['max_length'];
|
||
|
|
$string_maxlength = "";
|
||
|
|
// if max_length is set to zero, then do not set a maxlength
|
||
|
|
if ($maxlength) {
|
||
|
|
$string_maxlength = "maxlength='" . attr($maxlength) . "'";
|
||
|
|
}
|
||
|
|
|
||
|
|
$fldlength = empty($frow['fld_length']) ? 20 : $frow['fld_length'];
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
echo "<table class='table'>";
|
||
|
|
echo "<tr><td class='font-weight-bold'>" . htmlspecialchars(xl('Exam or Test'), ENT_NOQUOTES) .
|
||
|
|
"</td><td class='font-weight-bold'>" . htmlspecialchars(xl('N/A'), ENT_NOQUOTES) .
|
||
|
|
" </td><td class='font-weight-bold'>" .
|
||
|
|
htmlspecialchars(xl('Nor'), ENT_NOQUOTES) . " </td>" .
|
||
|
|
"<td class='font-weight-bold'>" .
|
||
|
|
htmlspecialchars(xl('Abn'), ENT_NOQUOTES) . " </td><td class='font-weight-bold'>" .
|
||
|
|
htmlspecialchars(xl('Date/Notes'), ENT_NOQUOTES) . "</td></tr>";
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
$option_id_esc = htmlspecialchars($option_id, ENT_QUOTES);
|
||
|
|
$restype = substr(($avalue[$option_id] ?? ''), 0, 1);
|
||
|
|
$resnote = substr(($avalue[$option_id] ?? ''), 2);
|
||
|
|
|
||
|
|
// Added 5-09 by BM - Translate label if applicable
|
||
|
|
echo "<tr><td>" . htmlspecialchars(xl_list_label($lrow['title']), ENT_NOQUOTES) . " </td>";
|
||
|
|
|
||
|
|
for ($i = 0; $i < 3; ++$i) {
|
||
|
|
$inputValue = htmlspecialchars($i, ENT_QUOTES);
|
||
|
|
echo "<td><input type='radio'" .
|
||
|
|
" name='radio_{$field_id_esc}[$option_id_esc]'" .
|
||
|
|
" id='radio_{$field_id_esc}[$option_id_esc]'" .
|
||
|
|
" value='$inputValue' $lbfonchange";
|
||
|
|
if ($restype === "$i") {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo " $disabled /></td>";
|
||
|
|
}
|
||
|
|
|
||
|
|
$fldlength = htmlspecialchars($fldlength, ENT_QUOTES);
|
||
|
|
$resnote = htmlspecialchars($resnote, ENT_QUOTES);
|
||
|
|
echo "<td><input type='text'" .
|
||
|
|
" name='form_{$field_id_esc}[$option_id_esc]'" .
|
||
|
|
" id='form_{$field_id_esc}[$option_id_esc]'" .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
" class='form-control'" .
|
||
|
|
" $string_maxlength" .
|
||
|
|
" value='$resnote' $disabled /></td>";
|
||
|
|
echo "</tr>";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "</table>";
|
||
|
|
} elseif ($data_type == 24) { // the list of active allergies for the current patient
|
||
|
|
// this is read-only!
|
||
|
|
$query = "SELECT title, comments FROM lists WHERE " .
|
||
|
|
"pid = ? AND type = 'allergy' AND enddate IS NULL " .
|
||
|
|
"ORDER BY begdate";
|
||
|
|
// echo "<!-- $query -->\n"; // debugging
|
||
|
|
$lres = sqlStatement($query, array($GLOBALS['pid']));
|
||
|
|
$count = 0;
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
if ($count++) {
|
||
|
|
echo "<br />";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo htmlspecialchars($lrow['title'], ENT_NOQUOTES);
|
||
|
|
if ($lrow['comments']) {
|
||
|
|
echo ' (' . htmlspecialchars($lrow['comments'], ENT_NOQUOTES) . ')';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 25) { // a set of labeled checkboxes, each with a text field:
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
$avalue = array();
|
||
|
|
foreach ($tmp as $value) {
|
||
|
|
if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
|
||
|
|
$avalue[$matches[1]] = $matches[2];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$maxlength = $frow['max_length'];
|
||
|
|
$string_maxlength = "";
|
||
|
|
// if max_length is set to zero, then do not set a maxlength
|
||
|
|
if ($maxlength) {
|
||
|
|
$string_maxlength = "maxlength='" . attr($maxlength) . "'";
|
||
|
|
}
|
||
|
|
|
||
|
|
$fldlength = empty($frow['fld_length']) ? 20 : $frow['fld_length'];
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
echo "<table class='table'>";
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
$option_id_esc = htmlspecialchars($option_id, ENT_QUOTES);
|
||
|
|
$restype = substr($avalue[$option_id], 0, 1);
|
||
|
|
$resnote = substr($avalue[$option_id], 2);
|
||
|
|
|
||
|
|
// Added 5-09 by BM - Translate label if applicable
|
||
|
|
echo "<tr><td>" . htmlspecialchars(xl_list_label($lrow['title']), ENT_NOQUOTES) . " </td>";
|
||
|
|
|
||
|
|
$option_id = htmlspecialchars($option_id, ENT_QUOTES);
|
||
|
|
echo "<td><input type='checkbox' name='check_{$field_id_esc}[$option_id_esc]'" .
|
||
|
|
" id='check_{$field_id_esc}[$option_id_esc]' class='form-check-inline' value='1' $lbfonchange";
|
||
|
|
if ($restype) {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo " $disabled /> </td>";
|
||
|
|
$fldlength = htmlspecialchars($fldlength, ENT_QUOTES);
|
||
|
|
$resnote = htmlspecialchars($resnote, ENT_QUOTES);
|
||
|
|
echo "<td><input type='text'" .
|
||
|
|
" name='form_{$field_id_esc}[$option_id_esc]'" .
|
||
|
|
" id='form_{$field_id_esc}[$option_id_esc]'" .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
" class='form-control$smallform' " .
|
||
|
|
" $string_maxlength" .
|
||
|
|
" value='$resnote' $disabled /></td>";
|
||
|
|
echo "</tr>";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "</table>";
|
||
|
|
} elseif ($data_type == 26) { // single-selection list with ability to add to it
|
||
|
|
echo "<div class='input-group'>";
|
||
|
|
echo generate_select_list(
|
||
|
|
"form_$field_id",
|
||
|
|
$list_id,
|
||
|
|
$currvalue,
|
||
|
|
$description,
|
||
|
|
($showEmpty ? $empty_title : ''),
|
||
|
|
'addtolistclass_' . $list_id . $smallform,
|
||
|
|
$lbfchange,
|
||
|
|
'',
|
||
|
|
($disabled ? array('disabled' => 'disabled') : null),
|
||
|
|
false,
|
||
|
|
$backup_list
|
||
|
|
);
|
||
|
|
// show the add button if user has access to correct list
|
||
|
|
$inputValue = htmlspecialchars(xl('Add'), ENT_QUOTES);
|
||
|
|
$btnSize = ($smallform) ? "btn-sm" : "";
|
||
|
|
$outputAddButton = "<div class='input-group-append'><input type='button' class='btn btn-secondary $btnSize mb-1 addtolist' id='addtolistid_" . $list_id_esc . "' fieldid='form_" .
|
||
|
|
$field_id_esc . "' value='$inputValue' $disabled /></div>";
|
||
|
|
if (AclExtended::acoExist('lists', $list_id)) {
|
||
|
|
// a specific aco exist for this list, so ensure access
|
||
|
|
if (AclMain::aclCheckCore('lists', $list_id)) {
|
||
|
|
echo $outputAddButton;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
// no specific aco exist for this list, so check for access to 'default' list
|
||
|
|
if (AclMain::aclCheckCore('lists', 'default')) {
|
||
|
|
echo $outputAddButton;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
echo "</div>";
|
||
|
|
} elseif ($data_type == 27) { // a set of labeled radio buttons
|
||
|
|
// In this special case, fld_length is the number of columns generated.
|
||
|
|
$cols = max(1, $frow['fld_length']);
|
||
|
|
// Support for edit option M.
|
||
|
|
if (isOption($edit_options, 'M')) {
|
||
|
|
++$membership_group_number;
|
||
|
|
}
|
||
|
|
//
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
echo "<table class='table w-100'>";
|
||
|
|
$tdpct = (int) (100 / $cols);
|
||
|
|
$got_selected = false;
|
||
|
|
for ($count = 0; $lrow = sqlFetchArray($lres); ++$count) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
$option_id_esc = htmlspecialchars($option_id, ENT_QUOTES);
|
||
|
|
if ($count % $cols == 0) {
|
||
|
|
if ($count) {
|
||
|
|
echo "</tr>";
|
||
|
|
}
|
||
|
|
echo "<tr>";
|
||
|
|
}
|
||
|
|
echo "<td width='" . attr($tdpct) . "%' nowrap>";
|
||
|
|
echo "<input type='radio' name='form_{$field_id_esc}' id='form_{$field_id_esc}[$option_id_esc]'" .
|
||
|
|
" value='$option_id_esc' $lbfonchange";
|
||
|
|
// Support for edit options M and m.
|
||
|
|
if (isOption($edit_options, 'M')) {
|
||
|
|
echo " class='form-check-inline'";
|
||
|
|
echo " onclick='checkGroupMembers(this, $membership_group_number);'";
|
||
|
|
} elseif (isOption($edit_options, 'm')) {
|
||
|
|
echo " class='form-check-inline lbf_memgroup_$membership_group_number'";
|
||
|
|
} else {
|
||
|
|
echo " class='form-check-inline'";
|
||
|
|
}
|
||
|
|
//
|
||
|
|
if (
|
||
|
|
(strlen($currvalue) == 0 && $lrow['is_default']) ||
|
||
|
|
(strlen($currvalue) > 0 && $option_id == $currvalue)
|
||
|
|
) {
|
||
|
|
echo " checked";
|
||
|
|
$got_selected = true;
|
||
|
|
}
|
||
|
|
echo " $disabled />" . htmlspecialchars(xl_list_label($lrow['title']), ENT_NOQUOTES);
|
||
|
|
echo "</td>";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($count) {
|
||
|
|
echo "</tr>";
|
||
|
|
if ($count > $cols) {
|
||
|
|
// Add some space after multiple rows of radio buttons.
|
||
|
|
$cols = htmlspecialchars($cols, ENT_QUOTES);
|
||
|
|
echo "<tr><td colspan='$cols' style='height: 0.7rem'></td></tr>";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "</table>";
|
||
|
|
if (!$got_selected && strlen($currvalue) > 0) {
|
||
|
|
$fontTitle = htmlspecialchars(xl('Please choose a valid selection.'), ENT_QUOTES);
|
||
|
|
$fontText = htmlspecialchars(xl('Fix this'), ENT_NOQUOTES);
|
||
|
|
echo "$currescaped <span class='text-danger' title='$fontTitle'>$fontText!</span>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 28 || $data_type == 32) { // special case for history of lifestyle status; 3 radio buttons
|
||
|
|
// and a date text field:
|
||
|
|
// VicarePlus :: A selection list box for smoking status:
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
switch (count($tmp)) {
|
||
|
|
case "4":
|
||
|
|
$resnote = $tmp[0];
|
||
|
|
$restype = $tmp[1];
|
||
|
|
$resdate = oeFormatShortDate($tmp[2]);
|
||
|
|
$reslist = $tmp[3];
|
||
|
|
break;
|
||
|
|
case "3":
|
||
|
|
$resnote = $tmp[0];
|
||
|
|
$restype = $tmp[1];
|
||
|
|
$resdate = oeFormatShortDate($tmp[2]);
|
||
|
|
$reslist = '';
|
||
|
|
break;
|
||
|
|
case "2":
|
||
|
|
$resnote = $tmp[0];
|
||
|
|
$restype = $tmp[1];
|
||
|
|
$resdate = "";
|
||
|
|
$reslist = '';
|
||
|
|
break;
|
||
|
|
case "1":
|
||
|
|
$resnote = $tmp[0];
|
||
|
|
$resdate = $restype = "";
|
||
|
|
$reslist = '';
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
$restype = $resdate = $resnote = "";
|
||
|
|
$reslist = '';
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
$maxlength = $frow['max_length'];
|
||
|
|
$string_maxlength = "";
|
||
|
|
// if max_length is set to zero, then do not set a maxlength
|
||
|
|
if ($maxlength) {
|
||
|
|
$string_maxlength = "maxlength='" . attr($maxlength) . "'";
|
||
|
|
}
|
||
|
|
|
||
|
|
$fldlength = empty($frow['fld_length']) ? 20 : $frow['fld_length'];
|
||
|
|
|
||
|
|
$fldlength = htmlspecialchars($fldlength, ENT_QUOTES);
|
||
|
|
$resnote = htmlspecialchars($resnote, ENT_QUOTES);
|
||
|
|
$resdate = htmlspecialchars($resdate, ENT_QUOTES);
|
||
|
|
echo "<table class='table'>";
|
||
|
|
echo "<tr>";
|
||
|
|
if ($data_type == 28) {
|
||
|
|
// input text
|
||
|
|
echo "<td><input type='text' class='form-control'" .
|
||
|
|
" name='form_$field_id_esc'" .
|
||
|
|
" id='form_$field_id_esc'" .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
" class='form-control$smallform'" .
|
||
|
|
" $string_maxlength" .
|
||
|
|
" value='$resnote' $disabled /> </td>";
|
||
|
|
echo "<td class='font-weight-bold'> " .
|
||
|
|
" " .
|
||
|
|
htmlspecialchars(xl('Status'), ENT_NOQUOTES) . ": </td>";
|
||
|
|
} elseif ($data_type == 32) {
|
||
|
|
// input text
|
||
|
|
echo "<tr><td><input type='text'" .
|
||
|
|
" name='form_text_$field_id_esc'" .
|
||
|
|
" id='form_text_$field_id_esc'" .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
" class='form-control$smallform'" .
|
||
|
|
" $string_maxlength" .
|
||
|
|
" value='$resnote' $disabled /> </td></tr>";
|
||
|
|
echo "<td>";
|
||
|
|
//Selection list for smoking status
|
||
|
|
$onchange = 'radioChange(this.options[this.selectedIndex].value)';//VicarePlus :: The javascript function for selection list.
|
||
|
|
echo generate_select_list(
|
||
|
|
"form_$field_id",
|
||
|
|
$list_id,
|
||
|
|
$reslist,
|
||
|
|
$description,
|
||
|
|
($showEmpty ? $empty_title : ''),
|
||
|
|
$smallform,
|
||
|
|
$onchange,
|
||
|
|
'',
|
||
|
|
($disabled ? array('disabled' => 'disabled') : null)
|
||
|
|
);
|
||
|
|
echo "</td>";
|
||
|
|
echo "<td class='font-weight-bold'> " . xlt('Status') . ": </td>";
|
||
|
|
}
|
||
|
|
|
||
|
|
// current
|
||
|
|
echo "<td class='text'><input type='radio'" .
|
||
|
|
" name='radio_{$field_id_esc}'" .
|
||
|
|
" id='radio_{$field_id_esc}[current]'" .
|
||
|
|
" class='form-check-inline'" .
|
||
|
|
" value='current" . $field_id_esc . "' $lbfonchange";
|
||
|
|
if ($restype == "current" . $field_id) {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($data_type == 32) {
|
||
|
|
echo " onClick='smoking_statusClicked(this)'";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo " />" . xlt('Current') . " </td>";
|
||
|
|
// quit
|
||
|
|
echo "<td class='text'><input type='radio'" .
|
||
|
|
" name='radio_{$field_id_esc}'" .
|
||
|
|
" id='radio_{$field_id_esc}[quit]'" .
|
||
|
|
" class='form-check-inline'" .
|
||
|
|
" value='quit" . $field_id_esc . "' $lbfonchange";
|
||
|
|
if ($restype == "quit" . $field_id) {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($data_type == 32) {
|
||
|
|
echo " onClick='smoking_statusClicked(this)'";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo " $disabled />" . xlt('Quit') . " </td>";
|
||
|
|
// quit date
|
||
|
|
echo "<td class='text'><input type='text' size='6' class='form-control datepicker' name='date_$field_id_esc' id='date_$field_id_esc'" .
|
||
|
|
" value='$resdate'" .
|
||
|
|
" title='$description'" .
|
||
|
|
" $disabled />";
|
||
|
|
echo " </td>";
|
||
|
|
// never
|
||
|
|
echo "<td class='text'><input type='radio'" .
|
||
|
|
" name='radio_{$field_id_esc}'" .
|
||
|
|
" class='form-check-inline'" .
|
||
|
|
" id='radio_{$field_id_esc}[never]'" .
|
||
|
|
" value='never" . $field_id_esc . "' $lbfonchange";
|
||
|
|
if ($restype == "never" . $field_id) {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($data_type == 32) {
|
||
|
|
echo " onClick='smoking_statusClicked(this)'";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo " />" . xlt('Never') . " </td>";
|
||
|
|
// Not Applicable
|
||
|
|
echo "<td class='text'><input type='radio'" .
|
||
|
|
" class='form-check-inline' " .
|
||
|
|
" name='radio_{$field_id}'" .
|
||
|
|
" id='radio_{$field_id}[not_applicable]'" .
|
||
|
|
" value='not_applicable" . $field_id . "' $lbfonchange";
|
||
|
|
if ($restype == "not_applicable" . $field_id) {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($data_type == 32) {
|
||
|
|
echo " onClick='smoking_statusClicked(this)'";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo " $disabled />" . xlt('N/A') . " </td>";
|
||
|
|
//
|
||
|
|
//Added on 5-jun-2k14 (regarding 'Smoking Status - display SNOMED code description')
|
||
|
|
echo "<td class='text'><div id='smoke_code'></div></td>";
|
||
|
|
echo "</tr>";
|
||
|
|
echo "</table>";
|
||
|
|
} elseif ($data_type == 31) { // static text. read-only, of course.
|
||
|
|
echo parse_static_text($frow);
|
||
|
|
} elseif ($data_type == 34) {
|
||
|
|
// $data_type == 33
|
||
|
|
// Race and Ethnicity. After added support for backup lists, this is now the same as datatype 36; so have migrated it there.
|
||
|
|
// $data_type == 33
|
||
|
|
|
||
|
|
$arr = explode("|*|*|*|", $currvalue);
|
||
|
|
echo "<div>"; // wrapper for myHideOrShow()
|
||
|
|
echo "<a href='../../../library/custom_template/custom_template.php?type=form_{$field_id}&contextName=" . htmlspecialchars($list_id_esc, ENT_QUOTES) . "' class='iframe_medium text-body text-decoration-none'>";
|
||
|
|
echo "<div id='form_{$field_id}_div' class='text-area' style='min-width: 133px'>" . $arr[0] . "</div>";
|
||
|
|
echo "<div style='display: none'><textarea name='form_{$field_id}' id='form_{$field_id}' class='form-control$smallform' style='display: none' $lbfonchange $disabled>" . $currvalue . "</textarea></div>";
|
||
|
|
echo "</a>";
|
||
|
|
echo "</div>";
|
||
|
|
} elseif ($data_type == 35) { //facilities drop-down list
|
||
|
|
if (empty($currvalue)) {
|
||
|
|
$currvalue = 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
dropdown_facility(
|
||
|
|
$selected = $currvalue,
|
||
|
|
$name = "form_$field_id_esc",
|
||
|
|
$allow_unspecified = true,
|
||
|
|
$allow_allfacilities = false,
|
||
|
|
$disabled,
|
||
|
|
$lbfchange,
|
||
|
|
false,
|
||
|
|
$smallform
|
||
|
|
);
|
||
|
|
} elseif ($data_type == 36 || $data_type == 33) { //multiple select, supports backup list
|
||
|
|
echo generate_select_list(
|
||
|
|
"form_$field_id",
|
||
|
|
$list_id,
|
||
|
|
$currvalue,
|
||
|
|
$description,
|
||
|
|
$showEmpty ? $empty_title : '',
|
||
|
|
$smallform,
|
||
|
|
$lbfchange,
|
||
|
|
'',
|
||
|
|
null,
|
||
|
|
true,
|
||
|
|
$backup_list
|
||
|
|
);
|
||
|
|
|
||
|
|
// A set of lab test results; Gestation, 3 radio buttons, test value, notes field:
|
||
|
|
} elseif ($data_type == 37) {
|
||
|
|
echo genLabResults($frow, $currvalue, 0, $disabled);
|
||
|
|
} elseif ($data_type == 40) { // Canvas and related elements for browser-side image drawing.
|
||
|
|
// Note you must invoke lbf_canvas_head() (below) to use this field type in a form.
|
||
|
|
// Unlike other field types, width and height are in pixels.
|
||
|
|
$canWidth = intval($frow['fld_length']);
|
||
|
|
$canHeight = intval($frow['fld_rows']);
|
||
|
|
if (empty($currvalue)) {
|
||
|
|
if (preg_match('/\\bimage=([a-zA-Z0-9._-]*)/', $frow['description'], $matches)) {
|
||
|
|
// If defined this is the filename of the default starting image.
|
||
|
|
$currvalue = $GLOBALS['web_root'] . '/sites/' . $_SESSION['site_id'] . '/images/' . $matches[1];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$mywidth = 50 + ($canWidth > 250 ? $canWidth : 250);
|
||
|
|
$myheight = 31 + ($canHeight > 261 ? $canHeight : 261);
|
||
|
|
echo "<div>"; // wrapper for myHideOrShow()
|
||
|
|
echo "<div id='form_$field_id_esc' style='width:${mywidth}px; height:${myheight}px;'></div>";
|
||
|
|
// Hidden form field exists to send updated data to the server at submit time.
|
||
|
|
echo "<input type='hidden' name='form_$field_id_esc' value='' />";
|
||
|
|
// Hidden image exists to support initialization of the canvas.
|
||
|
|
echo "<img src='" . attr($currvalue) . "' id='form_{$field_id_esc}_img' style='display:none'>";
|
||
|
|
echo "</div>";
|
||
|
|
// $date_init is a misnomer but it's the place for browser-side setup logic.
|
||
|
|
$date_init .= " lbfCanvasSetup('form_$field_id_esc', $canWidth, $canHeight);\n";
|
||
|
|
} elseif ($data_type == 41 || $data_type == 42) {
|
||
|
|
$datatype = 'patient-signature';
|
||
|
|
$cpid = $GLOBALS['pid'];
|
||
|
|
$cuser = $_SESSION['authUserID'];
|
||
|
|
if ($data_type == 42) {
|
||
|
|
$datatype = 'admin-signature';
|
||
|
|
}
|
||
|
|
echo "<input type='hidden' id='form_$field_id_esc' name='form_$field_id_esc' value='' />\n";
|
||
|
|
echo "<img class='signature' id='form_{$field_id_esc}_img' title='$description'
|
||
|
|
data-pid='$cpid' data-user='$cuser' data-type='$datatype'
|
||
|
|
data-action='fetch_signature' alt='Get Signature' src='" . attr($currvalue) . "'>\n";
|
||
|
|
} elseif ($data_type == 44) { //multiple select facility
|
||
|
|
if (empty($currvalue)) {
|
||
|
|
$currvalue = 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
dropdown_facility(
|
||
|
|
$selected = $currvalue,
|
||
|
|
$name = "form_$field_id_esc",
|
||
|
|
$allow_unspecified = false,
|
||
|
|
$allow_allfacilities = false,
|
||
|
|
$disabled,
|
||
|
|
$lbfchange,
|
||
|
|
true,
|
||
|
|
$smallform
|
||
|
|
);
|
||
|
|
} elseif ($data_type == 45) { // Multiple provider list, local providers only
|
||
|
|
$ures = sqlStatement("SELECT id, fname, lname, specialty FROM users " .
|
||
|
|
"WHERE active = 1 AND ( info IS NULL OR info NOT LIKE '%Inactive%' ) " .
|
||
|
|
"AND authorized = 1 ORDER BY lname, fname");
|
||
|
|
echo "<select name='form_$field_id_esc" . "[]'" . " id='form_$field_id_esc' title='$description' $lbfonchange $disabled class='form-control$smallform select-dropdown' style='width:100%;' multiple='multiple'>";
|
||
|
|
$got_selected = false;
|
||
|
|
while ($urow = sqlFetchArray($ures)) {
|
||
|
|
$uname = text($urow['fname'] . ' ' . $urow['lname']);
|
||
|
|
$optionId = attr($urow['id']);
|
||
|
|
echo "<option value='$optionId'";
|
||
|
|
$selectedValues = explode("|", $currvalue);
|
||
|
|
|
||
|
|
if (in_array($optionId, $selectedValues)) {
|
||
|
|
echo " selected";
|
||
|
|
$got_selected = true;
|
||
|
|
}
|
||
|
|
|
||
|
|
echo ">$uname</option>";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$got_selected && $currvalue) {
|
||
|
|
echo "<option value='" . attr($currvalue) . "' selected>* " . text($currvalue) . " *</option>";
|
||
|
|
echo "</select>";
|
||
|
|
echo " <span class='text-danger' title='" . xla('Please choose a valid selection from the list.') . "'>" . xlt('Fix this') . "!</span>";
|
||
|
|
} else {
|
||
|
|
echo "</select>";
|
||
|
|
}
|
||
|
|
|
||
|
|
// Patient selector field.
|
||
|
|
} elseif ($data_type == 51) {
|
||
|
|
$fldlength = attr($frow['fld_length']);
|
||
|
|
$currdescstring = '';
|
||
|
|
if (!empty($currvalue)) {
|
||
|
|
$currdescstring .= getPatientDescription($currvalue);
|
||
|
|
}
|
||
|
|
$currdescstring = htmlspecialchars($currdescstring, ENT_QUOTES);
|
||
|
|
echo "<div>"; // wrapper for myHideOrShow()
|
||
|
|
echo "<input type='text'" .
|
||
|
|
" name='form_$field_id_esc'" .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
" value='$currescaped'" .
|
||
|
|
" style='display:none'" .
|
||
|
|
" $lbfonchange readonly $disabled />";
|
||
|
|
// Extra readonly input field for patient description (name and pid).
|
||
|
|
echo "<input type='text'" .
|
||
|
|
" name='form_$field_id_esc" . "__desc'" .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
" title='$description'" .
|
||
|
|
" value='$currdescstring'";
|
||
|
|
if (!$disabled) {
|
||
|
|
echo " onclick='sel_patient(this, this.form.form_$field_id_esc)'";
|
||
|
|
}
|
||
|
|
echo " readonly $disabled />";
|
||
|
|
echo "</div>";
|
||
|
|
// Previous Patient Names with add. Somewhat mirrors data types 44,45.
|
||
|
|
} elseif ($data_type == 52) {
|
||
|
|
global $pid;
|
||
|
|
$pid = ($frow['blank_form'] ?? null) ? 0 : $pid;
|
||
|
|
$patientService = new PatientService();
|
||
|
|
$res = $patientService->getPatientNameHistory($pid);
|
||
|
|
echo "<div class='input-group w-75'>";
|
||
|
|
echo "<select name='form_$field_id_esc" . "[]'" . " id='form_$field_id_esc' title='$description' $lbfonchange $disabled class='form-control$smallform select-previous-names' multiple='multiple'>";
|
||
|
|
foreach ($res as $row) {
|
||
|
|
$pname = $row['formatted_name']; // esc'ed in fetch.
|
||
|
|
$optionId = attr($row['id']);
|
||
|
|
// all names always selected
|
||
|
|
echo "<option value='$optionId'" . " selected>$pname</option>";
|
||
|
|
}
|
||
|
|
echo "</select>";
|
||
|
|
echo "<button type='button' class='btn btn-primary btn-sm' id='type_52_add' onclick='return specialtyFormDialog()'>" . xlt('Add') . "</button></div>";
|
||
|
|
// Patient Encounter List Field
|
||
|
|
} elseif ($data_type == 53) {
|
||
|
|
global $pid;
|
||
|
|
$pid = ($frow['blank_form'] ?? null) ? 0 : $pid;
|
||
|
|
$encounterService = new EncounterService();
|
||
|
|
$res = $encounterService->getEncountersForPatientByPid($pid);
|
||
|
|
echo "<div class='input-group w-75'>";
|
||
|
|
echo "<select name='form_$field_id_esc'" . " id='form_$field_id_esc' title='$description' $lbfonchange $disabled class='form-control$smallform select-encounters'>";
|
||
|
|
echo "<option value=''>" . xlt("Select Encounter") . "</option>";
|
||
|
|
foreach ($res as $row) {
|
||
|
|
$label = text(date("Y-m-d", strtotime($row['date'])) . " " . ($row['pc_catname'] ?? ''));
|
||
|
|
$optionId = attr($row['eid']);
|
||
|
|
// all names always selected
|
||
|
|
if ($currvalue == $row['eid']) {
|
||
|
|
echo "<option value='$optionId'" . " selected>$label</option>";
|
||
|
|
} else {
|
||
|
|
echo "<option value='$optionId'>$label</option>";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
echo "</select>";
|
||
|
|
} elseif ($data_type == 54) {
|
||
|
|
include "templates/address_list_form.php";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function generate_print_field($frow, $currvalue, $value_allowed = true)
|
||
|
|
{
|
||
|
|
global $rootdir, $date_init, $ISSUE_TYPES;
|
||
|
|
|
||
|
|
$currescaped = htmlspecialchars($currvalue, ENT_QUOTES);
|
||
|
|
|
||
|
|
$data_type = $frow['data_type'];
|
||
|
|
$field_id = $frow['field_id'] ?? null;
|
||
|
|
$list_id = $frow['list_id'];
|
||
|
|
$fld_length = $frow['fld_length'] ?? null;
|
||
|
|
$backup_list = $frow['list_backup_id'] ?? null;
|
||
|
|
|
||
|
|
$description = attr(xl_layout_label($frow['description'] ?? ''));
|
||
|
|
|
||
|
|
// Can pass $frow['empty_title'] with this variable, otherwise
|
||
|
|
// will default to 'Unassigned'.
|
||
|
|
// If it is 'SKIP' then an empty text title is completely skipped.
|
||
|
|
$showEmpty = true;
|
||
|
|
if (isset($frow['empty_title'])) {
|
||
|
|
if ($frow['empty_title'] == "SKIP") {
|
||
|
|
//do not display an 'empty' choice
|
||
|
|
$showEmpty = false;
|
||
|
|
$empty_title = "Unassigned";
|
||
|
|
} else {
|
||
|
|
$empty_title = $frow['empty_title'];
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$empty_title = "Unassigned";
|
||
|
|
}
|
||
|
|
|
||
|
|
// generic single-selection list
|
||
|
|
// Supports backup lists.
|
||
|
|
// if (false && ($data_type == 1 || $data_type == 26 || $data_type == 33 || $data_type == 43 || $data_type == 46)) {
|
||
|
|
// We used to show all the list options but this was undone per CV request 2017-12-07
|
||
|
|
// (see alternative code below).
|
||
|
|
if ($data_type == 1 || $data_type == 26 || $data_type == 33 || $data_type == 43 || $data_type == 46) {
|
||
|
|
if (empty($fld_length)) {
|
||
|
|
if ($list_id == 'titles') {
|
||
|
|
$fld_length = 3;
|
||
|
|
} else {
|
||
|
|
$fld_length = 10;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$tmp = '';
|
||
|
|
if ($currvalue) {
|
||
|
|
if ($data_type == 46) {
|
||
|
|
// support for single-selection list with comment support
|
||
|
|
$selectedValues = explode("|", $currvalue);
|
||
|
|
$currvalue = $selectedValues[0];
|
||
|
|
}
|
||
|
|
$lrow = sqlQuery(
|
||
|
|
"SELECT title FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND option_id = ? AND activity = 1",
|
||
|
|
array($list_id,$currvalue)
|
||
|
|
);
|
||
|
|
// For lists Race and Ethnicity if there is no matching value in the corresponding lists check ethrace list
|
||
|
|
if (empty($lrow) && $data_type == 33) {
|
||
|
|
$lrow = sqlQuery(
|
||
|
|
"SELECT title FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND option_id = ? AND activity = 1",
|
||
|
|
array('ethrace', $currvalue)
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
$tmp = xl_list_label($lrow['title']);
|
||
|
|
if ($lrow == 0 && !empty($backup_list)) {
|
||
|
|
// since primary list did not map, try to map to backup list
|
||
|
|
$lrow = sqlQuery("SELECT title FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND option_id = ?", array($backup_list,$currvalue));
|
||
|
|
$tmp = xl_list_label($lrow['title']);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (empty($tmp)) {
|
||
|
|
$tmp = "($currvalue)";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($data_type == 46) {
|
||
|
|
// support for single-selection list with comment support
|
||
|
|
$resnote = $selectedValues[1] ?? null;
|
||
|
|
if (!empty($resnote)) {
|
||
|
|
$tmp .= " (" . $resnote . ")";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($tmp === '') {
|
||
|
|
$tmp = ' ';
|
||
|
|
} else {
|
||
|
|
$tmp = htmlspecialchars($tmp, ENT_QUOTES);
|
||
|
|
}
|
||
|
|
echo $tmp;
|
||
|
|
} elseif ($data_type == 2 || $data_type == 15) { // simple text field
|
||
|
|
if ($currescaped === '') {
|
||
|
|
$currescaped = ' ';
|
||
|
|
}
|
||
|
|
|
||
|
|
echo $currescaped;
|
||
|
|
} elseif ($data_type == 3) { // long or multi-line text field
|
||
|
|
$fldlength = htmlspecialchars($fld_length, ENT_QUOTES);
|
||
|
|
$maxlength = htmlspecialchars($frow['fld_rows'], ENT_QUOTES);
|
||
|
|
echo "<textarea" .
|
||
|
|
" class='form-control' " .
|
||
|
|
" cols='$fldlength'" .
|
||
|
|
" rows='$maxlength'>" .
|
||
|
|
$currescaped . "</textarea>";
|
||
|
|
} elseif ($data_type == 4) { // date
|
||
|
|
$age_asof_date = '';
|
||
|
|
$agestr = optionalAge($frow, $currvalue, $age_asof_date, $description);
|
||
|
|
if ($currvalue === '') {
|
||
|
|
echo ' ';
|
||
|
|
} else {
|
||
|
|
$modtmp = isOption($frow['edit_options'], 'F') === false ? 0 : 1;
|
||
|
|
if (!$modtmp) {
|
||
|
|
echo text(oeFormatShortDate($currvalue));
|
||
|
|
} else {
|
||
|
|
echo text(oeFormatDateTime($currvalue));
|
||
|
|
}
|
||
|
|
if ($agestr) {
|
||
|
|
echo " (" . text($agestr) . ")";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 10 || $data_type == 11) { // provider list
|
||
|
|
$tmp = '';
|
||
|
|
if ($currvalue) {
|
||
|
|
$urow = sqlQuery("SELECT fname, lname, specialty FROM users " .
|
||
|
|
"WHERE id = ?", array($currvalue));
|
||
|
|
$tmp = ucwords($urow['fname'] . " " . $urow['lname']);
|
||
|
|
if (empty($tmp)) {
|
||
|
|
$tmp = "($currvalue)";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($tmp === '') {
|
||
|
|
$tmp = ' ';
|
||
|
|
} else {
|
||
|
|
$tmp = htmlspecialchars($tmp, ENT_QUOTES);
|
||
|
|
}
|
||
|
|
|
||
|
|
echo $tmp;
|
||
|
|
} elseif ($data_type == 12) { // pharmacy list
|
||
|
|
$tmp = '';
|
||
|
|
if ($currvalue) {
|
||
|
|
$pres = get_pharmacies();
|
||
|
|
while ($prow = sqlFetchArray($pres)) {
|
||
|
|
$key = $prow['id'];
|
||
|
|
if ($currvalue == $key) {
|
||
|
|
$tmp = $prow['name'] . ' ' . $prow['area_code'] . '-' .
|
||
|
|
$prow['prefix'] . '-' . $prow['number'] . ' / ' .
|
||
|
|
$prow['line1'] . ' / ' . $prow['city'];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (empty($tmp)) {
|
||
|
|
$tmp = "($currvalue)";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($tmp === '') {
|
||
|
|
$tmp = ' ';
|
||
|
|
} else {
|
||
|
|
$tmp = htmlspecialchars($tmp, ENT_QUOTES);
|
||
|
|
}
|
||
|
|
|
||
|
|
echo $tmp;
|
||
|
|
} elseif ($data_type == 13) { // squads
|
||
|
|
$tmp = '';
|
||
|
|
if ($currvalue) {
|
||
|
|
$squads = AclExtended::aclGetSquads();
|
||
|
|
if ($squads) {
|
||
|
|
foreach ($squads as $key => $value) {
|
||
|
|
if ($currvalue == $key) {
|
||
|
|
$tmp = $value[3];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (empty($tmp)) {
|
||
|
|
$tmp = "($currvalue)";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($tmp === '') {
|
||
|
|
$tmp = ' ';
|
||
|
|
} else {
|
||
|
|
$tmp = htmlspecialchars($tmp, ENT_QUOTES);
|
||
|
|
}
|
||
|
|
|
||
|
|
echo $tmp;
|
||
|
|
} elseif ($data_type == 14) { // Address book.
|
||
|
|
$tmp = '';
|
||
|
|
if ($currvalue) {
|
||
|
|
$urow = sqlQuery("SELECT fname, lname, specialty FROM users " .
|
||
|
|
"WHERE id = ?", array($currvalue));
|
||
|
|
$uname = $urow['lname'];
|
||
|
|
if ($urow['fname']) {
|
||
|
|
$uname .= ", " . $urow['fname'];
|
||
|
|
}
|
||
|
|
|
||
|
|
$tmp = $uname;
|
||
|
|
if (empty($tmp)) {
|
||
|
|
$tmp = "($currvalue)";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($tmp === '') {
|
||
|
|
$tmp = ' ';
|
||
|
|
} else {
|
||
|
|
$tmp = htmlspecialchars($tmp, ENT_QUOTES);
|
||
|
|
}
|
||
|
|
|
||
|
|
echo $tmp;
|
||
|
|
} elseif ($data_type == 16) { // insurance company list
|
||
|
|
$tmp = '';
|
||
|
|
if ($currvalue) {
|
||
|
|
$insprovs = getInsuranceProviders();
|
||
|
|
foreach ($insprovs as $key => $ipname) {
|
||
|
|
if ($currvalue == $key) {
|
||
|
|
$tmp = $ipname;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (empty($tmp)) {
|
||
|
|
$tmp = "($currvalue)";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($tmp === '') {
|
||
|
|
$tmp = ' ';
|
||
|
|
} else {
|
||
|
|
$tmp = htmlspecialchars($tmp, ENT_QUOTES);
|
||
|
|
}
|
||
|
|
|
||
|
|
echo $tmp;
|
||
|
|
} elseif ($data_type == 17) { // issue types
|
||
|
|
$tmp = '';
|
||
|
|
if ($currvalue) {
|
||
|
|
foreach ($ISSUE_TYPES as $key => $value) {
|
||
|
|
if ($currvalue == $key) {
|
||
|
|
$tmp = $value[1];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (empty($tmp)) {
|
||
|
|
$tmp = "($currvalue)";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($tmp === '') {
|
||
|
|
$tmp = ' ';
|
||
|
|
} else {
|
||
|
|
$tmp = htmlspecialchars($tmp, ENT_QUOTES);
|
||
|
|
}
|
||
|
|
|
||
|
|
echo $tmp;
|
||
|
|
} elseif ($data_type == 18) { // Visit categories.
|
||
|
|
$tmp = '';
|
||
|
|
if ($currvalue) {
|
||
|
|
$crow = sqlQuery(
|
||
|
|
"SELECT pc_catid, pc_catname " .
|
||
|
|
"FROM openemr_postcalendar_categories WHERE pc_catid = ?",
|
||
|
|
array($currvalue)
|
||
|
|
);
|
||
|
|
$tmp = xl_appt_category($crow['pc_catname']);
|
||
|
|
if (empty($tmp)) {
|
||
|
|
$tmp = "($currvalue)";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($tmp === '') {
|
||
|
|
$tmp = ' ';
|
||
|
|
} else {
|
||
|
|
$tmp = htmlspecialchars($tmp, ENT_QUOTES);
|
||
|
|
}
|
||
|
|
|
||
|
|
echo $tmp;
|
||
|
|
} elseif ($data_type == 21) { // a single checkbox or set of labeled checkboxes
|
||
|
|
if (!$list_id) {
|
||
|
|
echo "<input type='checkbox'";
|
||
|
|
if ($currvalue) {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
echo " />";
|
||
|
|
} else {
|
||
|
|
// In this special case, fld_length is the number of columns generated.
|
||
|
|
$cols = max(1, $fld_length);
|
||
|
|
$avalue = explode('|', $currvalue);
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
echo "<table class='w-100' cellpadding='0' cellspacing='0'>";
|
||
|
|
$tdpct = (int) (100 / $cols);
|
||
|
|
for ($count = 0; $lrow = sqlFetchArray($lres); ++$count) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
if ($count % $cols == 0) {
|
||
|
|
if ($count) {
|
||
|
|
echo "</tr>";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "<tr>";
|
||
|
|
}
|
||
|
|
echo "<td width='" . attr($tdpct) . "%' nowrap>";
|
||
|
|
echo "<input type='checkbox'";
|
||
|
|
if (in_array($option_id, $avalue)) {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
echo ">" . htmlspecialchars(xl_list_label($lrow['title']), ENT_NOQUOTES);
|
||
|
|
echo "</td>";
|
||
|
|
}
|
||
|
|
if ($count) {
|
||
|
|
echo "</tr>";
|
||
|
|
if ($count > $cols) {
|
||
|
|
// Add some space after multiple rows of checkboxes.
|
||
|
|
$cols = htmlspecialchars($cols, ENT_QUOTES);
|
||
|
|
echo "<tr><td colspan='$cols' style='height:0.7em'></td></tr>";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
echo "</table>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 22) { // a set of labeled text input fields
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
$avalue = array();
|
||
|
|
foreach ($tmp as $value) {
|
||
|
|
if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
|
||
|
|
$avalue[$matches[1]] = $matches[2];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
echo "<table class='table'>";
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
$fldlength = empty($fld_length) ? 20 : $fld_length;
|
||
|
|
echo "<tr><td>" . htmlspecialchars(xl_list_label($lrow['title']), ENT_NOQUOTES) . " </td>";
|
||
|
|
$fldlength = htmlspecialchars($fldlength, ENT_QUOTES);
|
||
|
|
$inputValue = htmlspecialchars($avalue[$option_id], ENT_QUOTES);
|
||
|
|
echo "<td><input type='text'" .
|
||
|
|
" class='form-control' " .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
" value='$inputValue'" .
|
||
|
|
" class='under'" .
|
||
|
|
" /></td></tr>";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "</table>";
|
||
|
|
} elseif ($data_type == 23) { // a set of exam results; 3 radio buttons and a text field:
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
$avalue = array();
|
||
|
|
foreach ($tmp as $value) {
|
||
|
|
if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
|
||
|
|
$avalue[$matches[1]] = $matches[2];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$fldlength = empty($fld_length) ? 20 : $fld_length;
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
echo "<table class='table'>";
|
||
|
|
echo "<tr><td><td class='font-weight-bold'>" .
|
||
|
|
htmlspecialchars(xl('Exam or Test'), ENT_NOQUOTES) . "</td><td class='font-weight-bold'>" .
|
||
|
|
htmlspecialchars(xl('N/A'), ENT_NOQUOTES) .
|
||
|
|
" </td><td class='font-weight-bold'>" .
|
||
|
|
htmlspecialchars(xl('Nor'), ENT_NOQUOTES) . " </td>" .
|
||
|
|
"<td class='font-weight-bold'>" .
|
||
|
|
htmlspecialchars(xl('Abn'), ENT_NOQUOTES) . " </td><td class='font-weight-bold'>" .
|
||
|
|
htmlspecialchars(xl('Date/Notes'), ENT_NOQUOTES) . "</td></tr>";
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
$restype = substr($avalue[$option_id], 0, 1);
|
||
|
|
$resnote = substr($avalue[$option_id], 2);
|
||
|
|
echo "<tr><td>" . htmlspecialchars(xl_list_label($lrow['title']), ENT_NOQUOTES) . " </td>";
|
||
|
|
for ($i = 0; $i < 3; ++$i) {
|
||
|
|
echo "<td><input type='radio'";
|
||
|
|
if ($restype === "$i") {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo " /></td>";
|
||
|
|
}
|
||
|
|
|
||
|
|
$resnote = htmlspecialchars($resnote, ENT_QUOTES);
|
||
|
|
$fldlength = htmlspecialchars($fldlength, ENT_QUOTES);
|
||
|
|
echo "<td><input type='text'" .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
" value='$resnote'" .
|
||
|
|
" class='under form-control' /></td>" .
|
||
|
|
"</tr>";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "</table>";
|
||
|
|
} elseif ($data_type == 24) { // the list of active allergies for the current patient
|
||
|
|
// this is read-only!
|
||
|
|
$query = "SELECT title, comments FROM lists WHERE " .
|
||
|
|
"pid = ? AND type = 'allergy' AND enddate IS NULL " .
|
||
|
|
"ORDER BY begdate";
|
||
|
|
$lres = sqlStatement($query, array($GLOBALS['pid']));
|
||
|
|
$count = 0;
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
if ($count++) {
|
||
|
|
echo "<br />";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo htmlspecialchars($lrow['title'], ENT_QUOTES);
|
||
|
|
if ($lrow['comments']) {
|
||
|
|
echo htmlspecialchars(' (' . $lrow['comments'] . ')', ENT_QUOTES);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 25) { // a set of labeled checkboxes, each with a text field:
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
$avalue = array();
|
||
|
|
foreach ($tmp as $value) {
|
||
|
|
if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
|
||
|
|
$avalue[$matches[1]] = $matches[2];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$fldlength = empty($fld_length) ? 20 : $fld_length;
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
echo "<table class='table'>";
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
$restype = substr($avalue[$option_id], 0, 1);
|
||
|
|
$resnote = substr($avalue[$option_id], 2);
|
||
|
|
echo "<tr><td>" . htmlspecialchars(xl_list_label($lrow['title']), ENT_NOQUOTES) . " </td>";
|
||
|
|
echo "<td><input type='checkbox'";
|
||
|
|
if ($restype) {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo " /> </td>";
|
||
|
|
$fldlength = htmlspecialchars($fldlength, ENT_QUOTES);
|
||
|
|
$resnote = htmlspecialchars($resnote, ENT_QUOTES);
|
||
|
|
echo "<td><input type='text'" .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
" class='form-control' " .
|
||
|
|
" value='$resnote'" .
|
||
|
|
" class='under'" .
|
||
|
|
" /></td>" .
|
||
|
|
"</tr>";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "</table>";
|
||
|
|
} elseif ($data_type == 27) { // Removed: || $data_type == 1 || $data_type == 26 || $data_type == 33
|
||
|
|
// a set of labeled radio buttons
|
||
|
|
// In this special case, fld_length is the number of columns generated.
|
||
|
|
|
||
|
|
$cols = max(1, ($frow['fld_length'] ?? null));
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
echo "<table class='w-100' cellpadding='0' cellspacing='0'>";
|
||
|
|
$tdpct = (int) (100 / $cols);
|
||
|
|
for ($count = 0; $lrow = sqlFetchArray($lres); ++$count) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
if ($count % $cols == 0) {
|
||
|
|
if ($count) {
|
||
|
|
echo "</tr>";
|
||
|
|
}
|
||
|
|
echo "<tr>";
|
||
|
|
}
|
||
|
|
echo "<td width='" . attr($tdpct) . "%' nowrap>";
|
||
|
|
echo "<input type='radio'";
|
||
|
|
if (strlen($currvalue) > 0 && $option_id == $currvalue) {
|
||
|
|
// Do not use defaults for these printable forms.
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
echo ">" . htmlspecialchars(xl_list_label($lrow['title']), ENT_NOQUOTES);
|
||
|
|
echo "</td>";
|
||
|
|
}
|
||
|
|
if ($count) {
|
||
|
|
echo "</tr>";
|
||
|
|
if ($count > $cols) {
|
||
|
|
// Add some space after multiple rows of radio buttons.
|
||
|
|
$cols = htmlspecialchars($cols, ENT_QUOTES);
|
||
|
|
echo "<tr><td colspan='$cols' style='height:0.7em'></td></tr>";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
echo "</table>";
|
||
|
|
|
||
|
|
// special case for history of lifestyle status; 3 radio buttons and a date text field:
|
||
|
|
} elseif ($data_type == 28 || $data_type == 32) {
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
switch (count($tmp)) {
|
||
|
|
case "4":
|
||
|
|
$resnote = $tmp[0];
|
||
|
|
$restype = $tmp[1];
|
||
|
|
$resdate = oeFormatShortDate($tmp[2]) ;
|
||
|
|
$reslist = $tmp[3];
|
||
|
|
break;
|
||
|
|
case "3":
|
||
|
|
$resnote = $tmp[0];
|
||
|
|
$restype = $tmp[1];
|
||
|
|
$resdate = oeFormatShortDate($tmp[2]);
|
||
|
|
$reslist = '';
|
||
|
|
break;
|
||
|
|
case "2":
|
||
|
|
$resnote = $tmp[0];
|
||
|
|
$restype = $tmp[1];
|
||
|
|
$resdate = "";
|
||
|
|
$reslist = '';
|
||
|
|
break;
|
||
|
|
case "1":
|
||
|
|
$resnote = $tmp[0];
|
||
|
|
$resdate = $restype = "";
|
||
|
|
$reslist = '';
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
$restype = $resdate = $resnote = "";
|
||
|
|
$reslist = '';
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
$fldlength = empty($frow['fld_length']) ? 20 : $frow['fld_length'];
|
||
|
|
echo "<table class='table'>";
|
||
|
|
echo "<tr>";
|
||
|
|
$fldlength = htmlspecialchars($fldlength, ENT_QUOTES);
|
||
|
|
$resnote = htmlspecialchars($resnote, ENT_QUOTES);
|
||
|
|
$resdate = htmlspecialchars($resdate, ENT_QUOTES);
|
||
|
|
if ($data_type == 28) {
|
||
|
|
echo "<td><input type='text'" .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
" class='under'" .
|
||
|
|
" value='$resnote' /></td>";
|
||
|
|
echo "<td class='font-weight-bold'> " .
|
||
|
|
" " .
|
||
|
|
htmlspecialchars(xl('Status'), ENT_NOQUOTES) . ": </td>";
|
||
|
|
} elseif ($data_type == 32) {
|
||
|
|
echo "<tr><td><input type='text'" .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
" class='under form-control'" .
|
||
|
|
" value='$resnote' /></td></tr>";
|
||
|
|
$fldlength = 30;
|
||
|
|
$smoking_status_title = generate_display_field(array('data_type' => '1','list_id' => $list_id), $reslist);
|
||
|
|
echo "<td><input type='text'" .
|
||
|
|
" size='$fldlength'" .
|
||
|
|
" class='under form-control'" .
|
||
|
|
" value='$smoking_status_title' /></td>";
|
||
|
|
echo "<td class='font-weight-bold'> " . htmlspecialchars(xl('Status'), ENT_NOQUOTES) . ": </td>";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "<td><input type='radio' class='form-check-inline'";
|
||
|
|
if ($restype == "current" . $field_id) {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "/>" . htmlspecialchars(xl('Current'), ENT_NOQUOTES) . " </td>";
|
||
|
|
|
||
|
|
echo "<td><input type='radio' class='form-check-inline'";
|
||
|
|
if ($restype == "current" . $field_id) {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "/>" . htmlspecialchars(xl('Quit'), ENT_NOQUOTES) . " </td>";
|
||
|
|
|
||
|
|
echo "<td><input type='text' size='6'" .
|
||
|
|
" value='$resdate'" .
|
||
|
|
" class='under form-control'" .
|
||
|
|
" /></td>";
|
||
|
|
|
||
|
|
echo "<td><input type='radio' class='form-check-inline'";
|
||
|
|
if ($restype == "current" . $field_id) {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo " />" . htmlspecialchars(xl('Never'), ENT_NOQUOTES) . "</td>";
|
||
|
|
|
||
|
|
echo "<td><input type='radio' class='form-check-inline'";
|
||
|
|
if ($restype == "not_applicable" . $field_id) {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo " />" . htmlspecialchars(xl('N/A'), ENT_NOQUOTES) . " </td>";
|
||
|
|
echo "</tr>";
|
||
|
|
echo "</table>";
|
||
|
|
} elseif ($data_type == 31) { // static text. read-only, of course.
|
||
|
|
echo parse_static_text($frow, $value_allowed);
|
||
|
|
} elseif ($data_type == 34) {
|
||
|
|
echo "<a href='../../../library/custom_template/custom_template.php?type=form_{$field_id}&contextName=" . htmlspecialchars($list_id_esc, ENT_QUOTES) . "' class='iframe_medium text-body text-decoration-none'>";
|
||
|
|
echo "<div id='form_{$field_id}_div' class='text-area'></div>";
|
||
|
|
echo "<div style='display: none'><textarea name='form_{$field_id}' class='form-control' id='form_{$field_id}' style='display: none'></textarea></div>";
|
||
|
|
echo "</a>";
|
||
|
|
|
||
|
|
// Facilities. Changed 2017-12-15 to not show the choices.
|
||
|
|
} elseif ($data_type == 35) {
|
||
|
|
$urow = sqlQuery(
|
||
|
|
"SELECT id, name FROM facility WHERE id = ?",
|
||
|
|
array($currvalue)
|
||
|
|
);
|
||
|
|
echo empty($urow['id']) ? ' ' : text($urow['name']);
|
||
|
|
} elseif ($data_type == 36) { //Multi-select. Supports backup lists.
|
||
|
|
if (empty($fld_length)) {
|
||
|
|
if ($list_id == 'titles') {
|
||
|
|
$fld_length = 3;
|
||
|
|
} else {
|
||
|
|
$fld_length = 10;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$tmp = '';
|
||
|
|
|
||
|
|
$values_array = explode("|", $currvalue);
|
||
|
|
|
||
|
|
$i = 0;
|
||
|
|
foreach ($values_array as $value) {
|
||
|
|
if ($value) {
|
||
|
|
$lrow = sqlQuery("SELECT title FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND option_id = ? AND activity = 1", array($list_id,$value));
|
||
|
|
$tmp = xl_list_label($lrow['title']);
|
||
|
|
if ($lrow == 0 && !empty($backup_list)) {
|
||
|
|
// since primary list did not map, try to map to backup list
|
||
|
|
$lrow = sqlQuery("SELECT title FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND option_id = ? AND activity = 1", array($backup_list,$currvalue));
|
||
|
|
$tmp = xl_list_label($lrow['title']);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (empty($tmp)) {
|
||
|
|
$tmp = "($value)";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($tmp === '') {
|
||
|
|
$tmp = ' ';
|
||
|
|
} else {
|
||
|
|
$tmp = htmlspecialchars($tmp, ENT_QUOTES);
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($i != 0 && $tmp != ' ') {
|
||
|
|
echo ",";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo $tmp;
|
||
|
|
$i++;
|
||
|
|
}
|
||
|
|
|
||
|
|
// A set of lab test results; Gestation, 3 radio buttons, test value, notes field:
|
||
|
|
} elseif ($data_type == 37) {
|
||
|
|
echo genLabResults($frow, $currvalue, 1, $disabled);
|
||
|
|
} elseif ($data_type == 40) { // Image from canvas drawing
|
||
|
|
if (empty($currvalue)) {
|
||
|
|
if (preg_match('/\\bimage=([a-zA-Z0-9._-]*)/', $frow['description'], $matches)) {
|
||
|
|
$currvalue = $GLOBALS['web_root'] . '/sites/' . $_SESSION['site_id'] . '/images/' . $matches[1];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($currvalue) {
|
||
|
|
echo "<img src='" . attr($currvalue) . "'>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 41 || $data_type == 42) {
|
||
|
|
if ($currvalue) {
|
||
|
|
echo "<img class='w-auto' style='height: 70px;' src='" . attr($currvalue) . "'>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 44 || $data_type == 45) {
|
||
|
|
$tmp = '';
|
||
|
|
|
||
|
|
$values_array = explode("|", $currvalue);
|
||
|
|
|
||
|
|
$i = 0;
|
||
|
|
foreach ($values_array as $value) {
|
||
|
|
if ($value) {
|
||
|
|
if ($data_type == 44) {
|
||
|
|
$lrow = sqlQuery("SELECT name as name FROM facility WHERE id = ?", array($value));
|
||
|
|
}
|
||
|
|
if ($data_type == 45) {
|
||
|
|
$lrow = sqlQuery("SELECT CONCAT(fname,' ',lname) as name FROM users WHERE id = ?", array($value));
|
||
|
|
}
|
||
|
|
$tmp = $lrow['name'];
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($tmp === '') {
|
||
|
|
$tmp = ' ';
|
||
|
|
} else {
|
||
|
|
$tmp = htmlspecialchars($tmp, ENT_QUOTES);
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($i != 0 && $tmp != ' ') {
|
||
|
|
echo ",";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo $tmp;
|
||
|
|
$i++;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Patient selector field.
|
||
|
|
} elseif ($data_type == 51) {
|
||
|
|
if (!empty($currvalue)) {
|
||
|
|
$tmp = text(getPatientDescription($currvalue));
|
||
|
|
} else {
|
||
|
|
echo ' ';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param $list_id
|
||
|
|
* @param bool $translate
|
||
|
|
* @return array
|
||
|
|
*
|
||
|
|
* Generate a key-value array containing each row of the specified list,
|
||
|
|
* with the option ID as the index, and the title as the element
|
||
|
|
*
|
||
|
|
* Pass in the list_id to specify this list.
|
||
|
|
*
|
||
|
|
* Use the translate flag to run the title element through the translator
|
||
|
|
*/
|
||
|
|
function generate_list_map($list_id, $translate = false)
|
||
|
|
{
|
||
|
|
$result = sqlStatement("SELECT option_id, title FROM list_options WHERE list_id = ?", [$list_id]);
|
||
|
|
$map = [];
|
||
|
|
while ($row = sqlFetchArray($result)) {
|
||
|
|
if ($translate === true) {
|
||
|
|
$title = xl_list_label($row['title']);
|
||
|
|
} else {
|
||
|
|
$title = $row['title'];
|
||
|
|
}
|
||
|
|
$map[$row['option_id']] = $title;
|
||
|
|
}
|
||
|
|
|
||
|
|
return $map;
|
||
|
|
}
|
||
|
|
|
||
|
|
function generate_display_field($frow, $currvalue)
|
||
|
|
{
|
||
|
|
global $ISSUE_TYPES, $facilityService;
|
||
|
|
|
||
|
|
$data_type = $frow['data_type'];
|
||
|
|
$field_id = isset($frow['field_id']) ? $frow['field_id'] : null;
|
||
|
|
$list_id = $frow['list_id'];
|
||
|
|
$backup_list = isset($frow['list_backup_id']) ? $frow['list_backup_id'] : null;
|
||
|
|
|
||
|
|
$s = '';
|
||
|
|
|
||
|
|
// generic selection list or the generic selection list with add on the fly
|
||
|
|
// feature
|
||
|
|
if ($data_type == 1 || $data_type == 26 || $data_type == 43 || $data_type == 46) {
|
||
|
|
if ($data_type == 46) {
|
||
|
|
// support for single-selection list with comment support
|
||
|
|
$selectedValues = explode("|", $currvalue);
|
||
|
|
$currvalue = $selectedValues[0];
|
||
|
|
}
|
||
|
|
|
||
|
|
$lrow = sqlQuery("SELECT title FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND option_id = ? AND activity = 1", array($list_id,$currvalue));
|
||
|
|
$s = htmlspecialchars(xl_list_label($lrow['title'] ?? ''), ENT_NOQUOTES);
|
||
|
|
//if there is no matching value in the corresponding lists check backup list
|
||
|
|
// only supported in data types 1,26,43,46
|
||
|
|
if ($lrow == 0 && !empty($backup_list) && ($data_type == 1 || $data_type == 26 || $$data_type == 43 || $data_type == 46)) {
|
||
|
|
$lrow = sqlQuery("SELECT title FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND option_id = ? AND activity = 1", array($backup_list,$currvalue));
|
||
|
|
$s = htmlspecialchars(xl_list_label($lrow['title']), ENT_NOQUOTES);
|
||
|
|
}
|
||
|
|
|
||
|
|
// If match is not found in main and backup lists, return the key with exclamation mark
|
||
|
|
if ($s == '') {
|
||
|
|
$s = nl2br(text(xl_list_label($currvalue))) .
|
||
|
|
'<span> <i class="fa fas fa-exclamation-circle ml-1"></i></span>';
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($data_type == 46) {
|
||
|
|
// support for single-selection list with comment support
|
||
|
|
$resnote = $selectedValues[1] ?? null;
|
||
|
|
if (!empty($resnote)) {
|
||
|
|
$s .= " (" . text($resnote) . ")";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 2) { // simple text field
|
||
|
|
$s = nl2br(htmlspecialchars($currvalue, ENT_NOQUOTES));
|
||
|
|
} elseif ($data_type == 3) { // long or multi-line text field
|
||
|
|
$s = nl2br(htmlspecialchars($currvalue, ENT_NOQUOTES));
|
||
|
|
} elseif ($data_type == 4) { // date
|
||
|
|
$asof = ''; //not used here, but set to prevent a php warning when call optionalAge
|
||
|
|
$s = '';
|
||
|
|
$description = (isset($frow['description']) ? htmlspecialchars(xl_layout_label($frow['description']), ENT_QUOTES) : '');
|
||
|
|
$age_asof_date = '';
|
||
|
|
$agestr = optionalAge($frow, $currvalue, $age_asof_date, $description);
|
||
|
|
if ($currvalue === '') {
|
||
|
|
$s .= ' ';
|
||
|
|
} else {
|
||
|
|
$modtmp = isOption($frow['edit_options'], 'F') === false ? 0 : 1;
|
||
|
|
if (!$modtmp) {
|
||
|
|
$s .= text(oeFormatShortDate($currvalue));
|
||
|
|
} else {
|
||
|
|
$s .= text(oeFormatDateTime($currvalue));
|
||
|
|
}
|
||
|
|
if ($agestr) {
|
||
|
|
$s .= " (" . text($agestr) . ")";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 10 || $data_type == 11) { // provider
|
||
|
|
$urow = sqlQuery("SELECT fname, lname, specialty FROM users " .
|
||
|
|
"WHERE id = ?", array($currvalue));
|
||
|
|
$s = text(ucwords(($urow['fname'] ?? '') . " " . ($urow['lname'] ?? '')));
|
||
|
|
} elseif ($data_type == 12) { // pharmacy list
|
||
|
|
$pres = get_pharmacies();
|
||
|
|
while ($prow = sqlFetchArray($pres)) {
|
||
|
|
$key = $prow['id'];
|
||
|
|
if ($currvalue == $key) {
|
||
|
|
$s .= htmlspecialchars($prow['name'] . ' ' . $prow['area_code'] . '-' .
|
||
|
|
$prow['prefix'] . '-' . $prow['number'] . ' / ' .
|
||
|
|
$prow['line1'] . ' / ' . $prow['city'], ENT_NOQUOTES);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 13) { // squads
|
||
|
|
$squads = AclExtended::aclGetSquads();
|
||
|
|
if ($squads) {
|
||
|
|
foreach ($squads as $key => $value) {
|
||
|
|
if ($currvalue == $key) {
|
||
|
|
$s .= htmlspecialchars($value[3], ENT_NOQUOTES);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 14) { // address book
|
||
|
|
$urow = sqlQuery("SELECT fname, lname, specialty, organization FROM users " .
|
||
|
|
"WHERE id = ?", array($currvalue));
|
||
|
|
//ViSolve: To display the Organization Name if it exist. Else it will display the user name.
|
||
|
|
if (!empty($urow['organization'])) {
|
||
|
|
$uname = $urow['organization'];
|
||
|
|
} else {
|
||
|
|
$uname = $urow['lname'] ?? '';
|
||
|
|
if (!empty($urow['fname'])) {
|
||
|
|
$uname .= ", " . $urow['fname'];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$s = htmlspecialchars($uname, ENT_NOQUOTES);
|
||
|
|
} elseif ($data_type == 15) { // billing code
|
||
|
|
$s = '';
|
||
|
|
if (!empty($currvalue)) {
|
||
|
|
$relcodes = explode(';', $currvalue);
|
||
|
|
foreach ($relcodes as $codestring) {
|
||
|
|
if ($codestring === '') {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
$tmp = lookup_code_descriptions($codestring);
|
||
|
|
if ($s !== '') {
|
||
|
|
$s .= '; ';
|
||
|
|
}
|
||
|
|
if (!empty($tmp)) {
|
||
|
|
$s .= text($tmp);
|
||
|
|
} else {
|
||
|
|
$s .= text($codestring) . ' (' . xlt('not found') . ')';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 16) { // insurance company list
|
||
|
|
$insprovs = getInsuranceProviders();
|
||
|
|
foreach ($insprovs as $key => $ipname) {
|
||
|
|
if ($currvalue == $key) {
|
||
|
|
$s .= htmlspecialchars($ipname, ENT_NOQUOTES);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 17) { // issue types
|
||
|
|
foreach ($ISSUE_TYPES as $key => $value) {
|
||
|
|
if ($currvalue == $key) {
|
||
|
|
$s .= htmlspecialchars($value[1], ENT_NOQUOTES);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 18) { // visit category
|
||
|
|
$crow = sqlQuery(
|
||
|
|
"SELECT pc_catid, pc_catname " .
|
||
|
|
"FROM openemr_postcalendar_categories WHERE pc_catid = ?",
|
||
|
|
array($currvalue)
|
||
|
|
);
|
||
|
|
$s = htmlspecialchars($crow['pc_catname'], ENT_NOQUOTES);
|
||
|
|
} elseif ($data_type == 21) { // a single checkbox or set of labeled checkboxes
|
||
|
|
if (!$list_id) {
|
||
|
|
$s .= $currvalue ? '[ x ]' : '[ ]';
|
||
|
|
} else {
|
||
|
|
// In this special case, fld_length is the number of columns generated.
|
||
|
|
$cols = max(1, $frow['fld_length']);
|
||
|
|
$avalue = explode('|', $currvalue);
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
$s .= "<table cellspacing='0' cellpadding='0'>";
|
||
|
|
for ($count = 0; $lrow = sqlFetchArray($lres); ++$count) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
$option_id_esc = text($option_id);
|
||
|
|
if ($count % $cols == 0) {
|
||
|
|
if ($count) {
|
||
|
|
$s .= "</tr>";
|
||
|
|
}
|
||
|
|
$s .= "<tr>";
|
||
|
|
}
|
||
|
|
$s .= "<td nowrap>";
|
||
|
|
$checked = in_array($option_id, $avalue);
|
||
|
|
$s .= $checked ? '[ x ]' : '[ ]';
|
||
|
|
$s .= ' ' . text(xl_list_label($lrow['title'])) . ' ';
|
||
|
|
$s .= "</td>";
|
||
|
|
}
|
||
|
|
if ($count) {
|
||
|
|
$s .= "</tr>";
|
||
|
|
}
|
||
|
|
$s .= "</table>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 22) { // a set of labeled text input fields
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
$avalue = array();
|
||
|
|
foreach ($tmp as $value) {
|
||
|
|
if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
|
||
|
|
$avalue[$matches[1]] = $matches[2];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
$s .= "<table class='table'>";
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
if (empty($avalue[$option_id])) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Added 5-09 by BM - Translate label if applicable
|
||
|
|
$s .= "<tr><td class='font-weight-bold align-top'>" . htmlspecialchars(xl_list_label($lrow['title']), ENT_NOQUOTES) . ": </td>";
|
||
|
|
|
||
|
|
$s .= "<td class='text align-top'>" . htmlspecialchars($avalue[$option_id], ENT_NOQUOTES) . "</td></tr>";
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= "</table>";
|
||
|
|
} elseif ($data_type == 23) { // a set of exam results; 3 radio buttons and a text field:
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
$avalue = array();
|
||
|
|
foreach ($tmp as $value) {
|
||
|
|
if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
|
||
|
|
$avalue[$matches[1]] = $matches[2];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
$s .= "<table class='table'>";
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
$restype = substr(($avalue[$option_id] ?? ''), 0, 1);
|
||
|
|
$resnote = substr(($avalue[$option_id] ?? ''), 2);
|
||
|
|
if (empty($restype) && empty($resnote)) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Added 5-09 by BM - Translate label if applicable
|
||
|
|
$s .= "<tr><td class='font-weight-bold align-top'>" . htmlspecialchars(xl_list_label($lrow['title']), ENT_NOQUOTES) . " </td>";
|
||
|
|
|
||
|
|
$restype = ($restype == '1') ? xl('Normal') : (($restype == '2') ? xl('Abnormal') : xl('N/A'));
|
||
|
|
// $s .= "<td class='text align-top'>$restype</td></tr>";
|
||
|
|
// $s .= "<td class='text align-top'>$resnote</td></tr>";
|
||
|
|
$s .= "<td class='text align-top'>" . htmlspecialchars($restype, ENT_NOQUOTES) . " </td>";
|
||
|
|
$s .= "<td class='text align-top'>" . htmlspecialchars($resnote, ENT_NOQUOTES) . "</td>";
|
||
|
|
$s .= "</tr>";
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= "</table>";
|
||
|
|
} elseif ($data_type == 24) { // the list of active allergies for the current patient
|
||
|
|
$query = "SELECT title, comments FROM lists WHERE " .
|
||
|
|
"pid = ? AND type = 'allergy' AND enddate IS NULL " .
|
||
|
|
"ORDER BY begdate";
|
||
|
|
// echo "<!-- $query -->\n"; // debugging
|
||
|
|
$lres = sqlStatement($query, array($GLOBALS['pid']));
|
||
|
|
$count = 0;
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
if ($count++) {
|
||
|
|
$s .= "<br />";
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= htmlspecialchars($lrow['title'], ENT_NOQUOTES);
|
||
|
|
if ($lrow['comments']) {
|
||
|
|
$s .= ' (' . htmlspecialchars($lrow['comments'], ENT_NOQUOTES) . ')';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 25) { // a set of labeled checkboxes, each with a text field:
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
$avalue = array();
|
||
|
|
foreach ($tmp as $value) {
|
||
|
|
if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
|
||
|
|
$avalue[$matches[1]] = $matches[2];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
$s .= "<table class='table'>";
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
$restype = substr($avalue[$option_id], 0, 1);
|
||
|
|
$resnote = substr($avalue[$option_id], 2);
|
||
|
|
if (empty($restype) && empty($resnote)) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Added 5-09 by BM - Translate label if applicable
|
||
|
|
$s .= "<tr><td class='font-weight-bold align-top'>" . htmlspecialchars(xl_list_label($lrow['title']), ENT_NOQUOTES) . " </td>";
|
||
|
|
|
||
|
|
$restype = $restype ? xl('Yes') : xl('No');
|
||
|
|
$s .= "<td class='text align-top'>" . htmlspecialchars($restype, ENT_NOQUOTES) . " </td>";
|
||
|
|
$s .= "<td class='text align-top'>" . htmlspecialchars($resnote, ENT_NOQUOTES) . "</td>";
|
||
|
|
$s .= "</tr>";
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= "</table>";
|
||
|
|
} elseif ($data_type == 27) { // a set of labeled radio buttons
|
||
|
|
// In this special case, fld_length is the number of columns generated.
|
||
|
|
$cols = max(1, $frow['fld_length']);
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? ORDER BY seq, title", array($list_id));
|
||
|
|
$s .= "<table cellspacing='0' cellpadding='0'>";
|
||
|
|
for ($count = 0; $lrow = sqlFetchArray($lres); ++$count) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
$option_id_esc = text($option_id);
|
||
|
|
if ($count % $cols == 0) {
|
||
|
|
if ($count) {
|
||
|
|
$s .= "</tr>";
|
||
|
|
}
|
||
|
|
$s .= "<tr>";
|
||
|
|
}
|
||
|
|
$s .= "<td nowrap>";
|
||
|
|
$checked = ((strlen($currvalue) == 0 && $lrow['is_default']) ||
|
||
|
|
(strlen($currvalue) > 0 && $option_id == $currvalue));
|
||
|
|
$s .= $checked ? '[ x ]' : '[ ]';
|
||
|
|
$s .= ' ' . text(xl_list_label($lrow['title'])) . ' ';
|
||
|
|
$s .= "</td>";
|
||
|
|
}
|
||
|
|
if ($count) {
|
||
|
|
$s .= "</tr>";
|
||
|
|
}
|
||
|
|
$s .= "</table>";
|
||
|
|
} elseif ($data_type == 28 || $data_type == 32) { // special case for history of lifestyle status; 3 radio buttons
|
||
|
|
// and a date text field:
|
||
|
|
// VicarePlus :: A selection list for smoking status.
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
switch (count($tmp)) {
|
||
|
|
case "4":
|
||
|
|
$resnote = $tmp[0];
|
||
|
|
$restype = $tmp[1];
|
||
|
|
$resdate = oeFormatShortDate($tmp[2]);
|
||
|
|
$reslist = $tmp[3];
|
||
|
|
break;
|
||
|
|
case "3":
|
||
|
|
$resnote = $tmp[0];
|
||
|
|
$restype = $tmp[1];
|
||
|
|
$resdate = oeFormatShortDate($tmp[2]);
|
||
|
|
$reslist = '';
|
||
|
|
break;
|
||
|
|
case "2":
|
||
|
|
$resnote = $tmp[0];
|
||
|
|
$restype = $tmp[1];
|
||
|
|
$resdate = "";
|
||
|
|
$reslist = '';
|
||
|
|
break;
|
||
|
|
case "1":
|
||
|
|
$resnote = $tmp[0];
|
||
|
|
$resdate = $restype = "";
|
||
|
|
$reslist = '';
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
$restype = $resdate = $resnote = "";
|
||
|
|
$reslist = '';
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= "<table class='table'>";
|
||
|
|
|
||
|
|
$s .= "<tr>";
|
||
|
|
$res = "";
|
||
|
|
if ($restype == "current" . $field_id) {
|
||
|
|
$res = xl('Current');
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($restype == "quit" . $field_id) {
|
||
|
|
$res = xl('Quit');
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($restype == "never" . $field_id) {
|
||
|
|
$res = xl('Never');
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($restype == "not_applicable" . $field_id) {
|
||
|
|
$res = xl('N/A');
|
||
|
|
}
|
||
|
|
|
||
|
|
// $s .= "<td class='text align-top'>$restype</td></tr>";
|
||
|
|
// $s .= "<td class='text align-top'>$resnote</td></tr>";
|
||
|
|
if ($data_type == 28) {
|
||
|
|
if (!empty($resnote)) {
|
||
|
|
$s .= "<td class='text align-top'>" . htmlspecialchars($resnote, ENT_NOQUOTES) . " </td>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 32) { //VicarePlus :: Tobacco field has a listbox, text box, date field and 3 radio buttons.
|
||
|
|
// changes on 5-jun-2k14 (regarding 'Smoking Status - display SNOMED code description')
|
||
|
|
$smoke_codes = getSmokeCodes();
|
||
|
|
if (!empty($reslist)) {
|
||
|
|
if ($smoke_codes[$reslist] != "") {
|
||
|
|
$code_desc = "( " . $smoke_codes[$reslist] . " )";
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= "<td class='text align-top'>" . generate_display_field(array('data_type' => '1','list_id' => $list_id), $reslist) . " " . text($code_desc) . " </td>";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($resnote)) {
|
||
|
|
$s .= "<td class='text align-top'>" . htmlspecialchars($resnote, ENT_NOQUOTES) . " </td>";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($res)) {
|
||
|
|
$s .= "<td class='text align-top'><strong>" . htmlspecialchars(xl('Status'), ENT_NOQUOTES) . "</strong>: " . htmlspecialchars($res, ENT_NOQUOTES) . " </td>";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($restype == "quit" . $field_id) {
|
||
|
|
$s .= "<td class='text align-top'>" . htmlspecialchars($resdate, ENT_NOQUOTES) . " </td>";
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= "</tr>";
|
||
|
|
$s .= "</table>";
|
||
|
|
} elseif ($data_type == 31) { // static text. read-only, of course.
|
||
|
|
$s .= parse_static_text($frow);
|
||
|
|
} elseif ($data_type == 34) {
|
||
|
|
$arr = explode("|*|*|*|", $currvalue);
|
||
|
|
for ($i = 0; $i < sizeof($arr); $i++) {
|
||
|
|
$s .= $arr[$i];
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 35) { // facility
|
||
|
|
$urow = $facilityService->getById($currvalue);
|
||
|
|
$s = htmlspecialchars($urow['name'], ENT_NOQUOTES);
|
||
|
|
} elseif ($data_type == 36 || $data_type == 33) { // Multi select. Supports backup lists
|
||
|
|
$values_array = explode("|", $currvalue);
|
||
|
|
$i = 0;
|
||
|
|
foreach ($values_array as $value) {
|
||
|
|
$lrow = sqlQuery("SELECT title FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND option_id = ? AND activity = 1", array($list_id,$value));
|
||
|
|
if ($lrow == 0 && !empty($backup_list)) {
|
||
|
|
//use back up list
|
||
|
|
$lrow = sqlQuery("SELECT title FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND option_id = ? AND activity = 1", array($backup_list,$value));
|
||
|
|
}
|
||
|
|
|
||
|
|
$title = $lrow['title'] ?? '';
|
||
|
|
if ($i > 0) {
|
||
|
|
$s = $s . ", " . text(xl_list_label($title));
|
||
|
|
} else {
|
||
|
|
$s = text(xl_list_label($title));
|
||
|
|
}
|
||
|
|
|
||
|
|
$i++;
|
||
|
|
}
|
||
|
|
|
||
|
|
// A set of lab test results; Gestation, 3 radio buttons, test value, notes field:
|
||
|
|
} elseif ($data_type == 37) {
|
||
|
|
$s .= genLabResults($frow, $currvalue, 2, '');
|
||
|
|
} elseif ($data_type == 40) { // Image from canvas drawing
|
||
|
|
if (empty($currvalue)) {
|
||
|
|
if (preg_match('/\\bimage=([a-zA-Z0-9._-]*)/', $frow['description'], $matches)) {
|
||
|
|
$currvalue = $GLOBALS['web_root'] . '/sites/' . $_SESSION['site_id'] . '/images/' . $matches[1];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($currvalue) {
|
||
|
|
$s .= "<img src='" . attr($currvalue) . "'>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 41 || $data_type == 42) {
|
||
|
|
if ($currvalue) {
|
||
|
|
$s .= "<img class='w-auto' style='height: 70px;' src='" . attr($currvalue) . "'>";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 44 || $data_type == 45) { // Multiple select facility and provider
|
||
|
|
$values_array = explode("|", $currvalue);
|
||
|
|
$i = 0;
|
||
|
|
foreach ($values_array as $value) {
|
||
|
|
if ($data_type == 44) {
|
||
|
|
$lrow = sqlQuery("SELECT name as name FROM facility WHERE id = ?", array($value));
|
||
|
|
}
|
||
|
|
if ($data_type == 45) {
|
||
|
|
$lrow = sqlQuery("SELECT CONCAT(fname,' ',lname) as name FROM users WHERE id = ?", array($value));
|
||
|
|
}
|
||
|
|
if ($i > 0) {
|
||
|
|
$s = $s . ", " . htmlspecialchars($lrow['name'], ENT_NOQUOTES);
|
||
|
|
} else {
|
||
|
|
$s = text($lrow['name'] ?? '');
|
||
|
|
}
|
||
|
|
$i++;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Patient selector field.
|
||
|
|
} elseif ($data_type == 51) {
|
||
|
|
if (!empty($currvalue)) {
|
||
|
|
$s .= text(getPatientDescription($currvalue));
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 52) {
|
||
|
|
global $pid;
|
||
|
|
$patientService = new PatientService();
|
||
|
|
$rows = $patientService->getPatientNameHistory($pid);
|
||
|
|
$i = 0;
|
||
|
|
foreach ($rows as $row) {
|
||
|
|
// name escaped in fetch
|
||
|
|
if ($i > 0) {
|
||
|
|
$s .= ", " . $row['formatted_name'];
|
||
|
|
} else {
|
||
|
|
$s = $row['formatted_name'] ?? '';
|
||
|
|
}
|
||
|
|
$i++;
|
||
|
|
}
|
||
|
|
// now that we've concatenated everything, let's escape it.
|
||
|
|
$s = text($s);
|
||
|
|
} elseif ($data_type == 53) {
|
||
|
|
$service = new EncounterService();
|
||
|
|
if (!empty($currvalue)) {
|
||
|
|
$encounterResult = $service->getEncounterById($currvalue);
|
||
|
|
if (!empty($encounterResult) && $encounterResult->hasData()) {
|
||
|
|
$encounter = reset($encounterResult->getData());
|
||
|
|
$s = text($encounter['date'] ?? '');
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 54) {
|
||
|
|
include "templates/address_list_display.php";
|
||
|
|
}
|
||
|
|
|
||
|
|
return $s;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Generate plain text versions of selected LBF field types.
|
||
|
|
// Currently used by interface/patient_file/download_template.php and interface/main/finder/dynamic_finder_ajax.php.
|
||
|
|
// More field types might need to be supported here in the future.
|
||
|
|
//
|
||
|
|
function generate_plaintext_field($frow, $currvalue)
|
||
|
|
{
|
||
|
|
global $ISSUE_TYPES;
|
||
|
|
|
||
|
|
$data_type = $frow['data_type'];
|
||
|
|
$field_id = isset($frow['field_id']) ? $frow['field_id'] : null;
|
||
|
|
$list_id = $frow['list_id'];
|
||
|
|
$backup_list = $frow['backup_list'] ?? null;
|
||
|
|
$edit_options = $frow['edit_options'] ?? null;
|
||
|
|
$s = '';
|
||
|
|
|
||
|
|
// generic selection list or the generic selection list with add on the fly
|
||
|
|
// feature, or radio buttons
|
||
|
|
// Supports backup lists (for datatypes 1,26,43)
|
||
|
|
if ($data_type == 1 || $data_type == 26 || $data_type == 27 || $data_type == 43 || $data_type == 46) {
|
||
|
|
if ($data_type == 46) {
|
||
|
|
// support for single-selection list with comment support
|
||
|
|
$selectedValues = explode("|", $currvalue);
|
||
|
|
$currvalue = $selectedValues[0];
|
||
|
|
}
|
||
|
|
|
||
|
|
$lrow = sqlQuery(
|
||
|
|
"SELECT title FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND option_id = ? AND activity = 1",
|
||
|
|
array($list_id, $currvalue)
|
||
|
|
);
|
||
|
|
$s = xl_list_label($lrow['title'] ?? '');
|
||
|
|
//if there is no matching value in the corresponding lists check backup list
|
||
|
|
// only supported in data types 1,26,43
|
||
|
|
if ($lrow == 0 && !empty($backup_list) && ($data_type == 1 || $data_type == 26 || $data_type == 43 || $data_type == 46)) {
|
||
|
|
$lrow = sqlQuery("SELECT title FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND option_id = ? AND activity = 1", array($backup_list, $currvalue));
|
||
|
|
$s = xl_list_label($lrow['title']);
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($data_type == 46) {
|
||
|
|
// support for single-selection list with comment support
|
||
|
|
$resnote = $selectedValues[1] ?? null;
|
||
|
|
if (!empty($resnote)) {
|
||
|
|
$s .= " (" . $resnote . ")";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 2 || $data_type == 3 || $data_type == 15) { // simple or long text field
|
||
|
|
$s = $currvalue;
|
||
|
|
} elseif ($data_type == 4) { // date
|
||
|
|
$modtmp = isOption($edit_options, 'F') === false ? 0 : 1;
|
||
|
|
if (!$modtmp) {
|
||
|
|
$s = text(oeFormatShortDate($currvalue));
|
||
|
|
} else {
|
||
|
|
$s = text(oeFormatDateTime($currvalue));
|
||
|
|
}
|
||
|
|
$description = (isset($frow['description']) ? htmlspecialchars(xl_layout_label($frow['description']), ENT_QUOTES) : '');
|
||
|
|
$age_asof_date = '';
|
||
|
|
// Optional display of age or gestational age.
|
||
|
|
$tmp = optionalAge($frow, $currvalue, $age_asof_date, $description);
|
||
|
|
if ($tmp) {
|
||
|
|
$s .= ' ' . $tmp;
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 10 || $data_type == 11) { // provider
|
||
|
|
$urow = sqlQuery("SELECT fname, lname, specialty FROM users " .
|
||
|
|
"WHERE id = ?", array($currvalue));
|
||
|
|
$s = ucwords($urow['fname'] . " " . $urow['lname']);
|
||
|
|
} elseif ($data_type == 12) { // pharmacy list
|
||
|
|
$pres = get_pharmacies();
|
||
|
|
while ($prow = sqlFetchArray($pres)) {
|
||
|
|
$key = $prow['id'];
|
||
|
|
if ($currvalue == $key) {
|
||
|
|
$s .= $prow['name'] . ' ' . $prow['area_code'] . '-' .
|
||
|
|
$prow['prefix'] . '-' . $prow['number'] . ' / ' .
|
||
|
|
$prow['line1'] . ' / ' . $prow['city'];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 14) { // address book
|
||
|
|
$urow = sqlQuery("SELECT fname, lname, specialty FROM users " .
|
||
|
|
"WHERE id = ?", array($currvalue));
|
||
|
|
$uname = $urow['lname'];
|
||
|
|
if ($urow['fname']) {
|
||
|
|
$uname .= ", " . $urow['fname'];
|
||
|
|
}
|
||
|
|
|
||
|
|
$s = $uname;
|
||
|
|
} elseif ($data_type == 16) { // insurance company list
|
||
|
|
$insprovs = getInsuranceProviders();
|
||
|
|
foreach ($insprovs as $key => $ipname) {
|
||
|
|
if ($currvalue == $key) {
|
||
|
|
$s .= $ipname;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 17) { // issue type
|
||
|
|
foreach ($ISSUE_TYPES as $key => $value) {
|
||
|
|
if ($currvalue == $key) {
|
||
|
|
$s .= $value[1];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 18) { // visit category
|
||
|
|
$crow = sqlQuery(
|
||
|
|
"SELECT pc_catid, pc_catname " .
|
||
|
|
"FROM openemr_postcalendar_categories WHERE pc_catid = ?",
|
||
|
|
array($currvalue)
|
||
|
|
);
|
||
|
|
$s = $crow['pc_catname'];
|
||
|
|
} elseif ($data_type == 21) { // a set of labeled checkboxes
|
||
|
|
if (!$list_id) {
|
||
|
|
$s .= $currvalue ? xlt('Yes') : xlt('No');
|
||
|
|
} else {
|
||
|
|
$avalue = explode('|', $currvalue);
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
$count = 0;
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
if (in_array($option_id, $avalue)) {
|
||
|
|
if ($count++) {
|
||
|
|
$s .= "; ";
|
||
|
|
}
|
||
|
|
$s .= xl_list_label($lrow['title']);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 22) { // a set of labeled text input fields
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
$avalue = array();
|
||
|
|
foreach ($tmp as $value) {
|
||
|
|
if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
|
||
|
|
$avalue[$matches[1]] = $matches[2];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
if (empty($avalue[$option_id])) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($s !== '') {
|
||
|
|
$s .= '; ';
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= xl_list_label($lrow['title']) . ': ';
|
||
|
|
$s .= $avalue[$option_id];
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 23) { // A set of exam results; 3 radio buttons and a text field.
|
||
|
|
// This shows abnormal results only.
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
$avalue = array();
|
||
|
|
foreach ($tmp as $value) {
|
||
|
|
if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
|
||
|
|
$avalue[$matches[1]] = $matches[2];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
$restype = substr($avalue[$option_id], 0, 1);
|
||
|
|
$resnote = substr($avalue[$option_id], 2);
|
||
|
|
if (empty($restype) && empty($resnote)) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($restype != '2') {
|
||
|
|
continue; // show abnormal results only
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($s !== '') {
|
||
|
|
$s .= '; ';
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= xl_list_label($lrow['title']);
|
||
|
|
if (!empty($resnote)) {
|
||
|
|
$s .= ': ' . $resnote;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 24) { // the list of active allergies for the current patient
|
||
|
|
$query = "SELECT title, comments FROM lists WHERE " .
|
||
|
|
"pid = ? AND type = 'allergy' AND enddate IS NULL " .
|
||
|
|
"ORDER BY begdate";
|
||
|
|
$lres = sqlStatement($query, array($GLOBALS['pid']));
|
||
|
|
$count = 0;
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
if ($count++) {
|
||
|
|
$s .= "; ";
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= $lrow['title'];
|
||
|
|
if ($lrow['comments']) {
|
||
|
|
$s .= ' (' . $lrow['comments'] . ')';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 25) { // a set of labeled checkboxes, each with a text field:
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
$avalue = array();
|
||
|
|
foreach ($tmp as $value) {
|
||
|
|
if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
|
||
|
|
$avalue[$matches[1]] = $matches[2];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$lres = sqlStatement("SELECT * FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND activity = 1 ORDER BY seq, title", array($list_id));
|
||
|
|
while ($lrow = sqlFetchArray($lres)) {
|
||
|
|
$option_id = $lrow['option_id'];
|
||
|
|
$restype = substr($avalue[$option_id], 0, 1);
|
||
|
|
$resnote = substr($avalue[$option_id], 2);
|
||
|
|
if (empty($restype) && empty($resnote)) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($s !== '') {
|
||
|
|
$s .= '; ';
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= xl_list_label($lrow['title']);
|
||
|
|
$restype = $restype ? xl('Yes') : xl('No');
|
||
|
|
$s .= $restype;
|
||
|
|
if ($resnote) {
|
||
|
|
$s .= ' ' . $resnote;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 28 || $data_type == 32) { // special case for history of lifestyle status; 3 radio buttons and a date text field:
|
||
|
|
// VicarePlus :: A selection list for smoking status.
|
||
|
|
$tmp = explode('|', $currvalue);
|
||
|
|
$resnote = count($tmp) > 0 ? $tmp[0] : '';
|
||
|
|
$restype = count($tmp) > 1 ? $tmp[1] : '';
|
||
|
|
$resdate = count($tmp) > 2 ? oeFormatShortDate($tmp[2]) : '';
|
||
|
|
$reslist = count($tmp) > 3 ? $tmp[3] : '';
|
||
|
|
$res = "";
|
||
|
|
if ($restype == "current" . $field_id) {
|
||
|
|
$res = xl('Current');
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($restype == "quit" . $field_id) {
|
||
|
|
$res = xl('Quit');
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($restype == "never" . $field_id) {
|
||
|
|
$res = xl('Never');
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($restype == "not_applicable" . $field_id) {
|
||
|
|
$res = xl('N/A');
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($data_type == 28) {
|
||
|
|
if (!empty($resnote)) {
|
||
|
|
$s .= $resnote;
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 32) { // Tobacco field has a listbox, text box, date field and 3 radio buttons.
|
||
|
|
if (!empty($reslist)) {
|
||
|
|
$s .= generate_plaintext_field(array('data_type' => '1','list_id' => $list_id), $reslist);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($resnote)) {
|
||
|
|
$s .= ' ' . $resnote;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($res)) {
|
||
|
|
if ($s !== '') {
|
||
|
|
$s .= ' ';
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= xl('Status') . ' ' . $res;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($restype == "quit" . $field_id) {
|
||
|
|
if ($s !== '') {
|
||
|
|
$s .= ' ';
|
||
|
|
}
|
||
|
|
|
||
|
|
$s .= $resdate;
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 35) { // Facility, so facility can be listed in plain-text, as in patient finder column
|
||
|
|
$facilityService = new FacilityService();
|
||
|
|
$facility = $facilityService->getById($currvalue);
|
||
|
|
$s = $facility['name'];
|
||
|
|
} elseif ($data_type == 36 || $data_type == 33) { // Multi select. Supports backup lists
|
||
|
|
$values_array = explode("|", $currvalue);
|
||
|
|
|
||
|
|
$i = 0;
|
||
|
|
foreach ($values_array as $value) {
|
||
|
|
$lrow = sqlQuery("SELECT title FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND option_id = ? AND activity = 1", array($list_id,$value));
|
||
|
|
|
||
|
|
if ($lrow == 0 && !empty($backup_list)) {
|
||
|
|
//use back up list
|
||
|
|
$lrow = sqlQuery("SELECT title FROM list_options " .
|
||
|
|
"WHERE list_id = ? AND option_id = ? AND activity = 1", array($backup_list,$value));
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($i > 0) {
|
||
|
|
$s = $s . ", " . xl_list_label($lrow['title']);
|
||
|
|
} else {
|
||
|
|
$s = xl_list_label($lrow['title']);
|
||
|
|
}
|
||
|
|
|
||
|
|
$i++;
|
||
|
|
}
|
||
|
|
|
||
|
|
// A set of lab test results; Gestation, 3 radio buttons, test value, notes field:
|
||
|
|
} elseif ($data_type == 37) {
|
||
|
|
$s .= genLabResults($frow, $currvalue, 3, '');
|
||
|
|
} elseif ($data_type == 44 || $data_type == 45) {
|
||
|
|
$values_array = explode("|", $currvalue);
|
||
|
|
|
||
|
|
$i = 0;
|
||
|
|
foreach ($values_array as $value) {
|
||
|
|
if ($data_type == 44) {
|
||
|
|
$lrow = sqlQuery("SELECT name as name FROM facility WHERE id = ?", array($value));
|
||
|
|
}
|
||
|
|
if ($data_type == 45) {
|
||
|
|
$lrow = sqlQuery("SELECT CONCAT(fname,' ',lname) as name FROM users WHERE id = ?", array($value));
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($i > 0) {
|
||
|
|
$s = $s . ", " . $lrow['name'];
|
||
|
|
} else {
|
||
|
|
$s = $lrow['name'];
|
||
|
|
}
|
||
|
|
|
||
|
|
$i++;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Patient selector field.
|
||
|
|
} elseif ($data_type == 51) {
|
||
|
|
if (!empty($currvalue)) {
|
||
|
|
$s .= getPatientDescription($currvalue);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return $s;
|
||
|
|
}
|
||
|
|
|
||
|
|
$CPR = 4; // cells per row of generic data
|
||
|
|
$last_group = '';
|
||
|
|
$cell_count = 0;
|
||
|
|
$item_count = 0;
|
||
|
|
|
||
|
|
function disp_end_cell()
|
||
|
|
{
|
||
|
|
global $item_count, $cell_count;
|
||
|
|
if ($item_count > 0) {
|
||
|
|
echo "</td>";
|
||
|
|
$item_count = 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function disp_end_row()
|
||
|
|
{
|
||
|
|
global $cell_count, $CPR;
|
||
|
|
disp_end_cell();
|
||
|
|
if ($cell_count > 0) {
|
||
|
|
for (; $cell_count < $CPR; ++$cell_count) {
|
||
|
|
echo "<td></td>";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "</tr>\n";
|
||
|
|
$cell_count = 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function disp_end_group()
|
||
|
|
{
|
||
|
|
global $last_group;
|
||
|
|
if (strlen($last_group) > 0) {
|
||
|
|
disp_end_row();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Bootstrapped versions of disp_end_* functions:
|
||
|
|
|
||
|
|
function bs_disp_end_cell()
|
||
|
|
{
|
||
|
|
global $item_count;
|
||
|
|
if ($item_count > 0) {
|
||
|
|
echo "</div>"; // end BS column
|
||
|
|
$item_count = 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function bs_disp_end_row()
|
||
|
|
{
|
||
|
|
global $cell_count, $CPR, $BS_COL_CLASS;
|
||
|
|
bs_disp_end_cell();
|
||
|
|
if ($cell_count > 0 && $cell_count < $CPR) {
|
||
|
|
// Create a cell occupying the remaining bootstrap columns.
|
||
|
|
// BS columns will be less than 12 if $CPR is not 2, 3, 4, 6 or 12.
|
||
|
|
$bs_cols_remaining = ($CPR - $cell_count) * intval(12 / $CPR);
|
||
|
|
echo "<div class='$BS_COL_CLASS-$bs_cols_remaining'></div>";
|
||
|
|
}
|
||
|
|
if ($cell_count > 0) {
|
||
|
|
echo "</div><!-- End BS row -->\n";
|
||
|
|
$cell_count = 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function bs_disp_end_group()
|
||
|
|
{
|
||
|
|
global $last_group;
|
||
|
|
if (strlen($last_group) > 0) {
|
||
|
|
bs_disp_end_row();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
|
||
|
|
function getPatientDescription($pid)
|
||
|
|
{
|
||
|
|
$prow = sqlQuery("SELECT lname, fname FROM patient_data WHERE pid = ?", array($pid));
|
||
|
|
if ($prow) {
|
||
|
|
return $prow['lname'] . ", " . $prow['fname'] . " ($pid)";
|
||
|
|
}
|
||
|
|
return xl('Unknown') . " ($pid)";
|
||
|
|
}
|
||
|
|
|
||
|
|
// Accumulate action conditions into a JSON expression for the browser side.
|
||
|
|
function accumActionConditions(&$frow, &$condition_str)
|
||
|
|
{
|
||
|
|
$field_id = $frow['field_id'];
|
||
|
|
$conditions = empty($frow['conditions']) ? array() : unserialize($frow['conditions'], ['allowed_classes' => false]);
|
||
|
|
$action = 'skip';
|
||
|
|
foreach ($conditions as $key => $condition) {
|
||
|
|
if ($key === 'action') {
|
||
|
|
// If specified this should be the first array item.
|
||
|
|
if ($condition) {
|
||
|
|
$action = $condition;
|
||
|
|
}
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
if (empty($condition['id'])) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
$andor = empty($condition['andor']) ? '' : $condition['andor'];
|
||
|
|
if ($condition_str) {
|
||
|
|
$condition_str .= ",\n";
|
||
|
|
}
|
||
|
|
$condition_str .= "{" .
|
||
|
|
"target:" . js_escape($field_id) . ", " .
|
||
|
|
"action:" . js_escape($action) . ", " .
|
||
|
|
"id:" . js_escape($condition['id']) . ", " .
|
||
|
|
"itemid:" . js_escape($condition['itemid']) . ", " .
|
||
|
|
"operator:" . js_escape($condition['operator']) . ", " .
|
||
|
|
"value:" . js_escape($condition['value']) . ", ";
|
||
|
|
if ($frow['data_type'] == 15 && strpos($frow['edit_options'], '2') !== false) {
|
||
|
|
// For billing codes handle requirement to display its description.
|
||
|
|
$tmp = explode('=', $action, 2);
|
||
|
|
if (!empty($tmp[1])) {
|
||
|
|
$condition_str .= "valdesc:" . js_escape(getCodeDescription($tmp[1])) . ", ";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$condition_str .= "andor:" . js_escape($andor) . "}";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function getCodeDescription($codestring, $defaulttype = 'ICD10')
|
||
|
|
{
|
||
|
|
if ($codestring === '') {
|
||
|
|
return '';
|
||
|
|
}
|
||
|
|
list($ctype, $code) = explode(':', $codestring);
|
||
|
|
if (empty($code)) {
|
||
|
|
$code = $ctype;
|
||
|
|
$ctype = $defaulttype;
|
||
|
|
}
|
||
|
|
$desc = lookup_code_descriptions("$ctype:$code");
|
||
|
|
if (!empty($desc)) {
|
||
|
|
return $desc;
|
||
|
|
} else {
|
||
|
|
return $codestring;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// This checks if the given field with the given value should have an action applied.
|
||
|
|
// Originally the only action was skip, but now you can also set the field to a
|
||
|
|
// specified value, or "skip and otherwise set a value".
|
||
|
|
// It somewhat mirrors the checkSkipConditions function in options.js.php.
|
||
|
|
// If you use this for multiple layouts in the same script, you should
|
||
|
|
// clear $sk_layout_items before each layout.
|
||
|
|
function isSkipped(&$frow, $currvalue)
|
||
|
|
{
|
||
|
|
global $sk_layout_items;
|
||
|
|
|
||
|
|
// Accumulate an array of the encountered fields and their values.
|
||
|
|
// It is assumed that fields appear before they are tested by another field.
|
||
|
|
// TBD: Bad assumption?
|
||
|
|
$field_id = $frow['field_id'];
|
||
|
|
if (!is_array($sk_layout_items)) {
|
||
|
|
$sk_layout_items = array();
|
||
|
|
}
|
||
|
|
$sk_layout_items[$field_id] = array('row' => $frow, 'value' => $currvalue);
|
||
|
|
|
||
|
|
if (empty($frow['conditions'])) {
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
$skiprows = unserialize($frow['conditions'], ['allowed_classes' => false]);
|
||
|
|
$prevandor = '';
|
||
|
|
$prevcond = false;
|
||
|
|
$datatype = $frow['data_type'];
|
||
|
|
$action = 'skip'; // default action if none specified
|
||
|
|
|
||
|
|
foreach ($skiprows as $key => $skiprow) {
|
||
|
|
// id referenced field id
|
||
|
|
// itemid referenced array key if applicable
|
||
|
|
// operator "eq", "ne", "se" or "ns"
|
||
|
|
// value if eq or ne, some string to compare with
|
||
|
|
// andor "and", "or" or empty
|
||
|
|
|
||
|
|
if ($key === 'action') {
|
||
|
|
// Action value is a string. It can be "skip", or "value=" or "hsval=" followed by a value.
|
||
|
|
$action = $skiprow;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (empty($skiprow['id'])) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
$id = $skiprow['id'];
|
||
|
|
if (!isset($sk_layout_items[$id])) {
|
||
|
|
error_log("Function isSkipped() cannot find skip source field '" . errorLogEscape($id) . "'.");
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
$itemid = $skiprow['itemid'];
|
||
|
|
$operator = $skiprow['operator'];
|
||
|
|
$skipval = $skiprow['value'];
|
||
|
|
$srcvalue = $sk_layout_items[$id]['value'];
|
||
|
|
$src_datatype = $sk_layout_items[$id]['row']['data_type'];
|
||
|
|
$src_list_id = $sk_layout_items[$id]['row']['list_id'];
|
||
|
|
|
||
|
|
// Some data types use itemid and we have to dig for their value.
|
||
|
|
if ($src_datatype == 21 && $src_list_id) { // array of checkboxes
|
||
|
|
$tmp = explode('|', $srcvalue);
|
||
|
|
$srcvalue = in_array($itemid, $tmp);
|
||
|
|
} elseif ($src_datatype == 22 || $src_datatype == 23 || $src_datatype == 25) {
|
||
|
|
$tmp = explode('|', $srcvalue);
|
||
|
|
$srcvalue = '';
|
||
|
|
foreach ($tmp as $tmp2) {
|
||
|
|
if (strpos($tmp2, "$itemid:") === 0) {
|
||
|
|
if ($datatype == 22) {
|
||
|
|
$srcvalue = substr($tmp2, strlen($itemid) + 1);
|
||
|
|
} else {
|
||
|
|
$srcvalue = substr($tmp2, strlen($itemid) + 1, 1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Compute the result of the test for this condition row.
|
||
|
|
// PHP's looseness with variable type conversion helps us here.
|
||
|
|
$condition = false;
|
||
|
|
if ($operator == 'eq') {
|
||
|
|
$condition = $srcvalue == $skipval;
|
||
|
|
} elseif ($operator == 'ne') {
|
||
|
|
$condition = $srcvalue != $skipval;
|
||
|
|
} elseif ($operator == 'se') {
|
||
|
|
$condition = $srcvalue == true;
|
||
|
|
} elseif ($operator == 'ns') {
|
||
|
|
$condition = $srcvalue != true;
|
||
|
|
} else {
|
||
|
|
error_log("Unknown skip operator '" . errorLogEscape($operator) . "' for field '" . errorLogEscape($field_id) . "'.");
|
||
|
|
}
|
||
|
|
|
||
|
|
// Logic to accumulate multiple conditions for the same target.
|
||
|
|
if ($prevandor == 'and') {
|
||
|
|
$condition = $condition && $prevcond;
|
||
|
|
} elseif ($prevandor == 'or') {
|
||
|
|
$condition = $condition || $prevcond;
|
||
|
|
}
|
||
|
|
$prevandor = $skiprow['andor'];
|
||
|
|
$prevcond = $condition;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (substr($action, 0, 6) == 'hsval=') {
|
||
|
|
return $prevcond ? 'skip' : ('value=' . substr($action, 6));
|
||
|
|
}
|
||
|
|
return $prevcond ? $action : '';
|
||
|
|
}
|
||
|
|
|
||
|
|
// Load array of names of the given layout and its groups.
|
||
|
|
function getLayoutProperties($formtype, &$grparr, $sel = "grp_title")
|
||
|
|
{
|
||
|
|
if ($sel != '*' && strpos($sel, 'grp_group_id') === false) {
|
||
|
|
$sel = "grp_group_id, $sel";
|
||
|
|
}
|
||
|
|
$gres = sqlStatement("SELECT $sel FROM layout_group_properties WHERE grp_form_id = ? " .
|
||
|
|
"ORDER BY grp_group_id", array($formtype));
|
||
|
|
while ($grow = sqlFetchArray($gres)) {
|
||
|
|
// TBD: Remove this after grp_init_open column is implemented.
|
||
|
|
if ($sel == '*' && !isset($grow['grp_init_open'])) {
|
||
|
|
$tmprow = sqlQuery(
|
||
|
|
"SELECT form_id FROM layout_options " .
|
||
|
|
"WHERE form_id = ? AND group_id LIKE ? AND uor > 0 AND edit_options LIKE '%I%' " .
|
||
|
|
"LIMIT 1",
|
||
|
|
array($formtype, $grow['grp_group_id'] . '%')
|
||
|
|
);
|
||
|
|
$grow['grp_init_open'] = !empty($tmprow['form_id']);
|
||
|
|
}
|
||
|
|
$grparr[$grow['grp_group_id']] = $grow;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function display_layout_rows($formtype, $result1, $result2 = '')
|
||
|
|
{
|
||
|
|
global $item_count, $cell_count, $last_group, $CPR;
|
||
|
|
|
||
|
|
if ('HIS' == $formtype) {
|
||
|
|
$formtype .= '%'; // TBD: DEM also?
|
||
|
|
}
|
||
|
|
$pres = sqlStatement(
|
||
|
|
"SELECT grp_form_id, grp_seq, grp_title " .
|
||
|
|
"FROM layout_group_properties " .
|
||
|
|
"WHERE grp_form_id LIKE ? AND grp_group_id = '' " .
|
||
|
|
"ORDER BY grp_seq, grp_title, grp_form_id",
|
||
|
|
array("$formtype")
|
||
|
|
);
|
||
|
|
while ($prow = sqlFetchArray($pres)) {
|
||
|
|
$formtype = $prow['grp_form_id'];
|
||
|
|
$last_group = '';
|
||
|
|
$cell_count = 0;
|
||
|
|
$item_count = 0;
|
||
|
|
|
||
|
|
$grparr = array();
|
||
|
|
getLayoutProperties($formtype, $grparr, '*');
|
||
|
|
|
||
|
|
$TOPCPR = empty($grparr['']['grp_columns']) ? 4 : $grparr['']['grp_columns'];
|
||
|
|
|
||
|
|
$fres = sqlStatement("SELECT * FROM layout_options " .
|
||
|
|
"WHERE form_id = ? AND uor > 0 " .
|
||
|
|
"ORDER BY group_id, seq", array($formtype));
|
||
|
|
|
||
|
|
while ($frow = sqlFetchArray($fres)) {
|
||
|
|
$this_group = $frow['group_id'];
|
||
|
|
$titlecols = $frow['titlecols'];
|
||
|
|
$datacols = $frow['datacols'];
|
||
|
|
$data_type = $frow['data_type'];
|
||
|
|
$field_id = $frow['field_id'];
|
||
|
|
$list_id = $frow['list_id'];
|
||
|
|
$currvalue = '';
|
||
|
|
$jump_new_row = isOption($frow['edit_options'], 'J');
|
||
|
|
$prepend_blank_row = isOption($frow['edit_options'], 'K');
|
||
|
|
$portal_exclude = (!empty($_SESSION["patient_portal_onsite_two"]) && isOption($frow['edit_options'], 'EP')) ?? null;
|
||
|
|
$span_col_row = isOption($frow['edit_options'], 'SP');
|
||
|
|
|
||
|
|
if (!empty($portal_exclude)) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
$CPR = empty($grparr[$this_group]['grp_columns']) ? $TOPCPR : $grparr[$this_group]['grp_columns'];
|
||
|
|
|
||
|
|
if ($formtype == 'DEM') {
|
||
|
|
if (strpos($field_id, 'em_') === 0) {
|
||
|
|
// Skip employer related fields, if it's disabled.
|
||
|
|
if ($GLOBALS['omit_employers']) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
$tmp = substr($field_id, 3);
|
||
|
|
if (isset($result2[$tmp])) {
|
||
|
|
$currvalue = $result2[$tmp];
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
if (isset($result1[$field_id])) {
|
||
|
|
$currvalue = $result1[$field_id];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
if (isset($result1[$field_id])) {
|
||
|
|
$currvalue = $result1[$field_id];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Handle a data category (group) change.
|
||
|
|
if (strcmp($this_group, $last_group) != 0) {
|
||
|
|
$group_name = $grparr[$this_group]['grp_title'];
|
||
|
|
// totally skip generating the employer category, if it's disabled.
|
||
|
|
if ($group_name === 'Employer' && $GLOBALS['omit_employers']) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
disp_end_group();
|
||
|
|
$last_group = $this_group;
|
||
|
|
}
|
||
|
|
|
||
|
|
// filter out all the empty field data from the patient report.
|
||
|
|
if (!empty($currvalue) && !($currvalue == '0000-00-00 00:00:00')) {
|
||
|
|
// Handle starting of a new row.
|
||
|
|
if (($titlecols > 0 && $cell_count >= $CPR) || $cell_count == 0 || $prepend_blank_row || $jump_new_row) {
|
||
|
|
disp_end_row();
|
||
|
|
if ($prepend_blank_row) {
|
||
|
|
echo "<tr><td class='label' colspan='" . ($CPR + 1) . "'> </td></tr>\n";
|
||
|
|
}
|
||
|
|
echo "<tr>";
|
||
|
|
if ($group_name) {
|
||
|
|
echo "<td class='groupname'>";
|
||
|
|
echo text(xl_layout_label($group_name));
|
||
|
|
$group_name = '';
|
||
|
|
} else {
|
||
|
|
echo "<td class='align-top'> ";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "</td>";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($item_count == 0 && $titlecols == 0) {
|
||
|
|
$titlecols = 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Handle starting of a new label cell.
|
||
|
|
if ($titlecols > 0 || $span_col_row) {
|
||
|
|
disp_end_cell();
|
||
|
|
$titlecols = $span_col_row ? 0 : $titlecols;
|
||
|
|
$titlecols_esc = htmlspecialchars($titlecols, ENT_QUOTES);
|
||
|
|
if (!$span_col_row) {
|
||
|
|
echo "<td class='label_custom' colspan='$titlecols_esc' ";
|
||
|
|
echo ">";
|
||
|
|
}
|
||
|
|
$cell_count += $titlecols;
|
||
|
|
}
|
||
|
|
|
||
|
|
++$item_count;
|
||
|
|
|
||
|
|
// Prevent title write if span entire row.
|
||
|
|
if (!$span_col_row) {
|
||
|
|
// Added 5-09 by BM - Translate label if applicable
|
||
|
|
if ($frow['title']) {
|
||
|
|
$tmp = xl_layout_label($frow['title']);
|
||
|
|
echo text($tmp);
|
||
|
|
// Append colon only if label does not end with punctuation.
|
||
|
|
if (strpos('?!.,:-=', substr($tmp, -1, 1)) === false) {
|
||
|
|
echo ':';
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
echo " ";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
// Handle starting of a new data cell.
|
||
|
|
if ($datacols > 0) {
|
||
|
|
disp_end_cell();
|
||
|
|
$datacols = $span_col_row ? $CPR : $datacols;
|
||
|
|
$datacols_esc = htmlspecialchars($datacols, ENT_QUOTES);
|
||
|
|
echo "<td class='text data' colspan='$datacols_esc'";
|
||
|
|
echo ">";
|
||
|
|
$cell_count += $datacols;
|
||
|
|
}
|
||
|
|
|
||
|
|
++$item_count;
|
||
|
|
echo generate_display_field($frow, $currvalue);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
disp_end_group();
|
||
|
|
} // End this layout, there may be more in the case of history.
|
||
|
|
}
|
||
|
|
|
||
|
|
// This generates the tabs for a form.
|
||
|
|
//
|
||
|
|
function display_layout_tabs($formtype, $result1, $result2 = '')
|
||
|
|
{
|
||
|
|
global $item_count, $cell_count, $last_group, $CPR;
|
||
|
|
|
||
|
|
if ('HIS' == $formtype) {
|
||
|
|
$formtype .= '%'; // TBD: DEM also?
|
||
|
|
}
|
||
|
|
$pres = sqlStatement(
|
||
|
|
"SELECT grp_form_id, grp_seq, grp_title " .
|
||
|
|
"FROM layout_group_properties " .
|
||
|
|
"WHERE grp_form_id LIKE ? AND grp_group_id = '' " .
|
||
|
|
"ORDER BY grp_seq, grp_title, grp_form_id",
|
||
|
|
array("$formtype")
|
||
|
|
);
|
||
|
|
$first = true;
|
||
|
|
while ($prow = sqlFetchArray($pres)) {
|
||
|
|
$formtype = $prow['grp_form_id'];
|
||
|
|
$last_group = '';
|
||
|
|
$cell_count = 0;
|
||
|
|
$item_count = 0;
|
||
|
|
|
||
|
|
$grparr = array();
|
||
|
|
getLayoutProperties($formtype, $grparr);
|
||
|
|
|
||
|
|
$fres = sqlStatement("SELECT distinct group_id FROM layout_options " .
|
||
|
|
"WHERE form_id = ? AND uor > 0 " .
|
||
|
|
"ORDER BY group_id", array($formtype));
|
||
|
|
|
||
|
|
$prev_group = '';
|
||
|
|
while ($frow = sqlFetchArray($fres)) {
|
||
|
|
$this_group = $frow['group_id'];
|
||
|
|
if (substr($prev_group, 0, 1) === substr($this_group, 0, 1)) {
|
||
|
|
// Skip sub-groups, they will not start a new tab.
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
$prev_group = $this_group;
|
||
|
|
$group_name = $grparr[$this_group]['grp_title'];
|
||
|
|
if ($group_name === 'Employer' && $GLOBALS['omit_employers']) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
?>
|
||
|
|
<li <?php echo $first ? 'class="current"' : '' ?>>
|
||
|
|
<a href="#" id="header_tab_<?php echo attr($group_name); ?>">
|
||
|
|
<?php echo text(xl_layout_label($group_name)); ?></a>
|
||
|
|
</li>
|
||
|
|
<?php
|
||
|
|
$first = false;
|
||
|
|
}
|
||
|
|
} // End this layout, there may be more in the case of history.
|
||
|
|
}
|
||
|
|
|
||
|
|
// This generates the tab contents of the display version of a form.
|
||
|
|
//
|
||
|
|
function display_layout_tabs_data($formtype, $result1, $result2 = '')
|
||
|
|
{
|
||
|
|
global $item_count, $cell_count, $last_group, $CPR;
|
||
|
|
|
||
|
|
if ('HIS' == $formtype) {
|
||
|
|
$formtype .= '%'; // TBD: DEM also?
|
||
|
|
}
|
||
|
|
$pres = sqlStatement(
|
||
|
|
"SELECT grp_form_id, grp_seq, grp_title " .
|
||
|
|
"FROM layout_group_properties " .
|
||
|
|
"WHERE grp_form_id LIKE ? AND grp_group_id = '' " .
|
||
|
|
"ORDER BY grp_seq, grp_title, grp_form_id",
|
||
|
|
array("$formtype")
|
||
|
|
);
|
||
|
|
$first = true;
|
||
|
|
|
||
|
|
// This loops once per layout. Only Patient History can have multiple layouts.
|
||
|
|
while ($prow = sqlFetchArray($pres)) {
|
||
|
|
$formtype = $prow['grp_form_id'];
|
||
|
|
$last_group = '';
|
||
|
|
$cell_count = 0;
|
||
|
|
$item_count = 0;
|
||
|
|
|
||
|
|
$grparr = array();
|
||
|
|
getLayoutProperties($formtype, $grparr, '*');
|
||
|
|
|
||
|
|
$TOPCPR = empty($grparr['']['grp_columns']) ? 4 : $grparr['']['grp_columns'];
|
||
|
|
|
||
|
|
// By selecting distinct group_id from layout_options we avoid empty groups.
|
||
|
|
$fres = sqlStatement("SELECT distinct group_id FROM layout_options " .
|
||
|
|
"WHERE form_id = ? AND uor > 0 " .
|
||
|
|
"ORDER BY group_id", array($formtype));
|
||
|
|
|
||
|
|
$prev_group = '';
|
||
|
|
|
||
|
|
// This loops once per group within a given layout.
|
||
|
|
while ($frow = sqlFetchArray($fres)) {
|
||
|
|
$this_group = isset($frow['group_id']) ? $frow['group_id'] : "" ;
|
||
|
|
|
||
|
|
if ($grparr[$this_group]['grp_title'] === 'Employer' && $GLOBALS['omit_employers']) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
$CPR = empty($grparr[$this_group]['grp_columns']) ? $TOPCPR : $grparr[$this_group]['grp_columns'];
|
||
|
|
$subtitle = empty($grparr[$this_group]['grp_subtitle']) ? '' : xl_layout_label($grparr[$this_group]['grp_subtitle']);
|
||
|
|
|
||
|
|
$group_fields_query = sqlStatement(
|
||
|
|
"SELECT * FROM layout_options " .
|
||
|
|
"WHERE form_id = ? AND uor > 0 AND group_id = ? " .
|
||
|
|
"ORDER BY seq",
|
||
|
|
array($formtype, $this_group)
|
||
|
|
);
|
||
|
|
|
||
|
|
if (substr($this_group, 0, 1) !== substr($prev_group, 0, 1)) {
|
||
|
|
// Each new top level group gets its own tab div.
|
||
|
|
if (!$first) {
|
||
|
|
echo "</div>\n";
|
||
|
|
}
|
||
|
|
echo "<div class='tab" . ($first ? ' current' : '') . "'>\n";
|
||
|
|
}
|
||
|
|
echo "<table border='0' cellpadding='0'>\n";
|
||
|
|
|
||
|
|
// This loops once per field within a given group.
|
||
|
|
while ($group_fields = sqlFetchArray($group_fields_query)) {
|
||
|
|
$titlecols = $group_fields['titlecols'];
|
||
|
|
$datacols = $group_fields['datacols'];
|
||
|
|
$data_type = $group_fields['data_type'];
|
||
|
|
$field_id = $group_fields['field_id'];
|
||
|
|
$list_id = $group_fields['list_id'];
|
||
|
|
$currvalue = '';
|
||
|
|
$edit_options = $group_fields['edit_options'];
|
||
|
|
$jump_new_row = isOption($edit_options, 'J');
|
||
|
|
$prepend_blank_row = isOption($edit_options, 'K');
|
||
|
|
$span_col_row = isOption($edit_options, 'SP');
|
||
|
|
|
||
|
|
if ($formtype == 'DEM') {
|
||
|
|
if (strpos($field_id, 'em_') === 0) {
|
||
|
|
// Skip employer related fields, if it's disabled.
|
||
|
|
if ($GLOBALS['omit_employers']) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
$tmp = substr($field_id, 3);
|
||
|
|
if (isset($result2[$tmp])) {
|
||
|
|
$currvalue = $result2[$tmp];
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
if (isset($result1[$field_id])) {
|
||
|
|
$currvalue = $result1[$field_id];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
if (isset($result1[$field_id])) {
|
||
|
|
$currvalue = $result1[$field_id];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Skip this field if action conditions call for that.
|
||
|
|
// Note this also accumulates info for subsequent skip tests.
|
||
|
|
$skip_this_field = isSkipped($group_fields, $currvalue) == 'skip';
|
||
|
|
|
||
|
|
// Skip this field if its do-not-print option is set.
|
||
|
|
if (isOption($edit_options, 'X') !== false) {
|
||
|
|
$skip_this_field = true;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Handle a data category (group) change.
|
||
|
|
if (strcmp($this_group, $last_group) != 0) {
|
||
|
|
$group_name = $grparr[$this_group]['grp_title'];
|
||
|
|
// totally skip generating the employer category, if it's disabled.
|
||
|
|
if ($group_name === 'Employer' && $GLOBALS['omit_employers']) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
$last_group = $this_group;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Handle starting of a new row.
|
||
|
|
if (($titlecols > 0 && $cell_count >= $CPR) || $cell_count == 0 || $prepend_blank_row || $jump_new_row) {
|
||
|
|
disp_end_row();
|
||
|
|
if ($subtitle) {
|
||
|
|
// Group subtitle exists and is not displayed yet.
|
||
|
|
echo "<tr><td class='label' style='background-color: var(--gray300); padding: 4px' colspan='$CPR'>" . text($subtitle) . "</td></tr>\n";
|
||
|
|
echo "<tr><td class='label' style='height: 5px' colspan='$CPR'></td></tr>\n";
|
||
|
|
$subtitle = '';
|
||
|
|
}
|
||
|
|
if ($prepend_blank_row) {
|
||
|
|
echo "<tr><td class='label' style='font-size:25%' colspan='$CPR'> </td></tr>\n";
|
||
|
|
}
|
||
|
|
echo "<tr>";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($item_count == 0 && $titlecols == 0) {
|
||
|
|
$titlecols = 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Handle starting of a new label cell.
|
||
|
|
if ($titlecols > 0 || $span_col_row) {
|
||
|
|
disp_end_cell();
|
||
|
|
$titlecols = $span_col_row ? 0 : $titlecols;
|
||
|
|
$titlecols_esc = htmlspecialchars($titlecols, ENT_QUOTES);
|
||
|
|
$field_id_label = 'label_' . $group_fields['field_id'];
|
||
|
|
if (!$span_col_row) {
|
||
|
|
echo "<td class='label_custom' colspan='$titlecols_esc' id='" . attr($field_id_label) . "'";
|
||
|
|
echo ">";
|
||
|
|
}
|
||
|
|
$cell_count += $titlecols;
|
||
|
|
}
|
||
|
|
|
||
|
|
++$item_count;
|
||
|
|
|
||
|
|
if ($datacols == 0) {
|
||
|
|
// Data will be in the same cell, so prevent wrapping to a new line.
|
||
|
|
echo "<span class='text-nowrap mr-2'>";
|
||
|
|
}
|
||
|
|
|
||
|
|
$field_id_label = 'label_' . $group_fields['field_id'];
|
||
|
|
if (!$span_col_row) {
|
||
|
|
echo "<span id='" . attr($field_id_label) . "'>";
|
||
|
|
if ($skip_this_field) {
|
||
|
|
// No label because skipping
|
||
|
|
} elseif ($group_fields['title']) {
|
||
|
|
$tmp = xl_layout_label($group_fields['title']);
|
||
|
|
echo text($tmp);
|
||
|
|
// Append colon only if label does not end with punctuation.
|
||
|
|
if (!str_contains('?!.,:-=', $tmp[strlen($tmp) - 1])) {
|
||
|
|
echo ':';
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
echo " ";
|
||
|
|
}
|
||
|
|
echo "</span>";
|
||
|
|
}
|
||
|
|
|
||
|
|
// Handle starting of a new data cell.
|
||
|
|
if ($datacols > 0) {
|
||
|
|
disp_end_cell();
|
||
|
|
$datacols = $span_col_row ? $CPR : $datacols;
|
||
|
|
$datacols_esc = htmlspecialchars($datacols, ENT_QUOTES);
|
||
|
|
$field_id = 'text_' . $group_fields['field_id'];
|
||
|
|
echo "<td class='text data' colspan='$datacols_esc' id='" . attr($field_id) . "' data-value='" . attr($currvalue) . "'";
|
||
|
|
if (!$skip_this_field && $data_type == 3) {
|
||
|
|
// Textarea gets a light grey border.
|
||
|
|
echo " style='border: 1px solid var(--gray400)'";
|
||
|
|
}
|
||
|
|
echo ">";
|
||
|
|
$cell_count += $datacols;
|
||
|
|
} else {
|
||
|
|
$field_id = 'text_' . $group_fields['field_id'];
|
||
|
|
echo "<span id='" . attr($field_id) . "' style='display: none'>" . text($currvalue) . "</span>";
|
||
|
|
}
|
||
|
|
|
||
|
|
++$item_count;
|
||
|
|
if (!$skip_this_field) {
|
||
|
|
if ($item_count > 1) {
|
||
|
|
echo " ";
|
||
|
|
}
|
||
|
|
echo generate_display_field($group_fields, $currvalue);
|
||
|
|
}
|
||
|
|
if ($datacols == 0) {
|
||
|
|
// End nowrap
|
||
|
|
echo "</span> "; // space to allow wrap between spans
|
||
|
|
}
|
||
|
|
} // end field
|
||
|
|
|
||
|
|
disp_end_row();
|
||
|
|
|
||
|
|
// End table for the group.
|
||
|
|
echo "</table>\n";
|
||
|
|
|
||
|
|
$prev_group = $this_group;
|
||
|
|
$first = false;
|
||
|
|
} // End this group.
|
||
|
|
} // End this layout, there may be more in the case of history.
|
||
|
|
|
||
|
|
if (!$first) {
|
||
|
|
echo "</div>\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// This generates the tab contents of the data entry version of a form.
|
||
|
|
//
|
||
|
|
function display_layout_tabs_data_editable($formtype, $result1, $result2 = '')
|
||
|
|
{
|
||
|
|
global $item_count, $cell_count, $last_group, $CPR, $condition_str, $BS_COL_CLASS;
|
||
|
|
|
||
|
|
if ('HIS' == $formtype) {
|
||
|
|
$formtype .= '%'; // TBD: DEM also?
|
||
|
|
}
|
||
|
|
$pres = sqlStatement(
|
||
|
|
"SELECT grp_form_id, grp_seq, grp_title " .
|
||
|
|
"FROM layout_group_properties " .
|
||
|
|
"WHERE grp_form_id LIKE ? AND grp_group_id = '' " .
|
||
|
|
"ORDER BY grp_seq, grp_title, grp_form_id",
|
||
|
|
array("$formtype")
|
||
|
|
);
|
||
|
|
$first = true;
|
||
|
|
$condition_str = '';
|
||
|
|
|
||
|
|
// This loops once per layout. Only Patient History can have multiple layouts.
|
||
|
|
while ($prow = sqlFetchArray($pres)) {
|
||
|
|
$formtype = $prow['grp_form_id'];
|
||
|
|
$last_group = '';
|
||
|
|
$cell_count = 0;
|
||
|
|
$item_count = 0;
|
||
|
|
|
||
|
|
$grparr = array();
|
||
|
|
getLayoutProperties($formtype, $grparr, '*');
|
||
|
|
|
||
|
|
$TOPCPR = empty($grparr['']['grp_columns']) ? 4 : $grparr['']['grp_columns'];
|
||
|
|
|
||
|
|
// Check the children of each top-level group to see if any of them are initially open.
|
||
|
|
// If not, make the first such child initially open.
|
||
|
|
foreach ($grparr as $tmprow1) {
|
||
|
|
if (strlen($tmprow1['grp_group_id']) == 1) {
|
||
|
|
$got_init_open = false;
|
||
|
|
$keyfirst = false;
|
||
|
|
foreach ($grparr as $key2 => $tmprow2) {
|
||
|
|
if (substr($tmprow2['grp_group_id'], 0, 1) == $tmprow1['grp_group_id'] && strlen($tmprow2['grp_group_id']) == 2) {
|
||
|
|
if (!$keyfirst) {
|
||
|
|
$keyfirst = $key2;
|
||
|
|
}
|
||
|
|
if ($tmprow2['grp_init_open']) {
|
||
|
|
$got_init_open = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (!$got_init_open && $keyfirst) {
|
||
|
|
$grparr[$keyfirst]['grp_init_open'] = 1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Variables $gs_* are context for the group set in the current tab.
|
||
|
|
$gs_display_style = 'block';
|
||
|
|
// This string is the active group levels representing the current display state.
|
||
|
|
// Each leading substring represents an instance of nesting.
|
||
|
|
// As each new group is encountered, groups will be closed and opened as needed
|
||
|
|
// until the display state matches the new group.
|
||
|
|
$gs_group_levels = '';
|
||
|
|
|
||
|
|
// By selecting distinct group_id from layout_options we avoid empty groups.
|
||
|
|
$fres = sqlStatement("SELECT distinct group_id FROM layout_options " .
|
||
|
|
"WHERE form_id = ? AND uor > 0 " .
|
||
|
|
"ORDER BY group_id", array($formtype));
|
||
|
|
|
||
|
|
// This loops once per group within a given layout.
|
||
|
|
while ($frow = sqlFetchArray($fres)) {
|
||
|
|
$this_group = $frow['group_id'];
|
||
|
|
$group_name = $grparr[$this_group]['grp_title'];
|
||
|
|
$group_name_esc = text($group_name);
|
||
|
|
|
||
|
|
if ($grparr[$this_group]['grp_title'] === 'Employer' && $GLOBALS['omit_employers']) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
$CPR = empty($grparr[$this_group]['grp_columns']) ? $TOPCPR : $grparr[$this_group]['grp_columns'];
|
||
|
|
$subtitle = empty($grparr[$this_group]['grp_subtitle']) ? '' : xl_layout_label($grparr[$this_group]['grp_subtitle']);
|
||
|
|
|
||
|
|
$group_fields_query = sqlStatement("SELECT * FROM layout_options " .
|
||
|
|
"WHERE form_id = ? AND uor > 0 AND group_id = ? " .
|
||
|
|
"ORDER BY seq", array($formtype, $this_group));
|
||
|
|
|
||
|
|
$gs_this_levels = $this_group;
|
||
|
|
// Compute $gs_i as the number of initial matching levels.
|
||
|
|
$gs_i = 0;
|
||
|
|
$tmp = min(strlen($gs_this_levels), strlen($gs_group_levels));
|
||
|
|
while ($gs_i < $tmp && $gs_this_levels[$gs_i] == $gs_group_levels[$gs_i]) {
|
||
|
|
++$gs_i;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Close any groups that we are done with.
|
||
|
|
while (strlen($gs_group_levels) > $gs_i) {
|
||
|
|
$gs_group_name = $grparr[$gs_group_levels]['grp_title'];
|
||
|
|
if (strlen($gs_group_levels) > 1) {
|
||
|
|
// No div for an empty sub-group name.
|
||
|
|
if (strlen($gs_group_name)) {
|
||
|
|
echo "</div>\n";
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
// This is the top group level so ending this tab and will start a new one.
|
||
|
|
echo "</div>\n";
|
||
|
|
}
|
||
|
|
$gs_group_levels = substr($gs_group_levels, 0, -1); // remove last character
|
||
|
|
}
|
||
|
|
|
||
|
|
// If there are any new groups, open them.
|
||
|
|
while ($gs_i < strlen($gs_this_levels)) {
|
||
|
|
$gs_group_levels .= $gs_this_levels[$gs_i++];
|
||
|
|
$gs_group_name = $grparr[substr($gs_group_levels, 0, $gs_i)]['grp_title'];
|
||
|
|
$gs_init_open = $grparr[substr($gs_group_levels, 0, $gs_i)]['grp_init_open'];
|
||
|
|
// Compute a short unique identifier for this group.
|
||
|
|
$gs_group_seq = "grp-$formtype-$gs_group_levels";
|
||
|
|
if ($gs_i <= 1) {
|
||
|
|
// Top level group so new tab.
|
||
|
|
echo "<div class='tab" . ($first ? ' current' : '') . "' id='tab_$group_name_esc'>\n";
|
||
|
|
} else {
|
||
|
|
// Not a new tab so start the group inline.
|
||
|
|
// If group name is blank, no checkbox or div.
|
||
|
|
if (strlen($gs_group_name)) {
|
||
|
|
echo "<br /><span class='bold'><input type='checkbox' name='form_cb_" .
|
||
|
|
attr($gs_group_seq) . "' value='1' " .
|
||
|
|
"onclick='return divclick(this," . attr_js('div_' . $gs_group_seq) . ");'";
|
||
|
|
$gs_display_style = $gs_init_open ? 'block' : 'none';
|
||
|
|
if ($gs_display_style == 'block') {
|
||
|
|
echo " checked";
|
||
|
|
}
|
||
|
|
echo " /><b>" . text(xl_layout_label($gs_group_name)) . "</b></span>\n";
|
||
|
|
echo "<div id='div_" . attr($gs_group_seq) .
|
||
|
|
"' class='section' style='display:" . attr($gs_display_style) . ";'>\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Each group or subgroup has its own separate container.
|
||
|
|
$gs_group_table_active = true;
|
||
|
|
echo "<div class='container-fluid lbfdata'>\n";
|
||
|
|
if ($subtitle) {
|
||
|
|
// There is a group subtitle so show it.
|
||
|
|
$bs_cols = $CPR * intval(12 / $CPR);
|
||
|
|
echo "<div class='row mb-2'>";
|
||
|
|
echo "<div class='$BS_COL_CLASS-$bs_cols' style='color:#0000ff'>" . text($subtitle) . "</div>";
|
||
|
|
echo "</div>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
// This loops once per field within a given group.
|
||
|
|
while ($group_fields = sqlFetchArray($group_fields_query)) {
|
||
|
|
$titlecols = $group_fields['titlecols'];
|
||
|
|
$datacols = $group_fields['datacols'];
|
||
|
|
$data_type = $group_fields['data_type'];
|
||
|
|
$field_id = $group_fields['field_id'];
|
||
|
|
$list_id = $group_fields['list_id'];
|
||
|
|
$backup_list = $group_fields['list_backup_id'];
|
||
|
|
$currvalue = '';
|
||
|
|
$action = 'skip';
|
||
|
|
$jump_new_row = isOption($group_fields['edit_options'], 'J');
|
||
|
|
$prepend_blank_row = isOption($group_fields['edit_options'], 'K');
|
||
|
|
$span_col_row = isOption($group_fields['edit_options'], 'SP');
|
||
|
|
|
||
|
|
// Accumulate action conditions into a JSON expression for the browser side.
|
||
|
|
accumActionConditions($group_fields, $condition_str);
|
||
|
|
|
||
|
|
if ($formtype == 'DEM') {
|
||
|
|
if (strpos($field_id, 'em_') === 0) {
|
||
|
|
// Skip employer related fields, if it's disabled.
|
||
|
|
if ($GLOBALS['omit_employers']) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
$tmp = substr($field_id, 3);
|
||
|
|
if (isset($result2[$tmp])) {
|
||
|
|
$currvalue = $result2[$tmp];
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
if (isset($result1[$field_id])) {
|
||
|
|
$currvalue = $result1[$field_id];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
if (isset($result1[$field_id])) {
|
||
|
|
$currvalue = $result1[$field_id];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Handle a data category (group) change.
|
||
|
|
if (strcmp($this_group, $last_group) != 0) {
|
||
|
|
// totally skip generating the employer category, if it's disabled.
|
||
|
|
if ($group_name === 'Employer' && $GLOBALS['omit_employers']) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
$last_group = $this_group;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Handle starting of a new row.
|
||
|
|
if (($titlecols > 0 && $cell_count >= $CPR) || $cell_count == 0 || $prepend_blank_row || $jump_new_row) {
|
||
|
|
bs_disp_end_row();
|
||
|
|
$bs_cols = $CPR * intval(12 / $CPR);
|
||
|
|
if ($subtitle) {
|
||
|
|
// Group subtitle exists and is not displayed yet.
|
||
|
|
echo "<div class='form-row mb-2'>";
|
||
|
|
echo "<div class='$BS_COL_CLASS-$bs_cols p-2 label' style='background-color: var(--gray300)'>" . text($subtitle) . "</div>";
|
||
|
|
echo "</div>\n";
|
||
|
|
$subtitle = '';
|
||
|
|
}
|
||
|
|
if ($prepend_blank_row) {
|
||
|
|
echo "<div class='form-row'>";
|
||
|
|
echo "<div class='$BS_COL_CLASS-$bs_cols label' style='font-size: 25%'> </div>";
|
||
|
|
echo "</div>\n";
|
||
|
|
}
|
||
|
|
echo "<div class='form-row'>";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($item_count == 0 && $titlecols == 0) {
|
||
|
|
$titlecols = 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Handle starting of a new label cell.
|
||
|
|
if ($titlecols > 0 || $span_col_row) {
|
||
|
|
bs_disp_end_cell();
|
||
|
|
$titlecols = $span_col_row ? 0 : $titlecols;
|
||
|
|
$bs_cols = $titlecols * intval(12 / $CPR);
|
||
|
|
echo "<div class='$BS_COL_CLASS-$bs_cols pt-1 label_custom' ";
|
||
|
|
echo "id='label_id_" . attr($field_id) . "'";
|
||
|
|
echo ">";
|
||
|
|
$cell_count += $titlecols;
|
||
|
|
}
|
||
|
|
|
||
|
|
// $item_count is the number of title and data items in the current cell.
|
||
|
|
++$item_count;
|
||
|
|
|
||
|
|
if ($datacols == 0) {
|
||
|
|
// Data will be in the same cell, so prevent wrapping to a new line.
|
||
|
|
echo "<span class='text-nowrap mr-2'>";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$span_col_row) {
|
||
|
|
if ($group_fields['title']) {
|
||
|
|
$tmp = xl_layout_label($group_fields['title']);
|
||
|
|
echo text($tmp);
|
||
|
|
// Append colon only if label does not end with punctuation.
|
||
|
|
if (strpos('?!.,:-=', substr($tmp, -1, 1)) === false) {
|
||
|
|
echo ':';
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
echo " ";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Handle starting of a new data cell.
|
||
|
|
if ($datacols > 0) {
|
||
|
|
bs_disp_end_cell();
|
||
|
|
$field_id = 'text_' . $group_fields['field_id'];
|
||
|
|
$datacols = $span_col_row ? $CPR : $datacols;
|
||
|
|
$bs_cols = $datacols * intval(12 / $CPR);
|
||
|
|
echo "<div class='$BS_COL_CLASS-$bs_cols'";
|
||
|
|
echo " id='value_id_" . attr($field_id) . "'";
|
||
|
|
echo ">";
|
||
|
|
$cell_count += $datacols;
|
||
|
|
}
|
||
|
|
|
||
|
|
++$item_count;
|
||
|
|
if ($item_count > 1) {
|
||
|
|
echo " ";
|
||
|
|
}
|
||
|
|
// 'smallform' can be used to add arbitrary CSS classes. Note the leading space.
|
||
|
|
$group_fields['smallform'] = ' form-control-sm mb-1 mw-100';
|
||
|
|
echo generate_form_field($group_fields, $currvalue);
|
||
|
|
if ($datacols == 0) {
|
||
|
|
// End nowrap
|
||
|
|
echo "</span> "; // space to allow wrap between spans
|
||
|
|
}
|
||
|
|
} // End of fields for this group.
|
||
|
|
|
||
|
|
bs_disp_end_row(); // TBD: Does this belong here?
|
||
|
|
echo "</div>\n"; // end container-fluid
|
||
|
|
$first = false;
|
||
|
|
} // End this group.
|
||
|
|
|
||
|
|
// Close any groups still open.
|
||
|
|
while (strlen($gs_group_levels) > 0) {
|
||
|
|
$gs_group_name = $grparr[$gs_group_levels]['grp_title'];
|
||
|
|
if (strlen($gs_group_levels) > 1) {
|
||
|
|
// No div for an empty sub-group name.
|
||
|
|
if (strlen($gs_group_name)) {
|
||
|
|
echo "</div>\n";
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
// This is the top group level so ending this tab and will start a new one.
|
||
|
|
echo "</div>\n";
|
||
|
|
}
|
||
|
|
$gs_group_levels = substr($gs_group_levels, 0, -1); // remove last character
|
||
|
|
}
|
||
|
|
} // End this layout, there may be more in the case of history.
|
||
|
|
}
|
||
|
|
|
||
|
|
// From the currently posted HTML form, this gets the value of the
|
||
|
|
// field corresponding to the provided layout_options table row.
|
||
|
|
//
|
||
|
|
function get_layout_form_value($frow, $prefix = 'form_')
|
||
|
|
{
|
||
|
|
$maxlength = empty($frow['max_length']) ? 0 : intval($frow['max_length']);
|
||
|
|
$data_type = $frow['data_type'];
|
||
|
|
$field_id = $frow['field_id'];
|
||
|
|
$value = '';
|
||
|
|
if (isset($_POST["$prefix$field_id"])) {
|
||
|
|
if ($data_type == 4) {
|
||
|
|
$modtmp = isOption($frow['edit_options'], 'F') === false ? 0 : 1;
|
||
|
|
if (!$modtmp) {
|
||
|
|
$value = DateToYYYYMMDD($_POST["$prefix$field_id"]);
|
||
|
|
} else {
|
||
|
|
$value = DateTimeToYYYYMMDDHHMMSS($_POST["$prefix$field_id"]);
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 21) {
|
||
|
|
if (!$frow['list_id']) {
|
||
|
|
if (!empty($_POST["form_$field_id"])) {
|
||
|
|
$value = xlt('Yes');
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
// $_POST["$prefix$field_id"] is an array of checkboxes and its keys
|
||
|
|
// must be concatenated into a |-separated string.
|
||
|
|
foreach ($_POST["$prefix$field_id"] as $key => $val) {
|
||
|
|
if (strlen($value)) {
|
||
|
|
$value .= '|';
|
||
|
|
}
|
||
|
|
$value .= $key;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 22) {
|
||
|
|
// $_POST["$prefix$field_id"] is an array of text fields to be imploded
|
||
|
|
// into "key:value|key:value|...".
|
||
|
|
foreach ($_POST["$prefix$field_id"] as $key => $val) {
|
||
|
|
$val = str_replace('|', ' ', $val);
|
||
|
|
if (strlen($value)) {
|
||
|
|
$value .= '|';
|
||
|
|
}
|
||
|
|
|
||
|
|
$value .= "$key:$val";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 23) {
|
||
|
|
// $_POST["$prefix$field_id"] is an array of text fields with companion
|
||
|
|
// radio buttons to be imploded into "key:n:notes|key:n:notes|...".
|
||
|
|
foreach ($_POST["$prefix$field_id"] as $key => $val) {
|
||
|
|
$restype = $_POST["radio_{$field_id}"][$key] ?? null;
|
||
|
|
if (empty($restype)) {
|
||
|
|
$restype = '0';
|
||
|
|
}
|
||
|
|
|
||
|
|
$val = str_replace('|', ' ', $val);
|
||
|
|
if (strlen($value)) {
|
||
|
|
$value .= '|';
|
||
|
|
}
|
||
|
|
|
||
|
|
$value .= "$key:$restype:$val";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 25) {
|
||
|
|
// $_POST["$prefix$field_id"] is an array of text fields with companion
|
||
|
|
// checkboxes to be imploded into "key:n:notes|key:n:notes|...".
|
||
|
|
foreach ($_POST["$prefix$field_id"] as $key => $val) {
|
||
|
|
$restype = empty($_POST["check_{$field_id}"][$key]) ? '0' : '1';
|
||
|
|
$val = str_replace('|', ' ', $val);
|
||
|
|
if (strlen($value)) {
|
||
|
|
$value .= '|';
|
||
|
|
}
|
||
|
|
|
||
|
|
$value .= "$key:$restype:$val";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 28 || $data_type == 32) {
|
||
|
|
// $_POST["$prefix$field_id"] is an date text fields with companion
|
||
|
|
// radio buttons to be imploded into "notes|type|date".
|
||
|
|
$restype = $_POST["radio_{$field_id}"] ?? '';
|
||
|
|
if (empty($restype)) {
|
||
|
|
$restype = '0';
|
||
|
|
}
|
||
|
|
|
||
|
|
$resdate = DateToYYYYMMDD(str_replace('|', ' ', $_POST["date_$field_id"]));
|
||
|
|
$resnote = str_replace('|', ' ', $_POST["$prefix$field_id"]);
|
||
|
|
if ($data_type == 32) {
|
||
|
|
//VicarePlus :: Smoking status data is imploded into "note|type|date|list".
|
||
|
|
$reslist = str_replace('|', ' ', $_POST["$prefix$field_id"]);
|
||
|
|
$res_text_note = str_replace('|', ' ', $_POST["{$prefix}text_$field_id"]);
|
||
|
|
$value = "$res_text_note|$restype|$resdate|$reslist";
|
||
|
|
} else {
|
||
|
|
$value = "$resnote|$restype|$resdate";
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 37) {
|
||
|
|
// $_POST["form_$field_id"] is an array of arrays of 3 text fields with companion
|
||
|
|
// radio button set to be encoded as json.
|
||
|
|
$tmparr = array();
|
||
|
|
foreach ($_POST["form_$field_id"] as $key => $valarr) {
|
||
|
|
// Each $key here is a list item ID. $valarr has 3 text field values keyed on 0, 2 and 3.
|
||
|
|
$tmparr[$key][0] = $valarr['0'];
|
||
|
|
$tmparr[$key][1] = $_POST["radio_{$field_id}"][$key];
|
||
|
|
$tmparr[$key][2] = $valarr['2'];
|
||
|
|
$tmparr[$key][3] = $valarr['3'];
|
||
|
|
}
|
||
|
|
$value .= json_encode($tmparr);
|
||
|
|
} elseif ($data_type == 36 || $data_type == 44 || $data_type == 45 || $data_type == 33) {
|
||
|
|
$value_array = $_POST["form_$field_id"];
|
||
|
|
$i = 0;
|
||
|
|
foreach ($value_array as $key => $valueofkey) {
|
||
|
|
if ($i == 0) {
|
||
|
|
$value = $valueofkey;
|
||
|
|
} else {
|
||
|
|
$value = $value . "|" . $valueofkey;
|
||
|
|
}
|
||
|
|
|
||
|
|
$i++;
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 46) {
|
||
|
|
$reslist = trim($_POST["$prefix$field_id"]);
|
||
|
|
if (preg_match('/^comment_/', $reslist)) {
|
||
|
|
$res_comment = str_replace('|', ' ', $_POST["{$prefix}text_$field_id"]);
|
||
|
|
$value = $reslist . "|" . $res_comment;
|
||
|
|
} else {
|
||
|
|
$value = $_POST["$prefix$field_id"];
|
||
|
|
}
|
||
|
|
} elseif ($data_type == 52) {
|
||
|
|
$value_array = $_POST["form_$field_id"];
|
||
|
|
$i = 0;
|
||
|
|
foreach ($value_array as $key => $valueofkey) {
|
||
|
|
if ($i == 0) {
|
||
|
|
$value = $valueofkey;
|
||
|
|
} else {
|
||
|
|
$value = $value . "|" . $valueofkey;
|
||
|
|
}
|
||
|
|
|
||
|
|
$i++;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$value = $_POST["$prefix$field_id"];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Better to die than to silently truncate data!
|
||
|
|
if ($maxlength && $maxlength != 0 && strlen(trim($value)) > $maxlength && !$frow['list_id']) {
|
||
|
|
die(htmlspecialchars(xl('ERROR: Field') . " '$field_id' " . xl('is too long'), ENT_NOQUOTES) .
|
||
|
|
":<br /> <br />" . htmlspecialchars($value, ENT_NOQUOTES));
|
||
|
|
}
|
||
|
|
|
||
|
|
if (is_string($value)) {
|
||
|
|
return trim($value);
|
||
|
|
} else {
|
||
|
|
return $value;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Generate JavaScript validation logic for the required fields.
|
||
|
|
//
|
||
|
|
function generate_layout_validation($form_id)
|
||
|
|
{
|
||
|
|
if ('HIS' == $form_id) {
|
||
|
|
$form_id .= '%'; // TBD: DEM also?
|
||
|
|
}
|
||
|
|
$pres = sqlStatement(
|
||
|
|
"SELECT grp_form_id, grp_seq, grp_title " .
|
||
|
|
"FROM layout_group_properties " .
|
||
|
|
"WHERE grp_form_id LIKE ? AND grp_group_id = '' " .
|
||
|
|
"ORDER BY grp_seq, grp_title, grp_form_id",
|
||
|
|
array("$form_id")
|
||
|
|
);
|
||
|
|
while ($prow = sqlFetchArray($pres)) {
|
||
|
|
$form_id = $prow['grp_form_id'];
|
||
|
|
|
||
|
|
$fres = sqlStatement("SELECT * FROM layout_options " .
|
||
|
|
"WHERE form_id = ? AND uor > 0 AND field_id != '' " .
|
||
|
|
"ORDER BY group_id, seq", array($form_id));
|
||
|
|
|
||
|
|
while ($frow = sqlFetchArray($fres)) {
|
||
|
|
$data_type = $frow['data_type'];
|
||
|
|
$field_id = $frow['field_id'];
|
||
|
|
$fldtitle = $frow['title'];
|
||
|
|
if (!$fldtitle) {
|
||
|
|
$fldtitle = $frow['description'];
|
||
|
|
}
|
||
|
|
|
||
|
|
$fldname = attr("form_$field_id");
|
||
|
|
|
||
|
|
if ($data_type == 40) {
|
||
|
|
$fldid = "form_" . $field_id;
|
||
|
|
// Move canvas image data to its hidden form field so the server will get it.
|
||
|
|
echo
|
||
|
|
" var canfld = f[" . js_escape($fldid) . "];\n" .
|
||
|
|
" if (canfld) canfld.value = lbfCanvasGetData(" . js_escape($fldid) . ");\n";
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
if ($data_type == 41 || $data_type == 42) {
|
||
|
|
$fldid = "form_" . $field_id;
|
||
|
|
// Move canvas image data to its hidden form field so the server will get it.
|
||
|
|
echo " lbfSetSignature(" . js_escape($fldid) . ");\n";
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
if ($frow['uor'] < 2) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
echo " if (f.$fldname && !f.$fldname.disabled) {\n";
|
||
|
|
switch ($data_type) {
|
||
|
|
case 1:
|
||
|
|
case 11:
|
||
|
|
case 12:
|
||
|
|
case 13:
|
||
|
|
case 14:
|
||
|
|
case 26:
|
||
|
|
echo
|
||
|
|
" if (f.$fldname.selectedIndex <= 0) {\n" .
|
||
|
|
" alert(" . xlj('Please choose a value for') . " + " .
|
||
|
|
"\":\\n\" + " . js_escape(xl_layout_label($fldtitle)) . ");\n" .
|
||
|
|
" if (f.$fldname.focus) f.$fldname.focus();\n" .
|
||
|
|
" return false;\n" .
|
||
|
|
" }\n";
|
||
|
|
break;
|
||
|
|
case 33:
|
||
|
|
echo
|
||
|
|
" if (f.$fldname.selectedIndex <= 0) {\n" .
|
||
|
|
" if (f.$fldname.focus) f.$fldname.focus();\n" .
|
||
|
|
" errMsgs[errMsgs.length] = " . js_escape(xl_layout_label($fldtitle)) . "; \n" .
|
||
|
|
" }\n";
|
||
|
|
break;
|
||
|
|
case 27: // radio buttons
|
||
|
|
echo
|
||
|
|
" var i = 0;\n" .
|
||
|
|
" for (; i < f.$fldname.length; ++i) if (f.{$fldname}[i].checked) break;\n" .
|
||
|
|
" if (i >= f.$fldname.length) {\n" .
|
||
|
|
" alert(" . xlj('Please choose a value for') . " + " .
|
||
|
|
"\":\\n\" + " . js_escape(xl_layout_label($fldtitle)) . ");\n" .
|
||
|
|
" return false;\n" .
|
||
|
|
" }\n";
|
||
|
|
break;
|
||
|
|
case 2:
|
||
|
|
case 3:
|
||
|
|
case 4:
|
||
|
|
case 15:
|
||
|
|
echo
|
||
|
|
" if (trimlen(f.$fldname.value) == 0) {\n" .
|
||
|
|
" if (f.$fldname.focus) f.$fldname.focus();\n" .
|
||
|
|
" $('#" . $fldname . "').parents('div.tab').each( function(){ var tabHeader = $('#header_' + $(this).attr('id') ); tabHeader.css('color','var(--danger)'); } ); " .
|
||
|
|
" $('#" . $fldname . "').attr('style','background: var(--danger)'); \n" .
|
||
|
|
" errMsgs[errMsgs.length] = " . js_escape(xl_layout_label($fldtitle)) . "; \n" .
|
||
|
|
" } else { " .
|
||
|
|
" $('#" . $fldname . "').attr('style',''); " .
|
||
|
|
" $('#" . $fldname . "').parents('div.tab').each( function(){ var tabHeader = $('#header_' + $(this).attr('id') ); tabHeader.css('color',''); } ); " .
|
||
|
|
" } \n";
|
||
|
|
break;
|
||
|
|
case 36: // multi select
|
||
|
|
echo
|
||
|
|
" var multi_select=f['$fldname" . "[]']; \n " .
|
||
|
|
" var multi_choice_made=false; \n" .
|
||
|
|
" for (var options_index=0; options_index < multi_select.length; options_index++) { " .
|
||
|
|
" multi_choice_made=multi_choice_made || multi_select.options[options_index].selected; \n" .
|
||
|
|
" } \n" .
|
||
|
|
" if(!multi_choice_made)
|
||
|
|
errMsgs[errMsgs.length] = " . js_escape(xl_layout_label($fldtitle)) . "; \n" .
|
||
|
|
"";
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
echo " }\n";
|
||
|
|
}
|
||
|
|
} // End this layout, there may be more in the case of history.
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* DROPDOWN FOR FACILITIES
|
||
|
|
*
|
||
|
|
* build a dropdown with all facilities
|
||
|
|
*
|
||
|
|
* @param string $selected - name of the currently selected facility
|
||
|
|
* use '0' for "unspecified facility"
|
||
|
|
* use '' for "All facilities" (the default)
|
||
|
|
* @param string $name - the name/id for select form (defaults to "form_facility")
|
||
|
|
* @param boolean $allow_unspecified - include an option for "unspecified" facility
|
||
|
|
* defaults to true
|
||
|
|
* @return void - just echo the html encoded string
|
||
|
|
*
|
||
|
|
* Note: This should become a data-type at some point, according to Brady
|
||
|
|
*/
|
||
|
|
function dropdown_facility(
|
||
|
|
$selected = '',
|
||
|
|
$name = 'form_facility',
|
||
|
|
$allow_unspecified = true,
|
||
|
|
$allow_allfacilities = true,
|
||
|
|
$disabled = '',
|
||
|
|
$onchange = '',
|
||
|
|
$multiple = false,
|
||
|
|
$class = ''
|
||
|
|
) {
|
||
|
|
global $facilityService;
|
||
|
|
|
||
|
|
$have_selected = false;
|
||
|
|
$fres = $facilityService->getAllFacility();
|
||
|
|
$id = $name;
|
||
|
|
|
||
|
|
if ($multiple) {
|
||
|
|
$name = $name . "[]";
|
||
|
|
}
|
||
|
|
echo " <select class='form-control$class";
|
||
|
|
if ($multiple) {
|
||
|
|
echo " select-dropdown";
|
||
|
|
}
|
||
|
|
echo "' name='" . attr($name) . "' id='" . attr($id) . "'";
|
||
|
|
if ($onchange) {
|
||
|
|
echo " onchange='$onchange'";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($multiple) {
|
||
|
|
echo " multiple='multiple'";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo " $disabled>\n";
|
||
|
|
|
||
|
|
if ($allow_allfacilities) {
|
||
|
|
$option_value = '';
|
||
|
|
$option_selected_attr = '';
|
||
|
|
if ($selected == '') {
|
||
|
|
$option_selected_attr = ' selected="selected"';
|
||
|
|
$have_selected = true;
|
||
|
|
}
|
||
|
|
|
||
|
|
$option_content = '-- ' . xl('All Facilities') . ' --';
|
||
|
|
echo " <option value='" . attr($option_value) . "' $option_selected_attr>" . text($option_content) . "</option>\n";
|
||
|
|
} elseif ($allow_unspecified) {
|
||
|
|
$option_value = '0';
|
||
|
|
$option_selected_attr = '';
|
||
|
|
if ($selected == '0') {
|
||
|
|
$option_selected_attr = ' selected="selected"';
|
||
|
|
$have_selected = true;
|
||
|
|
}
|
||
|
|
|
||
|
|
$option_content = '-- ' . xl('Unspecified') . ' --';
|
||
|
|
echo " <option value='" . attr($option_value) . "' $option_selected_attr>" . text($option_content) . "</option>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach ($fres as $frow) {
|
||
|
|
$facility_id = $frow['id'];
|
||
|
|
$option_value = $facility_id;
|
||
|
|
$option_selected_attr = '';
|
||
|
|
if ($multiple) {
|
||
|
|
$selectedValues = explode("|", $selected);
|
||
|
|
|
||
|
|
if (in_array($facility_id, $selectedValues)) {
|
||
|
|
$option_selected_attr = ' selected="selected"';
|
||
|
|
$have_selected = true;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
if ($selected == $facility_id) {
|
||
|
|
$option_selected_attr = ' selected="selected"';
|
||
|
|
$have_selected = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$option_content = $frow['name'];
|
||
|
|
echo " <option value='" . attr($option_value) . "' $option_selected_attr>" . text($option_content) . "</option>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($allow_unspecified && $allow_allfacilities) {
|
||
|
|
$option_value = '0';
|
||
|
|
$option_selected_attr = '';
|
||
|
|
if ($selected == '0') {
|
||
|
|
$option_selected_attr = ' selected="selected"';
|
||
|
|
$have_selected = true;
|
||
|
|
}
|
||
|
|
|
||
|
|
$option_content = '-- ' . xl('Unspecified') . ' --';
|
||
|
|
echo " <option value='" . attr($option_value) . "' $option_selected_attr>" . text($option_content) . "</option>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$have_selected && !$multiple) {
|
||
|
|
$option_value = $selected;
|
||
|
|
$option_label = '(' . xl('Do not change') . ')';
|
||
|
|
$option_content = xl('Missing or Invalid');
|
||
|
|
echo " <option value='" . attr($option_value) . "' label='" . attr($option_label) . "' selected='selected'>" . text($option_content) . "</option>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo " </select>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Expand Collapse Widget
|
||
|
|
* This forms the header and functionality component of the widget. The information that is displayed
|
||
|
|
* then follows this function followed by a closing div tag
|
||
|
|
*
|
||
|
|
* @var $title is the title of the section (already translated)
|
||
|
|
* @var $label is identifier used in the tag id's and sql columns
|
||
|
|
* @var $buttonLabel is the button label text (already translated)
|
||
|
|
* @var $buttonLink is the button link information
|
||
|
|
* @var $buttonClass is any additional needed class elements for the button tag
|
||
|
|
* @var $linkMethod is the button link method ('javascript' vs 'html')
|
||
|
|
* @var $bodyClass is to set class(es) of the body
|
||
|
|
* @var $auth is a flag to decide whether to show the button
|
||
|
|
* @var $fixedWidth is to flag whether width is fixed
|
||
|
|
* @var $forceExpandAlways is a flag to force the widget to always be expanded
|
||
|
|
*
|
||
|
|
* @todo Convert to a modern layout
|
||
|
|
*/
|
||
|
|
function expand_collapse_widget($title, $label, $buttonLabel, $buttonLink, $buttonClass, $linkMethod, $bodyClass, $auth, $fixedWidth, $forceExpandAlways = false)
|
||
|
|
{
|
||
|
|
if ($fixedWidth) {
|
||
|
|
echo "<div class='section-header'>";
|
||
|
|
} else {
|
||
|
|
echo "<div class='section-header-dynamic'>";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "<table><tr>";
|
||
|
|
if ($auth) {
|
||
|
|
// show button, since authorized
|
||
|
|
// first prepare class string
|
||
|
|
if ($buttonClass) {
|
||
|
|
$class_string = "btn btn-primary btn-sm " . $buttonClass;
|
||
|
|
} else {
|
||
|
|
$class_string = "btn btn-primary btn-sm";
|
||
|
|
}
|
||
|
|
|
||
|
|
// next, create the link
|
||
|
|
if ($linkMethod == "javascript") {
|
||
|
|
echo "<td><a class='" . attr($class_string) . "' href='javascript:;' onclick='" . $buttonLink . "'";
|
||
|
|
} else {
|
||
|
|
echo "<td><a class='" . attr($class_string) . "' href='" . $buttonLink . "'";
|
||
|
|
if (!isset($_SESSION['patient_portal_onsite_two'])) {
|
||
|
|
// prevent an error from occuring when calling the function from the patient portal
|
||
|
|
echo " onclick='top.restoreSession()'";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "><span>" .
|
||
|
|
text($buttonLabel) . "</span></a></td>";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($forceExpandAlways) {
|
||
|
|
// Special case to force the widget to always be expanded
|
||
|
|
echo "<td><span class='text font-weight-bold'>" . text($title) . "</span>";
|
||
|
|
$indicatorTag = "style='display: none'";
|
||
|
|
}
|
||
|
|
|
||
|
|
$indicatorTag = isset($indicatorTag) ? $indicatorTag : "";
|
||
|
|
echo "<td><a " . $indicatorTag . " href='javascript:;' class='small' onclick='toggleIndicator(this," .
|
||
|
|
attr_js($label . "_ps_expand") . ")'><span class='text font-weight-bold'>";
|
||
|
|
echo text($title) . "</span>";
|
||
|
|
|
||
|
|
if (isset($_SESSION['patient_portal_onsite_two'])) {
|
||
|
|
// collapse all entries in the patient portal
|
||
|
|
$text = xl('expand');
|
||
|
|
} elseif (getUserSetting($label . "_ps_expand")) {
|
||
|
|
$text = xl('collapse');
|
||
|
|
} else {
|
||
|
|
$text = xl('expand');
|
||
|
|
}
|
||
|
|
|
||
|
|
echo " (<span class='indicator'>" . text($text) .
|
||
|
|
"</span>)</a></td>";
|
||
|
|
echo "</tr></table>";
|
||
|
|
echo "</div>";
|
||
|
|
if ($forceExpandAlways) {
|
||
|
|
// Special case to force the widget to always be expanded
|
||
|
|
$styling = "";
|
||
|
|
} elseif (isset($_SESSION['patient_portal_onsite_two'])) {
|
||
|
|
// collapse all entries in the patient portal
|
||
|
|
$styling = "style='display: none'";
|
||
|
|
} elseif (getUserSetting($label . "_ps_expand")) {
|
||
|
|
$styling = "";
|
||
|
|
} else {
|
||
|
|
$styling = "style='display: none'";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($bodyClass) {
|
||
|
|
$styling .= " class='" . attr($bodyClass) . "'";
|
||
|
|
}
|
||
|
|
|
||
|
|
//next, create the first div tag to hold the information
|
||
|
|
// note the code that calls this function will then place the ending div tag after the data
|
||
|
|
echo "<div id='" . attr($label) . "_ps_expand' " . $styling . ">";
|
||
|
|
}
|
||
|
|
|
||
|
|
//billing_facility fuction will give the dropdown list which contain billing faciliies.
|
||
|
|
function billing_facility($name, $select)
|
||
|
|
{
|
||
|
|
global $facilityService;
|
||
|
|
|
||
|
|
$fres = $facilityService->getAllBillingLocations();
|
||
|
|
echo " <select id='" . htmlspecialchars($name, ENT_QUOTES) . "' class='form-control' name='" . htmlspecialchars($name, ENT_QUOTES) . "'>";
|
||
|
|
foreach ($fres as $facrow) {
|
||
|
|
$selected = ( $facrow['id'] == $select ) ? 'selected="selected"' : '' ;
|
||
|
|
echo "<option value=" . htmlspecialchars($facrow['id'], ENT_QUOTES) . " $selected>" . htmlspecialchars($facrow['name'], ENT_QUOTES) . "</option>";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "</select>";
|
||
|
|
}
|
||
|
|
|
||
|
|
// Generic function to get the translated title value for a particular list option.
|
||
|
|
//
|
||
|
|
function getListItemTitle($list, $option)
|
||
|
|
{
|
||
|
|
$row = sqlQuery("SELECT title FROM list_options WHERE " .
|
||
|
|
"list_id = ? AND option_id = ? AND activity = 1", array($list, $option));
|
||
|
|
if (empty($row['title'])) {
|
||
|
|
return $option;
|
||
|
|
}
|
||
|
|
|
||
|
|
return xl_list_label($row['title']);
|
||
|
|
}
|
||
|
|
|
||
|
|
//function to get the translated title value in Patient Transactions
|
||
|
|
function getLayoutTitle($list, $option)
|
||
|
|
{
|
||
|
|
$row = sqlQuery("SELECT grp_title FROM layout_group_properties " .
|
||
|
|
"WHERE grp_mapping = ? AND grp_form_id = ? ", array($list, $option));
|
||
|
|
|
||
|
|
if (empty($row['grp_title'])) {
|
||
|
|
return $option;
|
||
|
|
}
|
||
|
|
return xl_list_label($row['grp_title']);
|
||
|
|
}
|
||
|
|
//Added on 5-jun-2k14 (regarding get the smoking code descriptions)
|
||
|
|
function getSmokeCodes()
|
||
|
|
{
|
||
|
|
$smoking_codes_arr = array();
|
||
|
|
$smoking_codes = sqlStatement("SELECT option_id,codes FROM list_options WHERE list_id='smoking_status' AND activity = 1");
|
||
|
|
while ($codes_row = sqlFetchArray($smoking_codes)) {
|
||
|
|
$smoking_codes_arr[$codes_row['option_id']] = $codes_row['codes'];
|
||
|
|
}
|
||
|
|
|
||
|
|
return $smoking_codes_arr;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Get the current value for a layout based form field.
|
||
|
|
// Depending on options this might come from lbf_data, patient_data,
|
||
|
|
// form_encounter, shared_attributes or elsewhere.
|
||
|
|
// Returns FALSE if the field ID is invalid (layout error).
|
||
|
|
//
|
||
|
|
function lbf_current_value($frow, $formid, $encounter)
|
||
|
|
{
|
||
|
|
global $pid;
|
||
|
|
$formname = $frow['form_id'];
|
||
|
|
$field_id = $frow['field_id'];
|
||
|
|
$source = $frow['source'];
|
||
|
|
$currvalue = '';
|
||
|
|
$deffname = $formname . '_default_' . $field_id;
|
||
|
|
if ($source == 'D' || $source == 'H') {
|
||
|
|
// Get from patient_data, employer_data or history_data.
|
||
|
|
if ($source == 'H') {
|
||
|
|
$table = 'history_data';
|
||
|
|
$orderby = 'ORDER BY date DESC LIMIT 1';
|
||
|
|
} elseif (strpos($field_id, 'em_') === 0) {
|
||
|
|
$field_id = substr($field_id, 3);
|
||
|
|
$table = 'employer_data';
|
||
|
|
$orderby = 'ORDER BY date DESC LIMIT 1';
|
||
|
|
} else {
|
||
|
|
$table = 'patient_data';
|
||
|
|
$orderby = '';
|
||
|
|
}
|
||
|
|
|
||
|
|
// It is an error if the field does not exist, but don't crash.
|
||
|
|
$tmp = sqlQuery("SHOW COLUMNS FROM " . escape_table_name($table) . " WHERE Field = ?", array($field_id));
|
||
|
|
if (empty($tmp)) {
|
||
|
|
return '*?*';
|
||
|
|
}
|
||
|
|
|
||
|
|
$pdrow = sqlQuery("SELECT `$field_id` AS field_value FROM " . escape_table_name($table) . " WHERE pid = ? $orderby", array($pid));
|
||
|
|
if (isset($pdrow)) {
|
||
|
|
$currvalue = $pdrow['field_value'];
|
||
|
|
}
|
||
|
|
} elseif ($source == 'E') {
|
||
|
|
$sarow = false;
|
||
|
|
if ($encounter) {
|
||
|
|
// Get value from shared_attributes of the current encounter.
|
||
|
|
$sarow = sqlQuery(
|
||
|
|
"SELECT field_value FROM shared_attributes WHERE " .
|
||
|
|
"pid = ? AND encounter = ? AND field_id = ?",
|
||
|
|
array($pid, $encounter, $field_id)
|
||
|
|
);
|
||
|
|
if (!empty($sarow)) {
|
||
|
|
$currvalue = $sarow['field_value'];
|
||
|
|
}
|
||
|
|
} elseif ($formid) {
|
||
|
|
// Get from shared_attributes of the encounter that this form is linked to.
|
||
|
|
// Note the importance of having an index on forms.form_id.
|
||
|
|
$sarow = sqlQuery(
|
||
|
|
"SELECT sa.field_value " .
|
||
|
|
"FROM forms AS f, shared_attributes AS sa WHERE " .
|
||
|
|
"f.form_id = ? AND f.formdir = ? AND f.deleted = 0 AND " .
|
||
|
|
"sa.pid = f.pid AND sa.encounter = f.encounter AND sa.field_id = ?",
|
||
|
|
array($formid, $formname, $field_id)
|
||
|
|
);
|
||
|
|
if (!empty($sarow)) {
|
||
|
|
$currvalue = $sarow['field_value'];
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
// New form and encounter not available, this should not happen.
|
||
|
|
}
|
||
|
|
if (empty($sarow) && !$formid) {
|
||
|
|
// New form, see if there is a custom default from a plugin.
|
||
|
|
if (function_exists($deffname)) {
|
||
|
|
$currvalue = call_user_func($deffname);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} elseif ($source == 'V') {
|
||
|
|
if ($encounter) {
|
||
|
|
// Get value from the current encounter's form_encounter.
|
||
|
|
$ferow = sqlQuery(
|
||
|
|
"SELECT * FROM form_encounter WHERE " .
|
||
|
|
"pid = ? AND encounter = ?",
|
||
|
|
array($pid, $encounter)
|
||
|
|
);
|
||
|
|
if (isset($ferow[$field_id])) {
|
||
|
|
$currvalue = $ferow[$field_id];
|
||
|
|
}
|
||
|
|
} elseif ($formid) {
|
||
|
|
// Get value from the form_encounter that this form is linked to.
|
||
|
|
$ferow = sqlQuery(
|
||
|
|
"SELECT fe.* " .
|
||
|
|
"FROM forms AS f, form_encounter AS fe WHERE " .
|
||
|
|
"f.form_id = ? AND f.formdir = ? AND f.deleted = 0 AND " .
|
||
|
|
"fe.pid = f.pid AND fe.encounter = f.encounter",
|
||
|
|
array($formid, $formname)
|
||
|
|
);
|
||
|
|
if (isset($ferow[$field_id])) {
|
||
|
|
$currvalue = $ferow[$field_id];
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
// New form and encounter not available, this should not happen.
|
||
|
|
}
|
||
|
|
} elseif ($formid) {
|
||
|
|
// This is a normal form field.
|
||
|
|
$ldrow = sqlQuery("SELECT field_value FROM lbf_data WHERE " .
|
||
|
|
"form_id = ? AND field_id = ?", array($formid, $field_id));
|
||
|
|
if (!empty($ldrow)) {
|
||
|
|
$currvalue = $ldrow['field_value'];
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
// New form, see if there is a custom default from a plugin.
|
||
|
|
if (function_exists($deffname)) {
|
||
|
|
$currvalue = call_user_func($deffname);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return $currvalue;
|
||
|
|
}
|
||
|
|
|
||
|
|
function signer_head()
|
||
|
|
{
|
||
|
|
return <<<EOD
|
||
|
|
<link href="{$GLOBALS['web_root']}/portal/sign/css/signer_modal.css?v={$GLOBALS['v_js_includes']}" rel="stylesheet"/>
|
||
|
|
<script src="{$GLOBALS['web_root']}/portal/sign/assets/signature_pad.umd.js?v={$GLOBALS['v_js_includes']}"></script>
|
||
|
|
<script src="{$GLOBALS['web_root']}/portal/sign/assets/signer_api.js?v={$GLOBALS['v_js_includes']}"></script>
|
||
|
|
EOD;
|
||
|
|
}
|
||
|
|
|
||
|
|
// This returns stuff that needs to go into the <head> section of a caller using
|
||
|
|
// the drawable image field type in a form.
|
||
|
|
// A TRUE argument makes the widget controls smaller.
|
||
|
|
//
|
||
|
|
function lbf_canvas_head($small = true)
|
||
|
|
{
|
||
|
|
$s = <<<EOD
|
||
|
|
<link href="{$GLOBALS['assets_static_relative']}/literallycanvas/css/literallycanvas.css" rel="stylesheet" />
|
||
|
|
<script src="{$GLOBALS['assets_static_relative']}/react/build/react-with-addons.min.js"></script>
|
||
|
|
<script src="{$GLOBALS['assets_static_relative']}/react/build/react-dom.min.js"></script>
|
||
|
|
<script src="{$GLOBALS['assets_static_relative']}/literallycanvas/js/literallycanvas.min.js"></script>
|
||
|
|
EOD;
|
||
|
|
if ($small) {
|
||
|
|
$s .= <<<EOD
|
||
|
|
<style>
|
||
|
|
/* Custom LiterallyCanvas styling.
|
||
|
|
* This makes the widget 25% less tall and adjusts some other things accordingly.
|
||
|
|
*/
|
||
|
|
.literally {
|
||
|
|
min-height: 100%;
|
||
|
|
min-width: 300px; /* Was 400, unspecified */
|
||
|
|
}
|
||
|
|
.literally .lc-picker .toolbar-button {
|
||
|
|
width: 20px;
|
||
|
|
height: 20px;
|
||
|
|
line-height: 20px; /* Was 26, 26, 26 */
|
||
|
|
}
|
||
|
|
.literally .color-well {
|
||
|
|
font-size: 8px;
|
||
|
|
width: 49px; /* Was 10, 60 */
|
||
|
|
}
|
||
|
|
.literally .color-well-color-container {
|
||
|
|
width: 21px;
|
||
|
|
height: 21px; /* Was 28, 28 */
|
||
|
|
}
|
||
|
|
.literally .lc-picker {
|
||
|
|
width: 50px; /* Was 61 */
|
||
|
|
}
|
||
|
|
.literally .lc-drawing.with-gui {
|
||
|
|
left: 50px; /* Was 61 */
|
||
|
|
}
|
||
|
|
.literally .lc-options {
|
||
|
|
left: 50px; /* Was 61 */
|
||
|
|
}
|
||
|
|
.literally .color-picker-popup {
|
||
|
|
left: 49px;
|
||
|
|
bottom: 0px; /* Was 60, 31 */
|
||
|
|
}
|
||
|
|
</style>
|
||
|
|
EOD;
|
||
|
|
}
|
||
|
|
|
||
|
|
return $s;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Test if modifier($test) is in array of options for data type.
|
||
|
|
*
|
||
|
|
* @param json array $options ["G","P","T"], ["G"] or could be legacy string with form "GPT", "G", "012"
|
||
|
|
* @param string $test
|
||
|
|
* @return boolean
|
||
|
|
*/
|
||
|
|
function isOption($options, string $test): bool
|
||
|
|
{
|
||
|
|
if (empty($options) || !isset($test) || $options == "null") {
|
||
|
|
return false; // why bother?
|
||
|
|
}
|
||
|
|
if (strpos($options, ',') === false) { // not json array of modifiers.
|
||
|
|
// could be string of char's or single element of json ["RO"] or "TP" or "P" e.t.c.
|
||
|
|
json_decode($options, true); // test if options json. json_last_error() will return JSON_ERROR_SYNTAX if not.
|
||
|
|
// if of form ["RO"] (single modifier) means not legacy so continue on.
|
||
|
|
if (is_string($options) && (json_last_error() !== JSON_ERROR_NONE)) { // nope, it's string.
|
||
|
|
$t = str_split(trim($options)); // very good chance it's legacy modifier string.
|
||
|
|
$options = json_encode($t); // make it json array to convert from legacy to new modifier json schema.
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$options = json_decode($options, true); // all should now be json
|
||
|
|
|
||
|
|
return is_array($options) && in_array($test, $options, true); // finally the truth!
|
||
|
|
}
|