Global: ^AMHTSDRG

FileMan FileNo	FileMan Filename	Package
9002014.7	MHSS SUICIDE DRUG TYPES	Mental Health Social Services

FileMan FileNo

FileMan Filename

Package

9002014.7

MHSS SUICIDE DRUG TYPES

Package	Total	Routines
Mental Health Social Services	5	AMH30P4 AMHLESF AMHLESF1 AMHSFR AMHUTIL
Patient Care Component	2	APCDESF1 APCDLES1

Package	Total	Routines
Mental Health Social Services	6	AMH30P1 AMH30P2 AMH30P3 AMH30P4 AMHGDSF AMHGESF

Package	Total	FileMan Files
Mental Health Social Services	1	MHSS SUICIDE FORMS(#9002011.65)[#9002011.651111(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DRUG NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `DEC 21, 2004` HELP-PROMPT: `Answer must be 3-60 characters in length.` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9002014.7^B` 1)= S ^AMHTSDRG("B",$E(X,1,30),DA)="" 2)= K ^AMHTSDRG("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002014.7^AA^MUMPS` 1)= S ^AMHTSDRG("AA",X,DA)="" 2)= K ^AMHTSDRG("AA",X,DA)
.02	TEXT BOX	0;2	SET	'1' FOR YES; LAST EDITED: `DEC 22, 2004`

DRUG NAME

0;1

FREE TEXT

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

CROSS-REFERENCE: 9002014.7^B

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

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

CROSS-REFERENCE: 9002014.7^AA^MUMPS

1)= S ^AMHTSDRG("AA",X,DA)=""

2)= K ^AMHTSDRG("AA",X,DA)

TEXT BOX

0;2

SET

DRUG NAME: ACETAMINOPHEN (E.G. TYLENOL)	DRUG NAME: ALCOHOL	DRUG NAME: AMPHETAMINE/STIMULANT	DRUG NAME: ASPIRIN OR ASPIRIN-LIKE MEDICATIONS	DRUG NAME: NON-PRESCRIBED OPIATES (HEROIN)	DRUG NAME: OTHER	DRUG NAME: OTHER ANTIDEPRESSANT	DRUG NAME: OTHER OVER-THE-COUNTER MEDICATIONS
DRUG NAME: OTHER PRESCRIPTION MEDICATION	DRUG NAME: PRESCRIBED OPIATES (NARCOTICS)	DRUG NAME: SEDATIVES/BENZODIAZEPINES/BARBITURATES	DRUG NAME: TRICYCLIC ANTIDEPRESSANT (TCA)

Information