Routine: DGQESC3

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

Package

Total

Call Graph

$$EVENT^DGQEHL72 ($$EDATE,$$SDATE)^DGQESC0 DIVISION^VAUTOMA

NOW^%DTC ^DIR

(,$$S)^%ZTLOAD

Package	Total	Caller Graph
Registration	1	DGQE DATA CARD PRE

Package

Total

Caller Graph

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
BATCH	; -- Batch entry point for placing cards on hold
ENS	; -- Entry point
EXIT	; -- Finish processing
PRESCAN	; -- Scans for scheduled admissions

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,CNT_" Scheduled admissions down loaded to VIC work station" Line Location: EXIT+1
Function Call: WRITE	Prompt: !!,"Note: Each dot equals a day",!,"." Line Location: PRESCAN+1
Function Call: WRITE	Prompt: "." Line Location: PRESCAN+6
Function Call: WRITE	Prompt: !,"Results = ",RESULTS Line Location: HL7+4
Routine Call	DIR Line Location: ENS+7 ENS+35

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	CHKDIV+7
^DG(43 - [#43]	ENS+21
^DGS(41.1 - [#41.1]	PRESCAN+5, PRESCAN+8, PRESCAN+9

Name	Field # of Occurrence
>> %	ENS+16
CLINIC	ENS+11~, PRESCAN+3*
CNT	ENS+11~, ENS+19, EXIT+1, HL7+2
DATE	ENS+11~, ENS+16*
DFN	ENS+11~, PRESCAN+3, PRESCAN+16, PRESCAN+18, HL7+1, HL7+2
DFNARR	ENS+11~, ENS+17*, ENS+18, EXIT+2, PRESCAN+18, HL7+2, HL7+3
DGDV	ENS+12~, CHKDIV+5*, CHKDIV+6, CHKDIV+7
DGJ	ENS+12~, CHKDIV+2, CHKDIV+9
DGSNODE	ENS+12~, PRESCAN+9*, PRESCAN+11, PRESCAN+16, CHKDIV+5
DGSUB	ENS+12~, CHKDIV+2*
DGUTD	ENS+12~
DGUTD(	CHKDIV+2*, CHKDIV+9
DIR	ENS+1~
DIR("?"	ENS+6, ENS+34
DIR("A"	ENS+4, ENS+32
DIR("B"	ENS+5, ENS+33
DIR(0	ENS+3, ENS+31
>> DIRUT	ENS+36
DIVFLAG	ENS+13~, PRESCAN+15, CHKDIV+4, CHKDIV+6, CHKDIV+8, CHKDIV+10
DIVISION	ENS+13~, CHKDIV+7*, CHKDIV+8, CHKDIV+10
EDATE	ENS+11~, ENS+29*, PRESCAN+5
ERR	ENS+11~, ENS+24, ENS+25, ENS+26, ENS+27, ENS+28, ENS+29
G	BATCH+1~, BATCH+8*
IFN	ENS+11~, PRESCAN+7, PRESCAN+8, PRESCAN+9
>> JPTEST	HL7+4
LDATE	ENS+11~, PRESCAN+4, PRESCAN+5, PRESCAN+8
RESULTS	ENS+11~, EXIT+1, HL7+3*, HL7+4, HL7+5, HL7+6
SDATE	ENS+11~, ENS+26*, PRESCAN+4
SELDIV	ENS+13~, CHKDIV+9*, CHKDIV+10
U	CHKDIV+7
VAUTD	ENS+10~, ENS+15*, PRESCAN+15
VAUTD(	CHKDIV+2
Y	ENS+1~, ENS+8, ENS+11~, ENS+21, ENS+37
ZTDESC	BATCH+1~, BATCH+4*
ZTDTH	BATCH+1~, BATCH+6!
ZTIO	BATCH+1~, BATCH+5*
>> ZTQUEUED	EXIT+1, PRESCAN+1, PRESCAN+6, HL7+5
ZTRTN	BATCH+1~, BATCH+3*
ZTSAVE	BATCH+1~
ZTSAVE(	BATCH+8*
ZTSAVE("VAUTD("	BATCH+9*
>> ZTSK	ENS+39, ENS+40
ZTSTOP	ENS+11~, PRESCAN+14*

Information