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

30.1 Files compared

# Location File Last Modified
1 C:\AraxisMergeCompare\Pri_un\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet mCoverSheetDisplayPanel_CPRS_ProblemList.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_ProblemList.pas Fri Apr 12 13:42:14 2019 UTC

30.2 Comparison summary

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

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

30.4 Active regular expressions

No regular expressions were active.

30.5 Comparison detail

  1   unit mCove rSheetDisp layPanel_C PRS_Proble mList;
  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:  Proble m List dis play 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_Proble mList = cl ass(TfraCo verSheetDi splayPanel _CPRS)
  42     private
  43       { Priv ate declar ations }
  44     protecte d
  45       { Over ridden eve nts - Tfra CoverSheet DisplayPan el_CPRS }
  46       proced ure OnGetD etail(aRec : TDelimit edString;  aResult: T Strings);  override;
  47     public
  48       constr uctor Crea te(aOwner:  TComponen t); overri de;
  49     end;
  50  
  51   var
  52     fraCover SheetDispl ayPanel_CP RS_Problem List: Tfra CoverSheet DisplayPan el_CPRS_Pr oblemList;
  53  
  54   implementa tion
  55  
  56   {$R *.dfm}
  57  
  58   { TfraCove rSheetDisp layPanel_C PRS_Proble mList }
  59  
  60   uses
  61     ORFn;
  62  
  63   const
  64     TX_INACT IVE_ICDCOD E = 'The I CD-9-CM co de for thi s problem  is inactiv e.' + CRLF  + CRLF +
  65       'Pleas e correct  this code  using the  ''Problems '' tab.';
  66     TC_INACT IVE_ICDCOD E = 'Inact ive ICD-9- CM code';
  67     TX_INACT IVE_10DCOD E = 'The I CD-10-CM c ode for th is problem  is inacti ve.' + CRL F + CRLF +
  68       'Pleas e correct  this code  using the  ''Problems '' tab.';
  69     TC_INACT IVE_10DCOD E = 'Inact ive ICD-10 -CM code';
  70     TX_INACT IVE_SCTCOD E = 'The S NOMED CT c ode for th is problem  is inacti ve.' + CRL F + CRLF +
  71       'Pleas e correct  this code  using the  ''Problems '' tab.';
  72     TC_INACT IVE_SCTCOD E = 'Inact ive SNOMED  CT code';
  73  
  74   constructo r TfraCove rSheetDisp layPanel_C PRS_Proble mList.Crea te(aOwner:  TComponen t);
  75   begin
  76     inherite d;
  77     AddColum n(0, 'Prob lem List') ;
  78     Collapse Columns;
  79   end;
  80  
  81   procedure  TfraCoverS heetDispla yPanel_CPR S_ProblemL ist.OnGetD etail(aRec : TDelimit edString;  aResult: T Strings);
  82   begin
  83     if aRec. GetPieceEq uals(13, ' #') then
  84       if aRe c.GetPiece Equals(16,  '10D') th en
  85         Info Box(TX_INA CTIVE_10DC ODE, TC_IN ACTIVE_10D CODE, MB_I CONWARNING  or MB_OK)
  86       else
  87         Info Box(TX_INA CTIVE_ICDC ODE, TC_IN ACTIVE_ICD CODE, MB_I CONWARNING  or MB_OK)
  88     else if  aRec.GetPi eceEquals( 13, '$') t hen
  89       InfoBo x(TX_INACT IVE_SCTCOD E, TC_INAC TIVE_SCTCO DE, MB_ICO NWARNING o r MB_OK);
  90  
  91     inherite d;
  92   end;
  93  
  94   end.