interface/orders/find_order_popup.php

   1 <?php
   2 /**
   3 * Script to pick a procedure order type from the compendium.
   4 *
   5 * Copyright (C) 2013 Rod Roark <rod@sunsetsystems.com>
   6 *
   7 * LICENSE: This program is free software; you can redistribute it and/or
   8 * modify it under the terms of the GNU General Public License
   9 * as published by the Free Software Foundation; either version 2
  10 * of the License, or (at your option) any later version.
  11 * This program is distributed in the hope that it will be useful,
  12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 * GNU General Public License for more details.
  15 * You should have received a copy of the GNU General Public License
  16 * along with this program.  If not, see <http://opensource.org/licenses/gpl-license.php>.
  17 *
  18 * @package   OpenEMR
  19 * @author    Rod Roark <rod@sunsetsystems.com>
  20 */
  21
  22 $fake_register_globals = false;
  23 $sanitize_all_escapes = true;
  24
  25 require_once("../globals.php");
  26
  27 $order =  0 + $_GET['order'];
  28 $labid =  0 + $_GET['labid'];
  29
  30 //////////////////////////////////////////////////////////////////////
  31 // The form was submitted with the selected code type.
  32 if (isset($_GET['typeid'])) {
  33   $typeid = $_GET['typeid'] + 0;
  34   $name = '';
  35   if ($typeid) {
  36     $ptrow = sqlQuery("SELECT name FROM procedure_type WHERE " .
  37       "procedure_type_id = '$typeid'");
  38     $name = addslashes($ptrow['name']);
  39   }
  40 ?>
  41 <script type="text/javascript" src="<?php echo $webroot ?>/interface/main/tabs/js/include_opener.js"></script>
  42 <script language="JavaScript">
  43 if (opener.closed || !opener.set_proc_type) {
  44  alert('<?php xl('The destination form was closed; I cannot act on your selection.','e'); ?>');
  45 }
  46 else {
  47  opener.set_proc_type(<?php echo "$typeid, '$name'"; ?>);
  48 <?php
  49 // This is to generate the "Questions at Order Entry" for the Procedure Order form.
  50 // GET parms needed for this are: formid, formseq.
  51 if (isset($_GET['formid'])) {
  52   if ($typeid) {
  53     require_once("qoe.inc.php");
  54     $qoe_init_javascript = '';
  55     echo ' opener.set_proc_html("';
  56     echo generate_qoe_html($typeid, intval($_GET['formid']), 0, intval($_GET['formseq']));
  57     echo '", "' . $qoe_init_javascript .  '");' . "\n";
  58   }
  59   else {
  60     echo ' opener.set_proc_html("", "");' . "\n";
  61   }
  62 }
  63 ?>
  64 }
  65 window.close();
  66 </script>
  67 <?php
  68   exit();
  69 }
  70 // End Submission.
  71 //////////////////////////////////////////////////////////////////////
  72
  73 ?>
  74 <html>
  75 <head>
  76 <?php html_header_show(); ?>
  77 <script type="text/javascript" src="<?php echo $webroot ?>/interface/main/tabs/js/include_opener.js"></script>
  78 <title><?php echo xlt('Procedure Picker'); ?></title>
  79 <link rel="stylesheet" href='<?php echo attr($css_header) ?>' type='text/css'>
  80
  81 <style>
  82 td { font-size:10pt; }
  83 </style>
  84
  85 <script language="JavaScript">
  86
  87 // Reload the script with the select procedure type ID.
  88 function selcode(typeid) {
  89  location.href = 'find_order_popup.php<?php
  90 echo "?order=$order&labid=$labid";
  91 if (isset($_GET['formid' ])) echo '&formid='  . $_GET['formid'];
  92 if (isset($_GET['formseq'])) echo '&formseq=' . $_GET['formseq'];
  93 ?>&typeid=' + typeid;
  94  return false;
  95 }
  96
  97 </script>
  98
  99 </head>
 100
 101 <body class="body_top">
 102
 103 <form method='post' name='theform' action='find_order_popup.php<?php
 104 echo "?order=$order&labid=$labid";
 105 if (isset($_GET['formid' ])) echo '&formid='  . $_GET['formid'];
 106 if (isset($_GET['formseq'])) echo '&formseq=' . $_GET['formseq'];
 107 ?>'>
 108
 109 <center>
 110
 111 <table border='0' cellpadding='5' cellspacing='0'>
 112
 113  <tr>
 114   <td height="1">
 115   </td>
 116  </tr>
 117
 118  <tr bgcolor='#ddddff'>
 119   <td>
 120    <b>
 121
 122  <?php echo xlt('Search for:'); ?>
 123    <input type='text' name='search_term' size='12' value='<?php echo attr($_REQUEST['search_term']); ?>'
 124     title='<?php echo xla('Any part of the desired code or its description'); ?>' />
 125    &nbsp;
 126    <input type='submit' name='bn_search' value='<?php echo xla('Search'); ?>' />
 127    &nbsp;&nbsp;&nbsp;
 128    <input type='button' value='<?php echo xla('Erase'); ?>' onclick="selcode(0)" />
 129    </b>
 130   </td>
 131  </tr>
 132
 133  <tr>
 134   <td height="1">
 135   </td>
 136  </tr>
 137
 138 </table>
 139
 140 <?php if ($_REQUEST['bn_search']) { ?>
 141
 142 <table border='0'>
 143  <tr>
 144   <td><b><?php echo xlt('Code'); ?></b></td>
 145   <td><b><?php echo xlt('Description'); ?></b></td>
 146  </tr>
 147 <?php
 148   $search_term = '%' . $_REQUEST['search_term'] . '%';
 149
 150   $query = "SELECT procedure_type_id, procedure_code, name " .
 151     "FROM procedure_type WHERE " .
 152     "lab_id = ? AND " .
 153     "procedure_type LIKE 'ord' AND " .
 154     "activity = 1 AND " .
 155     "(procedure_code LIKE ? OR name LIKE ?) " .
 156     "ORDER BY seq, procedure_code";
 157
 158   // echo "<!-- $query $labid $search_term -->\n"; // debugging
 159
 160   $res = sqlStatement($query, array($labid, $search_term, $search_term));
 161
 162   while ($row = sqlFetchArray($res)) {
 163     $itertypeid = $row['procedure_type_id'];
 164     $itercode = $row['procedure_code'];
 165     $itertext = trim($row['name']);
 166     $anchor = "<a href='' onclick='return selcode(" .
 167       "\"" . $itertypeid . "\")'>";
 168     echo " <tr>";
 169     echo "  <td>$anchor" . text($itercode) . "</a></td>\n";
 170     echo "  <td>$anchor" . text($itertext) . "</a></td>\n";
 171     echo " </tr>";
 172   }
 173 ?>
 174 </table>
 175
 176 <?php } ?>
 177
 178 </center>
 179 </form>
 180 </body>
 181 </html>