Routine: ACDWSTAF

Package	Total	Call Graph
Alcohol Chemical Dependency	9	EN^ACDV4MES ^ACDWCS ^ACDWK ^ACDWQ D^ACDWRQ ^ACDWSTA1 H^ACDWSTA2 (F,HV)^ACDWUTL ^ACDWVIS
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Alcohol Chemical Dependency	1	ACDWSTA1

Entry Points

Name	Comments	DBIA/ICR reference
CK	;
EN	;
V1	;
H	;EP Header
K	; for gotos in this routine
F	;Form Feed
L	;EP - FOR TASKMAN (XBDBQUE)
P	;EP - PRINT REPORT ; Order on visit i.e. ^ACDVIS
V2	;
EOJ	;EP - EOJ FOR XBDBQUE

External References

Name	Field # of Occurrence
EN^ACDV4MES	P+13
^ACDWCS	V1+39, CK+11
^ACDWK	K+1
^ACDWQ	EN+31
D^ACDWRQ	EN+27
^ACDWSTA1	P+8
H^ACDWSTA2	H+1
F^ACDWUTL	P+28, F+2
HV^ACDWUTL	EN+28
^ACDWVIS	P+5
^DIC	EN+19
^DIR	EN+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"S U M M A R Y O N L Y",!! Line Location: P+11
Function Call: WRITE	Prompt: !,"NOTE: THIS REPORT DOES 'NOT INCLUDE' ANY INTERVENTION DATA.",!! Line Location: P+12
Function Call: WRITE	Prompt: !!,"SEARCH CRITERIA IS THAT: THE PROVIDER NAME WAS ENTERED",!,"DURING DATA ENTRY INTO THE FIELD TITLED 'PROVIDER TO CREDIT WORKLOAD' FOR " Line Location: P+14
Function Call: WRITE	Prompt: !,"CONTACT TYPES OF CLIENT SERVICE AND PREVENTIONS." Line Location: P+15
Function Call: WRITE	Prompt: !!,"SEARCH CRITERIA IS THAT: FOR ALL OTHER CONTACT TYPES",!,"WHERE THERE IS NO FIELD CALLED 'PROVIDER TO CREDIT WORKLOAD', THE 'PROVIDER'",!,"FIELD IS USED TO FIND A MATCH.",!! Line Location: P+16
Function Call: WRITE	Prompt: !,"H O U R S W O R K - L O A D D A T A" Line Location: P+17
Function Call: WRITE	Prompt: !,"TOT HOURS FOR CLIENT SERVICE CONTACTS: ",?70,ACDTH Line Location: P+18
Function Call: WRITE	Prompt: !,"TOT HOURS FOR PREVENTION CONTACTS: ",?70,ACDTHP Line Location: P+19
Function Call: WRITE	Prompt: !,"TOT HOURS FOR CRISIS/BRIEF CONTACTS: ",?70,ACDTHOT Line Location: P+20
Function Call: WRITE	Prompt: !!,"V I S I T W O R K - L O A D D A T A" Line Location: P+21
Function Call: WRITE	Prompt: !,"TOT CLIENT VISITS: ",?70,ACDVNUM Line Location: P+22
Function Call: WRITE	Prompt: !,"(INCLUDES PREVENTION VISITS)",! Line Location: P+23
Function Call: WRITE	Prompt: !,"TOT CLIENT SERVICES:",?70,ACDCNUMT Line Location: P+24
Function Call: WRITE	Prompt: !,"(REMEMBER: MANY CLIENTS SERVICES MAY BELONG TO THE SAME VISIT)",!! Line Location: P+25
Function Call: WRITE	Prompt: ACDCLIU Line Location: P+27
Function Call: WRITE	Prompt: @IOF Line Location: P+29
Function Call: WRITE	Prompt: !,ACDVNUM,")",?5,ACDCLIV,?18,$E(ACDPG,1,12),?31,ACDCONTL Line Location: V1+18
Function Call: WRITE	Prompt: "/",ACDOTHRS Condition for execution: ACDCONTL="CRISIS/BRIEF INT" Line Location: V1+18
Function Call: WRITE	Prompt: ?60,$E(ACDDFN,1,19) Line Location: V1+18
Function Call: WRITE	Prompt: !!,ACDVNUM,")",?5,ACDCLIV,?18,$E(ACDPG,1,12),?31,ACDCONTL,?60,$E(ACDDFN,1,19),!!?14,"Primary Provider: ",?40,$S($D(^VA(200,ACDPROVP,0)):$P(^VA(200,ACDPROVP,0),U),1:"UNKNOWN") Line Location: V1+30
Function Call: WRITE	Prompt: !?14,"TOT HOURS FOR VISIT: ",?40,ACDVH,! Line Location: V1+42
Function Call: WRITE	Prompt: !?8,ACDCNUM,")",?14,"Provider(s) credited: ",?40,$S($D(^VA(200,ACDGVER,0)):$P(^VA(200,ACDGVER,0),U),1:"UNKNOWN") Line Location: V2+2
Function Call: WRITE	Prompt: !?14,"DAY",?40,ACDDAY Line Location: V2+3
Function Call: WRITE	Prompt: !?14,"SERVICE",?40,ACDSVAC Line Location: V2+4
Function Call: WRITE	Prompt: !?14,"LOCATION",?40,ACDLOTY Line Location: V2+5
Function Call: WRITE	Prompt: !?14,"HOUR",?40,ACDHOUR Line Location: V2+6
Routine Call	DIC Line Location: EN+19
Routine Call	DIR Line Location: EN+23

