From ecf2322374fb3c6abed3cfff0c7cf2688286493d Mon Sep 17 00:00:00 2001
From: bradymiller <bradymiller>
Date: Tue, 16 Feb 2010 08:36:25 +0000
Subject: [PATCH] add hcfa text forms by bo2999, tracker artifact 2770036

---
 interface/billing/billing_process.php | 32 ++++++++++++++++++++++++++++++--
 interface/billing/billing_report.php  |  8 ++++++--
 library/gen_hcfa_1500.inc.php         |  3 +++
 3 files changed, 39 insertions(+), 4 deletions(-)

diff --git a/interface/billing/billing_process.php b/interface/billing/billing_process.php
index 5940d9c35..8f30bdd5f 100644
--- a/interface/billing/billing_process.php
+++ b/interface/billing/billing_process.php
@@ -111,7 +111,7 @@ process_form($_POST);
 function process_form($ar) {
   global $bill_info, $webserver_root, $bat_filename, $pdf;
 
-  if (isset($ar['bn_x12']) || isset($ar['bn_x12_encounter']) || isset($ar['bn_process_hcfa'])) {
+  if (isset($ar['bn_x12']) || isset($ar['bn_x12_encounter']) || isset($ar['bn_process_hcfa']) || isset($ar['bn_hcfa_txt_file'])) {
     $hlog = fopen("$webserver_root/library/freeb/process_bills.log", 'w');
   }
 
@@ -155,7 +155,7 @@ function process_form($ar) {
 
       if (isset($ar['bn_x12']) || isset($ar['bn_x12_encounter'])) {
         $tmp = updateClaim(true, $patient_id, $encounter, $payer_id, $payer_type, 1, 1, '', $target, $claim_array['partner']);
-      } else if (isset($ar['bn_process_hcfa'])) {
+      } else if (isset($ar['bn_process_hcfa']) || isset($ar['bn_hcfa_txt_file'])) {
         $tmp = updateClaim(true, $patient_id, $encounter, $payer_id, $payer_type, 1, 1, '', 'hcfa');
       } else if (isset($ar['bn_mark'])) {
         // $sql .= " billed = 1, ";
@@ -206,6 +206,16 @@ function process_form($ar) {
           }
         }
 
+        else if (isset($ar['bn_hcfa_txt_file'])) {
+          $log = '';
+          $lines = gen_hcfa_1500($patient_id, $encounter, $log);
+          fwrite($hlog, $log);
+          $bat_content .= $lines;
+          if (!updateClaim(false, $patient_id, $encounter, -1, -1, 2, 2, $bat_filename)) {
+            $bill_info[] = xl("Internal error: claim ") . $claimid . xl(" not found!") . "\n";
+          }
+        }
+
         else {
           $bill_info[] = xl("Claim ") . $claimid . xl(" was queued successfully.") . "\n";
         }
@@ -236,6 +246,24 @@ function process_form($ar) {
     exit;
   }
 
+  if (isset($ar['bn_hcfa_txt_file'])) {
+    fclose($hlog);
+    $fh = @fopen("$webserver_root/edi/$bat_filename", 'a');
+    if ($fh) {
+      fwrite($fh, $bat_content);
+      fclose($fh);
+    }
+    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=$bat_filename");
+    header("Content-Description: File Transfer");
+    header("Content-Length: " . strlen($bat_content));
+    echo $bat_content;
+    exit;
+  }
+
   if (isset($ar['bn_external'])) {
     // Close external billing file.
     $be->close();
diff --git a/interface/billing/billing_report.php b/interface/billing/billing_report.php
index cba3c500e..9b6be5338 100644
--- a/interface/billing/billing_report.php
+++ b/interface/billing/billing_report.php
@@ -143,6 +143,7 @@ function set_button_states() {
   f.bn_x12_encounter.disabled   = !can_generate;
 <?php } ?>
   f.bn_process_hcfa.disabled    = !can_generate;
+  f.bn_hcfa_txt_file.disabled   = !can_generate;
   // f.bn_electronic_file.disabled = !can_bill;
   f.bn_reopen.disabled          = !can_bill;
 <?php } ?>
@@ -329,9 +330,12 @@ function topatient(pid) {
  title="<?php xl('Generate and download X12 encounter claim batch','e')?>"
  onclick="alert('<?php xl('After saving your batch, click [View Log] to check for errors.','e'); ?>')">
 <?php } ?>
-<input type="submit" class="subbtn" name="bn_process_hcfa" value="<?php xl('Generate CMS 1500','e')?>"
- title="<?php xl('Generate and download HCFA 1500 paper claims','e')?>"
+<input type="submit" class="subbtn" name="bn_process_hcfa" value="<?php xl('Generate CMS 1500 PDF','e')?>"
+ title="<?php xl('Generate and download CMS 1500 paper claims','e')?>"
  onclick="alert('<?php xl('After saving the PDF, click [View Log] to check for errors.','e'); ?>')">
+<input type="submit" class="subbtn" name="bn_hcfa_txt_file" value="<?php xl('Generate CMS 1500 TEXT','e')?>"
+ title="<?php xl('Making batch text files for uploading to Clearing House and will mark as billed', 'e')?>"
+ onclick="alert('<?php xl('After saving the TEXT file(s), click [View Log] to check for errors.','e'); ?>')">
 <input type="submit" class="subbtn" name="bn_mark" value="<?php xl('Mark as Cleared','e')?>" title="<?php xl('Post to accounting and mark as billed','e')?>">
 <input type="submit" class="subbtn" name="bn_reopen" value="<?php xl('Re-Open','e')?>" title="<?php xl('Mark as not billed','e')?>">
 <!--
diff --git a/library/gen_hcfa_1500.inc.php b/library/gen_hcfa_1500.inc.php
index 366d8b596..95c28373f 100644
--- a/library/gen_hcfa_1500.inc.php
+++ b/library/gen_hcfa_1500.inc.php
@@ -584,6 +584,9 @@ function gen_hcfa_1500_page($pid, $encounter, &$log, &$claim) {
     put_hcfa(61, 65, 14, $claim->providerGroupNumber());
   }
 
+  // Put an extra line here for compatibility with old hcfa text generated form
+    put_hcfa(62, 1, 1, ' ');
+
   return;
 }
 ?>
-- 
2.11.4.GIT