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

31.1 Files compared

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

31.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 246
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_Labs;
  2   {
  3     ======== ========== ========== ========== ========== ========== ========== ========== ==
  4     *
  5     *        Applicatio n:  Demo
  6              Developer:       PII                   
  7     *        Site:          Salt L ake City I SC
  8     *        Date:          2015-1 2-21
  9     *
  10     *        Descriptio n:  Lab re sult panel  for CPRS  Coversheet .
  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_Labs =  class(Tfr aCoverShee tDisplayPa nel_CPRS)
  42     private
  43       { Priv ate declar ations }
  44     protecte d
  45       { Over ridded 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_Labs: T fraCoverSh eetDisplay Panel_CPRS _Labs;
  54  
  55   implementa tion
  56  
  57   uses
  58     uCore,
  59     ORFn,
  60     ORNet;
  61  
  62   {$R *.dfm}
  63  
  64   { TfraCove rSheetDisp layPanel_C PRS_Labs }
  65  
  66   constructo r TfraCove rSheetDisp layPanel_C PRS_Labs.C reate(aOwn er: TCompo nent);
  67   begin
  68     inherite d;
  69     AddColum n(0, 'Lab  Test');
  70     AddColum n(1, 'Date /Time');
  71     Collapse Columns;
  72   end;
  73  
  74   procedure  TfraCoverS heetDispla yPanel_CPR S_Labs.OnG etDetail(a Rec: TDeli mitedStrin g; aResult : TStrings );
  75   var
  76     aID: str ing;
  77   begin
  78     aID := a Rec.GetPie ce(1);
  79  
  80     if aID =  '' then
  81       Exit;
  82  
  83     if Copy( aRec.GetPi ece(1), 1,  2) = '0;'  then
  84       Exit;
  85  
  86     if StrTo FloatDef(C opy(aID, 1 , Pos(';',  aID) - 1) , -1) < 1  then
  87       Exit;
  88  
  89     CallVist A(CPRSPara ms.DetailR PC, [Patie nt.DFN, aR ec.GetPiec eAsInteger (1), aRec. GetPiece(1 )], aResul t);
  90   end;
  91  
  92   procedure  TfraCoverS heetDispla yPanel_CPR S_Labs.OnA ddItems(aL ist: TStri ngs);
  93   var
  94     aRec: TD elimitedSt ring;
  95     aStr: st ring;
  96   begin
  97     try
  98       lvData .Items.Beg inUpdate;
  99       for aS tr in aLis t do
  100         begi n
  101           aR ec := TDel imitedStri ng.Create( aStr);
  102  
  103           if  lvData.It ems.Count  = 0 then {  Executes  before any  item is a dded }
  104              if aRec.Ge tPieceIsNu ll(1) and  (aList.Cou nt = 1) th en
  105                Collapse Columns
  106              else
  107                ExpandCo lumns;
  108  
  109           wi th lvData. Items.Add  do
  110              begin
  111                Caption  := MixedCa se(aRec.Ge tPiece(2)) ;
  112                if aRec. GetPieceIs NotNull(1)  then
  113                  begin
  114                    SubI tems.Add(F ormatDateT ime(DT_FOR MAT, aRec. GetPieceAs TDateTime( 3)));
  115                    Data  := aRec;
  116                  end;
  117              end;
  118         end;
  119     finally
  120       lvData .Items.End Update;
  121     end;
  122   end;
  123  
  124   end.