30. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 7/13/2017 1:08:06 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	v31B.zip\v31B\377\OR_30_377V235_SRC\Cover Sheet	oCoverSheetParam_CPRS.pas	Wed May 17 14:56:10 2017 UTC
2	v31B.zip\v31B\377\OR_30_377V235_SRC\Cover Sheet	oCoverSheetParam_CPRS.pas	Thu Jul 13 14:44:45 2017 UTC

30.2 Comparison summary

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