library/options.inc.php

   1 <?php
   2 // Copyright (C) 2007-2009 Rod Roark <rod@sunsetsystems.com>
   3 //
   4 // This program is free software; you can redistribute it and/or
   5 // modify it under the terms of the GNU General Public License
   6 // as published by the Free Software Foundation; either version 2
   7 // of the License, or (at your option) any later version.
   8
   9 // Functions for managing the lists and layouts
  10 //
  11 // Note: there are translation wrappers for the lists and layout labels
  12 //   at library/translation.inc.php. The functions are titled
  13 //   xl_list_label() and xl_layout_label() and are controlled by the
  14 //   $GLOBALS['translate_lists'] and $GLOBALS['translate_layout']
  15 //   flags in globals.php
  16
  17 require_once("formdata.inc.php");
  18
  19 $date_init = "";
  20
  21 function get_pharmacies() {
  22   return sqlStatement("SELECT d.id, d.name, a.line1, a.city, " .
  23     "p.area_code, p.prefix, p.number FROM pharmacies AS d " .
  24     "LEFT OUTER JOIN addresses AS a ON a.foreign_id = d.id " .
  25     "LEFT OUTER JOIN phone_numbers AS p ON p.foreign_id = d.id " .
  26     "AND p.type = 2 " .
  27     "ORDER BY name, area_code, prefix, number");
  28 }
  29
  30 function generate_form_field($frow, $currvalue) {
  31   global $rootdir, $date_init;
  32
  33   $currescaped = htmlspecialchars($currvalue, ENT_QUOTES);
  34
  35   $data_type   = $frow['data_type'];
  36   $field_id    = $frow['field_id'];
  37   $list_id     = $frow['list_id'];
  38
  39   // Added 5-09 by BM - Translate description if applicable
  40   $description = htmlspecialchars(xl_layout_label($frow['description']), ENT_QUOTES);
  41
  42   // added 5-2009 by BM to allow modification of the 'empty' text title field.
  43   //  Can pass $frow['empty_title'] with this variable, otherwise
  44   //  will default to 'Unassigned'.
  45   // modified 6-2009 by BM to allow complete skipping of the 'empty' text title
  46   //  if make $frow['empty_title'] equal to 'SKIP'
  47   $showEmpty = true;
  48   if (isset($frow['empty_title'])) {
  49    if ($frow['empty_title'] == "SKIP") {
  50     //do not display an 'empty' choice
  51     $showEmpty = false;
  52     $empty_title = "Unassigned";
  53    }
  54    else {
  55     $empty_title = $frow['empty_title'];
  56    }
  57   }
  58   else {
  59    $empty_title = "Unassigned";
  60   }
  61
  62   // generic single-selection list
  63   if ($data_type == 1) {
  64     echo "<select name='form_$field_id' id='form_$field_id' title='$description'>";
  65     if ($showEmpty) echo "<option value=''>" . xl($empty_title) . "</option>";
  66     $lres = sqlStatement("SELECT * FROM list_options " .
  67       "WHERE list_id = '$list_id' ORDER BY seq, title");
  68     $got_selected = FALSE;
  69     while ($lrow = sqlFetchArray($lres)) {
  70       echo "<option value='" . $lrow['option_id'] . "'";
  71       if ((strlen($currvalue) == 0 && $lrow['is_default']) ||
  72           (strlen($currvalue)  > 0 && $lrow['option_id'] == $currvalue))
  73       {
  74         echo " selected";
  75         $got_selected = TRUE;
  76       }
  77
  78       // Added 5-09 by BM - Translate label if applicable
  79       echo ">" . xl_list_label($lrow['title']) . "</option>\n";
  80
  81     }
  82     if (!$got_selected && strlen($currvalue) > 0) {
  83       echo "<option value='$currescaped' selected>* $currescaped *</option>";
  84       echo "</select>";
  85       echo " <font color='red' title='" . xl('Please choose a valid selection from the list.') . "'>" . xl('Fix this') . "!</font>";
  86     }
  87     else {
  88       echo "</select>";
  89     }
  90   }
  91
  92   // simple text field
  93   else if ($data_type == 2) {
  94     echo "<input type='text'" .
  95       " name='form_$field_id'" .
  96       " id='form_$field_id'" .
  97       " size='" . $frow['fld_length'] . "'" .
  98       " maxlength='" . $frow['max_length'] . "'" .
  99       " title='$description'" .
 100       " value='$currescaped'";
 101     if (strpos($frow['edit_options'], 'C') !== FALSE)
 102       echo " onchange='capitalizeMe(this)'";
 103     echo " />";
 104   }
 105
 106   // long or multi-line text field
 107   else if ($data_type == 3) {
 108     echo "<textarea" .
 109       " name='form_$field_id'" .
 110       " id='form_$field_id'" .
 111       " title='$description'" .
 112       " cols='" . $frow['fld_length'] . "'" .
 113       " rows='" . $frow['max_length'] . "'>" .
 114       $currescaped . "</textarea>";
 115   }
 116
 117   // date
 118   else if ($data_type == 4) {
 119     echo "<input type='text' size='10' name='form_$field_id' id='form_$field_id'" .
 120       " value='$currescaped'" .
 121       " title='$description'" .
 122       " onkeyup='datekeyup(this,mypcc)' onblur='dateblur(this,mypcc)' />" .
 123       "<img src='$rootdir/pic/show_calendar.gif' align='absbottom' width='24' height='22'" .
 124       " id='img_$field_id' border='0' alt='[?]' style='cursor:pointer'" .
 125       " title='" . xl('Click here to choose a date') . "' />";
 126     $date_init .= " Calendar.setup({inputField:'form_$field_id', ifFormat:'%Y-%m-%d', button:'img_$field_id'});\n";
 127   }
 128
 129   // provider list, local providers only
 130   else if ($data_type == 10) {
 131     $ures = sqlStatement("SELECT id, fname, lname, specialty FROM users " .
 132       "WHERE active = 1 AND ( info IS NULL OR info NOT LIKE '%Inactive%' ) " .
 133       "AND authorized = 1 " .
 134       "ORDER BY lname, fname");
 135     echo "<select name='form_$field_id' id='form_$field_id' title='$description'>";
 136     echo "<option value=''>" . xl('Unassigned') . "</option>";
 137     while ($urow = sqlFetchArray($ures)) {
 138       $uname = $urow['fname'] . ' ' . $urow['lname'];
 139       echo "<option value='" . $urow['id'] . "'";
 140       if ($urow['id'] == $currvalue) echo " selected";
 141       echo ">$uname</option>";
 142     }
 143     echo "</select>";
 144   }
 145
 146   // provider list, including address book entries with an NPI number
 147   else if ($data_type == 11) {
 148     $ures = sqlStatement("SELECT id, fname, lname, specialty FROM users " .
 149       "WHERE active = 1 AND ( info IS NULL OR info NOT LIKE '%Inactive%' ) " .
 150       "AND ( authorized = 1 OR ( username = '' AND npi != '' ) ) " .
 151       "ORDER BY lname, fname");
 152     echo "<select name='form_$field_id' id='form_$field_id' title='$description'>";
 153     echo "<option value=''>" . xl('Unassigned') . "</option>";
 154     while ($urow = sqlFetchArray($ures)) {
 155       $uname = $urow['fname'] . ' ' . $urow['lname'];
 156       echo "<option value='" . $urow['id'] . "'";
 157       if ($urow['id'] == $currvalue) echo " selected";
 158       echo ">$uname</option>";
 159     }
 160     echo "</select>";
 161   }
 162
 163   // pharmacy list
 164   else if ($data_type == 12) {
 165     echo "<select name='form_$field_id' id='form_$field_id' title='$description'>";
 166     echo "<option value='0'></option>";
 167     $pres = get_pharmacies();
 168     while ($prow = sqlFetchArray($pres)) {
 169       $key = $prow['id'];
 170       echo "<option value='$key'";
 171       if ($currvalue == $key) echo " selected";
 172       echo '>' . $prow['name'] . ' ' . $prow['area_code'] . '-' .
 173         $prow['prefix'] . '-' . $prow['number'] . ' / ' .
 174         $prow['line1'] . ' / ' . $prow['city'] . "</option>";
 175     }
 176     echo "</select>";
 177   }
 178
 179   // squads
 180   else if ($data_type == 13) {
 181     echo "<select name='form_$field_id' id='form_$field_id' title='$description'>";
 182     echo "<option value=''>&nbsp;</option>";
 183     $squads = acl_get_squads();
 184     if ($squads) {
 185       foreach ($squads as $key => $value) {
 186         echo "<option value='$key'";
 187         if ($currvalue == $key) echo " selected";
 188         echo ">" . $value[3] . "</option>\n";
 189       }
 190     }
 191     echo "</select>";
 192   }
 193
 194   // Address book, preferring organization name if it exists and is not in
 195   // parentheses, and excluding local users who are not providers.
 196   // Supports "referred to" practitioners and facilities.
 197   else if ($data_type == 14) {
 198     $ures = sqlStatement("SELECT id, fname, lname, organization, username FROM users " .
 199       "WHERE active = 1 AND ( info IS NULL OR info NOT LIKE '%Inactive%' ) " .
 200       "AND ( username = '' OR authorized = 1 ) " .
 201       "ORDER BY organization, lname, fname");
 202     echo "<select name='form_$field_id' id='form_$field_id' title='$description'>";
 203     echo "<option value=''>" . xl('Unassigned') . "</option>";
 204     while ($urow = sqlFetchArray($ures)) {
 205       $uname = $urow['organization'];
 206       if (empty($uname) || substr($uname, 0, 1) == '(') {
 207         $uname = $urow['lname'];
 208         if ($urow['fname']) $uname .= ", " . $urow['fname'];
 209       }
 210       echo "<option value='" . $urow['id'] . "'";
 211       $title = $urow['username'] ? xl('Local') : xl('External');
 212       echo " title='$title'";
 213       if ($urow['id'] == $currvalue) echo " selected";
 214       echo ">$uname</option>";
 215     }
 216     echo "</select>";
 217   }
 218
 219   // a billing code (only one of these allowed!)
 220   else if ($data_type == 15) {
 221     echo "<input type='text'" .
 222       " name='form_$field_id'" .
 223       " id='form_related_code'" .
 224       " size='" . $frow['fld_length'] . "'" .
 225       " maxlength='" . $frow['max_length'] . "'" .
 226       " title='$description'" .
 227       " value='$currescaped'" .
 228       " onclick='sel_related()' readonly" .
 229       " />";
 230   }
 231
 232   // a set of labeled checkboxes
 233   else if ($data_type == 21) {
 234     // In this special case, fld_length is the number of columns generated.
 235     $cols = max(1, $frow['fld_length']);
 236     $avalue = explode('|', $currvalue);
 237     $lres = sqlStatement("SELECT * FROM list_options " .
 238       "WHERE list_id = '$list_id' ORDER BY seq, title");
 239     echo "<table cellpadding='0' cellspacing='0' width='100%'>";
 240     $tdpct = (int) (100 / $cols);
 241     for ($count = 0; $lrow = sqlFetchArray($lres); ++$count) {
 242       $option_id = $lrow['option_id'];
 243       // if ($count) echo "<br />";
 244       if ($count % $cols == 0) {
 245         if ($count) echo "</tr>";
 246         echo "<tr>";
 247       }
 248       echo "<td width='$tdpct%'>";
 249       echo "<input type='checkbox' name='form_{$field_id}[$option_id]' id='form_{$field_id}[$option_id]' value='1'";
 250       if (in_array($option_id, $avalue)) echo " checked";
 251
 252       // Added 5-09 by BM - Translate label if applicable
 253       echo ">" . xl_list_label($lrow['title']);
 254
 255       echo "</td>";
 256     }
 257     if ($count) {
 258       echo "</tr>";
 259       if ($count > $cols) {
 260         // Add some space after multiple rows of checkboxes.
 261         echo "<tr><td colspan='$cols' style='height:0.7em'></td></tr>";
 262       }
 263     }
 264     echo "</table>";
 265   }
 266
 267   // a set of labeled text input fields
 268   else if ($data_type == 22) {
 269     $tmp = explode('|', $currvalue);
 270     $avalue = array();
 271     foreach ($tmp as $value) {
 272       if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
 273         $avalue[$matches[1]] = $matches[2];
 274       }
 275     }
 276     $lres = sqlStatement("SELECT * FROM list_options " .
 277       "WHERE list_id = '$list_id' ORDER BY seq, title");
 278     echo "<table cellpadding='0' cellspacing='0'>";
 279     while ($lrow = sqlFetchArray($lres)) {
 280       $option_id = $lrow['option_id'];
 281       $maxlength = empty($frow['max_length']) ? 255 : $frow['max_length'];
 282       $fldlength = empty($frow['fld_length']) ?  20 : $frow['fld_length'];
 283
 284       // Added 5-09 by BM - Translate label if applicable
 285       echo "<tr><td>" . xl_list_label($lrow['title']) . "&nbsp;</td>";
 286
 287       echo "<td><input type='text'" .
 288         " name='form_{$field_id}[$option_id]'" .
 289         " id='form_{$field_id}[$option_id]'" .
 290         " size='$fldlength'" .
 291         " maxlength='$maxlength'" .
 292         " value='" . $avalue[$option_id] . "'";
 293       echo " /></td></tr>";
 294     }
 295     echo "</table>";
 296   }
 297
 298   // a set of exam results; 3 radio buttons and a text field:
 299   else if ($data_type == 23) {
 300     $tmp = explode('|', $currvalue);
 301     $avalue = array();
 302     foreach ($tmp as $value) {
 303       if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
 304         $avalue[$matches[1]] = $matches[2];
 305       }
 306     }
 307     $maxlength = empty($frow['max_length']) ? 255 : $frow['max_length'];
 308     $fldlength = empty($frow['fld_length']) ?  20 : $frow['fld_length'];
 309     $lres = sqlStatement("SELECT * FROM list_options " .
 310       "WHERE list_id = '$list_id' ORDER BY seq, title");
 311     echo "<table cellpadding='0' cellspacing='0'>";
 312     echo "<tr><td>&nbsp;</td><td class='bold'>" . xl('N/A') .
 313       "&nbsp;</td><td class='bold'>" . xl('Nor') . "&nbsp;</td>" .
 314       "<td class='bold'>" . xl('Abn') . "&nbsp;</td><td class='bold'>" .
 315       xl('Date/Notes') . "</td></tr>";
 316     while ($lrow = sqlFetchArray($lres)) {
 317       $option_id = $lrow['option_id'];
 318       $restype = substr($avalue[$option_id], 0, 1);
 319       $resnote = substr($avalue[$option_id], 2);
 320
 321       // Added 5-09 by BM - Translate label if applicable
 322       echo "<tr><td>" . xl_list_label($lrow['title']) . "&nbsp;</td>";
 323
 324       for ($i = 0; $i < 3; ++$i) {
 325         echo "<td><input type='radio'" .
 326           " name='radio_{$field_id}[$option_id]'" .
 327           " id='radio_{$field_id}[$option_id]'" .
 328           " value='$i'";
 329         if ($restype === "$i") echo " checked";
 330         echo " /></td>";
 331       }
 332       echo "<td><input type='text'" .
 333         " name='form_{$field_id}[$option_id]'" .
 334         " id='form_{$field_id}[$option_id]'" .
 335         " size='$fldlength'" .
 336         " maxlength='$maxlength'" .
 337         " value='$resnote' /></td>";
 338       echo "</tr>";
 339     }
 340     echo "</table>";
 341   }
 342
 343   // the list of active allergies for the current patient
 344   // this is read-only!
 345   else if ($data_type == 24) {
 346     $query = "SELECT title, comments FROM lists WHERE " .
 347       "pid = '" . $GLOBALS['pid'] . "' AND type = 'allergy' AND enddate IS NULL " .
 348       "ORDER BY begdate";
 349     // echo "<!-- $query -->\n"; // debugging
 350     $lres = sqlStatement($query);
 351     $count = 0;
 352     while ($lrow = sqlFetchArray($lres)) {
 353       if ($count++) echo "<br />";
 354       echo $lrow['title'];
 355       if ($lrow['comments']) echo ' (' . $lrow['comments'] . ')';
 356     }
 357   }
 358
 359   // a set of labeled checkboxes, each with a text field:
 360   else if ($data_type == 25) {
 361     $tmp = explode('|', $currvalue);
 362     $avalue = array();
 363     foreach ($tmp as $value) {
 364       if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
 365         $avalue[$matches[1]] = $matches[2];
 366       }
 367     }
 368     $maxlength = empty($frow['max_length']) ? 255 : $frow['max_length'];
 369     $fldlength = empty($frow['fld_length']) ?  20 : $frow['fld_length'];
 370     $lres = sqlStatement("SELECT * FROM list_options " .
 371       "WHERE list_id = '$list_id' ORDER BY seq, title");
 372     echo "<table cellpadding='0' cellspacing='0'>";
 373     while ($lrow = sqlFetchArray($lres)) {
 374       $option_id = $lrow['option_id'];
 375       $restype = substr($avalue[$option_id], 0, 1);
 376       $resnote = substr($avalue[$option_id], 2);
 377
 378       // Added 5-09 by BM - Translate label if applicable
 379       echo "<tr><td>" . xl_list_label($lrow['title']) . "&nbsp;</td>";
 380
 381       echo "<td><input type='checkbox' name='check_{$field_id}[$option_id]' id='check_{$field_id}[$option_id]' value='1'";
 382       if ($restype) echo " checked";
 383       echo " />&nbsp;</td>";
 384       echo "<td><input type='text'" .
 385         " name='form_{$field_id}[$option_id]'" .
 386         " id='form_{$field_id}[$option_id]'" .
 387         " size='$fldlength'" .
 388         " maxlength='$maxlength'" .
 389         " value='$resnote' /></td>";
 390       echo "</tr>";
 391     }
 392     echo "</table>";
 393   }
 394
 395   // single-selection list with ability to add to it
 396   else if ($data_type == 26) {
 397     echo "<select class='addtolistclass_$list_id' name='form_$field_id' id='form_$field_id' title='$description'>";
 398     if ($showEmpty) echo "<option value=''>" . xl($empty_title) . "</option>";
 399     $lres = sqlStatement("SELECT * FROM list_options " .
 400       "WHERE list_id = '$list_id' ORDER BY seq, title");
 401     $got_selected = FALSE;
 402     while ($lrow = sqlFetchArray($lres)) {
 403       echo "<option value='" . $lrow['option_id'] . "'";
 404       if ((strlen($currvalue) == 0 && $lrow['is_default']) ||
 405           (strlen($currvalue)  > 0 && $lrow['option_id'] == $currvalue))
 406       {
 407         echo " selected";
 408         $got_selected = TRUE;
 409       }
 410
 411       // Added 5-09 by BM - Translate label if applicable
 412       echo ">" . xl_list_label($lrow['title']) . "</option>\n";
 413
 414     }
 415     if (!$got_selected && strlen($currvalue) > 0) {
 416       echo "<option value='$currescaped' selected>* $currescaped *</option>";
 417       echo "</select>";
 418       echo " <font color='red' title='" . xl('Please choose a valid selection from the list.') . "'>" . xl('Fix this') . "!</font>";
 419     }
 420     else {
 421       echo "</select>";
 422     }
 423
 424     // show the add button if user has access to correct list
 425     $outputAddButton = "<input type='button' id='addtolistid_".$list_id."' fieldid='form_".$field_id."' class='addtolist' value='" . xl('Add') . "'>";
 426     if (aco_exist('lists', $list_id)) {
 427      // a specific aco exist for this list, so ensure access
 428      if (acl_check('lists', $list_id)) echo $outputAddButton;
 429     }
 430     else {
 431      // no specific aco exist for this list, so check for access to 'default' list
 432      if (acl_check('lists', 'default')) echo $outputAddButton;
 433     }
 434   }
 435
 436 }
 437
 438 function generate_print_field($frow, $currvalue) {
 439   global $rootdir, $date_init;
 440
 441   $currescaped = htmlspecialchars($currvalue, ENT_QUOTES);
 442
 443   $data_type   = $frow['data_type'];
 444   $field_id    = $frow['field_id'];
 445   $list_id     = $frow['list_id'];
 446   $fld_length  = $frow['fld_length'];
 447
 448   $description = htmlspecialchars(xl_layout_label($frow['description']), ENT_QUOTES);
 449
 450   // Can pass $frow['empty_title'] with this variable, otherwise
 451   //  will default to 'Unassigned'.
 452   // If it is 'SKIP' then an empty text title is completely skipped.
 453   $showEmpty = true;
 454   if (isset($frow['empty_title'])) {
 455     if ($frow['empty_title'] == "SKIP") {
 456       //do not display an 'empty' choice
 457       $showEmpty = false;
 458       $empty_title = "Unassigned";
 459     }
 460     else {
 461       $empty_title = $frow['empty_title'];
 462     }
 463   }
 464   else {
 465     $empty_title = "Unassigned";
 466   }
 467
 468   // generic single-selection list
 469   if ($data_type == 1 || $data_type == 26) {
 470     if (empty($fld_length)) {
 471       if ($list_id == 'titles') {
 472         $fld_length = 3;
 473       } else {
 474         $fld_length = 10;
 475       }
 476     }
 477     $tmp = '';
 478     if ($currvalue) {
 479       $lrow = sqlQuery("SELECT title FROM list_options " .
 480         "WHERE list_id = '$list_id' AND option_id = '$currvalue'");
 481       $tmp = xl_list_label($lrow['title']);
 482       if (empty($tmp)) $tmp = "($currvalue)";
 483     }
 484     /*****************************************************************
 485     echo "<input type='text'" .
 486       " size='$fld_length'" .
 487       " value='$tmp'" .
 488       " class='under'" .
 489       " />";
 490     *****************************************************************/
 491     if ($tmp === '') $tmp = '&nbsp;';
 492     echo $tmp;
 493   }
 494
 495   // simple text field
 496   else if ($data_type == 2 || $data_type == 15) {
 497     /*****************************************************************
 498     echo "<input type='text'" .
 499       " size='$fld_length'" .
 500       " value='$currescaped'" .
 501       " class='under'" .
 502       " />";
 503     *****************************************************************/
 504     if ($currescaped === '') $currescaped = '&nbsp;';
 505     echo $currescaped;
 506   }
 507
 508   // long or multi-line text field
 509   else if ($data_type == 3) {
 510     echo "<textarea" .
 511       " cols='$fld_length'" .
 512       " rows='" . $frow['max_length'] . "'>" .
 513       $currescaped . "</textarea>";
 514   }
 515
 516   // date
 517   else if ($data_type == 4) {
 518     /*****************************************************************
 519     echo "<input type='text' size='10'" .
 520       " value='$currescaped'" .
 521       " title='$description'" .
 522       " class='under'" .
 523       " />";
 524     *****************************************************************/
 525     if ($currescaped === '') $currescaped = '&nbsp;';
 526     echo $currescaped;
 527   }
 528
 529   // provider list
 530   else if ($data_type == 10 || $data_type == 11) {
 531     $tmp = '';
 532     if ($currvalue) {
 533       $urow = sqlQuery("SELECT fname, lname, specialty FROM users " .
 534         "WHERE id = '$currvalue'");
 535       $tmp = ucwords($urow['fname'] . " " . $urow['lname']);
 536       if (empty($tmp)) $tmp = "($currvalue)";
 537     }
 538     /*****************************************************************
 539     echo "<input type='text'" .
 540       " size='$fld_length'" .
 541       " value='$tmp'" .
 542       " class='under'" .
 543       " />";
 544     *****************************************************************/
 545     if ($tmp === '') $tmp = '&nbsp;';
 546     echo $tmp;
 547   }
 548
 549   // pharmacy list
 550   else if ($data_type == 12) {
 551     $tmp = '';
 552     if ($currvalue) {
 553       $pres = get_pharmacies();
 554       while ($prow = sqlFetchArray($pres)) {
 555         $key = $prow['id'];
 556         if ($currvalue == $key) {
 557           $tmp = $prow['name'] . ' ' . $prow['area_code'] . '-' .
 558             $prow['prefix'] . '-' . $prow['number'] . ' / ' .
 559             $prow['line1'] . ' / ' . $prow['city'];
 560         }
 561       }
 562       if (empty($tmp)) $tmp = "($currvalue)";
 563     }
 564     /*****************************************************************
 565     echo "<input type='text'" .
 566       " size='$fld_length'" .
 567       " value='$tmp'" .
 568       " class='under'" .
 569       " />";
 570     *****************************************************************/
 571     if ($tmp === '') $tmp = '&nbsp;';
 572     echo $tmp;
 573   }
 574
 575   // squads
 576   else if ($data_type == 13) {
 577     $tmp = '';
 578     if ($currvalue) {
 579       $squads = acl_get_squads();
 580       if ($squads) {
 581         foreach ($squads as $key => $value) {
 582           if ($currvalue == $key) {
 583             $tmp = $value[3];
 584           }
 585         }
 586       }
 587       if (empty($tmp)) $tmp = "($currvalue)";
 588     }
 589     /*****************************************************************
 590     echo "<input type='text'" .
 591       " size='$fld_length'" .
 592       " value='$tmp'" .
 593       " class='under'" .
 594       " />";
 595     *****************************************************************/
 596     if ($tmp === '') $tmp = '&nbsp;';
 597     echo $tmp;
 598   }
 599
 600   // Address book.
 601   else if ($data_type == 14) {
 602     $tmp = '';
 603     if ($currvalue) {
 604       $urow = sqlQuery("SELECT fname, lname, specialty FROM users " .
 605         "WHERE id = '$currvalue'");
 606       $uname = $urow['lname'];
 607       if ($urow['fname']) $uname .= ", " . $urow['fname'];
 608       $tmp = $uname;
 609       if (empty($tmp)) $tmp = "($currvalue)";
 610     }
 611     /*****************************************************************
 612     echo "<input type='text'" .
 613       " size='$fld_length'" .
 614       " value='$tmp'" .
 615       " class='under'" .
 616       " />";
 617     *****************************************************************/
 618     if ($tmp === '') $tmp = '&nbsp;';
 619     echo $tmp;
 620   }
 621
 622   // a set of labeled checkboxes
 623   else if ($data_type == 21) {
 624     // In this special case, fld_length is the number of columns generated.
 625     $cols = max(1, $fld_length);
 626     $avalue = explode('|', $currvalue);
 627     $lres = sqlStatement("SELECT * FROM list_options " .
 628       "WHERE list_id = '$list_id' ORDER BY seq, title");
 629     echo "<table cellpadding='0' cellspacing='0' width='100%'>";
 630     $tdpct = (int) (100 / $cols);
 631     for ($count = 0; $lrow = sqlFetchArray($lres); ++$count) {
 632       $option_id = $lrow['option_id'];
 633       if ($count % $cols == 0) {
 634         if ($count) echo "</tr>";
 635         echo "<tr>";
 636       }
 637       echo "<td width='$tdpct%'>";
 638       echo "<input type='checkbox'";
 639       if (in_array($option_id, $avalue)) echo " checked";
 640       echo ">" . xl_list_label($lrow['title']);
 641       echo "</td>";
 642     }
 643     if ($count) {
 644       echo "</tr>";
 645       if ($count > $cols) {
 646         // Add some space after multiple rows of checkboxes.
 647         echo "<tr><td colspan='$cols' style='height:0.7em'></td></tr>";
 648       }
 649     }
 650     echo "</table>";
 651   }
 652
 653   // a set of labeled text input fields
 654   else if ($data_type == 22) {
 655     $tmp = explode('|', $currvalue);
 656     $avalue = array();
 657     foreach ($tmp as $value) {
 658       if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
 659         $avalue[$matches[1]] = $matches[2];
 660       }
 661     }
 662     $lres = sqlStatement("SELECT * FROM list_options " .
 663       "WHERE list_id = '$list_id' ORDER BY seq, title");
 664     echo "<table cellpadding='0' cellspacing='0'>";
 665     while ($lrow = sqlFetchArray($lres)) {
 666       $option_id = $lrow['option_id'];
 667       $maxlength = empty($frow['max_length']) ? 255 : $frow['max_length'];
 668       $fldlength = empty($fld_length) ?  20 : $fld_length;
 669       echo "<tr><td>" . xl_list_label($lrow['title']) . "&nbsp;</td>";
 670               echo "<td><input type='text'" .
 671         " size='$fldlength'" .
 672         " value='" . $avalue[$option_id] . "'" .
 673         " class='under'" .
 674         " /></td></tr>";
 675     }
 676     echo "</table>";
 677   }
 678
 679   // a set of exam results; 3 radio buttons and a text field:
 680   else if ($data_type == 23) {
 681     $tmp = explode('|', $currvalue);
 682     $avalue = array();
 683     foreach ($tmp as $value) {
 684       if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
 685         $avalue[$matches[1]] = $matches[2];
 686       }
 687     }
 688     $maxlength = empty($frow['max_length']) ? 255 : $frow['max_length'];
 689     $fldlength = empty($fld_length) ?  20 : $fld_length;
 690     $lres = sqlStatement("SELECT * FROM list_options " .
 691       "WHERE list_id = '$list_id' ORDER BY seq, title");
 692     echo "<table cellpadding='0' cellspacing='0'>";
 693     echo "<tr><td>&nbsp;</td><td class='bold'>" . xl('N/A') .
 694       "&nbsp;</td><td class='bold'>" . xl('Nor') . "&nbsp;</td>" .
 695       "<td class='bold'>" . xl('Abn') . "&nbsp;</td><td class='bold'>" .
 696       xl('Date/Notes') . "</td></tr>";
 697     while ($lrow = sqlFetchArray($lres)) {
 698       $option_id = $lrow['option_id'];
 699       $restype = substr($avalue[$option_id], 0, 1);
 700       $resnote = substr($avalue[$option_id], 2);
 701       echo "<tr><td>" . xl_list_label($lrow['title']) . "&nbsp;</td>";
 702       for ($i = 0; $i < 3; ++$i) {
 703         echo "<td><input type='radio'";
 704         if ($restype === "$i") echo " checked";
 705         echo " /></td>";
 706       }
 707       echo "<td><input type='text'" .
 708         " size='$fldlength'" .
 709         " value='$resnote'" .
 710         " class='under' /></td>" .
 711         "</tr>";
 712     }
 713     echo "</table>";
 714   }
 715
 716   // the list of active allergies for the current patient
 717   // this is read-only!
 718   else if ($data_type == 24) {
 719     $query = "SELECT title, comments FROM lists WHERE " .
 720       "pid = '" . $GLOBALS['pid'] . "' AND type = 'allergy' AND enddate IS NULL " .
 721       "ORDER BY begdate";
 722     $lres = sqlStatement($query);
 723     $count = 0;
 724     while ($lrow = sqlFetchArray($lres)) {
 725       if ($count++) echo "<br />";
 726       echo $lrow['title'];
 727       if ($lrow['comments']) echo ' (' . $lrow['comments'] . ')';
 728     }
 729   }
 730
 731   // a set of labeled checkboxes, each with a text field:
 732   else if ($data_type == 25) {
 733     $tmp = explode('|', $currvalue);
 734     $avalue = array();
 735     foreach ($tmp as $value) {
 736       if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
 737         $avalue[$matches[1]] = $matches[2];
 738       }
 739     }
 740     $maxlength = empty($frow['max_length']) ? 255 : $frow['max_length'];
 741     $fldlength = empty($fld_length) ?  20 : $fld_length;
 742     $lres = sqlStatement("SELECT * FROM list_options " .
 743       "WHERE list_id = '$list_id' ORDER BY seq, title");
 744     echo "<table cellpadding='0' cellspacing='0'>";
 745     while ($lrow = sqlFetchArray($lres)) {
 746       $option_id = $lrow['option_id'];
 747       $restype = substr($avalue[$option_id], 0, 1);
 748       $resnote = substr($avalue[$option_id], 2);
 749       echo "<tr><td>" . xl_list_label($lrow['title']) . "&nbsp;</td>";
 750       echo "<td><input type='checkbox'";
 751       if ($restype) echo " checked";
 752       echo " />&nbsp;</td>";
 753       echo "<td><input type='text'" .
 754         " size='$fldlength'" .
 755         " value='$resnote'" .
 756         " class='under'" .
 757         " /></td>" .
 758         "</tr>";
 759     }
 760     echo "</table>";
 761   }
 762
 763 }
 764
 765 function generate_display_field($frow, $currvalue) {
 766   $data_type  = $frow['data_type'];
 767   $field_id   = $frow['field_id'];
 768   $list_id    = $frow['list_id'];
 769   $s = '';
 770
 771   // generic selection list or the generic selection list with add on the fly feature
 772   if ($data_type == 1 || $data_type == 26) {
 773     $lrow = sqlQuery("SELECT title FROM list_options " .
 774       "WHERE list_id = '$list_id' AND option_id = '$currvalue'");
 775
 776       // Added 5-09 by BM - Translate label if applicable
 777       $s = xl_list_label($lrow['title']);
 778
 779   }
 780
 781   // simple text field
 782   else if ($data_type == 2) {
 783     $s = $currvalue;
 784   }
 785
 786   // long or multi-line text field
 787   else if ($data_type == 3) {
 788     $s = nl2br($currvalue);
 789   }
 790
 791   // date
 792   else if ($data_type == 4) {
 793     $s = $currvalue;
 794   }
 795
 796   // provider
 797   else if ($data_type == 10 || $data_type == 11) {
 798     $urow = sqlQuery("SELECT fname, lname, specialty FROM users " .
 799       "WHERE id = '$currvalue'");
 800     $s = ucwords($urow['fname'] . " " . $urow['lname']);
 801   }
 802
 803   // pharmacy list
 804   else if ($data_type == 12) {
 805     $pres = get_pharmacies();
 806     while ($prow = sqlFetchArray($pres)) {
 807       $key = $prow['id'];
 808       if ($currvalue == $key) {
 809         $s .= $prow['name'] . ' ' . $prow['area_code'] . '-' .
 810           $prow['prefix'] . '-' . $prow['number'] . ' / ' .
 811           $prow['line1'] . ' / ' . $prow['city'];
 812       }
 813     }
 814   }
 815
 816   // squads
 817   else if ($data_type == 13) {
 818     $squads = acl_get_squads();
 819     if ($squads) {
 820       foreach ($squads as $key => $value) {
 821         if ($currvalue == $key) {
 822           $s .= $value[3];
 823         }
 824       }
 825     }
 826   }
 827
 828   // address book
 829   else if ($data_type == 14) {
 830     $urow = sqlQuery("SELECT fname, lname, specialty FROM users " .
 831       "WHERE id = '$currvalue'");
 832     $uname = $urow['lname'];
 833     if ($urow['fname']) $uname .= ", " . $urow['fname'];
 834     $s = $uname;
 835   }
 836
 837   // billing code
 838   else if ($data_type == 15) {
 839     $s = $currvalue;
 840   }
 841
 842   // a set of labeled checkboxes
 843   else if ($data_type == 21) {
 844     $avalue = explode('|', $currvalue);
 845     $lres = sqlStatement("SELECT * FROM list_options " .
 846       "WHERE list_id = '$list_id' ORDER BY seq, title");
 847     $count = 0;
 848     while ($lrow = sqlFetchArray($lres)) {
 849       $option_id = $lrow['option_id'];
 850       if (in_array($option_id, $avalue)) {
 851         if ($count++) $s .= "<br />";
 852
 853         // Added 5-09 by BM - Translate label if applicable
 854         $s .= xl_list_label($lrow['title']);
 855
 856       }
 857     }
 858   }
 859
 860   // a set of labeled text input fields
 861   else if ($data_type == 22) {
 862     $tmp = explode('|', $currvalue);
 863     $avalue = array();
 864     foreach ($tmp as $value) {
 865       if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
 866         $avalue[$matches[1]] = $matches[2];
 867       }
 868     }
 869     $lres = sqlStatement("SELECT * FROM list_options " .
 870       "WHERE list_id = '$list_id' ORDER BY seq, title");
 871     $s .= "<table cellpadding='0' cellspacing='0'>";
 872     while ($lrow = sqlFetchArray($lres)) {
 873       $option_id = $lrow['option_id'];
 874       if (empty($avalue[$option_id])) continue;
 875
 876       // Added 5-09 by BM - Translate label if applicable
 877       $s .= "<tr><td class='bold' valign='top'>" . xl_list_label($lrow['title']) . ":&nbsp;</td>";
 878
 879       $s .= "<td class='text' valign='top'>" . $avalue[$option_id] . "</td></tr>";
 880     }
 881     $s .= "</table>";
 882   }
 883
 884   // a set of exam results; 3 radio buttons and a text field:
 885   else if ($data_type == 23) {
 886     $tmp = explode('|', $currvalue);
 887     $avalue = array();
 888     foreach ($tmp as $value) {
 889       if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
 890         $avalue[$matches[1]] = $matches[2];
 891       }
 892     }
 893     $lres = sqlStatement("SELECT * FROM list_options " .
 894       "WHERE list_id = '$list_id' ORDER BY seq, title");
 895     $s .= "<table cellpadding='0' cellspacing='0'>";
 896     while ($lrow = sqlFetchArray($lres)) {
 897       $option_id = $lrow['option_id'];
 898       $restype = substr($avalue[$option_id], 0, 1);
 899       $resnote = substr($avalue[$option_id], 2);
 900       if (empty($restype) && empty($resnote)) continue;
 901
 902       // Added 5-09 by BM - Translate label if applicable
 903       $s .= "<tr><td class='bold' valign='top'>" . xl_list_label($lrow['title']) . "&nbsp;</td>";
 904
 905       $restype = ($restype == '1') ? xl('Normal') : (($restype == '2') ? xl('Abnormal') : xl('N/A'));
 906       $s .= "<td class='text' valign='top'>$restype</td></tr>";
 907       $s .= "<td class='text' valign='top'>$resnote</td></tr>";
 908       $s .= "</tr>";
 909     }
 910     $s .= "</table>";
 911   }
 912
 913   // the list of active allergies for the current patient
 914   else if ($data_type == 24) {
 915     $query = "SELECT title, comments FROM lists WHERE " .
 916       "pid = '" . $GLOBALS['pid'] . "' AND type = 'allergy' AND enddate IS NULL " .
 917       "ORDER BY begdate";
 918     // echo "<!-- $query -->\n"; // debugging
 919     $lres = sqlStatement($query);
 920     $count = 0;
 921     while ($lrow = sqlFetchArray($lres)) {
 922       if ($count++) $s .= "<br />";
 923       $s .= $lrow['title'];
 924       if ($lrow['comments']) $s .= ' (' . $lrow['comments'] . ')';
 925     }
 926   }
 927
 928   // a set of labeled checkboxes, each with a text field:
 929   else if ($data_type == 25) {
 930     $tmp = explode('|', $currvalue);
 931     $avalue = array();
 932     foreach ($tmp as $value) {
 933       if (preg_match('/^([^:]+):(.*)$/', $value, $matches)) {
 934         $avalue[$matches[1]] = $matches[2];
 935       }
 936     }
 937     $lres = sqlStatement("SELECT * FROM list_options " .
 938       "WHERE list_id = '$list_id' ORDER BY seq, title");
 939     $s .= "<table cellpadding='0' cellspacing='0'>";
 940     while ($lrow = sqlFetchArray($lres)) {
 941       $option_id = $lrow['option_id'];
 942       $restype = substr($avalue[$option_id], 0, 1);
 943       $resnote = substr($avalue[$option_id], 2);
 944       if (empty($restype) && empty($resnote)) continue;
 945
 946       // Added 5-09 by BM - Translate label if applicable
 947       $s .= "<tr><td class='bold' valign='top'>" . xl_list_label($lrow['title']) . "&nbsp;</td>";
 948
 949       $restype = $restype ? xl('Yes') : xl('No');
 950       $s .= "<td class='text' valign='top'>$restype</td></tr>";
 951       $s .= "<td class='text' valign='top'>$resnote</td></tr>";
 952       $s .= "</tr>";
 953     }
 954     $s .= "</table>";
 955   }
 956
 957   return $s;
 958 }
 959
 960 $CPR = 4; // cells per row of generic data
 961 $last_group = '';
 962 $cell_count = 0;
 963 $item_count = 0;
 964
 965 function disp_end_cell() {
 966   global $item_count, $cell_count;
 967   if ($item_count > 0) {
 968     echo "</td>";
 969     $item_count = 0;
 970   }
 971 }
 972
 973 function disp_end_row() {
 974   global $cell_count, $CPR;
 975   disp_end_cell();
 976   if ($cell_count > 0) {
 977     for (; $cell_count < $CPR; ++$cell_count) echo "<td></td>";
 978     echo "</tr>\n";
 979     $cell_count = 0;
 980   }
 981 }
 982
 983 function disp_end_group() {
 984   global $last_group;
 985   if (strlen($last_group) > 0) {
 986     disp_end_row();
 987   }
 988 }
 989
 990 function display_layout_rows($formtype, $result1, $result2='') {
 991   global $item_count, $cell_count, $last_group, $CPR;
 992
 993   $fres = sqlStatement("SELECT * FROM layout_options " .
 994     "WHERE form_id = '$formtype' AND uor > 0 " .
 995     "ORDER BY group_name, seq");
 996
 997   while ($frow = sqlFetchArray($fres)) {
 998     $this_group = $frow['group_name'];
 999     $titlecols  = $frow['titlecols'];
1000     $datacols   = $frow['datacols'];
1001     $data_type  = $frow['data_type'];
1002     $field_id   = $frow['field_id'];
1003     $list_id    = $frow['list_id'];
1004     $currvalue  = '';
1005
1006     if ($formtype == 'DEM') {
1007       if ($GLOBALS['athletic_team']) {
1008         // Skip fitness level and return-to-play date because those appear
1009         // in a special display/update form on this page.
1010         if ($field_id === 'fitness' || $field_id === 'userdate1') continue;
1011       }
1012       if (strpos($field_id, 'em_') === 0) {
1013         // Skip employer related fields, if it's disabled.
1014         if ($GLOBALS['omit_employers']) continue;
1015         $tmp = substr($field_id, 3);
1016         if (isset($result2[$tmp])) $currvalue = $result2[$tmp];
1017       }
1018       else {
1019         if (isset($result1[$field_id])) $currvalue = $result1[$field_id];
1020       }
1021     }
1022     else {
1023       if (isset($result1[$field_id])) $currvalue = $result1[$field_id];
1024     }
1025
1026     // Handle a data category (group) change.
1027     if (strcmp($this_group, $last_group) != 0) {
1028       $group_name = substr($this_group, 1);
1029       // totally skip generating the employer category, if it's disabled.
1030       if ($group_name === 'Employer' && $GLOBALS['omit_employers']) continue;
1031       disp_end_group();
1032       $last_group = $this_group;
1033     }
1034
1035     // Handle starting of a new row.
1036     if (($titlecols > 0 && $cell_count >= $CPR) || $cell_count == 0) {
1037       disp_end_row();
1038       echo "<tr>";
1039       if ($group_name) {
1040         echo "<td class='groupname'>";
1041         //echo "<td class='groupname' style='padding-right:5pt' valign='top'>";
1042         //echo "<font color='#008800'>$group_name</font>";
1043
1044         // Added 5-09 by BM - Translate label if applicable
1045         echo (xl_layout_label($group_name));
1046
1047         $group_name = '';
1048       } else {
1049         //echo "<td class='' style='padding-right:5pt' valign='top'>";
1050         echo '<td>&nbsp;';
1051       }
1052       echo "</td>";
1053     }
1054
1055     if ($item_count == 0 && $titlecols == 0) $titlecols = 1;
1056
1057     // Handle starting of a new label cell.
1058     if ($titlecols > 0) {
1059       disp_end_cell();
1060       //echo "<td class='label' colspan='$titlecols' valign='top'";
1061       echo "<td class='label' colspan='$titlecols' ";
1062       //if ($cell_count == 2) echo " style='padding-left:10pt'";
1063       echo ">";
1064       $cell_count += $titlecols;
1065     }
1066     ++$item_count;
1067
1068     // Added 5-09 by BM - Translate label if applicable
1069     if ($frow['title']) echo (xl_layout_label($frow['title']).":"); else echo "&nbsp;";
1070
1071     // Handle starting of a new data cell.
1072     if ($datacols > 0) {
1073       disp_end_cell();
1074       //echo "<td class='text data' colspan='$datacols' valign='top'";
1075       echo "<td class='text data' colspan='$datacols'";
1076       //if ($cell_count > 0) echo " style='padding-left:5pt'";
1077       echo ">";
1078       $cell_count += $datacols;
1079     }
1080
1081     ++$item_count;
1082     echo generate_display_field($frow, $currvalue);
1083   }
1084
1085   disp_end_group();
1086 }
1087
1088 // From the currently posted HTML form, this gets the value of the
1089 // field corresponding to the provided layout_options table row.
1090 //
1091 function get_layout_form_value($frow) {
1092   $data_type = $frow['data_type'];
1093   $field_id  = $frow['field_id'];
1094   $value  = '';
1095   if (isset($_POST["form_$field_id"])) {
1096     if ($data_type == 21) {
1097       // $_POST["form_$field_id"] is an array of checkboxes and its keys
1098       // must be concatenated into a |-separated string.
1099       foreach ($_POST["form_$field_id"] as $key => $val) {
1100         if (strlen($value)) $value .= '|';
1101         $value .= $key;
1102       }
1103     }
1104     else if ($data_type == 22) {
1105       // $_POST["form_$field_id"] is an array of text fields to be imploded
1106       // into "key:value|key:value|...".
1107       foreach ($_POST["form_$field_id"] as $key => $val) {
1108         $val = str_replace('|', ' ', $val);
1109         if (strlen($value)) $value .= '|';
1110         $value .= "$key:$val";
1111       }
1112     }
1113     else if ($data_type == 23) {
1114       // $_POST["form_$field_id"] is an array of text fields with companion
1115       // radio buttons to be imploded into "key:n:notes|key:n:notes|...".
1116       foreach ($_POST["form_$field_id"] as $key => $val) {
1117         $restype = $_POST["radio_{$field_id}"][$key];
1118         if (empty($restype)) $restype = '0';
1119         $val = str_replace('|', ' ', $val);
1120         if (strlen($value)) $value .= '|';
1121         $value .= "$key:$restype:$val";
1122       }
1123     }
1124     else if ($data_type == 25) {
1125       // $_POST["form_$field_id"] is an array of text fields with companion
1126       // checkboxes to be imploded into "key:n:notes|key:n:notes|...".
1127       foreach ($_POST["form_$field_id"] as $key => $val) {
1128         $restype = empty($_POST["check_{$field_id}"][$key]) ? '0' : '1';
1129         $val = str_replace('|', ' ', $val);
1130         if (strlen($value)) $value .= '|';
1131         $value .= "$key:$restype:$val";
1132       }
1133     }
1134     else {
1135       $value = $_POST["form_$field_id"];
1136     }
1137   }
1138
1139   // Make sure the return value is quote-safe.
1140   return formTrim($value);
1141 }
1142
1143 // Generate JavaScript validation logic for the required fields.
1144 //
1145 function generate_layout_validation($form_id) {
1146   $fres = sqlStatement("SELECT * FROM layout_options " .
1147     "WHERE form_id = '$form_id' AND uor > 0 AND field_id != '' " .
1148     "ORDER BY group_name, seq");
1149
1150   while ($frow = sqlFetchArray($fres)) {
1151     if ($frow['uor'] < 2) continue;
1152     $data_type = $frow['data_type'];
1153     $field_id  = $frow['field_id'];
1154     $fldtitle  = $frow['title'];
1155     if (!$fldtitle) $fldtitle  = $frow['description'];
1156     $fldname   = "form_$field_id";
1157     switch($data_type) {
1158       case  1:
1159       case 11:
1160       case 12:
1161       case 13:
1162       case 14:
1163         echo
1164         " if (f.$fldname.selectedIndex <= 0) {\n" .
1165         "  alert('" . xl('Please choose a value for','','',' ') .
1166         xl_layout_label($fldtitle) . "');\n" .
1167         "  if (f.$fldname.focus) f.$fldname.focus();\n" .
1168         "  return false;\n" .
1169         " }\n";
1170         break;
1171       case  2:
1172       case  3:
1173       case  4:
1174       case 15:
1175         echo
1176         " if (trimlen(f.$fldname.value) == 0) {\n" .
1177         "  alert('" . xl('Please choose a value for','','',' ') .
1178         xl_layout_label($fldtitle) . "');\n" .
1179         "  if (f.$fldname.focus) f.$fldname.focus();\n" .
1180         "  return false;\n" .
1181         " }\n";
1182         break;
1183     }
1184   }
1185 }
1186 ?>