Global: ^BUDCLST2

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>120!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `NOV 07, 2012` HELP-PROMPT: `Answer must be 3-120 characters in length.` CROSS-REFERENCE: `90667.6^B` 1)= S ^BUDCLST2("B",$E(X,1,30),DA)="" 2)= K ^BUDCLST2("B",$E(X,1,30),DA)
.02	ORDER ON MENU	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 07, 2012` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` CROSS-REFERENCE: `90667.6^OR` 1)= S ^BUDCLST2("OR",$E(X,1,30),DA)="" 2)= K ^BUDCLST2("OR",$E(X,1,30),DA)
1	MUMPS CODE TO EXECUTE	1;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `NOV 07, 2012` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @

NAME

0;1

FREE TEXT

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

CROSS-REFERENCE: 90667.6^B

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

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

ORDER ON MENU

0;2

NUMBER

CROSS-REFERENCE: 90667.6^OR

1)= S ^BUDCLST2("OR",$E(X,1,30),DA)=""

2)= K ^BUDCLST2("OR",$E(X,1,30),DA)

MUMPS CODE TO EXECUTE

1;E1,245

MUMPS

Information