From 0e9ff717ba07ef59e960194d614a35d966daf1c1 Mon Sep 17 00:00:00 2001
From: sunsetsystems <sunsetsystems>
Date: Wed, 27 Feb 2008 06:45:35 +0000
Subject: [PATCH] added acct/disc ACO for price discounting

---
 acl_setup.php                      |    7 +-
 acl_upgrade.php                    |   10 +
 interface/forms/fee_sheet/new.php  | 1855 ++++++++++++++++++------------------
 interface/forms/fee_sheet/view.php | 1855 ++++++++++++++++++------------------
 4 files changed, 1880 insertions(+), 1847 deletions(-)

diff --git a/acl_setup.php b/acl_setup.php
index 284dbdec6..f5c1d59bf 100644
--- a/acl_setup.php
+++ b/acl_setup.php
@@ -53,6 +53,7 @@
  // Create Accounting ACOs.
  //
  $gacl->add_object('acct', 'Billing (write optional)'           , 'bill' , 10, 0, 'ACO');
+ $gacl->add_object('acct', 'Price Discounting'                  , 'disc' , 10, 0, 'ACO');
  $gacl->add_object('acct', 'EOB Data Entry'                     , 'eob'  , 10, 0, 'ACO');
  $gacl->add_object('acct', 'Financial Reporting - my encounters', 'rep'  , 10, 0, 'ACO');
  $gacl->add_object('acct', 'Financial Reporting - anything'     , 'rep_a', 10, 0, 'ACO');
