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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: %ZISTCP

Package: Kernel

Routine: %ZISTCP


Information

%ZISTCP ;ISC/RWF,ISD/HGW - DEVICE HANDLER TCP/IP CALLS ;07/11/14 11:37

Source Information

Source file <ZISTCP.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 6 HOME^%ZIS  ($$VERSION,GETENV)^%ZOSV  $$S^%ZTLOAD  $$DT^XLFDT  $$VALIDATE^XLFIPV  $$ADDRESS^XLFNSLK  

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: 29

Package Total Caller Graph
RPC Broker 8 XWBCAGNT  XWBP62  XWBRL  XWBTCP  XWBTCPC  XWBTCPM  XWBTCPM2  XWBTCPMT  
Kernel 6 %ZISTCPS  XLFNSLK  XUINP337  XULM  XUSBSE2  XUSC1C  
Integrated Billing 5 IB20P203  IBCIUT3  IBCIUT5  IBCIUT6  IBECUS1  
VistALink 3 XOBVSKT  XOBVTCPL  XOBVTLS  
MailMan 2 XMCDNT  XMKPRD  
Clinical Procedures 1 MDCPSIGN  
Oncology 1 ONCX10  
Scheduling 1 SDEC23  
Toolkit 1 XTHC10  
VBECS 1 VBECRL  

Entry Points

