Global: ^BARECSC

Field #	Name	Loc	Type	Details
.01	STATUS CODE	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 09, 2002` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90056.1^B` 1)= S ^BARECSC("B",$E(X,1,30),DA)="" 2)= K ^BARECSC("B",$E(X,1,30),DA)
.02	INACTIVE FLAG	0;2	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `SEP 09, 2002`
11	CODE DESCRIPTION	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<3) X` LAST EDITED: `SEP 09, 2002` HELP-PROMPT: `Answer must be 3-240 characters in length.`

STATUS CODE

0;1

NUMBER

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

CROSS-REFERENCE: 90056.1^B

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

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

INACTIVE FLAG

0;2

SET

CODE DESCRIPTION

1;1

FREE TEXT

Information