library/Claim.class.php

   1 <?php
   2 // Copyright (C) 2007-2009 Rod Roark <rod@sunsetsystems.com>
   3 //
   4 // This program is free software; you can redistribute it and/or
   5 // modify it under the terms of the GNU General Public License
   6 // as published by the Free Software Foundation; either version 2
   7 // of the License, or (at your option) any later version.
   8
   9 require_once(dirname(__FILE__) . "/classes/Address.class.php");
  10 require_once(dirname(__FILE__) . "/classes/InsuranceCompany.class.php");
  11 require_once(dirname(__FILE__) . "/sql-ledger.inc");
  12 require_once(dirname(__FILE__) . "/invoice_summary.inc.php");
  13
  14 // This enforces the X12 Basic Character Set. Page A2.
  15 //
  16 function x12clean($str) {
  17   return preg_replace('/[^A-Z0-9!"\\&\'()+,\\-.\\/;?= ]/', '', strtoupper($str));
  18 }
  19
  20 // Make sure dates have no formatting and zero filled becomes blank
  21 // Handles date time stamp formats as well
  22 //
  23 function cleanDate($date_field)
  24   {
  25       $cleandate = str_replace('-', '', substr($date_field, 0, 10));
  26
  27       if(substr_count($cleandate,'0')==8)
  28       {
  29           $cleandate='';
  30       }
  31
  32       return ($cleandate);
  33   }
  34
  35 class Claim {
  36
  37   var $pid;               // patient id
  38   var $encounter_id;      // encounter id
  39   var $procs;             // array of procedure rows from billing table
  40   var $diags;             // array of icd9 codes from billing table
  41   var $x12_partner;       // row from x12_partners table
  42   var $encounter;         // row from form_encounter table
  43   var $facility;          // row from facility table
  44   var $billing_facility;  // row from facility table
  45   var $provider;          // row from users table (rendering provider)
  46   var $referrer;          // row from users table (referring provider)
  47   var $supervisor;        // row from users table (supervising provider)
  48   var $insurance_numbers; // row from insurance_numbers table for current payer
  49   var $supervisor_numbers; // row from insurance_numbers table for current payer
  50   var $patient_data;      // row from patient_data table
  51   var $billing_options;   // row from form_misc_billing_options table
  52   var $invoice;           // result from get_invoice_summary()
  53   var $payers;            // array of arrays, for all payers
  54   var $copay;             // total of copays from the ar_activity table
  55
  56   function loadPayerInfo(&$billrow) {
  57     global $sl_err;
  58     $encounter_date = substr($this->encounter['date'], 0, 10);
  59
  60     // Create the $payers array.  This contains data for all insurances
  61     // with the current one always at index 0, and the others in payment
  62     // order starting at index 1.
  63     //
  64     $this->payers = array();
  65     $this->payers[0] = array();
  66     $query = "SELECT * FROM insurance_data WHERE " .
  67       "pid = '{$this->pid}' AND " .
  68       "date <= '$encounter_date' " .
  69       "ORDER BY type ASC, date DESC";
  70     $dres = sqlStatement($query);
  71     $prevtype = '';
  72     while ($drow = sqlFetchArray($dres)) {
  73       if (strcmp($prevtype, $drow['type']) == 0) continue;
  74       $prevtype = $drow['type'];
  75       // Very important to look at entries with a missing provider because
  76       // they indicate no insurance as of the given date.
  77       if (empty($drow['provider'])) continue;
  78       $ins = count($this->payers);
  79       if ($drow['provider'] == $billrow['payer_id'] && empty($this->payers[0]['data'])) $ins = 0;
  80       $crow = sqlQuery("SELECT * FROM insurance_companies WHERE " .
  81         "id = '" . $drow['provider'] . "'");
  82       $orow = new InsuranceCompany($drow['provider']);
  83       $this->payers[$ins] = array();
  84       $this->payers[$ins]['data']    = $drow;
  85       $this->payers[$ins]['company'] = $crow;
  86       $this->payers[$ins]['object']  = $orow;
  87     }
  88
  89     // This kludge hands most cases of a rare ambiguous situation, where
  90     // the primary insurance company is the same as the secondary.  It seems
  91     // nobody planned for that!
  92     //
  93     for ($i = 1; $i < count($this->payers); ++$i) {
  94       if ($billrow['process_date'] &&
  95         $this->payers[0]['data']['provider'] == $this->payers[$i]['data']['provider'])
  96       {
  97         $tmp = $this->payers[0];
  98         $this->payers[0] = $this->payers[$i];
  99         $this->payers[$i] = $tmp;
 100       }
 101     }
 102
 103     $this->using_modifiers = true;
 104
 105     // Get payment and adjustment details if there are any previous payers.
 106     //
 107     $this->invoice = array();
 108     if ($this->payerSequence() != 'P') {
 109       if ($GLOBALS['oer_config']['ws_accounting']['enabled'] === 2) {
 110         $this->invoice = ar_get_invoice_summary($this->pid, $this->encounter_id, true);
 111       }
 112       else if ($GLOBALS['oer_config']['ws_accounting']['enabled']) {
 113         SLConnect();
 114         $arres = SLQuery("select id from ar where invnumber = " .
 115           "'{$this->pid}.{$this->encounter_id}'");
 116         if ($sl_err) die($sl_err);
 117         $arrow = SLGetRow($arres, 0);
 118         if ($arrow) {
 119           $this->invoice = get_invoice_summary($arrow['id'], true);
 120         }
 121         SLClose();
 122       }
 123       // Secondary claims might not have modifiers in SQL-Ledger data.
 124       // In that case, note that we should not try to match on them.
 125       $this->using_modifiers = false;
 126       foreach ($this->invoice as $key => $trash) {
 127         if (strpos($key, ':')) $this->using_modifiers = true;
 128       }
 129     }
 130   }
 131
 132   // Constructor. Loads relevant database information.
 133   //
 134   function Claim($pid, $encounter_id) {
 135     $this->pid = $pid;
 136     $this->encounter_id = $encounter_id;
 137     $this->procs = array();
 138     $this->diags = array();
 139     $this->copay = 0;
 140
 141     // We need the encounter date before we can identify the payers.
 142     $sql = "SELECT * FROM form_encounter WHERE " .
 143       "pid = '{$this->pid}' AND " .
 144       "encounter = '{$this->encounter_id}'";
 145     $this->encounter = sqlQuery($sql);
 146
 147     // Sort by procedure timestamp in order to get some consistency.
 148     $sql = "SELECT b.id, b.date, b.code_type, b.code, b.pid, b.provider_id, " .
 149       "b.user, b.groupname, b.authorized, b.encounter, b.code_text, b.billed, " .
 150       "b.activity, b.payer_id, b.bill_process, b.bill_date, b.process_date, " .
 151       "b.process_file, b.modifier, b.units, b.fee, b.justify, b.target, b.x12_partner_id, " .
 152       "b.ndc_info, b.notecodes, ct.ct_diag " .
 153       "FROM billing as b INNER JOIN code_types as ct " .
 154       "ON b.code_type = ct.ct_key " .
 155       "WHERE ct.ct_claim = '1' AND ct.ct_active = '1' AND " .
 156       "b.encounter = '{$this->encounter_id}' AND b.pid = '{$this->pid}' AND " .
 157       "b.activity = '1' ORDER BY b.date, b.id";
 158     $res = sqlStatement($sql);
 159     while ($row = sqlFetchArray($res)) {
 160       // Save all diagnosis codes.
 161       if ($row['ct_diag'] == '1') {
 162         $this->diags[$row['code']] = $row['code'];
 163         continue;
 164       }
 165       if (!$row['units']) $row['units'] = 1;
 166       // Load prior payer data at the first opportunity in order to get
 167       // the using_modifiers flag that is referenced below.
 168       if (empty($this->procs)) $this->loadPayerInfo($row);
 169       // Consolidate duplicate procedures.
 170       foreach ($this->procs as $key => $trash) {
 171         if (strcmp($this->procs[$key]['code'],$row['code']) == 0 &&
 172             (strcmp($this->procs[$key]['modifier'],$row['modifier']) == 0 ||
 173              !$this->using_modifiers))
 174         {
 175           $this->procs[$key]['units'] += $row['units'];
 176           $this->procs[$key]['fee']   += $row['fee'];
 177           continue 2; // skip to next table row
 178         }
 179       }
 180
 181       // If there is a row-specific provider then get its details.
 182       if (!empty($row['provider_id'])) {
 183         // Get service provider data for this row.
 184         $sql = "SELECT * FROM users WHERE id = '" . $row['provider_id'] . "'";
 185         $row['provider'] = sqlQuery($sql);
 186         // Get insurance numbers for this row's provider.
 187         $sql = "SELECT * FROM insurance_numbers WHERE " .
 188           "(insurance_company_id = '" . $row['payer_id'] .
 189           "' OR insurance_company_id is NULL) AND " .
 190           "provider_id = '" . $row['provider_id'] . "' " .
 191           "ORDER BY insurance_company_id DESC LIMIT 1";
 192         $row['insurance_numbers'] = sqlQuery($sql);
 193       }
 194
 195       $this->procs[] = $row;
 196     }
 197
 198     $resMoneyGot = sqlStatement("SELECT pay_amount as PatientPay,session_id as id,".
 199       "date(post_time) as date FROM ar_activity where pid ='{$this->pid}' and encounter ='{$this->encounter_id}' ".
 200       "and payer_type=0 and account_code='PCP'");
 201       //new fees screen copay gives account_code='PCP'
 202     while($rowMoneyGot = sqlFetchArray($resMoneyGot)){
 203       $PatientPay=$rowMoneyGot['PatientPay']*-1;
 204       $this->copay -= $PatientPay;
 205     }
 206
 207     $sql = "SELECT * FROM x12_partners WHERE " .
 208       "id = '" . $this->procs[0]['x12_partner_id'] . "'";
 209     $this->x12_partner = sqlQuery($sql);
 210
 211     $sql = "SELECT * FROM facility WHERE " .
 212       "id = '" . addslashes($this->encounter['facility_id']) . "' " .
 213       "LIMIT 1";
 214     $this->facility = sqlQuery($sql);
 215
 216     /*****************************************************************
 217     $provider_id = $this->procs[0]['provider_id'];
 218     *****************************************************************/
 219     $provider_id = $this->encounter['provider_id'];
 220     $sql = "SELECT * FROM users WHERE id = '$provider_id'";
 221     $this->provider = sqlQuery($sql);
 222     // Selecting the billing facility assigned  to the encounter.  If none,
 223     // try the first (and hopefully only) facility marked as a billing location.
 224     if (empty($this->encounter['billing_facility'])) {
 225       $sql = "SELECT * FROM facility " .
 226         "ORDER BY billing_location DESC, id ASC LIMIT 1";
 227     }
 228     else {
 229       $sql = "SELECT * FROM facility " .
 230       " where id ='" . addslashes($this->encounter['billing_facility']) . "' ";
 231     }
 232     $this->billing_facility = sqlQuery($sql);
 233
 234     $sql = "SELECT * FROM insurance_numbers WHERE " .
 235       "(insurance_company_id = '" . $this->procs[0]['payer_id'] .
 236       "' OR insurance_company_id is NULL) AND " .
 237       "provider_id = '$provider_id' " .
 238       "ORDER BY insurance_company_id DESC LIMIT 1";
 239     $this->insurance_numbers = sqlQuery($sql);
 240
 241     $sql = "SELECT * FROM patient_data WHERE " .
 242       "pid = '{$this->pid}' " .
 243       "ORDER BY id LIMIT 1";
 244     $this->patient_data = sqlQuery($sql);
 245
 246     $sql = "SELECT fpa.* FROM forms JOIN form_misc_billing_options AS fpa " .
 247       "ON fpa.id = forms.form_id WHERE " .
 248       "forms.encounter = '{$this->encounter_id}' AND " .
 249       "forms.pid = '{$this->pid}' AND " .
 250       "forms.deleted = 0 AND " .
 251       "forms.formdir = 'misc_billing_options' " .
 252       "ORDER BY forms.date";
 253     $this->billing_options = sqlQuery($sql);
 254
 255     $referrer_id = (empty($GLOBALS['MedicareReferrerIsRenderer']) ||
 256       $this->insurance_numbers['provider_number_type'] != '1C') ?
 257       $this->patient_data['ref_providerID'] : $provider_id;
 258     $sql = "SELECT * FROM users WHERE id = '$referrer_id'";
 259     $this->referrer = sqlQuery($sql);
 260     if (!$this->referrer) $this->referrer = array();
 261
 262     $supervisor_id = $this->encounter['supervisor_id'];
 263     $sql = "SELECT * FROM users WHERE id = '$supervisor_id'";
 264     $this->supervisor = sqlQuery($sql);
 265     if (!$this->supervisor) $this->supervisor = array();
 266
 267     $sql = "SELECT * FROM insurance_numbers WHERE " .
 268       "(insurance_company_id = '" . $this->procs[0]['payer_id'] .
 269       "' OR insurance_company_id is NULL) AND " .
 270       "provider_id = '$supervisor_id' " .
 271       "ORDER BY insurance_company_id DESC LIMIT 1";
 272     $this->supervisor_numbers = sqlQuery($sql);
 273     if (!$this->supervisor_numbers) $this->supervisor_numbers = array();
 274
 275   } // end constructor
 276
 277   // Return an array of adjustments from the designated prior payer for the
 278   // designated procedure key (might be procedure:modifier), or for the claim
 279   // level.  For each adjustment give date, group code, reason code, amount.
 280   // Note this will include "patient responsibility" adjustments which are
 281   // not adjustments to OUR invoice, but they reduce the amount that the
 282   // insurance company pays.
 283   //
 284   function payerAdjustments($ins, $code='Claim') {
 285     $aadj = array();
 286
 287     // If we have no modifiers stored in SQL-Ledger for this claim,
 288     // then we cannot use a modifier passed in with the key.
 289     $tmp = strpos($code, ':');
 290     if ($tmp && !$this->using_modifiers) $code = substr($code, 0, $tmp);
 291
 292     // For payments, source always starts with "Ins" or "Pt".
 293     // Nonzero adjustment reason examples:
 294     //   Ins1 adjust code 42 (Charges exceed ... (obsolete))
 295     //   Ins1 adjust code 45 (Charges exceed your contracted/ legislated fee arrangement)
 296     //   Ins1 adjust code 97 (Payment is included in the allowance for another service/procedure)
 297     //   Ins1 adjust code A2 (Contractual adjustment)
 298     //   Ins adjust Ins1
 299     //   adjust code 45
 300     // Zero adjustment reason examples:
 301     //   Co-pay: 25.00
 302     //   Coinsurance: 11.46  (code 2)   Note: fix remits to identify insurance
 303     //   To deductible: 0.22 (code 1)   Note: fix remits to identify insurance
 304     //   To copay Ins1 (manual entry)
 305     //   To ded'ble Ins1 (manual entry)
 306
 307     if (!empty($this->invoice[$code])) {
 308       $date = '';
 309       $deductible  = 0;
 310       $coinsurance = 0;
 311       $inslabel = ($this->payerSequence($ins) == 'S') ? 'Ins2' : 'Ins1';
 312       $insnumber = substr($inslabel, 3);
 313
 314       // Compute this procedure's patient responsibility amount as of this
 315       // prior payer, which is the original charge minus all insurance
 316       // payments and "hard" adjustments up to this payer.
 317       $ptresp = $this->invoice[$code]['chg'] + $this->invoice[$code]['adj'];
 318       foreach ($this->invoice[$code]['dtl'] as $key => $value) {
 319         if (isset($value['plv'])) {
 320           // New method; plv (from ar_activity.payer_type) exists to
 321           // indicate the payer level.
 322           if (isset($value['pmt']) && $value['pmt'] != 0) {
 323             if ($value['plv'] > 0 && $value['plv'] <= $insnumber)
 324               $ptresp -= $value['pmt'];
 325           }
 326           else if (isset($value['chg']) && trim(substr($key, 0, 10))) {
 327             // non-blank key indicates this is an adjustment and not a charge
 328             if ($value['plv'] > 0 && $value['plv'] <= $insnumber)
 329               $ptresp += $value['chg']; // adjustments are negative charges
 330           }
 331
 332           $msp = isset( $value['msp'] ) ? $value['msp'] : null; // record the reason for adjustment
 333         }
 334         else {
 335           // Old method: With SQL-Ledger payer level was stored in the memo.
 336           if (preg_match("/^Ins(\d)/i", $value['src'], $tmp)) {
 337             if ($tmp[1] <= $insnumber) $ptresp -= $value['pmt'];
 338           }
 339           else if (trim(substr($key, 0, 10))) { // not an adjustment if no date
 340             if (!preg_match("/Ins(\d)/i", $value['rsn'], $tmp) || $tmp[1] <= $insnumber)
 341               $ptresp += $value['chg']; // adjustments are negative charges
 342           }
 343         }
 344       }
 345       if ($ptresp < 0) $ptresp = 0; // we may be insane but try to hide it
 346
 347       // Main loop, to extract adjustments for this payer and procedure.
 348       foreach ($this->invoice[$code]['dtl'] as $key => $value) {
 349         $tmp = str_replace('-', '', trim(substr($key, 0, 10)));
 350         if ($tmp) $date = $tmp;
 351         if ($tmp && $value['pmt'] == 0) { // not original charge and not a payment
 352           $rsn = $value['rsn'];
 353           $chg = 0 - $value['chg']; // adjustments are negative charges
 354
 355           $gcode = 'CO'; // default group code = contractual obligation
 356           $rcode = '45'; // default reason code = max fee exceeded (code 42 is obsolete)
 357
 358           if (preg_match("/Ins adjust $inslabel/i", $rsn, $tmp)) {
 359             // From manual post. Take the defaults.
 360           }
 361           else if (preg_match("/To copay $inslabel/i", $rsn, $tmp) && !$chg) {
 362             $coinsurance = $ptresp; // from manual post
 363             continue;
 364           }
 365           else if (preg_match("/To ded'ble $inslabel/i", $rsn, $tmp) && !$chg) {
 366             $deductible = $ptresp; // from manual post
 367             continue;
 368           }
 369           else if (preg_match("/$inslabel copay: (\S+)/i", $rsn, $tmp) && !$chg) {
 370             $coinsurance = $tmp[1]; // from 835 as of 6/2007
 371             continue;
 372           }
 373           else if (preg_match("/$inslabel coins: (\S+)/i", $rsn, $tmp) && !$chg) {
 374             $coinsurance = $tmp[1]; // from 835 and manual post as of 6/2007
 375             continue;
 376           }
 377           else if (preg_match("/$inslabel dedbl: (\S+)/i", $rsn, $tmp) && !$chg) {
 378             $deductible = $tmp[1]; // from 835 and manual post as of 6/2007
 379             continue;
 380           }
 381           else if (preg_match("/$inslabel ptresp: (\S+)/i", $rsn, $tmp) && !$chg) {
 382             continue; // from 835 as of 6/2007
 383           }
 384           else if (preg_match("/$inslabel adjust code (\S+)/i", $rsn, $tmp)) {
 385             $rcode = $tmp[1]; // from 835
 386           }
 387           else if (preg_match("/$inslabel/i", $rsn, $tmp)) {
 388             // Take the defaults.
 389           }
 390           else if (preg_match('/Ins(\d)/i', $rsn, $tmp) && $tmp[1] != $insnumber) {
 391             continue; // it's for some other payer
 392           }
 393           else if ($insnumber == '1') {
 394             if (preg_match("/\$\s*adjust code (\S+)/i", $rsn, $tmp)) {
 395               $rcode = $tmp[1]; // from 835
 396             }
 397             else if ($chg) {
 398               // Other adjustments default to Ins1.
 399             }
 400             else if (preg_match("/Co-pay: (\S+)/i", $rsn, $tmp) ||
 401               preg_match("/Coinsurance: (\S+)/i", $rsn, $tmp)) {
 402               $coinsurance = 0 + $tmp[1]; // from 835 before 6/2007
 403               continue;
 404             }
 405             else if (preg_match("/To deductible: (\S+)/i", $rsn, $tmp)) {
 406               $deductible = 0 + $tmp[1]; // from 835 before 6/2007
 407               continue;
 408             }
 409             else {
 410               continue; // there is no adjustment amount
 411             }
 412           }
 413           else {
 414             continue; // it's for primary and that's not us
 415           }
 416
 417           if ($rcode == '42') $rcode= '45'; // reason 42 is obsolete
 418           $aadj[] = array($date, $gcode, $rcode, sprintf('%.2f', $chg));
 419
 420         } // end if
 421       } // end foreach
 422
 423       // If we really messed it up, at least avoid negative numbers.
 424       if ($coinsurance > $ptresp) $coinsurance = $ptresp;
 425       if ($deductible  > $ptresp) $deductible  = $ptresp;
 426
 427       // Find out if this payer paid anything at all on this claim.  This will
 428       // help us allocate any unknown patient responsibility amounts.
 429       $thispaidanything = 0;
 430       foreach($this->invoice as $codekey => $codeval) {
 431         foreach ($codeval['dtl'] as $key => $value) {
 432           if (isset($value['plv'])) {
 433             // New method; plv exists to indicate the payer level.
 434             if ($value['plv'] == $insnumber) {
 435               $thispaidanything += $value['pmt'];
 436             }
 437           }
 438           else {
 439             if (preg_match("/$inslabel/i", $value['src'], $tmp)) {
 440               $thispaidanything += $value['pmt'];
 441             }
 442           }
 443         }
 444       }
 445
 446       // Allocate any unknown patient responsibility by guessing if the
 447       // deductible has been satisfied.
 448       if ($thispaidanything)
 449         $coinsurance = $ptresp - $deductible;
 450       else
 451         $deductible = $ptresp - $coinsurance;
 452
 453       $deductible  = sprintf('%.2f', $deductible);
 454       $coinsurance = sprintf('%.2f', $coinsurance);
 455
 456       if ($date && $deductible != 0)
 457         $aadj[] = array($date, 'PR', '1', $deductible, $msp);
 458       if ($date && $coinsurance != 0)
 459         $aadj[] = array($date, 'PR', '2', $coinsurance, $msp);
 460
 461     } // end if
 462
 463     return $aadj;
 464   }
 465
 466   // Return date, total payments and total "hard" adjustments from the given
 467   // prior payer. If $code is specified then only that procedure key is
 468   // selected, otherwise it's for the whole claim.
 469   //
 470   function payerTotals($ins, $code='') {
 471     // If we have no modifiers stored in SQL-Ledger for this claim,
 472     // then we cannot use a modifier passed in with the key.
 473     $tmp = strpos($code, ':');
 474     if ($tmp && !$this->using_modifiers) $code = substr($code, 0, $tmp);
 475
 476     $inslabel = ($this->payerSequence($ins) == 'S') ? 'Ins2' : 'Ins1';
 477     $insnumber = substr($inslabel, 3);
 478     $paytotal = 0;
 479     $adjtotal = 0;
 480     $date = '';
 481     foreach($this->invoice as $codekey => $codeval) {
 482       if ($code && strcmp($codekey,$code) != 0) continue;
 483       foreach ($codeval['dtl'] as $key => $value) {
 484         if (isset($value['plv'])) {
 485           // New method; plv (from ar_activity.payer_type) exists to
 486           // indicate the payer level.
 487           if ($value['plv'] == $insnumber) {
 488             if (!$date) $date = str_replace('-', '', trim(substr($key, 0, 10)));
 489             $paytotal += $value['pmt'];
 490           }
 491         }
 492         else {
 493           // Old method: With SQL-Ledger payer level was stored in the memo.
 494           if (preg_match("/$inslabel/i", $value['src'], $tmp)) {
 495             if (!$date) $date = str_replace('-', '', trim(substr($key, 0, 10)));
 496             $paytotal += $value['pmt'];
 497           }
 498         }
 499       }
 500       $aarr = $this->payerAdjustments($ins, $codekey);
 501       foreach ($aarr as $a) {
 502         if (strcmp($a[1],'PR') != 0) $adjtotal += $a[3];
 503         if (!$date) $date = $a[0];
 504       }
 505     }
 506     return array($date, sprintf('%.2f', $paytotal), sprintf('%.2f', $adjtotal));
 507   }
 508
 509   // Return the amount already paid by the patient.
 510   //
 511   function patientPaidAmount() {
 512     // For primary claims $this->invoice is not loaded, so get the co-pay
 513     // from the ar_activity table instead.
 514     if (empty($this->invoice)) return $this->copay;
 515     //
 516     $amount = 0;
 517     foreach($this->invoice as $codekey => $codeval) {
 518       foreach ($codeval['dtl'] as $key => $value) {
 519         if (isset($value['plv'])) {
 520           // New method; plv exists to indicate the payer level.
 521           if ($value['plv'] == 0) { // 0 indicates patient
 522             $amount += $value['pmt'];
 523           }
 524         }
 525         else {
 526           // Old method: With SQL-Ledger payer level was stored in the memo.
 527           if (!preg_match("/Ins/i", $value['src'], $tmp)) {
 528             $amount += $value['pmt'];
 529           }
 530         }
 531       }
 532     }
 533     return sprintf('%.2f', $amount);
 534   }
 535
 536   // Return invoice total, including adjustments but not payments.
 537   //
 538   function invoiceTotal() {
 539     $amount = 0;
 540     foreach($this->invoice as $codekey => $codeval) {
 541       $amount += $codeval['chg'];
 542     }
 543     return sprintf('%.2f', $amount);
 544   }
 545
 546   // Number of procedures in this claim.
 547   function procCount() {
 548     return count($this->procs);
 549   }
 550
 551   // Number of payers for this claim. Ranges from 1 to 3.
 552   function payerCount() {
 553     return count($this->payers);
 554   }
 555
 556   function x12gsversionstring() {
 557     return x12clean(trim($this->x12_partner['x12_version']));
 558   }
 559
 560   function x12gssenderid() {
 561     $tmp = $this->x12_partner['x12_sender_id'];
 562     while (strlen($tmp) < 15) $tmp .= " ";
 563     return $tmp;
 564   }
 565
 566   function x12gs03() {
 567    /*
 568     * GS03: Application Receiver's Code
 569     * Code Identifying Party Receiving Transmission
 570     *
 571     * In most cases, the ISA08 and GS03 are the same. However
 572     *
 573     * In some clearing houses ISA08 and GS03 are different
 574     * Example: http://www.acs-gcro.com/downloads/DOL/DOL_CG_X12N_5010_837_v1_02.pdf - Page 18
 575     * In this .pdf, the ISA08 is specified to be 100000 while the GS03 is specified to be 77044
 576     *
 577     * Therefore if the x12_gs03 segement is explicitly specified we use that value,
 578     * otherwise we simply use the same receiver ID as specified for ISA03
 579     */
 580     if($this->x12_partner['x12_gs03'] !== '')
 581         return $this->x12_partner['x12_gs03'];
 582     else
 583         return $this->x12_partner['x12_receiver_id'];
 584   }
 585
 586   function x12gsreceiverid() {
 587     $tmp = $this->x12_partner['x12_receiver_id'];
 588     while (strlen($tmp) < 15) $tmp .= " ";
 589     return $tmp;
 590   }
 591
 592   function x12gsisa05() {
 593     return $this->x12_partner['x12_isa05'];
 594   }
 595 //adding in functions for isa 01 - isa 04
 596
 597   function x12gsisa01() {
 598     return $this->x12_partner['x12_isa01'];
 599   }
 600
 601   function x12gsisa02() {
 602     return $this->x12_partner['x12_isa02'];
 603   }
 604
 605    function x12gsisa03() {
 606     return $this->x12_partner['x12_isa03'];
 607   }
 608    function x12gsisa04() {
 609     return $this->x12_partner['x12_isa04'];
 610   }
 611
 612 /////////
 613   function x12gsisa07() {
 614     return $this->x12_partner['x12_isa07'];
 615   }
 616
 617   function x12gsisa14() {
 618     return $this->x12_partner['x12_isa14'];
 619   }
 620
 621   function x12gsisa15() {
 622     return $this->x12_partner['x12_isa15'];
 623   }
 624
 625   function x12gsgs02() {
 626     $tmp = $this->x12_partner['x12_gs02'];
 627     if ($tmp === '') $tmp = $this->x12_partner['x12_sender_id'];
 628     return $tmp;
 629   }
 630
 631   function x12gsper06() {
 632     return $this->x12_partner['x12_per06'];
 633   }
 634
 635   function cliaCode() {
 636     return x12clean(trim($this->facility['domain_identifier']));
 637   }
 638
 639   function billingFacilityName() {
 640     return x12clean(trim($this->billing_facility['name']));
 641   }
 642
 643   function billingFacilityStreet() {
 644     return x12clean(trim($this->billing_facility['street']));
 645   }
 646
 647   function billingFacilityCity() {
 648     return x12clean(trim($this->billing_facility['city']));
 649   }
 650
 651   function billingFacilityState() {
 652     return x12clean(trim($this->billing_facility['state']));
 653   }
 654
 655   function billingFacilityZip() {
 656     return x12clean(trim($this->billing_facility['postal_code']));
 657   }
 658
 659   function billingFacilityETIN() {
 660     return x12clean(trim(str_replace('-', '', $this->billing_facility['federal_ein'])));
 661   }
 662
 663   function billingFacilityNPI() {
 664     return x12clean(trim($this->billing_facility['facility_npi']));
 665   }
 666
 667   function federalIdType() {
 668         if ($this->billing_facility['tax_id_type'])
 669         {
 670         return $this->billing_facility['tax_id_type'];
 671         }
 672         else{
 673         return null;
 674         }
 675   }
 676
 677   # The billing facility and the patient must both accept for this to return true.
 678   function billingFacilityAssignment($ins=0) {
 679     $tmp = strtoupper($this->payers[$ins]['data']['accept_assignment']);
 680     if (strcmp($tmp,'FALSE') == 0) return '0';
 681     return !empty($this->billing_facility['accepts_assignment']);
 682   }
 683
 684   function billingContactName() {
 685     return x12clean(trim($this->billing_facility['attn']));
 686   }
 687
 688   function billingContactPhone() {
 689     if (preg_match("/([2-9]\d\d)\D*(\d\d\d)\D*(\d\d\d\d)/",
 690       $this->billing_facility['phone'], $tmp))
 691     {
 692       return $tmp[1] . $tmp[2] . $tmp[3];
 693     }
 694     return '';
 695   }
 696
 697   function facilityName() {
 698     return x12clean(trim($this->facility['name']));
 699   }
 700
 701   function facilityStreet() {
 702     return x12clean(trim($this->facility['street']));
 703   }
 704
 705   function facilityCity() {
 706     return x12clean(trim($this->facility['city']));
 707   }
 708
 709   function facilityState() {
 710     return x12clean(trim($this->facility['state']));
 711   }
 712
 713   function facilityZip() {
 714     return x12clean(trim($this->facility['postal_code']));
 715   }
 716
 717   function facilityETIN() {
 718     return x12clean(trim(str_replace('-', '', $this->facility['federal_ein'])));
 719   }
 720
 721   function facilityNPI() {
 722     return x12clean(trim($this->facility['facility_npi']));
 723   }
 724
 725   function facilityPOS() {
 726     return sprintf('%02d', trim($this->facility['pos_code']));
 727   }
 728
 729   function clearingHouseName() {
 730     return x12clean(trim($this->x12_partner['name']));
 731   }
 732
 733   function clearingHouseETIN() {
 734     return x12clean(trim(str_replace('-', '', $this->x12_partner['id_number'])));
 735   }
 736
 737   function providerNumberType($prockey=-1) {
 738     $tmp = ($prockey < 0 || empty($this->procs[$prockey]['provider_id'])) ?
 739       $this->insurance_numbers : $this->procs[$prockey]['insurance_numbers'];
 740     return $tmp['provider_number_type'];
 741   }
 742
 743   function providerNumber($prockey=-1) {
 744     $tmp = ($prockey < 0 || empty($this->procs[$prockey]['provider_id'])) ?
 745       $this->insurance_numbers : $this->procs[$prockey]['insurance_numbers'];
 746     return x12clean(trim(str_replace('-', '', $tmp['provider_number'])));
 747   }
 748
 749   function providerGroupNumber($prockey=-1) {
 750     $tmp = ($prockey < 0 || empty($this->procs[$prockey]['provider_id'])) ?
 751       $this->insurance_numbers : $this->procs[$prockey]['insurance_numbers'];
 752     return x12clean(trim(str_replace('-', '', $tmp['group_number'])));
 753   }
 754
 755   // Returns 'P', 'S' or 'T'.
 756   //
 757   function payerSequence($ins=0) {
 758     return strtoupper(substr($this->payers[$ins]['data']['type'], 0, 1));
 759   }
 760
 761   // Returns the HIPAA code of the patient-to-subscriber relationship.
 762   //
 763   function insuredRelationship($ins=0) {
 764     $tmp = strtolower($this->payers[$ins]['data']['subscriber_relationship']);
 765     if (strcmp($tmp,'self'  ) == 0) return '18';
 766     if (strcmp($tmp,'spouse') == 0) return '01';
 767     if (strcmp($tmp,'child' ) == 0) return '19';
 768     if (strcmp($tmp,'other' ) == 0) return 'G8';
 769     return $tmp; // should not happen
 770   }
 771
 772   function insuredTypeCode($ins=0) {
 773     if (strcmp($this->claimType($ins),'MB') == 0 && $this->payerSequence($ins) != 'P')
 774       return $this->payers[$ins]['data']['policy_type'];
 775     return '';
 776   }
 777
 778   // Is the patient also the subscriber?
 779   //
 780   function isSelfOfInsured($ins=0) {
 781     $tmp = strtolower($this->payers[$ins]['data']['subscriber_relationship']);
 782     return (strcmp($tmp,'self') == 0);
 783   }
 784
 785   function planName($ins=0) {
 786     return x12clean(trim($this->payers[$ins]['data']['plan_name']));
 787   }
 788
 789   function policyNumber($ins=0) { // "ID"
 790     return x12clean(trim($this->payers[$ins]['data']['policy_number']));
 791   }
 792
 793   function groupNumber($ins=0) {
 794     return x12clean(trim($this->payers[$ins]['data']['group_number']));
 795   }
 796
 797   function groupName($ins=0) {
 798     return x12clean(trim($this->payers[$ins]['data']['subscriber_employer']));
 799   }
 800
 801   // Claim types are:
 802   // 16 Other HCFA
 803   // MB Medicare Part B
 804   // MC Medicaid
 805   // CH ChampUSVA
 806   // CH ChampUS
 807   // BL Blue Cross Blue Shield
 808   // 16 FECA
 809   // 09 Self Pay
 810   // 10 Central Certification
 811   // 11 Other Non-Federal Programs
 812   // 12 Preferred Provider Organization (PPO)
 813   // 13 Point of Service (POS)
 814   // 14 Exclusive Provider Organization (EPO)
 815   // 15 Indemnity Insurance
 816   // 16 Health Maintenance Organization (HMO) Medicare Risk
 817   // AM Automobile Medical
 818   // CI Commercial Insurance Co.
 819   // DS Disability
 820   // HM Health Maintenance Organization
 821   // LI Liability
 822   // LM Liability Medical
 823   // OF Other Federal Program
 824   // TV Title V
 825   // VA Veterans Administration Plan
 826   // WC Workers Compensation Health Plan
 827   // ZZ Mutually Defined
 828   //
 829   function claimType($ins=0) {
 830     if (empty($this->payers[$ins]['object'])) return '';
 831     return $this->payers[$ins]['object']->get_freeb_claim_type();
 832   }
 833
 834   function insuredLastName($ins=0) {
 835     return x12clean(trim($this->payers[$ins]['data']['subscriber_lname']));
 836   }
 837
 838   function insuredFirstName($ins=0) {
 839     return x12clean(trim($this->payers[$ins]['data']['subscriber_fname']));
 840   }
 841
 842   function insuredMiddleName($ins=0) {
 843     return x12clean(trim($this->payers[$ins]['data']['subscriber_mname']));
 844   }
 845
 846   function insuredStreet($ins=0) {
 847     return x12clean(trim($this->payers[$ins]['data']['subscriber_street']));
 848   }
 849
 850   function insuredCity($ins=0) {
 851     return x12clean(trim($this->payers[$ins]['data']['subscriber_city']));
 852   }
 853
 854   function insuredState($ins=0) {
 855     return x12clean(trim($this->payers[$ins]['data']['subscriber_state']));
 856   }
 857
 858   function insuredZip($ins=0) {
 859     return x12clean(trim($this->payers[$ins]['data']['subscriber_postal_code']));
 860   }
 861
 862   function insuredPhone($ins=0) {
 863     if (preg_match("/([2-9]\d\d)\D*(\d\d\d)\D*(\d\d\d\d)/",
 864       $this->payers[$ins]['data']['subscriber_phone'], $tmp))
 865       return $tmp[1] . $tmp[2] . $tmp[3];
 866     return '';
 867   }
 868
 869   function insuredDOB($ins=0) {
 870     return str_replace('-', '', $this->payers[$ins]['data']['subscriber_DOB']);
 871   }
 872
 873   function insuredSex($ins=0) {
 874     return strtoupper(substr($this->payers[$ins]['data']['subscriber_sex'], 0, 1));
 875   }
 876
 877   function payerName($ins=0) {
 878     return x12clean(trim($this->payers[$ins]['company']['name']));
 879   }
 880
 881   function payerAttn($ins=0) {
 882     return x12clean(trim($this->payers[$ins]['company']['attn']));
 883   }
 884
 885   function payerStreet($ins=0) {
 886     if (empty($this->payers[$ins]['object'])) return '';
 887     $tmp = $this->payers[$ins]['object'];
 888     $tmp = $tmp->get_address();
 889     return x12clean(trim($tmp->get_line1()));
 890   }
 891
 892   function payerCity($ins=0) {
 893     if (empty($this->payers[$ins]['object'])) return '';
 894     $tmp = $this->payers[$ins]['object'];
 895     $tmp = $tmp->get_address();
 896     return x12clean(trim($tmp->get_city()));
 897   }
 898
 899   function payerState($ins=0) {
 900     if (empty($this->payers[$ins]['object'])) return '';
 901     $tmp = $this->payers[$ins]['object'];
 902     $tmp = $tmp->get_address();
 903     return x12clean(trim($tmp->get_state()));
 904   }
 905
 906   function payerZip($ins=0) {
 907     if (empty($this->payers[$ins]['object'])) return '';
 908     $tmp = $this->payers[$ins]['object'];
 909     $tmp = $tmp->get_address();
 910     return x12clean(trim($tmp->get_zip()));
 911   }
 912
 913   function payerID($ins=0) {
 914     return x12clean(trim($this->payers[$ins]['company']['cms_id']));
 915   }
 916
 917   function payerAltID($ins=0) {
 918     return x12clean(trim($this->payers[$ins]['company']['alt_cms_id']));
 919   }
 920
 921   function patientLastName() {
 922     return x12clean(trim($this->patient_data['lname']));
 923   }
 924
 925   function patientFirstName() {
 926     return x12clean(trim($this->patient_data['fname']));
 927   }
 928
 929   function patientMiddleName() {
 930     return x12clean(trim($this->patient_data['mname']));
 931   }
 932
 933   function patientStreet() {
 934     return x12clean(trim($this->patient_data['street']));
 935   }
 936
 937   function patientCity() {
 938     return x12clean(trim($this->patient_data['city']));
 939   }
 940
 941   function patientState() {
 942     return x12clean(trim($this->patient_data['state']));
 943   }
 944
 945   function patientZip() {
 946     return x12clean(trim($this->patient_data['postal_code']));
 947   }
 948
 949   function patientPhone() {
 950     $ptphone = $this->patient_data['phone_home'];
 951     if (!$ptphone) $ptphone = $this->patient_data['phone_biz'];
 952     if (!$ptphone) $ptphone = $this->patient_data['phone_cell'];
 953     if (preg_match("/([2-9]\d\d)\D*(\d\d\d)\D*(\d\d\d\d)/", $ptphone, $tmp))
 954       return $tmp[1] . $tmp[2] . $tmp[3];
 955     return '';
 956   }
 957
 958   function patientDOB() {
 959     return str_replace('-', '', $this->patient_data['DOB']);
 960   }
 961
 962   function patientSex() {
 963     return strtoupper(substr($this->patient_data['sex'], 0, 1));
 964   }
 965
 966   // Patient Marital Status: M = Married, S = Single, or something else.
 967   function patientStatus() {
 968     return strtoupper(substr($this->patient_data['status'], 0, 1));
 969   }
 970
 971   // This should be UNEMPLOYED, STUDENT, PT STUDENT, or anything else to
 972   // indicate employed.
 973   function patientOccupation() {
 974     return strtoupper(x12clean(trim($this->patient_data['occupation'])));
 975   }
 976
 977   function cptCode($prockey) {
 978     return x12clean(trim($this->procs[$prockey]['code']));
 979   }
 980
 981   function cptModifier($prockey) {
 982     // Split on the colon or space and clean each modifier
 983     $mods = array();
 984     $cln_mods = array();
 985     $mods = preg_split("/[: ]/",trim($this->procs[$prockey]['modifier']));
 986     foreach ($mods as $mod) {
 987         array_push($cln_mods, x12clean($mod));
 988     }
 989     return (implode (':', $cln_mods));
 990   }
 991
 992   function cptNotecodes($prockey) {
 993     return x12clean(trim($this->procs[$prockey]['notecodes']));
 994   }
 995
 996   // Returns the procedure code, followed by ":modifier" if there is one.
 997   function cptKey($prockey) {
 998     $tmp = $this->cptModifier($prockey);
 999     return $this->cptCode($prockey) . ($tmp ? ":$tmp" : "");
1000   }
1001
1002   function cptCharges($prockey) {
1003     return x12clean(trim($this->procs[$prockey]['fee']));
1004   }
1005
1006   function cptUnits($prockey) {
1007     if (empty($this->procs[$prockey]['units'])) return '1';
1008     return x12clean(trim($this->procs[$prockey]['units']));
1009   }
1010
1011   // NDC drug ID.
1012   function cptNDCID($prockey) {
1013     $ndcinfo = $this->procs[$prockey]['ndc_info'];
1014     if (preg_match('/^N4(\S+)\s+(\S\S)(.*)/', $ndcinfo, $tmp)) {
1015       $ndc = $tmp[1];
1016       if (preg_match('/^(\d+)-(\d+)-(\d+)$/', $ndc, $tmp)) {
1017         return sprintf('%05d%04d%02d', $tmp[1], $tmp[2], $tmp[3]);
1018       }
1019       return x12clean($ndc); // format is bad but return it anyway
1020     }
1021     return '';
1022   }
1023
1024   // NDC drug unit of measure code.
1025   function cptNDCUOM($prockey) {
1026     $ndcinfo = $this->procs[$prockey]['ndc_info'];
1027     if (preg_match('/^N4(\S+)\s+(\S\S)(.*)/', $ndcinfo, $tmp))
1028       return x12clean($tmp[2]);
1029     return '';
1030   }
1031
1032   // NDC drug number of units.
1033   function cptNDCQuantity($prockey) {
1034     $ndcinfo = $this->procs[$prockey]['ndc_info'];
1035     if (preg_match('/^N4(\S+)\s+(\S\S)(.*)/', $ndcinfo, $tmp)) {
1036       return x12clean(ltrim($tmp[3], '0'));
1037     }
1038     return '';
1039   }
1040
1041   function onsetDate() {
1042     return cleanDate($this->encounter['onset_date']);
1043   }
1044
1045   function onsetDateValid()
1046   {
1047       return $this->onsetDate()!=='';
1048   }
1049
1050   function serviceDate() {
1051     return str_replace('-', '', substr($this->encounter['date'], 0, 10));
1052   }
1053
1054   function priorAuth() {
1055     return x12clean(trim($this->billing_options['prior_auth_number']));
1056   }
1057
1058   function isRelatedEmployment() {
1059     return !empty($this->billing_options['employment_related']);
1060   }
1061
1062   function isRelatedAuto() {
1063     return !empty($this->billing_options['auto_accident']);
1064   }
1065
1066   function isRelatedOther() {
1067     return !empty($this->billing_options['other_accident']);
1068   }
1069
1070   function autoAccidentState() {
1071     return x12clean(trim($this->billing_options['accident_state']));
1072   }
1073
1074   function isUnableToWork() {
1075     return !empty($this->billing_options['is_unable_to_work']);
1076   }
1077
1078   function offWorkFrom() {
1079     return cleanDate($this->billing_options['off_work_from']);
1080   }
1081
1082   function offWorkTo() {
1083     return cleanDate($this->billing_options['off_work_to']);
1084   }
1085
1086   function isHospitalized() {
1087     return !empty($this->billing_options['is_hospitalized']);
1088   }
1089
1090   function hospitalizedFrom() {
1091     return cleanDate($this->billing_options['hospitalization_date_from']);
1092   }
1093
1094   function hospitalizedTo() {
1095     return cleanDate($this->billing_options['hospitalization_date_to']);
1096   }
1097
1098   function isOutsideLab() {
1099     return !empty($this->billing_options['outside_lab']);
1100   }
1101
1102   function outsideLabAmount() {
1103     return sprintf('%.2f', 0 + $this->billing_options['lab_amount']);
1104   }
1105
1106   function medicaidResubmissionCode() {
1107     return x12clean(trim($this->billing_options['medicaid_resubmission_code']));
1108   }
1109
1110   function medicaidOriginalReference() {
1111     return x12clean(trim($this->billing_options['medicaid_original_reference']));
1112   }
1113
1114   function frequencyTypeCode() {
1115     return empty($this->billing_options['replacement_claim']) ? '1' : '7';
1116   }
1117
1118   function additionalNotes() {
1119     return x12clean(trim($this->billing_options['comments']));
1120   }
1121
1122   function dateInitialTreatment() {
1123     return cleanDate($this->billing_options['date_initial_treatment']);
1124   }
1125
1126   // Returns an array of unique diagnoses.  Periods are stripped.
1127   function diagArray() {
1128     $da = array();
1129     foreach ($this->procs as $row) {
1130       $atmp = explode(':', $row['justify']);
1131       foreach ($atmp as $tmp) {
1132         if (!empty($tmp)) {
1133           $code_data = explode('|',$tmp);
1134           if (!empty($code_data[1])) {
1135             //Strip the prepended code type label
1136             $diag = str_replace('.', '', $code_data[1]);
1137           }
1138           else {
1139             //No prepended code type label
1140             $diag = str_replace('.', '', $code_data[0]);
1141           }
1142           $da[$diag] = $diag;
1143         }
1144       }
1145     }
1146     // The above got all the diagnoses used for justification, in the order
1147     // used for justification.  Next we go through all diagnoses, justified
1148     // or not, to make sure they all get into the claim.  We do it this way
1149     // so that the more important diagnoses appear first.
1150     foreach ($this->diags as $diag) {
1151       $diag = str_replace('.', '', $diag);
1152       $da[$diag] = $diag;
1153     }
1154     return $da;
1155   }
1156
1157   // Compute one 1-relative index in diagArray for the given procedure.
1158   // This function is obsolete, use diagIndexArray() instead.
1159   function diagIndex($prockey) {
1160     $da = $this->diagArray();
1161     $tmp = explode(':', $this->procs[$prockey]['justify']);
1162     if (empty($tmp)) return '';
1163     $diag = str_replace('.', '', $tmp[0]);
1164     $i = 0;
1165     foreach ($da as $value) {
1166       ++$i;
1167       if (strcmp($value,$diag) == 0) return $i;
1168     }
1169     return '';
1170   }
1171
1172   // Compute array of 1-relative diagArray indices for the given procedure.
1173   function diagIndexArray($prockey) {
1174     $dia = array();
1175     $da = $this->diagArray();
1176     $atmp = explode(':', $this->procs[$prockey]['justify']);
1177     foreach ($atmp as $tmp) {
1178       if (!empty($tmp)) {
1179         $code_data = explode('|',$tmp);
1180         if (!empty($code_data[1])) {
1181           //Strip the prepended code type label
1182           $diag = str_replace('.', '', $code_data[1]);
1183         }
1184         else {
1185           //No prepended code type label
1186           $diag = str_replace('.', '', $code_data[0]);
1187         }
1188         $i = 0;
1189         foreach ($da as $value) {
1190           ++$i;
1191           if (strcmp($value,$diag) == 0) $dia[] = $i;
1192         }
1193       }
1194     }
1195     return $dia;
1196   }
1197
1198   function providerLastName($prockey=-1) {
1199     $tmp = ($prockey < 0 || empty($this->procs[$prockey]['provider_id'])) ?
1200       $this->provider : $this->procs[$prockey]['provider'];
1201     return x12clean(trim($tmp['lname']));
1202   }
1203
1204   function providerFirstName($prockey=-1) {
1205     $tmp = ($prockey < 0 || empty($this->procs[$prockey]['provider_id'])) ?
1206       $this->provider : $this->procs[$prockey]['provider'];
1207     return x12clean(trim($tmp['fname']));
1208   }
1209
1210   function providerMiddleName($prockey=-1) {
1211     $tmp = ($prockey < 0 || empty($this->procs[$prockey]['provider_id'])) ?
1212       $this->provider : $this->procs[$prockey]['provider'];
1213     return x12clean(trim($tmp['mname']));
1214   }
1215
1216   function providerNPI($prockey=-1) {
1217     $tmp = ($prockey < 0 || empty($this->procs[$prockey]['provider_id'])) ?
1218       $this->provider : $this->procs[$prockey]['provider'];
1219     return x12clean(trim($tmp['npi']));
1220   }
1221
1222   function NPIValid($npi)
1223   {
1224       // A NPI MUST be a 10 digit number
1225       if($npi==='') return false;
1226       if(strlen($npi)!=10) return false;
1227       if(!preg_match("/[0-9]*/",$npi)) return false;
1228       return true;
1229
1230   }
1231   function providerNPIValid($prockey=-1)
1232   {
1233       return $this->NPIValid($this->providerNPI($prockey));
1234   }
1235
1236   function providerUPIN($prockey=-1) {
1237     $tmp = ($prockey < 0 || empty($this->procs[$prockey]['provider_id'])) ?
1238       $this->provider : $this->procs[$prockey]['provider'];
1239     return x12clean(trim($tmp['upin']));
1240   }
1241
1242   function providerSSN($prockey=-1) {
1243     $tmp = ($prockey < 0 || empty($this->procs[$prockey]['provider_id'])) ?
1244       $this->provider : $this->procs[$prockey]['provider'];
1245     return x12clean(trim(str_replace('-', '', $tmp['federaltaxid'])));
1246   }
1247
1248   function providerTaxonomy($prockey=-1) {
1249     $tmp = ($prockey < 0 || empty($this->procs[$prockey]['provider_id'])) ?
1250       $this->provider : $this->procs[$prockey]['provider'];
1251     if (empty($tmp['taxonomy'])) return '207Q00000X';
1252     return x12clean(trim($tmp['taxonomy']));
1253   }
1254
1255   function referrerLastName() {
1256     return x12clean(trim($this->referrer['lname']));
1257   }
1258
1259   function referrerFirstName() {
1260     return x12clean(trim($this->referrer['fname']));
1261   }
1262
1263   function referrerMiddleName() {
1264     return x12clean(trim($this->referrer['mname']));
1265   }
1266
1267   function referrerNPI() {
1268     return x12clean(trim($this->referrer['npi']));
1269   }
1270
1271   function referrerUPIN() {
1272     return x12clean(trim($this->referrer['upin']));
1273   }
1274
1275   function referrerSSN() {
1276     return x12clean(trim(str_replace('-', '', $this->referrer['federaltaxid'])));
1277   }
1278
1279   function referrerTaxonomy() {
1280     if (empty($this->referrer['taxonomy'])) return '207Q00000X';
1281     return x12clean(trim($this->referrer['taxonomy']));
1282   }
1283
1284   function supervisorLastName() {
1285     return x12clean(trim($this->supervisor['lname']));
1286   }
1287
1288   function supervisorFirstName() {
1289     return x12clean(trim($this->supervisor['fname']));
1290   }
1291
1292   function supervisorMiddleName() {
1293     return x12clean(trim($this->supervisor['mname']));
1294   }
1295
1296   function supervisorNPI() {
1297     return x12clean(trim($this->supervisor['npi']));
1298   }
1299
1300   function supervisorUPIN() {
1301     return x12clean(trim($this->supervisor['upin']));
1302   }
1303
1304   function supervisorSSN() {
1305     return x12clean(trim(str_replace('-', '', $this->supervisor['federaltaxid'])));
1306   }
1307
1308   function supervisorTaxonomy() {
1309     if (empty($this->supervisor['taxonomy'])) return '207Q00000X';
1310     return x12clean(trim($this->supervisor['taxonomy']));
1311   }
1312
1313   function supervisorNumberType() {
1314     return $this->supervisor_numbers['provider_number_type'];
1315   }
1316
1317   function supervisorNumber() {
1318     return x12clean(trim(str_replace('-', '', $this->supervisor_numbers['provider_number'])));
1319   }
1320
1321 }
1322 ?>