R-GLOBAL (9) COMMUNICATIONS PROTOCOL (3.4)
Name
Value
NAME
R-GLOBAL
SEND
W !,XMSG
RECEIVE
S XMLIN=$N(^%ZTSK(XMTSK,XMLIN)),ER=0 S:XMLIN<0 ER=1 Q:ER S XMRG=^(XMLIN) ; S XMTRAN="R: "_XMRG D TRAN^
XMC1
OPEN
S XMLIN=0
CLOSE
Q
DESCRIPTION
READS GLOBALS
