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

9.1 Files compared

#	Location	File	Last Modified
1	CPRS_V32_T20_cif.zip\OR_30_405V20_SRC.zip\CPRS-chart\Cover Sheet	mCoverSheetDisplayPanel_CPRS_Appts.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_Appts.pas	Fri Feb 17 17:19:02 2017 UTC

9.2 Comparison summary

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

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

9.4 Active regular expressions

No regular expressions were active.

9.5 Comparison detail

	1	unit mCove rSheetDisp layPanel_C PRS_Appts;
	2	{
	3	======== ========== ========== ========== ========== ========== ========== ========== ==
	4	*
	5	* Applicatio n: CPRS - Covershee t
	6	* Developer: PII
	7	* Site: Salt L ake City I SC
	8	* Date: 2015-1 2-08
	9	*
	10	* Descriptio n: Custom ized displ ay panel f or appts/v isits/admi ssions.
	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	oDelimit edString;
	38
	39	type
	40	TfraCove rSheetDisp layPanel_C PRS_Appts = class(Tf raCoverShe etDisplayP anel_CPRS)
	41	private
	42	{ Priv ate declar ations }
	43	protecte d
	44	{ Over ridden 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_Appts: TfraCoverS heetDispla yPanel_CPR S_Appts;
	53
	54	implementa tion
	55
	56	uses
	57	uCore,
	58	ORFn,
	59	ORNet;
	60
	61	{$R *.dfm}
	62
	63	{ TfraCove rSheetDisp layPanel_C PRS_Appts }
	64
	65	constructo r TfraCove rSheetDisp layPanel_C PRS_Appts. Create(aOw ner: TComp onent);
	66	begin
	67	inherite d;
	68	AddColum n(0, 'Date /Time');
	69	AddColum n(1, 'Loca tion');
	70	AddColum n(2, 'Acti on Req');
	71
	72	Collapse Columns;
	73	end;
	74
	75	procedure TfraCoverS heetDispla yPanel_CPR S_Appts.On AddItems(a List: TStr ings);
	76	var
	77	aRec: TD elimitedSt ring;
	78	aStr: st ring;
	79	begin
	80	if aList .Count = 0 then
	81	aList. Append('^N o Visit Da ta.');
	82
	83	try
	84	lvData .Items.Beg inUpdate;
	85
	86	for aS tr in aLis t do
	87	begi n
	88	aR ec := TDel imitedStri ng.Create( aStr);
	89
	90	if lvData.It ems.Count = 0 then
	91	if aRec.Ge tPieceIsNu ll(1) and (aList.Cou nt = 1) th en
	92	Collapse Columns
	93	else
	94	ExpandCo lumns;
	95
	96	wi th lvData. Items.Add do
	97	begin
	98	if aRec. GetPieceIs Null(1) th en
	99	Captio n := aRec. GetPiece(2 )
	100	else
	101	Captio n := Forma tDateTime( DT_FORMAT, aRec.GetP ieceAsTDat eTime(2));
	102	SubItems .Add(Mixed Case(aRec. GetPiece(3 )));
	103	SubItems .Add(Mixed Case(aRec. GetPiece(4 )));
	104	Data := aRec;
	105	end;
	106	end;
	107	finally
	108	lvData .Items.End Update;
	109	end;
	110	end;
	111
	112	procedure TfraCoverS heetDispla yPanel_CPR S_Appts.On GetDetail( aRec: TDel imitedStri ng; aResul t: TString s);
	113	begin
	114	CallVist A(CPRSPara ms.DetailR PC, [Patie nt.DFN, '' , aRec.Get Piece(1)], aResult);
	115	end;
	116
	117	end.