Global: ^AMHTSDRG

Information

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

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)