Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Used in HL7 Interface |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: XWB2HL7

Package: RPC Broker

Routine: XWB2HL7


Information

XWB2HL7 ;ISF/RWF - Remote RPC via HL7 ;08/24/09 14:32

Source Information

Source file <XWB2HL7.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 9 ^%ZIS  ^%ZISC  (RMDEV,SAVDEV,USE)^%ZISUTL  ($$EC,GETENV)^%ZOSV  (,UNWIND)^%ZTER  ^%ZTLOAD  ($$GET,$$PUT)^XUESSO1  $$SLOG^XUS1  
LOUT^XUSCLEAN  
RPC Broker 3 DIRECT^XWB2HL7A  ($$CHKHDL,$$GETNODE,$$HANDLE,$$HDLSTA,ADDHDL,RTNDATA,SETNODE)^XWBDRPC  ($$RPCAVAIL,$$RPCIEN)^XWBLIB  
Health Level Seven 2 $$STAT^HLCSLM  ($$CHKLL,$$MSGSTAT)^HLUTIL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 30

Package Total Caller Graph
Clinical Information Resource Network 7 RGEX05  RGEX06  RGEX07  RGPVMPI  RGPVREJ  RGRPDAT  RGTKPOC  
Integrated Billing 6 IBARXMB  IBARXMU  IBCNRDV  IBECEA37  IBECEA39  IBOMTLTC  
RPC Broker 6 XWB DIRECT RPC  XWB REMOTE RPC  XWB REMOTE STATUS CHECK  XWB RPC EVENT  XWB2HL7B  XWB2HL7C  
Master Patient Index VistA 5 MPIFD1  MPIFDNL  MPIFEXT  MPIFQ1  MPIFSA2  
Registration 3 DGRPCM  VAFCRAU  VAFCRAUD  
Automated Medical Information Exchange 1 DVBAMVI2  
Beneficiary Travel 1 DGBTRDV  
Consult Request Tracking 1 GMRCART  

