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\performance-tests\test_data_framework_files | import_panorama_allergymultisymp_fw.rb | Tue Dec 15 14:05:18 2015 UTC |
| 2 | ehmp.zip\ehmp\ehmp\product\tests\performance-tests\test_data_framework_files | import_panorama_allergymultisymp_fw.rb | Tue Oct 3 14:48:54 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 138 |
| Changed | 1 | 2 |
| 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 | ########## ########## ########## ########## ########## ########## ########## ########## ########## ########## # | |
| 2 | # This cod e parses e xisting JS ON files a nd creates a new pat ient recor d by repla cing value s # | |
| 3 | # for the patientIEN , allergy name and s ymptoms wi th values randonly g enerated u sing Forge ry # | |
| 4 | # dictiona ries # | |
| 5 | # # | |
| 6 | # The pati ent record created w ill have t he same nu mber of sy mptoms as the origin al parsed JSON fil # | |
| 7 | # That is, parsing 1 00716_Alle rgy_201312 05_1608.js on will cr eate two s ymptoms pe r allergy # | |
| 8 | # and pars ing 100615 _Allergy_8 8074354_99 86.json wi ll create one symmto m per alle rgy # | |
| 9 | # # | |
| 10 | # The new patient re cord is wr itten to p anorama Vi stA Instan ce using R PC: ORWDAL 32 SAVE AL LERGY # | |
| 11 | # # | |
| 12 | ########## ########## ########## ########## ########## ########## ########## ########## ########## ########## # | |
| 13 | require 'r ubygems' | |
| 14 | require 'v istarpc4r' | |
| 15 | require 'f orgery' | |
| 16 | require 'j son' | |
| 17 | require_re lative './ patientrec ord' | |
| 18 | require 'd ebugger' | |
| 19 | #opens bro ker connec tion to wr ite-back t o VistA In stance (ko dak or pan orama) uis ng RPC | |
| 20 | broker = V istaRPC4r: :RPCBroker Connection .new(" IP ", PORT , " REDACTED ", " REDACTED ", true) | |
| 21 | broker.con nect | |
| 22 | broker.set Context('O R CPRS GUI CHART') | |
| 23 | ||
| 24 | #this json file has one sympto m | |
| 25 | #json = Fi le.read (' 100615_All ergy_88074 354_9986.j son') | |
| 26 | ||
| 27 | #this json file has two sympto ms | |
| 28 | json = Fil e.read ('1 00716_Alle rgy_201312 05_1608.js on') | |
| 29 | pr = JSON. parse(json ) | |
| 30 | ||
| 31 | if pr['all ergies'] ! = nil && p r['allergi es']['list '] != nil | |
| 32 | thirdPar ameter = [ ] | |
| 33 | #ord = F orgery(:ba sic).numbe r(:at_leas t=>1111111 1, :at_mos t=>9999999 9).to_s | |
| 34 | pr['alle rgies']['l ist'].each do |list| | |
| 35 | #GMRAG NT is the name of th e allergy | |
| 36 | if lis t["key"] = ="GMRAGNT" && list[' value'] != "" | |
| 37 | list ['value'] = Forgery( :PatientRe cord).alle rgies | |
| 38 | thir dParameter << ["\"#{ list['key' ]}\"","#{l ist['value ']}"] | |
| 39 | pr[' allergies' ]['list']. each do |l ist| | |
| 40 | #G MRASYMP ho lds the sy mptoms | |
| 41 | if list["key "] =="GMRA SYMP" && list['or dinal'] != "0" | |
| 42 | list["key" ] | |
| 43 | list['valu e'] = Forg ery(:Patie ntRecord). symptoms | |
| 44 | en d | |
| 45 | end | |
| 46 | elsif | |
| 47 | list[ 'ordinal'] == nil || list['ord inal'] == "" | |
| 48 | third Parameter << ["\"#{l ist['key'] }\"","#{li st['value' ]}"] | |
| 49 | else | |
| 50 | third Parameter << ["\"#{l ist['key'] }\",#{list ['ordinal' ]}","#{lis t['value'] }"] | |
| 51 | end | |
| 52 | end | |
| 53 | ||
| 54 | pr['alle rgies']['p atientIEN' ] = Forger y(:Patient Record).pa tientIEN | |
| 55 | pr['alle rgies']['p atientIEN' ] | |
| 56 | ||
| 57 | vrpc = V istaRPC4r: :VistaRPC. new("ORWDA L32 SAVE A LLERGY", V istaRPC4r: :RPCRespon se::SINGLE _VALUE) | |
| 58 | ||
| 59 | # first parameter is the all ergy IEN t o update/i nsert, if inserting, default t o 0 | |
| 60 | vrpc.par ams[0] = " 0" | |
| 61 | ||
| 62 | # second parameter is the DF N of the p atient | |
| 63 | vrpc.par ams[1] = p r['allergi es']['pati entIEN'] | |
| 64 | ||
| 65 | # third parameter is the lis t of aller gy informa tion to in sert | |
| 66 | vrpc.par ams[2] = t hirdParame ter | |
| 67 | debugger | |
| 68 | resp = b roker.exec ute(vrpc) | |
| 69 | ||
| 70 | end |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.