@@ -119,7 +120,7 @@
  //
  $gacl->add_acl(
   array(
-   'acct'=>array('bill', 'eob', 'rep', 'rep_a'),
+   'acct'=>array('bill', 'disc', 'eob', 'rep', 'rep_a'),
    'admin'=>array('calendar', 'database', 'forms', 'practice', 'superbill', 'users', 'batchcom', 'language', 'super', 'drugs', 'acl'),
    'encounters'=>array('auth_a', 'coding_a', 'notes_a', 'date_a'),
    'patients'=>array('appt', 'demo', 'med', 'trans', 'docs', 'notes'),
@@ -133,7 +134,7 @@
  //
  $gacl->add_acl(
   array(
-   'acct'=>array('rep'),
+   'acct'=>array('disc', 'rep'),
    'admin'=>array('drugs'),
    'encounters'=>array('auth_a', 'coding_a', 'notes_a', 'date_a'),
    'patients'=>array('appt', 'demo', 'med', 'trans', 'docs', 'notes'),
@@ -178,7 +179,7 @@
  //
  $gacl->add_acl(
   array(
-   'acct'=>array('bill', 'eob', 'rep', 'rep_a'),
+   'acct'=>array('bill', 'disc', 'eob', 'rep', 'rep_a'),
    'admin'=>array('practice', 'superbill'),
    'encounters'=>array('auth_a', 'coding_a', 'date_a'),
    'patients'=>array('appt', 'demo')
diff --git a/acl_upgrade.php b/acl_upgrade.php
index 3d958b573..93e0eeb1a 100644
--- a/acl_upgrade.php
+++ b/acl_upgrade.php
@@ -25,6 +25,8 @@
 //       ADD  acl      ACL Administration (Administrators)
 //     Section "sensitivities" (Sensitivities):
 //       EDIT high     High               (ensure the order variable is '20')
+//     Section "acct"          (Accounting):
+//       ADD  disc     Price Discounting (Administrators, Physicians, Accounting(write))
 
 
 //Ensure that phpGACL has been installed
@@ -70,6 +72,8 @@ addObjectAclWithOrder('sensitivities', 'Sensitivities', 'high', 'High', 20);
 addObjectAcl('admin', 'Administration', 'drugs', 'Pharmacy Dispensary');
 //Add 'ACL Administration' object (added in 2.8.4)
 addObjectAcl('admin', 'Administration', 'acl', 'ACL Administration');
+//Add 'Price Discounting' object (added in 2.8.4)
+addObjectAcl('acct', 'Accounting', 'disc', 'Price Discounting');
 
 
 //Update already existing Objects
@@ -104,6 +108,12 @@ updateAcl($doc_write, 'Physicians', 'admin', 'Administration', 'drugs', 'Pharmac
 updateAcl($clin_write, 'Clinicians', 'admin', 'Administration', 'drugs', 'Pharmacy Dispensary', 'write');
 //Insert the 'acl' object from the 'admin' section into the Administrators group write ACL (added in 2.8.4)
 updateAcl($admin_write, 'Administrators', 'admin', 'Administration', 'acl', 'ACL Administration', 'write');
+//Insert the 'disc' object from the 'acct' section into the Administrators group write ACL (added in 2.8.4)
+updateAcl($admin_write, 'Administrators', 'acct', 'Accounting', 'disc', 'Price Discounting', 'write');
+//Insert the 'disc' object from the 'acct' section into the Accounting group write ACL (added in 2.8.4)
+updateAcl($back_write, 'Accounting', 'acct', 'Accounting', 'disc', 'Price Discounting', 'write');
+//Insert the 'disc' object from the 'acct' section into the Physicians group write ACL (added in 2.8.4)
+updateAcl($doc_write, 'Physicians', 'acct', 'Accounting', 'disc', 'Price Discounting', 'write');
 
 
 //Function will return an array that contains the ACL ID number.
diff --git a/interface/forms/fee_sheet/new.php b/interface/forms/fee_sheet/new.php
index 5e3a8b85e..de1618592 100644
--- a/interface/forms/fee_sheet/new.php
+++ b/interface/forms/fee_sheet/new.php
@@ -1,922 +1,933 @@
-<?php
-//////////////////////////////////////////////////////////////////////
-// ------------------ DO NOT MODIFY VIEW.PHP !!! ---------------------
-// View.php is an exact duplicate of new.php.  If you wish to make
-// any changes, then change new.php and either (recommended) make
-// view.php a symbolic link to new.php, or copy new.php to view.php.
-//
-// And if you check in a change to either module, be sure to check
-// in the other (identical) module also.
-//
-// This nonsense will go away if we ever move to subversion.
-//////////////////////////////////////////////////////////////////////
-
-// Copyright (C) 2005-2008 Rod Roark <rod@sunsetsystems.com>
-//
-// This program is free software; you can redistribute it and/or
-// modify it under the terms of the GNU General Public License
-// as published by the Free Software Foundation; either version 2
-// of the License, or (at your option) any later version.
-
-require_once("../../globals.php");
-require_once("$srcdir/api.inc");
-require_once("codes.php");
-require_once("../../../custom/code_types.inc.php");
-require_once("../../drugs/drugs.inc.php");
-
-// Possible units of measure for NDC drug quantities.
-//
-$ndc_uom_choices = array(
-  'ML' => 'ML',
-  'GR' => 'Grams',
-  'F2' => 'I.U.',
-  'UN' => 'Units'
-);
-
-// $FEE_SHEET_COLUMNS should be defined in codes.php.
-if (empty($FEE_SHEET_COLUMNS)) $FEE_SHEET_COLUMNS = 2;
-
-$returnurl = $GLOBALS['concurrent_layout'] ? 'encounter_top.php' : 'patient_encounter.php';
-
-// If Save was clicked, save the new and modified billing lines;
-// then if no error, redirect to $returnurl.
-//
-if ($_POST['bn_save']) {
-  $provid = $_POST['ProviderID'];
-  if (! $provid) $provid = $_SESSION["authUserID"];
-
-  $bill = $_POST['bill'];
-  for ($lino = 1; $bill["$lino"]['code_type']; ++$lino) {
-    $iter = $bill["$lino"];
-
-    // Skip disabled (billed) line items.
-    if ($iter['billed']) continue;
-
-    $id        = $iter['id'];
-    $code_type = $iter['code_type'];
-    $code      = $iter['code'];
-    $modifier  = trim($iter['mod']);
-    $units     = max(1, intval(trim($iter['units'])));
-    $fee       = 0 + trim($iter['fee']);
-    if ($code_type == 'COPAY') {
-      if ($fee > 0) $fee = 0 - $fee;
-      $code = sprintf('%01.2f', 0 - $fee);
-    }
-    $justify   = trim($iter['justify']);
-    if ($justify) $justify = str_replace(',', ':', $justify) . ':';
-    // $auth      = $iter['auth'] ? "1" : "0";
-    $auth      = "1";
-    $del       = $iter['del'];
-
-    $ndc_info = '';
-    if ($iter['ndcnum']) {
-    $ndc_info = 'N4' . trim($iter['ndcnum']) . '   ' . $iter['ndcuom'] .
-      trim($iter['ndcqty']);
-    }
-
-    // If the item is already in the database...
-    if ($id) {
-      if ($del) {
-        deleteBilling($id);
-      }
-      else {
-        // authorizeBilling($id, $auth);
-        sqlQuery("UPDATE billing SET code = '$code', " .
-          "units = '$units', fee = '$fee', modifier = '$modifier', " .
-          "authorized = $auth, provider_id = '$provid', " .
-          "ndc_info = '$ndc_info', justify = '$justify' WHERE " .
-          "id = '$id' AND billed = 0 AND activity = 1");
-      }
-    }
-
-    // Otherwise it's a new item...
-    else if (! $del) {
-      $query = "select code_text from codes where code_type = '" .
-        $code_types[$code_type]['id'] . "' and " .
-        "code = '$code' and ";
-      if ($modifier) {
-        $query .= "modifier = '$modifier'";
-      } else {
-        $query .= "(modifier is null or modifier = '')";
-      }
-      $result = sqlQuery($query);
-      $code_text = addslashes($result['code_text']);
-      addBilling($encounter, $code_type, $code, $code_text, $pid, $auth,
-        $provid, $modifier, $units, $fee, $ndc_info, $justify);
-    }
-  } // end for
-
-  // Doing similarly to the above but for products.
-  $prod = $_POST['prod'];
-  for ($lino = 1; $prod["$lino"]['drug_id']; ++$lino) {
-    $iter = $prod["$lino"];
-
-    if (!empty($iter['billed'])) continue;
-
-    $drug_id   = $iter['drug_id'];
-    $sale_id   = $iter['sale_id']; // present only if already saved
-    $units     = max(1, intval(trim($iter['units'])));
-    $fee       = 0 + trim($iter['fee']);
-    $del       = $iter['del'];
-
-    // If the item is already in the database...
-    if ($sale_id) {
-      if ($del) {
-        // Zero out this sale and reverse its inventory update.  We bring in
-        // drug_sales twice so that the original quantity can be referenced
-        // unambiguously.
-        sqlStatement("UPDATE drug_sales AS dsr, drug_sales AS ds, " .
-          "drug_inventory AS di " .
-          "SET di.on_hand = di.on_hand + dsr.quantity, " .
-          "ds.quantity = 0, ds.fee = 0 WHERE " .
-          "dsr.sale_id = '$sale_id' AND ds.sale_id = dsr.sale_id AND " .
-          "di.inventory_id = ds.inventory_id");
-        // And delete the sale for good measure.
-        sqlStatement("DELETE FROM drug_sales WHERE sale_id = '$sale_id'");
-      }
-      else {
-        // Modify the sale and adjust inventory accordingly.
-        $query = "UPDATE drug_sales AS dsr, drug_sales AS ds, " .
-          "drug_inventory AS di " .
-          "SET di.on_hand = di.on_hand + dsr.quantity - $units, " .
-          "ds.quantity = '$units', ds.fee = '$fee' WHERE " .
-          "dsr.sale_id = '$sale_id' AND ds.sale_id = dsr.sale_id AND " .
-          "di.inventory_id = ds.inventory_id";
-        sqlStatement($query);
-      }
-    }
-
-    // Otherwise it's a new item...
-    else if (! $del) {
-      $sale_id = sellDrug($drug_id, $units, $fee, $pid, $encounter);
-      if (!$sale_id) die("Insufficient inventory for product ID \"$drug_id\".");
-    }
-  } // end for
-
-  // Note: I was going to compute taxes here, but now I think better to
-  // do that at checkout time (in pos_checkout.php which also posts to SL).
-  // Currently taxes with insurance claims make no sense, so for now we'll
-  // ignore tax computation in the insurance billing logic.
-
-  formHeader("Redirecting....");
-  formJump();
-  formFooter();
-  exit;
-}
-
-$billresult = getBillingByEncounter($pid, $encounter, "*");
-?>
-<html>
-<head>
-<? html_header_show();?>
-<link rel=stylesheet href="<?echo $css_header;?>" type="text/css">
-<style>
-.billcell { font-family: sans-serif; font-size: 10pt }
-</style>
-<script language="JavaScript">
-
-var diags = new Array();
-
-<?php
-// Generate JavaScript to build the array of diagnoses.
-function genDiagJS($code_type, $code) {
-  if ($code_type == 'ICD9') {
-    echo "diags.push('$code');\n";
-  }
-}
-if ($billresult) {
-  foreach ($billresult as $iter) {
-    genDiagJS($iter["code_type"], trim($iter["code"]));
-  }
-}
-if ($_POST['bill']) {
-  foreach ($_POST['bill'] as $iter) {
-    if ($iter["del"]) continue; // skip if Delete was checked
-    if ($iter["id"])  continue; // skip if it came from the database
-    genDiagJS($iter["code_type"], $iter["code"]);
-  }
-}
-if ($_POST['newcodes']) {
-  $arrcodes = explode('~', $_POST['newcodes']);
-  foreach ($arrcodes as $codestring) {
-    if ($codestring === '') continue;
-    $arrcode = explode('|', $codestring);
-    list($code, $modifier) = explode(":", $arrcode[1]);
-    genDiagJS($arrcode[0], $code);
-  }
-}
-?>
-
-// This is invoked by <select onchange> for the various dropdowns,
-// including search results.
-function codeselect(selobj) {
- var i = selobj.selectedIndex;
- if (i > 0) {
-  top.restoreSession();
-  var f = document.forms[0];
-  f.newcodes.value = selobj.options[i].value;
-  f.submit();
- }
-}
-
-function copayselect() {
- top.restoreSession();
- var f = document.forms[0];
- f.newcodes.value = 'COPAY||';
- f.submit();
-}
-
-function validate(f) {
- for (var lino = 1; f['bill['+lino+'][code_type]']; ++lino) {
-  var pfx = 'bill['+lino+']';
-  if (f[pfx+'[ndcnum]'] && f[pfx+'[ndcnum]'].value) {
-   // Check NDC number format.
-   var ndcok = true;
-   var ndc = f[pfx+'[ndcnum]'].value;
-   var a = ndc.split('-');
-   if (a.length != 3) {
-    ndcok = false;
-   }
-   else if (a[0].length < 1 || a[1].length < 1 || a[2].length < 1 ||
-    a[0].length > 5 || a[1].length > 4 || a[2].length > 2) {
-    ndcok = false;
-   }
-   else {
-    for (var i = 0; i < 3; ++i) {
-     for (var j = 0; j < a[i].length; ++j) {
-      var c = a[i].charAt(j);
-      if (c < '0' || c > '9') ndcok = false;
-     }
-    }
-   }
-   if (!ndcok) {
-    alert('<?php xl('Format incorrect for NDC','e') ?> "' + ndc +
-     '", <?php xl('should be like nnnnn-nnnn-nn','e') ?>');
-    if (f[pfx+'[ndcnum]'].focus) f[pfx+'[ndcnum]'].focus();
-    return false;
-   }
-   // Check for valid quantity.
-   var qty = f[pfx+'[ndcqty]'].value - 0;
-   if (isNaN(qty) || qty <= 0) {
-    alert('<?php xl('Quantity for NDC','e') ?> "' + ndc +
-     '" <?php xl('is not valid (decimal fractions are OK).','e') ?>');
-    if (f[pfx+'[ndcqty]'].focus) f[pfx+'[ndcqty]'].focus();
-    return false;
-   }
-  }
- }
- top.restoreSession();
- return true;
-}
-
-// When a justify selection is made, apply it to the current list for
-// this procedure and then rebuild its selection list.
-//
-function setJustify(seljust) {
- var theopts = seljust.options;
- var jdisplay = theopts[0].text;
- // Compute revised justification string.  Note this does nothing if
- // the first entry is still selected, which is handy at startup.
- if (seljust.selectedIndex > 0) {
-  var newdiag = seljust.value;
-  if (newdiag.length == 0) {
-   jdisplay = '';
-  }
-  else {
-   if (jdisplay.length) jdisplay += ',';
-   jdisplay += newdiag;
-  }
- }
- // Rebuild selection list.
- var jhaystack = ',' + jdisplay + ',';
- var j = 0;
- theopts.length = 0;
- theopts[j++] = new Option(jdisplay,jdisplay,true,true);
- for (var i = 0; i < diags.length; ++i) {
-  if (jhaystack.indexOf(',' + diags[i] + ',') < 0) {
-   theopts[j++] = new Option(diags[i],diags[i],false,false);
-  }
- }
- theopts[j++] = new Option('Clear','',false,false);
-}
-
-</script>
-</head>
-
-<body <?echo $top_bg_line;?> topmargin="0" rightmargin="0" leftmargin="2"
- bottommargin="0" marginwidth="2" marginheight="0">
-<form method="post" action="<?php echo $rootdir; ?>/forms/fee_sheet/new.php"
- onsubmit="return validate(this)">
-<span class="title"><? echo ($GLOBALS['phone_country_code'] == '1') ? 'Fee' : 'Coding' ?> <?php xl('Sheet','e');?></span><br>
-<input type='hidden' name='newcodes' value=''>
-
-<center>
-<table width='95%'>
-<?php
-$i = 0;
-$last_category = '';
-
-// Helper function for creating drop-lists.
-function endFSCategory() {
-  global $i, $last_category, $FEE_SHEET_COLUMNS;
-  if (! $last_category) return;
-  echo "   </select>\n";
-  echo "  </td>\n";
-  if ($i >= $FEE_SHEET_COLUMNS) {
-    echo " </tr>\n";
-    $i = 0;
-  }
-}
-
-// Create all the drop-lists of preselected service codes.
-$res = sqlStatement("SELECT * FROM fee_sheet_options " .
-  "ORDER BY fs_category, fs_option");
-while ($row = sqlFetchArray($res)) {
-  $fs_category = $row['fs_category'];
-  $fs_option   = $row['fs_option'];
-  $fs_codes    = $row['fs_codes'];
-  if($fs_category !== $last_category) {
-    endFSCategory();
-    $last_category = $fs_category;
-    ++$i;
-    echo ($i <= 1) ? " <tr>\n" : "";
-    echo "  <td width='50%' align='center' nowrap>\n";
-    echo "   <select style='width:96%' onchange='codeselect(this)'>\n";
-    echo "    <option value=''> " . substr($fs_category, 1) . "\n";
-  }
-  echo "    <option value='$fs_codes'>" . substr($fs_option, 1) . "\n";
-}
-endFSCategory();
-
-// Create one more drop-list, for Products.
-if ($GLOBALS['sell_non_drug_products']) {
-  ++$i;
-  echo ($i <= 1) ? " <tr>\n" : "";
-  echo "  <td width='50%' align='center' nowrap>\n";
-  echo "   <select name='Products' style='width:96%' onchange='codeselect(this)'>\n";
-  echo "    <option value=''> " . xl('Products') . "\n";
-  $tres = sqlStatement("SELECT dt.drug_id, dt.selector, d.name " .
-    "FROM drug_templates AS dt, drugs AS d WHERE " .
-    "d.drug_id = dt.drug_id " .
-    "ORDER BY d.name, dt.selector, dt.drug_id");
-  while ($trow = sqlFetchArray($tres)) {
-    echo "    <option value='PROD|" . $trow['drug_id'] . '|' . $trow['selector'] . "'>" .
-      $trow['drug_id'] . ':' . $trow['selector'] . ' ' . $trow['name'] . "</option>\n";
-  }
-  echo "   </select>\n";
-  echo "  </td>\n";
-  if ($i >= $FEE_SHEET_COLUMNS) {
-    echo " </tr>\n";
-    $i = 0;
-  }
-}
-
-$search_type = $default_search_type;
-if ($_POST['search_type']) $search_type = $_POST['search_type'];
-
-$ndc_applies = true; // Assume all payers require NDC info.
-
-echo $i ? "  <td></td>\n </tr>\n" : "";
-echo " <tr>\n";
-echo "  <td colspan='$FEE_SHEET_COLUMNS' align='center' nowrap>\n";
-
-// If Search was clicked, do it and write the list of results here.
-// There's no limit on the number of results!
-//
-$numrows = 0;
-if ($_POST['bn_search'] && $_POST['search_term']) {
-  $query = "select code, modifier, code_text from codes where " .
-    "(code_text like '%" . $_POST['search_term'] . "%' or " .
-    "code like '%" . $_POST['search_term'] . "%') and " .
-    "code_type = '" . $code_types[$search_type]['id'] . "' " .
-    "order by code";
-  $res = sqlStatement($query);
-  $numrows = mysql_num_rows($res); // FIXME - not portable!
-}
-
-echo "   <select name='Search Results' style='width:98%' " .
-  "onchange='codeselect(this)'";
-if (! $numrows) echo ' disabled';
-echo ">\n";
-echo "    <option value=''> Search Results ($numrows items)\n";
-
-if ($numrows) {
-  while ($row = sqlFetchArray($res)) {
-    $code = $row['code'];
-    if ($row['modifier']) $code .= ":" . $row['modifier'];
-    echo "    <option value='$search_type|$code|'>$code " .
-      ucfirst(strtolower($row['code_text'])) . "</option>\n";
-  }
-}
-
-echo "   </select>\n";
-echo "  </td>\n";
-echo " </tr>\n";
-?>
-
-</table>
-
-<p style='margin-top:8px;margin-bottom:8px'>
-<table>
- <tr>
-  <td>
-   <input type='button' value='<?php xl('Add Copay','e');?>'
-    onclick="copayselect()" />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-  </td>
-  <td>
-   <?php xl('Search','e'); ?>&nbsp;
-<?
-  foreach ($code_types as $key => $value) {
-    echo "   <input type='radio' name='search_type' value='$key'";
-    if ($key == $default_search_type) echo " checked";
-    echo " />$key&nbsp;\n";
-  }
-?>
-   <?php xl('for','e'); ?>&nbsp;
-  </td>
-  <td>
-   <input type='text' name='search_term' value=''> &nbsp;
-  </td>
-  <td>
-   <input type='submit' name='bn_search' value='<?php xl('Search','e');?>'>
-  </td>
- </tr>
-</table>
-</p>
-
-<p style='margin-top:16px;margin-bottom:8px'>
-<table cellspacing='5'>
- <tr>
-  <td class='billcell'><b><?php xl('Type','e');?></b></td>
-  <td class='billcell'><b><?php xl('Code','e');?></b></td>
-<? if (modifiers_are_used()) { ?>
-  <td class='billcell'><b><?php xl('Mod','e');?></b></td>
-<? } ?>
-<? if (fees_are_used()) { ?>
-  <td class='billcell' align='center'><b><?php xl('Units','e');?></b></td>
-  <td class='billcell' align='right'><b><?php xl('Fee','e');?></b>&nbsp;</td>
-  <td class='billcell' align='center'><b><?php xl('Justify','e');?></b></td>
-<? } ?>
-  <td class='billcell' align='center'><b><?php xl('Auth','e');?></b></td>
-  <td class='billcell' align='center'><b><?php xl('Delete','e');?></b></td>
-  <td class='billcell'><b><?php xl('Description','e');?></b></td>
- </tr>
-
-<?php
-$justinit = "var f = document.forms[0];\n";
-
-// This writes a billing line item to the output page.
-//
-function echoLine($lino, $codetype, $code, $modifier, $ndc_info='',
-  $auth = TRUE, $del = FALSE, $units = NULL, $fee = NULL, $id = NULL,
-  $billed = FALSE, $code_text = NULL, $justify = NULL)
-{
-  global $code_types, $ndc_applies, $ndc_uom_choices, $justinit, $pid;
-
-  if ($codetype == 'COPAY') {
-    if (!$code_text) $code_text = 'Cash';
-    if ($fee > 0) $fee = 0 - $fee;
-  }
-  if (! $code_text) {
-    // $query = "select units, fee, code_text from codes where code_type = '" .
-    $query = "select id, units, code_text from codes where code_type = '" .
-      $code_types[$codetype]['id'] . "' and " .
-      "code = '$code' and ";
-    if ($modifier) {
-      $query .= "modifier = '$modifier'";
-    } else {
-      $query .= "(modifier is null or modifier = '')";
-    }
-    $result = sqlQuery($query);
-    $code_text = $result['code_text'];
-    if (empty($units)) $units = max(1, intval($result['units']));
-    if (!isset($fee)) {
-      // $fee = $result['fee'];
-      // The above is obsolete now, fees come from the prices table:
-      $query = "SELECT prices.pr_price " .
-        "FROM patient_data, prices WHERE " .
-        "patient_data.pid = '$pid' AND " .
-        "prices.pr_id = '" . $result['id'] . "' AND " .
-        "prices.pr_selector = '' AND " .
-        "prices.pr_level = patient_data.pricelevel " .
-        "LIMIT 1";
-      echo "\n<!-- $query -->\n"; // debugging
-      $prrow = sqlQuery($query);
-      $fee = empty($prrow) ? 0 : $prrow['pr_price'];
-    }
-  }
-  $fee = sprintf('%01.2f', $fee);
-  $strike1 = ($id && $del) ? "<strike>" : "";
-  $strike2 = ($id && $del) ? "</strike>" : "";
-  echo " <tr>\n";
-  echo "  <td class='billcell'>$strike1$codetype$strike2";
-  if ($id) {
-    echo "<input type='hidden' name='bill[$lino][id]' value='$id'>";
-  }
-  echo "<input type='hidden' name='bill[$lino][code_type]' value='$codetype'>";
-  echo "<input type='hidden' name='bill[$lino][code]' value='$code'>";
-  echo "<input type='hidden' name='bill[$lino][billed]' value='$billed'>";
-  echo "</td>\n";
-  if ($codetype != 'COPAY') {
-    echo "  <td class='billcell'>$strike1$code$strike2</td>\n";
-  } else {
-    echo "  <td class='billcell'>&nbsp;</td>\n";
-  }
-  if ($billed) {
-    if (modifiers_are_used()) {
-      echo "  <td class='billcell'>$strike1$modifier$strike2" .
-        "<input type='hidden' name='bill[$lino][mod]' value='$modifier'></td>\n";
-    }
-    if (fees_are_used()) {
-      if ($codetype != 'COPAY') {
-        echo "  <td class='billcell' align='center'>$units</td>\n";
-      } else {
-        echo "  <td class='billcell'>&nbsp;</td>\n";
-      }
-      echo "  <td class='billcell' align='right'>$fee</td>\n";
-      echo "  <td class='billcell' align='center'>$justify</td>\n";
-    }
-    echo "  <td class='billcell' align='center'><input type='checkbox'" .
-      ($auth ? " checked" : "") . " disabled /></td>\n";
-    echo "  <td class='billcell' align='center'><input type='checkbox'" .
-      " disabled /></td>\n";
-  } else {
-    if (modifiers_are_used()) {
-      if ($codetype != 'COPAY' && ($code_types[$codetype]['mod'] || $modifier)) {
-        echo "  <td class='billcell'><input type='text' name='bill[$lino][mod]' " .
-          "value='$modifier' size='" . $code_types[$codetype]['mod'] . "'></td>\n";
-      } else {
-        echo "  <td class='billcell'>&nbsp;</td>\n";
-      }
-    }
-    if (fees_are_used()) {
-      if ($codetype == 'COPAY' || $code_types[$codetype]['fee'] || $fee != 0) {
-        echo "  <td class='billcell' align='center'>";
-        if ($codetype != 'COPAY') {
-          echo "<input type='text' name='bill[$lino][units]' " .
-          "value='$units' size='2' style='text-align:right'>";
-        } else {
-          echo "<input type='hidden' name='bill[$lino][units]' value='$units'>";
-        }
-        echo "</td>\n";
-        echo "  <td class='billcell' align='right'>" .
-          "<input type='text' name='bill[$lino][fee]' " .
-          "value='$fee' size='6' style='text-align:right'></td>\n";
-        if ($code_types[$codetype]['just'] || $justify) {
-          echo "  <td class='billcell' align='center'>";
-          echo "<select name='bill[$lino][justify]' onchange='setJustify(this)'>";
-          echo "<option value='$justify'>$justify</option></select>";
-          echo "</td>\n";
-          $justinit .= "setJustify(f['bill[$lino][justify]']);\n";
-        } else {
-          echo "  <td class='billcell'>&nbsp;</td>\n";
-        }
-      } else {
-        echo "  <td class='billcell'>&nbsp;</td>\n";
-        echo "  <td class='billcell'>&nbsp;</td>\n";
-        echo "  <td class='billcell'>&nbsp;</td>\n";
-      }
-    }
-    echo "  <td class='billcell' align='center'><input type='checkbox' name='bill[$lino][auth]' " .
-      "value='1'" . ($auth ? " checked" : "") . " /></td>\n";
-    echo "  <td class='billcell' align='center'><input type='checkbox' name='bill[$lino][del]' " .
-      "value='1'" . ($del ? " checked" : "") . " /></td>\n";
-  }
-
-  echo "  <td class='billcell'>$strike1" . ucfirst(strtolower($code_text)) . "$strike2</td>\n";
-  echo " </tr>\n";
-
-  // If NDC info exists or may be required, add a line for it.
-  if ($codetype == 'HCPCS' && $ndc_applies && !$billed) {
-    $ndcnum = ''; $ndcuom = ''; $ndcqty = '';
-    if (preg_match('/^N4(\S+)\s+(\S\S)(.*)/', $ndc_info, $tmp)) {
-      $ndcnum = $tmp[1]; $ndcuom = $tmp[2]; $ndcqty = $tmp[3];
-    }
-    echo " <tr>\n";
-    echo "  <td class='billcell' colspan='2'>&nbsp;</td>\n";
-    echo "  <td class='billcell' colspan='6'>&nbsp;NDC:&nbsp;";
-    echo "<input type='text' name='bill[$lino][ndcnum]' value='$ndcnum' " .
-      "size='11' style='background-color:transparent'>";
-    echo " &nbsp;Qty:&nbsp;";
-    echo "<input type='text' name='bill[$lino][ndcqty]' value='$ndcqty' " .
-      "size='3' style='background-color:transparent;text-align:right'>";
-    echo " ";
-    echo "<select name='bill[$lino][ndcuom]' style='background-color:transparent'>";
-    foreach ($ndc_uom_choices as $key => $value) {
-      echo "<option value='$key'";
-      if ($key == $ndcuom) echo " selected";
-      echo ">$value</option>";
-    }
-    echo "</select>";
-    echo "</td>\n";
-    echo " </tr>\n";
-  }
-  else if ($ndc_info) {
-    echo " <tr>\n";
-    echo "  <td class='billcell' colspan='2'>&nbsp;</td>\n";
-    echo "  <td class='billcell' colspan='6'>&nbsp;NDC Data: $ndc_info</td>\n";
-    echo " </tr>\n";
-  }
-}
-
-// This writes a product (drug_sales) line item to the output page.
-//
-function echoProdLine($lino, $drug_id, $del = FALSE, $units = NULL,
-  $fee = NULL, $sale_id = 0, $billed = FALSE)
-{
-  global $code_types, $ndc_applies, $pid;
-
-  /*******************************************************************
-  list ($drug_id, $selector) = explode(':', $drugsel);
-  if (! $units) { // if this is a new selection then apply defaults for it
-    $query = "SELECT dt.*, d.name FROM drug_templates, drugs WHERE " .
-      "dt.drug_id = '$drug_id' AND dt.selector = '$selector' AND " .
-      "d.drug_id = dt.drug_id";
-    $result = sqlQuery($query);
-    $code_text = $result['name'] . " ($selector)";
-    if (empty($units)) $units = max(1, intval($result['quantity']));
-    if (!isset($fee)) {
-      // Fees come from the prices table:
-      $query = "SELECT prices.pr_price " .
-        "FROM patient_data, prices WHERE " .
-        "patient_data.pid = '$pid' AND " .
-        "prices.pr_id = '$drug_id' AND " .
-        "prices.pr_selector = '$selector' AND " .
-        "prices.pr_level = patient_data.pricelevel " .
-        "LIMIT 1";
-      // echo "\n<!-- $query -->\n"; // debugging
-      $prrow = sqlQuery($query);
-      $fee = empty($prrow) ? 0 : $prrow['pr_price'];
-    }
-  }
-  *******************************************************************/
-  $drow = sqlQuery("SELECT name FROM drugs WHERE drug_id = '$drug_id'");
-  $code_text = $drow['name'];
-  /******************************************************************/
-
-  $fee = sprintf('%01.2f', $fee);
-  $strike1 = ($sale_id && $del) ? "<strike>" : "";
-  $strike2 = ($sale_id && $del) ? "</strike>" : "";
-  echo " <tr>\n";
-  echo "  <td class='billcell'>{$strike1}Product$strike2";
-  echo "<input type='hidden' name='prod[$lino][sale_id]' value='$sale_id'>";
-  echo "<input type='hidden' name='prod[$lino][drug_id]' value='$drug_id'>";
-  echo "<input type='hidden' name='prod[$lino][billed]' value='$billed'>";
-  echo "</td>\n";
-  echo "  <td class='billcell'>$strike1$drug_id$strike2</td>\n";
-  if (modifiers_are_used()) {
-    echo "  <td class='billcell'>&nbsp;</td>\n";
-  }
-  if ($billed) {
-    if (fees_are_used()) {
-      echo "  <td class='billcell' align='center'>$units</td>\n";
-      echo "  <td class='billcell' align='right'>$fee</td>\n";
-      echo "  <td class='billcell' align='center'>&nbsp;</td>\n";         // justify
-    }
-    echo "  <td class='billcell' align='center'>&nbsp;</td>\n";           // auth
-    echo "  <td class='billcell' align='center'><input type='checkbox'" . // del
-      " disabled /></td>\n";
-  } else {
-    if (fees_are_used()) {
-      echo "  <td class='billcell' align='center'>";
-      echo "<input type='text' name='prod[$lino][units]' " .
-        "value='$units' size='2' style='text-align:right'>";
-      echo "</td>\n";
-      echo "  <td class='billcell' align='right'>" .
-        "<input type='text' name='prod[$lino][fee]' " .
-        "value='$fee' size='6' style='text-align:right'></td>\n";
-      echo "  <td class='billcell'>&nbsp;</td>\n";
-    }
-    echo "  <td class='billcell' align='center'>&nbsp;</td>\n"; // auth
-    echo "  <td class='billcell' align='center'><input type='checkbox' name='prod[$lino][del]' " .
-      "value='1'" . ($del ? " checked" : "") . " /></td>\n";
-  }
-
-  echo "  <td class='billcell'>$strike1" . ucfirst(strtolower($code_text)) . "$strike2</td>\n";
-  echo " </tr>\n";
-}
-
-$encounter_provid = -1;
-
-// Generate lines for items already in the billing table for this encounter,
-// and also set the rendering provider if we come across one.
-//
-$bill_lino = 0;
-if ($billresult) {
-  foreach ($billresult as $iter) {
-    ++$bill_lino;
-    $bline = $_POST['bill']["$bill_lino"];
-    $del = $bline['del']; // preserve Delete if checked
-
-    $modifier   = trim($iter["modifier"]);
-    $units      = $iter["units"];
-    $fee        = $iter["fee"];
-    $authorized = $iter["authorized"];
-    $ndc_info   = $iter["ndc_info"];
-    $justify    = trim($iter['justify']);
-    if ($justify) $justify = substr(str_replace(':', ',', $justify), 0, strlen($justify) - 1);
-
-    // Also preserve other items from the form, if present.
-    if ($bline['id'] && !$iter["billed"]) {
-      $modifier   = trim($bline['mod']);
-      $units      = trim($bline['units']);
-      $fee        = trim($bline['fee']);
-      $authorized = $bline['auth'];
-      $ndc_info   = '';
-      if ($bline['ndcnum']) {
-        $ndc_info = 'N4' . trim($bline['ndcnum']) . '   ' . $bline['ndcuom'] .
-        trim($bline['ndcqty']);
-      }
-      $justify    = $bline['justify'];
-    }
-
-    // list($code, $modifier) = explode("-", $iter["code"]);
-    echoLine($bill_lino, $iter["code_type"], trim($iter["code"]),
-      $modifier, $ndc_info,  $authorized,
-      $del, $units, $fee, $iter["id"], $iter["billed"],
-      $iter["code_text"], $justify);
-    // If no default provider yet then try this one.
-    if ($encounter_provid < 0 && ! $del) $encounter_provid = $iter["provider_id"];
-  }
-}
-
-// Echo new billing items from this form here, but omit any line
-// whose Delete checkbox is checked.
-//
-if ($_POST['bill']) {
-  foreach ($_POST['bill'] as $key => $iter) {
-    if ($iter["id"])  continue; // skip if it came from the database
-    if ($iter["del"]) continue; // skip if Delete was checked
-    $ndc_info = '';
-    if ($iter['ndcnum']) {
-      $ndc_info = 'N4' . trim($iter['ndcnum']) . '   ' . $iter['ndcuom'] .
-      trim($iter['ndcqty']);
-    }
-    $fee = 0 + trim($iter['fee']);
-    if ($iter['code_type'] == 'COPAY' && $fee > 0) $fee = 0 - $fee;
-    echoLine(++$bill_lino, $iter["code_type"], $iter["code"], trim($iter["mod"]),
-      $ndc_info, $iter["auth"], $iter["del"], trim($iter["units"]),
-      $fee, NULL, FALSE, NULL, $iter["justify"]);
-  }
-}
-
-// Generate lines for items already in the drug_sales table for this encounter.
-//
-$query = "SELECT * FROM drug_sales WHERE " .
-  "pid = '$pid' AND encounter = '$encounter' " .
-  "ORDER BY sale_id";
-$sres = sqlStatement($query);
-$prod_lino = 0;
-while ($srow = sqlFetchArray($sres)) {
-  ++$prod_lino;
-  $pline = $_POST['prod']["$prod_lino"];
-  $del   = $pline['del']; // preserve Delete if checked
-  $sale_id = $srow['sale_id'];
-  $drug_id = $srow['drug_id'];
-  $units   = $srow['quantity'];
-  $fee     = $srow['fee'];
-  $billed  = $srow['billed'];
-  // Also preserve other items from the form, if present and unbilled.
-  if ($pline['sale_id'] && !$srow['billed']) {
-    $units      = trim($pline['units']);
-    $fee        = trim($pline['fee']);
-  }
-  echoProdLine($prod_lino, $drug_id, $del, $units, $fee, $sale_id, $billed);
-}
-
-// Echo new product items from this form here, but omit any line
-// whose Delete checkbox is checked.
-//
-if ($_POST['prod']) {
-  foreach ($_POST['prod'] as $key => $iter) {
-    if ($iter["sale_id"])  continue; // skip if it came from the database
-    if ($iter["del"]) continue; // skip if Delete was checked
-    $fee = 0 + trim($iter['fee']);
-    echoProdLine(++$prod_lino, $iter['drug_id'], FALSE, trim($iter["units"]), $fee);
-  }
-}
-
-// If new billing code(s) were <select>ed, add their line(s) here.
-//
-if ($_POST['newcodes']) {
-  $arrcodes = explode('~', $_POST['newcodes']);
-  foreach ($arrcodes as $codestring) {
-    if ($codestring === '') continue;
-    $arrcode = explode('|', $codestring);
-    $newtype = $arrcode[0];
-    $newcode = $arrcode[1];
-    $newsel  = $arrcode[2];
-    if ($newtype == 'COPAY') {
-      $tmp = sqlQuery("SELECT copay FROM insurance_data WHERE pid = '$pid' " .
-        "AND type = 'primary' ORDER BY date DESC LIMIT 1");
-      $code = sprintf('%01.2f', 0 + $tmp['copay']);
-      echoLine(++$bill_lino, $newtype, $code, '', '', '1', '0', '1',
-        sprintf('%01.2f', 0 - $code));
-    }
-    else if ($newtype == 'PROD') {
-      $result = sqlQuery("SELECT * FROM drug_templates WHERE " .
-        "drug_id = '$newcode' AND selector = '$newsel'");
-      $units = max(1, intval($result['quantity']));
-      $prrow = sqlQuery("SELECT prices.pr_price " .
-        "FROM patient_data, prices WHERE " .
-        "patient_data.pid = '$pid' AND " .
-        "prices.pr_id = '$newcode' AND " .
-        "prices.pr_selector = '$newsel' AND " .
-        "prices.pr_level = patient_data.pricelevel " .
-        "LIMIT 1");
-      $fee = empty($prrow) ? 0 : $prrow['pr_price'];
-      echoProdLine(++$prod_lino, $newcode, FALSE, $units, $fee);
-    }
-    else {
-      list($code, $modifier) = explode(":", $newcode);
-      $ndc_info = '';
-      // If HCPCS, find last NDC string used for this code.
-      if ($newtype == 'HCPCS' && $ndc_applies) {
-        $tmp = sqlQuery("SELECT ndc_info FROM billing WHERE " .
-          "code_type = '$newtype' AND code = '$code' AND ndc_info LIKE 'N4%' " .
-          "ORDER BY date DESC LIMIT 1");
-        if (!empty($tmp)) $ndc_info = $tmp['ndc_info'];
-      }
-      echoLine(++$bill_lino, $newtype, $code, trim($modifier), $ndc_info);
-    }
-  }
-}
-
-// If no valid provider yet, try setting it to that of the new encounter form.
-//
-$tmp = sqlQuery("SELECT authorized FROM users WHERE id = '$encounter_provid'");
-if (empty($tmp['authorized'])) {
-  $encounter_provid = -1;
-  $tmp = sqlQuery("SELECT users.id FROM forms, users WHERE " .
-    "forms.pid = '$pid' AND forms.encounter = '$encounter' AND " .
-    "forms.formdir='newpatient' AND users.username = forms.user AND " .
-    "users.authorized = 1");
-  if ($tmp['id']) $encounter_provid = $tmp['id'];
-}
-
-// If still no default provider then make it the logged-in user.
-//
-if ($encounter_provid < 0) $encounter_provid = $_SESSION["authUserID"];
-?>
-</table>
-</p>
-
-<br>
-&nbsp;
-
-<span class="billcell"><?php xl('PROVIDER:','e');?></span>
-
-<?php
-// Build a drop-down list of providers.  This includes users who
-// have the word "provider" anywhere in their "additional info"
-// field, so that we can define providers (for billing purposes)
-// who do not appear in the calendar.
-//
-$query = "SELECT id, lname, fname FROM users WHERE " .
-  "( authorized = 1 OR info LIKE '%provider%' ) AND username != '' " .
-  "ORDER BY lname, fname";
-$res = sqlStatement($query);
-
-echo "   <select name='ProviderID'>\n";
-echo "    <option value=''>-- Please Select --\n";
-
-while ($row = sqlFetchArray($res)) {
-  $provid = $row['id'];
-  echo "    <option value='$provid'";
-  if ($provid == $encounter_provid) echo " selected";
-  echo ">" . $row['lname'] . ", " . $row['fname'] . "\n";
-}
-
-echo "   </select>\n";
-?>
-
-&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
-
-<input type='submit' name='bn_save' value='<?php xl('Save','e');?>' />
-&nbsp;
-<input type='submit' name='bn_refresh' value='<?php xl('Refresh','e');?>'>
-&nbsp;
-<input type='button' value='<?php xl('Cancel','e');?>'
- onclick="top.restoreSession();location='<? echo "$rootdir/patient_file/encounter/$returnurl" ?>'" />
-
-<?php if ($code_types['UCSMC']) { ?>
-<p style='font-family:sans-serif;font-size:8pt;color:#666666;'>
-&nbsp;<br>
-<?php xl('UCSMC codes provided by the University of Calgary Sports Medicine Centre','e');?>
-</p>
-<? } ?>
-
-</center>
-
-</form>
-
-<?php
-// TBD: If $alertmsg, display it with a JavaScript alert().
-?>
-
-<script language='JavaScript'>
-<?php echo $justinit; ?>
-</script>
-
-</body>
-</html>
+<?php
+//////////////////////////////////////////////////////////////////////
+// ------------------ DO NOT MODIFY VIEW.PHP !!! ---------------------
+// View.php is an exact duplicate of new.php.  If you wish to make
+// any changes, then change new.php and either (recommended) make
+// view.php a symbolic link to new.php, or copy new.php to view.php.
+//
+// And if you check in a change to either module, be sure to check
+// in the other (identical) module also.
+//
+// This nonsense will go away if we ever move to subversion.
+//////////////////////////////////////////////////////////////////////
+
+// Copyright (C) 2005-2008 Rod Roark <rod@sunsetsystems.com>
+//
+// This program is free software; you can redistribute it and/or
+// modify it under the terms of the GNU General Public License
+// as published by the Free Software Foundation; either version 2
+// of the License, or (at your option) any later version.
+
+require_once("../../globals.php");
+require_once("$srcdir/acl.inc");
+require_once("$srcdir/api.inc");
+require_once("codes.php");
+require_once("../../../custom/code_types.inc.php");
+require_once("../../drugs/drugs.inc.php");
+
+// Possible units of measure for NDC drug quantities.
+//
+$ndc_uom_choices = array(
+  'ML' => 'ML',
+  'GR' => 'Grams',
+  'F2' => 'I.U.',
+  'UN' => 'Units'
+);
+
+// $FEE_SHEET_COLUMNS should be defined in codes.php.
+if (empty($FEE_SHEET_COLUMNS)) $FEE_SHEET_COLUMNS = 2;
+
+$returnurl = $GLOBALS['concurrent_layout'] ? 'encounter_top.php' : 'patient_encounter.php';
+
+// If Save was clicked, save the new and modified billing lines;
+// then if no error, redirect to $returnurl.
+//
+if ($_POST['bn_save']) {
+  $provid = $_POST['ProviderID'];
+  if (! $provid) $provid = $_SESSION["authUserID"];
+
+  $bill = $_POST['bill'];
+  for ($lino = 1; $bill["$lino"]['code_type']; ++$lino) {
+    $iter = $bill["$lino"];
+
+    // Skip disabled (billed) line items.
+    if ($iter['billed']) continue;
+
+    $id        = $iter['id'];
+    $code_type = $iter['code_type'];
+    $code      = $iter['code'];
+    $modifier  = trim($iter['mod']);
+    $units     = max(1, intval(trim($iter['units'])));
+    $fee       = 0 + trim($iter['fee']);
+    if ($code_type == 'COPAY') {
+      if ($fee > 0) $fee = 0 - $fee;
+      $code = sprintf('%01.2f', 0 - $fee);
+    }
+    $justify   = trim($iter['justify']);
+    if ($justify) $justify = str_replace(',', ':', $justify) . ':';
+    // $auth      = $iter['auth'] ? "1" : "0";
+    $auth      = "1";
+    $del       = $iter['del'];
+
+    $ndc_info = '';
+    if ($iter['ndcnum']) {
+    $ndc_info = 'N4' . trim($iter['ndcnum']) . '   ' . $iter['ndcuom'] .
+      trim($iter['ndcqty']);
+    }
+
+    // If the item is already in the database...
+    if ($id) {
+      if ($del) {
+        deleteBilling($id);
+      }
+      else {
+        // authorizeBilling($id, $auth);
+        sqlQuery("UPDATE billing SET code = '$code', " .
+          "units = '$units', fee = '$fee', modifier = '$modifier', " .
+          "authorized = $auth, provider_id = '$provid', " .
+          "ndc_info = '$ndc_info', justify = '$justify' WHERE " .
+          "id = '$id' AND billed = 0 AND activity = 1");
+      }
+    }
+
+    // Otherwise it's a new item...
+    else if (! $del) {
+      $query = "select code_text from codes where code_type = '" .
+        $code_types[$code_type]['id'] . "' and " .
+        "code = '$code' and ";
+      if ($modifier) {
+        $query .= "modifier = '$modifier'";
+      } else {
+        $query .= "(modifier is null or modifier = '')";
+      }
+      $result = sqlQuery($query);
+      $code_text = addslashes($result['code_text']);
+      addBilling($encounter, $code_type, $code, $code_text, $pid, $auth,
+        $provid, $modifier, $units, $fee, $ndc_info, $justify);
+    }
+  } // end for
+
+  // Doing similarly to the above but for products.
+  $prod = $_POST['prod'];
+  for ($lino = 1; $prod["$lino"]['drug_id']; ++$lino) {
+    $iter = $prod["$lino"];
+
+    if (!empty($iter['billed'])) continue;
+
+    $drug_id   = $iter['drug_id'];
+    $sale_id   = $iter['sale_id']; // present only if already saved
+    $units     = max(1, intval(trim($iter['units'])));
+    $fee       = 0 + trim($iter['fee']);
+    $del       = $iter['del'];
+
+    // If the item is already in the database...
+    if ($sale_id) {
+      if ($del) {
+        // Zero out this sale and reverse its inventory update.  We bring in
+        // drug_sales twice so that the original quantity can be referenced
+        // unambiguously.
+        sqlStatement("UPDATE drug_sales AS dsr, drug_sales AS ds, " .
+          "drug_inventory AS di " .
+          "SET di.on_hand = di.on_hand + dsr.quantity, " .
+          "ds.quantity = 0, ds.fee = 0 WHERE " .
+          "dsr.sale_id = '$sale_id' AND ds.sale_id = dsr.sale_id AND " .
+          "di.inventory_id = ds.inventory_id");
+        // And delete the sale for good measure.
+        sqlStatement("DELETE FROM drug_sales WHERE sale_id = '$sale_id'");
+      }
+      else {
+        // Modify the sale and adjust inventory accordingly.
+        $query = "UPDATE drug_sales AS dsr, drug_sales AS ds, " .
+          "drug_inventory AS di " .
+          "SET di.on_hand = di.on_hand + dsr.quantity - $units, " .
+          "ds.quantity = '$units', ds.fee = '$fee' WHERE " .
+          "dsr.sale_id = '$sale_id' AND ds.sale_id = dsr.sale_id AND " .
+          "di.inventory_id = ds.inventory_id";
+        sqlStatement($query);
+      }
+    }
+
+    // Otherwise it's a new item...
+    else if (! $del) {
+      $sale_id = sellDrug($drug_id, $units, $fee, $pid, $encounter);
+      if (!$sale_id) die("Insufficient inventory for product ID \"$drug_id\".");
+    }
+  } // end for
+
+  // Note: I was going to compute taxes here, but now I think better to
+  // do that at checkout time (in pos_checkout.php which also posts to SL).
+  // Currently taxes with insurance claims make no sense, so for now we'll
+  // ignore tax computation in the insurance billing logic.
+
+  formHeader("Redirecting....");
+  formJump();
+  formFooter();
+  exit;
+}
+
+$billresult = getBillingByEncounter($pid, $encounter, "*");
+?>
+<html>
+<head>
+<?php html_header_show(); ?>
+<link rel=stylesheet href="<?echo $css_header;?>" type="text/css">
+<style>
+.billcell { font-family: sans-serif; font-size: 10pt }
+</style>
+<script language="JavaScript">
+
+var diags = new Array();
+
+<?php
+// Generate JavaScript to build the array of diagnoses.
+function genDiagJS($code_type, $code) {
+  if ($code_type == 'ICD9') {
+    echo "diags.push('$code');\n";
+  }
+}
+if ($billresult) {
+  foreach ($billresult as $iter) {
+    genDiagJS($iter["code_type"], trim($iter["code"]));
+  }
+}
+if ($_POST['bill']) {
+  foreach ($_POST['bill'] as $iter) {
+    if ($iter["del"]) continue; // skip if Delete was checked
+    if ($iter["id"])  continue; // skip if it came from the database
+    genDiagJS($iter["code_type"], $iter["code"]);
+  }
+}
+if ($_POST['newcodes']) {
+  $arrcodes = explode('~', $_POST['newcodes']);
+  foreach ($arrcodes as $codestring) {
+    if ($codestring === '') continue;
+    $arrcode = explode('|', $codestring);
+    list($code, $modifier) = explode(":", $arrcode[1]);
+    genDiagJS($arrcode[0], $code);
+  }
+}
+?>
+
+// This is invoked by <select onchange> for the various dropdowns,
+// including search results.
+function codeselect(selobj) {
+ var i = selobj.selectedIndex;
+ if (i > 0) {
+  top.restoreSession();
+  var f = document.forms[0];
+  f.newcodes.value = selobj.options[i].value;
+  f.submit();
+ }
+}
+
+function copayselect() {
+ top.restoreSession();
+ var f = document.forms[0];
+ f.newcodes.value = 'COPAY||';
+ f.submit();
+}
+
+function validate(f) {
+ for (var lino = 1; f['bill['+lino+'][code_type]']; ++lino) {
+  var pfx = 'bill['+lino+']';
+  if (f[pfx+'[ndcnum]'] && f[pfx+'[ndcnum]'].value) {
+   // Check NDC number format.
+   var ndcok = true;
+   var ndc = f[pfx+'[ndcnum]'].value;
+   var a = ndc.split('-');
+   if (a.length != 3) {
+    ndcok = false;
+   }
+   else if (a[0].length < 1 || a[1].length < 1 || a[2].length < 1 ||
+    a[0].length > 5 || a[1].length > 4 || a[2].length > 2) {
+    ndcok = false;
+   }
+   else {
+    for (var i = 0; i < 3; ++i) {
+     for (var j = 0; j < a[i].length; ++j) {
+      var c = a[i].charAt(j);
+      if (c < '0' || c > '9') ndcok = false;
+     }
+    }
+   }
+   if (!ndcok) {
+    alert('<?php xl('Format incorrect for NDC','e') ?> "' + ndc +
+     '", <?php xl('should be like nnnnn-nnnn-nn','e') ?>');
+    if (f[pfx+'[ndcnum]'].focus) f[pfx+'[ndcnum]'].focus();
+    return false;
+   }
+   // Check for valid quantity.
+   var qty = f[pfx+'[ndcqty]'].value - 0;
+   if (isNaN(qty) || qty <= 0) {
+    alert('<?php xl('Quantity for NDC','e') ?> "' + ndc +
+     '" <?php xl('is not valid (decimal fractions are OK).','e') ?>');
+    if (f[pfx+'[ndcqty]'].focus) f[pfx+'[ndcqty]'].focus();
+    return false;
+   }
+  }
+ }
+ top.restoreSession();
+ return true;
+}
+
+// When a justify selection is made, apply it to the current list for
+// this procedure and then rebuild its selection list.
+//
+function setJustify(seljust) {
+ var theopts = seljust.options;
+ var jdisplay = theopts[0].text;
+ // Compute revised justification string.  Note this does nothing if
+ // the first entry is still selected, which is handy at startup.
+ if (seljust.selectedIndex > 0) {
+  var newdiag = seljust.value;
+  if (newdiag.length == 0) {
+   jdisplay = '';
+  }
+  else {
+   if (jdisplay.length) jdisplay += ',';
+   jdisplay += newdiag;
+  }
+ }
+ // Rebuild selection list.
+ var jhaystack = ',' + jdisplay + ',';
+ var j = 0;
+ theopts.length = 0;
+ theopts[j++] = new Option(jdisplay,jdisplay,true,true);
+ for (var i = 0; i < diags.length; ++i) {
+  if (jhaystack.indexOf(',' + diags[i] + ',') < 0) {
+   theopts[j++] = new Option(diags[i],diags[i],false,false);
+  }
+ }
+ theopts[j++] = new Option('Clear','',false,false);
+}
+
+</script>
+</head>
+
+<body <?echo $top_bg_line;?> topmargin="0" rightmargin="0" leftmargin="2"
+ bottommargin="0" marginwidth="2" marginheight="0">
+<form method="post" action="<?php echo $rootdir; ?>/forms/fee_sheet/new.php"
+ onsubmit="return validate(this)">
+<span class="title"><? echo ($GLOBALS['phone_country_code'] == '1') ? 'Fee' : 'Coding' ?> <?php xl('Sheet','e');?></span><br>
+<input type='hidden' name='newcodes' value=''>
+
+<center>
+<table width='95%'>
+<?php
+$i = 0;
+$last_category = '';
+
+// Helper function for creating drop-lists.
+function endFSCategory() {
+  global $i, $last_category, $FEE_SHEET_COLUMNS;
+  if (! $last_category) return;
+  echo "   </select>\n";
+  echo "  </td>\n";
+  if ($i >= $FEE_SHEET_COLUMNS) {
+    echo " </tr>\n";
+    $i = 0;
+  }
+}
+
+// Create all the drop-lists of preselected service codes.
+$res = sqlStatement("SELECT * FROM fee_sheet_options " .
+  "ORDER BY fs_category, fs_option");
+while ($row = sqlFetchArray($res)) {
+  $fs_category = $row['fs_category'];
+  $fs_option   = $row['fs_option'];
+  $fs_codes    = $row['fs_codes'];
+  if($fs_category !== $last_category) {
+    endFSCategory();
+    $last_category = $fs_category;
+    ++$i;
+    echo ($i <= 1) ? " <tr>\n" : "";
+    echo "  <td width='50%' align='center' nowrap>\n";
+    echo "   <select style='width:96%' onchange='codeselect(this)'>\n";
+    echo "    <option value=''> " . substr($fs_category, 1) . "\n";
+  }
+  echo "    <option value='$fs_codes'>" . substr($fs_option, 1) . "\n";
+}
+endFSCategory();
+
+// Create one more drop-list, for Products.
+if ($GLOBALS['sell_non_drug_products']) {
+  ++$i;
+  echo ($i <= 1) ? " <tr>\n" : "";
+  echo "  <td width='50%' align='center' nowrap>\n";
+  echo "   <select name='Products' style='width:96%' onchange='codeselect(this)'>\n";
+  echo "    <option value=''> " . xl('Products') . "\n";
+  $tres = sqlStatement("SELECT dt.drug_id, dt.selector, d.name " .
+    "FROM drug_templates AS dt, drugs AS d WHERE " .
+    "d.drug_id = dt.drug_id " .
+    "ORDER BY d.name, dt.selector, dt.drug_id");
+  while ($trow = sqlFetchArray($tres)) {
+    echo "    <option value='PROD|" . $trow['drug_id'] . '|' . $trow['selector'] . "'>" .
+      $trow['drug_id'] . ':' . $trow['selector'] . ' ' . $trow['name'] . "</option>\n";
+  }
+  echo "   </select>\n";
+  echo "  </td>\n";
+  if ($i >= $FEE_SHEET_COLUMNS) {
+    echo " </tr>\n";
+    $i = 0;
+  }
+}
+
+$search_type = $default_search_type;
+if ($_POST['search_type']) $search_type = $_POST['search_type'];
+
+$ndc_applies = true; // Assume all payers require NDC info.
+
+echo $i ? "  <td></td>\n </tr>\n" : "";
+echo " <tr>\n";
+echo "  <td colspan='$FEE_SHEET_COLUMNS' align='center' nowrap>\n";
+
+// If Search was clicked, do it and write the list of results here.
+// There's no limit on the number of results!
+//
+$numrows = 0;
+if ($_POST['bn_search'] && $_POST['search_term']) {
+  $query = "select code, modifier, code_text from codes where " .
+    "(code_text like '%" . $_POST['search_term'] . "%' or " .
+    "code like '%" . $_POST['search_term'] . "%') and " .
+    "code_type = '" . $code_types[$search_type]['id'] . "' " .
+    "order by code";
+  $res = sqlStatement($query);
+  $numrows = mysql_num_rows($res); // FIXME - not portable!
+}
+
+echo "   <select name='Search Results' style='width:98%' " .
+  "onchange='codeselect(this)'";
+if (! $numrows) echo ' disabled';
+echo ">\n";
+echo "    <option value=''> Search Results ($numrows items)\n";
+
+if ($numrows) {
+  while ($row = sqlFetchArray($res)) {
+    $code = $row['code'];
+    if ($row['modifier']) $code .= ":" . $row['modifier'];
+    echo "    <option value='$search_type|$code|'>$code " .
+      ucfirst(strtolower($row['code_text'])) . "</option>\n";
+  }
+}
+
+echo "   </select>\n";
+echo "  </td>\n";
+echo " </tr>\n";
+?>
+
+</table>
+
+<p style='margin-top:8px;margin-bottom:8px'>
+<table>
+ <tr>
+  <td>
+   <input type='button' value='<?php xl('Add Copay','e');?>'
+    onclick="copayselect()" />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+  </td>
+  <td>
+   <?php xl('Search','e'); ?>&nbsp;
+<?
+  foreach ($code_types as $key => $value) {
+    echo "   <input type='radio' name='search_type' value='$key'";
+    if ($key == $default_search_type) echo " checked";
+    echo " />$key&nbsp;\n";
+  }
+?>
+   <?php xl('for','e'); ?>&nbsp;
+  </td>
+  <td>
+   <input type='text' name='search_term' value=''> &nbsp;
+  </td>
+  <td>
+   <input type='submit' name='bn_search' value='<?php xl('Search','e');?>'>
+  </td>
+ </tr>
+</table>
+</p>
+
+<p style='margin-top:16px;margin-bottom:8px'>
+<table cellspacing='5'>
+ <tr>
+  <td class='billcell'><b><?php xl('Type','e');?></b></td>
+  <td class='billcell'><b><?php xl('Code','e');?></b></td>
+<? if (modifiers_are_used()) { ?>
+  <td class='billcell'><b><?php xl('Mod','e');?></b></td>
+<? } ?>
+<? if (fees_are_used()) { ?>
+  <td class='billcell' align='center'><b><?php xl('Units','e');?></b></td>
+  <td class='billcell' align='right'><b><?php xl('Fee','e');?></b>&nbsp;</td>
+  <td class='billcell' align='center'><b><?php xl('Justify','e');?></b></td>
+<? } ?>
+  <td class='billcell' align='center'><b><?php xl('Auth','e');?></b></td>
+  <td class='billcell' align='center'><b><?php xl('Delete','e');?></b></td>
+  <td class='billcell'><b><?php xl('Description','e');?></b></td>
+ </tr>
+
+<?php
+$justinit = "var f = document.forms[0];\n";
+
+// This writes a billing line item to the output page.
+//
+function echoLine($lino, $codetype, $code, $modifier, $ndc_info='',
+  $auth = TRUE, $del = FALSE, $units = NULL, $fee = NULL, $id = NULL,
+  $billed = FALSE, $code_text = NULL, $justify = NULL)
+{
+  global $code_types, $ndc_applies, $ndc_uom_choices, $justinit, $pid;
+
+  if ($codetype == 'COPAY') {
+    if (!$code_text) $code_text = 'Cash';
+    if ($fee > 0) $fee = 0 - $fee;
+  }
+  if (! $code_text) {
+    // $query = "select units, fee, code_text from codes where code_type = '" .
+    $query = "select id, units, code_text from codes where code_type = '" .
+      $code_types[$codetype]['id'] . "' and " .
+      "code = '$code' and ";
+    if ($modifier) {
+      $query .= "modifier = '$modifier'";
+    } else {
+      $query .= "(modifier is null or modifier = '')";
+    }
+    $result = sqlQuery($query);
+    $code_text = $result['code_text'];
+    if (empty($units)) $units = max(1, intval($result['units']));
+    if (!isset($fee)) {
+      // $fee = $result['fee'];
+      // The above is obsolete now, fees come from the prices table:
+      $query = "SELECT prices.pr_price " .
+        "FROM patient_data, prices WHERE " .
+        "patient_data.pid = '$pid' AND " .
+        "prices.pr_id = '" . $result['id'] . "' AND " .
+        "prices.pr_selector = '' AND " .
+        "prices.pr_level = patient_data.pricelevel " .
+        "LIMIT 1";
+      echo "\n<!-- $query -->\n"; // debugging
+      $prrow = sqlQuery($query);
+      $fee = empty($prrow) ? 0 : $prrow['pr_price'];
+    }
+  }
+  $fee = sprintf('%01.2f', $fee);
+  $strike1 = ($id && $del) ? "<strike>" : "";
+  $strike2 = ($id && $del) ? "</strike>" : "";
+  echo " <tr>\n";
+  echo "  <td class='billcell'>$strike1$codetype$strike2";
+  if ($id) {
+    echo "<input type='hidden' name='bill[$lino][id]' value='$id'>";
+  }
+  echo "<input type='hidden' name='bill[$lino][code_type]' value='$codetype'>";
+  echo "<input type='hidden' name='bill[$lino][code]' value='$code'>";
+  echo "<input type='hidden' name='bill[$lino][billed]' value='$billed'>";
+  echo "</td>\n";
+  if ($codetype != 'COPAY') {
+    echo "  <td class='billcell'>$strike1$code$strike2</td>\n";
+  } else {
+    echo "  <td class='billcell'>&nbsp;</td>\n";
+  }
+  if ($billed) {
+    if (modifiers_are_used()) {
+      echo "  <td class='billcell'>$strike1$modifier$strike2" .
+        "<input type='hidden' name='bill[$lino][mod]' value='$modifier'></td>\n";
+    }
+    if (fees_are_used()) {
+      if ($codetype != 'COPAY') {
+        echo "  <td class='billcell' align='center'>$units</td>\n";
+      } else {
+        echo "  <td class='billcell'>&nbsp;</td>\n";
+      }
+      echo "  <td class='billcell' align='right'>$fee</td>\n";
+      echo "  <td class='billcell' align='center'>$justify</td>\n";
+    }
+    echo "  <td class='billcell' align='center'><input type='checkbox'" .
+      ($auth ? " checked" : "") . " disabled /></td>\n";
+    echo "  <td class='billcell' align='center'><input type='checkbox'" .
+      " disabled /></td>\n";
+  } else {
+    if (modifiers_are_used()) {
+      if ($codetype != 'COPAY' && ($code_types[$codetype]['mod'] || $modifier)) {
+        echo "  <td class='billcell'><input type='text' name='bill[$lino][mod]' " .
+          "value='$modifier' size='" . $code_types[$codetype]['mod'] . "'></td>\n";
+      } else {
+        echo "  <td class='billcell'>&nbsp;</td>\n";
+      }
+    }
+    if (fees_are_used()) {
+      if ($codetype == 'COPAY' || $code_types[$codetype]['fee'] || $fee != 0) {
+        echo "  <td class='billcell' align='center'>";
+        if ($codetype != 'COPAY') {
+          echo "<input type='text' name='bill[$lino][units]' " .
+          "value='$units' size='2' style='text-align:right'>";
+        } else {
+          echo "<input type='hidden' name='bill[$lino][units]' value='$units'>";
+        }
+        echo "</td>\n";
+        echo "  <td class='billcell' align='right'>" .
+          "<input type='text' name='bill[$lino][fee]' " .
+          "value='$fee' size='6'";
+        if (acl_check('acct','disc'))
+          echo " style='text-align:right'";
+        else
+          echo " style='text-align:right;background-color:transparent' readonly";
+        echo "></td>\n";
+        if ($code_types[$codetype]['just'] || $justify) {
+          echo "  <td class='billcell' align='center'>";
+          echo "<select name='bill[$lino][justify]' onchange='setJustify(this)'>";
+          echo "<option value='$justify'>$justify</option></select>";
+          echo "</td>\n";
+          $justinit .= "setJustify(f['bill[$lino][justify]']);\n";
+        } else {
+          echo "  <td class='billcell'>&nbsp;</td>\n";
+        }
+      } else {
+        echo "  <td class='billcell'>&nbsp;</td>\n";
+        echo "  <td class='billcell'>&nbsp;</td>\n";
+        echo "  <td class='billcell'>&nbsp;</td>\n";
+      }
+    }
+    echo "  <td class='billcell' align='center'><input type='checkbox' name='bill[$lino][auth]' " .
+      "value='1'" . ($auth ? " checked" : "") . " /></td>\n";
+    echo "  <td class='billcell' align='center'><input type='checkbox' name='bill[$lino][del]' " .
+      "value='1'" . ($del ? " checked" : "") . " /></td>\n";
+  }
+
+  echo "  <td class='billcell'>$strike1" . ucfirst(strtolower($code_text)) . "$strike2</td>\n";
+  echo " </tr>\n";
+
+  // If NDC info exists or may be required, add a line for it.
+  if ($codetype == 'HCPCS' && $ndc_applies && !$billed) {
+    $ndcnum = ''; $ndcuom = ''; $ndcqty = '';
+    if (preg_match('/^N4(\S+)\s+(\S\S)(.*)/', $ndc_info, $tmp)) {
+      $ndcnum = $tmp[1]; $ndcuom = $tmp[2]; $ndcqty = $tmp[3];
+    }
+    echo " <tr>\n";
+    echo "  <td class='billcell' colspan='2'>&nbsp;</td>\n";
+    echo "  <td class='billcell' colspan='6'>&nbsp;NDC:&nbsp;";
+    echo "<input type='text' name='bill[$lino][ndcnum]' value='$ndcnum' " .
+      "size='11' style='background-color:transparent'>";
+    echo " &nbsp;Qty:&nbsp;";
+    echo "<input type='text' name='bill[$lino][ndcqty]' value='$ndcqty' " .
+      "size='3' style='background-color:transparent;text-align:right'>";
+    echo " ";
+    echo "<select name='bill[$lino][ndcuom]' style='background-color:transparent'>";
+    foreach ($ndc_uom_choices as $key => $value) {
+      echo "<option value='$key'";
+      if ($key == $ndcuom) echo " selected";
+      echo ">$value</option>";
+    }
+    echo "</select>";
+    echo "</td>\n";
+    echo " </tr>\n";
+  }
+  else if ($ndc_info) {
+    echo " <tr>\n";
+    echo "  <td class='billcell' colspan='2'>&nbsp;</td>\n";
+    echo "  <td class='billcell' colspan='6'>&nbsp;NDC Data: $ndc_info</td>\n";
+    echo " </tr>\n";
+  }
+}
+
+// This writes a product (drug_sales) line item to the output page.
+//
+function echoProdLine($lino, $drug_id, $del = FALSE, $units = NULL,
+  $fee = NULL, $sale_id = 0, $billed = FALSE)
+{
+  global $code_types, $ndc_applies, $pid;
+
+  /*******************************************************************
+  list ($drug_id, $selector) = explode(':', $drugsel);
+  if (! $units) { // if this is a new selection then apply defaults for it
+    $query = "SELECT dt.*, d.name FROM drug_templates, drugs WHERE " .
+      "dt.drug_id = '$drug_id' AND dt.selector = '$selector' AND " .
+      "d.drug_id = dt.drug_id";
+    $result = sqlQuery($query);
+    $code_text = $result['name'] . " ($selector)";
+    if (empty($units)) $units = max(1, intval($result['quantity']));
+    if (!isset($fee)) {
+      // Fees come from the prices table:
+      $query = "SELECT prices.pr_price " .
+        "FROM patient_data, prices WHERE " .
+        "patient_data.pid = '$pid' AND " .
+        "prices.pr_id = '$drug_id' AND " .
+        "prices.pr_selector = '$selector' AND " .
+        "prices.pr_level = patient_data.pricelevel " .
+        "LIMIT 1";
+      // echo "\n<!-- $query -->\n"; // debugging
+      $prrow = sqlQuery($query);
+      $fee = empty($prrow) ? 0 : $prrow['pr_price'];
+    }
+  }
+  *******************************************************************/
+  $drow = sqlQuery("SELECT name FROM drugs WHERE drug_id = '$drug_id'");
+  $code_text = $drow['name'];
+  /******************************************************************/
+
+  $fee = sprintf('%01.2f', $fee);
+  $strike1 = ($sale_id && $del) ? "<strike>" : "";
+  $strike2 = ($sale_id && $del) ? "</strike>" : "";
+  echo " <tr>\n";
+  echo "  <td class='billcell'>{$strike1}Product$strike2";
+  echo "<input type='hidden' name='prod[$lino][sale_id]' value='$sale_id'>";
+  echo "<input type='hidden' name='prod[$lino][drug_id]' value='$drug_id'>";
+  echo "<input type='hidden' name='prod[$lino][billed]' value='$billed'>";
+  echo "</td>\n";
+  echo "  <td class='billcell'>$strike1$drug_id$strike2</td>\n";
+  if (modifiers_are_used()) {
+    echo "  <td class='billcell'>&nbsp;</td>\n";
+  }
+  if ($billed) {
+    if (fees_are_used()) {
+      echo "  <td class='billcell' align='center'>$units</td>\n";
+      echo "  <td class='billcell' align='right'>$fee</td>\n";
+      echo "  <td class='billcell' align='center'>&nbsp;</td>\n";         // justify
+    }
+    echo "  <td class='billcell' align='center'>&nbsp;</td>\n";           // auth
+    echo "  <td class='billcell' align='center'><input type='checkbox'" . // del
+      " disabled /></td>\n";
+  } else {
+    if (fees_are_used()) {
+      echo "  <td class='billcell' align='center'>";
+      echo "<input type='text' name='prod[$lino][units]' " .
+        "value='$units' size='2' style='text-align:right'>";
+      echo "</td>\n";
+      echo "  <td class='billcell' align='right'>" .
+        "<input type='text' name='prod[$lino][fee]' " .
+        "value='$fee' size='6'";
+      if (acl_check('acct','disc'))
+        echo " style='text-align:right'";
+      else
+        echo " style='text-align:right;background-color:transparent' readonly";
+      echo "></td>\n";
+      echo "  <td class='billcell'>&nbsp;</td>\n";
+    }
+    echo "  <td class='billcell' align='center'>&nbsp;</td>\n"; // auth
+    echo "  <td class='billcell' align='center'><input type='checkbox' name='prod[$lino][del]' " .
+      "value='1'" . ($del ? " checked" : "") . " /></td>\n";
+  }
+
+  echo "  <td class='billcell'>$strike1" . ucfirst(strtolower($code_text)) . "$strike2</td>\n";
+  echo " </tr>\n";
+}
+
+$encounter_provid = -1;
+
+// Generate lines for items already in the billing table for this encounter,
+// and also set the rendering provider if we come across one.
+//
+$bill_lino = 0;
+if ($billresult) {
+  foreach ($billresult as $iter) {
+    ++$bill_lino;
+    $bline = $_POST['bill']["$bill_lino"];
+    $del = $bline['del']; // preserve Delete if checked
+
+    $modifier   = trim($iter["modifier"]);
+    $units      = $iter["units"];
+    $fee        = $iter["fee"];
+    $authorized = $iter["authorized"];
+    $ndc_info   = $iter["ndc_info"];
+    $justify    = trim($iter['justify']);
+    if ($justify) $justify = substr(str_replace(':', ',', $justify), 0, strlen($justify) - 1);
+
+    // Also preserve other items from the form, if present.
+    if ($bline['id'] && !$iter["billed"]) {
+      $modifier   = trim($bline['mod']);
+      $units      = trim($bline['units']);
+      $fee        = trim($bline['fee']);
+      $authorized = $bline['auth'];
+      $ndc_info   = '';
+      if ($bline['ndcnum']) {
+        $ndc_info = 'N4' . trim($bline['ndcnum']) . '   ' . $bline['ndcuom'] .
+        trim($bline['ndcqty']);
+      }
+      $justify    = $bline['justify'];
+    }
+
+    // list($code, $modifier) = explode("-", $iter["code"]);
+    echoLine($bill_lino, $iter["code_type"], trim($iter["code"]),
+      $modifier, $ndc_info,  $authorized,
+      $del, $units, $fee, $iter["id"], $iter["billed"],
+      $iter["code_text"], $justify);
+    // If no default provider yet then try this one.
+    if ($encounter_provid < 0 && ! $del) $encounter_provid = $iter["provider_id"];
+  }
+}
+
+// Echo new billing items from this form here, but omit any line
+// whose Delete checkbox is checked.
+//
+if ($_POST['bill']) {
+  foreach ($_POST['bill'] as $key => $iter) {
+    if ($iter["id"])  continue; // skip if it came from the database
+    if ($iter["del"]) continue; // skip if Delete was checked
+    $ndc_info = '';
+    if ($iter['ndcnum']) {
+      $ndc_info = 'N4' . trim($iter['ndcnum']) . '   ' . $iter['ndcuom'] .
+      trim($iter['ndcqty']);
+    }
+    $fee = 0 + trim($iter['fee']);
+    if ($iter['code_type'] == 'COPAY' && $fee > 0) $fee = 0 - $fee;
+    echoLine(++$bill_lino, $iter["code_type"], $iter["code"], trim($iter["mod"]),
+      $ndc_info, $iter["auth"], $iter["del"], trim($iter["units"]),
+      $fee, NULL, FALSE, NULL, $iter["justify"]);
+  }
+}
+
+// Generate lines for items already in the drug_sales table for this encounter.
+//
+$query = "SELECT * FROM drug_sales WHERE " .
+  "pid = '$pid' AND encounter = '$encounter' " .
+  "ORDER BY sale_id";
+$sres = sqlStatement($query);
+$prod_lino = 0;
+while ($srow = sqlFetchArray($sres)) {
+  ++$prod_lino;
+  $pline = $_POST['prod']["$prod_lino"];
+  $del   = $pline['del']; // preserve Delete if checked
+  $sale_id = $srow['sale_id'];
+  $drug_id = $srow['drug_id'];
+  $units   = $srow['quantity'];
+  $fee     = $srow['fee'];
+  $billed  = $srow['billed'];
+  // Also preserve other items from the form, if present and unbilled.
+  if ($pline['sale_id'] && !$srow['billed']) {
+    $units      = trim($pline['units']);
+    $fee        = trim($pline['fee']);
+  }
+  echoProdLine($prod_lino, $drug_id, $del, $units, $fee, $sale_id, $billed);
+}
+
+// Echo new product items from this form here, but omit any line
+// whose Delete checkbox is checked.
+//
+if ($_POST['prod']) {
+  foreach ($_POST['prod'] as $key => $iter) {
+    if ($iter["sale_id"])  continue; // skip if it came from the database
+    if ($iter["del"]) continue; // skip if Delete was checked
+    $fee = 0 + trim($iter['fee']);
+    echoProdLine(++$prod_lino, $iter['drug_id'], FALSE, trim($iter["units"]), $fee);
+  }
+}
+
+// If new billing code(s) were <select>ed, add their line(s) here.
+//
+if ($_POST['newcodes']) {
+  $arrcodes = explode('~', $_POST['newcodes']);
+  foreach ($arrcodes as $codestring) {
+    if ($codestring === '') continue;
+    $arrcode = explode('|', $codestring);
+    $newtype = $arrcode[0];
+    $newcode = $arrcode[1];
+    $newsel  = $arrcode[2];
+    if ($newtype == 'COPAY') {
+      $tmp = sqlQuery("SELECT copay FROM insurance_data WHERE pid = '$pid' " .
+        "AND type = 'primary' ORDER BY date DESC LIMIT 1");
+      $code = sprintf('%01.2f', 0 + $tmp['copay']);
+      echoLine(++$bill_lino, $newtype, $code, '', '', '1', '0', '1',
+        sprintf('%01.2f', 0 - $code));
+    }
+    else if ($newtype == 'PROD') {
+      $result = sqlQuery("SELECT * FROM drug_templates WHERE " .
+        "drug_id = '$newcode' AND selector = '$newsel'");
+      $units = max(1, intval($result['quantity']));
+      $prrow = sqlQuery("SELECT prices.pr_price " .
+        "FROM patient_data, prices WHERE " .
+        "patient_data.pid = '$pid' AND " .
+        "prices.pr_id = '$newcode' AND " .
+        "prices.pr_selector = '$newsel' AND " .
+        "prices.pr_level = patient_data.pricelevel " .
+        "LIMIT 1");
+      $fee = empty($prrow) ? 0 : $prrow['pr_price'];
+      echoProdLine(++$prod_lino, $newcode, FALSE, $units, $fee);
+    }
+    else {
+      list($code, $modifier) = explode(":", $newcode);
+      $ndc_info = '';
+      // If HCPCS, find last NDC string used for this code.
+      if ($newtype == 'HCPCS' && $ndc_applies) {
+        $tmp = sqlQuery("SELECT ndc_info FROM billing WHERE " .
+          "code_type = '$newtype' AND code = '$code' AND ndc_info LIKE 'N4%' " .
+          "ORDER BY date DESC LIMIT 1");
+        if (!empty($tmp)) $ndc_info = $tmp['ndc_info'];
+      }
+      echoLine(++$bill_lino, $newtype, $code, trim($modifier), $ndc_info);
+    }
+  }
+}
+
+// If no valid provider yet, try setting it to that of the new encounter form.
+//
+$tmp = sqlQuery("SELECT authorized FROM users WHERE id = '$encounter_provid'");
+if (empty($tmp['authorized'])) {
+  $encounter_provid = -1;
+  $tmp = sqlQuery("SELECT users.id FROM forms, users WHERE " .
+    "forms.pid = '$pid' AND forms.encounter = '$encounter' AND " .
+    "forms.formdir='newpatient' AND users.username = forms.user AND " .
+    "users.authorized = 1");
+  if ($tmp['id']) $encounter_provid = $tmp['id'];
+}
+
+// If still no default provider then make it the logged-in user.
+//
+if ($encounter_provid < 0) $encounter_provid = $_SESSION["authUserID"];
+?>
+</table>
+</p>
+
+<br>
+&nbsp;
+
+<span class="billcell"><?php xl('PROVIDER:','e');?></span>
+
+<?php
+// Build a drop-down list of providers.  This includes users who
+// have the word "provider" anywhere in their "additional info"
+// field, so that we can define providers (for billing purposes)
+// who do not appear in the calendar.
+//
+$query = "SELECT id, lname, fname FROM users WHERE " .
+  "( authorized = 1 OR info LIKE '%provider%' ) AND username != '' " .
+  "ORDER BY lname, fname";
+$res = sqlStatement($query);
+
+echo "   <select name='ProviderID'>\n";
+echo "    <option value=''>-- Please Select --\n";
+
+while ($row = sqlFetchArray($res)) {
+  $provid = $row['id'];
+  echo "    <option value='$provid'";
+  if ($provid == $encounter_provid) echo " selected";
+  echo ">" . $row['lname'] . ", " . $row['fname'] . "\n";
+}
+
+echo "   </select>\n";
+?>
+
+&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
+
+<input type='submit' name='bn_save' value='<?php xl('Save','e');?>' />
+&nbsp;
+<input type='submit' name='bn_refresh' value='<?php xl('Refresh','e');?>'>
+&nbsp;
+<input type='button' value='<?php xl('Cancel','e');?>'
+ onclick="top.restoreSession();location='<? echo "$rootdir/patient_file/encounter/$returnurl" ?>'" />
+
+<?php if ($code_types['UCSMC']) { ?>
+<p style='font-family:sans-serif;font-size:8pt;color:#666666;'>
+&nbsp;<br>
+<?php xl('UCSMC codes provided by the University of Calgary Sports Medicine Centre','e');?>
+</p>
+<? } ?>
+
+</center>
+
+</form>
+
+<?php
+// TBD: If $alertmsg, display it with a JavaScript alert().
+?>
+
+<script language='JavaScript'>
+<?php echo $justinit; ?>
+</script>
+
+</body>
+</html>
diff --git a/interface/forms/fee_sheet/view.php b/interface/forms/fee_sheet/view.php
index 5e3a8b85e..de1618592 100644
--- a/interface/forms/fee_sheet/view.php
+++ b/interface/forms/fee_sheet/view.php
@@ -1,922 +1,933 @@
-<?php
-//////////////////////////////////////////////////////////////////////
-// ------------------ DO NOT MODIFY VIEW.PHP !!! ---------------------
-// View.php is an exact duplicate of new.php.  If you wish to make
-// any changes, then change new.php and either (recommended) make
-// view.php a symbolic link to new.php, or copy new.php to view.php.
-//
-// And if you check in a change to either module, be sure to check
-// in the other (identical) module also.
-//
-// This nonsense will go away if we ever move to subversion.
-//////////////////////////////////////////////////////////////////////
-
-// Copyright (C) 2005-2008 Rod Roark <rod@sunsetsystems.com>
-//
-// This program is free software; you can redistribute it and/or
-// modify it under the terms of the GNU General Public License
-// as published by the Free Software Foundation; either version 2
-// of the License, or (at your option) any later version.
-
-require_once("../../globals.php");
-require_once("$srcdir/api.inc");
-require_once("codes.php");
-require_once("../../../custom/code_types.inc.php");
-require_once("../../drugs/drugs.inc.php");
-
-// Possible units of measure for NDC drug quantities.
-//
-$ndc_uom_choices = array(
-  'ML' => 'ML',
-  'GR' => 'Grams',
-  'F2' => 'I.U.',
-  'UN' => 'Units'
-);
-
-// $FEE_SHEET_COLUMNS should be defined in codes.php.
-if (empty($FEE_SHEET_COLUMNS)) $FEE_SHEET_COLUMNS = 2;
-
-$returnurl = $GLOBALS['concurrent_layout'] ? 'encounter_top.php' : 'patient_encounter.php';
-
-// If Save was clicked, save the new and modified billing lines;
-// then if no error, redirect to $returnurl.
-//
-if ($_POST['bn_save']) {
-  $provid = $_POST['ProviderID'];
-  if (! $provid) $provid = $_SESSION["authUserID"];
-
-  $bill = $_POST['bill'];
-  for ($lino = 1; $bill["$lino"]['code_type']; ++$lino) {
-    $iter = $bill["$lino"];
-
-    // Skip disabled (billed) line items.
-    if ($iter['billed']) continue;
-
-    $id        = $iter['id'];
-    $code_type = $iter['code_type'];
-    $code      = $iter['code'];
-    $modifier  = trim($iter['mod']);
-    $units     = max(1, intval(trim($iter['units'])));
-    $fee       = 0 + trim($iter['fee']);
-    if ($code_type == 'COPAY') {
-      if ($fee > 0) $fee = 0 - $fee;
-      $code = sprintf('%01.2f', 0 - $fee);
-    }
-    $justify   = trim($iter['justify']);
-    if ($justify) $justify = str_replace(',', ':', $justify) . ':';
-    // $auth      = $iter['auth'] ? "1" : "0";
-    $auth      = "1";
-    $del       = $iter['del'];
-
-    $ndc_info = '';
-    if ($iter['ndcnum']) {
-    $ndc_info = 'N4' . trim($iter['ndcnum']) . '   ' . $iter['ndcuom'] .
-      trim($iter['ndcqty']);
-    }
-
-    // If the item is already in the database...
-    if ($id) {
-      if ($del) {
-        deleteBilling($id);
-      }
-      else {
-        // authorizeBilling($id, $auth);
-        sqlQuery("UPDATE billing SET code = '$code', " .
-          "units = '$units', fee = '$fee', modifier = '$modifier', " .
-          "authorized = $auth, provider_id = '$provid', " .
-          "ndc_info = '$ndc_info', justify = '$justify' WHERE " .
-          "id = '$id' AND billed = 0 AND activity = 1");
-      }
-    }
-
-    // Otherwise it's a new item...
-    else if (! $del) {
-      $query = "select code_text from codes where code_type = '" .
-        $code_types[$code_type]['id'] . "' and " .
-        "code = '$code' and ";
-      if ($modifier) {
-        $query .= "modifier = '$modifier'";
-      } else {
-        $query .= "(modifier is null or modifier = '')";
-      }
-      $result = sqlQuery($query);
-      $code_text = addslashes($result['code_text']);
-      addBilling($encounter, $code_type, $code, $code_text, $pid, $auth,
-        $provid, $modifier, $units, $fee, $ndc_info, $justify);
-    }
-  } // end for
-
-  // Doing similarly to the above but for products.
-  $prod = $_POST['prod'];
-  for ($lino = 1; $prod["$lino"]['drug_id']; ++$lino) {
-    $iter = $prod["$lino"];
-
-    if (!empty($iter['billed'])) continue;
-
-    $drug_id   = $iter['drug_id'];
-    $sale_id   = $iter['sale_id']; // present only if already saved
-    $units     = max(1, intval(trim($iter['units'])));
-    $fee       = 0 + trim($iter['fee']);
-    $del       = $iter['del'];
-
-    // If the item is already in the database...
-    if ($sale_id) {
-      if ($del) {
-        // Zero out this sale and reverse its inventory update.  We bring in
-        // drug_sales twice so that the original quantity can be referenced
-        // unambiguously.
-        sqlStatement("UPDATE drug_sales AS dsr, drug_sales AS ds, " .
-          "drug_inventory AS di " .
-          "SET di.on_hand = di.on_hand + dsr.quantity, " .
-          "ds.quantity = 0, ds.fee = 0 WHERE " .
-          "dsr.sale_id = '$sale_id' AND ds.sale_id = dsr.sale_id AND " .
-          "di.inventory_id = ds.inventory_id");
-        // And delete the sale for good measure.
-        sqlStatement("DELETE FROM drug_sales WHERE sale_id = '$sale_id'");
-      }
-      else {
-        // Modify the sale and adjust inventory accordingly.
-        $query = "UPDATE drug_sales AS dsr, drug_sales AS ds, " .
-          "drug_inventory AS di " .
-          "SET di.on_hand = di.on_hand + dsr.quantity - $units, " .
-          "ds.quantity = '$units', ds.fee = '$fee' WHERE " .
-          "dsr.sale_id = '$sale_id' AND ds.sale_id = dsr.sale_id AND " .
-          "di.inventory_id = ds.inventory_id";
-        sqlStatement($query);
-      }
-    }
-
-    // Otherwise it's a new item...
-    else if (! $del) {
-      $sale_id = sellDrug($drug_id, $units, $fee, $pid, $encounter);
-      if (!$sale_id) die("Insufficient inventory for product ID \"$drug_id\".");
-    }
-  } // end for
-
-  // Note: I was going to compute taxes here, but now I think better to
-  // do that at checkout time (in pos_checkout.php which also posts to SL).
-  // Currently taxes with insurance claims make no sense, so for now we'll
-  // ignore tax computation in the insurance billing logic.
-
-  formHeader("Redirecting....");
-  formJump();
-  formFooter();
-  exit;
-}
-
-$billresult = getBillingByEncounter($pid, $encounter, "*");
-?>
-<html>
-<head>
-<? html_header_show();?>
-<link rel=stylesheet href="<?echo $css_header;?>" type="text/css">
-<style>
-.billcell { font-family: sans-serif; font-size: 10pt }
-</style>
-<script language="JavaScript">
-
-var diags = new Array();
-
-<?php
-// Generate JavaScript to build the array of diagnoses.
-function genDiagJS($code_type, $code) {
-  if ($code_type == 'ICD9') {
-    echo "diags.push('$code');\n";
-  }
-}
-if ($billresult) {
-  foreach ($billresult as $iter) {
-    genDiagJS($iter["code_type"], trim($iter["code"]));
-  }
-}
-if ($_POST['bill']) {
-  foreach ($_POST['bill'] as $iter) {
-    if ($iter["del"]) continue; // skip if Delete was checked
-    if ($iter["id"])  continue; // skip if it came from the database
-    genDiagJS($iter["code_type"], $iter["code"]);
-  }
-}
-if ($_POST['newcodes']) {
-  $arrcodes = explode('~', $_POST['newcodes']);
-  foreach ($arrcodes as $codestring) {
-    if ($codestring === '') continue;
-    $arrcode = explode('|', $codestring);
-    list($code, $modifier) = explode(":", $arrcode[1]);
-    genDiagJS($arrcode[0], $code);
-  }
-}
-?>
-
-// This is invoked by <select onchange> for the various dropdowns,
-// including search results.
-function codeselect(selobj) {
- var i = selobj.selectedIndex;
- if (i > 0) {
-  top.restoreSession();
-  var f = document.forms[0];
-  f.newcodes.value = selobj.options[i].value;
-  f.submit();
- }
-}
-
-function copayselect() {
- top.restoreSession();
- var f = document.forms[0];
- f.newcodes.value = 'COPAY||';
- f.submit();
-}
-
-function validate(f) {
- for (var lino = 1; f['bill['+lino+'][code_type]']; ++lino) {
-  var pfx = 'bill['+lino+']';
-  if (f[pfx+'[ndcnum]'] && f[pfx+'[ndcnum]'].value) {
-   // Check NDC number format.
-   var ndcok = true;
-   var ndc = f[pfx+'[ndcnum]'].value;
-   var a = ndc.split('-');
-   if (a.length != 3) {
-    ndcok = false;
-   }
-   else if (a[0].length < 1 || a[1].length < 1 || a[2].length < 1 ||
-    a[0].length > 5 || a[1].length > 4 || a[2].length > 2) {
-    ndcok = false;
-   }
-   else {
-    for (var i = 0; i < 3; ++i) {
-     for (var j = 0; j < a[i].length; ++j) {
-      var c = a[i].charAt(j);
-      if (c < '0' || c > '9') ndcok = false;
-     }
-    }
-   }
-   if (!ndcok) {
-    alert('<?php xl('Format incorrect for NDC','e') ?> "' + ndc +
-     '", <?php xl('should be like nnnnn-nnnn-nn','e') ?>');
-    if (f[pfx+'[ndcnum]'].focus) f[pfx+'[ndcnum]'].focus();
-    return false;
-   }
-   // Check for valid quantity.
-   var qty = f[pfx+'[ndcqty]'].value - 0;
-   if (isNaN(qty) || qty <= 0) {
-    alert('<?php xl('Quantity for NDC','e') ?> "' + ndc +
-     '" <?php xl('is not valid (decimal fractions are OK).','e') ?>');
-    if (f[pfx+'[ndcqty]'].focus) f[pfx+'[ndcqty]'].focus();
-    return false;
-   }
-  }
- }
- top.restoreSession();
- return true;
-}
-
-// When a justify selection is made, apply it to the current list for
-// this procedure and then rebuild its selection list.
-//
-function setJustify(seljust) {
- var theopts = seljust.options;
- var jdisplay = theopts[0].text;
- // Compute revised justification string.  Note this does nothing if
- // the first entry is still selected, which is handy at startup.
- if (seljust.selectedIndex > 0) {
-  var newdiag = seljust.value;
-  if (newdiag.length == 0) {
-   jdisplay = '';
-  }
-  else {
-   if (jdisplay.length) jdisplay += ',';
-   jdisplay += newdiag;
-  }
- }
- // Rebuild selection list.
- var jhaystack = ',' + jdisplay + ',';
- var j = 0;
- theopts.length = 0;
- theopts[j++] = new Option(jdisplay,jdisplay,true,true);
- for (var i = 0; i < diags.length; ++i) {
-  if (jhaystack.indexOf(',' + diags[i] + ',') < 0) {
-   theopts[j++] = new Option(diags[i],diags[i],false,false);
-  }
- }
- theopts[j++] = new Option('Clear','',false,false);
-}
-
-</script>
-</head>
-
-<body <?echo $top_bg_line;?> topmargin="0" rightmargin="0" leftmargin="2"
- bottommargin="0" marginwidth="2" marginheight="0">
-<form method="post" action="<?php echo $rootdir; ?>/forms/fee_sheet/new.php"
- onsubmit="return validate(this)">
-<span class="title"><? echo ($GLOBALS['phone_country_code'] == '1') ? 'Fee' : 'Coding' ?> <?php xl('Sheet','e');?></span><br>
-<input type='hidden' name='newcodes' value=''>
-
-<center>
-<table width='95%'>
-<?php
-$i = 0;
-$last_category = '';
-
-// Helper function for creating drop-lists.
-function endFSCategory() {
-  global $i, $last_category, $FEE_SHEET_COLUMNS;
-  if (! $last_category) return;
-  echo "   </select>\n";
-  echo "  </td>\n";
-  if ($i >= $FEE_SHEET_COLUMNS) {
-    echo " </tr>\n";
-    $i = 0;
-  }
-}
-
-// Create all the drop-lists of preselected service codes.
-$res = sqlStatement("SELECT * FROM fee_sheet_options " .
-  "ORDER BY fs_category, fs_option");
-while ($row = sqlFetchArray($res)) {
-  $fs_category = $row['fs_category'];
-  $fs_option   = $row['fs_option'];
-  $fs_codes    = $row['fs_codes'];
-  if($fs_category !== $last_category) {
-    endFSCategory();
-    $last_category = $fs_category;
-    ++$i;
-    echo ($i <= 1) ? " <tr>\n" : "";
-    echo "  <td width='50%' align='center' nowrap>\n";
-    echo "   <select style='width:96%' onchange='codeselect(this)'>\n";
-    echo "    <option value=''> " . substr($fs_category, 1) . "\n";
-  }
-  echo "    <option value='$fs_codes'>" . substr($fs_option, 1) . "\n";
-}
-endFSCategory();
-
-// Create one more drop-list, for Products.
-if ($GLOBALS['sell_non_drug_products']) {
-  ++$i;
-  echo ($i <= 1) ? " <tr>\n" : "";
-  echo "  <td width='50%' align='center' nowrap>\n";
-  echo "   <select name='Products' style='width:96%' onchange='codeselect(this)'>\n";
-  echo "    <option value=''> " . xl('Products') . "\n";
-  $tres = sqlStatement("SELECT dt.drug_id, dt.selector, d.name " .
-    "FROM drug_templates AS dt, drugs AS d WHERE " .
-    "d.drug_id = dt.drug_id " .
-    "ORDER BY d.name, dt.selector, dt.drug_id");
-  while ($trow = sqlFetchArray($tres)) {
-    echo "    <option value='PROD|" . $trow['drug_id'] . '|' . $trow['selector'] . "'>" .
-      $trow['drug_id'] . ':' . $trow['selector'] . ' ' . $trow['name'] . "</option>\n";
-  }
-  echo "   </select>\n";
-  echo "  </td>\n";
-  if ($i >= $FEE_SHEET_COLUMNS) {
-    echo " </tr>\n";
-    $i = 0;
-  }
-}
-
-$search_type = $default_search_type;
-if ($_POST['search_type']) $search_type = $_POST['search_type'];
-
-$ndc_applies = true; // Assume all payers require NDC info.
-
-echo $i ? "  <td></td>\n </tr>\n" : "";
-echo " <tr>\n";
-echo "  <td colspan='$FEE_SHEET_COLUMNS' align='center' nowrap>\n";
-
-// If Search was clicked, do it and write the list of results here.
-// There's no limit on the number of results!
-//
-$numrows = 0;
-if ($_POST['bn_search'] && $_POST['search_term']) {
-  $query = "select code, modifier, code_text from codes where " .
-    "(code_text like '%" . $_POST['search_term'] . "%' or " .
-    "code like '%" . $_POST['search_term'] . "%') and " .
-    "code_type = '" . $code_types[$search_type]['id'] . "' " .
-    "order by code";
-  $res = sqlStatement($query);
-  $numrows = mysql_num_rows($res); // FIXME - not portable!
-}
-
-echo "   <select name='Search Results' style='width:98%' " .
-  "onchange='codeselect(this)'";
-if (! $numrows) echo ' disabled';
-echo ">\n";
-echo "    <option value=''> Search Results ($numrows items)\n";
-
-if ($numrows) {
-  while ($row = sqlFetchArray($res)) {
-    $code = $row['code'];
-    if ($row['modifier']) $code .= ":" . $row['modifier'];
-    echo "    <option value='$search_type|$code|'>$code " .
-      ucfirst(strtolower($row['code_text'])) . "</option>\n";
-  }
-}
-
-echo "   </select>\n";
-echo "  </td>\n";
-echo " </tr>\n";
-?>
-
-</table>
-
-<p style='margin-top:8px;margin-bottom:8px'>
-<table>
- <tr>
-  <td>
-   <input type='button' value='<?php xl('Add Copay','e');?>'
-    onclick="copayselect()" />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-  </td>
-  <td>
-   <?php xl('Search','e'); ?>&nbsp;
-<?
-  foreach ($code_types as $key => $value) {
-    echo "   <input type='radio' name='search_type' value='$key'";
-    if ($key == $default_search_type) echo " checked";
-    echo " />$key&nbsp;\n";
-  }
-?>
-   <?php xl('for','e'); ?>&nbsp;
-  </td>
-  <td>
-   <input type='text' name='search_term' value=''> &nbsp;
-  </td>
-  <td>
-   <input type='submit' name='bn_search' value='<?php xl('Search','e');?>'>
-  </td>
- </tr>
-</table>
-</p>
-
-<p style='margin-top:16px;margin-bottom:8px'>
-<table cellspacing='5'>
- <tr>
-  <td class='billcell'><b><?php xl('Type','e');?></b></td>
-  <td class='billcell'><b><?php xl('Code','e');?></b></td>
-<? if (modifiers_are_used()) { ?>
-  <td class='billcell'><b><?php xl('Mod','e');?></b></td>
-<? } ?>
-<? if (fees_are_used()) { ?>
-  <td class='billcell' align='center'><b><?php xl('Units','e');?></b></td>
-  <td class='billcell' align='right'><b><?php xl('Fee','e');?></b>&nbsp;</td>
-  <td class='billcell' align='center'><b><?php xl('Justify','e');?></b></td>
-<? } ?>
-  <td class='billcell' align='center'><b><?php xl('Auth','e');?></b></td>
-  <td class='billcell' align='center'><b><?php xl('Delete','e');?></b></td>
-  <td class='billcell'><b><?php xl('Description','e');?></b></td>
- </tr>
-
-<?php
-$justinit = "var f = document.forms[0];\n";
-
-// This writes a billing line item to the output page.
-//
-function echoLine($lino, $codetype, $code, $modifier, $ndc_info='',
-  $auth = TRUE, $del = FALSE, $units = NULL, $fee = NULL, $id = NULL,
-  $billed = FALSE, $code_text = NULL, $justify = NULL)
-{
-  global $code_types, $ndc_applies, $ndc_uom_choices, $justinit, $pid;
-
-  if ($codetype == 'COPAY') {
-    if (!$code_text) $code_text = 'Cash';
-    if ($fee > 0) $fee = 0 - $fee;
-  }
-  if (! $code_text) {
-    // $query = "select units, fee, code_text from codes where code_type = '" .
-    $query = "select id, units, code_text from codes where code_type = '" .
-      $code_types[$codetype]['id'] . "' and " .
-      "code = '$code' and ";
-    if ($modifier) {
-      $query .= "modifier = '$modifier'";
-    } else {
-      $query .= "(modifier is null or modifier = '')";
-    }
-    $result = sqlQuery($query);
-    $code_text = $result['code_text'];
-    if (empty($units)) $units = max(1, intval($result['units']));
-    if (!isset($fee)) {
-      // $fee = $result['fee'];
-      // The above is obsolete now, fees come from the prices table:
-      $query = "SELECT prices.pr_price " .
-        "FROM patient_data, prices WHERE " .
-        "patient_data.pid = '$pid' AND " .
-        "prices.pr_id = '" . $result['id'] . "' AND " .
-        "prices.pr_selector = '' AND " .
-        "prices.pr_level = patient_data.pricelevel " .
-        "LIMIT 1";
-      echo "\n<!-- $query -->\n"; // debugging
-      $prrow = sqlQuery($query);
-      $fee = empty($prrow) ? 0 : $prrow['pr_price'];
-    }
-  }
-  $fee = sprintf('%01.2f', $fee);
-  $strike1 = ($id && $del) ? "<strike>" : "";
-  $strike2 = ($id && $del) ? "</strike>" : "";
-  echo " <tr>\n";
-  echo "  <td class='billcell'>$strike1$codetype$strike2";
-  if ($id) {
-    echo "<input type='hidden' name='bill[$lino][id]' value='$id'>";
-  }
-  echo "<input type='hidden' name='bill[$lino][code_type]' value='$codetype'>";
-  echo "<input type='hidden' name='bill[$lino][code]' value='$code'>";
-  echo "<input type='hidden' name='bill[$lino][billed]' value='$billed'>";
-  echo "</td>\n";
-  if ($codetype != 'COPAY') {
-    echo "  <td class='billcell'>$strike1$code$strike2</td>\n";
-  } else {
-    echo "  <td class='billcell'>&nbsp;</td>\n";
-  }
-  if ($billed) {
-    if (modifiers_are_used()) {
-      echo "  <td class='billcell'>$strike1$modifier$strike2" .
-        "<input type='hidden' name='bill[$lino][mod]' value='$modifier'></td>\n";
-    }
-    if (fees_are_used()) {
-      if ($codetype != 'COPAY') {
-        echo "  <td class='billcell' align='center'>$units</td>\n";
-      } else {
-        echo "  <td class='billcell'>&nbsp;</td>\n";
-      }
-      echo "  <td class='billcell' align='right'>$fee</td>\n";
-      echo "  <td class='billcell' align='center'>$justify</td>\n";
-    }
-    echo "  <td class='billcell' align='center'><input type='checkbox'" .
-      ($auth ? " checked" : "") . " disabled /></td>\n";
-    echo "  <td class='billcell' align='center'><input type='checkbox'" .
-      " disabled /></td>\n";
-  } else {
-    if (modifiers_are_used()) {
-      if ($codetype != 'COPAY' && ($code_types[$codetype]['mod'] || $modifier)) {
-        echo "  <td class='billcell'><input type='text' name='bill[$lino][mod]' " .
-          "value='$modifier' size='" . $code_types[$codetype]['mod'] . "'></td>\n";
-      } else {
-        echo "  <td class='billcell'>&nbsp;</td>\n";
-      }
-    }
-    if (fees_are_used()) {
-      if ($codetype == 'COPAY' || $code_types[$codetype]['fee'] || $fee != 0) {
-        echo "  <td class='billcell' align='center'>";
-        if ($codetype != 'COPAY') {
-          echo "<input type='text' name='bill[$lino][units]' " .
-          "value='$units' size='2' style='text-align:right'>";
-        } else {
-          echo "<input type='hidden' name='bill[$lino][units]' value='$units'>";
-        }
-        echo "</td>\n";
-        echo "  <td class='billcell' align='right'>" .
-          "<input type='text' name='bill[$lino][fee]' " .
-          "value='$fee' size='6' style='text-align:right'></td>\n";
-        if ($code_types[$codetype]['just'] || $justify) {
-          echo "  <td class='billcell' align='center'>";
-          echo "<select name='bill[$lino][justify]' onchange='setJustify(this)'>";
-          echo "<option value='$justify'>$justify</option></select>";
-          echo "</td>\n";
-          $justinit .= "setJustify(f['bill[$lino][justify]']);\n";
-        } else {
-          echo "  <td class='billcell'>&nbsp;</td>\n";
-        }
-      } else {
-        echo "  <td class='billcell'>&nbsp;</td>\n";
-        echo "  <td class='billcell'>&nbsp;</td>\n";
-        echo "  <td class='billcell'>&nbsp;</td>\n";
-      }
-    }
-    echo "  <td class='billcell' align='center'><input type='checkbox' name='bill[$lino][auth]' " .
-      "value='1'" . ($auth ? " checked" : "") . " /></td>\n";
-    echo "  <td class='billcell' align='center'><input type='checkbox' name='bill[$lino][del]' " .
-      "value='1'" . ($del ? " checked" : "") . " /></td>\n";
-  }
-
-  echo "  <td class='billcell'>$strike1" . ucfirst(strtolower($code_text)) . "$strike2</td>\n";
-  echo " </tr>\n";
-
-  // If NDC info exists or may be required, add a line for it.
-  if ($codetype == 'HCPCS' && $ndc_applies && !$billed) {
-    $ndcnum = ''; $ndcuom = ''; $ndcqty = '';
-    if (preg_match('/^N4(\S+)\s+(\S\S)(.*)/', $ndc_info, $tmp)) {
-      $ndcnum = $tmp[1]; $ndcuom = $tmp[2]; $ndcqty = $tmp[3];
-    }
-    echo " <tr>\n";
-    echo "  <td class='billcell' colspan='2'>&nbsp;</td>\n";
-    echo "  <td class='billcell' colspan='6'>&nbsp;NDC:&nbsp;";
-    echo "<input type='text' name='bill[$lino][ndcnum]' value='$ndcnum' " .
-      "size='11' style='background-color:transparent'>";
-    echo " &nbsp;Qty:&nbsp;";
-    echo "<input type='text' name='bill[$lino][ndcqty]' value='$ndcqty' " .
-      "size='3' style='background-color:transparent;text-align:right'>";
-    echo " ";
-    echo "<select name='bill[$lino][ndcuom]' style='background-color:transparent'>";
-    foreach ($ndc_uom_choices as $key => $value) {
-      echo "<option value='$key'";
-      if ($key == $ndcuom) echo " selected";
-      echo ">$value</option>";
-    }
-    echo "</select>";
-    echo "</td>\n";
-    echo " </tr>\n";
-  }
-  else if ($ndc_info) {
-    echo " <tr>\n";
-    echo "  <td class='billcell' colspan='2'>&nbsp;</td>\n";
-    echo "  <td class='billcell' colspan='6'>&nbsp;NDC Data: $ndc_info</td>\n";
-    echo " </tr>\n";
-  }
-}
-
-// This writes a product (drug_sales) line item to the output page.
-//
-function echoProdLine($lino, $drug_id, $del = FALSE, $units = NULL,
-  $fee = NULL, $sale_id = 0, $billed = FALSE)
-{
-  global $code_types, $ndc_applies, $pid;
-
-  /*******************************************************************
-  list ($drug_id, $selector) = explode(':', $drugsel);
-  if (! $units) { // if this is a new selection then apply defaults for it
-    $query = "SELECT dt.*, d.name FROM drug_templates, drugs WHERE " .
-      "dt.drug_id = '$drug_id' AND dt.selector = '$selector' AND " .
-      "d.drug_id = dt.drug_id";
-    $result = sqlQuery($query);
-    $code_text = $result['name'] . " ($selector)";
-    if (empty($units)) $units = max(1, intval($result['quantity']));
-    if (!isset($fee)) {
-      // Fees come from the prices table:
-      $query = "SELECT prices.pr_price " .
-        "FROM patient_data, prices WHERE " .
-        "patient_data.pid = '$pid' AND " .
-        "prices.pr_id = '$drug_id' AND " .
-        "prices.pr_selector = '$selector' AND " .
-        "prices.pr_level = patient_data.pricelevel " .
-        "LIMIT 1";
-      // echo "\n<!-- $query -->\n"; // debugging
-      $prrow = sqlQuery($query);
-      $fee = empty($prrow) ? 0 : $prrow['pr_price'];
-    }
-  }
-  *******************************************************************/
-  $drow = sqlQuery("SELECT name FROM drugs WHERE drug_id = '$drug_id'");
-  $code_text = $drow['name'];
-  /******************************************************************/
-
-  $fee = sprintf('%01.2f', $fee);
-  $strike1 = ($sale_id && $del) ? "<strike>" : "";
-  $strike2 = ($sale_id && $del) ? "</strike>" : "";
-  echo " <tr>\n";
-  echo "  <td class='billcell'>{$strike1}Product$strike2";
-  echo "<input type='hidden' name='prod[$lino][sale_id]' value='$sale_id'>";
-  echo "<input type='hidden' name='prod[$lino][drug_id]' value='$drug_id'>";
-  echo "<input type='hidden' name='prod[$lino][billed]' value='$billed'>";
-  echo "</td>\n";
-  echo "  <td class='billcell'>$strike1$drug_id$strike2</td>\n";
-  if (modifiers_are_used()) {
-    echo "  <td class='billcell'>&nbsp;</td>\n";
-  }
-  if ($billed) {
-    if (fees_are_used()) {
-      echo "  <td class='billcell' align='center'>$units</td>\n";
-      echo "  <td class='billcell' align='right'>$fee</td>\n";
-      echo "  <td class='billcell' align='center'>&nbsp;</td>\n";         // justify
-    }
-    echo "  <td class='billcell' align='center'>&nbsp;</td>\n";           // auth
-    echo "  <td class='billcell' align='center'><input type='checkbox'" . // del
-      " disabled /></td>\n";
-  } else {
-    if (fees_are_used()) {
-      echo "  <td class='billcell' align='center'>";
-      echo "<input type='text' name='prod[$lino][units]' " .
-        "value='$units' size='2' style='text-align:right'>";
-      echo "</td>\n";
-      echo "  <td class='billcell' align='right'>" .
-        "<input type='text' name='prod[$lino][fee]' " .
-        "value='$fee' size='6' style='text-align:right'></td>\n";
-      echo "  <td class='billcell'>&nbsp;</td>\n";
-    }
-    echo "  <td class='billcell' align='center'>&nbsp;</td>\n"; // auth
-    echo "  <td class='billcell' align='center'><input type='checkbox' name='prod[$lino][del]' " .
-      "value='1'" . ($del ? " checked" : "") . " /></td>\n";
-  }
-
-  echo "  <td class='billcell'>$strike1" . ucfirst(strtolower($code_text)) . "$strike2</td>\n";
-  echo " </tr>\n";
-}
-
-$encounter_provid = -1;
-
-// Generate lines for items already in the billing table for this encounter,
-// and also set the rendering provider if we come across one.
-//
-$bill_lino = 0;
-if ($billresult) {
-  foreach ($billresult as $iter) {
-    ++$bill_lino;
-    $bline = $_POST['bill']["$bill_lino"];
-    $del = $bline['del']; // preserve Delete if checked
-
-    $modifier   = trim($iter["modifier"]);
-    $units      = $iter["units"];
-    $fee        = $iter["fee"];
-    $authorized = $iter["authorized"];
-    $ndc_info   = $iter["ndc_info"];
-    $justify    = trim($iter['justify']);
-    if ($justify) $justify = substr(str_replace(':', ',', $justify), 0, strlen($justify) - 1);
-
-    // Also preserve other items from the form, if present.
-    if ($bline['id'] && !$iter["billed"]) {
-      $modifier   = trim($bline['mod']);
-      $units      = trim($bline['units']);
-      $fee        = trim($bline['fee']);
-      $authorized = $bline['auth'];
-      $ndc_info   = '';
-      if ($bline['ndcnum']) {
-        $ndc_info = 'N4' . trim($bline['ndcnum']) . '   ' . $bline['ndcuom'] .
-        trim($bline['ndcqty']);
-      }
-      $justify    = $bline['justify'];
-    }
-
-    // list($code, $modifier) = explode("-", $iter["code"]);
-    echoLine($bill_lino, $iter["code_type"], trim($iter["code"]),
-      $modifier, $ndc_info,  $authorized,
-      $del, $units, $fee, $iter["id"], $iter["billed"],
-      $iter["code_text"], $justify);
-    // If no default provider yet then try this one.
-    if ($encounter_provid < 0 && ! $del) $encounter_provid = $iter["provider_id"];
-  }
-}
-
-// Echo new billing items from this form here, but omit any line
-// whose Delete checkbox is checked.
-//
-if ($_POST['bill']) {
-  foreach ($_POST['bill'] as $key => $iter) {
-    if ($iter["id"])  continue; // skip if it came from the database
-    if ($iter["del"]) continue; // skip if Delete was checked
-    $ndc_info = '';
-    if ($iter['ndcnum']) {
-      $ndc_info = 'N4' . trim($iter['ndcnum']) . '   ' . $iter['ndcuom'] .
-      trim($iter['ndcqty']);
-    }
-    $fee = 0 + trim($iter['fee']);
-    if ($iter['code_type'] == 'COPAY' && $fee > 0) $fee = 0 - $fee;
-    echoLine(++$bill_lino, $iter["code_type"], $iter["code"], trim($iter["mod"]),
-      $ndc_info, $iter["auth"], $iter["del"], trim($iter["units"]),
-      $fee, NULL, FALSE, NULL, $iter["justify"]);
-  }
-}
-
-// Generate lines for items already in the drug_sales table for this encounter.
-//
-$query = "SELECT * FROM drug_sales WHERE " .
-  "pid = '$pid' AND encounter = '$encounter' " .
-  "ORDER BY sale_id";
-$sres = sqlStatement($query);
-$prod_lino = 0;
-while ($srow = sqlFetchArray($sres)) {
-  ++$prod_lino;
-  $pline = $_POST['prod']["$prod_lino"];
-  $del   = $pline['del']; // preserve Delete if checked
-  $sale_id = $srow['sale_id'];
-  $drug_id = $srow['drug_id'];
-  $units   = $srow['quantity'];
-  $fee     = $srow['fee'];
-  $billed  = $srow['billed'];
-  // Also preserve other items from the form, if present and unbilled.
-  if ($pline['sale_id'] && !$srow['billed']) {
-    $units      = trim($pline['units']);
-    $fee        = trim($pline['fee']);
-  }
-  echoProdLine($prod_lino, $drug_id, $del, $units, $fee, $sale_id, $billed);
-}
-
-// Echo new product items from this form here, but omit any line
-// whose Delete checkbox is checked.
-//
-if ($_POST['prod']) {
-  foreach ($_POST['prod'] as $key => $iter) {
-    if ($iter["sale_id"])  continue; // skip if it came from the database
-    if ($iter["del"]) continue; // skip if Delete was checked
-    $fee = 0 + trim($iter['fee']);
-    echoProdLine(++$prod_lino, $iter['drug_id'], FALSE, trim($iter["units"]), $fee);
-  }
-}
-
-// If new billing code(s) were <select>ed, add their line(s) here.
-//
-if ($_POST['newcodes']) {
-  $arrcodes = explode('~', $_POST['newcodes']);
-  foreach ($arrcodes as $codestring) {
-    if ($codestring === '') continue;
-    $arrcode = explode('|', $codestring);
-    $newtype = $arrcode[0];
-    $newcode = $arrcode[1];
-    $newsel  = $arrcode[2];
-    if ($newtype == 'COPAY') {
-      $tmp = sqlQuery("SELECT copay FROM insurance_data WHERE pid = '$pid' " .
-        "AND type = 'primary' ORDER BY date DESC LIMIT 1");
-      $code = sprintf('%01.2f', 0 + $tmp['copay']);
-      echoLine(++$bill_lino, $newtype, $code, '', '', '1', '0', '1',
-        sprintf('%01.2f', 0 - $code));
-    }
-    else if ($newtype == 'PROD') {
-      $result = sqlQuery("SELECT * FROM drug_templates WHERE " .
-        "drug_id = '$newcode' AND selector = '$newsel'");
-      $units = max(1, intval($result['quantity']));
-      $prrow = sqlQuery("SELECT prices.pr_price " .
-        "FROM patient_data, prices WHERE " .
-        "patient_data.pid = '$pid' AND " .
-        "prices.pr_id = '$newcode' AND " .
-        "prices.pr_selector = '$newsel' AND " .
-        "prices.pr_level = patient_data.pricelevel " .
-        "LIMIT 1");
-      $fee = empty($prrow) ? 0 : $prrow['pr_price'];
-      echoProdLine(++$prod_lino, $newcode, FALSE, $units, $fee);
-    }
-    else {
-      list($code, $modifier) = explode(":", $newcode);
-      $ndc_info = '';
-      // If HCPCS, find last NDC string used for this code.
-      if ($newtype == 'HCPCS' && $ndc_applies) {
-        $tmp = sqlQuery("SELECT ndc_info FROM billing WHERE " .
-          "code_type = '$newtype' AND code = '$code' AND ndc_info LIKE 'N4%' " .
-          "ORDER BY date DESC LIMIT 1");
-        if (!empty($tmp)) $ndc_info = $tmp['ndc_info'];
-      }
-      echoLine(++$bill_lino, $newtype, $code, trim($modifier), $ndc_info);
-    }
-  }
-}
-
-// If no valid provider yet, try setting it to that of the new encounter form.
-//
-$tmp = sqlQuery("SELECT authorized FROM users WHERE id = '$encounter_provid'");
-if (empty($tmp['authorized'])) {
-  $encounter_provid = -1;
-  $tmp = sqlQuery("SELECT users.id FROM forms, users WHERE " .
-    "forms.pid = '$pid' AND forms.encounter = '$encounter' AND " .
-    "forms.formdir='newpatient' AND users.username = forms.user AND " .
-    "users.authorized = 1");
-  if ($tmp['id']) $encounter_provid = $tmp['id'];
-}
-
-// If still no default provider then make it the logged-in user.
-//
-if ($encounter_provid < 0) $encounter_provid = $_SESSION["authUserID"];
-?>
-</table>
-</p>
-
-<br>
-&nbsp;
-
-<span class="billcell"><?php xl('PROVIDER:','e');?></span>
-
-<?php
-// Build a drop-down list of providers.  This includes users who
-// have the word "provider" anywhere in their "additional info"
-// field, so that we can define providers (for billing purposes)
-// who do not appear in the calendar.
-//
-$query = "SELECT id, lname, fname FROM users WHERE " .
-  "( authorized = 1 OR info LIKE '%provider%' ) AND username != '' " .
-  "ORDER BY lname, fname";
-$res = sqlStatement($query);
-
-echo "   <select name='ProviderID'>\n";
-echo "    <option value=''>-- Please Select --\n";
-
-while ($row = sqlFetchArray($res)) {
-  $provid = $row['id'];
-  echo "    <option value='$provid'";
-  if ($provid == $encounter_provid) echo " selected";
-  echo ">" . $row['lname'] . ", " . $row['fname'] . "\n";
-}
-
-echo "   </select>\n";
-?>
-
-&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
-
-<input type='submit' name='bn_save' value='<?php xl('Save','e');?>' />
-&nbsp;
-<input type='submit' name='bn_refresh' value='<?php xl('Refresh','e');?>'>
-&nbsp;
-<input type='button' value='<?php xl('Cancel','e');?>'
- onclick="top.restoreSession();location='<? echo "$rootdir/patient_file/encounter/$returnurl" ?>'" />
-
-<?php if ($code_types['UCSMC']) { ?>
-<p style='font-family:sans-serif;font-size:8pt;color:#666666;'>
-&nbsp;<br>
-<?php xl('UCSMC codes provided by the University of Calgary Sports Medicine Centre','e');?>
-</p>
-<? } ?>
-
-</center>
-
-</form>
-
-<?php
-// TBD: If $alertmsg, display it with a JavaScript alert().
-?>
-
-<script language='JavaScript'>
-<?php echo $justinit; ?>
-</script>
-
-</body>
-</html>
+<?php
+//////////////////////////////////////////////////////////////////////
+// ------------------ DO NOT MODIFY VIEW.PHP !!! ---------------------
+// View.php is an exact duplicate of new.php.  If you wish to make
+// any changes, then change new.php and either (recommended) make
+// view.php a symbolic link to new.php, or copy new.php to view.php.
+//
+// And if you check in a change to either module, be sure to check
+// in the other (identical) module also.
+//
+// This nonsense will go away if we ever move to subversion.
+//////////////////////////////////////////////////////////////////////
+
+// Copyright (C) 2005-2008 Rod Roark <rod@sunsetsystems.com>
+//
+// This program is free software; you can redistribute it and/or
+// modify it under the terms of the GNU General Public License
+// as published by the Free Software Foundation; either version 2
+// of the License, or (at your option) any later version.
+
+require_once("../../globals.php");
+require_once("$srcdir/acl.inc");
+require_once("$srcdir/api.inc");
+require_once("codes.php");
+require_once("../../../custom/code_types.inc.php");
+require_once("../../drugs/drugs.inc.php");
+
+// Possible units of measure for NDC drug quantities.
+//
+$ndc_uom_choices = array(
+  'ML' => 'ML',
+  'GR' => 'Grams',
+  'F2' => 'I.U.',
+  'UN' => 'Units'
+);
+
+// $FEE_SHEET_COLUMNS should be defined in codes.php.
+if (empty($FEE_SHEET_COLUMNS)) $FEE_SHEET_COLUMNS = 2;
+
+$returnurl = $GLOBALS['concurrent_layout'] ? 'encounter_top.php' : 'patient_encounter.php';
+
+// If Save was clicked, save the new and modified billing lines;
+// then if no error, redirect to $returnurl.
+//
+if ($_POST['bn_save']) {
+  $provid = $_POST['ProviderID'];
+  if (! $provid) $provid = $_SESSION["authUserID"];
+
+  $bill = $_POST['bill'];
+  for ($lino = 1; $bill["$lino"]['code_type']; ++$lino) {
+    $iter = $bill["$lino"];
+
+    // Skip disabled (billed) line items.
+    if ($iter['billed']) continue;
+
+    $id        = $iter['id'];
+    $code_type = $iter['code_type'];
+    $code      = $iter['code'];
+    $modifier  = trim($iter['mod']);
+    $units     = max(1, intval(trim($iter['units'])));
+    $fee       = 0 + trim($iter['fee']);
+    if ($code_type == 'COPAY') {
+      if ($fee > 0) $fee = 0 - $fee;
+      $code = sprintf('%01.2f', 0 - $fee);
+    }
+    $justify   = trim($iter['justify']);
+    if ($justify) $justify = str_replace(',', ':', $justify) . ':';
+    // $auth      = $iter['auth'] ? "1" : "0";
+    $auth      = "1";
+    $del       = $iter['del'];
+
+    $ndc_info = '';
+    if ($iter['ndcnum']) {
+    $ndc_info = 'N4' . trim($iter['ndcnum']) . '   ' . $iter['ndcuom'] .
+      trim($iter['ndcqty']);
+    }
+
+    // If the item is already in the database...
+    if ($id) {
+      if ($del) {
+        deleteBilling($id);
+      }
+      else {
+        // authorizeBilling($id, $auth);
+        sqlQuery("UPDATE billing SET code = '$code', " .
+          "units = '$units', fee = '$fee', modifier = '$modifier', " .
+          "authorized = $auth, provider_id = '$provid', " .
+          "ndc_info = '$ndc_info', justify = '$justify' WHERE " .
+          "id = '$id' AND billed = 0 AND activity = 1");
+      }
+    }
+
+    // Otherwise it's a new item...
+    else if (! $del) {
+      $query = "select code_text from codes where code_type = '" .
+        $code_types[$code_type]['id'] . "' and " .
+        "code = '$code' and ";
+      if ($modifier) {
+        $query .= "modifier = '$modifier'";
+      } else {
+        $query .= "(modifier is null or modifier = '')";
+      }
+      $result = sqlQuery($query);
+      $code_text = addslashes($result['code_text']);
+      addBilling($encounter, $code_type, $code, $code_text, $pid, $auth,
+        $provid, $modifier, $units, $fee, $ndc_info, $justify);
+    }
+  } // end for
+
+  // Doing similarly to the above but for products.
+  $prod = $_POST['prod'];
+  for ($lino = 1; $prod["$lino"]['drug_id']; ++$lino) {
+    $iter = $prod["$lino"];
+
+    if (!empty($iter['billed'])) continue;
+
+    $drug_id   = $iter['drug_id'];
+    $sale_id   = $iter['sale_id']; // present only if already saved
+    $units     = max(1, intval(trim($iter['units'])));
+    $fee       = 0 + trim($iter['fee']);
+    $del       = $iter['del'];
+
+    // If the item is already in the database...
+    if ($sale_id) {
+      if ($del) {
+        // Zero out this sale and reverse its inventory update.  We bring in
+        // drug_sales twice so that the original quantity can be referenced
+        // unambiguously.
+        sqlStatement("UPDATE drug_sales AS dsr, drug_sales AS ds, " .
+          "drug_inventory AS di " .
+          "SET di.on_hand = di.on_hand + dsr.quantity, " .
+          "ds.quantity = 0, ds.fee = 0 WHERE " .
+          "dsr.sale_id = '$sale_id' AND ds.sale_id = dsr.sale_id AND " .
+          "di.inventory_id = ds.inventory_id");
+        // And delete the sale for good measure.
+        sqlStatement("DELETE FROM drug_sales WHERE sale_id = '$sale_id'");
+      }
+      else {
+        // Modify the sale and adjust inventory accordingly.
+        $query = "UPDATE drug_sales AS dsr, drug_sales AS ds, " .
+          "drug_inventory AS di " .
+          "SET di.on_hand = di.on_hand + dsr.quantity - $units, " .
+          "ds.quantity = '$units', ds.fee = '$fee' WHERE " .
+          "dsr.sale_id = '$sale_id' AND ds.sale_id = dsr.sale_id AND " .
+          "di.inventory_id = ds.inventory_id";
+        sqlStatement($query);
+      }
+    }
+
+    // Otherwise it's a new item...
+    else if (! $del) {
+      $sale_id = sellDrug($drug_id, $units, $fee, $pid, $encounter);
+      if (!$sale_id) die("Insufficient inventory for product ID \"$drug_id\".");
+    }
+  } // end for
+
+  // Note: I was going to compute taxes here, but now I think better to
+  // do that at checkout time (in pos_checkout.php which also posts to SL).
+  // Currently taxes with insurance claims make no sense, so for now we'll
+  // ignore tax computation in the insurance billing logic.
+
+  formHeader("Redirecting....");
+  formJump();
+  formFooter();
+  exit;
+}
+
+$billresult = getBillingByEncounter($pid, $encounter, "*");
+?>
+<html>
+<head>
+<?php html_header_show(); ?>
+<link rel=stylesheet href="<?echo $css_header;?>" type="text/css">
+<style>
+.billcell { font-family: sans-serif; font-size: 10pt }
+</style>
+<script language="JavaScript">
+
+var diags = new Array();
+
+<?php
+// Generate JavaScript to build the array of diagnoses.
+function genDiagJS($code_type, $code) {
+  if ($code_type == 'ICD9') {
+    echo "diags.push('$code');\n";
+  }
+}
+if ($billresult) {
+  foreach ($billresult as $iter) {
+    genDiagJS($iter["code_type"], trim($iter["code"]));
+  }
+}
+if ($_POST['bill']) {
+  foreach ($_POST['bill'] as $iter) {
+    if ($iter["del"]) continue; // skip if Delete was checked
+    if ($iter["id"])  continue; // skip if it came from the database
+    genDiagJS($iter["code_type"], $iter["code"]);
+  }
+}
+if ($_POST['newcodes']) {
+  $arrcodes = explode('~', $_POST['newcodes']);
+  foreach ($arrcodes as $codestring) {
+    if ($codestring === '') continue;
+    $arrcode = explode('|', $codestring);
+    list($code, $modifier) = explode(":", $arrcode[1]);
+    genDiagJS($arrcode[0], $code);
+  }
+}
+?>
+
+// This is invoked by <select onchange> for the various dropdowns,
+// including search results.
+function codeselect(selobj) {
+ var i = selobj.selectedIndex;
+ if (i > 0) {
+  top.restoreSession();
+  var f = document.forms[0];
+  f.newcodes.value = selobj.options[i].value;
+  f.submit();
+ }
+}
+
+function copayselect() {
+ top.restoreSession();
+ var f = document.forms[0];
+ f.newcodes.value = 'COPAY||';
+ f.submit();
+}
+
+function validate(f) {
+ for (var lino = 1; f['bill['+lino+'][code_type]']; ++lino) {
+  var pfx = 'bill['+lino+']';
+  if (f[pfx+'[ndcnum]'] && f[pfx+'[ndcnum]'].value) {
+   // Check NDC number format.
+   var ndcok = true;
+   var ndc = f[pfx+'[ndcnum]'].value;
+   var a = ndc.split('-');
+   if (a.length != 3) {
+    ndcok = false;
+   }
+   else if (a[0].length < 1 || a[1].length < 1 || a[2].length < 1 ||
+    a[0].length > 5 || a[1].length > 4 || a[2].length > 2) {
+    ndcok = false;
+   }
+   else {
+    for (var i = 0; i < 3; ++i) {
+     for (var j = 0; j < a[i].length; ++j) {
+      var c = a[i].charAt(j);
+      if (c < '0' || c > '9') ndcok = false;
+     }
+    }
+   }
+   if (!ndcok) {
+    alert('<?php xl('Format incorrect for NDC','e') ?> "' + ndc +
+     '", <?php xl('should be like nnnnn-nnnn-nn','e') ?>');
+    if (f[pfx+'[ndcnum]'].focus) f[pfx+'[ndcnum]'].focus();
+    return false;
+   }
+   // Check for valid quantity.
+   var qty = f[pfx+'[ndcqty]'].value - 0;
+   if (isNaN(qty) || qty <= 0) {
+    alert('<?php xl('Quantity for NDC','e') ?> "' + ndc +
+     '" <?php xl('is not valid (decimal fractions are OK).','e') ?>');
+    if (f[pfx+'[ndcqty]'].focus) f[pfx+'[ndcqty]'].focus();
+    return false;
+   }
+  }
+ }
+ top.restoreSession();
+ return true;
+}
+
+// When a justify selection is made, apply it to the current list for
+// this procedure and then rebuild its selection list.
+//
+function setJustify(seljust) {
+ var theopts = seljust.options;
+ var jdisplay = theopts[0].text;
+ // Compute revised justification string.  Note this does nothing if
+ // the first entry is still selected, which is handy at startup.
+ if (seljust.selectedIndex > 0) {
+  var newdiag = seljust.value;
+  if (newdiag.length == 0) {
+   jdisplay = '';
+  }
+  else {
+   if (jdisplay.length) jdisplay += ',';
+   jdisplay += newdiag;
+  }
+ }
+ // Rebuild selection list.
+ var jhaystack = ',' + jdisplay + ',';
+ var j = 0;
+ theopts.length = 0;
+ theopts[j++] = new Option(jdisplay,jdisplay,true,true);
+ for (var i = 0; i < diags.length; ++i) {
+  if (jhaystack.indexOf(',' + diags[i] + ',') < 0) {
+   theopts[j++] = new Option(diags[i],diags[i],false,false);
+  }
+ }
+ theopts[j++] = new Option('Clear','',false,false);
+}
+
+</script>
+</head>
+
+<body <?echo $top_bg_line;?> topmargin="0" rightmargin="0" leftmargin="2"
+ bottommargin="0" marginwidth="2" marginheight="0">
+<form method="post" action="<?php echo $rootdir; ?>/forms/fee_sheet/new.php"
+ onsubmit="return validate(this)">
+<span class="title"><? echo ($GLOBALS['phone_country_code'] == '1') ? 'Fee' : 'Coding' ?> <?php xl('Sheet','e');?></span><br>
+<input type='hidden' name='newcodes' value=''>
+
+<center>
+<table width='95%'>
+<?php
+$i = 0;
+$last_category = '';
+
+// Helper function for creating drop-lists.
+function endFSCategory() {
+  global $i, $last_category, $FEE_SHEET_COLUMNS;
+  if (! $last_category) return;
+  echo "   </select>\n";
+  echo "  </td>\n";
+  if ($i >= $FEE_SHEET_COLUMNS) {
+    echo " </tr>\n";
+    $i = 0;
+  }
+}
+
+// Create all the drop-lists of preselected service codes.
+$res = sqlStatement("SELECT * FROM fee_sheet_options " .
+  "ORDER BY fs_category, fs_option");
+while ($row = sqlFetchArray($res)) {
+  $fs_category = $row['fs_category'];
+  $fs_option   = $row['fs_option'];
+  $fs_codes    = $row['fs_codes'];
+  if($fs_category !== $last_category) {
+    endFSCategory();
+    $last_category = $fs_category;
+    ++$i;
+    echo ($i <= 1) ? " <tr>\n" : "";
+    echo "  <td width='50%' align='center' nowrap>\n";
+    echo "   <select style='width:96%' onchange='codeselect(this)'>\n";
+    echo "    <option value=''> " . substr($fs_category, 1) . "\n";
+  }
+  echo "    <option value='$fs_codes'>" . substr($fs_option, 1) . "\n";
+}
+endFSCategory();
+
+// Create one more drop-list, for Products.
+if ($GLOBALS['sell_non_drug_products']) {
+  ++$i;
+  echo ($i <= 1) ? " <tr>\n" : "";
+  echo "  <td width='50%' align='center' nowrap>\n";
+  echo "   <select name='Products' style='width:96%' onchange='codeselect(this)'>\n";
+  echo "    <option value=''> " . xl('Products') . "\n";
+  $tres = sqlStatement("SELECT dt.drug_id, dt.selector, d.name " .
+    "FROM drug_templates AS dt, drugs AS d WHERE " .
+    "d.drug_id = dt.drug_id " .
+    "ORDER BY d.name, dt.selector, dt.drug_id");
+  while ($trow = sqlFetchArray($tres)) {
+    echo "    <option value='PROD|" . $trow['drug_id'] . '|' . $trow['selector'] . "'>" .
+      $trow['drug_id'] . ':' . $trow['selector'] . ' ' . $trow['name'] . "</option>\n";
+  }
+  echo "   </select>\n";
+  echo "  </td>\n";
+  if ($i >= $FEE_SHEET_COLUMNS) {
+    echo " </tr>\n";
+    $i = 0;
+  }
+}
+
+$search_type = $default_search_type;
+if ($_POST['search_type']) $search_type = $_POST['search_type'];
+
+$ndc_applies = true; // Assume all payers require NDC info.
+
+echo $i ? "  <td></td>\n </tr>\n" : "";
+echo " <tr>\n";
+echo "  <td colspan='$FEE_SHEET_COLUMNS' align='center' nowrap>\n";
+
+// If Search was clicked, do it and write the list of results here.
+// There's no limit on the number of results!
+//
+$numrows = 0;
+if ($_POST['bn_search'] && $_POST['search_term']) {
+  $query = "select code, modifier, code_text from codes where " .
+    "(code_text like '%" . $_POST['search_term'] . "%' or " .
+    "code like '%" . $_POST['search_term'] . "%') and " .
+    "code_type = '" . $code_types[$search_type]['id'] . "' " .
+    "order by code";
+  $res = sqlStatement($query);
+  $numrows = mysql_num_rows($res); // FIXME - not portable!
+}
+
+echo "   <select name='Search Results' style='width:98%' " .
+  "onchange='codeselect(this)'";
+if (! $numrows) echo ' disabled';
+echo ">\n";
+echo "    <option value=''> Search Results ($numrows items)\n";
+
+if ($numrows) {
+  while ($row = sqlFetchArray($res)) {
+    $code = $row['code'];
+    if ($row['modifier']) $code .= ":" . $row['modifier'];
+    echo "    <option value='$search_type|$code|'>$code " .
+      ucfirst(strtolower($row['code_text'])) . "</option>\n";
+  }
+}
+
+echo "   </select>\n";
+echo "  </td>\n";
+echo " </tr>\n";
+?>
+
+</table>
+
+<p style='margin-top:8px;margin-bottom:8px'>
+<table>
+ <tr>
+  <td>
+   <input type='button' value='<?php xl('Add Copay','e');?>'
+    onclick="copayselect()" />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+  </td>
+  <td>
+   <?php xl('Search','e'); ?>&nbsp;
+<?
+  foreach ($code_types as $key => $value) {
+    echo "   <input type='radio' name='search_type' value='$key'";
+    if ($key == $default_search_type) echo " checked";
+    echo " />$key&nbsp;\n";
+  }
+?>
+   <?php xl('for','e'); ?>&nbsp;
+  </td>
+  <td>
+   <input type='text' name='search_term' value=''> &nbsp;
+  </td>
+  <td>
+   <input type='submit' name='bn_search' value='<?php xl('Search','e');?>'>
+  </td>
+ </tr>
+</table>
+</p>
+
+<p style='margin-top:16px;margin-bottom:8px'>
+<table cellspacing='5'>
+ <tr>
+  <td class='billcell'><b><?php xl('Type','e');?></b></td>
+  <td class='billcell'><b><?php xl('Code','e');?></b></td>
+<? if (modifiers_are_used()) { ?>
+  <td class='billcell'><b><?php xl('Mod','e');?></b></td>
+<? } ?>
+<? if (fees_are_used()) { ?>
+  <td class='billcell' align='center'><b><?php xl('Units','e');?></b></td>
+  <td class='billcell' align='right'><b><?php xl('Fee','e');?></b>&nbsp;</td>
+  <td class='billcell' align='center'><b><?php xl('Justify','e');?></b></td>
+<? } ?>
+  <td class='billcell' align='center'><b><?php xl('Auth','e');?></b></td>
+  <td class='billcell' align='center'><b><?php xl('Delete','e');?></b></td>
+  <td class='billcell'><b><?php xl('Description','e');?></b></td>
+ </tr>
+
+<?php
+$justinit = "var f = document.forms[0];\n";
+
+// This writes a billing line item to the output page.
+//
+function echoLine($lino, $codetype, $code, $modifier, $ndc_info='',
+  $auth = TRUE, $del = FALSE, $units = NULL, $fee = NULL, $id = NULL,
+  $billed = FALSE, $code_text = NULL, $justify = NULL)
+{
+  global $code_types, $ndc_applies, $ndc_uom_choices, $justinit, $pid;
+
+  if ($codetype == 'COPAY') {
+    if (!$code_text) $code_text = 'Cash';
+    if ($fee > 0) $fee = 0 - $fee;
+  }
+  if (! $code_text) {
+    // $query = "select units, fee, code_text from codes where code_type = '" .
+    $query = "select id, units, code_text from codes where code_type = '" .
+      $code_types[$codetype]['id'] . "' and " .
+      "code = '$code' and ";
+    if ($modifier) {
+      $query .= "modifier = '$modifier'";
+    } else {
+      $query .= "(modifier is null or modifier = '')";
+    }
+    $result = sqlQuery($query);
+    $code_text = $result['code_text'];
+    if (empty($units)) $units = max(1, intval($result['units']));
+    if (!isset($fee)) {
+      // $fee = $result['fee'];
+      // The above is obsolete now, fees come from the prices table:
+      $query = "SELECT prices.pr_price " .
+        "FROM patient_data, prices WHERE " .
+        "patient_data.pid = '$pid' AND " .
+        "prices.pr_id = '" . $result['id'] . "' AND " .
+        "prices.pr_selector = '' AND " .
+        "prices.pr_level = patient_data.pricelevel " .
+        "LIMIT 1";
+      echo "\n<!-- $query -->\n"; // debugging
+      $prrow = sqlQuery($query);
+      $fee = empty($prrow) ? 0 : $prrow['pr_price'];
+    }
+  }
+  $fee = sprintf('%01.2f', $fee);
+  $strike1 = ($id && $del) ? "<strike>" : "";
+  $strike2 = ($id && $del) ? "</strike>" : "";
+  echo " <tr>\n";
+  echo "  <td class='billcell'>$strike1$codetype$strike2";
+  if ($id) {
+    echo "<input type='hidden' name='bill[$lino][id]' value='$id'>";
+  }
+  echo "<input type='hidden' name='bill[$lino][code_type]' value='$codetype'>";
+  echo "<input type='hidden' name='bill[$lino][code]' value='$code'>";
+  echo "<input type='hidden' name='bill[$lino][billed]' value='$billed'>";
+  echo "</td>\n";
+  if ($codetype != 'COPAY') {
+    echo "  <td class='billcell'>$strike1$code$strike2</td>\n";
+  } else {
+    echo "  <td class='billcell'>&nbsp;</td>\n";
+  }
+  if ($billed) {
+    if (modifiers_are_used()) {
+      echo "  <td class='billcell'>$strike1$modifier$strike2" .
+        "<input type='hidden' name='bill[$lino][mod]' value='$modifier'></td>\n";
+    }
+    if (fees_are_used()) {
+      if ($codetype != 'COPAY') {
+        echo "  <td class='billcell' align='center'>$units</td>\n";
+      } else {
+        echo "  <td class='billcell'>&nbsp;</td>\n";
+      }
+      echo "  <td class='billcell' align='right'>$fee</td>\n";
+      echo "  <td class='billcell' align='center'>$justify</td>\n";
+    }
+    echo "  <td class='billcell' align='center'><input type='checkbox'" .
+      ($auth ? " checked" : "") . " disabled /></td>\n";
+    echo "  <td class='billcell' align='center'><input type='checkbox'" .
+      " disabled /></td>\n";
+  } else {
+    if (modifiers_are_used()) {
+      if ($codetype != 'COPAY' && ($code_types[$codetype]['mod'] || $modifier)) {
+        echo "  <td class='billcell'><input type='text' name='bill[$lino][mod]' " .
+          "value='$modifier' size='" . $code_types[$codetype]['mod'] . "'></td>\n";
+      } else {
+        echo "  <td class='billcell'>&nbsp;</td>\n";
+      }
+    }
+    if (fees_are_used()) {
+      if ($codetype == 'COPAY' || $code_types[$codetype]['fee'] || $fee != 0) {
+        echo "  <td class='billcell' align='center'>";
+        if ($codetype != 'COPAY') {
+          echo "<input type='text' name='bill[$lino][units]' " .
+          "value='$units' size='2' style='text-align:right'>";
+        } else {
+          echo "<input type='hidden' name='bill[$lino][units]' value='$units'>";
+        }
+        echo "</td>\n";
+        echo "  <td class='billcell' align='right'>" .
+          "<input type='text' name='bill[$lino][fee]' " .
+          "value='$fee' size='6'";
+        if (acl_check('acct','disc'))
+          echo " style='text-align:right'";
+        else
+          echo " style='text-align:right;background-color:transparent' readonly";
+        echo "></td>\n";
+        if ($code_types[$codetype]['just'] || $justify) {
+          echo "  <td class='billcell' align='center'>";
+          echo "<select name='bill[$lino][justify]' onchange='setJustify(this)'>";
+          echo "<option value='$justify'>$justify</option></select>";
+          echo "</td>\n";
+          $justinit .= "setJustify(f['bill[$lino][justify]']);\n";
+        } else {
+          echo "  <td class='billcell'>&nbsp;</td>\n";
+        }
+      } else {
+        echo "  <td class='billcell'>&nbsp;</td>\n";
+        echo "  <td class='billcell'>&nbsp;</td>\n";
+        echo "  <td class='billcell'>&nbsp;</td>\n";
+      }
+    }
+    echo "  <td class='billcell' align='center'><input type='checkbox' name='bill[$lino][auth]' " .
+      "value='1'" . ($auth ? " checked" : "") . " /></td>\n";
+    echo "  <td class='billcell' align='center'><input type='checkbox' name='bill[$lino][del]' " .
+      "value='1'" . ($del ? " checked" : "") . " /></td>\n";
+  }
+
+  echo "  <td class='billcell'>$strike1" . ucfirst(strtolower($code_text)) . "$strike2</td>\n";
+  echo " </tr>\n";
+
+  // If NDC info exists or may be required, add a line for it.
+  if ($codetype == 'HCPCS' && $ndc_applies && !$billed) {
+    $ndcnum = ''; $ndcuom = ''; $ndcqty = '';
+    if (preg_match('/^N4(\S+)\s+(\S\S)(.*)/', $ndc_info, $tmp)) {
+      $ndcnum = $tmp[1]; $ndcuom = $tmp[2]; $ndcqty = $tmp[3];
+    }
+    echo " <tr>\n";
+    echo "  <td class='billcell' colspan='2'>&nbsp;</td>\n";
+    echo "  <td class='billcell' colspan='6'>&nbsp;NDC:&nbsp;";
+    echo "<input type='text' name='bill[$lino][ndcnum]' value='$ndcnum' " .
+      "size='11' style='background-color:transparent'>";
+    echo " &nbsp;Qty:&nbsp;";
+    echo "<input type='text' name='bill[$lino][ndcqty]' value='$ndcqty' " .
+      "size='3' style='background-color:transparent;text-align:right'>";
+    echo " ";
+    echo "<select name='bill[$lino][ndcuom]' style='background-color:transparent'>";
+    foreach ($ndc_uom_choices as $key => $value) {
+      echo "<option value='$key'";
+      if ($key == $ndcuom) echo " selected";
+      echo ">$value</option>";
+    }
+    echo "</select>";
+    echo "</td>\n";
+    echo " </tr>\n";
+  }
+  else if ($ndc_info) {
+    echo " <tr>\n";
+    echo "  <td class='billcell' colspan='2'>&nbsp;</td>\n";
+    echo "  <td class='billcell' colspan='6'>&nbsp;NDC Data: $ndc_info</td>\n";
+    echo " </tr>\n";
+  }
+}
+
+// This writes a product (drug_sales) line item to the output page.
+//
+function echoProdLine($lino, $drug_id, $del = FALSE, $units = NULL,
+  $fee = NULL, $sale_id = 0, $billed = FALSE)
+{
+  global $code_types, $ndc_applies, $pid;
+
+  /*******************************************************************
+  list ($drug_id, $selector) = explode(':', $drugsel);
+  if (! $units) { // if this is a new selection then apply defaults for it
+    $query = "SELECT dt.*, d.name FROM drug_templates, drugs WHERE " .
+      "dt.drug_id = '$drug_id' AND dt.selector = '$selector' AND " .
+      "d.drug_id = dt.drug_id";
+    $result = sqlQuery($query);
+    $code_text = $result['name'] . " ($selector)";
+    if (empty($units)) $units = max(1, intval($result['quantity']));
+    if (!isset($fee)) {
+      // Fees come from the prices table:
+      $query = "SELECT prices.pr_price " .
+        "FROM patient_data, prices WHERE " .
+        "patient_data.pid = '$pid' AND " .
+        "prices.pr_id = '$drug_id' AND " .
+        "prices.pr_selector = '$selector' AND " .
+        "prices.pr_level = patient_data.pricelevel " .
+        "LIMIT 1";
+      // echo "\n<!-- $query -->\n"; // debugging
+      $prrow = sqlQuery($query);
+      $fee = empty($prrow) ? 0 : $prrow['pr_price'];
+    }
+  }
+  *******************************************************************/
+  $drow = sqlQuery("SELECT name FROM drugs WHERE drug_id = '$drug_id'");
+  $code_text = $drow['name'];
+  /******************************************************************/
+
+  $fee = sprintf('%01.2f', $fee);
+  $strike1 = ($sale_id && $del) ? "<strike>" : "";
+  $strike2 = ($sale_id && $del) ? "</strike>" : "";
+  echo " <tr>\n";
+  echo "  <td class='billcell'>{$strike1}Product$strike2";
+  echo "<input type='hidden' name='prod[$lino][sale_id]' value='$sale_id'>";
+  echo "<input type='hidden' name='prod[$lino][drug_id]' value='$drug_id'>";
+  echo "<input type='hidden' name='prod[$lino][billed]' value='$billed'>";
+  echo "</td>\n";
+  echo "  <td class='billcell'>$strike1$drug_id$strike2</td>\n";
+  if (modifiers_are_used()) {
+    echo "  <td class='billcell'>&nbsp;</td>\n";
+  }
+  if ($billed) {
+    if (fees_are_used()) {
+      echo "  <td class='billcell' align='center'>$units</td>\n";
+      echo "  <td class='billcell' align='right'>$fee</td>\n";
+      echo "  <td class='billcell' align='center'>&nbsp;</td>\n";         // justify
+    }
+    echo "  <td class='billcell' align='center'>&nbsp;</td>\n";           // auth
+    echo "  <td class='billcell' align='center'><input type='checkbox'" . // del
+      " disabled /></td>\n";
+  } else {
+    if (fees_are_used()) {
+      echo "  <td class='billcell' align='center'>";
+      echo "<input type='text' name='prod[$lino][units]' " .
+        "value='$units' size='2' style='text-align:right'>";
+      echo "</td>\n";
+      echo "  <td class='billcell' align='right'>" .
+        "<input type='text' name='prod[$lino][fee]' " .
+        "value='$fee' size='6'";
+      if (acl_check('acct','disc'))
+        echo " style='text-align:right'";
+      else
+        echo " style='text-align:right;background-color:transparent' readonly";
+      echo "></td>\n";
+      echo "  <td class='billcell'>&nbsp;</td>\n";
+    }
+    echo "  <td class='billcell' align='center'>&nbsp;</td>\n"; // auth
+    echo "  <td class='billcell' align='center'><input type='checkbox' name='prod[$lino][del]' " .
+      "value='1'" . ($del ? " checked" : "") . " /></td>\n";
+  }
+
+  echo "  <td class='billcell'>$strike1" . ucfirst(strtolower($code_text)) . "$strike2</td>\n";
+  echo " </tr>\n";
+}
+
+$encounter_provid = -1;
+
+// Generate lines for items already in the billing table for this encounter,
+// and also set the rendering provider if we come across one.
+//
+$bill_lino = 0;
+if ($billresult) {
+  foreach ($billresult as $iter) {
+    ++$bill_lino;
+    $bline = $_POST['bill']["$bill_lino"];
+    $del = $bline['del']; // preserve Delete if checked
+
+    $modifier   = trim($iter["modifier"]);
+    $units      = $iter["units"];
+    $fee        = $iter["fee"];
+    $authorized = $iter["authorized"];
+    $ndc_info   = $iter["ndc_info"];
+    $justify    = trim($iter['justify']);
+    if ($justify) $justify = substr(str_replace(':', ',', $justify), 0, strlen($justify) - 1);
+
+    // Also preserve other items from the form, if present.
+    if ($bline['id'] && !$iter["billed"]) {
+      $modifier   = trim($bline['mod']);
+      $units      = trim($bline['units']);
+      $fee        = trim($bline['fee']);
+      $authorized = $bline['auth'];
+      $ndc_info   = '';
+      if ($bline['ndcnum']) {
+        $ndc_info = 'N4' . trim($bline['ndcnum']) . '   ' . $bline['ndcuom'] .
+        trim($bline['ndcqty']);
+      }
+      $justify    = $bline['justify'];
+    }
+
+    // list($code, $modifier) = explode("-", $iter["code"]);
+    echoLine($bill_lino, $iter["code_type"], trim($iter["code"]),
+      $modifier, $ndc_info,  $authorized,
+      $del, $units, $fee, $iter["id"], $iter["billed"],
+      $iter["code_text"], $justify);
+    // If no default provider yet then try this one.
+    if ($encounter_provid < 0 && ! $del) $encounter_provid = $iter["provider_id"];
+  }
+}
+
+// Echo new billing items from this form here, but omit any line
+// whose Delete checkbox is checked.
+//
+if ($_POST['bill']) {
+  foreach ($_POST['bill'] as $key => $iter) {
+    if ($iter["id"])  continue; // skip if it came from the database
+    if ($iter["del"]) continue; // skip if Delete was checked
+    $ndc_info = '';
+    if ($iter['ndcnum']) {
+      $ndc_info = 'N4' . trim($iter['ndcnum']) . '   ' . $iter['ndcuom'] .
+      trim($iter['ndcqty']);
+    }
+    $fee = 0 + trim($iter['fee']);
+    if ($iter['code_type'] == 'COPAY' && $fee > 0) $fee = 0 - $fee;
+    echoLine(++$bill_lino, $iter["code_type"], $iter["code"], trim($iter["mod"]),
+      $ndc_info, $iter["auth"], $iter["del"], trim($iter["units"]),
+      $fee, NULL, FALSE, NULL, $iter["justify"]);
+  }
+}
+
+// Generate lines for items already in the drug_sales table for this encounter.
+//
+$query = "SELECT * FROM drug_sales WHERE " .
+  "pid = '$pid' AND encounter = '$encounter' " .
+  "ORDER BY sale_id";
+$sres = sqlStatement($query);
+$prod_lino = 0;
+while ($srow = sqlFetchArray($sres)) {
+  ++$prod_lino;
+  $pline = $_POST['prod']["$prod_lino"];
+  $del   = $pline['del']; // preserve Delete if checked
+  $sale_id = $srow['sale_id'];
+  $drug_id = $srow['drug_id'];
+  $units   = $srow['quantity'];
+  $fee     = $srow['fee'];
+  $billed  = $srow['billed'];
+  // Also preserve other items from the form, if present and unbilled.
+  if ($pline['sale_id'] && !$srow['billed']) {
+    $units      = trim($pline['units']);
+    $fee        = trim($pline['fee']);
+  }
+  echoProdLine($prod_lino, $drug_id, $del, $units, $fee, $sale_id, $billed);
+}
+
+// Echo new product items from this form here, but omit any line
+// whose Delete checkbox is checked.
+//
+if ($_POST['prod']) {
+  foreach ($_POST['prod'] as $key => $iter) {
+    if ($iter["sale_id"])  continue; // skip if it came from the database
+    if ($iter["del"]) continue; // skip if Delete was checked
+    $fee = 0 + trim($iter['fee']);
+    echoProdLine(++$prod_lino, $iter['drug_id'], FALSE, trim($iter["units"]), $fee);
+  }
+}
+
+// If new billing code(s) were <select>ed, add their line(s) here.
+//
+if ($_POST['newcodes']) {
+  $arrcodes = explode('~', $_POST['newcodes']);
+  foreach ($arrcodes as $codestring) {
+    if ($codestring === '') continue;
+    $arrcode = explode('|', $codestring);
+    $newtype = $arrcode[0];
+    $newcode = $arrcode[1];
+    $newsel  = $arrcode[2];
+    if ($newtype == 'COPAY') {
+      $tmp = sqlQuery("SELECT copay FROM insurance_data WHERE pid = '$pid' " .
+        "AND type = 'primary' ORDER BY date DESC LIMIT 1");
+      $code = sprintf('%01.2f', 0 + $tmp['copay']);
+      echoLine(++$bill_lino, $newtype, $code, '', '', '1', '0', '1',
+        sprintf('%01.2f', 0 - $code));
+    }
+    else if ($newtype == 'PROD') {
+      $result = sqlQuery("SELECT * FROM drug_templates WHERE " .
+        "drug_id = '$newcode' AND selector = '$newsel'");
+      $units = max(1, intval($result['quantity']));
+      $prrow = sqlQuery("SELECT prices.pr_price " .
+        "FROM patient_data, prices WHERE " .
+        "patient_data.pid = '$pid' AND " .
+        "prices.pr_id = '$newcode' AND " .
+        "prices.pr_selector = '$newsel' AND " .
+        "prices.pr_level = patient_data.pricelevel " .
+        "LIMIT 1");
+      $fee = empty($prrow) ? 0 : $prrow['pr_price'];
+      echoProdLine(++$prod_lino, $newcode, FALSE, $units, $fee);
+    }
+    else {
+      list($code, $modifier) = explode(":", $newcode);
+      $ndc_info = '';
+      // If HCPCS, find last NDC string used for this code.
+      if ($newtype == 'HCPCS' && $ndc_applies) {
+        $tmp = sqlQuery("SELECT ndc_info FROM billing WHERE " .
+          "code_type = '$newtype' AND code = '$code' AND ndc_info LIKE 'N4%' " .
+          "ORDER BY date DESC LIMIT 1");
+        if (!empty($tmp)) $ndc_info = $tmp['ndc_info'];
+      }
+      echoLine(++$bill_lino, $newtype, $code, trim($modifier), $ndc_info);
+    }
+  }
+}
+
+// If no valid provider yet, try setting it to that of the new encounter form.
+//
+$tmp = sqlQuery("SELECT authorized FROM users WHERE id = '$encounter_provid'");
+if (empty($tmp['authorized'])) {
+  $encounter_provid = -1;
+  $tmp = sqlQuery("SELECT users.id FROM forms, users WHERE " .
+    "forms.pid = '$pid' AND forms.encounter = '$encounter' AND " .
+    "forms.formdir='newpatient' AND users.username = forms.user AND " .
+    "users.authorized = 1");
+  if ($tmp['id']) $encounter_provid = $tmp['id'];
+}
+
+// If still no default provider then make it the logged-in user.
+//
+if ($encounter_provid < 0) $encounter_provid = $_SESSION["authUserID"];
+?>
+</table>
+</p>
+
+<br>
+&nbsp;
+
+<span class="billcell"><?php xl('PROVIDER:','e');?></span>
+
+<?php
+// Build a drop-down list of providers.  This includes users who
+// have the word "provider" anywhere in their "additional info"
+// field, so that we can define providers (for billing purposes)
+// who do not appear in the calendar.
+//
+$query = "SELECT id, lname, fname FROM users WHERE " .
+  "( authorized = 1 OR info LIKE '%provider%' ) AND username != '' " .
+  "ORDER BY lname, fname";
+$res = sqlStatement($query);
+
+echo "   <select name='ProviderID'>\n";
+echo "    <option value=''>-- Please Select --\n";
+
+while ($row = sqlFetchArray($res)) {
+  $provid = $row['id'];
+  echo "    <option value='$provid'";
+  if ($provid == $encounter_provid) echo " selected";
+  echo ">" . $row['lname'] . ", " . $row['fname'] . "\n";
+}
+
+echo "   </select>\n";
+?>
+
+&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
+
+<input type='submit' name='bn_save' value='<?php xl('Save','e');?>' />
+&nbsp;
+<input type='submit' name='bn_refresh' value='<?php xl('Refresh','e');?>'>
+&nbsp;
+<input type='button' value='<?php xl('Cancel','e');?>'
+ onclick="top.restoreSession();location='<? echo "$rootdir/patient_file/encounter/$returnurl" ?>'" />
+
+<?php if ($code_types['UCSMC']) { ?>
+<p style='font-family:sans-serif;font-size:8pt;color:#666666;'>
+&nbsp;<br>
+<?php xl('UCSMC codes provided by the University of Calgary Sports Medicine Centre','e');?>
+</p>
+<? } ?>
+
+</center>
+
+</form>
+
+<?php
+// TBD: If $alertmsg, display it with a JavaScript alert().
+?>
+
+<script language='JavaScript'>
+<?php echo $justinit; ?>
+</script>
+
+</body>
+</html>
-- 
2.11.4.GIT