41. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 4/16/2019 12:20:47 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.

41.1 Files compared

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

41.2 Comparison summary

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

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

41.4 Active regular expressions

No regular expressions were active.

41.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       fAllow DetailPrin t: boolean ;
  42     protecte d
  43       functi on getLoad InBackgrou nd: boolea n; virtual ;
  44       functi on getDate Format: st ring; virt ual;
  45       functi on getDate Piece: int eger; virt ual;
  46       functi on getDeta ilRPC: str ing; virtu al;
  47       functi on getInve rt: boolea n; virtual ;
  48       functi on getMain RPC: strin g; virtual ;
  49       functi on getPara m1: string ; virtual;
  50       functi on getStat us: string ; virtual;
  51       functi on getTitl eCase: boo lean; virt ual;
  52       functi on getPoll ingID: str ing; virtu al;
  53       functi on getHigh lightText:  boolean;  virtual;
  54       functi on getAllo wDetailPri nt: boolea n; virtual ;
  55  
  56       proced ure setLoa dInBackgro und(const  aValue: bo olean);
  57       proced ure setAll owDetailPr int(const  aValue: bo olean);
  58       proced ure setPar am1(const  aValue: st ring);
  59  
  60       functi on NewCove rSheetCont rol(aOwner : TCompone nt): TCont rol; overr ide;
  61     public
  62       constr uctor Crea te(aInitSt ring: stri ng);
  63       destru ctor Destr oy; overri de;
  64     end;
  65  
  66   implementa tion
  67  
  68   uses
  69     oDelimit edString,
  70     mCoverSh eetDisplay Panel_CPRS ;
  71  
  72   { TCoverSh eetParam_C PRS }
  73  
  74   constructo r TCoverSh eetParam_C PRS.Create (aInitStri ng: string );
  75   begin
  76     inherite d Create;
  77  
  78     with New DelimitedS tring(aIni tString) d o
  79       try
  80         fID  := GetPiec eAsInteger (1);
  81         fTit le := GetP iece(2);
  82         fSta tus := Get Piece(3);
  83         fMai nRPC := Ge tPiece(6);
  84         fInv ert := Get PieceAsBoo lean(8, Fa lse);
  85         fDat eFormat :=  GetPiece( 10);
  86         fDat ePiece :=  GetPieceAs Integer(11 , 0);
  87         fPar am1 := Get Piece(12);
  88         fDet ailRPC :=  GetPiece(1 6);
  89         fTit leCase :=  GetPieceAs Boolean(7) ;
  90         fHig hlightText  := GetPie ceIsNotNul l(9);
  91         fAll owDetailPr int := Fal se;
  92         case  fID of
  93           10 :
  94              fPollingID  := 'PROB' ; // Activ e Problems
  95           30 :
  96              fPollingID  := 'CWAD' ; // Posti ngs
  97           40 :
  98              fPollingID  := 'MEDS' ; // Medic ations
  99           50 :
  100              fPollingID  := 'RMND' ; // Clini cal Remind ers
  101           60 :
  102              fPollingID  := 'LABS' ; // Recen t Lab Resu lts
  103           70 :
  104              fPollingID  := 'VITL' ; // Vital s
  105           80 :
  106              fPollingID  := 'VSIT' ; // Appoi ntments
  107         else
  108           fP ollingID : = '';
  109         end;
  110       finall y
  111         Free ;
  112       end;
  113     {
  114       Exampl e of aInit String fro m VistA
  115  
  116       ZZZ(0) ="99^Women 's Health^ ^S^^WVRPCO R COVER^1^ ^^^^^^20^2 ,3^WVRPCOR  DETAIL^1^ 1606"
  117       ZZZ(1) ="70^Vital s^^S^^ORQQ VI VITALS^ ^^^T^4^^^5 ,17,19,27^ 2,5,4,6,7, 8^^1.1^34"
  118       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 "
  119       ZZZ(3) ="10^Activ e Problems ^^S^^ORQQP L LIST^1^^ ^^^A^^2,3^ 9,10,2^ORQ QPL DETAIL ^3^28"
  120       ZZZ(4) ="20^Aller gies / Adv erse React ions^^S^^O RQQAL LIST ^1^^^^^^^^ 2^ORQQAL D ETAIL^4^29 "
  121       ZZZ(5) ="30^Posti ngs^^S^^OR QQPP LIST^ 1^^Maroon^ D^3^^^20^2 ,3^^5^30"
  122       ZZZ(6) ="40^Activ e Medicati ons^^S^^OR WPS COVER^ 1^1^^^^1^^ 35^2,4^ORW PS DETAIL^ 6^31"
  123       ZZZ(7) ="50^Clini cal Remind ers                                            Due Dat e^^S^^ORQQ PX REMINDE RS LIST^^^ ^D^3^^^34, 44^2,3^^7^ 32"
  124       ZZZ(8) ="60^Recen t Lab Resu lts^^S^^OR WCV LAB^1^ ^^D^3^^^34 ^2,3^ORWOR  RESULT^8^ 33"
  125       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"
  126     }
  127   end;
  128  
  129   destructor  TCoverShe etParam_CP RS.Destroy ;
  130   begin
  131     inherite d;
  132   end;
  133  
  134   function T CoverSheet Param_CPRS .getLoadIn Background : boolean;
  135   begin
  136     Result : = fLoadInB ackground;
  137   end;
  138  
  139   function T CoverSheet Param_CPRS .getAllowD etailPrint : boolean;
  140   begin
  141     Result : = fAllowDe tailPrint;
  142   end;
  143  
  144   function T CoverSheet Param_CPRS .getDateFo rmat: stri ng;
  145   begin
  146     Result : = fDateFor mat;
  147   end;
  148  
  149   function T CoverSheet Param_CPRS .getDatePi ece: integ er;
  150   begin
  151     Result : = fDatePie ce;
  152   end;
  153  
  154   function T CoverSheet Param_CPRS .getDetail RPC: strin g;
  155   begin
  156     Result : = fDetailR PC;
  157   end;
  158  
  159   function T CoverSheet Param_CPRS .getHighli ghtText: b oolean;
  160   begin
  161     Result : = fHighlig htText;
  162   end;
  163  
  164   function T CoverSheet Param_CPRS .getInvert : boolean;
  165   begin
  166     Result : = fInvert;
  167   end;
  168  
  169   function T CoverSheet Param_CPRS .getMainRP C: string;
  170   begin
  171     Result : = fMainRPC ;
  172   end;
  173  
  174   function T CoverSheet Param_CPRS .getParam1 : string;
  175   begin
  176     Result : = fParam1;
  177   end;
  178  
  179   function T CoverSheet Param_CPRS .getPollin gID: strin g;
  180   begin
  181     Result : = fPolling ID;
  182   end;
  183  
  184   function T CoverSheet Param_CPRS .getStatus : string;
  185   begin
  186     Result : = fStatus;
  187   end;
  188  
  189   function T CoverSheet Param_CPRS .getTitleC ase: boole an;
  190   begin
  191     Result : = fTitleCa se;
  192   end;
  193  
  194   function T CoverSheet Param_CPRS .NewCoverS heetContro l(aOwner:  TComponent ): TContro l;
  195   begin
  196     Result : = TfraCove rSheetDisp layPanel_C PRS.Create (aOwner);
  197   end;
  198  
  199   procedure  TCoverShee tParam_CPR S.setAllow DetailPrin t(const aV alue: bool ean);
  200   begin
  201     fAllowDe tailPrint  := aValue;
  202   end;
  203  
  204   procedure  TCoverShee tParam_CPR S.setLoadI nBackgroun d(const aV alue: bool ean);
  205   begin
  206     fLoadInB ackground  := aValue;
  207   end;
  208  
  209   procedure  TCoverShee tParam_CPR S.setParam 1(const aV alue: stri ng);
  210   begin
  211     fParam1  := aValue;
  212   end;
  213  
  214   end.