Pascal Script

  • 03 Sep

    Howto trigger email alert after the whole scheduled run completed?

    Q: Is it possible to trigger the email alert in Limagito after the whole scheduled run completed?

    Example : run every 5 mins between 12:00:00 AM and 23:59:59PM

    12:00:00 completed

    12:05:00 completed

    23:55:00 completed

    Email will tigger

    Or is there any other option to send the summary run of job every day?

     

    A: It’s not a default option but we created a small script to achieve this. It does not matter which kind of Source or Destination you are using. So you can add this to any existing Rule.

    >Open the ‘Pascal Script’ setup:

    Limagito File Mover Pascal Script

    >Enable and add the following ‘On Rule Begin’ Pascal Script:

    Begin
      psExitCode:= 1;
      // ... add your code here
      psResetRTLog;
    End.

    Limagito File Mover On Rule Begin Pascal Script

    >Enable and add the following ‘On Rule Begin’ Pascal Script (be sure to adjust the  ctLogPath  constant, we used  C:\Test\Out_Log\  as temporary directory for the log files):

    Var
      tmpDate: String;
      tmpLog: TStringList;
      tmpLogFile: String;
    Const
      ctLogPath = 'C:\Test\Out_Log\'; // Must end with \
    Begin
      psExitCode:= 1;
      // ... add your code here
      tmpDate := FormatDateTime('yyyymmdd', Now);
      tmpLogFile := ctLogPath + 'RTLog_' + tmpDate + '.log';
      //
      tmpLog := TStringList.Create;
      Try
        Try
          If FileExists(tmpLogFile) Then
            tmpLog.LoadFromFile(tmpLogFile);
          // Add
          If psLRT <> '' Then
          Begin
            tmpLog.Add(psLRT);
            // Save
            tmpLog.SaveToFile(tmpLogFile);
          End;     
        Except
          psLogWrite(1, '', 'Error Loading or Saving Log File');
        End;
      Finally
        tmpLog.Free;
      End;
    End.

    Limagito File Mover On Rule end Pascal Script

    >The script creates a RunTime log file with the date as part of the filename (format yyyymmdd). We added  C:\Test\Out_Log\  as temporary directory for the RunTime log files but you can adjust this, always end the ctLogPath constant with a backslash. Nest we’ll create a second rule which will email this file to the desired recipients.

    Limagito File Mover RunTime Log

    >Now you need to add an extra rule with a WIN as Source and SMTP as Destination:

    The Source path of this second rule is the path we used in the previous script. In our case this is ‘C:\Test\Out_Log\’.

    Limagito File Mover WIN as Source

    >Next, please open the File Filter Setup > Advanced Tab > Enable ‘Allow parameters in File Name filter’.

    Limagito File Mover File Filter

    >Add the following File Name Include filter:  *%TCD:[IncDay-1]yyyymmdd:*

    What this filter does is, it looks for a filename with a date part from yesterday because of the [IncDay-1].

    Limagito File Mover File Filter Setup

    So you can trigger this second rule like every 5 minutes since. When a new day starts and this second rule is triggered then it will email the log file from the previous day.

    Limagito File Mover Scan Timer Setup

    >We added SMTP as Destination since our goal was to email the RunTime log file.

    Limagito File Mover Destination Setup

    >Don’t forget to enable ‘Include Source File as Attachment’ so the log file will be included in the email.

    Limagito File Mover SMTP as Destination

    >If you set the Function to ‘Move Files’ then the log file will be deleted after successful SMTP transfer. If you want to keep the RunTime log files then set the Function to ‘Copy Files’ and enable our ‘File Memory’ option.

    Limagito File Mover Function Setup

    Result:

    Limagito File Mover RunTime Log

    #FileTransfer

    If you need any info about this ‘trigger email alert after the whole scheduled run’ question, please let us know.

    Best regards,

    Limagito Team

  • 31 Jul

    HL7 (text) File Modification with Limagito File Mover

    HL7 (text) File Modification

    Q: Good morning, thank you again for taking my call! Please find the before and after test files attached.

    1. You’ll see that the FT1 segment, specifically the FT1.25 section, was moved to FT1.7 section. (Each section is delimited by a pipe “|”.)
    2. We also added “CG” (without quotes) to the FT1.6 section. I’ve attached an image to visualize as well.

    I’m urgently trying to get this solution in place! Thank you for your help!!!!

    A: Summary of what we need to do:

    1. Load the HL7 (text) File.
    2. Iterate through the lines in the HL7 File.
    3. Search for a line that starts with ‘FT1|’.
    4. Make the requested adjustments.
    5. Save the HL7 file different from the Source.

    We created a Pascal Script to achieve this (v2021.7.31.0 or higher is needed for this script). Let’s start.

    1) Please add a Source and a File Filter for the .HL7 files you want to adjust
    2) Add the following Pascal Script as Destination, don’t forget to adjust the ctOutputPath const ( must end with a \ ).

    Limagito File Mover Pascal Script as Destination

    Var
      iList: Integer;
      tmpEntry: String;
      tmpError: String;
      tmpField: String;
      tmpFile : String;
      tmpList: TStringList;
      tmpEntryList: TStringList;
    Const
      ctOutputPath = 'C:\Test\IN_HL7\Out\';
    Begin
      psExitCode:= 0;
      // ... add your code here
      tmpFile := psFilePath + psFileName;
      tmpList := TStringList.Create;
      Try
        Try
          tmpList.LoadFromFile(tmpFile);
          // Iterate
          For iList := 0 to (tmpList.Count-1) Do
          Begin
            tmpEntry := tmpList.Strings[iList];
            If Pos('FT1|', tmpEntry) <> 0 Then
            Begin
              tmpEntryList := psDelimitedTextAsList('|', tmpEntry);
              If Assigned(tmpEntryList) Then
              Begin
                tmpEntryList.Delimiter := '|';
                tmpEntryList.StrictDelimiter := True;
                tmpEntryList.Quotechar := #0;
                // 0 indexed
                If tmpEntryList.Count >= 25 Then
                Begin
                  tmpEntryList.Strings[6] := 'CG';
                  tmpEntryList.Strings[7] := tmpEntryList.Strings[25];
                  tmpEntryList.Strings[25] := ''
                  tmpList.Strings[iList] := tmpEntryList.DelimitedText + '|';
                  // Save To File
                  tmpError := psSaveListToFile(tmpList, ctOutputPath + psFileName, False);
                  if tmpError = '' Then
                  begin
                    psExitCode := 1;
                    psLogWrite(1, '', 'Saved adjusted file to: ' + ctOutputPath + psFileName);
                  End
                  Else
                    psLogWrite(1, '', tmpError);
                End Else
                Begin
                  psLogWrite(1, '', 'Field Count error of: ' + tmpEntryList.DelimitedText);
                End;
                // Free
                tmpEntryList.Free;
                // Break
                Break;
              End;
            End;
          End;
        Except
          psLogWrite(1, '', 'Error loading file: ' + tmpFile);
        End;
      Finally
        tmpList.Free;
      End;
    End.

    #FileTransfer

    If you need any info about this ‘HL7 (text) File Modification’ request, please let us know.

    Best regards,

    Limagito Team

  • 15 Jul

    Can you use the date in a file name to create the subdirectory?

    Q: Can you use the date in a file name to create the subdirectory? So, when moving the attached file, we would like to create a sub-directory of:

    C:\Users\niall\WindowsDatabase\Destination\Valuation\2021\06. Jun\ ,

    Where ‘2021\06. Jun\’ is derived from the name of the source file? Thinking if we can pull a date variable/parameter from the filename we could pass it into the directory set-up. I can’t see how to get there.

    A: Yes this is possible using some Pascal Script.

    We received the following filename from the customer: ‘Valuation_2021-06-21.csv’. We’ll use this in the following example but remember we can adjust the script for any other filename you might have.

    1.Using a Windows folder as Source:

    Limagito File Mover Windows Folder as Source

    2.Open our ‘Pascal Script’ option:

    Limagito File Mover Pascal Script Menu

    3. Add  and enable the following ‘On Destination’ Pascal Script:

     

    Var
      tmpDate: TDateTime;
      tmpDatePart: String;
      tmpList: TStringList;
     
    Function GetDateFromString(const aInput: String): TDateTime;
    var
      wYear, wMonth, wDay: Word;
    Begin
      wYear := StrToInt(Copy(aInput, 1, 4));
      wMonth := StrToInt(Copy(aInput, 6, 2));
      wDay := StrToInt(Copy(aInput, 9, 2));
      Try
        Result := EncodeDate(wYear, wMonth, wDay);
      Except
        Result := 0;
      End;
    End;
     
    Begin
      // Valuation_2021-06-21.csv
      psExitCode:= 0;
      // ... add your code here
      tmpList := TStringList.create;
      Try
        tmpList.delimiter := '_';
        tmpList.DelimitedText := psFileName;
        If tmpList.Count >= 2 Then
        Begin
          tmpDatePart := tmpList.Strings[1];
          psLogWrite(1, '', 'DatePart from File ' + psFilePath + psFileName + ': ' + tmpDatePart);
          tmpDate := GetDateFromString(tmpDatePart);
          // 2021\06. Jun\
          If Not (tmpDate = 0) Then
          Begin
            psVSA := FormatDateTime('YYYY', tmpDate);
            psVSA := psVSA + '\' + FormatDateTime('DD', tmpDate);
            psVSA := psVSA + '. ' + FormatDateTime('MMM', tmpDate) + '\';
            // Debug        
            psLogWrite(1, '', 'Result psVSA: ' + psVSA);
            psExitCode := 1;
          End
          Else
            psLogWrite(1, '', 'GetDateFromString Error, ' + tmpDatePart);
        End
        Else
          psLogWrite(1, '', 'Count FileName _ Parts Error, ' + psFileName);
      Finally
        tmpList.free;
      End;
    End.

    Limagito File Mover Pascal Script

    4. Adjust the ‘Create Subdir option’ to %VSA in your Destination Setup. We used a Windows folder as Destination in our example.

    Limagito File Mover Destination Setup

    5. RunTime Log Result:

    Limagito File Mover RunTime Log

    #FileTransfer

    If you need any info about this ‘date in a file name to create the subdirectory’ feature, please let us know.

    Best regards,

    Limagito Team

1 2 3 4 9