Global: ^ACM(44.2

FileMan FileNo	FileMan Filename	Package
9002244.2	*CMS DIAGNOSIS CATEGORY	Case Management System

FileMan FileNo

FileMan Filename

Package

9002244.2

*CMS DIAGNOSIS CATEGORY

Package	Total	FileMan Files
Case Management System	1	CMS DIAGNOSIS LIST ENTRY(#9002244.1)[.02]

Package

Total

FileMan Files

Fields, Total: 1

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DIAGNOSIS CATEGORY	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>55!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `JUN 06, 1989` HELP-PROMPT: `Answer must be 3-55 characters in length.` DELETE TEST: `.01,0)= I $D(^ACM(44.1,"CAT",DA))` 1,0)= I $D(^ACM(44,"B",DA)) W *7,!!?14,"A CLIENT HAS BEEN ASSIGNED THIS DIAGNOSIS.",!?14,"THEREFORE, IT CANNOT BE DELETED.",!! CROSS-REFERENCE: `9002244.2^B` 1)= S ^ACM(44.2,"B",$E(X,1,30),DA)="" 2)= K ^ACM(44.2,"B",$E(X,1,30),DA)

DIAGNOSIS CATEGORY

0;1

FREE TEXT

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

DELETE TEST: .01,0)= I $D(^ACM(44.1,"CAT",DA))

1,0)= I $D(^ACM(44,"B",DA)) W *7,!!?14,"A CLIENT HAS BEEN ASSIGNED THIS DIAGNOSIS.",!?14,"THEREFORE, IT CANNOT BE DELETED.",!!

CROSS-REFERENCE: 9002244.2^B

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

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