Global: ^BIREC

Field #	Name	Loc	Type	Details
.01	REACTION	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `FEB 18, 1998` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `9002084.8^B` 1)= S ^BIREC("B",$E(X,1,30),DA)="" 2)= K ^BIREC("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002084.8^U^MUMPS` 1)= D UPXREF^BIUTL5(X,"^BIREC(") 2)= D KUPXREF^BIUTL5(X,"^BIREC(") This xref simply provides an all-uppercase lookup on selections that are mixed case.
.02	NUMERIC CODE FOR THIS REACTION	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 17, 1998` HELP-PROMPT: `Type a Number between 1 and 20, 0 Decimal Digits` CROSS-REFERENCE: `9002084.8^C` 1)= S ^BIREC("C",$E(X,1,30),DA)="" 2)= K ^BIREC("C",$E(X,1,30),DA)
.03	ACTIVE	0;3	SET	'0' FOR INACTIVE; '1' FOR ACTIVE; LAST EDITED: `AUG 20, 2003` HELP-PROMPT: `Select 0 or INACTIVE to prevent this Reaction from being selectable when entering new data.`

REACTION

0;1

FREE TEXT

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

CROSS-REFERENCE: 9002084.8^B

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

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

CROSS-REFERENCE: 9002084.8^U^MUMPS

1)= D UPXREF^BIUTL5(X,"^BIREC(")

2)= D KUPXREF^BIUTL5(X,"^BIREC(")

This xref simply provides an all-uppercase lookup on selections that are mixed case.

NUMERIC CODE FOR THIS REACTION

0;2

NUMBER

CROSS-REFERENCE: 9002084.8^C

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

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

ACTIVE

0;3

SET

LAST EDITED: AUG 20, 2003
HELP-PROMPT: Select 0 or INACTIVE to prevent this Reaction from being selectable when entering new data.

Information