23. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 1/9/2019 7:03:18 AM 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.

23.1 Files compared

#	Location	File	Last Modified
1	OR_30_405V55_SRC.zip\OR_30_405V55_SRC\Cover Sheet	mCoverSheetDisplayPanel_CPRS_ActiveMeds.pas	Wed Sep 26 18:05:24 2018 UTC
2	OR_30_405V55_SRC.zip\OR_30_405V55_SRC\Cover Sheet	mCoverSheetDisplayPanel_CPRS_ActiveMeds.pas	Tue Jan 8 17:51:30 2019 UTC

23.2 Comparison summary

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

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

23.4 Active regular expressions

No regular expressions were active.

23.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	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	oDelimit edString,
	38	iCoverSh eetIntf;
	39
	40	type
	41	TfraCove rSheetDisp layPanel_C PRS_Active Meds = cla ss(TfraCov erSheetDis playPanel_ CPRS)
	42	private
	43	{ Priv ate declar ations }
	44	protecte d
	45	{ Over ridden 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	{ Publ ic declara tions }
	51	end;
	52
	53	var
	54	fraCover SheetDispl ayPanel_CP RS_ActiveM eds: TfraC overSheetD isplayPane l_CPRS_Act iveMeds;
	55
	56	implementa tion
	57
	58	uses
	59	rMeds,
	60	uCore,
	61	ORFn,
	62	ORNet;
	63
	64	{$R *.dfm}
	65
	66	{ TfraCove rSheetDisp layPanel_C PRS_Active Meds }
	67
	68	constructo r TfraCove rSheetDisp layPanel_C PRS_Active Meds.Creat e(aOwner: TComponent );
	69	begin
	70	inherite d;
	71	AddColum n(0, 'Medi cation');
	72	AddColum n(1, 'Stat us');
	73	Collapse Columns;
	74	end;
	75
	76	procedure TfraCoverS heetDispla yPanel_CPR S_ActiveMe ds.OnAddIt ems(aList: TStrings) ;
	77	var
	78	aRec: TD elimitedSt ring;
	79	aStr: st ring;
	80	aActiveM eds: TStri ngList;
	81	begin
	82	lvData.I tems.Begin Update;
	83	try
	84	lvData .Items.Cle ar;
	85
	86	aActiv eMeds := T StringList .Create;
	87	try
	88	Extr actActiveM eds(aActiv eMeds, aLi st);
	89
	90	for aStr in aA ctiveMeds do
	91	be gin
	92	aRec := TD elimitedSt ring.Creat e(aStr);
	93
	94	if lvData. Items.Coun t = 0 then
	95	if aRec. GetPieceEq uals(1, '0 ') and (aL ist.Count = 1) then
	96	Collap seColumns
	97	else
	98	Expand Columns;
	99
	100	with lvDat a.Items.Ad d do
	101	begin
	102	Captio n := Mixed Case(aRec. GetPiece(2 ));
	103	SubIte ms.Add(Mix edCase(aRe c.GetPiece (4)));
	104	Data : = aRec;
	105	end;
	106	en d;
	107	finall y
	108	Free AndNil(aAc tiveMeds);
	109	end;
	110	finally
	111	lvData .Items.End Update;
	112	end;
	113	end;
	114
	115	procedure TfraCoverS heetDispla yPanel_CPR S_ActiveMe ds.OnGetDe tail(aRec: TDelimite dString; a Result: TS trings);
	116	begin
	117	CallVist A(CPRSPara ms.DetailR PC, [Patie nt.DFN, aR ec.GetPiec e(1)], aRe sult);
	118	end;
	119
	120	end.