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

7.1 Files compared

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

7.2 Comparison summary

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

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

7.4 Active regular expressions

No regular expressions were active.

7.5 Comparison detail

	1	unit mCove rSheetDisp layPanel_C PRS_Active Meds;
	2	{
	3	======== ========== ========== ========== ========== ========== ========== ========== ==
	4	*
	5	* Applicatio n: CPRS
	6	* Developer: PII
	7	* Site: Salt L ake City I SC
	8	* Date: 2015-1 2-04
	9	*
	10	* Descriptio n: Inheri ted frame for custom handling of the Act ive Meds.
	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	oDelimit edString,
	37	iCoverSh eetIntf;
	38
	39	type
	40	TfraCove rSheetDisp layPanel_C PRS_Active Meds = cla ss(TfraCov erSheetDis playPanel_ 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	{ Publ ic declara tions }
	50	end;
	51
	52	var
	53	fraCover SheetDispl ayPanel_CP RS_ActiveM eds: TfraC overSheetD isplayPane l_CPRS_Act iveMeds;
	54
	55	implementa tion
	56
	57	uses
	58	uCore,
	59	ORFn,
	60	ORNet;
	61
	62	{$R *.dfm}
	63
	64	{ TfraCove rSheetDisp layPanel_C PRS_Active Meds }
	65
	66	constructo r TfraCove rSheetDisp layPanel_C PRS_Active Meds.Creat e(aOwner: TComponent );
	67	begin
	68	inherite d;
	69	AddColum n(0, 'Medi cation');
	70	AddColum n(1, 'Stat us');
	71	Collapse Columns;
	72	end;
	73
	74	procedure TfraCoverS heetDispla yPanel_CPR S_ActiveMe ds.OnAddIt ems(aList: TStrings) ;
	75	var
	76	aRec: TD elimitedSt ring;
	77	aStr: st ring;
	78	begin
	79	try
	80	lvData .Items.Beg inUpdate;
	81
	82	if aLi st.Count < 1 then
	83	aLis t.Add('^No Medicatio ns Found.' );
	84
	85	for aS tr in aLis t do
	86	begi n
	87	aR ec := TDel imitedStri ng.Create( aStr);
	88
	89	if lvData.It ems.Count = 0 then
	90	if aRec.Ge tPieceIsNu ll(1) and (aList.Cou nt = 1) th en
	91	Collapse Columns
	92	else
	93	ExpandCo lumns;
	94
	95	wi th lvData. Items.Add do
	96	begin
	97	Caption := MixedCa se(aRec.Ge tPiece(2)) ;
	98	SubItems .Add(Mixed Case(aRec. GetPiece(4 )));
	99	Data := aRec;
	100	end;
	101	end;
	102	finally
	103	lvData .Items.End Update;
	104	end;
	105	end;
	106
	107	procedure TfraCoverS heetDispla yPanel_CPR S_ActiveMe ds.OnGetDe tail(aRec: TDelimite dString; a Result: TS trings);
	108	begin
	109	CallVist A(CPRSPara ms.DetailR PC, [Patie nt.DFN, aR ec.GetPiec e(1)], aRe sult);
	110	end;
	111
	112	end.