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.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | ehmp.zip\ehmp\ehmp\product\tests\data_load_scripts\domain_loaders | problem.rb | Tue Jan 10 16:20:50 2017 UTC |
| 2 | ehmp.zip\ehmp\ehmp\product\tests\data_load_scripts\domain_loaders | problem.rb | Tue Oct 3 14:28:20 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 3 | 126 |
| Changed | 2 | 4 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| 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 |
No regular expressions were active.
| 1 | require 'v istarpc4r' | |
| 2 | ||
| 3 | # options | |
| 4 | #--------- ---------- ---------- ------- | |
| 5 | serve_ip = " IP " | |
| 6 | problem_am ount = 174 3 # up to 1743 | |
| 7 | patient_id = "100841 " # alpha test | |
| 8 | #--------- ---------- ---------- ------- | |
| 9 | ||
| 10 | broker = V istaRPC4r: :RPCBroker Connection .new(serve _ip, 9210, " REDACTED ", " REDACTED ", false) | |
| 11 | broker.con nect | |
| 12 | broker.set Context('O R CPRS GUI CHART') | |
| 13 | ||
| 14 | # create a problem | |
| 15 | ||
| 16 | ||
| 17 | vr pc = Vista RPC4r::Vis taRPC.new( "ORQQPL IN IT PT", Vi staRPC4r:: RPCRespons e::ARRAY) | |
| 18 | vr pc.params[ 0]=patient _id | |
| 19 | re sp = broke r.execute( vrpc) | |
| 20 | ||
| 21 | ||
| 22 | pt VAMC=resp. value[0] # := cop y(Alist[i] ,1,999); | |
| 23 | pt Dead=resp. value[1] # := ALi st[i]; | |
| 24 | pt BID=resp.v alue[6] # := Ali st[i]; | |
| 25 | pt name="" | |
| 26 | gm pdfn = pat ient_id + "^" + ptna me + "^" + ptBID + " ^" + ptDea d | |
| 27 | ||
| 28 | count = 0 | |
| 29 | File.open( "./problem s_list.txt ", "r") do |f| | |
| 30 | f. each_line do |line| | |
| 31 | ||
| 32 | spli t = line.s trip.split ("^") | |
| 33 | code = split[0 ] | |
| 34 | desc ription = split[1] | |
| 35 | ||
| 36 | ||
| 37 | ||
| 38 | vrpc = VistaRP C4r::Vista RPC.new("O RQQPL ADD SAVE", Vis taRPC4r::R PCResponse ::ARRAY) | |
| 39 | vrpc .params[0] = gmpdfn | |
| 40 | vrpc .params[1] = "1" | |
| 41 | vrpc .params[2] = ptVAMC | |
| 42 | vrpc .params[3] = [ | |
| 43 | ["1", "GMPFLD(.0 1)=\"\""], # Diagno sis | |
| 44 | ["2", "GMPFLD(.0 5)=\"^#{de scription} \""], # Na rrative | |
| 45 | ["3", "GMPFLD(.1 2)=\"A\""] , # activi e or inact ive | |
| 46 | ["4", "GMPFLD(.1 3)=\"31508 01^AUG 10 2014\""], # Date of onset | |
| 47 | ["5", "GMPFLD(1. 01)=\"\"\" \"\"\""], # Problem? ? | |
| 48 | ["6", "GMPFLD(1. 08)=\"16\" "], # loca tion code | |
| 49 | ["7", "GMPFLD(1. 1)=\"0^NO\ ""], # Pro blem | |
| 50 | ["8", "GMPFLD(1. 14)=\"C\"" ], #accute or cronic | |
| 51 | ["9", "GMPFLD(10 ,0)=\"\"\" \"\"\""], # Note | |
| 52 | ["10", "GMPFLD(8 0001)=\"#{ code}\""] # snowmed | |
| 53 | ] | |
| 54 | ||
| 55 | resp = broker. execute(vr pc) | |
| 56 | coun t = count + 1 | |
| 57 | if c ount >= pr oblem_amou nt | |
| 58 | break | |
| 59 | end | |
| 60 | en d | |
| 61 | f. close | |
| 62 | end | |
| 63 | ||
| 64 | broker.clo se | |
| 65 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.