Routine: ACDPCS1M

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

Package

Total

Call Graph

Kernel

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

Alcohol Chemical Dependency

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

IHS VA Utilities

PFTV^XBPFTV

VA Fileman

^DIR

Entry Points

Name	Comments	DBIA/ICR reference
GETVSITS	; EP - GET CDMIS VISITS FOR THIS CLIENT
F	;Form feed
EOJ	;
GETPAT	; GET PATIENT
DSPHIST	; DISPLAY VISIT HISTORY TO HELP USER SELECT
START	;
DSPCSH	; DISPLAY CDMIS CLIENT SERVICE HISTORY FOR ONE CS VISIT
DISPLAY2	; DISPLAY VISIT FOR SELECTED MONTH
GETMONTH	; GET MONTH
DISPLAY	; EP - FOR TASKMAN
PATLOOP	; DISPLAY PATIENTS UNTIL DONE

External References

Name	Field # of Occurrence
^%ZIS	DISPLAY+1
^%ZISC	DISPLAY+5, EOJ+1
^%ZTLOAD	PATLOOP+16
CONF^ACDDEU	DISPLAY2+2
DEV^ACDDEU	PATLOOP+21
DSPHIST^ACDDEU	DSPHIST+3
DSPV^ACDDEU	DISPLAY2+11
GETVSITS^ACDDEU	PATLOOP+4
PAUSE^ACDDEU	PATLOOP+19, F+2
DIC^ACDFMC	GETPAT+3
^ACDKILL	EOJ+3
^DIR	GETMONTH+2
PFTV^XBPFTV	DSPCSH+18
$$FMADD^XLFDT	PATLOOP+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No CDMIS VISIT history for patient ",ACDDFN,! Line Location: PATLOOP+7
Function Call: WRITE	Prompt: !!,"No CDMIS VISITs during selected month for patient ",ACDDFN,! Line Location: PATLOOP+13
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY+4
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY2+1
Function Call: WRITE	Prompt: ! Line Location: DISPLAY2+2
Function Call: WRITE	Prompt: "CDMIS CLIENT SERVICE history for client ",ACDDFN,!! Line Location: DISPLAY2+3
Function Call: WRITE	Prompt: "----------",! Line Location: DISPLAY2+4
Function Call: WRITE	Prompt: "----------",! Line Location: DISPLAY2+15
Function Call: WRITE	Prompt: ?5,X,! Line Location: DSPCSH+14
Function Call: WRITE	Prompt: ?15,YY,?19,W,?55,$J(+$P(^ACDCS(Z,0),U,4),5,2)_" h",! Line Location: DSPCSH+20
Function Call: WRITE	Prompt: @IOF Line Location: F+3
Routine Call	DIR Line Location: GETMONTH+2
Routine Call	%ZIS Line Location: DISPLAY+1

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACDCS - [#9002172]	DSPCSH+3, DSPCSH+5, DSPCSH+6, DSPCSH+20
^ACDCS("C"	DSPCSH+3
^ACDVIS - [#9002172.1]	DISPLAY2+9
^DPT - [#2]	GETPAT+6
^TMP("ACD"	PATLOOP+7, PATLOOP+12, DISPLAY2+6, DISPLAY2+8, DSPCSH+1!, DSPCSH+7*, DSPCSH+11, DSPCSH+16, DSPCSH+17, DSPCSH+23! , EOJ+2!
^VA(200 - [#200]	DSPCSH+13

Name	Line Occurrences
DISPLAY	PATLOOP+18, PATLOOP+22
DISPLAY2	DISPLAY+3
DSPCSH	DISPLAY2+12
DSPHIST	PATLOOP+8
EOJ	START+2, DISPLAY+6
F	DSPCSH+19
GETMONTH	PATLOOP+9
GETPAT	PATLOOP+1
PATLOOP	START+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACDDFN	PATLOOP+7, PATLOOP+13, DISPLAY2+3, GETPAT+6*
>> ACDDFNP	GETPAT+6*
>> ACDMONTH	PATLOOP+11, PATLOOP+13, DISPLAY2+6, GETMONTH+5*
>> ACDPRV	DSPCSH+6, DSPCSH+7, DSPCSH+10, DSPCSH+11*, DSPCSH+13, DSPCSH+16, DSPCSH+17
>> ACDQ	START+1, PATLOOP+2, PATLOOP+6, PATLOOP+10, PATLOOP+20, PATLOOP+21, DISPLAY2+5, DISPLAY2+6, DISPLAY2+8, DSPCSH+11 , DSPCSH+16, DSPCSH+19, F+2, GETPAT+1, GETPAT+7, GETMONTH+1, GETMONTH+6*
ACDSLAVE	PATLOOP+19, PATLOOP+22, PATLOOP+23!, DISPLAY+1, DISPLAY+5, F+2
>> ACDSTART	PATLOOP+11*, PATLOOP+12, DISPLAY2+5
ACDTCTG	PATLOOP+3*, PATLOOP+5!
>> ACDVIEN	DISPLAY2+10*, DSPCSH+3
>> ACDX	DISPLAY2+5, DISPLAY2+6, DISPLAY2+8
>> ACDY	DISPLAY2+7, DISPLAY2+8, DISPLAY2+9, DISPLAY2+10
>> 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	F+2, GETMONTH+3
IO	PATLOOP+22, PATLOOP+23*, DISPLAY+2
IO("Q"	PATLOOP+14
IO(0	PATLOOP+22, PATLOOP+23
IOF	DISPLAY+4, DISPLAY2+1, F+3
>> IOP	DISPLAY+1*
IOSL	F+1
IOST	PATLOOP+19, DSPHIST+1~, DSPHIST+2*, DISPLAY+4, DISPLAY2+1, F+2
U	DISPLAY2+9, DSPCSH+6, DSPCSH+7, DSPCSH+13, DSPCSH+20, GETPAT+6
>> W	DSPCSH+18, DSPCSH+20
>> X	PATLOOP+12, PATLOOP+13, DSPCSH+3, DSPCSH+7, DSPCSH+13, DSPCSH+14, DSPCSH+17, DSPCSH+18
>> Y	GETPAT+5, GETPAT+6, GETMONTH+4, GETMONTH+5
>> YY	DSPCSH+2, DSPCSH+3, DSPCSH+5, DSPCSH+6, DSPCSH+7, DSPCSH+15, DSPCSH+16, DSPCSH+17, DSPCSH+20
>> Z	DSPCSH+4, DSPCSH+5, DSPCSH+6, DSPCSH+16*, DSPCSH+17, DSPCSH+20
>> ZTDESC	PATLOOP+15*
>> ZTDTH	PATLOOP+15*
>> ZTQUEUED	DISPLAY+6, F+2
>> ZTREQ	DISPLAY+6*
>> ZTRTN	PATLOOP+15*
>> ZTSAVE("ACD*"	PATLOOP+15*
>> ZTSAVE("^TMP(""ACD"",$J,""VISITS"","	PATLOOP+15*

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDPCS1M

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: