Eye Form tweaks

[openemr.git] / library / FeeSheetHtml.class.php

<?php
/**
 * library/FeeSheetHtml.class.php
 * 
 * Class for HTML-specific implementations of the Fee Sheet.
 *
 * LICENSE: 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 3
 * of the License, or (at your option) any later version.
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see 
 * http://www.gnu.org/licenses/licenses.html#GPL .
 *
 * @package OpenEMR
 * @license http://www.gnu.org/licenses/licenses.html#GPL GNU GPL V3+
 * @author  Rod Roark <rod@sunsetsystems.com>
 * @link    http://www.open-emr.org
 */

require_once(dirname(__FILE__) . "/FeeSheet.class.php");
require_once(dirname(__FILE__) . "/api.inc");
require_once(dirname(__FILE__) . "/formdata.inc.php");

class FeeSheetHtml extends FeeSheet {

  // Dynamically generated JavaScript to maintain justification codes.
  public $justinit = "var f = document.forms[0];\n";

  function __construct($pid=0, $encounter=0) {
    parent::__construct($pid, $encounter);
  }

  // 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.
  //
  public static function genProviderOptionList($toptext, $default=0) {
    $s = '';
    // Get user's default facility, or 0 if none.
    $drow = sqlQuery("SELECT facility_id FROM users where username = '" . $_SESSION['authUser'] . "'");
    $def_facility = 0 + $drow['facility_id'];
    //
    $sqlarr = array($def_facility);
    $query = "SELECT id, lname, fname, facility_id FROM users WHERE " .
      "( authorized = 1 OR info LIKE '%provider%' ) AND username != '' " .
      "AND active = 1 AND ( info IS NULL OR info NOT LIKE '%Inactive%' )";
    // If restricting to providers matching user facility...
    if ($GLOBALS['gbl_restrict_provider_facility']) {
      $query .= " AND ( facility_id = 0 OR facility_id = ? )";
      $query .= " ORDER BY lname, fname";
    }
    // If not restricting then sort the matching providers first.
    else {
      $query .= " ORDER BY (facility_id = ?) DESC, lname, fname";
    }
    $res = sqlStatement($query, $sqlarr);
    $s .= "<option value=''>" . text($toptext) . "</option>";
    while ($row = sqlFetchArray($res)) {
      $provid = $row['id'];
      $s .= "<option value='" . attr($provid) . "'";
      if ($provid == $default) $s .= " selected";
      $s .= ">";
      if (!$GLOBALS['gbl_restrict_provider_facility'] && $def_facility && $row['facility_id'] == $def_facility) {
        // Mark providers in the matching facility with an asterisk.
        $s .= "* ";
      }
      $s .= text($row['lname'] . ", " . $row['fname']) . "</option>";
    }
    return $s;
  }

  // Does the above but including <select> ... </select>.
  //
  public static function genProviderSelect($tagname, $toptext, $default=0, $disabled=false) {
    $s = "   <select name='" . attr($tagname) . "'";
    if ($disabled) $s .= " disabled";
    $s .= ">";
    $s .= self::genProviderOptionList($toptext, $default);
    $s .= "</select>\n";
    return $s;
  }

  // Build a drop-down list of warehouses.
  //
  public function genWarehouseSelect($tagname, $toptext, $default='', $disabled=false, $drug_id=0, $is_sold=0) {
    $s = '';
    if ($this->got_warehouses) {
      // Normally would use generate_select_list() but it's not flexible enough here.
      $s .= "<select name='" . attr($tagname) . "'";
      if (!$disabled) $s .= " onchange='warehouse_changed(this);'";
      if ($disabled ) $s .= " disabled";
      $s .= ">";
      $s .= "<option value=''>" . text($toptext) . "</option>";
      $lres = sqlStatement("SELECT * FROM list_options " .
        "WHERE list_id = 'warehouse' ORDER BY seq, title");
      while ($lrow = sqlFetchArray($lres)) {
        $s .= "<option value='" . attr($lrow['option_id']) . "'";
        if ($disabled) {
          if ($lrow['option_id'] == $default) $s .= " selected";
        }
        else {
          $has_inventory = sellDrug($drug_id, 1, 0, 0, 0, 0, '', '', $lrow['option_id'], true);
          if (((strlen($default) == 0 && $lrow['is_default']) ||
               (strlen($default)  > 0 && $lrow['option_id'] == $default)) &&
              ($is_sold || $has_inventory))
          {
            $s .= " selected";
          }
          else {
            // Disable this warehouse option if not selected and has no inventory.
            if (!$has_inventory) $s .= " disabled";
          }
        }
        $s .= ">" . text(xl_list_label($lrow['title'])) . "</option>\n";
      }
      $s .= "</select>";
    }
    return $s;
  }

