1012. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 10/3/2017 11:16:08 AM 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.

1012.1 Files compared

#	Location	File	Last Modified
1	ehmp.zip\ehmp\ehmp\product\tests\vista-rpc-tests\vistarpc4r\examples	add_problems.rb	Tue Dec 15 14:05:18 2015 UTC
2	ehmp.zip\ehmp\ehmp\product\tests\vista-rpc-tests\vistarpc4r\examples	add_problems.rb	Tue Oct 3 14:52:11 2017 UTC

1012.2 Comparison summary

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

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

1012.4 Active regular expressions

No regular expressions were active.

1012.5 Comparison detail

	1	require 'r ubygems'
	2
	3	require '. /../lib/vi starpc4r/r pc_respons e'
	4	require '. /../lib/vi starpc4r/v ista_rpc'
	5	require '. /../lib/vi starpc4r/r pc_broker_ connection '
	6
	7	broker = V istaRPC4r: :RPCBroker Connection .new(' IP ', PORT , ' REDACT ', ' REDACTED ', false)
	8
	9	broker.con nect
	10	p "The RPC Broker Co nnection s tatus is # {broker.is Connected} "
	11
	12	#broker = RPCBrokerC onnection. new('192.1 68.1.20', 9270, 'sys .admin', ' vista!123' )
	13	# broker = RPCBroker Connection .new(' IP ', PORT , ' REDACT ', ' REDACTED ', false)
	14
	15	# broker.c onnect
	16	broker.set Context('O R CPRS GUI CHART')
	17
	18	dfn = "3" # interna l id of th e patient, CLINICAL, Male
	19	provider = "42" #int ernal id o f care pro vider Phys ican, User
	20	# Problem list
	21	puts "Prob lem list-- ---------- ---------- ---------- -----"
	22	vrpc = Vis taRPC4r::V istaRPC.ne w("ORQQPL LIST", Vis taRPC4r::R PCResponse ::ARRAY)
	23	vrpc.param s[0]=dfn # patient ie n
	24	vrpc.param s[1]="A"
	25	resp = bro ker.execut e(vrpc)
	26	resp.value .each do \| d\|
	27	puts d
	28	end
	29
	30	# Get Basi c patient informatio n that is used for p roblem lis t modifica tion RPCs
	31	vrpc = Vis taRPC4r::V istaRPC.ne w("ORQQPL INIT PT", VistaRPC4r ::RPCRespo nse::ARRAY )
	32	vrpc.param s[0]=dfn
	33	resp = bro ker.execut e(vrpc)
	34	ptVAMC=res p.value[0] # := c opy(Alist[ i],1,999);
	35	ptDead=res p.value[1] # := A List[i];
	36	ptBID=resp .value[6] # := A list[i];
	37	ptname=""
	38	gmpdfn = d fn + "^" + ptname + "^" + ptBI D + "^" + ptDead
	39	puts gmpdf n
	40
	41	# Add a n ew problem
	42	vrpc = Vis taRPC4r::V istaRPC.ne w("ORQQPL ADD SAVE", VistaRPC4 r::RPCResp onse::ARRA Y)
	43	vrpc.param s[0]=gmpdf n
	44	vrpc.param s[1]= prov ider
	45	vrpc.param s[2]= ptVA MC
	46	vrpc.param s[3] = [
	47	[" 1", "GMPFL D(.01)=\"\ "\"819.01\ "\"\""], # Diagnosi s
	48	[" 2", "GMPFL D(.05)=\"\ "\"^faridn ietest\"\" \""], # Na rrative
	49	[" 3", "GMPFL D(.12)=\"\ "\"A\"\"\" "], # stat us A?
	50	[" 4", "GMPFL D(.13)=\"\ "\"\"\"\"" ], # Date of onset
	51	[" 5", "GMPFL D(1.01)=\" \"\"\"\"\" "], # Prob lem
	52	[" 6", "GMPFL D(10,0)=\" \"\"\"\"\" "] # Note
	53	]
	54	resp=broke r.execute( vrpc)
	55	puts resp
	56
	57	vrpc = Vis taRPC4r::V istaRPC.ne w("ORQQPL LIST", Vis taRPC4r::R PCResponse ::ARRAY)
	58	vrpc.param s[0]=dfn # patient ie n
	59	vrpc.param s[1]="A"
	60	resp = bro ker.execut e(vrpc)
	61	resp.value .each do \| d\|
	62	puts d
	63	end
	64
	65	#vrpc = Vi staRPC.new ("ORQQPL D ELETE", RP CResponse: :SINGLE_VA LUE)
	66	#vrpc.para ms[0]="34"
	67	#vrpc.para ms[1]=prov ider
	68	#vrpc.para ms[2]=ptVA MC
	69	#vrpc.para ms[3]="Bec ause"
	70	#resp=brok er.execute (vrpc)
	71	#puts resp