Global: ^ACDTDC

FileMan FileNo	FileMan Filename	Package
9002171	CDMIS TRANS/DISC/CLOSE	Alcohol Chemical Dependency

Package	Total	Routines
Alcohol Chemical Dependency	15	ACDAUTO ACDCLN ACDCLN0 ACDCREAT ACDFLAT3 ACDPCCL3 ACDPREI2 ACDRLU2 ACDRR1C ACDRR2C ACDVIMP1 ACDVSAVE ACDVSRV2 ACDWCD2 ACDWTDC
Mental Health Social Services	1	AMHCDBL1

Package	Total	Routines
Alcohol Chemical Dependency	10	ACDCLN ACDDEM ACDDIFF ACDDIK ACDPREI2 ACDPVDSP ACDRESET ACDVIMP1 ACDVSAVE ACDVSRV2

Package	Total	FileMan Files
Alcohol Chemical Dependency	1	CDMIS BILL(#9002172.9)[.06]

Package	Total	FileMan Files
Alcohol Chemical Dependency	5	CDMIS COMPONENT(#9002170.1)[12, 14] CDMIS DRUG TABLE(#9002170.5)[#9002171.02(.01)] CDMIS PLACEMENT REASON(#9002170.4)[16] CDMIS PROBLEM(#9002170.3)[100, #9002171.0102(.01)] CDMIS VISIT(#9002172.1)[99.99]

Fields, Total: 32

Field #	Name	Loc	Type	Details
.01	DAYS USED ALCOHOL	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>180)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 14, 1990` HELP-PROMPT: `Type a Number between 0 and 180, 0 Decimal Digits` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9002171^B` 1)= S ^ACDTDC("B",$E(X,1,30),DA)="" 2)= K ^ACDTDC("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002171^AC^MUMPS` 1)= S:$D(ACDDR) DIC("DR")="" 2)= Q
1	DAYS USED DRUGS	0;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>180)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 14, 1990` HELP-PROMPT: `Type a Number between 0 and 180, 0 Decimal Digits`
2	DRUG TYPE	2;0	POINTER Multiple #9002171.02	9002171.02
3	DAYS HOSPITALIZED	0;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>183)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 17, 1989` HELP-PROMPT: `Type a Number between 0 and 183, 0 Decimal Digits`
4	ALC/DRUG RELATED ARRESTS	0;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>183)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 17, 1989` HELP-PROMPT: `Type a Number between 0 and 183, 0 Decimal Digits`
6	ALC/SUB STAGE	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 06, 1996` HELP-PROMPT: `Type a Number between 0 and 6, 0 Decimal Digits` DESCRIPTION: `Stage 1 - Withdrawal symptoms. Stage 2 - Reported compulsive drinking or drug use. Stage 3 - Preoccupation or daily drinking or frequent binges and/or` denial. Stage 4 - Some alcohol or drug related problem building up to abuse. Stage 5 - Plans to maintain sobriety. Still needs support. Stage 6 - Commitment to long term sobriety. Sober for 30 days or more, still needs support.
7	PHYSICAL STAGE	0;8	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 06, 1996` HELP-PROMPT: `Type a Number between 0 and 6, 0 Decimal Digits` DESCRIPTION: `Stage 1 - Acute or threatening medical conditions, such as liver,` heart, or other major body system. Stage 2 - Needs additional care with health problem(s). Stage 3 - Getting medical attention or medical problem under control or no known medical problems. Stage 4 - Sleeps well, controls diet, needs plan for physical activity. Stage 5 - Maintains good health practices including regular exercise. Still needs support. Stage 6 - Sees results of good health practices for 30 days or more.
8	EMOTIONAL STAGE	0;9	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 06, 1996` HELP-PROMPT: `Type a Number between 0 and 6, 0 Decimal Digits` DESCRIPTION: `Stage 1 - Feels worthless, situation is hopeless, possible suicide,` with alcohol/substance abuse. Stage 2 - Negative attitude, depression, anxiety or anger with alcohol/substance abuse. Stage 3 - Accepts responsibility for emotions & sees need to explore alternatives. Stage 4 - Deals with most situations successfully with support. Stage 5 - Self-confident, deals with emotions successfully for 30 days or more. Stage 6 - Positive self-image, effective problem solving for 30 days or more.
9	SOCIAL STAGE	0;10	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 06, 1996` HELP-PROMPT: `Type a Number between 0 and 6, 0 Decimal Digits` DESCRIPTION: `Stage 1 - No social support & no friends, little or no contact with` family. Stage 2 - Associates with others, to include family, only to use or talk about alcohol & drugs. Stage 3 - Aware of conflicts and/or need to change life style. Family might become involved in recovery. Stage 4 - Belongs to network of non-drinking & non-using friends, has extensive support from family. Stage 5 - Friends & activities, improving the quality of life, still needs support from others, as well as family. Stage 6 - Healthy network of family & friends with many activities for 30 days or more.
10	CUL/SPIRIT STAGE	0;11	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 06, 1996` HELP-PROMPT: `Type a Number between 0 and 6, 0 Decimal Digits` DESCRIPTION: `Stage 1 - Denial that beliefs can have a positive influence on life. Stage 2 - Confusion or conflicts about belief system. Stage 3 - Able to discuss beliefs systems, aware that beliefs can` have a positive influence on life. Stage 4 - Aware that beliefs can have a positive influence on life. Stage 5 - Beliefs contributing to all life areas. Stage 6 - Practicing beliefs consistently for 30 days or more.
11	BEHAVIORAL STAGE	0;12	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 06, 1996` HELP-PROMPT: `Type a Number between 0 and 6, 0 Decimal Digits` DESCRIPTION: `Stage 1 - Acute or life threatening behavioral problems. Stage 2 - Major behavioral problem with home, school, work or` community. Stage 3 - Starting to accept responsibility for negative social behavior. Stage 4 - Practices reducing negative behavioral situations. Stage 5 - Maintaining positive behavioral control with support. Stage 6 - Positive self image, acceptable social behavior for 30 days or more.
11.5	VOC/ED STAGE	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 15, 1998` HELP-PROMPT: `Type a Number between 0 and 6, 0 Decimal Digits` DESCRIPTION: `Stage 1 - Not working/not caring for family. Stage 2 - Some work activity, but not taking much responsibility` in family/home. Stage 3 - Planning on attending school/training or working regularly or full-time. Stage 4 - Basic work/home care related activity, having taken on added responsibility. Stage 5 - Fully engaged in work, homecare, subsistence, or school/training. Stage 6 - Successful in work, homecare, subsistence, and/or schooling and feeling good for 30 or more days.
12	RECOMMENDED PLACEMENT (COMP)	0;13	POINTER TO CDMIS COMPONENT FILE (#9002170.1)	**********************REQUIRED FIELD********************** CDMIS COMPONENT(#9002170.1) INPUT TRANSFORM: `S DIC("S")="S %=$P(^(0),U,2) I %'=""CLO"",%'=""DIS""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 18, 1996` HELP-PROMPT: `Enter the appropriate component based off the staging tool average.` SCREEN: `S DIC("S")="S %=$P(^(0),U,2) I %'=""CLO"",%'=""DIS"""` EXPLANATION: `CLOSED & DISCHARGED not allowed` EXECUTABLE HELP: `D RCPL^ACDHELP`
13	RECOMMENDED PLACEMENT (TYPE)	0;14	SET	**********************REQUIRED FIELD********************** 'A' FOR ADULT; 'Y' FOR YOUTH; 'F' FOR FAMILY; 'M' FOR MIXED (ADULT&YOUTH); 'S' FOR STAFF; 'E' FOR ELDERLY ONLY; 'W' FOR WOMEN ONLY; LAST EDITED: `JAN 06, 1995`
14	ACTUAL PLACEMENT (COMP)	0;15	POINTER TO CDMIS COMPONENT FILE (#9002170.1)	**********************REQUIRED FIELD********************** CDMIS COMPONENT(#9002170.1)
15	ACTUAL PLACEMENT (TYPE)	0;16	SET	**********************REQUIRED FIELD********************** 'A' FOR ADULT; 'Y' FOR YOUTH; 'F' FOR FAMILY; 'M' FOR MIXED (ADULT&YOUTH); 'S' FOR STAFF; 'E' FOR ELDERLY ONLY; 'W' FOR WOMEN ONLY; LAST EDITED: `JAN 06, 1995`
16	DIFFERENCE REASON	0;17	POINTER TO CDMIS PLACEMENT REASON FILE (#9002170.4)	CDMIS PLACEMENT REASON(#9002170.4) LAST EDITED: `APR 26, 1994`
17	INPATIENT DAYS	0;18	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`
18	GOAL ATTAINMENT	0;19	SET	**********************REQUIRED FIELD********************** 'FA' FOR FULLY ATTAINED; 'PA' FOR PARTIALLY ATTAINED; 'NA' FOR NOT ATTAINED; 'NE' FOR NOT ESTABLISHED;
19	T/D/C REASON	0;20	SET	**********************REQUIRED FIELD********************** 'NO' FOR NO FURTHER SVCS REQ/COMPLETED TREATMENT; 'OS' FOR SERVICES BEYOND PROGRAM SCOPE; 'NC' FOR NON-COMPLIANCE TO RULES; 'MO' FOR MOVED FROM AREA/UNABLE TO LOCATE; 'DE' FOR DEATH; 'RS' FOR REFUSED; LAST EDITED: `JAN 06, 1995`
20	DISCHARGE/AFTERCARE PLAN	0;21	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO;
21	CLIENT STAGE		COMPUTED	MUMPS CODE: `X ^DD(9002171,21,9.6) S X=X+Y,Y(9002171,21,9)=X S X=$P(Y(9002171,21,1),U,3)>0,Y=X,X=Y(9002171,21,9),X=X+Y,Y=X,X=Y(9002171,21,2),X=X,X=$S(Y:X/Y,1:"*******") S X=$J(X,0,1)` 9.2 = S Y(9002171,21,1)=$S($D(^ACDTDC(D0,0)):^(0),1:"") S X=$P(Y(9002171,21,1),U,7)+$P(Y(9002171,21,1),U,8)+$P(Y(9002171,21,1),U,9)+$P(Y(9002171,21,1),U,10) 9.3 = X ^DD(9002171,21,9.2) S X=X+$P(Y(9002171,21,1),U,11)+$P(Y(9002171,21,1),U,12)+$P(Y(9002171,21,1),U,3),Y(9002171,21,2)=X,Y(9002171,21,3)=X S X=$P(Y(9002171,21,1),U,7) 9.4 = X ^DD(9002171,21,9.3) S X=X>0,Y(9002171,21,4)=X S X=$P(Y(9002171,21,1),U,8)>0,Y=X,X=Y(9002171,21,4),X=X+Y,Y(9002171,21,5)=X S X=$P(Y(9002171,21,1),U,9) 9.5 = X ^DD(9002171,21,9.4) S X=X>0,Y=X,X=Y(9002171,21,5),X=X+Y,Y(9002171,21,6)=X S X=$P(Y(9002171,21,1),U,10)>0,Y=X,X=Y(9002171,21,6),X=X+Y,Y(9002171,21,7)=X 9.6 = X ^DD(9002171,21,9.5) S X=$P(Y(9002171,21,1),U,11)>0,Y=X,X=Y(9002171,21,7),X=X+Y,Y(9002171,21,8)=X S X=$P(Y(9002171,21,1),U,12)>0,Y=X,X=Y(9002171,21,8),X=X ALGORITHM: (`6+`7+`8+`9+`10+`11+`11.5)/((`6>0)+(`7>0)+(`8>0)+(`9>0)+(`10>0)+(`11>0)+(`11.5>0)) (ALWAYS 1 DECIMAL DIGITS) LAST EDITED: `MAR 06, 1996`
22	RECOMM PLACEMENT		COMPUTED	MUMPS CODE: `X ^DD(9002171,22,9.2) S X=$S('$D(^ACDCOMP(+$P(Y(9002171,22,1),U,13),0)):"",1:$P(^(0),U,1))_" "_$P($P(Y(9002171,22,2),$C(59)_$P(Y(9002171,22,1),U,14)_":",2),$C(59),1)` 9.2 = S Y(9002171,22,2)=$C(59)_$S($D(^DD(9002171,13,0)):$P(^(0),U,3),1:""),Y(9002171,22,1)=$S($D(^ACDTDC(D0,0)):^(0),1:"") ALGORITHM: `12_" "_`13
23	ACT PLACEMENT		COMPUTED	MUMPS CODE: `X ^DD(9002171,23,9.2) S X=$S('$D(^ACDCOMP(+$P(Y(9002171,23,1),U,15),0)):"",1:$P(^(0),U,1))_" "_$P($P(Y(9002171,23,2),$C(59)_$P(Y(9002171,23,1),U,16)_":",2),$C(59),1)` 9.2 = S Y(9002171,23,2)=$C(59)_$S($D(^DD(9002171,15,0)):$P(^(0),U,3),1:""),Y(9002171,23,1)=$S($D(^ACDTDC(D0,0)):^(0),1:"") ALGORITHM: `14_" "_`15
25	EXTRACT DATE	0;25	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 29, 1990` TECHNICAL DESCR: This field is set by software. CROSS-REFERENCE: `9002171^AD` 1)= S ^ACDTDC("AD",$E(X,1,30),DA)="" 2)= K ^ACDTDC("AD",$E(X,1,30),DA)
26	STATUS	0;26	SET	'1' FOR EARLY FULL REMISSION; '2' FOR EARLY PARTIAL REMISSION; '3' FOR SUSTAINED FULL REMISSION; '4' FOR SUSTAINED PARTIAL REMISSION; '5' FOR MAINTAINING SOBRIETY; '6' FOR ABUSE/DEPENDENCE CRITERIA NOT MET; LAST EDITED: `FEB 07, 1995` EXECUTABLE HELP: `D STATUS^ACDHELP`
29	HOURS	0;29	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<.25)!(X?.E1"."3N.N) X Q:'$D(X) Q:X'["." K:$P(X,".",2)_"0"#25 X` LAST EDITED: `MAR 20, 1998` HELP-PROMPT: `Type a Number between .25 and 99, decimal can only be .25, .5, or .75` DESCRIPTION: This field contains the time it took for the provider to evaluate and manage the patient for this transfer/discharge/close entry. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
30	TOBACCO USE	0;30	SET	'0' FOR NONE; '1' FOR SMOKING; '2' FOR SMOKELESS; '3' FOR SMOKING & SMOKELESS; LAST EDITED: `JUL 03, 1996` DESCRIPTION: Enter the type of tobacco used, if any.
99.99	CDMIS VISIT DATE	BWP;1	POINTER TO CDMIS VISIT FILE (#9002172.1)	**********************REQUIRED FIELD********************** CDMIS VISIT(#9002172.1) LAST EDITED: `SEP 18, 1996` CROSS-REFERENCE: `9002171^C` 1)= S ^ACDTDC("C",$E(X,1,30),DA)="" 2)= K ^ACDTDC("C",$E(X,1,30),DA) CROSS-REFERENCE: `9002171^ALT^MUMPS` 1)= S %=^ACDVIS(X,0),%(1)=$P(%,U,5),%=$P(%,U) S ^ACDTDC("ALT",%(1),%,DA)="" 2)= S %=^ACDVIS(X,0),%(1)=$P(%,U,5),%=$P(%,U) K ^ACDTDC("ALT",%(1),%,DA) This xref is used by ^ACDFUL2 to limit followups to the latest TD for a patient.
100	PRIMARY PROBLEM	0;27	POINTER TO CDMIS PROBLEM FILE (#9002170.3)	**********************REQUIRED FIELD********************** CDMIS PROBLEM(#9002170.3) LAST EDITED: `NOV 05, 1991`
101	MENTAL HEALTH PROBLEM NARR	0;28	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<3) X` LAST EDITED: `AUG 15, 1996` HELP-PROMPT: `Answer must be 3-100 characters in length.` DESCRIPTION: Enter the provider narrative that describes this client's mental health problem.
102	OTHER PROBLEMS	3;0	POINTER Multiple #9002171.0102	9002171.0102

Customize PDF page

Package: Alcohol Chemical Dependency

Global: ^ACDTDC

Information

Description

Directly Accessed By Routines, Total: 16

Accessed By FileMan Db Calls, Total: 10

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 5

Fields, Total: 32