interface/forms/fee_sheet/new.php

   1 <?php
   2 // Copyright (C) 2005-2011 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 $fake_register_globals=false;
  10 $sanitize_all_escapes=true;
  11
  12 require_once("../../globals.php");
  13 require_once("$srcdir/acl.inc");
  14 require_once("$srcdir/api.inc");
  15 require_once("codes.php");
  16 require_once("../../../custom/code_types.inc.php");
  17 require_once("../../drugs/drugs.inc.php");
  18 require_once("$srcdir/formatting.inc.php");
  19 require_once("$srcdir/options.inc.php");
  20 require_once("$srcdir/formdata.inc.php");
  21
  22 // Some table cells will not be displayed unless insurance billing is used.
  23 $usbillstyle = $GLOBALS['ippf_specific'] ? " style='display:none'" : "";
  24
  25 function alphaCodeType($id) {
  26   global $code_types;
  27   foreach ($code_types as $key => $value) {
  28     if ($value['id'] == $id) return $key;
  29   }
  30   return '';
  31 }
  32
  33 // Helper function for creating drop-lists.
  34 function endFSCategory() {
  35   global $i, $last_category, $FEE_SHEET_COLUMNS;
  36   if (! $last_category) return;
  37   echo "   </select>\n";
  38   echo "  </td>\n";
  39   if ($i >= $FEE_SHEET_COLUMNS) {
  40     echo " </tr>\n";
  41     $i = 0;
  42   }
  43 }
  44
  45 // Generate JavaScript to build the array of diagnoses.
  46 function genDiagJS($code_type, $code) {
  47   global $code_types;
  48   if ($code_types[$code_type]['diag']) {
  49     echo "diags.push('" . attr($code_type) . "|" . attr($code) . "');\n";
  50   }
  51 }
  52
  53 // For IPPF only.  Returns 0 = none, 1 = nonsurgical, 2 = surgical.
  54 //
  55 function contraceptionClass($code_type, $code) {
  56   global $code_types;
  57   if (!$GLOBALS['ippf_specific']) return 0;
  58   $contra = 0;
  59   // Get the related service codes.
  60   $codesrow = sqlQuery("SELECT related_code FROM codes WHERE " .
  61     "code_type = ? " .
  62     " AND code = ? LIMIT 1", array($code_types[$code_type]['id'],$code) );
  63   if (!empty($codesrow['related_code']) && $code_type == 'MA') {
  64     $relcodes = explode(';', $codesrow['related_code']);
  65     foreach ($relcodes as $relstring) {
  66       if ($relstring === '') continue;
  67       list($reltype, $relcode) = explode(':', $relstring);
  68       if ($reltype !== 'IPPF') continue;
  69       if      (preg_match('/^11....110/'    , $relcode)) $contra |= 1;
  70       else if (preg_match('/^11....999/'    , $relcode)) $contra |= 1;
  71       else if (preg_match('/^112152010/'    , $relcode)) $contra |= 1;
  72       else if (preg_match('/^11317[1-2]111/', $relcode)) $contra |= 1;
  73       else if (preg_match('/^12118[1-2].13/', $relcode)) $contra |= 2;
  74       else if (preg_match('/^12118[1-2]999/', $relcode)) $contra |= 2;
  75     }
  76   }
  77   return $contra;
  78 }
  79
  80 // This writes a billing line item to the output page.
  81 //
  82 function echoLine($lino, $codetype, $code, $modifier, $ndc_info='',
  83   $auth = TRUE, $del = FALSE, $units = NULL, $fee = NULL, $id = NULL,
  84   $billed = FALSE, $code_text = NULL, $justify = NULL, $provider_id = 0, $notecodes='')
  85 {
  86   global $code_types, $ndc_applies, $ndc_uom_choices, $justinit, $pid;
  87   global $contraception, $usbillstyle, $hasCharges;
  88
  89   if ($codetype == 'COPAY') {
  90     if (!$code_text) $code_text = 'Cash';
  91     if ($fee > 0) $fee = 0 - $fee;
  92   }
  93   if (! $code_text) {
  94     $sqlArray = array();
  95     $query = "select id, units, code_text from codes where code_type = ? " .
  96       " and " .
  97       "code = ? and ";
  98     array_push($sqlArray,$code_types[$codetype]['id'],$code);
  99     if ($modifier) {
 100       $query .= "modifier = ?";
 101       array_push($sqlArray,$modifier);
 102     } else {
 103       $query .= "(modifier is null or modifier = '')";
 104     }
 105     $result = sqlQuery($query, $sqlArray);
 106     $code_text = $result['code_text'];
 107     if (empty($units)) $units = max(1, intval($result['units']));
 108     if (!isset($fee)) {
 109       // Fees come from the prices table now.
 110       $query = "SELECT prices.pr_price " .
 111         "FROM patient_data, prices WHERE " .
 112         "patient_data.pid = ? AND " .
 113         "prices.pr_id = ? AND " .
 114         "prices.pr_selector = '' AND " .
 115         "prices.pr_level = patient_data.pricelevel " .
 116         "LIMIT 1";
 117       echo "\n<!-- $query -->\n"; // debugging
 118       $prrow = sqlQuery($query, array($pid,$result['id']) );
 119       $fee = empty($prrow) ? 0 : $prrow['pr_price'];
 120     }
 121   }
 122   $fee = sprintf('%01.2f', $fee);
 123   if (empty($units)) $units = 1;
 124   $units = max(1, intval($units));
 125   // We put unit price on the screen, not the total line item fee.
 126   $price = $fee / $units;
 127   $strike1 = ($id && $del) ? "<strike>" : "";
 128   $strike2 = ($id && $del) ? "</strike>" : "";
 129   echo " <tr>\n";
 130   echo "  <td class='billcell'>$strike1" .
 131     ($codetype == 'COPAY' ? xl($codetype) : $codetype) . $strike2;
 132   //if the line to ouput is copay, show the date here passed as $ndc_info,
 133   //since this variable is not applicable in the case of copay.
 134   if($codetype == 'COPAY'){
 135     echo "(".htmlspecialchars($ndc_info).")";
 136     $ndc_info = '';
 137   }
 138   if ($id) {
 139     echo "<input type='hidden' name='bill[".attr($lino)."][id]' value='$id'>";
 140   }
 141   echo "<input type='hidden' name='bill[".attr($lino)."][code_type]' value='".attr($codetype)."'>";
 142   echo "<input type='hidden' name='bill[".attr($lino)."][code]' value='".attr($code)."'>";
 143   echo "<input type='hidden' name='bill[".attr($lino)."][billed]' value='".attr($billed)."'>";
 144   echo "</td>\n";
 145   if ($codetype != 'COPAY') {
 146     echo "  <td class='billcell'>$strike1" . text($code) . "$strike2</td>\n";
 147   } else {
 148     echo "  <td class='billcell'>&nbsp;</td>\n";
 149   }
 150   if ($billed) {
 151     if (modifiers_are_used(true)) {
 152       echo "  <td class='billcell'>$strike1" . text($modifier) . "$strike2" .
 153         "<input type='hidden' name='bill[".attr($lino)."][mod]' value='".attr($modifier)."'></td>\n";
 154     }
 155     if (fees_are_used()) {
 156       echo "  <td class='billcell' align='right'>" . text(oeFormatMoney($price)) . "</td>\n";
 157       if ($codetype != 'COPAY') {
 158         echo "  <td class='billcell' align='center'>" . text($units) . "</td>\n";
 159       } else {
 160         echo "  <td class='billcell'>&nbsp;</td>\n";
 161       }
 162     }
 163     if (justifiers_are_used()) {
 164       echo "  <td class='billcell' align='center'$usbillstyle>" . text($justify) . "</td>\n";
 165     }
 166
 167     // Show provider for this line.
 168     echo "  <td class='billcell' align='center'>";
 169     genProviderSelect('', '-- '.xl("Default").' --', $provider_id, true);
 170     echo "</td>\n";
 171     if ($code_types[$codetype]['claim'] && !$code_types[$codetype]['diag']) {
 172       echo "  <td class='billcell' align='center'$usbillstyle>" .
 173         htmlspecialchars($notecodes, ENT_NOQUOTES) . "</td>\n";
 174     }
 175     else {
 176       echo "  <td class='billcell' align='center'$usbillstyle></td>\n";
 177     }
 178     echo "  <td class='billcell' align='center'$usbillstyle><input type='checkbox'" .
 179       ($auth ? " checked" : "") . " disabled /></td>\n";
 180     echo "  <td class='billcell' align='center'><input type='checkbox'" .
 181       " disabled /></td>\n";
 182   }
 183   else { // not billed
 184     if (modifiers_are_used(true)) {
 185       if ($codetype != 'COPAY' && ($code_types[$codetype]['mod'] || $modifier)) {
 186         echo "  <td class='billcell'><input type='text' name='bill[".attr($lino)."][mod]' " .
 187              "value='" . attr($modifier) . "' " .
 188              "title='" . xla("Multiple modifiers can be separated by colons or spaces, maximum of 4 (M1:M2:M3:M4)") . "' " .
 189              "value='" . attr($modifier) . "' size='" . attr($code_types[$codetype]['mod']) . "'></td>\n";
 190       } else {
 191         echo "  <td class='billcell'>&nbsp;</td>\n";
 192       }
 193     }
 194     if (fees_are_used()) {
 195       if ($codetype == 'COPAY' || $code_types[$codetype]['fee'] || $fee != 0) {
 196         echo "  <td class='billcell' align='right'>" .
 197           "<input type='text' name='bill[".attr($lino)."][price]' " .
 198           "value='" . attr($price) . "' size='6'";
 199         if (acl_check('acct','disc'))
 200           echo " style='text-align:right'";
 201         else
 202           echo " style='text-align:right;background-color:transparent' readonly";
 203         echo "></td>\n";
 204         echo "  <td class='billcell' align='center'>";
 205         if ($codetype != 'COPAY') {
 206           echo "<input type='text' name='bill[".attr($lino)."][units]' " .
 207           "value='" . attr($units) . "' size='2' style='text-align:right'>";
 208         } else {
 209           echo "<input type='hidden' name='bill[".attr($lino)."][units]' value='" . attr($units) . "'>";
 210         }
 211         echo "</td>\n";
 212       } else {
 213         echo "  <td class='billcell'>&nbsp;</td>\n";
 214         echo "  <td class='billcell'>&nbsp;</td>\n";
 215       }
 216     }
 217     if (justifiers_are_used()) {
 218       if ($code_types[$codetype]['just'] || $justify) {
 219         echo "  <td class='billcell' align='center'$usbillstyle ";
 220         echo "title='" . xla("Select one or more diagnosis codes to justify the service") . "' >";
 221         echo "<select name='bill[".attr($lino)."][justify]' onchange='setJustify(this)'>";
 222         echo "<option value='" . attr($justify) . "'>" . text($justify) . "</option></select>";
 223         echo "</td>\n";
 224         $justinit .= "setJustify(f['bill[".attr($lino)."][justify]']);\n";
 225       } else {
 226         echo "  <td class='billcell'$usbillstyle>&nbsp;</td>\n";
 227       }
 228     }
 229
 230     // Provider drop-list for this line.
 231     echo "  <td class='billcell' align='center'>";
 232     genProviderSelect("bill[$lino][provid]", '-- '.xl("Default").' --', $provider_id);
 233     echo "</td>\n";
 234     if ($code_types[$codetype]['claim'] && !$code_types[$codetype]['diag']) {
 235       echo "  <td class='billcell' align='center'$usbillstyle><input type='text' name='bill[".attr($lino)."][notecodes]' " .
 236         "value='" . htmlspecialchars($notecodes, ENT_QUOTES) . "' maxlength='10' size='8' /></td>\n";
 237     }
 238     else {
 239       echo "  <td class='billcell' align='center'$usbillstyle></td>\n";
 240     }
 241     echo "  <td class='billcell' align='center'$usbillstyle><input type='checkbox' name='bill[".attr($lino)."][auth]' " .
 242       "value='1'" . ($auth ? " checked" : "") . " /></td>\n";
 243     echo "  <td class='billcell' align='center'><input type='checkbox' name='bill[".attr($lino)."][del]' " .
 244       "value='1'" . ($del ? " checked" : "") . " /></td>\n";
 245   }
 246
 247   echo "  <td class='billcell'>$strike1" . text($code_text) . "$strike2</td>\n";
 248   echo " </tr>\n";
 249
 250   // If NDC info exists or may be required, add a line for it.
 251   if ($codetype == 'HCPCS' && $ndc_applies && !$billed) {
 252     $ndcnum = ''; $ndcuom = ''; $ndcqty = '';
 253     if (preg_match('/^N4(\S+)\s+(\S\S)(.*)/', $ndc_info, $tmp)) {
 254       $ndcnum = $tmp[1]; $ndcuom = $tmp[2]; $ndcqty = $tmp[3];
 255     }
 256     echo " <tr>\n";
 257     echo "  <td class='billcell' colspan='2'>&nbsp;</td>\n";
 258     echo "  <td class='billcell' colspan='6'>&nbsp;NDC:&nbsp;";
 259     echo "<input type='text' name='bill[".attr($lino)."][ndcnum]' value='" . attr($ndcnum) . "' " .
 260       "size='11' style='background-color:transparent'>";
 261     echo " &nbsp;Qty:&nbsp;";
 262     echo "<input type='text' name='bill[".attr($lino)."][ndcqty]' value='" . attr($ndcqty) . "' " .
 263       "size='3' style='background-color:transparent;text-align:right'>";
 264     echo " ";
 265     echo "<select name='bill[".attr($lino)."][ndcuom]' style='background-color:transparent'>";
 266     foreach ($ndc_uom_choices as $key => $value) {
 267       echo "<option value='" . attr($key) . "'";
 268       if ($key == $ndcuom) echo " selected";
 269       echo ">" . text($value) . "</option>";
 270     }
 271     echo "</select>";
 272     echo "</td>\n";
 273     echo " </tr>\n";
 274   }
 275   else if ($ndc_info) {
 276     echo " <tr>\n";
 277     echo "  <td class='billcell' colspan='2'>&nbsp;</td>\n";
 278     echo "  <td class='billcell' colspan='6'>&nbsp;" . xlt("NDC Data") . ": " . text($ndc_info) . "</td>\n";
 279     echo " </tr>\n";
 280   }
 281
 282   // For IPPF.  Track contraceptive services.
 283   if (!$del) $contraception |= contraceptionClass($codetype, $code);
 284
 285   if ($fee != 0) $hasCharges = true;
 286 }
 287
 288 // This writes a product (drug_sales) line item to the output page.
 289 //
 290 function echoProdLine($lino, $drug_id, $del = FALSE, $units = NULL,
 291   $fee = NULL, $sale_id = 0, $billed = FALSE)
 292 {
 293   global $code_types, $ndc_applies, $pid, $usbillstyle, $hasCharges;
 294
 295   $drow = sqlQuery("SELECT name FROM drugs WHERE drug_id = ?", array($drug_id) );
 296   $code_text = $drow['name'];
 297
 298   $fee = sprintf('%01.2f', $fee);
 299   if (empty($units)) $units = 1;
 300   $units = max(1, intval($units));
 301   // We put unit price on the screen, not the total line item fee.
 302   $price = $fee / $units;
 303   $strike1 = ($sale_id && $del) ? "<strike>" : "";
 304   $strike2 = ($sale_id && $del) ? "</strike>" : "";
 305   echo " <tr>\n";
 306   echo "  <td class='billcell'>{$strike1}" . xlt("Product") . "$strike2";
 307   echo "<input type='hidden' name='prod[".attr($lino)."][sale_id]' value='" . attr($sale_id) . "'>";
 308   echo "<input type='hidden' name='prod[".attr($lino)."][drug_id]' value='" . attr($drug_id) . "'>";
 309   echo "<input type='hidden' name='prod[".attr($lino)."][billed]' value='" . attr($billed) . "'>";
 310   echo "</td>\n";
 311   echo "  <td class='billcell'>$strike1" . text($drug_id) . "$strike2</td>\n";
 312   if (modifiers_are_used(true)) {
 313     echo "  <td class='billcell'>&nbsp;</td>\n";
 314   }
 315   if ($billed) {
 316     if (fees_are_used()) {
 317       echo "  <td class='billcell' align='right'>" . text(oeFormatMoney($price)) . "</td>\n";
 318       echo "  <td class='billcell' align='center'>" . text($units) . "</td>\n";
 319     }
 320     if (justifiers_are_used()) {
 321       echo "  <td class='billcell' align='center'$usbillstyle>&nbsp;</td>\n"; // justify
 322     }
 323     echo "  <td class='billcell' align='center'>&nbsp;</td>\n";             // provider
 324     echo "  <td class='billcell' align='center'$usbillstyle>&nbsp;</td>\n"; // auth
 325     echo "  <td class='billcell' align='center'><input type='checkbox'" .   // del
 326       " disabled /></td>\n";
 327   } else {
 328     if (fees_are_used()) {
 329       echo "  <td class='billcell' align='right'>" .
 330         "<input type='text' name='prod[".attr($lino)."][price]' " .
 331         "value='" . attr($price) . "' size='6'";
 332       if (acl_check('acct','disc'))
 333         echo " style='text-align:right'";
 334       else
 335         echo " style='text-align:right;background-color:transparent' readonly";
 336       echo "></td>\n";
 337       echo "  <td class='billcell' align='center'>";
 338       echo "<input type='text' name='prod[".attr($lino)."][units]' " .
 339         "value='" . attr($units) . "' size='2' style='text-align:right'>";
 340       echo "</td>\n";
 341     }
 342     if (justifiers_are_used()) {
 343       echo "  <td class='billcell'$usbillstyle>&nbsp;</td>\n"; // justify
 344     }
 345     echo "  <td class='billcell' align='center'>&nbsp;</td>\n"; // provider
 346     echo "  <td class='billcell' align='center'$usbillstyle>&nbsp;</td>\n"; // auth
 347     echo "  <td class='billcell' align='center'><input type='checkbox' name='prod[".attr($lino)."][del]' " .
 348       "value='1'" . ($del ? " checked" : "") . " /></td>\n";
 349   }
 350
 351   echo "  <td class='billcell'>$strike1" . text($code_text) . "$strike2</td>\n";
 352   echo " </tr>\n";
 353
 354   if ($fee != 0) $hasCharges = true;
 355 }
 356
 357 // Build a drop-down list of providers.  This includes users who
 358 // have the word "provider" anywhere in their "additional info"
 359 // field, so that we can define providers (for billing purposes)
 360 // who do not appear in the calendar.
 361 //
 362 function genProviderSelect($selname, $toptext, $default=0, $disabled=false) {
 363   $query = "SELECT id, lname, fname FROM users WHERE " .
 364     "( authorized = 1 OR info LIKE '%provider%' ) AND username != '' " .
 365     "AND active = 1 AND ( info IS NULL OR info NOT LIKE '%Inactive%' ) " .
 366     "ORDER BY lname, fname";
 367   $res = sqlStatement($query);
 368   echo "   <select name='" . attr($selname) . "'";
 369   if ($disabled) echo " disabled";
 370   echo ">\n";
 371   echo "    <option value=''>" . text($toptext) . "\n";
 372   while ($row = sqlFetchArray($res)) {
 373     $provid = $row['id'];
 374     echo "    <option value='" . attr($provid) . "'";
 375     if ($provid == $default) echo " selected";
 376     echo ">" . text($row['lname'] . ", " . $row['fname']) . "\n";
 377   }
 378   echo "   </select>\n";
 379 }
 380
 381 // This is just for IPPF, to indicate if the visit includes contraceptive services.
 382 $contraception = 0;
 383
 384 // Possible units of measure for NDC drug quantities.
 385 //
 386 $ndc_uom_choices = array(
 387   'ML' => 'ML',
 388   'GR' => 'Grams',
 389   'ME' => 'Milligrams',
 390   'F2' => 'I.U.',
 391   'UN' => 'Units'
 392 );
 393
 394 // $FEE_SHEET_COLUMNS should be defined in codes.php.
 395 if (empty($FEE_SHEET_COLUMNS)) $FEE_SHEET_COLUMNS = 2;
 396
 397 $returnurl = $GLOBALS['concurrent_layout'] ? 'encounter_top.php' : 'patient_encounter.php';
 398
 399 // Update price level in patient demographics.
 400 if (!empty($_POST['pricelevel'])) {
 401   sqlStatement("UPDATE patient_data SET pricelevel = ? WHERE pid = ?", array($_POST['pricelevel'],$pid) );
 402 }
 403
 404 // Get some info about this visit.
 405 $visit_row = sqlQuery("SELECT fe.date, opc.pc_catname " .
 406   "FROM form_encounter AS fe " .
 407   "LEFT JOIN openemr_postcalendar_categories AS opc ON opc.pc_catid = fe.pc_catid " .
 408   "WHERE fe.pid = ? AND fe.encounter = ? LIMIT 1", array($pid,$encounter) );
 409 $visit_date = substr($visit_row['date'], 0, 10);
 410
 411 // If Save or Save-and-Close was clicked, save the new and modified billing
 412 // lines; then if no error, redirect to $returnurl.
 413 //
 414 if ($_POST['bn_save'] || $_POST['bn_save_close']) {
 415   $main_provid = 0 + $_POST['ProviderID'];
 416   $main_supid  = 0 + $_POST['SupervisorID'];
 417   if ($main_supid == $main_provid) $main_supid = 0;
 418   $default_warehouse = $_POST['default_warehouse'];
 419
 420   $bill = $_POST['bill'];
 421   $copay_update = FALSE;
 422   $update_session_id = '';
 423   $ct0 = '';//takes the code type of the first fee type code type entry from the fee sheet, against which the copay is posted
 424   $cod0 = '';//takes the code of the first fee type code type entry from the fee sheet, against which the copay is posted
 425   $mod0 = '';//takes the modifier of the first fee type code type entry from the fee sheet, against which the copay is posted
 426   for ($lino = 1; $bill["$lino"]['code_type']; ++$lino) {
 427     $iter = $bill["$lino"];
 428     $code_type = $iter['code_type'];
 429     $code      = $iter['code'];
 430     $del       = $iter['del'];
 431
 432     // Skip disabled (billed) line items.
 433     if ($iter['billed']) continue;
 434
 435     $id        = $iter['id'];
 436     $modifier  = trim($iter['mod']);
 437     if( !($cod0) && ($code_types[$code_type]['fee'] == 1) ){
 438       $mod0 = $modifier;
 439       $cod0 = $code;
 440       $ct0 = $code_type;
 441     }
 442     $units     = max(1, intval(trim($iter['units'])));
 443     $fee       = sprintf('%01.2f',(0 + trim($iter['price'])) * $units);
 444
 445     if($code_type == 'COPAY'){
 446       if($id == ''){
 447         //adding new copay from fee sheet into ar_session and ar_activity tables
 448         if($fee < 0){
 449           $fee = $fee * -1;
 450         }
 451         $session_id = idSqlStatement("INSERT INTO ar_session(payer_id,user_id,pay_total,payment_type,description,".
 452           "patient_id,payment_method,adjustment_code,post_to_date) VALUES('0',?,?,'patient','COPAY',?,'','patient_payment',now())",
 453           array($_SESSION['authId'],$fee,$pid));
 454         SqlStatement("INSERT INTO ar_activity (pid,encounter,code_type,code,modifier,payer_type,post_time,post_user,session_id,".
 455           "pay_amount,account_code) VALUES (?,?,?,?,?,0,now(),?,?,?,'PCP')",
 456           array($pid,$encounter,$ct0,$cod0,$mod0,$_SESSION['authId'],$session_id,$fee));
 457       }else{
 458         //editing copay saved to ar_session and ar_activity
 459         if($fee < 0){
 460           $fee = $fee * -1;
 461         }
 462         $session_id = $id;
 463         $res_amount = sqlQuery("SELECT pay_amount FROM ar_activity WHERE pid=? AND encounter=? AND session_id=?",
 464           array($pid,$encounter,$session_id));
 465         if($fee != $res_amount['pay_amount']){
 466           sqlStatement("UPDATE ar_session SET user_id=?,pay_total=?,modified_time=now(),post_to_date=now() WHERE session_id=?",
 467             array($_SESSION['authId'],$fee,$session_id));
 468           sqlStatement("UPDATE ar_activity SET code_type=?, code=?, modifier=?, post_user=?, post_time=now(),".
 469             "pay_amount=?, modified_time=now() WHERE pid=? AND encounter=? AND account_code='PCP' AND session_id=?",
 470             array($ct0,$cod0,$mod0,$_SESSION['authId'],$fee,$pid,$encounter,$session_id));
 471         }
 472       }
 473       if(!$cod0){
 474         $copay_update = TRUE;
 475         $update_session_id = $session_id;
 476       }
 477       continue;
 478     }
 479     $justify   = trim($iter['justify']);
 480     $notecodes = trim($iter['notecodes']);
 481     if ($justify) $justify = str_replace(',', ':', $justify) . ':';
 482     // $auth      = $iter['auth'] ? "1" : "0";
 483     $auth      = "1";
 484     $provid    = 0 + $iter['provid'];
 485
 486     $ndc_info = '';
 487     if ($iter['ndcnum']) {
 488     $ndc_info = 'N4' . trim($iter['ndcnum']) . '   ' . $iter['ndcuom'] .
 489       trim($iter['ndcqty']);
 490     }
 491
 492     // If the item is already in the database...
 493     if ($id) {
 494       if ($del) {
 495         deleteBilling($id);
 496       }
 497       else {
 498         // authorizeBilling($id, $auth);
 499         sqlQuery("UPDATE billing SET code = ?, " .
 500           "units = ?, fee = ?, modifier = ?, " .
 501           "authorized = ?, provider_id = ?, " .
 502           "ndc_info = ?, justify = ?, notecodes = ? " .
 503           "WHERE " .
 504           "id = ? AND billed = 0 AND activity = 1", array($code,$units,$fee,$modifier,$auth,$provid,$ndc_info,$justify,$notecodes,$id) );
 505       }
 506     }
 507
 508     // Otherwise it's a new item...
 509     else if (! $del) {
 510       $code_text = lookup_code_descriptions($code_type.":".$code);
 511       addBilling($encounter, $code_type, $code, $code_text, $pid, $auth,
 512         $provid, $modifier, $units, $fee, $ndc_info, $justify, 0, $notecodes);
 513     }
 514   } // end for
 515
 516   //if modifier is not inserted during loop update the record using the first
 517   //non-empty modifier and code
 518   if($copay_update == TRUE && $update_session_id != '' && $mod0 != ''){
 519     sqlStatement("UPDATE ar_activity SET code_type=?, code=?, modifier=?".
 520       " WHERE pid=? AND encounter=? AND account_code='PCP' AND session_id=?",
 521       array($ct0,$cod0,$mod0,$pid,$encounter,$update_session_id));
 522   }
 523
 524   // Doing similarly to the above but for products.
 525   $prod = $_POST['prod'];
 526   for ($lino = 1; $prod["$lino"]['drug_id']; ++$lino) {
 527     $iter = $prod["$lino"];
 528
 529     if (!empty($iter['billed'])) continue;
 530
 531     $drug_id   = $iter['drug_id'];
 532     $sale_id   = $iter['sale_id']; // present only if already saved
 533     $units     = max(1, intval(trim($iter['units'])));
 534     $fee       = sprintf('%01.2f',(0 + trim($iter['price'])) * $units);
 535     $del       = $iter['del'];
 536
 537     // If the item is already in the database...
 538     if ($sale_id) {
 539       if ($del) {
 540         // Zero out this sale and reverse its inventory update.  We bring in
 541         // drug_sales twice so that the original quantity can be referenced
 542         // unambiguously.
 543         sqlStatement("UPDATE drug_sales AS dsr, drug_sales AS ds, " .
 544           "drug_inventory AS di " .
 545           "SET di.on_hand = di.on_hand + dsr.quantity, " .
 546           "ds.quantity = 0, ds.fee = 0 WHERE " .
 547           "dsr.sale_id = ? AND ds.sale_id = dsr.sale_id AND " .
 548           "di.inventory_id = ds.inventory_id", array($sale_id) );
 549         // And delete the sale for good measure.
 550         sqlStatement("DELETE FROM drug_sales WHERE sale_id = ?", array($sale_id) );
 551       }
 552       else {
 553         // Modify the sale and adjust inventory accordingly.
 554         $query = "UPDATE drug_sales AS dsr, drug_sales AS ds, " .
 555           "drug_inventory AS di " .
 556           "SET di.on_hand = di.on_hand + dsr.quantity - " . add_escape_custom($units) . ", " .
 557           "ds.quantity = ?, ds.fee = ?, " .
 558           "ds.sale_date = ? WHERE " .
 559           "dsr.sale_id = ? AND ds.sale_id = dsr.sale_id AND " .
 560           "di.inventory_id = ds.inventory_id";
 561         sqlStatement($query, array($units,$fee,$visit_date,$sale_id) );
 562       }
 563     }
 564
 565     // Otherwise it's a new item...
 566     else if (! $del) {
 567       $sale_id = sellDrug($drug_id, $units, $fee, $pid, $encounter, 0,
 568         $visit_date, '', $default_warehouse);
 569       if (!$sale_id) die(xlt("Insufficient inventory for product ID") . " \"" . text($drug_id) . "\".");
 570     }
 571   } // end for
 572
 573   // Set the main/default service provider in the new-encounter form.
 574   /*******************************************************************
 575   sqlStatement("UPDATE forms, users SET forms.user = users.username WHERE " .
 576     "forms.pid = '$pid' AND forms.encounter = '$encounter' AND " .
 577     "forms.formdir = 'newpatient' AND users.id = '$provid'");
 578   *******************************************************************/
 579   sqlStatement("UPDATE form_encounter SET provider_id = ?, " .
 580     "supervisor_id = ?  WHERE " .
 581     "pid = ? AND encounter = ?", array($main_provid,$main_supid,$pid,$encounter) );
 582
 583   // Save-and-Close is currently IPPF-specific but might be more generally
 584   // useful.  It provides the ability to mark an encounter as billed
 585   // directly from the Fee Sheet, if there are no charges.
 586   if ($_POST['bn_save_close']) {
 587     $tmp1 = sqlQuery("SELECT SUM(ABS(fee)) AS sum FROM drug_sales WHERE " .
 588       "pid = ? AND encounter = ?", array($pid,$encounter) );
 589     $tmp2 = sqlQuery("SELECT SUM(ABS(fee)) AS sum FROM billing WHERE " .
 590       "pid = ? AND encounter = ? AND billed = 0 AND " .
 591       "activity = 1", array($pid,$encounter) );
 592     if ($tmp1['sum'] + $tmp2['sum'] == 0) {
 593       sqlStatement("update drug_sales SET billed = 1 WHERE " .
 594         "pid = ? AND encounter = ? AND billed = 0", array($pid,$encounter));
 595       sqlStatement("UPDATE billing SET billed = 1, bill_date = NOW() WHERE " .
 596         "pid = ? AND encounter = ? AND billed = 0 AND " .
 597         "activity = 1", array($pid,$encounter));
 598     }
 599     else {
 600       // Would be good to display an error message here... they clicked
 601       // Save and Close but the close could not be done.  However the
 602       // framework does not provide an easy way to do that.
 603     }
 604   }
 605
 606   // More IPPF stuff.
 607   if (!empty($_POST['contrastart'])) {
 608     $contrastart = $_POST['contrastart'];
 609     sqlStatement("UPDATE patient_data SET contrastart = ?" .
 610       " WHERE pid = ?", array($contrastart,$pid) );
 611   }
 612
 613   // Note: Taxes are computed at checkout time (in pos_checkout.php which
 614   // also posts to SL).  Currently taxes with insurance claims make no sense,
 615   // so for now we'll ignore tax computation in the insurance billing logic.
 616
 617   formHeader("Redirecting....");
 618   formJump();
 619   formFooter();
 620   exit;
 621 }
 622
 623 $billresult = getBillingByEncounter($pid, $encounter, "*");
 624 ?>
 625 <html>
 626 <head>
 627 <?php html_header_show(); ?>
 628 <link rel="stylesheet" href="<?php echo $css_header;?>" type="text/css">
 629 <style>
 630 .billcell { font-family: sans-serif; font-size: 10pt }
 631 </style>
 632 <script language="JavaScript">
 633
 634 var diags = new Array();
 635
 636 <?php
 637 if ($billresult) {
 638   foreach ($billresult as $iter) {
 639     genDiagJS($iter["code_type"], trim($iter["code"]));
 640   }
 641 }
 642 if ($_POST['bill']) {
 643   foreach ($_POST['bill'] as $iter) {
 644     if ($iter["del"]) continue; // skip if Delete was checked
 645     if ($iter["id"])  continue; // skip if it came from the database
 646     genDiagJS($iter["code_type"], $iter["code"]);
 647   }
 648 }
 649 if ($_POST['newcodes']) {
 650   $arrcodes = explode('~', $_POST['newcodes']);
 651   foreach ($arrcodes as $codestring) {
 652     if ($codestring === '') continue;
 653     $arrcode = explode('|', $codestring);
 654     list($code, $modifier) = explode(":", $arrcode[1]);
 655     genDiagJS($arrcode[0], $code);
 656   }
 657 }
 658 ?>
 659
 660 // This is invoked by <select onchange> for the various dropdowns,
 661 // including search results.
 662 function codeselect(selobj) {
 663  var i = selobj.selectedIndex;
 664  if (i > 0) {
 665   top.restoreSession();
 666   var f = document.forms[0];
 667   f.newcodes.value = selobj.options[i].value;
 668   f.submit();
 669  }
 670 }
 671
 672 function copayselect() {
 673  top.restoreSession();
 674  var f = document.forms[0];
 675  f.newcodes.value = 'COPAY||';
 676  f.submit();
 677 }
 678
 679 function validate(f) {
 680  for (var lino = 1; f['bill['+lino+'][code_type]']; ++lino) {
 681   var pfx = 'bill['+lino+']';
 682   if (f[pfx+'[ndcnum]'] && f[pfx+'[ndcnum]'].value) {
 683    // Check NDC number format.
 684    var ndcok = true;
 685    var ndc = f[pfx+'[ndcnum]'].value;
 686    var a = ndc.split('-');
 687    if (a.length != 3) {
 688     ndcok = false;
 689    }
 690    else if (a[0].length < 1 || a[1].length < 1 || a[2].length < 1 ||
 691     a[0].length > 5 || a[1].length > 4 || a[2].length > 2) {
 692     ndcok = false;
 693    }
 694    else {
 695     for (var i = 0; i < 3; ++i) {
 696      for (var j = 0; j < a[i].length; ++j) {
 697       var c = a[i].charAt(j);
 698       if (c < '0' || c > '9') ndcok = false;
 699      }
 700     }
 701    }
 702    if (!ndcok) {
 703     alert('<?php echo addslashes(xl('Format incorrect for NDC')) ?> "' + ndc +
 704      '", <?php echo addslashes(xl('should be like nnnnn-nnnn-nn')) ?>');
 705     if (f[pfx+'[ndcnum]'].focus) f[pfx+'[ndcnum]'].focus();
 706     return false;
 707    }
 708    // Check for valid quantity.
 709    var qty = f[pfx+'[ndcqty]'].value - 0;
 710    if (isNaN(qty) || qty <= 0) {
 711     alert('<?php echo addslashes(xl('Quantity for NDC')) ?> "' + ndc +
 712      '" <?php echo addslashes(xl('is not valid (decimal fractions are OK).')) ?>');
 713     if (f[pfx+'[ndcqty]'].focus) f[pfx+'[ndcqty]'].focus();
 714     return false;
 715    }
 716   }
 717  }
 718  top.restoreSession();
 719  return true;
 720 }
 721
 722 // When a justify selection is made, apply it to the current list for
 723 // this procedure and then rebuild its selection list.
 724 //
 725 function setJustify(seljust) {
 726  var theopts = seljust.options;
 727  var jdisplay = theopts[0].text;
 728  // Compute revised justification string.  Note this does nothing if
 729  // the first entry is still selected, which is handy at startup.
 730  if (seljust.selectedIndex > 0) {
 731   var newdiag = seljust.value;
 732   if (newdiag.length == 0) {
 733    jdisplay = '';
 734   }
 735   else {
 736    if (jdisplay.length) jdisplay += ',';
 737    jdisplay += newdiag;
 738   }
 739  }
 740  // Rebuild selection list.
 741  var jhaystack = ',' + jdisplay + ',';
 742  var j = 0;
 743  theopts.length = 0;
 744  theopts[j++] = new Option(jdisplay,jdisplay,true,true);
 745  for (var i = 0; i < diags.length; ++i) {
 746   if (jhaystack.indexOf(',' + diags[i] + ',') < 0) {
 747    theopts[j++] = new Option(diags[i],diags[i],false,false);
 748   }
 749  }
 750  theopts[j++] = new Option('Clear','',false,false);
 751 }
 752
 753 </script>
 754 </head>
 755
 756 <body class="body_top">
 757 <form method="post" action="<?php echo $rootdir; ?>/forms/fee_sheet/new.php"
 758  onsubmit="return validate(this)">
 759 <span class="title"><?php echo xlt('Fee Sheet'); ?></span><br>
 760 <input type='hidden' name='newcodes' value=''>
 761
 762 <center>
 763
 764 <?php
 765 $isBilled = isEncounterBilled($pid, $encounter);
 766 if ($isBilled) {
 767   echo "<p><font color='green'>" . xlt("This encounter has been billed. If you need to change it, it must be re-opened.") . "</font></p>\n";
 768 }
 769 else { // the encounter is not yet billed
 770 ?>
 771
 772 <table width='95%'>
 773 <?php
 774 $i = 0;
 775 $last_category = '';
 776
 777 // Create drop-lists based on the fee_sheet_options table.
 778 $res = sqlStatement("SELECT * FROM fee_sheet_options " .
 779   "ORDER BY fs_category, fs_option");
 780 while ($row = sqlFetchArray($res)) {
 781   $fs_category = $row['fs_category'];
 782   $fs_option   = $row['fs_option'];
 783   $fs_codes    = $row['fs_codes'];
 784   if($fs_category !== $last_category) {
 785     endFSCategory();
 786     $last_category = $fs_category;
 787     ++$i;
 788     echo ($i <= 1) ? " <tr>\n" : "";
 789     echo "  <td width='50%' align='center' nowrap>\n";
 790     echo "   <select style='width:96%' onchange='codeselect(this)'>\n";
 791     echo "    <option value=''> " . text(substr($fs_category, 1)) . "</option>\n";
 792   }
 793   echo "    <option value='" . attr($fs_codes) . "'>" . text(substr($fs_option, 1)) . "</option>\n";
 794 }
 795 endFSCategory();
 796
 797 // Create drop-lists based on categories defined within the codes.
 798 $pres = sqlStatement("SELECT option_id, title FROM list_options " .
 799   "WHERE list_id = 'superbill' ORDER BY seq");
 800 while ($prow = sqlFetchArray($pres)) {
 801   global $code_types;
 802   ++$i;
 803   echo ($i <= 1) ? " <tr>\n" : "";
 804   echo "  <td width='50%' align='center' nowrap>\n";
 805   echo "   <select style='width:96%' onchange='codeselect(this)'>\n";
 806   echo "    <option value=''> " . text($prow['title']) . "\n";
 807   $res = sqlStatement("SELECT code_type, code, code_text,modifier FROM codes " .
 808     "WHERE superbill = ? AND active = 1 " .
 809     "ORDER BY code_text", array($prow['option_id']) );
 810   while ($row = sqlFetchArray($res)) {
 811     $ctkey = alphaCodeType($row['code_type']);
 812     if ($code_types[$ctkey]['nofs']) continue;
 813     echo "    <option value='" . attr($ctkey) . "|" .
 814       attr($row['code']) . ':'. attr($row['modifier']) . "|'>" . text($row['code_text']) . "</option>\n";
 815   }
 816   echo "   </select>\n";
 817   echo "  </td>\n";
 818   if ($i >= $FEE_SHEET_COLUMNS) {
 819     echo " </tr>\n";
 820     $i = 0;
 821   }
 822 }
 823
 824 // Create one more drop-list, for Products.
 825 if ($GLOBALS['sell_non_drug_products']) {
 826   ++$i;
 827   echo ($i <= 1) ? " <tr>\n" : "";
 828   echo "  <td width='50%' align='center' nowrap>\n";
 829   echo "   <select name='Products' style='width:96%' onchange='codeselect(this)'>\n";
 830   echo "    <option value=''> " . xlt('Products') . "\n";
 831   $tres = sqlStatement("SELECT dt.drug_id, dt.selector, d.name " .
 832     "FROM drug_templates AS dt, drugs AS d WHERE " .
 833     "d.drug_id = dt.drug_id AND d.active = 1 " .
 834     "ORDER BY d.name, dt.selector, dt.drug_id");
 835   while ($trow = sqlFetchArray($tres)) {
 836     echo "    <option value='PROD|" . attr($trow['drug_id']) . '|' . attr($trow['selector']) . "'>" .
 837       text($trow['drug_id']) . ':' . text($trow['selector']);
 838     if ($trow['name'] !== $trow['selector']) echo ' ' . text($trow['name']);
 839     echo "</option>\n";
 840   }
 841   echo "   </select>\n";
 842   echo "  </td>\n";
 843   if ($i >= $FEE_SHEET_COLUMNS) {
 844     echo " </tr>\n";
 845     $i = 0;
 846   }
 847 }
 848
 849 $search_type = $default_search_type;
 850 if ($_POST['search_type']) $search_type = $_POST['search_type'];
 851
 852 $ndc_applies = true; // Assume all payers require NDC info.
 853
 854 echo $i ? "  <td></td>\n </tr>\n" : "";
 855 echo " <tr>\n";
 856 echo "  <td colspan='" . attr($FEE_SHEET_COLUMNS) . "' align='center' nowrap>\n";
 857
 858 // If Search was clicked, do it and write the list of results here.
 859 // There's no limit on the number of results!
 860 //
 861 $numrows = 0;
 862 if ($_POST['bn_search'] && $_POST['search_term']) {
 863   $res = code_set_search($search_type,$_POST['search_term']);
 864   if (!empty($res)) {
 865     $numrows = sqlNumRows($res);
 866   }
 867 }
 868
 869 echo "   <select name='Search Results' style='width:98%' " .
 870   "onchange='codeselect(this)'";
 871 if (! $numrows) echo ' disabled';
 872 echo ">\n";
 873 echo "    <option value=''> " . xlt("Search Results") . " ($numrows " . xlt("items") . ")\n";
 874
 875 if ($numrows) {
 876   while ($row = sqlFetchArray($res)) {
 877     $code = $row['code'];
 878     if ($row['modifier']) $code .= ":" . $row['modifier'];
 879     echo "    <option value='" . attr($search_type) . "|" . attr($code) . "|'>" . text($code) . " " .
 880       text($row['code_text']) . "</option>\n";
 881   }
 882 }
 883
 884 echo "   </select>\n";
 885 echo "  </td>\n";
 886 echo " </tr>\n";
 887 ?>
 888
 889 </table>
 890
 891 <p style='margin-top:8px;margin-bottom:8px'>
 892 <table>
 893  <tr>
 894   <td>
 895    <input type='button' value='<?php echo xla('Add Copay');?>'
 896     onclick="copayselect()" />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 897   </td>
 898   <td>
 899    <?php echo xlt('Search'); ?>&nbsp;
 900 <?php
 901   foreach ($code_types as $key => $value) {
 902     if (!empty($value['nofs'])) continue;
 903     echo "   <input type='radio' name='search_type' value='" . attr($key) . "'";
 904     if ($key == $default_search_type) echo " checked";
 905     echo " />" . text($key) . "&nbsp;\n";
 906   }
 907 ?>
 908    <?php echo xlt('for'); ?>&nbsp;
 909   </td>
 910   <td>
 911    <input type='text' name='search_term' value=''> &nbsp;
 912   </td>
 913   <td>
 914    <input type='submit' name='bn_search' value='<?php echo xla('Search');?>'>
 915   </td>
 916  </tr>
 917 </table>
 918 </p>
 919 <p style='margin-top:16px;margin-bottom:8px'>
 920
 921 <?php } // end encounter not billed ?>
 922
 923 <table cellspacing='5'>
 924  <tr>
 925   <td class='billcell'><b><?php echo xlt('Type');?></b></td>
 926   <td class='billcell'><b><?php echo xlt('Code');?></b></td>
 927 <?php if (modifiers_are_used(true)) { ?>
 928   <td class='billcell'><b><?php echo xlt('Modifiers');?></b></td>
 929 <?php } ?>
 930 <?php if (fees_are_used()) { ?>
 931   <td class='billcell' align='right'><b><?php echo xlt('Price');?></b>&nbsp;</td>
 932   <td class='billcell' align='center'><b><?php echo xlt('Units');?></b></td>
 933 <?php } ?>
 934 <?php if (justifiers_are_used()) { ?>
 935   <td class='billcell' align='center'<?php echo $usbillstyle; ?>><b><?php echo xlt('Justify');?></b></td>
 936 <?php } ?>
 937   <td class='billcell' align='center'><b><?php echo xlt('Provider');?></b></td>
 938   <td class='billcell' align='center'<?php echo $usbillstyle; ?>><b><?php echo xlt('Note Codes');?></b></td>
 939   <td class='billcell' align='center'<?php echo $usbillstyle; ?>><b><?php echo xlt('Auth');?></b></td>
 940   <td class='billcell' align='center'><b><?php echo xlt('Delete');?></b></td>
 941   <td class='billcell'><b><?php echo xlt('Description');?></b></td>
 942  </tr>
 943
 944 <?php
 945 $justinit = "var f = document.forms[0];\n";
 946
 947 // $encounter_provid = -1;
 948
 949 $hasCharges = false;
 950
 951 // Generate lines for items already in the billing table for this encounter,
 952 // and also set the rendering provider if we come across one.
 953 //
 954 $bill_lino = 0;
 955 if ($billresult) {
 956   foreach ($billresult as $iter) {
 957     ++$bill_lino;
 958     $bline = $_POST['bill']["$bill_lino"];
 959     $del = $bline['del']; // preserve Delete if checked
 960
 961     $modifier   = trim($iter["modifier"]);
 962     $units      = $iter["units"];
 963     $fee        = $iter["fee"];
 964     $authorized = $iter["authorized"];
 965     $ndc_info   = $iter["ndc_info"];
 966     $justify    = trim($iter['justify']);
 967     $notecodes  = trim($iter['notecodes']);
 968     if ($justify) $justify = substr(str_replace(':', ',', $justify), 0, strlen($justify) - 1);
 969     $provider_id = $iter['provider_id'];
 970
 971     // Also preserve other items from the form, if present.
 972     if ($bline['id'] && !$iter["billed"]) {
 973       $modifier   = trim($bline['mod']);
 974       $units      = max(1, intval(trim($bline['units'])));
 975       $fee        = sprintf('%01.2f',(0 + trim($bline['price'])) * $units);
 976       $authorized = $bline['auth'];
 977       $ndc_info   = '';
 978       if ($bline['ndcnum']) {
 979         $ndc_info = 'N4' . trim($bline['ndcnum']) . '   ' . $bline['ndcuom'] .
 980         trim($bline['ndcqty']);
 981       }
 982       $justify    = $bline['justify'];
 983       $notecodes  = trim($bline['notecodes']);
 984       $provider_id = 0 + $bline['provid'];
 985     }
 986
 987     if($iter['code_type'] == 'COPAY'){//moved copay display to below
 988       --$bill_lino;
 989       continue;
 990     }
 991
 992     // list($code, $modifier) = explode("-", $iter["code"]);
 993     echoLine($bill_lino, $iter["code_type"], trim($iter["code"]),
 994       $modifier, $ndc_info,  $authorized,
 995       $del, $units, $fee, $iter["id"], $iter["billed"],
 996       $iter["code_text"], $justify, $provider_id, $notecodes);
 997   }
 998 }
 999
