Global: ^AMHTDRUG

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

Directly Accessed By Routines, Total: 2

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