\n"; } $session_id = SLEOB::arGetSession($form_payer_id, $form_reference, $form_check_date, $form_deposit_date, $form_pay_total); // The sl_eob_search page needs its invoice links modified to invoke // javascript to load form parms for all the above and submit. // At the same time that page would be modified to work off the // openemr database exclusively. // And back to the sl_eob_invoice page, I think we may want to move // the source input fields from row level to header level. // Handle deletes. row_delete() is borrowed from deleter.php. if ($ALLOW_DELETE && !$debug) { if (!empty($_POST['form_del']) && is_array($_POST['form_del'])) { foreach ($_POST['form_del'] as $arseq => $dummy) { row_modify( "ar_activity", "deleted = NOW()", "pid = '" . add_escape_custom($patient_id) . "' AND encounter = '" . add_escape_custom($encounter_id) . "' AND sequence_no = '" . add_escape_custom($arseq) . "' AND deleted IS NULL" ); } } } $paytotal = 0; foreach ($_POST['form_line'] as $code => $cdata) { $thispay = trim($cdata['pay']); $thisadj = trim($cdata['adj']); $thisins = trim($cdata['ins']); $thiscodetype = trim($cdata['code_type']); $reason = $cdata['reason']; // Get the adjustment reason type. Possible values are: // 1 = Charge adjustment // 2 = Coinsurance // 3 = Deductible // 4 = Other pt resp // 5 = Comment $reason_type = '1'; if ($reason) { $tmp = sqlQuery("SELECT option_value FROM list_options WHERE list_id = 'adjreason' AND activity = 1 AND option_id = ?", array($reason)); if (empty($tmp['option_value'])) { // This should not happen but if it does, apply old logic. if (preg_match("/To copay/", $reason)) { $reason_type = 2; } elseif (preg_match("/To ded'ble/", $reason)) { $reason_type = 3; } $info_msg .= xl("No adjustment reason type found for") . " \"$reason\". "; } else { $reason_type = $tmp['option_value']; } } if (!$thisins) { $thisins = 0; } if (0.0 + $thispay) { SLEOB::arPostPayment($patient_id, $encounter_id, $session_id, $thispay, $code, $payer_type, '', $debug, '', $thiscodetype); $paytotal += $thispay; } // Be sure to record adjustment reasons, even for zero adjustments if // they happen to be comments. if ( (0.0 + $thisadj) || ($reason && $reason_type == 5) || ($reason && ($reason_type > 1 && $reason_type < 6)) ) { // "To copay" and "To ded'ble" need to become a comment in a zero // adjustment, formatted just like sl_eob_process.php. if ($reason_type == '2') { $reason = $_POST['form_insurance'] . " coins: $thisadj"; $thisadj = 0; } elseif ($reason_type == '3') { $reason = $_POST['form_insurance'] . " dedbl: $thisadj"; $thisadj = 0; } elseif ($reason_type == '4') { $reason = $_POST['form_insurance'] . " ptresp: $thisadj $reason"; $thisadj = 0; } elseif ($reason_type == '5') { $reason = $_POST['form_insurance'] . " note: $thisadj $reason"; $thisadj = 0; } else { // An adjustment reason including "Ins" is assumed to be assigned by // insurance, and in that case we identify which one by appending // Ins1, Ins2 or Ins3. if (strpos(strtolower($reason), 'ins') != false) { $reason .= ' ' . $_POST['form_insurance']; } } SLEOB::arPostAdjustment($patient_id, $encounter_id, $session_id, $thisadj, $code, $payer_type, $reason, $debug, '', $thiscodetype); } } // Maintain which insurances are marked as finished. $form_done = 0 + $_POST['form_done']; $form_stmt_count = 0 + $_POST['form_stmt_count']; sqlStatement("UPDATE form_encounter SET last_level_closed = ?, stmt_count = ? WHERE pid = ? AND encounter = ?", array($form_done, $form_stmt_count, $patient_id, $encounter_id)); if (!empty($_POST['form_secondary'])) { SLEOB::arSetupSecondary($patient_id, $encounter_id, $debug); } echo "\n"; if (!$save_stay && !$_POST['isLastClosed']) { exit(); } } // Get invoice charge details. $codes = InvoiceSummary::arGetInvoiceSummary($patient_id, $encounter_id, true); $pdrow = sqlQuery("select billing_note from patient_data where pid = ? limit 1", array($patient_id)); $bnrow = sqlQuery("select billing_note from form_encounter where pid = ? AND encounter = ? limit 1", array($patient_id, $encounter_id)); ?>