1000 $resMoneyGot = sqlStatement("SELECT pay_amount as PatientPay,session_id as id,date(post_time) as date ".
1001   "FROM ar_activity where pid =? and encounter =? and payer_type=0 and account_code='PCP'",
1002   array($pid,$encounter));//new fees screen copay gives account_code='PCP'
1003 while($rowMoneyGot = sqlFetchArray($resMoneyGot)){
1004   $PatientPay=$rowMoneyGot['PatientPay']*-1;
1005   $id=$rowMoneyGot['id'];
1006   echoLine(++$bill_lino,'COPAY','','',$rowMoneyGot['date'],'1','','',$PatientPay,$id);
1007 }
1008
1009 // Echo new billing items from this form here, but omit any line
1010 // whose Delete checkbox is checked.
1011 //
1012 if ($_POST['bill']) {
1013   foreach ($_POST['bill'] as $key => $iter) {
1014     if ($iter["id"])  continue; // skip if it came from the database
1015     if ($iter["del"]) continue; // skip if Delete was checked
1016     $ndc_info = '';
1017     if ($iter['ndcnum']) {
1018       $ndc_info = 'N4' . trim($iter['ndcnum']) . '   ' . $iter['ndcuom'] .
1019       trim($iter['ndcqty']);
1020     }
1021     // $fee = 0 + trim($iter['fee']);
1022     $units = max(1, intval(trim($iter['units'])));
1023     $fee = sprintf('%01.2f',(0 + trim($iter['price'])) * $units);
1024     //the date is passed as $ndc_info, since this variable is not applicable in the case of copay.
1025     $ndc_info = '';
1026     if ($iter['code_type'] == 'COPAY'){
1027       $ndc_info = date("Y-m-d");
1028       if($fee > 0)
1029       $fee = 0 - $fee;
1030     }
1031     echoLine(++$bill_lino, $iter["code_type"], $iter["code"], trim($iter["mod"]),
1032       $ndc_info, $iter["auth"], $iter["del"], $units,
1033       $fee, NULL, FALSE, NULL, $iter["justify"], 0 + $iter['provid'],
1034       $iter['notecodes']);
1035   }
1036 }
1037
1038 // Generate lines for items already in the drug_sales table for this encounter.
1039 //
1040 $query = "SELECT * FROM drug_sales WHERE " .
1041   "pid = ? AND encounter = ? " .
1042   "ORDER BY sale_id";
1043 $sres = sqlStatement($query, array($pid,$encounter) );
1044 $prod_lino = 0;
1045 while ($srow = sqlFetchArray($sres)) {
1046   ++$prod_lino;
1047   $pline = $_POST['prod']["$prod_lino"];
1048   $del   = $pline['del']; // preserve Delete if checked
1049   $sale_id = $srow['sale_id'];
1050   $drug_id = $srow['drug_id'];
1051   $units   = $srow['quantity'];
1052   $fee     = $srow['fee'];
1053   $billed  = $srow['billed'];
1054   // Also preserve other items from the form, if present and unbilled.
1055   if ($pline['sale_id'] && !$srow['billed']) {
1056     // $units      = trim($pline['units']);
1057     // $fee        = trim($pline['fee']);
1058     $units = max(1, intval(trim($pline['units'])));
1059     $fee   = sprintf('%01.2f',(0 + trim($pline['price'])) * $units);
1060   }
1061   echoProdLine($prod_lino, $drug_id, $del, $units, $fee, $sale_id, $billed);
1062 }
1063
1064 // Echo new product items from this form here, but omit any line
1065 // whose Delete checkbox is checked.
1066 //
1067 if ($_POST['prod']) {
1068   foreach ($_POST['prod'] as $key => $iter) {
1069     if ($iter["sale_id"])  continue; // skip if it came from the database
1070     if ($iter["del"]) continue; // skip if Delete was checked
1071     // $fee = 0 + trim($iter['fee']);
1072     $units = max(1, intval(trim($iter['units'])));
1073     $fee   = sprintf('%01.2f',(0 + trim($iter['price'])) * $units);
1074     echoProdLine(++$prod_lino, $iter['drug_id'], FALSE, $units, $fee);
1075   }
1076 }
1077
1078 // If new billing code(s) were <select>ed, add their line(s) here.
1079 //
1080 if ($_POST['newcodes']) {
1081   $arrcodes = explode('~', $_POST['newcodes']);
1082   foreach ($arrcodes as $codestring) {
1083     if ($codestring === '') continue;
1084     $arrcode = explode('|', $codestring);
1085     $newtype = $arrcode[0];
1086     $newcode = $arrcode[1];
1087     $newsel  = $arrcode[2];
1088     if ($newtype == 'COPAY') {
1089       $tmp = sqlQuery("SELECT copay FROM insurance_data WHERE pid = ? " .
1090         "AND type = 'primary' ORDER BY date DESC LIMIT 1", array($pid) );
1091       $code = sprintf('%01.2f', 0 + $tmp['copay']);
1092       echoLine(++$bill_lino, $newtype, $code, '', date("Y-m-d"), '1', '0', '1',
1093         sprintf('%01.2f', 0 - $code));
1094     }
1095     else if ($newtype == 'PROD') {
1096       $result = sqlQuery("SELECT * FROM drug_templates WHERE " .
1097         "drug_id = ? AND selector = ?", array($newcode,$newsel) );
1098       $units = max(1, intval($result['quantity']));
1099       $prrow = sqlQuery("SELECT prices.pr_price " .
1100         "FROM patient_data, prices WHERE " .
1101         "patient_data.pid = ? AND " .
1102         "prices.pr_id = ? AND " .
1103         "prices.pr_selector = ? AND " .
1104         "prices.pr_level = patient_data.pricelevel " .
1105         "LIMIT 1", array($pid,$newcode,$newsel) );
1106       $fee = empty($prrow) ? 0 : $prrow['pr_price'];
1107       echoProdLine(++$prod_lino, $newcode, FALSE, $units, $fee);
1108     }
1109     else {
1110       list($code, $modifier) = explode(":", $newcode);
1111       $ndc_info = '';
1112       // If HCPCS, find last NDC string used for this code.
1113       if ($newtype == 'HCPCS' && $ndc_applies) {
1114         $tmp = sqlQuery("SELECT ndc_info FROM billing WHERE " .
1115           "code_type = ? AND code = ? AND ndc_info LIKE 'N4%' " .
1116           "ORDER BY date DESC LIMIT 1", array($newtype,$code) );
1117         if (!empty($tmp)) $ndc_info = $tmp['ndc_info'];
1118       }
1119       echoLine(++$bill_lino, $newtype, $code, trim($modifier), $ndc_info);
1120     }
1121   }
1122 }
1123
1124 $tmp = sqlQuery("SELECT provider_id, supervisor_id FROM form_encounter " .
1125   "WHERE pid = ? AND encounter = ? " .
1126   "ORDER BY id DESC LIMIT 1", array($pid,$encounter) );
1127 $encounter_provid = 0 + $tmp['provider_id'];
1128 $encounter_supid  = 0 + $tmp['supervisor_id'];
1129 ?>
1130 </table>
1131 </p>
1132
1133 <br />
1134 &nbsp;
1135
1136 <?php
1137 // Choose rendering and supervising providers.
1138 echo "<span class='billcell'><b>\n";
1139 echo xlt('Providers') . ": &nbsp;";
1140
1141 echo "&nbsp;&nbsp;" . xlt('Rendering') . "\n";
1142 genProviderSelect('ProviderID', '-- '.xl("Please Select").' --', $encounter_provid, $isBilled);
1143
1144 if (!$GLOBALS['ippf_specific']) {
1145   echo "&nbsp;&nbsp;" . xlt('Supervising') . "\n";
1146   genProviderSelect('SupervisorID', '-- '.xl("N/A").' --', $encounter_supid, $isBilled);
1147 }
1148
1149 echo "</b></span>\n";
1150 ?>
1151
1152 <p>
1153 &nbsp;
1154
1155 <?php
1156 // If applicable, ask for the contraceptive services start date.
1157 $trow = sqlQuery("SELECT count(*) AS count FROM layout_options WHERE " .
1158   "form_id = 'DEM' AND field_id = 'contrastart' AND uor > 0");
1159 if ($trow['count'] && $contraception && !$isBilled) {
1160   $date1 = substr($visit_row['date'], 0, 10);
1161   // If admission or surgical, then force contrastart.
1162   if ($contraception > 1 ||
1163     strpos(strtolower($visit_row['pc_catname']), 'admission') !== false)
1164   {
1165     echo "   <input type='hidden' name='contrastart' value='" . attr($date1) . "' />\n";
1166   }
1167   else {
1168     // echo "<!-- contraception = $contraception -->\n"; // debugging
1169     $trow = sqlQuery("SELECT contrastart " .
1170       "FROM patient_data WHERE " .
1171       "pid = ? LIMIT 1", array($pid) );
1172     if (empty($trow['contrastart']) || substr($trow['contrastart'], 0, 4) == '0000') {
1173       $date0 = date('Y-m-d', strtotime($date1) - (60 * 60 * 24));
1174       echo "   <select name='contrastart'>\n";
1175       echo "    <option value='" . attr($date1) . "'>" . xlt('This visit begins new contraceptive use') . "</option>\n";
1176       echo "    <option value='" . attr($date0) . "'>" . xlt('Contraceptive services previously started') . "</option>\n";
1177       echo "    <option value=''>" . xlt('None of the above') . "</option>\n";
1178       echo "   </select>\n";
1179       echo "&nbsp; &nbsp; &nbsp;\n";
1180     }
1181   }
1182 }
1183
1184 // If there is a choice of warehouses, allow override of user default.
1185 if ($prod_lino > 0) { // if any products are in this form
1186   $trow = sqlQuery("SELECT count(*) AS count FROM list_options WHERE list_id = 'warehouse'");
1187   if ($trow['count'] > 1) {
1188     $trow = sqlQuery("SELECT default_warehouse FROM users WHERE username = ?", array($_SESSION['authUser']) );
1189     echo "   <span class='billcell'><b>" . xlt('Warehouse') . ":</b></span>\n";
1190     echo generate_select_list('default_warehouse', 'warehouse',
1191       $trow['default_warehouse'], '');
1192     echo "&nbsp; &nbsp; &nbsp;\n";
1193   }
1194 }
1195
1196 // Allow the patient price level to be fixed here.
1197 $plres = sqlStatement("SELECT option_id, title FROM list_options " .
1198   "WHERE list_id = 'pricelevel' ORDER BY seq");
1199 if (true) {
1200   $trow = sqlQuery("SELECT pricelevel FROM patient_data WHERE " .
1201     "pid = ? LIMIT 1", array($pid) );
1202   $pricelevel = $trow['pricelevel'];
1203   echo "   <span class='billcell'><b>" . xlt('Price Level') . ":</b></span>\n";
1204   echo "   <select name='pricelevel'";
1205   if ($isBilled) echo " disabled";
1206   echo ">\n";
1207   while ($plrow = sqlFetchArray($plres)) {
1208     $key = $plrow['option_id'];
1209     $val = $plrow['title'];
1210     echo "    <option value='" . attr($key) . "'";
1211     if ($key == $pricelevel) echo ' selected';
1212     echo ">" . text($val) . "</option>\n";
1213   }
1214   echo "   </select>\n";
1215 }
1216 ?>
1217
1218 &nbsp; &nbsp; &nbsp;
1219
1220 <?php if (!$isBilled) { ?>
1221 <input type='submit' name='bn_save' value='<?php echo xla('Save');?>' />
1222 &nbsp;
1223 <?php if (!$hasCharges) { ?>
1224 <input type='submit' name='bn_save_close' value='<?php echo xla('Save and Close');?>' />
1225 &nbsp;
1226 <?php } ?>
1227 <input type='submit' name='bn_refresh' value='<?php echo xla('Refresh');?>'>
1228 &nbsp;
1229 <?php } ?>
1230
1231 <input type='button' value='<?php echo xla('Cancel');?>'
1232  onclick="top.restoreSession();location='<?php echo "$rootdir/patient_file/encounter/$returnurl" ?>'" />
1233
1234 <?php if ($code_types['UCSMC']) { ?>
1235 <p style='font-family:sans-serif;font-size:8pt;color:#666666;'>
1236 &nbsp;<br>
1237 <?php echo xlt('UCSMC codes provided by the University of Calgary Sports Medicine Centre');?>
1238 </p>
1239 <?php } ?>
1240
1241 </center>
1242
1243 </form>
1244
1245 <?php
1246 // TBD: If $alertmsg, display it with a JavaScript alert().
1247 ?>
1248
1249 <script language='JavaScript'>
1250 <?php echo $justinit; ?>
1251 </script>
1252
1253 </body>
1254 </html>