2 // Copyright (C) 2006-2010 Rod Roark <rod@sunsetsystems.com>
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.
9 $fake_register_globals=false;
10 $sanitize_all_escapes=true;
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/payment.inc.php");
17 require_once("$srcdir/forms.inc");
18 require_once("$srcdir/sl_eob.inc.php");
19 require_once("$srcdir/invoice_summary.inc.php");
20 require_once("../../custom/code_types.inc.php");
21 require_once("$srcdir/formatting.inc.php");
22 require_once("$srcdir/options.inc.php");
23 require_once("$srcdir/encounter_events.inc.php");
24 $pid = $_REQUEST['hidden_patient_code'] > 0 ?
$_REQUEST['hidden_patient_code'] : $pid;
26 $INTEGRATED_AR = $GLOBALS['oer_config']['ws_accounting']['enabled'] === 2;
30 <?php
html_header_show();?
>
31 <link rel
='stylesheet' href
='<?php echo $css_header ?>' type
='text/css'>
33 // Format dollars for display.
35 function bucks($amount) {
37 $amount = oeFormatMoney($amount);
43 function rawbucks($amount) {
45 $amount = sprintf("%.2f", $amount);
51 // Display a row of data for an encounter.
54 function echoLine($iname, $date, $charges, $ptpaid, $inspaid, $duept,$encounter=0,$copay=0,$patcopay=0) {
57 $balance = bucks($charges - $ptpaid - $inspaid);
58 $balance = (round($duept,2) != 0) ?
0 : $balance;//if balance is due from patient, then insurance balance is displayed as zero
59 $encounter = $encounter ?
$encounter : '';
60 echo " <tr id='tr_".attr($var_index)."' >\n";
61 echo " <td class='detail'>" . text(oeFormatShortDate($date)) . "</td>\n";
62 echo " <td class='detail' id='".attr($date)."' align='center'>" . htmlspecialchars($encounter, ENT_QUOTES
) . "</td>\n";
63 echo " <td class='detail' align='center' id='td_charges_$var_index' >" . htmlspecialchars(bucks($charges), ENT_QUOTES
) . "</td>\n";
64 echo " <td class='detail' align='center' id='td_inspaid_$var_index' >" . htmlspecialchars(bucks($inspaid*-1), ENT_QUOTES
) . "</td>\n";
65 echo " <td class='detail' align='center' id='td_ptpaid_$var_index' >" . htmlspecialchars(bucks($ptpaid*-1), ENT_QUOTES
) . "</td>\n";
66 echo " <td class='detail' align='center' id='td_patient_copay_$var_index' >" . htmlspecialchars(bucks($patcopay), ENT_QUOTES
) . "</td>\n";
67 echo " <td class='detail' align='center' id='td_copay_$var_index' >" . htmlspecialchars(bucks($copay), ENT_QUOTES
) . "</td>\n";
68 echo " <td class='detail' align='center' id='balance_$var_index'>" . htmlspecialchars(bucks($balance), ENT_QUOTES
) . "</td>\n";
69 echo " <td class='detail' align='center' id='duept_$var_index'>" . htmlspecialchars(bucks(round($duept,2)*1), ENT_QUOTES
) . "</td>\n";
70 echo " <td class='detail' align='right'><input type='text' name='".attr($iname)."' id='paying_".attr($var_index)."' " .
71 " value='" . '' . "' onchange='coloring();calctotal()' autocomplete='off' " .
72 "onkeyup='calctotal()' style='width:50px'/></td>\n";
76 // We use this to put dashes, colons, etc. back into a timestamp.
78 function decorateString($fmt, $str) {
81 $fc = substr($fmt, 0, 1);
82 $fmt = substr($fmt, 1);
84 $res .= substr($str, 0, 1);
85 $str = substr($str, 1);
93 // Compute taxes from a tax rate string and a possibly taxable amount.
95 function calcTaxes($row, $amount) {
97 if (empty($row['taxrates'])) return $total;
98 $arates = explode(':', $row['taxrates']);
99 if (empty($arates)) return $total;
100 foreach ($arates as $value) {
101 if (empty($value)) continue;
102 $trow = sqlQuery("SELECT option_value FROM list_options WHERE " .
103 "list_id = 'taxrate' AND option_id = ? LIMIT 1", array($value) );
104 if (empty($trow['option_value'])) {
105 echo "<!-- Missing tax rate '".text($value)."'! -->\n";
108 $tax = sprintf("%01.2f", $amount * $trow['option_value']);
109 // echo "<!-- Rate = '$value', amount = '$amount', tax = '$tax' -->\n";
116 $today = date('Y-m-d', $now);
117 $timestamp = date('Y-m-d H:i:s', $now);
119 if (!$INTEGRATED_AR) slInitialize();
121 // $patdata = getPatientData($pid, 'fname,lname,pubpid');
123 $patdata = sqlQuery("SELECT " .
124 "p.fname, p.mname, p.lname, p.pubpid,p.pid, i.copay " .
125 "FROM patient_data AS p " .
126 "LEFT OUTER JOIN insurance_data AS i ON " .
127 "i.pid = p.pid AND i.type = 'primary' " .
128 "WHERE p.pid = ? ORDER BY i.date DESC LIMIT 1", array($pid) );
130 $alertmsg = ''; // anything here pops up in an alert box
132 // If the Save button was clicked...
133 if ($_POST['form_save']) {
134 $form_pid = $_POST['form_pid'];
135 $form_method = trim($_POST['form_method']);
136 $form_source = trim($_POST['form_source']);
137 $patdata = getPatientData($form_pid, 'fname,mname,lname,pubpid');
138 $NameNew=$patdata['fname'] . " " .$patdata['lname']. " " .$patdata['mname'];
140 if($_REQUEST['radio_type_of_payment']=='pre_payment')
142 $payment_id = idSqlStatement("insert into ar_session set " .
148 ", check_date = now() , deposit_date = now() " .
150 ", payment_type = 'patient'" .
151 ", description = ?" .
152 ", adjustment_code = 'pre_payment'" .
153 ", post_to_date = now() " .
154 ", payment_method = ?",
155 array(0,$form_pid,$_SESSION['authUserID'],0,$form_source,$_REQUEST['form_prepayment'],$NameNew,$form_method));
157 frontPayment($form_pid, 0, $form_method, $form_source, $_REQUEST['form_prepayment'], 0, $timestamp);//insertion to 'payments' table.
160 if ($_POST['form_upay'] && $_REQUEST['radio_type_of_payment']!='pre_payment') {
161 foreach ($_POST['form_upay'] as $enc => $payment) {
162 if ($amount = 0 +
$payment) {
164 if($_REQUEST['radio_type_of_payment']=='invoice_balance')
172 $enc = calendar_arrived($form_pid);
175 //----------------------------------------------------------------------------------------------------
176 //Fetching the existing code and modifier
177 $ResultSearchNew = sqlStatement("SELECT * FROM billing LEFT JOIN code_types ON billing.code_type=code_types.ct_key ".
178 "WHERE code_types.ct_fee=1 AND billing.activity!=0 AND billing.pid =? AND encounter=? ORDER BY billing.code,billing.modifier",
179 array($form_pid,$enc));
180 if($RowSearch = sqlFetchArray($ResultSearchNew))
182 $Codetype=$RowSearch['code_type'];
183 $Code=$RowSearch['code'];
184 $Modifier=$RowSearch['modifier'];
192 //----------------------------------------------------------------------------------------------------
193 if($_REQUEST['radio_type_of_payment']=='copay')//copay saving to ar_session and ar_activity tables
195 $session_id=idSqlStatement("INSERT INTO ar_session (payer_id,user_id,reference,check_date,deposit_date,pay_total,".
196 " global_amount,payment_type,description,patient_id,payment_method,adjustment_code,post_to_date) ".
197 " VALUES ('0',?,?,now(),now(),?,'','patient','COPAY',?,?,'patient_payment',now())",
198 array($_SESSION['authId'],$form_source,$amount,$form_pid,$form_method));
200 $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)".
201 " VALUES (?,?,?,?,?,0,now(),?,?,?,'PCP')",
202 array($form_pid,$enc,$Codetype,$Code,$Modifier,$_SESSION['authId'],$session_id,$amount));
204 frontPayment($form_pid, $enc, $form_method, $form_source, $amount, 0, $timestamp);//insertion to 'payments' table.
206 if($_REQUEST['radio_type_of_payment']=='invoice_balance' ||
$_REQUEST['radio_type_of_payment']=='cash')
207 { //Payment by patient after insurance paid, cash patients similar to do not bill insurance in feesheet.
208 if($_REQUEST['radio_type_of_payment']=='cash')
210 sqlStatement("update form_encounter set last_level_closed=? where encounter=? and pid=? ",
211 array(4,$enc,$form_pid));
212 sqlStatement("update billing set billed=? where encounter=? and pid=?",
213 array(1,$enc,$form_pid));
215 $adjustment_code='patient_payment';
216 $payment_id = idSqlStatement("insert into ar_session set " .
222 ", check_date = now() , deposit_date = now() " .
224 ", payment_type = 'patient'" .
225 ", description = ?" .
226 ", adjustment_code = ?" .
227 ", post_to_date = now() " .
228 ", payment_method = ?",
229 array(0,$form_pid,$_SESSION['authUserID'],0,$form_source,$amount,$NameNew,$adjustment_code,$form_method));
231 //--------------------------------------------------------------------------------------------------------------------
233 frontPayment($form_pid, $enc, $form_method, $form_source, 0, $amount, $timestamp);//insertion to 'payments' table.
235 //--------------------------------------------------------------------------------------------------------------------
237 $resMoneyGot = sqlStatement("SELECT sum(pay_amount) as PatientPay FROM ar_activity where pid =? and ".
238 "encounter =? and payer_type=0 and account_code='PCP'",
239 array($form_pid,$enc));//new fees screen copay gives account_code='PCP'
240 $rowMoneyGot = sqlFetchArray($resMoneyGot);
241 $Copay=$rowMoneyGot['PatientPay'];
243 //--------------------------------------------------------------------------------------------------------------------
245 //Looping the existing code and modifier
246 $ResultSearchNew = sqlStatement("SELECT * FROM billing LEFT JOIN code_types ON billing.code_type=code_types.ct_key WHERE code_types.ct_fee=1 ".
247 "AND billing.activity!=0 AND billing.pid =? AND encounter=? ORDER BY billing.code,billing.modifier",
248 array($form_pid,$enc));
249 while($RowSearch = sqlFetchArray($ResultSearchNew))
251 $Codetype=$RowSearch['code_type'];
252 $Code=$RowSearch['code'];
253 $Modifier =$RowSearch['modifier'];
254 $Fee =$RowSearch['fee'];
256 $resMoneyGot = sqlStatement("SELECT sum(pay_amount) as MoneyGot FROM ar_activity where pid =? ".
257 "and code_type=? and code=? and modifier=? and encounter =? and !(payer_type=0 and account_code='PCP')",
258 array($form_pid,$Codetype,$Code,$Modifier,$enc));
259 //new fees screen copay gives account_code='PCP'
260 $rowMoneyGot = sqlFetchArray($resMoneyGot);
261 $MoneyGot=$rowMoneyGot['MoneyGot'];
263 $resMoneyAdjusted = sqlStatement("SELECT sum(adj_amount) as MoneyAdjusted FROM ar_activity where ".
264 "pid =? and code_type=? and code=? and modifier=? and encounter =?",
265 array($form_pid,$Codetype,$Code,$Modifier,$enc));
266 $rowMoneyAdjusted = sqlFetchArray($resMoneyAdjusted);
267 $MoneyAdjusted=$rowMoneyAdjusted['MoneyAdjusted'];
269 $Remainder=$Fee-$Copay-$MoneyGot-$MoneyAdjusted;
271 if(round($Remainder,2)!=0 && $amount!=0)
273 if($amount-$Remainder >= 0)
275 $insert_value=$Remainder;
276 $amount=$amount-$Remainder;
280 $insert_value=$amount;
283 sqlStatement("insert into ar_activity set " .
290 ", post_time = now() " .
295 ", account_code = 'PP'",
296 array($form_pid,$enc,$Codetype,$Code,$Modifier,0,$_SESSION['authUserID'],$payment_id,$insert_value,0));
299 if($amount!=0)//if any excess is there.
301 sqlStatement("insert into ar_activity set " .
308 ", post_time = now() " .
313 ", account_code = 'PP'",
314 array($form_pid,$enc,$Codetype,$Code,$Modifier,0,$_SESSION['authUserID'],$payment_id,$amount,0));
317 //--------------------------------------------------------------------------------------------------------------------
319 }//if ($amount = 0 + $payment)
321 }//if ($_POST['form_upay'])
322 }//if ($_POST['form_save'])
324 if ($_POST['form_save'] ||
$_REQUEST['receipt']) {
326 if ($_REQUEST['receipt']) {
327 $form_pid = $_GET['patient'];
328 $timestamp = decorateString('....-..-.. ..:..:..', $_GET['time']);
331 // Get details for what we guess is the primary facility.
332 $frow = sqlQuery("SELECT * FROM facility " .
333 "ORDER BY billing_location DESC, accepts_assignment DESC, id LIMIT 1");
335 // Get the patient's name and chart number.
336 $patdata = getPatientData($form_pid, 'fname,mname,lname,pubpid');
338 // Re-fetch payment info.
339 $payrow = sqlQuery("SELECT " .
340 "SUM(amount1) AS amount1, " .
341 "SUM(amount2) AS amount2, " .
342 "MAX(method) AS method, " .
343 "MAX(source) AS source, " .
344 "MAX(dtime) AS dtime, " .
345 // "MAX(user) AS user " .
346 "MAX(user) AS user, " .
347 "MAX(encounter) as encounter ".
348 "FROM payments WHERE " .
349 "pid = ? AND dtime = ?", array($form_pid,$timestamp) );
351 // Create key for deleting, just in case.
352 $ref_id = ($_REQUEST['radio_type_of_payment']=='copay') ?
$session_id : $payment_id ;
353 $payment_key = $form_pid . '.' . preg_replace('/[^0-9]/', '', $timestamp).'.'.$ref_id;
355 // get facility from encounter
359 WHERE encounter = ?", array($payrow['encounter']) );
360 $frow = sqlQuery("SELECT * FROM facility " .
361 " WHERE id = ?", array($tmprow['facility_id']) );
363 // Now proceed with printing the receipt.
366 <title
><?php
echo xlt('Receipt for Payment'); ?
></title
>
367 <script type
="text/javascript" src
="../../library/dialog.js"></script
>
368 <script language
="JavaScript">
370 <?php
require($GLOBALS['srcdir'] . "/restoreSession.php"); ?
>
372 // Process click on Print button.
374 var divstyle
= document
.getElementById('hideonprint').style
;
375 divstyle
.display
= 'none';
377 // divstyle.display = 'block';
379 // Process click on Delete button.
380 function deleteme() {
381 dlgopen('deleter.php?payment=<?php echo $payment_key ?>', '_blank', 500, 450);
384 // Called by the deleteme.php window on a successful delete.
385 function imdeleted() {
389 // Called to switch to the specified encounter having the specified DOS.
390 // This also closes the popup window.
391 function toencounter(enc
, datestr
, topframe
) {
392 topframe
.restoreSession();
393 <?php
if ($GLOBALS['concurrent_layout']) { ?
>
394 // Hard-coding of RBot for this purpose is awkward, but since this is a
395 // pop-up and our openemr is left_nav, we have no good clue as to whether
396 // the top frame is more appropriate.
397 topframe
.left_nav
.forceDual();
398 topframe
.left_nav
.setEncounter(datestr
, enc
, '');
399 topframe
.left_nav
.setRadio('RBot', 'enc');
400 topframe
.left_nav
.loadFrame('enc2', 'RBot', 'patient_file/encounter/encounter_top.php?set_encounter=' + enc
);
402 topframe
.Title
.location
.href
= 'encounter/encounter_title.php?set_encounter=' + enc
;
403 topframe
.Main
.location
.href
= 'encounter/patient_encounter.php?set_encounter=' + enc
;
410 <body bgcolor
='#ffffff'>
413 <p
><h2
><?php
echo xlt('Receipt for Payment'); ?
></h2
>
415 <p
><?php
echo text($frow['name']) ?
>
416 <br
><?php
echo text($frow['street']) ?
>
417 <br
><?php
echo text($frow['city'] . ', ' . $frow['state']) . ' ' .
418 text($frow['postal_code']) ?
>
419 <br
><?php
echo htmlentities($frow['phone']) ?
>
422 <table border
='0' cellspacing
='8'>
424 <td
><?php
echo xlt('Date'); ?
>:</td
>
425 <td
><?php
echo text(oeFormatSDFT(strtotime($payrow['dtime']))) ?
></td
>
428 <td
><?php
echo xlt('Patient'); ?
>:</td
>
429 <td
><?php
echo text($patdata['fname']) . " " . text($patdata['mname']) . " " .
430 text($patdata['lname']) . " (" . text($patdata['pubpid']) . ")" ?
></td
>
433 <td
><?php
echo xlt('Paid Via'); ?
>:</td
>
434 <td
><?php
echo generate_display_field(array('data_type'=>'1','list_id'=>'payment_method'),$payrow['method']); ?
></td
>
437 <td
><?php
echo xlt('Check/Ref Number'); ?
>:</td
>
438 <td
><?php
echo text($payrow['source']) ?
></td
>
441 <td
><?php
echo xlt('Amount for This Visit'); ?
>:</td
>
442 <td
><?php
echo text(oeFormatMoney($payrow['amount1'])) ?
></td
>
445 <td
><?php
echo xlt('Amount for Past Balance'); ?
>:</td
>
446 <td
><?php
echo text(oeFormatMoney($payrow['amount2'])) ?
></td
>
449 <td
><?php
echo xlt('Received By'); ?
>:</td
>
450 <td
><?php
echo text($payrow['user']) ?
></td
>
454 <div id
='hideonprint'>
456 <input type
='button' value
='<?php echo xla('Print'); ?>' onclick
='printme()' />
459 $todaysenc = todaysEncounterIf($pid);
460 if ($todaysenc && $todaysenc != $encounter) {
461 echo " <input type='button' " .
462 "value='" . xla('Open Today`s Visit') . "' " .
463 "onclick='toencounter($todaysenc,\"$today\",opener.top)' />\n";
467 <?php
if (acl_check('admin', 'super')) { ?
>
469 <input type
='button' value
='<?php xl('Delete
','e
'); ?>' style
='color:red' onclick
='deleteme()' />
478 // End of receipt printing logic.
482 // Here we display the form for data entry.
485 <title
><?php
echo xlt('Record Payment'); ?
></title
>
487 <style type
="text/css">
488 body
{ font
-family
:sans
-serif
; font
-size
:10pt
; font
-weight
:normal
}
489 .dehead
{ color
:#000000; font-family:sans-serif; font-size:10pt; font-weight:bold }
490 .detail
{ color
:#000000; font-family:sans-serif; font-size:10pt; font-weight:normal }
494 background
-color
: #FBFDD0;
495 border
: 1px solid
#ccc;
500 <link rel
="stylesheet" href
="<?php echo $css_header;?>" type
="text/css">
502 <!-- supporting javascript code
-->
503 <script type
="text/javascript" src
="<?php echo $GLOBALS['webroot'] ?>/library/js/jquery.js"></script
>
505 <script type
="text/javascript" src
="<?php echo $GLOBALS['webroot'] ?>/library/dialog.js"></script
>
509 <link rel
="stylesheet" href
="<?php echo $css_header;?>" type
="text/css">
510 <link rel
="stylesheet" type
="text/css" href
="../../library/js/fancybox/jquery.fancybox-1.2.6.css" media
="screen" />
511 <style type
="text/css">@import
url(../../library
/dynarch_calendar
.css
);</style
>
512 <script type
="text/javascript" src
="../../library/textformat.js"></script
>
513 <script type
="text/javascript" src
="../../library/dynarch_calendar.js"></script
>
514 <?php
include_once("{$GLOBALS['srcdir']}/dynarch_calendar_en.inc.php"); ?
>
515 <script type
="text/javascript" src
="../../library/dynarch_calendar_setup.js"></script
>
516 <script type
="text/javascript" src
="../../library/dialog.js"></script
>
517 <script type
="text/javascript" src
="../../library/js/jquery.1.3.2.js"></script
>
518 <script type
="text/javascript" src
="../../library/js/common.js"></script
>
519 <script type
="text/javascript" src
="../../library/js/fancybox/jquery.fancybox-1.2.6.js"></script
>
520 <script type
="text/javascript" src
="../../library/js/jquery.easydrag.handler.beta2.js"></script
>
521 <script language
='JavaScript'>
524 <?php
include_once("{$GLOBALS['srcdir']}/ajax/payment_ajax_jav.inc.php"); ?
>
525 <script language
="javascript" type
="text/javascript">
526 document
.onclick
=HideTheAjaxDivs
;
529 <script type
="text/javascript" src
="../../library/topdialog.js"></script
>
531 <script language
="JavaScript">
532 <?php
require($GLOBALS['srcdir'] . "/restoreSession.php"); ?
>
534 function calctotal() {
535 var f
= document
.forms
[0];
537 for (var i
= 0; i
< f
.elements
.length
; ++i
) {
538 var elem
= f
.elements
[i
];
539 var ename
= elem
.name
;
540 if (ename
.indexOf('form_upay[') == 0 || ename
.indexOf('form_bpay[') == 0) {
541 if (elem
.value
.length
> 0) total +
= Number(elem
.value
);
544 f
.form_paytotal
.value
= Number(total
).toFixed(2);
549 for (var i
= 1; ; ++i
)
551 if(document
.getElementById('paying_'+i
))
553 paying
=document
.getElementById('paying_'+i
).value
*1;
554 patient_balance
=document
.getElementById('duept_'+i
).innerHTML
*1;
555 //balance=document.getElementById('balance_'+i).innerHTML*1;
556 if(patient_balance
>0 && paying
>0)
558 if(paying
>patient_balance
)
560 document
.getElementById('paying_'+i
).style
.background
='#FF0000';
562 else if(paying
<patient_balance
)
564 document
.getElementById('paying_'+i
).style
.background
='#99CC00';
566 else if(paying
==patient_balance
)
568 document
.getElementById('paying_'+i
).style
.background
='#ffffff';
573 document
.getElementById('paying_'+i
).style
.background
='#ffffff';
582 function CheckVisible(MakeBlank
)
583 {//Displays and hides the check number text box.
584 if(document
.getElementById('form_method').options
[document
.getElementById('form_method').selectedIndex
].value
=='check_payment' ||
585 document
.getElementById('form_method').options
[document
.getElementById('form_method').selectedIndex
].value
=='bank_draft' )
587 document
.getElementById('check_number').disabled
=false;
591 document
.getElementById('check_number').disabled
=true;
596 var f
= document
.forms
[0];
598 top
.restoreSession();
600 if(((document
.getElementById('form_method').options
[document
.getElementById('form_method').selectedIndex
].value
=='check_payment' ||
601 document
.getElementById('form_method').options
[document
.getElementById('form_method').selectedIndex
].value
=='bank_draft') &&
602 document
.getElementById('check_number').value
=='' ))
604 alert("<?php echo addslashes( xl('Please Fill the Check/Ref Number')) ?>");
605 document
.getElementById('check_number').focus();
609 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)
611 alert("<?php echo addslashes( xl('Please Select Type Of Payment.')) ?>");
614 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)
616 for (var i
= 0; i
< f
.elements
.length
; ++i
)
618 var elem
= f
.elements
[i
];
619 var ename
= elem
.name
;
620 if (ename
.indexOf('form_upay[0') == 0) //Today is this text box.
623 {//A warning message, if the amount is posted with out encounter.
624 if(confirm("<?php echo addslashes( xl('Are you sure to post for today?')) ?>"))
639 if(document
.getElementById('radio_type_of_payment1').checked
==true)//CO-PAY
642 for (var i
= 0; i
< f
.elements
.length
; ++i
)
644 var elem
= f
.elements
[i
];
645 var ename
= elem
.name
;
646 if (ename
.indexOf('form_upay[') == 0) //Today is this text box.
648 if(f
.form_paytotal
.value
*1!=elem
.value
*1)//Total CO-PAY is not posted against today
649 {//A warning message, if the amount is posted against an old encounter.
650 if(confirm("<?php echo addslashes( xl('You are posting against an old encounter?')) ?>"))
664 else if(document
.getElementById('radio_type_of_payment2').checked
==true)//Invoice Balance
666 if(document
.getElementById('Today').innerHTML
=='')
668 for (var i
= 0; i
< f
.elements
.length
; ++i
)
670 var elem
= f
.elements
[i
];
671 var ename
= elem
.name
;
672 if (ename
.indexOf('form_upay[') == 0)
674 if (elem
.value
*1 > 0)
676 alert("<?php echo addslashes( xl('Invoice Balance cannot be posted. No Encounter is created.')) ?>");
686 if(confirm("<?php echo addslashes( xl('Would you like to save?')) ?>"))
696 function cursor_pointer()
697 {//Point the cursor to the latest encounter(Today)
698 var f
= document
.forms
[0];
700 for (var i
= 0; i
< f
.elements
.length
; ++i
)
702 var elem
= f
.elements
[i
];
703 var ename
= elem
.name
;
704 if (ename
.indexOf('form_upay[') == 0)
711 //=====================================================
712 function make_it_hide_enc_pay()
714 document
.getElementById('td_head_insurance_payment').style
.display
="none";
715 document
.getElementById('td_head_patient_co_pay').style
.display
="none";
716 document
.getElementById('td_head_co_pay').style
.display
="none";
717 document
.getElementById('td_head_insurance_balance').style
.display
="none";
718 for (var i
= 1; ; ++i
)
720 var td_inspaid_elem
= document
.getElementById('td_inspaid_'+i
)
721 var td_patient_copay_elem
= document
.getElementById('td_patient_copay_'+i
)
722 var td_copay_elem
= document
.getElementById('td_copay_'+i
)
723 var balance_elem
= document
.getElementById('balance_'+i
)
726 td_inspaid_elem
.style
.display
="none";
727 td_patient_copay_elem
.style
.display
="none";
728 td_copay_elem
.style
.display
="none";
729 balance_elem
.style
.display
="none";
736 document
.getElementById('td_total_4').style
.display
="none";
737 document
.getElementById('td_total_7').style
.display
="none";
738 document
.getElementById('td_total_8').style
.display
="none";
739 document
.getElementById('td_total_6').style
.display
="none";
741 document
.getElementById('table_display').width
="420px";
744 //=====================================================
745 function make_visible()
747 document
.getElementById('td_head_rep_doc').style
.display
="";
748 document
.getElementById('td_head_description').style
.display
="";
749 document
.getElementById('td_head_total_charge').style
.display
="none";
750 document
.getElementById('td_head_insurance_payment').style
.display
="none";
751 document
.getElementById('td_head_patient_payment').style
.display
="none";
752 document
.getElementById('td_head_patient_co_pay').style
.display
="none";
753 document
.getElementById('td_head_co_pay').style
.display
="none";
754 document
.getElementById('td_head_insurance_balance').style
.display
="none";
755 document
.getElementById('td_head_patient_balance').style
.display
="none";
756 for (var i
= 1; ; ++i
)
758 var td_charges_elem
= document
.getElementById('td_charges_'+i
)
759 var td_inspaid_elem
= document
.getElementById('td_inspaid_'+i
)
760 var td_ptpaid_elem
= document
.getElementById('td_ptpaid_'+i
)
761 var td_patient_copay_elem
= document
.getElementById('td_patient_copay_'+i
)
762 var td_copay_elem
= document
.getElementById('td_copay_'+i
)
763 var balance_elem
= document
.getElementById('balance_'+i
)
764 var duept_elem
= document
.getElementById('duept_'+i
)
767 td_charges_elem
.style
.display
="none";
768 td_inspaid_elem
.style
.display
="none";
769 td_ptpaid_elem
.style
.display
="none";
770 td_patient_copay_elem
.style
.display
="none";
771 td_copay_elem
.style
.display
="none";
772 balance_elem
.style
.display
="none";
773 duept_elem
.style
.display
="none";
780 document
.getElementById('td_total_7').style
.display
="";
781 document
.getElementById('td_total_8').style
.display
="";
782 document
.getElementById('td_total_1').style
.display
="none";
783 document
.getElementById('td_total_2').style
.display
="none";
784 document
.getElementById('td_total_3').style
.display
="none";
785 document
.getElementById('td_total_4').style
.display
="none";
786 document
.getElementById('td_total_5').style
.display
="none";
787 document
.getElementById('td_total_6').style
.display
="none";
789 document
.getElementById('table_display').width
="505px";
791 function make_it_hide()
793 document
.getElementById('td_head_rep_doc').style
.display
="none";
794 document
.getElementById('td_head_description').style
.display
="none";
795 document
.getElementById('td_head_total_charge').style
.display
="";
796 document
.getElementById('td_head_insurance_payment').style
.display
="";
797 document
.getElementById('td_head_patient_payment').style
.display
="";
798 document
.getElementById('td_head_patient_co_pay').style
.display
="";
799 document
.getElementById('td_head_co_pay').style
.display
="";
800 document
.getElementById('td_head_insurance_balance').style
.display
="";
801 document
.getElementById('td_head_patient_balance').style
.display
="";
802 for (var i
= 1; ; ++i
)
804 var td_charges_elem
= document
.getElementById('td_charges_'+i
)
805 var td_inspaid_elem
= document
.getElementById('td_inspaid_'+i
)
806 var td_ptpaid_elem
= document
.getElementById('td_ptpaid_'+i
)
807 var td_patient_copay_elem
= document
.getElementById('td_patient_copay_'+i
)
808 var td_copay_elem
= document
.getElementById('td_copay_'+i
)
809 var balance_elem
= document
.getElementById('balance_'+i
)
810 var duept_elem
= document
.getElementById('duept_'+i
)
813 td_charges_elem
.style
.display
="";
814 td_inspaid_elem
.style
.display
="";
815 td_ptpaid_elem
.style
.display
="";
816 td_patient_copay_elem
.style
.display
="";
817 td_copay_elem
.style
.display
="";
818 balance_elem
.style
.display
="";
819 duept_elem
.style
.display
="";
826 document
.getElementById('td_total_1').style
.display
="";
827 document
.getElementById('td_total_2').style
.display
="";
828 document
.getElementById('td_total_3').style
.display
="";
829 document
.getElementById('td_total_4').style
.display
="";
830 document
.getElementById('td_total_5').style
.display
="";
831 document
.getElementById('td_total_6').style
.display
="";
832 document
.getElementById('td_total_7').style
.display
="";
833 document
.getElementById('td_total_8').style
.display
="";
835 document
.getElementById('table_display').width
="635px";
837 function make_visible_radio()
839 document
.getElementById('tr_radio1').style
.display
="";
840 document
.getElementById('tr_radio2').style
.display
="none";
842 function make_hide_radio()
844 document
.getElementById('tr_radio1').style
.display
="none";
845 document
.getElementById('tr_radio2').style
.display
="";
847 function make_visible_row()
849 document
.getElementById('table_display').style
.display
="";
850 document
.getElementById('table_display_prepayment').style
.display
="none";
852 function make_hide_row()
854 document
.getElementById('table_display').style
.display
="none";
855 document
.getElementById('table_display_prepayment').style
.display
="";
861 make_it_hide_enc_pay();
862 document
.getElementById('radio_type_of_payment_self1').checked
=true;
865 function make_insurance()
870 document
.getElementById('radio_type_of_payment1').checked
=true;
876 <body
class="body_top" onunload
='imclosing()' onLoad
="cursor_pointer();">
879 <form method
='post' action
='front_payment.php<?php if ($payid) echo "?payid=$payid"; ?>'
880 onsubmit
='return validate();'>
881 <input type
='hidden' name
='form_pid' value
='<?php echo attr($pid) ?>' />
884 <table border
='0' cellspacing
='0' cellpadding
="0">
887 <td colspan
="3"> 
;</td
>
891 <td colspan
='3' align
='center' class='text' >
892 <b
><?php
echo htmlspecialchars(xl('Accept Payment for'), ENT_QUOTES
); ?
> 
;: 
; 
;<?php
echo htmlspecialchars($patdata['fname'], ENT_QUOTES
) . " " .
893 htmlspecialchars($patdata['lname'], ENT_QUOTES
) . " " .htmlspecialchars($patdata['mname'], ENT_QUOTES
). " (" . htmlspecialchars($patdata['pid'], ENT_QUOTES
) . ")" ?
></b
>
894 <?php
$NameNew=$patdata['fname'] . " " .$patdata['lname']. " " .$patdata['mname'];?
>
898 <tr height
="15"><td colspan
='3'></td
></tr
>
903 <?php
echo xlt('Payment Method'); ?
>:
906 <select name
="form_method" id
="form_method" class="text" onChange
='CheckVisible("yes")'>
908 $query1112 = "SELECT * FROM list_options where list_id=? ORDER BY seq, title ";
909 $bres1112 = sqlStatement($query1112,array('payment_method'));
910 while ($brow1112 = sqlFetchArray($bres1112))
912 if($brow1112['option_id']=='electronic' ||
$brow1112['option_id']=='bank_draft')
914 echo "<option value='".htmlspecialchars($brow1112['option_id'], ENT_QUOTES
)."'>".htmlspecialchars(xl_list_label($brow1112['title']), ENT_QUOTES
)."</option>";
921 <tr height
="5"><td colspan
='3'></td
></tr
>
925 <?php
echo xla('Check/Ref Number'); ?
>:
927 <td colspan
='2' ><div id
="ajax_div_patient" style
="display:none;"></div
>
928 <input type
='text' id
="check_number" name
='form_source' style
="width:120px" value
='<?php echo htmlspecialchars($payrow['source
'], ENT_QUOTES); ?>'>
931 <tr height
="5"><td colspan
='3'></td
></tr
>
934 <td
class='text' valign
="middle" >
935 <?php
echo htmlspecialchars(xl('Patient Coverage'), ENT_QUOTES
); ?
>:
937 <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
>
940 <tr height
="5"><td colspan
='3'></td
></tr
>
942 <tr id
="tr_radio1" style
="display:none"><!-- For radio Insurance
-->
943 <td
class='text' valign
="top" >
944 <?php
echo htmlspecialchars(xl('Payment against'), ENT_QUOTES
); ?
>:
946 <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
>
948 <tr id
="tr_radio2"><!-- For radio self
-->
949 <td
class='text' valign
="top" >
950 <?php
echo htmlspecialchars(xl('Payment against'), ENT_QUOTES
); ?
>:
952 <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
>
955 <tr height
="15"><td colspan
='3'></td
></tr
>
958 <table width
="200" border
="0" cellspacing
="0" cellpadding
="0" id
="table_display_prepayment" style
="display:none">
960 <td
class='detail'><?php
echo htmlspecialchars(xl('Pre Payment'), ENT_QUOTES
); ?
></td
>
961 <td
><input type
='text' name
='form_prepayment' style
='width:100px' /></td
>
965 <table border
='0' id
="table_display" cellpadding
='0' cellspacing
='0' width
='635'>
966 <tr bgcolor
="#cccccc" id
="tr_head">
967 <td
class="dehead" width
="70">
968 <?php
echo htmlspecialchars( xl('DOS'), ENT_QUOTES
) ?
>
970 <td
class="dehead" width
="65">
971 <?php
echo htmlspecialchars( xl('Encounter'), ENT_QUOTES
) ?
>
973 <td
class="dehead" align
="center" width
="80" id
="td_head_total_charge" >
974 <?php
echo htmlspecialchars( xl('Total Charge'), ENT_QUOTES
) ?
>
976 <td
class="dehead" align
="center" width
="70" id
="td_head_rep_doc" style
='display:none'>
977 <?php
echo htmlspecialchars( xl('Report/ Form'), ENT_QUOTES
) ?
>
979 <td
class="dehead" align
="center" width
="200" id
="td_head_description" style
='display:none'>
980 <?php
echo htmlspecialchars( xl('Description'), ENT_QUOTES
) ?
>
982 <td
class="dehead" align
="center" width
="80" id
="td_head_insurance_payment" >
983 <?php
echo htmlspecialchars( xl('Insurance Payment'), ENT_QUOTES
) ?
>
985 <td
class="dehead" align
="center" width
="80" id
="td_head_patient_payment" >
986 <?php
echo htmlspecialchars( xl('Patient Payment'), ENT_QUOTES
) ?
>
988 <td
class="dehead" align
="center" width
="55" id
="td_head_patient_co_pay" >
989 <?php
echo htmlspecialchars( xl('Co Pay Paid'), ENT_QUOTES
) ?
>
991 <td
class="dehead" align
="center" width
="55" id
="td_head_co_pay" >
992 <?php
echo htmlspecialchars( xl('Required Co Pay'), ENT_QUOTES
) ?
>
994 <td
class="dehead" align
="center" width
="80" id
="td_head_insurance_balance" >
995 <?php
echo htmlspecialchars( xl('Insurance Balance'), ENT_QUOTES
) ?
>
997 <td
class="dehead" align
="center" width
="80" id
="td_head_patient_balance" >
998 <?php
echo htmlspecialchars( xl('Patient Balance'), ENT_QUOTES
) ?
>
1000 <td
class="dehead" align
="center" width
="50">
1001 <?php
echo htmlspecialchars( xl('Paying'), ENT_QUOTES
) ?
>
1008 // Get the unbilled service charges and payments by encounter for this patient.
1010 $query = "SELECT fe.encounter, b.code_type, b.code, b.modifier, b.fee, " .
1011 "LEFT(fe.date, 10) AS encdate ,fe.last_level_closed " .
1012 "FROM form_encounter AS fe left join billing AS b on " .
1013 "b.pid = ? AND b.activity = 1 AND " .//AND b.billed = 0
1014 "b.code_type != 'TAX' AND b.fee != 0 " .
1015 "AND fe.pid = b.pid AND fe.encounter = b.encounter " .
1016 "where fe.pid = ? " .
1017 "ORDER BY b.encounter";
1018 $bres = sqlStatement($query,array($pid,$pid));
1020 while ($brow = sqlFetchArray($bres)) {
1021 $key = 0 - $brow['encounter'];
1022 if (empty($encs[$key])) {
1023 $encs[$key] = array(
1024 'encounter' => $brow['encounter'],
1025 'date' => $brow['encdate'],
1026 'last_level_closed' => $brow['last_level_closed'],
1030 if ($brow['code_type'] === 'COPAY') {
1031 //$encs[$key]['payments'] -= $brow['fee'];
1033 $encs[$key]['charges'] +
= $brow['fee'];
1036 $query = "SELECT taxrates FROM codes WHERE " .
1037 "code_type = ? AND " .
1039 array_push($sql_array,$code_types[$brow['code_type']]['id'],$brow['code']);
1040 if ($brow['modifier']) {
1041 $query .= "modifier = ?";
1042 array_push($sql_array,$brow['modifier']);
1044 $query .= "(modifier IS NULL OR modifier = '')";
1046 $query .= " LIMIT 1";
1047 $trow = sqlQuery($query,$sql_array);
1048 $encs[$key]['charges'] +
= calcTaxes($trow, $brow['fee']);
1052 // Do the same for unbilled product sales.
1054 $query = "SELECT fe.encounter, s.drug_id, s.fee, " .
1055 "LEFT(fe.date, 10) AS encdate,fe.last_level_closed " .
1056 "FROM form_encounter AS fe left join drug_sales AS s " .
1057 "on s.pid = ? AND s.fee != 0 " .//AND s.billed = 0
1058 "AND fe.pid = s.pid AND fe.encounter = s.encounter " .
1059 "where fe.pid = ? " .
1060 "ORDER BY s.encounter";
1062 $dres = sqlStatement($query,array($pid,$pid));
1064 while ($drow = sqlFetchArray($dres)) {
1065 $key = 0 - $drow['encounter'];
1066 if (empty($encs[$key])) {
1067 $encs[$key] = array(
1068 'encounter' => $drow['encounter'],
1069 'date' => $drow['encdate'],
1070 'last_level_closed' => $drow['last_level_closed'],
1074 $encs[$key]['charges'] +
= $drow['fee'];
1076 $trow = sqlQuery("SELECT taxrates FROM drug_templates WHERE drug_id = ? " .
1077 "ORDER BY selector LIMIT 1", array($drow['drug_id']) );
1078 $encs[$key]['charges'] +
= calcTaxes($trow, $drow['fee']);
1081 ksort($encs, SORT_NUMERIC
);
1083 //Bringing on top the Today always
1084 foreach ($encs as $key => $value) {
1085 $dispdate = $value['date'];
1086 if (strcmp($dispdate, $today) == 0 && !$gottoday) {
1092 // If no billing was entered yet for today, then generate a line for
1093 // entering today's co-pay.
1096 echoLine("form_upay[0]", date("Y-m-d"), 0, 0, 0, 0 /*$duept*/);//No encounter yet defined.
1100 foreach ($encs as $key => $value) {
1101 $enc = $value['encounter'];
1102 $dispdate = $value['date'];
1103 if (strcmp($dispdate, $today) == 0 && !$gottoday) {
1104 $dispdate = date("Y-m-d");
1107 //------------------------------------------------------------------------------------
1108 $inscopay = getCopay($pid, $dispdate);
1109 $patcopay = getPatientCopay($pid, $enc);
1112 $drow = sqlQuery("SELECT SUM(pay_amount) AS payments, " .
1113 "SUM(adj_amount) AS adjustments FROM ar_activity WHERE " .
1114 "pid = ? and encounter = ? and " .
1115 "payer_type != 0 and account_code!='PCP' ",
1117 $dpayment=$drow['payments'];
1118 $dadjustment=$drow['adjustments'];
1121 $drow = sqlQuery("SELECT SUM(pay_amount) AS payments, " .
1122 "SUM(adj_amount) AS adjustments FROM ar_activity WHERE " .
1123 "pid = ? and encounter = ? and " .
1124 "payer_type = 0 and account_code!='PCP' ",
1126 $dpayment_pat=$drow['payments'];
1128 //------------------------------------------------------------------------------------
1130 $ResultNumberOfInsurance = sqlStatement("SELECT COUNT( DISTINCT TYPE ) NumberOfInsurance FROM insurance_data
1131 where pid = ? and provider>0 ",array($pid));
1132 $RowNumberOfInsurance = sqlFetchArray($ResultNumberOfInsurance);
1133 $NumberOfInsurance=$RowNumberOfInsurance['NumberOfInsurance']*1;
1134 //------------------------------------------------------------------------------------
1136 if((($NumberOfInsurance==0 ||
$value['last_level_closed']==4 ||
$NumberOfInsurance== $value['last_level_closed'])))
1138 $brow = sqlQuery("SELECT SUM(fee) AS amount FROM billing WHERE " .
1139 "pid = ? and encounter = ? AND activity = 1",array($pid,$enc));
1140 $srow = sqlQuery("SELECT SUM(fee) AS amount FROM drug_sales WHERE " .
1141 "pid = ? and encounter = ? ",array($pid,$enc));
1142 $drow = sqlQuery("SELECT SUM(pay_amount) AS payments, " .
1143 "SUM(adj_amount) AS adjustments FROM ar_activity WHERE " .
1144 "pid = ? and encounter = ? ",array($pid,$enc));
1145 $duept= $brow['amount'] +
$srow['amount'] - $drow['payments'] - $drow['adjustments'];
1147 echoLine("form_upay[$enc]", $dispdate, $value['charges'],
1148 $dpayment_pat, ($dpayment +
$dadjustment), $duept,$enc,$inscopay,$patcopay);
1152 // Now list previously billed visits.
1154 if ($INTEGRATED_AR) {
1156 } // end $INTEGRATED_AR
1158 // Query for all open invoices.
1159 $query = "SELECT ar.id, ar.invnumber, ar.amount, ar.paid, " .
1160 "ar.intnotes, ar.notes, ar.shipvia, " .
1161 "(SELECT SUM(invoice.sellprice * invoice.qty) FROM invoice WHERE " .
1162 "invoice.trans_id = ar.id AND invoice.sellprice > 0) AS charges, " .
1163 "(SELECT SUM(invoice.sellprice * invoice.qty) FROM invoice WHERE " .
1164 "invoice.trans_id = ar.id AND invoice.sellprice < 0) AS adjustments, " .
1165 "(SELECT SUM(acc_trans.amount) FROM acc_trans WHERE " .
1166 "acc_trans.trans_id = ar.id AND acc_trans.chart_id = ? " .
1167 "AND acc_trans.source NOT LIKE 'Ins%') AS ptpayments " .
1168 "FROM ar WHERE ar.invnumber LIKE ? AND " .
1169 "ar.amount != ar.paid " .
1170 "ORDER BY ar.invnumber";
1171 $ires = SLQuery($query, array($chart_id_cash,$pid."%") );
1172 if ($sl_err) die($sl_err);
1173 $num_invoices = SLRowCount($ires);
1175 for ($ix = 0; $ix < $num_invoices; ++
$ix) {
1176 $irow = SLGetRow($ires, $ix);
1178 // Get encounter ID and date of service.
1179 list($patient_id, $enc) = explode(".", $irow['invnumber']);
1180 $tmp = sqlQuery("SELECT LEFT(date, 10) AS encdate FROM form_encounter " .
1181 "WHERE encounter = ?", array($enc) );
1182 $svcdate = $tmp['encdate'];
1184 // Compute $duncount as in sl_eob_search.php to determine if
1185 // this invoice is at patient responsibility.
1186 $duncount = substr_count(strtolower($irow['intnotes']), "statement sent");
1188 $insgot = strtolower($irow['notes']);
1189 $inseobs = strtolower($irow['shipvia']);
1190 foreach (array('ins1', 'ins2', 'ins3') as $value) {
1191 if (strpos($insgot, $value) !== false &&
1192 strpos($inseobs, $value) === false)
1197 $inspaid = $irow['paid'] +
$irow['ptpayments'] - $irow['adjustments'];
1198 $balance = $irow['amount'] - $irow['paid'];
1199 $duept = ($duncount < 0) ?
0 : $balance;
1201 echoLine("form_bpay[$enc]", $svcdate, $irow['charges'],
1202 0 - $irow['ptpayments'], $inspaid, $duept);
1204 } // end not $INTEGRATED_AR
1206 // Continue with display of the data entry form.
1209 <tr bgcolor
="#cccccc">
1210 <td
class="dehead" id
='td_total_1'></td
>
1211 <td
class="dehead" id
='td_total_2'></td
>
1212 <td
class="dehead" id
='td_total_3'></td
>
1213 <td
class="dehead" id
='td_total_4'></td
>
1214 <td
class="dehead" id
='td_total_5'></td
>
1215 <td
class="dehead" id
='td_total_6'></td
>
1216 <td
class="dehead" id
='td_total_7'></td
>
1217 <td
class="dehead" id
='td_total_8'></td
>
1218 <td
class="dehead" align
="right">
1219 <?php
echo htmlspecialchars( xl('Total'), ENT_QUOTES
);?
>
1221 <td
class="dehead" align
="right">
1222 <input type
='text' name
='form_paytotal' value
=''
1223 style
='color:#00aa00;width:50px' readonly
/>
1230 <input type
='submit' name
='form_save' value
='<?php echo htmlspecialchars( xl('Generate Invoice
'), ENT_QUOTES);?>' />  
;
1231 <input type
='button' value
='<?php echo xla('Cancel
'); ?>' onclick
='window.close()' />
1233 <input type
="hidden" name
="hidden_patient_code" id
="hidden_patient_code" value
="<?php echo attr($pid);?>"/>
1234 <input type
='hidden' name
='ajax_mode' id
='ajax_mode' value
='' />
1235 <input type
='hidden' name
='mode' id
='mode' value
='' />
1237 <script language
="JavaScript">
1245 if (!$INTEGRATED_AR) SLClose();