Contact Us Now

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.