interface/patient_file/front_payment.php

   1 <?php
   2 // Copyright (C) 2006-2010 Rod Roark <rod@sunsetsystems.com>
   3 //
   4 // This program is free software; you can redistribute it and/or
   5 // modify it under the terms of the GNU General Public License
   6 // as published by the Free Software Foundation; either version 2
   7 // of the License, or (at your option) any later version.
   8
   9 $fake_register_globals=false;
  10 $sanitize_all_escapes=true;
  11
  12 require_once("../globals.php");
  13 require_once("$srcdir/acl.inc");
  14 require_once("$srcdir/patient.inc");
  15 require_once("$srcdir/billing.inc");
  16 require_once("$srcdir/forms.inc");
  17 require_once("$srcdir/sl_eob.inc.php");
  18 require_once("$srcdir/invoice_summary.inc.php");
  19 require_once("../../custom/code_types.inc.php");
  20 require_once("$srcdir/formatting.inc.php");
  21 require_once("$srcdir/options.inc.php");
  22 require_once("$srcdir/encounter_events.inc.php");
  23 $pid = $_REQUEST['hidden_patient_code'] > 0 ? $_REQUEST['hidden_patient_code'] : $pid;
  24
  25 $INTEGRATED_AR = $GLOBALS['oer_config']['ws_accounting']['enabled'] === 2;
  26 ?>
  27 <html>
  28 <head>
  29 <?php html_header_show();?>
  30 <link rel='stylesheet' href='<?php echo $css_header ?>' type='text/css'>
  31 <?php
  32 // Format dollars for display.
  33 //
  34 function bucks($amount) {
  35   if ($amount) {
  36     $amount = oeFormatMoney($amount);
  37     return $amount;
  38   }
  39   return '';
  40 }
  41
  42 function rawbucks($amount) {
  43   if ($amount) {
  44     $amount = sprintf("%.2f", $amount);
  45     return $amount;
  46   }
  47   return '';
  48 }
  49
  50 // Display a row of data for an encounter.
  51 //
  52 $var_index=0;
  53 function echoLine($iname, $date, $charges, $ptpaid, $inspaid, $duept,$encounter=0,$copay=0,$patcopay=0) {
  54   global $var_index;
  55   $var_index++;
  56   $balance = bucks($charges - $ptpaid - $inspaid);
  57   $balance = (round($duept,2) != 0) ? 0 : $balance;//if balance is due from patient, then insurance balance is displayed as zero
  58   $encounter = $encounter ? $encounter : '';
  59   echo " <tr id='tr_".attr($var_index)."' >\n";
  60   echo "  <td class='detail'>" . text(oeFormatShortDate($date)) . "</td>\n";
  61   echo "  <td class='detail' id='".attr($date)."' align='center'>" . htmlspecialchars($encounter, ENT_QUOTES) . "</td>\n";
  62   echo "  <td class='detail' align='center' id='td_charges_$var_index' >" . htmlspecialchars(bucks($charges), ENT_QUOTES) . "</td>\n";
  63   echo "  <td class='detail' align='center' id='td_inspaid_$var_index' >" . htmlspecialchars(bucks($inspaid*-1), ENT_QUOTES) . "</td>\n";
  64   echo "  <td class='detail' align='center' id='td_ptpaid_$var_index' >" . htmlspecialchars(bucks($ptpaid*-1), ENT_QUOTES) . "</td>\n";
  65   echo "  <td class='detail' align='center' id='td_patient_copay_$var_index' >" . htmlspecialchars(bucks($patcopay), ENT_QUOTES) . "</td>\n";
  66   echo "  <td class='detail' align='center' id='td_copay_$var_index' >" . htmlspecialchars(bucks($copay), ENT_QUOTES) . "</td>\n";
  67   echo "  <td class='detail' align='center' id='balance_$var_index'>" . htmlspecialchars(bucks($balance), ENT_QUOTES) . "</td>\n";
  68   echo "  <td class='detail' align='center' id='duept_$var_index'>" . htmlspecialchars(bucks(round($duept,2)*1), ENT_QUOTES) . "</td>\n";
  69   echo "  <td class='detail' align='right'><input type='text' name='".attr($iname)."'  id='paying_".attr($var_index)."' " .
  70     " value='" .  '' . "' onchange='coloring();calctotal()'  autocomplete='off' " .
  71     "onkeyup='calctotal()'  style='width:50px'/></td>\n";
  72   echo " </tr>\n";
  73 }
  74
  75 // Post a payment to the payments table.
  76 //
  77 function frontPayment($patient_id, $encounter, $method, $source, $amount1, $amount2) {
  78   global $timestamp;
  79   $tmprow = sqlQuery("SELECT date FROM form_encounter WHERE " .
  80     "encounter=? and pid=?",
  81                 array($encounter,$patient_id));
  82         //the manipulation is done to insert the amount paid into payments table in correct order to show in front receipts report,
  83         //if the payment is for today's encounter it will be shown in the report under today field and otherwise shown as previous
  84   $tmprowArray=explode(' ',$tmprow['date']);
  85   if(date('Y-m-d')==$tmprowArray[0])
  86    {
  87     if($amount1==0)
  88          {
  89           $amount1=$amount2;
  90           $amount2=0;
  91          }
  92    }
  93   else
  94    {
  95     if($amount2==0)
  96          {
  97           $amount2=$amount1;
  98           $amount1=0;
  99          }
 100    }
 101   $payid = sqlInsert("INSERT INTO payments ( " .
 102     "pid, encounter, dtime, user, method, source, amount1, amount2 " .
 103     ") VALUES ( ?, ?, ?, ?, ?, ?, ?, ?)", array($patient_id,$encounter,$timestamp,$_SESSION['authUser'],$method,$source,$amount1,$amount2) );
 104   return $payid;
 105 }
 106
 107 // We use this to put dashes, colons, etc. back into a timestamp.
 108 //
 109 function decorateString($fmt, $str) {
 110   $res = '';
 111   while ($fmt) {
 112     $fc = substr($fmt, 0, 1);
 113     $fmt = substr($fmt, 1);
 114     if ($fc == '.') {
 115       $res .= substr($str, 0, 1);
 116       $str = substr($str, 1);
 117     } else {
 118       $res .= $fc;
 119     }
 120   }
 121   return $res;
 122 }
 123
 124 // Compute taxes from a tax rate string and a possibly taxable amount.
 125 //
 126 function calcTaxes($row, $amount) {
 127   $total = 0;
 128   if (empty($row['taxrates'])) return $total;
 129   $arates = explode(':', $row['taxrates']);
 130   if (empty($arates)) return $total;
 131   foreach ($arates as $value) {
 132     if (empty($value)) continue;
 133     $trow = sqlQuery("SELECT option_value FROM list_options WHERE " .
 134       "list_id = 'taxrate' AND option_id = ? LIMIT 1", array($value) );
 135     if (empty($trow['option_value'])) {
 136       echo "<!-- Missing tax rate '".text($value)."'! -->\n";
 137       continue;
 138     }
 139     $tax = sprintf("%01.2f", $amount * $trow['option_value']);
 140     // echo "<!-- Rate = '$value', amount = '$amount', tax = '$tax' -->\n";
 141     $total += $tax;
 142   }
 143   return $total;
 144 }
 145
 146 $now = time();
 147 $today = date('Y-m-d', $now);
 148 $timestamp = date('Y-m-d H:i:s', $now);
 149
 150 if (!$INTEGRATED_AR) slInitialize();
 151
 152 // $patdata = getPatientData($pid, 'fname,lname,pubpid');
 153
 154 $patdata = sqlQuery("SELECT " .
 155   "p.fname, p.mname, p.lname, p.pubpid,p.pid, i.copay " .
 156   "FROM patient_data AS p " .
 157   "LEFT OUTER JOIN insurance_data AS i ON " .
 158   "i.pid = p.pid AND i.type = 'primary' " .
 159   "WHERE p.pid = ? ORDER BY i.date DESC LIMIT 1", array($pid) );
 160
 161 $alertmsg = ''; // anything here pops up in an alert box
 162
 163 // If the Save button was clicked...
 164 if ($_POST['form_save']) {
 165   $form_pid = $_POST['form_pid'];
 166   $form_method = trim($_POST['form_method']);
 167   $form_source = trim($_POST['form_source']);
 168   $patdata = getPatientData($form_pid, 'fname,mname,lname,pubpid');
 169   $NameNew=$patdata['fname'] . " " .$patdata['lname']. " " .$patdata['mname'];
 170
 171         if($_REQUEST['radio_type_of_payment']=='pre_payment')
 172          {
 173                   $payment_id = idSqlStatement("insert into ar_session set "    .
 174                         "payer_id = ?"       .
 175                         ", patient_id = ?"   .
 176                         ", user_id = ?"     .
 177                         ", closed = ?"      .
 178                         ", reference = ?"   .
 179                         ", check_date =  now() , deposit_date = now() " .
 180                         ",  pay_total = ?"    .
 181                         ", payment_type = 'patient'" .
 182                         ", description = ?"   .
 183                         ", adjustment_code = 'pre_payment'" .
 184                         ", post_to_date = now() " .
 185                         ", payment_method = ?",
 186                         array(0,$form_pid,$_SESSION['authUserID'],0,$form_source,$_REQUEST['form_prepayment'],$NameNew,$form_method));
 187
 188                  frontPayment($form_pid, 0, $form_method, $form_source, $_REQUEST['form_prepayment'], 0);//insertion to 'payments' table.
 189          }
 190
 191   if ($_POST['form_upay'] && $_REQUEST['radio_type_of_payment']!='pre_payment') {
 192     foreach ($_POST['form_upay'] as $enc => $payment) {
 193       if ($amount = 0 + $payment) {
 194                $zero_enc=$enc;
 195                if($_REQUEST['radio_type_of_payment']=='invoice_balance')
 196                     {
 197                          ;
 198                     }
 199                    else
 200                     {
 201                          if (!$enc)
 202                           {
 203                                         $enc = calendar_arrived($form_pid);
 204                           }
 205                     }
 206 //----------------------------------------------------------------------------------------------------
 207                         //Fetching the existing code and modifier
 208                         $ResultSearchNew = sqlStatement("SELECT * FROM billing LEFT JOIN code_types ON billing.code_type=code_types.ct_key ".
 209                                 "WHERE code_types.ct_fee=1 AND billing.activity!=0 AND billing.pid =? AND encounter=? ORDER BY billing.code,billing.modifier",
 210                                 array($form_pid,$enc));
 211                          if($RowSearch = sqlFetchArray($ResultSearchNew))
 212                           {
 213                                 $Codetype=$RowSearch['code_type'];
 214                                 $Code=$RowSearch['code'];
 215                                 $Modifier=$RowSearch['modifier'];
 216                           }
 217                          else
 218                           {
 219                                 $Codetype='';
 220                                 $Code='';
 221                                 $Modifier='';
 222                           }
 223 //----------------------------------------------------------------------------------------------------
 224                         if($_REQUEST['radio_type_of_payment']=='copay')//copay saving to ar_session and ar_activity tables
 225                          {
 226                                 $session_id=idSqlStatement("INSERT INTO ar_session (payer_id,user_id,reference,check_date,deposit_date,pay_total,".
 227                                  " global_amount,payment_type,description,patient_id,payment_method,adjustment_code,post_to_date) ".
 228                                  " VALUES ('0',?,?,now(),now(),?,'','patient','COPAY',?,?,'patient_payment',now())",
 229                                  array($_SESSION['authId'],$form_source,$amount,$form_pid,$form_method));
 230
 231                                   $insrt_id=idSqlStatement("INSERT INTO ar_activity (pid,encounter,code_type,code,modifier,payer_type,post_time,post_user,session_id,pay_amount,account_code)".
 232                                    " VALUES (?,?,?,?,?,0,now(),?,?,?,'PCP')",
 233                                          array($form_pid,$enc,$Codetype,$Code,$Modifier,$_SESSION['authId'],$session_id,$amount));
 234
 235                                  frontPayment($form_pid, $enc, $form_method, $form_source, $amount, 0);//insertion to 'payments' table.
 236                          }
 237                         if($_REQUEST['radio_type_of_payment']=='invoice_balance' || $_REQUEST['radio_type_of_payment']=='cash')
 238                          {                              //Payment by patient after insurance paid, cash patients similar to do not bill insurance in feesheet.
 239                                   if($_REQUEST['radio_type_of_payment']=='cash')
 240                                    {
 241                                     sqlStatement("update form_encounter set last_level_closed=? where encounter=? and pid=? ",
 242                                                         array(4,$enc,$form_pid));
 243                                     sqlStatement("update billing set billed=? where encounter=? and pid=?",
 244                                                         array(1,$enc,$form_pid));
 245                                    }
 246                                   $adjustment_code='patient_payment';
 247                                   $payment_id = idSqlStatement("insert into ar_session set "    .
 248                                         "payer_id = ?"       .
 249                                         ", patient_id = ?"   .
 250                                         ", user_id = ?"     .
 251                                         ", closed = ?"      .
 252                                         ", reference = ?"   .
 253                                         ", check_date =  now() , deposit_date = now() " .
 254                                         ",  pay_total = ?"    .
 255                                         ", payment_type = 'patient'" .
 256                                         ", description = ?"   .
 257                                         ", adjustment_code = ?" .
 258                                         ", post_to_date = now() " .
 259                                         ", payment_method = ?",
 260                                         array(0,$form_pid,$_SESSION['authUserID'],0,$form_source,$amount,$NameNew,$adjustment_code,$form_method));
 261
 262         //--------------------------------------------------------------------------------------------------------------------
 263
 264                                 frontPayment($form_pid, $enc, $form_method, $form_source, 0, $amount);//insertion to 'payments' table.
 265
 266         //--------------------------------------------------------------------------------------------------------------------
 267
 268                                         $resMoneyGot = sqlStatement("SELECT sum(pay_amount) as PatientPay FROM ar_activity where pid =? and ".
 269                                                 "encounter =? and payer_type=0 and account_code='PCP'",
 270                                                 array($form_pid,$enc));//new fees screen copay gives account_code='PCP'
 271                                         $rowMoneyGot = sqlFetchArray($resMoneyGot);
 272                                         $Copay=$rowMoneyGot['PatientPay'];
 273
 274         //--------------------------------------------------------------------------------------------------------------------
 275
 276                                         //Looping the existing code and modifier
 277                                         $ResultSearchNew = sqlStatement("SELECT * FROM billing LEFT JOIN code_types ON billing.code_type=code_types.ct_key WHERE code_types.ct_fee=1 ".
 278                                                 "AND billing.activity!=0 AND billing.pid =? AND encounter=? ORDER BY billing.code,billing.modifier",
 279                                           array($form_pid,$enc));
 280                                          while($RowSearch = sqlFetchArray($ResultSearchNew))
 281                                           {
 282                                                 $Codetype=$RowSearch['code_type'];
 283                                                 $Code=$RowSearch['code'];
 284                                                 $Modifier =$RowSearch['modifier'];
 285                                                 $Fee =$RowSearch['fee'];
 286
 287                                                 $resMoneyGot = sqlStatement("SELECT sum(pay_amount) as MoneyGot FROM ar_activity where pid =? ".
 288                                                         "and code_type=? and code=? and modifier=? and encounter =? and !(payer_type=0 and account_code='PCP')",
 289                                                 array($form_pid,$Codetype,$Code,$Modifier,$enc));
 290                                                 //new fees screen copay gives account_code='PCP'
 291                                                 $rowMoneyGot = sqlFetchArray($resMoneyGot);
 292                                                 $MoneyGot=$rowMoneyGot['MoneyGot'];
 293
 294                                                 $resMoneyAdjusted = sqlStatement("SELECT sum(adj_amount) as MoneyAdjusted FROM ar_activity where ".
 295                                                   "pid =? and code_type=? and code=? and modifier=? and encounter =?",
 296                                                   array($form_pid,$Codetype,$Code,$Modifier,$enc));
 297                                                 $rowMoneyAdjusted = sqlFetchArray($resMoneyAdjusted);
 298                                                 $MoneyAdjusted=$rowMoneyAdjusted['MoneyAdjusted'];
 299
 300                                                 $Remainder=$Fee-$Copay-$MoneyGot-$MoneyAdjusted;
 301                                                 $Copay=0;
 302                                                 if(round($Remainder,2)!=0 && $amount!=0)
 303                                                  {
 304                                                   if($amount-$Remainder >= 0)
 305                                                    {
 306                                                                 $insert_value=$Remainder;
 307                                                                 $amount=$amount-$Remainder;
 308                                                    }
 309                                                   else
 310                                                    {
 311                                                                 $insert_value=$amount;
 312                                                                 $amount=0;
 313                                                    }
 314                                                   sqlStatement("insert into ar_activity set "    .
 315                                                         "pid = ?"       .
 316                                                         ", encounter = ?"     .
 317                                                         ", code_type = ?"      .
 318                                                         ", code = ?"      .
 319                                                         ", modifier = ?"      .
 320                                                         ", payer_type = ?"   .
 321                                                         ", post_time = now() " .
 322                                                         ", post_user = ?" .
 323                                                         ", session_id = ?"    .
 324                                                         ", pay_amount = ?" .
 325                                                         ", adj_amount = ?"    .
 326                                                         ", account_code = 'PP'",
 327                                                         array($form_pid,$enc,$Codetype,$Code,$Modifier,0,$_SESSION['authUserID'],$payment_id,$insert_value,0));
 328                                                  }//if
 329                                           }//while
 330                                          if($amount!=0)//if any excess is there.
 331                                           {
 332                                                   sqlStatement("insert into ar_activity set "    .
 333                                                         "pid = ?"       .
 334                                                         ", encounter = ?"     .
 335                                                         ", code_type = ?"      .
 336                                                         ", code = ?"      .
 337                                                         ", modifier = ?"      .
 338                                                         ", payer_type = ?"   .
 339                                                         ", post_time = now() " .
 340                                                         ", post_user = ?" .
 341                                                         ", session_id = ?"    .
 342                                                         ", pay_amount = ?" .
 343                                                         ", adj_amount = ?"    .
 344                                                         ", account_code = 'PP'",
 345                                                         array($form_pid,$enc,$Codetype,$Code,$Modifier,0,$_SESSION['authUserID'],$payment_id,$amount,0));
 346                                           }
 347
 348         //--------------------------------------------------------------------------------------------------------------------
 349                            }//invoice_balance
 350                         }//if ($amount = 0 + $payment)
 351                 }//foreach
 352          }//if ($_POST['form_upay'])
 353   }//if ($_POST['form_save'])
 354
 355 if ($_POST['form_save'] || $_REQUEST['receipt']) {
 356
 357   if ($_REQUEST['receipt']) {
 358     $form_pid = $_GET['patient'];
 359     $timestamp = decorateString('....-..-.. ..:..:..', $_GET['time']);
 360   }
 361
 362   // Get details for what we guess is the primary facility.
 363   $frow = sqlQuery("SELECT * FROM facility " .
 364     "ORDER BY billing_location DESC, accepts_assignment DESC, id LIMIT 1");
 365
 366   // Get the patient's name and chart number.
 367   $patdata = getPatientData($form_pid, 'fname,mname,lname,pubpid');
 368
 369   // Re-fetch payment info.
 370   $payrow = sqlQuery("SELECT " .
 371     "SUM(amount1) AS amount1, " .
 372     "SUM(amount2) AS amount2, " .
 373     "MAX(method) AS method, " .
 374     "MAX(source) AS source, " .
 375     "MAX(dtime) AS dtime, " .
 376     // "MAX(user) AS user " .
 377     "MAX(user) AS user, " .
 378     "MAX(encounter) as encounter ".
 379     "FROM payments WHERE " .
 380     "pid = ? AND dtime = ?", array($form_pid,$timestamp) );
 381
 382   // Create key for deleting, just in case.
 383         $ref_id = ($_REQUEST['radio_type_of_payment']=='copay') ? $session_id : $payment_id ;
 384   $payment_key = $form_pid . '.' . preg_replace('/[^0-9]/', '', $timestamp).'.'.$ref_id;
 385
 386   // get facility from encounter
 387   $tmprow = sqlQuery("
 388     SELECT facility_id
 389     FROM form_encounter
 390     WHERE encounter = ?", array($payrow['encounter']) );
 391   $frow = sqlQuery("SELECT * FROM facility " .
 392     " WHERE id = ?", array($tmprow['facility_id']) );
 393
 394   // Now proceed with printing the receipt.
 395 ?>
 396
 397 <title><?php echo xlt('Receipt for Payment'); ?></title>
 398 <script type="text/javascript" src="../../library/dialog.js"></script>
 399 <script language="JavaScript">
 400
 401 <?php require($GLOBALS['srcdir'] . "/restoreSession.php"); ?>
 402
 403  // Process click on Print button.
 404  function printme() {
 405   var divstyle = document.getElementById('hideonprint').style;
 406   divstyle.display = 'none';
 407   window.print();
 408   // divstyle.display = 'block';
 409  }
 410  // Process click on Delete button.
 411  function deleteme() {
 412   dlgopen('deleter.php?payment=<?php echo $payment_key ?>', '_blank', 500, 450);
 413   return false;
 414  }
 415  // Called by the deleteme.php window on a successful delete.
 416  function imdeleted() {
 417   window.close();
 418  }
 419
 420  // Called to switch to the specified encounter having the specified DOS.
 421  // This also closes the popup window.
 422  function toencounter(enc, datestr, topframe) {
 423   topframe.restoreSession();
 424 <?php if ($GLOBALS['concurrent_layout']) { ?>
 425   // Hard-coding of RBot for this purpose is awkward, but since this is a
 426   // pop-up and our openemr is left_nav, we have no good clue as to whether
 427   // the top frame is more appropriate.
 428   topframe.left_nav.forceDual();
 429   topframe.left_nav.setEncounter(datestr, enc, '');
 430   topframe.left_nav.setRadio('RBot', 'enc');
 431   topframe.left_nav.loadFrame('enc2', 'RBot', 'patient_file/encounter/encounter_top.php?set_encounter=' + enc);
 432 <?php } else { ?>
 433   topframe.Title.location.href = 'encounter/encounter_title.php?set_encounter='   + enc;
 434   topframe.Main.location.href  = 'encounter/patient_encounter.php?set_encounter=' + enc;
 435 <?php } ?>
 436   window.close();
 437  }
 438
 439 </script>
 440 </head>
 441 <body bgcolor='#ffffff'>
 442 <center>
 443
 444 <p><h2><?php echo xlt('Receipt for Payment'); ?></h2>
 445
 446 <p><?php echo text($frow['name']) ?>
 447 <br><?php echo text($frow['street']) ?>
 448 <br><?php echo text($frow['city'] . ', ' . $frow['state']) . ' ' .
 449     text($frow['postal_code']) ?>
 450 <br><?php echo htmlentities($frow['phone']) ?>
 451
 452 <p>
 453 <table border='0' cellspacing='8'>
 454  <tr>
 455   <td><?php echo xlt('Date'); ?>:</td>
 456   <td><?php echo text(oeFormatSDFT(strtotime($payrow['dtime']))) ?></td>
 457  </tr>
 458  <tr>
 459   <td><?php echo xlt('Patient'); ?>:</td>
 460   <td><?php echo text($patdata['fname']) . " " . text($patdata['mname']) . " " .
 461        text($patdata['lname']) . " (" . text($patdata['pubpid']) . ")" ?></td>
 462  </tr>
 463  <tr>
 464   <td><?php echo xlt('Paid Via'); ?>:</td>
 465   <td><?php echo generate_display_field(array('data_type'=>'1','list_id'=>'payment_method'),$payrow['method']); ?></td>
 466  </tr>
 467  <tr>
 468   <td><?php echo xlt('Check/Ref Number'); ?>:</td>
 469   <td><?php echo text($payrow['source']) ?></td>
 470  </tr>
 471  <tr>
 472   <td><?php echo xlt('Amount for This Visit'); ?>:</td>
 473   <td><?php echo text(oeFormatMoney($payrow['amount1'])) ?></td>
 474  </tr>
 475  <tr>
 476   <td><?php echo xlt('Amount for Past Balance'); ?>:</td>
 477   <td><?php echo text(oeFormatMoney($payrow['amount2'])) ?></td>
 478  </tr>
 479  <tr>
 480   <td><?php echo xlt('Received By'); ?>:</td>
 481   <td><?php echo text($payrow['user']) ?></td>
 482  </tr>
 483 </table>
 484
 485 <div id='hideonprint'>
 486 <p>
 487 <input type='button' value='<?php echo xla('Print'); ?>' onclick='printme()' />
 488
 489 <?php
 490   $todaysenc = todaysEncounterIf($pid);
 491   if ($todaysenc && $todaysenc != $encounter) {
 492     echo "&nbsp;<input type='button' " .
 493       "value='" . xla('Open Today`s Visit') . "' " .
 494       "onclick='toencounter($todaysenc,\"$today\",opener.top)' />\n";
 495   }
 496 ?>
 497
 498 <?php if (acl_check('admin', 'super')) { ?>
 499 &nbsp;
 500 <input type='button' value='<?php xl('Delete','e'); ?>' style='color:red' onclick='deleteme()' />
 501 <?php } ?>
 502
 503 </div>
 504 </center>
 505 </body>
 506
 507 <?php
 508   //
 509   // End of receipt printing logic.
 510   //
 511 } else {
 512   //
 513   // Here we display the form for data entry.
 514   //
 515 ?>
 516 <title><?php echo xlt('Record Payment'); ?></title>
 517
 518 <style type="text/css">
 519  body    { font-family:sans-serif; font-size:10pt; font-weight:normal }
 520  .dehead { color:#000000; font-family:sans-serif; font-size:10pt; font-weight:bold }
 521  .detail { color:#000000; font-family:sans-serif; font-size:10pt; font-weight:normal }
 522 #ajax_div_patient {
 523         position: absolute;
 524         z-index:10;
 525         background-color: #FBFDD0;
 526         border: 1px solid #ccc;
 527         padding: 10px;
 528 }
 529 </style>
 530
 531 <link rel="stylesheet" href="<?php echo $css_header;?>" type="text/css">
 532
 533 <!-- supporting javascript code -->
 534 <script type="text/javascript" src="<?php echo $GLOBALS['webroot'] ?>/library/js/jquery.js"></script>
 535
 536 <script type="text/javascript" src="<?php echo $GLOBALS['webroot'] ?>/library/dialog.js"></script>
 537
 538
 539
 540 <link rel="stylesheet" href="<?php echo $css_header;?>" type="text/css">
 541 <link rel="stylesheet" type="text/css" href="../../library/js/fancybox/jquery.fancybox-1.2.6.css" media="screen" />
 542 <style type="text/css">@import url(../../library/dynarch_calendar.css);</style>
 543 <script type="text/javascript" src="../../library/textformat.js"></script>
 544 <script type="text/javascript" src="../../library/dynarch_calendar.js"></script>
 545 <?php include_once("{$GLOBALS['srcdir']}/dynarch_calendar_en.inc.php"); ?>
 546 <script type="text/javascript" src="../../library/dynarch_calendar_setup.js"></script>
 547 <script type="text/javascript" src="../../library/dialog.js"></script>
 548 <script type="text/javascript" src="../../library/js/jquery.1.3.2.js"></script>
 549 <script type="text/javascript" src="../../library/js/common.js"></script>
 550 <script type="text/javascript" src="../../library/js/fancybox/jquery.fancybox-1.2.6.js"></script>
 551 <script type="text/javascript" src="../../library/js/jquery.easydrag.handler.beta2.js"></script>
 552 <script language='JavaScript'>
 553  var mypcc = '1';
 554 </script>
 555 <?php include_once("{$GLOBALS['srcdir']}/ajax/payment_ajax_jav.inc.php"); ?>
 556 <script language="javascript" type="text/javascript">
 557 document.onclick=HideTheAjaxDivs;
 558 </script>
 559
 560 <script type="text/javascript" src="../../library/topdialog.js"></script>
 561
 562 <script language="JavaScript">
 563 <?php require($GLOBALS['srcdir'] . "/restoreSession.php"); ?>
 564
 565 function calctotal() {
 566  var f = document.forms[0];
 567  var total = 0;
 568  for (var i = 0; i < f.elements.length; ++i) {
 569   var elem = f.elements[i];
 570   var ename = elem.name;
 571   if (ename.indexOf('form_upay[') == 0 || ename.indexOf('form_bpay[') == 0) {
 572    if (elem.value.length > 0) total += Number(elem.value);
 573   }
 574  }
 575  f.form_paytotal.value = Number(total).toFixed(2);
 576  return true;
 577 }
 578 function coloring()
 579  {
 580    for (var i = 1; ; ++i)
 581     {
 582           if(document.getElementById('paying_'+i))
 583            {
 584             paying=document.getElementById('paying_'+i).value*1;
 585                 patient_balance=document.getElementById('duept_'+i).innerHTML*1;
 586                 //balance=document.getElementById('balance_'+i).innerHTML*1;
 587                 if(patient_balance>0 && paying>0)
 588                  {
 589                         if(paying>patient_balance)
 590                          {
 591                           document.getElementById('paying_'+i).style.background='#FF0000';
 592                          }
 593                         else if(paying<patient_balance)
 594                          {
 595                           document.getElementById('paying_'+i).style.background='#99CC00';
 596                          }
 597                         else if(paying==patient_balance)
 598                          {
 599                           document.getElementById('paying_'+i).style.background='#ffffff';
 600                          }
 601                  }
 602                 else
 603                  {
 604                   document.getElementById('paying_'+i).style.background='#ffffff';
 605                  }
 606            }
 607           else
 608            {
 609             break;
 610            }
 611         }
 612  }
 613 function CheckVisible(MakeBlank)
 614  {//Displays and hides the check number text box.
 615    if(document.getElementById('form_method').options[document.getElementById('form_method').selectedIndex].value=='check_payment' ||
 616           document.getElementById('form_method').options[document.getElementById('form_method').selectedIndex].value=='bank_draft'  )
 617    {
 618         document.getElementById('check_number').disabled=false;
 619    }
 620    else
 621    {
 622         document.getElementById('check_number').disabled=true;
 623    }
 624  }
 625 function validate()
 626  {
 627   var f = document.forms[0];
 628   ok=-1;
 629   top.restoreSession();
 630   issue='no';
 631    if(((document.getElementById('form_method').options[document.getElementById('form_method').selectedIndex].value=='check_payment' ||
 632           document.getElementById('form_method').options[document.getElementById('form_method').selectedIndex].value=='bank_draft') &&
 633            document.getElementById('check_number').value=='' ))
 634    {
 635     alert("<?php echo addslashes( xl('Please Fill the Check/Ref Number')) ?>");
 636         document.getElementById('check_number').focus();
 637         return false;
 638    }
 639
 640   if(document.getElementById('radio_type_of_payment_self1').checked==false && document.getElementById('radio_type_of_payment_self2').checked==false   && document.getElementById('radio_type_of_payment1').checked==false && document.getElementById('radio_type_of_payment2').checked==false  && document.getElementById('radio_type_of_payment5').checked==false  && document.getElementById('radio_type_of_payment4').checked==false)
 641    {
 642           alert("<?php echo addslashes( xl('Please Select Type Of Payment.')) ?>");
 643           return false;
 644    }
 645   if(document.getElementById('radio_type_of_payment_self1').checked==true || document.getElementById('radio_type_of_payment_self2').checked==true || document.getElementById('radio_type_of_payment1').checked==true || document.getElementById('radio_type_of_payment5').checked==true)
 646    {
 647          for (var i = 0; i < f.elements.length; ++i)
 648          {
 649           var elem = f.elements[i];
 650           var ename = elem.name;
 651           if (ename.indexOf('form_upay[0') == 0) //Today is this text box.
 652           {
 653            if(elem.value*1>0)
 654             {//A warning message, if the amount is posted with out encounter.
 655                  if(confirm("<?php echo addslashes( xl('Are you sure to post for today?')) ?>"))
 656                   {
 657                    ok=1;
 658                   }
 659                  else
 660                   {
 661                    elem.focus();
 662                    return false;
 663                   }
 664                 }
 665            break;
 666           }
 667         }
 668    }
 669
 670   if(document.getElementById('radio_type_of_payment1').checked==true)//CO-PAY
 671    {
 672          var total = 0;
 673          for (var i = 0; i < f.elements.length; ++i)
 674          {
 675           var elem = f.elements[i];
 676           var ename = elem.name;
 677           if (ename.indexOf('form_upay[') == 0) //Today is this text box.
 678           {
 679            if(f.form_paytotal.value*1!=elem.value*1)//Total CO-PAY is not posted against today
 680             {//A warning message, if the amount is posted against an old encounter.
 681                  if(confirm("<?php echo addslashes( xl('You are posting against an old encounter?')) ?>"))
 682                   {
 683                    ok=1;
 684                   }
 685                  else
 686                   {
 687                    elem.focus();
 688                    return false;
 689                   }
 690                 }
 691            break;
 692           }
 693         }
 694    }//Co Pay
 695  else if(document.getElementById('radio_type_of_payment2').checked==true)//Invoice Balance
 696   {
 697    if(document.getElementById('Today').innerHTML=='')
 698     {
 699          for (var i = 0; i < f.elements.length; ++i)
 700           {
 701            var elem = f.elements[i];
 702            var ename = elem.name;
 703            if (ename.indexOf('form_upay[') == 0)
 704                 {
 705                  if (elem.value*1 > 0)
 706                   {
 707                           alert("<?php echo addslashes( xl('Invoice Balance cannot be posted. No Encounter is created.')) ?>");
 708                           return false;
 709                  }
 710                  break;
 711            }
 712           }
 713         }
 714   }
 715  if(ok==-1)
 716   {
 717          if(confirm("<?php echo addslashes( xl('Would you like to save?')) ?>"))
 718           {
 719            return true;
 720           }
 721          else
 722           {
 723            return false;
 724           }
 725   }
 726 }
 727 function cursor_pointer()
 728  {//Point the cursor to the latest encounter(Today)
 729          var f = document.forms[0];
 730          var total = 0;
 731          for (var i = 0; i < f.elements.length; ++i)
 732          {
 733           var elem = f.elements[i];
 734           var ename = elem.name;
 735           if (ename.indexOf('form_upay[') == 0)
 736           {
 737            elem.focus();
 738            break;
 739           }
 740         }
 741  }
 742  //=====================================================
 743 function make_it_hide_enc_pay()
 744  {
 745         document.getElementById('td_head_insurance_payment').style.display="none";
 746         document.getElementById('td_head_patient_co_pay').style.display="none";
 747         document.getElementById('td_head_co_pay').style.display="none";
 748         document.getElementById('td_head_insurance_balance').style.display="none";
 749   for (var i = 1; ; ++i)
 750   {
 751         var td_inspaid_elem = document.getElementById('td_inspaid_'+i)
 752                 var td_patient_copay_elem = document.getElementById('td_patient_copay_'+i)
 753         var td_copay_elem = document.getElementById('td_copay_'+i)
 754         var balance_elem = document.getElementById('balance_'+i)
 755    if (td_inspaid_elem)
 756    {
 757     td_inspaid_elem.style.display="none";
 758                 td_patient_copay_elem.style.display="none";
 759     td_copay_elem.style.display="none";
 760     balance_elem.style.display="none";
 761    }
 762   else
 763    {
 764     break;
 765    }
 766   }
 767   document.getElementById('td_total_4').style.display="none";
 768   document.getElementById('td_total_7').style.display="none";
 769         document.getElementById('td_total_8').style.display="none";
 770   document.getElementById('td_total_6').style.display="none";
 771
 772   document.getElementById('table_display').width="420px";
 773  }
 774
 775  //=====================================================
 776 function make_visible()
 777  {
 778   document.getElementById('td_head_rep_doc').style.display="";
 779   document.getElementById('td_head_description').style.display="";
 780   document.getElementById('td_head_total_charge').style.display="none";
 781   document.getElementById('td_head_insurance_payment').style.display="none";
 782   document.getElementById('td_head_patient_payment').style.display="none";
 783         document.getElementById('td_head_patient_co_pay').style.display="none";
 784   document.getElementById('td_head_co_pay').style.display="none";
 785   document.getElementById('td_head_insurance_balance').style.display="none";
 786   document.getElementById('td_head_patient_balance').style.display="none";
 787   for (var i = 1; ; ++i)
 788   {
 789    var td_charges_elem = document.getElementById('td_charges_'+i)
 790    var td_inspaid_elem = document.getElementById('td_inspaid_'+i)
 791    var td_ptpaid_elem = document.getElementById('td_ptpaid_'+i)
 792          var td_patient_copay_elem = document.getElementById('td_patient_copay_'+i)
 793    var td_copay_elem = document.getElementById('td_copay_'+i)
 794    var balance_elem = document.getElementById('balance_'+i)
 795    var duept_elem = document.getElementById('duept_'+i)
 796    if (td_charges_elem)
 797    {
 798     td_charges_elem.style.display="none";
 799     td_inspaid_elem.style.display="none";
 800     td_ptpaid_elem.style.display="none";
 801                 td_patient_copay_elem.style.display="none";
 802     td_copay_elem.style.display="none";
 803     balance_elem.style.display="none";
 804     duept_elem.style.display="none";
 805    }
 806   else
 807    {
 808     break;
 809    }
 810   }
 811   document.getElementById('td_total_7').style.display="";
 812         document.getElementById('td_total_8').style.display="";
 813   document.getElementById('td_total_1').style.display="none";
 814   document.getElementById('td_total_2').style.display="none";
 815   document.getElementById('td_total_3').style.display="none";
 816   document.getElementById('td_total_4').style.display="none";
 817   document.getElementById('td_total_5').style.display="none";
 818   document.getElementById('td_total_6').style.display="none";
 819
 820   document.getElementById('table_display').width="505px";
 821  }
 822 function make_it_hide()
 823  {
 824   document.getElementById('td_head_rep_doc').style.display="none";
 825   document.getElementById('td_head_description').style.display="none";
 826   document.getElementById('td_head_total_charge').style.display="";
 827   document.getElementById('td_head_insurance_payment').style.display="";
 828   document.getElementById('td_head_patient_payment').style.display="";
 829   document.getElementById('td_head_patient_co_pay').style.display="";
 830         document.getElementById('td_head_co_pay').style.display="";
 831   document.getElementById('td_head_insurance_balance').style.display="";
 832   document.getElementById('td_head_patient_balance').style.display="";
 833   for (var i = 1; ; ++i)
 834   {
 835    var td_charges_elem = document.getElementById('td_charges_'+i)
 836    var td_inspaid_elem = document.getElementById('td_inspaid_'+i)
 837    var td_ptpaid_elem = document.getElementById('td_ptpaid_'+i)
 838          var td_patient_copay_elem = document.getElementById('td_patient_copay_'+i)
 839    var td_copay_elem = document.getElementById('td_copay_'+i)
 840    var balance_elem = document.getElementById('balance_'+i)
 841    var duept_elem = document.getElementById('duept_'+i)
 842    if (td_charges_elem)
 843    {
 844     td_charges_elem.style.display="";
 845     td_inspaid_elem.style.display="";
 846     td_ptpaid_elem.style.display="";
 847                 td_patient_copay_elem.style.display="";
 848     td_copay_elem.style.display="";
 849     balance_elem.style.display="";
 850     duept_elem.style.display="";
 851    }
 852   else
 853    {
 854     break;
 855    }
 856   }
 857   document.getElementById('td_total_1').style.display="";
 858   document.getElementById('td_total_2').style.display="";
 859   document.getElementById('td_total_3').style.display="";
 860   document.getElementById('td_total_4').style.display="";
 861   document.getElementById('td_total_5').style.display="";
 862   document.getElementById('td_total_6').style.display="";
 863         document.getElementById('td_total_7').style.display="";
 864   document.getElementById('td_total_8').style.display="";
 865
 866   document.getElementById('table_display').width="635px";
 867  }
 868 function make_visible_radio()
 869  {
 870   document.getElementById('tr_radio1').style.display="";
 871   document.getElementById('tr_radio2').style.display="none";
 872  }
 873 function make_hide_radio()
 874  {
 875   document.getElementById('tr_radio1').style.display="none";
 876   document.getElementById('tr_radio2').style.display="";
 877  }
 878 function make_visible_row()
 879  {
 880   document.getElementById('table_display').style.display="";
 881   document.getElementById('table_display_prepayment').style.display="none";
 882  }
 883 function make_hide_row()
 884  {
 885   document.getElementById('table_display').style.display="none";
 886   document.getElementById('table_display_prepayment').style.display="";
 887  }
 888 function make_self()
 889  {
 890   make_visible_row();
 891   make_it_hide();
 892   make_it_hide_enc_pay();
 893   document.getElementById('radio_type_of_payment_self1').checked=true;
 894   cursor_pointer();
 895  }
 896 function make_insurance()
 897  {
 898   make_visible_row();
 899   make_it_hide();
 900   cursor_pointer();
 901   document.getElementById('radio_type_of_payment1').checked=true;
 902  }
 903 </script>
 904
 905 </head>
 906
 907 <body class="body_top" onunload='imclosing()' onLoad="cursor_pointer();">
 908 <center>
 909
 910 <form method='post' action='front_payment.php<?php if ($payid) echo "?payid=$payid"; ?>'
 911  onsubmit='return validate();'>
 912 <input type='hidden' name='form_pid' value='<?php echo attr($pid) ?>' />
 913
 914
 915 <table border='0' cellspacing='0' cellpadding="0">
 916
 917  <tr height="10">
 918         <td colspan="3">&nbsp;</td>
 919  </tr>
 920
 921  <tr>
 922   <td colspan='3' align='center' class='text' >
 923    <b><?php echo htmlspecialchars(xl('Accept Payment for'), ENT_QUOTES); ?>&nbsp;:&nbsp;&nbsp;<?php echo htmlspecialchars($patdata['fname'], ENT_QUOTES) . " " .
 924     htmlspecialchars($patdata['lname'], ENT_QUOTES) . " " .htmlspecialchars($patdata['mname'], ENT_QUOTES). " (" . htmlspecialchars($patdata['pid'], ENT_QUOTES) . ")" ?></b>
 925         <?php $NameNew=$patdata['fname'] . " " .$patdata['lname']. " " .$patdata['mname'];?>
 926   </td>
 927  </tr>
 928
 929  <tr height="15"><td colspan='3'></td></tr>
 930
 931
 932  <tr>
 933   <td class='text' >
 934    <?php echo xlt('Payment Method'); ?>:
 935   </td>
 936   <td colspan='2' >
 937   <select name="form_method" id="form_method"  class="text" onChange='CheckVisible("yes")'>
 938   <?php
 939   $query1112 = "SELECT * FROM list_options where list_id=?  ORDER BY seq, title ";
 940   $bres1112 = sqlStatement($query1112,array('payment_method'));
 941   while ($brow1112 = sqlFetchArray($bres1112))
 942    {
 943         if($brow1112['option_id']=='electronic' || $brow1112['option_id']=='bank_draft')
 944          continue;
 945         echo "<option value='".htmlspecialchars($brow1112['option_id'], ENT_QUOTES)."'>".htmlspecialchars(xl_list_label($brow1112['title']), ENT_QUOTES)."</option>";
 946    }
 947   ?>
 948   </select>
 949   </td>
 950  </tr>
 951
 952  <tr height="5"><td colspan='3'></td></tr>
 953
 954  <tr>
 955   <td class='text' >
 956    <?php echo xla('Check/Ref Number'); ?>:
 957   </td>
 958   <td colspan='2' ><div id="ajax_div_patient" style="display:none;"></div>
 959    <input type='text'  id="check_number" name='form_source' style="width:120px" value='<?php echo htmlspecialchars($payrow['source'], ENT_QUOTES); ?>'>
 960   </td>
 961  </tr>
 962  <tr height="5"><td colspan='3'></td></tr>
 963
 964  <tr>
 965   <td class='text' valign="middle" >
 966    <?php echo htmlspecialchars(xl('Patient Coverage'), ENT_QUOTES); ?>:
 967   </td>
 968   <td class='text' colspan="2" ><input type="radio" name="radio_type_of_coverage" id="radio_type_of_coverage1" value="self" onClick="make_visible_radio();make_self();"/><?php echo htmlspecialchars(xl('Self'), ENT_QUOTES); ?><input type="radio" name="radio_type_of_coverage" id="radio_type_of_coverag2" value="insurance"  checked="checked" onClick="make_hide_radio();make_insurance();"/><?php echo htmlspecialchars(xl('Insurance'), ENT_QUOTES); ?>  </td>
 969  </tr>
 970
 971  <tr height="5"><td colspan='3'></td></tr>
 972
 973  <tr id="tr_radio1" style="display:none"><!-- For radio Insurance -->
 974   <td class='text' valign="top"  >
 975    <?php echo htmlspecialchars(xl('Payment against'), ENT_QUOTES); ?>:
 976   </td>
 977   <td class='text' colspan="2" ><input type="radio" name="radio_type_of_payment" id="radio_type_of_payment_self1" value="cash" onClick="make_visible_row();make_it_hide_enc_pay();cursor_pointer();"/><?php echo htmlspecialchars(xl('Encounter Payment'), ENT_QUOTES); ?></td>
 978  </tr>
 979  <tr id="tr_radio2"><!-- For radio self -->
 980   <td class='text' valign="top" >
 981    <?php echo htmlspecialchars(xl('Payment against'), ENT_QUOTES); ?>:
 982   </td>
 983   <td class='text' colspan="2" ><input type="radio" name="radio_type_of_payment" id="radio_type_of_payment1" value="copay" checked="checked" onClick="make_visible_row();cursor_pointer();"/><?php echo htmlspecialchars(xl('Co Pay'), ENT_QUOTES); ?><input type="radio" name="radio_type_of_payment" id="radio_type_of_payment2" value="invoice_balance"  onClick="make_visible_row();"/><?php echo htmlspecialchars(xl('Invoice Balance'), ENT_QUOTES); ?><br/><input type="radio" name="radio_type_of_payment" id="radio_type_of_payment4" value="pre_payment" onClick="make_hide_row();"/><?php echo htmlspecialchars(xl('Pre Pay'), ENT_QUOTES); ?></td>
 984  </tr>
 985
 986  <tr height="15"><td colspan='3'></td></tr>
 987
 988 </table>
 989 <table width="200" border="0" cellspacing="0" cellpadding="0" id="table_display_prepayment" style="display:none">
 990   <tr>
 991     <td class='detail'><?php echo htmlspecialchars(xl('Pre Payment'), ENT_QUOTES); ?></td>
 992     <td><input type='text' name='form_prepayment' style='width:100px' /></td>
 993   </tr>
 994 </table>
 995
 996 <table border='0' id="table_display" cellpadding='0' cellspacing='0' width='635'>
 997  <tr bgcolor="#cccccc" id="tr_head">
 998   <td class="dehead" width="70">
 999    <?php echo htmlspecialchars( xl('DOS'), ENT_QUOTES) ?>
1000   </td>
1001   <td class="dehead" width="65">
1002    <?php echo htmlspecialchars( xl('Encounter'), ENT_QUOTES) ?>
1003   </td>
1004   <td class="dehead" align="center" width="80" id="td_head_total_charge" >
1005    <?php echo htmlspecialchars( xl('Total Charge'), ENT_QUOTES) ?>
1006   </td>
1007   <td class="dehead" align="center" width="70" id="td_head_rep_doc" style='display:none'>
1008    <?php echo htmlspecialchars( xl('Report/ Form'), ENT_QUOTES) ?>
1009   </td>
1010   <td class="dehead" align="center" width="200" id="td_head_description" style='display:none'>
1011    <?php echo htmlspecialchars( xl('Description'), ENT_QUOTES) ?>
1012   </td>
1013   <td class="dehead" align="center" width="80" id="td_head_insurance_payment" >
1014    <?php echo htmlspecialchars( xl('Insurance Payment'), ENT_QUOTES) ?>
1015   </td>
1016   <td class="dehead" align="center" width="80" id="td_head_patient_payment" >
1017    <?php echo htmlspecialchars( xl('Patient Payment'), ENT_QUOTES) ?>
1018   </td>
1019   <td class="dehead" align="center" width="55" id="td_head_patient_co_pay" >
1020    <?php echo htmlspecialchars( xl('Co Pay Paid'), ENT_QUOTES) ?>
1021   </td>
1022         <td class="dehead" align="center" width="55" id="td_head_co_pay" >
1023    <?php echo htmlspecialchars( xl('Required Co Pay'), ENT_QUOTES) ?>
1024   </td>
1025   <td class="dehead" align="center" width="80" id="td_head_insurance_balance" >
1026    <?php echo htmlspecialchars( xl('Insurance Balance'), ENT_QUOTES) ?>
1027   </td>
1028   <td class="dehead" align="center" width="80" id="td_head_patient_balance" >
1029    <?php echo htmlspecialchars( xl('Patient Balance'), ENT_QUOTES) ?>
1030   </td>
1031   <td class="dehead" align="center" width="50">
1032    <?php echo htmlspecialchars( xl('Paying'), ENT_QUOTES) ?>
1033   </td>
1034  </tr>
1035
1036 <?php
1037   $encs = array();
1038
1039   // Get the unbilled service charges and payments by encounter for this patient.
1040   //
1041   $query = "SELECT fe.encounter, b.code_type, b.code, b.modifier, b.fee, " .
1042     "LEFT(fe.date, 10) AS encdate ,fe.last_level_closed " .
1043     "FROM  form_encounter AS fe left join billing AS b  on " .
1044     "b.pid = ? AND b.activity = 1  AND " .//AND b.billed = 0
1045     "b.code_type != 'TAX' AND b.fee != 0 " .
1046     "AND fe.pid = b.pid AND fe.encounter = b.encounter " .
1047         "where fe.pid = ? " .
1048     "ORDER BY b.encounter";
1049   $bres = sqlStatement($query,array($pid,$pid));
1050   //
1051   while ($brow = sqlFetchArray($bres)) {
1052     $key = 0 - $brow['encounter'];
1053     if (empty($encs[$key])) {
1054       $encs[$key] = array(
1055         'encounter' => $brow['encounter'],
1056         'date' => $brow['encdate'],
1057         'last_level_closed' => $brow['last_level_closed'],
1058         'charges' => 0,
1059         'payments' => 0);
1060     }
1061     if ($brow['code_type'] === 'COPAY') {
1062       //$encs[$key]['payments'] -= $brow['fee'];
1063     } else {
1064       $encs[$key]['charges']  += $brow['fee'];
1065       // Add taxes.
1066       $sql_array=array();
1067       $query = "SELECT taxrates FROM codes WHERE " .
1068         "code_type = ? AND " .
1069         "code = ? AND ";
1070       array_push($sql_array,$code_types[$brow['code_type']]['id'],$brow['code']);
1071       if ($brow['modifier']) {
1072         $query .= "modifier = ?";
1073         array_push($sql_array,$brow['modifier']);
1074       } else {
1075         $query .= "(modifier IS NULL OR modifier = '')";
1076       }
1077       $query .= " LIMIT 1";
1078       $trow = sqlQuery($query,$sql_array);
1079       $encs[$key]['charges'] += calcTaxes($trow, $brow['fee']);
1080     }
1081   }
1082
1083   // Do the same for unbilled product sales.
1084   //
1085   $query = "SELECT fe.encounter, s.drug_id, s.fee, " .
1086     "LEFT(fe.date, 10) AS encdate,fe.last_level_closed " .
1087     "FROM form_encounter AS fe left join drug_sales AS s " .
1088     "on s.pid = ? AND s.fee != 0 " .//AND s.billed = 0
1089     "AND fe.pid = s.pid AND fe.encounter = s.encounter " .
1090         "where fe.pid = ? " .
1091     "ORDER BY s.encounter";
1092
1093   $dres = sqlStatement($query,array($pid,$pid));
1094   //
1095   while ($drow = sqlFetchArray($dres)) {
1096     $key = 0 - $drow['encounter'];
1097     if (empty($encs[$key])) {
1098       $encs[$key] = array(
1099         'encounter' => $drow['encounter'],
1100         'date' => $drow['encdate'],
1101         'last_level_closed' => $drow['last_level_closed'],
1102         'charges' => 0,
1103         'payments' => 0);
1104     }
1105     $encs[$key]['charges'] += $drow['fee'];
1106     // Add taxes.
1107     $trow = sqlQuery("SELECT taxrates FROM drug_templates WHERE drug_id = ? " .
1108       "ORDER BY selector LIMIT 1", array($drow['drug_id']) );
1109     $encs[$key]['charges'] += calcTaxes($trow, $drow['fee']);
1110   }
1111
1112   ksort($encs, SORT_NUMERIC);
1113   $gottoday = false;
1114   //Bringing on top the Today always
1115   foreach ($encs as $key => $value) {
1116     $dispdate = $value['date'];
1117     if (strcmp($dispdate, $today) == 0 && !$gottoday) {
1118       $gottoday = true;
1119           break;
1120     }
1121    }
1122
1123   // If no billing was entered yet for today, then generate a line for
1124   // entering today's co-pay.
1125   //
1126   if (! $gottoday) {
1127     echoLine("form_upay[0]", date("Y-m-d"), 0, 0, 0, 0 /*$duept*/);//No encounter yet defined.
1128   }
1129
1130   $gottoday = false;
1131   foreach ($encs as $key => $value) {
1132     $enc = $value['encounter'];
1133     $dispdate = $value['date'];
1134     if (strcmp($dispdate, $today) == 0 && !$gottoday) {
1135       $dispdate = date("Y-m-d");
1136       $gottoday = true;
1137     }
1138  //------------------------------------------------------------------------------------
1139     $inscopay = getCopay($pid, $dispdate);
1140         $patcopay = getPatientCopay($pid, $enc);
1141 //Insurance Payment
1142 //-----------------
1143         $drow = sqlQuery("SELECT  SUM(pay_amount) AS payments, " .
1144           "SUM(adj_amount) AS adjustments  FROM ar_activity WHERE " .
1145       "pid = ? and encounter = ? and " .
1146       "payer_type != 0 and account_code!='PCP' ",
1147                         array($pid,$enc));
1148         $dpayment=$drow['payments'];
1149         $dadjustment=$drow['adjustments'];
1150 //Patient Payment
1151 //---------------
1152         $drow = sqlQuery("SELECT  SUM(pay_amount) AS payments, " .
1153           "SUM(adj_amount) AS adjustments  FROM ar_activity WHERE " .
1154       "pid = ? and encounter = ? and " .
1155       "payer_type = 0 and account_code!='PCP' ",
1156                         array($pid,$enc));
1157         $dpayment_pat=$drow['payments'];
1158
1159  //------------------------------------------------------------------------------------
1160  //NumberOfInsurance
1161         $ResultNumberOfInsurance = sqlStatement("SELECT COUNT( DISTINCT TYPE ) NumberOfInsurance FROM insurance_data
1162                         where pid = ? and provider>0 ",array($pid));
1163         $RowNumberOfInsurance = sqlFetchArray($ResultNumberOfInsurance);
1164         $NumberOfInsurance=$RowNumberOfInsurance['NumberOfInsurance']*1;
1165  //------------------------------------------------------------------------------------
1166         $duept=0;
1167         if((($NumberOfInsurance==0 || $value['last_level_closed']==4 || $NumberOfInsurance== $value['last_level_closed'])))
1168          {//Patient balance
1169           $brow = sqlQuery("SELECT SUM(fee) AS amount FROM billing WHERE " .
1170           "pid = ? and encounter = ? AND activity = 1",array($pid,$enc));
1171           $srow = sqlQuery("SELECT SUM(fee) AS amount FROM drug_sales WHERE " .
1172           "pid = ? and encounter = ? ",array($pid,$enc));
1173           $drow = sqlQuery("SELECT SUM(pay_amount) AS payments, " .
1174           "SUM(adj_amount) AS adjustments FROM ar_activity WHERE " .
1175           "pid = ? and encounter = ? ",array($pid,$enc));
1176           $duept= $brow['amount'] + $srow['amount'] - $drow['payments'] - $drow['adjustments'];
1177          }
1178     echoLine("form_upay[$enc]", $dispdate, $value['charges'],
1179       $dpayment_pat, ($dpayment + $dadjustment), $duept,$enc,$inscopay,$patcopay);
1180   }
1181
1182
1183   // Now list previously billed visits.
1184
1185   if ($INTEGRATED_AR) {
1186
1187  } // end $INTEGRATED_AR
1188   else {
1189     // Query for all open invoices.
1190     $query = "SELECT ar.id, ar.invnumber, ar.amount, ar.paid, " .
1191       "ar.intnotes, ar.notes, ar.shipvia, " .
1192       "(SELECT SUM(invoice.sellprice * invoice.qty) FROM invoice WHERE " .
1193       "invoice.trans_id = ar.id AND invoice.sellprice > 0) AS charges, " .
1194       "(SELECT SUM(invoice.sellprice * invoice.qty) FROM invoice WHERE " .
1195       "invoice.trans_id = ar.id AND invoice.sellprice < 0) AS adjustments, " .
1196       "(SELECT SUM(acc_trans.amount) FROM acc_trans WHERE " .
1197       "acc_trans.trans_id = ar.id AND acc_trans.chart_id = ? " .
1198       "AND acc_trans.source NOT LIKE 'Ins%') AS ptpayments " .
1199       "FROM ar WHERE ar.invnumber LIKE ? AND " .
1200       "ar.amount != ar.paid " .
1201       "ORDER BY ar.invnumber";
1202     $ires = SLQuery($query, array($chart_id_cash,$pid."%") );
1203     if ($sl_err) die($sl_err);
1204     $num_invoices = SLRowCount($ires);
1205
1206     for ($ix = 0; $ix < $num_invoices; ++$ix) {
1207       $irow = SLGetRow($ires, $ix);
1208
1209       // Get encounter ID and date of service.
1210       list($patient_id, $enc) = explode(".", $irow['invnumber']);
1211       $tmp = sqlQuery("SELECT LEFT(date, 10) AS encdate FROM form_encounter " .
1212         "WHERE encounter = ?", array($enc) );
1213       $svcdate = $tmp['encdate'];
1214
1215       // Compute $duncount as in sl_eob_search.php to determine if
1216       // this invoice is at patient responsibility.
1217       $duncount = substr_count(strtolower($irow['intnotes']), "statement sent");
1218       if (! $duncount) {
1219         $insgot = strtolower($irow['notes']);
1220         $inseobs = strtolower($irow['shipvia']);
1221         foreach (array('ins1', 'ins2', 'ins3') as $value) {
1222           if (strpos($insgot, $value) !== false &&
1223               strpos($inseobs, $value) === false)
1224             --$duncount;
1225         }
1226       }
1227
1228       $inspaid = $irow['paid'] + $irow['ptpayments'] - $irow['adjustments'];
1229       $balance = $irow['amount'] - $irow['paid'];
1230       $duept  = ($duncount < 0) ? 0 : $balance;
1231
1232       echoLine("form_bpay[$enc]", $svcdate, $irow['charges'],
1233         0 - $irow['ptpayments'], $inspaid, $duept);
1234     }
1235   } // end not $INTEGRATED_AR
1236
1237   // Continue with display of the data entry form.
1238 ?>
1239
1240  <tr bgcolor="#cccccc">
1241   <td class="dehead" id='td_total_1'></td>
1242   <td class="dehead" id='td_total_2'></td>
1243   <td class="dehead" id='td_total_3'></td>
1244   <td class="dehead" id='td_total_4'></td>
1245   <td class="dehead" id='td_total_5'></td>
1246   <td class="dehead" id='td_total_6'></td>
1247         <td class="dehead" id='td_total_7'></td>
1248   <td class="dehead" id='td_total_8'></td>
1249   <td class="dehead" align="right">
1250    <?php echo htmlspecialchars( xl('Total'), ENT_QUOTES);?>
1251   </td>
1252   <td class="dehead" align="right">
1253    <input type='text' name='form_paytotal'  value=''
1254     style='color:#00aa00;width:50px' readonly  />
1255   </td>
1256  </tr>
1257
1258 </table>
1259
1260 <p>
1261 <input type='submit' name='form_save' value='<?php echo htmlspecialchars( xl('Generate Invoice'), ENT_QUOTES);?>' /> &nbsp;
1262 <input type='button' value='<?php echo xla('Cancel'); ?>' onclick='window.close()' />
1263
1264 <input type="hidden" name="hidden_patient_code" id="hidden_patient_code" value="<?php echo attr($pid);?>"/>
1265 <input type='hidden' name='ajax_mode' id='ajax_mode' value='' />
1266 <input type='hidden' name='mode' id='mode' value='' />
1267 </form>
1268 <script language="JavaScript">
1269  calctotal();
1270 </script>
1271 </center>
1272 </body>
1273
1274 <?php
1275 }
1276 if (!$INTEGRATED_AR) SLClose();
1277 ?>
1278 </html>