interface/patient_file/encounter/diagnosis.php

   1 <?php
   2 // This program is free software; you can redistribute it and/or
   3 // modify it under the terms of the GNU General Public License
   4 // as published by the Free Software Foundation; either version 2
   5 // of the License, or (at your option) any later version.
   6
   7 require_once("../../globals.php");
   8 require_once("$srcdir/billing.inc");
   9 require_once("$srcdir/sql.inc");
  10 require_once("$srcdir/acl.inc");
  11 require_once("$srcdir/formatting.inc.php");
  12
  13 $mode              = $_REQUEST['mode'];
  14 $type              = $_REQUEST['type'];
  15 $code              = $_REQUEST['code'];
  16 $modifier          = $_REQUEST['modifier'];
  17 $units             = $_REQUEST['units'];
  18 $fee               = $_REQUEST['fee'];
  19 $text              = $_REQUEST['text'];
  20 $payment_method    = $_REQUEST['payment_method'];
  21 $insurance_company = $_REQUEST['insurance_company'];
  22
  23 $target = '_parent';
  24
  25 // Possible units of measure for NDC drug quantities.
  26 $ndc_uom_choices = array(
  27   'ML' => 'ML',
  28   'GR' => 'Grams',
  29   'ME' => 'Milligrams',
  30   'F2' => 'I.U.',
  31   'UN' => 'Units'
  32 );
  33
  34 if ($payment_method == "insurance") {
  35         $payment_method = "insurance: " . $insurance_company;
  36 }
  37 if (isset($mode)) {
  38         if ($mode == "add") {
  39
  40                 // Get the provider ID from the new encounter form if possible, otherwise
  41                 // it's the logged-in user.
  42                 $tmp = sqlQuery("SELECT users.id FROM forms, users WHERE " .
  43                         "forms.pid = '$pid' AND forms.encounter = '$encounter' AND " .
  44                         "forms.formdir='newpatient' AND users.username = forms.user AND " .
  45                         "users.authorized = 1");
  46                 $provid = $tmp['id'] ? $tmp['id'] : $_SESSION["authUserID"];
  47
  48                 if (strtolower($type) == "copay") {
  49                         addBilling($encounter, $type, sprintf("%01.2f", $code), strip_escape_custom($payment_method),
  50                                 $pid, $userauthorized, $provid, $modifier, $units,
  51                                 sprintf("%01.2f", 0 - $code));
  52                 }
  53                 elseif (strtolower($type) == "other") {
  54                         addBilling($encounter, $type, $code, strip_escape_custom($text), $pid, $userauthorized,
  55                                 $provid, $modifier, $units, sprintf("%01.2f", $fee));
  56                 }
  57                 else {
  58       $ndc_info = '';
  59       // If HCPCS, get and save default NDC data.
  60       if (strtolower($type) == "hcpcs") {
  61         $tmp = sqlQuery("SELECT ndc_info FROM billing WHERE " .
  62           "code_type = 'HCPCS' AND code = '$code' AND ndc_info LIKE 'N4%' " .
  63           "ORDER BY date DESC LIMIT 1");
  64         if (!empty($tmp)) $ndc_info = $tmp['ndc_info'];
  65       }
  66       addBilling($encounter, $type, $code, strip_escape_custom($text), $pid, $userauthorized,
  67         $provid, $modifier, $units, $fee, $ndc_info);
  68                 }
  69         }
  70         elseif ($mode == "justify") {
  71                 $diags = $_POST['code']['diag'];
  72                 $procs = $_POST['code']['proc'];
  73                 $sql = array();
  74                 if (!empty($procs) && !empty($diags)) {
  75                         $sql = array();
  76                         foreach ($procs as $proc) {
  77                                 $justify_string = "";
  78                                 foreach ($diags as $diag) {
  79                                         $justify_string .= $diag . ":";
  80                                 }
  81                                 $sql[] = "UPDATE billing set justify = concat(justify,'" . add_escape_custom($justify_string)  ."') where encounter = '" . add_escape_custom($_POST['encounter_id']) . "' and pid = '" . add_escape_custom($_POST['patient_id']) . "' and code = '" . add_escape_custom($proc) . "'";
  82                         }
  83
  84                 }
  85                 if (!empty($sql)) {
  86                         foreach ($sql as $q) {
  87                                 $results = sqlQ($q);
  88                         }
  89                 }
  90
  91     // Save NDC fields, if present.
  92     $ndcarr = $_POST['ndc'];
  93     for ($lino = 1; !empty($ndcarr["$lino"]['code']); ++$lino) {
  94       $ndc = $ndcarr["$lino"];
  95       $ndc_info = '';
  96       if ($ndc['ndcnum']) {
  97         $ndc_info = 'N4' . trim($ndc['ndcnum']) . '   ' . $ndc['ndcuom'] .
  98           trim($ndc['ndcqty']);
  99       }
 100       sqlStatement("UPDATE billing SET ndc_info = '$ndc_info' WHERE " .
 101         "encounter = '" . add_escape_custom($_POST['encounter_id']) . "' AND " .
 102         "pid = '" . add_escape_custom($_POST['patient_id']) . "' AND " .
 103         "code = '" . add_escape_custom($ndc['code']) . "'");
 104     }
 105
 106   }
 107 }
 108
 109 ?>
 110 <html>
 111 <head>
 112 <?php html_header_show();?>
 113 <link rel="stylesheet" href="<?php echo $css_header;?>" type="text/css">
 114
 115 <script language="JavaScript">
 116
 117 function validate(f) {
 118  for (var lino = 1; f['ndc['+lino+'][code]']; ++lino) {
 119   var pfx = 'ndc['+lino+']';
 120   if (f[pfx+'[ndcnum]'] && f[pfx+'[ndcnum]'].value) {
 121    // Check NDC number format.
 122    var ndcok = true;
 123    var ndc = f[pfx+'[ndcnum]'].value;
 124    var a = ndc.split('-');
 125    if (a.length != 3) {
 126     ndcok = false;
 127    }
 128    else if (a[0].length < 1 || a[1].length < 1 || a[2].length < 1 ||
 129     a[0].length > 5 || a[1].length > 4 || a[2].length > 2) {
 130     ndcok = false;
 131    }
 132    else {
 133     for (var i = 0; i < 3; ++i) {
 134      for (var j = 0; j < a[i].length; ++j) {
 135       var c = a[i].charAt(j);
 136       if (c < '0' || c > '9') ndcok = false;
 137      }
 138     }
 139    }
 140    if (!ndcok) {
 141     alert('<?php xl('Format incorrect for NDC','e') ?> "' + ndc +
 142      '", <?php xl('should be like nnnnn-nnnn-nn','e') ?>');
 143     if (f[pfx+'[ndcnum]'].focus) f[pfx+'[ndcnum]'].focus();
 144     return false;
 145    }
 146    // Check for valid quantity.
 147    var qty = f[pfx+'[ndcqty]'].value - 0;
 148    if (isNaN(qty) || qty <= 0) {
 149     alert('<?php xl('Quantity for NDC','e') ?> "' + ndc +
 150      '" <?php xl('is not valid (decimal fractions are OK).','e') ?>');
 151     if (f[pfx+'[ndcqty]'].focus) f[pfx+'[ndcqty]'].focus();
 152     return false;
 153    }
 154   }
 155  }
 156  top.restoreSession();
 157  return true;
 158 }
 159
 160 </script>
 161
 162 </head>
 163
 164 <body class="body_bottom">
 165
 166 <?php
 167  $thisauth = acl_check('encounters', 'coding_a');
 168  if (!$thisauth) {
 169   $erow = sqlQuery("SELECT user FROM forms WHERE " .
 170    "encounter = '$encounter' AND formdir = 'newpatient' LIMIT 1");
 171   if ($erow['user'] == $_SESSION['authUser'])
 172    $thisauth = acl_check('encounters', 'coding');
 173  }
 174  if ($thisauth) {
 175   $tmp = getPatientData($pid, "squad");
 176   if ($tmp['squad'] && ! acl_check('squads', $tmp['squad']))
 177    $thisauth = 0;
 178  }
 179  if (!$thisauth) {
 180   echo "<p>(".xl('Coding not authorized').")</p>\n";
 181   echo "</body>\n</html>\n";
 182   exit();
 183  }
 184 ?>
 185
 186 <form name="diagnosis" method="post" action="diagnosis.php?mode=justify"
 187  onsubmit="return validate(this)">
 188
 189 <table border=0 cellspacing=0 cellpadding=0 height=100%>
 190 <tr>
 191
 192 <td valign=top>
 193
 194 <dl>
 195 <dt>
 196 <a href="diagnosis_full.php" target="<?php echo $target; ?>" onclick="top.restoreSession()">
 197 <span class=title><?php echo ($GLOBALS['phone_country_code'] == '1') ? xl('Billing') : xl('Coding'); ?></span>
 198 <font class=more><?php echo $tmore;?></font></a>
 199
 200 <?php
 201 if( !empty( $_GET["back"] ) || !empty( $_POST["back"] ) ){
 202         print "&nbsp;<a href=\"superbill_codes.php\" target=\"$target\" onclick=\"top.restoreSession()\"><font class=more>$tback</font></a>";
 203         print "<input type=\"hidden\" name=\"back\" value=\"1\">";
 204 }
 205 ?>
 206 <?php if (!$GLOBALS['weight_loss_clinic']) { ?>
 207 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 208 <input type="submit" name="justify" value="<?php xl('Justify/Save','e');?>">
 209 <?php } ?>
 210 </dt>
 211 </dl>
 212
 213 <a href="cash_receipt.php?" class='link_submit' target='new' onclick='top.restoreSession()'>
 214 [<?php xl('Receipt','e'); ?>]
 215 </a>
 216 <table border="0">
 217 <?php
 218 if ($result = getBillingByEncounter($pid,$encounter,"*") ) {
 219         $billing_html = array();
 220         $total = 0.0;
 221   $ndclino = 0;
 222         foreach ($result as $iter) {
 223                 if ($iter["code_type"] == "ICD9") {
 224                                 $html = "<tr>";
 225                                 $html .= "<td valign=\"middle\">" .
 226                                         '<input  style="width: 11px;height: 11px;" name="code[diag][' .
 227                                         $iter["code"] . ']" type="checkbox" value="' . $iter[code] . '">' .
 228                                         "</td><td><div><a target='$target' class='small' " .
 229           "href='diagnosis_full.php' onclick='top.restoreSession()'><b>" .
 230                                         $iter{"code"} . "</b> " . $iter{"code_text"} .
 231                                         "</a></div></td></tr>\n";
 232                                 $billing_html[$iter["code_type"]] .= $html;
 233                                 $counter++;
 234                 }
 235                 elseif ($iter["code_type"] == "COPAY") {
 236                         $billing_html[$iter["code_type"]] .=
 237                                 "<tr><td></td><td><a target='$target' class='small' " .
 238         "href='diagnosis_full.php' onclick='top.restoreSession()'><b>" .
 239                                 oeFormatMoney($iter['code']) . "</b> " .
 240                                 ucwords(strtolower($iter['code_text'])) .
 241                                 ' ' . xl('payment entered on') . ' ' .
 242                                 oeFormatShortDate(substr($iter['date'], 0, 10)) . substr($iter['date'], 10, 6) . "</a></td></tr>\n";
 243                 }
 244                 else {
 245                         $billing_html[$iter["code_type"]] .=
 246                                 "<tr><td>" . '<input  style="width: 11px;height: 11px;" name="code[proc][' .
 247                                 $iter["code"] . ']" type="checkbox" value="' . $iter[code] . '">' .
 248                                 "</td><td><a target='$target' class='small' " .
 249         "href='diagnosis_full.php' onclick='top.restoreSession()'><b>" .
 250                                 $iter{"code"} . ' ' . $iter['modifier'] . "</b> " .
 251                                 ucwords(strtolower($iter{"code_text"})) . ' ' . oeFormatMoney($iter['fee']) .
 252                                 "</a><span class=\"small\">";
 253                         $total += $iter['fee'];
 254                         $js = explode(":",$iter['justify']);
 255                         $counter = 0;
 256                         foreach ($js as $j) {
 257                                 if(!empty($j)) {
 258                                         if ($counter == 0) {
 259                                                 $billing_html[$iter["code_type"]] .= " (<b>$j</b>)";
 260                                         }
 261                                         else {
 262                                                 $billing_html[$iter["code_type"]] .= " ($j)";
 263                                         }
 264                                         $counter++;
 265                                 }
 266                         }
 267                         $billing_html[$iter["code_type"]] .= "</span></td></tr>\n";
 268
 269       // If this is HCPCS, write NDC line.
 270       if ($iter['code_type'] == 'HCPCS') {
 271         ++$ndclino;
 272         $ndcnum = ''; $ndcuom = ''; $ndcqty = '';
 273         if (preg_match('/^N4(\S+)\s+(\S\S)(.*)/', $iter['ndc_info'], $tmp)) {
 274           $ndcnum = $tmp[1]; $ndcuom = $tmp[2]; $ndcqty = $tmp[3];
 275         }
 276         $billing_html[$iter["code_type"]] .=
 277           "<tr><td>&nbsp;</td><td class='small'>NDC:&nbsp;\n" .
 278           "<input type='hidden' name='ndc[$ndclino][code]' value='" . $iter[code] . "'>" .
 279           "<input type='text' name='ndc[$ndclino][ndcnum]' value='$ndcnum' " .
 280           "size='11' style='background-color:transparent'>" .
 281           " &nbsp;Qty:&nbsp;" .
 282           "<input type='text' name='ndc[$ndclino][ndcqty]' value='$ndcqty' " .
 283           "size='3' style='background-color:transparent;text-align:right'> " .
 284           "<select name='ndc[$ndclino][ndcuom]' style='background-color:transparent'>";
 285         foreach ($ndc_uom_choices as $key => $value) {
 286           $billing_html[$iter["code_type"]] .= "<option value='$key'";
 287           if ($key == $ndcuom) $billing_html[$iter["code_type"]] .= " selected";
 288           $billing_html[$iter["code_type"]] .= ">$value</option>";
 289         }
 290         $billing_html[$iter["code_type"]] .= "</select></td></tr>\n";
 291       }
 292
 293                 }
 294         }
 295
 296         $billing_html["CPT4"] .= "<tr><td>" . xl('total') . ":</td><td>" . oeFormatMoney($total) . "</td></tr>\n";
 297         foreach ($billing_html as $key => $val) {
 298                 print "<tr><td>$key</td><td><table>$val</table><td></tr><tr><td height=\"5\"></td></tr>\n";
 299         }
 300 }
 301 ?>
 302 </tr></table>
 303 </td>
 304 </tr>
 305 <input type="hidden" name="encounter_id" value="<?php echo  $encounter?>">
 306 <input type="hidden" name="patient_id" value="<?php echo $pid?>">
 307 </form>
 308 </table>
 309
 310 </body>
 311 </html>