Routine: ACDPVH1M

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMADD^XLFDT
Alcohol Chemical Dependency	3	(CONF,DEV,DSPCSH,DSPHIST,DSPV,GETVSITS,PAUSE)^ACDDEU DIC^ACDFMC ^ACDKILL
VA Fileman	1	^DIR

Package

Total

Call Graph

^%ZIS ^%ZISC ^%ZTLOAD $$FMADD^XLFDT

(CONF,DEV,DSPCSH,DSPHIST,DSPV,GETVSITS,PAUSE)^ACDDEU DIC^ACDFMC ^ACDKILL

^DIR

Name	Comments	DBIA/ICR reference
EOJ	;
GETPAT	; GET PATIENT
DSPHIST	; DISPLAY VISIT HISTORY TO HELP USER SELECT
START	;
DISPLAY2	; DISPLAY VISIT FOR SELECTED MONTH
GETMONTH	; GET MONTH
DISPLAY	; EP - FOR TASKMAN
PATLOOP	; DISPLAY PATIENTS UNTIL DONE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No CDMIS VISIT history for patient ",ACDDFN,! Line Location: PATLOOP+5
Function Call: WRITE	Prompt: !!,"No CDMIS VISITs during selected month for patient ",ACDDFN,! Line Location: PATLOOP+11
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY+4
Function Call: WRITE	Prompt: ! Line Location: DISPLAY2+1
Function Call: WRITE	Prompt: "CDMIS VISIT history for client ",ACDDFN,!! Line Location: DISPLAY2+2
Function Call: WRITE	Prompt: "----------",! Line Location: DISPLAY2+3
Function Call: WRITE	Prompt: "----------",! Line Location: DISPLAY2+6
Routine Call	DIR Line Location: GETMONTH+2
Routine Call	%ZIS Line Location: DISPLAY+1

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACDVIS - [#9002172.1]	DISPLAY2+5
^DPT - [#2]	GETPAT+6
^TMP("ACD"	PATLOOP+5, PATLOOP+10, DISPLAY2+5

Name	Field # of Occurrence
>> ACDDFN	PATLOOP+5, PATLOOP+11, DISPLAY2+2, GETPAT+6*
>> ACDDFNP	GETPAT+6*
>> ACDMONTH	PATLOOP+9, PATLOOP+11, DISPLAY2+5, GETMONTH+5*
>> ACDQ	START+1, PATLOOP+2, PATLOOP+4, PATLOOP+8, PATLOOP+18, GETPAT+1, GETPAT+7, GETMONTH+1, GETMONTH+6
ACDSLAVE	PATLOOP+17, PATLOOP+19, PATLOOP+20!, DISPLAY+1, DISPLAY+5
>> ACDSTART	PATLOOP+9*, PATLOOP+10, DISPLAY2+4
>> ACDVIEN	DISPLAY2+5*
>> ACDX	DISPLAY2+4, DISPLAY2+5
>> ACDY	DISPLAY2+5*
>> AUPNLK("ALL"	GETPAT+2*, GETPAT+4!
DA	GETMONTH+2!
>> DIC	GETPAT+3*
>> DIC("S"	GETPAT+3*
>> DIC(0	GETPAT+3*
DIR	GETMONTH+2!
DIR("A"	GETMONTH+2*
DIR(0	GETMONTH+2*
>> DIRUT	GETMONTH+3
IO	PATLOOP+19, PATLOOP+20*, DISPLAY+2
IO("Q"	PATLOOP+12
IO(0	PATLOOP+19, PATLOOP+20
IOF	DISPLAY+4
>> IOP	DISPLAY+1*
IOST	PATLOOP+17, DSPHIST+1~, DSPHIST+2*, DISPLAY+4
U	DISPLAY2+5, GETPAT+6
>> X	PATLOOP+10*, PATLOOP+11
>> Y	GETPAT+5, GETPAT+6, GETMONTH+4, GETMONTH+5
>> ZTDESC	PATLOOP+13*
>> ZTDTH	PATLOOP+13*
>> ZTQUEUED	DISPLAY+7
>> ZTREQ	DISPLAY+7*
>> ZTRTN	PATLOOP+13*
>> ZTSAVE("ACD*"	PATLOOP+13*
>> ZTSAVE("^TMP(""ACD"",$J,""VISITS"","	PATLOOP+13*

Information