Routine: HLOSRVR

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

HLOSRVR ;ALB/CJM- Server for receiving messages - 10/4/94 1pm

Source Information

Source file <HLOSRVR.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Health Level Seven	10	$$HLDATE^HLFNC $$NEWIEN^HLOF778A $$CHKSTOP^HLOPROC INQUE^HLOQUE SYSPARMS^HLOSITE $$READMSG^HLOSRVR1 SAVECNTS^HLOSTAT ($$ENDMSG,$$WRITEHDR,$$WRITESEG,CLOSE)^HLOT OPEN^HLOTCP $$GETLINK^HLOTLNK
Kernel	2	LISTEN^%ZISTCPS ($$FMADD,$$NOW)^XLFDT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Health Level Seven	1	HLOSRVR1

Entry Points

Name	Comments	DBIA/ICR reference
VMS2(LINKNAME)	;called from a VMS TCP Service once a connection request has been received. This entry point should be used only if an additional VMS TCPIP Services are being created for HLO.
SERVER(LINKNAME,LOGICAL)	; LINKNAME identifies the logical link, which describes the communication channel to be used
SAVEACK(HLMSTATE,SENT)	;
GETWORK(WORK)	;
WRITEACK(HLCSTATE,HLMSTATE)	;
DOWORKM(WORK)	;
CONNECT(HLCSTATE,LINKNAME,LOGICAL)	;
DOWORKS(WORK)	;
END
UPDATE(HLMSTATE,HLCSTATE)	;
VMS	;Called from VMS TCP Service once a connection request has been received. This entry point should be used only by the standard HLO service that runs on the standard HLO port.
INQUE(MSGIEN,PARMS)	;

External References

