21. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 5/10/2019 1:00:04 PM Eastern 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.

21.1 Files compared

# Location File Last Modified
1 CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet fCoverSheet.pas Wed Apr 3 19:32:16 2019 UTC
2 CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet fCoverSheet.pas Thu May 9 00:51:15 2019 UTC

21.2 Comparison summary

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

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

21.4 Active regular expressions

No regular expressions were active.

21.5 Comparison detail

  1   unit fCove rSheet;
  2   {
  3     ======== ========== ========== ========== ========== ========== ========== ========== ==
  4     *
  5     *        Applicatio n:  CPRS -  Covershee t
  6              Developer:       PII                   
  7     *        Site:          Salt L ake City I SC
  8     *        Date:          2015-1 2-21
  9     *
  10     *        Descriptio n:  Main f orm for ot her covers heet compo nents.
  11     *
  12     *        Notes:
  13     *
  14     ======== ========== ========== ========== ========== ========== ========== ========== ==
  15   }
  16  
  17   interface
  18  
  19   uses
  20     Winapi.W indows,
  21     Winapi.M essages,
  22     System.S ysUtils,
  23     System.U ITypes,
  24     System.V ariants,
  25     System.C lasses,
  26     Vcl.Grap hics,
  27     Vcl.Cont rols,
  28     Vcl.Form s,
  29     Vcl.Dial ogs,
  30     Vcl.StdC trls,
  31     Vcl.ExtC trls,
  32     VA508Acc essibility Router,
  33     iCoverSh eetIntf;
  34  
  35   type
  36     TfrmCove rSheet = c lass(TForm , ICPRSTab )
  37       gpMain : TGridPan el;
  38     private
  39       fDispl ayCount: I nteger;
  40       fPatie ntCount: I nteger;
  41       fCalli ngContext:  Integer;
  42  
  43       { Prev ents auto  free when  RefCount =  0 needed  for interf aces}
  44       functi on _AddRef : Integer;  stdcall;
  45       functi on _Releas e: Integer ; stdcall;
  46     protecte d
  47       { ICPR STab }
  48       proced ure OnClea rPtData(Se nder: TObj ect); virt ual;
  49       proced ure OnDisp layPage(Se nder: TObj ect; aCall ingContext : Integer) ; virtual;
  50       proced ure OnLoad ed(Sender:  TObject);  virtual;
  51  
  52       { ICPR S508 }
  53       proced ure OnFocu sFirstCont rol(Sender : TObject) ; virtual;
  54       proced ure OnSetF ontSize(Se nder: TObj ect; aNewS ize: Integ er); virtu al;
  55       proced ure OnSetS creenReade rStatus(Se nder: TObj ect; aActi ve: boolea n);
  56     public
  57       { Publ ic declara tions }
  58       constr uctor Crea te(aOwner:  TComponen t); overri de;
  59     end;
  60  
  61   var
  62     frmCover Sheet: Tfr mCoverShee t;
  63  
  64   implementa tion
  65  
  66   uses
  67     uConst,
  68     uCore;
  69  
  70   {$R *.dfm}
  71  
  72   { TfrmCove rSheet }
  73  
  74   constructo r TfrmCove rSheet.Cre ate(aOwner : TCompone nt);
  75   begin
  76     inherite d;
  77     fPatient Count := 0 ;
  78     fDisplay Count := 0 ;
  79     fCalling Context :=  0;
  80   end;
  81  
  82   procedure  TfrmCoverS heet.OnFoc usFirstCon trol(Sende r: TObject );
  83   var
  84     aCPRS508 : ICPRS508 ;
  85   begin
  86     if Visib le then
  87       if Sup ports(Cove rSheet, IC PRS508, aC PRS508) th en
  88         aCPR S508.OnFoc usFirstCon trol(Sende r);
  89   end;
  90  
  91   procedure  TfrmCoverS heet.OnLoa ded(Sender : TObject) ;
  92   begin
  93     inherite d Loaded;
  94     Visible  := False;
  95     Position  := poDefa ult;
  96     BorderIc ons := [];
  97     BorderSt yle := bsN one;
  98     HandleNe eded;
  99     SetBound s(0, 0, Wi dth, Heigh t);
  100   end;
  101  
  102   procedure  TfrmCoverS heet.OnSet FontSize(S ender: TOb ject; aNew Size: Inte ger);
  103   begin
  104     Font.Siz e := aNewS ize;
  105   end;
  106  
  107   procedure  TfrmCoverS heet.OnSet ScreenRead erStatus(S ender: TOb ject; aAct ive: boole an);
  108   begin
  109     // Nothi ng to do h ere, ICove rSheet is  an entry p oint.
  110   end;
  111  
  112   procedure  TfrmCoverS heet.OnCle arPtData(S ender: TOb ject);
  113   begin
  114     CoverShe et.OnClear PtData(Sen der);
  115     fPatient Count := 0 ;
  116   end;
  117  
  118   procedure  TfrmCoverS heet.OnDis playPage(S ender: TOb ject; aCal lingContex t: Integer );
  119   { cause th e page to  be display ed and upd ate the di splay coun ters }
  120   begin
  121     BringToF ront;
  122  
  123     Inc(fDis playCount) ;
  124     Inc(fPat ientCount) ;
  125  
  126     if (aCal lingContex t = CC_CLI CK) and (f PatientCou nt = 1) th en
  127       fCalli ngContext  := CC_INIT _PATIENT
  128     else
  129       fCalli ngContext  := aCallin gContext;
  130  
  131     if fDisp layCount =  1 then
  132       begin
  133         Cove rSheet.OnI nitCoverSh eet(Self);
  134         Cove rSheet.OnD isplay(Sel f, gpMain) ;
  135       end;
  136  
  137     if fPati entCount =  1 then
  138       CoverS heet.OnSwi tchToPatie nt(Self, P atient.DFN );
  139  
  140     if Activ eControl < > nil then
  141       FocusC ontrol(Act iveControl )
  142     else
  143       OnFocu sFirstCont rol(Sender );
  144   end;
  145  
  146   function T frmCoverSh eet._AddRe f: Integer ;
  147   begin
  148     Result : = -1;
  149   end;
  150  
  151   function T frmCoverSh eet._Relea se: Intege r;
  152   begin
  153     Result : = -1;
  154   end;
  155  
  156   initializa tion
  157  
  158   SpecifyFor mIsNotADia log(TfrmCo verSheet);
  159  
  160   end.