Routine: XWB2HL7

Call Graph

Call Graph Total: 14

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

Package

Total

Caller Graph

RPC Broker

XWB2HL7B XWB2HL7C

Registration

VAFCRAU VAFCRAUD

Consult Request Tracking

GMRCART

IHS Electronic Health Record

BEHORDV

Entry Points

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)		ICR #3144 Status: Active Usage: Controlled Subscription
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.)	ICR #3144 Status: Active Usage: Controlled Subscription
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	ICR #3144 Status: Active Usage: Controlled Subscription
UD(%1)	;Unload strings into variables. Builds symbol table

External References

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

Label References

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

Local Variables

Legend:

>>	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

Customize PDF page

Package: RPC Broker

Routine: XWB2HL7

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Used in RPC

Used in HL7 Interface

Global Variables Directly Accessed

Label References

Local Variables

Legend: