60. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 9/24/2019 1:37:50 PM 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.

60.1 Files compared

#	Location	File	Last Modified
1	PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\Delphi\MHA_WEB\InstrumentEntry	fLaunchEntry.pas	Wed Jul 31 17:35:31 2019 UTC
2	PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\Delphi\MHA_WEB\InstrumentEntry	fLaunchEntry.pas	Mon Sep 23 22:16:23 2019 UTC

60.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	3	102
Changed	2	6
Inserted	0	0
Removed	0	0

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

60.4 Active regular expressions

No regular expressions were active.

60.5 Comparison detail

	1	unit fLaun chEntry;
	2
	3	interface
	4
	5	uses
	6	Winapi.W indows, Wi napi.Messa ges, Syste m.SysUtils , System.V ariants, S ystem.Clas ses, Vcl.G raphics,
	7	Vcl.Cont rols, Vcl. Forms, Vcl .Dialogs, Vcl.StdCtr ls, Trpcb;
	8
	9	type
	10	TForm3 = class(TFo rm)
	11	Button 1: TButton ;
	12	Memo1: TMemo;
	13	RPCBro ker1: TRPC Broker;
	14	proced ure Button 1Click(Sen der: TObje ct);
	15	private
	16	{ Priv ate declar ations }
	17	public
	18	{ Publ ic declara tions }
	19	end;
	20
	21	var
	22	Form3: T Form3;
	23
	24	implementa tion
	25
	26	{$R *.dfm}
	27
	28	const
	29	APP_PATH _DEV = 'C: \data\RTC_ Sandbox\YS _130\MHLTH _YS_Source \JavaScrip t\Java\mha -web\src\m ain\webapp \React\bui ld\';
	30	// S= IP P= PORT DFN=10001 3 duz=1085 m=MREF
	31
	32	procedure TForm3.But ton1Click( Sender: TO bject);
	33	begin
	34	rpcBroker1 .Server := ' URL ';
	35	rpcBroker1 .ListenerP ort := PORT ;
	36	rpcBroke r1.LogIn.D UZ := '109 5';
	37	rpcBroke r1.AccessV erifyCodes := '';
	38	rpcBroke r1.Connect ed := True ;
	39	rpcBroke r1.CreateC ontext('YT T INSTRUME NT ENTRY') ;
	40	rpcBroke r1.RemoteP rocedure : = 'YTQREST QADMIN';
	41	rpcBroke r1.Param[0 ].PType := list;
	42	rpcBroke r1.Param[0 ].Mult['1' ] := 'GET /api/mha/i nstruments /active HT TP/1.1';
	43	rpcBroke r1.Param[0 ].Mult['2' ] := '';
	44	rpcBroke r1.Call;
	45	Memo1.Li nes.AddStr ings(rpcBr oker1.Resu lts);
	46	// frmWeb Browser.Se tBounds(Le ft, Top, W idth, Heig ht);
	47	// Self.H ide;
	48	// frmWeb Browser.Ap pPath := A PP_PATH_DE V;
	49	// frmWeb Browser.Ap pPage := ' index.html ?assignmen t=find';
	50	// frmWeb Browser.Ru n('YS_MHA_ Instrument Admin_1', 'YTQREST M HA', nil);
	51	// Self.S how;
	52	end;
	53
	54	end.