XWB2HL7A ;;ISF/AC - Remote RPCs via HL7. ;03/26/09 16:22
Source file <XWB2HL7A.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RPCINFO | ;RPC Information
|
|
| DIRECT(XWB2SPN,XWB2HNDL,XWB2RET,XWB2DEST,XWB2PRAM,XWB2PARY) | ;DIR RPC CALL
|
|
| CALL(XWB2SPN,XWB2HNDL,XWB2RET,XWB2DEST,XWB2PRAM,XWB2PARY) | ;RPC CALL
|
|
| D2 | ||
| CALLXIT | ;Cleanup before exit.
|
|
| RPCSEND | ;
|
|
| NXTNODE | ;Get next node
|
|
| BLDDIST(X) | ;Build distribution list -- HLL("LINKS") ARRAY.
|
|
| XLATE(S,OF) | ;TRANSLATE FS and Encoding characters to Formating codes.
|
|
| ECODE(%) | ;
|
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | FIND1^DIC |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | BLDDIST+1~, BLDDIST+3*, BLDDIST+4, ECODE~, ECODE+1 |
| FC | XLATE+2~, XLATE+4*, XLATE+7, XLATE+8 |
| HL | D2~, D2+9 |
| HL("" | D2+10 |
| HL("ECH" | D2+14, RPCSEND+2, RPCSEND+16, RPCSEND+22, ECODE+1 |
| HL("FS" | D2+14, RPCSEND+2, RPCSEND+22 |
| HLA | D2~ |
| HLA("HLS" | RPCSEND+2*, RPCSEND+3, RPCSEND+22* |
| HLERR | D2~ |
| HLL | D2~ |
| HLL("LINKS" | D2+6, BLDDIST+4* |
| I | D2~, D2+14*, D2+16*, D2+17, D2+18, D2+22, D2+24, D2+25, D2+26, D2+29 , RPCSEND+1~, RPCSEND+4*, RPCSEND+5, RPCSEND+6, RPCSEND+8, RPCSEND+9, RPCSEND+13*, RPCSEND+14, RPCSEND+15, RPCSEND+17 , RPCSEND+18, XLATE+2~ |
| I1 | XLATE+2~, XLATE+4* |
| I2 | XLATE+2~, XLATE+6*, XLATE+10, XLATE+14 |
| I3 | XLATE+2~ |
| J | D2~, D2+19*, D2+23*, D2+24*, D2+26, D2+29, D2+30*, RPCSEND+1~, RPCSEND+8*, RPCSEND+9 , RPCSEND+17*, RPCSEND+18 |
| >> K | D2+21*, D2+22, D2+23, D2+28*, D2+29, D2+30 |
| L | XLATE+2~ |
| L1 | XLATE+2~, XLATE+7*, XLATE+8*, XLATE+10, XLATE+14 |
| L2 | XLATE+2~, XLATE+7*, XLATE+8* |
| N | XLATE+2~, XLATE+14*, XLATE+15 |
| OF | XLATE~ |
| OF( | XLATE+6*, XLATE+10*, XLATE+14* |
| OF(0 | XLATE+3*, XLATE+18! |
| S | XLATE~, XLATE+3, XLATE+6*, XLATE+7, XLATE+8, XLATE+10*, XLATE+14, XLATE+15* |
| TC | XLATE+2~, XLATE+4*, XLATE+11 |
| U | BLDDIST+4 |
| X | BLDDIST~, BLDDIST+2, XLATE+2~ |
| XWB2DEST | DIRECT~, CALL~, D2+5 |
| XWB2DRCT | DIRECT+1~, DIRECT+2*, RPCSEND+23 |
| XWB2EID | D2~, D2+7*, D2+8, D2+9, RPCSEND+23, RPCSEND+24 |
| XWB2EMAP | D2~, D2+15*, XLATE+4 |
| XWB2FLD | D2~, D2+3*, RPCSEND+2 |
| XWB2HNDL | DIRECT~, CALL~, D2+1 |
| XWB2LIST | BLDDIST+1~, BLDDIST+2 |
| XWB2LIST( | BLDDIST+4 |
| XWB2LIST(0 | BLDDIST+3 |
| XWB2LPRM | D2~ |
| XWB2LSTI | D2~, RPCSEND+5* |
| XWB2MAP2 | D2~, D2+15*, XLATE+4 |
| XWB2MIEN | D2~, RPCSEND+24 |
| XWB2OVFL | D2~, D2+18, D2+20!, D2+26, D2+27! |
| XWB2OVFL( | D2+21, D2+23!, D2+28, D2+30! |
| XWB2OVFL(0 | D2+20, D2+27 |
| XWB2OVFL(1 | D2+22, D2+29 |
| XWB2PARM | D2~, D2+4* |
| XWB2PARY | DIRECT~, CALL~ |
| XWB2PRAM | DIRECT~, CALL~ |
| XWB2PRAM( | D2+16, D2+17, D2+18*, D2+22*, D2+24, D2+25, D2+26*, D2+29*, RPCSEND+5, RPCSEND+6 , RPCSEND+8, RPCSEND+9, RPCSEND+13, RPCSEND+14, RPCSEND+15, RPCSEND+17, RPCSEND+18 |
| XWB2PRAM(0 | RPCSEND+4 |
| XWB2QL | NXTNODE+1~, NXTNODE+2*, NXTNODE+3, NXTNODE+4 |
| XWB2QS | NXTNODE+1~, NXTNODE+5*, NXTNODE+6 |
| XWB2QTAG | D2~, D2+1*, RPCSEND+2 |
| XWB2RET | DIRECT~, CALL~, D2+4*, D2+6*, D2+8*, D2+10*, D2+16, D2+17*, D2+24, D2+25* , D2+31, D2+33* |
| XWB2RSLT | D2~, D2+33, RPCSEND+23, RPCSEND+24 |
| XWB2SPN | DIRECT~, CALL~, D2+2*, RPCSEND+2 |
| XWB2SPR | D2~, RPCSEND+3*, RPCSEND+7, RPCSEND+11, RPCSEND+16, RPCSEND+20, NXTNODE+2, NXTNODE+3*, NXTNODE+5, NXTNODE+6* |
| XWB2SPRL | D2~, RPCSEND+3*, RPCSEND+6, RPCSEND+7*, RPCSEND+11*, RPCSEND+15, RPCSEND+16*, RPCSEND+20* |
| XWB2X | D2~, RPCSEND+5*, RPCSEND+6, RPCSEND+7, RPCSEND+9*, RPCSEND+11, RPCSEND+14*, RPCSEND+15, RPCSEND+16, RPCSEND+18* , RPCSEND+20 |
| Y | D2~, D2+13*, D2+14*, D2+15, XLATE+2~, XLATE+5*, XLATE+10, XLATE+11*, XLATE+14, XLATE+15* , XLATE+18*, XLATE+19 |
| Y1 | XLATE+2~, XLATE+8*, XLATE+10, XLATE+11 |
