24. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 2/17/2017 12:43:22 PM Central Standard 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 CPRS_V32_T20_cif.zip\OR_30_405V20_SRC.zip\CPRS-chart\Cover Sheet oCoverSheetParam_CPRS.pas Thu Dec 15 14:28:30 2016 UTC
2 CPRS_V32_T20_cif.zip\OR_30_405V20_SRC.zip\CPRS-chart\Cover Sheet oCoverSheetParam_CPRS.pas Fri Feb 17 17:19:13 2017 UTC

24.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 372
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 oCove rSheetPara m_CPRS;
  2  
  3   {
  4     ======== ========== ========== ========== ========== ========== ========== ========== ==
  5     *
  6     *        Applicatio n:  CPRS -  CoverShee t
  7       *         Developer:       PII                   
  8     *        Site:          Salt L ake City I SC
  9     *        Date:          2015-1 2-04
  10     *
  11     *        Descriptio n:  Inheri ted from T CoverSheet Param this  parameter  holds
  12     *                       custom  items for  displayin g CPRS dat a in the C overSheet.
  13     *
  14     *        Notes:
  15     *
  16     ======== ========== ========== ========== ========== ========== ========== ========== ==
  17   }
  18   interface
  19  
  20   uses
  21     System.C lasses,
  22     System.S ysUtils,
  23     Vcl.Cont rols,
  24     oCoverSh eetParam,
  25     iCoverSh eetIntf;
  26  
  27   type
  28     TCoverSh eetParam_C PRS = clas s(TCoverSh eetParam,  ICoverShee tParam_CPR S)
  29     private
  30       fLoadI nBackgroun d: boolean ;
  31       fDateF ormat: str ing;
  32       fDateP iece: inte ger;
  33       fDetai lRPC: stri ng;
  34       fInver t: boolean ;
  35       fMainR PC: string ;
  36       fParam 1: string;
  37       fStatu s: string;
  38       fTitle Case: bool ean;
  39       fPolli ngID: stri ng;
  40       fHighl ightText:  boolean;
  41     protecte d
  42       functi on getLoad InBackgrou nd: boolea n; virtual ;
  43       functi on getDate Format: st ring; virt ual;
  44       functi on getDate Piece: int eger; virt ual;
  45       functi on getDeta ilRPC: str ing; virtu al;
  46       functi on getInve rt: boolea n; virtual ;
  47       functi on getMain RPC: strin g; virtual ;
  48       functi on getPara m1: string ; virtual;
  49       functi on getStat us: string ; virtual;
  50       functi on getTitl eCase: boo lean; virt ual;
  51       functi on getPoll ingID: str ing; virtu al;
  52       functi on getHigh lightText:  boolean;  virtual;
  53  
  54       proced ure setLoa dInBackgro und(const  aValue: bo olean);
  55  
  56       functi on NewCove rSheetCont rol(aOwner : TCompone nt): TCont rol; overr ide;
  57     public
  58       constr uctor Crea te(aInitSt ring: stri ng);
  59       destru ctor Destr oy; overri de;
  60     end;
  61  
  62   implementa tion
  63  
  64   uses
  65     oDelimit edString,
  66     mCoverSh eetDisplay Panel_CPRS ;
  67  
  68   { TCoverSh eetParam_C PRS }
  69  
  70   constructo r TCoverSh eetParam_C PRS.Create (aInitStri ng: string );
  71   begin
  72     inherite d Create;
  73  
  74     with New DelimitedS tring(aIni tString) d o
  75       try
  76         fID  := GetPiec eAsInteger (1);
  77         fTit le := GetP iece(2);
  78         fSta tus := Get Piece(3);
  79         fMai nRPC := Ge tPiece(6);
  80         fInv ert := Get PieceAsBoo lean(8, Fa lse);
  81         fDat eFormat :=  GetPiece( 10);
  82         fDat ePiece :=  GetPieceAs Integer(11 , 0);
  83         fPar am1 := Get Piece(12);
  84         fDet ailRPC :=  GetPiece(1 6);
  85         fTit leCase :=  GetPieceAs Boolean(7) ;
  86         fHig hlightText  := GetPie ceIsNotNul l(9);
  87         case  fID of
  88           10 : fPolling ID := 'PRO B'; // Act ive Proble ms
  89           30 : fPolling ID := 'CWA D'; // Pos tings
  90           40 : fPolling ID := 'MED S'; // Med ications
  91           50 : fPolling ID := 'RMN D'; // Cli nical Remi nders
  92           60 : fPolling ID := 'LAB S'; // Rec ent Lab Re sults
  93           70 : fPolling ID := 'VIT L'; // Vit als
  94           80 : fPolling ID := 'VSI T'; // App ointments
  95         else
  96           fP ollingID : = '';
  97         end;
  98       finall y
  99         Free ;
  100       end;
  101     {
  102       Exampl e of aInit String fro m VistA
  103  
  104       ZZZ(0) ="99^Women 's Health^ ^S^^WVRPCO R COVER^1^ ^^^^^^20^2 ,3^WVRPCOR  DETAIL^1^ 1606"
  105       ZZZ(1) ="70^Vital s^^S^^ORQQ VI VITALS^ ^^^T^4^^^5 ,17,19,27^ 2,5,4,6,7, 8^^1.1^34"
  106       ZZZ(2) ="80^Appoi ntments/Vi sits/Admis sions^^S^^ ORWCV VST^ 1^1^^T^2^^ ^16,27^2,3 ,4^ORWCV D TLVST^2^35 "
  107       ZZZ(3) ="10^Activ e Problems ^^S^^ORQQP L LIST^1^^ ^^^A^^2,3^ 9,10,2^ORQ QPL DETAIL ^3^28"
  108       ZZZ(4) ="20^Aller gies / Adv erse React ions^^S^^O RQQAL LIST ^1^^^^^^^^ 2^ORQQAL D ETAIL^4^29 "
  109       ZZZ(5) ="30^Posti ngs^^S^^OR QQPP LIST^ 1^^Maroon^ D^3^^^20^2 ,3^^5^30"
  110       ZZZ(6) ="40^Activ e Medicati ons^^S^^OR WPS COVER^ 1^1^^^^1^^ 35^2,4^ORW PS DETAIL^ 6^31"
  111       ZZZ(7) ="50^Clini cal Remind ers                                            Due Dat e^^S^^ORQQ PX REMINDE RS LIST^^^ ^D^3^^^34, 44^2,3^^7^ 32"
  112       ZZZ(8) ="60^Recen t Lab Resu lts^^S^^OR WCV LAB^1^ ^^D^3^^^34 ^2,3^ORWOR  RESULT^8^ 33"
  113       ZZZ(9) ="90^Recen t Immuniza tions^^S^^ ORQQPX IMM UN LIST^1^ ^Purple^T^ 3^^^15,35^ 2,4,3^ORWC V DTLVST^9 ^1138"
  114     }
  115   end;
  116  
  117   destructor  TCoverShe etParam_CP RS.Destroy ;
  118   begin
  119     inherite d;
  120   end;
  121  
  122   function T CoverSheet Param_CPRS .getLoadIn Background : boolean;
  123   begin
  124     Result : = fLoadInB ackground;
  125   end;
  126  
  127   function T CoverSheet Param_CPRS .getDateFo rmat: stri ng;
  128   begin
  129     Result : = fDateFor mat;
  130   end;
  131  
  132   function T CoverSheet Param_CPRS .getDatePi ece: integ er;
  133   begin
  134     Result : = fDatePie ce;
  135   end;
  136  
  137   function T CoverSheet Param_CPRS .getDetail RPC: strin g;
  138   begin
  139     Result : = fDetailR PC;
  140   end;
  141  
  142   function T CoverSheet Param_CPRS .getHighli ghtText: b oolean;
  143   begin
  144     Result : = fHighlig htText;
  145   end;
  146  
  147   function T CoverSheet Param_CPRS .getInvert : boolean;
  148   begin
  149     Result : = fInvert;
  150   end;
  151  
  152   function T CoverSheet Param_CPRS .getMainRP C: string;
  153   begin
  154     Result : = fMainRPC ;
  155   end;
  156  
  157   function T CoverSheet Param_CPRS .getParam1 : string;
  158   begin
  159     Result : = fParam1;
  160   end;
  161  
  162   function T CoverSheet Param_CPRS .getPollin gID: strin g;
  163   begin
  164     Result : = fPolling ID;
  165   end;
  166  
  167   function T CoverSheet Param_CPRS .getStatus : string;
  168   begin
  169     Result : = fStatus;
  170   end;
  171  
  172   function T CoverSheet Param_CPRS .getTitleC ase: boole an;
  173   begin
  174     Result : = fTitleCa se;
  175   end;
  176  
  177   function T CoverSheet Param_CPRS .NewCoverS heetContro l(aOwner:  TComponent ): TContro l;
  178   begin
  179     Result : = TfraCove rSheetDisp layPanel_C PRS.Create (aOwner);
  180   end;
  181  
  182   procedure  TCoverShee tParam_CPR S.setLoadI nBackgroun d(const aV alue: bool ean);
  183   begin
  184     fLoadInB ackground  := aValue;
  185   end;
  186  
  187   end.

Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.