XWBM2MEZ ;OIFO-Oakland/JLI - M2M Broker EZ Usage ;08/01/2006 7925229.750776
;;1.1;RPC BROKER;**45**;Mar 28, 1997
;
QUIT
;
CONNECT(PORT,IP,AV) ;
S XWBPARMS("MODE")="RPCBroker"
S XWBPARMS("RETRIES")=3
I '$$CONNECT^XWBM2MC(PORT,IP,AV) Q "Didn't get port open or AV failed."
Q 1
;
CLOSE ;Close the connection.
N X
S X=$$CLOSE^XWBM2MC()
Q
;
SETCNTXT(CONTX) ;
I '$$SETCONTX^XWBM2MC(CONTX) D CLOSE Q "Didn't get Context"
Q 1
;
DORPC(RESULT,RPCNAME) ;
S RESULT=$G(RESULT)
K XWBY
Q $$CALLRPC^XWBM2MC(RPCNAME,.RESULT,1)
;
CLEARP ;
K XWBPARMS
S XWBPARMS("MODE")="RPCBroker"
Q
;
SETPARAM(INDEX,TYPE,VALUE) ;Set a Params entry
S XWBPARMS("PARAMS",INDEX,"TYPE")=TYPE
S XWBPARMS("PARAMS",INDEX,"VALUE")=VALUE
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXWBM2MEZ 762 printed Dec 13, 2024@02:37:16 Page 2
XWBM2MEZ ;OIFO-Oakland/JLI - M2M Broker EZ Usage ;08/01/2006 7925229.750776
+1 ;;1.1;RPC BROKER;**45**;Mar 28, 1997
+2 ;
+3 QUIT
+4 ;
CONNECT(PORT,IP,AV) ;
+1 SET XWBPARMS("MODE")="RPCBroker"
+2 SET XWBPARMS("RETRIES")=3
+3 IF '$$CONNECT^XWBM2MC(PORT,IP,AV)
QUIT "Didn't get port open or AV failed."
+4 QUIT 1
+5 ;
CLOSE ;Close the connection.
+1 NEW X
+2 SET X=$$CLOSE^XWBM2MC()
+3 QUIT
+4 ;
SETCNTXT(CONTX) ;
+1 IF '$$SETCONTX^XWBM2MC(CONTX)
DO CLOSE
QUIT "Didn't get Context"
+2 QUIT 1
+3 ;
DORPC(RESULT,RPCNAME) ;
+1 SET RESULT=$GET(RESULT)
+2 KILL XWBY
+3 QUIT $$CALLRPC^XWBM2MC(RPCNAME,.RESULT,1)
+4 ;
CLEARP ;
+1 KILL XWBPARMS
+2 SET XWBPARMS("MODE")="RPCBroker"
+3 QUIT
+4 ;
SETPARAM(INDEX,TYPE,VALUE) ;Set a Params entry
+1 SET XWBPARMS("PARAMS",INDEX,"TYPE")=TYPE
+2 SET XWBPARMS("PARAMS",INDEX,"VALUE")=VALUE
+3 QUIT
+4 ;
