Global: ^ACDIIF

FileMan FileNo	FileMan Filename	Package
9002170	CDMIS INIT/INFO/FU	Alcohol Chemical Dependency

Package	Total	Routines
Alcohol Chemical Dependency	19	ACDAUTO ACDCLN ACDCLN0 ACDCREAT ACDFLAT3 ACDPCCL3 ACDPREI2 ACDRLU2 ACDRR1C ACDRR2C ACDVIMP1 ACDVSAVE ACDVSRV2 ACDWCD1 ACDWCD60 ACDWCD70 ACDWCD80 ACDWIIF ACDWSTAF
Mental Health Social Services	2	AMHCDBL1 AMHCDBL2

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

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

Package	Total	FileMan Files
Alcohol Chemical Dependency	5	CDMIS COMPONENT(#9002170.1)[15, 17, 101] CDMIS DRUG TABLE(#9002170.5)[#9002170.05(.01)] CDMIS PLACEMENT REASON(#9002170.4)[19] CDMIS PROBLEM(#9002170.3)[.01, #9002170.01(.01)] CDMIS VISIT(#9002172.1)[99.99]

Fields, Total: 30

Field #	Name	Loc	Type	Details
.01	PRIMARY PROBLEM	0;1	POINTER TO CDMIS PROBLEM FILE (#9002170.3)	**********************REQUIRED FIELD********************** CDMIS PROBLEM(#9002170.3) LAST EDITED: `JUL 17, 1989` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9002170^B` 1)= S ^ACDIIF("B",$E(X,1,30),DA)="" 2)= K ^ACDIIF("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002170^AC^MUMPS` 1)= S:$D(ACDDR) DIC("DR")="" 2)= Q
.02	MENTAL HEALTH PROBLEM NARR	0;2	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.
2	CLIENT IN TREATMENT/RECOVERY	0;3	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; 'D' FOR DECEASED; 'M' FOR MOVED/UNABLE TO LOCATE; 'F' FOR REFUSED TO GIVE INFO; 'O' FOR UNABLE TO OBTAIN; LAST EDITED: `JAN 15, 1998`
3	DAYS USED ALCOHOL	0;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X Q:'$D(X) K:X>180&(X'=999) X` LAST EDITED: `MAR 07, 1995` HELP-PROMPT: `Type a Number between 0 and 180, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4	DAYS USED DRUGS	0;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X Q:'$D(X) K:X>180&(X'=999) X` LAST EDITED: `MAR 07, 1995` HELP-PROMPT: `Type a Number between 0 and 180, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
5	DRUG TYPE	2;0	POINTER Multiple #9002170.05	9002170.05
6	DAYS HOSPITALIZED	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X Q:'$D(X) K:X>180&(X'=999) X` LAST EDITED: `MAR 07, 1995` HELP-PROMPT: `Type a Number between 0 and 180, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
7	ALC/DRUG RELATED ARRESTS	0;8	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X Q:'$D(X) K:X>180&(X'=999) X` LAST EDITED: `MAR 07, 1995` HELP-PROMPT: `Type a Number between 0 and 180, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
9	ALC/SUB STAGE	0;10	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 14, 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.
10	PHYSICAL STAGE	0;11	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 14, 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.
11	EMOTIONAL STAGE	0;12	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 14, 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.
12	SOCIAL STAGE	0;13	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 14, 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.
13	CUL/SPIRIT STAGE	0;14	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 14, 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.
14	BEHAVIORAL STAGE	0;15	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 14, 1996` HELP-PROMPT: `Type a Number between 0 and 6, 0 Decimal Digits` DESCRIPTION: `Stage 1 - Acute or life threatening behavior problems. Stage 2 - Major behavioral problem with home, school work, or community. Stage 3 - Starting to accept responsibility for negative behavioral` situations. Stage 4 - Practices reducing negative behavioral situations. Stage 5 - Maintaining positive behavioral control for 30 days or more. Stage 6 - Positive self image, acceptable social behavior for 30 days or more.
14.5	VOC/ED STAGE	0;22	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 10, 1997` 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.
15	RECOMMENDED PLACEMENT (COMP)	0;16	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: `FEB 12, 1996` DESCRIPTION: Staging Average 1.0 - 1.9: DETOX,PRT Staging Average 2.0 - 3.4: PRT,FGH,INOPT Staging Average 3.5 - 4.3: FGH,HWH,TLC,INOPT Staging Average 4.4 - 5.4: OPT,GH,HWH,TLC Staging Average 5.5 - 6.0: HWH/TLC,OPT,AFT,GH SCREEN: `S DIC("S")="S %=$P(^(0),U,2) I %'=""CLO"",%'=""DIS"""` EXPLANATION: `CLOSED & DISCHARGED not allowed` EXECUTABLE HELP: `D RCPL^ACDHELP`
16	RECOMMENDED PLACEMENT (TYPE)	0;17	SET	**********************REQUIRED FIELD********************** 'A' FOR ADULT; 'Y' FOR YOUTH; 'F' FOR FAMILY; 'M' FOR MIXED (ADULT&YOUTH); 'S' FOR STAFF; 'W' FOR WOMEN ONLY; 'E' FOR ELDERLY ONLY; LAST EDITED: `JAN 06, 1995`
17	ACTUAL PLACEMENT (COMP)	0;18	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: `FEB 12, 1996` SCREEN: `S DIC("S")="S %=$P(^(0),U,2) I %'=""CLO"",%'=""DIS"""` EXPLANATION: `CLOSED & DISCHARGED not allowed`
18	ACTUAL PLACEMENT (TYPE)	0;19	SET	**********************REQUIRED FIELD********************** 'A' FOR ADULT; 'Y' FOR YOUTH; 'F' FOR FAMILY; 'M' FOR MIXED (ADULT&YOUTH); 'S' FOR STAFF; 'W' FOR WOMEN ONLY; 'E' FOR ELDERLY ONLY; LAST EDITED: `JAN 06, 1995`
19	DIFFERENCE REASON	0;20	POINTER TO CDMIS PLACEMENT REASON FILE (#9002170.4)	**********************REQUIRED FIELD********************** CDMIS PLACEMENT REASON(#9002170.4) LAST EDITED: `MAY 28, 1995`
20	CLIENT STAGE		COMPUTED	MUMPS CODE: `X ^DD(9002170,20,9.6) S X=X+Y,Y(9002170,20,9)=X S X=$P(Y(9002170,20,1),U,22)>0,Y=X,X=Y(9002170,20,9),X=X+Y,Y=X,X=Y(9002170,20,2),X=X,X=$S(Y:X/Y,1:"*******") S X=$J(X,0,1)` 9.2 = S Y(9002170,20,1)=$S($D(^ACDIIF(D0,0)):^(0),1:"") S X=$P(Y(9002170,20,1),U,10)+$P(Y(9002170,20,1),U,11)+$P(Y(9002170,20,1),U,12)+$P(Y(9002170,20,1),U,13) 9.3 = X ^DD(9002170,20,9.2) S X=X+$P(Y(9002170,20,1),U,14)+$P(Y(9002170,20,1),U,15)+$P(Y(9002170,20,1),U,22),Y(9002170,20,2)=X,Y(9002170,20,3)=X S X=$P(Y(9002170,20,1),U,10) 9.4 = X ^DD(9002170,20,9.3) S X=X>0,Y(9002170,20,4)=X S X=$P(Y(9002170,20,1),U,11)>0,Y=X,X=Y(9002170,20,4),X=X+Y,Y(9002170,20,5)=X S X=$P(Y(9002170,20,1),U,12) 9.5 = X ^DD(9002170,20,9.4) S X=X>0,Y=X,X=Y(9002170,20,5),X=X+Y,Y(9002170,20,6)=X S X=$P(Y(9002170,20,1),U,13)>0,Y=X,X=Y(9002170,20,6),X=X+Y,Y(9002170,20,7)=X 9.6 = X ^DD(9002170,20,9.5) S X=$P(Y(9002170,20,1),U,14)>0,Y=X,X=Y(9002170,20,7),X=X+Y,Y(9002170,20,8)=X S X=$P(Y(9002170,20,1),U,15)>0,Y=X,X=Y(9002170,20,8),X=X ALGORITHM: (`9+`10+`11+`12+`13+`14+`14.5)/((`9>0)+(`10>0)+(`11>0)+(`12>0)+(`13>0)+(`14>0)+(`14.5>0)) (ALWAYS 1 DECIMAL DIGITS) LAST EDITED: `MAR 05, 1996`
21	COMBINATION DRUGS	1;0	SET Multiple #9002170.021	9002170.021
22	RELAPSE LAST 6 MOS	0;9	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `OCT 24, 1989`
23	STATUS	0;23	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` DESCRIPTION: `Early Full Remission. This specifier is used if, for at least 1 month, but for less than 12 months, no criteria for Dependence or Abuse have been met.` Early Partial Remission. This specifier is used if, for at least 1 month, but less than 12 months, one or more criteria for Dependence or Abuse have been met (but the full criteria for Dependence have not been met). Sustained Full Remission. This specifier is used if none of the criteria for Dependence or Abuse have been met at any time during a period of 12 months or longer. Sustained Partial Remission. This specifier is used if full criteria for Dependence have not been met for a period of 12 months or longer, however, one or more criteria for Dependence or Abuse have been met.
25	EXTRACT FLAG	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: `9002170^AD` 1)= S ^ACDIIF("AD",$E(X,1,30),DA)="" 2)= K ^ACDIIF("AD",$E(X,1,30),DA)
30	TOBACCO USE	0;30	SET	'0' FOR NONE; '1' FOR SMOKING; '2' FOR SMOKELESS; '3' FOR SMOKING & SMOKELESS; LAST EDITED: `MAR 11, 1998` DESCRIPTION: Enter the type of tobacco used, if any. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
99.99	CDMIS VISIT DATE	BWP;1	POINTER TO CDMIS VISIT FILE (#9002172.1)	**********************REQUIRED FIELD********************** CDMIS VISIT(#9002172.1) LAST EDITED: `JUL 07, 1989` CROSS-REFERENCE: `9002170^C` 1)= S ^ACDIIF("C",$E(X,1,30),DA)="" 2)= K ^ACDIIF("C",$E(X,1,30),DA)
100	OTHER PROBLEMS	3;0	POINTER Multiple #9002170.01	9002170.01
101	DISPOSITION/COMPONENT	0;21	POINTER TO CDMIS COMPONENT FILE (#9002170.1)	CDMIS COMPONENT(#9002170.1) LAST EDITED: `MAR 20, 1998`
102	HOURS	0;6	NUMBER	**********************REQUIRED FIELD********************** 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` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

Customize PDF page

Package: Alcohol Chemical Dependency

Global: ^ACDIIF

Information

Description

Directly Accessed By Routines, Total: 21

Accessed By FileMan Db Calls, Total: 12

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 5

Fields, Total: 30