  // Build a drop-down list of price levels.
  // Includes the specified item's price in the "id" of each option.
  //
  public function genPriceLevelSelect($tagname, $toptext, $pr_id, $pr_selector='', $default='', $disabled=false) {
    // echo "<!-- pr_id = '$pr_id', pr_selector = '$pr_selector' -->\n"; // debugging
    $s = "<select name='" . attr($tagname) . "'";
    if (!$disabled) $s .= " onchange='pricelevel_changed(this);'";
    if ($disabled ) $s .= " disabled";
    $s .= ">";
    $s .= "<option value=''>" . text($toptext) . "</option>";
    $lres = sqlStatement("SELECT lo.*, p.pr_price " .
      "FROM list_options AS lo " .
      "LEFT JOIN prices AS p ON p.pr_id = ? AND p.pr_selector = ? AND p.pr_level = lo.option_id " .
      "WHERE lo.list_id = 'pricelevel' ORDER BY lo.seq, lo.title",
      array($pr_id, $pr_selector));
    while ($lrow = sqlFetchArray($lres)) {
      $price = empty($lrow['pr_price']) ? 0 : $lrow['pr_price'];
      $s .= "<option value='" . attr($lrow['option_id']) . "'";
      $s .= " id='prc_$price'";
      if ((strlen($default) == 0 && $lrow['is_default'] && !$disabled) ||
          (strlen($default)  > 0 && $lrow['option_id'] == $default)
      ) {
        $s .= " selected";
      }
      $s .= ">" . text(xl_list_label($lrow['title'])) . "</option>\n";
    }
    $s .= "</select>";
    return $s;
  }

  // If Contraception forms can be auto-created by the Fee Sheet we might need
  // to ask about the client's prior contraceptive use.
  //
  public function generateContraceptionSelector($tagname='newmauser') {
    $s = '';
    if ($GLOBALS['gbl_new_acceptor_policy'] == '1') {
      $csrow = sqlQuery("SELECT COUNT(*) AS count FROM forms AS f WHERE " .
        "f.pid = ? AND f.encounter = ? AND " .
        "f.formdir = 'LBFccicon' AND f.deleted = 0",
        array($this->pid, $this->encounter));
      // Do it only if a contraception form does not already exist for this visit.
      // Otherwise assume that whoever created it knows what they were doing.
      if ($csrow['count'] == 0) {
        // Determine if this client ever started contraception with the MA.
        // Even if only a method change, we assume they have.
        $query = "SELECT f.form_id FROM forms AS f " .
          "JOIN form_encounter AS fe ON fe.pid = f.pid AND fe.encounter = f.encounter " .
          "WHERE f.formdir = 'LBFccicon' AND f.deleted = 0 AND f.pid = ? " .
          "ORDER BY fe.date DESC LIMIT 1";
        $csrow = sqlQuery($query, array($this->pid));
        if (empty($csrow)) {
          $s .= "<select name='$tagname'>\n";
          $s .= " <option value='2'>" . xlt('First Modern Contraceptive Use (Lifetime)') . "</option>\n";
          $s .= " <option value='1'>" . xlt('First Modern Contraception at this Clinic (with Prior Contraceptive Use)') . "</option>\n";
          $s .= " <option value='0'>" . xlt('Method Change at this Clinic') . "</option>\n";
          $s .= "</select>\n";
        }
      }
    }
    return $s;
  }

  // Generate a price level drop-down defaulting to the patient's current price level.
  //
  public function generatePriceLevelSelector($tagname='pricelevel', $disabled=false) {
    $s = "<select name='" . attr($tagname) . "'";
    if ($disabled) $s .= " disabled";
    $s .= ">";
    $pricelevel = $this->getPriceLevel();
    $plres = sqlStatement("SELECT option_id, title FROM list_options " .
      "WHERE list_id = 'pricelevel' ORDER BY seq");
    while ($plrow = sqlFetchArray($plres)) {
      $key = $plrow['option_id'];
      $val = $plrow['title'];
      $s .= "<option value='" . attr($key) . "'";
      if ($key == $pricelevel) $s .= ' selected';
      $s .= ">" . text(xl_list_label($val)) . "</option>";
    }
    $s .= "</select>";
    return $s;
  }

