aACH.prg

<?php
/**
 * @package aACH.prg -- The Admin side of ACH handling: download batches, canceling.
 *
 * Notes:
 * For creating and downloading an ach batch, the follow process is used
 * 1. Show all the unique transactions that are not in a batch
 * 2. User selects the ones for the next batch.
 * 3. transhdr entries are marked with the processed information
 * 4. A new window/tab is opened and the batch report is shown and the ach file is downloaded
 * 5. The batch creation grid is refreshed.
 * If user views history later, they can click an icon to download the ach file or view the batch report again
 * ACH batch file and report are saved in /home/<cu>/admin/ach/
 *
 * The batch id is an encoded string of the batch date/time.
 *
 * The <cu>transhdr.transactioncode table has specific meaning
 * - For internal transfers it is the code sent to the core
 * - For ACH transactions use for determining the Service Class Code and Standard Entry Class Codes:
 *    Service Class Code:
 *    1X = credit with respect to the RDFI
 *    2X = debit with respect to RDFI
 *    3X = mixed credit/debit with respect to RDFI
 *    Standard Entry Class Code
 *    X = P (PPD), C (CCD), W (WEB)
 *    PPD/CCD are for ACH feature; WEB is for External Transfer feature
 *  NOTE: It is possible in the future that the transhdr.transactioncode is just a flag to make sure
 *    the correct SSC and SEC are created, or to better identify certain transactions (e.g. micro
 *    deposits) for specialized handling. (Addendum: As of 10/05/2017 I think we are at this point. The code
 *    building the file will reflect this. "W" means it comes from the Scheduled/Transfer feature, "P" means
 *    it came from the micro deposit creation from the External Account feature, and "C" means it came from
 *    the "commercial" ACH feature.)
 *    This is because we might create two entries under one company for most external transfers but two
 *    separate companies with one entry each for an external transfer to make a loan payment at the CU. For
 *    this later case it is a "WEB" for the external account debit and a "PPD" for the loan payment. Additionally
 *    the micro deposit offset needs to move the money into the CU Admin configured account so we need to
 *    specifically be able to identify that <cu>transhdr entry.
 *  NOTE: When determining the local account number for the ACH record take the sub-account and add to the end
 *    of the account number and make sure any non-alphanumeric characters are removed.
 */
require_once( "../../banking/library/hcuACH.i" );
require_once("$sharedLibrary/sFeatureMnu.i");
require_once( "../library/aGroupSupport.i" );

// include a file we need for gathering admin info
// for the MakeACHBatch / CreateAchFiles functions.
require_once( dirname(__FILE__) . "/../library/aAdminSettings.i" );

const DFI_ACCOUNT_MAX_SIZE = 17;

// Get advanced permissions
$advPerm = checkPerm($Cn, "aACHAdv", $Cu)[1] == 1;

$self = "$menu_link?ft=$ft";

  $admVars = array();
  $admOk = array(
    "operation" => array("filter" => FILTER_SANITIZE_STRING),
    "page" => array("filter" => FILTER_SANITIZE_STRING),
    "trans_id" => array("filter" => FILTER_SANITIZE_NUMBER_INT)
  );
  HCU_ImportVars( $admVars, "", $admOk );

  $operation = trim( isset( $admVars["operation"]) ? $admVars["operation"] : "" );

  $page = trim( isset( $admVars["page"]) ? $admVars["page"] : "" );

  // set up a common "environment"
  $ADM_ENV = array();
  $ADM_ENV["SYSENV"] = $SYSENV;
  $ADM_ENV["Cu"] = $Cu;
  $ADM_ENV["Cn"] = $Cn;
  $ADM_ENV["dbh"] = $dbh;
  $ADM_ENV["self"] = $self;
  $ADM_ENV["menu_link"] = $menu_link;
  $ADM_ENV["advPerm"] = $advPerm;

  // The max time allowed for being able to remove
  // transactions from a batch after its creation.
  // Current value is number of days.

  // The removeFromBatchAllowed value will be sent
  // to the client with the batch detail records
  // when called: GetBatchDetail().
  $ADM_ENV["removeFromBatchTime"] = 14;

  // operations are the .data activities called by a kendo datasource or other ajax mechanism
  if ($operation != "") {
    try {
      if (!in_array($ft, array(100,99))) {
        throw new exception("Data call isn't using expected ft!", 12);
      }

      $aryReply = array();
      $aryResult = array();
      $aryInfo = array();
      $aryError = array();

      switch($operation) {
        case "achGetBatches":
          $return = GetCompletedBatches( $ADM_ENV );

          if ($return['code'] != '000') {
            throw new Exception ( HCU_JsonEncode($return["errors"]) );
          }

          // return the data
          $aryResult[$operation] = $return["data"];
          break;
        case "achMakeBatch":
          if (!$advPerm) {
            // Need to keep structure of other thrown errors.
            throw new exception ( HCU_JsonEncode(array("Need advanced permissions to make a batch.")) );
          }
          $admOk = array(
            "trans_list" => array("filter" => FILTER_SANITIZE_STRING)
          );
          HCU_ImportVars( $admVars, "", $admOk );
          $returnMake = MakeACHBatch( $ADM_ENV, $admVars );

          if ($returnMake['code'] != '000') {
            throw new Exception ( HCU_JsonEncode($returnMake["errors"]) );
          } else {
            $aryInfo[] = "Create ACH upload file. Processed time: " . $returnMake["data"]["batch_time"];

            // set return data to update grid
            // batch file create / notifications may fail but
            // should not hold up the process
            $aryResult[$operation] = $returnMake["data"];

            // now create the batch files
            $admVars["batch_id"] = $returnMake["data"]["batch_id"];
            $returnCreate = CreateAchFiles( $ADM_ENV, $admVars );

            if ($returnCreate['code'] != '000') {
              // must use merge to save the previous success mesage
              $returnErrors = explode('^', $returnCreate['errors']);
              $aryInfo = array_merge($aryInfo, $returnErrors);
              $aryInfo[] = "Use the <a href=\"main.prg?ft=100\">History</a> screen to attempt re-building the ACH upload file.";
            } else {
              // set return data to update grid
              // notifications may fail but should not hold up the process
              //$aryResult[$operation] = $returnMake["data"];

              // now send batch notification emails
              $returnNotify = SendACHNotifications( $ADM_ENV, $admVars['trans_list'] );
              if ($returnNotify['code'] !== '000') {
                // do not throw error here, put the error into the info array
                // and display in dialog box after return.
                $aryInfo[] = $returnNotify['errors'];
                if ($returnNotify['code'] == 103) {
                  $aryInfo[] = "This feature requires an \"ACH Notifications\" email on the <a href=\"main.prg?ft=46\">CU Email Notifications</a> screen.";
                } else if ($returnNotify['code'] == 104) {
                  $aryInfo[] = "This feature requires an \"ACH Notifications\" email template on the <a href=\"main.prg?ft=54\">Settings</a> screen.";
                }
              }
            }
          }
          break;
        case "achGetBatchDetail":
          $admOk = array(
            "batch_id" => array("filter" => FILTER_SANITIZE_STRING)
          );
          HCU_ImportVars( $admVars, "", $admOk );

          $return = GetBatchDetail( $ADM_ENV, $admVars );

          if ($return['code'] != '000') {
            throw new Exception ( HCU_JsonEncode($return["errors"]) );
          }

          // return the data
          $aryResult[$operation] = $return["data"];
          break;
        case "achGetReady":
          $return = GetApprovedACHTrans( $ADM_ENV );

          if ($return['code'] != '000') {
            throw new Exception ( HCU_JsonEncode($return["errors"]) );
          }

          // return the data
          $aryResult[$operation] = $return["data"];
          break;
        case "achGetDetail":
          $transId = isset( $admVars["trans_id"]) ? $admVars["trans_id"] : 0;
          $return = GetACHTransDetail( $ADM_ENV, $transId );

          if ($return['code'] != '000') {
            throw new Exception ( HCU_JsonEncode($return["errors"]) );
          }

          // return the data
          $aryResult[$operation] = $return["data"];
          break;
        case "achCancel":
          $admOk = array(
            "trans_list" => array("filter" => FILTER_SANITIZE_STRING)
          );
          HCU_ImportVars( $admVars, "", $admOk );

          if (!$advPerm) {
            // Need to keep structure of other thrown errors.
            throw new exception ( HCU_JsonEncode(array("Need advanced permissions to cancel a batch.")) );
          }

          $return = CancelACHTrans( $ADM_ENV, $admVars["trans_list"] );

          if ($return['code'] != '000') {
            throw new Exception ( HCU_JsonEncode($return["errors"]) );
          }

          // return the data
          $aryResult[$operation] = $return["data"];
          break;
        case "ach_download_file":
          // download the ach file
          // NOTE: Exists when done.
          $admOk = array(
            "batch_id" => array("filter" => FILTER_SANITIZE_STRING),
            "download_type" => array("filter" => FILTER_SANITIZE_STRING)
          );
          HCU_ImportVars( $admVars, "", $admOk );

          if (!$advPerm) {
            // Need to keep structure of other thrown errors.
            ShowErrorPage(array("Need advanced permissions to download ACH file."));
            exit;
          }

          $return = DownloadAchFile( $ADM_ENV, $admVars );

          if ($return['code'] != '000') {
            // need to show an error screen and exit
            ShowErrorPage( $return["errors"] );
            exit;
          }

          // return the data as an output file so the browser will save it
          $filename = $return["data"]["filename"];
          $outString = $return["data"]["output"];
          header("Content-length: " . strlen($outString));
          header("Content-type: application/octetstream");
          header("Content-disposition: attachment; filename=\"$filename\"");
          print ( $outString );

          // since done, exit so no more output
          exit;
          break;
        case "achCreateFile":
          // create the ach file and report if they don't exist
          // note: don't download or anything
          $admOk = array(
            "batch_id" => array("filter" => FILTER_SANITIZE_STRING)
          );
          HCU_ImportVars( $admVars, "", $admOk );

          if (!$advPerm) {
            // Need to keep structure of other thrown errors.
            throw new exception ( HCU_JsonEncode(array("Need advanced permissions to create file.")) );
          }

          $return = ACH_CreateFile($ADM_ENV, $admVars);
          if ($return['code'] !== '000') {
            // There is a single error thrown from the BuildACHBusiness
            // function in CreateACHFiles that has two parts separated
            // by the '^' symbol. Splitting will allow each part to be
            // printed on a new line in the homecu error popout.
            $errors = explode("^", $return['errors']);
            throw new Exception( HCU_JsonEncode($errors) );
          }

          // success message
          $aryInfo = $return['data']['message'];
          $aryResult[$operation] = $return['data'];
          break;
        case "achSendNotifications":
          $admOk = array(
            "batch_id" => array("filter" => FILTER_SANITIZE_STRING)
          );
          HCU_ImportVars( $admVars, "", $admOk );

          if (!$advPerm) {
            // Need to keep structure of other thrown errors.
            throw new exception ( HCU_JsonEncode(array("Need advanced permissions to send notifications.")) );
          }

          // retrieve processed headers for restart
          $transHdrIds = GetProcessedHeaders( $ADM_ENV, $admVars['batch_id'] );
          $return = SendACHNotifications( $ADM_ENV, $transHdrIds);
          if ($return['code'] !== '000') {
            // depending on the code returned use specific error messages
            // code 103 means no email setup in cu email notifications, add link to this screen
            // code 104 means no email template was found, add link to the settings screen
            $returnErrors = array();
            $returnErrors[] = $return['errors'];
            if ($return['code'] == 103) {
              $returnErrors[] = "This feature requires an \"ACH Notifications\" email on the <a href=\"main.prg?ft=46\">CU Email Notifications</a> screen.";
            } else if ($return['code'] == 104) {
              $returnErrors[] = "This feature requires an \"ACH Notifications\" email template on the <a href=\"main.prg?ft=54\">Settings</a> screen.";
            }

            throw new Exception( HCU_JsonEncode($returnErrors) );
          }

          // Return the id to show it worked
          $aryResult[$operation] = array("batch_id"=>$admVars['batch_id']);
          $aryInfo[] = "Email notifications have been sent";
          break;
        case "achRemoveBatchTransactions":
          // batch_id: processed_date
          // trans_list: list of transactions ids to remove from the batch
          $admOk = array(
            "batch_id" => array("filter" => FILTER_SANITIZE_STRING),
            "trans_list" => array("filter" => FILTER_SANITIZE_STRING)
          );
          HCU_ImportVars( $admVars, "", $admOk );

          if (!$advPerm) {
            // Need to keep structure of other thrown errors.
            throw new exception ( HCU_JsonEncode(array("Need advanced permissions to remove transactions.")) );
          }

          $return = ACH_RemoveBatchTransactions($ADM_ENV, $admVars);
          if ($return['code'] !== '000') {
            throw new Exception( HCU_JsonEncode($return['errors']) );
          }

          // success message
          $aryInfo[] = $return['data']['message'];
          $aryResult[$operation] = $return['data'];
          break;
        default:
          throw new Exception ("Operation not recognized: $operation.");
          break;
      }
    } catch (Exception $ex) {
      $aryReply["errors"] = HCU_JsonDecode( $ex->getMessage() );

      // if returning error, not replying with data
      $aryResult = array();

      // if returning error, not returning status
      $aryInfo = array();
    }

    if ( count( $aryInfo ) ) {
      $aryReply["info"] = $aryInfo;
    }

    if ( count( $aryResult ) ) {
      $aryReply["data"] = $aryResult;
    }

    header('Content-type: application/json');

    print HCU_JsonEncode( array( "results" => $aryReply ) );

    // no more processing
    exit;
  } else {
    try {
      // the new email notifications are for commercial use only so
      // do not show email notification fields at all on the ach tab
      // if the credit union doesn't have access.

      // use the feature menu to determine this fact.
      $ADM_ENV['commercialAccess'] = false;
      $featureList = FetchMenuFeatureList( array("dbh" => $dbh), array("Cu"=>$Cu) );
      if (in_array("ACHPMT", $featureList['data']) || in_array("ACHCOL", $featureList['data'])) {
        $ADM_ENV['commercialAccess'] = true;
      }

      switch($page) {
        case "show_items":
          if ($ft != 99) {
            throw new exception("Invalid access.", 14);
          }
          PrintActionPage( $ADM_ENV, $admVars );
          break;
        case "ach_show_report":
          if ($ft != 101) {
            ShowErrorPage("Invalid access");
          }
          $admOk = array(
            "batch_id" => array("filter" => FILTER_SANITIZE_STRING),
            "download" => array("filter" => FILTER_SANITIZE_STRING)
          );
          HCU_ImportVars( $admVars, "", $admOk );

          // these variables are global in main.prg and are used in hcuDispFunctions to set the include environment
          $ADM_ENV["cloudfrontDomainName"] = $cloudfrontDomainName;
          $ADM_ENV["homecuKendoVersion"] = $homecuKendoVersion;
          $ADM_ENV["bootstrapVersion"] = $bootstrapVersion;
          $ADM_ENV["fontawesomeVersion"] = $fontawesomeVersion;
          $ADM_ENV["loadStyleSheet"] = $loadStyleSheet;
          $ADM_ENV["chome"] = $ADM_ENV["Cu"];

          PrintAchReport( $ADM_ENV, $admVars );
          break;
        case "validate":
          if ($ft != 100) {
            throw new exception("Invalid access.", 14);
          }
          $admOk = array(
            "file" => array("filter" => FILTER_SANITIZE_STRING),
            "show_raw" => array("filter" => FILTER_VALIDATE_BOOLEAN)
          );
          HCU_ImportVars( $admVars, "", $admOk );

          PrintValidate( $ADM_ENV, $admVars );
          break;
        case "make_batch":
          if ($ft != 100) {
            throw new exception("Invalid access.", 14);
          }
          MakeBatch($self, $dbh, $Cu, $authval);
          break;
        default:
          if ($ft != 100) {
            throw new exception("Invalid access: $page", 13);
          }
          PrintMainPage( $ADM_ENV, $admVars );
          break;
      }
    }
    catch (exception $ex)
    {
// unresolved: is this good enough?
      $message = $ex->getMessage();
      $code = $ex->getCode();

      print "<p>An unexpected error occured. If this error keeps happening please contact Support.</p>";

      if ( strlen( $message ) ) {
        print "<p>Message: $message</p>";
      }

      if ( strlen( $code ) ) {
        print "<p>Code: $code</p>";

        if ( $code == 13 ) {
          print "<p>Creating a new ACH upload file will open a report in a new window. <br />Make sure pop-ups are allowed for this website.</p>";
        }
      }
    }
  }

  // No more output after this!

/****************** functions ******************/
// Show an error message. This is for handling errors that occur during a download and a new page might
// show up if the actual download doesn't happen.
function ShowErrorPage( $pErrors ) {

  $errorString = "";

  if ( is_array( $pErrors ) ) {
    for ( $i = 0; $i < count( $pErrors ); $i++ ) {
      $errorString .= $pErrors[$i] . "<br>";
    }
  } else {
    $errorString = $pErrors;
  }

  print <<< EOF
  <!DOCTYPE html>
  <html>
  <head>
    <title>Error</title>
  </head>
  <body>
    <div class="error-block">
      <div class="error-header">The following error(s) occured</div>
      <p id="error">$errorString</p>
      <p>Please try your operation again. If this error persists please contact Support.</p>
    </div>
    <style>
      .error-header {
          border-radius: 4px 4px 0 0;
          border-bottom-style: solid;
          border-bottom-width: 1px;
          border-color: #dfd0d0;
          font-size: 1.2em;
          position: relative;
          margin: -2px 0 10px -2px;
          padding: .3em;
          width: 100%;
          height: 1.1em;
          min-height: 16px;
          }
      .error-block {
          color: #7f5050;
          border-color: #dfd0d0;
          border-radius: 4px;
          border-style: solid;
          border-width: 1px;
          background-color: #fff0f0;
          width: 600px;
          height: 150px;
          }
      #error {
          margin-left: 1em;
          font-weight: bold;
          }
      p {
          margin-left: 1em;
          }
    </style>
  </body>
  </html>
EOF;
} // end ShowErrorPage

/**
 * ACH_CreateFile
 * This function will restart the batch file process and automatically
 * start the email notification process if the files are generated successfully.
 *
 * @param $pAdmEnv      array     environment variables
 * @param $pAdmVars     array     contains the batch_id
 *
 * @return $returnInfo  array     batch record
 */
function ACH_CreateFile($pAdmEnv, $pAdmVars) {
  $returnInfo = array("code" => "000", "errors" => "", "data" => array());

  try {
    // Decode batch_id
    $batch = HCU_PayloadDecode($pAdmEnv['Cu'], $pAdmVars['batch_id']);
    $pAdmVars['batch_date'] = $batch['batch_date'];

    // Re-create batch files
    $return = CreateAchFiles( $pAdmEnv, $pAdmVars );
    if ($return['code'] != '000') {
      throw new Exception ( $return['errors'], $return['code'] );
    }

    $returnInfo['data']['message'] = array();
    $returnInfo['data']['message'][] = "ACH Files created successfully";

    // Start email notifications
    // Retrieve processed headers
    $transHdrIds = GetProcessedHeaders( $pAdmEnv, $pAdmVars['batch_id'] );
    $return = SendACHNotifications( $pAdmEnv, $transHdrIds);
    if ($return['code'] !== '000') {
      // do not throw error here, put the error into the info array
      // and display in dialog box after return.
      $returnInfo['data']['message'][] = $return['errors'];
      if ($return['code'] == 103) {
        $returnInfo['data']['message'][] = "This feature requires an \"ACH Notifications\" email on the <a href=\"main.prg?ft=46\">CU Email Notifications</a> screen.";
      } else if ($return['code'] == 104) {
        $returnInfo['data']['message'][] = "This feature requires an \"ACH Notifications\" email template on the <a href=\"main.prg?ft=54\">Settings</a> screen.";
      }
    }

    // Get updated batch record
    $return = GetCompletedBatchRecord($pAdmEnv, $pAdmVars);
    if ($return['code'] !== '000') {
      throw new Exception( $return['errors'], $return['code'] );
    }

    $returnInfo['data']['batch_record'] = $return['data']['batch_record'];
    $returnInfo['data']['batch_id'] = $pAdmVars['batch_id'];
  } catch (Exception $ex) {
    $returnInfo["errors"] = $ex->getMessage();
    $returnInfo["code"] = $ex->getCode();
  }

  return $returnInfo;
}

/**
 * ACH_RemoveBatchTransactions
 * This function will remove any selected transactions from a specific batch
 * and gerneate a new ach and report file for the remaining transactions of
 * the batch.
 *
 * @param $pAdmEnv      array     environment variables
 * @param $pAdmVars     array     contains the batch_id
 *
 * @return $returnInfo  array     batch record
 */
function ACH_RemoveBatchTransactions($pAdmEnv, $pAdmVars) {
  $returnInfo = array("code" => "000", "errors" => "", "data" => array());

  try {
    // decode batch_id
    $batch = HCU_PayloadDecode($pAdmEnv['Cu'], $pAdmVars['batch_id']);
    $pAdmVars['batch_date'] = $batch['batch_date'];

    // Not allowed to remove transactions after certain time
    // from the creation of the batch.
    $removeTransactionsTime = time() - $pAdmEnv['removeFromBatchTime'] * 24 * 60 * 60;
    $removeBatchTime = strtotime($batch['batch_date']);
    if ($removeBatchTime < $removeTransactionsTime) {
      // Batch is too old, do not allow removal of transactions
      $error = "Transactions cannot be removed from an ACH upload file that is more than 14 days old.";

      throw new Exception($error);
    }

    // Remove specified transaction ids from the batch
    $return = RemoveBatchTransactions($pAdmEnv, $pAdmVars);
    if ($return['code'] !== '000') {
      throw new Exception($return['errors']);
    }

    // Remove old ach and report files for this batch
    $return = RemoveBatchFiles($pAdmEnv, $pAdmVars);
    if ($return['code'] !== '000') {
      throw new Exception($return['errors']);
    }

    // If the admin user removed all transactions from a particular batch
    // the CreateAchFiles function will throw an error because no processed
    // transactions were found.

    // The logic for the error cannot be changed because the Actions and History
    // screens both have user actions that create files manually for a specific
    // batch that should have transactions but for some reason may not.

    // Skip the error because it is reasonable to remove all transactions from
    // a batch. The file will not be created.
    $return = CreateAchFiles($pAdmEnv, $pAdmVars);
    if ($return['code'] !== '000' && $return['code'] !== 300) {
      throw new Exception($return['errors']);
    }

    // Get updated batch record
    $return = GetCompletedBatchRecord($pAdmEnv, $pAdmVars);
    if ($return['code'] !== '000') {
      throw new Exception($return['errors']);
    }

    $returnInfo['data']['batch_record'] = $return['data']['batch_record'];
    $returnInfo['data']['batch_id'] = $pAdmVars['batch_id'];
    $returnInfo["data"]["message"] = "Remove transactions. ACH upload file creation date: " . $return['data']['batch_date'];
  } catch (Exception $ex) {
    $returnInfo["errors"] = $ex->getMessage();
    $returnInfo["code"] = $ex->getCode();
  }

  return $returnInfo;
} // end ACH_RemoveBatchTransactions

/**
 * GetCompletedBatchRecord:
 *    this function can be used to get a single completed
 *    batch record with the same format as the GetCompletedBatches
 *    function.
 *
 *    The function requires a decoded, processed date timestamp
 *
 * @param $pAdmEnv      array     environment variables
 * @param $pAdmVars     array     contains the processed_date timestamp
 *
 * @return $returnInfo  array     batch record
 */
function GetCompletedBatchRecord($pAdmEnv, $pAdmVars) {
  $returnInfo = array("code" => "000", "errors" => "", "data" => array());

  try {
    $cu = strtolower( $pAdmEnv["Cu"] );

    $batchPreName = "Batch";
    $batchPath = "/home/{$cu}/admin/ach/";

    // get the credit union's timezone
    $tz = GetCreditUnionTimezone( $pAdmEnv["dbh"], $pAdmEnv["Cu"] );
    $dateTime = new DateTime( $pAdmVars['batch_date'] );
    $dateTime->setTimezone(new DateTimeZone($tz));
    $batchDay = $dateTime->format("ymd");
    $batchHour = $dateTime->format("His");
    $batchDate = $dateTime->format("m/d/y H:i:s T");

    $baseFileName = "{$batchPreName}_{$batchDay}_{$batchHour}";
    $batchAch = file_exists( "{$batchPath}{$baseFileName}.ach" );
    $batchReport = file_exists( "{$batchPath}{$baseFileName}.txt" );

    $sql = "
      SELECT
        th.processed_date, th.processed_by,
        COUNT(DISTINCT th.id) AS count,
        SUM(CASE WHEN (th.feature_code = 'ACHPMT' OR th.feature_code = 'ACHCOL') AND td.email_notify = 1 THEN 1 ELSE 0 END) AS notify
      FROM {$pAdmEnv['Cu']}transhdr AS th
      JOIN {$pAdmEnv['Cu']}transdtl AS td ON th.id = td.transhdr_id
      WHERE th.processed_date = '{$pAdmVars['batch_date']}'
      GROUP BY processed_date, processed_by
      ORDER BY processed_date DESC";
    $sqlRs = db_query( $sql, $pAdmEnv["dbh"] );
    if ( !$sqlRs ) {
      throw new Exception( "ACH Query Error - getting approved ach txns" );
    }

    $sqlRecord = db_fetch_assoc($sqlRs, 0);

    // return same style record as the fulle GetCompletedBatches function
    // for a single record.
    $returnInfo['data']['batch_date'] = $batchDate;
    $returnInfo['data']['batch_record'] = array();
    if ($sqlRecord) {
      $returnInfo['data']['batch_record']['batch_id'] = $pAdmVars['batch_id'];
      $returnInfo['data']['batch_record']['processed_by'] = $sqlRecord['processed_by'];
      $returnInfo['data']['batch_record']['count'] = intval($sqlRecord['count']);
      $returnInfo['data']['batch_record']['notify'] = intval($sqlRecord['notify']);
      $returnInfo['data']['batch_record']['display'] = $batchDate;
      $returnInfo['data']['batch_record']['has_ach_file'] = file_exists( "{$batchPath}{$baseFileName}.ach" );
      $returnInfo['data']['batch_record']['has_ach_report'] = file_exists( "{$batchPath}{$baseFileName}.txt" );
    }
  } catch (Exception $ex) {
    $returnInfo["errors"] = $ex->getMessage();
    $returnInfo["code"] = $ex->getCode();
  }

  return $returnInfo;
} // end GetCompletedBatchRecord

/**
 * RemoveBatchFiles: Remove the current ach and report files associated
 *    with a specified batch.
 *
 * @param $pAdmEnv      array     environment variables
 * @param $pAdmVars     array     contains the processed_date
 *    for retrieving the file names.
 *
 * @return $returnInfo  array     error/success information
 */
function RemoveBatchFiles($pAdmEnv, $pAdmVars) {
  $returnInfo = array("code" => "000", "errors" => "", "data" => array());

  try {
    $cu = strtolower( $pAdmEnv["Cu"] );

    $batchDate = $pAdmVars['batch_date'];
    $batchPreName = "Batch";
    $batchPath = "/home/{$cu}/admin/ach/";

    // get the credit union's timezone
    $tz = GetCreditUnionTimezone( $pAdmEnv["dbh"], $pAdmEnv["Cu"] );

    // use the batch timestamp to figure out the creation date/time and filename
    $dateTime = new DateTime( $batchDate );
    $dateTime->setTimezone(new DateTimeZone($tz));
    $batchDay = $dateTime->format("ymd");
    $batchHour = $dateTime->format("His");

    // verify the directory exists
    if ( !file_exists( $batchPath ) ) {
      throw new Exception( "Remove ACH Files Error - Directory does not exist - please contact Support", 201 );
    }

    $achBaseName = "{$batchPreName}_{$batchDay}_{$batchHour}";

    $achFileName = "{$achBaseName}.ach";
    $achFilePath = "{$batchPath}{$achFileName}";

    $achReportName = "{$achBaseName}.txt";
    $achReportPath = "{$batchPath}{$achReportName}";

    if ( file_exists($achFilePath) ) {
      if ( !unlink($achFilePath) ) {
        throw new Exception("Error Removing ACH Upload File - Failed to remove ACH upload file.", 202);
      }
    }

    if ( file_exists($achReportPath) ) {
      if ( !unlink($achReportPath) ) {
        throw new Exception("Error Removing ACH Upload Report File - Failed to remove ACH upload report file.", 203);
      }
    }

    // return formatted date for success message.
    $returnInfo['data']['batch_time'] = $dateTime->format("m/d/y H:i:s T");
  } catch (Exception $ex) {
    $returnInfo["errors"] = $ex->getMessage();
    $returnInfo["code"] = $ex->getCode();
  }

  return $returnInfo;
} // end RemoveBatchFiles

