XWB2HL7 ;ISF/RWF - Remote RPC via HL7 ;08/24/09 14:32
Source file <XWB2HL7.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1(RET,LOC,RPC,RPCVER,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10) | ; Call a remote RPC
; with 1-10 parameters. ; (This reworked EN1 emtry point replaces the original EN1 entry point, ; which was renamed OLDEN1.) |
|
| DIRECT(RET,LOC,RPC,RPCVER,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10) |
|
|
| SETUP(XWBDIR) | ;Check/setup for HL7 call
|
|
| LD(%V) | ;Convert a var name into a transport string. Grabs from symbol table
|
|
| V2S(V) | ;Convert a value into L_value string
|
|
| S2V(S) | ;Convert a string L_value into a value
|
|
| UD(%1) | ;Unload strings into variables. Builds symbol table
|
|
| REMOTE(XWBY,XWBQT,XWBSPN,XWBPAR) | ;Entry point on Remote system
|
|
| REX | ;Exit from remote.
|
|
| CAPI(TAG,NAM,PAR) | ;make API call
|
|
| CAPIER | ;Handle a error in called RPC
|
|
| RETURN | ;This tag is called by HL7 when the data returns from the remote system
|
|
| REJECT | ;Handle some kind of reject on remote system
|
|
| PLACE(HL,DATA) | ;Called by HL7 to place each line of data.
|
|
| RPCGET(N,R) | ;Convert RPC name to IEN and parameters.
|
|
| PARAM() | ;Build remote parameter list
|
|
| RPCCHK(RET,HDL) | ;RPC call to check a handle status
|
|
| GETNODE(%1,%2) | ;Pass to XWBDRPC
|
|
| ETRAP | ;Handle errors in the RPC at the remote site.
|
| RPC Name | Call Tags |
|---|---|
| XWB REMOTE RPC | EN1 |
| XWB REMOTE STATUS CHECK | RPCCHK |
| XWB DIRECT RPC | DIRECT |
| HL7 Protocol Name | Call Tags |
|---|---|
| XWB RPC EVENT | RETURN |
