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 |