STANDARD DATA DICTIONARY #120.82 -- GMR ALLERGIES FILE 9/29/25 PAGE 1
STORED IN ^GMRD(120.82, (902 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains a listing of allergies from which user can select.
Per VHA directive XXX, this file has been "locked down" by Data Standardization (DS). The file definition (i.e. data dictionary)
shall not be modified. All additions, changes and deletions to entries in the file shall be done by Enterprise Reference
Terminology (ERT) using the Master File Server (MFS), provided by Common Services (CS). Creating and/or editing locally defined
fields in the file are not permitted. Use of locally defined fields that were created prior to VHA Directive XXX shall not be
supported.
DD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: ALLERGY TYPE (#1)[R], NATIONAL ALLERGY (#2)
POINTED TO BY: CAUSATIVE AGENT field (#2) of the DRUG ALLERGIES sub-field (#100.517) of the ORDER CHECK INSTANCES File (#100.05)
GMR ALLERGIES field (#.01) of the GMR ALLERGIES sub-field (#115.225) of the FOOD PREFERENCES File (#115.2)
GMR ALLERGY field (#1) of the PATIENT ALLERGIES File (#120.8)
CROSS
REFERENCED BY: VUID(AVUID), NAME(B), ALLERGY TYPE(C), SYNONYM(D)
INDEXED BY: NAME (AC), ALLERGY TYPE (AD), VUID & MASTER ENTRY FOR VUID (AMASTERVUID)
LAST MODIFIED: MAY 30,2017@16:08:55
120.82,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X S:$D(X) X=$$UP^XLFSTR(X)
LAST EDITED: JUN 26, 2003
HELP-PROMPT: Answer must be 3-30 characters in length. It will automatically be converted to upper case.
DESCRIPTION:
The name of the allergy/adverse reaction.
PRE-LOOKUP: I $G(DIC(0))["L",'$D(XUMF) K X D EN^DDIOL("Entries must be edited via the Master File Server (MFS).
","","!?5,$C(7)")
DELETE TEST: 1,0)= D:'$D(XUMF) EN^DDIOL("Entries must be inactivated via the Master File Server (MFS).","","!?5,
$C(7)") I $D(XUMF)
LAYGO TEST: 1,0)= D:'$D(XUMF) EN^DDIOL("Entries must be added via the Master File Server (MFS).","","!?5,$C(7)"
) I $D(XUMF)
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 120.82^B
1)= S ^GMRD(120.82,"B",$E(X,1,30),DA)=""
2)= K ^GMRD(120.82,"B",$E(X,1,30),DA)
FIELD INDEX: AC (#618) MUMPS R ACTION
Short Descr: Updates REACTANT field in file 120.8 when changed
Description: Changes to the NAME field in file 120.82 will cause an update to the REACTANT field in file 120.8
for associated entries.
Set Logic: Q:$D(DIU(0)) D QREACT^GMRAUTL2
Kill Logic: Q
X(1): NAME (120.82,.01) (forwards)
120.82,1 ALLERGY TYPE 0;2 FREE TEXT (Required)
INPUT TRANSFORM: D INTTYPE^GMRAUTL(.X)
OUTPUT TRANSFORM: S Y=$$OUTTYPE^GMRAUTL(Y)
LAST EDITED: NOV 21, 1994
HELP-PROMPT: Answer with type(s) of this reaction. E.g., FOOD or DRUG, FOOD or F or DF.
DESCRIPTION: This field contains the type(s) for this allergy/adverse reaction . The user can enter the type(s)
separated by commas, or the following codes: D=Drug, F=Food, O=Other. If codes are used, do not
use commas to separate multiple codes. Examples of valid entries are: DRUG or DRUG, FOOD or D or
DF or OTHER.
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 120.82^C
1)= S ^GMRD(120.82,"C",$E(X,1,30),DA)=""
2)= K ^GMRD(120.82,"C",$E(X,1,30),DA)
FIELD INDEX: AD (#710) MUMPS R ACTION
Short Descr: Update entries in 120.8 when this field changes
Description: When the allergy type field for the entry in this file is changed then all associated entries in
file 120.8 will be updated.
Set Logic: Q:$D(DIU(0)) D QTYPE^GMRAUTL2
Kill Logic: Q
X(1): ALLERGY TYPE (120.82,1) (forwards)
120.82,2 NATIONAL ALLERGY 0;3 SET
'1' FOR NATIONAL ALLERGY;
DESCRIPTION: Indicates whether this allergy was distributed with the national release or is a locally added
allergy.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
120.82,3 SYNONYM 3;0 Multiple #120.823
DESCRIPTION:
A list of synonyms that can also be used to look up this allergy.
120.823,.01 SYNONYM 0;1 FREE TEXT (Multiply asked)
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)
120.82,4 DRUG INGREDIENTS ING;0 POINTER Multiple #120.824
DESCRIPTION:
List of drug ingredients that comprise this particular allergy.
INDEXED BY: DRUG INGREDIENT (AC)
120.824,.01 DRUG INGREDIENT 0;1 POINTER TO DRUG INGREDIENTS FILE (#50.416) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="N GMRA S GMRA=$P(^(0),U) X ""I $L(GMRA),$D(^PS(50.416,""""P"""",GMRA,Y))"" Q" D ^DIC K
DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 17, 2006
DESCRIPTION: This is one of the drug ingredients that make up this causative agent. Must be a primary
ingredient.
SCREEN: S DIC("S")="N GMRA S GMRA=$P(^(0),U) X ""I $L(GMRA),$D(^PS(50.416,""""P"""",GMRA,Y))"" Q"
EXPLANATION: Allow primary ingredients only.
EXECUTABLE HELP:D:DZ="?" EN^DDIOL("Enter one of the drug ingredients that make up this allergy.","","!?5")
WRITE AUTHORITY:^
CROSS-REFERENCE:120.824^B
1)= S ^GMRD(120.82,DA(1),"ING","B",$E(X,1,30),DA)=""
2)= K ^GMRD(120.82,DA(1),"ING","B",$E(X,1,30),DA)
FIELD INDEX: AC (#616) MUMPS R ACTION
Short Descr: Identifies changes to existing ingredients
Set Logic: Q:$D(DIU(0)) S GMRAT="ING" D ^GMRAUTL2
Kill Logic: Q:$D(DIU(0)) S GMRAT="ING" D ^GMRAUTL2
X(1): DRUG INGREDIENT (120.824,.01) (forwards)
120.82,5 VA DRUG CLASSES CLASS;0 POINTER Multiple #120.8205
DESCRIPTION:
List of VA Drug classes that comprise this reactant.
INDEXED BY: VA DRUG CLASSES (AC)
120.8205,.01 VA DRUG CLASSES 0;1 POINTER TO VA DRUG CLASS FILE (#50.605) (Multiply asked)
LAST EDITED: NOV 17, 1994
DESCRIPTION:
One of the VA Drug Classes that make up this reactant.
WRITE AUTHORITY: ^
CROSS-REFERENCE: 120.8205^B
1)= S ^GMRD(120.82,DA(1),"CLASS","B",$E(X,1,30),DA)=""
2)= K ^GMRD(120.82,DA(1),"CLASS","B",$E(X,1,30),DA)
FIELD INDEX: AC (#617) MUMPS R ACTION
Short Descr: Update entries in 120.8 when changes are made to this subfile
Set Logic: Q:$D(DIU(0)) S GMRAT="CLASS" D ^GMRAUTL2
Kill Logic: Q:$D(DIU(0)) S GMRAT="CLASS" D ^GMRAUTL2
X(1): VA DRUG CLASSES (120.8205,.01) (forwards)
120.82,6 CODING SYSTEM 1;0 Multiple #120.822 (Add New Entry without Asking)
DESCRIPTION: This multiple field holds the coding system (i.e., LOINC, SNOMED, RXNORM) that the CODE for this
items pertains to.
120.822,.01 CODING SYSTEM 0;1 FREE TEXT (audited)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: SEP 07, 2016
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION: This field holds the coding system(s) used to code this entry, such as RXNRM , SNOMED, LOINC,
etc.
AUDIT: YES, ALWAYS
WRITE AUTHORITY: ^
CROSS-REFERENCE: 120.822^B
1)= S ^GMRD(120.82,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^GMRD(120.82,DA(1),1,"B",$E(X,1,30),DA)
120.822,.02 CODE 1;0 Multiple #120.8221 (Add New Entry without Asking)
DESCRIPTION: This multiple holds the Alpha Numeric code(s) representing this GMRA ALLERGY within the CODING
SYSTEM field (#6).
120.8221,.01 CODE 0;1 FREE TEXT (audited)
INPUT TRANSFORM: K:$L(X)>20!($L(X)<3) X
LAST EDITED: NOV 01, 2016
HELP-PROMPT: Answer must be 3-20 characters in length.
DESCRIPTION:
This code represents this GMRA ALLERGY within this CODING SYSTEM field (#6).
AUDIT: YES, ALWAYS
CROSS-REFERENCE: 120.8221^B
1)= S ^GMRD(120.82,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^GMRD(120.82,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
120.82,99.98 MASTER ENTRY FOR VUID VUID;2 SET (Required)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 11, 2005
HELP-PROMPT: Select 1 for master VUID or 0 for not a master VUID
DESCRIPTION:
This field identifies the Master entry for a VUID associated with a Term/Concept.
WRITE AUTHORITY: ^
UNEDITABLE
RECORD INDEXES: AMASTERVUID (#614)
120.82,99.99 VUID VUID;1 FREE TEXT (Required)
INPUT TRANSFORM: S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X
LAST EDITED: MAR 11, 2005
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
VHA Unique ID (VUID). A unique meaningless integer assigned to reference terms VHA wide.
WRITE AUTHORITY: ^
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 120.82^AVUID
1)= S ^GMRD(120.82,"AVUID",$E(X,1,30),DA)=""
2)= K ^GMRD(120.82,"AVUID",$E(X,1,30),DA)
File entries by VUID.
RECORD INDEXES: AMASTERVUID (#614)
120.82,99.991 EFFECTIVE DATE/TIME TERMSTATUS;0 DATE Multiple #120.8299
DESCRIPTION:
Describes the pair Status and Effective Date/Time for each reference term.
120.8299,.01 EFFECTIVE DATE/TIME 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 03, 2005
HELP-PROMPT: Enter the date/time the current status was assigned.
DESCRIPTION:
This is the date/time when the Status of the reference term was established.
WRITE AUTHORITY: ^
UNEDITABLE
CROSS-REFERENCE: 120.8299^B
1)= S ^GMRD(120.82,DA(1),"TERMSTATUS","B",$E(X,1,30),DA)=""
2)= K ^GMRD(120.82,DA(1),"TERMSTATUS","B",$E(X,1,30),DA)
Cross-referenced by Effective Date/Time
120.8299,.02 STATUS 0;2 SET (Required)
'1' FOR ACTIVE;
'0' FOR INACTIVE;
LAST EDITED: MAR 03, 2005
HELP-PROMPT: Select 1 for active status or 0 for inactive status.
DESCRIPTION: The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If 'ACTIVE', then the term will
be accessible by end-users to document a particular patient event. If 'INACTIVE', then the term
will only be accessible by the application to display legacy data.
WRITE AUTHORITY: ^
UNEDITABLE
FILES POINTED TO FIELDS
DRUG INGREDIENTS (#50.416) DRUG INGREDIENTS:DRUG INGREDIENT (#.01)
VA DRUG CLASS (#50.605) VA DRUG CLASSES:VA DRUG CLASSES (#.01)
File #120.82
Record Indexes:
AMASTERVUID (#614) RECORD REGULAR IR SORTING ONLY
Short Descr: Identifies Master entry for a VUID
Description: If multiple entries have the same VUID in the file, this cross-reference can be used to identify the Master
entry for a VUID associated with a Term/Concept.
Set Logic: S ^GMRD(120.82,"AMASTERVUID",$E(X(1),1,30),X(2),DA)=""
Kill Logic: K ^GMRD(120.82,"AMASTERVUID",$E(X(1),1,30),X(2),DA)
Whole Kill: K ^GMRD(120.82,"AMASTERVUID")
X(1): VUID (120.82,99.99) (Subscr 1) (Len 30) (forwards)
X(2): MASTER ENTRY FOR VUID (120.82,99.98) (Subscr 2) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):