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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: HLOSRVR

Package: Health Level Seven

Routine: HLOSRVR


Information

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

Source Information

Source file <HLOSRVR.m>

Call Graph

Call Graph

Call Graph Total: 13

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Health Level Seven 3 HLOSTRAC  ^HLD(779.3  HLOSRVR3  

Entry Points

Name Comments DBIA/ICR reference
LINUX1 ;The listener entry point on Linux systems. The HL LOGICAL LINK should
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.
ZB1 ;
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) ;
INQUE(MSGIEN,PARMS) ;
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.
ZB999 ;
LINUX(LINKNAME) ;Listener for Linux systems running under Xinetd.

External References

Name Field # of Occurrence
LISTEN^%ZISTCPS DOWORKM+2
$$HLDATE^HLFNC WRITEACK+27
COUNT^HLOESTAT UPDATE+19
$$NEWIEN^HLOF778A WRITEACK+21
SETPURGE^HLOF778A UPDATE+12
$$CHKSTOP^HLOPROC GETWORK+3, VMS+1, LINUX+5, ZB1+5
ADVANCE^HLOQUE ZB1+17
INQUE^HLOQUE INQUE+16
SYSPARMS^HLOSITE ZB999+20
$$READMSG^HLOSRVR1 ZB1+10
SAVECNTS^HLOSTAT ZB1+16, END+2
$$ENDMSG^HLOT WRITEACK+31
$$WRITEHDR^HLOT WRITEACK+31
$$WRITESEG^HLOT WRITEACK+31
CLOSE^HLOT END
OPEN^HLOTCP ZB999+24
$$GETLINK^HLOTLNK GETWORK+3, CONNECT+5
$$NOW^XLFDT WRITEACK+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("OS" ZB999+15
^HLA("B" INQUE+10*
^HLB - [#778] SAVEACK+9*, SAVEACK+10*, UPDATE+9*, UPDATE+16*
^HLB("B" INQUE+9*
^HLB("ERRORS" UPDATE+18*
^HLCS(870 - [#870] VMS+8, LINUX1+6
^HLD(779.1 - [#779.1] VMS+8, LINUX1+6
^HLD(779.3 - [#779.3] VMS+6, VMS+7

Label References

Name Line Occurrences
$$CONNECT ZB1+2
$$WRITEACK ZB1+11
$ZU LINUX+7
INQUE ZB1+20, END+1, UPDATE+36
LINUX LINUX1+8
SAVEACK ZB1+11
SERVER DOWORKS+4, VMS+11, LINUX+8
UPDATE ZB1+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+17~, UPDATE+18*
CS WRITEACK+15~, WRITEACK+18*, WRITEACK+24, WRITEACK+25
FROM UPDATE+23~, UPDATE+24*, UPDATE+25*, UPDATE+26*, UPDATE+27
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~, ZB1+2, ZB1+10, ZB1+11, ZB1+15, ZB1+16, END, END+2, CONNECT~, ZB999+24
, UPDATE~, WRITEACK~, WRITEACK+31
HLCSTATE("BUFFER" ZB999+9*, ZB999+10*
HLCSTATE("CONNECTED" ZB1+5, ZB1+20, CONNECT+4*, ZB999+27
HLCSTATE("COUNTS" ZB1+16, ZB999+12*, WRITEACK+31*
HLCSTATE("LINK" ZB999+3*, ZB999+23
HLCSTATE("MES SAGE ENDED" , ZB999+14*, SAGE STARTED" , ZB999+13*
HLCSTATE("OPE N TIMEOUT" , ZB999+5*
HLCSTATE("REA D TIMEOUT" , ZB999+4*
HLCSTATE("READ" ZB999+6*
HLCSTATE("SERVER" ZB999+2*
HLCSTATE("SYSTEM" ZB999+16*, ZB999+17, ZB999+21*, ZB999+22*, WRITEACK+21, WRITEACK+24
HLMSTATE ZB1+6~, ZB1+10, ZB1+11, ZB1+15, SAVEACK~, UPDATE~, WRITEACK~
HLMSTATE("ACK TO IEN" , ZB1+17, UPDATE+12, UPDATE+15, UPDATE+30,  TO" , ZB1+17, UPDATE+12, UPDATE+30
HLMSTATE("BATCH" UPDATE+19
HLMSTATE("BODY" UPDATE+32
HLMSTATE("DT/TM" UPDATE+18, UPDATE+33
HLMSTATE("HDR" UPDATE+15, UPDATE+18, UPDATE+19, UPDATE+24, UPDATE+25, WRITEACK+24, WRITEACK+25, WRITEACK+27
HLMSTATE("ID" ZB1+13, ZB1+19, UPDATE+34
HLMSTATE("IEN" ZB1+11, ZB1+15, SAVEACK+9, SAVEACK+10, UPDATE+8, UPDATE+12, UPDATE+16, UPDATE+18, UPDATE+36
HLMSTATE("MSA" ZB1+11, SAVEACK+5, SAVEACK+6, SAVEACK+8, SAVEACK+10, UPDATE+16, WRITEACK+20*, WRITEACK+22*, WRITEACK+30, WRITEACK+32*
HLMSTATE("STATUS" UPDATE+6, UPDATE+9, UPDATE+11*, UPDATE+12, UPDATE+15*, UPDATE+16, UPDATE+27, UPDATE+28
>> HLO("MSGID" ZB1+13, ZB1+19
I SAVEACK+4~, SAVEACK+8*, UPDATE+23~
IEN UPDATE+7~, UPDATE+8*, UPDATE+9
INQUE SERVER+2~, SERVER+3*, INQUE+4*, INQUE+7, INQUE+17!*
INQUE( INQUE+4*, INQUE+8, INQUE+9, INQUE+10, INQUE+11, INQUE+13, INQUE+14, INQUE+15, INQUE+16
LINK GETWORK+2~, GETWORK+3, CONNECT+3~, CONNECT+5, ZB999+3
LINK("PORT" GETWORK+3
LINK("SERVER" GETWORK+3, ZB999+1, ZB999+2
LINKNAME VMS2~, VMS2+3, VMS+3, VMS+7*, VMS+8*, VMS+9*, VMS+11, LINUX1+4~, LINUX1+5*, LINUX1+6*
, LINUX1+7*, LINUX1+8, LINUX~, LINUX+4, LINUX+8, SERVER~, ZB1+2, ZB1+4!, CONNECT~, CONNECT+5
LOGICAL SERVER~, ZB1+2, CONNECT~, ZB999+24
MSA WRITEACK+15~, WRITEACK+31
MSA(1 WRITEACK+29*, WRITEACK+30*
MSGIEN INQUE~, INQUE+4, INQUE+7*, INQUE+8*, INQUE+9, INQUE+10, INQUE+11, INQUE+13, INQUE+14, INQUE+15
, INQUE+16
NODE VMS+5~, VMS+8*, LINUX1+4~, LINUX1+6*, CONNECT+3~, ZB999+15*, ZB999+16, SAVEACK+4~, SAVEACK+5*, SAVEACK+6*
, SAVEACK+7*, SAVEACK+8*, SAVEACK+9
ORIG INQUE+12~, INQUE+16
ORIG("ACK BY" , INQUE+15*
ORIG("IEN" INQUE+14*, INQUE+15
ORIG("STATUS" INQUE+15*
PARMS INQUE~, INQUE+4, UPDATE+4~, UPDATE+36
PARMS("ACTION" UPDATE+27*
PARMS("BODY" UPDATE+32*
PARMS("DT/TM" UPDATE+33*
PARMS("FROM" UPDATE+27*
PARMS("MSGID" UPDATE+34*
PARMS("ORIG_IEN" UPDATE+30*
PARMS("ORIG_STATUS" UPDATE+30*
PARMS("PASS" UPDATE+5*, UPDATE+9*, UPDATE+10, UPDATE+22
PARMS("PURGE" UPDATE+28*
PARMS("QUEUE" UPDATE+27*
PROC VMS+5~, VMS+6*, VMS+7
PURGE INQUE+12~, INQUE+13*, INQUE+16
SENT ZB1+6~, ZB1+11*, SAVEACK~, SAVEACK+10
SUB ZB999+19~, ZB999+21*, WRITEACK+15~, WRITEACK+30*
SYS ZB999+19~, ZB999+20
SYS( ZB999+21
SYS("HL7 BUFF ER" , ZB999+22
TIME WRITEACK+15~, WRITEACK+19*, WRITEACK+20, WRITEACK+27
WORK GETWORK~, DOWORKS~, DOWORKM~
WORK("LINK" GETWORK+3, DOWORKS+4, DOWORKM+2
WORK("PORT" GETWORK+3*, DOWORKM+2
XX SAVEACK+4~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All