Name	Line Occurrences (* Changed, ! Killed)
^ACDCS - [#9002172]	V1+37, V1+38, V1+39, CK+11, CK+12, CK+13
^ACDCS("C"	V1+37, CK+11
^ACDIIF - [#9002170]	V1+4
^ACDIIF("C"	V1+3
^ACDVIS("B"	P+5
^VA(200 - [#200]	V1+30, V2+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACD	P+5, P+26
>> ACD1	V1+37, V1+38, V1+39, CK+11, CK+12, CK+13
>> ACD6DIG	P+5
>> ACDAUF	P+5
ACDCLIU	EN+8!, P+26*, P+27
ACDCLIU(	P+26, V1+14*
>> ACDCLIV	V1+18, V1+30
>> ACDCNUM	V1+26, V2+1, V2+2
>> ACDCNUMT	EN+8, P+24, V2+1
>> ACDCONTL	V1+3, V1+10, V1+18, V1+30
>> ACDDA	P+5, V1+39, CK+11*
>> ACDDAY	V2+3
>> ACDDFN	V1+18, V1+30
>> ACDDFNP	V1+14
>> ACDFR	P+4*, P+5
ACDGVER	EN+17!, EN+19*, EN+20, V1+3, V1+10, V1+18, V1+39, V2+2, CK+6, CK+13
>> ACDHOUR	V2+6, V2+7
>> ACDLOTY	V2+5
>> ACDOK	V1+26, V1+29, CK+5, CK+6, CK+13
>> ACDOTHRS	V1+3, V1+4, V1+18
>> ACDPG	V1+18, V1+30
>> ACDPROVP	V1+3, V1+10, V1+18, V1+30, CK+6
>> ACDQUIT	EN+20*, EN+27
ACDSUMRP	EN+24!*, P+11, V1+18, V1+30, V1+42, V2+2, V2+3, V2+4, V2+5, V2+6
>> ACDSVAC	V2+4
>> ACDTH	EN+8, P+18, V2+7
>> ACDTHOT	EN+8, P+20, V1+4
>> ACDTHP	EN+8*, P+19
>> ACDTO	P+5
>> ACDV	P+5*, V1+3, V1+37, CK+11
>> ACDVH	V1+26, V1+42, V2+7
>> ACDVNUM	EN+11, P+22, V1+14, V1+18, V1+30
>> ACDWSTAF(1	EN+14*
DIC	EN+19!*
DIC("S"	EN+19*
DIC(0	EN+19*
>> DIR(0	EN+23*
DIRUT	EN+1!, P+2!, P+5, P+9, V1+18, V1+19, V1+30, V1+31, V1+39, V1+41 , V1+42, F+1, F+2
>> DTOUT	EN+23
IO	P+3
IOF	P+29
IOSL	F+2
PRVCR	V1+38, V1+39, V1+40!, CK+12, CK+13, CK+14!
U	V1+4, V1+30, V1+38, V2+2, CK+12
>> X	EN+23
>> Y	EN+19, EN+24

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDWSTAF

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
CK	V1+28
F	P+18, P+19, P+20, P+22, P+24, P+26, V1+18, V1+30, V1+42, V2+2 , V2+3, V2+4, V2+5, V2+6
H	P+3, F+2
K	EN+23, EN+27
V1	P+5
V2	V1+39