Routine: DGQESC2

Information

DGQESC2 ;ALB/JFP - VIC OUTPATIENT CLINIC SCAN ROUTINE ; 03/29/2004

Source Information

Source file <DGQESC2.m>

Call Graph

Call Graph Total: 7

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

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGQE DATA CARD OUT

Entry Points

Name	Comments	DBIA/ICR reference
OUTSCAN	; Scan the clinics for appointments to create VIC cards
END	; -- End of Code
CHKDIV	; -- Check to see if clinic is part of Division selected ; -- re-sequences array
SDAMA	; Build TMP Global with Appointment API Data for Report
BLDHL7	; -- Building HL7 batch message
BATCH	; -- Entry point for placing cards on hold
ENO	; -- Entry Point
EXIT	; -- Finish Process
CBLD3(CLINIC)	; Build array of specified Clinics for specified Divisions
BLDTMP	; ; -- Building Temporary Storage Data

Name	Field # of Occurrence
NOW^%DTC	ENO+16
^%ZTLOAD	BATCH+10
$$S^%ZTLOAD	BLDTMP+3
$$EVENT^DGQEHL72	BLDHL7+3
$$EDATE^DGQESC0	ENO+31
$$SDATE^DGQESC0	ENO+28
^DIR	ENO+7, ENO+39
$$SDAPI^SDAMA301	SDAMA+5
CLINIC^VAUTOMA	ENO+25
DIVISION^VAUTOMA	ENO+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,CNT_" Outpatients down loaded to VIC work station" Line Location: EXIT+1
Function Call: WRITE	Prompt: !!,"Note: Each Dot equals a clinic",! Line Location: OUTSCAN+5
Function Call: WRITE	Prompt: "." Line Location: CBLD3+3
Routine Call	DIR Line Location: ENO+7 ENO+39

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	CHKDIV+6, CHKDIV+8
^DG(43 - [#43]	ENO+21
^SC - [#44]	OUTSCAN+7, OUTSCAN+8, OUTSCAN+12, OUTSCAN+13, CHKDIV+6
^TMP($J	OUTSCAN+3!, OUTSCAN+18!, SDAMA+5*, SDAMA+6!, BLDTMP+2, BLDTMP+4, BLDTMP+5, BLDTMP+6

Name	Line Occurrences
BATCH	ENO+42
BLDHL7	OUTSCAN+17
BLDTMP	OUTSCAN+17
CBLD3	OUTSCAN+8, OUTSCAN+13, OUTSCAN+15
EXIT	BLDHL7+7
OUTSCAN	ENO+45
SDAMA	OUTSCAN+17

Name	Field # of Occurrence
^(0	CHKDIV+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENO+16
CLINDATE	OUTSCAN+2~, BLDTMP+5*, BLDTMP+6
CLINIC	OUTSCAN+2~, OUTSCAN+7, OUTSCAN+8, OUTSCAN+12, OUTSCAN+13, OUTSCAN+15, CBLD3~, CBLD3+1, BLDTMP+2, BLDTMP+4 , BLDTMP+5, BLDTMP+6, CHKDIV+5
CLNARRAY	OUTSCAN+2~
CLNARRAY(	CBLD3+1*, CBLD3+2, SDAMA+3, SDAMA+4
CNT	ENO+11~, ENO+19, EXIT+1, BLDHL7+2
DATE	ENO+11~, ENO+16*
DFN	ENO+11~, BLDHL7+1, BLDHL7+2, BLDTMP+4*, BLDTMP+5, BLDTMP+6
DFNARR	ENO+11~, ENO+17*, ENO+18, EXIT+2, BLDHL7+2, BLDHL7+3, BLDTMP+6
DGARRAY	OUTSCAN+2~, OUTSCAN+18!, SDAMA+5
DGARRAY("FLDS"	SDAMA+2*
DGARRAY(1	SDAMA+1*
DGARRAY(2	SDAMA+4*
DGDIV	OUTSCAN+2~, OUTSCAN+10, OUTSCAN+11, OUTSCAN+13
DGDV	ENO+13~, CHKDIV+6*, CHKDIV+7, CHKDIV+8
DGJ	ENO+13~, CHKDIV+2, CHKDIV+11
DGSUB	ENO+13~, CHKDIV+2*
DGUTD	ENO+13~
DGUTD(	CHKDIV+2*, CHKDIV+11
DGWD	ENO+13~, CHKDIV+5*, CHKDIV+6
DIR	ENO+1~
DIR("?"	ENO+6, ENO+38
DIR("A"	ENO+4, ENO+36
DIR("B"	ENO+5, ENO+37
DIR(0	ENO+3, ENO+34
>> DIRUT	ENO+40
DIVFLAG	ENO+12~, CHKDIV+4, CHKDIV+7, CHKDIV+9, CHKDIV+13
DIVISION	ENO+12~, CHKDIV+8*, CHKDIV+9, CHKDIV+13
DPTINFO	OUTSCAN+2~
EDATE	ENO+11~, ENO+33*, SDAMA+1
ERR	ENO+11~, ENO+28, ENO+29, ENO+30, ENO+31, ENO+32, ENO+33
G	BATCH+1~, BATCH+8*
I	OUTSCAN+2~, CBLD3+1, CBLD3+2, SDAMA+3*, SDAMA+4
RESULTS	ENO+11~, EXIT+1, BLDHL7+3*, BLDHL7+4, BLDHL7+5
SDATE	ENO+11~, ENO+30*, SDAMA+1
SDCNT	OUTSCAN+2~, OUTSCAN+18!
SELDIV	ENO+12~, CHKDIV+11*, CHKDIV+13
U	OUTSCAN+8, OUTSCAN+13, BLDTMP+6, CHKDIV+8
VAUTC	ENO+10~, OUTSCAN+6, OUTSCAN+10, OUTSCAN+15
VAUTC(	OUTSCAN+15
VAUTD	ENO+10~, ENO+15*, OUTSCAN+6, OUTSCAN+10
VAUTD(	OUTSCAN+11, CHKDIV+2
VAUTNI	ENO+10~, ENO+24*
Y	ENO+1~, ENO+8, ENO+11~, ENO+21, ENO+26, ENO+41
ZTDESC	BATCH+1~, BATCH+4*
ZTDTH	BATCH+1~, BATCH+6!
ZTIO	BATCH+1~, BATCH+5*
>> ZTQUEUED	EXIT+1, OUTSCAN+5, CBLD3+3, BLDHL7+4
ZTRTN	BATCH+1~, BATCH+3*
ZTSAVE	BATCH+1~
ZTSAVE(	BATCH+8*
ZTSAVE("VAUTC("	BATCH+9*
ZTSAVE("VAUTD("	BATCH+9*
>> ZTSK	ENO+43, ENO+44
ZTSTOP	ENO+13~, BLDTMP+2, BLDTMP+3

Customize PDF page

Package: Registration

Routine: DGQESC2

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: