©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
XWBEXMPL ;ISC-SF/VYD - RPC BROKER EXAMPLE ;07/13/2004 15:03
Source file <XWBEXMPL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ECHOSTR(RESULT,OSTRING) | ;receive string and return it
|
|
| BIGTXT(RESULT,ARRAY) | ;-- Accept a big text block.
|
|
| SORTNUM(RESULT,DIRCTN,ARRAY) | ; -- sort numbers and return sorted
|
|
| GSORT(RESULT,DIRCTN,ROOT) | ; -- Sort numbers in a global array
|
|
| WPTEXT(RESULT) | ;return word processing text
|
|
| GETLIST(RESULT,WHAT,QTY) | ; -- return list
|
| Name | Field # of Occurrence |
|---|---|
| FILE^DID | WPTEXT+3 |
| RPC Name | Call Tags |
|---|---|
| XWB EXAMPLE ECHO STRING | ECHOSTR |
| XWB EXAMPLE GET LIST | GETLIST |
| XWB EXAMPLE WPTEXT | WPTEXT |
| XWB EXAMPLE SORT NUMBERS | SORTNUM |
| XWB EXAMPLE TRAP PARAMS | ERRTRAP |
| XWB EXAMPLE GLOBAL SORT | GSORT |
| XWB EXAMPLE BIG TEXT | BIGTXT |
| FileNo | Call Tags |
|---|---|
| ^XWB(8994 - [#8994] | FILE^DID |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RWF($J | GSORT+12* |
| ^TMP("JLI" | SORTNUM+8* |
| ^TMP($J | GETLIST+5!, GETLIST+9*, GETLIST+15*, GETLIST+17, GSORT+4!, GSORT+7*, GSORT+10*, GSORT+11, BIGTXT+5!* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | SORTNUM~, BIGTXT~, BIGTXT+5 |
| ARRAY( | SORTNUM+6, SORTNUM+10, BIGTXT+4 |
| CC | BIGTXT+2~, BIGTXT+3*, BIGTXT+4*, BIGTXT+6 |
| DIRCTN | SORTNUM~, SORTNUM+5, GSORT~, GSORT+5 |
| I | GETLIST+3~, GETLIST+7*, GETLIST+8, GETLIST+9, GETLIST+13*, GETLIST+15, SORTNUM+4~, SORTNUM+6*, SORTNUM+8, SORTNUM+10* , GSORT+4~, GSORT+6*, GSORT+7, GSORT+9*, GSORT+10, BIGTXT+2~, BIGTXT+3*, BIGTXT+4* |
| J | GETLIST+3~, GETLIST+14*, GETLIST+15, SORTNUM+4~, SORTNUM+6*, SORTNUM+7, SORTNUM+8, SORTNUM+10*, SORTNUM+11 |
| >> JLIN | SORTNUM+8* |
| L | GETLIST+3~, GETLIST+4*, GETLIST+8 |
| LC | BIGTXT+2~, BIGTXT+3*, BIGTXT+4*, BIGTXT+6 |
| OSTRING | ECHOSTR~, ECHOSTR+1 |
| QTY | GETLIST~, GETLIST+7, GETLIST+8, GETLIST+13 |
| RESULT | ECHOSTR~, ECHOSTR+1*, GETLIST~, GETLIST+17*, WPTEXT~, WPTEXT+4*, SORTNUM~, GSORT~, GSORT+11*, BIGTXT~ , BIGTXT+6* |
| RESULT( | SORTNUM+7* |
| RESULT(99999999 | SORTNUM+11* |
| ROOT | GSORT~, GSORT+6, GSORT+7, GSORT+9, GSORT+10, GSORT+12 |
| TEXT | WPTEXT+1~ |
| TEXT("DESCRIPTION" | WPTEXT+4 |
| U | SORTNUM+8 |
| V | GETLIST+3~, GETLIST+8*, GETLIST+9, GSORT+4~, GSORT+7*, GSORT+10* |
| WHAT | GETLIST~, GETLIST+6 |