Routine: HLOQUE

Information

HLOQUE ;ALB/CJM/OAK/PIJ/RBN- HL7 QUEUE MANAGEMENT - 10/4/94 1pm ;03/07/2012

Package	Total	Call Graph
Health Level Seven	5	$$EXCEPT^HLOAPP ($$ADD,$$UPD,UPD)^HLOASUB1 $$GETSAP^HLOCLNT2 ($$INC,$$RCNT)^HLOSITE $$ASKYESNO^HLOUSR2
Kernel	4	(,UNWIND)^%ZTER $$NOW^XLFDT DUZ^XUP KILL^XUSCLEAN
VA FileMan	2	^DIC ^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 18

Package	Total	Caller Graph
Health Level Seven	17	HLO SET QUEUE PRIORITY HLOAPI1 HLOAPI3 HLOCLNT HLOCLNT2 HLOFILER HLOPING HLOPURGE HLOSRVR HLOUSR HLOUSR2 HLOUSR4 HLOUSR5 HLOUSR6 HLOUSR7 ^HLD(779.3 ^HLD(779.9
VA Point of Service	1	VPSSEND

Entry Points

Name	Comments	DBIA/ICR reference
INQUE(FROM,QNAME,IEN778,ACTION,PURGE,ORIG)	;
ZB36
OUTQUE(LINKNAME,PORT,QNAME,IEN778)	;
DEQUE(FROMORTO,QNAME,DIR,IEN778)	;	ICR #6177 Status: Withdrawn Usage: Controlled Subscription
STOPQUE(DIR,QUEUE)	;	ICR #4730 Status: Active Usage: Supported
STARTQUE(DIR,QUEUE)	;	ICR #4730 Status: Active Usage: Supported
STOPPED(DIR,QUEUE)	;	ICR #4730 Status: Active Usage: Supported
ZB0
SQUE(SQUE,LINKNAME,PORT,QNAME,IEN778)	;
ADVANCE(SQUE,MSGIEN)	;
SEQCHK(WORK)	;functions under the HLO Process Manager
ERROR	;error trap for application context
QUECNT(QUEARRAY)	; ; ; DESC : Functions eturns the total number of messages on all the queues and an the QUEARRAY ; ; INPUT : QUEARRAY - the array, passed by reference, to contain the queue counts. ; ; OUTPUT : Filled array ; ; Format: ; ; QUE("TOTAL") = Total number of messages on all queues. ; QUE("OUT") = Total number of outgoing messages. ; QUE("IN") = Total number of incoming messages. ; QUE("SEQ") = Total number of messages on sequence queues. ; QUE("IN",link_name,queue_name) = Number of messages on given link and queue. ; QUE("OUT",link_name,queue_name) = Number of messages on given link and queue. ; QUE("SEQ",queue_name) = Number of messages on given sequence queue. ; ; There are four possible calls ("entry points") to this API: ; 1. QUECNT - returns the referenced array with all of the above data. ; 2. IN - returns only the data related to the IN queues. ; 3. OUT - returns only the data related to the OUT queues. ; 4. SEQ - returns only the data related to the SEQUENCE queues. ;
IN(QUEARRAY)	; ; Count messages on incoming queues
OUT(QUEARRAY)	; ; Count messages on outgoing queues
SEQ(QUEARRAY)	; ; Count messages on sequence queues
RESETF(IEN)	;
GETPRTY(QUEUE,LINK)	;
SETPRTY	; User interface to set queue priority ;
SETP(QUEUE,PRIORITY,LINK)	;

External References

Name	Field # of Occurrence
^%ZTER	ERROR+2
UNWIND^%ZTER	ERROR+16
^DIC	SETPRTY+7, SETPRTY+20
^DIE	SETPRTY+25, SETPRTY+33
$$EXCEPT^HLOAPP	SEQCHK+20
$$ADD^HLOASUB1	SETP+28, SETP+41
$$UPD^HLOASUB1	SETP+29, SETP+40
UPD^HLOASUB1	RESETF+11, SETPRTY+14, SETPRTY+30
$$GETSAP^HLOCLNT2	SEQCHK+20
$$INC^HLOSITE	ZB36+4, OUTQUE+19, DEQUE+21, SQUE+28, SQUE+32, ADVANCE+25, ADVANCE+29, ADVANCE+37, ADVANCE+40
$$RCNT^HLOSITE	ZB36+1, OUTQUE+16, DEQUE+18, SQUE+17
$$ASKYESNO^HLOUSR2	SETPRTY+11
$$NOW^XLFDT	SEQCHK+3
DUZ^XUP	SEQCHK+30
KILL^XUSCLEAN	SEQCHK+35, ERROR+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^HLD(779.9 - [#779.9]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSCH("TASK"	ERROR+11
^HLB - [#778]	SQUE+53, ADVANCE+34, ADVANCE+52, SEQCHK+21
^HLB("QUEUE"	ZB36+3, OUTQUE+18, DEQUE+16, DEQUE+19!, SQUE+21, SQUE+24, SQUE+25, SQUE+40, SQUE+41, SQUE+46 , SQUE+56, ADVANCE+16, ADVANCE+21, ADVANCE+34, ADVANCE+36!, ADVANCE+49, ADVANCE+50!, ADVANCE+51, ADVANCE+55!, ADVANCE+56 , SEQCHK+5, SEQCHK+7, SEQCHK+11, SEQCHK+14, SEQCHK+15, SEQCHK+16, SEQCHK+17, SEQCHK+19, SEQCHK+22, SEQCHK+23
^HLC("QUEUECOUNT"	ZB36+4, OUTQUE+19, DEQUE+21, SQUE+28, SQUE+32, ADVANCE+25, ADVANCE+29, ADVANCE+37, ADVANCE+40, IN+6 , IN+7, IN+8, IN+9, OUT+6, OUT+7, OUT+9, OUT+10, OUT+11, SEQ+6, SEQ+7 , SEQ+8, SEQ+9
^HLCS(870 - [#870]	SETP+21, SETP+22
^HLD(779.9 - [#779.9]	RESETF+7, RESETF+9, GETPRTY+9, GETPRTY+11, SETP+23, SETP+36
^HLTMP("HL7 RUNNING PROCESSES"	ERROR+14
^HLTMP("STOPPED QUEUES"	STOPQUE+7*, STARTQUE+7!, STOPPED+11

Label References

Name	Line Occurrences
$$ADVANCE	SQUE+49
ADVANCE	SQUE+53
IN	QUECNT+27
OUT	QUECNT+29
OUTQUE	SQUE+42, ADVANCE+53
SEQ	QUECNT+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	INQUE~, ZB36+3, SEQCHK+6~, SEQCHK+20*, SEQCHK+28
DA	RESETF+4~, RESETF+6, RESETF+7, RESETF+9, RESETF+11, SETPRTY+2~, SETPRTY+9!, SETPRTY+10, SETPRTY+14, SETPRTY+15 , SETPRTY+16, SETPRTY+22, SETPRTY+30, SETP+12~, SETP+23, SETP+24, SETP+28, SETP+29, SETP+33, SETP+35 , SETP+36, SETP+40, SETP+41
DA(1	RESETF+5, RESETF+7, RESETF+9, SETPRTY+16, SETPRTY+23, SETP+35*, SETP+36
DATA	RESETF+8~, RESETF+11, SETPRTY+12~, SETPRTY+14, SETPRTY+27~, SETPRTY+30, SETP+12~, SETP+28, SETP+29, SETP+37! , SETP+40, SETP+41
DATA(	RESETF+9, RESETF+10, SETPRTY+13, SETPRTY+28, SETPRTY+29, SETP+25, SETP+26, SETP+27, SETP+30, SETP+31* , SETP+32, SETP+38, SETP+39*
DIC	SETPRTY+2~, SETPRTY+3, SETPRTY+9!, SETPRTY+15
DIC("A"	SETPRTY+5, SETPRTY+19
DIC("DR"	SETPRTY+6*
DIC(0	SETPRTY+4, SETPRTY+18
DIE	SETPRTY+2~, SETPRTY+9!, SETPRTY+23, SETPRTY+31
>> DILOCKTM	ERROR+11
DIR	DEQUE~, DEQUE+12, DEQUE+13, DEQUE+14, DEQUE+16, DEQUE+18, DEQUE+19, DEQUE+21, DEQUE+22, STOPQUE~ , STOPQUE+5, STOPQUE+7, STARTQUE~, STARTQUE+5, STARTQUE+7, STOPPED~, STOPPED+9, STOPPED+11
DR	SETPRTY+2~, SETPRTY+9!, SETPRTY+24, SETPRTY+32
>> DTOUT	SETPRTY+8
>> DUOUT	SETPRTY+8
DUZ	SEQCHK+25~
>> ERROR	SETP+41
FLG	INQUE+13~, ZB36+1, ZB36+5, OUTQUE+10~, OUTQUE+16, OUTQUE+20, DEQUE+17~, DEQUE+18, DEQUE+22, SQUE+10~ , SQUE+17, SQUE+57, QUECNT+24~, QUECNT+25*, IN+3~, IN+11, OUT+3~, OUT+13, SEQ+3~, SEQ+10
FROM	INQUE~, ZB36*, ZB36+1, ZB36+3, ZB36+4, ZB36+5
FROMORTO	DEQUE~, DEQUE+9, DEQUE+16, DEQUE+18, DEQUE+19, DEQUE+21, DEQUE+22
HLMSGIEN	SEQCHK+25~, SEQCHK+27*
IEN	RESETF~, RESETF+5
IEN778	INQUE~, ZB36+3, OUTQUE~, OUTQUE+18, DEQUE~, DEQUE+15, DEQUE+16, DEQUE+19, SQUE~, SQUE+25 , SQUE+41, SQUE+42, SQUE+46, ADVANCE+8~, ADVANCE+32, ADVANCE+34, ADVANCE+36, ADVANCE+44, ADVANCE+49, ADVANCE+50 , ADVANCE+52, ADVANCE+53
INCNT	QUECNT+24~, QUECNT+35, IN+3~, IN+5, IN+8, IN+10, IN+11, OUT+3~, SEQ+3~
LINK	QUECNT+24~, IN+3~, IN+4, IN+6, IN+7, IN+8, IN+9, OUT+3~, OUT+4, OUT+6 , OUT+7, OUT+9, OUT+10, OUT+11, SEQ+3~, GETPRTY~, GETPRTY+8, SETP~, SETP+19, SETP+21 , SETP+22
LINKIEN	SETP+12~, SETP+13, SETP+19, SETP+20, SETP+21, SETP+22, SETP+27, SETP+29, SETP+34, SETP+36 , SETP+38
LINKNAME	OUTQUE~, OUTQUE+11, SQUE~, SQUE+42, ADVANCE+8~, ADVANCE+47*, ADVANCE+53
LNK	GETPRTY+6~, GETPRTY+8*, GETPRTY+9
MCODE	SEQCHK+25~, SEQCHK+28*, SEQCHK+31
MOVED	SQUE+10~, SQUE+11, SQUE+43, SQUE+58
MSGIEN	ADVANCE~, ADVANCE+13, ADVANCE+21, SEQCHK+6~, SEQCHK+18*, SEQCHK+19, SEQCHK+20, SEQCHK+21, SEQCHK+27, SEQCHK+29~ , ERROR+7~
NEXT	SQUE+10~, SQUE+24*, SQUE+25, SQUE+40, SQUE+49, SQUE+53
NODE	ADVANCE+8~, ADVANCE+34, ADVANCE+47, SEQCHK+6~, SEQCHK+7, SEQCHK+8, SEQCHK+9, SEQCHK+10, SEQCHK+14*, SEQCHK+15 , SEQCHK+16, SEQCHK+17, SEQCHK+18
NOW	SEQCHK+2~, SEQCHK+3*, SEQCHK+9, SEQCHK+16, SEQCHK+25~
ORIG	INQUE~
ORIG("ACK BY"	, ZB36+3
ORIG("IEN"	ZB36+3
ORIG("STATUS"	ZB36+3
OUTCNT	QUECNT+24~, QUECNT+35, IN+3~, OUT+3~, OUT+5, OUT+10, OUT+12, OUT+13, SEQ+3~
PORT	OUTQUE~, OUTQUE+12, SQUE~, SQUE+42, ADVANCE+8~, ADVANCE+47*, ADVANCE+53
PRIORITY	SETP~, SETP+14*, SETP+15, SETP+16, SETP+27, SETP+32, SETP+39
PRTY	GETPRTY+6~, GETPRTY+7, GETPRTY+9, GETPRTY+10, GETPRTY+11*, GETPRTY+12, GETPRTY+13
PURGE	INQUE~, ZB36+3
QNAME	INQUE~, ZB36+1, ZB36+2, ZB36+3, ZB36+4, ZB36+5, OUTQUE~, OUTQUE+13, OUTQUE+16, OUTQUE+18 , OUTQUE+19, OUTQUE+20, DEQUE~, DEQUE+10, DEQUE+16, DEQUE+18, DEQUE+19, DEQUE+21, DEQUE+22, SQUE~ , SQUE+42, ADVANCE+8~, ADVANCE+47, ADVANCE+53
QUE	SEQCHK+2~, SEQCHK+4, SEQCHK+5, SEQCHK+7, SEQCHK+11, SEQCHK+14, SEQCHK+15, SEQCHK+16, SEQCHK+17, SEQCHK+19 , SEQCHK+22, SEQCHK+23, SEQCHK+25~, QUECNT+24~, IN+3~, IN+4, IN+7, IN+8, IN+9, OUT+3~ , OUT+4, OUT+7, OUT+9, OUT+10, OUT+11, SEQ+3~, SEQ+4, SEQ+6, SEQ+7, SEQ+8
QUEARRAY	QUECNT~, QUECNT+27, QUECNT+29, QUECNT+31, IN~, OUT~, SEQ~
QUEARRAY("IN"	IN+9, IN+10
QUEARRAY("OUT"	OUT+11, OUT+12
QUEARRAY("SEQ"	SEQ+8, SEQ+9, SEQ+10
QUEARRAY("TOTAL"	QUECNT+35*, QUECNT+36
QUEUE	STOPQUE~, STOPQUE+6, STOPQUE+7, STARTQUE~, STARTQUE+6, STARTQUE+7, STOPPED~, STOPPED+10, STOPPED+11, ERROR+7~ , GETPRTY~, GETPRTY+9, GETPRTY+11, SETPRTY+2~, SETPRTY+10*, SETPRTY+11, SETP~, SETP+17, SETP+18, SETP+23 , SETP+26
>> RECOUNT(	DEQUE+18, DEQUE+22
>> RECOUNT("IN"	ZB36+1, ZB36+5
>> RECOUNT("OUT"	OUTQUE+16, OUTQUE+20
>> RECOUNT("SEQUENCE"	SQUE+17, SQUE+57
RET	STOPPED+7~, STOPPED+8, STOPPED+11, ZB0
SEQCNT	QUECNT+24~, QUECNT+35, IN+3~, OUT+3~, SEQ+3~, SEQ+5, SEQ+7
SQUE	SQUE~, SQUE+17, SQUE+21, SQUE+24, SQUE+25, SQUE+32, SQUE+40, SQUE+41, SQUE+46, SQUE+49 , SQUE+53, SQUE+56, SQUE+57, ADVANCE~, ADVANCE+9, ADVANCE+16, ADVANCE+21, ADVANCE+29, ADVANCE+34, ADVANCE+36 , ADVANCE+40, ADVANCE+49, ADVANCE+50, ADVANCE+51, ADVANCE+55, ADVANCE+56
SUB	OUTQUE+10~, OUTQUE+11, OUTQUE+12, OUTQUE+16, OUTQUE+18, OUTQUE+19, OUTQUE+20
TOTAL	QUECNT+24~, IN+3~, OUT+3~, SEQ+3~
WORK	SEQCHK~
X	SEQCHK+29~
Y	SETPRTY+2~, SETPRTY+8, SETPRTY+9!, SETPRTY+10, SETPRTY+21, SETPRTY+22
ZTSK	SEQCHK+34~, ERROR+7~, ERROR+11, ERROR+12

Customize PDF page

Package: Health Level Seven