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 | get_location_types.rb | Tue Jan 10 16:20:50 2017 UTC |
| 2 | ehmp.zip\ehmp\ehmp\product\tests\data_load_scripts | get_location_types.rb | Tue Oct 3 14:30:05 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 278 |
| 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 | require 'v istarpc4r' | |
| 2 | ||
| 3 | @broker = VistaRPC4r ::RPCBroke rConnectio n.new(" IP ", PORT , " REDACTED ", " REDACTED ", false) | |
| 4 | @broker.co nnect | |
| 5 | @broker.se tContext(' OR CPRS GU I CHART') | |
| 6 | ||
| 7 | all_types = [] | |
| 8 | last_type = "" | |
| 9 | ||
| 10 | def get_ty pes(last_t ype, all_t ypes) | |
| 11 | ||
| 12 | vr pc = Vista RPC4r::Vis taRPC.new( "ORWU1 NEW LOC", Vist aRPC4r::RP CResponse: :ARRAY) | |
| 13 | ||
| 14 | vr pc.params = [ | |
| 15 | last _type, | |
| 16 | "1", | |
| 17 | ] | |
| 18 | ||
| 19 | re sp = @brok er.execute (vrpc) | |
| 20 | ||
| 21 | ||
| 22 | re sp.value.e ach do |d| | |
| 23 | arra y = d.spli t('^') | |
| 24 | ||
| 25 | unle ss array[1 ].nil? | |
| 26 | unless array[1]. include?(' <') | |
| 27 | all_type s << "#{ar ray[1]} - #{array[0] }" | |
| 28 | end | |
| 29 | end | |
| 30 | en d | |
| 31 | ||
| 32 | # resp.value .each do | d| | |
| 33 | # puts d | |
| 34 | # end | |
| 35 | ||
| 36 | if resp.valu e.count > 0 | |
| 37 | last = resp.va lue.last.s plit('^') | |
| 38 | last _type = la st[1] | |
| 39 | ||
| 40 | get_ types(last _type, all _types) | |
| 41 | en d | |
| 42 | end | |
| 43 | ||
| 44 | get_types( last_type, all_types ) | |
| 45 | ||
| 46 | puts all_t ypes | |
| 47 | ||
| 48 | ||
| 49 | ||
| 50 | ||
| 51 | ||
| 52 | ||
| 53 | ||
| 54 | # TIU LONG LIST OF T ITLES | |
| 55 | ||
| 56 | # Params - ---------- ---------- ---------- ---------- ---------- ---------- ----- | |
| 57 | # literal 3 | |
| 58 | # literal | |
| 59 | # literal 1 | |
| 60 | ||
| 61 | ||
| 62 | ||
| 63 | ||
| 64 | ||
| 65 | # save a n ote | |
| 66 | ||
| 67 | ||
| 68 | # vrpc = V istaRPC4r: :VistaRPC. new("TIU C REATE RECO RD", Vista RPC4r::RPC Response:: SINGLE_VAL UE) | |
| 69 | # vrpc.par ams = [ | |
| 70 | # "1 00841", #p atient id | |
| 71 | # "1 6", # note type | |
| 72 | # "" , | |
| 73 | # "" , | |
| 74 | # "" , | |
| 75 | # [ | |
| 76 | # ["12 02","991"] , #provide r id | |
| 77 | # ["13 01","31504 21.1150"], # time | |
| 78 | # ["12 05","195"] , #locatio n | |
| 79 | # ["17 01",""] | |
| 80 | # ], | |
| 81 | # "1 95;3140512 .13;A", # time and l ocation | |
| 82 | # "1 " | |
| 83 | # ] | |
| 84 | ||
| 85 | # resp = b roker.exec ute(vrpc) | |
| 86 | # note_id = resp.val ue | |
| 87 | ||
| 88 | ||
| 89 | # # save s ome text t o the note | |
| 90 | ||
| 91 | ||
| 92 | # vrpc = V istaRPC4r: :VistaRPC. new("TIU S ET DOCUMEN T TEXT", V istaRPC4r: :RPCRespon se::SINGLE _VALUE) | |
| 93 | # vrpc.par ams = [ | |
| 94 | # "# {note_id}" , | |
| 95 | # [ | |
| 96 | # ["\" TEXT\",1,0 ","Note Si gned"], | |
| 97 | # ["\" HDR\"","1^ 1"] | |
| 98 | # ], | |
| 99 | # "0 " | |
| 100 | # ] | |
| 101 | ||
| 102 | # resp = b roker.exec ute(vrpc) | |
| 103 | ||
| 104 | # vrpc = V istaRPC4r: :VistaRPC. new("ORWPC E SAVE", V istaRPC4r: :RPCRespon se::SINGLE _VALUE) | |
| 105 | # vrpc.par ams = [ | |
| 106 | # [ | |
| 107 | # ["1" ,"HDR^0^^3 2;3150421. 1150;A"], # time = 3 150416.151 35 | |
| 108 | # ["2" ,"VST^DT^3 150421.115 0"], # vis it time | |
| 109 | # ["3" ,"VST^PT^1 00841"], # patient i cn | |
| 110 | # ["4" ,"VST^HL^3 2"], # loc ation, pri mary care | |
| 111 | # ["5" ,"VST^VC^A "], # ???? | |
| 112 | # ["6" ,"PRV^991^ ^^PROVIDER ,EIGHT^1"] , # provid er | |
| 113 | # ["7" ,"PED+^612 055^^HTN E XERCISE^@^ ^^^^1"], # ed | |
| 114 | # ["8" ,"COM^1^@" ], | |
| 115 | # ["9" ,"HF+^2^^C URRENT SMO KER^H^^^^^ 1^"], # he alth facto r | |
| 116 | # ["10 ","COM^2^@ "], | |
| 117 | # ["11 ","HF+^5^^ CURRENT SM OKER^H^^^^ ^1^"], # h ealth fact or | |
| 118 | # ["12 ","COM^3^@ "] | |
| 119 | # ], | |
| 120 | # "# {note_id}" , | |
| 121 | # "3 2" | |
| 122 | # ] | |
| 123 | ||
| 124 | # resp = b roker.exec ute(vrpc) | |
| 125 | ||
| 126 | # puts res p | |
| 127 | ||
| 128 | # # sign m e!!! | |
| 129 | ||
| 130 | # vrpc = V istaRPC4r: :VistaRPC. new("TIU S IGN RECORD ", VistaRP C4r::RPCRe sponse::SI NGLE_VALUE ) | |
| 131 | # vrpc.par ams = [ | |
| 132 | # "# {note_id}" , | |
| 133 | # "% KpV7x&*p0" | |
| 134 | # ] | |
| 135 | ||
| 136 | # resp = b roker.exec ute(vrpc) | |
| 137 | ||
| 138 | # puts res p | |
| 139 | ||
| 140 | @broker.cl ose |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.