Global: ^YSTX(604.26

FileMan FileNo	FileMan Filename	Package
604.26	ASI PROGRAM TYPE	Mental Health

FileMan FileNo

FileMan Filename

Package

604.26

ASI PROGRAM TYPE

Package	Total	Routines
Mental Health	2	YSASFM YSASOL

Package	Total	FileMan Files
Mental Health	1	ADDICTION SEVERITY INDEX(#604)[2]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ID	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 23, 1997` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `This field contains the IDentification number for the substance abuse program type as defined in the substance abuse annual report from VA headquarters.` CROSS-REFERENCE: `604.26^B` `1)= S ^YSTX(604.26,"B",$E(X,1,30),DA)=""` `2)= K ^YSTX(604.26,"B",$E(X,1,30),DA)`
1	TITLE	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>70!($L(X)<1) X` LAST EDITED: `JAN 23, 1997` HELP-PROMPT: `Answer must be 1-70 characters in length.` DESCRIPTION: `This field contains the TITLE of the substance abuse program type as defined in the substance abuse annual report from VA headquarters.` CROSS-REFERENCE: `604.26^C^MUMPS` `1)= S ^YSTX(604.26,"C",X,DA)=""` `2)= K ^YSTX(604.26,"C",X,DA)`
3	ACTIVE	0;3	SET	'1' FOR ACTIVE; '0' FOR INACTIVE; LAST EDITED: `JAN 23, 1997` DESCRIPTION: `Activate a program only if its available at your site.`

0;1

NUMBER

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

INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 23, 1997
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION:
This field contains the IDentification number for the substance abuse program type as defined in the substance abuse annual report from VA headquarters.
CROSS-REFERENCE: 604.26^B
1)= S ^YSTX(604.26,"B",$E(X,1,30),DA)=""
2)= K ^YSTX(604.26,"B",$E(X,1,30),DA)

TITLE

0;2

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>70!($L(X)<1) X
LAST EDITED: JAN 23, 1997
HELP-PROMPT: Answer must be 1-70 characters in length.
DESCRIPTION:
This field contains the TITLE of the substance abuse program type as defined in the substance abuse annual report from VA headquarters.
CROSS-REFERENCE: 604.26^C^MUMPS
1)= S ^YSTX(604.26,"C",X,DA)=""
2)= K ^YSTX(604.26,"C",X,DA)

ACTIVE

0;3

SET

Information