Routine: ACDWCD1

Package	Total	Call Graph
Alcohol Chemical Dependency	5	PAUSE^ACDDEU ^ACDWIIF ^ACDWK F^ACDWUTL ^ACDWVIS

Package	Total	Caller Graph
Alcohol Chemical Dependency	2	ACDPFACE ACDPSOT

Entry Points

Name	Comments	DBIA/ICR reference
P1	;EP-Output
F	;Form feed

External References

Name	Field # of Occurrence
PAUSE^ACDDEU	F+3
^ACDWIIF	ACDWCD1+7
^ACDWK	ACDWCD1+9
F^ACDWUTL	F+2
^ACDWVIS	ACDWCD1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: P1+2
Function Call: WRITE	Prompt: !,"CLIENT NAME:",?40,ACDDFN Line Location: P1+3
Function Call: WRITE	Prompt: !," VETERAN STATUS:",?40,ACDVET Line Location: P1+4
Function Call: WRITE	Prompt: !!,"VISIT DATE:",?40,ACDCLIV Line Location: P1+10
Function Call: WRITE	Prompt: !,"COMPONENT:",?40,ACDCOMCL," / ",ACDCOMTL Line Location: P1+11
Function Call: WRITE	Prompt: !,"TYPE CONTACT:",?40,ACDCONTL Line Location: P1+12
Function Call: WRITE	Prompt: !!,"PROVIDER:",?40,ACDPROV Line Location: P1+13
Function Call: WRITE	Prompt: !,"PRIMARY PROBLEM:",?40,ACDPROBP Line Location: P1+14
Function Call: WRITE	Prompt: !,"OTHER PROBLEMS:" Line Location: P1+15
Function Call: WRITE	Prompt: ?40,ACDLP,! Line Location: P1+15
Function Call: WRITE	Prompt: !,"TOBACCO USE:",?40,ACDTOB Line Location: P1+16
Function Call: WRITE	Prompt: !,"DAYS USED ALCOHOL:",?40,ACDDUA,$S(ACDDUA=999:"=UNKNOWN",1:"") Line Location: P1+17
Function Call: WRITE	Prompt: !,"DAYS USED DRUGS:",?40,ACDDUD,$S(ACDDUD=999:"=UNKNOWN",1:"") Line Location: P1+18
Function Call: WRITE	Prompt: !,"DRUG TYPE:" Line Location: P1+19
Function Call: WRITE	Prompt: ?40,ACDLP,! Line Location: P1+19
Function Call: WRITE	Prompt: !,"DAYS HOSPITALIZED:",?40,ACDDH,$S(ACDDH=999:"=UNKNOWN",1:"") Line Location: P1+20
Function Call: WRITE	Prompt: !,"DRUG/ALCOHOL RELATED ARREST:",?40,ACDAAR Line Location: P1+21
Function Call: WRITE	Prompt: !!,"CLIENT STAGE ALC/SUB:",?40,ACDSUS Line Location: P1+22
Function Call: WRITE	Prompt: !,"CLIENT STAGE PHYSICAL:",?40,ACDPS Line Location: P1+23
Function Call: WRITE	Prompt: !,"CLIENT STAGE EMOTIONAL:",?40,ACDES Line Location: P1+24
Function Call: WRITE	Prompt: !,"CLIENT STAGE SOCIAL:",?40,ACDSS Line Location: P1+25
Function Call: WRITE	Prompt: !,"CLIENT STAGE CULTURAL:",?40,ACDCS Line Location: P1+26
Function Call: WRITE	Prompt: !,"CLIENT STAGE BEHAVIORAL:",?40,ACDBS Line Location: P1+27
Function Call: WRITE	Prompt: !,"CLIENT STAGE VOC/ED:",?40,ACDBV Line Location: P1+28
Function Call: WRITE	Prompt: !,"STAGING AVERAGE:",?40,ACDSAVG Line Location: P1+29
Function Call: WRITE	Prompt: !,"CLIENT STATUS:",?40,$S(ACDSTAT="UNKNOWN":"",1:ACDSTAT) Line Location: P1+30
Function Call: WRITE	Prompt: !!,"RECOMMENDED PLACEMENT:",?40,ACDPLAR_" / "_ACDPLARL Line Location: P1+31
Function Call: WRITE	Prompt: !,"ACTUAL PLACEMENT:",?40,ACDPLAA_" / "_ACDPLAAL Line Location: P1+32
Function Call: WRITE	Prompt: !,"DIFFERENCE REASON:",?40,ACDDIF Line Location: P1+33
Function Call: WRITE	Prompt: !!,"HOURS:",?40,ACDHRS Line Location: P1+34
Function Call: WRITE	Prompt: !!,"..........................................",! Line Location: P1+35
Function Call: WRITE	Prompt: @IOF Line Location: F+4

