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

29.1 Files compared

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

29.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 218
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_Postin gs;
  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:  Panel  for Postin gs Display  on CPRS C oversheet.
  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  
  39   type
  40     TfraCove rSheetDisp layPanel_C PRS_Postin gs = class (TfraCover SheetDispl ayPanel_CP RS)
  41     private
  42       { Priv ate declar ations }
  43     protecte d
  44       { Over ridden eve nts - Tfra CoverSheet DisplayPan el_CPRS }
  45       proced ure OnAddI tems(aList : TStrings ); overrid e;
  46       proced ure OnGetD etail(aRec : TDelimit edString;  aResult: T Strings);  override;
  47       proced ure OnBegi nUpdate(Se nder: TObj ect); over ride;
  48     public
  49       constr uctor Crea te(aOwner:  TComponen t); overri de;
  50     end;
  51  
  52   var
  53     fraCover SheetDispl ayPanel_CP RS_Posting s: TfraCov erSheetDis playPanel_ CPRS_Posti ngs;
  54  
  55   implementa tion
  56  
  57   {$R *.dfm}
  58  
  59   { TfraCove rSheetDisp layPanel_C PRS_Postin gs }
  60  
  61   uses
  62     uConst,
  63     uCore,
  64     ORFn,
  65     ORNet,
  66     VAUtils;
  67  
  68   constructo r TfraCove rSheetDisp layPanel_C PRS_Postin gs.Create( aOwner: TC omponent);
  69   begin
  70     inherite d;
  71     AddColum n(0, 'Post ing');
  72     Collapse Columns;
  73   end;
  74  
  75   procedure  TfraCoverS heetDispla yPanel_CPR S_Postings .OnAddItem s(aList: T Strings);
  76   var
  77     aListIte m: TListIt em;
  78   begin
  79     inherite d;
  80     { Update  the ALLER GIES item  to have an  identifie r of 'A' i f it exist s }
  81     for aLis tItem in l vData.Item s do
  82       if aLi stItem.Dat a <> nil t hen
  83         if T DelimitedS tring(aLis tItem.Data ).GetPiece Equals(2,  'ALLERGIES ') then
  84           TD elimitedSt ring(aList Item.Data) .SetPiece( 1, 'A');
  85   end;
  86  
  87   procedure  TfraCoverS heetDispla yPanel_CPR S_Postings .OnGetDeta il(aRec: T DelimitedS tring; aRe sult: TStr ings);
  88   begin
  89     if aRec. GetPieceEq uals(1, 'A ') then
  90       CallVi stA('ORQQA L LIST REP ORT', [Pat ient.DFN],  aResult)
  91     else if  aRec.GetPi eceEquals( 1, 'WH') t hen
  92       CallVi stA('WVRPC OR POSTREP ', [Patien t.DFN, aRe c.GetPiece (3), Scree nReaderAct ive], aRes ult)
  93     else if  aRec.GetPi eceIsNotNu ll(1) then
  94       begin
  95         Noti fyOtherApp s(NAE_REPO RT, 'TUI^'  + aRec.Ge tPiece(1)) ;
  96         Call VistA('TIU  GET RECOR D TEXT', [ aRec.GetPi ece(1)], a Result);
  97       end
  98     else
  99       aResul t.Text :=  'Invalid D etail Item ';
  100   end;
  101  
  102   procedure  TfraCoverS heetDispla yPanel_CPR S_Postings .OnBeginUp date(Sende r: TObject );
  103   begin
  104     if Scree nReaderAct ive then
  105     begin
  106       CPRSPa rams.Param 1 := '1';
  107     end;
  108   end;
  109  
  110   end.