Produced by Araxis Merge on 10/3/2017 11:16:08 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\vistarpc4r\lib | domains_action.rb | Tue Jan 10 16:20:50 2017 UTC |
| 2 | ehmp.zip\ehmp\ehmp\product\tests\vistarpc4r\lib | domains_action.rb | Tue Oct 3 15:00:33 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 3 | 182 |
| Changed | 2 | 10 |
| 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 | class Doma insView | |
| 2 | actions_ list_need_ dfn = {"me ds" => "OR WPS COVER" , "labs" = > "ORWCV L AB", "vita ls" => "OR QQVI VITAL S", "demo" => "ORWPT PTINQ", | |
| 3 | "visits " => "ORWC V VST", "d etail" => "ORQQCN DE TAIL", "no tification s" => "ORQ QXQA PATIE NT", "info " => "ORWL RR INFO", | |
| 4 | "proble m_list" => "ORQQPL L IST", "all ergy" => " ORQQAL LIS T", "admis sion_list" => "ORWCV VST", "ap pointments _list" => "ORWPT APP TLST", "al l_patients 1" => "ORW PT LIST AL L"} | |
| 5 | ||
| 6 | actions_ list_not_n eed_dfn = {"patients _list" => "ORQPT WAR DS","provi ders" => " ORQPT PROV IDERS", "s pecialties " => "ORQP T SPECIALT IES","all_ patients" => "ORWPT LIST ALL"} | |
| 7 | ||
| 8 | actions_ list = act ions_list_ need_dfn.m erge(actio ns_list_no t_need_dfn ) | |
| 9 | ||
| 10 | actions_ list.keys. each do |a ction| | |
| 11 | define _method("v iew_#{acti on}") do | patient_pi d = nil| | |
| 12 | puts "Performi ng #{actio n.gsub('_' , ' ')} on patient # {patient_p id}" | |
| 13 | if a ctions_lis t_need_dfn .include? action | |
| 14 | pe rforming_a ction_w_df n(actions_ list[actio n], patien t_pid) | |
| 15 | else | |
| 16 | pe rforming_a ction_w_ou t_dfn(acti ons_list[a ction], pa tient_pid) | |
| 17 | end | |
| 18 | ||
| 19 | end | |
| 20 | end | |
| 21 | ||
| 22 | def perf orming_act ion_w_dfn( action_req uest, pati ent_pid) | |
| 23 | define _port_dfn( patient_pi d) | |
| 24 | fail " *** dfn is required! ***" if @ dfn == nil | |
| 25 | broker = broker_ connection | |
| 26 | if act ion_reques t == "ORQQ PL LIST" | |
| 27 | pati entarray = broker.ca ll_a("ORQQ PL LIST", [@dfn, "A" ]) | |
| 28 | else | |
| 29 | pati entarray = broker.ca ll_a(actio n_request, [@dfn]) | |
| 30 | end | |
| 31 | patien tarray.eac h do |d| | |
| 32 | puts d | |
| 33 | end | |
| 34 | end | |
| 35 | private :performin g_action_w _dfn | |
| 36 | ||
| 37 | def perf orming_act ion_w_out_ dfn(action _request, patient_pi d) | |
| 38 | define _port_dfn( patient_pi d) | |
| 39 | broker = broker_ connection | |
| 40 | if act ion_reques t == "ORQP T WARDS" | |
| 41 | pati ents_list( broker) | |
| 42 | else | |
| 43 | pati entarray = broker.ca ll_a(actio n_request) | |
| 44 | pati entarray.e ach do |d| | |
| 45 | pu ts d | |
| 46 | end | |
| 47 | end | |
| 48 | end | |
| 49 | private :performin g_action_w _out_dfn | |
| 50 | ||
| 51 | def defi ne_port_df n(patient_ pid) | |
| 52 | fail " *** You sh ould at le ast provid e site nam e! ***" if patient_p id == nil | |
| 53 | if pat ient_pid.i nclude? "; " | |
| 54 | pati ent_pids = patient_p id.split"; " | |
| 55 | @dfn = patient _pids[1] | |
| 56 | host = patient _pids[0] | |
| 57 | else | |
| 58 | @dfn = nil | |
| 59 | host = patient _pid | |
| 60 | end | |
| 61 | ||
| 62 | if host.up case == " R E D A CTED " | |
| 63 | @host = ' IP ' | |
| 64 | elsif host .upcase == " REDA C TED " | |
| 65 | @host = ' IP ' | |
| 66 | else | |
| 67 | fail "*** This host (#{h ost}) is n ot define! ***" | |
| 68 | end | |
| 69 | end | |
| 70 | private :define_po rt_dfn | |
| 71 | ||
| 72 | def brok er_connect ion | |
| 73 | broker = V istaRPC4r: :RPCBroker Connection .new(@host , PORT , ' REDACT ', ' REDACTED ') | |
| 74 | broker .connect | |
| 75 | p "The RPC Broke r Connecti on status is #{broke r.isConnec ted}" | |
| 76 | broker .setContex t('OR CPRS GUI CHART ') | |
| 77 | return broker | |
| 78 | end | |
| 79 | private :broker_co nnection | |
| 80 | ||
| 81 | def pati ents_list( broker) | |
| 82 | wardsarr ay = broke r.call_a(" ORQPT WARD S") | |
| 83 | ||
| 84 | wardsa rray.each do |ward| | |
| 85 | a = ward.split ("^") | |
| 86 | puts "Ward:" + a[1] | |
| 87 | ward array = br oker.call_ a("ORQPT W ARD PATIEN TS", [a[0] ]) # ward ien | |
| 88 | wa rdarray.ea ch do |pat ient| | |
| 89 | b = patien t.split("^ ") | |
| 90 | puts b[0] + ":" + b[ 1] | |
| 91 | en d | |
| 92 | end | |
| 93 | end | |
| 94 | ||
| 95 | end | |
| 96 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.