Name	Field # of Occurrence
LISTEN^%ZISTCPS	DOWORKM+2
$$HLDATE^HLFNC	WRITEACK+27
$$NEWIEN^HLOF778A	WRITEACK+21
$$CHKSTOP^HLOPROC	GETWORK+3, VMS+1, SERVER+6
INQUE^HLOQUE	INQUE+11
SYSPARMS^HLOSITE	CONNECT+24
$$READMSG^HLOSRVR1	SERVER+11
SAVECNTS^HLOSTAT	SERVER+16, END+2
$$ENDMSG^HLOT	WRITEACK+31
$$WRITEHDR^HLOT	WRITEACK+31
$$WRITESEG^HLOT	WRITEACK+31
CLOSE^HLOT	END
OPEN^HLOTCP	CONNECT+28
$$GETLINK^HLOTLNK	GETWORK+3, CONNECT+5
$$FMADD^XLFDT	UPDATE+11
$$NOW^XLFDT	UPDATE+11, WRITEACK+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	CONNECT+19
^HLA("B"	INQUE+6*
^HLB - [#778]	SAVEACK+9, SAVEACK+10, UPDATE+6, UPDATE+12, UPDATE+16, UPDATE+21
^HLB("AD"	UPDATE+13, UPDATE+17
^HLB("B"	INQUE+5*
^HLB("ERRORS"	UPDATE+23*
^HLCS(870 - [#870]	VMS+8
^HLD(779.1 - [#779.1]	VMS+8
^HLD(779.3 - [#779.3]	VMS+6, VMS+7

Name	Line Occurrences
$$CONNECT	SERVER+4
$$WRITEACK	SERVER+14
INQUE	SERVER+17, END+1, UPDATE+38
SAVEACK	SERVER+14
SERVER	DOWORKS+2, VMS+11
UPDATE	SERVER+15
VMS	VMS2+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACKID	WRITEACK+15~, WRITEACK+21*, WRITEACK+22, WRITEACK+27
APP	UPDATE+22~, UPDATE+23*
CS	WRITEACK+15~, WRITEACK+18*, WRITEACK+24, WRITEACK+25
FROM	UPDATE+27~, UPDATE+28, UPDATE+29, UPDATE+30*, UPDATE+31
FS	WRITEACK+15~, WRITEACK+17*, WRITEACK+24, WRITEACK+25, WRITEACK+27, WRITEACK+29, WRITEACK+30
HDR	WRITEACK+15~, WRITEACK+31
HDR(1	WRITEACK+24, WRITEACK+25
HDR(2	WRITEACK+27*
HLCSTATE	SERVER+2~, SERVER+4, SERVER+11, SERVER+14, SERVER+15, SERVER+16, END, END+2, CONNECT~, CONNECT+28 , UPDATE~, WRITEACK~, WRITEACK+31
HLCSTATE("BUFFER"	CONNECT+14, CONNECT+15
HLCSTATE("CONNECTED"	SERVER+6, SERVER+17, CONNECT+4*, CONNECT+31
HLCSTATE("COUNTS"	SERVER+16, CONNECT+17, WRITEACK+31
HLCSTATE("LINK"	CONNECT+8*, CONNECT+27
HLCSTATE("MES	SAGE ENDED" , CONNECT+18*
HLCSTATE("OPE	N TIMEOUT" , CONNECT+10*
HLCSTATE("REA	D TIMEOUT" , CONNECT+9*
HLCSTATE("READ"	CONNECT+11*
HLCSTATE("SERVER"	CONNECT+7*
HLCSTATE("SYSTEM"	CONNECT+20, CONNECT+21, CONNECT+25, CONNECT+26*, UPDATE+9, UPDATE+10, WRITEACK+21, WRITEACK+24
HLMSTATE	SERVER+7~, SERVER+11, SERVER+14, SERVER+15, SAVEACK~, UPDATE~, WRITEACK~
HLMSTATE("ACK	TO" , UPDATE+15, UPDATE+16, UPDATE+17, UPDATE+33
HLMSTATE("BATCH"	UPDATE+9, UPDATE+10, UPDATE+15
HLMSTATE("BODY"	UPDATE+35
HLMSTATE("DT/TM"	UPDATE+23, UPDATE+36
HLMSTATE("HDR"	UPDATE+20, UPDATE+23, UPDATE+28, UPDATE+29, WRITEACK+24, WRITEACK+25, WRITEACK+27
HLMSTATE("ID"	UPDATE+37
HLMSTATE("IEN"	SERVER+14, SERVER+15, SAVEACK+9, SAVEACK+10, UPDATE+6, UPDATE+12, UPDATE+13, UPDATE+21, UPDATE+23, UPDATE+38
HLMSTATE("MSA"	SERVER+14, SAVEACK+5, SAVEACK+6, SAVEACK+8, SAVEACK+10, UPDATE+21, WRITEACK+20, WRITEACK+22, WRITEACK+30, WRITEACK+32*
HLMSTATE("STATUS"	UPDATE+6, UPDATE+8, UPDATE+10, UPDATE+20, UPDATE+21, UPDATE+31, UPDATE+32
I	SAVEACK+4~, SAVEACK+8*, UPDATE+27~
INQUE	SERVER+2~, SERVER+3, INQUE+2, INQUE+3, INQUE+12!*
INQUE(	INQUE+2*, INQUE+4, INQUE+5, INQUE+6, INQUE+7, INQUE+9, INQUE+10, INQUE+11
LINK	GETWORK+2~, GETWORK+3, CONNECT+3~, CONNECT+5, CONNECT+8
LINK("PORT"	GETWORK+3
LINK("SERVER"	GETWORK+3, CONNECT+6, CONNECT+7
LINKNAME	VMS2~, VMS2+3, VMS+3, VMS+7, VMS+8, VMS+9*, VMS+11, SERVER~, SERVER+4, SERVER+5! , CONNECT~, CONNECT+5
LOGICAL	SERVER~, SERVER+4, CONNECT~, CONNECT+28
MSA	WRITEACK+15~, WRITEACK+31
MSA(1	WRITEACK+29, WRITEACK+30
MSGIEN	INQUE~, INQUE+2, INQUE+3, INQUE+4, INQUE+5, INQUE+6, INQUE+7, INQUE+9, INQUE+10, INQUE+11
NODE	VMS+5~, VMS+8, CONNECT+3~, CONNECT+19, CONNECT+20, SAVEACK+4~, SAVEACK+5, SAVEACK+6, SAVEACK+7, SAVEACK+8 , SAVEACK+9
PARMS	INQUE~, INQUE+2, UPDATE+4~, UPDATE+38
PARMS("ACKTOIEN"	UPDATE+33*
PARMS("ACTION"	UPDATE+31*
PARMS("BODY"	UPDATE+35*
PARMS("DT/TM"	UPDATE+36*
PARMS("FROM"	UPDATE+31*
PARMS("MSGID"	UPDATE+37*
PARMS("PASS"	UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+26
PARMS("PURGE"	UPDATE+32*
PARMS("QUEUE"	UPDATE+31*
PROC	VMS+5~, VMS+6*, VMS+7
PURGE	INQUE+8~, INQUE+9, INQUE+11, UPDATE+4~, UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+16, UPDATE+17
PURGE("ACKTOIEN"	INQUE+10*
SENT	SERVER+7~, SERVER+14*, SAVEACK~, SAVEACK+10
SUB	CONNECT+23~, CONNECT+25, WRITEACK+15~, WRITEACK+30
SYS	CONNECT+23~, CONNECT+24
SYS(	CONNECT+25
SYS("HL7 BUFF	ER" , CONNECT+26
TIME	WRITEACK+15~, WRITEACK+19*, WRITEACK+20, WRITEACK+27
WAIT	UPDATE+4~, UPDATE+9, UPDATE+10, UPDATE+11
WORK	GETWORK~, DOWORKS~, DOWORKM~
WORK("LINK"	GETWORK+3, DOWORKS+2, DOWORKM+2
WORK("PORT"	GETWORK+3*, DOWORKM+2

Customize PDF page

Package: Health Level Seven

Routine: HLOSRVR

Call Graph Total: 12

Caller Graph Total: 1