Global: ^ACDINTV

FileMan FileNo	FileMan Filename	Package
9002173.5	CDMIS INTERVENTIONS	Alcohol Chemical Dependency

Directly Accessed By Routines, Total: 6

Package	Total	Routines
Alcohol Chemical Dependency	6	ACD4P1PB ACDENVCK ACDPPFIX ACDPURG ACDRR2CB ACDWCINV

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Alcohol Chemical Dependency	3	ACDCINV ACDCINV2 ACDPURG

Pointer To FileMan Files, Total: 7

Package	Total	FileMan Files
Alcohol Chemical Dependency	4	CDMIS COMPONENT(#9002170.1)[10, 11] CDMIS PROGRAM(#9002173)[19] CDMIS PLACEMENT REASON(#9002170.4)[12] CDMIS PROBLEM(#9002170.3)[7, #9002173.58(.01)]
Kernel	2	STATE(#5)[23] NEW PERSON(#200)[#9002173.516(.01)]
Utility Tables	1	TRIBE(#9999999.03)[24]

Fields, Total: 26

Field #	Name	Loc	Type	Details
.01	VISIT DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 12, 1994` CROSS-REFERENCE: `9002173.5^B` 1)= S ^ACDINTV("B",$E(X,1,30),DA)="" 2)= K ^ACDINTV("B",$E(X,1,30),DA)
1	CLIENTS NAME	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUL 03, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `9002173.5^D` 1)= S ^ACDINTV("D",$E(X,1,30),DA)="" 2)= K ^ACDINTV("D",$E(X,1,30),DA) 3)= NO DELETION
2	CLIENTS TRIBE CODE (3 DIG)	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `MAY 23, 1994` HELP-PROMPT: `Answer must be 3 characters in length.`
3	CLIENTS SEX (M/F)	0;4	SET	**********************REQUIRED FIELD********************** 'F' FOR FEMALE; 'M' FOR MALE; LAST EDITED: `MAR 20, 1998`
4	CLIENTS AGE	0;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>150)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 12, 1994` HELP-PROMPT: `Type a Number between 1 and 150, 0 Decimal Digits`
5	REFERRAL SOURCE	0;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JAN 14, 1997` HELP-PROMPT: `Answer must be 3-30 characters in length.`
7	PRIMARY PROBLEM	0;8	POINTER TO CDMIS PROBLEM FILE (#9002170.3)	**********************REQUIRED FIELD********************** CDMIS PROBLEM(#9002170.3) LAST EDITED: `MAY 11, 1994`
8	OTHER PROBLEM(S)	1;0	POINTER Multiple #9002173.58	9002173.58
9	SUICIDAL HISTORY (Y/N)	0;9	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; LAST EDITED: `MAY 17, 1994`
10	RECOMMENDED PLACEMENT (COMP)	0;10	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`
11	ACTUAL PLACEMENT (COMP)	0;11	POINTER TO CDMIS COMPONENT FILE (#9002170.1)	**********************REQUIRED FIELD********************** CDMIS COMPONENT(#9002170.1) LAST EDITED: `MAY 17, 1994`
12	DIFFERENCE REASON	0;12	POINTER TO CDMIS PLACEMENT REASON FILE (#9002170.4)	CDMIS PLACEMENT REASON(#9002170.4) LAST EDITED: `MAY 11, 1994`
13	ACTUAL PLACEMENT PROGRAM NAME	0;13	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `JAN 14, 1997` HELP-PROMPT: `Answer must be 1-50 characters in length.`
14	COST	0;14	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X` LAST EDITED: `MAY 23, 1994` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits`
15	TOTAL DAYS OF TREATMENT	0;15	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 11, 1994` HELP-PROMPT: `Type a Number between 0 and 1000, 0 Decimal Digits`
16	INTERVENTION MEMBER(S)	2;0	POINTER Multiple #9002173.516	9002173.516
17	COMPONENT TYPE	0;7	SET	**********************REQUIRED FIELD********************** 'A' FOR ADULT; 'F' FOR FAMILY; 'M' FOR MIXED (ADULT&YOUTH); 'S' FOR STAFF; 'E' FOR ELDERLY ONLY; 'W' FOR WOMEN ONLY; 'Y' FOR YOUTH; LAST EDITED: `JAN 06, 1995`
18	TREATMENT COMPLETE (Y/N)	0;16	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; LAST EDITED: `MAY 17, 1994`
19	CDMIS PROGRAM	0;17	POINTER TO CDMIS PROGRAM FILE (#9002173)	**********************REQUIRED FIELD********************** CDMIS PROGRAM(#9002173) LAST EDITED: `MAY 12, 1994` CROSS-REFERENCE: `9002173.5^C` 1)= S ^ACDINTV("C",$E(X,1,30),DA)="" 2)= K ^ACDINTV("C",$E(X,1,30),DA) 3)= DO NOT DELETE
20	ACTUAL PLACEMENT (TYPE)	0;18	SET	**********************REQUIRED FIELD********************** 'A' FOR ADULT; 'F' FOR FAMILY; 'M' FOR MIXED (ADULT&YOUTH); 'Y' FOR YOUTH; 'S' FOR STAFF; 'E' FOR ELDERLY ONLY; 'W' FOR WOMEN ONLY; LAST EDITED: `JAN 06, 1995`
21	RECOMMENEDED PLACEMENT (TYPE)	0;19	SET	**********************REQUIRED FIELD********************** 'A' FOR ADULT; 'F' FOR FAMILY; 'M' FOR MIXED (ADULT&YOUTH); 'Y' FOR YOUTH; 'S' FOR STAFF; 'E' FOR ELDERLY ONLY; 'W' FOR WOMEN ONLY; LAST EDITED: `JAN 06, 1995`
22	CLIENTS STATE CODE	0;20	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `MAY 18, 1994` HELP-PROMPT: `Answer must be 1-5 characters in length.`
23	CLIENTS RESIDENT STATE	0;21	POINTER TO STATE FILE (#5)	**********************REQUIRED FIELD********************** STATE(#5) LAST EDITED: `MAY 18, 1994`
24	CLIENTS TRIBE	0;22	POINTER TO TRIBE FILE (#9999999.03)	**********************REQUIRED FIELD********************** TRIBE(#9999999.03) LAST EDITED: `MAY 18, 1994`
25	IS CLIENT A VETERAN (Y/N)	0;23	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; LAST EDITED: `MAY 18, 1994`
26	HOURS	0;26	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, 2 Decimal Digits` DESCRIPTION: Enter time taken to conduct this intervention. Time is in hours.fraction of hours where fraction of hours can only be in .25 increments. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

Customize PDF page

Package: Alcohol Chemical Dependency

Global: ^ACDINTV

Information

Description

Directly Accessed By Routines, Total: 6

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 7

Fields, Total: 26