Sub-Field: 9002014.11101

Parent File	Name	Number	Package
MHSS EXPORT RECORD DEFINITION(#9002014.1)	ITEMS	9002014.11101	Mental Health Social Services

Parent File

Name

Number

Package

ITEMS

9002014.11101

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ITEMS	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X` LAST EDITED: `MAY 31, 2004` HELP-PROMPT: `Type a Number between 1 and 99999, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002014.11101^B` 1)= S ^AMHRECD(DA(1),11,"B",$E(X,1,30),DA)="" 2)= K ^AMHRECD(DA(1),11,"B",$E(X,1,30),DA)
.02	ITEM	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 31, 2004` HELP-PROMPT: `Answer must be 3-30 characters in length.`
1	GET X	1;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `MAY 31, 2004` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @

ITEMS

0;1

NUMBER

CROSS-REFERENCE: 9002014.11101^B

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

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

ITEM

0;2

FREE TEXT

GET X

1;E1,245

MUMPS