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

17.1 Files compared

#	Location	File	Last Modified
1	v31B.zip\v31B\377\OR_30_377V235_SRC\Cover Sheet	mCoverSheetDisplayPanel_CPRS_Labs.pas	Wed May 17 14:56:10 2017 UTC
2	v31B.zip\v31B\377\OR_30_377V235_SRC\Cover Sheet	mCoverSheetDisplayPanel_CPRS_Labs.pas	Thu Jul 13 14:44:37 2017 UTC

17.2 Comparison summary

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

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

17.4 Active regular expressions

No regular expressions were active.

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