Sub-Field: 120.823

Parent File	Name	Number	Package
GMR ALLERGIES(#120.82)	SYNONYM	120.823	Adverse Reaction Tracking

Parent File

Name

Number

Package

SYNONYM

120.823

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SYNONYM	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X S:$D(X) X=$$UP^XLFSTR(X)` LAST EDITED: `JUL 28, 2003` HELP-PROMPT: `Answer must be 2-30 characters in length. It will automatically be converted to upper case.` DESCRIPTION: This is a synonym for a particular allergy. WRITE AUTHORITY: ^ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `120.823^B` 1)= S ^GMRD(120.82,DA(1),3,"B",$E(X,1,30),DA)="" 2)= K ^GMRD(120.82,DA(1),3,"B",$E(X,1,30),DA) CROSS-REFERENCE: `120.82^D` 1)= S ^GMRD(120.82,"D",$E(X,1,30),DA(1),DA)="" 2)= K ^GMRD(120.82,"D",$E(X,1,30),DA(1),DA)

SYNONYM

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X S:$D(X) X=$$UP^XLFSTR(X)
LAST EDITED: JUL 28, 2003
HELP-PROMPT: Answer must be 2-30 characters in length. It will automatically be converted to upper case.

DESCRIPTION:

This is a synonym for a particular allergy.

WRITE AUTHORITY:  ^

CROSS-REFERENCE: 120.823^B

1)= S ^GMRD(120.82,DA(1),3,"B",$E(X,1,30),DA)=""

2)= K ^GMRD(120.82,DA(1),3,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 120.82^D

1)= S ^GMRD(120.82,"D",$E(X,1,30),DA(1),DA)=""

2)= K ^GMRD(120.82,"D",$E(X,1,30),DA(1),DA)