  // Return Javascript that defines a function to validate the line items.
  // Most of this is currently IPPF-specific, but NDC codes are also validated.
  // This also computes and sets the form's ippfconmeth value if appropriate.
  // This does not validate form fields not related to or derived from line items.
  // Do not call this javascript function if you are just refreshing the form.
  // The arguments are the names of the form arrays for services and products.
  //
  public function jsLineItemValidation($bill='bill', $prod='prod') {
    $s = "
function jsLineItemValidation(f) {
 var max_contra_cyp = 0;
 var max_contra_code = '';
 var required_code_count = 0;
 // Loop thru the services.
 for (var lino = 0; f['{$bill}['+lino+'][code_type]']; ++lino) {
  var pfx = '{$bill}[' + lino + ']';
  if (f[pfx + '[del]'] && f[pfx + '[del]'].checked) continue;
  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('" . xls('Format incorrect for NDC') . "\"' + ndc +
     '\", " . xls('should be like nnnnn-nnnn-nn') . "');
    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('" . xls('Quantity for NDC') . " \"' + ndc +
     '\" " . xls('is not valid (decimal fractions are OK).') . "');
    if (f[pfx+'[ndcqty]'].focus) f[pfx+'[ndcqty]'].focus();
    return false;
   }
  }
  if (f[pfx+'[method]'] && f[pfx+'[method]'].value) {
   // The following applies to contraception for family planning clinics.
   var tmp_cyp = parseFloat(f[pfx+'[cyp]'].value);
   var tmp_meth = f[pfx+'[method]'].value;
   var tmp_methtype = parseInt(f[pfx+'[methtype]'].value);
   if (tmp_cyp > max_contra_cyp && tmp_methtype == 2) {
    // max_contra_* tracks max cyp for initial consults only.
    max_contra_cyp = tmp_cyp;
    max_contra_code = tmp_meth;
   }
";
    if ($this->patient_male) {
      $s .= "
   var male_compatible_method = (
    // TBD: Fix hard coded dependency on IPPFCM codes here.
    tmp_meth == '4450' || // male condoms
    tmp_meth == '4570');  // male vasectomy
   if (!male_compatible_method) {
    if (!confirm('" . xls('Warning: Contraceptive method is not compatible with a male patient.') . "'))
     return false;
   }
";
    } // end if male patient
    if ($this->patient_age < 10 || $this->patient_age > 50) {
      $s .= "
   if (!confirm('" . xls('Warning: Contraception for a patient under 10 or over 50.') . "'))
    return false;
";
    } // end if improper age
    if ($this->match_services_to_products) {
      $s .= "
   // Nonsurgical methods should normally include a corresponding product.
   // This takes advantage of the fact that only nonsurgical methods have CYP
   // less than 10, in both the old and new frameworks.
   if (tmp_cyp < 10.0) {
   // Was: if (tmp_meth.substring(0, 2) != '12') {
    var got_prod = false;
    for (var plino = 0; f['{$prod}['+plino+'][drug_id]']; ++plino) {
     var ppfx = '{$prod}[' + plino + ']';
     if (f[ppfx+'[del]'] && f[ppfx+'[del]'].checked) continue;
     if (f[ppfx+'[method]'] && f[ppfx+'[method]'].value) {
      if (f[ppfx+'[method]'].value == tmp_meth) got_prod = true;
     }
    }
    if (!got_prod) {
     if (!confirm('" . xls('Warning: There is no product matching the contraceptive service.') . "'))
      return false;
    }
   }
";
    } // end match services to products
    $s .= "
  }
  ++required_code_count;
 }
";
    if ($this->match_services_to_products) {
      $s .= "
 // The following applies to contraception for family planning clinics.
 // Loop thru the products.
 for (var lino = 0; f['{$prod}['+lino+'][drug_id]']; ++lino) {
  var pfx = '{$prod}[' + lino + ']';
  if (f[pfx + '[del]'] && f[pfx + '[del]'].checked) continue;
  if (f[pfx + '[method]'] && f[pfx + '[method]'].value) {
   var tmp_meth = f[pfx + '[method]'].value;
   // Contraceptive products should normally include a corresponding method.
   var got_svc = false;
   for (var slino = 0; f['{$bill}[' + slino + '][code_type]']; ++slino) {
    var spfx = '{$bill}[' + slino + ']';
    if (f[spfx + '[del]'] && f[spfx + '[del]'].checked) continue;
    if (f[spfx + '[method]'] && f[spfx + '[method]'].value) {
     if (f[spfx + '[method]'].value == tmp_meth) got_svc = true;
    }
   }
   if (!got_svc) {
    if (!confirm('" . xls('Warning: There is no service matching the contraceptive product.') . "'))
     return false;
   }
  }
  ++required_code_count;
 }
";
    } // end match services to products
    if (isset($GLOBALS['code_types']['MA'])) {
      $s .= "
 if (required_code_count == 0) {
  if (!confirm('" . xls('You have not entered any clinical services or products. Click Cancel to add them. Or click OK if you want to save as-is.') . "')) {
   return false;
  }
 }
";
    }
    $s .= "
 // End contraception validation.
 if (f.ippfconmeth) {
  // Save the primary contraceptive method to its hidden form field.
  f.ippfconmeth.value = max_contra_code;
 }
 return true;
}
";
    return $s;
  }

}