Routine: HLOSRVR

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

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)	;

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

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

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: