7. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 9/25/2018 2:12:54 PM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

7.1 Files compared

# Location File Last Modified
1 build 3.zip\build 3\MHLTH_YS_137_Source\Delphi\IAT uMHA7_Editor_LocalFiles.pas Thu Sep 6 11:30:42 2018 UTC
2 build 3.zip\build 3\MHLTH_YS_137_Source\Delphi\IAT uMHA7_Editor_LocalFiles.pas Wed Sep 12 15:59:05 2018 UTC

7.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 408
Changed 1 2
Inserted 0 0
Removed 0 0

7.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

7.4 Active regular expressions

No regular expressions were active.

7.5 Comparison detail

  1   unit uMHA7 _Editor_Lo calFiles;
  2  
  3   interface
  4  
  5   uses
  6     Windows,
  7     classes,
  8     Dialogs,
  9     SysUtils ;
  10  
  11  
  12   type
  13     TLocalFi les = clas s
  14     private
  15       //FAdm inistratio nFileName:  string;
  16       FTempF olderName:  string;
  17       //FMHA Path: stri ng; //va_S ecureDeskt op
  18       //func tion GetMH APath: str ing; //va_ SecureDesk top
  19       proced ure CheckL ocalDirect ories;
  20       functi on GetTemp FolderName : string;
  21       proced ure SetTem pFolderNam e;
  22     protecte d
  23     public
  24       //func tion GAFFi leName(ADF N: string) : string;
  25       //func tion Answe rFilesPath : string;
  26       functi on Instrum entFilesPa th: string ;
  27       constr uctor Crea te;
  28       //proc edure Load Administra tionFileNa me(ADFN: s tring; ADa teTimeGive n: string;
  29       //  AI nstrumentN ame: strin g);
  30       functi on Instrum entResourc eFileName( AInstrumen tName: str ing;
  31         ALas tEditFMDat e: string) : string;
  32       functi on Instrum entFrmFile Name(AInst rumentName : string;
  33         ALas tEditFMDat e: string) : string;
  34       functi on Instrum entFileNam eStem(AIns trumentNam e: string;
  35         ALas tEditFMDat e: string) : string;
  36       proced ure Update APILog(Mes sageIn: st ring);
  37       //func tion OffLi nePatientF ile: strin g;
  38       //func tion Answe rFileName( ADFN: stri ng; AID: s tring): st ring;
  39       //func tion ASI_R ecoveryFil e: string;
  40       //prop erty Admin istrationF ileName: s tring read  FAdminist rationFile Name write  FAdminist rationFile Name;
  41       //prop erty MHAPa th: string  read GetM HAPath; // va_SecureD esktop
  42       proper ty TempFol derName: s tring read  GetTempFo lderName;
  43     publishe d
  44     end; { T LocalFiles  }
  45  
  46   var
  47     LocalFil es                    : TLocalFi les;
  48  
  49  
  50   implementa tion
  51   uses
  52     uIA_Cons t,
  53     uIA_Util s,
  54     uMHA7_Ed itor_Const ,
  55     jclSysIn fo;
  56  
  57   constructo r TLocalFi les.Create ;
  58   begin
  59     inherite d Create;
  60     CheckLoc alDirector ies;
  61   end;
  62  
  63   procedure  TLocalFile s.CheckLoc alDirector ies;
  64  
  65     procedur e CheckThi s(ADir: st ring);
  66     begin
  67       if not  Directory Exists(ADi r) then
  68         if n ot CreateD ir(ADir) t hen
  69           ra ise Except ion.Create ('Cannot c reate ' +  ADir);
  70     end;
  71  
  72   begin
  73     FTempFol derName :=  '';
  74     //FMHAPa th := '';
  75     CheckThi s(TempFold erName);
  76     CheckThi s(Instrume ntFilesPat h);
  77     //CheckT his(Answer FilesPath) ;
  78   end;
  79  
  80  
  81   procedure  TLocalFile s.UpdateAP ILog(Messa geIn: stri ng);
  82   begin
  83     gvAPICal ls.Add(Mes sageIn);
  84     gvAPICal ls.SaveToF ile('IAT_D ebug.log') ;
  85   end;
  86  
  87   //function  TLocalFil es.GAFFile Name(ADFN:  string):  string;
  88   //begin
  89   //  Result  := Answer FilesPath  + '\' + AD FN + '.GAF ';
  90   //end;
  91  
  92   //function  TLocalFil es.AnswerF ileName(AD FN: string ; AID: str ing): stri ng;
  93   //begin
  94   //  Result  := Answer FilesPath  + '\' + AD FN + FILE_ NAME_DELIM ITER
  95   //    + AI D + '.ANS' ;
  96   //end;
  97  
  98   //function  TLocalFil es.AnswerF ilesPath:  string;
  99   //begin
  100   //  Result  := TempFo lderName +  'Answer F iles';
  101   //end;
  102  
  103   function T LocalFiles .Instrumen tFilesPath : string;
  104   begin
  105     Result : = TempFold erName + ' Instrument  Files';
  106   end;
  107  
  108   function T LocalFiles .GetTempFo lderName:  string;
  109   begin
  110     if FTemp FolderName  = '' then
  111       setTem pFolderNam e;
  112  
  113     result : = FTempFol derName;
  114   end;
  115  
  116   procedure  TLocalFile s.SetTempF olderName;
  117   //var
  118   ////  WinT empPath: s tring;
  119   ////  WinP ath: strin g;
  120   //  buf: a rray[0..MA X_PATH] of  Char;
  121   //begin
  122   //  try
  123   //    GetT empPath(Si zeof(buf),  buf); //  i.e. c:\te mp
  124   //    FTem pFolderNam e := buf;
  125   //
  126   //    if F TempFolder Name = ''  then
  127   //    begi n
  128   //      Ge tWindowsDi rectory(Bu f, Sizeof( Buf)); //  i.e. C:\wi ndows
  129   //      FT empFolderN ame := Str Pas(Buf);
  130   //    end;
  131   //  except
  132   //    FTem pFolderNam e := 'c:\' ;
  133   //  end;
  134   begin
  135     FTempFol derName :=  GetAppdat aFolder +  '\MHA3\';
  136   end;
  137  
  138   { TLocalFi les.GetMHA Path
  139   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  140   [ ]DONE [  ]TESTED      DN S      FeldmR --  27-Apr-200 4
  141     Purpose:
  142   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------}
  143   //function  TLocalFil es.GetMHAP ath: strin g; //va_Se cureDeskto p
  144   //begin
  145   //  if FMH APath = ''  then
  146   //    FMHA Path := Ex tractFileP ath(ParamS tr(0));
  147   //  Result  := FMHAPa th;
  148   //end;
  149  
  150   //procedur e TLocalFi les.LoadAd ministrati onFileName (ADFN: str ing;
  151   //  ADateT imeGiven:  string; AI nstrumentN ame: strin g);
  152   //begin
  153   //  FAdmin istrationF ileName :=  AnswerFil esPath + ' \' + ADFN  + FILE_NAM E_DELIMITE R
  154   //    + AD ateTimeGiv en + FILE_ NAME_DELIM ITER
  155   //    + AI nstrumentN ame + '.ad m';
  156   //end;
  157  
  158   function T LocalFiles .Instrumen tResourceF ileName(AI nstrumentN ame: strin g;
  159     ALastEdi tFMDate: s tring): st ring;
  160   begin
  161     Result : = Instrume ntFileName Stem(AInst rumentName , ALastEdi tFMDate) +  '.res';
  162   end;
  163  
  164   function T LocalFiles .Instrumen tFrmFileNa me(AInstru mentName:  string;
  165     ALastEdi tFMDate: s tring): st ring;
  166   begin
  167     Result : = Instrume ntFileName Stem(AInst rumentName , ALastEdi tFMDate) +  '.frm';
  168   end;
  169  
  170   function T LocalFiles .Instrumen tFileNameS tem(AInstr umentName:  string;
  171     ALastEdi tFMDate: s tring): st ring;
  172   var
  173     Dir, tmp DateStr               : string;
  174   begin
  175  
  176     Dir := I nstrumentF ilesPath +  '\' + AIn strumentNa me;
  177  
  178     if not I sFMDateTim e(ALastEdi tFMDate) t hen
  179       tmpDat eStr := '2 000101' // the FMDate  for 01/01 /1900
  180     else
  181       tmpDat eStr := Pi ece(ALastE ditFMDate,  '.', 1)
  182         + Pi ece(ALastE ditFMDate,  '.', 2);
  183  
  184     Result : = Dir + FI LE_NAME_DE LIMITER +  tmpDateStr ;
  185   end;
  186  
  187   (*
  188   function T LocalFiles .OffLinePa tientFile:  string;
  189   begin
  190     Result : = Instrume ntFilesPat h + '\B457 -T12.dll';
  191   end;
  192  
  193   function T LocalFiles .ASI_Recov eryFile: s tring;
  194   begin
  195     Result : = AnswerFi lesPath +  '\Crash.tx t';
  196   end; *)
  197  
  198   initializa tion
  199     LocalFil es := TLoc alFiles.Cr eate;
  200  
  201   finalizati on
  202     LocalFil es.Free;
  203  
  204   end.
  205