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

983.1 Files compared

#	Location	File	Last Modified
1	ehmp.zip\ehmp\ehmp\product\tests\data_load_scripts\domain_loaders	notes.rb	Tue Jan 10 16:20:50 2017 UTC
2	ehmp.zip\ehmp\ehmp\product\tests\data_load_scripts\domain_loaders	notes.rb	Mon Oct 2 20:10:21 2017 UTC

983.2 Comparison summary

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

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

983.4 Active regular expressions

No regular expressions were active.

983.5 Comparison detail

	1	require 'v istarpc4r'
	2
	3
	4	# options
	5	#--------- ---------- ---------- -------
	6	serve_ip = " IP "
	7	note_amoun t = 100
	8	patient_id = "100841 " # alpha test
	9	#--------- ---------- ---------- -------
	10
	11
	12	@broker = VistaRPC4r ::RPCBroke rConnectio n.new(serv e_ip, 9210 , "pr12345 ", "pr1234 5!!", fals e)
	13	@broker.co nnect
	14	@broker.se tContext(' OR CPRS GU I CHART')
	15
	16
	17
	18	note_amoun t.times do \|i\|
	19	# save a not e
	20
	21	vr pc = Vista RPC4r::Vis taRPC.new( "TIU CREAT E RECORD", VistaRPC4 r::RPCResp onse::SING LE_VALUE)
	22	vr pc.params = [
	23	pati ent_id, #p atient id
	24	"16" , # note t ype
	25	"",
	26	"",
	27	"",
	28	[
	29	["1202 ","991"], #provider id
	30	["1301 ","3150421 .1150"], # time
	31	["1205 ","195"], #location
	32	["1701 ",""]
	33	],
	34	"195 ;3140512.1 3;A", # ti me and loc ation
	35	"1"
	36	]
	37
	38	re sp = @brok er.execute (vrpc)
	39	no te_id = re sp.value
	40
	41
	42	# # save som e text to the note
	43
	44
	45	vr pc = Vista RPC4r::Vis taRPC.new( "TIU SET D OCUMENT TE XT", Vista RPC4r::RPC Response:: SINGLE_VAL UE)
	46	vr pc.params = [
	47	"#{n ote_id}",
	48	[
	49	["\"TE XT\",1,0", "Note Sign ed"],
	50	["\"HD R\"","1^1" ]
	51	],
	52	"0"
	53	]
	54
	55	re sp = @brok er.execute (vrpc)
	56
	57	vr pc = Vista RPC4r::Vis taRPC.new( "ORWPCE SA VE", Vista RPC4r::RPC Response:: SINGLE_VAL UE)
	58	vr pc.params = [
	59	[
	60	["1"," HDR^0^^32; 3150421.11 50;A"], # time = 315 0416.15135
	61	["2"," VST^DT^315 0421.1150" ], # visit time
	62	["3"," VST^PT^100 841"], # p atient icn
	63	["4"," VST^HL^32" ], # locat ion, prima ry care
	64	["5"," VST^VC^A"] , # ????
	65	["6"," PRV^991^^^ PROVIDER,E IGHT^1"], # provider
	66	["7"," PED+^61205 5^^HTN EXE RCISE^@^^^ ^^1"], # e d
	67	["8"," COM^1^@"],
	68	["9"," HF+^2^^CUR RENT SMOKE R^H^^^^^1^ "], # heal th factor
	69	["10", "COM^2^@"] ,
	70	["11", "HF+^5^^CU RRENT SMOK ER^H^^^^^1 ^"], # hea lth factor
	71	["12", "COM^3^@"]
	72	],
	73	"#{n ote_id}",
	74	"32"
	75	]
	76
	77	re sp = @brok er.execute (vrpc)
	78
	79	# puts resp
	80
	81	# # sign me! !!
	82
	83	vr pc = Vista RPC4r::Vis taRPC.new( "TIU SIGN RECORD", V istaRPC4r: :RPCRespon se::SINGLE _VALUE)
	84	vr pc.params = [
	85	"#{n ote_id}",
	86	"%Kp V7x&*p0"
	87	]
	88
	89	re sp = @brok er.execute (vrpc)
	90
	91	# puts resp
	92
	93	end
	94
	95	@broker.cl ose