Routine: ACDWDRV2

Information

ACDWDRV2 ; IHS/ADC/EDE/KML - DRV 2 FOR RPTS FROM ^ACDTDC 10:14 NOV 17,1993 ;

Source Information

Source file <ACDWDRV2.m>

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Alcohol Chemical Dependency	13	PRHDR^ACD ^ACDWK ^ACDWQ ^ACDWRP13 ^ACDWRP14 ^ACDWRP15 ^ACDWRP4 ^ACDWRP5 ^ACDWRP6 ^ACDWRQ ^ACDWTDC (ASF,C,C1,HV)^ACDWUTL ^ACDWVIS
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Alcohol Chemical Dependency	1	ACDWUTL

Entry Points

Name	Comments	DBIA/ICR reference
EOJ	;EP - EOJ FOR XBDBQUE
60	;;AVE CLIENT STAGE BY COMPONENT
61	;;CT'S BY HOSPITAL DAYS
62	;;PLACEMENT DIFFERENCE VOLUME
63	;;CT'S BY PRIMARY PROBLEM
64	;;CT'S BY OTHER PROBLEM
65	;;CT'S FOR OTHER PROBLEM WITHIN PRIMARY PROBLEM
G62
G63
G60
G61
DIR	;Menu
G65
G64
P2	;
H	;EP
L	;EP TM entry
HED	;H-vars
P	;EP - PRINT REPORT
G51
G50
G57
G56
G55
G54
G59
G58
ACDV	;Visit
G53
59	;;CT'S BY ALCOHOL/DRUG RELATED ARRESTS
58	;;CT'S FOR AVE DAYS USED ALCOHOL WITHIN CONTACT
G52
55	;;CT'S BY DIFFERENCE REASON
54	;;CT'S BY RECOMMENDED PLACEMENT
57	;;CT'S FOR AVE DAYS USED DRUGS WITHIN CONTACT
56	;;CT'S BY GOAL TREATMENT STATUS
51	;;CT'S BY DRUG TYPE
50	;;CT'S WITH A DISCHARGE/AFTERCARE PLAN
53	;;CT'S BY ACTUAL PLACEMENT
52	;;CT'S BY T/ D/ C/ REASON

External References

