10. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 2/23/2017 7:16:41 AM 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.

10.1 Files compared

#	Location	File	Last Modified
1	CPRS_v31_223_cif.zip\OR_30_377V223_SRC.zip\CPRS-chart\Cover Sheet	mCoverSheetDisplayPanel_CPRS_Immunizations.pas	Wed Nov 16 17:31:42 2016 UTC
2	CPRS_v31_223_cif.zip\OR_30_377V223_SRC.zip\CPRS-chart\Cover Sheet	mCoverSheetDisplayPanel_CPRS_Immunizations.pas	Fri Feb 17 20:23:22 2017 UTC

10.2 Comparison summary

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

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

10.4 Active regular expressions

No regular expressions were active.

10.5 Comparison detail

	1	unit mCove rSheetDisp layPanel_C PRS_Immuni zations;
	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: Covers heet panel for immun izations.
	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	Vcl.Grap hics,
	26	Vcl.Cont rols,
	27	Vcl.Form s,
	28	Vcl.Dial ogs,
	29	Vcl.ExtC trls,
	30	Vcl.Menu s,
	31	Vcl.ImgL ist,
	32	Vcl.ComC trls,
	33	Vcl.StdC trls,
	34	Vcl.Butt ons,
	35	mCoverSh eetDisplay Panel_CPRS ,
	36	iCoverSh eetIntf;
	37
	38	type
	39	TfraCove rSheetDisp layPanel_C PRS_Immuni zations = class(Tfra CoverSheet DisplayPan el_CPRS)
	40	private
	41	{ Priv ate declar ations }
	42	protecte d
	43	{ Over idden even ts - TfraC overSheetD isplayPane l_CPRS }
	44	proced ure OnAddI tems(aList : TStrings ); overrid e;
	45	public
	46	constr uctor Crea te(aOwner: TComponen t); overri de;
	47	end;
	48
	49	var
	50	fraCover SheetDispl ayPanel_CP RS_Immuniz ations: Tf raCoverShe etDisplayP anel_CPRS_ Immunizati ons;
	51
	52	implementa tion
	53
	54	{$R *.dfm}
	55
	56
	57	uses
	58	ORFn,
	59	oDelimit edString;
	60
	61	{ TfraCove rSheetDisp layPanel_C PRS_Immuni zations }
	62
	63	constructo r TfraCove rSheetDisp layPanel_C PRS_Immuni zations.Cr eate(aOwne r: TCompon ent);
	64	begin
	65	inherite d;
	66	AddColum n(0, 'Immu nization') ;
	67	AddColum n(1, 'Reac tion');
	68	AddColum n(2, 'Date /Time');
	69	Collapse Columns;
	70	fAllowDe tailDispla y := False ;
	71	end;
	72
	73	procedure TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.OnAd dItems(aLi st: TStrin gs);
	74	var
	75	aRec: TD elimitedSt ring;
	76	aStr: st ring;
	77	begin
	78	try
	79	lvData .Items.Beg inUpdate;
	80
	81	for aS tr in aLis t do
	82	begi n
	83	aR ec := TDel imitedStri ng.Create( aStr);
	84
	85	if lvData.It ems.Count = 0 then { Executes before any item is a dded }
	86	if aRec.Ge tPieceIsNu ll(1) and (aList.Cou nt = 1) th en
	87	Collapse Columns
	88	else
	89	ExpandCo lumns;
	90
	91	wi th lvData. Items.Add do
	92	begin
	93	Caption := MixedCa se(aRec.Ge tPiece(2)) ;
	94	if aRec. GetPiece(1 ) <> '' th en
	95	begin
	96	SubI tems.Add(M ixedCase(a Rec.GetPie ce(4)));
	97	SubI tems.Add(a Rec.GetPie ceAsFMDate TimeStr(3) );
	98	end;
	99	Data := aRec;
	100	end;
	101	end;
	102	finally
	103	lvData .Items.End Update;
	104	end;
	105	end;
	106
	107	end.