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: ^
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)