XWBM2MEZ.m

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

 ;

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       ;