20. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/31/2017 10:45:42 AM 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.

20.1 Files compared

# Location File Last Modified
1 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\DLLTEST fMain.pas Tue Dec 13 18:26:06 2016 UTC
2 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\DLLTEST fMain.pas Fri Mar 31 15:01:04 2017 UTC

20.2 Comparison summary

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

20.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

20.4 Active regular expressions

No regular expressions were active.

20.5 Comparison detail

  1   unit fMain ;
  2  
  3   interface
  4  
  5   uses
  6     Winapi.W indows,
  7     Winapi.M essages,
  8     System.S ysUtils,
  9     System.V ariants,
  10     System.C lasses,
  11     Vcl.Grap hics,
  12     Vcl.Cont rols,
  13     Vcl.Form s,
  14     Vcl.Dial ogs,
  15     Vcl.StdC trls;
  16  
  17   type
  18     TForm1 =  class(TFo rm)
  19       Button 1: TButton ;
  20       dlgGet DLLName: T OpenDialog ;
  21       proced ure Button 1Click(Sen der: TObje ct);
  22     private
  23       { Priv ate declar ations }
  24     public
  25       { Publ ic declara tions }
  26     end;
  27  
  28   var
  29     Form1: T Form1;
  30  
  31   implementa tion
  32  
  33   {$R *.dfm}
  34  
  35  
  36   type
  37     TGMV_Cal lVitalsDLL  = functio n(aParams:  PWideChar ): integer ; stdcall;
  38  
  39   procedure  TForm1.But ton1Click( Sender: TO bject);
  40   var
  41     aDLLName : string;
  42     aParams:  string;
  43     aDLLHand le: Native UInt;
  44     aDLLFunc Addr: TGMV _CallVital sDLL;
  45   const
  46     aDLLFunc Name = 'GM V_VitalsVi ewDLG';
  47   begin
  48     if dlgGe tDLLName.E xecute the n
  49       aDLLNa me := dlgG etDLLName. Filename
  50     else
  51       Exit;
  52  
  53     aDLLHand le := Load Library(PW ideChar(aD LLName));
  54     if aDLLH andle = 0  then
  55       begin
  56         Show MessageFmt ('Cannot l oad DLL: % s', [aDLLN ame]);
  57         Exit ;
  58       end;
  59  
  60     @aDLLFun cAddr := G etProcAddr ess(aDLLHa ndle, PAns iChar(aDLL FuncName)) ;
  61     if not A ssigned(aD LLFuncAddr ) then
  62       begin
  63         Show MessageFmt ('Cannot f ind functi on: %s', [ aDLLFuncNa me]);
  64         Exit ;
  65       end;
  66  
  67     try
  68         aParams :=  'server=1 27.0.0.1; PORT       ';
  69  
  70     finally
  71       aDLLFu ncAddr :=  nil;
  72       FreeLi brary(aDLL Handle);
  73       aDLLHa ndle := 0;
  74     end;
  75   end;
  76  
  77   (*
  78     procedur e TfraCove rSheetDisp layPanel_C PRS_Vitals .OnUpdateV itals(Send er: TObjec t);
  79     var
  80     aFunctio nAddr: TGM V_VitalsVi ewForm;
  81     aFunctio nName: Ans iString;
  82     aRtnRec:  TDllRtnRe c;
  83     aStartDa te: string ;
  84     begin
  85     { Availb le Forms:
  86     GMV_FNam e :='GMV_V italsEnter DLG';
  87     GMV_FNam e :='GMV_V italsEnter Form';
  88     GMV_FNam e :='GMV_V italsViewF orm';
  89     GMV_FNam e :='GMV_V italsViewD LG';
  90     }
  91     try
  92     aFunctio nName := ' GMV_Vitals ViewDLG';
  93     aRtnRec  := LoadVit alsDLL;
  94  
  95     case aRt nRec.Retur n_Type of
  96     DLL_Succ ess:
  97     try
  98     @aFuncti onAddr :=  GetProcAdd ress(Vital sDLLHandle , PAnsiCha r(aFunctio nName));
  99     if Assig ned(aFunct ionAddr) t hen
  100     begin
  101     if Patie nt.Inpatie nt then
  102     aStartDa te := Form atDateTime ('mm/dd/yy ', Now - 7 )
  103     else
  104     aStartDa te := Form atDateTime ('mm/dd/yy ', IncMont h(Now, -6) );
  105  
  106     aFunctio nAddr(RPCB rokerV, Pa tient.DFN,  IntToStr( Encounter. Location),  aStartDat e, FormatD ateTime('m m/dd/yy',  Now), GMV_ APP_SIGNAT URE, GMV_C ONTEXT, GM V_CONTEXT,  Patient.N ame, Forma t('%s    % d', [Patie nt.SSN, Pa tient.Age] ), Encount er.Locatio nName + U) ;
  107     end
  108     else
  109     MessageD LG('Can''t  find func tion "GMV_ VitalsView DLG".', mt Error, [mb ok], 0);
  110     except
  111     on E: Ex ception do
  112     MessageD LG('Error  running Vi tals Lite:  ' + E.Mes sage, mtEr ror, [mbok ], 0);
  113     end;
  114     DLL_Miss ing:
  115     begin
  116     TaskMess ageDlg('Fi le Missing  or Invali d', aRtnRe c.Return_M essage, mt Error, [mb ok], 0);
  117     end;
  118     DLL_Vers ionErr:
  119     begin
  120     TaskMess ageDlg('In correct Ve rsion Foun d', aRtnRe c.Return_M essage, mt Error, [mb ok], 0);
  121     end;
  122     end;
  123     finally
  124     @aFuncti onAddr :=  nil;
  125     UnloadVi talsDLL;
  126     end;
  127  
  128     CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_VITL);
  129     CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_RMND);
  130     end;
  131   *)
  132  
  133   end.