Routine: ACDLVBD

Package	Total	Call Graph
Alcohol Chemical Dependency	3	(CONF,DEV,PAUSE)^ACDDEU DIQ1^ACDFMC ^ACDKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
EOJ	;
LSTVSITQ	; EP - FOR TASKMAN
START	;
LSTVSITS	; LIST VISITS FOR ONE DATE
DATELOOP	; LIST VISITS BY DATE UNTIL DONE
GETDATE	; GET DATE

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+1
Function Call: WRITE	Prompt: ! Line Location: LSTVSITQ+5
Function Call: WRITE	Prompt: !,"----------",!,"No CDMIS visits for ",ACDVDTE,!,"----------",! Line Location: LSTVSITQ+6
Function Call: WRITE	Prompt: $E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3),?9," - ",ACDPDD(9002172.1,ACDY,4,"E")," - ",ACDPDD(9002172.1,ACDY,1,"E"),"/",ACDPDD(9002172.1,ACDY,5,"E")," ",ACDPDD(9002172.1,ACDY,3,"E"),! Line Location: LSTVSITQ+13
Function Call: WRITE	Prompt: @IOF Line Location: LSTVSITQ+18
Routine Call	DIR Line Location: GETDATE+2
Routine Call	%ZIS Line Location: LSTVSITQ+1

Name	Line Occurrences (* Changed, ! Killed)
^ACDVIS - [#9002172.1]	LSTVSITQ+8
^ACDVIS("B"	LSTVSITQ+6, LSTVSITQ+8

Name	Field # of Occurrence
^("BWP"	LSTVSITQ+8

Name	Field # of Occurrence
>> ACDLC	LSTVSITQ+7, LSTVSITQ+10, LSTVSITQ+15
ACDPDD	LSTVSITQ+14!
ACDPDD(	LSTVSITQ+13
>> ACDPGM	LSTVSITQ+8
>> ACDQ	START+2, DATELOOP+2, DATELOOP+4, GETDATE+1, GETDATE+5, LSTVSITS+6, LSTVSITQ+8, LSTVSITQ+9, LSTVSITQ+15*
ACDSLAVE	DATELOOP+5, DATELOOP+6!, LSTVSITQ+1, LSTVSITQ+18
>> ACDVDTE	GETDATE+4*, LSTVSITQ+6
>> ACDVDTI	GETDATE+4*, LSTVSITQ+6, LSTVSITQ+8
>> ACDY	LSTVSITQ+7, LSTVSITQ+8, LSTVSITQ+11, LSTVSITQ+13
DA	GETDATE+2!, LSTVSITQ+11*
>> DIC	LSTVSITQ+11*
>> DIQ	LSTVSITQ+11*
>> DIQ(0	LSTVSITQ+11*
DIR	GETDATE+2!
DIR("A"	GETDATE+2*
DIR(0	GETDATE+2*
>> DIRUT	GETDATE+3, LSTVSITQ+15
>> DR	LSTVSITQ+11*
IO	DATELOOP+5, DATELOOP+6*, LSTVSITQ+2, LSTVSITQ+3
IO("Q"	LSTVSITS+1
IO(0	DATELOOP+5, DATELOOP+6, LSTVSITQ+3
IOF	LSTVSITQ+3, LSTVSITQ+18
>> IOP	LSTVSITQ+1*
IOST	LSTVSITQ+4, LSTVSITQ+17
U	LSTVSITQ+8
>> X	LSTVSITQ+8, LSTVSITQ+13
>> Y	GETDATE+4
>> Y(0	GETDATE+4
>> ZTDESC	LSTVSITS+2*
>> ZTDTH	LSTVSITS+2*
>> ZTQUEUED	LSTVSITQ+20
>> ZTREQ	LSTVSITQ+20*
>> ZTRTN	LSTVSITS+2*
>> ZTSAVE("ACD*"	LSTVSITS+2*