Name	Line Occurrences (* Changed, ! Killed)
^ACDIIF - [#9002170]	ACDWCD1+7
^AUTTTRI - [#9999999.03]	P1+6
^AUTTTRI("C"	P1+6
^DIC(5 - [#5]	P1+7
^TMP("ACD"	ACDWCD1+6, ACDWCD1+7

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACDAAR	P1+21
>> ACDAGE	P1+5
>> ACDBS	P1+27
>> ACDBT	ACDWCD1+6, ACDWCD1+7
>> ACDBV	P1+28
>> ACDCLIV	P1+10
>> ACDCOMCL	P1+11
>> ACDCOMTL	P1+11
>> ACDCONTL	P1+12
>> ACDCS	P1+26
>> ACDDA	ACDWCD1+7*
>> ACDDFN	P1+3
>> ACDDH	P1+20
>> ACDDIF	P1+33
>> ACDDTA(	P1+19
>> ACDDUA	P1+17
>> ACDDUD	P1+18
>> ACDES	P1+24
>> ACDHRS	P1+34
>> ACDJOB	ACDWCD1+6, ACDWCD1+7
>> ACDLP	P1+15, P1+19
>> ACDP1	ACDWCD1+6*, ACDWCD1+7
>> ACDP2	ACDWCD1+7*
>> ACDPFACE	P1+2, F+2
>> ACDPLAA	P1+32
>> ACDPLAAL	P1+32
>> ACDPLAR	P1+31
>> ACDPLARL	P1+31
>> ACDPROBP	P1+14
>> ACDPROV	P1+13
>> ACDPS	P1+23
>> ACDPTA(	P1+15
>> ACDQ	F+3*
ACDQUIT	ACDWCD1+5!, ACDWCD1+6, ACDWCD1+7, F+3*
>> ACDSAVG	P1+29
>> ACDSEX	P1+5
>> ACDSLAVE	F+3
>> ACDSS	P1+25
>> ACDSTAT	P1+30
>> ACDSTATE	P1+7, P1+8
>> ACDSTATN	P1+7*, P1+8
>> ACDSUS	P1+22
>> ACDTGSUB	ACDWCD1+6, ACDWCD1+7
>> ACDTOB	P1+16
>> ACDTRIB	P1+6, P1+9
>> ACDTRIBN	P1+6*, P1+9
>> ACDVET	P1+4
>> DIRUT	F+3
IOF	P1+2, F+4
IOSL	F+1
IOST	P1+2, F+3
U	P1+6, P1+7
>> ZTQUEUED	F+3

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDWCD1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
F	P1+3, P1+4, P1+5, P1+8, P1+9, P1+10, P1+11, P1+12, P1+13, P1+14 , P1+15, P1+16, P1+17, P1+18, P1+19, P1+20, P1+21, P1+22, P1+23, P1+24 , P1+25, P1+26, P1+27, P1+28, P1+29, P1+30, P1+31, P1+32, P1+33, P1+34
P1	ACDWCD1+7