HLOSRVR ;ALB/CJM - Server for receiving messages - 10/4/94 1pm ;06/25/2012
Source file <HLOSRVR.m>
| 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 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETWORK(WORK) | ;
|
|
| DOWORKS(WORK) | ;
|
|
| DOWORKM(WORK) | ;
|
|
| 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.
|
|
| 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.
|
|
| LINUX1 | ;The listener entry point on Linux systems. The HL LOGICAL LINK should
|
|
| LINUX(LINKNAME) | ;Listener for Linux systems running under Xinetd.
|
|
| SERVER(LINKNAME,LOGICAL) | ; LINKNAME identifies the logical link, which describes the communication channel to be used
|
|
| ZB1 | ;
|
|
| END | ||
| CONNECT(HLCSTATE,LINKNAME,LOGICAL) | ;
|
|
| ZB999 | ;
|
|
| INQUE(MSGIEN,PARMS) | ;
|
|
| SAVEACK(HLMSTATE,SENT) | ;
|
|
| UPDATE(HLMSTATE,HLCSTATE) | ;
|
|
| WRITEACK(HLCSTATE,HLMSTATE) | ;
|
| 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 |
| 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 |
| >> | 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~ |