Name	Field # of Occurrence
PRHDR^ACD	ACDWDRV2+4, DIR+2
^ACDWK	ACDWDRV2+4
^ACDWQ	DIR+8
^ACDWRP13	G60
^ACDWRP14	G57, G58
^ACDWRP15	G62
^ACDWRP4	G59, G61
^ACDWRP5	G50, G51, G52, G53, G54, G55, G56, G63, G64
^ACDWRP6	G65
^ACDWRQ	DIR+7
^ACDWTDC	P2+6
ASF^ACDWUTL	H+1
C^ACDWUTL	51+1
C1^ACDWUTL	64+1
HV^ACDWUTL	HED+1
^ACDWVIS	P2+3
^DIR	DIR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,I," ",$P($T(@I),";",3) Line Location: DIR+5
Function Call: WRITE	Prompt: ! Line Location: DIR+5
Function Call: WRITE	Prompt: @IOF,!,"CDMIS T/ D/ C REPORT # "_$S(ACDTG:ACDTG,1:$E(ACDTG,2,6)),!,$P(ACDH(0),U) Line Location: H+1
Function Call: WRITE	Prompt: ?68,"PG ",ACDH(3),!,ACDH(50),$P(ACDH(0),U,2) Line Location: H+1
Function Call: WRITE	Prompt: ?68,"PG ",ACDH(3),!,ACDH(50),$P(ACDH(0),U,2) Line Location: H+1
Routine Call	DIR Line Location: DIR+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACDTDC("C"	ACDV+8
^ACDVIS("B"	ACDV+3, ACDV+5
^TMP("ACD"	ACDV+1!, ACDV+6, ACDV+8, P2+2, P2+5, 50+1, 51+3, 52+1, 53+2, 54+2 , 55+1, 56+1, 57+1, 58+1, 59+1, 60+3, 61+1, 62+2, 63+1, 64+3 , 65+3, EOJ+1!, EOJ+2

Label References

Name	Line Occurrences
@(	P2+7, HED+2
ACDV	L+3
DIR	ACDWDRV2+4
H	HED+2
HED	P2+11
P2	P+3

Naked Globals

Name	Field # of Occurrence
^(	50+1, 51+3, 52+1, 53+2, 54+2, 55+1, 56+1, 57+1, 58+1, 59+1 , 60+3, 61+1, 62+2, 63+1, 64+3, 65+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACD	ACDV+3*, ACDV+5
>> ACD1	ACDV+7, ACDV+8, P2+4, P2+5, P2+6
>> ACDAAR	59+1
>> ACDADD	60+2*, 60+3
ACDAGE	EOJ+4!
ACDAREA	EOJ+3!
>> ACDBS	60+2
ACDBT	ACDV+1, ACDV+6, ACDV+8, P2+2, P2+5, 50+1, 51+3, 52+1, 53+2, 54+2 , 55+1, 56+1, 57+1, 58+1, 59+1, 60+3, 61+1, 62+2, 63+1, 64+3 , 65+3, EOJ+1, EOJ+2, EOJ+4!
>> ACDC(1	G50, G51, G52, G53, G54, G55, G56, G57, G58, G59 , G60, G61, G62, G63, G64, G65
>> ACDC(2	G50, G51, G52, G53, G54, G55, G56, G57, G58, G59 , G60, G61, G62, G63, G64, G65
>> ACDC(3	G50, G51, G52, G53, G54, G55, G56, G59, G61, G62 , G63, G64, G65*
>> ACDC(4	G50, G51, G52, G53, G54, G55, G56, G62, G63, G64 , G65*
>> ACDC(5	G65*
>> ACDCBO	53+1, 53+2, 54+1, 54+2, 60+1, 60+3, 62+1, 62+2
>> ACDCOMB	62+1*, 62+2
>> ACDCOMCL	60+1
>> ACDCOMT	60+1
>> ACDCONTL	57+1, 58+1
>> ACDCS	60+2
>> ACDDA	P2+3, P2+6
>> ACDDAP	50+1
>> ACDDFNP	P2+7, 50+1, 51+3, 52+1, 53+2, 54+2, 55+1, 56+1, 59+1, 61+1 , 63+1, 64+3, 65+3
>> ACDDH	61+1
>> ACDDIF	55+1, 62+2
>> ACDDO	ACDV+2*
>> ACDDT	51+2*, 51+3
>> ACDDTA(	51+2
>> ACDDUA	58+1*
>> ACDDUD	57+1*
>> ACDES	60+2
ACDFAC	EOJ+3!
ACDFOLL	EOJ+4!
>> ACDFR	L+1, L+2, ACDV+3, P+2, P+3
>> ACDGA	56+1
ACDH	EOJ+4!
ACDH(0	HED+1*, H+1
ACDH(10	G53, G62
ACDH(11	G54, G62
ACDH(12	G57
ACDH(13	G58
ACDH(14	G55, G62
ACDH(2	H+1
ACDH(3	H+1*
ACDH(4	H+1
ACDH(50	H+1
ACDH(51	G63, G65
ACDH(52	G64, G65
ACDH(55	G60
ACDH(56	G60
ACDH(57	G59
ACDH(58	G61
ACDH(59	G59, G61
ACDH(6	G50, G51, G52, G53, G54, G55, G56, G62, G63, G64 , G65
ACDH(60	G59
ACDH(61	G61
ACDH(7	G50, G51, G52, G53, G54, G55, G56, G63, G64, G65
ACDH(8	G50, G51, G52, G53, G54, G55, G56, G63, G64, G65
ACDH(9	G57, G58
ACDHRS	EOJ+4!
ACDJOB	ACDV+1, ACDV+6, ACDV+8, P2+2, P2+5, 50+1, 51+3, 52+1, 53+2, 54+2 , 55+1, 56+1, 57+1, 58+1, 59+1, 60+3, 61+1, 62+2, 63+1, 64+3 , 65+3, EOJ+1, EOJ+2, EOJ+4!
>> ACDLOC	L+1, L+2, P+2, P+3, HED+1
ACDNW	EOJ+3!
ACDNW(0	P+3*
ACDNW(1	L+1, L+2, P+2, P+3
ACDNW(2	L+1, L+2, P+2, P+3
ACDNW(3	L+1, L+2, P+2, P+3
ACDNW(4	L+1, P+2, P+3
ACDOK	P2+7, EOJ+4!
ACDOPT	EOJ+4!
>> ACDPLAA	53+1, 62+1
>> ACDPLAA1	53+1, 62+1
ACDPLAAL	EOJ+4!
>> ACDPLAR	54+1, 62+1
>> ACDPLAR1	54+1, 62+1
ACDPLARL	EOJ+4!
>> ACDPROBP	63+1, 65+3
>> ACDPS	60+2
ACDPT	64+2, 64+3, 65+2, 65+3, EOJ+4!
>> ACDPTA(	64+2, 65+2
ACDQ	EOJ+3!
ACDQUIT	ACDWDRV2+4!, DIR+5*, DIR+6, DIR+7!
>> ACDRPTS	L+1, P+2
>> ACDSS	60+2
ACDSTA	EOJ+3!
ACDSTAT	EOJ+4!
ACDSU	EOJ+3!
>> ACDSUS	60+2
>> ACDTDCR	52+1
ACDTG	P+3, P2+7, HED+2, H+1, EOJ+4!
ACDTGSUB	P+3*, 50+1, 51+3, 52+1, 53+2, 54+2, 55+1, 56+1, 57+1, 58+1 , 59+1, 60+3, 61+1, 62+2, 63+1, 64+3, 65+3, EOJ+4!
>> ACDTO	L+1, L+2, ACDV+3, P+2, P+3
ACDTRB	EOJ+3!
>> ACDV	ACDV+4, ACDV+5, ACDV+6, ACDV+8, P2+1, P2+2, P2+3, P2+5
ACDVET	EOJ+4!
ACDWDRV	DIR+6!, EOJ+4!
ACDWDRV(2	DIR+1, HED+1
>> DIR("A"	DIR+5*
>> DIR(0	DIR+5*
DIRUT	P+1!, P+3, P2+2, P2+5, P2+10
>> DTOUT	DIR+5
>> I	DIR+5*
IO	HED+2
IOF	H+1
U	HED+1, H+1
>> X	DIR+5

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDWDRV2

Call Graph Total: 14

Caller Graph Total: 1