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

34.1 Files compared

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

34.2 Comparison summary

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

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

34.4 Active regular expressions

No regular expressions were active.

34.5 Comparison detail

  1   unit mCove rSheetDisp layPanel_C PRS_Remind ers;
  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-08
  9     *
  10     *        Descriptio n:  Custom ized displ ay panel f or Clinica l Reminder s.
  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.V ariants,
  24     System.C lasses,
  25     System.I mageList,
  26     Vcl.Grap hics,
  27     Vcl.Cont rols,
  28     Vcl.Form s,
  29     Vcl.Dial ogs,
  30     Vcl.ExtC trls,
  31     Vcl.Menu s,
  32     Vcl.ImgL ist,
  33     Vcl.ComC trls,
  34     Vcl.StdC trls,
  35     Vcl.Butt ons,
  36     iCoverSh eetIntf,
  37     mCoverSh eetDisplay Panel_CPRS ,
  38     oDelimit edString;
  39  
  40   type
  41     TfraCove rSheetDisp layPanel_C PRS_Remind ers = clas s(TfraCove rSheetDisp layPanel_C PRS)
  42     private
  43       fSepar ator: TMen uItem;
  44       fRemin derOptions : TMenuIte m;
  45     protecte d
  46       { Inhe rited meth ods }
  47       functi on getTitl e: string;  override;
  48       proced ure setTit le(const a Value: str ing); over ride;
  49  
  50       { Inhe rited even ts - TfraG ridPanel }
  51       proced ure OnPopu pMenu(Send er: TObjec t); overri de;
  52       proced ure OnPopu pMenuInit( Sender: TO bject); ov erride;
  53       proced ure OnPopu pMenuFree( Sender: TO bject); ov erride;
  54  
  55       { Inhe rited even ts - TfraC overSheetD isplayPane l_CPRS }
  56       proced ure OnAddI tems(aList : TStrings ); overrid e;
  57       proced ure OnGetD etail(aRec : TDelimit edString;  aResult: T Strings);  override;
  58  
  59       proced ure OnStar tBackgroun dLoad(Send er: TObjec t); overri de;
  60       proced ure OnComp leteBackgr oundLoad(S ender: TOb ject); ove rride;
  61     public
  62       constr uctor Crea te(aOwner:  TComponen t); overri de;
  63       destru ctor Destr oy; overri de;
  64     end;
  65  
  66   var
  67     fraCover SheetDispl ayPanel_CP RS_Reminde rs: TfraCo verSheetDi splayPanel _CPRS_Remi nders;
  68  
  69   implementa tion
  70  
  71   uses
  72     uCore,
  73     uReminde rs,
  74     rReminde rs,
  75     fIconLeg end,
  76     ORFn,
  77     ORNet;
  78  
  79   const
  80     CUSTOM_T ITLE = 'Cl inical Rem inders'; / / The orig inal title  has colum n headers  in it.
  81  
  82   {$R *.dfm}
  83  
  84  
  85   constructo r TfraCove rSheetDisp layPanel_C PRS_Remind ers.Create (aOwner: T Component) ;
  86   begin
  87     inherite d;
  88  
  89     AddColum n(0, 'Remi nder');
  90     AddColum n(1, 'Due  Date');
  91     Collapse Columns;
  92   end;
  93  
  94   destructor  TfraCover SheetDispl ayPanel_CP RS_Reminde rs.Destroy ;
  95   begin
  96     inherite d;
  97   end;
  98  
  99   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnGetDet ail(aRec:  TDelimited String; aR esult: TSt rings);
  100   var
  101     aList: T StringList ;
  102   begin
  103     aList :=  TStringLi st.Create;
  104     try
  105       Detail Reminder(a Rec.GetPie ceAsIntege r(1), aLis t);
  106       aResul t.Text :=  aList.Text ;
  107     finally
  108       FreeAn dNil(aList );
  109     end;
  110   end;
  111  
  112   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnAddIte ms(aList:  TStrings);
  113   var
  114     aRec: TD elimitedSt ring;
  115     aStr: st ring;
  116   begin
  117     try
  118       lvData .Items.Beg inUpdate;
  119       for aS tr in aLis t do
  120         begi n
  121           aR ec := TDel imitedStri ng.Create( aStr);
  122  
  123           if  lvData.It ems.Count  = 0 then
  124              if aRec.Ge tPieceIsNu ll(1) and  (aList.Cou nt = 1) th en
  125                begin
  126                  Collap seColumns;
  127                  lvData .Items.Add .Caption : = aRec.Get Piece(2);
  128                  Contin ue;
  129                end
  130              else
  131                ExpandCo lumns;
  132  
  133           if  aRec.GetP ieceIsNotN ull(3) the n
  134              with lvDat a.Items.Ad d do
  135                begin
  136                  Captio n := aRec. GetPiece(2 );
  137                  if aRe c.GetPiece IsDouble(3 ) then
  138                    SubI tems.Add(F ormatDateT ime('MMM D D, YYYY',  aRec.GetPi eceAsTDate Time(3)))
  139                  else
  140                    SubI tems.Add(a Rec.GetPie ce(3));
  141                  Data : = aRec;
  142                end;
  143         end;
  144         Remi ndersEvalu ated(TStri ngList(aLi st));
  145         if I nteractive RemindersA ctive then
  146           be gin
  147              RemindersS tarted :=  TRUE;
  148              LoadRemind erData(Cov erSheetRem indersInBa ckground);
  149           en d;
  150     finally
  151       lvData .Items.End Update;
  152     end;
  153   end;
  154  
  155   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnStartB ackgroundL oad(Sender : TObject) ;
  156   begin
  157     inherite d;
  158     CoverShe etReminder sInBackgro und := Tru e;
  159     CoverShe et.OnRefre shReminder s(Sender);
  160     Applicat ion.Proces sMessages;
  161   end;
  162  
  163   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnComple teBackgrou ndLoad(Sen der: TObje ct);
  164   begin
  165     inherite d;
  166     CoverShe etReminder sInBackgro und := Fal se;
  167     CoverShe et.OnRefre shReminder s(Sender);
  168     Applicat ion.Proces sMessages;
  169   end;
  170  
  171   function T fraCoverSh eetDisplay Panel_CPRS _Reminders .getTitle:  string;
  172   begin
  173     Result : = CUSTOM_T ITLE;
  174   end;
  175  
  176   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnPopupM enu(Sender : TObject) ;
  177   var
  178     aRec: TD elimitedSt ring;
  179   begin
  180     inherite d;
  181  
  182     aRec :=  ListViewIt emRec;
  183  
  184     if Assig ned(aRec)  then
  185       begin
  186         // A sterick is  needed fo r the Remi nderMenuBu ilder meth od.
  187         Remi nderMenuBu ilder(fRem inderOptio ns, '*' +  aRec.GetDe limitedStr ing, False , False, F alse);
  188         fRem inderOptio ns.Enabled  := True;
  189       end
  190     else
  191       fRemin derOptions .Enabled : = False;
  192   end;
  193  
  194   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnPopupM enuFree(Se nder: TObj ect);
  195   begin
  196     FreeAndN il(fSepara tor);
  197     FreeAndN il(fRemind erOptions) ;
  198     inherite d;
  199   end;
  200  
  201   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnPopupM enuInit(Se nder: TObj ect);
  202   begin
  203     inherite d;
  204     fSeparat or := NewL ine;
  205     fReminde rOptions : = NewItem( 'Reminders  Options . ..', 0, Fa lse, False , nil, 0,  'pmnRemind erOptions' );
  206     pmn.Item s.Add(fSep arator);
  207     pmn.Item s.Add(fRem inderOptio ns);
  208   end;
  209  
  210   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.setTitle (const aVa lue: strin g);
  211   begin
  212     lblTitle .Caption : = CUSTOM_T ITLE;
  213     pnlWorks pace.Capti on := CUST OM_TITLE;
  214   end;
  215  
  216   end.