19. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 1/9/2019 7:03:18 AM Central Standard 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.

19.1 Files compared

# Location File Last Modified
1 OR_30_405V55_SRC.zip\OR_30_405V55_SRC\Cover Sheet iCoverSheetIntf.pas Wed Sep 26 18:05:24 2018 UTC
2 OR_30_405V55_SRC.zip\OR_30_405V55_SRC\Cover Sheet iCoverSheetIntf.pas Tue Jan 8 17:51:27 2019 UTC

19.2 Comparison summary

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

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

19.4 Active regular expressions

No regular expressions were active.

19.5 Comparison detail

  1   unit iCove rSheetIntf ;
  2  
  3   {
  4     ======== ========== ========== ========== ========== ========== ========== ========== ==
  5     *
  6     *        Applicatio n:  CPRS -  Covershee t
  7       *         Developer:       PII                   
  8     *        Site:          Salt L ake City I SC
  9     *        Date:          2015-1 2-04
  10     *
  11     *        Descriptio n:  Main i nterface u nit for ap plication  use.
  12     *
  13     *        Notes:
  14     *
  15     ======== ========== ========== ========== ========== ========== ========== ========== ==
  16   }
  17   interface
  18  
  19   uses
  20     System.C lasses,
  21     System.S ysUtils,
  22     System.T ypes,
  23     Vcl.Cont rols,
  24     Vcl.ExtC trls,
  25     Vcl.Grap hics;
  26  
  27   type
  28     ECoverSh eetExcepti on = class (Exception );
  29     ECoverSh eetInitFai l = class( ECoverShee tException );
  30     ECoverSh eetDisplay Fail = cla ss(ECoverS heetExcept ion);
  31     ECoverSh eetSwitchP tFail = cl ass(ECover SheetExcep tion);
  32  
  33     ICPRS508  = interfa ce;
  34     ICPRSTab  = interfa ce;
  35     ICPRSBas eDisplayPa nel = inte rface;
  36  
  37     ICoverSh eet = inte rface;
  38     ICoverSh eetDisplay Panel = in terface;
  39     ICoverSh eetGrid =  interface;
  40     ICoverSh eetParam =  interface ;
  41     ICoverSh eetParamEn umerator =  interface ;
  42     ICoverSh eetParamLi st = inter face;
  43     ICoverSh eetParam_C PRS = inte rface;
  44     ICoverSh eetParam_W eb = inter face;
  45  
  46     ICPRS508  = interfa ce(IInterf ace)
  47       ['{B51 68113-29E6 -4C5E-886E -819DD1F22 42E}']
  48       proced ure OnSetF ontSize(Se nder: TObj ect; aNewS ize: integ er);
  49       proced ure OnFocu sFirstCont rol(Sender : TObject) ;
  50       proced ure OnSetS creenReade rStatus(Se nder: TObj ect; aActi ve: boolea n);
  51     end;
  52  
  53     ICPRSTab  = interfa ce(IInterf ace)
  54       ['{70F 51186-B098 -4D32-9EBD -FC07F0FFF E03}']
  55       proced ure OnClea rPtData(Se nder: TObj ect);
  56       proced ure OnDisp layPage(Se nder: TObj ect; aCall ingContext : integer) ;
  57       proced ure OnLoad ed(Sender:  TObject);
  58     end;
  59  
  60     ICoverSh eet = inte rface(ICPR S508)
  61       ['{A83 A5329-FDDA -4005-B5C7 -504C11CDC FF5}']
  62       functi on getPara ms: ICover SheetParam List;
  63       functi on getUniq ueID: stri ng;
  64       functi on getIPAd dress: str ing;
  65       functi on getIsFi nishedLoad ing: boole an;
  66       functi on getOnRe freshCWAD:  TNotifyEv ent;
  67       functi on getOnRe freshRemin ders: TNot ifyEvent;
  68       functi on getPane lCount: in teger;
  69  
  70       proced ure setOnR efreshCWAD (const aVa lue: TNoti fyEvent);
  71       proced ure setOnR efreshRemi nders(cons t aValue:  TNotifyEve nt);
  72  
  73       proced ure OnClea rPtData(Se nder: TObj ect);
  74       proced ure OnDisp lay(Sender : TObject;  aTarget:  TGridPanel );
  75       proced ure OnExpa ndAllPanel s(Sender:  TObject);
  76       proced ure OnInit CoverSheet (Sender: T Object);
  77       proced ure OnRefr eshPanel(S ender: TOb ject; aID:  integer);
  78       proced ure OnSwit chToPatien t(Sender:  TObject; a DFN: strin g);
  79  
  80       proper ty Params:  ICoverShe etParamLis t read get Params;
  81       proper ty UniqueI D: string  read getUn iqueID;
  82       proper ty IPAddre ss: string  read getI PAddress;
  83       proper ty IsFinis hedLoading : boolean  read getIs FinishedLo ading;
  84       proper ty OnRefre shCWAD: TN otifyEvent  read getO nRefreshCW AD write s etOnRefres hCWAD;
  85       proper ty OnRefre shReminder s: TNotify Event read  getOnRefr eshReminde rs write s etOnRefres hReminders ;
  86       proper ty PanelCo unt: integ er read ge tPanelCoun t;
  87     end;
  88  
  89     ICoverSh eetDisplay Panel = in terface(II nterface)
  90       ['{901 75D34-D7EB -4953-95E6 -BA97218DE 4C9}']
  91       functi on getBack groundColo r: TColor;
  92       functi on getPara m: ICoverS heetParam;
  93       functi on getTitl e: string;
  94       functi on getTitl eFontColor : TColor;
  95       functi on getTitl eFontBold:  boolean;
  96       functi on getIsFi nishedLoad ing: boole an;
  97  
  98       proced ure setBac kgroundCol or(const a Value: TCo lor);
  99       proced ure setPar am(const a Value: ICo verSheetPa ram);
  100       proced ure setTit le(const a Value: str ing);
  101       proced ure setTit leFontColo r(const aV alue: TCol or);
  102       proced ure setTit leFontBold (const aVa lue: boole an);
  103  
  104       proced ure OnClea rPtData(Se nder: TObj ect);
  105       proced ure OnBegi nUpdate(Se nder: TObj ect);
  106       proced ure OnEndU pdate(Send er: TObjec t);
  107       proced ure OnRefr eshDisplay (Sender: T Object);
  108  
  109       proper ty Backgro undColor:  TColor rea d getBackg roundColor  write set Background Color;
  110       proper ty IsFinis hedLoading : boolean  read getIs FinishedLo ading;
  111       proper ty Params:  ICoverShe etParam re ad getPara m write se tParam;
  112       proper ty Title:  string rea d getTitle  write set Title;
  113       proper ty TitleFo ntColor: T Color read  getTitleF ontColor w rite setTi tleFontCol or;
  114       proper ty TitleFo ntBold: bo olean read  getTitleF ontBold wr ite setTit leFontBold ;
  115     end;
  116  
  117     ICoverSh eetGrid =  interface( IInterface )
  118       ['{488 42D2D-F143 -4A4A-8C18 -365FA06C9 3CF}']
  119       functi on getPane lCount: in teger;
  120       functi on getPane lColumn(aP anelIndex:  integer):  integer;
  121       functi on getPane lRow(aPane lIndex: in teger): in teger;
  122       functi on getPane lXY(aPanel Index: int eger): TPo int;
  123       functi on getRowC ount: inte ger;
  124  
  125       proced ure setPan elCount(co nst aValue : integer) ;
  126  
  127       proper ty PanelCo unt: integ er read ge tPanelCoun t write se tPanelCoun t;
  128       proper ty PanelCo lumn[aPane lIndex: in teger]: in teger read  getPanelC olumn;
  129       proper ty PanelRo w[aPanelIn dex: integ er]: integ er read ge tPanelRow;
  130       proper ty PanelXY [aPanelInd ex: intege r]: TPoint  read getP anelXY;
  131       proper ty RowCoun t: integer  read getR owCount;
  132     end;
  133  
  134     ICoverSh eetParam =  interface (IInterfac e)
  135       ['{E48 FEECF-8414 -4339-92A0 -85A2AF692 52C}']
  136       functi on getID:  integer;
  137       functi on getDisp layColumn:  integer;
  138       functi on getDisp layRow: in teger;
  139       functi on getTitl e: string;
  140  
  141       proced ure setDis playColumn (const aVa lue: integ er);
  142       proced ure setDis playRow(co nst aValue : integer) ;
  143       proced ure setTit le(const a Value: str ing);
  144  
  145       functi on NewCove rSheetCont rol(aOwner : TCompone nt): TCont rol;
  146  
  147       proper ty ID: int eger read  getID;
  148       proper ty Display Column: in teger read  getDispla yColumn wr ite setDis playColumn ;
  149       proper ty Display Row: integ er read ge tDisplayRo w write se tDisplayRo w;
  150       proper ty Title:  string rea d getTitle  write set Title;
  151     end;
  152  
  153     ICoverSh eetParamEn umerator =  interface (IInterfac e)
  154       ['{EAC F2780-1FA7 -4189-85A6 -67AFA93DA D3A}']
  155       functi on GetCurr ent: ICove rSheetPara m;
  156       functi on MoveNex t: boolean ;
  157  
  158       proper ty Current : ICoverSh eetParam r ead GetCur rent;
  159     end;
  160  
  161     ICoverSh eetParamLi st = inter face(IInte rface)
  162       ['{315 DADF5-5A72 -4A15-BD16 -48E764F5E 904}']
  163       functi on getCove rSheetPara m(aID: str ing): ICov erSheetPar am;
  164       functi on getCove rSheetPara mByIndex(a Index: int eger): ICo verSheetPa ram;
  165       functi on getCove rSheetPara mCount: in teger;
  166  
  167       functi on Add(aCo verSheetPa ram: ICove rSheetPara m): boolea n;
  168       functi on Clear:  boolean;
  169       functi on GetEnum erator: IC overSheetP aramEnumer ator;
  170  
  171       proper ty Param[a ID: string ]: ICoverS heetParam  read getCo verSheetPa ram;
  172       proper ty ParamBy Index[aInd ex: intege r]: ICover SheetParam  read getC overSheetP aramByInde x;
  173       proper ty Count:  integer re ad getCove rSheetPara mCount;
  174     end;
  175  
  176     ICoverSh eetParam_C PRS = inte rface(ICov erSheetPar am)
  177       ['{794 B69BE-3942 -450D-95D8 -18066CF4F A44}']
  178       functi on getLoad InBackgrou nd: boolea n;
  179       functi on getDate Format: st ring;
  180       functi on getDate Piece: int eger;
  181       functi on getDeta ilRPC: str ing;
  182       functi on getInve rt: boolea n;
  183       functi on getMain RPC: strin g;
  184       functi on getPara m1: string ;
  185       functi on getPoll ingID: str ing;
  186       functi on getStat us: string ;
  187       functi on getTitl eCase: boo lean;
  188       functi on getHigh lightText:  boolean;
  189       functi on getAllo wDetailPri nt: boolea n;
  190  
  191       proced ure setLoa dInBackgro und(const  aValue: bo olean);
  192       proced ure setPar am1(const  aValue: st ring);
  193  
  194       proper ty AllowDe tailPrint:  boolean r ead getAll owDetailPr int;
  195       proper ty LoadInB ackground:  boolean r ead getLoa dInBackgro und write  setLoadInB ackground;
  196       proper ty DateFor mat: strin g read get DateFormat ;
  197       proper ty DatePie ce: intege r read get DatePiece;
  198       proper ty DetailR PC: string  read getD etailRPC;
  199       proper ty Invert:  boolean r ead getInv ert;
  200       proper ty MainRPC : string r ead getMai nRPC;
  201       proper ty Param1:  string re ad getPara m1 write s etParam1;
  202       proper ty Polling ID: string  read getP ollingID;
  203       proper ty Status:  string re ad getStat us;
  204       proper ty TitleCa se: boolea n read get TitleCase;
  205       proper ty Highlig htText: bo olean read  getHighli ghtText;
  206     end;
  207  
  208     ICoverSh eetParam_W eb = inter face(ICove rSheetPara m)
  209       ['{7ED 04B07-E55F -4B0B-AEC9 -22B14FE24 D28}']
  210       functi on getHome Page: stri ng;
  211       functi on getShow Navigator:  boolean;
  212  
  213       proced ure setHom ePage(cons t aValue:  string);
  214       proced ure setSho wNavigator (const aVa lue: boole an);
  215  
  216       proper ty HomePag e: string  read getHo mePage wri te setHome Page;
  217       proper ty ShowNav igator: bo olean read  getShowNa vigator wr ite setSho wNavigator ;
  218     end;
  219  
  220     ICPRSBas eDisplayPa nel = inte rface(IInt erface)
  221       ['{BA7 574C5-D954 -48D2-BDA6 -C82AFE9B9 7CC}']
  222       functi on getBack groundColo r: TColor;
  223       functi on getTitl e: string;
  224       functi on getTitl eFontColor : TColor;
  225       functi on getTitl eFontBold:  boolean;
  226  
  227       proced ure setBac kgroundCol or(const a Value: TCo lor);
  228       proced ure setTit le(const a Value: str ing);
  229       proced ure setTit leFontColo r(const aV alue: TCol or);
  230       proced ure setTit leFontBold (const aVa lue: boole an);
  231  
  232       functi on Finishe dLoading:  boolean;
  233  
  234       proper ty Backgro undColor:  TColor rea d getBackg roundColor  write set Background Color;
  235       proper ty Title:  string rea d getTitle  write set Title;
  236       proper ty TitleFo ntColor: T Color read  getTitleF ontColor w rite setTi tleFontCol or;
  237       proper ty TitleFo ntBold: bo olean read  getTitleF ontBold wr ite setTit leFontBold ;
  238     end;
  239  
  240   function C overSheet:  ICoverShe et;
  241  
  242   const
  243     CV_CPRS_ PROB = 10;
  244     CV_CPRS_ ALLG = 20;
  245     CV_CPRS_ POST = 30;
  246     CV_CPRS_ MEDS = 40;
  247     CV_CPRS_ RMND = 50;
  248     CV_CPRS_ LABS = 60;
  249     CV_CPRS_ VITL = 70;
  250     CV_CPRS_ VSIT = 80;
  251     CV_CPRS_ IMMU = 90;
  252     CV_CPRS_ WVHT = 99;  // TDrugs  Patch OR* 3*377 and  WV*1*24 -  DanP@SLC 1 1-20-2015
  253     CV_WDGT_ CLOCK = 10 00;
  254     CV_WDGT_ MINIBROWSE R = 1001;
  255  
  256     DT_FORMA T = 'MMM D D, YYYY@hh :nn';
  257  
  258   function N ewGUID(aSt rip: boole an = True) : string;
  259  
  260   implementa tion
  261  
  262   uses
  263     System.S trUtils,
  264     oCoverSh eet;
  265  
  266   var
  267     fCoverSh eet: ICove rSheet;
  268  
  269   function C overSheet:  ICoverShe et;
  270   begin
  271     fCoverSh eet.QueryI nterface(I CoverSheet , Result);
  272   end;
  273  
  274   function N ewGUID(aSt rip: boole an = True) : string;
  275   var
  276     aGUID: T GUID;
  277   begin
  278     CreateGU ID(aGUID);
  279     Result : = GUIDToSt ring(aGUID );
  280     if aStri p then
  281       begin
  282         Resu lt := Repl aceStr(Res ult, '{',  '');
  283         Resu lt := Repl aceStr(Res ult, '}',  '');
  284         Resu lt := Repl aceStr(Res ult, '-',  '');
  285       end;
  286   end;
  287  
  288   initializa tion
  289  
  290   TCoverShee t.Create.G etInterfac e(ICoverSh eet, fCove rSheet);
  291  
  292   end.

Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.