From 1af254d2657066f93304af94e2ce1fdd5f2f6515 Mon Sep 17 00:00:00 2001
From: sunsetsystems <sunsetsystems>
Date: Sat, 15 Jul 2006 20:26:09 +0000
Subject: [PATCH] add ability to report on payment method

---
 accounting/ws_server.pl                         |  12 +-
 accounting/ws_server_26.pl                      |  15 +-
 interface/patient_file/pos_checkout.php         |  10 +-
 interface/reports/receipts_by_method_report.php | 205 ++++++++++++++++++++++++
 templates/report/general_default.html           |  13 +-
 5 files changed, 243 insertions(+), 12 deletions(-)
 create mode 100644 interface/reports/receipts_by_method_report.php

diff --git a/accounting/ws_server.pl b/accounting/ws_server.pl
index 1dbb978ee..8a2b5e71c 100755
--- a/accounting/ws_server.pl
+++ b/accounting/ws_server.pl
@@ -204,8 +204,16 @@ sub rpc_add_invoice
 	{
 		if($$line_item{'itemtext'} =~ /COPAY/){
 			$form->{"datepaid_$j"} = "$mm-$dd-$yy";
-			$form->{"source_$j"} = "Co-pay";
-			$form->{"memo_$j"} ='Co-pay';
+			# For copays we use a dummy procedure code because it may be applicable
+			# to multiple procedures during the visit.
+			$form->{"memo_$j"} = 'Co-pay';
+			# Put the payment method and check number in the source field if they are
+			# present (i.e. from pos_checkout.php).
+			if ($$line_item{'itemtext'} =~ /^COPAY:([A-Z].*)$/) {
+				$form->{"source_$j"} = $1;
+			} else {
+				$form->{"source_$j"} = 'Co-pay';
+			}
 			$form->{"paid_$j"} =  abs($$line_item{'price'});
 			$form->{"AR_paid_$j"} = "$oemr_cash_acc" . "--";
 			$j++;
diff --git a/accounting/ws_server_26.pl b/accounting/ws_server_26.pl
index c2b2f009c..fc89bc413 100755
--- a/accounting/ws_server_26.pl
+++ b/accounting/ws_server_26.pl
@@ -213,16 +213,23 @@ sub rpc_add_invoice
 
 	foreach  my $line_item (@$items)
 	{
-		if($$line_item{'itemtext'} =~ /COPAY/){
+		if ($$line_item{'itemtext'} =~ /COPAY/) {
 			$form->{"datepaid_$j"} = "$mm-$dd-$yy";
-			$form->{"source_$j"} = "Co-pay";
-			$form->{"memo_$j"} ='Co-pay';
+			# For copays we use a dummy procedure code because it may be applicable
+			# to multiple procedures during the visit.
+			$form->{"memo_$j"} = 'Co-pay';
+			# Put the payment method and check number in the source field if they are
+			# present (i.e. from pos_checkout.php).
+			if ($$line_item{'itemtext'} =~ /^COPAY:([A-Z].*)$/) {
+				$form->{"source_$j"} = $1;
+			} else {
+				$form->{"source_$j"} = 'Co-pay';
+			}
 			$form->{"paid_$j"} =  abs($$line_item{'price'});
 			$form->{"AR_paid_$j"} = "$oemr_cash_acc" . "--";
 			$j++;
 		}
 		else{
-
 			my $chart_id = 0;
 			my $query = qq|SELECT id FROM chart WHERE accno = ?|;
 			my $eth = $dbh->prepare($query) || die "Failed to prepare chart query";
diff --git a/interface/patient_file/pos_checkout.php b/interface/patient_file/pos_checkout.php
index d283f920a..b974e875c 100644
--- a/interface/patient_file/pos_checkout.php
+++ b/interface/patient_file/pos_checkout.php
@@ -128,7 +128,8 @@ function invoice_add_line_item(& $invoice_info, $code_type, $code,
 {
 	$tii = array();
 	$tii['maincode'] = $code;
-	$tii['itemtext'] = "$code_type:$code $code_text";
+	$tii['itemtext'] = "$code_type:$code";
+	if ($code_text) $tii['itemtext'] .= " $code_text";
 	$tii['qty'] = 1;
 	$tii['price'] = sprintf("%01.2f", $amount);
 	$tii['glaccountid'] = $GLOBALS['oer_config']['ws_accounting']['income_acct'];
@@ -272,9 +273,11 @@ function invoice_post(& $invoice_info)
   $row = SLGetRow($atres, $irow);
   $amount = sprintf('%01.2f', $row['amount']); // negative
   $charges += $amount;
+  $rowsource = $row['source'];
+  if (strtolower($rowsource) == 'co-pay') $rowsource = '';
   echo " <tr>\n";
   echo "  <td>" . $row['transdate'] . "</td>\n";
-  echo "  <td>Payment " . $row['source'] . "</td>\n";
+  echo "  <td>Payment $rowsource</td>\n";
   echo "  <td align='right'>$amount</td>\n";
   echo " </tr>\n";
  }
@@ -392,8 +395,7 @@ function invoice_post(& $invoice_info)
   }
 
   if ($_POST['form_amount']) {
-   $paydesc = 'Received at time of visit';
-   if ($_POST['form_source']) $paydesc .= ' (' . $_POST['form_source'] . ')';
+   $paydesc = $_POST['form_source'] ? $_POST['form_source'] : '';
    $msg = invoice_add_line_item($invoice_info, 'COPAY',
     $_POST['form_method'],
     $paydesc,
diff --git a/interface/reports/receipts_by_method_report.php b/interface/reports/receipts_by_method_report.php
new file mode 100644
index 000000000..127534a3b
--- /dev/null
+++ b/interface/reports/receipts_by_method_report.php
@@ -0,0 +1,205 @@
+<?
+  // Copyright (C) 2006 Rod Roark <rod@sunsetsystems.com>
+  //
+  // This program is free software; you can redistribute it and/or
+  // modify it under the terms of the GNU General Public License
+  // as published by the Free Software Foundation; either version 2
+  // of the License, or (at your option) any later version.
+
+  // This is a report of receipts by payment method.  It's most useful for
+  // sites using pos_checkout.php (e.g. weight loss clinics) because this
+  // plugs a payment method like Cash, Check, VISA, etc. into the "source"
+  // column of the SQL-Ledger acc_trans table.
+
+  include_once("../globals.php");
+  include_once("../../library/patient.inc");
+  include_once("../../library/sql-ledger.inc");
+  include_once("../../library/acl.inc");
+
+  function bucks($amount) {
+    if ($amount)
+      printf("%.2f", $amount);
+  }
+
+  if (! acl_check('acct', 'rep')) die(xl("Unauthorized access."));
+
+  SLConnect();
+
+  $form_from_date = fixDate($_POST['form_from_date'], date('Y-m-d'));
+  $form_to_date   = fixDate($_POST['form_to_date']  , date('Y-m-d'));
+  $form_use_edate = $_POST['form_use_edate'];
+?>
+<html>
+<head>
+<title><?xl('Receipts by Payment Method','e')?></title>
+</head>
+
+<body leftmargin='0' topmargin='0' marginwidth='0' marginheight='0'>
+<center>
+
+<h2><?xl('Receipts by Payment Method','e')?></h2>
+
+<form method='post' action='receipts_by_method_report.php'>
+
+<table border='0' cellpadding='3'>
+
+ <tr>
+  <td>
+   &nbsp;<select name='form_use_edate'>
+    <option value='0'>Payment Date</option>
+    <option value='1'<?php if ($form_use_edate) echo ' selected' ?>>Invoice Date</option>
+   </select>
+   &nbsp;<?xl('From:','e')?>
+   <input type='text' name='form_from_date' size='10' value='<? echo $form_from_date; ?>' title='MM/DD/YYYY'>
+   &nbsp;To:
+   <input type='text' name='form_to_date' size='10' value='<? echo $form_to_date; ?>' title='MM/DD/YYYY'>
+   &nbsp;
+   <input type='checkbox' name='form_details' value='1'<? if ($_POST['form_details']) echo " checked"; ?>><?xl('Details','e')?>
+   &nbsp;
+   <input type='submit' name='form_refresh' value="<?xl('Refresh','e')?>">
+  </td>
+ </tr>
+
+ <tr>
+  <td height="1">
+  </td>
+ </tr>
+
+</table>
+
+<table border='0' cellpadding='1' cellspacing='2' width='98%'>
+
+ <tr bgcolor="#dddddd">
+  <td class="dehead">
+   <?xl('Method','e')?>
+  </td>
+  <td class="dehead">
+   <?xl('Date','e')?>
+  </td>
+  <td class="dehead">
+   <?xl('Invoice','e')?>
+  </td>
+  <td class="dehead">
+   <?xl('Procedure','e')?>
+  </td>
+  <td class="dehead" align="right">
+   <?xl('Amount','e')?>
+  </td>
+ </tr>
+<?
+  $chart_id_cash = SLQueryValue("select id from chart where accno = '$sl_cash_acc'");
+  if ($sl_err) die($sl_err);
+
+  if ($_POST['form_refresh']) {
+    $from_date = $form_from_date;
+    $to_date   = $form_to_date;
+
+    $query = "select acc_trans.amount, acc_trans.transdate, acc_trans.memo, " .
+      "acc_trans.source, ar.invnumber, ar.employee_id from acc_trans, ar where " .
+      "acc_trans.chart_id = $chart_id_cash and " .
+      "ar.id = acc_trans.trans_id and ";
+
+    if ($form_use_edate) {
+      $query .= "ar.transdate >= '$from_date' and " .
+      "ar.transdate <= '$to_date'";
+    } else {
+      $query .= "acc_trans.transdate >= '$from_date' and " .
+      "acc_trans.transdate <= '$to_date'";
+    }
+
+    $query .= " order by acc_trans.source, acc_trans.transdate, ar.invnumber, acc_trans.memo";
+
+    echo "<!-- $query -->\n";
+
+    $t_res = SLQuery($query);
+    if ($sl_err) die($sl_err);
+
+    $paymethod   = "";
+    $paymethodleft = "";
+    $methodtotal = 0;
+    $grandtotal  = 0;
+
+    for ($irow = 0; $irow < SLRowCount($t_res); ++$irow) {
+      $row = SLGetRow($t_res, $irow);
+      $rowamount = 0 - $row['amount'];
+
+      // Extract only the first word as the payment method because any following
+      // text will be some petty detail like a check number.
+      $rowmethod = substr($row['source'], 0, strcspn($row['source'], ' /'));
+      if (! $rowmethod) $rowmethod = 'Unknown';
+
+      if ($paymethod != $rowmethod) {
+        if ($paymethod) {
+          // Print method total.
+?>
+
+ <tr bgcolor="#ddddff">
+  <td class="detail" colspan="4">
+   <? echo xl('Total for ') . $paymethod ?>
+  </td>
+  <td class="dehead" align="right">
+   <? bucks($methodtotal) ?>
+  </td>
+ </tr>
+<?
+        }
+        $methodtotal = 0;
+        $paymethod = $rowmethod;
+        $paymethodleft = $paymethod;
+      }
+
+      if ($_POST['form_details']) {
+?>
+
+ <tr>
+  <td class="detail">
+   <? echo $paymethodleft; $paymethodleft = "&nbsp;" ?>
+  </td>
+  <td class="dehead">
+   <? echo $row['transdate'] ?>
+  </td>
+  <td class="detail">
+   <? echo $row['invnumber'] ?>
+  </td>
+  <td class="dehead">
+   <? echo $row['memo'] ?>
+  </td>
+  <td class="dehead" align="right">
+   <? bucks($rowamount) ?>
+  </td>
+ </tr>
+<?
+      }
+      $methodtotal += $rowamount;
+      $grandtotal  += $rowamount;
+    }
+?>
+
+ <tr bgcolor="#ddddff">
+  <td class="detail" colspan="4">
+   <?echo xl('Total for ') . $paymethod ?>
+  </td>
+  <td class="dehead" align="right">
+   <? bucks($methodtotal) ?>
+  </td>
+ </tr>
+
+ <tr bgcolor="#ffdddd">
+  <td class="detail" colspan="4">
+   <?xl('Grand Total','e')?>
+  </td>
+  <td class="dehead" align="right">
+   <? bucks($grandtotal) ?>
+  </td>
+ </tr>
+
+<?
+  }
+  SLClose();
+?>
+
+</table>
+</form>
+</center>
+</body>
+</html>
diff --git a/templates/report/general_default.html b/templates/report/general_default.html
index ded95e2ee..072997399 100644
--- a/templates/report/general_default.html
+++ b/templates/report/general_default.html
@@ -38,15 +38,24 @@ function dopopup(aurl) {
 <br/>
 <a href="appt_encounter_report.php" target="_new">Appointments-Encounters Report</a>
 <br/>
+
+{php} if (! $GLOBALS['simplified_demographics']) { {/php}
 <a href="insurance_allocation_report.php" target="_new">Patient Insurance Distribution Report</a>
 <br/>
 <a href="../billing/indigent_patients_report.php" target="_new">Indigent Patients Report</a>
 <br/>
-<a href="front_receipts_report.php" target="_new">Front Office Receipts Report</a>
-<br/>
 <a href="unique_seen_patients_report.php" target="_new">Unique Seen Patients Report</a>
 <br/>
+{php} } {/php}
+
+{php} if (! $GLOBALS['weight_loss_clinic']) { {/php}
+<a href="front_receipts_report.php" target="_new">Front Office Receipts Report</a>
+<br/>
+{php} } {/php}
+
 <a href="prescriptions_report.php" target="_new">Prescriptions Report</a>
+<br/>
+<a href="receipts_by_method_report.php" target="_new">Receipts by Payment Method Report</a>
 {php}
  if ($GLOBALS['athletic_team']) {
   echo "<br/>\n";
-- 
2.11.4.GIT