Global: ^AMHTSCF

Information

FileMan FileNo	FileMan Filename	Package
9002014.9	MHSS SUICIDE CONTRIBUTING FACTORS	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
Patient Care Component Reports	2	APCLPSU1 APCLPSU3

Package	Total	Routines
Mental Health Social Services	1	AMHGESF

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

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `SEP 08, 2002` HELP-PROMPT: `Answer must be 1-60 characters in length.` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9002014.9^B` 1)= S ^AMHTSCF("B",$E(X,1,30),DA)="" 2)= K ^AMHTSCF("B",$E(X,1,30),DA)
.02	CODE	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 08, 2002` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` CROSS-REFERENCE: `9002014.9^C` 1)= S ^AMHTSCF("C",$E(X,1,30),DA)="" 2)= K ^AMHTSCF("C",$E(X,1,30),DA)

NAME

0;1

FREE TEXT

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

CROSS-REFERENCE: 9002014.9^B

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

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

CODE

0;2

NUMBER

CROSS-REFERENCE: 9002014.9^C

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

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

NAME: BULLYING	NAME: DEATH OF FRIEND OR RELATIVE	NAME: DIVORCE/SEPARATION/BREAKUP OF RELATIONSHIP	NAME: FINANCIAL STRESS	NAME: HISTORY OF MENTAL ILLNESS	NAME: HISTORY OF PHYSICAL ILLNESS	NAME: HISTORY OF SUBSTANCE ABUSE/DEPENDENCE	NAME: LEGAL
NAME: OCCUPATIONAL/EDUCATIONAL PROBLEM	NAME: OTHER	NAME: SUICIDE OF FRIEND OR RELATIVE	NAME: UNKNOWN	NAME: VICTIM OF ABUSE (CURRENT)	NAME: VICTIM OF ABUSE (PAST)