Entry Points

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.)
  • ICR #3144
    • Status: Active
    • Usage: Controlled Subscription
    DIRECT(RET,LOC,RPC,RPCVER,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10)
  • ICR #3144
    • Status: Active
    • Usage: Controlled Subscription
    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
  • ICR #3144
    • Status: Active
    • Usage: Controlled Subscription
    GETNODE(%1,%2) ;Pass to XWBDRPC
    ETRAP ;Handle errors in the RPC at the remote site.

    External References

    Name Field # of Occurrence
    ^%ZIS CAPI+6
    ^%ZISC CAPI+9, CAPIER+3
    RMDEV^%ZISUTL REMOTE+31
    SAVDEV^%ZISUTL REMOTE+27
    USE^%ZISUTL REMOTE+31
    $$EC^%ZOSV CAPIER+1, ETRAP+2
    GETENV^%ZOSV REMOTE+22
    ^%ZTER CAPIER+2, ETRAP+5
    UNWIND^%ZTER CAPIER+4, ETRAP+5
    ^%ZTLOAD EN1+13
    $$STAT^HLCSLM SETUP+5
    $$CHKLL^HLUTIL SETUP+6
    $$MSGSTAT^HLUTIL RPCCHK+5
    $$GET^XUESSO1 SETUP+3
    $$PUT^XUESSO1 REMOTE+20
    $$SLOG^XUS1 REMOTE+22
    LOUT^XUSCLEAN REX+9
    DIRECT^XWB2HL7A DIRECT+7
    $$CHKHDL^XWBDRPC RETURN+15, RPCCHK+3
    $$GETNODE^XWBDRPC REJECT+3, GETNODE+1
    $$HANDLE^XWBDRPC SETUP+21
    $$HDLSTA^XWBDRPC RETURN+22, REJECT+5
    ADDHDL^XWBDRPC SETUP+21
    RTNDATA^XWBDRPC DIRECT+10
    SETNODE^XWBDRPC EN1+18
    $$RPCAVAIL^XWBLIB REMOTE+14
    $$RPCIEN^XWBLIB SETUP+8, RPCGET+3

    Used in RPC

    RPC Name Call Tags
    XWB REMOTE RPC EN1
    XWB REMOTE STATUS CHECK RPCCHK
    XWB DIRECT RPC DIRECT

    Used in HL7 Interface

    HL7 Protocol Name Call Tags
    XWB RPC EVENT RETURN

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^TMP("XWBR" REX+2!, REX+5*, REX+7*, ETRAP+1!, ETRAP+2*, ETRAP+3
    ^XTMP( REJECT+3, PLACE+2*
    ^XUTL("XQ" REMOTE+9!
    ^XWB(8994 - [#8994] RPCGET+5

    Label References

    Name Line Occurrences
    $$GETNODE RPCCHK+3
    $$LD SETUP+19
    $$PARAM REMOTE+25
    $$RPCGET REMOTE+13
    $$S2V UD+2
    $$V2S SETUP+17, LD+2, LD+3, LD+4
    @( CAPI+7
    CAPI REMOTE+29
    PLACE RETURN+19
    REJECT RETURN+9
    RETURN DIRECT+10
    REX REMOTE+12, REMOTE+13, REMOTE+14, REMOTE+18
    SETUP EN1+8, DIRECT+5
    UD REMOTE+11

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % UD+1~, UD+2*, REMOTE+3~, PARAM+1~, PARAM+2*, PARAM+3, PARAM+4
    %1 LD+1~, LD+3*, LD+4*, LD+5, UD~, UD+2, GETNODE~, GETNODE+1
    %2 LD+1~, GETNODE~, GETNODE+1
    %3 LD+1~, LD+4*
    %4 LD+1~, LD+4*
    %V LD~, LD+2, LD+3, LD+4*
    >> %ZIS CAPI+6*
    A PARAM+1~, PARAM+2*, PARAM+4
    D S2V+1~*, S2V+2*, S2V+3
    DATA PLACE~, PLACE+2
    DUZ REMOTE+4~, REMOTE+19*
    DUZ(0 REMOTE+19*
    ERR REMOTE+3~
    HDL REJECT+1~, REJECT+2*, REJECT+3*, REJECT+5, RPCCHK~, RPCCHK+2, RPCCHK+3
    HL CAPI+2~, PLACE~, PLACE+2
    HLA CAPI+2~
    HLDOM DIRECT+4~
    HLECH DIRECT+4~
    HLERR CAPI+2~
    HLFS DIRECT+4~
    HLINSTN DIRECT+4~
    HLL CAPI+2~
    HLMTIEN DIRECT+4~, DIRECT+9
    HLMTIENS CAPI+2~
    HLNEXT DIRECT+4~, RETURN+5, RETURN+7, RETURN+11, RETURN+17
    HLNODE DIRECT+4~, RETURN+7, RETURN+8, RETURN+9, RETURN+11, RETURN+12, RETURN+14, RETURN+17, RETURN+18, REJECT+2
    HLNODE( RETURN+18
    HLPARAM DIRECT+4~
    HLQ DIRECT+4~
    HLQUIT DIRECT+4~, RETURN+7, RETURN+11, RETURN+17
    I EN1+5~, DIRECT+1~, SETUP+9*, SETUP+19*, REMOTE+3~, REMOTE+11*, RETURN+4~, RETURN+7*, RETURN+11*, RETURN+17*
    , PARAM+1~, PARAM+2*
    INX EN1+5~, DIRECT+1~, SETUP+15*, SETUP+17*, SETUP+19*, LD+4*
    IO REMOTE+27, CAPI+2~
    IO("C" CAPI+9*, CAPIER+3*
    IO(0 REMOTE+27*
    IO(1 REMOTE+27*
    >> IOP CAPI+6*
    IX PLACE+1~, PLACE+2*
    J RETURN+4~, RETURN+18*
    L S2V+1~*, S2V+2
    LOC EN1~, DIRECT~, DIRECT+7, SETUP+6
    M RPCCHK+1~, RPCCHK+5*, RPCCHK+6, RPCCHK+7, RPCCHK+8, RPCCHK+9
    MID REJECT+1~, REJECT+2*, REJECT+3
    MSG REJECT+1~, REJECT+2*, REJECT+5
    N EN1+5~, DIRECT+1~, SETUP+16*, SETUP+17, SETUP+19*, LD+3, RPCGET~, RPCGET+2
    NAM CAPI~, CAPI+4
    P1 EN1~, DIRECT~, REMOTE+3~
    P10 EN1~, DIRECT~, REMOTE+3~
    P2 EN1~, DIRECT~, REMOTE+3~
    P3 EN1~, DIRECT~, REMOTE+3~
    P4 EN1~, DIRECT~, REMOTE+3~
    P5 EN1~, DIRECT~, REMOTE+3~
    P6 EN1~, DIRECT~, REMOTE+3~
    P7 EN1~, DIRECT~, REMOTE+3~
    P8 EN1~, DIRECT~, REMOTE+3~
    P9 EN1~, DIRECT~, REMOTE+3~
    PAR REMOTE+25*, REMOTE+29, CAPI~, CAPI+4
    PMAX EN1+5~, DIRECT+1~, SETUP+1*, SETUP+9, SETUP+19
    R CAPI+2~, CAPI+4*, CAPI+7, RPCGET~, RPCGET+4
    R("IEN" RPCGET+5*
    R("NAME" RPCGET+5*
    R("RNAM" RPCGET+6*
    R("RTAG" RPCGET+6*
    R("USER" RPCGET+7*
    R("XWBPTYPE" RPCGET+7*
    R("XWBWRAP" RPCGET+7*
    RET EN1~, DIRECT~, DIRECT+10, SETUP+1*, RPCCHK~
    RET(0 EN1+16*, EN1+17*, DIRECT+8*, DIRECT+9*, SETUP+3*, SETUP+5*, SETUP+6*, SETUP+8*, RPCCHK+2*, RPCCHK+3*
    , RPCCHK+4
    RET(1 EN1+8, DIRECT+5, SETUP+3*, SETUP+5*, SETUP+6*, SETUP+8*, RPCCHK+4*, RPCCHK+5*, RPCCHK+6, RPCCHK+7
    RPC EN1~, DIRECT~, SETUP+8, REMOTE+3~, REMOTE+4~, REMOTE+12, REMOTE+13
    RPCIEN EN1+5~, DIRECT+2~, SETUP+1*, SETUP+8*
    RPCVER EN1~, DIRECT~, SETUP+1*, REMOTE+4~, REMOTE+14
    S S2V~, S2V+1, S2V+2*, RPCCHK+1~, RPCCHK+3*, RPCCHK+4, RPCCHK+5
    T RPCGET+1~, RPCGET+2*, RPCGET+3*, RPCGET+4, RPCGET+5, RPCGET+9
    T0 RPCGET+1~, RPCGET+5*, RPCGET+6, RPCGET+7
    TAG CAPI~, CAPI+4
    U DIRECT+8, REMOTE+22, RETURN+9, REJECT+2
    V V2S~, V2S+1
    X EN1+5~, DIRECT+1~, SETUP+19*, REMOTE+3~, RETURN+4~, RETURN+18*, RETURN+19, RETURN+22*, REJECT+1~, REJECT+3*
    REJECT+4, REJECT+5*, PARAM+1~*, PARAM+3*, PARAM+4*, PARAM+5
    X( RETURN+7*, RETURN+11*
    XWB1 RETURN+4~
    XWB2 RETURN+4~
    XWBA1 REMOTE+5~
    XWBA10 REMOTE+5~
    XWBA2 REMOTE+5~
    XWBA3 REMOTE+5~
    XWBA4 REMOTE+5~
    XWBA5 REMOTE+5~
    XWBA6 REMOTE+5~
    XWBA7 REMOTE+5~
    XWBA8 REMOTE+5~
    XWBA9 REMOTE+5~
    XWBDIR SETUP~, SETUP+5
    XWBDVER EN1+5~, DIRECT+1~, SETUP+1*, REMOTE+3~
    XWBESSO EN1+5~, DIRECT+1~, SETUP+3*, REMOTE+4~, REMOTE+20, REMOTE+22
    XWBHDL EN1+5~, EN1+17, EN1+18, DIRECT+1~, DIRECT+7, DIRECT+10, SETUP+21*, RETURN+4~, RETURN+14*, RETURN+15
    RETURN+19, RETURN+22
    XWBHL7 EN1+5~, DIRECT+1~
    XWBMSG EN1+5~, DIRECT+2~, DIRECT+7, DIRECT+8, SETUP+21*
    XWBPAR EN1+6~, DIRECT+1~, DIRECT+7, SETUP+1*, SETUP+15!, REMOTE~
    XWBPAR( SETUP+17*, SETUP+19*, LD+4*, REMOTE+11
    XWBPCNT EN1+6~, DIRECT+1~, SETUP+1*, SETUP+9*, REMOTE+3~, PARAM+2
    XWBQT REMOTE~
    XWBRPC REMOTE+3~, REMOTE+13*, REMOTE+14
    XWBRPC("RNAM" REMOTE+29
    XWBRPC("RTAG" REMOTE+29
    XWBRPC("USER" REMOTE+19
    XWBSEC EN1+6~, DIRECT+2~, SETUP+11*
    XWBSPN REMOTE~
    >> XWBSTATE("SLOG" REMOTE+22*, REX+9
    XWBY REMOTE~, REX+3, REX+4, REX+5!*, REX+6, REX+7!*, ETRAP+1!, ETRAP+2*, ETRAP+3*
    XWBY(0 REMOTE+12*, REMOTE+13*, REMOTE+14*, REMOTE+18, REMOTE+20*, REX+3*, CAPIER+1*
    Y REMOTE+3~, REMOTE+22
    Z RPCCHK+1~, RPCCHK+4, RPCCHK+5*, RPCCHK+6*, RPCCHK+7*, RPCCHK+8*, RPCCHK+9*
    ZTDESC EN1+6~, EN1+12*
    ZTDTH EN1+6~, EN1+11*
    ZTIO EN1+6~, EN1+11*
    ZTRTN EN1+6~, EN1+11*
    ZTSAVE EN1+6~
    ZTSAVE("*" EN1+11*
    ZTSK EN1+6~, EN1+16, EN1+18
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Used in HL7 Interface |  Global Variables Directly Accessed |  Label References |  Local Variables  | All