11. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 2/17/2017 12:43:22 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.

11.1 Files compared

#	Location	File	Last Modified
1	CPRS_V32_T20_cif.zip\OR_30_405V20_SRC.zip\CPRS-chart\Cover Sheet	mCoverSheetDisplayPanel_CPRS_Labs.pas	Thu Dec 15 14:28:30 2016 UTC
2	CPRS_V32_T20_cif.zip\OR_30_405V20_SRC.zip\CPRS-chart\Cover Sheet	mCoverSheetDisplayPanel_CPRS_Labs.pas	Fri Feb 17 17:19:04 2017 UTC

11.2 Comparison summary

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

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

11.4 Active regular expressions

No regular expressions were active.

11.5 Comparison detail

	1	unit mCove rSheetDisp layPanel_C PRS_Labs;
	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: Lab re sult panel for CPRS Coversheet .
	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	iCoverSh eetIntf,
	36	mCoverSh eetDisplay Panel_CPRS ,
	37	oDelimit edString;
	38
	39	type
	40	TfraCove rSheetDisp layPanel_C PRS_Labs = class(Tfr aCoverShee tDisplayPa nel_CPRS)
	41	private
	42	{ Priv ate declar ations }
	43	protecte d
	44	{ Over ridded eve nts - Tfra CoverSheet DisplayPan el_CPRS }
	45	proced ure OnAddI tems(aList : TStrings ); overrid e;
	46	proced ure OnGetD etail(aRec : TDelimit edString; aResult: T Strings); override;
	47	public
	48	constr uctor Crea te(aOwner: TComponen t); overri de;
	49	end;
	50
	51	var
	52	fraCover SheetDispl ayPanel_CP RS_Labs: T fraCoverSh eetDisplay Panel_CPRS _Labs;
	53
	54	implementa tion
	55
	56	uses
	57	uCore,
	58	ORFn,
	59	ORNet;
	60
	61	{$R *.dfm}
	62
	63	{ TfraCove rSheetDisp layPanel_C PRS_Labs }
	64
	65	constructo r TfraCove rSheetDisp layPanel_C PRS_Labs.C reate(aOwn er: TCompo nent);
	66	begin
	67	inherite d;
	68	AddColum n(0, 'Lab Test');
	69	AddColum n(1, 'Date /Time');
	70	Collapse Columns;
	71	end;
	72
	73	procedure TfraCoverS heetDispla yPanel_CPR S_Labs.OnG etDetail(a Rec: TDeli mitedStrin g; aResult : TStrings );
	74	var
	75	aID: str ing;
	76	begin
	77	aID := a Rec.GetPie ce(1);
	78
	79	if aID = '' then
	80	Exit;
	81
	82	if Copy( aRec.GetPi ece(1), 1, 2) = '0;' then
	83	Exit;
	84
	85	if StrTo FloatDef(C opy(aID, 1 , Pos(';', aID) - 1) , -1) < 1 then
	86	Exit;
	87
	88	CallVist A(CPRSPara ms.DetailR PC, [Patie nt.DFN, aR ec.GetPiec eAsInteger (1), aRec. GetPiece(1 )], aResul t);
	89	end;
	90
	91	procedure TfraCoverS heetDispla yPanel_CPR S_Labs.OnA ddItems(aL ist: TStri ngs);
	92	var
	93	aRec: TD elimitedSt ring;
	94	aStr: st ring;
	95	begin
	96	try
	97	lvData .Items.Beg inUpdate;
	98	for aS tr in aLis t do
	99	begi n
	100	aR ec := TDel imitedStri ng.Create( aStr);
	101
	102	if lvData.It ems.Count = 0 then { Executes before any item is a dded }
	103	if aRec.Ge tPieceIsNu ll(1) and (aList.Cou nt = 1) th en
	104	Collapse Columns
	105	else
	106	ExpandCo lumns;
	107
	108	wi th lvData. Items.Add do
	109	begin
	110	Caption := MixedCa se(aRec.Ge tPiece(2)) ;
	111	if aRec. GetPieceIs NotNull(1) then
	112	begin
	113	SubI tems.Add(F ormatDateT ime(DT_FOR MAT, aRec. GetPieceAs TDateTime( 3)));
	114	Data := aRec;
	115	end;
	116	end;
	117	end;
	118	finally
	119	lvData .Items.End Update;
	120	end;
	121	end;
	122
	123	end.