20. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 7/13/2017 1:08:06 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.

20.1 Files compared

# Location File Last Modified
1 v31B.zip\v31B\377\OR_30_377V235_SRC\Cover Sheet mCoverSheetDisplayPanel_CPRS_Reminders.pas Wed May 17 14:56:10 2017 UTC
2 v31B.zip\v31B\377\OR_30_377V235_SRC\Cover Sheet mCoverSheetDisplayPanel_CPRS_Reminders.pas Thu Jul 13 14:44:39 2017 UTC

20.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 428
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 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  
  145       if (no t InitialR emindersLo aded) then
  146         begi n
  147           Re mindersSta rted := Tr ue;
  148           In itialRemin dersLoaded  := True;
  149           Lo adReminder Data;
  150         end;
  151     finally
  152       lvData .Items.End Update;
  153     end;
  154   end;
  155  
  156   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnStartB ackgroundL oad(Sender : TObject) ;
  157   begin
  158     inherite d;
  159     CoverShe etReminder sInBackgro und := Tru e;
  160     CoverShe et.OnRefre shReminder s(Sender);
  161     Applicat ion.Proces sMessages;
  162   end;
  163  
  164   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnComple teBackgrou ndLoad(Sen der: TObje ct);
  165   begin
  166     inherite d;
  167     CoverShe etReminder sInBackgro und := Fal se;
  168     CoverShe et.OnRefre shReminder s(Sender);
  169     Applicat ion.Proces sMessages;
  170   end;
  171  
  172   function T fraCoverSh eetDisplay Panel_CPRS _Reminders .getTitle:  string;
  173   begin
  174     Result : = CUSTOM_T ITLE;
  175   end;
  176  
  177   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnPopupM enu(Sender : TObject) ;
  178   var
  179     aRec: TD elimitedSt ring;
  180   begin
  181     inherite d;
  182  
  183     aRec :=  ListViewIt emRec;
  184  
  185     if Assig ned(aRec)  then
  186       begin
  187         Remi nderMenuBu ilder(fRem inderOptio ns, aRec.G etDelimite dString, F alse, Fals e, False);
  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   end;
  214  
  215   end.

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