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

29.1 Files compared

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

29.2 Comparison summary

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

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

29.4 Active regular expressions

No regular expressions were active.

29.5 Comparison detail

  1   unit mCove rSheetDisp layPanel_C PRS_Appts;
  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 appts/v isits/admi ssions.
  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     mCoverSh eetDisplay Panel_CPRS ,
  37     iCoverSh eetIntf,
  38     oDelimit edString;
  39  
  40   type
  41     TfraCove rSheetDisp layPanel_C PRS_Appts  = class(Tf raCoverShe etDisplayP anel_CPRS)
  42     private
  43       { Priv ate declar ations }
  44     protecte d
  45       { Over ridden eve nts - Tfra CoverSheet DisplayPan el_CPRS }
  46       proced ure OnAddI tems(aList : TStrings ); overrid e;
  47       proced ure OnGetD etail(aRec : TDelimit edString;  aResult: T Strings);  override;
  48     public
  49       constr uctor Crea te(aOwner:  TComponen t); overri de;
  50     end;
  51  
  52   var
  53     fraCover SheetDispl ayPanel_CP RS_Appts:  TfraCoverS heetDispla yPanel_CPR S_Appts;
  54  
  55   implementa tion
  56  
  57   uses
  58     uCore,
  59     ORFn,
  60     ORNet;
  61  
  62   {$R *.dfm}
  63  
  64   { TfraCove rSheetDisp layPanel_C PRS_Appts  }
  65  
  66   constructo r TfraCove rSheetDisp layPanel_C PRS_Appts. Create(aOw ner: TComp onent);
  67   begin
  68     inherite d;
  69     AddColum n(0, 'Date /Time');
  70     AddColum n(1, 'Loca tion');
  71     AddColum n(2, 'Acti on Req');
  72  
  73     Collapse Columns;
  74   end;
  75  
  76   procedure  TfraCoverS heetDispla yPanel_CPR S_Appts.On AddItems(a List: TStr ings);
  77   var
  78     aRec: TD elimitedSt ring;
  79     aStr: st ring;
  80   begin
  81     if aList .Count = 0  then
  82       aList. Append('^N o Visit Da ta.');
  83  
  84     try
  85       lvData .Items.Beg inUpdate;
  86  
  87       for aS tr in aLis t do
  88         begi n
  89           aR ec := TDel imitedStri ng.Create( aStr);
  90  
  91           if  lvData.It ems.Count  = 0 then
  92              if aRec.Ge tPieceIsNu ll(1) and  (aList.Cou nt = 1) th en
  93                Collapse Columns
  94              else
  95                ExpandCo lumns;
  96  
  97           wi th lvData. Items.Add  do
  98              begin
  99                if aRec. GetPieceIs Null(1) th en
  100                  Captio n := aRec. GetPiece(2 )
  101                else
  102                  Captio n := Forma tDateTime( DT_FORMAT,  aRec.GetP ieceAsTDat eTime(2));
  103                SubItems .Add(Mixed Case(aRec. GetPiece(3 )));
  104                SubItems .Add(Mixed Case(aRec. GetPiece(4 )));
  105                Data :=  aRec;
  106              end;
  107         end;
  108     finally
  109       lvData .Items.End Update;
  110     end;
  111   end;
  112  
  113   procedure  TfraCoverS heetDispla yPanel_CPR S_Appts.On GetDetail( aRec: TDel imitedStri ng; aResul t: TString s);
  114   begin
  115     CallVist A(CPRSPara ms.DetailR PC, [Patie nt.DFN, '' , aRec.Get Piece(1)],  aResult);
  116   end;
  117  
  118   end.