Global: ^ACM(51.1

Information

FileMan FileNo	FileMan Filename	Package
9002251.1	CMS REGISTER CRITERIA	Case Management System

Package	Total	Routines
Case Management System	3	ACMADDM2 ACMRDC ACMRGA02

Package	Total	Routines
Case Management System	2	ACMADDM2 ACMRGA02

Package	Total	FileMan Files
Case Management System	1	CMS REGISTER CRITERIA FOR THE CLIENT(#9002251)[.01]

Package	Total	FileMan Files
Case Management System	1	CMS REGISTER TYPE(#9002241.1)[#9002251.12(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CRITERION	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` DELETE TEST: `.01,0)= I $D(^ACM(51,"B",DA)) W *7,!!,"There are still clients with this diagnostic criterion.",!,"Therefore, it cannot be deleted."` CROSS-REFERENCE: `9002251.1^B` 1)= S ^ACM(51.1,"B",$E(X,1,30),DA)="" 2)= K ^ACM(51.1,"B",$E(X,1,30),DA)
.03	REGISTER	RG;0	POINTER Multiple #9002251.12	9002251.12
1	DESCRIPTION	1;0	WORD-PROCESSING #9002251.11

CRITERION

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DELETE TEST: .01,0)= I $D(^ACM(51,"B",DA)) W *7,!!,"There are still clients with this diagnostic criterion.",!,"Therefore, it cannot be deleted."

CROSS-REFERENCE: 9002251.1^B

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

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

.03 REGISTER RG;0 POINTER Multiple #9002251.12 9002251.12

1 DESCRIPTION 1;0 WORD-PROCESSING #9002251.11