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

24.1 Files compared

# Location File Last Modified
1 C:\AraxisMergeCompare\Pri_un\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet mCoverSheetDisplayPanel_CPRS_ActiveMeds.pas Wed Dec 12 14:04:38 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_ActiveMeds.pas Fri Apr 12 13:42:10 2019 UTC

24.2 Comparison summary

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

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

24.4 Active regular expressions

No regular expressions were active.

24.5 Comparison detail

  1   unit mCove rSheetDisp layPanel_C PRS_Active Meds;
  2   {
  3     ======== ========== ========== ========== ========== ========== ========== ========== ==
  4     *
  5     *        Applicatio n:  CPRS
  6              Developer:       PII                   
  7     *        Site:          Salt L ake City I SC
  8     *        Date:          2015-1 2-04
  9     *
  10     *        Descriptio n:  Inheri ted frame  for custom  handling  of the Act ive Meds.
  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     oDelimit edString,
  38     iCoverSh eetIntf;
  39  
  40   type
  41     TfraCove rSheetDisp layPanel_C PRS_Active Meds = cla ss(TfraCov erSheetDis playPanel_ 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       { Publ ic declara tions }
  51     end;
  52  
  53   var
  54     fraCover SheetDispl ayPanel_CP RS_ActiveM eds: TfraC overSheetD isplayPane l_CPRS_Act iveMeds;
  55  
  56   implementa tion
  57  
  58   uses
  59     rMeds,
  60     uCore,
  61     ORFn,
  62     ORNet;
  63  
  64   {$R *.dfm}
  65  
  66   { TfraCove rSheetDisp layPanel_C PRS_Active Meds }
  67  
  68   constructo r TfraCove rSheetDisp layPanel_C PRS_Active Meds.Creat e(aOwner:  TComponent );
  69   begin
  70     inherite d;
  71     AddColum n(0, 'Medi cation');
  72     AddColum n(1, 'Stat us');
  73     Collapse Columns;
  74   end;
  75  
  76   procedure  TfraCoverS heetDispla yPanel_CPR S_ActiveMe ds.OnAddIt ems(aList:  TStrings) ;
  77   var
  78     aRec: TD elimitedSt ring;
  79     aStr: st ring;
  80     aActiveM eds: TStri ngList;
  81   begin
  82     lvData.I tems.Begin Update;
  83     try
  84       lvData .Items.Cle ar;
  85  
  86       aActiv eMeds := T StringList .Create;
  87       try
  88         Extr actActiveM eds(aActiv eMeds, aLi st);
  89  
  90         for  aStr in aA ctiveMeds  do
  91           be gin
  92              aRec := TD elimitedSt ring.Creat e(aStr);
  93  
  94              if lvData. Items.Coun t = 0 then
  95                if aRec. GetPieceEq uals(1, '0 ') and (aL ist.Count  = 1) then
  96                  Collap seColumns
  97                else
  98                  Expand Columns;
  99  
  100              with lvDat a.Items.Ad d do
  101                begin
  102                  Captio n := Mixed Case(aRec. GetPiece(2 ));
  103                  SubIte ms.Add(Mix edCase(aRe c.GetPiece (4)));
  104                  Data : = aRec;
  105                end;
  106           en d;
  107       finall y
  108         Free AndNil(aAc tiveMeds);
  109       end;
  110     finally
  111       lvData .Items.End Update;
  112     end;
  113   end;
  114  
  115   procedure  TfraCoverS heetDispla yPanel_CPR S_ActiveMe ds.OnGetDe tail(aRec:  TDelimite dString; a Result: TS trings);
  116   begin
  117     CallVist A(CPRSPara ms.DetailR PC, [Patie nt.DFN, aR ec.GetPiec e(1)], aRe sult);
  118   end;
  119  
  120   end.