Routine: DGQESC1

Package	Total	Call Graph
Registration	2	$$EVENT^DGQEHL72 (DIVISION,WARD)^VAUTOMA
VA Fileman	2	NOW^%DTC ^DIR
Kernel	1	(,$$S)^%ZTLOAD

Package	Total	Caller Graph
Registration	1	DGQE DATA CARD IN

Name	Comments	DBIA/ICR reference
END	; -- End of Code
CHKDIV	; -- Check to see if clinic is part of Division selected ; -- re-sequences array
HL7	; -- Builds HL7 batch message
ENI	; -- Entry Point
BATCH	; -- Entry point for placing cards on hold
INSCAN	; -- Scans all ward locations for inpatients
EXIT	; -- Finish processing

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,CNT_" Inpatients down loaded to VIC work station" Line Location: EXIT+1
Function Call: WRITE	Prompt: !!,"Note: Each dot equals a ward",!,"." Line Location: INSCAN+1
Function Call: WRITE	Prompt: "." Line Location: INSCAN+9
Routine Call	DIR Line Location: ENI+6 ENI+31

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	CHKDIV+6, CHKDIV+8
^DG(43 - [#43]	ENI+20
^DIC(42 - [#42]	CHKDIV+5, CHKDIV+6
^DPT("CN"	INSCAN+4, INSCAN+11

Name	Field # of Occurrence
^(0	CHKDIV+6

Name	Field # of Occurrence
>> %	ENI+16
CLINIC	ENI+9~, INSCAN+3, INSCAN+4, INSCAN+11, CHKDIV+5
CNT	ENI+9~, ENI+15, EXIT+1, HL7+2
DATE	ENI+9~, ENI+16*
DFN	ENI+9~, INSCAN+3, INSCAN+10, INSCAN+11, INSCAN+13, HL7+1, HL7+2*
DFNARR	ENI+9~, ENI+17*, ENI+18, EXIT+2, INSCAN+13, HL7+2, HL7+3
DGDV	ENI+11~, CHKDIV+6*, CHKDIV+7, CHKDIV+8
DGJ	ENI+11~, CHKDIV+2, CHKDIV+11
DGSUB	ENI+11~, CHKDIV+2*
>> DGUTD(	CHKDIV+2*, CHKDIV+11
DGUTP	ENI+11~
DGWD	ENI+11~, CHKDIV+5*, CHKDIV+6
DIR	ENI+1~
DIR("?"	ENI+5, ENI+30
DIR("A"	ENI+3, ENI+28
DIR("B"	ENI+4, ENI+29
DIR(0	ENI+2, ENI+27
>> DIRUT	ENI+32
DIVFLAG	ENI+12~, INSCAN+8, CHKDIV+4, CHKDIV+7, CHKDIV+9, CHKDIV+13
DIVISION	ENI+12~, CHKDIV+8*, CHKDIV+9, CHKDIV+13
G	BATCH+1~, BATCH+8*
RESULTS	ENI+9~, EXIT+1, HL7+3*, HL7+4, HL7+5
SELDIV	ENI+12~, CHKDIV+11*, CHKDIV+13
U	CHKDIV+8
VAUTD	ENI+10~, ENI+14*, INSCAN+8
VAUTD(	CHKDIV+2
VAUTNI	ENI+10~, ENI+23*
Y	ENI+1~, ENI+7, ENI+20, ENI+25, ENI+33
>> ZTDESC	BATCH+4*
ZTDESCO	BATCH+1~
ZTDTH	BATCH+1~, BATCH+6!
ZTIO	BATCH+1~, BATCH+5*
>> ZTQUEUED	EXIT+1, INSCAN+1, INSCAN+9, HL7+4
ZTRTN	BATCH+1~, BATCH+3*
ZTSAVE	BATCH+1~
ZTSAVE(	BATCH+8*
ZTSAVE("VAUTD("	BATCH+9*
>> ZTSK	ENI+35, ENI+36
ZTSTOP	ENI+9~, INSCAN+7*

Information