Global: ^AMHTSSU

Information

FileMan FileNo	FileMan Filename	Package
9002014.71	SUICIDE SUBSTANCE DRUG	Mental Health Social Services

Package	Total	Routines
Mental Health Social Services	7	AMHLESF AMHLESF1 AMHRPSU1 AMHRPSU2 AMHRPSU3 AMHSFR AMHUTIL
Patient Care Component	2	APCDESF1 APCDLES1

Package	Total	Routines
Mental Health Social Services	3	AMH30P4 AMHGDSF AMHGESF

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

Field # Name Loc Type Details

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

NAME

0;1

FREE TEXT

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

CROSS-REFERENCE: 9002014.71^B

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

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

CROSS-REFERENCE: 9002014.71^AA^MUMPS

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

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

TEXT BOX

0;2

SET

NAME: ALCOHOL	NAME: AMPHETAMINE/STIMULANT	NAME: CANNABIS (MARIJUANA)	NAME: COCAINE	NAME: HALLUCINOGENS	NAME: INHALANTS	NAME: NON-PRESCRIBED OPIATES (HEROIN)	NAME: OTHER
NAME: PRESCRIBED OPIATES (NARCOTICS)	NAME: SEDATIVES/BENZODIAZEPINES/BARBITURATES