65. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 10/18/2017 11:37:29 AM Eastern 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.

65.1 Files compared

#	Location	File	Last Modified
1	OSCIF_CPRS v32 Phase 2 Build 2OR3.0405_August_2017.zip\OR_30_405V36_SRC.zip\XE8\Broker\Source	fRPCBErrMsg.pas	Wed Oct 11 20:08:07 2017 UTC
2	OSCIF_CPRS v32 Phase 2 Build 2OR3.0405_August_2017.zip\OR_30_405V36_SRC.zip\XE8\Broker\Source	fRPCBErrMsg.pas	Tue Oct 17 19:53:11 2017 UTC

65.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	3	166
Changed	2	4
Inserted	0	0
Removed	0	0

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

65.4 Active regular expressions

No regular expressions were active.

65.5 Comparison detail

	1	{ ****** ****** ****** ****** ****** ****** **
	2	Pa ckage: XWB - Kernel RPCBroker
	3	Da te Created : Sept 18, 1997 (Ver sion 1.1)
	4	Si te Name: O akland, OI Field Off ice, Dept of Veteran Affairs
	5	De velopers: PI I , PII
	6	De scription: Contains TRPCBroker and relat ed compone nts.
	7	Unit: fR PCBErrMsg Error Disp lay to per mit applic ation cont rol
	8	ov er bringin g it to th e front.
	9	Cu rrent Rele ase: Versi on 1.1 Pat ch 50
	10	******** ****** ****** ****** ****** ****** * }
	11
	12	{ ****** ****** ****** ****** ******
	13	Changes in v1.1.65 (HGW 10/0 6/2016) XW B1.165
	14	1. Resol ved CPRS D efect 3295 16 for 508 complianc e (code su bmitted
	15	by PII ). Replace d MessageD lg (not 50 8 complian t)
	16	with Messa geBox (508 compliant ).
	17
	18	Changes in v1.1.60 (HGW 12/1 6/2013) XW B1.160
	19	1. None.
	20
	21	Changes in v1.1.50 (JLI 09/0 1/2011) XW B1.150
	22	1. None.
	23	******** ****** ****** ****** ******** }
	24
	25	unit fRPCB ErrMsg;
	26
	27	interface
	28
	29	uses
	30	{System}
	31	SysUtils , Classes,
	32	{WinApi}
	33	Windows, Messages,
	34	{Vcl}
	35	Graphics , Controls , Forms, D ialogs, St dCtrls;
	36
	37	type
	38	TfrmErrM sg = class (TForm)
	39	Button 1: TButton ;
	40	mmoErr orMessage: TMemo;
	41	private
	42	{ Priv ate declar ations }
	43	public
	44	{ Publ ic declara tions }
	45	class procedure RPCBShowEx ception(Se nder: TObj ect; E: Ex ception);
	46	end;
	47
	48	procedure RPCBShowEr rMsg(Error Text: Stri ng);
	49
	50	var
	51	frmErrMs g: TfrmErr Msg;
	52
	53	implementa tion
	54
	55	{$R *.DFM}
	56
	57	procedure RPCBShowEr rMsg(Error Text: Stri ng);
	58	begin
	59	{
	60	blj 6 Oc t 2016 - J azz item 3 29516
	61	Removi ng full fo rm. Simpl y use Mess ageBox for better 50 8 complian ce.
	62	}
	63	MessageB ox(0, PWid eChar(Erro rText), ni l, MB_ICON ERROR or M B_OK);
	64
	65	// frmErr Msg := Tfr mErrMsg.Cr eate(Appli cation);
	66	// frmErr Msg.mmoErr orMessage. Lines.Add( ErrorText) ;
	67	// frmErr Msg.ShowMo dal;
	68	// frmErr Msg.Free;
	69	end;
	70
	71	class proc edure Tfrm ErrMsg.RPC BShowExcep tion(Sende r: TObject ; E: Excep tion);
	72	begin
	73	{
	74	blj 6 Oc t 2016 - J azz item 3 29516
	75	Removi ng full fo rm. Simpl y use Mess ageBox for better 50 8 complian ce.
	76	}
	77	MessageB ox(0, PWid eChar(E.Me ssage), ni l, MB_ICON ERROR or M B_OK);
	78
	79	// frmErr Msg := Tfr mErrMsg.Cr eate(Appli cation);
	80	// frmErr Msg.mmoErr orMessage. Lines.Add( ErrorText) ;
	81	// frmErr Msg.ShowMo dal;
	82	// frmErr Msg.Free;
	83	end;
	84
	85	end.