Writeoff

bcbsvt/check_x12s.php

@@ -1,37 +1,49 @@
 <?php
-
 use phpseclib3\Net\SFTP;
-
 require_once(dirname(__FILE__) . '/../vendor/autoload.php');
 
-
 $cms_user = getenv('MOVEIT_USERNAME');
 $cms_pass = getenv('MOVEIT_PASSWORD');
+
 $sftp = new SFTP('moveit.bcbsvt.com');
-$sftp->setTimeout(300); // 5 minutes instead of default
-$sftp->setKeepAlive(30); // Send keep-alive every 30 seconds
+$sftp->setTimeout(300);    // 5 minutes instead of default
+$sftp->setKeepAlive(30);   // send keep-alive every 30 seconds
+
 if (!$sftp->login($cms_user, $cms_pass)) {
-    echo "login failed" . "\n";
+    echo "login failed\n";
     exit;
-};
+}
 
 $path = '/Home/cms';
-
-$files = $sftp->rawlist($path, true);
-if (!is_array($files)) {
+$raw = $sftp->rawlist($path);
+if (!is_array($raw)) {
     throw new RuntimeException("rawlist failed: " . $sftp->getLastError());
 }
-usort($files, fn($a, $b) => $a->mtime <=> $b->mtime);
-
-if (!empty($files)) {
-    foreach ($files as $file) {
-        if (!empty($file)) {
-            $dt_utc = new DateTimeImmutable('@' . $file->mtime);  // unix timestamp directly
-            $date = $dt_utc->setTimezone(new DateTimeZone('America/New_York'));
-            echo "file: " . $file->filename . " uploaded to 02 on " .
-                $date->format('Y-m-d h:i:s a') . "\n";
-        }
-    }
-} else {
-    // there's a test directory
+
+// read a field whether the entry is an object or an associative array
+$prop = function ($entry, $key) {
+    if (is_object($entry)) return $entry->$key ?? null;
+    if (is_array($entry))  return $entry[$key] ?? null;
+    return null;
+};
+
+$files = [];
+foreach ($raw as $name => $entry) {
+    if ($name === '.' || $name === '..') continue;
+    if ($prop($entry, 'type') === NET_SFTP_TYPE_DIRECTORY) continue;  // 2
+    $mtime = $prop($entry, 'mtime');
+    if (!$mtime) continue;
+    $files[] = [
+        'filename' => $prop($entry, 'filename') ?? $name,
+        'mtime'    => $mtime,
+    ];
 }
+
+usort($files, fn($a, $b) => $a['mtime'] <=> $b['mtime']);
+
+foreach ($files as $file) {
+    $dt_utc = new DateTimeImmutable('@' . $file['mtime']);
+    $date = $dt_utc->setTimezone(new DateTimeZone('America/New_York'));
+    echo "file: {$file['filename']} uploaded to 02 on "
+       . $date->format('Y-m-d h:i:s a') . "\n";
+}

copylib/charcur.cpy

@@ -7,15 +7,13 @@
            02 CC-SERVICE PIC X.
            02 CC-DIAG PIC X(7).
            02 CC-PROC PIC X(7).
-      * 40     
            02 CC-MOD2 PIC XX.
            02 CC-MOD3 PIC XX.
            02 CC-MOD4 PIC XX.
            02 CC-AMOUNT PIC S9(4)V99.
            02 CC-DOCR PIC X(3).
            02 CC-DOCP PIC X(2).
            02 CC-PAYCODE PIC 999.
-      *60     
            02 CC-STUD PIC X.
            02 CC-WORK PIC XX.
            02 CC-DAT1 PIC X(8).
@@ -27,12 +25,10 @@
            02 CC-PAPER PIC X.
            02 CC-PLACE PIC X.
            02 CC-EPSDT PIC X.
-      * 79     
            02 CC-DATE-T PIC X(8).
            02 CC-DATE-A PIC X(8).
            02 CC-DATE-P PIC X(8).
            02 CC-REC-STAT PIC X.
-      * 104     
            02 CC-DX2 PIC X(7).
            02 CC-DX3 PIC X(7).
            02 CC-ACC-TYPE PIC X.
@@ -43,4 +39,3 @@
            02 CC-DX5 PIC X(7).
            02 CC-DX6 PIC X(7).
            02 CC-FUTURE PIC X(6).
-      * 156     

copylib/payfile.cpy

@@ -8,7 +8,6 @@
 	       02 PD-DENIAL PIC XX.
 	       02 PD-CLAIM PIC X(6).
 	       02 PD-DATE-T PIC X(8).
-      * 61   
 	       02 PD-DATE-E PIC X(8).
 	       02 PD-ORDER PIC X(6).
 	       02 PD-BATCH PIC X(6).

copylib/rri/charcur.cpy

@@ -4,7 +4,6 @@
              03 CC-KEY3 PIC XXX.
            02 CC-PATID PIC X(8).
            02 CC-CLAIM PIC X(6).
-      * 25     
            02 CC-SERVICE PIC X.
            02 CC-DIAG PIC X(7).
            02 CC-PROC.
@@ -15,13 +14,11 @@
            02 CC-MOD2 PIC XX.
            02 CC-MOD3 PIC XX.
            02 CC-MOD4 PIC XX.
-      * 50     
            02 CC-AMOUNT PIC S9(4)V99.
            02 CC-DOCR PIC X(3).
            02 CC-DOCP PIC X(2).
            02 CC-PAYCODE PIC 999.
            02 CC-STUD PIC X.
-      * 65     
            02 CC-WORK PIC XX.
            02 CC-DAT1 PIC X(8).
            02 CC-RESULT PIC X.
@@ -30,24 +27,19 @@
            02 CC-COLLT PIC X.
            02 CC-AUTH PIC X.
            02 CC-PAPER PIC X.
-      * 81     
            02 CC-PLACE PIC X.
            02 CC-EPSDT PIC X.
            02 CC-DATE-T PIC X(8).
-      *    claim age date     
            02 CC-DATE-A PIC X(8).
            02 CC-DATE-P PIC X(8).
            02 CC-REC-STAT PIC X.
-      * 108     
            02 CC-DX2 PIC X(7).
            02 CC-DX3 PIC X(7).
-      * 122     
            02 CC-ACC-TYPE PIC X.
            02 CC-DATE-M PIC X(8).
            02 CC-ASSIGN PIC X.
            02 CC-NEIC-ASSIGN PIC X.
            02 CC-DX4 PIC X(7).
-      * 140     
            02 CC-QP1 PIC XX.
            02 CC-QP2 PIC XX.
            02 CC-VISITNO PIC X(7).

copylib/rri/hisfile.cpy

@@ -0,0 +1,41 @@
+       01  HISFILE01.
+           02 HISFILE-KEY.
+             03 HS-KEY8 PIC X(8).
+             03 HS-CLAIM PIC X(6).
+             03 HS-REC-TYPE PIC X.
+             03 HS-KEY4 PIC XXXX.
+           02 HS-PATID. 
+              03 HS-PATID7 PIC X(7).
+              03 HS-PATID1 PIC X.
+           02 HS-SERVICE PIC X.
+           02 HS-DIAG PIC X(5).
+           02 HS-PROC PIC X(11).
+           02 HS-MOD2 PIC XX.
+           02 HS-MOD3 PIC XX.
+           02 HS-MOD4 PIC XX.
+           02 HS-AMOUNT PIC X(6).
+           02 HS-DOCR PIC X(3).
+           02 HS-DOCP PIC X(2).
+           02 HS-PAYCODE PIC XXX.
+           02 HS-STUD PIC X.
+           02 HS-WORK PIC XX.
+           02 HS-DAT1 PIC X(8).
+           02 HS-RESULT PIC X.
+           02 HS-ACT PIC X.
+           02 HS-SORCREF PIC X.
+           02 HS-COLLT PIC X.
+           02 HS-AGE PIC X.
+           02 HS-PAPER PIC X.
+           02 HS-PLACE PIC X.
+           02 HS-EPSDT PIC X.
+           02 HS-DATE-T PIC X(8).
+           02 HS-DATE-A PIC X(8).
+           02 HS-DATE-E PIC X(8).
+           02 HS-REC-STAT PIC X.
+           02 HS-DX2 PIC X(5).
+           02 HS-DX3 PIC X(5).
+           02 HS-ACC-TYPE PIC X.
+           02 HS-DATE-M PIC X(8).
+           02 HS-ASSIGN PIC X.
+           02 HS-NEIC-ASSIGN PIC X.
+           02 HS-FUTURE PIC X(6).

iedi/process_reports.php

@@ -1,5 +1,4 @@
 <?php
-
 $user = getenv('USER');
 $batch_file = '/tmp/w22' . $user;
 $remit_file = '/tmp/w33' . $user;
@@ -30,21 +29,12 @@
     $za = new ZipArchive();
     switch ($ext) {
         case 'TXT':
-            print $fileName . "\n";
-            $flag = false;
-            foreach (file($fileName) as $line) {
-                if ((stripos($line, 'R') != false) || (stripos($line, 'E') != false)) {
-                    $flag = true;
-                    if ((stripos($line, 'SE') != false) || (stripos($line, 'GE') != false) || (stripos($line, 'IEA') != false)) {
-                        $flag = false;
-                    }
-                }
-            }
-            if (!empty($flag)) {
-                echo "uh oh, have to check out 999 error or reject $fileName\n";
-            }
-            readline('enter to continue');
-            break;
+        print $fileName . "\n";
+        if (preg_match('/(IK5|AK9)\*[RE]/', file_get_contents($fileName))) {
+            echo "uh oh, have to check out 999 error or reject $fileName\n";
+        }
+        readline('enter to continue');
+        break;
         case 'txt':
             print $fileName . "\n";
             $contents = file_get_contents($fileName);
@@ -58,12 +48,13 @@
             file_put_contents($remit_file, '/home/sidw/iedi/' . $fileName . "\n", FILE_APPEND);
             break;
         case 'zip':
-            $za->open($fileName);
+            if ($za->open($fileName) !== true) { echo "bad zip: $fileName\n"; break; }
             for ($i = 0; $i < $za->numFiles; $i++) {
-                $stat = $za->statIndex($i);
-                $fileName277 = basename($stat['name']) . PHP_EOL;
-                $za->extractTo('/tmp');
-                file_put_contents($batch_file, '/tmp/' . $fileName277, FILE_APPEND);
+                $name = $za->statIndex($i)['name'];
+                if (pathinfo($name, PATHINFO_EXTENSION) !== '277') continue;
+                $dest = '/tmp/' . basename($name);
+                copy("zip://$fileName#$name", $dest);
+                file_put_contents($batch_file, $dest . "\n", FILE_APPEND);
             }
             $za->close();
             break;