XWBDRPC ;ISF/RWF - Deferred RPCs, used by XWB2HL7 ;01/14/2003 09:27
Source file <XWBDRPC.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1(RET,RPC,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10) | ;Call a deferred RPC with 1-7 parameters.
|
|
DQ | ;
|
|
REX | ;Exit from RPC
|
|
CAPI(TAG,NAM,PAR) | ;make API call
|
|
ERR | ;Handle an error
|
|
RTNDATA(RET,HDL) | ;Return the data under a handle
|
|
CLEAR(RET,HDL) | ;Clear the data under a handle
|
|
CLEARALL(RET) | ;Clear ALL the data for this job.
|
|
RPCGET(N,R) | ;Convert RPC name to IEN and parameters.
|
|
PARAM() | ;Build remote parameter list
|
|
ADDHDL(HL) | ;Add a handle to local set
|
|
HANDLE() | ;Return a unique handle into ^XTMP
|
|
HAN2 | ||
HDLSTA(HL,STATUS) | ;update the status node in XTMP
|
|
PLACE(HL,DATA) | ;Called to place each line of data.
|
|
RPCCHK(RET,HDL) | ;RPC handle status check.
|
|
CHKHDL(HL) | ;Return the status of a handle
|
|
GETNODE(HL,ND) | ;Get a status node
|
|
SETNODE(HL,ND,DATA) | ;Set a status node
|
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 |
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 |
Name | Field # of Occurrence |
---|---|
^("CNT" | HAN2+3* |
>> | 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 |