interface/orders/types_edit.php

   1 <?php
   2 // Copyright (C) 2010-2017 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 require_once("../globals.php");
  10 require_once("$srcdir/acl.inc");
  11 require_once("$srcdir/options.inc.php");
  12
  13 $typeid = formData('typeid', 'R') + 0;
  14 $parent = formData('parent', 'R') + 0;
  15
  16 $info_msg = "";
  17
  18 function QuotedOrNull($fld)
  19 {
  20     $fld = formDataCore($fld, true);
  21     if ($fld) {
  22         return "'$fld'";
  23     }
  24
  25     return "NULL";
  26 }
  27
  28 function invalue($name)
  29 {
  30     $fld = formData($name, "P", true);
  31     return "'$fld'";
  32 }
  33
  34 function rbinput($name, $value, $desc, $colname)
  35 {
  36     global $row;
  37     $ret  = "<input type='radio' name='$name' value='$value'";
  38     if ($row[$colname] == $value) {
  39         $ret .= " checked";
  40     }
  41
  42     $ret .= " />$desc";
  43     return $ret;
  44 }
  45
  46 function rbvalue($rbname)
  47 {
  48     $tmp = $_POST[$rbname];
  49     if (! $tmp) {
  50         $tmp = '0';
  51     }
  52
  53     return "'$tmp'";
  54 }
  55
  56 function cbvalue($cbname)
  57 {
  58     return empty($_POST[$cbname]) ? 0 : 1;
  59 }
  60
  61 function recursiveDelete($typeid)
  62 {
  63     $res = sqlStatement("SELECT procedure_type_id FROM " .
  64     "procedure_type WHERE parent = '$typeid'");
  65     while ($row = sqlFetchArray($res)) {
  66         recursiveDelete($row['procedure_type_id']);
  67     }
  68
  69     sqlStatement("DELETE FROM procedure_type WHERE " .
  70     "procedure_type_id = '$typeid'");
  71 }
  72
  73 ?>
  74 <html>
  75 <head>
  76 <script type="text/javascript" src="<?php echo $webroot ?>/interface/main/tabs/js/include_opener.js"></script>
  77 <title><?php echo $typeid ? xlt('Edit') : xlt('Add New'); ?> <?php echo xlt('Order/Result Type'); ?></title>
  78 <link rel="stylesheet" href='<?php echo $css_header ?>' type='text/css'>
  79
  80 <style>
  81 td { font-size:10pt; }
  82
  83 .inputtext {
  84  padding-left:2px;
  85  padding-right:2px;
  86 }
  87
  88 .button {
  89  font-family:sans-serif;
  90  font-size:9pt;
  91  font-weight:bold;
  92 }
  93
  94 .ordonly { }
  95 .resonly { }
  96
  97 </style>
  98
  99 <script type="text/javascript" src="../../library/topdialog.js"></script>
 100 <script type="text/javascript" src="../../library/dialog.js?v=<?php echo $v_js_includes; ?>"></script>
 101 <script type="text/javascript" src="<?php echo $GLOBALS['assets_static_relative']; ?>/jquery-min-1-2-2/index.js"></script>
 102
 103 <script language="JavaScript">
 104
 105 <?php require($GLOBALS['srcdir'] . "/restoreSession.php"); ?>
 106
 107 // The name of the form field for find-code popup results.
 108 var rcvarname;
 109
 110 // This is for callback by the find-code popup.
 111 // Appends to or erases the current list of related codes.
 112 function set_related(codetype, code, selector, codedesc) {
 113  var f = document.forms[0];
 114  var s = f[rcvarname].value;
 115  if (code) {
 116   if (s.length > 0) s += ';';
 117   s += codetype + ':' + code;
 118  } else {
 119   s = '';
 120  }
 121  f[rcvarname].value = s;
 122 }
 123
 124 // This is for callback by the find-code popup.
 125 // Returns the array of currently selected codes with each element in codetype:code format.
 126 function get_related() {
 127  return document.forms[0][rcvarname].value.split(';');
 128 }
 129
 130 // This is for callback by the find-code popup.
 131 // Deletes the specified codetype:code from the currently selected list.
 132 function del_related(s) {
 133  my_del_related(s, document.forms[0][rcvarname], false);
 134 }
 135
 136 // This invokes the find-code popup.
 137 function sel_related(varname) {
 138  if (typeof varname == 'undefined') varname = 'form_related_code';
 139  rcvarname = varname;
 140  dlgopen('../patient_file/encounter/find_code_dynamic.php', '_blank', 900, 600);
 141 }
 142
 143 // Show or hide sections depending on procedure type.
 144 function proc_type_changed() {
 145  var f = document.forms[0];
 146  var pt = f.form_procedure_type;
 147  var ix = pt.selectedIndex;
 148  if (ix < 0) ix = 0;
 149  var ptval = pt.options[ix].value;
 150  var ptpfx = ptval.substring(0, 3);
 151  $('.ordonly').hide();
 152  $('.resonly').hide();
 153  if (ptpfx == 'ord') $('.ordonly').show();
 154  if (ptpfx == 'res'|| ptpfx == 'rec') $('.resonly').show();
 155 }
 156
 157 $(document).ready(function() {
 158  proc_type_changed();
 159 });
 160
 161 </script>
 162
 163 </head>
 164
 165 <body class="body_top">
 166 <?php
 167 // If we are saving, then save and close the window.
 168 //
 169 if ($_POST['form_save']) {
 170     $sets =
 171     "name = "           . invalue('form_name')           . ", " .
 172     "lab_id = "         . invalue('form_lab_id')         . ", " .
 173     "procedure_code = " . invalue('form_procedure_code') . ", " .
 174     "procedure_type = " . invalue('form_procedure_type') . ", " .
 175     "body_site = "      . invalue('form_body_site')      . ", " .
 176     "specimen = "       . invalue('form_specimen')       . ", " .
 177     "route_admin = "    . invalue('form_route_admin')    . ", " .
 178     "laterality = "     . invalue('form_laterality')     . ", " .
 179     "description = "    . invalue('form_description')    . ", " .
 180     "units = "          . invalue('form_units')          . ", " .
 181     "`range` = "        . invalue('form_range')          . ", " .
 182     "standard_code = "  . invalue('form_standard_code')  . ", " .
 183     "related_code = "   . invalue('form_related_code')   . ", " .
 184     "seq = "            . invalue('form_seq');
 185
 186     if ($typeid) {
 187         sqlStatement("UPDATE procedure_type SET $sets WHERE procedure_type_id = '$typeid'");
 188         // Get parent ID so we can refresh the tree view.
 189         $row = sqlQuery("SELECT parent FROM procedure_type WHERE " .
 190         "procedure_type_id = '$typeid'");
 191         $parent = $row['parent'];
 192     } else {
 193         $newid = sqlInsert("INSERT INTO procedure_type SET parent = '$parent', $sets");
 194         // $newid is not really used in this script
 195     }
 196 } else if ($_POST['form_delete']) {
 197     if ($typeid) {
 198         // Get parent ID so we can refresh the tree view after deleting.
 199         $row = sqlQuery("SELECT parent FROM procedure_type WHERE " .
 200         "procedure_type_id = '$typeid'");
 201         $parent = $row['parent'];
 202         recursiveDelete($typeid);
 203     }
 204 }
 205
 206 if ($_POST['form_save'] || $_POST['form_delete']) {
 207   // Find out if this parent still has any children.
 208     $trow = sqlQuery("SELECT procedure_type_id FROM procedure_type WHERE parent = '$parent' LIMIT 1");
 209   // Close this window and redisplay the updated list.
 210     echo "<script language='JavaScript'>\n";
 211     if ($info_msg) {
 212         echo " alert('$info_msg');\n";
 213     }
 214
 215     echo " window.close();\n";
 216     echo " if (opener.refreshFamily) opener.refreshFamily($parent,'true');\n";
 217     echo "</script></body></html>\n";
 218     exit();
 219 }
 220
 221 if ($typeid) {
 222     $row = sqlQuery("SELECT * FROM procedure_type WHERE procedure_type_id = '$typeid'");
 223 }
 224 ?>
 225 <form method='post' name='theform'
 226  action='types_edit.php?typeid=<?php echo $typeid ?>&parent=<?php echo $parent ?>'>
 227 <!-- no restoreSession() on submit because session data are not relevant -->
 228
 229 <center>
 230
 231 <table border='0' width='100%'>
 232
 233  <tr>
 234   <td width='1%' nowrap><b><?php echo xlt('Procedure Type'); ?>:</b></td>
 235   <td>
 236 <?php
 237 echo generate_select_list(
 238     'form_procedure_type',
 239     'proc_type',
 240     $row['procedure_type'],
 241     xl('The type of this entity'),
 242     ' ',
 243     '',
 244     'proc_type_changed()'
 245 );
 246 ?>
 247   </td>
 248  </tr>
 249
 250  <tr>
 251   <td nowrap><b><?php echo xlt('Name'); ?>:</b></td>
 252   <td>
 253    <input type='text' size='40' name='form_name' maxlength='63'
 254     value='<?php echo htmlspecialchars($row['name'], ENT_QUOTES); ?>'
 255     title='<?php echo xlt('Your name for this category, procedure or result'); ?>'
 256     style='width:100%' class='inputtext' />
 257   </td>
 258  </tr>
 259
 260  <tr>
 261   <td nowrap><b><?php echo xlt('Description'); ?>:</b></td>
 262   <td>
 263    <input type='text' size='40' name='form_description' maxlength='255'
 264     value='<?php echo htmlspecialchars($row['description'], ENT_QUOTES); ?>'
 265     title='<?php echo xlt('Description of this procedure or result code'); ?>'
 266     style='width:100%' class='inputtext' />
 267   </td>
 268  </tr>
 269
 270  <tr>
 271   <td nowrap><b><?php echo xlt('Sequence'); ?>:</b></td>
 272   <td>
 273    <input type='text' size='4' name='form_seq' maxlength='11'
 274     value='<?php echo $row['seq'] + 0; ?>'
 275     title='<?php echo xla('Relative ordering of this entity'); ?>'
 276     class='inputtext' />
 277   </td>
 278  </tr>
 279
 280  <tr class='ordonly'>
 281   <td width='1%' nowrap><b><?php echo xlt('Order From'); ?>:</b></td>
 282   <td>
 283    <select name='form_lab_id' title='<?php echo xla('The entity performing this procedure'); ?>'>
 284     <?php
 285     $ppres = sqlStatement("SELECT ppid, name FROM procedure_providers " .
 286     "ORDER BY name, ppid");
 287     while ($pprow = sqlFetchArray($ppres)) {
 288         echo "<option value='" . attr($pprow['ppid']) . "'";
 289         if ($pprow['ppid'] == $row['lab_id']) {
 290             echo " selected";
 291         }
 292
 293         echo ">" . text($pprow['name']) . "</option>";
 294     }
 295 ?>
 296    </select>
 297   </td>
 298  </tr>
 299
 300  <tr class='ordonly resonly'>
 301   <td nowrap><b><?php echo xlt('Identifying Code'); ?>:</b></td>
 302   <td>
 303    <input type='text' size='40' name='form_procedure_code' maxlength='31'
 304     value='<?php echo htmlspecialchars($row['procedure_code'], ENT_QUOTES); ?>'
 305     title='<?php echo xla('The vendor-specific code identifying this procedure or result'); ?>'
 306     style='width:100%' class='inputtext' />
 307   </td>
 308  </tr>
 309
 310  <tr class='ordonly'>
 311   <td nowrap><b><?php echo xlt('Standard Code'); ?>:</b></td>
 312   <td>
 313    <!--
 314    <input type='text' size='50' name='form_standard_code'
 315     value='<?php echo $row['standard_code'] ?>' onclick='sel_related("form_standard_code")'
 316     title='<?php echo xla('Click to select an industry-standard code for this procedure'); ?>'
 317     style='width:100%' readonly />
 318    -->
 319    <input type='text' size='50' name='form_standard_code'
 320     value='<?php echo attr($row['standard_code']); ?>'
 321     title='<?php echo xla('Enter the LOINC code for this procedure'); ?>'
 322     style='width:100%' />
 323   </td>
 324  </tr>
 325
 326  <tr class='ordonly'>
 327   <td width='1%' nowrap><b><?php echo xlt('Body Site'); ?>:</b></td>
 328   <td>
 329 <?php
 330 generate_form_field(array('data_type' => 1, 'field_id' => 'body_site',
 331   'list_id' => 'proc_body_site',
 332   'description' => xl('Body site, if applicable')), $row['body_site']);
 333 ?>
 334   </td>
 335  </tr>
 336
 337  <tr class='ordonly'>
 338   <td width='1%' nowrap><b><?php echo xlt('Specimen Type'); ?>:</b></td>
 339   <td>
 340 <?php
 341 generate_form_field(
 342     array('data_type' => 1, 'field_id' => 'specimen',
 343     'list_id' => 'proc_specimen',
 344     'description' => xl('Specimen Type')),
 345     $row['specimen']
 346 );
 347 ?>
 348   </td>
 349  </tr>
 350
 351  <tr class='ordonly'>
 352   <td width='1%' nowrap><b><?php echo xlt('Administer Via'); ?>:</b></td>
 353   <td>
 354 <?php
 355 generate_form_field(
 356     array('data_type' => 1, 'field_id' => 'route_admin',
 357     'list_id' => 'proc_route',
 358     'description' => xl('Route of administration, if applicable')),
 359     $row['route_admin']
 360 );
 361 ?>
 362   </td>
 363  </tr>
 364
 365  <tr class='ordonly'>
 366   <td width='1%' nowrap><b><?php echo xlt('Laterality'); ?>:</b></td>
 367   <td>
 368 <?php
 369 generate_form_field(
 370     array('data_type' => 1, 'field_id' => 'laterality',
 371     'list_id' => 'proc_lat',
 372     'description' => xl('Laterality of this procedure, if applicable')),
 373     $row['laterality']
 374 );
 375 ?>
 376   </td>
 377  </tr>
 378
 379  <tr class='resonly'>
 380   <td width='1%' nowrap><b><?php echo xlt('Default Units'); ?>:</b></td>
 381   <td>
 382 <?php
 383 generate_form_field(
 384     array('data_type' => 1, 'field_id' => 'units',
 385     'list_id' => 'proc_unit',
 386     'description' => xl('Optional default units for manual entry of results')),
 387     $row['units']
 388 );
 389 ?>
 390   </td>
 391  </tr>
 392
 393  <tr class='resonly'>
 394   <td nowrap><b><?php echo xlt('Default Range'); ?>:</b></td>
 395   <td>
 396    <input type='text' size='40' name='form_range' maxlength='255'
 397     value='<?php echo htmlspecialchars($row['range'], ENT_QUOTES); ?>'
 398     title='<?php echo xla('Optional default range for manual entry of results'); ?>'
 399     style='width:100%' class='inputtext' />
 400   </td>
 401  </tr>
 402
 403  <tr class='resonly'>
 404   <td nowrap><b><?php echo xlt('Followup Services'); ?>:</b></td>
 405   <td>
 406    <input type='text' size='50' name='form_related_code'
 407     value='<?php echo $row['related_code'] ?>' onclick='sel_related("form_related_code")'
 408     title='<?php echo xla('Click to select services to perform if this result is abnormal'); ?>'
 409     style='width:100%' readonly />
 410   </td>
 411  </tr>
 412
 413 </table>
 414
 415 <br />
 416
 417 <input type='submit' name='form_save' value='<?php echo xla('Save'); ?>' />
 418
 419 <?php if ($typeid) { ?>
 420 &nbsp;
 421 <input type='submit' name='form_delete' value='<?php echo xla('Delete'); ?>' style='color:red' />
 422 <?php } ?>
 423
 424 &nbsp;
 425 <input type='button' value='<?php echo xla('Cancel'); ?>' onclick='window.close()' />
 426 </p>
 427
 428 </center>
 429 </form>
 430 </body>
 431 </html>
 432