library/coding.inc.php

   1 <?php
   2 // Copyright (C) 2005-2006 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 include_once(dirname(__FILE__) . '/api.inc');
  10 include_once(dirname(__FILE__) . '/../interface/forms/fee_sheet/codes.php');
  11 include_once(dirname(__FILE__) . '/../custom/code_types.inc.php');
  12
  13 // $FEE_SHEET_COLUMNS should be defined in codes.php.
  14 if (empty($FEE_SHEET_COLUMNS)) $FEE_SHEET_COLUMNS = 2;
  15
  16 // If Save was clicked, save the new and modified billing lines;
  17 // then if no error, redirect to patient_encounter.php.
  18 //
  19 if ($_POST['bn_save']) {
  20         $provid = $_POST['ProviderID'];
  21         if (! $provid) $provid = $_SESSION["authUserID"];
  22         $bill = $_POST['bill'];
  23         for ($lino = 1; $bill["$lino"]['code_type']; ++$lino) {
  24                 $iter = $bill["$lino"];
  25
  26                 // Skip disabled (billed) line items.
  27                 if ($iter['billed']) continue;
  28
  29                 $id        = $iter['id'];
  30                 $code_type = $iter['code_type'];
  31                 $code      = $iter['code'];
  32                 $modifier  = trim($iter['mod']);
  33                 $fee       = trim($iter['fee']);
  34                 $auth      = $iter['auth'] ? "1" : "0";
  35                 $del       = $iter['del'];
  36
  37                 // If the item is already in the database...
  38                 if ($id) {
  39                         if ($del) {
  40                                 deleteBilling($id);
  41                         }
  42                         else {
  43                                 // authorizeBilling($id, $auth);
  44                                 sqlQuery("update billing set fee = '$fee', modifier = '$modifier', " .
  45                                         "authorized = $auth, provider_id = '$provid' where " .
  46                                         "id = '$id' and billed = 0 and activity = 1");
  47                         }
  48                 }
  49
  50                 // Otherwise it's a new item...
  51                 else if (! $del) {
  52                         $query = "select code_text from codes where code_type = '" .
  53                                 $code_types[$code_type]['id'] . "' and " .
  54                                 "code = '$code' and ";
  55                         if ($modifier) {
  56                                 $query .= "modifier = '$modifier'";
  57                         } else {
  58                                 $query .= "(modifier is null or modifier = '')";
  59                         }
  60                         $result = sqlQuery($query);
  61                         $code_text = addslashes($result['code_text']);
  62                         addBilling($encounter, $code_type, $code, $code_text, $pid, $auth,
  63                                 $provid, $modifier, "", $fee);
  64                 }
  65         }
  66
  67         terminate_coding();
  68         exit;
  69 }
  70 ?>
  71
  72 <style>
  73 .billcell { font-family: sans-serif; font-size: 10pt }
  74 </style>
  75 <script language="JavaScript">
  76
  77 function codeselect(selobj, newtype) {
  78  var i = selobj.selectedIndex;
  79  if (i > 0) {
  80   var f = document.forms[0];
  81   f.newcode.value = selobj.options[i].value;
  82   f.newtype.value = newtype;
  83   f.submit();
  84  }
  85 }
  86
  87 </script>
  88
  89 <form method="post" action="<?php echo coding_form_action(); ?>">
  90 <span class="title"><? echo ($GLOBALS['phone_country_code'] == '1') ? 'Fee' : 'Coding' ?> Sheet</span><br>
  91 <input type='hidden' name='newtype' value=''>
  92 <input type='hidden' name='newcode' value=''>
  93
  94 <center>
  95 <table width='95%'>
  96 <?
  97 $i = 0;
  98
  99 // Create all the drop-lists of preselected codes.
 100 //
 101 foreach ($bcodes as $key0 => $value0) {
 102         foreach ($value0 as $key1 => $value1) {
 103                 ++$i;
 104                 echo ($i <= 1) ? " <tr>\n" : "";
 105                 echo "  <td width='50%' align='center' nowrap>\n";
 106                 echo "   <select name='$key1' style='width:96%' onchange='codeselect(this, \"$key0\")'>\n";
 107                 echo "    <option value=''> $key1\n";
 108                 foreach ($value0[$key1] as $key2 => $value2) {
 109                         echo "    <option value='$key2'>$key2 $value2\n";
 110                 }
 111                 echo "   </select>\n";
 112                 echo "  </td>\n";
 113                 if ($i >= $FEE_SHEET_COLUMNS) {
 114                         echo " </tr>\n";
 115                         $i = 0;
 116                 }
 117         }
 118 }
 119
 120 $search_type = $default_search_type;
 121 if ($_POST['search_type']) $search_type = $_POST['search_type'];
 122
 123 echo $i ? "  <td></td>\n </tr>\n" : "";
 124 echo " <tr>\n";
 125 echo "  <td colspan='$FEE_SHEET_COLUMNS' align='center' nowrap>\n";
 126
 127 // If Search was clicked, do it and write the list of results here.
 128 // There's no limit on the number of results!
 129 //
 130 $numrows = 0;
 131 if ($_POST['bn_search'] && $_POST['search_term']) {
 132         $query = "select code, modifier, code_text from codes where " .
 133                 "(code_text like '%" . $_POST['search_term'] . "%' or " .
 134                 "code like '%" . $_POST['search_term'] . "%') and " .
 135                 "code_type = '" . $code_types[$search_type]['id'] . "' " .
 136                 "order by code";
 137         $res = sqlStatement($query);
 138         $numrows = mysql_num_rows($res); // FIXME - not portable!
 139 }
 140
 141 echo "   <select name='Search Results' style='width:98%' " .
 142         "onchange='codeselect(this, \"$search_type\")'";
 143 if (! $numrows) echo ' disabled';
 144 echo ">\n";
 145 echo "    <option value=''> Search Results ($numrows items)\n";
 146
 147 if ($numrows) {
 148         while ($row = sqlFetchArray($res)) {
 149                 $code = $row['code'];
 150                 if ($row['modifier']) $code .= "-" . $row['modifier'];
 151                 echo "    <option value='$code'>$code " . ucfirst(strtolower($row['code_text'])) . "\n";
 152         }
 153 }
 154
 155 echo "   </select>\n";
 156 echo "  </td>\n";
 157 echo " </tr>\n";
 158 ?>
 159
 160 </table>
 161
 162 <p style='margin-top:8px;margin-bottom:8px'>
 163 <table>
 164  <tr>
 165   <td>
 166    Search&nbsp;
 167 <?
 168         foreach ($code_types as $key => $value) {
 169                 echo "   <input type='radio' name='search_type' value='$key'";
 170                 if ($key == $default_search_type) echo " checked";
 171                 echo " />$key&nbsp;\n";
 172         }
 173 ?>
 174    for&nbsp;
 175   </td>
 176   <td>
 177    <input type='text' name='search_term' value=''> &nbsp;
 178   </td>
 179   <td>
 180    <input type='submit' name='bn_search' value='Search'>
 181   </td>
 182  </tr>
 183 </table>
 184 </p>
 185
 186 <p style='margin-top:16px;margin-bottom:8px'>
 187 <table cellspacing='5'>
 188  <tr>
 189   <td class='billcell'><b>Type</b></td>
 190   <td class='billcell'><b>Code</b></td>
 191 <? if (modifiers_are_used()) { ?>
 192   <td class='billcell'><b>Mod</b></td>
 193 <? } ?>
 194 <? if (fees_are_used()) { ?>
 195   <td class='billcell' align='right'><b>Fee</b>&nbsp;</td>
 196 <? } ?>
 197   <td class='billcell' align='center'><b>Auth</b></td>
 198   <td class='billcell' align='center'><b>Delete</b></td>
 199   <td class='billcell'><b>Description</b></td>
 200  </tr>
 201 <?
 202
 203 // This writes a billing line item to the output page.
 204 //
 205 function echoLine($lino, $codetype, $code, $modifier, $auth = TRUE, $del = FALSE,
 206         $fee = NULL, $id = NULL, $billed = FALSE, $code_text = NULL)
 207 {
 208         global $code_types;
 209         if (! $code_text) {
 210                 $query = "select fee, code_text from codes where code_type = '" .
 211                         $code_types[$codetype]['id'] . "' and " .
 212                         "code = '$code' and ";
 213                 if ($modifier) {
 214                         $query .= "modifier = '$modifier'";
 215                 } else {
 216                         $query .= "(modifier is null or modifier = '')";
 217                 }
 218                 $result = sqlQuery($query);
 219                 $code_text = $result['code_text'];
 220                 if (!isset($fee)) $fee = $result['fee'];
 221         }
 222         $strike1 = ($id && $del) ? "<strike>" : "";
 223         $strike2 = ($id && $del) ? "</strike>" : "";
 224         echo " <tr>\n";
 225         echo "  <td class='billcell'>$strike1$codetype$strike2";
 226         if ($id) {
 227                 echo "<input type='hidden' name='bill[$lino][id]' value='$id'>";
 228         }
 229         echo "<input type='hidden' name='bill[$lino][code_type]' value='$codetype'>";
 230         echo "<input type='hidden' name='bill[$lino][code]' value='$code'>";
 231         echo "<input type='hidden' name='bill[$lino][billed]' value='$billed'>";
 232         echo "</td>\n";
 233         echo "  <td class='billcell'>$strike1$code$strike2</td>\n";
 234         if ($billed) {
 235                 if (modifiers_are_used()) {
 236                         echo "  <td class='billcell'>$strike1$modifier$strike2" .
 237                                 "<input type='hidden' name='bill[$lino][mod]' value='$modifier'></td>\n";
 238                 }
 239                 if (fees_are_used()) {
 240                         echo "  <td class='billcell' align='right'>$fee</td>\n";
 241                 }
 242                 echo "  <td class='billcell' align='center'><input type='checkbox'" .
 243                         ($auth ? " checked" : "") . " disabled /></td>\n";
 244                 echo "  <td class='billcell' align='center'><input type='checkbox'" .
 245                         " disabled /></td>\n";
 246         } else {
 247                 if (modifiers_are_used()) {
 248                         if ($code_types[$codetype]['mod'] || $modifier) {
 249                                 echo "  <td class='billcell'><input type='text' name='bill[$lino][mod]' " .
 250                                         "value='$modifier' size='" . $code_types[$codetype]['mod'] . "'></td>\n";
 251                         } else {
 252                                 echo "  <td class='billcell'>&nbsp;</td>\n";
 253                         }
 254                 }
 255                 if (fees_are_used()) {
 256                         if ($code_types[$codetype]['fee'] || $fee != 0) {
 257                                 echo "  <td class='billcell' align='right'><input type='text' name='bill[$lino][fee]' " .
 258                                         "value='$fee' size='6' style='text-align:right'></td>\n";
 259                         } else {
 260                                 echo "  <td class='billcell'>&nbsp;</td>\n";
 261                         }
 262                 }
 263                 echo "  <td class='billcell' align='center'><input type='checkbox' name='bill[$lino][auth]' " .
 264                         "value='1'" . ($auth ? " checked" : "") . " /></td>\n";
 265                 echo "  <td class='billcell' align='center'><input type='checkbox' name='bill[$lino][del]' " .
 266                         "value='1'" . ($del ? " checked" : "") . " /></td>\n";
 267         }
 268         echo "  <td class='billcell'>$strike1" . ucfirst(strtolower($code_text)) . "$strike2</td>\n";
 269         echo " </tr>\n";
 270 }
 271
 272 // Generate lines for items already in the database.
 273 //
 274 $lino = 0;
 275 $encounter_provid = -1;
 276 if ($result = getBillingByEncounter($pid, $encounter, "*") ) {
 277         foreach ($result as $iter) {
 278                 ++$lino;
 279                 $del = $_POST['bill']["$lino"]['del']; // preserve Delete if checked
 280                 // list($code, $modifier) = explode("-", $iter["code"]);
 281                 echoLine($lino, $iter["code_type"], trim($iter["code"]), trim($iter["modifier"]),
 282                         $iter["authorized"], $del, $iter["fee"], $iter["id"], $iter["billed"], $iter["code_text"]);
 283                 if ($encounter_provid < 0 && ! $del) $encounter_provid = $iter["provider_id"];
 284         }
 285 }
 286
 287 // If there were no billing items then the default provider is the logged-in user.
 288 //
 289 if ($encounter_provid < 0) $encounter_provid = $_SESSION["authUserID"];
 290
 291 // Echo new billing items from this form here, but omit any line
 292 // whose Delete checkbox is checked.
 293 //
 294 if ($_POST['bill']) {
 295         foreach ($_POST['bill'] as $key => $iter) {
 296                 if ($iter["id"])  continue; // skip if it came from the database
 297                 if ($iter["del"]) continue; // skip if Delete was checked
 298                 echoLine(++$lino, $iter["code_type"], $iter["code"], trim($iter["mod"]),
 299                         $iter["auth"], $iter["del"], $iter["fee"]);
 300         }
 301 }
 302
 303 // If a new billing code was <select>ed, add its line here.  As a special
 304 // case allow HCPCS codes to be included in the CPT drop-lists, and
 305 // CPT4 codes included in OPCS drop-lists.
 306 //
 307 if ($_POST['newcode']) {
 308         list($code, $modifier) = explode("-", $_POST['newcode']);
 309         $newtype = $_POST['newtype'];
 310         if ($newtype == "CPT4" && preg_match("/^[A-Z]/", $code))
 311                 $newtype = "HCPCS";
 312         else if ($newtype == "OPCS" && preg_match("/^[0-9]/", $code))
 313                 $newtype = "CPT4";
 314         echoLine(++$lino, $newtype, $code, trim($modifier));
 315 }
 316
 317 ?>
 318 </table>
 319 </p>
 320
 321 <br>
 322 &nbsp;
 323
 324 <span class="billcell">PROVIDER:</span>
 325
 326 <?
 327 // Build a drop-down list of providers.  This includes users who
 328 // have the word "provider" anywhere in their "additional info"
 329 // field, so that we can define providers (for billing purposes)
 330 // who do not appear in the calendar.
 331 //
 332 $query = "SELECT id, lname, fname FROM users WHERE " .
 333         "authorized = 1 OR info LIKE '%provider%' ORDER BY lname, fname";
 334 $res = sqlStatement($query);
 335
 336 echo "   <select name='ProviderID'>\n";
 337 echo "    <option value=''>-- Please Select --\n";
 338
 339 while ($row = sqlFetchArray($res)) {
 340         $provid = $row['id'];
 341         echo "    <option value='$provid'";
 342         if ($provid == $encounter_provid) echo " selected";
 343         echo ">" . $row['lname'] . ", " . $row['fname'] . "\n";
 344 }
 345
 346 echo "   </select>\n";
 347 ?>
 348
 349 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
 350
 351 <input type='submit' name='bn_save' value='Save' />
 352 &nbsp;
 353 <input type='submit' name='bn_refresh' value='Refresh'>
 354 &nbsp;
 355 <input type='button' value='Cancel' onclick='docancel()' />
 356
 357 <?php if ($code_types['UCSMC']) { ?>
 358 <p style='font-family:sans-serif;font-size:8pt;color:#666666;'>
 359 &nbsp;<br>
 360 UCSMC codes provided by the University of Calgary Sports Medicine Centre
 361 </p>
 362 <? } ?>
 363
 364 </center>
 365
 366 </form>
 367 <?php
 368 // TBD: If $alertmsg, display it with a JavaScript alert().
 369 ?>