XWBM2MT ;OIFO-Oakland/REM - M2M Broker Example ;05/16/2002 14:09
Source file <XWBM2MT.m>
| Package | Total | Call Graph | 
|---|---|---|
| RPC Broker | 2 | ($$CALLRPC,$$CLOSE,$$CONNECT,$$PARAM,$$SETCONTX,PRE)^XWBM2MC $$CHARCHK^XWBUTL | 
| Kernel | 1 | HOME^%ZIS | 
| VA Fileman | 1 | ^DIR | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| REFRP(RET,PARAM) | ;Remote procedure for value passed by reference | |
| OPEN(PORT,IP,AV) | ;Opens connection to server. | |
| LARRYRP(XWBY,XWBARR,XWBSTR) | ;Remote procedure for local array | |
| WP | ;Example of WP | |
| CLEAN | ; | |
| CLOSE | ;Close the connection. | |
| CLNTMP | ;Kills the TMP("XWB*" | |
| EN2 | ;Entry point that hard sets IP,PORT,AV,CONTEXT,RPC. | |
| ECHOSTR | ;Example of Echo String | |
| EXIT | ||
| LARRSTR | ;Example of passing Array (mult) and String. | |
| EN3(VAL) | ;Just runs RPC; need to OPEN, SETCONTX then CLOSE.  Or just call after ; connection has been done. **ONLY WORKS FOR TESTING IN DEV,XWB** | |
| EN1(CONTX,RPCN,PORT,IP,AV) | ; | |
| USERIP | ;Get IP,Port,AV from user for connection. | |
| EN(CONTX,RPCN) | ;Entry point to hard code IP,PORT,AV | |
| CLEARP | ;Clear the PARAMS array | |
| REF | ;Example of passing a value by reference | |
| LARRY | ;Example of passing Array (mult). | |
| SETPARAM(INDEX,TYPE,VALUE) | ;Set a Params entry | 
| Name | Field # of Occurrence | 
|---|---|
| HOME^%ZIS | EN1+12, EN1+15, EN1+16, EN1+21, EN1+23 | 
| ^DIR | ECHOSTR+4, REF+4, USERIP+4, USERIP+7, USERIP+10, USERIP+13, USERIP+17 | 
| $$CALLRPC^XWBM2MC | EN1+23, EN3+8 | 
| $$CLOSE^XWBM2MC | CLOSE+1 | 
| $$CONNECT^XWBM2MC | OPEN+3 | 
| $$PARAM^XWBM2MC | EN3+6 | 
| $$SETCONTX^XWBM2MC | EN1+16 | 
| PRE^XWBM2MC | CLEARP+2 | 
| $$CHARCHK^XWBUTL | ECHOSTR+5, REF+5 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| RPC Name | Call Tags | 
|---|---|
| XWB M2M EXAMPLE LARRY | LARRYRP | 
| XWB M2M EXAMPLE REF | REFRP | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^TMP("XWBM2M" | CLNTMP+1!, CLNTMP+2! | 
| ^TMP("XWBM2ME" | CLNTMP+2! | 
| ^TMP("XWBM2ML" | CLNTMP+2! | 
| ^TMP("XWBM2MRL" | CLNTMP+1! | 
| ^TMP("XWBM2MRPC" | CLNTMP+1! | 
| ^TMP("XWBM2MTEST" | EN3+3*, EN3+4*, EN3+5, EN3+9! | 
| ^TMP("XWBM2MVLC" | CLNTMP+1! | 
| Name | Line Occurrences | 
|---|---|
| CLEAN | ECHOSTR+11, WP+7, LARRY+11, LARRSTR+13, REF+11, CLOSE+3 | 
| CLEARP | EN1+19, ECHOSTR+6, WP+3, LARRY+3, LARRSTR+3, REF+6 | 
| CLOSE | EXIT | 
| EN | ECHOSTR+8, WP+4, LARRY+8, LARRSTR+10, REF+8 | 
| EN1 | EN+2, EN2+7, ECHOSTR+10, WP+6, LARRY+10, LARRSTR+12, REF+10 | 
| EXIT | EN1+16 | 
| OPEN | EN1+14 | 
| SETPARAM | EN1+20, ECHOSTR+7, REF+7 | 
| USERIP | ECHOSTR+9, WP+5, LARRY+9, LARRSTR+11, REF+9 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| AV | EN+1*, EN+2, EN1~, EN1+14, EN2+2~, EN2+5*, EN2+7, OPEN~, OPEN+3 | 
| CONTX | EN~, EN+2, EN1~, EN1+13, EN1+16, EN2+2~, EN2+6*, EN2+7 | 
| DIR | ECHOSTR+3!, REF+3!, USERIP+3!, USERIP+6!, USERIP+9!, USERIP+12!, USERIP+16! | 
| DIR("?" | USERIP+9* | 
| DIR("A" | ECHOSTR+3*, REF+3*, USERIP+3*, USERIP+6*, USERIP+9*, USERIP+12*, USERIP+16* | 
| DIR("B" | ECHOSTR+3*, REF+3*, USERIP+3*, USERIP+6*, USERIP+12* | 
| DIR(0 | ECHOSTR+3*, REF+3*, USERIP+3*, USERIP+6*, USERIP+9*, USERIP+12*, USERIP+16* | 
| >> DIRUT | ECHOSTR+4, REF+4, USERIP+4, USERIP+7, USERIP+10, USERIP+13, USERIP+17 | 
| DUZ | EN1+11 | 
| I | EN1+1~, EN1+24* | 
| INDEX | SETPARAM~, SETPARAM+1, SETPARAM+2 | 
| IO | EN1+12, EN1+15, EN1+16, EN1+21, EN1+23 | 
| IP | EN+1*, EN+2, EN1~, EN1+14, EN2+2~, EN2+5*, EN2+7, OPEN~, OPEN+3 | 
| PARAM | REFRP~, REFRP+1 | 
| PORT | EN+1*, EN+2, EN1~, EN1+14, EN2+2~, EN2+5*, EN2+7, OPEN~, OPEN+3 | 
| REQ | EN1+10!, CLEAN+1! | 
| REQ( | EN1+24 | 
| RES | EN3+2~, EN3+7*, EN3+8 | 
| RET | REFRP~ | 
| RET(0 | REFRP+1* | 
| RMFLAG | EN1+18, EN1+26!, EN2+2~, EN2+3* | 
| ROOT | EN3+2~, EN3+5*, EN3+6 | 
| RPC | EN1+10!, EN3+2~, EN3+7*, EN3+8 | 
| RPCN | EN~, EN+2, EN1~, EN1+22, EN1+23, EN2+2~, EN2+6*, EN2+7 | 
| STATE | EN1+10! | 
| STR | EN3+2~ | 
| TYPE | SETPARAM~, SETPARAM+1 | 
| U | EN1+11* | 
| VAL | EN3~, EN3+4 | 
| VALUE | SETPARAM~, SETPARAM+2 | 
| X | CLOSE+1*, CLOSE+4! | 
| XWBARR | LARRYRP~ | 
| XWBARR( | LARRYRP+5, LARRYRP+7 | 
| XWBAV | ECHOSTR+1~, ECHOSTR+2*, ECHOSTR+10, WP+1~, WP+2*, WP+6, LARRY+1~, LARRY+2*, LARRY+10, LARRSTR+1~ , LARRSTR+2*, LARRSTR+12, REF+1~, REF+2*, REF+10, USERIP+11* | 
| XWBCONTX | USERIP+14*, CLEAN+1! | 
| >> XWBDBUG | CLEARP+1 | 
| XWBFLAG | ECHOSTR+8!, WP+4!, LARRY+8!, LARRSTR+10!, REF+8! | 
| XWBIP | ECHOSTR+1~, ECHOSTR+2*, ECHOSTR+10, WP+1~, WP+2*, WP+6, LARRY+1~, LARRY+2*, LARRY+10, LARRSTR+1~ , LARRSTR+2*, LARRSTR+12, REF+1~, REF+2*, REF+10, USERIP+5* | 
| XWBLINE | LARRYRP+1~, LARRYRP+3*, LARRYRP+4*, LARRYRP+6*, LARRYRP+7 | 
| XWBOPEN | EN1+27, CLOSE+4! | 
| XWBPARMS | CLEARP+1! | 
| XWBPARMS("PARAMS" | LARRY+4*, LARRY+5*, LARRY+6*, LARRY+7*, LARRSTR+4*, LARRSTR+5*, LARRSTR+6*, LARRSTR+7*, LARRSTR+8*, LARRSTR+9* , SETPARAM+1*, SETPARAM+2* | 
| XWBPORT | ECHOSTR+1~, ECHOSTR+2*, ECHOSTR+10, WP+1~, WP+2*, WP+6, LARRY+1~, LARRY+2*, LARRY+10, LARRSTR+1~ , LARRSTR+2*, LARRSTR+12, REF+1~, REF+2*, REF+10, USERIP+8* | 
| >> XWBQUIT | ECHOSTR+9, WP+5, LARRY+9, LARRSTR+11, REF+9, USERIP+2*, USERIP+4*, USERIP+7*, USERIP+10*, USERIP+13* , USERIP+17* | 
| XWBREF | REF+1~, REF+5*, REF+7 | 
| >> XWBREPFL | USERIP+15 | 
| >> XWBREPS | USERIP+18* | 
| >> XWBSTATE("M2M" | EN1+15, OPEN+3*, CLOSE+2* | 
| XWBSTR | ECHOSTR+1~, ECHOSTR+5*, ECHOSTR+7, WP+1~, LARRYRP~, LARRYRP+4, REF+1~ | 
| XWBX | LARRYRP+1~, LARRYRP+5*, LARRYRP+7 | 
| XWBY | LARRYRP~ | 
| XWBY( | LARRYRP+7* | 
| XWBY(1 | LARRYRP+4* | 
| Y | ECHOSTR+1~, ECHOSTR+5, REF+1~, REF+5, USERIP+1~, USERIP+5, USERIP+8, USERIP+11, USERIP+14, USERIP+18 |