16. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 5/15/2018 2:43:27 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.

16.1 Files compared

#	Location	File	Last Modified
1	CPRS_V32_COMBINED_BUILD_V45.zip\OR_30_405V45_src\Cover Sheet	mCoverSheetDisplayPanel_CPRS_ProblemList.pas	Thu Mar 29 21:15:52 2018 UTC
2	CPRS_V32_COMBINED_BUILD_V45.zip\OR_30_405V45_src\Cover Sheet	mCoverSheetDisplayPanel_CPRS_ProblemList.pas	Thu May 10 20:23:45 2018 UTC

16.2 Comparison summary

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

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

16.4 Active regular expressions

No regular expressions were active.

16.5 Comparison detail

	1	unit mCove rSheetDisp layPanel_C PRS_Proble mList;
	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: Proble m List dis play 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_Proble mList = cl ass(TfraCo verSheetDi splayPanel _CPRS)
	42	private
	43	{ Priv ate declar ations }
	44	protecte d
	45	{ Over ridden eve nts - Tfra CoverSheet DisplayPan el_CPRS }
	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_Problem List: Tfra CoverSheet DisplayPan el_CPRS_Pr oblemList;
	53
	54	implementa tion
	55
	56	{$R *.dfm}
	57
	58	{ TfraCove rSheetDisp layPanel_C PRS_Proble mList }
	59
	60	uses
	61	ORFn;
	62
	63	const
	64	TX_INACT IVE_ICDCOD E = 'The I CD-9-CM co de for thi s problem is inactiv e.' + CRLF + CRLF +
	65	'Pleas e correct this code using the ''Problems '' tab.';
	66	TC_INACT IVE_ICDCOD E = 'Inact ive ICD-9- CM code';
	67	TX_INACT IVE_10DCOD E = 'The I CD-10-CM c ode for th is problem is inacti ve.' + CRL F + CRLF +
	68	'Pleas e correct this code using the ''Problems '' tab.';
	69	TC_INACT IVE_10DCOD E = 'Inact ive ICD-10 -CM code';
	70	TX_INACT IVE_SCTCOD E = 'The S NOMED CT c ode for th is problem is inacti ve.' + CRL F + CRLF +
	71	'Pleas e correct this code using the ''Problems '' tab.';
	72	TC_INACT IVE_SCTCOD E = 'Inact ive SNOMED CT code';
	73
	74	constructo r TfraCove rSheetDisp layPanel_C PRS_Proble mList.Crea te(aOwner: TComponen t);
	75	begin
	76	inherite d;
	77	AddColum n(0, 'Prob lem List') ;
	78	Collapse Columns;
	79	end;
	80
	81	procedure TfraCoverS heetDispla yPanel_CPR S_ProblemL ist.OnGetD etail(aRec : TDelimit edString; aResult: T Strings);
	82	begin
	83	if aRec. GetPieceEq uals(13, ' #') then
	84	if aRe c.GetPiece Equals(16, '10D') th en
	85	Info Box(TX_INA CTIVE_10DC ODE, TC_IN ACTIVE_10D CODE, MB_I CONWARNING or MB_OK)
	86	else
	87	Info Box(TX_INA CTIVE_ICDC ODE, TC_IN ACTIVE_ICD CODE, MB_I CONWARNING or MB_OK)
	88	else if aRec.GetPi eceEquals( 13, '$') t hen
	89	InfoBo x(TX_INACT IVE_SCTCOD E, TC_INAC TIVE_SCTCO DE, MB_ICO NWARNING o r MB_OK);
	90
	91	inherite d;
	92	end;
	93
	94	end.