Name Comments DBIA/ICR reference
CALL(IP,SOCK,TO) ;Open a socket to the IP address <procedure>
  • ICR #2118
    • Status: Active
    • Usage: Supported
    CVXD ;Open VAX DSM Socket
    CMSM ;Open MSM Socket
    CONT ;Open OpenM socket
    CGTM ;Open GT.M Socket
    VAR(%IO) ;Setup IO variables
    NOOPN ;Didn't make the conection
    OPNERR ;
    UCXOPEN(NIO) ;This call only applies to SERVER jobs tied to UCX/VMS
    CLOSE ;Close and reset
  • ICR #2118
    • Status: Active
    • Usage: Supported
    CLOSEX
    ERRCLR ;
    FLUSHCHR() ;Return the value to write @ of to flush the TCP buffer
    LISTEN(SOCK,RTN,ZRULE) ;Listen on socket, run routine, single thread.
    LOOP
    LMSM ;MSM
    LONT ;Open port in Accept mode with standard terminators, standard buffers.
    LVXD ;Open port and listen
    LGTM ;GT.M single thread server
    GTMERR ;The use will set this as a place to go on a IO error
    EXIT() ;See if time to exit
    LAUNCH(IO,RTN) ;Run job for this connection.
    LOG(MSG) ;LOG STATUS

    External References

    Name Field # of Occurrence
    HOME^%ZIS CLOSEX
    $$VERSION^%ZOSV CONT+1, UCXOPEN+2
    GETENV^%ZOSV LISTEN+4
    $$S^%ZTLOAD EXIT+1
    $$DT^XLFDT LAUNCH+3
    $$VALIDATE^XLFIPV CALL+5, CALL+6
    $$ADDRESS^XLFNSLK CALL+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: /SOCKET(IP,SOCK)
    • Line Location: CMSM+2
    Function Call: WRITE
    • Prompt: 1/0
    • Line Location: CGTM+6
    Function Call: WRITE
    • Prompt: @IOF.
    • Line Location: VAR+3
    Function Call: WRITE
    • Prompt: /SOCKET("",SOCK)
    • Line Location: LMSM+4
    Function Call: READ
    • Variable: *NEWCHAR
    • Timeout: 60
    • Line Location: LONT+7
    Function Call: WRITE
    • Prompt: /LISTEN(1)
    • Line Location: LGTM+10
    Function Call: WRITE
    • Prompt: /WAIT(30)
    • Line Location: LGTM+13
    Routine Call
    • %ZIS
    • Line Location:
      • CLOSEX

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(14.5 - [#14.5] LISTEN+6, LOOP+3
    ^%ZOSF("OS" CALL+2, UCXOPEN+2, FLUSHCHR+1, LISTEN+3
    ^TMP("ZISTCP" LGTM+1!, LOG+2*
    ^XUTL("XQ" LAUNCH+3*

    Label References

    Name Line Occurrences
    $$EXIT LMSM+5, LONT+8, LGTM+15
    $$FLUSHCHR VAR+5
    $$LAUNCH LOOP+2
    @( LAUNCH+5
    CGTM CALL+8
    CMSM CALL+8
    CONT CALL+8
    CVXD CALL+8
    ERRCLR OPNERR+3, CLOSEX+1
    LGTM LOOP
    LMSM LOOP
    LOG CGTM+6, LGTM+4, LGTM+7, LGTM+8, LGTM+10, LGTM+20, LAUNCH+4, LAUNCH+6
    LONT LOOP
    LOOP LOOP+7
    LVXD LOOP
    NOOPN CVXD+2, CMSM+1, CMSM+2, CONT+6, CONT+8
    VAR CVXD+3, CMSM+3, CONT+9, CGTM+9, UCXOPEN+3, UCXOPEN+4, LAUNCH+2

    Naked Globals

    Name Field # of Occurrence
    ^($J LOG+2*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %A CALL+1~, CONT+1*, LISTEN+1~, LONT+2*, LONT+6, LONT+7*, LGTM+1~, LGTM+12*, LGTM+14*
    %IO VAR~, VAR+2
    %ZA LONT+1~, LONT+7*
    %ZB LONT+1~, LONT+7*
    %ZISOS UCXOPEN+1~, UCXOPEN+2*, UCXOPEN+3, UCXOPEN+4
    %ZISV UCXOPEN+1~, UCXOPEN+2*, UCXOPEN+3, UCXOPEN+4
    CNT LOG+1~, LOG+2*
    EXIT LISTEN+1~, LOOP+2*, LOOP+3*, LOOP+6, LAUNCH+1~
    IO VAR+2*, CLOSE+2*, LAUNCH~, LAUNCH+2
    IO("C" LAUNCH+6, LAUNCH+7
    IO("CLOSE" CLOSE+3*
    IO("ERROR" ERRCLR+1*
    IO("LASTERR" ERRCLR+1*
    IO(0 VAR+1*, CLOSE+2
    IO(1 VAR+2*, CLOSE+3!
    IOF CGTM+9*, VAR+5*, LISTEN+1~
    IOST VAR+4*
    IOST(0 VAR+4*
    >> IOT VAR+4*
    IP CALL~, CALL+5*, CALL+6, CMSM+2, CONT+5, VAR+2, LISTEN+1~
    >> LISTEN(1 LGTM+10
    MSG LOG~, LOG+2
    >> NEWCHAR LONT+7*
    NIO CALL+1~, CVXD+1*, CVXD+2, CVXD+3, CMSM+1*, CMSM+2, CMSM+3, CONT+2*, CONT+6, CONT+8
    , CONT+9, CGTM+1*, CGTM+2, CGTM+4, CGTM+8, CGTM+9, UCXOPEN~, UCXOPEN+3, UCXOPEN+4*, CLOSE+1~
    , CLOSE+2*, CLOSE+3, LISTEN+1~, LOOP+2, LOOP+5, LMSM+3*, LMSM+4, LONT+2*, LONT+4, LONT+6
    , LONT+9, LONT+10, LVXD+2*, LVXD+3, LGTM+3*, LGTM+4, LGTM+6, LGTM+8, LGTM+17, LGTM+22
    , LGTM+25, LAUNCH+1~
    NIO("KEY" CGTM+4*, CGTM+5, CGTM+6
    NIO("SOCK" LGTM+19*, LGTM+20
    NIO("SOCKET" CGTM+5*
    NIO("ZISTCP" LGTM+8*, LGTM+10*, LGTM+14*, LGTM+19
    OS FLUSHCHR+1~*, FLUSHCHR+2
    >> POP CALL+4*, CALL+9*, CGTM+3*, VAR+2*, NOOPN+1*, OPNERR+2*, UCXOPEN+2*, LISTEN+5*, LOOP*, LOOP+1
    , LMSM+3*, LMSM+5*, LONT+4*, LONT+6, LONT+8*, LONT+9, LVXD+2*, LGTM+12*, LGTM+15*, LGTM+17
    , LGTM+26*
    RTN LISTEN~, LOOP+2, LAUNCH~, LAUNCH+4, LAUNCH+5
    SOCK CALL~, CALL+7, CVXD+1, CMSM+2, CONT+2, LISTEN~, LMSM+4, LONT+2, LVXD+2, LGTM+7
    , LAUNCH+1~
    >> SOCKET LGTM+22
    >> SOCKET( CMSM+2
    >> SOCKET("" LMSM+4
    TO CALL~, CALL+2*
    U LISTEN+4*
    >> WAIT(30 LGTM+13
    X CALL+1~, LISTEN+1~
    XQVOL LISTEN+4*, LISTEN+6, LOOP+3, LAUNCH+1~
    >> XUENV LISTEN+4*
    >> Y LISTEN+4
    ZISOS CALL+1~, CALL+2*, CALL+8, LISTEN+1~, LISTEN+3*, LOOP, LOOP+4
    ZISQUIT EXIT+2~*, EXIT+3
    ZRULE LISTEN~, LISTEN+3*, EXIT+3
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All