?  search:
summary | log | graphiclog1 | graphiclog2 | refs | edit | fork

9e43b809170462b54a5447527cfbd02af7c57e46
[openemr.git] / interface / patient_file / front_payment.php
blob9e43b809170462b54a5447527cfbd02af7c57e46
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>
Mirror of official OpenEMR Sourceforge repository