interface/super/edit_list.php

   1 <?php
   2 /**
   3  * library/sql_upgrade_fx.php Upgrading and patching functions of database.
   4  *
   5  * Functions to allow safe database modifications
   6  * during upgrading and patches.
   7  *
   8  * Copyright (C) 2007-2011 Rod Roark <rod@sunsetsystems.com>
   9  *
  10  * LICENSE: This program is free software; you can redistribute it and/or
  11  * modify it under the terms of the GNU General Public License
  12  * as published by the Free Software Foundation; either version 2
  13  * of the License, or (at your option) any later version.
  14  * This program is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  17  * GNU General Public License for more details.
  18  * You should have received a copy of the GNU General Public License
  19  * along with this program. If not, see <http://opensource.org/licenses/gpl-license.php>;.
  20  *
  21  * @package OpenEMR
  22  * @author  Rod Roark <rod@sunsetsystems.com>
  23  * @author  Brady Miller <brady@sparmy.com>
  24  * @author  Teny <teny@zhservices.com>
  25  * @link    http://www.open-emr.org
  26  */
  27
  28 require_once("../globals.php");
  29 require_once("$srcdir/acl.inc");
  30 require_once("$srcdir/formdata.inc.php");
  31 require_once("$srcdir/lists.inc");
  32 require_once("../../custom/code_types.inc.php");
  33
  34 $list_id = empty($_REQUEST['list_id']) ? 'language' : $_REQUEST['list_id'];
  35
  36 // Check authorization.
  37 $thisauth = acl_check('admin', 'super');
  38 if (!$thisauth) die(xl('Not authorized'));
  39
  40 // If we are saving, then save.
  41 //
  42 if ($_POST['formaction']=='save' && $list_id) {
  43     $opt = $_POST['opt'];
  44     if ($list_id == 'feesheet') {
  45         // special case for the feesheet list
  46         sqlStatement("DELETE FROM fee_sheet_options");
  47         for ($lino = 1; isset($opt["$lino"]['category']); ++$lino) {
  48             $iter = $opt["$lino"];
  49             $category = formTrim($iter['category']);
  50             $option   = formTrim($iter['option']);
  51             $codes    = formTrim($iter['codes']);
  52             if (strlen($category) > 0 && strlen($option) > 0) {
  53                 sqlInsert("INSERT INTO fee_sheet_options ( " .
  54                             "fs_category, fs_option, fs_codes " .
  55                             ") VALUES ( "   .
  56                             "'$category', " .
  57                             "'$option', "   .
  58                             "'$codes' "     .
  59                         ")");
  60             }
  61         }
  62     }
  63     else if ($list_id == 'code_types') {
  64       // special case for code types
  65       sqlStatement("DELETE FROM code_types");
  66       for ($lino = 1; isset($opt["$lino"]['ct_key']); ++$lino) {
  67         $iter = $opt["$lino"];
  68         $ct_key  = formTrim($iter['ct_key']);
  69         $ct_id   = formTrim($iter['ct_id']) + 0;
  70         $ct_seq  = formTrim($iter['ct_seq']) + 0;
  71         $ct_mod  = formTrim($iter['ct_mod']) + 0;
  72         $ct_just = formTrim($iter['ct_just']);
  73         $ct_mask = formTrim($iter['ct_mask']);
  74         $ct_fee  = empty($iter['ct_fee' ]) ? 0 : 1;
  75         $ct_rel  = empty($iter['ct_rel' ]) ? 0 : 1;
  76         $ct_nofs = empty($iter['ct_nofs']) ? 0 : 1;
  77         $ct_diag = empty($iter['ct_diag']) ? 0 : 1;
  78         $ct_active = empty($iter['ct_active' ]) ? 0 : 1;
  79         $ct_label = formTrim($iter['ct_label']);
  80         $ct_external = formTrim($iter['ct_external']) + 0;
  81         $ct_claim = empty($iter['ct_claim']) ? 0 : 1;
  82         $ct_proc = empty($iter['ct_proc']) ? 0 : 1;
  83         $ct_term = empty($iter['ct_term']) ? 0 : 1;
  84         $ct_problem = empty($iter['ct_problem']) ? 0 : 1;
  85         if (strlen($ct_key) > 0 && $ct_id > 0) {
  86           sqlInsert("INSERT INTO code_types ( " .
  87             "ct_key, ct_id, ct_seq, ct_mod, ct_just, ct_mask, ct_fee, ct_rel, ct_nofs, ct_diag, ct_active, ct_label, ct_external, ct_claim, ct_proc, ct_term, ct_problem " .
  88             ") VALUES ( "   .
  89             "'$ct_key' , " .
  90             "'$ct_id'  , " .
  91             "'$ct_seq' , " .
  92             "'$ct_mod' , " .
  93             "'$ct_just', " .
  94             "'$ct_mask', " .
  95             "'$ct_fee' , " .
  96             "'$ct_rel' , " .
  97             "'$ct_nofs', " .
  98             "'$ct_diag', " .
  99             "'$ct_active', " .
 100             "'$ct_label', " .
 101             "'$ct_external', " .
 102             "'$ct_claim', " .
 103             "'$ct_proc', " .
 104             "'$ct_term', " .
 105             "'$ct_problem' " .
 106             ")");
 107         }
 108       }
 109     }
 110     else if ($list_id == 'issue_types') {
 111       // special case for issue_types
 112       sqlStatement("DELETE FROM issue_types");
 113       for ($lino = 1; isset($opt["$lino"]['category']); ++$lino) {
 114         $iter        = $opt["$lino"];
 115         $it_category = formTrim($iter['category']);
 116         $it_ordering = formTrim($iter['ordering']);
 117         $it_type     = formTrim($iter['type']);
 118         $it_plural   = formTrim($iter['plural']);
 119         $it_singular = formTrim($iter['singular']);
 120         $it_abbr     = formTrim($iter['abbreviation']);
 121         $it_style    = formTrim($iter['style']);
 122         $it_fshow    = formTrim($iter['force_show']);
 123
 124         if ( (strlen($it_category) > 0) && (strlen($it_type) > 0) ) {
 125           sqlInsert("INSERT INTO issue_types ( " .
 126             "`category`,`ordering`, `type`, `plural`, `singular`, `abbreviation`, `style`, `force_show` " .
 127             ") VALUES ( "   .
 128             "'$it_category' , " .
 129             "'$it_ordering' , " .
 130             "'$it_type' , " .
 131             "'$it_plural'  , " .
 132             "'$it_singular' , " .
 133             "'$it_abbr' , " .
 134             "'$it_style', " .
 135             "'$it_fshow' " .
 136             ")");
 137         }
 138       }
 139     }
 140     else {
 141         // all other lists
 142         //
 143         // erase lists options and recreate them from the submitted form data
 144         sqlStatement("DELETE FROM list_options WHERE list_id = '$list_id'");
 145         for ($lino = 1; isset($opt["$lino"]['id']); ++$lino) {
 146             $iter = $opt["$lino"];
 147             $value = empty($iter['value']) ? 0 : (formTrim($iter['value']) + 0);
 148             $id = formTrim($iter['id']);
 149             if (strlen($id) > 0) {
 150
 151               // Special processing for the immunizations list
 152               // Map the entered cvx codes into the immunizations table cvx_code
 153               sqlStatement ("UPDATE `immunizations` " .
 154                             "SET `cvx_code`='".$value."' " .
 155                             "WHERE `immunization_id`='".$id."'");
 156
 157               // Force List Based Form names to start with LBF.
 158               if ($list_id == 'lbfnames' && substr($id,0,3) != 'LBF')
 159                 $id = "LBF$id";
 160               sqlInsert("INSERT INTO list_options ( " .
 161                 "list_id, option_id, title, seq, is_default, option_value, mapping, notes, codes " .
 162                 ") VALUES ( " .
 163                 "'$list_id', "                       .
 164                 "'" . $id                        . "', " .
 165                 "'" . formTrim($iter['title'])   . "', " .
 166                 "'" . formTrim($iter['seq'])     . "', " .
 167                 "'" . formTrim($iter['default']) . "', " .
 168                 "'" . $value                     . "', " .
 169                 "'" . formTrim($iter['mapping']) . "', " .
 170                 "'" . formTrim($iter['notes'])   . "', " .
 171                 "'" . formTrim($iter['codes'])   . "' " .
 172                 ")");
 173             }
 174         }
 175     }
 176 }
 177 else if ($_POST['formaction']=='addlist') {
 178     // make a new list ID from the new list name
 179     $newlistID = $_POST['newlistname'];
 180     $newlistID = preg_replace("/\W/", "_", $newlistID);
 181
 182     // determine the position of this new list
 183     $row = sqlQuery("SELECT max(seq) as maxseq FROM list_options WHERE list_id= 'lists'");
 184
 185     // add the new list to the list-of-lists
 186     sqlInsert("INSERT INTO list_options ( " .
 187                 "list_id, option_id, title, seq, is_default, option_value " .
 188                 ") VALUES ( " .
 189                 "'lists',". // the master list-of-lists
 190                 "'".$newlistID."',".
 191                 "'".$_POST['newlistname']."', ".
 192                 "'".($row['maxseq']+1)."',".
 193                 "'1', '0')"
 194                 );
 195 }
 196 else if ($_POST['formaction']=='deletelist') {
 197     // delete the lists options
 198     sqlStatement("DELETE FROM list_options WHERE list_id = '".$_POST['list_id']."'");
 199     // delete the list from the master list-of-lists
 200     sqlStatement("DELETE FROM list_options WHERE list_id = 'lists' and option_id='".$_POST['list_id']."'");
 201 }
 202
 203 $opt_line_no = 0;
 204
 205 // Given a string of multiple instances of code_type|code|selector,
 206 // make a description for each.
 207 // @TODO Instead should use a function from custom/code_types.inc.php and need to remove casing functions
 208 function getCodeDescriptions($codes) {
 209   global $code_types;
 210   $arrcodes = explode('~', $codes);
 211   $s = '';
 212   foreach ($arrcodes as $codestring) {
 213     if ($codestring === '') continue;
 214     $arrcode = explode('|', $codestring);
 215     $code_type = $arrcode[0];
 216     $code      = $arrcode[1];
 217     $selector  = $arrcode[2];
 218     $desc = '';
 219     if ($code_type == 'PROD') {
 220       $row = sqlQuery("SELECT name FROM drugs WHERE drug_id = '$code' ");
 221       $desc = "$code:$selector " . $row['name'];
 222     }
 223     else {
 224       $row = sqlQuery("SELECT code_text FROM codes WHERE " .
 225         "code_type = '" . $code_types[$code_type]['id'] . "' AND " .
 226         "code = '$code' ORDER BY modifier LIMIT 1");
 227       $desc = "$code_type:$code " . ucfirst(strtolower($row['code_text']));
 228     }
 229     $desc = str_replace('~', ' ', $desc);
 230     if ($s) $s .= '~';
 231     $s .= $desc;
 232   }
 233   return $s;
 234 }
 235
 236 // Write one option line to the form.
 237 //
 238 function writeOptionLine($option_id, $title, $seq, $default, $value, $mapping='', $notes='', $codes='') {
 239   global $opt_line_no, $list_id;
 240   ++$opt_line_no;
 241   $bgcolor = "#" . (($opt_line_no & 1) ? "ddddff" : "ffdddd");
 242   $checked = $default ? " checked" : "";
 243
 244   echo " <tr bgcolor='$bgcolor'>\n";
 245
 246   echo "  <td align='center' class='optcell'>";
 247   echo "<input type='text' name='opt[$opt_line_no][id]' value='" .
 248        htmlspecialchars($option_id, ENT_QUOTES) . "' size='12' maxlength='63' class='optin' />";
 249   echo "</td>\n";
 250
 251   echo "  <td align='center' class='optcell'>";
 252   echo "<input type='text' name='opt[$opt_line_no][title]' value='" .
 253        htmlspecialchars($title, ENT_QUOTES) . "' size='20' maxlength='63' class='optin' />";
 254   echo "</td>\n";
 255
 256   // if not english and translating lists then show the translation
 257   if ($GLOBALS['translate_lists'] && $_SESSION['language_choice'] > 1) {
 258        echo "  <td align='center' class='translation'>" . (htmlspecialchars( xl($title), ENT_QUOTES)) . "</td>\n";
 259   }
 260
 261   echo "  <td align='center' class='optcell'>";
 262   echo "<input type='text' name='opt[$opt_line_no][seq]' value='" .
 263        htmlspecialchars($seq, ENT_QUOTES) . "' size='4' maxlength='10' class='optin' />";
 264   echo "</td>\n";
 265
 266   echo "  <td align='center' class='optcell'>";
 267   echo "<input type='checkbox' name='opt[$opt_line_no][default]' value='1' " .
 268     "onclick='defClicked($opt_line_no)' class='optin'$checked />";
 269   echo "</td>\n";
 270
 271   // Tax rates, contraceptive methods and LBF names have an additional attribute.
 272   //
 273   if ($list_id == 'taxrate' || $list_id == 'contrameth' || $list_id == 'lbfnames') {
 274     echo "  <td align='center' class='optcell'>";
 275     echo "<input type='text' name='opt[$opt_line_no][value]' value='" .
 276         htmlspecialchars($value, ENT_QUOTES) . "' size='8' maxlength='15' class='optin' />";
 277     echo "</td>\n";
 278   }
 279
 280   // Adjustment reasons use option_value as a reason category.  This is
 281   // needed to distinguish between adjustments that change the invoice
 282   // balance and those that just shift responsibility of payment or
 283   // are used as comments.
 284   //
 285   else if ($list_id == 'adjreason') {
 286     echo "  <td align='center' class='optcell'>";
 287     echo "<select name='opt[$opt_line_no][value]' class='optin'>";
 288     foreach (array(
 289       1 => xl('Charge adjustment'),
 290       2 => xl('Coinsurance'),
 291       3 => xl('Deductible'),
 292       4 => xl('Other pt resp'),
 293       5 => xl('Comment'),
 294     ) as $key => $desc) {
 295       echo "<option value='$key'";
 296       if ($key == $value) echo " selected";
 297       echo ">" . htmlspecialchars($desc) . "</option>";
 298     }
 299     echo "</select>";
 300     echo "</td>\n";
 301   }
 302
 303   // Address book categories use option_value to flag category as a
 304   // person-centric vs company-centric vs indifferent.
 305   //
 306   else if ($list_id == 'abook_type') {
 307     echo "  <td align='center' class='optcell'>";
 308     echo "<select name='opt[$opt_line_no][value]' class='optin'>";
 309     foreach (array(
 310       1 => xl('Unassigned'),
 311       2 => xl('Person'),
 312       3 => xl('Company'),
 313     ) as $key => $desc) {
 314       echo "<option value='$key'";
 315       if ($key == $value) echo " selected";
 316       echo ">" . htmlspecialchars($desc) . "</option>";
 317     }
 318     echo "</select>";
 319     echo "</td>\n";
 320   }
 321
 322   // Immunization categories use option_value to map list items
 323   // to CVX codes.
 324   //
 325   else if ($list_id == 'immunizations') {
 326   echo "  <td align='center' class='optcell'>";
 327   echo "<input type='text' size='10' name='opt[$opt_line_no][value]' " .
 328        "value='" . htmlspecialchars($value,ENT_QUOTES) . "' onclick='sel_cvxcode(this)' " .
 329        "title='" . htmlspecialchars( xl('Click to select or change CVX code'), ENT_QUOTES) . "'/>";
 330   echo "</td>\n";
 331   }
 332
 333   // IPPF includes the ability to map each list item to a "master" identifier.
 334   // Sports teams use this for some extra info for fitness levels.
 335   //
 336   if ($GLOBALS['ippf_specific'] || $list_id == 'fitness') {
 337     echo "  <td align='center' class='optcell'>";
 338     echo "<input type='text' name='opt[$opt_line_no][mapping]' value='" .
 339         htmlspecialchars($mapping, ENT_QUOTES) . "' size='12' maxlength='15' class='optin' />";
 340     echo "</td>\n";
 341   }
 342
 343   echo "  <td align='center' class='optcell'>";
 344   echo "<input type='text' name='opt[$opt_line_no][notes]' value='" .
 345       htmlspecialchars($notes, ENT_QUOTES) . "' size='25' maxlength='255' class='optin' />";
 346   echo "</td>\n";
 347
 348   echo "  <td align='center' class='optcell'>";
 349   echo "<input type='text' name='opt[$opt_line_no][codes]' title='" .
 350       xla('Clinical Term Code(s)') ."' value='" .
 351       htmlspecialchars($codes, ENT_QUOTES) . "' onclick='select_clin_term_code(this)' size='25' maxlength='255' class='optin' />";
 352   echo "</td>\n";
 353
 354   echo " </tr>\n";
 355 }
 356
 357 // Write a form line as above but for the special case of the Fee Sheet.
 358 //
 359 function writeFSLine($category, $option, $codes) {
 360   global $opt_line_no;
 361
 362   ++$opt_line_no;
 363   $bgcolor = "#" . (($opt_line_no & 1) ? "ddddff" : "ffdddd");
 364
 365   $descs = getCodeDescriptions($codes);
 366
 367   echo " <tr bgcolor='$bgcolor'>\n";
 368
 369   echo "  <td align='center' class='optcell'>";
 370   echo "<input type='text' name='opt[$opt_line_no][category]' value='" .
 371        htmlspecialchars($category, ENT_QUOTES) . "' size='20' maxlength='63' class='optin' />";
 372   echo "</td>\n";
 373
 374   echo "  <td align='center' class='optcell'>";
 375   echo "<input type='text' name='opt[$opt_line_no][option]' value='" .
 376        htmlspecialchars($option, ENT_QUOTES) . "' size='20' maxlength='63' class='optin' />";
 377   echo "</td>\n";
 378
 379   echo "  <td align='left' class='optcell'>";
 380   echo "   <div id='codelist_$opt_line_no'>";
 381   if (strlen($descs)) {
 382     $arrdescs = explode('~', $descs);
 383     $i = 0;
 384     foreach ($arrdescs as $desc) {
 385       echo "<a href='' onclick='return delete_code($opt_line_no,$i)' title='" . xl('Delete') . "'>";
 386       echo "[x]&nbsp;</a>$desc<br />";
 387       ++$i;
 388     }
 389   }
 390   echo "</div>";
 391   echo "<a href='' onclick='return select_code($opt_line_no)'>";
 392   echo "[" . xl('Add') . "]</a>";
 393
 394   echo "<input type='hidden' name='opt[$opt_line_no][codes]' value='" .
 395        htmlspecialchars($codes, ENT_QUOTES) . "' />";
 396   echo "<input type='hidden' name='opt[$opt_line_no][descs]' value='" .
 397        htmlspecialchars($descs, ENT_QUOTES) . "' />";
 398   echo "</td>\n";
 399
 400   echo " </tr>\n";
 401 }
 402
 403
 404 /**
 405  * Helper function for writeITLine().
 406  * itGenCell() generates cells for data display (Issue Type list).
 407  */
 408
 409 function itGenCell($opt_line_no, $it_array, $name, $size, $maxlength, $title='') {
 410   $value = isset($it_array[$name]) ? $it_array[$name] : '';
 411   $s = "  <td align='center' class='optcell'";
 412   if ($title) $s .= " title='" . attr($title) . "'";
 413   $s .= ">";
 414   $s .= "<input type='text' name='opt[$opt_line_no][$name]' value='";
 415   $s .= attr($value);
 416   $s .= "' size='$size' maxlength='$maxlength' class='optin' />";
 417   $s .= "</td>\n";
 418   return $s;
 419 }
 420
 421 // Helper functions for writeCTLine():
 422
 423 function ctGenCell($opt_line_no, $ct_array, $name, $size, $maxlength, $title='') {
 424   $value = isset($ct_array[$name]) ? $ct_array[$name] : '';
 425   $s = "  <td align='center' class='optcell'";
 426   if ($title) $s .= " title='" . addslashes($title) . "'";
 427   $s .= ">";
 428   $s .= "<input type='text' name='opt[$opt_line_no][$name]' value='";
 429   $s .= htmlspecialchars($value, ENT_QUOTES);
 430   $s .= "' size='$size' maxlength='$maxlength' class='optin' />";
 431   $s .= "</td>\n";
 432   return $s;
 433 }
 434
 435 function ctGenCbox($opt_line_no, $ct_array, $name, $title='') {
 436   $checked = empty($ct_array[$name]) ? '' : 'checked ';
 437   $s = "  <td align='center' class='optcell'";
 438   if ($title) $s .= " title='" . addslashes($title) . "'";
 439   $s .= ">";
 440   $s .= "<input type='checkbox' name='opt[$opt_line_no][$name]' value='1' ";
 441   $s .= "$checked/>";
 442   $s .= "</td>\n";
 443   return $s;
 444 }
 445
 446 // Write a form line as above but for the special case of Code Types.
 447 //
 448 function writeCTLine($ct_array) {
 449   global $opt_line_no,$cd_external_options;
 450
 451   ++$opt_line_no;
 452   $bgcolor = "#" . (($opt_line_no & 1) ? "ddddff" : "ffdddd");
 453
 454   echo " <tr bgcolor='$bgcolor'>\n";
 455
 456   echo ctGenCBox($opt_line_no, $ct_array, 'ct_active',
 457     xl('Is this code type active?'));
 458   echo ctGenCell($opt_line_no, $ct_array, 'ct_key' , 6, 15,
 459     xl('Unique human-readable identifier for this type'));
 460   echo ctGenCell($opt_line_no, $ct_array, 'ct_id'  , 2, 11,
 461     xl('Unique numeric identifier for this type'));
 462   echo ctGenCell($opt_line_no, $ct_array, 'ct_label' , 6, 30,
 463     xl('Label for this type'));
 464   // if not english and translating lists then show the translation
 465   if ($GLOBALS['translate_lists'] && $_SESSION['language_choice'] > 1) {
 466        echo "  <td align='center' class='translation'>" . xlt($ct_array['ct_label']) . "</td>\n";
 467   }
 468   echo ctGenCell($opt_line_no, $ct_array, 'ct_seq' , 2,  3,
 469     xl('Numeric display order'));
 470   echo ctGenCell($opt_line_no, $ct_array, 'ct_mod' , 1,  2,
 471     xl('Length of modifier, 0 if none'));
 472   echo ctGenCell($opt_line_no, $ct_array, 'ct_just', 4, 15,
 473     xl('If billing justification is used enter the name of the diagnosis code type.'));
 474   echo ctGenCell($opt_line_no, $ct_array, 'ct_mask', 6,  9,
 475     xl('Specifies formatting for codes. # = digit, @ = alpha, * = any character. Empty if not used.'));
 476   echo ctGenCBox($opt_line_no, $ct_array, 'ct_claim',
 477     xl('Is this code type used in claims?'));
 478   echo ctGenCBox($opt_line_no, $ct_array, 'ct_fee',
 479     xl('Are fees charged for this type?'));
 480   echo ctGenCBox($opt_line_no, $ct_array, 'ct_rel',
 481     xl('Does this type allow related codes?'));
 482   echo ctGenCBox($opt_line_no, $ct_array, 'ct_nofs',
 483     xl('Is this type hidden in the fee sheet?'));
 484   echo ctGenCBox($opt_line_no, $ct_array, 'ct_proc',
 485     xl('Is this a procedure/service type?'));
 486   echo ctGenCBox($opt_line_no, $ct_array, 'ct_diag',
 487     xl('Is this a diagnosis type?'));
 488   echo ctGenCBox($opt_line_no, $ct_array, 'ct_term',
 489     xl('Is this a Clinical Term code type?'));
 490   echo ctGenCBox($opt_line_no, $ct_array, 'ct_problem',
 491     xl('Is this a Medical Problem code type?'));
 492   // Show the external code types selector
 493   $value_ct_external = isset($ct_array['ct_external']) ? $ct_array['ct_external'] : '';
 494   echo "  <td title='" . xla('Is this using external sql tables? If it is, then choose the format.') . "' align='center' class='optcell'>";
 495   echo "<select name='opt[$opt_line_no][ct_external]' class='optin'>";
 496   foreach ( $cd_external_options as $key => $desc) {
 497     echo "<option value='" . attr($key) . "'";
 498     if ($key == $value_ct_external) echo " selected";
 499     echo ">" . text($desc) . "</option>";
 500   }
 501   echo "</select>";
 502   echo "</td>\n";
 503   echo " </tr>\n";
 504 }
 505
 506 /**
 507  * Special case of Issue Types
 508  */
 509 function writeITLine($it_array) {
 510   global $opt_line_no;
 511   ++$opt_line_no;
 512   $bgcolor = "#" . (($opt_line_no & 1) ? "ddddff" : "ffdddd");
 513   echo " <tr bgcolor='$bgcolor'>\n";
 514   echo itGenCell($opt_line_no, $it_array, 'category' , 20, 20, xl('OpenEMR Application Category (Default vs Sports Teams vs IPPF)'));
 515   echo itGenCell($opt_line_no, $it_array, 'ordering' , 10, 10, xl('Order'));
 516   echo itGenCell($opt_line_no, $it_array, 'type' , 20, 75, xl('Issue Type'));
 517   echo itGenCell($opt_line_no, $it_array, 'plural' , 20, 75, xl('Plural'));
 518   // if not english and translating lists then show the translation
 519   if ($GLOBALS['translate_lists'] && $_SESSION['language_choice'] > 1) {
 520        echo "  <td align='center' class='translation'>" . xlt($it_array['plural']) . "</td>\n";
 521   }
 522   echo itGenCell($opt_line_no, $it_array, 'singular' , 20,  75, xl('Singular'));
 523   // if not english and translating lists then show the translation
 524   if ($GLOBALS['translate_lists'] && $_SESSION['language_choice'] > 1) {
 525        echo "  <td align='center' class='translation'>" . xlt($it_array['singular']) . "</td>\n";
 526   }
 527   echo itGenCell($opt_line_no, $it_array, 'abbreviation' , 10,  10, xl('Abbreviation'));
 528   // if not english and translating lists then show the translation
 529   if ($GLOBALS['translate_lists'] && $_SESSION['language_choice'] > 1) {
 530        echo "  <td align='center' class='translation'>" . xlt($it_array['abbreviation']) . "</td>\n";
 531   }
 532   echo itGenCell($opt_line_no, $it_array, 'style', 6, 6, xl('0 - Normal; 1 - Simplified: only title, start date, comments and an Active checkbox;no diagnosis, occurrence, end date, referred-by or sports fields.; 2 - Football Injury;'));
 533   echo itGenCell($opt_line_no, $it_array, 'force_show', 10,  10, xl('0 - Do not show this category on the patient summary screen if there have been no issues entered in for this category;  1 - Show this category on the patient summary screen even if no issues have been entered for this category.'));
 534   echo " </tr>\n";
 535 }
 536
 537 ?>
 538 <html>
 539
 540 <head>
 541 <?php html_header_show();?>
 542
 543 <!-- supporting javascript code -->
 544 <script type="text/javascript" src="<?php echo $GLOBALS['webroot'] ?>/library/js/jquery.js"></script>
 545
 546 <link rel="stylesheet" href='<?php  echo $css_header ?>' type='text/css'>
 547 <title><?php  xl('List Editor','e'); ?></title>
 548
 549 <style>
 550 tr.head   { font-size:10pt; background-color:#cccccc; text-align:center; }
 551 tr.detail { font-size:10pt; }
 552 td        { font-size:10pt; }
 553 input     { font-size:10pt; }
 554 a, a:visited, a:hover { color:#0000cc; }
 555 .optcell  { }
 556 .optin    { background-color:transparent; }
 557 .help     { cursor:help; }
 558 .translation { color:green; }
 559 </style>
 560
 561 <script type="text/javascript" src="../../library/dialog.js"></script>
 562
 563 <script language="JavaScript">
 564
 565 var current_lino = 0;
 566
 567 // Helper function to set the contents of a div.
 568 // This is for Fee Sheet administration.
 569 function setDivContent(id, content) {
 570  if (document.getElementById) {
 571   var x = document.getElementById(id);
 572   x.innerHTML = '';
 573   x.innerHTML = content;
 574  }
 575  else if (document.all) {
 576   var x = document.all[id];
 577   x.innerHTML = content;
 578  }
 579 }
 580
 581 // Given a line number, redisplay its descriptive list of codes.
 582 // This is for Fee Sheet administration.
 583 function displayCodes(lino) {
 584  var f = document.forms[0];
 585  var s = '';
 586  var descs = f['opt[' + lino + '][descs]'].value;
 587  if (descs.length) {
 588   var arrdescs = descs.split('~');
 589   for (var i = 0; i < arrdescs.length; ++i) {
 590    s += "<a href='' onclick='return delete_code(" + lino + "," + i + ")' title='<?php xl('Delete','e'); ?>'>";
 591    s += "[x]&nbsp;</a>" + arrdescs[i] + "<br />";
 592   }
 593  }
 594  setDivContent('codelist_' + lino, s);
 595 }
 596
 597 // Helper function to remove a Fee Sheet code.
 598 function dc_substring(s, i) {
 599  var r = '';
 600  var j = s.indexOf('~', i);
 601  if (j < 0) { // deleting last segment
 602   if (i > 0) r = s.substring(0, i-1); // omits trailing ~
 603  }
 604  else { // not last segment
 605   r = s.substring(0, i) + s.substring(j + 1);
 606  }
 607  return r;
 608 }
 609
 610 // Remove a generated Fee Sheet code.
 611 function delete_code(lino, seqno) {
 612  var f = document.forms[0];
 613  var celem = f['opt[' + lino + '][codes]'];
 614  var delem = f['opt[' + lino + '][descs]'];
 615  var ci = 0;
 616  var di = 0;
 617  for (var i = 0; i < seqno; ++i) {
 618   ci = celem.value.indexOf('~', ci) + 1;
 619   di = delem.value.indexOf('~', di) + 1;
 620  }
 621  celem.value = dc_substring(celem.value, ci);
 622  delem.value = dc_substring(delem.value, di);
 623  displayCodes(lino);
 624  return false;
 625 }
 626
 627 // This invokes the find-code popup.
 628 // For Fee Sheet administration.
 629 function select_code(lino) {
 630  current_lino = lino;
 631  dlgopen('../patient_file/encounter/find_code_popup.php', '_blank', 700, 400);
 632  return false;
 633 }
 634
 635 // This invokes the find-code popup.
 636 // For CVX/immunization code administration.
 637 function sel_cvxcode(e) {
 638  current_sel_name = e.name;
 639  dlgopen('../patient_file/encounter/find_code_popup.php?codetype=CVX', '_blank', 500, 400);
 640 }
 641
 642 // This invokes the find-code popup.
 643 // For CVX/immunization code administration.
 644 function select_clin_term_code(e) {
 645  current_sel_clin_term = e.name;
 646  dlgopen('../patient_file/encounter/find_code_popup.php?codetype=<?php echo attr(collect_codetypes("clinical_term","csv")) ?>', '_blank', 500, 400);
 647 }
 648
 649 // This is for callback by the find-code popup.
 650 function set_related(codetype, code, selector, codedesc) {
 651  if (typeof(current_sel_name) == 'undefined' && typeof(current_sel_clin_term) == 'undefined')
 652  {
 653  // Coming from Fee Sheet edit
 654   var f = document.forms[0];
 655   var celem = f['opt[' + current_lino + '][codes]'];
 656   var delem = f['opt[' + current_lino + '][descs]'];
 657   var i = 0;
 658   while ((i = codedesc.indexOf('~')) >= 0) {
 659    codedesc = codedesc.substring(0, i) + ' ' + codedesc.substring(i+1);
 660   }
 661   if (code) {
 662    if (celem.value) {
 663     celem.value += '~';
 664     delem.value += '~';
 665    }
 666    celem.value += codetype + '|' + code + '|' + selector;
 667    if (codetype == 'PROD') delem.value += code + ':' + selector + ' ' + codedesc;
 668    else delem.value += codetype + ':' + code + ' ' + codedesc;
 669   } else {
 670    celem.value = '';
 671    delem.value = '';
 672   }
 673   displayCodes(current_lino);
 674  }
 675  else if (typeof(current_sel_name) == 'undefined') {
 676   // Coming from the Clinical Terms Code(s) edit
 677      var f = document.forms[0][current_sel_clin_term];
 678      var s = f.value;
 679      if (code) {
 680          if (s.length > 0) s += ';';
 681          s += codetype + ':' + code;
 682      }
 683      else {
 684          s = '';
 685      }
 686      f.value = s;
 687  }
 688  else {
 689   // Coming from Immunizations edit
 690      var f = document.forms[0][current_sel_name];
 691      var s = f.value;
 692      if (code) {
 693          s = code;
 694      }
 695      else {
 696          s = '0';
 697      }
 698      f.value = s;
 699  }
 700 }
 701
 702 // Called when a "default" checkbox is clicked.  Clears all the others.
 703 function defClicked(lino) {
 704  var f = document.forms[0];
 705  for (var i = 1; f['opt[' + i + '][default]']; ++i) {
 706   if (i != lino) f['opt[' + i + '][default]'].checked = false;
 707  }
 708 }
 709
 710 // Form validation and submission.
 711 // This needs more validation.
 712 function mysubmit() {
 713  var f = document.forms[0];
 714  if (f.list_id.value == 'code_types') {
 715   for (var i = 1; f['opt[' + i + '][ct_key]'].value; ++i) {
 716    var ikey = 'opt[' + i + ']';
 717    for (var j = i+1; f['opt[' + j + '][ct_key]'].value; ++j) {
 718     var jkey = 'opt[' + j + ']';
 719     if (f[ikey+'[ct_key]'].value == f[jkey+'[ct_key]'].value) {
 720      alert('<?php echo xl('Error: duplicated name on line') ?>' + ' ' + j);
 721      return;
 722     }
 723     if (parseInt(f[ikey+'[ct_id]'].value) == parseInt(f[jkey+'[ct_id]'].value)) {
 724      alert('<?php echo xl('Error: duplicated ID on line') ?>' + ' ' + j);
 725      return;
 726     }
 727    }
 728   }
 729  }
 730  f.submit();
 731 }
 732
 733 </script>
 734
 735 </head>
 736
 737 <body class="body_top">
 738
 739 <form method='post' name='theform' id='theform' action='edit_list.php'>
 740 <input type="hidden" name="formaction" id="formaction">
 741
 742 <p><b><?php xl('Edit list','e'); ?>:</b>&nbsp;
 743 <select name='list_id' id="list_id">
 744 <?php
 745
 746 // List order depends on language translation options.
 747 $lang_id = empty($_SESSION['language_choice']) ? '1' : $_SESSION['language_choice'];
 748
 749 if (($lang_id == '1' && !empty($GLOBALS['skip_english_translation'])) ||
 750   !$GLOBALS['translate_lists'])
 751 {
 752   $res = sqlStatement("SELECT option_id, title FROM list_options WHERE " .
 753     "list_id = 'lists' ORDER BY title, seq");
 754 }
 755 else {
 756   // Use and sort by the translated list name.
 757   $res = sqlStatement("SELECT lo.option_id, " .
 758     "IF(LENGTH(ld.definition),ld.definition,lo.title) AS title " .
 759     "FROM list_options AS lo " .
 760     "LEFT JOIN lang_constants AS lc ON lc.constant_name = lo.title " .
 761     "LEFT JOIN lang_definitions AS ld ON ld.cons_id = lc.cons_id AND " .
 762     "ld.lang_id = '$lang_id' " .
 763     "WHERE lo.list_id = 'lists' " .
 764     "ORDER BY IF(LENGTH(ld.definition),ld.definition,lo.title), lo.seq");
 765 }
 766
 767 while ($row = sqlFetchArray($res)) {
 768   $key = $row['option_id'];
 769   echo "<option value='$key'";
 770   if ($key == $list_id) echo " selected";
 771   echo ">" . $row['title'] . "</option>\n";
 772 }
 773
 774 ?>
 775 </select>
 776 <input type="button" id="<?php echo $list_id; ?>" class="deletelist" value=<?php xl('Delete List','e','\'','\''); ?>>
 777 <input type="button" id="newlist" class="newlist" value=<?php xl('New List','e','\'','\''); ?>>
 778 </p>
 779
 780 <center>
 781
 782 <table cellpadding='2' cellspacing='0'>
 783  <tr class='head'>
 784 <?php if ($list_id == 'feesheet') { ?>
 785   <td><b><?php xl('Group'    ,'e'); ?></b></td>
 786   <td><b><?php xl('Option'   ,'e'); ?></b></td>
 787   <td><b><?php xl('Generates','e'); ?></b></td>
 788 <?php } else if ($list_id == 'code_types') { ?>
 789   <td><b><?php xl('Active'      ,'e'); ?></b></td>
 790   <td><b><?php xl('Key'        ,'e'); ?></b></td>
 791   <td><b><?php xl('ID'          ,'e'); ?></b></td>
 792   <td><b><?php xl('Label'       ,'e'); ?></b></td>
 793   <?php //show translation column if not english and the translation lists flag is set
 794   if ($GLOBALS['translate_lists'] && $_SESSION['language_choice'] > 1) {
 795     echo "<td><b>".xl('Translation')."</b><span class='help' title='".xl('The translated Title that will appear in current language')."'> (?)</span></td>";
 796   } ?>
 797   <td><b><?php xl('Seq'         ,'e'); ?></b></td>
 798   <td><b><?php xl('ModLength'   ,'e'); ?></b></td>
 799   <td><b><?php xl('Justify'     ,'e'); ?></b></td>
 800   <td><b><?php xl('Mask'        ,'e'); ?></b></td>
 801   <td><b><?php xl('Claims'      ,'e'); ?></b></td>
 802   <td><b><?php xl('Fees'        ,'e'); ?></b></td>
 803   <td><b><?php xl('Relations'   ,'e'); ?></b></td>
 804   <td><b><?php xl('Hide'        ,'e'); ?></b></td>
 805   <td><b><?php xl('Procedure'   ,'e'); ?></b></td>
 806   <td><b><?php xl('Diagnosis'   ,'e'); ?></b></td>
 807   <td><b><?php xl('Clinical Term','e'); ?></b></td>
 808   <td><b><?php xl('Medical Problem'     ,'e'); ?></b></td>
 809   <td><b><?php xl('External'    ,'e'); ?></b></td>
 810 <?php } else if ($list_id == 'issue_types') { ?>
 811   <td><b><?php echo xlt('OpenEMR Application Category'); ?></b></td>
 812   <td><b><?php echo xlt('Order'); ?></b></td>
 813   <td><b><?php echo xlt('Type'); ?></b></td>
 814   <td><b><?php echo xlt('Plural'); ?></b></td>
 815   <?php //show translation column if not english and the translation lists flag is set
 816   if ($GLOBALS['translate_lists'] && $_SESSION['language_choice'] > 1) {
 817     echo "<td><b>".xl('Translation')."</b><span class='help' title='".xl('The translated Title that will appear in current language')."'> (?)</span></td>";
 818   } ?>
 819   <td><b><?php echo xlt('Singular'); ?></b></td>
 820   <?php //show translation column if not english and the translation lists flag is set
 821   if ($GLOBALS['translate_lists'] && $_SESSION['language_choice'] > 1) {
 822     echo "<td><b>".xl('Translation')."</b><span class='help' title='".xl('The translated Title that will appear in current language')."'> (?)</span></td>";
 823   } ?>
 824   <td><b><?php echo xlt('Abbreviation'); ?></b></td>
 825   <?php //show translation column if not english and the translation lists flag is set
 826   if ($GLOBALS['translate_lists'] && $_SESSION['language_choice'] > 1) {
 827     echo "<td><b>".xl('Translation')."</b><span class='help' title='".xl('The translated Title that will appear in current language')."'> (?)</span></td>";
 828   } ?>
 829   <td><b><?php echo xlt('Style'); ?></b></td>
 830   <td><b><?php echo xlt('Force Show'); ?></b></td>
 831 <?php } else { ?>
 832   <td title=<?php xl('Click to edit','e','\'','\''); ?>><b><?php  xl('ID','e'); ?></b></td>
 833   <td><b><?php xl('Title'  ,'e'); ?></b></td>
 834   <?php //show translation column if not english and the translation lists flag is set
 835   if ($GLOBALS['translate_lists'] && $_SESSION['language_choice'] > 1) {
 836     echo "<td><b>".xl('Translation')."</b><span class='help' title='".xl('The translated Title that will appear in current language')."'> (?)</span></td>";
 837   } ?>
 838   <td><b><?php xl('Order'  ,'e'); ?></b></td>
 839   <td><b><?php xl('Default','e'); ?></b></td>
 840 <?php if ($list_id == 'taxrate') { ?>
 841   <td><b><?php xl('Rate'   ,'e'); ?></b></td>
 842 <?php } else if ($list_id == 'contrameth') { ?>
 843   <td><b><?php xl('Effectiveness','e'); ?></b></td>
 844 <?php } else if ($list_id == 'lbfnames') { ?>
 845   <td title='<?php xl('Number of past history columns','e'); ?>'><b><?php xl('Repeats','e'); ?></b></td>
 846 <?php } else if ($list_id == 'fitness') { ?>
 847   <td><b><?php xl('Color:Abbr','e'); ?></b></td>
 848 <?php } else if ($list_id == 'adjreason' || $list_id == 'abook_type') { ?>
 849   <td><b><?php xl('Type','e'); ?></b></td>
 850 <?php } else if ($list_id == 'immunizations') { ?>
 851   <td><b>&nbsp;&nbsp;&nbsp;&nbsp;<?php xl('CVX Code Mapping','e'); ?></b></td>
 852 <?php } if ($GLOBALS['ippf_specific']) { ?>
 853   <td><b><?php xl('Global ID','e'); ?></b></td>
 854 <?php } ?>
 855   <td><b><?php xl('Notes','e'); ?></b></td>
 856   <td><b><?php xl('Code(s)','e'); ?></b></td>
 857 <?php } // end not fee sheet ?>
 858  </tr>
 859
 860 <?php
 861 // Get the selected list's elements.
 862 if ($list_id) {
 863   if ($list_id == 'feesheet') {
 864     $res = sqlStatement("SELECT * FROM fee_sheet_options " .
 865       "ORDER BY fs_category, fs_option");
 866     while ($row = sqlFetchArray($res)) {
 867       writeFSLine($row['fs_category'], $row['fs_option'], $row['fs_codes']);
 868     }
 869     for ($i = 0; $i < 3; ++$i) {
 870       writeFSLine('', '', '');
 871     }
 872   }
 873   else if ($list_id == 'code_types') {
 874     $res = sqlStatement("SELECT * FROM code_types " .
 875       "ORDER BY ct_seq, ct_key");
 876     while ($row = sqlFetchArray($res)) {
 877       writeCTLine($row);
 878     }
 879     for ($i = 0; $i < 3; ++$i) {
 880       writeCTLine(array());
 881     }
 882   }
 883   else if ($list_id == 'issue_types') {
 884     $res = sqlStatement("SELECT * FROM issue_types " .
 885       "ORDER BY category, ordering ASC");
 886     while ($row = sqlFetchArray($res)) {
 887       writeITLine($row);
 888     }
 889     for ($i = 0; $i < 3; ++$i) {
 890       writeITLine(array());
 891     }
 892   }
 893   else {
 894     $res = sqlStatement("SELECT * FROM list_options WHERE " .
 895       "list_id = '$list_id' ORDER BY seq,title");
 896     while ($row = sqlFetchArray($res)) {
 897       writeOptionLine($row['option_id'], $row['title'], $row['seq'],
 898         $row['is_default'], $row['option_value'], $row['mapping'],
 899         $row['notes'],$row['codes']);
 900     }
 901     for ($i = 0; $i < 3; ++$i) {
 902       writeOptionLine('', '', '', '', 0);
 903     }
 904   }
 905 }
 906 ?>
 907
 908 </table>
 909
 910 <p>
 911  <input type='button' name='form_save' id='form_save' value='<?php xl('Save','e'); ?>' />
 912 </p>
 913 </center>
 914
 915 </form>
 916
 917 <!-- template DIV that appears when user chooses to make a new list -->
 918 <div id="newlistdetail" style="border: 1px solid black; padding: 3px; display: none; visibility: hidden; background-color: lightgrey;">
 919 <?php xl('List Name','e'); ?>: <input type="textbox" size="20" maxlength="30" name="newlistname" id="newlistname">
 920 <br>
 921 <input type="button" class="savenewlist" value=<?php xl('Save New List','e','\'','\''); ?>>
 922 <input type="button" class="cancelnewlist" value=<?php xl('Cancel','e','\'','\''); ?>>
 923 </div>
 924 </body>
 925 <script language="javascript">
 926 // jQuery stuff to make the page a little easier to use
 927
 928 $(document).ready(function(){
 929     $("#form_save").click(function() { SaveChanges(); });
 930     $("#list_id").change(function() { $('#theform').submit(); });
 931
 932     $(".newlist").click(function() { NewList(this); });
 933     $(".savenewlist").click(function() { SaveNewList(this); });
 934     $(".deletelist").click(function() { DeleteList(this); });
 935     $(".cancelnewlist").click(function() { CancelNewList(this); });
 936
 937     var SaveChanges = function() {
 938         $("#formaction").val("save");
 939         // $('#theform').submit();
 940         mysubmit();
 941     }
 942
 943     // show the DIV to create a new list
 944     var NewList = function(btnObj) {
 945         // show the field details DIV
 946         $('#newlistdetail').css('visibility', 'visible');
 947         $('#newlistdetail').css('display', 'block');
 948         $(btnObj).parent().append($("#newlistdetail"));
 949         $('#newlistdetail > #newlistname').focus();
 950     }
 951     // save the new list
 952     var SaveNewList = function() {
 953         // the list name can only have letters, numbers, spaces and underscores
 954         // AND it cannot start with a number
 955         if ($("#newlistname").val().match(/^\d+/)) {
 956             alert("<?php xl('List names cannot start with numbers.','e'); ?>");
 957             return false;
 958         }
 959         var validname = $("#newlistname").val().replace(/[^A-za-z0-9 -]/g, "_"); // match any non-word characters and replace them
 960         if (validname != $("#newlistname").val()) {
 961             if (! confirm("<?php xl('Your list name has been changed to meet naming requirements.','e','','\n') . xl('Please compare the new name','e','',', \''); ?>"+validname+"<?php xl('with the old name','e','\' ',', \''); ?>"+$("#newlistname").val()+"<?php xl('Do you wish to continue with the new name?','e','\'.\n',''); ?>"))
 962             {
 963                 return false;
 964             }
 965         }
 966         $("#newlistname").val(validname);
 967
 968         // submit the form to add a new field to a specific group
 969         $("#formaction").val("addlist");
 970         $("#theform").submit();
 971     }
 972     // actually delete an entire list from the database
 973     var DeleteList = function(btnObj) {
 974         var listid = $(btnObj).attr("id");
 975         if (confirm("<?php xl('WARNING','e','',' - ') . xl('This action cannot be undone.','e','','\n') . xl('Are you sure you wish to delete the entire list','e',' ','('); ?>"+listid+")?")) {
 976             // submit the form to add a new field to a specific group
 977             $("#formaction").val("deletelist");
 978             $("#deletelistname").val(listid);
 979             $("#theform").submit();
 980         }
 981     };
 982
 983     // just hide the new list DIV
 984     var CancelNewList = function(btnObj) {
 985         // hide the list details DIV
 986         $('#newlistdetail').css('visibility', 'hidden');
 987         $('#newlistdetail').css('display', 'none');
 988         // reset the new group values to a default
 989         $('#newlistdetail > #newlistname').val("");
 990     };
 991 });
 992
 993 </script>
 994
 995 </html>