30. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 1/31/2019 1:51:41 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.

30.1 Files compared

#	Location	File	Last Modified
1	CPRS v31b Phase 2 T257 CiF Submission..zip\CPRS v31b Phase 2 T257 CiF Submission\OR_30_377V257_src\Cover Sheet	oCoverSheetParam_CPRS.pas	Thu Nov 15 18:27:48 2018 UTC
2	CPRS v31b Phase 2 T257 CiF Submission.zip\CPRS v31b Phase 2 T257 CiF Submission\OR_30_377V257_src\Cover Sheet	oCoverSheetParam_CPRS.pas	Tue Jan 29 15:30:19 2019 UTC

30.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	2	426
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 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.