10. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 8/3/2017 2:38:21 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.

10.1 Files compared

#	Location	File	Last Modified
1	V32.zip\V32\OR_30_405V28_SRC\Cover Sheet	mCoverSheetDisplayPanel_CPRS_Immunizations.pas	Wed May 10 17:35:44 2017 UTC
2	V32.zip\V32\OR_30_405V28_SRC\Cover Sheet	mCoverSheetDisplayPanel_CPRS_Immunizations.pas	Thu Aug 3 16:07:16 2017 UTC

10.2 Comparison summary

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