/**
 * RemoveBatchTransactions:
 *    Remove a list of transactions from a specified batch.
 *
 * @param $pAdmEnv      array     environment variables
 * @param $pAdmVars     array     contains list of transaction
 *    ids to remove and the processed_date.
 *
 * @return $returnInfo  array     error/success information
 */
 function RemoveBatchTransactions($pAdmEnv, $pAdmVars) {
  $returnInfo = array("code" => "000", "errors" => "", "data" => array());

  try {
    $batchDate = $pAdmVars['batch_date'];
    $batchRemove = trim($pAdmVars['trans_list']);

    $sql = "
      UPDATE {$pAdmEnv['Cu']}transhdr SET
        processed_status = NULL,
        processed_date = NULL,
        processed_by = NULL
      WHERE processed_date = '{$batchDate}'
        AND id IN ({$batchRemove})";
    $sqlRs = db_query($sql, $pAdmEnv['dbh']);
    if (!$sqlRs) {
      throw new Exception("Failed to remove transactions", 200);
    }
  } catch (Exception $ex) {
    $returnInfo["errors"] = $ex->getMessage();
    $returnInfo["code"] = $ex->getCode();
  }

  return $returnInfo;
 } // end RemoveBatchTransactions

/**
 *  SendACHNotifications
 *    send email notifications to all parties involved in batch transactions
 *    for the batch creation process.
 *
 *  @param  $pAdmEnv:       array:    environment data
 *  @param  $pTransHdrIds:  string:   comma separated list of transhdr id values
 *  @return $returnInfo:    array:    error, or nothing
 *
 */
function SendACHNotifications( $pAdmEnv, $pTransHdrIds ) {
  $returnInfo = array("code" => "000", "errors" => "", "data" => array());

  try {
    // the ach notifications email and ach notification template are
    // only necessary for ACHPMT/ACHCOL at this time
    $achNotifyEmail = "";
    $achNotifyTemplate = "";

    // Check cuadmnotify for email value of achnotify
    // Cannot send email notifications if this email doesn't exist.
    $sql = "SELECT email FROM cuadmnotify WHERE cu='{$pAdmEnv['Cu']}' AND role = 'achnotify'";
    $sqlRs = db_query( $sql, $pAdmEnv['dbh'] );
    if (!$sqlRs) {
      throw new Exception( "ACH Query Error - unable to get ACH notifications email: 100", 100 );
    }
    $sqlData = db_fetch_assoc($sqlRs, 0);
    if (is_array($sqlData)) {
      // Email was found for ACH Notifications
      $achNotifyEmail = $sqlData['email'];
    }

    // Check cuadmin.settings for achnotify value
    // Cannot send email notifications if this value doesn't exist, it is
    //  the email template.
    $sql = "SELECT settings::json->>'achnotify' AS template FROM cuadmin WHERE cu='{$pAdmEnv['Cu']}'";
    $sqlRs = db_query( $sql, $pAdmEnv['dbh'] );
    if (!$sqlRs) {
      throw new Exception( "ACH Query Error - unable to get ACH notifications email template: 101", 101 );
    }
    $sqlData = db_fetch_assoc($sqlRs, 0);
    if (HCU_array_key_value("template", $sqlData)) {
      // Email template was found for ACH Notifications
      $achNotifyTemplate = $sqlData['template'];
    }

    // Get list of transhdr id's
    $idList = array();
    $inputList = explode( ",", $pTransHdrIds );
    for ( $i = 0; $i < count( $inputList ); $i++ ) {
      if ( ctype_digit( $inputList[$i] ) ) {
        $idList[] = $inputList[$i];
      }
    }

    $idString = implode( ",", $idList );

    // Send email to each partner that has email_notify = 1
    if ( strlen( $idString ) > 0 ) {
      // Get all transaction details
      $sql = "
        SELECT dtl.id, dtl.amount, dtl.transdata, hdr.processed_date, hdr.feature_code, grp.group_name
        FROM {$pAdmEnv['Cu']}transdtl dtl
        LEFT JOIN {$pAdmEnv['Cu']}transhdr hdr ON hdr.id = dtl.transhdr_id
        LEFT JOIN {$pAdmEnv['Cu']}user usr ON usr.user_id = hdr.posted_by
        LEFT JOIN {$pAdmEnv['Cu']}group grp ON grp.group_id = usr.group_id
        WHERE dtl.transhdr_id IN ($idString)
          AND dtl.email_notify = 1";
      $sqlRs = db_query( $sql, $pAdmEnv['dbh'] );
      if ($sqlRs) {
        $dataRow = 0;
        while ($row = db_fetch_array($sqlRs, $dataRow++)) {
          $row['transdata'] = HCU_JsonDecode($row['transdata']);

          // since notifications are only for ach commercial currently,
          // do not send email if the feature_code is not ACHPMT or ACHCOL.
          if ($row['feature_code'] == "ACHPMT" || $row['feature_code'] == "ACHCOL") {
            if ($achNotifyEmail == "") {
              throw new Exception( "ACH Notifications Error - ACH notifications email was not found: 103", 103 );
            }

            if ($achNotifyTemplate == "") {
              throw new Exception( "ACH Notifications Error - ACH notifications template was not found: 104", 104 );
            }

            // Replace content placeholders with transaction data
            // for each partner.
            $achNotifyMessage = BuildACHNotification( $pAdmEnv, $row, $achNotifyTemplate );
            if ($achNotifyMessage['code'] !== '000') {
              throw new Exception( "ACH Notifications Error - Unable to build ACH notifications email: 105", 105 );
            }

            // Send email
            $notify = new ErrorMail;
            $notify->header = "Content-Type: text/html";
            $notify->mailto = $achNotifyMessage['data']['email'];
            $notify->mailfrom = $achNotifyEmail;
            $notify->subject = "Funds Transfer Notice";
            $notify->msgbody = $achNotifyMessage['data']['message'];
            $notify->callingfunction = __FUNCTION__;
            $notify->file = __FILE__;
            $notify->cu = $pAdmEnv['Cu'];
            $notify->SendMail();

            // Eventually we may use an amazon api for emails
            // this will give us some error checking ability.
            //
            // When error handling is available, check if the email
            // has failed, do not set the transdtl.email_notify to 2.
            $sqlUpd = "UPDATE {$pAdmEnv['Cu']}transdtl SET email_notify=2 WHERE id={$row['id']}";
            $sqlUpdRs = db_query( $sqlUpd, $pAdmEnv['dbh'] );
            if (!$sqlUpdRs) {
              throw new Exception( "ACH Query Error - unable to update ACH upload file details: 106", 106 );
            }
          }
        }

        // Because we have no error handling on the ErrorMail class
        // we do not need to check if any of the above emails have failed.
        //
        // Set the transhdr processed_status to 30
        //
        // When error handling is available, check if any emails have failed
        // and for which transhdr id, do not update this transhdr processed_status
        // to 30.
        $sql = "UPDATE {$pAdmEnv['Cu']}transhdr SET processed_status=30 WHERE id IN ($idString)";
        $sqlRs = db_query( $sql, $pAdmEnv['dbh'] );
        if (!$sqlRs) {
          throw new Exception( "ACH Query Error - unable to update ACH upload file processed: 107", 107 );
        }
      } else {
        throw new Exception( "ACH Query Error - unable to get partner emails: 108", 108 );
      }
    }
  } catch (Exception $ex) {
    $returnInfo["errors"] = $ex->getMessage();
    $returnInfo["code"] = $ex->getCode();
  }

  return $returnInfo;
} // end SendACHNotifications

/**
 *  GetProcessedHeaders
 *    this function retrieves all transaction headers
 *    associated with a specific batch_id (processed_date)
 *
 *  @param  $pAdmEnv:         array:  environment data
 *  @param  $pProcessedDate:  array:  processed date for the batch
 *  @return $idString:        array:  string of transhdr id values
 *
 */
function GetProcessedHeaders( $pAdmEnv, $pProcessedDate ) {
  $batch = HCU_PayloadDecode($pAdmEnv['Cu'], $pProcessedDate);
  $batchDate = $batch['batch_date'];

  $sql = "SELECT id FROM {$pAdmEnv['Cu']}transhdr WHERE processed_date = '$batchDate'";
  $sqlRs = db_query( $sql, $pAdmEnv['dbh'] );
  if (!$sqlRs) {
    throw new Exception( "ACH Query Error - unable to get ACH upload file information", 102 );
  }

  $rowIndex = 0;
  $inputList = array();
  while ($row = db_fetch_assoc( $sqlRs, $rowIndex++ )) {
    $inputList[] = $row['id'];
  }

  $idString = implode(",", $inputList);
  return $idString;
} // GetProcessedHeaders

/**
 *  BuildACHNotification
 *  this function will replace all placeholder data in the achnotify
 *  email tempalte with the given data values.
 *
 *  @param $pAdmEnv:      array:    environment data
 *  @param $pTransdata:   array:    data to replace the placeholders in template
 *  @param $pTemplate:    string:   email template containing placeholders that
 *    need to be replaced with data value.
 *  @return $returnInfo:  array:    array containing errors or updated content
 */
function BuildACHNotification( $pAdmEnv, $pTransData, $pTemplate ) {
  $returnInfo = array("code" => "000", "errors" => "", "data" => array());

  // this array will contain the data values in the same order as the placeholder strings
  $stringData = array();

  // this array contains placeholder strings that will be replaced with $stringData
  $stringReplacements = array(
    // Transaction data
    "{{company}}", "{{transactiontype}}", "{{amount}}", "{{date}}",
    // Remote account data
    "{{accountname}}", "{{routing}}", "{{accountnumber}}", "{{accounttype}}"
  );

  try {
    // fill in data to replace placeholders
    $stringData[] = $pTransData['group_name'];
    $stringData[] = is_array($pTransData['transdata']['acct_source']) ? "withdrawal" : "deposit";
    $stringData[] = $pTransData['amount'];

    $date = new DateTime( $pTransData['processed_date'] );
    $stringData[] = date_format($date, "m/d/Y");

    $acctInfo = is_array($pTransData['transdata']['acct_source']) ?
      $pTransData['transdata']['acct_source'] :
      $pTransData['transdata']['acct_dest'];

    $stringData[] = $acctInfo['remote_entity']['name'];
    $stringData[] = $acctInfo['rdfi']['rdfi_routing'];

    $stringData[] = strlen($acctInfo['rdfi']['rdfi_account']) > 2 ?
      "ending in " . substr($acctInfo['rdfi']['rdfi_account'], -2) :
      "ending in " . $acctInfo['rdfi']['rdfi_account'];
    $stringData[] = $acctInfo['rdfi']['rdfi_account_type'] == 10 ? "Checking" : "Savings";

    // replace template placeholders
    $emailBody = $pTemplate;
    for ($i = 0; $i < count($stringReplacements); $i++) {
      // replace each placeholder, each placeholder should be the same index as it's data
      $emailBody = str_replace($stringReplacements[$i], $stringData[$i], $emailBody);
    }

    // Return partner email with email body
    $returnInfo['data']['email'] = $acctInfo['remote_entity']['email'];
    $returnInfo['data']['message'] = $emailBody;

  } catch (Exception $ex) {
    $returnInfo["errors"] = $ex->getMessage();
    $returnInfo["code"] = "999";
  }

  return $returnInfo;
} // end BuildACHNotification

/**
 * CancelACHTrans
 * Marks an approved ACH transaction as cancelled by the Admin user.
 *
 * @param object $pAdmEnv -- structure with common and environment information
 * @param string $pTransList -- the transactions to cancel (comma separated list
 *
 * @return object $returnInfo - structure with data and error info.
 */
function CancelACHTrans( $pAdmEnv, $pTransList ) {
  $returnInfo = array("code" => "000", "errors" => "", "data" => array());

  try {
    // first, make sure ids are all valid
    $idList = array();
    $inputList = explode( ",", $pTransList );
    for ( $i = 0; $i < count( $inputList ); $i++ ) {
      if ( ctype_digit( $inputList[$i] ) ) {
        $idList[] = $inputList[$i];
      }
    }

    $idString = implode( ",", $idList );

    if ( strlen( $idString ) > 0 ) {
      // the banking user can see the cancellation in their User Activity screen
      $sql = "SELECT now() AT TIME ZONE 'UTC'";
      $rs = db_query( $sql, $pAdmEnv["dbh"] );
      if ($rs) {
        list( $processedStamp ) =  db_fetch_array( $rs, 0 );
      } else {
        throw new Exception( "ACH Query Error - unable to get timestamp" );
      }

      $sql = "UPDATE {$pAdmEnv["Cu"]}transhdr SET processed_status = 99,
                                                  processed_date = '$processedStamp',
                                                  processed_by = '{$pAdmEnv["Cn"]}'
                                              WHERE id in ($idString) ";
      $rs = db_query( $sql, $pAdmEnv["dbh"] );
      if ( !$rs ) {
        throw new Exception( "ACH Query Error - cancel" );
      }

      // return list of Ids cancelled
      $returnInfo["data"] = $idString;
    } else {
      throw new Exception( "ACH Cancel Error - invalid list" );
    }
  } catch (Exception $ex) {
    $logInfo = array( "error" => $ex->getMessage(), "code" => $ex->getCode() );

    $returnInfo["errors"] = $ex->getMessage();
    $returnInfo["code"] = "999";
  }

  return $returnInfo;
} // end CancelACHTrans

/**
 * MakeACHBatch
 * Marks the given list of transaction ids as part of the same batch by the Admin user.
 * NOTE: The batch is denoted by all transactons with the same processed timestamp.
 *
 * @param object $pAdmEnv -- structure with common and environment information
 * @param array $pAdmVars -- the passed parameters for the operation
 *
 * @return object $returnInfo - structure with data and error info.
 */
function MakeACHBatch( $pAdmEnv, $pAdmVars ) {
  $returnInfo = array("code" => "000", "errors" => array(), "data" => array());

  try {
    // must check the cu routing number first
    // if this doesn't exist, do not create the batch
    $adminAchSettings = AdminReadSettings($pAdmEnv, $pAdmEnv["dbh"], $pAdmEnv["Cu"]);

    $cuRouting = trim( $adminAchSettings["settings"]["routing"] );
    if ( strlen( $cuRouting ) != 9 ) {
      throw new Exception( "ACH Settings - invalid CU routing number", 300 );
    }

    // first, make sure ids are all valid
    $transIdList = $pAdmVars["trans_list"];
    $idList = array();
    $inputList = explode( ",", $transIdList );
    for ( $i = 0; $i < count( $inputList ); $i++ ) {
      if ( ctype_digit( $inputList[$i] ) ) {
        $idList[] = $inputList[$i];
      }
    }

    $idString = implode( ",", $idList );

    if ( strlen( $idString ) > 0 ) {
      $tz = GetCreditUnionTimezone( $pAdmEnv["dbh"], $pAdmEnv["Cu"] );

      // get a UTC timestamp
      $sql = "SELECT now() AT TIME ZONE 'UTC'";
      $rs = db_query( $sql, $pAdmEnv["dbh"] );
      if ($rs) {
        list( $processedStamp ) =  db_fetch_array( $rs, 0 );
      } else {
        throw new Exception( "ACH Query Error - unable to get timestamp" );
      }

      $sql = "UPDATE {$pAdmEnv["Cu"]}transhdr SET processed_by = '{$pAdmEnv["Cn"]}',
                                                  processed_date = '$processedStamp',
                                                  processed_status = 10
                                                  WHERE id in ($idString) ";
      $rs = db_query( $sql, $pAdmEnv["dbh"] );
      if ( !$rs ) {
        throw new Exception( "ACH Query Error - recording ACH upload file" );
      }

      // return the batch identifier (timestamp)
      $payload = array( "batch_date" => $processedStamp );
      $encodedBatchId = HCU_PayloadEncode( $pAdmEnv["Cu"], $payload );
      $returnInfo["data"]["batch_id"] = $encodedBatchId;

      // convert to readable time
      $myDateTime = new DateTime($processedStamp);
      $myDateTime->setTimezone(new DateTimeZone($tz));
      $formatted = $myDateTime->format("m/d/y H:i:s T");

      $returnInfo["data"]["batch_time"] = $formatted;

    } else {
      throw new Exception( "Error Building ACH Upload File - invalid transaction list" );
    }
  } catch (Exception $ex) {
    $logInfo = array( "error" => $ex->getMessage(), "code" => $ex->getCode() );

    $returnInfo["errors"][] = $ex->getMessage();
    // 300 = cu routing number invalid
    if ($ex->getCode() == 300) {
      $returnInfo["errors"][] = "This feature requires a valid routing number on the <a href=\"main.prg?ft=54\">Settings</a> screen.";
    }
    $returnInfo["code"] = "999";
  }

  return $returnInfo;
} // end MakeACHBatch

/**
 * GetCompletedBatches
 * Get a list of timestamps for completed ACH batches.
 *
 * @param object $pAdmEnv -- structure with common and environment information
 *
 * @return
 */
function GetCompletedBatches( $pAdmEnv ) {
  $returnInfo = array("code" => "000", "errors" => array(), "data" => array());

  try {
    $cu = strtolower( $pAdmEnv["Cu"] );

    $batchPreName = "Batch";
    $batchPath = "/home/{$cu}/admin/ach/";

    // verify the directory exists
    if ( !file_exists( $batchPath ) ) {
      throw new Exception( "Get Completed ACH Files Error - Directory does not exist - please contact Support" );
    }

    // get the credit union's timezone
    $tz = GetCreditUnionTimezone( $pAdmEnv["dbh"], $pAdmEnv["Cu"] );

    // get all the processed batches - processed_date is the identifier for the batch
    $sql = "
      SELECT
        th.processed_date, th.processed_by,
        COUNT(DISTINCT th.id) AS count,
        SUM(CASE WHEN (th.feature_code = 'ACHPMT' OR th.feature_code = 'ACHCOL') AND td.email_notify = 1 THEN 1 ELSE 0 END) AS notify
      FROM {$cu}transhdr AS th
      JOIN {$cu}transdtl AS td ON th.id = td.transhdr_id
      WHERE th.processed_date IS NOT NULL
        AND th.processed_status >= 10
        AND th.processed_status <= 30
        AND th.feature_code IN ('TRNEXT', 'ACHCOL', 'ACHPMT')
      GROUP BY processed_date, processed_by
      ORDER BY processed_date DESC";
    $rs = db_query( $sql, $pAdmEnv["dbh"] );
    if ( !$rs ) {
      throw new Exception( "ACH Query Error - getting approved ach txns" );
    }

    // cycle through the rows
    $row = 0;
    $returnData = array();
    while ( $txRow = db_fetch_assoc( $rs, $row++ ) ) {
      // figure out the file name
      $myDateTime = new DateTime( $txRow["processed_date"] );

      // convert to local time for the filename
      $myDateTime->setTimezone(new DateTimeZone($tz));
      $batchDay = $myDateTime->format("ymd");
      $batchHour = $myDateTime->format("His");

      $baseFileName = "{$batchPreName}_{$batchDay}_{$batchHour}";

      // convert to readable time
      $formatted = $myDateTime->format( "m/d/y H:i:s T ");

      $payload = array( "batch_date" => $txRow["processed_date"] );
      $encodedBatchId = HCU_PayloadEncode( $pAdmEnv["Cu"], $payload );

      $returnData[] = array( "batch_id" => $encodedBatchId,
                             "processed_by" => $txRow["processed_by"],
                             "count" => $txRow["count"],
                             "notify" => $txRow["notify"],
                             "display" => $formatted,
                             "has_ach_file" => file_exists( "{$batchPath}{$baseFileName}.ach" ),
                             "has_ach_report" => file_exists( "{$batchPath}{$baseFileName}.txt" )
                           );
    }

    $returnInfo["data"] = $returnData;
  } catch (Exception $ex) {
    $logInfo = array( "error" => $ex->getMessage(), "code" => $ex->getCode() );

    $returnInfo["errors"] = $ex->getMessage();
    $returnInfo["code"] = "999";
  }

  return $returnInfo;
} // end GetCompletedBatches

/**
 * GetBatchDetail
 * Get all the transactions in the given batch.
 *
 * @param object $pAdmEnv -- structure with common and environment information
 * @param array $pAdmVars -- the passed parameters for the operation
 *
 * @return data or error
 */
function GetBatchDetail( $pAdmEnv, $pAdmVars ) {
  $returnInfo = array("code" => "000", "errors" => array(), "data" => array());

  try {
    $payloadInfo = HCU_PayloadDecode( $pAdmEnv["Cu"], $pAdmVars["batch_id"] );
    $batchTimestamp = $payloadInfo["batch_date"];

    // Not allowed to remove transactions after certain time
    // from the creation of the batch. A boolean value will be
    // sent back to the client with the batch detail records: line 1304.
    $removeTransactionsTime = time() - $pAdmEnv['removeFromBatchTime'] * 24 * 60 * 60;
    $removeBatchTime = strtotime($payloadInfo["batch_date"]);

    // gotta get them all - Left joins in case user is gone
    $sql = "SELECT id, feature_code, effective_date, u1.user_name AS poster, posted_date,
                   u2.user_name AS approver, approved_date, accountnumber,
                   transactioncode, memo, group_name, (select sum(amount) from {$pAdmEnv["Cu"]}transdtl d where d.transhdr_id = th.id) as amount
            FROM {$pAdmEnv["Cu"]}transhdr th
            LEFT JOIN {$pAdmEnv["Cu"]}user u1 ON u1.user_id = th.posted_by
            LEFT JOIN {$pAdmEnv["Cu"]}user u2 ON u2.user_id = th.approved_by
            INNER JOIN {$pAdmEnv["Cu"]}group g ON g.group_id = u1.group_id
            WHERE processed_date = '$batchTimestamp'
              AND processed_status >= 10
            ORDER BY group_name, feature_code, id";
    $rs = db_query( $sql, $pAdmEnv["dbh"] );
    if ( !$rs ) {
      throw new Exception( "ACH Query Error - getting approved ach txns" );
    }

    // cycle through the rows
    $row = 0;
    $returnData = array();
    while ( $txRow = db_fetch_assoc( $rs, $row++ ) ) {
      // do any data processing
      $timestamp = strtotime( $txRow["effective_date"] );
      $account = trim( $txRow["accountnumber"] );
      $returnData[] = array( "id" => $txRow["id"],
                             "feature" => trim( $txRow["feature_code"] ),
                             "eff_date" => date( "m/d/Y", $timestamp ),
                             "group" => $txRow["group_name"],
                             "account" => $account,
                             "amount" => $txRow["amount"],
                             "memo" => $txRow["memo"]
                           );
    }

    $returnInfo["data"]["records"] = $returnData;
    $returnInfo["data"]["removeFromBatchAllowed"] = !($removeBatchTime < $removeTransactionsTime);
  } catch (Exception $ex) {
    $logInfo = array( "error" => $ex->getMessage(), "code" => $ex->getCode() );

    $returnInfo["errors"] = $ex->getMessage();
    $returnInfo["code"] = "999";
  }

  return $returnInfo;
} // end GetBatchDetail

/**
 * DownloadAchFile
 * Download the given ach file. It could be an ACH file or ACH report.
 *
 * @param object $pAdmEnv -- structure with common and environment information
 * @param array $pAdmVars -- the passed parameters for the operation
 *
 * @return data or error
 */
function DownloadAchFile( $pAdmEnv, $pAdmVars ) {
  $returnInfo = array("code" => "000", "errors" => array(), "data" => array());

  try {
    $cu = strtolower( $pAdmEnv["Cu"] );

    $payloadInfo = HCU_PayloadDecode( $pAdmEnv["Cu"], $pAdmVars["batch_id"] );
    $batchTimeString = $payloadInfo["batch_date"];

    // get the credit union's timezone
    $tz = GetCreditUnionTimezone( $pAdmEnv["dbh"], $pAdmEnv["Cu"] );

    // use the batch timestamp to figure out the creation date/time and filename
    $myDateTime = new DateTime( $batchTimeString );
    $myDateTime->setTimezone(new DateTimeZone($tz));
    $batchDay = $myDateTime->format("ymd");
    $batchHour = $myDateTime->format("His");

    // use the batch timestamp to figure out the creation date/time and filename
    $batchPreName = "Batch";
    $batchPath = "/home/{$cu}/admin/ach/";

    $fileType = ( $pAdmVars["download_type"] === "ach" ) ? "ach" : "txt";
    $achFileName = "{$batchPreName}_{$batchDay}_{$batchHour}.{$fileType}";

    // get the file
    $fileString = file_get_contents( "{$batchPath}{$achFileName}" );
    if ( $fileString === false ) {
      throw new Exception( "Error Building ACH Upload File - ACH upload file not found" );
    }

    $returnInfo["data"]["filename"] = $achFileName;
    $returnInfo["data"]["output"] = $fileString;
  } catch (Exception $ex) {
    $logInfo = array( "error" => $ex->getMessage(), "code" => $ex->getCode() );

    $returnInfo["errors"] = $ex->getMessage();
    $returnInfo["code"] = "999";
  }

  return $returnInfo;
} // end DownloadAchFile

// Helper function to get all the ach-related transaction headers.
function GetACHTransactionHeaders( $pAdmEnv, $pBatchTimeString ) {

  $retInfo = array();

  // get all the group/company info
  $sql = "SELECT 0 as processed, group_name, tax_id, th.*
          FROM {$pAdmEnv["Cu"]}transhdr th
          LEFT JOIN {$pAdmEnv["Cu"]}user u1 ON u1.user_id = th.posted_by
          INNER JOIN {$pAdmEnv["Cu"]}group g ON g.group_id = u1.group_id
          WHERE processed_date = '$pBatchTimeString'
            AND processed_status >= 10
            AND processed_status <= 30
          ORDER BY group_name";
  $hdrRS = db_query( $sql, $pAdmEnv["dbh"] );
  if ( $hdrRS ) {
    $hdrRow = 0;
    while ( $rowHdr = db_fetch_assoc( $hdrRS, $hdrRow++ ) ) {
      $retInfo[] = $rowHdr;
    }
  }

  return $retInfo;
} // GetACHTransactionHeaders

/**
 * AddMicroDeposits
 * Helper function to create the micro-deposits entry. If there are any, a single "Company"
 *  gets created with the offsetting internal entry and all the micro-deposits to external
 *  accounts. The transactioncode of "1P" will be used for the TRNEXT microdeposits.
 *
 * @param object $pAdmEnv -- structure with common and environment information
 * @param array &$pTransactionHeaders -- all the headers from the <cu>transhdr table.
 * @param array $pInputParams -- values used for constructing the micro deposit ach records.
 * @param array $pAchValues -- values for the ach records needing to be returned updated.
 * @param array $pOutputData -- the output of this call (assumed to be initialized before calling this function).
 * @param array $pReportLines -- lines of report information.
 *
 * @return success or error
 */
