Routine: HLCSQUE

Information

HLCSQUE ;ALB/MFK/CJM HL7 UTILITY FUNCTIONS - 10/4/94 11AM ;02/17/2011

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Health Level Seven	1	($$DELMSG,DELETE)^HLCSQUE1
Kernel	1	($$FMDIFF,$$NOW)^XLFDT
VA FileMan	1	FILE^DICN

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: 9

Package	Total	Caller Graph
Health Level Seven	9	HLCSDL1 HLCSDR1 HLCSIN HLCSMM1 HLCSOUT HLCSQUED HLCSREP HLTP01 HLUTIL2

Entry Points

Name	Comments	DBIA/ICR reference
ENQUEUE(IEN,HLDIR)	;Assign a message for queue entry ; INPUT: IEN - Internal Entry Number for file 870 - HL7 QUEUE ; HLDIR - Direction of queue (IN/OUT) ; OUTPUT: BEG - Location in the queue to stuff the message ; -1 - Error
EXIT1	; Unlock and return results
DEQUEUE(IEN,HLDIR)	;Release the next message from the queue
EXIT2
CLEARQUE(IEN,HLDIR)	;Empty an entire queue ; IEN - Entry number for queue - can be name from "B" X-ref ; HLDIR - Can be "IN", "OUT", 1 or 2. ; output: 0 for success ; -1^error for error
PUSH(HLDOUT0,HLDOUT1)	;-- Place message back on queue ; INPUT - HLDOUT0 IEN of file 870 ; HLDOUT1 IEN of Out Multiple ; OUTPUT- NONE
PUSHQ

External References

