Routine: XWBDRPC

Information

XWBDRPC ;ISF/RWF - Deferred RPCs, used by XWB2HL7 ;01/14/2003 09:27

Source Information

Source file <XWBDRPC.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	4	$$EC^%ZOSV (,UNWIND)^%ZTER ^%ZTLOAD $$HTFM^XLFDT
RPC Broker	2	$$CHKHDL^XWBDRPC ($$RPCAVAIL,$$RPCIEN,$$RTRNFMT)^XWBLIB

Caller Graph

Caller Graph Total: 9

Package	Total	Caller Graph
RPC Broker	3	XWB2HL7 XWB2HL7C XWBDRPC
Order Entry Results Reporting	2	ORWRPL ORWRPP
Registration	2	VAFCRAU VAFCRAUD
IHS Electronic Health Record	1	BEHORDV
Kernel	1	XUSRB

Entry Points

Name	Comments	DBIA/ICR reference
CAPI(TAG,NAM,PAR)	;make API call
REX	;Exit from RPC
GETNODE(HL,ND)	;Get a status node
ERR	;Handle an error
CHKHDL(HL)	;Return the status of a handle
HANDLE()	;Return a unique handle into ^XTMP
HDLSTA(HL,STATUS)	;update the status node in XTMP
RTNDATA(RET,HDL)	;Return the data under a handle	ICR #3149 Status: Active Usage: Controlled Subscription
CLEARALL(RET)	;Clear ALL the data for this job.	ICR #3149 Status: Active Usage: Controlled Subscription
EN1(RET,RPC,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10)	;Call a deferred RPC with 1-7 parameters.
ADDHDL(HL)	;Add a handle to local set
PARAM()	;Build remote parameter list
RPCCHK(RET,HDL)	;RPC handle status check.
HAN2
PLACE(HL,DATA)	;Called to place each line of data.
RPCGET(N,R)	;Convert RPC name to IEN and parameters.
SETNODE(HL,ND,DATA)	;Set a status node
CLEAR(RET,HDL)	;Clear the data under a handle	ICR #3149 Status: Active Usage: Controlled Subscription
DQ	;

External References

Name	Field # of Occurrence
$$EC^%ZOSV	ERR+2
^%ZTER	ERR+1
UNWIND^%ZTER	ERR+3
^%ZTLOAD	EN1+16
$$HTFM^XLFDT	HAN2+2
$$CHKHDL^XWBDRPC	RTNDATA+3
$$RPCAVAIL^XWBLIB	EN1+7
$$RPCIEN^XWBLIB	EN1+5, RPCGET+3
$$RTRNFMT^XWBLIB	RTNDATA+9

Used in RPC