function AddMicroDeposits( $pAdmEnv, &$pTransactionHeaders, $pInputParams, &$pAchValues, &$pOutputData, &$pReportLines ) {
  /**
   * Service Class Code:
   *
   * 220: Credit to remote acocunt
   * 225: Debit to local account
   */
  $returnInfo = array( "code" => "000", "error" => "" );

  try {
    // see if there are any micro deposits
    $microDepositList = array();
    for ( $i = 0; $i < count( $pTransactionHeaders ); $i++ ) {
      if ( $pTransactionHeaders[$i]["feature_code"] == "TRNEXT" &&
           $pTransactionHeaders[$i]["transactioncode"] == "1P" ) {
        $microDepositList[] = $pTransactionHeaders[$i];
      }
    }

    $microList = array();
    for ( $i = 0; $i < count( $microDepositList ); $i++ ) {
      // get the detail for each micro deposit
      $sql = "SELECT * FROM {$pAdmEnv["Cu"]}transdtl WHERE transhdr_id = {$microDepositList[$i]["id"]}";
      $dtlRS = db_query( $sql, $pAdmEnv["dbh"] );
      if ( !$dtlRS ) {
        throw new Exception( "ACH Query Error - getting microdeposit ach txns" );
      }

      $microRow = 0;
      while ( $microDtl = db_fetch_assoc( $dtlRS, $microRow++ ) ) {
        $microList[] = $microDtl;
      }
    }

    $companyEntryAddendaCount = 0;
    if ( count( $microList ) > 0 ) {
      // we are making a batch entry
      $pAchValues["batchNumber"]++;

      $entriesList = array();

      $companyID = $pInputParams['CompanyIDType'] . $pInputParams["OriginatingRouting"];

      // create a Company header
      $companyHeader = array( "RecordTypeCode" => "5",
                              "ServiceClassCode" => "220",
                              "CompanyName" => MakeValidAchString( $pInputParams["CompanyName"], 16 ),
                              "CompanyData" => str_repeat( " ", 20 ),
                              "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
                              "StandardEntryClassCode" => "WEB",
                              "CompanyEntryDescription" => MakeValidAchString( $pInputParams["CompanyEntryDescription"], 10 ),
                              "CompanyDescriptiveDate" => str_repeat( " ", 6 ),
                              "EffectiveEntryDate" => MakeValidAchString( $pInputParams["EffectiveEntryDate"], 6 ),
                              "SettlementDate" => str_repeat( " ", 3 ),
                              "OriginatorStatusCode" => "1",
                              "OriginatingDFI" => MakeValidAchString( substr( $pInputParams["OriginatingRouting"], 0, 8 ), 8 ),
                              "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );
      $entriesList[] = $companyHeader;

      $totalMicroAmount = 0;
      $companyControlHash = 0;
      for ( $i = 0; $i < count( $microList ); $i++ ) {
        // create an Entry for each micro deposit

        // decode the transaction data
        $transData = HCU_JsonDecode( $microList[$i]["transdata"], true );

        // set up information in the correct format; the routing number used is the first 8 digits, the 9th is the check digit
        if ( strlen( $transData["acct_dest"]["rdfi"]["rdfi_routing"] ) != 9 ) {
          throw new Exception( "ACH File Creation - invalid routing number (location 111)" );
        }

        $receivingDFIRouting = substr( $transData["acct_dest"]["rdfi"]["rdfi_routing"], 0, 8 );
        $receivingCheckDigit = substr( $transData["acct_dest"]["rdfi"]["rdfi_routing"], -1 );
        $account = str_replace( " ", "", $transData["acct_dest"]["rdfi"]["rdfi_account"] );
        $receivingDFIAccount = MakeValidAchString( $account, 17 );
        $receivingAccountType = $transData["acct_dest"]["rdfi"]["rdfi_account_type"];
        $receivingTxnType = $transData["acct_dest"]["rdfi"]["rdfi_txn_type"];

        $actualAmount = trim( $microList[$i]["amount"] );
        $totalMicroAmount += $actualAmount;

        $roundAmount = round( $actualAmount * 100 );
        $amount = str_pad( $roundAmount, 10, "0", STR_PAD_LEFT );

        // just use the CU routing number here
        $individualID = MakeValidAchString( $pInputParams["OriginatingRouting"], 15 );

        $individualName = MakeValidAchString( $transData["acct_dest"]["remote_entity"]["name"], 22 );

        // 10 = checking, 20 = savings
        $transactionCode = $receivingAccountType == 10 ? "22" : ( $receivingAccountType == 20 ? "32" : "00" );

        if ( $transactionCode == "00" ) {
          throw new Exception( "Error Building ACH Upload File (micro deposit) - could not determine transaction code" );
        }

        $discretionaryData = str_pad("S", 2, " ", STR_PAD_RIGHT);

        // an entry detail for each
        $pAchValues["traceNumber"]++;
        $pAchValues["fileEntryAddendaCount"]++;
        $companyEntryAddendaCount++;
        $entryDetail = array ( "RecordTypeCode" => "6",
                               "TransactionCode" => $transactionCode,
                               "ReceivingDFI" => $receivingDFIRouting,
                               "CheckDigit" => $receivingCheckDigit,
                               "DFIAccountNumber" => $receivingDFIAccount,
                               "Amount" => $amount,
                               "IndividualIdentificationNumber" => $individualID,
                               "IndividualName" => strtoupper( $individualName ),
                               "DiscretionaryData" => $discretionaryData,
                               "AddendaRecordIndicator" => "0",
                               "TraceNumber" => substr( $pInputParams["OriginatingRouting"], 0, 8 ) . substr( "000000" . $pAchValues["traceNumber"], -7 ) );

        $entriesList[] = $entryDetail;

        // add to the control hashes
        $companyControlHash += $receivingDFIRouting;
        $pAchValues["fileControlHash"] += $receivingDFIRouting;

        $formattedAmount = number_format( $actualAmount, 2, ".", "," );
        $pReportLines[] = " Micro deposit credit of $formattedAmount to " . str_replace(' ', '', "$receivingDFIRouting$receivingCheckDigit") . " / " . trim( $receivingDFIAccount );
      }

      // Add Control record for WEB transactions
      // create a Company control record      // the company hash can only be 10 characters long
      $entryHash = substr( str_repeat( "0", 10 ) . $companyControlHash, -10 );

      // Get final micr amount formatted for control records
      $finalMicroAmount = round( $totalMicroAmount * 100 );

      // output the company control record
      $companyControl = array ( "RecordTypeCode" => "8",
                             "ServiceClassCode" => "220",
                             "EntryAddendaCount" => str_pad( $companyEntryAddendaCount, 6, "0", STR_PAD_LEFT ),
                             "EntryHash" => $entryHash,
                             "TotalDebitEntryDollarAmount" => str_pad( 0, 12, "0", STR_PAD_LEFT ),
                             "TotalCreditEntryDollarAmount" => str_pad( $finalMicroAmount, 12, "0", STR_PAD_LEFT ),
                             "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
                             "MessageAuthenticationCode" => str_repeat( " ", 19 ),
                             "Reserved" => str_repeat( " ", 6 ),
                             "OriginatingDFI" => MakeValidAchString( substr( $pInputParams["OriginatingRouting"], 0, 8 ), 8 ),
                             "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );

      $entriesList[] = $companyControl;
      $pAchValues["fileBatchCount"]++;

      // New header type 5 record for the GL account
      $pAchValues["batchNumber"]++;
      $companyHeader = array( "RecordTypeCode" => "5",
                              "ServiceClassCode" => "225",
                              "CompanyName" => MakeValidAchString( $pInputParams["CompanyName"], 16 ),
                              "CompanyData" => str_repeat( " ", 20 ),
                              "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
                              "StandardEntryClassCode" => "CCD",
                              "CompanyEntryDescription" => MakeValidAchString( $pInputParams["CompanyEntryDescription"], 10 ),
                              "CompanyDescriptiveDate" => str_repeat( " ", 6 ),
                              "EffectiveEntryDate" => MakeValidAchString( $pInputParams["EffectiveEntryDate"], 6 ),
                              "SettlementDate" => str_repeat( " ", 3 ),
                              "OriginatorStatusCode" => "1",
                              "OriginatingDFI" => MakeValidAchString( substr( $pInputParams["OriginatingRouting"], 0, 8 ), 8 ),
                              "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );
      $entriesList[] = $companyHeader;

      $companyControlHash = 0;

      // create an offsetting Entry from the special fund
      $receivingDFIRouting = substr( $pInputParams["OriginatingRouting"], 0, 8 );
      $receivingCheckDigit = substr( $pInputParams["OriginatingRouting"], -1 );

      $individualID = MakeValidAchString( $pInputParams["OriginatingRouting"], 15 );
      $individualName = MakeValidAchString( $pInputParams["CompanyName"], 22 );

      $pAchValues["traceNumber"]++;
      $pAchValues["fileEntryAddendaCount"]++;
      $entryDetail = array ( "RecordTypeCode" => "6",
                             "TransactionCode" => "47",       // assuming debiting GL account!
                             "ReceivingDFI" => $receivingDFIRouting,
                             "CheckDigit" => $receivingCheckDigit,
                             "DFIAccountNumber" => MakeValidAchString( $pInputParams["accountMicroDeposit"], 17 ),
                             "Amount" => str_pad( $finalMicroAmount, 10, "0", STR_PAD_LEFT ),
                             "IndividualIdentificationNumber" => $individualID,
                             "IndividualName" => strtoupper( $individualName ),
                             "DiscretionaryData" => "  ",
                             "AddendaRecordIndicator" => "0",
                             "TraceNumber" => substr( $pInputParams["OriginatingRouting"], 0, 8 ) . substr( "000000" . $pAchValues["traceNumber"], -7 ) );
      $entriesList[] = $entryDetail;

      $formattedAmount = number_format( $totalMicroAmount, 2, ".", "," );
      $pReportLines[] = " Total from CU account: $formattedAmount from " . trim( $pInputParams["OriginatingRouting"] ) . " / " . trim( $pInputParams["accountMicroDeposit"] );

      // add to the control hashes
      $companyControlHash += $receivingDFIRouting;
      $pAchValues["fileControlHash"] += $receivingDFIRouting;

      // create a Company control record      // the company hash can only be 10 characters long
      $entryHash = substr( str_repeat( "0", 10 ) . $companyControlHash, -10 );

      // output the company control record
      $companyEntryAddendaCount = 1;
      $companyControl = array ( "RecordTypeCode" => "8",
                             "ServiceClassCode" => "225",
                             "EntryAddendaCount" => str_pad( $companyEntryAddendaCount, 6, "0", STR_PAD_LEFT ),
                             "EntryHash" => $entryHash,
                             "TotalDebitEntryDollarAmount" => str_pad( $finalMicroAmount, 12, "0", STR_PAD_LEFT ),
                             "TotalCreditEntryDollarAmount" => str_pad( 0, 12, "0", STR_PAD_LEFT ),
                             "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
                             "MessageAuthenticationCode" => str_repeat( " ", 19 ),
                             "Reserved" => str_repeat( " ", 6 ),
                             "OriginatingDFI" => MakeValidAchString( substr( $pInputParams["OriginatingRouting"], 0, 8 ), 8 ),
                             "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );

      $entriesList[] = $companyControl;
      $pAchValues["fileBatchCount"]++;

      // micro deposits are always credits and debits
      $pAchValues["totalFileCredit"] += $finalMicroAmount;
      $pAchValues["totalFileDebit"] += $finalMicroAmount;

      // make the output records
      for ( $i = 0; $i < count( $entriesList ); $i++ ) {
        $item = array_values( $entriesList[$i] );

        $outputLine = implode( "", $item );
        if ( strlen( $outputLine ) != 94 ) {
          throw new Exception( "ACH Output Error - micro deposit block size" );
        }

        $pOutputData[] = $outputLine;
      }

      // mark all the micro deposit record headers as handled
      for ( $i = 0; $i < count( $pTransactionHeaders ); $i++ ) {
        if ( $pTransactionHeaders[$i]["feature_code"] == "TRNEXT" &&
             $pTransactionHeaders[$i]["transactioncode"] == "1P" ) {
          $pTransactionHeaders[$i]["processed"] = true;
        }
      }

    } else {
      $pReportLines[] = " None";
    }

  } catch (Exception $ex) {
    $logInfo = array( "error" => $ex->getMessage(), "code" => $ex->getCode() );

    $returnInfo["error"] = $ex->getMessage();
    $returnInfo["code"] = "999";
  }

  return $returnInfo;
} // end AddMicroDeposits

/**
 * AddMicroDepositOffsets
 * Helper function to create the micro-deposits offsetting entry. If there are any, a single "Company"
 *  gets created with the offsetting internal entry and all the micro deposit offset debits to external
 *  accounts. The transactioncode of "2P" will be used for the TRNEXT offsetting microdeposit (NOTE: not all
 *  sites will be configured to have an offsetting microdeposit).
 *
 * @param object $pAdmEnv -- structure with common and environment information
 * @param array &$pTransactionHeaders -- all the headers from the <cu>transhdr table.
 * @param array $pInputParams -- values used for constructing the micro deposit ach records.
 * @param array $pAchValues -- values for the ach records needing to be returned updated.
 * @param array $pOutputData -- the output of this call (assumed to be initialized before calling this function).
 * @param array $pReportLines -- lines of report information.
 *
 * @return success or error
 */
function AddMicroDepositOffsets( $pAdmEnv, &$pTransactionHeaders, $pInputParams, &$pAchValues, &$pOutputData, &$pReportLines ) {
  /**
   * Service Class Code:
   *
   * 220: Credit to local acocunt
   * 225: Debit to remote account
   */
  $returnInfo = array( "code" => "000", "error" => "" );

  try {
    // see if there are any micro deposits
    $microDepositList = array();
    for ( $i = 0; $i < count( $pTransactionHeaders ); $i++ ) {
      if ( $pTransactionHeaders[$i]["feature_code"] == "TRNEXT" &&
           $pTransactionHeaders[$i]["transactioncode"] == "2P" ) {
        $microDepositList[] = $pTransactionHeaders[$i];
      }
    }

    $microList = array();
    for ( $i = 0; $i < count( $microDepositList ); $i++ ) {
      // get the detail for each micro deposit
      $sql = "SELECT * FROM {$pAdmEnv["Cu"]}transdtl WHERE transhdr_id = {$microDepositList[$i]["id"]}";
      $dtlRS = db_query( $sql, $pAdmEnv["dbh"] );
      if ( !$dtlRS ) {
        throw new Exception( "ACH Query Error - getting microdeposit offset ach txns" );
      }

      // should just be one each!
      $microDtl = db_fetch_assoc( $dtlRS, 0 );
      $microList[] = $microDtl;
    }

    $companyEntryAddendaCount = 0;
    if ( count( $microList ) > 0 ) {
      // we are making a batch entry
      $pAchValues["batchNumber"]++;

      $entriesList = array();

      $companyID = $pInputParams['CompanyIDType'] . $pInputParams["OriginatingRouting"];

      // create a Company header
      $companyHeader = array( "RecordTypeCode" => "5",
                              "ServiceClassCode" => "225",
                              "CompanyName" => MakeValidAchString( $pInputParams["CompanyName"], 16 ),
                              "CompanyData" => str_repeat( " ", 20 ),
                              "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
                              "StandardEntryClassCode" => "WEB",
                              "CompanyEntryDescription" => MakeValidAchString( $pInputParams["CompanyEntryDescription"], 10 ),
                              "CompanyDescriptiveDate" => str_repeat( " ", 6 ),
                              "EffectiveEntryDate" => MakeValidAchString( $pInputParams["EffectiveEntryDate"], 6 ),
                              "SettlementDate" => str_repeat( " ", 3 ),
                              "OriginatorStatusCode" => "1",
                              "OriginatingDFI" => MakeValidAchString( substr( $pInputParams["OriginatingRouting"], 0, 8 ), 8 ),
                              "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );
      $entriesList[] = $companyHeader;

      $totalMicroAmount = 0;
      $companyControlHash = 0;
      for ( $i = 0; $i < count( $microList ); $i++ ) {
        // create an Entry for each micro deposit

        // decode the transaction data
        $transData = HCU_JsonDecode( $microList[$i]["transdata"], true );

        // set up information in the correct format
        if ( strlen( $transData["acct_source"]["rdfi"]["rdfi_routing"] ) != 9 ) {
          throw new Exception( "ACH File Creation - invalid routing number (location 112)" );
        }

        $receivingDFIRouting = substr( $transData["acct_source"]["rdfi"]["rdfi_routing"], 0, 8 );
        $receivingCheckDigit = substr( $transData["acct_source"]["rdfi"]["rdfi_routing"], -1 );
        $account = str_replace( " ", "", $transData["acct_source"]["rdfi"]["rdfi_account"] );
        $receivingDFIAccount = MakeValidAchString( $account, 17 );
        $receivingAccountType = $transData["acct_source"]["rdfi"]["rdfi_account_type"];
        $receivingTxnType = $transData["acct_source"]["rdfi"]["rdfi_txn_type"];

        $actualAmount = trim( $microList[$i]["amount"] );
        $totalMicroAmount += $actualAmount;

        $roundAmount = round( $actualAmount * 100 );
        $amount = str_pad( $roundAmount, 10, "0", STR_PAD_LEFT );

        // just use the CU routing number here
        $individualID = MakeValidAchString( $pInputParams["OriginatingRouting"], 15 );

        $individualName = MakeValidAchString( $transData["acct_source"]["remote_entity"]["name"], 22 );

        // 10 = checking, 20 = savings
        $transactionCode = $receivingAccountType == 10 ? "27" : ( $receivingAccountType == 20 ? "37" : "00" );

        if ( $transactionCode == "00" ) {
          throw new Exception( "ACH Batch Build (micro deposit offset) - could not determine transaction code" );
        }

        $discretionaryData = str_pad("S", 2, " ", STR_PAD_RIGHT);

        // an entry detail for each
        $pAchValues["traceNumber"]++;
        $pAchValues["fileEntryAddendaCount"]++;
        $companyEntryAddendaCount++;
        $entryDetail = array ( "RecordTypeCode" => "6",
                               "TransactionCode" => $transactionCode,
                               "ReceivingDFI" => $receivingDFIRouting,
                               "CheckDigit" => $receivingCheckDigit,
                               "DFIAccountNumber" => $receivingDFIAccount,
                               "Amount" => $amount,
                               "IndividualIdentificationNumber" => $individualID,
                               "IndividualName" => strtoupper( $individualName ),
                               "DiscretionaryData" => $discretionaryData,
                               "AddendaRecordIndicator" => "0",
                               "TraceNumber" => substr( $pInputParams["OriginatingRouting"], 0, 8 ) . substr( "000000" . $pAchValues["traceNumber"], -7 ) );
        $entriesList[] = $entryDetail;

        // add to the control hashes
        $companyControlHash += $receivingDFIRouting;
        $pAchValues["fileControlHash"] += $receivingDFIRouting;

        $formattedAmount = number_format( $actualAmount, 2, ".", "," );
        $pReportLines[] = " Micro deposit debit of $formattedAmount to " . str_replace(' ', '', "$receivingDFIRouting$receivingCheckDigit") . " / " . trim( $receivingDFIAccount );
      }

      // Add Control record for WEB transactions
      // create a Company control record      // the company hash can only be 10 characters long
      $entryHash = substr( str_repeat( "0", 10 ) . $companyControlHash, -10 );

      // Get final micr amount formatted for control records
      $finalMicroAmount = round( $totalMicroAmount * 100 );

      // output the company control record
      $companyControl = array ( "RecordTypeCode" => "8",
                             "ServiceClassCode" => "225",
                             "EntryAddendaCount" => str_pad( $companyEntryAddendaCount, 6, "0", STR_PAD_LEFT ),
                             "EntryHash" => $entryHash,
                             "TotalDebitEntryDollarAmount" => str_pad( $finalMicroAmount, 12, "0", STR_PAD_LEFT ),
                             "TotalCreditEntryDollarAmount" => str_pad( 0, 12, "0", STR_PAD_LEFT ),
                             "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
                             "MessageAuthenticationCode" => str_repeat( " ", 19 ),
                             "Reserved" => str_repeat( " ", 6 ),
                             "OriginatingDFI" => MakeValidAchString( substr( $pInputParams["OriginatingRouting"], 0, 8 ), 8 ),
                             "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );

      $entriesList[] = $companyControl;
      $pAchValues["fileBatchCount"]++;

      // New header type 5 record for the GL account
      $pAchValues["batchNumber"]++;
      $companyHeader = array( "RecordTypeCode" => "5",
                              "ServiceClassCode" => "220",
                              "CompanyName" => MakeValidAchString( $pInputParams["CompanyName"], 16 ),
                              "CompanyData" => str_repeat( " ", 20 ),
                              "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
                              "StandardEntryClassCode" => "CCD",
                              "CompanyEntryDescription" => MakeValidAchString( $pInputParams["CompanyEntryDescription"], 10 ),
                              "CompanyDescriptiveDate" => str_repeat( " ", 6 ),
                              "EffectiveEntryDate" => MakeValidAchString( $pInputParams["EffectiveEntryDate"], 6 ),
                              "SettlementDate" => str_repeat( " ", 3 ),
                              "OriginatorStatusCode" => "1",
                              "OriginatingDFI" => MakeValidAchString( substr( $pInputParams["OriginatingRouting"], 0, 8 ), 8 ),
                              "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );
      $entriesList[] = $companyHeader;

      $companyControlHash = 0;

      // create an offsetting Entry from the special fund
      $receivingDFIRouting = substr( $pInputParams["OriginatingRouting"], 0, 8 );
      $receivingCheckDigit = substr( $pInputParams["OriginatingRouting"], -1 );

      $individualID = MakeValidAchString( $pInputParams["OriginatingRouting"], 15 );
      $individualName = MakeValidAchString( $pInputParams["CompanyName"], 22 );

      $finalMicroAmount = round( $totalMicroAmount * 100 );

      $pAchValues["traceNumber"]++;
      $pAchValues["fileEntryAddendaCount"]++;
      $entryDetail = array ( "RecordTypeCode" => "6",
                             "TransactionCode" => "42",       // assuming crediting GL account!
                             "ReceivingDFI" => $receivingDFIRouting,
                             "CheckDigit" => $receivingCheckDigit,
                             "DFIAccountNumber" => MakeValidAchString( $pInputParams["accountMicroDeposit"], 17 ),
                             "Amount" => str_pad( $finalMicroAmount, 10, "0", STR_PAD_LEFT ),
                             "IndividualIdentificationNumber" => $individualID,
                             "IndividualName" => strtoupper( $individualName ),
                             "DiscretionaryData" => "  ",
                             "AddendaRecordIndicator" => "0",
                             "TraceNumber" => substr( $pInputParams["OriginatingRouting"], 0, 8 ) . substr( "000000" . $pAchValues["traceNumber"], -7 ) );
      $entriesList[] = $entryDetail;

      $formattedAmount = number_format( $totalMicroAmount, 2, ".", "," );
      $pReportLines[] = " Total into CU account: $formattedAmount to " . trim( $pInputParams["OriginatingRouting"] ) . " / " . trim( $pInputParams["accountMicroDeposit"] );

      // add to the control hashes
      $companyControlHash += $receivingDFIRouting;
      $pAchValues["fileControlHash"] += $receivingDFIRouting;

      // create a Company control record      // the company hash can only be 10 characters long
      $entryHash = substr( str_repeat( "0", 10 ) . $companyControlHash, -10 );

      $companyEntryAddendaCount = 1;
      // output the company control record
      $companyControl = array ( "RecordTypeCode" => "8",
                             "ServiceClassCode" => "220",
                             "EntryAddendaCount" => str_pad( $companyEntryAddendaCount, 6, "0", STR_PAD_LEFT ),
                             "EntryHash" => $entryHash,
                             "TotalDebitEntryDollarAmount" => str_pad( 0, 12, "0", STR_PAD_LEFT ),
                             "TotalCreditEntryDollarAmount" => str_pad( $finalMicroAmount, 12, "0", STR_PAD_LEFT ),
                             "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
                             "MessageAuthenticationCode" => str_repeat( " ", 19 ),
                             "Reserved" => str_repeat( " ", 6 ),
                             "OriginatingDFI" => MakeValidAchString( substr( $pInputParams["OriginatingRouting"], 0, 8 ), 8 ),
                             "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );

      $entriesList[] = $companyControl;

      // update any return information (values)
      $pAchValues["fileBatchCount"]++;

      // micro deposits are always credits and debits
      $pAchValues["totalFileCredit"] += $finalMicroAmount;
      $pAchValues["totalFileDebit"] += $finalMicroAmount;

      // make the output records
      for ( $i = 0; $i < count( $entriesList ); $i++ ) {
        $item = array_values( $entriesList[$i] );

        $outputLine = implode( "", $item );
        if ( strlen( $outputLine ) != 94 ) {
          throw new Exception( "ACH Output Error - micro deposit block size" );
        }

        $pOutputData[] = $outputLine;
      }

      // mark all the micro deposit record headers as handled
      for ( $i = 0; $i < count( $pTransactionHeaders ); $i++ ) {
        if ( $pTransactionHeaders[$i]["feature_code"] == "TRNEXT" &&
             $pTransactionHeaders[$i]["transactioncode"] == "2P" ) {
          $pTransactionHeaders[$i]["processed"] = true;
        }
      }

    } else {
      $pReportLines[] = " None";
    }

  } catch (Exception $ex) {
    $logInfo = array( "error" => $ex->getMessage(), "code" => $ex->getCode() );

    $returnInfo["error"] = $ex->getMessage();
    $returnInfo["code"] = "999";
  }

  return $returnInfo;
} // end AddMicroDepositOffsets

/**
 * BuildACHTransfer
 * Creates entries in the ACH output file for handling ACH transfers (from the Transfer feature). This
 * will create a "WEB" StandardEntryClassCode for both the debit and credit transfers or a "WEB" for
 * the external account and a "PPD" if the local account is a loan payment.
 * NOTE: regular transfers won't utilize any addenda records.
 *
 * @param object $pAdmEnv -- structure with common and environment information
 * @param array $pTxnHeader -- all the headers from the <cu>transhdr table.
 * @param array $pInputParams -- values used for constructing the ach records.
 * @param array $pAchValues -- values for the ach records needing to be returned updated.
 * @param array $pOutputData -- the output of this call (assumed to be initialized before calling this function).
 * @param array $pReportLines -- lines of report information.
 *
 * @return success or error
 */
function BuildACHTransfer( $pAdmEnv, $pTxnHeader, $pInputParams, &$pAchValues, &$pOutputData, &$pReportLines ) {
  $returnInfo = array( "code" => "000", "error" => "" );

  try {
    // ensure the date entered is a business date
    $effDate = ACH_EnsureBusinessDay( $pAdmEnv, $pTxnHeader["effective_date"] );

    // avoid daylight savings time change issues.
    $effectiveDate = date( "ymd", strtotime( $effDate . " 3:00" ) );

    $adminAchSettings = AdminReadSettings($pAdmEnv, $pAdmEnv["dbh"], $pAdmEnv["Cu"]);

    $transferDirection = substr( $pTxnHeader["transactioncode"], 0, 1 );

    // get all the detail for each company
    // NOTE: For regular ACH Transfers there should only be one detail.
    $sql = "SELECT * FROM {$pAdmEnv["Cu"]}transdtl WHERE transhdr_id = {$pTxnHeader["id"]}";
    $dtlRS = db_query( $sql, $pAdmEnv["dbh"] );
    if ( !$dtlRS ) {
      throw new Exception( "ACH Query Error - getting batch ach txns" );
    }

    $detailRows = array();
    $dtlRow = 0;
    while ( $rowDtl = db_fetch_assoc( $dtlRS, $dtlRow++ ) ) {
      // decode the transaction data
      $transData = HCU_JsonDecode( $rowDtl["transdata"], true );

      if ( empty( $transData ) ) {
        throw new Exception( "ACH Error - transaction data is missing or corrupt" );
      }

      $rowDtl["acct_source"] = $transData["acct_source"];
      $rowDtl["acct_dest"] = $transData["acct_dest"];

      $detailRows[] = $rowDtl;
    }

    if ( count( $detailRows ) != 1 ) {
      throw new Exception( "ACH Error - incorrect detail for ACH transfer. Need one detail row, found: " . count( $detailRows ) );
    }

    // make the access simpler
    $transferRow = $detailRows[0];

    // get the CompanyEntryDescription / IndividualName
    $entryName = trim( $pTxnHeader["memo"] );
    if ( strlen( $entryName ) == 0 ) {
      $entryName = "Online Funds Transfer";
    }

    $companyID = $pInputParams['CompanyIDType'] . $pInputParams["OriginatingRouting"];

    // test if special case of payment to a loan (this variable is also used later)
    $paymentSource = $transferRow["acct_source"];
    $paymentDestination = $transferRow["acct_dest"];
    if ( false ) {
      // this is the case of a loan payment; make two separate transfers of one entry each

      // first entry is a "WEB" debit from the remote account

      // build a company header
      $serviceClassCode = "225";
      $pAchValues["batchNumber"]++;

      $companyHeader = array( "RecordTypeCode" => "5",
                              "ServiceClassCode" => $serviceClassCode,
                              "CompanyName" => MakeValidAchString( $pInputParams["CompanyName"], 16 ),
                              "CompanyData" => str_repeat( " ", 20 ),
                              "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
                              "StandardEntryClassCode" => "WEB",
                              "CompanyEntryDescription" => MakeValidAchString( $entryName, 10 ),
                              "CompanyDescriptiveDate" => str_repeat( " ", 6 ),
                              "EffectiveEntryDate" => $effectiveDate,
                              "SettlementDate" => str_repeat( " ", 3 ),
                              "OriginatorStatusCode" => "1",
                              "OriginatingDFI" => MakeValidAchString( substr( $pInputParams["OriginatingRouting"], 0, 8 ), 8 ),
                              "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );

      // add to the output
      $header = array_values( $companyHeader );

      $outputLine = implode( "", $header );
      if ( strlen( $outputLine ) != 94 ) {
        throw new Exception( "ACH Output Error - company header block size (location 101)" );
      }
      $pOutputData[] = $outputLine;

      if ( strlen( $transData["acct_source"]["rdfi"]["rdfi_routing"] ) != 9 ) {
        throw new Exception( "ACH File Creation - invalid routing number (location 112)" );
      }

      $receivingDFIRouting = substr( $paymentSource["rdfi"]["rdfi_routing"], 0, 8 );
      $receivingCheckDigit = substr( $paymentSource["rdfi"]["rdfi_routing"], -1 );
      $account = str_replace( " ", "", $paymentSource["rdfi"]["rdfi_account"] );
      $receivingDFIAccount = MakeValidAchString( $account, 17 );

      $printableSourceAccount = "{$paymentSource["rdfi"]["rdfi_routing"]} / $account";

      $roundAmount = round( $transferRow["amount"] * 100 );
      $amount = str_pad( $roundAmount, 10, "0", STR_PAD_LEFT );

      // use the end of the name because last name is more important
      $fullName = $paymentSource["remote_entity"]["name"];
      $individualID = MakeValidAchString( substr( $fullName, -15 ), 15 );

      $individualName = MakeValidAchString( $entryName, 22 );

      // add to the total debit
      $pAchValues["totalFileDebit"] += $roundAmount;

      // an entry detail remote debit
      $pAchValues["traceNumber"]++;
      $pAchValues["fileEntryAddendaCount"]++;

      $entryDetail = array ( "RecordTypeCode" => "6",
                             "TransactionCode" => "27",
                             "ReceivingDFI" => $receivingDFIRouting,
                             "CheckDigit" => $receivingCheckDigit,
                             "DFIAccountNumber" => $receivingDFIAccount,
                             "Amount" => $amount,
                             "IndividualIdentificationNumber" => $individualID,
                             "IndividualName" => $individualName,
                             "DiscretionaryData" => "  ",
                             "AddendaRecordIndicator" => "0",
                             "TraceNumber" => substr( $pInputParams["OriginatingRouting"], 0, 8 ) . substr( "000000" . $pAchValues["traceNumber"], -7 ) );

      $pAchValues["fileControlHash"] += $receivingDFIRouting;

      // add to the output
      $entry = array_values( $entryDetail );

      $outputLine = implode( "", $entry );
      if ( strlen( $outputLine ) != 94 ) {
        throw new Exception( "ACH Output Error - company header block size (location 104)" );
      }
      $pOutputData[] = $outputLine;

      // the company hash can only be 10 characters long
      $entryHash = substr( str_repeat( "0", 10 ) . $receivingDFIRouting, -10 );

      // the control record for this first company/entry
      $companyControl = array ( "RecordTypeCode" => "8",
                             "ServiceClassCode" => $serviceClassCode,
                             "EntryAddendaCount" => str_pad( "1", 6, "0", STR_PAD_LEFT ),
                             "EntryHash" => $entryHash,
                             "TotalDebitEntryDollarAmount" => str_pad( $amount, 12, "0", STR_PAD_LEFT ),
                             "TotalCreditEntryDollarAmount" => str_pad( "0", 12, "0", STR_PAD_LEFT ),
                             "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
                             "MessageAuthenticationCode" => str_repeat( " ", 19 ),
                             "Reserved" => str_repeat( " ", 6 ),
                             "OriginatingDFI" => MakeValidAchString( substr( $pInputParams["OriginatingRouting"], 0, 8 ), 8 ),
                             "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );

      // add to the output
      $control = array_values( $companyControl );

      $outputLine = implode( "", $control );
      if ( strlen( $outputLine ) != 94 ) {
        throw new Exception( "ACH Output Error - company control block size (location 108)" );
      }
      $pOutputData[] = $outputLine;

      // the 2nd company/entry is a PPD payment to the loan at this CU

      // build a company header
      $serviceClassCode = "220";
      $pAchValues["batchNumber"]++;

      $companyHeader = array( "RecordTypeCode" => "5",
                              "ServiceClassCode" => $serviceClassCode,
                              "CompanyName" => MakeValidAchString( $pInputParams["CompanyName"], 16 ),
                              "CompanyData" => str_repeat( " ", 20 ),
                              "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
                              "StandardEntryClassCode" => "PPD",
                              "CompanyEntryDescription" => MakeValidAchString( $entryName, 10 ),
                              "CompanyDescriptiveDate" => str_repeat( " ", 6 ),
                              "EffectiveEntryDate" => $effectiveDate,
                              "SettlementDate" => str_repeat( " ", 3 ),
                              "OriginatorStatusCode" => "1",
                              "OriginatingDFI" => MakeValidAchString( substr( $pInputParams["OriginatingRouting"], 0, 8 ), 8 ),
                              "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );

      // add to the output
      $header = array_values( $companyHeader );

      $outputLine = implode( "", $header );
      if ( strlen( $outputLine ) != 94 ) {
        throw new Exception( "ACH Output Error - company header block size (location 102)" );
      }
      $pOutputData[] = $outputLine;

      if ( strlen( $pInputParams["OriginatingRouting"] ) != 9 ) {
        throw new Exception( "ACH File Creation - invalid routing number (location 113)" );
      }

      $receivingDFIRouting = substr( $pInputParams["OriginatingRouting"], 0, 8 );
      $receivingCheckDigit = substr( $pInputParams["OriginatingRouting"], -1 );
      $destParts = explode( "|", $paymentDestination );
      $account = str_replace( " ", "", $destParts[1] );
      $subAccount = str_replace( " ", "", $destParts[2] );
      $receivingDFIAccount = MakeValidAchString( $account . $subAccount, 17 );

      $printableDestAccount = "$account-$subAccount";

      $actualAmount = trim( $transferRow["amount"] );
      $roundAmount = round( $actualAmount * 100 );
      $amount = str_pad( $roundAmount, 10, "0", STR_PAD_LEFT );

      // use the individual name and number from earlier

      // add to the total credit
      $pAchValues["totalFileCredit"] += $roundAmount;

      // an entry detail remote debit
      $pAchValues["traceNumber"]++;
      $pAchValues["fileEntryAddendaCount"]++;

      $entryDetail = array ( "RecordTypeCode" => "6",
                             "TransactionCode" => "52",
                             "ReceivingDFI" => $receivingDFIRouting,
                             "CheckDigit" => $receivingCheckDigit,
                             "DFIAccountNumber" => $receivingDFIAccount,
                             "Amount" => $amount,
                             "IndividualIdentificationNumber" => $individualID,
                             "IndividualName" => $individualName,
                             "DiscretionaryData" => "  ",
                             "AddendaRecordIndicator" => "0",
                             "TraceNumber" => substr( $pInputParams["OriginatingRouting"], 0, 8 ) . substr( "000000" . $pAchValues["traceNumber"], -7 ) );

      $pAchValues["fileControlHash"] += $receivingDFIRouting;

      // add to the output
      $entry = array_values( $entryDetail );

      $outputLine = implode( "", $entry );
      if ( strlen( $outputLine ) != 94 ) {
        throw new Exception( "ACH Output Error - entry detail block size (location 105)" );
      }
      $pOutputData[] = $outputLine;

      // the company hash can only be 10 characters long
      $entryHash = substr( str_repeat( "0", 10 ) . $receivingDFIRouting, -10 );

      // the control record for this first company/entry
      $companyControl = array ( "RecordTypeCode" => "8",
                             "ServiceClassCode" => $serviceClassCode,
                             "EntryAddendaCount" => str_pad( "1", 6, "0", STR_PAD_LEFT ),
                             "EntryHash" => $entryHash,
                             "TotalDebitEntryDollarAmount" => str_pad( "0", 12, "0", STR_PAD_LEFT ),
                             "TotalCreditEntryDollarAmount" => str_pad( $amount, 12, "0", STR_PAD_LEFT ),
                             "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
                             "MessageAuthenticationCode" => str_repeat( " ", 19 ),
                             "Reserved" => str_repeat( " ", 6 ),
                             "OriginatingDFI" => MakeValidAchString( substr( $pInputParams["OriginatingRouting"], 0, 8 ), 8 ),
                             "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );

      // add to the output
      $control = array_values( $companyControl );

      $outputLine = implode( "", $control );
      if ( strlen( $outputLine ) != 94 ) {
        throw new Exception( "ACH Output Error - company control block size (location 109)" );
      }
      $pOutputData[] = $outputLine;

      // add to the file batch count these two entries
      $pAchValues["fileBatchCount"] += 2;

      // add info to the report for this company
      $formattedAmount = number_format( $actualAmount, 2, ".", "," );
      $pReportLines[] = " Transfer: $fullName Automated loan payment $formattedAmount from $printableSourceAccount to $printableDestAccount effective $effectiveDate";
    } else {
      // this is the normal case where we have a single WEB with one each source and destination entries
      $serviceClassCode = "200";    // mixed credit and debit

      // build a company header
      $pAchValues["batchNumber"]++;
      $companyControlHash = 0;

      $companyHeader = array( "RecordTypeCode" => "5",
                              "ServiceClassCode" => $serviceClassCode,
                              "CompanyName" => MakeValidAchString( $pInputParams["CompanyName"], 16 ),
                              "CompanyData" => str_repeat( " ", 20 ),
                              "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
                              "StandardEntryClassCode" => "WEB",
                              "CompanyEntryDescription" => MakeValidAchString( $entryName, 10 ),
                              "CompanyDescriptiveDate" => str_repeat( " ", 6 ),
                              "EffectiveEntryDate" => $effectiveDate,
                              "SettlementDate" => str_repeat( " ", 3 ),
                              "OriginatorStatusCode" => "1",
                              "OriginatingDFI" => MakeValidAchString( substr( $pInputParams["OriginatingRouting"], 0, 8 ), 8 ),
                              "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );

      // add to the output
      $header = array_values( $companyHeader );

      $outputLine = implode( "", $header );
      if ( strlen( $outputLine ) != 94 ) {
        throw new Exception( "ACH Output Error - company header block size (location 103)" );
      }
      $pOutputData[] = $outputLine;

      // the routing and account numbers depend on the transfer direction
      if ( $transferDirection == 1 ) {
        // Local to Remote
        if ( strlen( $pInputParams["OriginatingRouting"] ) != 9 ) {
          throw new Exception( "ACH File Creation - invalid routing number (location 114)" );
        }

        $sourceDFIRouting = substr( $pInputParams["OriginatingRouting"], 0, 8 );
        $sourceCheckDigit = substr( $pInputParams["OriginatingRouting"], -1 );

        // $sourceParts is used later
        $sourceParts = explode( "|", $paymentSource );
        $account = str_replace( " ", "", $sourceParts[1] );
        $subAccount = str_replace( " ", "", $sourceParts[2] );
        $sourceDFIAccount = FormatDFIAccount($account, $subAccount, $adminAchSettings["settings"]["sub_account_mask"]);

        $printableSourceAccount = "$account-$subAccount";

        if ( strlen( $transData["acct_dest"]["rdfi"]["rdfi_routing"] ) != 9 ) {
          throw new Exception( "ACH File Creation - invalid routing number (location 115)" );
        }

        $destDFIRouting = substr( $paymentDestination["rdfi"]["rdfi_routing"], 0, 8 );
        $destCheckDigit = substr( $paymentDestination["rdfi"]["rdfi_routing"], -1 );
        $account = str_replace( " ", "", $paymentDestination["rdfi"]["rdfi_account"] );
        $destDFIAccount = MakeValidAchString( $account, 17 );

        $printableDestAccount = "{$paymentDestination["rdfi"]["rdfi_routing"]} / $account";

        // use the end of the name because last name is more important
        $fullName = $paymentDestination["remote_entity"]["name"];
        $individualID = MakeValidAchString( substr( $fullName, -15 ), 15 );

        // need to test if local account is a checking or savings
        // NOTE: source account could be a loan (e.g. line of credit)
        if ( $sourceParts[0] == "L" ) {
          // this is not allowed
          throw new Exception( "ACH File Creation - cannot debit a loan account: $paymentSource" );
        }

        // see if there is source (local) meta data
        $localACHType = $transData["source_meta"]["deposit_ach_type"];
        if ( $localACHType > 0 ) {
          $isChecking = $localACHType == 10;
        } else {
          $sql = "SELECT deposittype
                  FROM {$pAdmEnv["Cu"]}accountbalance
                  WHERE accountnumber = '{$sourceParts[1]}'
                    AND accounttype = '{$sourceParts[2]}'
                    AND certnumber = {$sourceParts[3]}";
          $acctRS = db_query( $sql, $pAdmEnv["dbh"] );
          if ( !$acctRS ) {
            throw new Exception( "ACH Query Error - getting account deposit type" );
          }

          $acctRow = db_fetch_assoc( $acctRS, 0 );
          // only "Y" is checking
          $isChecking = $acctRow["deposittype"] == "Y";
        }

        $sourceTransactionCode = $isChecking ? "27" : "37";
        $destTransactionCode = $paymentDestination["rdfi"]["rdfi_account_type"] == 10 ? "22" : "32";
      } else {
        // Remote to Local
        if ( strlen( $transData["acct_source"]["rdfi"]["rdfi_routing"] ) != 9 ) {
          throw new Exception( "ACH File Creation - invalid routing number (location 116)" );
        }

        $sourceDFIRouting = substr( $paymentSource["rdfi"]["rdfi_routing"], 0, 8 );
        $sourceCheckDigit = substr( $paymentSource["rdfi"]["rdfi_routing"], -1 );
        $account = str_replace( " ", "", $paymentSource["rdfi"]["rdfi_account"] );
        $sourceDFIAccount = MakeValidAchString( $account, 17 );

        $printableSourceAccount = "{$paymentSource["rdfi"]["rdfi_routing"]} / $account";

        if ( strlen( $pInputParams["OriginatingRouting"] ) != 9 ) {
          throw new Exception( "ACH File Creation - invalid routing number (location 117)" );
        }

        $destDFIRouting = substr( $pInputParams["OriginatingRouting"], 0, 8 );
        $destCheckDigit = substr( $pInputParams["OriginatingRouting"], -1 );

        // $destParts is used later
        $destParts = explode( "|", $paymentDestination );
        $account = str_replace( " ", "", $destParts[1] );
        $subAccount = str_replace( " ", "", $destParts[2] );
        $destDFIAccount = FormatDFIAccount($account, $subAccount, $adminAchSettings["settings"]["sub_account_mask"]);


        $printableDestAccount = "$account-$subAccount";

        // use the end of the name because last name is more important
        $fullName = $paymentSource["remote_entity"]["name"];
        $individualID = MakeValidAchString( substr( $fullName, -15 ), 15 );

        $sourceTransactionCode = $paymentSource["rdfi"]["rdfi_account_type"] == 10 ? "27" : "37";


        // see if there is destination (local) meta data
        $localACHType = $transData["dest_meta"]["deposit_ach_type"];
        if ( $localACHType > 0 ) {
          $isChecking = $localACHType == 10;
        } else if( $destParts[0] != "L" ) {
          // need to test if local account is a checking or savings
          $sql = "SELECT deposittype
                  FROM {$pAdmEnv["Cu"]}accountbalance
                  WHERE accountnumber = '{$destParts[1]}'
                    AND accounttype = '{$destParts[2]}'
                    AND certnumber = {$destParts[3]}";
          $acctRS = db_query( $sql, $pAdmEnv["dbh"] );
          if ( !$acctRS ) {
            throw new Exception( "ACH Query Error - getting batch ach txns" );
          }

          $acctRow = db_fetch_assoc( $acctRS, 0 );
          // only "Y" is checking
          $isChecking = $acctRow["deposittype"] == "Y";
        } else {
          // just to make sure we have a value
          $isChecking = false;
        }

        // for loans, use code 52
        if( $destParts[0] == "L" ) {
          $destTransactionCode = "52";
        } else {
          $destTransactionCode = $isChecking ? "22" : "32";
        }
      }

      $actualAmount = trim( $transferRow["amount"] );
      $roundAmount = round( $actualAmount * 100 );
      $amount = str_pad( $roundAmount, 10, "0", STR_PAD_LEFT );

      $individualName = MakeValidAchString( $entryName, 22 );
      // Set Discretionary Data as "S" for Single non-recurring transaction
      // and "R" for recurring transaction.
      $transMeta = HCU_JsonDecode($pTxnHeader['transmeta']);
      $transRecurring = (HCU_array_key_value("recurr", $transMeta) == "yes") ? "R" : "S";
      $discretionaryData = str_pad($transRecurring, 2, " ", STR_PAD_RIGHT);

      // add to the total credit and debit
      $pAchValues["totalFileCredit"] += $roundAmount;
      $pAchValues["totalFileDebit"] += $roundAmount;

      // an entry detail source
      $pAchValues["traceNumber"]++;
      $pAchValues["fileEntryAddendaCount"]++;

      $entryDetail = array ( "RecordTypeCode" => "6",
                             "TransactionCode" => $sourceTransactionCode,
                             "ReceivingDFI" => $sourceDFIRouting,
                             "CheckDigit" => $sourceCheckDigit,
                             "DFIAccountNumber" => $sourceDFIAccount,
                             "Amount" => $amount,
                             "IndividualIdentificationNumber" => $individualID,
                             "IndividualName" => $individualName,
                             "DiscretionaryData" => $discretionaryData,
                             "AddendaRecordIndicator" => "0",
                             "TraceNumber" => substr( $pInputParams["OriginatingRouting"], 0, 8 ) . substr( "000000" . $pAchValues["traceNumber"], -7 ) );

      // add to the output
      $entry = array_values( $entryDetail );

      $outputLine = implode( "", $entry );
      if ( strlen( $outputLine ) != 94 ) {
        throw new Exception( "ACH Output Error - entry detail block size (location 106)" );
      }
      $pOutputData[] = $outputLine;

      $companyControlHash += $sourceDFIRouting;
      $pAchValues["fileControlHash"] += $sourceDFIRouting;

      // an entry detail destination
      $pAchValues["traceNumber"]++;
      $pAchValues["fileEntryAddendaCount"]++;

      $entryDetail = array ( "RecordTypeCode" => "6",
                             "TransactionCode" => $destTransactionCode,
                             "ReceivingDFI" => $destDFIRouting,
                             "CheckDigit" => $destCheckDigit,
                             "DFIAccountNumber" => $destDFIAccount,
                             "Amount" => $amount,
                             "IndividualIdentificationNumber" => $individualID,
                             "IndividualName" => $individualName,
                             "DiscretionaryData" => $discretionaryData,
                             "AddendaRecordIndicator" => "0",
                             "TraceNumber" => substr( $pInputParams["OriginatingRouting"], 0, 8 ) . substr( "000000" . $pAchValues["traceNumber"], -7 ) );

      // add to the output
      $entry = array_values( $entryDetail );

      $outputLine = implode( "", $entry );
      if ( strlen( $outputLine ) != 94 ) {
        throw new Exception( "ACH Output Error - entry detail block size (location 107)" );
      }
      $pOutputData[] = $outputLine;

      $companyControlHash += $destDFIRouting;
      $pAchValues["fileControlHash"] += $destDFIRouting;

      // the company hash can only be 10 characters long
      $entryHash = substr( str_repeat( "0", 10 ) . $companyControlHash, -10 );

      // the control record for this first company/entry
      $companyControl = array ( "RecordTypeCode" => "8",
                             "ServiceClassCode" => $serviceClassCode,
                             "EntryAddendaCount" => str_pad( "2", 6, "0", STR_PAD_LEFT ),
                             "EntryHash" => $entryHash,
                             "TotalDebitEntryDollarAmount" => str_pad( $amount, 12, "0", STR_PAD_LEFT ),
                             "TotalCreditEntryDollarAmount" => str_pad( $amount, 12, "0", STR_PAD_LEFT ),
                             "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
                             "MessageAuthenticationCode" => str_repeat( " ", 19 ),
                             "Reserved" => str_repeat( " ", 6 ),
                             "OriginatingDFI" => MakeValidAchString( substr( $pInputParams["OriginatingRouting"], 0, 8 ), 8 ),
                             "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );

      // add to the output
      $control = array_values( $companyControl );

      $outputLine = implode( "", $control );
      if ( strlen( $outputLine ) != 94 ) {
        throw new Exception( "ACH Output Error - company control block size (location 110)" );
      }
      $pOutputData[] = $outputLine;

      // add to the file batch count this one entry
      $pAchValues["fileBatchCount"]++;

      // add info to the report for this company
      $formattedAmount = number_format( $actualAmount, 2, ".", "," );

      if ( $destTransactionCode == "52" ) {
        $pReportLines[] = " Transfer: $fullName Automated loan payment $formattedAmount from $printableSourceAccount to $printableDestAccount effective $effectiveDate";
      } else {
        $pReportLines[] = " Transfer: $fullName WEB transfer $formattedAmount from $printableSourceAccount to $printableDestAccount effective $effectiveDate";
      }
    }

  } catch (Exception $ex) {
    $logInfo = array( "error" => $ex->getMessage(), "code" => $ex->getCode() );

    $returnInfo["error"] = $ex->getMessage();
    $returnInfo["code"] = "999";
  }

  return $returnInfo;
} // end BuildACHTransfer

/**
 * BuildACHBusiness
 * Creates entries in the ACH output file for handling "Commercial" ACHCOL and ACHPMT features.
 *
 * @param object $pAdmEnv -- structure with common and environment information
 * @param array $pTxnHeader -- all the headers from the <cu>transhdr table.
 * @param array $pInputParams -- values used for constructing the ach records.
 * @param array $pAchValues -- values for the ach records needing to be returned updated.
 * @param array $pOutputData -- the output of this call (assumed to be initialized before calling this function).
 * @param array $pReportLines -- lines of report information.
 *
 * @return success or error
 */
function BuildACHBusiness( $pAdmEnv, $pTxnHeader, $pInputParams, &$pAchValues, &$pOutputData, &$pReportLines ) {
  $returnInfo = array( "code" => "000", "error" => "" );

  try {
    $pAchValues["batchNumber"]++;

    // avoid daylight savings time change issues.
    $effectiveDate = date( "ymd", strtotime( $pTxnHeader["effective_date"] . " 3:00" ) );
    $adminAchSettings = AdminReadSettings($pAdmEnv, $pAdmEnv["dbh"], $pAdmEnv["Cu"]);

    // The service class code is used in the company header/control records, types (5/8) to
    // determine the type of transactions included in the company record.
    //    200:  type 6 records consist of both credit and debit records
    //    220:  type 6 records consist of only credit records
    //    225:  type 6 records consist of only debt records

    // The service class code is hard-coded to 200 at this time due to the fact that we are
    // including a single local type 6 record and the one or more remote type 6 records within
    // a single company header and control record.
    //
    // Example: ACH Collection: $30.87
    //    company header record, service class code: 200
    //      remote record(s):  30.87 (debit from remote)
    //      local record:   30.87 (credit to local)
    //    company control record, service class code: 200; credit amount: 30.87, debit amount: 30.87

    // It is possible in the future we may need to generate separate header/control records for
    // the remote type 6 records and the local type 6 records. This would be the case for specfying
    // the service class codes of 220 and 225.
    //
    // Example: ACH Collection $30.87
    //    company header record, service class code: 225 (debit from remote)
    //      remote record(s):  30.87
    //    company control record, service class code: 225; credit amount: 0, debit amount: 30.87
    //
    //    company header record, service class code: 220 (credit to local)
    //      local record:  30.87
    //    company control record, service class code: 220; credit amount: 30.87, debit amount: 0
    $serviceClassCode = "200";

    // Transaction direction:
    //    1: Local To Remote -> ACH Payment
    //    2: Remote to Local -> ACH Collection
    $transferDirection = substr( $pTxnHeader["transactioncode"], 0, 1 );

    // P -> PPD, C -> CCD, W -> WEB
    $standardEntryClass = substr( $pTxnHeader["transactioncode"], 1, 1 );
    if ( $standardEntryClass == "C" ) {
      $secCode = "CCD";
    } else if ( $standardEntryClass == "P" ) {
      $secCode = "PPD";
    } else if ( $standardEntryClass == "W" ) {
      $secCode = "WEB";
    } else {
      throw new Exception( "Error Building ACH Upload File  - Could not determine Standard Entry Class (201)" );
    }

    // for now using the CU's ACH name;
    $companyName = $pTxnHeader["group_name"];

    // Identifies the Originator
    $companyID = trim($pTxnHeader['tax_id']);
    if (strlen($companyID) != 10) {
      // since the group hub link is only displayed on error
      // when the tax id is missing, the encoding should be
      // inside the error block.
      $groupContext = GroupContext($pAdmEnv, $pAdmEnv['Cu']);
      $groupContext['g_name'] = $companyName;
      $group = GroupSelect($pAdmEnv, $pAdmEnv['dbh'], $groupContext);

      // must decode all primary users for the group or the hub will complain
      for ($i = 0; $i < count($group['group']['g_primary']); $i++) {
        $payload = urldecode($group['group']['g_primary'][$i]['p_payload']);
        $primary = HCU_PayloadDecode($pAdmEnv['Cu'], $payload);

        $group['group']['g_primary'][$i] = $primary;
        $group['group']['g_primary'][$i]['p_name'] = $primary['user_name'];
      }
      $groupEncrypt = GroupEncrypt($pAdmEnv, $pAdmEnv['Cu'], $group);
      $groupEncrypt = urlencode($groupEncrypt);

      // because we can only throw a single string, encode it.
      // KEEP THE '^', This will be used to split the string to prevent the use of
      // json encode and decode over and over again.
      $companyIDError = "Error Building ACH Upload File - Missing Company Identification: 109^This feature requires a \"Company Tax ID\" set up on the <a href=\"main.prg?ft=102101&payload={$groupEncrypt}\">{$companyName}</a> Group Hub";
      throw new Exception( $companyIDError, 109 );
    }

    $companyICD = substr($companyID, 0, -9);
    if ($companyICD != "1" && $companyICD != "9" && $companyICD != " ") {
      throw new Exception( "Error Building ACH Upload File - Invalid Identification Code Designator (202)" );
    }

    // company entry description is the ACH Transaction type
    // depending on the transaction code above which can be
    // 1P/2P (PPD) or 1C/2C (CCD) -> 1 (L2R), 2(R2L)
    $companyEntryDescription = $transferDirection == "1" ? "ACH Payment" : "ACH Collection";

    // build a company header
    $companyHeader = array( "RecordTypeCode" => "5",
                            "ServiceClassCode" => $serviceClassCode,
                            "CompanyName" => MakeValidAchString( $companyName, 16 ),
                            "CompanyData" => str_repeat( " ", 20 ),
                            "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
                            "StandardEntryClassCode" => $secCode,
                            "CompanyEntryDescription" => MakeValidAchString( $companyEntryDescription, 10 ),
                            "CompanyDescriptiveDate" => str_repeat( " ", 6 ),
                            "EffectiveEntryDate" => $effectiveDate,
                            "SettlementDate" => str_repeat( " ", 3 ),
                            "OriginatorStatusCode" => "1",
                            "OriginatingDFI" => MakeValidAchString( substr( $pInputParams["OriginatingRouting"], 0, 8 ), 8 ),
                            "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );

    $header = array_values( $companyHeader );

    $outputLine = implode( "", $header );
    if ( strlen( $outputLine ) != 94 ) {
      throw new Exception( "ACH Output Error - company header block size (203)" );
    }
    $pOutputData[] = $outputLine;

    // add info to the report for this company
    $pReportLines[] = " Group/Company: $companyName";

    // get all the detail for each company
    $sql = "SELECT * FROM {$pAdmEnv["Cu"]}transdtl WHERE transhdr_id = {$pTxnHeader["id"]}";
    $dtlRS = db_query( $sql, $pAdmEnv["dbh"] );
    if ( !$dtlRS ) {
      throw new Exception( "ACH Query Error - getting ACH transactions (204)" );
    }

    if (db_num_rows($dtlRS) == 0) {
      throw new Exception( "ACH Error - detail not found for ACH transfer (205)" );
    }

    // Local account information.
    // Initialize this above the main loop because we only
    // need it set one time.
    //
    // This will allow all remote records of a transaction
    // to print first, then print a single record for local
    // information.
    $localAccountInfo = array();
    $localAccountInfoSet = false;
    $localAccountTotal = 0;
    $localAccountTotalFormatted = "";

    // To make the report file more intuitive to the credit union
    // we need to print the local information first. So we set up
    // a local report lines array, fill it up with the remote records
    // then append it after we print the local information line.
    $remoteReportLines = array();

    $dtlRow = 0;
    $companyTotalCredit = 0;
    $companyTotalDebit = 0;
    $companyControlHash = 0;
    $companyEntryAddendaCount = 0;
    while ( $rowDtl = db_fetch_assoc( $dtlRS, $dtlRow++ ) ) {
      // Initialize remote data array
      $remoteAccountInfo = array();

      // decode the transaction data
      $transData = HCU_JsonDecode( $rowDtl["transdata"], true );

      if (empty($transData)) {
        throw new Exception( "ACH Error - transaction data is missing or corrupt (206)" );
      }

      // Check for valid routing number
      if ( strlen( $pInputParams["OriginatingRouting"] ) != 9 ) {
        throw new Exception( "Error Building ACH Upload File - invalid routing number (207)" );
      }

      // Only need to set the local account information one time
      // since it is the same for every single transdtl record of
      // a batch transaction.
      if (!$localAccountInfoSet) {

        $localParts = array();
        // Local to Remote: ACH Payment
        // Local information will be in source_* fields of trans_data
        if ($transferDirection == "1") {
          $localParts = $transData['source_key'];
          $localType = $transData['source_meta']['deposit_ach_type'];
          $localAccountInfo['TransactionCode'] = $localType == 10 ? "27" : ($localType == 20 ? "37" : "00");
        } else {
          // Remote to Local: ACH Collaction
          // Local information will be in dest_* fields of trans_data
          $localParts = $transData['dest_key'];
          $localType = $transData['dest_meta']['deposit_ach_type'];
          $localAccountInfo['TransactionCode'] = $localType == 10 ? "22" : ($localType == 20 ? "32" : "00");
        }

        // check for bad transaction code on local account
        if ($localAccountInfo['TransactionCode'] == "00") {
          throw new Exception("Error Building ACH Upload File - could not determine transaction code (208)");
        }

        $localAccount = str_replace( " ", "", $localParts['accountnumber'] );
        $localSub = str_replace( " ", "", $localParts['accounttype'] );
        $localAccountInfo['ReceivingDFI'] = substr( $pInputParams["OriginatingRouting"], 0, 8 );
        $localAccountInfo['CheckDigit'] = substr( $pInputParams["OriginatingRouting"], -1 );
        $localAccountInfo['DFIAccountNumber'] = FormatDFIAccount($localAccount, $localSub, $adminAchSettings["settings"]["sub_account_mask"]);

        // Set up local account name
        $localName = $localAccount . "-" . $localSub;
        $localName = strtoupper($localName);
        $localAccountInfo['IndividualName'] = MakeValidAchString($localName, 22);

        // The individual ID is used as an optional 15 character field
        // used to identify the local/remote account for the current record.
        $localAccountInfo['IndividualIdentificationNumber'] = str_repeat( " ", 15 );
        $localAccountInfo['DiscretionaryData'] = "  ";
        $localAccountInfo['AddendaRecordIndicator'] = 0;

        $localAccountInfoSet = true;
      }

      $remoteParts = array();

      // Local to Remote: ACH Payment
      // Remote information will be in dest_* fields of trans_data
      if ($transferDirection == "1") {
        $remoteParts = $transData['acct_dest'];
        $remoteType = $remoteParts['rdfi']['rdfi_account_type'];
        $remoteAccountInfo['TransactionCode'] = $remoteType == 10 ? "22" : ($remoteType == 20 ? "32" : "00");
      } else {
        // Remote to Local: ACH Collection
        // Remote information will be in source_* fields of trans_data
        $remoteParts = $transData['acct_source'];
        $remoteType = $remoteParts['rdfi']['rdfi_account_type'];
        $remoteAccountInfo['TransactionCode'] = $remoteType == 10 ? "27" : ($remoteType == 20 ? "37" : "00");
      }

      // check for bad transaction code on remote account
      if ($remoteAccountInfo['TransactionCode'] == "00") {
        throw new Exception("Error Building ACH Upload File - could not determine transaction code (209)");
      }

      // Check for valid routing number
      if ( strlen( $remoteParts["rdfi"]["rdfi_routing"] ) != 9 ) {
        throw new Exception( "Error Building ACH Upload File - invalid routing number (210)" );
      }

      $remoteAccountInfo['ReceivingDFI'] = substr( $remoteParts["rdfi"]["rdfi_routing"], 0, 8 );
      $remoteAccountInfo['CheckDigit'] = substr( $remoteParts["rdfi"]["rdfi_routing"], -1 );
      $remoteAccount = str_replace( " ", "", $remoteParts["rdfi"]["rdfi_account"] );
      $remoteAccountInfo['DFIAccountNumber'] = MakeValidAchString( $remoteAccount, 17 );

      // Set up partner name
      $remoteName = $remoteParts['remote_entity']['name'];
      $remoteName = strtoupper($remoteName);
      $remoteAccountInfo['IndividualName'] = MakeValidAchString($remoteName, 22);

      // The individual ID is used as an optional 15 character field
      // used to identify the local/remote account for the current record.
      $remoteAccountInfo['IndividualIdentificationNumber'] = str_repeat( " ", 15 );
      $remoteAccountInfo['DiscretionaryData'] = "  ";

      // Set up addenda record
      $remoteAddenda = trim($remoteParts['rdfi']['addenda']);
      if (strlen($remoteAddenda) > 0) {
        $remoteAccountInfo['Addenda'] = MakeValidAchString($remoteAddenda, 80);
        $remoteAccountInfo['AddendaRecordIndicator'] = 1;
      } else {
        $remoteAccountInfo['AddendaRecordIndicator'] = 0;
      }

      // Set up remote amount information
      $remoteActual = trim($rowDtl['amount']);
      $remoteActualFormatted = number_format($remoteActual, 2, ".", ",");
      $remoteActualFormatted = str_pad($remoteActualFormatted, 10, " ", STR_PAD_RIGHT);

      $remoteAmount = round($remoteActual * 100);
      $remoteAccountInfo['Amount'] = str_pad( $remoteAmount, 10, "0", STR_PAD_LEFT );

      // Add to local account total
      $localAccountTotal += $remoteActual;
      $localAccountTotalFormatted = number_format($localAccountTotal, 2, ".", ",");
      $localAccountTotalFormatted = str_pad($localAccountTotalFormatted, 10, " ", STR_PAD_RIGHT);

      $localAccountAmount = round($localAccountTotal * 100);
      $localAccountInfo['Amount'] = str_pad($localAccountAmount, 10, "0", STR_PAD_LEFT);

      // add total credit and debit amounts
      $companyTotalCredit += $remoteAmount;
      $pAchValues["totalFileCredit"] += $remoteAmount;

      $companyTotalDebit += $remoteAmount;
      $pAchValues["totalFileDebit"] += $remoteAmount;

      // an entry detail for each
      $companyEntryAddendaCount++;
      $pAchValues['fileEntryAddendaCount']++;
      $pAchValues["traceNumber"]++;

      $entryDetail = array (
        "RecordTypeCode" => "6",
        "TransactionCode" => $remoteAccountInfo['TransactionCode'],
        "ReceivingDFI" => $remoteAccountInfo['ReceivingDFI'],
        "CheckDigit" => $remoteAccountInfo['CheckDigit'],
        "DFIAccountNumber" => $remoteAccountInfo['DFIAccountNumber'],
        "Amount" => $remoteAccountInfo['Amount'],
        "IndividualIdentificationNumber" => $remoteAccountInfo['IndividualIdentificationNumber'],
        "IndividualName" => $remoteAccountInfo['IndividualName'],
        "DiscretionaryData" => $remoteAccountInfo['DiscretionaryData'],
        "AddendaRecordIndicator" => $remoteAccountInfo['AddendaRecordIndicator'],
        "TraceNumber" => substr( $pInputParams["OriginatingRouting"], 0, 8 ) . substr( "000000" . $pAchValues["traceNumber"], -7 ) );

      $entry = array_values( $entryDetail );
      $outputLine = implode( "", $entry );
      if ( strlen( $outputLine ) != 94 ) {
        throw new Exception( "ACH Output Error - entry detail block size (211)" );
      }
      $pOutputData[] = $outputLine;

      $rName = $remoteAccountInfo['IndividualName'];
      $rAccount =
        $remoteAccountInfo['ReceivingDFI'] .
        $remoteAccountInfo['CheckDigit'] . " / " .
        $remoteAccountInfo['DFIAccountNumber'];
      $rAmount = "$" . $remoteActualFormatted;
      $remoteReportLines[] = "  Partner: {$rName} {$rAmount} {$rAccount}";

      // see if an addenda
      if ( HCU_array_key_exists("Addenda", $remoteAccountInfo) ) {
        $companyEntryAddendaCount++;
        $pAchValues["fileEntryAddendaCount"]++;

        // only one addenda line per entry detail, max
        $addendaRecord = array(
          "RecordTypeCode" => "7",
          "AddendaTypeCode" => "05",
          "PaymentRelatedInformation" => $remoteAccountInfo['Addenda'],
          "AddendaSequenceNumber" => "0001",
          "EntryDetailSequenceNumber" => str_pad( $pAchValues["traceNumber"], 7, "0", STR_PAD_LEFT ) );

        $addenda = array_values( $addendaRecord );
        $outputLine = implode( "", $addenda );
        if ( strlen( $outputLine ) != 94 ) {
          throw new Exception( "ACH Output Error - addenda entry block size (212)" );
        }
        $pOutputData[] = $outputLine;
        $remoteReportLines[] = "  Addenda: {$remoteAccountInfo['Addenda']}";
      }

      // add to the control hashes
      $companyControlHash += $remoteAccountInfo['ReceivingDFI'];
      $pAchValues["fileControlHash"] += $remoteAccountInfo['ReceivingDFI'];
    }

    $companyEntryAddendaCount++;
    $pAchValues["fileEntryAddendaCount"]++;

    // Local accuont detail record
    $entryDetail = array (
      "RecordTypeCode" => "6",
      "TransactionCode" => $localAccountInfo['TransactionCode'],
      "ReceivingDFI" => $localAccountInfo['ReceivingDFI'],
      "CheckDigit" => $localAccountInfo['CheckDigit'],
      "DFIAccountNumber" => $localAccountInfo['DFIAccountNumber'],
      "Amount" => $localAccountInfo['Amount'],
      "IndividualIdentificationNumber" => $localAccountInfo['IndividualIdentificationNumber'],
      "IndividualName" => $localAccountInfo['IndividualName'],
      "DiscretionaryData" => $localAccountInfo['DiscretionaryData'],
      "AddendaRecordIndicator" => $localAccountInfo['AddendaRecordIndicator'],
      "TraceNumber" => substr( $pInputParams["OriginatingRouting"], 0, 8 ) . substr( "000000" . $pAchValues["traceNumber"], -7 ) );

    $entry = array_values( $entryDetail );
    $outputLine = implode( "", $entry );
    if ( strlen( $outputLine ) != 94 ) {
      throw new Exception( "ACH Output Error - entry detail block size (213)" );
    }
    $pOutputData[] = $outputLine;

    // add to the control hashes
    $companyControlHash += $localAccountInfo['ReceivingDFI'];
    $pAchValues["fileControlHash"] += $localAccountInfo['ReceivingDFI'];

    // Print local report line
    // Need to get printable versions of the necesary strings because they
    // are all padded to fit specific lengths.
    $lName = trim($localAccountInfo['IndividualName']);
    $lAmount = "$" . trim($localAccountTotalFormatted);
    if ($transferDirection == "1") {
      $pReportLines[] = " Transfer: ACH Payment, {$lAmount} effective {$effectiveDate} from {$lName} to:";
    } else {
      $pReportLines[] = " Transfer: ACH Collection, {$lAmount} effective {$effectiveDate} to {$lName} from:";
    }

    // Print remote information to report file
    // append remoteReportLines array to $pReportLines
    $pReportLines = array_merge($pReportLines, $remoteReportLines);

    // Add empty line between transactions
    $pReportLines[] = "";

    // the company hash can only be 10 characters long
    $entryHash = substr( str_repeat( "0", 10 ) . $companyControlHash, -10 );

    // output the company control record
    $companyControl = array (
      "RecordTypeCode" => "8",
      "ServiceClassCode" => $serviceClassCode,
      "EntryAddendaCount" => str_pad( $companyEntryAddendaCount, 6, "0", STR_PAD_LEFT ),
      "EntryHash" => $entryHash,
      "TotalDebitEntryDollarAmount" => str_pad( $companyTotalDebit, 12, "0", STR_PAD_LEFT ),
      "TotalCreditEntryDollarAmount" => str_pad( $companyTotalCredit, 12, "0", STR_PAD_LEFT ),
      "CompanyIdentification" => MakeValidAchString( $companyID, 10 ),
      "MessageAuthenticationCode" => str_repeat( " ", 19 ),
      "Reserved" => str_repeat( " ", 6 ),
      "OriginatingDFI" => substr( $pInputParams["OriginatingRouting"], 0, 8 ),
      "BatchNumber" => str_pad( $pAchValues["batchNumber"], 7, "0", STR_PAD_LEFT ) );

    $control = array_values( $companyControl );

    $outputLine = implode( "", $control );
    if ( strlen( $outputLine ) != 94 ) {
      throw new Exception( "ACH Output Error - company control block size (214)" );
    }
    $pOutputData[] = $outputLine;

    // add to the file batch count (doesn't include addenda)
    $pAchValues["fileBatchCount"]++;
  } catch (Exception $ex) {
    $logInfo = array( "error" => $ex->getMessage(), "code" => $ex->getCode() );

    $returnInfo["error"] = $ex->getMessage();
    $returnInfo["code"] = $ex->getCode() == 0 ? "999" : $ex->getCode();
  }

  return $returnInfo;
} // end BuildACHBusiness

// Helper function to strip out not allowed characters from string and pad the
//  correct amount of characters on end.
// Returns the validated string.
function MakeValidAchString( $inputString, $length ) {
  return substr( str_pad( preg_replace( ACH_NOT_ALLOWED, "", $inputString ), $length ), 0, $length );
} // end MakeValidAchString


/**
 * Concatenate and format the account number and sub-account number
 *
 * @param string  $accountNumber      Account number
 * @param string  $subAccountNumber   Sub-account number
 * @param string  $mask               Sub-account number mask to use
 *
 * @return string                     Formatted DFI string
 */
function FormatDFIAccount($accountNumber, $subAccountNumber, $mask = '') {
  $maskLength = strlen($mask);

  if (strlen($subAccountNumber) >= $maskLength) {
    return MakeValidAchString("$accountNumber$subAccountNumber", 17 );
  }

  $accountLengthDelta = strlen("$accountNumber$mask") - DFI_ACCOUNT_MAX_SIZE;
  if ($accountLengthDelta > 0) {
    $mask = substr($mask, $accountLengthDelta);
  }

  $maskedNumber = substr("$mask$subAccountNumber", -1 * $maskLength);
  $maskedNumber = strtr($maskedNumber, '+', ' ');

  return MakeValidAchString("$accountNumber$maskedNumber", 17);
}
/**
 * CreateAchFiles
 * Get all the transactions in the given batch and supply the output for a valid ACH file.
 * NOTE: for any string, remove any non-allowed characters (e.g. in memos, addenda, etc).
 *
 * @param object $pAdmEnv -- structure with common and environment information
 * @param array $pAdmVars -- the passed parameters for the operation
 *
 * @return data or error
 */
function CreateAchFiles( $pAdmEnv, $pAdmVars ) {
  $returnInfo = array("code" => "000", "errors" => array(), "data" => array());

  // output data in lines 94 bytes long, blocks of 10 (9-fill to make even blocks)
  $outputData = array();

  // report data is free-form, but assume text output
  $reportLines = array();

  try {
    // need this for sanitizing strings
    require_once( dirname(__FILE__) . "/../library/aACHValidate.i" );

    $cu = strtolower( $pAdmEnv["Cu"] );
    $CU = strtoupper( $pAdmEnv["Cu"] );

    $batchPreName = "Batch";
    $batchPath = "/home/{$cu}/admin/ach/";
    $blockingFactor = 10;

    // verify the directory exists
    if ( !file_exists( $batchPath ) ) {
      throw new Exception( "Create ACH Files Error - Directory does not exist - please contact Support" );
    }

    $payloadInfo = HCU_PayloadDecode( $pAdmEnv["Cu"], $pAdmVars["batch_id"] );
    $batchTimeString = $payloadInfo["batch_date"];

    // get the credit union's timezone
    $creditUnionTz = GetCreditUnionTimezone( $pAdmEnv["dbh"], $pAdmEnv["Cu"] );

    // use the batch timestamp to figure out the creation date/time and filename
    $myDateTime = new DateTime( $batchTimeString );
    $myDateTime->setTimezone(new DateTimeZone($creditUnionTz));
    $batchDay = $myDateTime->format("ymd");
    $batchHour = $myDateTime->format("His");

    // guess this is the letter we want
    $fileModifier = "A";

    // get all files created today
    $results = glob( "{$batchPath}{$batchPreName}_{$batchDay}_*.ach" );
    for ( $i = 0; $i < count( $results ); $i++ ) {
      $fileModifier++;  // B, C, D ... - problems if over 26
    }

    $achBaseName = "{$batchPreName}_{$batchDay}_{$batchHour}";
    $achFileName = "{$achBaseName}.ach";
    $achReportName = "{$achBaseName}.txt";

    $reportLines[] = "Report for $achBaseName";

    // make sure the filename doesn't already exist
// unresolved - search $results

    // get the CU's routing number
    // There will be only one routing number for a credit union.
    $adminAchSettings = AdminReadSettings($pAdmEnv, $pAdmEnv["dbh"], $CU);

    $cuRouting = trim( $adminAchSettings["settings"]["routing"] );
    if ( strlen( $cuRouting ) != 9 ) {
      throw new Exception( "ACH Settings - invalid CU routing number" );
    }

    // micro deposit source account
    $accountMicroDeposit = $adminAchSettings["settings"]["account"];

    // use the ACH settings name for the origin name
    $originName = MakeValidAchString( $adminAchSettings["settings"]["name"], 23 );

/* UNRESOLVED QUESTIONS:
 * 14. How long to keep batches around?
 *
 * Answered:
 * 1. Do we gather just for an effective date, or all dates? Just gather them all; let upstream worry about warehousing.
 * 2. What if effective date is in the past? Use as is. Possibly might have to adjust to current date.
 * 3. NEED for File Header: Immediate Destination, Immediate Destination Name,
 *          Immeditate Origination Name, FileID Modifier. DONE
 * 5. How handle reversals? Reversals are handled through the core so we don't worry about them.
 * 6. What Standard Entry Class Codes do we use? PPD and CCD (ach), WEB (external transfer).
 * 7. What Service Class Codes do we use? Currently 220, 225 - base it on the transhdr.transaction code 1st character.
 * 8. How determine the Transaction Code (entry detail)? Base it on flags in transdtl.transdata for checking or savings,
 *                credit or debit.
 * 9. When Email notify? Set processed status when creating batch, then send email and finalize the processed status.
 * 10. Do we want to handle multiple addenda for a txn? No. No matter how much addenda, only get one line.
 * 11. Do we want to re-create a batch identically, with different create date/time, or store created? Store file on file
 *                system; allow for re-download.
 * 15. ACH Report? Yes, generate and save on disk with the ach file. Let user re-download either report or file. Show report
 *                screen and download file from that screen.
 * 16. If have entry but missing files, allow for re-build of ach and report files? Yes; build exactly the same, if possible.
 *                This feature lets the ach file be removed, data updated, and the batch re-built;
 * 17. Use local time timestamp for batch file name, or utc? Local time values, utc stored in database.
 * 13. Need filtering of data on inputs to avoid invalid Alphameric data. Doing a str_replace().
 * 4. NEED for Company Header: Company name - using CU name from admin settings,
 *                             Company ID - using CU routing number,
 *                             Company Entry Description - using CU name from admin settings,
 *                             Company descriptive date - leaving blank.
 *                Using CU name, routing info
 * 12. Need for Entry Detail (individual): Individual ID Number.  Using CU routing number for now and external
 *      account name for IndividualName.
 */
    // create a file header
    $myRouting = substr( str_pad( trim( $adminAchSettings["settings"]["routing"] ), 10, " ", STR_PAD_LEFT ), 0, 10 );

    $fileCreateDate = new DateTimeImmutable("now", new DateTimeZone($creditUnionTz));

    $fileHeader = array( "RecordTypeCode" => "1",
                         "PriorityCode" => "01",
                         "ImmediateDestination" => $myRouting,      // cu's routing/transit number
                         "ImmediateOrigin" => $myRouting,           // same routing number for origin and destination
                         "FileCreateDate" => $fileCreateDate->format("ymd"),         // current day (yymmdd)
                         "FileCreateTime" => $fileCreateDate->format("Hi"),          // current time (hhmm)
                         "FileIDModifier" => $fileModifier,         // new letter for each file on the given day
                         "RecordSize" => "094",
                         "BlockingFactor" => $blockingFactor,
                         "FormatCode" => "1",
                         "ImmediateDestinationName" => str_pad( "Federal Reserve Bank", 23 ),
                         "ImmediateOriginName" => $originName,
                         "ReferenceCode" => str_repeat( " ", 8 ) );

    $header = array_values( $fileHeader );

    $outputLine = implode( "", $header );
    if ( strlen( $outputLine ) != 94 ) {
      throw new Exception( "ACH Output Error - file header block size" );
    }
    $outputData[] = $outputLine;

// unresolved - need to group and count by type of ACH for the report
    $transactionHeaders = GetACHTransactionHeaders( $pAdmEnv, $batchTimeString );
    if ( !count( $transactionHeaders ) ) {
      throw new Exception( "Error Building ACH Upload File - no ACH transactions for upload", 300 );
    }

    // have the important values and counters all be in one variable
    $values = array();

    // these get adjusted along the way
    $values["batchNumber"] = 0;
    $values["totalFileCredit"] = 0;
    $values["totalFileDebit"] = 0;
    $values["fileControlHash"] = 0;
    $values["fileEntryAddendaCount"] = 0;
    $values["fileBatchCount"] = 0;    // number of "8" records

    // trace number is unique and ascending across all type "6" records
    $values["traceNumber"] = 0;

    // first handle the micro-deposits
    $passedParams = array( "CompanyName" => $originName,
                          "OriginatingRouting" => $cuRouting,
                          "CompanyEntryDescription" => $originName,
                          "EffectiveEntryDate" => (new DateTime("now", new DateTimeZone($creditUnionTz)))->format('ymd'),
                          "accountMicroDeposit" => $accountMicroDeposit,
                          "CompanyIDType" => $adminAchSettings['settings']['type']
                        );

    $reportLines[] = "";
    $reportLines[] = "Micro Deposits";
    $retInfo = AddMicroDeposits( $pAdmEnv, $transactionHeaders, $passedParams, $values, $outputData, $reportLines );
    if ( $retInfo["code"] != "000" ) {
      throw new Exception( $retInfo["error"] );
    }

    // add the offsetting entries for getting the micro deposits back
    $reportLines[] = "";
    $reportLines[] = "Micro Deposit Offsetting Entries";
    $retInfo = AddMicroDepositOffsets( $pAdmEnv, $transactionHeaders, $passedParams, $values, $outputData, $reportLines );
    if ( $retInfo["code"] != "000" ) {
      throw new Exception( $retInfo["error"] );
    }

    // remove the micro-deposit specific parameter
    unset( $passedParams["accountMicroDeposit"] );

    // cycle through the header rows, handling the TRNEXT external transfers
    $reportLines[] = "";
    $reportLines[] = "External Transfers";
    $hasOne = false;
    $hdrRow = 0;
    for ( $hdrRow = 0; $hdrRow < count( $transactionHeaders ); $hdrRow++ ) {
      $rowHdr = $transactionHeaders[$hdrRow];

      if ( $rowHdr["processed"] > 0 ) continue;

      if ( $rowHdr["feature_code"] == "TRNEXT" ) {
        $retInfo = BuildACHTransfer( $pAdmEnv, $rowHdr, $passedParams, $values, $outputData, $reportLines );
        if ( $retInfo["code"] != "000" ) {
          throw new Exception( $retInfo["error"] );
        }

        // flag as processed
        $transactionHeaders[$hdrRow]["processed"] = true;

        $hasOne = true;
      }
    }
    if ( !$hasOne ) {
      $reportLines[] = " None";
    }

    // now cycle through handling the ACHCOL and ACH PMT transfers
    $reportLines[] = "";
    $reportLines[] = "ACH Transactions";
    $hasOne = false;
    $hdrRow = 0;
    for ( $hdrRow = 0; $hdrRow < count( $transactionHeaders ); $hdrRow++ ) {
      $rowHdr = $transactionHeaders[$hdrRow];

      if ( $rowHdr["processed"] > 0 ) continue;

      if ( $rowHdr["feature_code"] == "ACHCOL" ||
           $rowHdr["feature_code"] == "ACHPMT" ) {
        $achBusinessReturn = BuildACHBusiness( $pAdmEnv, $rowHdr, $passedParams, $values, $outputData, $reportLines );
        if ($achBusinessReturn['code'] !== "000") {
          throw new Exception($achBusinessReturn['error'], $achBusinessReturn['code']);
        }
        // flag as processed
        $transactionHeaders[$hdrRow]["processed"] = true;

        $hasOne = true;
      }
    }
    if ( !$hasOne ) {
      $reportLines[] = " None";
    }

    // see if any unprocessed - this should just be found during development
    for ( $hdrRow = 0; $hdrRow < count( $transactionHeaders ); $hdrRow++ ) {
      $rowHdr = $transactionHeaders[$hdrRow];

      if ( $rowHdr["processed"] > 0 ) continue;

      // don't know how to handle anything else
      throw new Exception( "Error Building ACH Upload File - Unprocessed transaction: " . print_r( $rowHdr, true ) );
    }

    // the file hash can only be 10 characters long
    $entryHash = substr( str_repeat( "0", 10 ) . $values["fileControlHash"], -10 );

    // for the total blocks, count what we have plus one more for the file control record
    // remember: a block is the number of blockingFactor blocks and includes the 999 filler records
    $realRecordCount = count( $outputData ) + 1;      // add the file control record
    $fillerCount = $blockingFactor - ($realRecordCount % $blockingFactor);
    $totalBlockCount = floor( ( $realRecordCount + $fillerCount ) / $blockingFactor );     // round down and avoid floating point zeros issues
    // note: adding filler won't adjust the block count since it is just completing the block

    // output the file control record
    $fileControl = array ( "RecordTypeCode" => "9",
                           "BatchCount" => str_pad( $values["fileBatchCount"], 6, "0", STR_PAD_LEFT ),
                           "BlockCount" => str_pad( $totalBlockCount, 6, "0", STR_PAD_LEFT ),
                           "EntryAddendaCount" => str_pad( $values["fileEntryAddendaCount"], 8, "0", STR_PAD_LEFT ),
                           "EntryHash" => $entryHash,
                           "TotalDebitEntryDollarAmount" => str_pad( $values["totalFileDebit"], 12, "0", STR_PAD_LEFT ),
                           "TotalCreditEntryDollarAmount" => str_pad( $values["totalFileCredit"], 12, "0", STR_PAD_LEFT ),
                           "Reserved" => str_repeat( " ", 39 ) );

    $control = array_values( $fileControl );

    $outputLine = implode( "", $control );
    if ( strlen( $outputLine ) != 94 ) {
      throw new Exception( "ACH Output Error - file control block size" );
    }
    $outputData[] = $outputLine;

    // add the 999 blocks until the right number of blocks
    for ( $i = 0; $i < $fillerCount; $i++ ) {
      $outputData[] = str_repeat( "9", 94 );
    }

    // the report is returned to the caller
    $reportString = implode( "\n", $reportLines );

    // save a copy of the current directory
    $currDir = getcwd();

    if ( chdir( $batchPath ) ) {
      // save the ach batch
      $fp = fopen( $achFileName, "w" );
      if ( $fp ) {
        // now convert the output array to a string
        $outputString = implode( "\n", $outputData );

        $bytesWritten = fputs( $fp, $outputString );
        fclose( $fp );

        if ( $bytesWritten != strlen( $outputString ) ) {
          throw new Exception( "ACH Output Error - could not write to output file" );
        }
      } else {
        throw new Exception( "ACH Output Error - could not open output file" );
      }

      // save the batch report
      $fp = fopen( $achReportName, "w" );
      if ( $fp ) {
        $bytesWritten = fputs( $fp, $reportString );
        fclose( $fp );

        if ( $bytesWritten != strlen( $reportString ) ) {
          throw new Exception( "ACH Output Error - could not write to report file" );
        }
      } else {
        throw new Exception( "ACH Output Error - could not open report file" );
      }
    } else {
      throw new Exception( "ACH Output Error - could not reach file directory" );
    }
    chdir( $currDir );

    // iterate the transaction headers and set the processed_status to 20
    // this value will signify the file was generated successfully.
    $hdrRow = 0;
    $hdrList = array();
    for ( $hdrRow = 0; $hdrRow < count( $transactionHeaders ); $hdrRow++ ) {
      $hdrList[] = $transactionHeaders[$hdrRow]['id'];
    }
    $hdrString = implode(",", $hdrList);

    // update hdr processed_status using this list of hdr id's
    $sql = "UPDATE {$pAdmEnv['Cu']}transhdr SET processed_status = 20 WHERE id IN ($hdrString)";
    $sqlRs = db_query( $sql, $pAdmEnv['dbh'] );
    if (!$sqlRs) {
      throw new Exception( "ACH Output Error - unable to update transaction process" );
    }

    $returnInfo["data"]["batch_id"] = $pAdmVars["batch_id"];
  } catch (Exception $ex) {
    $logInfo = array( "error" => $ex->getMessage(), "code" => $ex->getCode() );

    $returnInfo["errors"] = $ex->getMessage();
    $returnInfo["code"] = $ex->getCode() == 0 ? "999" : $ex->getCode();
  }

  return $returnInfo;
} // end CreateAchFiles


/**
 * GetApprovedACHTrans
 * Get any approved but not yet processed ACH transactions for the given CU.
 *
 * @param object $pAdmEnv -- structure with common and environment information
 *
 * @return
 */
function GetApprovedACHTrans( $pAdmEnv ) {
  $returnInfo = array("code" => "000", "errors" => array(), "data" => array());

  try {
    $achFeatures = "'ACHCOL', 'ACHPMT', 'ACHPYRL', 'TRNEXT'";

    // gotta get them all - Left joins in case user is gone
    $sql = "SELECT id, feature_code, effective_date, u1.user_name AS poster, posted_date,
                   u2.user_name AS approver, approved_date, accountnumber,
                   transactioncode, memo, group_name, (select sum(amount) from {$pAdmEnv["Cu"]}transdtl d where d.transhdr_id = th.id) as amount
            FROM {$pAdmEnv["Cu"]}transhdr th
            LEFT JOIN {$pAdmEnv["Cu"]}user u1 ON u1.user_id = th.posted_by
            LEFT JOIN {$pAdmEnv["Cu"]}user u2 ON u2.user_id = th.approved_by
            INNER JOIN {$pAdmEnv["Cu"]}group g ON g.group_id = u1.group_id
            WHERE approved_status = 10
              AND processed_status IS NULL
              AND feature_code in ($achFeatures)
            ORDER BY effective_date, group_name, feature_code, id";
    $rs = db_query( $sql, $pAdmEnv["dbh"] );
    if ( !$rs ) {
      throw new Exception( "ACH Query Error - getting approved ach txns" );
    }

    // cycle through the rows
    $row = 0;
    $returnData = array();
    while ( $txRow = db_fetch_assoc( $rs, $row++ ) ) {
      // do any data processing
      $timestamp = strtotime( $txRow["effective_date"] );
      $account = trim( $txRow["accountnumber"] );
      $returnData[] = array( "id" => $txRow["id"],
                             "feature" => trim( $txRow["feature_code"] ),
                             "eff_date" => date( "m/d/Y", $timestamp ),
                             "group" => $txRow["group_name"],
                             "account" => $account,
                             "amount" => $txRow["amount"],
                             "memo" => $txRow["memo"]
                           );
    }

    $returnInfo["data"] = $returnData;
  } catch (Exception $ex) {
    $logInfo = array( "error" => $ex->getMessage(), "code" => $ex->getCode() );

    $returnInfo["errors"] = $ex->getMessage();
    $returnInfo["code"] = "999";
  }

  return $returnInfo;
} // end GetApprovedACHTrans

/**
 * GetACHTransDetail
 * Get the detail for the given ACH transaction.
 *
 * @param object $pAdmEnv -- structure with common and environment information
 * @param integer $pTransId -- the transaction to cancel
 *
 * @return
 */
function GetACHTransDetail( $pAdmEnv, $pTransId ) {
  $returnInfo = array("code" => "000", "errors" => array(), "data" => array());

  try {
    // get the necessary header info
    $sql = "SELECT th.feature_code, th.effective_date, th.accountnumber, th.transactioncode,
                   th.memo, g.group_name,
                   (SELECT user_name
                    FROM {$pAdmEnv["Cu"]}user
                    WHERE group_id = u.group_id
                      AND is_group_primary = TRUE
                    LIMIT 1) as group_owner
            FROM {$pAdmEnv["Cu"]}transhdr th
            INNER JOIN {$pAdmEnv["Cu"]}user u ON u.user_id = th.posted_by
            INNER JOIN {$pAdmEnv["Cu"]}group g ON g.group_id = u.group_id
            WHERE id = $pTransId";
    $rs = db_query( $sql, $pAdmEnv["dbh"] );
    if ( !$rs ) {
      throw new Exception( "ACH Query Error - getting ach detail txn header" );
    }

    $headerRow = db_fetch_assoc( $rs, 0 );

    $featureCode = trim( $headerRow["feature_code"] );

    $timestamp = strtotime( $headerRow["effective_date"] );

    $account = trim( $headerRow["accountnumber"] );

    $headerData = array( //"id" => $headerRow["id"],
                         "feature" => $featureCode,
                         "eff_date" => date( "m/d/Y", $timestamp ),
                         "account" => $account,
                         "group_name" => trim( $headerRow["group_name"] ),
                         "group_owner" => trim( $headerRow["group_owner"] ),
                         "memo" => trim( $headerRow["memo"] )
                       );

    // get all the transaction detail
    $sql = "SELECT * FROM {$pAdmEnv["Cu"]}transdtl
            WHERE transhdr_id = $pTransId
            ORDER BY id";
    $rs = db_query( $sql, $pAdmEnv["dbh"] );
    if ( !$rs ) {
      throw new Exception( "ACH Query Error - getting ach txn detail" );
    }

    // where the remote account info is depends on type of ACH
    if ( substr( $headerRow["transactioncode"], 0, 1 ) == 1 ) {
        $whichRemote = "acct_dest";
        $whichLocal = "acct_source";
      } else {
        $whichRemote = "acct_source";
        $whichLocal = "acct_dest";
      }

    // cycle through the rows
    $row = 0;
    $returnDetail = array();
    $localAccount = "";
    while ( $detRow = db_fetch_assoc( $rs, $row++ ) ) {
      // do any data processing
      $transData = HCU_JsonDecode( $detRow["transdata"], true );
      // if don't have it yet, get the local account
      if ( $localAccount == "" ) {
        $localAccount = $transData[$whichLocal];
      }

      // both parts of the account should exist
      $dfiAccount = "{$transData[$whichRemote]["rdfi"]["rdfi_routing"]} / {$transData[$whichRemote]["rdfi"]["rdfi_account"]}";

      $remoteAddress1 = trim( HCU_array_key_value('address1', $transData[$whichRemote]["remote_entity"]) );
      $remoteAddress2 = trim( HCU_array_key_value('address2', $transData[$whichRemote]["remote_entity"]) );
      $remoteAddress = "Not Listed";
      if ( strlen( $remoteAddress1 ) > 0 ) {
        if ( strlen( $remoteAddress2 ) > 0 ) {
          $remoteAddress = "$remoteAddress1 / $remoteAddress2";
        } else {
          $remoteAddress = $remoteAddress1;
        }
      } else if ( strlen( $remoteAddress2 ) ) {
        $remoteAddress = $remoteAddress2;
      }

      $detailData = array( "amount" => $detRow["amount"],
                           "dfi_account" => $dfiAccount,
                           "remote_name" => HCU_array_key_value('name', $transData[$whichRemote]["remote_entity"]),
                           "remote_address" => $remoteAddress,
                           "addenda" => HCU_array_key_value('addenda', $transData[$whichRemote]["rdfi"])
                         );
      $returnDetail[] = $detailData;
    }

    // get the full local account if have the info
    if ( $localAccount != "" && $localAccount != "micro" ) {
      $parts = explode( "|", $localAccount );
      $type = $parts[0] == "D" ? "(Deposit)" : ($type == "L" ? "(Loan)" : "(Unknown)");
      $account = trim( $parts[1] );
      $subAccount = trim( $parts[2] );
      $accountString = trim( "$account - $subAccount $type" );
      $headerData["account"] = $accountString;
    } else if ( $localAccount == "micro" ) {
      $headerData["account"] = "Micro Deposit";
    }

    $returnInfo["data"]["header"] = $headerData;
    $returnInfo["data"]["detail"] = $returnDetail;

  } catch (Exception $ex) {
    $logInfo = array( "error" => $ex->getMessage(), "code" => $ex->getCode() );

    $returnInfo["errors"] = $ex->getMessage();
    $returnInfo["code"] = "999";
  }

  return $returnInfo;
} // end GetACHTransDetail

function BuildFeatureNameLookup( $pDbh ) {
  // get a lookup array for the feature names
  require_once(dirname(__FILE__) . '/../../shared/library/sFeatureMnu.i');
  $result = GetFeatureList( $pDbh );
  // unresolved: check result[code]?
  $menuFeatures = $result["data"];

  // these are the ACH types
  $achFeatureList = array( "ACHCOL" => "Missing menu entry",
                           "ACHPMT" => "Missing menu entry",
                           "ACHPYRL" => "Missing menu entry",
                           "TRNEXT" => "Missing menu entry" );
// Unreasolved: We have more ACH features than menu features. Ach can be used for:
//    payment (single or batch), collection (single or batch), payroll, transfer, micro deposit

  // go through and get display names
  $lookupList = array_keys( $achFeatureList );
  for ( $i = 0; $i < count( $lookupList ); $i++ ) {
    $lookup = $lookupList[$i];
    for ( $m = 0; $m < count( $menuFeatures ); $m++ ) {
      if ( $menuFeatures[$m]["featurecode"] == $lookup ) {
        $achFeatureList[$lookup] = $menuFeatures[$m]["description"];
        break;
      }
    }
  }

  return $achFeatureList;
} // end BuildFeatureNameLookup
/**************** end functions *****************/

/**
 * function PrintActionPage($pAdmEnv, $pAdmVars)
 * Prints out the page that allows selecting of batch items. Prints to the admin screen.
 * Let the user choose which unprocessed ACH transactions to choose and see txn detail. The
 * user can go to a 2nd page to see the result of the batch creation and download the file.
 *
 * @param object $pAdmEnv -- structure with common and environment information
 * @param array $pAdmVars -- the passed parameters for the operation
 */
function PrintActionPage( $pAdmEnv, $pAdmVars ) {
  // get the feature names
  $dbh = $pAdmEnv["dbh"];
  $achFeatureList = BuildFeatureNameLookup( $dbh );

  $self = $pAdmEnv["self"];
  $advPerm = $pAdmEnv["advPerm"];
  ?>
  <script type="text/javascript">
  <?php getShowWaitFunctions(); ?>

  var activeWindows= [];
  var achActionGrid;
  var dsACHHelper;
  var achTransList = [];       // initialize list for display grid
  var cancelDialog;
  var batchDialog;
  var infoDialog;
  var detailWindow;
  var cachedDetailInfo = [];    // cache to accumulate detail
  var lastDetailInfo;           // the last detail requested that needs to be shown
  var window_stack = [];
  var featureList = <?php echo HCU_JsonEncode( $achFeatureList ) ?>;
  var achDetailModel;

  $(document).ready(function() {
    achDetailModel = kendo.observable({
        achFeature: "",
        groupOwner: "",
        groupName: "",
        account: "",
        effDate: "",
        memo: "",
        detail: "[]",
        SetDetail: function( detailInfo ) {
          this.set( "achFeature", ( detailInfo.header.feature in featureList ) ? featureList[detailInfo.header.feature] : 'Unknown' );
          this.set( "groupOwner", detailInfo.header.group_owner );
          this.set( "groupName", detailInfo.header.group_name );
          this.set( "account", detailInfo.header.account );
          this.set( "effDate", detailInfo.header.eff_date );
          this.set( "memo", detailInfo.header.memo );
          this.set( "detail", JSON.stringify( detailInfo.detail ) );
        }
    });

    dsACHHelper = new kendo.data.DataSource({
        autoSync: false,
        batch: false,
        transport: {
          read: {
              url: "<?php echo $self; ?>",
              dataType: "json",
              contentType: "application/x-www-form-urlencoded",
              type: "POST",
              cache: false
          }
        },
        schema: {
          parse: function(response) {
            // not showing data, so return empty array
            var display = [];
            return display;
          }
        },
        requestStart: function( e ) {
          $.homecuValidator.displayMessage( "", $.homecuValidator.settings.statusError );
          showWaitWindow();
        },
        requestEnd: function( e ) {
            var results = null;

            try {
              hideWaitWindow();
              if (e.hasOwnProperty("response")) {
                if (e.response.hasOwnProperty("results")) {
                  var results = e.response.results;
                  if (results.hasOwnProperty("errors")) {
                    e.preventDefault();

                    // during the batching process the email notifications may fail
                    // this should not hold up the whole process,
                    // update the grid and direct user to history to restart the
                    // notifications process.
                    if ( results.hasOwnProperty("data") ) {

                      <?php if ($advPerm) { ?>
                      // data formakebatch
                      if (results.data.hasOwnProperty("achMakeBatch")) {
                        ShowBatchResults( results.data.achMakeBatch.batch_id );
                        // refresh the display
                        GetAvailableACHTxns();
                      }
                      <?php } ?>
                      // data for others (future?)
                    } else {
                      dsACHHelper.cancelChanges();
                    }
                    throw results.errors;
                  } else {
                    if ( results.data ) {
                      if ( results.data.achGetReady ) {
                        ShowAvailableACH( results.data.achGetReady );
                      }
                      if ( results.data.achGetDetail ) {
                        ShowAchDetail( results.data.achGetDetail );
                      }

                      <?php if ($advPerm) { ?>
                      if ( results.data.achCancel ) {
                        HandleCancelResult( results.data.achCancel );
                      }
                      if ( results.data.achMakeBatch ) {
                        ShowBatchResults( results.data.achMakeBatch.batch_id );
                        // refresh the display
                        GetAvailableACHTxns();
                      }
                      <?php } ?>
                    }
                    if (results.info) {
                      // check if any extra info that needs to go into a dialog box.
                      // the notification process can fail if the batch is successful,
                      // show the success message in the popout, put the extra failure info
                      // into a dialog.

                      // splice out success message first
                      var successMsg = results.info.splice(0, 1);
                      $.homecuValidator.displayMessage( successMsg, $.homecuValidator.settings.statusInfo);

                      // build warning dialog content
                      var warningContent = "";
                      for (var i = 0; i < results.info.length; i++) {
                        if (i == 0) {
                          // this is the initial warning, make bold
                          warningContent += "<p><strong>" + results.info[i] + "</strong></p>";
                        } else {
                          // this is the information for the initial warning, regular text
                          warningContent += "<p>" + results.info[i] + "</p>";
                        }
                      }

                      if (warningContent !== "") {
                        // slow down the popup so not everything will happen at the exact same time
                        setTimeout(function() {
                          infoDialog.content(warningContent);
                          infoDialog.center();
                          infoDialog.open();
                        }, 750);
                      }
                    }
                  }
                } else {
                  throw "Unexpected results from server";
                }
              } else {
                throw "Invalid results from server";
              }
            } catch (error) {
              var theMessage;
              if ( error ) {
                theMessage = error.message ? error.message : error;
              } else {
                theMessage = "Unknown server error occurred during the operation";
              }
              $.homecuValidator.displayMessage( theMessage, $.homecuValidator.settings.statusError );
            }
        },

        // code to run if the request fails; the raw request and
        // status codes are passed to the function
        error: function( e ) {
        }
      });

      <?php if ($advPerm) { ?>
      // start disabled and enable when there are selections
      $("#actionsDDL").kendoDropDownList({
            enable: false,
            dataTextField: "name",
            dataValueField: "value",
            dataSource: [{name: "Create ACH Upload File", value: "batch"}, {name: "Cancel Transactions", value: "cancel"}],
            optionLabel: {name: "Choose Action...", value: ""},
            change: function(e) {
                // get the partner information from the server
                var action = this.value();

                if ( action === "cancel" ) {
                  cancelDialog.open().center();
                } else if ( action === "batch" ) {
                  batchDialog.open().center();
                }

                // reset the dropdown
                this.select(0);
              }
            });
      <?php } ?>

      achActionGrid = $("#achActionGrid").kendoGrid({
        dataSource: achTransList,
        sortable: true,
        selectable: "cell",
        noRecords: {
          template: "<div  class='vsgSecondary'>No available ACH transactions were found</div>"
        },
        columns: [
          <?php if ($advPerm) { ?>
          {field: "checked", headerTemplate: "<input type='checkbox' id='checkAllForBatch'>", width: "45px",
           sortable: false,
           template: "<label><input type='checkbox' class='in-batch-checkbox' name='inBatch' value='1'></label>"},
          <?php } ?>
          {field: "eff_date", title: "Effective Date", width: "110px", headerAttributes: { "class": "textAlignCenter"}, attributes: {"class": "textAlignCenter"}},
          {field: "feature", title: "Feature", width: "110px",
            headerAttributes: { "class": "textAlignCenter"}, attributes: {"class": "textAlignCenter"},
            template: "#= ( featureList[feature] === undefined ) ? feature : featureList[feature] #"},
          {field: "group", title: "Group", width: "100px", headerAttributes: { "class": "textAlignCenter"}, attributes: {"class": "textAlignCenter"}},
          {field: "account", title: "Account", width: "130px", headerAttributes: { "class": "textAlignCenter"}, attributes: {"class": "textAlignCenter"}},
          {field: "amount", title: "Amount", width: "110px",
            headerAttributes: { "class": "textAlignRight"}, attributes: {"class": "textAlignRight"},
            template: '#= kendo.toString(amount, "c") #'},
          {field: "memo", title: "Memo"}
        ],
        change: function( e ) {
          e.preventDefault();

          var selectedCell = this.select();
          var selectedRow = selectedCell.closest("tr");
          var cellIndex = selectedCell.index();

          var dataItem = achActionGrid.dataItem(selectedRow);

          if ( cellIndex < 1 ) {

            <?php if ($advPerm) { ?>
            var checkbox = selectedRow.find("td:first input");
            checkbox.prop("checked", !checkbox.prop("checked"));

            // save the checked state for just the one id
            SetAchInBatch( dataItem.id, checkbox.prop("checked") );

            TestActions();
            <?php } ?>
          } else {
            GetAchDetail( dataItem.id );
          }

          selectedCell.removeClass( "k-state-selected" );
        },
        <?php if ($advPerm) { ?>
        dataBound: function( e ) {
          $("#checkAllForBatch").click( function() {
            var state = $("#checkAllForBatch").prop( "checked" );
            $(".in-batch-checkbox").prop( "checked", state );

            // set them all
            SetAchInBatch( 0, state );

            TestActions();
          });

          $(".in-batch-checkbox").click( function(e) {
            var selectedRow = $(e.target).closest("tr");

            var dataItem = achActionGrid.dataItem(selectedRow);

            // just read the value because here the user clicked the box directly
            var checkbox = selectedRow.find("td:first input");

            // save the checked state for just the one id
            SetAchInBatch( dataItem.id, checkbox.prop("checked") );

            TestActions();
          });
        }
        <?php } ?>
      }).data("kendoGrid");

      // set up the tooltips this way so the defaults can be used
      var toolTipProps = homecuTooltip.defaults;
      //this filter selects the 2nd, 3rd, 4th, and 6th column's cells
      toolTipProps.filter = "td:nth-child(3),td:nth-child(4),td:nth-child(5),td:nth-child(7)";
      toolTipProps.position = "top",
      toolTipProps.maxWidth = 400,
      toolTipProps.showAfter = 20,
      toolTipProps.content = function(e) {
          var element = e.target[0];
          if ( element.offsetWidth < element.scrollWidth ) {
            return "<span style='display:block; width:100%;'>" + e.target.text() + "</span>";
          } else {
            return "";
          }
      };
      toolTipProps.show = function(e) {
          if( this.content.text() !== "") {
            $('[role="tooltip"]').css("visibility", "visible");
          }
      };
      toolTipProps.hide = function() {
          $('[role="tooltip"]').css("visibility", "hidden");
      };

      $("#achActionGrid").kendoTooltip(toolTipProps).data("kendoTooltip");

      achDetailGrid = $("#achDetailGrid").kendoGrid({
        dataSource: new kendo.data.DataSource({
          transport: {
            read: function( options ) {
                var data = JSON.parse( achDetailModel.detail )
              options.success(data);
            }
          }
        }),
        sortable: true,
        selectable: false,
        noRecords: {
          template: "<div  class='vsgSecondary'>No available ACH transactions were found</div>"
        },
        columns: [
          {field: "remote_name", title: "Name" },
          {field: "remote_address", title: "Address",
            template: '# if (remote_address == "Not Listed" ) { # <span class="vsgSecondary">#= remote_address #</span> #} else {# #= remote_address # # } #' },
          {field: "amount", title: "Amount", width: "100px",
            headerAttributes: { style: "text-align: center"},
            template: '<div style="text-align:right;">#= kendo.toString(amount, "c") #</div>' },
          {field: "dfi_account", title: "Account" },
          {field: "addenda", title: "Addenda" }
        ]
      }).data("kendoGrid");

      <?php if ($advPerm) { ?>
      infoDialog = $("#infoDialog").kendoDialog({
        title: "ACH Batch Warning",
        modal: true,
        visible: false,
        resizeable: false,
        maxWidth: 750,
        show: function() {
          window_stack.push(function(e) {
            infoDialog.close(e);
          });
        },
        close: function() {
          window_stack.pop();
        },
        actions: [
          { text: "Ok", primary: true,
            action: function(e) {}
          }
        ]
      }).data("kendoDialog");

      cancelDialog = $("#cancelDialog").kendoDialog({
        visible: false,
        title: "Cancel ACH Transactions",
        content: "<p><strong>Continuing will cancel the selected transactions.</strong></p><p>Are you sure you want to continue?</p>",
        show: function(e) {
          // add the close function to the window stack
          window_stack.push(function(e) {
            cancelDialog.close(e);
          });
        },
        close: function(e) {
          // remove the close function from the window stack
          window_stack.pop();
        },
        actions: [{text: "Cancel"},
          {
            text: "Continue",
            action: function(e){
              // get list of txns to cancel
              var list = GetCheckedTxns();
              CancelACHTxns( list );

              // Returning false will prevent the closing of the dialog
              return true;
            },
            primary: true
          }]
      }).data("kendoDialog");

      batchDialog = $("#batchDialog").kendoDialog({
        visible: false,
        title: "Create ACH Upload File",
        content: "<p><strong>Continuing will place all the selected transactions into a single ACH upload file.</strong></p><p>Are you sure you want to continue?</p>",
        show: function(e) {
          // add the close function to the window stack
          window_stack.push(function(e) {
            batchDialog.close(e);
          });
        },
        close: function(e) {
          // remove the close function from the window stack
          window_stack.pop();
        },
        actions: [{text: "Cancel"},
          {
            text: "Continue",
            action: function(e){
              // get list of txns to cancel
              var list = GetCheckedTxns();
              BatchACHTxns( list );

              // Returning false will prevent the closing of the dialog
              return true;
            },
            primary: true
          }]
      }).data("kendoDialog");
      <?php } ?>

      detailWindow = $("#achDetailWindow").kendoWindow({
        modal: true,
        visible: false,
        resizable: false,
        minWidth: 300,
        maxWidth: 768,
        maxHeight: 900,
        title: "ACH Transaction Details",
        activate: function(e) {
          // add the close function to the window stack
          window_stack.push(function(e) {
            detailWindow.close(e);
          });

          $("#detailClose").click( function() {
            detailWindow.close();
          } );

          // bind the edit model to the template
          kendo.bind($("#achDetailWindow"), achDetailModel);

        },
        open: function(e) {
          this.wrapper.css({ top: 100 });

          // refresh the grid
          achDetailGrid.dataSource.read();
        },
        close: function(e) {
          // remove the close function from the window stack
          window_stack.pop();
        }
      }).data("kendoWindow");

    // set up the validator
    $.homecuValidator.setup({formErrorTitle: "Error Occured", formStatusField: "formACHStatus"});

    // read the initial data
    GetAvailableACHTxns();

    // Handle clicking on the overlay
    $(document).on("click", ".k-overlay", function (e) {
      if(window_stack.length > 0) {
        // get the close function from the stack, without poping it (the close will pop it)
        var fn = window_stack[window_stack.length - 1];
        var ret = fn(e);
      }
    });

  });  // end ready function

  <?php if ($advPerm) { ?>
  function SetAchInBatch( id, state ) {
    for ( var i = 0; i < achTransList.length; i++ ) {
      if ( achTransList[i].id == id || id == 0 ) {
        achTransList[i].inBatch = state;

        if ( id > 0 ) {
          break;
        }
      }
    }
  } // end SetAchInBatch

  function GetCheckedTxns() {
    var checkedTxns = [];
    for ( var i = 0; i < achTransList.length; i++ ) {
      if ( achTransList[i].inBatch ) {
        checkedTxns.push( achTransList[i].id * 1 );
      }
    }

    return checkedTxns.toString();
  }

  function TestActions() {
    // test if any checked
    var checked = false;
    $(".in-batch-checkbox").each( function() {
      var state = $(this).prop( "checked" );
      if ( state ) {
        checked = true;
        return false;
      }
    });

    var dropdownlist = $("#actionsDDL").data("kendoDropDownList");
    dropdownlist.enable(checked);
  } // end TestActions
  <?php } ?>

  function GetAvailableACHTxns() {
    var request = { operation: "achGetReady" };

    dsACHHelper.read( request );
  }

  <?php if ($advPerm) { ?>
  function CancelACHTxns( list ) {
    if ( list.length > 0 ) {
      var request = { operation: "achCancel", trans_list: list };

      dsACHHelper.read( request );
    }
  }
  function BatchACHTxns( list ) {
    if ( list.length > 0 ) {
      var request = { operation: "achMakeBatch", trans_list: list };

      dsACHHelper.read( request );
    }
  }
  <?php } ?>

  function GetAchDetail( id ) {
    // see if the detail is in the cache
    var foundInCache = false;
    for ( var i = 0; i < cachedDetailInfo.length; i++ ) {
      if ( cachedDetailInfo[i].header.id == id ) {
        lastDetailInfo = cachedDetailInfo[i];
        foundInCache = true;
        detailWindow.open().center();
        break;
      }
    }

    if ( !foundInCache ) {
      // get from server
      var request = { operation: "achGetDetail", trans_id: id };

      dsACHHelper.read( request );
    }
  }
  function ShowAchDetail( detailInfo ) {
    // save the detail info in a "cache"
    cachedDetailInfo.push( detailInfo );

    achDetailModel.SetDetail( detailInfo );

    // update the datasource


    detailWindow.open().center();
  }

  function ShowAvailableACH( achList ) {
    achTransList = [];
    for ( var i = 0; i < achList.length; i++ ) {
      var newObject = {id: achList[i].id,
                       account: achList[i].account,
                       amount: achList[i].amount * 1,
                       eff_date: achList[i].eff_date,
                       feature: achList[i].feature,
                       group: achList[i].group,
                       memo: achList[i].memo,
                       inBatch: false,
                       cancel: false};

      achTransList.push( newObject );
    }

    achActionGrid.dataSource.data(achTransList);


  } // end ShowAvailableACH

  <?php if ($advPerm) { ?>
  function HandleCancelResult( idString ) {
    var idList = idString.split( "," );

    // remove all txns in list from array
    var tempTransList = [];
    for ( var i = 0; i < achTransList.length; i++ ) {
      var index = idList.indexOf( achTransList[i].id );
      if ( index < 0 ) {
        tempTransList.push( achTransList[i] );
      }
    }

    achTransList = tempTransList;

    // update the grid
    var grid = $('#achActionGrid').data("kendoGrid");
    grid.dataSource.data(achTransList);

    // clear the checkbox
    $("#checkAllForBatch").prop( "checked", false );

    // re-disable the action drop-down list
    var dropdownlist = $("#actionsDDL").data("kendoDropDownList");
    dropdownlist.enable(false);
  }
  <?php } ?>

  function ShowBatchResults( batchId ) {
    if ( batchId.length > 0 ) {
      $("#achBatchId").val( batchId );
      $("#achBatchOperation").attr( "name", "page" );
      $("#achBatchOperation").val( "ach_show_report" );
      $("#achBatchDownload").val( "download" );
      $("#achPostForm").attr( "action", "<?php echo $pAdmEnv["menu_link"] ?>?ft=101" );
      $("#achPostForm").attr( "target", "achreport" );
      $("#achPostForm").submit();
    } else {
      // an error must have happened
    }

    // re-disable the action drop-down list
    var dropdownlist = $("#actionsDDL").data("kendoDropDownList");
    dropdownlist.enable(false);
  } // end ShowBatchResults

  </script>
  <?php PrintCommonStyle() ?>
  <style>
    #achBody .k-grid td {
      white-space: nowrap;
      text-overflow: ellipsis;
    }
    #achBody .k-grid .k-grid-content tr:hover {
      cursor: pointer;
    }
    .hcu-scrolling-dialog {
      overflow-y: auto;
    }
  </style>
    <div id="achDetailWindow" class="container-fluid hcu-scrolling-dialog" style="display:none;">
      <div class="h4"><div data-bind="text: achFeature" ></div></div>
      <div class="form-horizontal well well-sm">
        <div class="row">
          <div class="col-xs-3"><label>Group Owner</label></div>
          <div class="col-xs-9"><div data-bind="text: groupOwner" class="vsgSecondary"></div></div>
        </div>
        <div class="row">
          <div class="col-xs-3"><label>Group Name</label></div>
          <div class="col-xs-9"><div data-bind="text: groupName" class="vsgSecondary"></div></div>
        </div>
        <div class="row">
          <div class="col-xs-3"><label>Account</label></div>
          <div class="col-xs-9"><div data-bind="text: account" class="vsgSecondary"></div></div>
        </div>
        <div class="row">
          <div class="col-xs-3"><label>Effective Date</label></div>
          <div class="col-xs-9"><div data-bind="text: effDate" class="vsgSecondary"></div></div>
        </div>
        <div class="row">
          <div class="col-xs-3"><label>Memo</label></div>
          <div class="col-xs-9"><div data-bind="text: memo" class="vsgSecondary"></div></div>
        </div>
        <div id="achDetailGrid"></div>
      </div>
      <div class="hcu-template">
        <div class="hcu-edit-buttons k-state-default">
          <span class="hcu-icon-delete">
          </span>
          <a id="detailClose" style="cursor: pointer;" >Close</a>
        </div>
      </div>
    </div>
  <form id="achPostForm" method="post">
    <input type="hidden" id="achBatchId" name="batch_id" value="">
    <input type="hidden" id="achBatchOperation" name="operation" value="">
    <input type="hidden" id="achBatchDownload" name="download" value="">
  </form>

  <div id="cancelDialog"></div>
  <div id="batchDialog"></div>
  <div id="infoDialog"></div>
  <div id="achBody" class="container-fluid">
    <div id="formACHStatus" class="homecu-formStatus k-block k-error-colored" style="display:none;"></div>
    <br>
    <div class="form-horizontal well well-sm">
      <div class="row">
        <div class="col-xs-12"><h2>ACH Actions</h2></div>
      </div>
      <?php if ($advPerm) { ?>
      <div class="row">
        <div class="col-xs-3">&nbsp;</div>
        <div class="col-xs-3"><input id="actionsDDL" class="hcu-all-100"></div>
      </div>
      <div class="row">
        <div class="col-xs-12 ">&nbsp;</div>
      </div>
      <div class="row">
        <div class="col-xs-12 small vsgSecondary">A new ACH upload file report will automatically display in a new window. Make sure pop-ups are allowed for this website.</div>
      </div>
      <div class="row">
        <div class="col-xs-12 small vsgSecondary">Please check NACHA guidelines for specific timing requirements.</div>
      </div>
      <?php } else { ?>
      <div class="row">
        <div class="col-xs-12 small vsgSecondary">You have basic permissions.  Creating an ACH file or canceling transactions is not available to you.</div>
      </div>
      <?php } ?>
      <div class="row">
          <div class="col-xs-12"><div id="achActionGrid"></div></div>
      </div>
    </div>
  </div>
<?php

} // end PrintActionPage

/**
 * function PrintMainPage( $pAdmEnv, $pAdmVars)
 * Prints out the main page to the admin screen. Show ACH batch history. User can select one to
 * see the batch detail. Also links to download the ACH file or show the ACH report for any given
 * batch.
 *
 * @param object $pAdmEnv -- structure with common and environment information
 * @param array $pAdmVars -- the passed parameters for the operation
 */
function PrintMainPage( $pAdmEnv, $pAdmVars ) {
  // get the feature names
  $achFeatureList = BuildFeatureNameLookup( $pAdmEnv["dbh"] );

  $self = $pAdmEnv["self"];
  $advPerm = $pAdmEnv["advPerm"];
  ?>
  <script type="text/javascript">
  <?php getShowWaitFunctions(); ?>

  var activeWindows = [];
  var achHistoryGrid;
  var achBatchItemGrid;
  var dsACHHelper;
  var achBatchList = [];       // initialize list for display grid
  var achBatchItems = [];      // for batch detail grid
  var achCurrSelectedBatchItem;
  var cancelDialog;
  var batchDetailWindow;
  var cachedDetailInfo = [];    // cache to accumulate detail
  var lastDetailInfo;           // the last detail requested that needs to be shown
  var window_stack = [];
  var featureList = <?php echo HCU_JsonEncode( $achFeatureList ) ?>;
  var commercialAccess = <?php echo $pAdmEnv['commercialAccess'] == 1 ? "true" : "false"; ?>;
  var removeFromBatchAllowed = false;
  var removeConfirm;

  $(document).ready(function() {
    dsACHHelper = new kendo.data.DataSource({
        autoSync: false,
        batch: false,
        transport: {
          read: {
              url: "<?php echo $self; ?>",
              dataType: "json",
              contentType: "application/x-www-form-urlencoded",
              type: "POST",
              cache: false
          }
        },
        schema: {
          parse: function(response) {
            // not showing data, so return empty array
            var display = [];
            return display;
          }
        },
        requestStart: function( e ) {
          $.homecuValidator.displayMessage( "", $.homecuValidator.settings.statusError );
          showWaitWindow();
        },
        requestEnd: function( e ) {
            var results = null;

            try {
              hideWaitWindow();
              if (e.hasOwnProperty("response")) {
                if (e.response.hasOwnProperty("results")) {
                  var results = e.response.results;
                  if (results.hasOwnProperty("errors")) {
                    e.preventDefault();
                    dsACHHelper.cancelChanges();
                    throw results.errors;
                  } else {
                    if ( results.data ) {
                      if ( results.data.achRemoveBatchTransactions ) {
                        UpdateACHResults( results.data.achRemoveBatchTransactions, "achRemove" );
                        batchDetailWindow.close();
                      }
                      if ( results.data.achSendNotifications ) {
                        UpdateACHResults( results.data.achSendNotifications, "achNotify" );
                      }
                      if ( results.data.achGetBatches ) {
                        ShowACHBatches( results.data.achGetBatches );
                      }
                      if ( results.data.achCreateFile ) {
                        UpdateACHResults( results.data.achCreateFile, "achFile" );
                      }
                      if ( results.data.achGetBatchDetail ) {
                        ShowACHBatchDetail( results.data.achGetBatchDetail );
                      }
                    }
                    if (results.info) {
                      // check if any extra info that needs to go into a dialog box.
                      // the notification process can fail if the batch is successful,
                      // show the success message in the popout, put the extra failure info
                      // into a dialog.

                      // splice out success message first
                      var successMsg = results.info.splice(0, 1);
                      $.homecuValidator.displayMessage( successMsg, $.homecuValidator.settings.statusInfo);

                      // build warning dialog content
                      var warningContent = "";
                      for (var i = 0; i < results.info.length; i++) {
                        if (i == 0) {
                          // this is the initial warning, make bold
                          warningContent += "<p><strong>" + results.info[i] + "</strong></p>";
                        } else {
                          // this is the information for the initial warning, regular text
                          warningContent += "<p>" + results.info[i] + "</p>";
                        }
                      }

                      if (warningContent !== "") {
                        // slow down the popup so not everything will happen at the exact same time
                        setTimeout(function() {
                          infoDialog.content(warningContent);
                          infoDialog.center();
                          infoDialog.open();
                        }, 750);
                      }
                    }
                  }
                } else {
                  throw "Unexpected results from server";
                }
              } else {
                throw "Invalid results from server";
              }
            } catch (error) {
              var theMessage;
              if ( error ) {
                theMessage = error.message ? error.message : error;
              } else {
                theMessage = "Unknown server error occurred during the operation";
              }
              $.homecuValidator.displayMessage( theMessage, $.homecuValidator.settings.statusError );
            }
        },

        // code to run if the request fails; the raw request and
        // status codes are passed to the function
        error: function( e ) {
        }
      });

    achHistoryGrid = $("#achHistoryGrid").kendoGrid({
      dataSource: achBatchList,
      pageable: {
        pageSize: 20
      },
      sortable: true,
      selectable: "cell",
      noRecords: {
        template: "<div  class='vsgSecondary'>No available ACH upload files were found</div>"
      },
      columns: [
        {field: "batch_time", title: "Processed Date", width: "120px"},
        {field: "processed_by", title: "Processed By", width: "120px"},
        {field: "count", title: "Item Count", width: "70px"},
        <?php if ($advPerm) { ?>
        {title: "", template: "<div class='fa #= ((hasACHFile) ? 'fa-download' : 'fa-gears')#'></div>", width: "20px"},
        <?php } ?>
        {title: "", template: "<div class='fa fa-file-text-o' #= ((!hasACHReport) ? 'style=\"opacity: 0.38;\"' : '')#></div>", width: "20px"},
        <?php if ($advPerm) { ?>
        {title: "", template: "<div class='fa fa-envelope' #= ((!showSendNotify) ? 'style=\"opacity: 0.38;\"' : 'style=\"color: \\#f0ad4e;\"')#></div>",
          width: "20px", hidden: !commercialAccess}
        <?php } ?>
      ],
      change: function( e ) {
        e.preventDefault();
        var selectedCell = this.select();
        var cellIndex = selectedCell[0].cellIndex;
        var selectedRow = selectedCell.closest("tr");

        // save the batch id for later use
        achCurrSelectedBatchItem = achHistoryGrid.dataItem(selectedRow);

        switch(cellIndex) {
          <?php if ($advPerm) { ?>
          case 3:
            if ( achCurrSelectedBatchItem.hasACHFile ) {
              // download with a form post so browser handles the file save
              // set the batch id
              $("#achBatchId").val( achCurrSelectedBatchItem.batch_id );
              $("#achBatchOperation").attr( "name", "operation" );
              $("#achPostForm").attr( "action", "<?php echo $pAdmEnv["self"] ?>" );
              $("#achPostForm").attr( "target", "" );
              $("#achBatchOperation").val( "ach_download_file" );
              $("#achPostForm").submit();
            } else {
              // create it via ajax
              CreateACHFile( achCurrSelectedBatchItem.batch_id );
            }
            break;
          case 5:
            // only allow click if the process status is 20
            // this mean the batch has been created and the batch file exists
            // have not been sent for some reason.
            if ( achCurrSelectedBatchItem.showSendNotify ) {
              SendNotifications( achCurrSelectedBatchItem.batch_id );
            }
            break;
          case 4:
          <?php } else { ?>
          case 3:
          <?php } ?>
            // viewing ach report - make sure report exists
            if ( achCurrSelectedBatchItem.hasACHReport ) {
              // open new window to see the report
              $("#achBatchId").val( achCurrSelectedBatchItem.batch_id );
              $("#achBatchOperation").attr( "name", "page" );
              $("#achBatchOperation").val( "ach_show_report" );
              $("#achPostForm").attr( "action", "<?php echo $pAdmEnv["menu_link"] ?>?ft=101" );
              $("#achPostForm").attr( "target", "achreport" );
              $("#achPostForm").submit();
            }
            break;
          default:
          // get batch detail
          GetBatchDetail( achCurrSelectedBatchItem.batch_id );
          break;
        }

        selectedCell.removeClass( "k-state-selected" );
      },
      dataBound: function( e ) {

      }
    }).data("kendoGrid");

    // set up the grid
    achBatchItemGrid = $("#achBatchItemGrid").kendoGrid({
      dataSource: new kendo.data.DataSource({
        transport: {
          read: function( options ) {
              var data = achBatchItems;
            options.success(data);
          }
        }
      }),
      sortable: true,
      selectable: "row",
      noRecords: {
        template: "<div  class='vsgSecondary'>No available ACH transactions were found</div>"
      },
      columns: [
        <?php if ($advPerm) { ?>
        {field: "remove", title: "Remove", width: "30px",
          sortable: false,
          template: "<input type=\"checkbox\" onclick=\"SelectRemove(this);\">",
          headerTemplate: "<input type=\"checkbox\" onclick=\"SelectRemoveAll(this);\">"
        },
        <?php } ?>
        {field: "group", title: "Group" },
        {field: "feature", title: "Type",
            template: "#= ( featureList[feature] === undefined ) ? feature : featureList[feature] #"},
        {field: "amount", title: "Amount" },
        {field: "account", title: "Account" },
        {field: "memo", title: "Memo" }
      ],
      change: function(e) {
        e.preventDefault();

        var selectedRow = this.select();
        <?php
        // this is part of the remove transactions from batch
        // feature. only users with advanced permissions are allowed.
        if ($advPerm) { ?>
          if (removeFromBatchAllowed) {
            var selectedInput = this.select().find("td:eq(0) input[type=\"checkbox\"]");
            selectedInput.click();
          }
        <?php } ?>

        selectedRow.removeClass( "k-state-selected" );
      },
      dataBound: function( e ) {
        // because the sort re-binds all data, we must reset the checkboxes
        // and disable the remove button
        this.wrapper.find("input[type=\"checkbox\"]").each(function(e) {
          $(this).prop("checked", false);
        });
      }
    }).data("kendoGrid");

    batchDetailWindow = $("#batchItems").kendoWindow({
      modal: true,
      visible: false,
      resizable: false,
      minWidth: 300,
      maxWidth: 768,
      maxHeight: 900,
      title: "ACH Upload File Details.",
      activate: function(e) {
        // add the close function to the window stack
        window_stack.push(function(e) {
          batchDetailWindow.close(e);
        });

        // setup validator to show in this window
        $.homecuValidator.setup({
          formStatusField: "batchItemForm"
        });

        $("#lnkRemove").off();
        $("#lnkRemove").click( function() {
          // this is part of the remove transactions from batch
          // feature. only master users are allowed.
          var transListRemove = GetSelectedTransactions();
          <?php if ($advPerm) { ?>
            if (transListRemove != "") {
              removeConfirm.open();
            }
          <?php } ?>
        } );

        $("#batchItemsClose").off();
        $("#batchItemsClose").click(function(e) {
          // close window
          batchDetailWindow.close();
        });

        // set the title
        this.title( "ACH Upload File Details: " + achCurrSelectedBatchItem.batch_time );
      },
      open: function(e) {
        this.wrapper.css({ top: 100 });

        // refresh the grid
        achBatchItemGrid.dataSource.read();

        <?php if ($advPerm) { ?>
          if (removeFromBatchAllowed) {
            achBatchItemGrid.showColumn(0);
            $("#removeTranSecondaryText").show();
            $("#lnkRemove").show();
          } else {
            achBatchItemGrid.hideColumn(0);
            $("#removeTranSecondaryText").hide();
            $("#lnkRemove").hide();
          }
        <?php } ?>
      },
      close: function(e) {
        //disable link
        $("#lnkRemove").addClass("vsgDisabled");

        // remove the close function from the window stack
        window_stack.pop();

        $.homecuValidator.setup({
          formStatusField: "formACHStatus"
        });
      }
    }).data("kendoWindow");

    <?php if ($advPerm) { ?>
    removeConfirm = $("#removeConfirmDialog").kendoDialog({
      title: "Remove Transactions",
      content: $("#removeConfirmDialogTemplate").html(),
      minWidth: 300,
      maxWidth: 500,
      visible: false,
      resizable: false,
      open: function(e) {
        window_stack.push(function(e) {
          removeConfirm.close(e);
        });
      },
      close: function(e) {
        window_stack.pop();
      },
      actions: [
        { text: "No",
          action: function(e) {  }
        },
        { text: "Yes", primary: true,
          action: RemoveTransactions
        }
      ]
    }).data("kendoDialog");
    <?php } ?>

    infoDialog = $("#infoDialog").kendoDialog({
      title: "ACH Batch Warning",
      modal: true,
      visible: false,
      resizeable: false,
      maxWidth: 750,
      show: function() {
        window_stack.push(function(e) {
          infoDialog.close(e);
        });
      },
      close: function() {
        window_stack.pop();
      },
      actions: [
        { text: "Ok", primary: true,
          action: function(e) {}
        }
      ]
    }).data("kendoDialog");

    // get the completed batches
    GetACHBatches();

    // Handle clicking on the overlay
    $(document).on("click", ".k-overlay", function (e) {
      if(window_stack.length > 0) {
        // get the close function from the stack, without poping it (the close will pop it)
        var fn = window_stack[window_stack.length - 1];
        var ret = fn(e);
      }
    });

  });  // end ready function

  function GetSelectedTransactions() {
    var transListRemove = "";

    achBatchItemGrid.wrapper.find("tbody tr").each(function(e, i) {
      var isChecked = $(this).find("td:eq(0) input").prop("checked");
      var dataItem = achBatchItemGrid.dataItem(i);
      if (isChecked) {
        transListRemove += dataItem.id;
        transListRemove += ",";
      }
    });

    transListRemove = transListRemove.replace(/(,$)/g, '');
    transListRemove = transListRemove.trim();
    return transListRemove;
  }

  function RemoveTransactions() {
    var batchId = achCurrSelectedBatchItem.batch_id;
    var transListRemove = GetSelectedTransactions();

    var request = {
      operation: "achRemoveBatchTransactions",
      batch_id: batchId,
      trans_list: transListRemove
    };

    dsACHHelper.read( request );

  }

  function SelectRemoveAll(e) {
    var input = $(e);
    var inputChecked = input.prop("checked");

    achBatchItemGrid.wrapper.find("tbody tr").each(function(e) {
      $(this).find("td:eq(0) input[type=\"checkbox\"]").prop("checked", inputChecked);
    });

    if (inputChecked) {
      $("#lnkRemove").removeClass("vsgDisabled");
    } else {
      $("#lnkRemove").addClass("vsgDisabled");
    }
  }

  function SelectRemove(e) {
    // get header input
    var headerInput = achBatchItemGrid.wrapper.find("thead tr th:eq(0) input[type=\"checkbox\"]");
    var headerChecked = headerInput.prop("checked");

    // get number of total records and number of total checked records
    var numRows = numChecked = 0;
    achBatchItemGrid.wrapper.find("tbody tr").each(function(e) {
      var isChecked = $(this).find("td:eq(0) input[type=\"checkbox\"]").prop("checked");

      if (isChecked) {
        numChecked ++;
      }
      numRows ++;
    });

    // set header checkbox based on all rwos checked
    if (numChecked == numRows) {
      headerInput.prop("checked", true);
    } else {
      headerInput.prop("checked", false);
    }

    if (numChecked > 0) {
      $("#lnkRemove").removeClass("vsgDisabled");
    } else {
      $("#lnkRemove").addClass("vsgDisabled");
    }
  }

  function GetACHBatches() {
    var request = { operation: "achGetBatches" };

    dsACHHelper.read( request );
  }

  function ShowACHBatches( achList ) {
    achBatchList = [];
    for ( var i = 0; i < achList.length; i++ ) {
      // the user may only resend notificaiton emails IF:
      // 1: the credit union has ACH features set up for the banking menu
      // 2: the ach batch file was successfully created
      // 3: the ach batch process status is 20: another check meaning the batch
      //    file has been created successfully.
      var setShowSendNotify =
        (achList[i].notify > 0) &&
        (achList[i].has_ach_file);

      var newObject = {batch_id: achList[i].batch_id,
                       count: achList[i].count,
                       processed_by: achList[i].processed_by,
                       batch_time: achList[i].display,
                       hasACHFile: achList[i].has_ach_file,
                       hasACHReport: achList[i].has_ach_report,
                       showSendNotify: setShowSendNotify
                      };
      achBatchList.push( newObject );
    }

    achHistoryGrid.dataSource.data(achBatchList);

  } // end ShowACHBatches
  function GetBatchDetail( id ) {
    var request = { operation: "achGetBatchDetail", batch_id: id };

    dsACHHelper.read( request );
  }
  function ShowACHBatchDetail( batchData ) {
    achBatchItems = batchData.records;
    removeFromBatchAllowed = batchData.removeFromBatchAllowed;

    // open the window and show all the data
    batchDetailWindow.open().center();

  } // end ShowACHBatches

  <?php if ($advPerm) { ?>
  function CreateACHFile( id ) {
    var request = { operation: "achCreateFile", batch_id: id };

    dsACHHelper.read( request );
  } // end CreateACHFile
  function UpdateACHResults( data, updateType ) {
    // if we got here there was no error
    var batchId = data.hasOwnProperty("batch_id") ? data.batch_id : "";
    var batchRecord = data.hasOwnProperty("batch_record") ? data.batch_record : [];

    var removeIndex = -1;
    for ( var i = 0; i < achBatchList.length; i++ ) {
      if ( achBatchList[i].batch_id == batchId ) {
        // This needs to be updated to use the
        // batchRecord. It will require changes
        // the server code.
        if ( updateType == "achNotify" ) {
          achBatchList[i].showSendNotify = false;
          achBatchList[i].notify = 0;
        }

        if ( updateType == "achRemove" || updateType == "achFile" ) {
          // batchRecord is empty array if all transactions
          // were removed. Remove this record from the grid.
          if (batchRecord.length == 0) {
            achBatchList.splice(i, 1);
            break;
          }

          // If record is not removed, update data
          achBatchList[i].count = batchRecord.count;
          achBatchList[i].notify = batchRecord.notify;
          achBatchList[i].hasACHFile = batchRecord.has_ach_file;
          achBatchList[i].hasACHReport = batchRecord.has_ach_report;
          achBatchList[i].showSendNotify = batchRecord.notify > 0;
        }
      }
    }

    achHistoryGrid.dataSource.data(achBatchList);
  } // end UpdateACHResults

  function SendNotifications( id ) {
    var request = { operation: "achSendNotifications", batch_id: id };

    dsACHHelper.read( request );
  }
  <?php } ?>

  </script>
  <?php PrintCommonStyle() ?>
  <style>
    #achBody .k-grid td {
      white-space: nowrap;
      text-overflow: ellipsis;
    }
    #achBody .k-grid .k-grid-content tr:hover {
      cursor: pointer;
    }
    .hcu-scrolling-dialog {
      overflow-y: auto;
    }
  </style>
  <?php if ($advPerm) { ?>
  <script type="text/template" id="removeConfirmDialogTemplate">
    <div>
      <p>
        <strong>
        You are about to remove these transactions from this ACH upload file.<br><br>
        This action cannot be undone. If you have already successfully submitted the ACH upload file you should not be doing this.<br><br>
        New ACH upload and report files will be generated automatically.
        </strong>
      </p>
      <p>Do you wish to continue?</p>
    </div>
  </script>
  <?php } ?>
    <div id="infoDialog"></div>
    <?php if ($advPerm) { ?>
    <div id="removeConfirmDialog"></div>
    <?php } ?>
    <div id="batchItems" class="container-fluid hcu-scrolling-dialog">
      <div id="batchItemForm"></div>
      <div class="row">
        <div class="col-xs-12 hcu-secondary">
          <?php if ($advPerm) { ?>
          <div class="small vsgSecondary" id="removeTranSecondaryText">
            <span>To remove transactions from this ACH upload file, use the checkboxes to select the records you wish to remove and click "Remove" below.</span>
          </div>
          <?php } ?>
        </div>
      </div>
      <div id="achBatchItemGrid"></div>
      <div class="hcu-template">
        <div class="hcu-edit-buttons k-state-default">
          <?php if ($advPerm) { ?>
          <span class="hcu-icon-delete">
            <a href="#" id="lnkRemove" class="vsgDisabled">Remove</a>
          </span>
          <?php } ?>
          <button href="##" id="batchItemsClose" class="k-button k-primary">
            Close
          </button>
        </div>
      </div>
    </div>
  <form id="achPostForm" action="<?php echo $self; ?>" method="post">
    <input type="hidden" id="achBatchId" name="batch_id" value="">
    <input type="hidden" id="achBatchOperation" name="operation" value="ach_create_file">
    <input type="hidden" name="download_type" value="ach">
  </form>
  <div id="achBody" class="container-fluid">
    <div id="formACHStatus" class="homecu-formStatus k-block k-error-colored" style="display:none;"></div>
    <br>

    <div class="form-horizontal well well-sm">
      <div class="row">
        <div class="col-xs-12"><h2>ACH History</h2></div>
      </div>
      <div class="row">
        <div class="col-xs-12 hcu-secondary">
          <div class="small vsgSecondary">Click row to see detail.</div>
          <!-- only show this label if credit union has access to commercial ach -->
          <?php if ($advPerm) { ?>
          <?php if ($pAdmEnv['commercialAccess']): ?>
          <div class="small vsgSecondary">Click the <span class="fa fa-envelope" style="color: #f0ad4e;"></span> to restart the email notification process.</div>
          <?php endif; ?>
          <?php } else { ?>
          <div class="small vsgSecondary">You have basic permissions.  The downloading and resending email actions are not available to you.</div>
          <?php } ?>
        </div>
      </div>
      <div class="row">
          <div class="col-xs-12"><div id="achHistoryGrid"></div></div>
      </div>
  <?php
    if ( getenv( "DEVMODE" ) == 1 ) {
      ?>
      <style>
        div.k-dropzone em {
          visibility: visible;
        }
      </style>
      <div class="k-block" style="margin: 1em; border: 5px ridge lightblue; border-radius: 10px;">
        <div style="margin:2px;">ACH File Validator (developer tool)</div>
        <form method="post" action="<?php echo $self; ?>" >
          <input type="hidden" name="page" value="validate">
            <div class="demo-section k-content">
                <input name="achFile" id="files" type="file" />
                <label>Show Raw File Output <input type="checkbox" name="show_raw" id="show_raw" /></label>
                <p style="text-align: right">
                    <input type="submit" value="Submit" class="k-button k-primary" />
                </p>
            </div>
        </form>
      </div>
      <script>
          $(document).ready(function() {
              $("#files").kendoUpload({
                multiple: false,
                validation: {
                  allowedExtensions: [".ACH", ".ach", ".txt"],
                },
                localization: {
                       select: 'Select File To Upload',
                       remove: '',
                       cancel: ''
                   }
              });
          });
      </script>
      <?php
    }
  ?>
    </div>
  </div>
<?php

} // end PrintMainPage


/**
 * function PrintAchReport( $pAdmEnv, $pAdmVars )
 * This prints out the report page. It is inteneded to be a stand-alone page with limited interaction
 * with the rest of admin. User closes to be done with it. Print and Download are the other two choices.
 *
 * @param object $pAdmEnv -- structure with common and environment information
 * @param array $pAdmVars -- the passed parameters for the operation
 */
function PrintAchReport( $pAdmEnv, $pAdmVars ) {
  try {
    // read the ach report file
    $cu = strtolower( $pAdmEnv["Cu"] );
    $advPerm = $pAdmEnv["advPerm"];

    $payloadInfo = HCU_PayloadDecode( $pAdmEnv["Cu"], $pAdmVars["batch_id"] );

    // use the batch timestamp to figure out the creation date/time and filename
    $myDateTime = new DateTime( $payloadInfo["batch_date"] );

    // convert to local time for the filename
    $tz = GetCreditUnionTimezone( $pAdmEnv["dbh"], $pAdmEnv["Cu"] );

    $myDateTime->setTimezone(new DateTimeZone($tz));
    $batchDay = $myDateTime->format("ymd");
    $batchHour = $myDateTime->format("His");
    $batchPreName = "Batch";
    $batchPath = "/home/{$cu}/admin/ach/";

    $achFileName = "{$batchPreName}_{$batchDay}_{$batchHour}.txt";

    // check file exists
    if (!file_exists("{$batchPath}{$achFileName}")) {
      ShowErrorPage( "Unable to find ACH report file" );
      exit;
    }

    // get the file
    $fileString = file_get_contents( "{$batchPath}{$achFileName}" );
    if ( $fileString === false ) {
      ShowErrorPage( "Unable to find ACH report file" );
      exit;
    }

  } catch (Exception $ex) {
    ShowErrorPage( "Unexpected error trying to show ACH report: {$ex->getMessage()}" );
  }

?>
  <html>
    <head>
      <title><?php echo $achFileName ?></title>
<?php
      // add the include files to get the environment
      setIncludeFiles(false, false, GetAdminDefaultKendoStyle(), false, $pAdmEnv);

?>
    </head>
    <style>
      @media print {
        .ach-report-body {
          background-color: white;
          overflow: hidden;
        }
        .ach-report-wrapper {
          margin: 1em;
          overflow: hidden;
        }
        .ach-pre-scrollable pre {
          background-color: white;
          border: none;
          page-break-inside: auto;
        }
      }
      @media screen {
        .ach-report-body {
          background-color: white;
          overflow: hidden;
        }
        .ach-report-wrapper {
          margin: 1em;
          overflow: hidden;
        }
        .ach-pre-scrollable {
          overflow: auto;
          -ms-word-wrap: normal;
          word-wrap: normal;
          overflow-wrap: normal;
          white-space: pre;
          max-height: 90%;
          height: 90%;
        }
        .ach-pre-scrollable pre {
          background-color: white;
          margin-bottom: 4em;
        }
      }
    </style>
  <body class="ach-report-body">
  <script type="text/javascript">
    $(document).ready(function() {
      $("#printReport").click(function() {
        window.print();
      });
      $("#closeReport").click(function() {
        window.close();
      });
      <?php if ($advPerm) { ?>
      $("#downloadReport").click(function() {
        $("#achReportForm").submit();
      });
      <?php } ?>
<?php
      if ( isset( $pAdmVars["download"] ) && $pAdmVars["download"] == "download" ) {
?>
        $("#achPostForm").submit();
<?php
      }
?>
    });
  </script>
  <?php if ($advPerm) { ?>
  <form id="achReportForm" action="<?php echo $pAdmEnv["menu_link"]; ?>?ft=100" method="post">
    <input type="hidden" id="achBatchId" name="batch_id" value="<?php echo $pAdmVars["batch_id"]; ?>">
    <input type="hidden" id="achBatchOperation" name="operation" value="ach_download_file">
    <input type="hidden" name="download_type" value="report">
  </form>
  <?php } ?>
  <div class="container-fluid ach-report-wrapper">
    <div class="form-horizontal well well-sm hidden-print">
      <div class="row">
        <div class="col-xs-12 h4 text-center">Odyssey ACH Report</div>
      </div>
      <div class="row">
        <div class="col-xs-12 text-center">
          <div class="btn-group" role="group" aria-label="...">
            <?php if ($advPerm) { ?>
            <button id="downloadReport" class="btn">Download</button>
            <?php } ?>
            <button id="closeReport" class="btn">Close</button>
            <button id="printReport" class="btn">Print</button>
          </div>
        </div>
      </div>
    </div>
    <div class="ach-pre-scrollable">
      <pre>
        <?php echo $fileString ?>
      </pre>
    </div>
  </div>
<?php

  if ( isset($pAdmVars["download"]) && $pAdmVars["download"] == "download" ) {
    // start the download
?>
    <form id="achPostForm" action="<?php echo $pAdmEnv["menu_link"]; ?>?ft=100" method="post">
      <input type="hidden" id="achBatchId" name="batch_id" value="<?php echo $pAdmVars["batch_id"]; ?>">
      <input type="hidden" id="achBatchOperation" name="operation" value="ach_download_file">
      <input type="hidden" name="download_type" value="ach">
    </form>
<?php
  }
?>
  </body>
  </html>
<?php
} // end PrintAchReport

/**
 * function PrintValidate( $pAdmEnv, $pAdmVars )
 * This is a validator that will examine an ACH file.
 *
 * @param object $pAdmEnv -- structure with common and environment information
 * @param array $pAdmVars -- the passed parameters for the operation
 */
function PrintValidate( $pAdmEnv, $pAdmVars ) {
?>
  <script type="text/javascript">
    $(document).ready(function() {
      $(".returnLink").click( function() {
        $("#redirectForm").submit();
      } );
    });
  </script>
  <style>
  </style>
  <div class="container-fluid">
    <form id="redirectForm" action="<?php echo $pAdmEnv["self"]; ?>" method="post">
      <input type="hidden" name="page" value="">
    </form>
    <div><a class="returnLink" style="cursor:pointer;">Return</a></div>
    <div class="">
      <div id="formValidateDiv" class="k-block k-error-colored" style="display:none">
      </div>
    </div>
<?php
  $name = "Filename Not Found";
  $found = false;

  try {
    if ( $_FILES['achFile']['error'] == UPLOAD_ERR_OK ) {
        $tmp_name = $_FILES["achFile"]["tmp_name"];
        // basename() may prevent filesystem traversal attacks;
        // further validation/sanitation of the filename may be appropriate
        $name = basename($_FILES["achFile"]["name"]);

        // sanitize the name (i.e. only use it if it is safe
        if ( !preg_match("`^[-0-9A-Z_\.]+$`i",$name) ) {
          $name = "Your ACH File";
        }

        // read the contents
        $fileContents = file( $tmp_name, FILE_IGNORE_NEW_LINES );

        // remove the file since we don't need it
        unlink( $tmp_name );

        $found = true;
    }

    require_once( dirname(__FILE__) . "/../library/aACHValidate.i" );

    // initialize arrays
    $fileHeaderArray = array();
    $companyHeaderArray = array();
    $entryDetailArray = array();

    $printWarningList = array();
    $printErrorList = array();
    if ( !$found ) {
      $printErrorList[] = "ACH File Validate Error - Error uploading file. Please try again.";
    }

    // quick check to make sure file has valid record types
    $fileRecordCount = 0;
    $validRecordTypes = ["1", "5", "6", "7", "8", "9"];
    for ( $i = 0; $i < count( $fileContents ); $i++ ) {
      $recordType = substr( $fileContents[$i], 0, 1 );

      if ( !in_array( $recordType, $validRecordTypes ) ) {
        $printErrorList[] = "Unexpected ACH Record Type: $recordType";
        break;
      }

      // sanitize to make sure only valid characters are in file
      if ( !preg_match( ALPHAMERIC_STRING, $fileContents[$i] ) ) {
        $printErrorList[] = "Invalid ACH character on line $i";
        $printErrorList[] = "**{$fileContents[$i]}**";
        // don't do more tests if there was an invalid character
        break;
      }

      $testString = preg_replace( "/[\r\n]+/","", $fileContents[$i] );
      if ( strlen( $testString ) != 94 ) {
        $checkString = str_replace( " ", "_", $testString );
        $printErrorList[] = "ACH Record length not 94 characters. Record: $i (zero-based)" . strlen( $checkString );
        $printErrorList[] = "ACH Record: " . $checkString;
        break;
      }

      $fileRecordCount++;    // this is tested at the end
    }

    // set the line counter to handle the variable amount of data
    $fileContentsLine = 0;

    if ( !count( $printErrorList ) ) {
      // Line 0 - file header
      $extractionResults = GetFileHeaderRecord( $pAdmEnv, $fileContents[$fileContentsLine++] );
      if ( $extractionResults["code"] != "000" ) {
        $printErrorList[] = "ACH File extraction error";
        $printErrorList[] = $extractionResults["error"][0];     // only one expected
        $printWarningList[] = $extractionResults["warning"][0];     // only one expected
      } else {
        $fileHeaderArray = $extractionResults["data"];

        $results = ValidateFileHeaderRecord( $pAdmEnv, $fileHeaderArray );
        if ( count( $results["error"] ) ) {
          $printErrorList[] = "Invalid ACH File - File Header Record";

          for ( $e = 0; $e < count($results["error"]); $e++ ) {
            $printErrorList[] = $results["error"][$e];
          }
        }
        if ( count( $results["warning"] ) ) {
          $printWarningList[] = "ACH File Header Record Warnings";

          for ( $e = 0; $e < count($results["warning"]); $e++ ) {
            $printWarningList[] = $results["warning"][$e];
          }
        }

        if ( count( $fileHeaderArray ) ) {
          print "<div class='k-block' style='background-color: lightcyan;'>";
          print "<div class='h4'>File Header</div>";

          $arrayKeys = array_keys( $fileHeaderArray );
          for ( $i = 0; $i < count( $arrayKeys ); $i++ ) {
            print "<b>{$arrayKeys[$i]}</b>: <span style='background-color:white'>{$fileHeaderArray[$arrayKeys[$i]]}</span><br>";
          }
          print "</ul>";
          print "</div>";
        }
      }
    }

    // initialize some counters for validating the complete file
    $fileBatchCount = 0;
    $fileEntryAddendaCount = 0;
    $fileEntryHash = 0;
    $fileTotalDebitEntryDollarAmount = 0;
    $fileTotalCreditEntryDollarAmount = 0;

    // do this loop for each company
    do {
      $companyHeaderArray = null;
      if ( !count( $printErrorList ) ) {
        // Line 1 - company header
        $extractionResults = GetCompanyHeaderRecord( $pAdmEnv, $fileContents[$fileContentsLine++] );
        if ( $extractionResults["code"] != "000" ) {
          $printErrorList[] = "ACH File extraction error";
          $printErrorList[] = $extractionResults["error"];
        } else {
          $companyHeaderArray = $extractionResults["data"];

          $results = ValidateCompanyHeaderRecord( $pAdmEnv, $companyHeaderArray );
          if ( count( $results["error"] ) ) {
            $printErrorList[] = "Invalid ACH File - Company Header Record";

            for ( $e = 0; $e < count($results["error"]); $e++ ) {
              $printErrorList[] = $results["error"][$e];
            }
          }
          if ( count( $results["warning"] ) ) {
            $printWarningList[] = "ACH Company Header Record Warnings";

            for ( $e = 0; $e < count($results["warning"]); $e++ ) {
              $printWarningList[] = $results["warning"][$e];
            }
          }

          if ( count( $companyHeaderArray ) ) {
            print "<div class='k-block k-info-colored'>";
            print "<div class='h4'>Company Header</div>";
            $arrayKeys = array_keys( $companyHeaderArray );
            for ( $i = 0; $i < count( $arrayKeys ); $i++ ) {
              print "<b>{$arrayKeys[$i]}</b>: <span style='background-color:white'>{$companyHeaderArray[$arrayKeys[$i]]}</span><br>";
            }
            print "</ul>";
            print "</div>";
          }
        }
      }

      // indent all the company info
      print "<div style='margin-left: 2em'>";

      // do this loop for each record for the company
      $companyEntryAddendaCount = 0;
      $companyEntryHash = 0;
      $companyTotalDebitEntryDollarAmount = 0;
      $companyTotalCreditEntryDollarAmount = 0;
      do {
        if ( !count( $printErrorList ) ) {
          // entry detail
          $extractionResults = GetEntryDetailRecord( $pAdmEnv, $fileContents[$fileContentsLine++] );
          if ( $extractionResults["code"] != "000" ) {
            $printErrorList[] = "ACH File extraction error";
            $printErrorList[] = $extractionResults["error"];
          } else {
            $entryDetailArray = $extractionResults["data"];

            $results = ValidateEntryDetailRecord( $pAdmEnv, $entryDetailArray, $companyHeaderArray );
            if ( count( $results["error"] ) ) {
              $printErrorList[] = "Invalid ACH File - Entry Detail Record";

              for ( $e = 0; $e < count($results["error"]); $e++ ) {
                $printErrorList[] = $results["error"][$e];
              }
            }
            if ( count( $results["warning"] ) ) {
              $printWarningList[] = "ACH Entry Detail Record Warnings";

              for ( $e = 0; $e < count($results["warning"]); $e++ ) {
                $printWarningList[] = $results["warning"][$e];
              }
            }
            if ( count( $entryDetailArray ) ) {
              print "<div class='k-block'>";
              print "<div class='h4'>Entry Detail</div>";
              $arrayKeys = array_keys( $entryDetailArray );
              for ( $i = 0; $i < count( $arrayKeys ); $i++ ) {
                print "<b>{$arrayKeys[$i]}</b>: <span style='background-color:white'>{$entryDetailArray[$arrayKeys[$i]]}</span><br>";
              }
              print "</ul>";
              print "</div>";
            }
          }
        }

        // add to the totals for validation
        if ( !count( $printErrorList ) ) {
          $companyEntryAddendaCount++;

          $companyEntryHash += $entryDetailArray["ReceivingDFI"];
          if ( $entryDetailArray["TransactionCode"] == "22" ||
               $entryDetailArray["TransactionCode"] == "32" ||
               $entryDetailArray["TransactionCode"] == "42" ||
               $entryDetailArray["TransactionCode"] == "52" ) {
            $companyTotalCreditEntryDollarAmount += $entryDetailArray["Amount"];
          } else {
            $companyTotalDebitEntryDollarAmount += $entryDetailArray["Amount"];
          }
        }

        $addendaDetailArray = array();
        if ( !count( $printErrorList ) &&
             $entryDetailArray["AddendaRecordIndicator"] == "1" ) {
          $extractionResults = GetAddendaRecord( $pAdmEnv, $fileContents[$fileContentsLine++] );
          if ( $extractionResults["code"] != "000" ) {
            $printErrorList[] = "ACH File extraction error";
            $printErrorList[] = $extractionResults["error"];
          } else {
            $addendaDetailArray = $extractionResults["data"];

            $entryDetailSequenceNumber = substr( $entryDetailArray["TraceNumber"], -7 );
            $results = ValidateAddendaRecord( $pAdmEnv, $addendaDetailArray, $entryDetailSequenceNumber );
            if ( count( $results["error"] ) ) {
              $printErrorList[] = "Invalid ACH File - Addenda Record";

              for ( $e = 0; $e < count($results["error"]); $e++ ) {
                $printErrorList[] = $results["error"][$e];
              }
            }
            if ( count( $results["warning"] ) ) {
              $printWarningList[] = "ACH Entry Detail Record Warnings";

              for ( $e = 0; $e < count($results["warning"]); $e++ ) {
                $printWarningList[] = $results["warning"][$e];
              }
            }
            if ( count( $addendaDetailArray ) ) {
              print "<div class='k-block' style='background-color:BlanchedAlmond;'>";
              print "<div class='h4'>Addenda Detail</div>";
              $arrayKeys = array_keys( $addendaDetailArray );
              for ( $i = 0; $i < count( $arrayKeys ); $i++ ) {
                print "<b>{$arrayKeys[$i]}</b>: <span style='background-color:white'>{$addendaDetailArray[$arrayKeys[$i]]}</span><br>";
              }
              print "</ul>";
              print "</div>";
            }
          }
        }

        // add to the totals for validation
        if ( !count( $printErrorList ) &&
             isset( $addendaDetailArray["RecordTypeCode"] ) &&
             $addendaDetailArray["RecordTypeCode"] == "7") {
          $companyEntryAddendaCount++;
        }

        // all records have the first caracter as the type code, so look to see what is next
        $nextTypeCode = substr( $fileContents[$fileContentsLine], 0 , 1 );
      } while ( !count( $printErrorList ) && $nextTypeCode != 8 );

      // this should be a company control record
      if ( !count( $printErrorList ) ) {
        // entry detail
        $extractionResults = GetCompanyControlRecord( $pAdmEnv, $fileContents[$fileContentsLine++] );
        if ( $extractionResults["code"] != "000" ) {
          $printErrorList[] = "ACH File extraction error";
          $printErrorList[] = $extractionResults["error"];
        } else {
          $companyControlArray = $extractionResults["data"];

          $results = ValidateCompanyControlRecord( $pAdmEnv, $companyControlArray );
          if ( count( $results["error"] ) ) {
            $printErrorList[] = "Invalid ACH File - Company Control Record";

            for ( $e = 0; $e < count($results["error"]); $e++ ) {
              $printErrorList[] = $results["error"][$e];
            }
          }
          if ( count( $results["warning"] ) ) {
            $printWarningList[] = "ACH Company Control Record Warnings";

            for ( $e = 0; $e < count($results["warning"]); $e++ ) {
              $printWarningList[] = $results["warning"][$e];
            }
          }
        }
        if ( count( $companyControlArray ) ) {
          print "<div class='k-block k-success-colored'>";
          print "<div class='h4'>Company Control Record</div>";
          $arrayKeys = array_keys( $companyControlArray );
          for ( $i = 0; $i < count( $arrayKeys ); $i++ ) {
            print "<b>{$arrayKeys[$i]}</b>: <span style='background-color:white'>{$companyControlArray[$arrayKeys[$i]]}</span><br>";
          }
          print "</ul>";
          print "</div>";
        }
      }

      // now validate the company totals
      if ( !count( $printErrorList ) ) {
        if ( intval( $companyEntryAddendaCount ) != intval( $companyControlArray["EntryAddendaCount"] ) ) {
          $printErrorList[] = "Company control record Entry Addenda Count does not match: $companyEntryAddendaCount vs {$companyControlArray["EntryAddendaCount"]}";
        }

        $hashTest = str_pad( $companyEntryHash, 10, "0", STR_PAD_LEFT );
        // use "exactly equal" because want to check type and length, too.
        if ( $hashTest !== $companyControlArray["EntryHash"] ) {
          $printErrorList[] = "Company control record Entry Hash does not match";
        }

        if ( $companyTotalDebitEntryDollarAmount != $companyControlArray["TotalDebitEntryDollarAmount"] ) {
          print "Test: Debit: $companyTotalDebitEntryDollarAmount, Credit: $companyTotalCreditEntryDollarAmount<br>";
          print_r( $companyControlArray );
          $printErrorList[] = "Company control record Total Debit Entry Dollar Amount does not match {$companyTotalDebitEntryDollarAmount} vs {$companyControlArray["TotalDebitEntry"]}";
        }

        if ( $companyTotalCreditEntryDollarAmount != $companyControlArray["TotalCreditEntryDollarAmount"] ) {
          print "Test: Debit: $companyTotalDebitEntryDollarAmount, Credit: $companyTotalCreditEntryDollarAmount<br>";
          print_r( $companyControlArray );
          $printErrorList[] = "Company control record Total Credit Entry Dollar Amount does not match {$companyTotalCreditEntryDollarAmount} vs {$companyControlArray["TotalCreditEntry"]}";
        }

        if ( $companyHeaderArray["CompanyID"] != $companyControlArray["CompanyID"] ) {
          $printErrorList[] = "Company control record Company Identifier does not match";
        }

        if ( $companyHeaderArray["BatchNumber"] != $companyControlArray["BatchNumber"] ) {
          $printErrorList[] = "Company control record Batch Number does not match";
        }
      }

      if ( !count( $printErrorList ) ) {
        // add to the counters
        $fileBatchCount++;
        $fileEntryAddendaCount += $companyEntryAddendaCount;
        $fileEntryHash += $companyEntryHash;
        $fileTotalDebitEntryDollarAmount += $companyTotalDebitEntryDollarAmount;
        $fileTotalCreditEntryDollarAmount += $companyTotalCreditEntryDollarAmount;
      }

      // end indentation
      print "</div>";

      $nextTypeCode = substr( $fileContents[$fileContentsLine], 0 , 1 );
    } while (!count( $printErrorList ) && $nextTypeCode != 9 );

    // this should be a file control record
    if ( !count( $printErrorList ) ) {
      // entry detail
      $extractionResults = GetFileControlRecord( $pAdmEnv, $fileContents[$fileContentsLine++] );
      if ( $extractionResults["code"] != "000" ) {
        $printErrorList[] = "ACH File extraction error";
        $printErrorList[] = $extractionResults["error"];
      } else {
        $fileControlArray = $extractionResults["data"];

        $results = ValidateFileControlRecord( $pAdmEnv, $fileControlArray );
        if ( count( $results["error"] ) ) {
          $printErrorList[] = "Invalid ACH File - File Control Record";

          for ( $e = 0; $e < count($results["error"]); $e++ ) {
            $printErrorList[] = $results["error"][$e];
          }
        }
        if ( count( $results["warning"] ) ) {
          $printWarningList[] = "ACH File Control Record Warnings";

          for ( $e = 0; $e < count($results["warning"]); $e++ ) {
            $printWarningList[] = $results["warning"][$e];
          }
        }
      }
      if ( count( $fileControlArray ) ) {
        print "<div class='k-block' style='background-color: lightcyan;'>";
        print "<div class='h4'>File Control Record</div>";
        $arrayKeys = array_keys( $fileControlArray );
        for ( $i = 0; $i < count( $arrayKeys ); $i++ ) {
          print "<b>{$arrayKeys[$i]}</b>: <span style='background-color:white'>{$fileControlArray[$arrayKeys[$i]]}</span><br>";
        }
        print "</ul>";
        print "</div>";
      }
    }

    // validate the whole file totals
    if ( !count( $printErrorList ) ) {
      if ( $fileBatchCount != $fileControlArray["BatchCount"] ) {
        $printErrorList[] = "File Control record Batch Count does not match";
        $printErrorList[] = "Counted: $fileBatchCount, Control record: {$fileControlArray["BatchCount"]}";
      }

      // a "block" is 10 records
      $fileBlockCount = round( $fileRecordCount / 10 );
      if ( $fileBlockCount != (int) $fileControlArray["BlockCount"] ) {
        $printErrorList[] = "File Control record Block Count does not match: counted $fileBlockCount; file {$fileControlArray["BlockCount"]}";
      }

      if ( $fileEntryAddendaCount != $fileControlArray["EntryAddendaCount"] ) {
        $printErrorList[] = "File Control record Entry Addenda Count does not match";
      }

      if ( strlen( $hashTest ) > 10 ) {
        $hashTest = substr( $fileEntryHash, -10 );
      } else {
        $hashTest = str_pad( $fileEntryHash, 10, "0", STR_PAD_LEFT );
      }

      // use "exactly equal" because want to check type and length, too.
      if ( $hashTest !== $fileControlArray["EntryHash"] ) {
        $printErrorList[] = "File Control record Entry Hash does not match";
      }

      if ( $fileTotalDebitEntryDollarAmount != $fileControlArray["TotalDebitEntryDollarAmount"] ) {
        $printErrorList[] = "File Control record Total Debit Entry does not match";
      }

      if ( $fileTotalCreditEntryDollarAmount != $fileControlArray["TotalCreditEntryDollarAmount"] ) {
        $printErrorList[] = "File Control record Total Credit Entry does not match";
      }

    }

  } catch (Exception $ex ) {
    $printErrorList[] = $ex->getMessage();
  }

  $errorString = "";
  if ( count( $printErrorList ) ) {
    $errorString .= "The following <b>errors</b> occurred: ";
    $errorString .= "<ul>";
    for ( $i = 0; $i < count( $printErrorList ); $i++ ) {
      $errorString .= "<li>{$printErrorList[$i]}</li>";
    }
    $errorString .= "Validation stops if error found, so check the last record validated.";
    $errorString .= "</ul>";
  }
  if ( count( $printWarningList ) ) {
    $errorString .= "The following <b>warnings</b> occurred: ";
    $errorString .= "<ul>";
    for ( $i = 0; $i < count( $printWarningList ); $i++ ) {
      $errorString .= "<li>{$printWarningList[$i]}</li>";
    }
    $errorString .= "</ul>";
  }

  if ( isset( $pAdmVars["show_raw"] ) && $pAdmVars["show_raw"] ) {
  ?>
    <div><a class="returnLink" style="cursor:pointer;">Return</a></div>
    <div> Raw Data</div>
    <div> File <?php echo $name ?></div>
 <pre><?php
      for ( $i = 0; $i < count( $fileContents ); $i++ ) {
        print "{$fileContents[$i]}<br>";
      }
    ?></pre>
  <?php
  }
  ?>
    <div><a class="returnLink" style="cursor:pointer;">Return</a></div>
    <script>
      $(document).ready( function() {
      <?php
        if ( strlen( $errorString ) ) {
      ?>
        $("#formValidateDiv").html( "<?php echo  $errorString ?>" ).show();
      <?php
        }
      ?>
      } );
    </script>
  </div>
<?php }

 /**
  * function PrintCommonStyle()
  * prints out styling common to a majority of the pages.
  */
 function PrintCommonStyle()
 { ?>
  <style>
    .grid_12 {
      margin-bottom: 5px;
    }

    /* Give same styling as if type="text" */
    input[type="email"], input[type="password"] {
      border-style: solid;
        border-width: 1px;
        font-family: inherit;
        font-size: 100%;
    }

    #showHelpDialog {
      text-align: left;
    }

    #login-entry {
      margin-left: auto;
      margin-right: auto;
    }

    .homecu-formStatus {
      margin-bottom: 10px;
    }
  </style>
 <?php }