Global: ^AMHTCDDR

FileMan FileNo	FileMan Filename	Package
9002014.81	MHSS CD DIFFERENCE REASON	Mental Health Social Services

FileMan FileNo

FileMan Filename

Package

9002014.81

MHSS CD DIFFERENCE REASON

Package	Total	FileMan Files
Mental Health Social Services	1	BH CD STAGING TOOL(#9002011.06)[.23]

Package

Total

FileMan Files

Fields, Total: 2

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	EXCUSE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X K X` LAST EDITED: `APR 27, 1992` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DELETE TEST: `.01,0)= I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002014.81^B` 1)= S ^AMHTCDDR("B",$E(X,1,30),DA)="" 2)= K ^AMHTCDDR("B",$E(X,1,30),DA)
1	EXCUSE CODE	0;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X K X` LAST EDITED: `APR 27, 1992` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002014.81^C` 1)= S ^AMHTCDDR("C",$E(X,1,30),DA)="" 2)= K ^AMHTCDDR("C",$E(X,1,30),DA)

EXCUSE

0;1

FREE TEXT

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

CROSS-REFERENCE: 9002014.81^B

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

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

EXCUSE CODE

0;2

NUMBER

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

CROSS-REFERENCE: 9002014.81^C

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

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