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/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).