Global: ^BNITOA

Field #	Name	Loc	Type	Details
.01	TYPE OF ACTIVITY	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `OCT 18, 2005` HELP-PROMPT: `Answer must be 3-50 characters in length` CROSS-REFERENCE: `90511.03^B` 1)= S ^BNITOA("B",$E(X,1,30),DA)="" 2)= K ^BNITOA("B",$E(X,1,30),DA)
.02	CODE	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 18, 2005` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` CROSS-REFERENCE: `90511.03^C` 1)= S ^BNITOA("C",$E(X,1,30),DA)="" 2)= K ^BNITOA("C",$E(X,1,30),DA)
.03	ASK FOR OTHER TEXT?	0;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 18, 2005`

TYPE OF ACTIVITY

0;1

FREE TEXT

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

CROSS-REFERENCE: 90511.03^B

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

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

CODE

0;2

NUMBER

CROSS-REFERENCE: 90511.03^C

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

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

ASK FOR OTHER TEXT?

0;3

SET

Information