31. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 4/16/2019 12:20:46 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.

31.1 Files compared

# Location File Last Modified
1 C:\AraxisMergeCompare\Pri_un\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet mCoverSheetDisplayPanel_CPRS_Reminders.pas Wed Dec 12 14:04:36 2018 UTC
2 C:\AraxisMergeCompare\Pri_re\CPRS v32 P2 PCE Standardization-redacted\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet mCoverSheetDisplayPanel_CPRS_Reminders.pas Fri Apr 12 13:42:14 2019 UTC

31.2 Comparison summary

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

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

31.4 Active regular expressions

No regular expressions were active.

31.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       if  In itialRemin dersLoaded  then Clea rReminderD ata;
  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         // A sterick is  needed fo r the Remi nderMenuBu ilder meth od.
  188         Remi nderMenuBu ilder(fRem inderOptio ns, aRec.G etDelimite dString, F alse, Fals e, False);
  189         fRem inderOptio ns.Enabled  := True;
  190       end
  191     else
  192       fRemin derOptions .Enabled : = False;
  193   end;
  194  
  195   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnPopupM enuFree(Se nder: TObj ect);
  196   begin
  197     FreeAndN il(fSepara tor);
  198     FreeAndN il(fRemind erOptions) ;
  199     inherite d;
  200   end;
  201  
  202   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnPopupM enuInit(Se nder: TObj ect);
  203   begin
  204     inherite d;
  205     fSeparat or := NewL ine;
  206     fReminde rOptions : = NewItem( 'Reminders  Options . ..', 0, Fa lse, False , nil, 0,  'pmnRemind erOptions' );
  207     pmn.Item s.Add(fSep arator);
  208     pmn.Item s.Add(fRem inderOptio ns);
  209   end;
  210  
  211   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.setTitle (const aVa lue: strin g);
  212   begin
  213     lblTitle .Caption : = CUSTOM_T ITLE;
  214     pnlWorks pace.Capti on := CUST OM_TITLE;
  215   end;
  216  
  217   end.