function slInitialize()
{
if ($GLOBALS['oer_config']['ws_accounting']['enabled'] === 2) {
return;
}
global $chart_id_cash, $chart_id_ar, $chart_id_income, $services_id;
global $sl_cash_acc, $sl_ar_acc, $sl_income_acc, $sl_services_id;
SLConnect();
$chart_id_cash = SLQueryValue("select id from chart where accno = '{$sl_cash_acc}'");
if ($sl_err) {
die($sl_err);
}
if (!$chart_id_cash) {
die(xl("There is no COA entry for cash account ") . "'{$sl_cash_acc}'");
}
$chart_id_ar = SLQueryValue("select id from chart where accno = '{$sl_ar_acc}'");
if ($sl_err) {
die($sl_err);
}
if (!$chart_id_ar) {
die(xl("There is no COA entry for AR account ") . "'{$sl_ar_acc}'");
}
$chart_id_income = SLQueryValue("select id from chart where accno = '{$sl_income_acc}'");
if ($sl_err) {
die($sl_err);
}
if (!$chart_id_income) {
die(xl("There is no COA entry for income account ") . "'{$sl_income_acc}'");
}
$services_id = SLQueryValue("select id from parts where partnumber = '{$sl_services_id}'");
if ($sl_err) {
die($sl_err);
}
if (!$services_id) {
die(xl("There is no parts entry for services ID ") . "'{$sl_services_id}'");
}
}
function generate_receipt($patient_id, $encounter = 0)
{
global $sl_err, $sl_cash_acc, $css_header, $details, $INTEGRATED_AR;
// Get details for what we guess is the primary facility.
$frow = sqlQuery("SELECT * FROM facility " . "ORDER BY billing_location DESC, accepts_assignment DESC, id LIMIT 1");
$patdata = getPatientData($patient_id, 'fname,mname,lname,pubpid,street,city,state,postal_code,providerID');
// Get the most recent invoice data or that for the specified encounter.
//
// Adding a provider check so that their info can be displayed on receipts
if ($INTEGRATED_AR) {
if ($encounter) {
$ferow = sqlQuery("SELECT id, date, encounter, provider_id FROM form_encounter " . "WHERE pid = ? AND encounter = ?", array($patient_id, $encounter));
} else {
$ferow = sqlQuery("SELECT id, date, encounter, provider_id FROM form_encounter " . "WHERE pid = ? " . "ORDER BY id DESC LIMIT 1", array($patient_id));
}
if (empty($ferow)) {
die(xlt("This patient has no activity."));
}
$trans_id = $ferow['id'];
$encounter = $ferow['encounter'];
$svcdate = substr($ferow['date'], 0, 10);
if ($GLOBALS['receipts_by_provider']) {
if (isset($ferow['provider_id'])) {
$encprovider = $ferow['provider_id'];
} else {
if (isset($patdata['providerID'])) {
$encprovider = $patdata['providerID'];
} else {
$encprovider = -1;
}
}
}
if ($encprovider) {
$providerrow = sqlQuery("SELECT fname, mname, lname, title, street, streetb, " . "city, state, zip, phone, fax FROM users WHERE id = ?", array($encprovider));
}
} else {
SLConnect();
//
$arres = SLQuery("SELECT * FROM ar WHERE " . "invnumber LIKE '{$patient_id}.%' " . "ORDER BY id DESC LIMIT 1");
if ($sl_err) {
die(text($sl_err));
}
if (!SLRowCount($arres)) {
die(xlt("This patient has no activity."));
}
$arrow = SLGetRow($arres, 0);
//
$trans_id = $arrow['id'];
//
// Determine the date of service. An 8-digit encounter number is
// presumed to be a date of service imported during conversion or
// associated with prescriptions only. Otherwise look it up in the
// form_encounter table.
//
$svcdate = "";
list($trash, $encounter) = explode(".", $arrow['invnumber']);
if (strlen($encounter) >= 8) {
$svcdate = substr($encounter, 0, 4) . "-" . substr($encounter, 4, 2) . "-" . substr($encounter, 6, 2);
} else {
if ($encounter) {
$tmp = sqlQuery("SELECT date FROM form_encounter WHERE " . "encounter = ?", array($encounter));
$svcdate = substr($tmp['date'], 0, 10);
}
}
}
// end not $INTEGRATED_AR
// Get invoice reference number.
$encrow = sqlQuery("SELECT invoice_refno FROM form_encounter WHERE " . "pid = ? AND encounter = ? LIMIT 1", array($patient_id, $encounter));
$invoice_refno = $encrow['invoice_refno'];
?>
<html>
<head>
<?php
html_header_show();
?>
<link rel='stylesheet' href='<?php
echo $css_header;
?>
' type='text/css'>
<title><?php
echo xlt('Receipt for Payment');
?>
</title>
<script type="text/javascript" src="../../library/dialog.js"></script>
<script language="JavaScript">
<?php
require $GLOBALS['srcdir'] . "/restoreSession.php";
?>
// Process click on Print button.
function printme() {
var divstyle = document.getElementById('hideonprint').style;
divstyle.display = 'none';
window.print();
return false;
}
// Process click on Delete button.
function deleteme() {
dlgopen('deleter.php?billing=<?php
echo attr("{$patient_id}.{$encounter}");
?>
', '_blank', 500, 450);
return false;
}
// Called by the deleteme.php window on a successful delete.
function imdeleted() {
window.close();
}
</script>
</head>
<body class="body_top">
<center>
<?php
if ($GLOBALS['receipts_by_provider'] && !empty($providerrow)) {
printProviderHeader($providerrow);
} else {
printFacilityHeader($frow);
}
echo xlt("Receipt Generated") . ":" . text(date(' F j, Y'));
if ($invoice_refno) {
echo " " . xlt("Invoice Number") . ": " . text($invoice_refno) . " " . xlt("Service Date") . ": " . text($svcdate);
}
?>
<br>
</b></p>
</center>
<p>
<?php
echo text($patdata['fname']) . ' ' . text($patdata['mname']) . ' ' . text($patdata['lname']);
?>
<br><?php
echo text($patdata['street']);
?>
<br><?php
echo text($patdata['city']) . ', ' . text($patdata['state']) . ' ' . text($patdata['postal_code']);
?>
<br>
</p>
<center>
<table cellpadding='5'>
<tr>
<td><b><?php
echo xlt('Date');
?>
</b></td>
<td><b><?php
echo xlt('Description');
?>
</b></td>
<td align='right'><b><?php
echo $details ? xlt('Price') : ' ';
?>
</b></td>
<td align='right'><b><?php
echo $details ? xlt('Qty') : ' ';
?>
</b></td>
<td align='right'><b><?php
echo xlt('Total');
?>
</b></td>
</tr>
<?php
$charges = 0.0;
if ($INTEGRATED_AR) {
// Product sales
$inres = sqlStatement("SELECT s.sale_id, s.sale_date, s.fee, " . "s.quantity, s.drug_id, d.name " . "FROM drug_sales AS s LEFT JOIN drugs AS d ON d.drug_id = s.drug_id " . "WHERE s.pid = ? AND s.encounter = ? " . "ORDER BY s.sale_id", array($patient_id, $encounter));
while ($inrow = sqlFetchArray($inres)) {
$charges += sprintf('%01.2f', $inrow['fee']);
receiptDetailLine($inrow['sale_date'], $inrow['name'], $inrow['fee'], $inrow['quantity']);
}
// Service and tax items
$inres = sqlStatement("SELECT * FROM billing WHERE " . "pid = ? AND encounter = ? AND " . "code_type != 'COPAY' AND activity = 1 " . "ORDER BY id", array($patient_id, $encounter));
while ($inrow = sqlFetchArray($inres)) {
$charges += sprintf('%01.2f', $inrow['fee']);
receiptDetailLine($svcdate, $inrow['code_text'], $inrow['fee'], $inrow['units']);
}
// Adjustments.
$inres = sqlStatement("SELECT " . "a.code, a.modifier, a.memo, a.payer_type, a.adj_amount, a.pay_amount, " . "s.payer_id, s.reference, s.check_date, s.deposit_date " . "FROM ar_activity AS a " . "LEFT JOIN ar_session AS s ON s.session_id = a.session_id WHERE " . "a.pid = ? AND a.encounter = ? AND " . "a.adj_amount != 0 " . "ORDER BY s.check_date, a.sequence_no", array($patient_id, $encounter));
while ($inrow = sqlFetchArray($inres)) {
$charges -= sprintf('%01.2f', $inrow['adj_amount']);
$payer = empty($inrow['payer_type']) ? 'Pt' : 'Ins' . $inrow['payer_type'];
receiptDetailLine($svcdate, $payer . ' ' . $inrow['memo'], 0 - $inrow['adj_amount'], 1);
}
} else {
// Request all line items with money belonging to the invoice.
$inres = SLQuery("SELECT * FROM invoice WHERE " . "trans_id = {$trans_id} AND sellprice != 0 ORDER BY id");
if ($sl_err) {
die($sl_err);
}
for ($irow = 0; $irow < SLRowCount($inres); ++$irow) {
$row = SLGetRow($inres, $irow);
$amount = sprintf('%01.2f', $row['sellprice'] * $row['qty']);
$charges += $amount;
$desc = preg_replace('/^.{1,6}:/', '', $row['description']);
receiptDetailLine($svcdate, $desc, $amount, $row['qty']);
}
}
// end not $INTEGRATED_AR
?>
<tr>
<td colspan='5'> </td>
</tr>
<tr>
<td><?php
echo text(oeFormatShortDate($svcdispdate));
?>
</td>
<td><b><?php
echo xlt('Total Charges');
?>
</b></td>
<td align='right'> </td>
<td align='right'> </td>
<td align='right'><?php
echo text(oeFormatMoney($charges, true));
?>
</td>
</tr>
<tr>
<td colspan='5'> </td>
</tr>
<?php
if ($INTEGRATED_AR) {
// Get co-pays.
$inres = sqlStatement("SELECT fee, code_text FROM billing WHERE " . "pid = ? AND encounter = ? AND " . "code_type = 'COPAY' AND activity = 1 AND fee != 0 " . "ORDER BY id", array($patient_id, $encounter));
while ($inrow = sqlFetchArray($inres)) {
$charges += sprintf('%01.2f', $inrow['fee']);
receiptPaymentLine($svcdate, 0 - $inrow['fee'], $inrow['code_text']);
}
// Get other payments.
$inres = sqlStatement("SELECT " . "a.code, a.modifier, a.memo, a.payer_type, a.adj_amount, a.pay_amount, " . "s.payer_id, s.reference, s.check_date, s.deposit_date " . "FROM ar_activity AS a " . "LEFT JOIN ar_session AS s ON s.session_id = a.session_id WHERE " . "a.pid = ? AND a.encounter = ? AND " . "a.pay_amount != 0 " . "ORDER BY s.check_date, a.sequence_no", array($patient_id, $encounter));
$payer = empty($inrow['payer_type']) ? 'Pt' : 'Ins' . $inrow['payer_type'];
while ($inrow = sqlFetchArray($inres)) {
$charges -= sprintf('%01.2f', $inrow['pay_amount']);
receiptPaymentLine($svcdate, $inrow['pay_amount'], $payer . ' ' . $inrow['reference']);
}
} else {
$chart_id_cash = SLQueryValue("select id from chart where accno = '{$sl_cash_acc}'");
if ($sl_err) {
die($sl_err);
}
if (!$chart_id_cash) {
die("There is no COA entry for cash account '{$sl_cash_acc}'");
}
//
// Request all cash entries belonging to the invoice.
$atres = SLQuery("SELECT * FROM acc_trans WHERE " . "trans_id = {$trans_id} AND chart_id = {$chart_id_cash} ORDER BY transdate");
if ($sl_err) {
die($sl_err);
}
//
for ($irow = 0; $irow < SLRowCount($atres); ++$irow) {
$row = SLGetRow($atres, $irow);
$amount = sprintf('%01.2f', $row['amount']);
// negative
$charges += $amount;
$rowsource = $row['source'];
if (strtolower($rowsource) == 'co-pay') {
$rowsource = '';
}
receiptPaymentLine($row['transdate'], 0 - $amount, $rowsource);
}
}
// end not $INTEGRATED_AR
?>
<tr>
<td colspan='5'> </td>
</tr>
<tr>
<td> </td>
<td><b><?php
echo xlt('Balance Due');
?>
</b></td>
<td colspan='2'> </td>
<td align='right'><?php
echo text(oeFormatMoney($charges, true));
?>
</td>
</tr>
</table>
</center>
<div id='hideonprint'>
<p>
<a href='#' onclick='return printme();'><?php
echo xlt('Print');
?>
</a>
<?php
if (acl_check('acct', 'disc')) {
?>
<a href='#' onclick='return deleteme();'><?php
echo xlt('Undo Checkout');
?>
</a>
<?php
}
?>
<?php
if ($details) {
?>
<a href='pos_checkout.php?details=0&ptid=<?php
echo attr($patient_id);
?>
&enc=<?php
echo attr($encounter);
?>
'><?php
echo xlt('Hide Details');
?>
</a>
<?php
} else {
?>
<a href='pos_checkout.php?details=1&ptid=<?php
echo attr($patient_id);
?>
&enc=<?php
echo attr($encounter);
?>
'><?php
echo xlt('Show Details');
?>
</a>
<?php
}
?>
</p>
</div>
</body>
</html>
<?php
if (!$INTEGRATED_AR) {
SLClose();
}
}
$code = substr($code, 0, $i);
}
return $bcodes['CPT4'][xl('Lab')][$code] || $bcodes['CPT4'][xl('Immunizations')][$code] || $bcodes['HCPCS'][xl('Therapeutic Injections')][$code];
}
function bucks($amount)
{
if ($amount) {
echo oeFormatMoney($amount);
}
}
if (!acl_check('acct', 'rep')) {
die(xl("Unauthorized access."));
}
$INTEGRATED_AR = $GLOBALS['oer_config']['ws_accounting']['enabled'] === 2;
if (!$INTEGRATED_AR) {
SLConnect();
$chart_id_cash = SLQueryValue("select id from chart where accno = '{$sl_cash_acc}'");
if ($sl_err) {
die($sl_err);
}
}
$form_use_edate = $_POST['form_use_edate'];
$form_cptcode = trim($_POST['form_cptcode']);
$form_icdcode = trim($_POST['form_icdcode']);
$form_procedures = empty($_POST['form_procedures']) ? 0 : 1;
$form_from_date = fixDate($_POST['form_from_date'], date('Y-m-01'));
$form_to_date = fixDate($_POST['form_to_date'], date('Y-m-d'));
$form_facility = $_POST['form_facility'];
?>
<html>
<head>
function loadPayerInfo(&$billrow)
{
global $sl_err;
$encounter_date = substr($this->encounter['date'], 0, 10);
// Create the $payers array. This contains data for all insurances
// with the current one always at index 0, and the others in payment
// order starting at index 1.
//
$this->payers = array();
$this->payers[0] = array();
$query = "SELECT * FROM insurance_data WHERE " . "pid = '{$this->pid}' AND " . "date <= '{$encounter_date}' " . "ORDER BY type ASC, date DESC";
$dres = sqlStatement($query);
$prevtype = '';
while ($drow = sqlFetchArray($dres)) {
if (strcmp($prevtype, $drow['type']) == 0) {
continue;
}
$prevtype = $drow['type'];
// Very important to look at entries with a missing provider because
// they indicate no insurance as of the given date.
if (empty($drow['provider'])) {
continue;
}
$ins = count($this->payers);
if ($drow['provider'] == $billrow['payer_id'] && empty($this->payers[0]['data'])) {
$ins = 0;
}
$crow = sqlQuery("SELECT * FROM insurance_companies WHERE " . "id = '" . $drow['provider'] . "'");
$orow = new InsuranceCompany($drow['provider']);
$this->payers[$ins] = array();
$this->payers[$ins]['data'] = $drow;
$this->payers[$ins]['company'] = $crow;
$this->payers[$ins]['object'] = $orow;
}
// This kludge hands most cases of a rare ambiguous situation, where
// the primary insurance company is the same as the secondary. It seems
// nobody planned for that!
//
for ($i = 1; $i < count($this->payers); ++$i) {
if ($billrow['process_date'] && $this->payers[0]['data']['provider'] == $this->payers[$i]['data']['provider']) {
$tmp = $this->payers[0];
$this->payers[0] = $this->payers[$i];
$this->payers[$i] = $tmp;
}
}
$this->using_modifiers = true;
// Get payment and adjustment details if there are any previous payers.
//
$this->invoice = array();
if ($this->payerSequence() != 'P') {
if ($GLOBALS['oer_config']['ws_accounting']['enabled'] === 2) {
$this->invoice = ar_get_invoice_summary($this->pid, $this->encounter_id, true);
} else {
if ($GLOBALS['oer_config']['ws_accounting']['enabled']) {
SLConnect();
$arres = SLQuery("select id from ar where invnumber = " . "'{$this->pid}.{$this->encounter_id}'");
if ($sl_err) {
die($sl_err);
}
$arrow = SLGetRow($arres, 0);
if ($arrow) {
$this->invoice = get_invoice_summary($arrow['id'], true);
}
SLClose();
}
}
// Secondary claims might not have modifiers in SQL-Ledger data.
// In that case, note that we should not try to match on them.
$this->using_modifiers = false;
foreach ($this->invoice as $key => $trash) {
if (strpos($key, ':')) {
$this->using_modifiers = true;
}
}
}
}
} // End not csv export
} // end details
$producttotal += $rowamount;
$cattotal += $rowamount;
$grandtotal += $rowamount;
$productqty += $qty;
$catqty += $qty;
$grandqty += $qty;
} // end function
if (! acl_check('acct', 'rep')) die(xl("Unauthorized access."));
$INTEGRATED_AR = $GLOBALS['oer_config']['ws_accounting']['enabled'] === 2;
if (!$INTEGRATED_AR) 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_facility = $_POST['form_facility'];
if ($_POST['form_csvexport']) {
header("Pragma: public");
header("Expires: 0");
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
header("Content-Type: application/force-download");
header("Content-Disposition: attachment; filename=sales_by_item.csv");
header("Content-Description: File Transfer");
// CSV headers:
if ($_POST['form_details']) {
echo '"Category",';
if(($pagesize > 0) && ($pagestart>0))
{
generatePageElement($pagestart-$pagesize,$pagesize,$billing_view,$issue,"⇐" . htmlspecialchars( xl("Prev"), ENT_NOQUOTES) . " ");
}
echo ($pagestart + 1)."-".$upper." " . htmlspecialchars( xl('of'), ENT_NOQUOTES) . " " .$numRes;
if(($pagesize>0) && ($pagestart+$pagesize <= $numRes))
{
generatePageElement($pagestart+$pagesize,$pagesize,$billing_view,$issue," " . htmlspecialchars( xl("Next"), ENT_NOQUOTES) . "⇒");
}
$res4 = sqlStatement($query, $sqlBindArray);
if ($billing_view && $accounting_enabled && !$INTEGRATED_AR) SLConnect();
while ($result4 = sqlFetchArray($res4)) {
// $href = "javascript:window.toencounter(" . $result4['encounter'] . ")";
$reason_string = "";
$auth_sensitivity = true;
$raw_encounter_date = '';
$raw_encounter_date = date("Y-m-d", strtotime($result4{"date"}));
$encounter_date = date("D F jS", strtotime($result4{"date"}));
// if ($auth_notes_a || ($auth_notes && $result4['user'] == $_SESSION['authUser']))
$reason_string .= htmlspecialchars( $result4{"reason"}, ENT_NOQUOTES) . "<br>\n";
// else
