Global: ^AMHTDRUG

FileMan FileNo	FileMan Filename	Package
9002013.5	MHSS CDMIS DRUG TYPES	Mental Health Social Services

FileMan FileNo

FileMan Filename

Package

9002013.5

MHSS CDMIS DRUG TYPES

Package	Total	Routines
Mental Health Social Services	2	AMHEYD2 AMHLEFP4

Package	Total	FileMan Files
Mental Health Social Services	1	BH CD STAGING TOOL(#9002011.06)[#9002011.41(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DRUG	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X K X` LAST EDITED: `SEP 10, 1997` HELP-PROMPT: `Answer must be 3-30 characters in length.` DELETE TEST: `.01,0)= I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002013.5^B` 1)= S ^AMHTDRUG("B",$E(X,1,30),DA)="" 2)= K ^AMHTDRUG("B",$E(X,1,30),DA)
1	DRUG CODE	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X Q:'$D(X) K:$L(X)>2!($L(X)<1) X K X` LAST EDITED: `SEP 10, 1997` HELP-PROMPT: `Answer must be 1-2 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002013.5^C` 1)= S ^AMHTDRUG("C",$E(X,1,30),DA)="" 2)= K ^AMHTDRUG("C",$E(X,1,30),DA)

DRUG

0;1

FREE TEXT

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9002013.5^B

1)= S ^AMHTDRUG("B",$E(X,1,30),DA)=""

2)= K ^AMHTDRUG("B",$E(X,1,30),DA)

DRUG CODE

0;2

FREE TEXT

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9002013.5^C

1)= S ^AMHTDRUG("C",$E(X,1,30),DA)=""

2)= K ^AMHTDRUG("C",$E(X,1,30),DA)

DRUG: ALCOHOL	DRUG: AMPHETAMINES	DRUG: BARBITURATES	DRUG: CANNABIS	DRUG: COCAINE	DRUG: HALLUCINOGENS	DRUG: IV USE	DRUG: NO ALCOHOL/DRUGS/TOBACCO
DRUG: OPIATES	DRUG: SMOKELESS TOBACCO	DRUG: SMOKING TOBACCO	DRUG: SNIFFING/INHALANTS	DRUG: TRANQUILIZERS/SEDATIVES

Information