Routine: INHVTAPR

Information

INHVTAPR ; DGH, CHEM ; 07 Oct 1999 18:23 ; Generic receiver, enhanced functions

Source Information

Source file <INHVTAPR.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
IHS Generic Interface System	6	ENR^INHE $$IN^INHUSEN ($$RECEIVE,$$SEND)^INHUVUT $$INRHB^INHUVUT1 LOG^INHVCRA1 ($$INIT,$$OPEN,CKDISCNT,CLOSE,ERR,EXIT1,PARM)^INHVTAPU
Kernel	2	$$ETYPE^%ZTFE (ITIME,TTSTP,TTSTRT)^XUSAUD
Uncategorized	1	CLOSE^%INET

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Generic Interface System	1	INTSUT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Main starting point
RUN	;With port open, start receive/send. This is main loop of routine.
ERR	;Error module
XXXYYY	;;Name field in transaction type file
RECEIVE	;Receive incoming message. If none, hang and go back to run
XXX	;;Name field in transaction type file
SEND	;Send outgoing ack. Try only once, then listen for next message
DEST	;The following tags identify message destination.
EXIT	;Main exit module
EVAL	;Evaluate incoming message
TST	;;TEST CONTROL - VMS IN
OPEN	;Open the TCP/IP connection
ORUR01	;;HL AP LOGIN/RESULT - IN

External References

Name	Field # of Occurrence
CLOSE^%INET	ERR+3
$$ETYPE^%ZTFE	ERR+2
ENR^INHE	RECEIVE+8, EVAL+12
$$IN^INHUSEN	EVAL+6
$$RECEIVE^INHUVUT	RECEIVE+4
$$SEND^INHUVUT	SEND+6
$$INRHB^INHUVUT1	RUN+1, RECEIVE+3, RECEIVE+15, EVAL+5, SEND+4, SEND+11
LOG^INHVCRA1	EN+6, RECEIVE+8, RECEIVE+16, RECEIVE+19, EVAL+12, SEND+5, SEND+12, ERR+4, EXIT+1
$$INIT^INHVTAPU	OPEN+3
$$OPEN^INHVTAPU	OPEN+1
CKDISCNT^INHVTAPU	RECEIVE+19
CLOSE^INHVTAPU	OPEN+3, RECEIVE+19
ERR^INHVTAPU	ERR+6
EXIT1^INHVTAPU	EXIT+2
PARM^INHVTAPU	EN+3
ITIME^XUSAUD	RUN+3
TTSTP^XUSAUD	SEND+8
TTSTRT^XUSAUD	EVAL+4, SEND+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	EN+2, ERR+3
^INRHB("RUN"	RECEIVE+1
^INRHD - [#4005]	EN+10
^INTHPC - [#4004]	EN+10

Label References

Name	Line Occurrences
EN	ERR+2
EXIT	EN+4, OPEN+1, OPEN+3, RUN+1, RECEIVE+14, SEND+13
OPEN	OPEN+3, RECEIVE+14
RUN	RECEIVE+21, RECEIVE+22, RECEIVE+25, SEND+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACKUIF	EVAL+6, SEND+1, SEND+3, SEND+6
CLISRV	EN+1~, OPEN+1, OPEN+3, RECEIVE+17
ER	EN+1~, RECEIVE+4, RECEIVE+5, RECEIVE+8, RECEIVE+10, RECEIVE+14, RECEIVE+22, RECEIVE+25, EVAL+6, EVAL+14 , SEND+6*, SEND+8
I	EN+1~, EN+7*
INACKID	EVAL+1!
>> INBPN	EN+10, OPEN+1, RUN+1, RECEIVE+1, RECEIVE+3, RECEIVE+8, RECEIVE+15, EVAL+5, EVAL+12, SEND+4 , SEND+11
INBPNM	EN+1~, RUN+3, RECEIVE+8, RECEIVE+16, RECEIVE+19, EVAL+4, SEND+3, SEND+12, ERR+4
INCHNL	EN+1~, OPEN+1, RECEIVE+4, RECEIVE+19!, SEND+6, ERR+3
>> INDEBUG	EN+6, OPEN+1, RECEIVE+8, RECEIVE+16, RECEIVE+19, EVAL+12, SEND+5, SEND+12, ERR+4, EXIT+1
INDEST	EN+1~, EVAL+6
INDEST(	EN+7*
INDISCNT	EN+1~, EN+2, RECEIVE+19, EVAL+14
INDSTR	EN+1~, EN+10*, EVAL+6
INERR	EN+1~, RECEIVE+4, RECEIVE+8, RECEIVE+19!, EVAL+1!, EVAL+6, EVAL+12
ING	EN+1~, RECEIVE+2*, RECEIVE+4, RECEIVE+21, EVAL+6, EVAL+13
INIP	EN+1~, OPEN+1, RECEIVE+4, SEND+6
INIP("ACK"	OPEN+3
INIP("DHNG"	RECEIVE+19
INIP("INIT"	OPEN+3
INIP("RHNG"	RECEIVE+11, RECEIVE+21
INIP("RTRY"	RECEIVE+11
INLOOP	EN+1~
INMEM	EN+1~, OPEN+1, RECEIVE+4, RECEIVE+19!
INNORSP	EN+1~, RUN+5*
INQP	EN+1~
INQT	EN+1~
INSEND	EN+1~, RUN+5*, EVAL+1!
INSTOP	EN+1~, EN+2*, EN+4, RECEIVE+14, RECEIVE+19
INTRNSNT	EN+1~
INUIF	EN+1~
INUSEQ	EN+1~, EN+10*
INXDST	EN+1~, EVAL+6
OK	EN+1~, OPEN+1, OPEN+3
OUT	EN+1~, RECEIVE+1, RECEIVE+5, RECEIVE+10, RECEIVE+11
RC	EN+1~
RCVE	EN+1~, RECEIVE+1, RECEIVE+11
RUN	EN+1~, RUN+1, RECEIVE+3, RECEIVE+15, EVAL+5, SEND+4, SEND+11, SEND+13
SYSTEM	EN+1~
U	EN+10
UIF	EN+1~
X	EN+1~, EN+2, EN+7, ERR+3*
>> XUAUDIT	RUN+3, EVAL+4, SEND+3, SEND+8
Y	EN+1~, EN+7*

Marked Items

Name	Field # of Occurrence
$T(DEST+I	EN+7

Customize PDF page

Package: IHS Generic Interface System

Routine: INHVTAPR

Call Graph Total: 9

Caller Graph Total: 1