Global: ^ACDPREV(9002170.9

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X K X` LAST EDITED: `MAR 10, 1998` HELP-PROMPT: `Answer must be 1-50 characters in length.` DELETE TEST: `.01,0)= I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002170.9^B` 1)= S ^ACDPREV(9002170.9,"B",$E(X,1,30),DA)="" 2)= K ^ACDPREV(9002170.9,"B",$E(X,1,30),DA)
1	PREVENTION CODE	0;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X K X` LAST EDITED: `MAR 10, 1998` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002170.9^C` 1)= S ^ACDPREV(9002170.9,"C",$E(X,1,30),DA)="" 2)= K ^ACDPREV(9002170.9,"C",$E(X,1,30),DA) 3)= DO NOT DELETE

NAME

0;1

FREE TEXT

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

CROSS-REFERENCE: 9002170.9^B

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

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

PREVENTION CODE

0;2

NUMBER

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

CROSS-REFERENCE: 9002170.9^C

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

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

3)= DO NOT DELETE

Information