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

979.1 Files compared

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

979.2 Comparison summary

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

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

979.4 Active regular expressions

No regular expressions were active.

979.5 Comparison detail

	1	require 'v istarpc4r'
	2
	3
	4	# options
	5	#--------- ---------- ---------- -------
	6	serve_ip = " IP "
	7	imuz_amoun t = 207 # up to 62
	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	it_count = 0
	18
	19	while it_c ount < imu z_amount
	20
	21	lo ad_time = Time.now
	22
	23	ti me = load _time - (6 0 * it_cou nt)
	24
	25	fo rmated_tim e = time.s trftime "3 %y%m%d.%H% M"
	26
	27	vr pc = Vista RPC4r::Vis taRPC.new( "TIU CREAT E RECORD", VistaRPC4 r::RPCResp onse::SING LE_VALUE)
	28	vr pc.params = [
	29	pati ent_id, #p atient id
	30	"16" , # note t ype
	31	"",
	32	"",
	33	"",
	34	[
	35	["1202 ","991"], #provider id
	36	["1301 ","#{forma ted_time}" ], # time
	37	["1205 ","195"], #location
	38	["1701 ",""]
	39	],
	40	"195 ;#{formate d_time};A" , # time a nd locatio n
	41	"1"
	42	]
	43
	44	re sp = @brok er.execute (vrpc)
	45	no te_id = re sp.value
	46
	47
	48	# # save som e text to the note
	49
	50
	51	vr pc = Vista RPC4r::Vis taRPC.new( "TIU SET D OCUMENT TE XT", Vista RPC4r::RPC Response:: SINGLE_VAL UE)
	52	vr pc.params = [
	53	"#{n ote_id}",
	54	[
	55	["\"TE XT\",1,0", "immunizat ion note"] ,
	56	["\"HD R\"","1^1" ]
	57	],
	58	"0"
	59	]
	60
	61	re sp = @brok er.execute (vrpc)
	62
	63	vr pc = Vista RPC4r::Vis taRPC.new( "ORWPCE SA VE", Vista RPC4r::RPC Response:: SINGLE_VAL UE)
	64
	65	in put_array =[
	66	["1" ,"HDR^0^^3 2;#{format ed_time};A "], # time = 3150416 .15135
	67	["2" ,"VST^DT^# {formated_ time}"], # visit tim e
	68	["3" ,"VST^PT^1 00841"], # patient i cn
	69	["4" ,"VST^HL^3 2"], # loc ation, pri mary care
	70	["5" ,"VST^VC^A "], # ????
	71	["6" ,"PRV^991^ ^^PROVIDER ,EIGHT^1"] , # provid er
	72	# [" 7","PED+^6 12055^^HTN EXERCISE^ @^^^^^1"], # ed
	73	# [" 8","COM^1^ @"],
	74	# [" 9","HF+^2^ ^CURRENT S MOKER^H^^^ ^^1^"], # health fac tor
	75	# [" 10","COM^2 ^@"],
	76	# [" 11","HF+^5 ^^CURRENT SMOKER^H^^ ^^^1^"], # health fa ctor
	77	# [" 12","COM^3 ^@"],
	78	# [" 13","IMM+^ 1020^^DTAP ^@^^@^0^^1 "],
	79	# [" 14","COM^4 ^@"]
	80	]
	81
	82	co unt = 0
	83	in dex = 6
	84
	85	Fi le.open(". /immunizat ions.txt", "r") do \| f\|
	86	f.ea ch_line do \|line\|
	87	if (co unt + it_c ount) >= i muz_amount
	88	break
	89	end
	90
	91	compon ents = lin e.strip.sp lit('^')
	92	id = c omponents[ 0]
	93	name = component s[1]
	94	count = count + 1
	95	index = index + 1
	96	imuz = ["#{index }","IMM+^# {id}^^#{na me}^@^^@^0 ^^1"],
	97	index = index + 1
	98	com = ["#{index} ","COM^#{c ount}^@"]
	99
	100	input_ array.push (imuz.flat ten)
	101	input_ array.push (com.flatt en)
	102	end
	103	en d
	104
	105	vr pc.params = [
	106	inpu t_array,
	107	"#{n ote_id}",
	108	"32"
	109	]
	110
	111	re sp = @brok er.execute (vrpc)
	112
	113	# puts resp
	114
	115	# # sign me! !!
	116
	117	vr pc = Vista RPC4r::Vis taRPC.new( "TIU SIGN RECORD", V istaRPC4r: :RPCRespon se::SINGLE _VALUE)
	118	vr pc.params = [
	119	"#{n ote_id}",
	120	"%Kp V7x&*p0"
	121	]
	122
	123	re sp = @brok er.execute (vrpc)
	124
	125	it _count = i t_count + count
	126	end
	127
	128	@broker.cl ose