Global: ^ACM(53.1

Field #	Name	Loc	Type	Details
.01	ETIOLOGY	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(53,"B",DA)) W *7,!!,"There are still clients with this etiology.",!,"Therefore, it cannot be deleted."` CROSS-REFERENCE: `9002253.1^B` 1)= S ^ACM(53.1,"B",$E(X,1,30),DA)="" 2)= K ^ACM(53.1,"B",$E(X,1,30),DA)
.02	CATEGORY	0;2	POINTER TO *CMS ETIOLOGY CATEGORY FILE (#9002253.2)	*CMS ETIOLOGY CATEGORY(#9002253.2) CROSS-REFERENCE: `9002253.1^CAT` 1)= S ^ACM(53.1,"CAT",$E(X,1,30),DA)="" 2)= K ^ACM(53.1,"CAT",$E(X,1,30),DA)
.03	REGISTER	RG;0	POINTER Multiple #9002253.11	9002253.11

ETIOLOGY

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(53,"B",DA)) W *7,!!,"There are still clients with this etiology.",!,"Therefore, it cannot be deleted."

CROSS-REFERENCE: 9002253.1^B

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

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

CATEGORY

0;2

POINTER TO *CMS ETIOLOGY CATEGORY FILE (#9002253.2)

CROSS-REFERENCE: 9002253.1^CAT

1)= S ^ACM(53.1,"CAT",$E(X,1,30),DA)=""

2)= K ^ACM(53.1,"CAT",$E(X,1,30),DA)

.03 REGISTER RG;0 POINTER Multiple #9002253.11 9002253.11

Information