RPC Name	Call Tags
XWB REMOTE GETDATA	RTNDATA
XWB DEFERRED RPC	EN1
XWB DEFERRED STATUS	RPCCHK
XWB DEFERRED GETDATA	RTNDATA
XWB REMOTE CLEAR	CLEAR
XWB DEFERRED CLEAR	CLEAR
XWB DEFERRED CLEARALL	CLEARALL

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("XWBHDL"	CLEAR+1!, CLEARALL+2, ADDHDL+1*
^TMP($J	RTNDATA+1!, RTNDATA+7, RTNDATA+9, RTNDATA+10*
^XTMP(	RTNDATA+6, RTNDATA+10, RTNDATA+11, CLEAR+1!, HAN2, HAN2+1, HAN2+2, HAN2+3, HDLSTA+1, HDLSTA+2 , HDLSTA+3, HDLSTA+4, PLACE+2, PLACE+3, CHKHDL+1, CHKHDL+2, CHKHDL+3, CHKHDL+4, GETNODE+1, SETNODE+1*
^XWB(8994 - [#8994]	RPCGET+5

Label References

Name	Line Occurrences
$$CHKHDL	RPCCHK+1
$$HANDLE	EN1+9
$$HDLSTA	DQ+6, REX+2, REX+12, ERR+2
$$PARAM	DQ+5
$$RPCGET	DQ+4
@(	CAPI+4
CAPI	DQ+8
CLEAR	CLEARALL+2
HAN2	HAN2, HAN2+1
PLACE	REX+6, REX+7, REX+11
REX	DQ+4
SETNODE	EN1+18, DQ+5

Naked Globals

Name	Field # of Occurrence
^("CNT"	HAN2+3*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DQ+2~, PARAM+1~, PARAM+2, PARAM+3, PARAM+4, CHKHDL+3~, CHKHDL+5
%1	DQ+2~, REX+5, REX+6, REX+10, REX+11
%2	DQ+2~, REX+10*, REX+11
%H	HANDLE+1~, HANDLE+2*, HAN2+2
A	PARAM+1~, PARAM+2, PARAM+4, HANDLE+1~, HANDLE+2, HAN2*
DATA	PLACE~, PLACE+3, SETNODE~, SETNODE+1
DT	HAN2+2
ERR	DQ+2~
HDL	RTNDATA~, RTNDATA+2, RTNDATA+3, RTNDATA+6, RTNDATA+10, RTNDATA+11, CLEAR~, CLEAR+1, RPCCHK~, RPCCHK+1
HL	ADDHDL~, ADDHDL+1, HANDLE+1~, HAN2*, HAN2+1, HAN2+2, HAN2+3, HAN2+4, HDLSTA~, HDLSTA+1 , HDLSTA+2, HDLSTA+3, HDLSTA+4, PLACE~, PLACE+2, PLACE+3, CHKHDL~, CHKHDL+1, CHKHDL+2, CHKHDL+3 , CHKHDL+4, GETNODE~, GETNODE+1, SETNODE~, SETNODE+1
I	EN1+1~, EN1+10, RTNDATA+1~, RTNDATA+7, RTNDATA+9, RTNDATA+11, PARAM+1~, PARAM+2*
INX	EN1+1~
IX	DQ+2~, DQ+3, PLACE+1~, PLACE+3
J	HANDLE+1~, HANDLE+2*, HAN2
N	EN1+1~, EN1+12, RTNDATA+1~, RTNDATA+3, RTNDATA+4, RTNDATA+6*, RTNDATA+7, RTNDATA+9, RTNDATA+10, RTNDATA+11 , RPCGET~, RPCGET+2
NAM	CAPI~, CAPI+2
ND	GETNODE~, GETNODE+1, SETNODE~, SETNODE+1
P1	EN1~
P10	EN1~
P2	EN1~
P3	EN1~
P4	EN1~
P5	EN1~
P6	EN1~
P7	EN1~
P8	EN1~
P9	EN1~
PAR	DQ+2~, DQ+5*, DQ+8, CAPI~, CAPI+2
R	CAPI+1~, CAPI+2*, CAPI+4, RPCGET~, RPCGET+4
R("IEN"	RPCGET+5*
R("NAME"	RPCGET+5*
R("RNAM"	RPCGET+6*
R("RTAG"	RPCGET+6*
R("RTNTYPE"	RPCGET+7*
R("WRAP"	RPCGET+7*
RD	RTNDATA+1~, RTNDATA+7*
RET	EN1~, EN1+3, RTNDATA~, RTNDATA+1, RTNDATA+9*, CLEAR~, CLEARALL~, CLEARALL+2, RPCCHK~
RET(	RTNDATA+11*
RET(0	EN1+5, EN1+7, EN1+17, RTNDATA+2, RTNDATA+3, RTNDATA+4, CLEAR+2, RPCCHK+1
RET(1	EN1+5*
RPC	EN1~, EN1+5, EN1+13, DQ+3*, DQ+4
>> RPCIEN	EN1+3, EN1+5, EN1+7
STATUS	HDLSTA~, HDLSTA+3
T	RPCGET+1~, RPCGET+2, RPCGET+3, RPCGET+4, RPCGET+5, RPCGET+8
T0	RPCGET+1~, RPCGET+5*, RPCGET+6, RPCGET+7
TAG	CAPI~, CAPI+2
WRAP	RTNDATA+1~
X	EN1+1~, DQ+2~, DQ+6, REX+12, ERR+2, CLEARALL+1~, CLEARALL+2, PARAM+1~, PARAM+3, PARAM+4* , PARAM+5
>> XWBAPVER	DQ+3*
XWBDVER	EN1+1~, EN1+3*
XWBHDL	EN1+1~, EN1+9*, EN1+17, EN1+18, DQ+5, DQ+6, REX+2, REX+6, REX+7, REX+11 , REX+12, ERR+2
XWBMSG	EN1+2~
XWBPAR	EN1+1~, EN1+3*
XWBPCNT	EN1+1~, EN1+3, EN1+10, PARAM+2
>> XWBRPC	DQ+4*
>> XWBRPC("RNAM"	DQ+8
>> XWBRPC("RTAG"	DQ+8
>> XWBRPC("WRAP"	DQ+5
>> XWBY	REX+4, REX+7, REX+9, REX+10
>> XWBY(0	DQ+4, REX+2
Y	DQ+2~
ZTDESC	EN1+2~, EN1+13*
ZTDTH	EN1+2~, EN1+14*
ZTIO	EN1+2~, EN1+14*
ZTRTN	EN1+2~, EN1+14*
ZTSAVE	EN1+2~
ZTSAVE(	EN1+12*
ZTSK	EN1+2~, EN1+18

Customize PDF page

Package: RPC Broker

Routine: XWBDRPC

Call Graph Total: 6

Caller Graph Total: 9