997. EPMO Open Source Coordination Office Redaction File Detail Report

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

997.1 Files compared

#	Location	File	Last Modified
1	ehmp.zip\ehmp\ehmp\product\tests\data_load_scripts	problem_rpc.rb	Tue Dec 15 14:05:18 2015 UTC
2	ehmp.zip\ehmp\ehmp\product\tests\data_load_scripts	problem_rpc.rb	Tue Oct 3 14:33:13 2017 UTC

997.2 Comparison summary

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

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

997.4 Active regular expressions

No regular expressions were active.

997.5 Comparison detail

	1	require 'v istarpc4r'
	2
	3
	4	broker = V istaRPC4r: :RPCBroker Connection .new(" IP ", PORT , " REDACTED ", " REDACTED ", false)
	5	broker.con nect
	6	broker.set Context('O R CPRS GUI CHART')
	7
	8	# get prob lem list
	9	# vrpc = V istaRPC4r: :VistaRPC. new("ORQQP L LIST", V istaRPC4r: :RPCRespon se::ARRAY)
	10
	11	# vrpc.par ams = [
	12	# "10084 1",
	13	# "A"
	14	# ]
	15
	16	# puts "Pr oblem list ---------- ---------- ---------- -------"
	17	# resp = b roker.exec ute(vrpc)
	18
	19	# resp.val ue.each do \|d\|
	20	# puts d
	21	# end
	22
	23	# # get ot her proble m codes?
	24
	25	# vrpc = V istaRPC4r: :VistaRPC. new("ORQQP L4 LEX", V istaRPC4r: :RPCRespon se::ARRAY)
	26
	27	# vrpc.par ams = [
	28	# "Heada che",
	29	# "",
	30	# "2"
	31	# ]
	32
	33	# puts "Pr oblem code ---------- ---------- ---------- -------"
	34	# resp = b roker.exec ute(vrpc)
	35
	36	# resp.val ue.each do \|d\|
	37	# puts d
	38	# end
	39
	40	# # get pr oblem code s
	41
	42	# vrpc = V istaRPC4r: :VistaRPC. new("ORQQP L PROBLEM LEX SEARCH ", VistaRP C4r::RPCRe sponse::AR RAY)
	43
	44	# vrpc.par ams = [
	45	# "Heada che",
	46	# "2",
	47	# "",
	48	# "0"
	49	# ]
	50
	51	# puts "Pr oblem code ---------- ---------- ---------- -------"
	52	# resp = b roker.exec ute(vrpc)
	53
	54	# resp.val ue.each do \|d\|
	55	# puts d
	56	# end
	57
	58
	59	vrpc = Vis taRPC4r::V istaRPC.ne w("ORQQPL INIT PT", VistaRPC4r ::RPCRespo nse::ARRAY )
	60	vrpc.param s[0]="1008 41"
	61	resp = bro ker.execut e(vrpc)
	62	puts resp
	63
	64
	65	ptVAMC=res p.value[0] # := c opy(Alist[ i],1,999);
	66	ptDead=res p.value[1] # := A List[i];
	67	ptBID=resp .value[6] # := A list[i];
	68	ptname=""
	69	gmpdfn = " 100841" + "^" + ptna me + "^" + ptBID + " ^" + ptDea d
	70	# puts gmp dfn
	71
	72
	73	vrpc = Vis taRPC4r::V istaRPC.ne w("ORQQPL ADD SAVE", VistaRPC4 r::RPCResp onse::ARRA Y)
	74	vrpc.param s[0] = gmp dfn
	75	vrpc.param s[1] = "1"
	76	vrpc.param s[2] = ptV AMC
	77	vrpc.param s[3] = [
	78	[" 1", "GMPFL D(.01)=\"\ ""], # Di agnosis
	79	[" 2", "GMPFL D(.05)=\"^ Back Pain\ ""], # Nar rative
	80	[" 3", "GMPFL D(.12)=\"A \""], # ac tivie or i nactive
	81	[" 4", "GMPFL D(.13)=\"3 150801^AUG 10 2014\" "], # Date of onset
	82	[" 5", "GMPFL D(1.01)=\" \"\"\"\"\" "], # Prob lem??
	83	[" 6", "GMPFL D(1.08)=\" 16\""], # location c ode
	84	[" 7", "GMPFL D(1.1)=\"0 ^NO\""], # Problem
	85	[" 8", "GMPFL D(1.14)=\" C\""], #ac cute or cr onic
	86	[" 9", "GMPFL D(10,0)=\" \"\"\"\"\" "], # Note
	87	[" 10", "GMPF LD(80001)= \"13440700 2\""] # sn owmed
	88	]
	89
	90
	91
	92
	93
	94	resp = bro ker.execut e(vrpc)
	95	# puts res p
	96
	97	broker.clo se
	98