Name	Field # of Occurrence
FILE^DICN	ENQUEUE+30
$$DELMSG^HLCSQUE1	CLEARQUE+24
DELETE^HLCSQUE1	ENQUEUE+17
$$FMDIFF^XLFDT	DEQUEUE+56
$$NOW^XLFDT	DEQUEUE+54, DEQUEUE+56

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CLEARQUE+21
Function Call: WRITE	Prompt: "." Line Location: CLEARQUE+24
Function Call: WRITE	Prompt: ERR,! Line Location: CLEARQUE+25

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(870	ENQUEUE+23
^HLCS(870 - [#870]	ENQUEUE+9, ENQUEUE+16, ENQUEUE+18, ENQUEUE+19, ENQUEUE+29, ENQUEUE+31, ENQUEUE+33, ENQUEUE+34, EXIT1+1, EXIT1+2 , DEQUEUE+7, DEQUEUE+14, DEQUEUE+17, DEQUEUE+19, DEQUEUE+22, DEQUEUE+23, DEQUEUE+25, DEQUEUE+27, DEQUEUE+30, DEQUEUE+34 , DEQUEUE+37, DEQUEUE+45, DEQUEUE+51, DEQUEUE+54, DEQUEUE+58, DEQUEUE+60, DEQUEUE+65, DEQUEUE+67, EXIT2, CLEARQUE+11 , CLEARQUE+23, CLEARQUE+27, CLEARQUE+28, PUSH+8, PUSH+9*

Name

Line Occurrences (* Changed, ! Killed)

^DD(870

ENQUEUE+23

^HLCS(870 - [#870]

ENQUEUE+9, ENQUEUE+16, ENQUEUE+18, ENQUEUE+19, ENQUEUE+29, ENQUEUE+31, ENQUEUE+33*, ENQUEUE+34*, EXIT1+1, EXIT1+2
, DEQUEUE+7, DEQUEUE+14, DEQUEUE+17, DEQUEUE+19, DEQUEUE+22, DEQUEUE+23, DEQUEUE+25, DEQUEUE+27*, DEQUEUE+30, DEQUEUE+34
, DEQUEUE+37, DEQUEUE+45*, DEQUEUE+51, DEQUEUE+54*, DEQUEUE+58*, DEQUEUE+60*, DEQUEUE+65, DEQUEUE+67*, EXIT2, CLEARQUE+11
, CLEARQUE+23, CLEARQUE+27*, CLEARQUE+28*, PUSH+8, PUSH+9*

Label References

Name	Line Occurrences
EXIT2	DEQUEUE+18
PUSHQ	PUSH+6, PUSH+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BACK	ENQUEUE+5~, ENQUEUE+19*, ENQUEUE+24
BP	CLEARQUE+5~, CLEARQUE+18, CLEARQUE+19, CLEARQUE+28
BPOINTER	ENQUEUE+5~, ENQUEUE+15*, ENQUEUE+18, ENQUEUE+19, ENQUEUE+34, EXIT1+1
DA	ENQUEUE+5~
DA(1	ENQUEUE+23*
DD	ENQUEUE+27!
DIC	ENQUEUE+5~, ENQUEUE+21*
DIC("P"	ENQUEUE+23*
DIC(0	ENQUEUE+23*
DINUM	ENQUEUE+5~, ENQUEUE+25, ENQUEUE+31
DO	ENQUEUE+27!
ENTRY	ENQUEUE+5~, ENQUEUE+22*, ENQUEUE+23
ERR	CLEARQUE+5~, CLEARQUE+24*, CLEARQUE+25
FOUND	DEQUEUE+3~, DEQUEUE+20, DEQUEUE+21, DEQUEUE+41, DEQUEUE+67
FP	CLEARQUE+5~, CLEARQUE+18, CLEARQUE+19, CLEARQUE+27
FPOINTER	DEQUEUE+1~, DEQUEUE+13*, DEQUEUE+17, DEQUEUE+19, DEQUEUE+27, DEQUEUE+45, DEQUEUE+60, DEQUEUE+67, EXIT2
FRONT	ENQUEUE+5~, ENQUEUE+16, ENQUEUE+17, DEQUEUE+1~, DEQUEUE+19, DEQUEUE+21
HLDIR	ENQUEUE~, ENQUEUE+12, ENQUEUE+13, ENQUEUE+14, ENQUEUE+15, ENQUEUE+16, ENQUEUE+17, ENQUEUE+21, ENQUEUE+22, ENQUEUE+29 , ENQUEUE+31, ENQUEUE+33, EXIT1+2, DEQUEUE~, DEQUEUE+10, DEQUEUE+11, DEQUEUE+12, DEQUEUE+13, DEQUEUE+22, DEQUEUE+23 , DEQUEUE+25, DEQUEUE+27, DEQUEUE+30, DEQUEUE+34, DEQUEUE+37, DEQUEUE+51, DEQUEUE+54, DEQUEUE+58, DEQUEUE+65, CLEARQUE~ , CLEARQUE+14, CLEARQUE+15, CLEARQUE+16, CLEARQUE+18, CLEARQUE+19, CLEARQUE+23, CLEARQUE+24
HLDOUT0	PUSH~, PUSH+6, PUSH+8, PUSH+9
HLDOUT1	PUSH~, PUSH+6, PUSH+9
HLDT1	DEQUEUE+50~, DEQUEUE+51*, DEQUEUE+52, DEQUEUE+56
HLRTIME	DEQUEUE+3~, DEQUEUE+14, DEQUEUE+15, DEQUEUE+16*, DEQUEUE+56
IEN	ENQUEUE~, ENQUEUE+7, ENQUEUE+8, ENQUEUE+9, ENQUEUE+10, ENQUEUE+16, ENQUEUE+17, ENQUEUE+18, ENQUEUE+19, ENQUEUE+21 , ENQUEUE+23, ENQUEUE+29, ENQUEUE+31, ENQUEUE+33, ENQUEUE+34, EXIT1+1, EXIT1+2, EXIT1+3, DEQUEUE~, DEQUEUE+5* , DEQUEUE+6, DEQUEUE+7, DEQUEUE+8, DEQUEUE+14, DEQUEUE+17, DEQUEUE+19, DEQUEUE+22, DEQUEUE+23, DEQUEUE+25, DEQUEUE+27 , DEQUEUE+30, DEQUEUE+34, DEQUEUE+37, DEQUEUE+41, DEQUEUE+45, DEQUEUE+51, DEQUEUE+54, DEQUEUE+58, DEQUEUE+60, DEQUEUE+65 , DEQUEUE+67, EXIT2, CLEARQUE~, CLEARQUE+9, CLEARQUE+10, CLEARQUE+11*, CLEARQUE+12, CLEARQUE+23, CLEARQUE+24, CLEARQUE+27 , CLEARQUE+28
MSG	CLEARQUE+5~, CLEARQUE+20, CLEARQUE+23, CLEARQUE+24
NEWREC	ENQUEUE+5~, ENQUEUE+24, ENQUEUE+25, ENQUEUE+29, ENQUEUE+31, ENQUEUE+33, ENQUEUE+34, EXIT1+2, EXIT1+3
NEXT	DEQUEUE+3~, DEQUEUE+21, DEQUEUE+22, DEQUEUE+23, DEQUEUE+25, DEQUEUE+27, DEQUEUE+30, DEQUEUE+31, DEQUEUE+34, DEQUEUE+37 , DEQUEUE+41, DEQUEUE+45, DEQUEUE+51, DEQUEUE+54, DEQUEUE+58, DEQUEUE+60, DEQUEUE+65, DEQUEUE+67
NOMORE	DEQUEUE+3~, DEQUEUE+20, DEQUEUE+21, DEQUEUE+23, DEQUEUE+31, DEQUEUE+54, DEQUEUE+63
RETURN	DEQUEUE+1~, DEQUEUE+18, DEQUEUE+31, DEQUEUE+41, DEQUEUE+54, DEQUEUE+63*, EXIT2+1
STATUS	DEQUEUE+3~, DEQUEUE+37*, DEQUEUE+39, DEQUEUE+45
X	ENQUEUE+5~, ENQUEUE+25, ENQUEUE+31, CLEARQUE+5~
Y	ENQUEUE+5~, ENQUEUE+28, ENQUEUE+31

Customize PDF page

Package: Health Level Seven