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 Total: 6

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

Caller Graph

Caller Graph Total: 43

Package	Total	Caller Graph
Health Level Seven	11	HLCS2 HLCSAC HLCSLNCH HLCSTCP HLCSTCP2 HLCSTCP3 HLMA HLMA3 HLOTCP HLOUSR1 HLZTCP
RPC Broker	9	XWBCAGNT XWBCSAV XWBP62 XWBRL XWBTCP XWBTCPC XWBTCPM XWBTCPM2 XWBTCPMT
Kernel	5	%ZISTCPS XLFNSLK XUINP337 XUSBSE2 XUSC1C
GUI Generic Tools	3	BGUPRE BGUTCP BGUTCPH
IHS Omnicell Pyxis Interface	3	BOPRNEW BOPT1 BOPTCP
VistALink	3	XOBVSKT XOBVTCPL XOBVTLS
M Transfer	2	BMXE01 BMXMON
MailMan	2	XMCDNT XMKPRD
Clinical Scheduling for Windows	1	BSDX23
IHS Changes To Lab	1	BLRRLMST
MSC RPC Broker	1	CIANBLIS
PCC New Encounter Form	1	VENPCCP
Toolkit	1	XTHC10

Entry Points

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

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	Timeout: 60 Variable: *NEWCHAR 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

Customize PDF page

Package: Kernel

Routine: %ZISTCP

Call Graph Total: 6

Caller Graph Total: 43