©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
XWB2HL7 ;ISF/RWF - Remote RPC via HL7 ;08/24/09 14:32
Source file <XWB2HL7.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 9 | ^%ZIS ^%ZISC (RMDEV,SAVDEV,USE)^%ZISUTL ($$EC,GETENV)^%ZOSV (,UNWIND)^%ZTER ^%ZTLOAD ($$GET,$$PUT)^XUESSO1 $$SLOG^XUS1 LOUT^XUSCLEAN |
| RPC Broker | 3 | DIRECT^XWB2HL7A ($$CHKHDL,$$GETNODE,$$HANDLE,$$HDLSTA,ADDHDL,RTNDATA,SETNODE)^XWBDRPC ($$RPCAVAIL,$$RPCIEN)^XWBLIB |
| Health Level Seven | 2 | $$STAT^HLCSLM ($$CHKLL,$$MSGSTAT)^HLUTIL |
| Package | Total | Caller Graph |
|---|---|---|
| RPC Broker | 2 | XWB2HL7B XWB2HL7C |
| Registration | 2 | VAFCRAU VAFCRAUD |
| Consult Request Tracking | 1 | GMRCART |
| IHS Electronic Health Record | 1 | BEHORDV |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CAPI(TAG,NAM,PAR) | ;make API call
|
|
| REX | ;Exit from remote.
|
|
| REJECT | ;Handle some kind of reject on remote system
|
|
| RETURN | ;This tag is called by HL7 when the data returns from the remote system
|
|
| DIRECT(RET,LOC,RPC,RPCVER,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10) |
|
|
| REMOTE(XWBY,XWBQT,XWBSPN,XWBPAR) | ;Entry point on Remote system
|
|
| LD(%V) | ;Convert a var name into a transport string. Grabs from symbol table
|
|
| ETRAP | ;Handle errors in the RPC at the remote site.
|
|
| RPCGET(N,R) | ;Convert RPC name to IEN and parameters.
|
|
| V2S(V) | ;Convert a value into L_value string
|
|
| EN1(RET,LOC,RPC,RPCVER,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10) | ; Call a remote RPC
; with 1-10 parameters. ; (This reworked EN1 emtry point replaces the original EN1 entry point, ; which was renamed OLDEN1.) |
|
| GETNODE(%1,%2) | ;Pass to XWBDRPC
|
|
| S2V(S) | ;Convert a string L_value into a value
|
|
| PLACE(HL,DATA) | ;Called by HL7 to place each line of data.
|
|
| PARAM() | ;Build remote parameter list
|
|
| CAPIER | ;Handle a error in called RPC
|
|
| SETUP(XWBDIR) | ;Check/setup for HL7 call
|
|
| RPCCHK(RET,HDL) | ;RPC call to check a handle status
|
|
| UD(%1) | ;Unload strings into variables. Builds symbol table
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | CAPI+6 |
| ^%ZISC | CAPI+9, CAPIER+3 |
| RMDEV^%ZISUTL | REMOTE+31 |
| SAVDEV^%ZISUTL | REMOTE+27 |
| USE^%ZISUTL | REMOTE+31 |
| $$EC^%ZOSV | CAPIER+1, ETRAP+2 |
| GETENV^%ZOSV | REMOTE+22 |
| ^%ZTER | CAPIER+2, ETRAP+5 |
| UNWIND^%ZTER | CAPIER+4, ETRAP+5 |
| ^%ZTLOAD | EN1+13 |
| $$STAT^HLCSLM | SETUP+5 |
| $$CHKLL^HLUTIL | SETUP+6 |
| $$MSGSTAT^HLUTIL | RPCCHK+5 |
| $$GET^XUESSO1 | SETUP+3 |
| $$PUT^XUESSO1 | REMOTE+20 |
| $$SLOG^XUS1 | REMOTE+22 |
| LOUT^XUSCLEAN | REX+9 |
| DIRECT^XWB2HL7A | DIRECT+7 |
| $$CHKHDL^XWBDRPC | RETURN+15, RPCCHK+3 |
| $$GETNODE^XWBDRPC | REJECT+3, GETNODE+1 |
| $$HANDLE^XWBDRPC | SETUP+21 |
| $$HDLSTA^XWBDRPC | RETURN+22, REJECT+5 |
| ADDHDL^XWBDRPC | SETUP+21 |
| RTNDATA^XWBDRPC | DIRECT+10 |
| SETNODE^XWBDRPC | EN1+18 |
| $$RPCAVAIL^XWBLIB | REMOTE+14 |
| $$RPCIEN^XWBLIB | SETUP+8, RPCGET+3 |
| RPC Name | Call Tags |
|---|---|
| XWB REMOTE RPC | EN1 |
| XWB REMOTE STATUS CHECK | RPCCHK |
| XWB DIRECT RPC | DIRECT |
| HL7 Protocol Name | Call Tags |
|---|---|
| XWB RPC EVENT | RETURN |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("XWBR" | REX+2!, REX+5*, REX+7*, ETRAP+1!, ETRAP+2*, ETRAP+3 |
| ^XTMP( | REJECT+3, PLACE+2* |
| ^XUTL("XQ" | REMOTE+9! |
| ^XWB(8994 - [#8994] | RPCGET+5 |
| Name | Line Occurrences |
|---|---|
| $$GETNODE | RPCCHK+3 |
| $$LD | SETUP+19 |
| $$PARAM | REMOTE+25 |
| $$RPCGET | REMOTE+13 |
| $$S2V | UD+2 |
| $$V2S | SETUP+17, LD+2, LD+3, LD+4 |
| @( | CAPI+7 |
| CAPI | REMOTE+29 |
| PLACE | RETURN+19 |
| REJECT | RETURN+9 |
| RETURN | DIRECT+10 |
| REX | REMOTE+12, REMOTE+13, REMOTE+14, REMOTE+18 |
| SETUP | EN1+8, DIRECT+5 |
| UD | REMOTE+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | UD+1~, UD+2*, REMOTE+3~, PARAM+1~, PARAM+2*, PARAM+3, PARAM+4 |
| %1 | LD+1~, LD+3*, LD+4*, LD+5, UD~, UD+2, GETNODE~, GETNODE+1 |
| %2 | LD+1~, GETNODE~, GETNODE+1 |
| %3 | LD+1~, LD+4* |
| %4 | LD+1~, LD+4* |
| %V | LD~, LD+2, LD+3, LD+4* |
| >> %ZIS | CAPI+6* |
| A | PARAM+1~, PARAM+2*, PARAM+4 |
| D | S2V+1~*, S2V+2*, S2V+3 |
| DATA | PLACE~, PLACE+2 |
| DUZ | REMOTE+4~, REMOTE+19* |
| DUZ(0 | REMOTE+19* |
| ERR | REMOTE+3~ |
| HDL | REJECT+1~, REJECT+2*, REJECT+3*, REJECT+5, RPCCHK~, RPCCHK+2, RPCCHK+3 |
| HL | CAPI+2~, PLACE~, PLACE+2 |
| HLA | CAPI+2~ |
| HLDOM | DIRECT+4~ |
| HLECH | DIRECT+4~ |
| HLERR | CAPI+2~ |
| HLFS | DIRECT+4~ |
| HLINSTN | DIRECT+4~ |
| HLL | CAPI+2~ |
| HLMTIEN | DIRECT+4~, DIRECT+9 |
| HLMTIENS | CAPI+2~ |
| HLNEXT | DIRECT+4~, RETURN+5, RETURN+7, RETURN+11, RETURN+17 |
| HLNODE | DIRECT+4~, RETURN+7, RETURN+8, RETURN+9, RETURN+11, RETURN+12, RETURN+14, RETURN+17, RETURN+18, REJECT+2 |
| HLNODE( | RETURN+18 |
| HLPARAM | DIRECT+4~ |
| HLQ | DIRECT+4~ |
| HLQUIT | DIRECT+4~, RETURN+7, RETURN+11, RETURN+17 |
| I | EN1+5~, DIRECT+1~, SETUP+9*, SETUP+19*, REMOTE+3~, REMOTE+11*, RETURN+4~, RETURN+7*, RETURN+11*, RETURN+17* , PARAM+1~, PARAM+2* |
| INX | EN1+5~, DIRECT+1~, SETUP+15*, SETUP+17*, SETUP+19*, LD+4* |
| IO | REMOTE+27, CAPI+2~ |
| IO("C" | CAPI+9*, CAPIER+3* |
| IO(0 | REMOTE+27* |
| IO(1 | REMOTE+27* |
| >> IOP | CAPI+6* |
| IX | PLACE+1~, PLACE+2* |
| J | RETURN+4~, RETURN+18* |
| L | S2V+1~*, S2V+2 |
| LOC | EN1~, DIRECT~, DIRECT+7, SETUP+6 |
| M | RPCCHK+1~, RPCCHK+5*, RPCCHK+6, RPCCHK+7, RPCCHK+8, RPCCHK+9 |
| MID | REJECT+1~, REJECT+2*, REJECT+3 |
| MSG | REJECT+1~, REJECT+2*, REJECT+5 |
| N | EN1+5~, DIRECT+1~, SETUP+16*, SETUP+17, SETUP+19*, LD+3, RPCGET~, RPCGET+2 |
| NAM | CAPI~, CAPI+4 |
| P1 | EN1~, DIRECT~, REMOTE+3~ |
| P10 | EN1~, DIRECT~, REMOTE+3~ |
| P2 | EN1~, DIRECT~, REMOTE+3~ |
| P3 | EN1~, DIRECT~, REMOTE+3~ |
| P4 | EN1~, DIRECT~, REMOTE+3~ |
| P5 | EN1~, DIRECT~, REMOTE+3~ |
| P6 | EN1~, DIRECT~, REMOTE+3~ |
| P7 | EN1~, DIRECT~, REMOTE+3~ |
| P8 | EN1~, DIRECT~, REMOTE+3~ |
| P9 | EN1~, DIRECT~, REMOTE+3~ |
| PAR | REMOTE+25*, REMOTE+29, CAPI~, CAPI+4 |
| PMAX | EN1+5~, DIRECT+1~, SETUP+1*, SETUP+9, SETUP+19 |
| R | CAPI+2~, CAPI+4*, CAPI+7, RPCGET~, RPCGET+4 |
| R("IEN" | RPCGET+5* |
| R("NAME" | RPCGET+5* |
| R("RNAM" | RPCGET+6* |
| R("RTAG" | RPCGET+6* |
| R("USER" | RPCGET+7* |
| R("XWBPTYPE" | RPCGET+7* |
| R("XWBWRAP" | RPCGET+7* |
| RET | EN1~, DIRECT~, DIRECT+10, SETUP+1*, RPCCHK~ |
| RET(0 | EN1+16*, EN1+17*, DIRECT+8*, DIRECT+9*, SETUP+3*, SETUP+5*, SETUP+6*, SETUP+8*, RPCCHK+2*, RPCCHK+3* , RPCCHK+4 |
| RET(1 | EN1+8, DIRECT+5, SETUP+3*, SETUP+5*, SETUP+6*, SETUP+8*, RPCCHK+4*, RPCCHK+5*, RPCCHK+6, RPCCHK+7 |
| RPC | EN1~, DIRECT~, SETUP+8, REMOTE+3~, REMOTE+4~, REMOTE+12, REMOTE+13 |
| RPCIEN | EN1+5~, DIRECT+2~, SETUP+1*, SETUP+8* |
| RPCVER | EN1~, DIRECT~, SETUP+1*, REMOTE+4~, REMOTE+14 |
| S | S2V~, S2V+1, S2V+2*, RPCCHK+1~, RPCCHK+3*, RPCCHK+4, RPCCHK+5 |
| T | RPCGET+1~, RPCGET+2*, RPCGET+3*, RPCGET+4, RPCGET+5, RPCGET+9 |
| T0 | RPCGET+1~, RPCGET+5*, RPCGET+6, RPCGET+7 |
| TAG | CAPI~, CAPI+4 |
| U | DIRECT+8, REMOTE+22, RETURN+9, REJECT+2 |
| V | V2S~, V2S+1 |
| X | EN1+5~, DIRECT+1~, SETUP+19*, REMOTE+3~, RETURN+4~, RETURN+18*, RETURN+19, RETURN+22*, REJECT+1~, REJECT+3* , REJECT+4, REJECT+5*, PARAM+1~*, PARAM+3*, PARAM+4*, PARAM+5 |
| X( | RETURN+7*, RETURN+11* |
| XWB1 | RETURN+4~ |
| XWB2 | RETURN+4~ |
| XWBA1 | REMOTE+5~ |
| XWBA10 | REMOTE+5~ |
| XWBA2 | REMOTE+5~ |
| XWBA3 | REMOTE+5~ |
| XWBA4 | REMOTE+5~ |
| XWBA5 | REMOTE+5~ |
| XWBA6 | REMOTE+5~ |
| XWBA7 | REMOTE+5~ |
| XWBA8 | REMOTE+5~ |
| XWBA9 | REMOTE+5~ |
| XWBDIR | SETUP~, SETUP+5 |
| XWBDVER | EN1+5~, DIRECT+1~, SETUP+1*, REMOTE+3~ |
| XWBESSO | EN1+5~, DIRECT+1~, SETUP+3*, REMOTE+4~, REMOTE+20, REMOTE+22 |
| XWBHDL | EN1+5~, EN1+17, EN1+18, DIRECT+1~, DIRECT+7, DIRECT+10, SETUP+21*, RETURN+4~, RETURN+14*, RETURN+15 , RETURN+19, RETURN+22 |
| XWBHL7 | EN1+5~, DIRECT+1~ |
| XWBMSG | EN1+5~, DIRECT+2~, DIRECT+7, DIRECT+8, SETUP+21* |
| XWBPAR | EN1+6~, DIRECT+1~, DIRECT+7, SETUP+1*, SETUP+15!, REMOTE~ |
| XWBPAR( | SETUP+17*, SETUP+19*, LD+4*, REMOTE+11 |
| XWBPCNT | EN1+6~, DIRECT+1~, SETUP+1*, SETUP+9*, REMOTE+3~, PARAM+2 |
| XWBQT | REMOTE~ |
| XWBRPC | REMOTE+3~, REMOTE+13*, REMOTE+14 |
| XWBRPC("RNAM" | REMOTE+29 |
| XWBRPC("RTAG" | REMOTE+29 |
| XWBRPC("USER" | REMOTE+19 |
| XWBSEC | EN1+6~, DIRECT+2~, SETUP+11* |
| XWBSPN | REMOTE~ |
| >> XWBSTATE("SLOG" | REMOTE+22*, REX+9 |
| XWBY | REMOTE~, REX+3, REX+4, REX+5!*, REX+6, REX+7!*, ETRAP+1!, ETRAP+2*, ETRAP+3* |
| XWBY(0 | REMOTE+12*, REMOTE+13*, REMOTE+14*, REMOTE+18, REMOTE+20*, REX+3*, CAPIER+1* |
| Y | REMOTE+3~, REMOTE+22 |
| Z | RPCCHK+1~, RPCCHK+4, RPCCHK+5*, RPCCHK+6*, RPCCHK+7*, RPCCHK+8*, RPCCHK+9* |
| ZTDESC | EN1+6~, EN1+12* |
| ZTDTH | EN1+6~, EN1+11* |
| ZTIO | EN1+6~, EN1+11* |
| ZTRTN | EN1+6~, EN1+11* |
| ZTSAVE | EN1+6~ |
| ZTSAVE("*" | EN1+11* |
| ZTSK | EN1+6~, EN1+16, EN1+18 |