Global: ^ACM(54.1

Field #	Name	Loc	Type	Details
.01	MEDICATION	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `OCT 18, 1989` HELP-PROMPT: `Answer must be 3-50 characters in length.` DELETE TEST: `.01,0)= I $D(^ACM(54,"B",DA)) W *7,!!,"There are still clients with this medication.",!,"Therefore, it cannot be deleted.",!` CROSS-REFERENCE: `9002254.1^B` 1)= S ^ACM(54.1,"B",$E(X,1,30),DA)="" 2)= K ^ACM(54.1,"B",$E(X,1,30),DA)
.02	CATEGORY	0;2	POINTER TO *CMS MEDICATION LIST CATEGORY FILE (#9002254.2)	*CMS MEDICATION LIST CATEGORY(#9002254.2) LAST EDITED: `FEB 14, 1990` CROSS-REFERENCE: `9002254.1^CAT` 1)= S ^ACM(54.1,"CAT",$E(X,1,30),DA)="" 2)= K ^ACM(54.1,"CAT",$E(X,1,30),DA)
.03	REGISTER	RG;0	POINTER Multiple #9002254.11	9002254.11

MEDICATION

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: OCT 18, 1989
HELP-PROMPT: Answer must be 3-50 characters in length.
DELETE TEST: .01,0)= I $D(^ACM(54,"B",DA)) W *7,!!,"There are still clients with this medication.",!,"Therefore, it cannot be deleted.",!

CROSS-REFERENCE: 9002254.1^B

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

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

CATEGORY

0;2

POINTER TO *CMS MEDICATION LIST CATEGORY FILE (#9002254.2)

CROSS-REFERENCE: 9002254.1^CAT

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

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

.03 REGISTER RG;0 POINTER Multiple #9002254.11 9002254.11

Information