STANDARD DATA DICTIONARY #120.8 -- PATIENT ALLERGIES FILE 9/29/25 PAGE 1
STORED IN ^GMR(120.8, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains patient allergy/adverse reaction information.
FILE SCREEN (SCR-node) : I $P(^(0),U,2)]""
DD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: REACTANT (#.02)[R]
"WRITE": D:+$G(^("ER")) EN^DDIOL("***ENTERED IN ERROR***","","?0") S GMRAHLPX=$G(^GMR(120.8,Y,0)) K GMRAHLPX
POINTED TO BY: RELATED REACTION field (#.03) of the ADVERSE REACTION REPORTING File (#120.85)
LOCAL ALLERGY ID field (#.02) of the ALLERGIES sub-field (#853.52) of the MRAR INSTANCE sub-field (#853.51) of the
VPS MRAR PDO File (#853.5)
ALLERGY POINTER field (#.01) of the ALLERGY POINTER sub-field (#1927.412) of the NUPA CARE PLANS File (#1927.4)
CROSS
REFERENCED BY: PATIENT(ADRG01), DRUG INGREDIENT(ADRG2), ENTERED IN ERROR(ADRG22), VA DRUG CLASS(ADRG3), PATIENT(ANKA01),
ORIGINATION DATE/TIME(AODT), ORIGINATOR SIGN OFF(ASGN), ENTERED IN ERROR(ASGN1), VERIFIED(AVER0), PATIENT(AVER1),
ENTERED IN ERROR(AVER2), PATIENT(B), REACTANT(C), VERIFICATION DATE/TIME(V)
INDEXED BY: PATIENT & REACTANT & GMR ALLERGY & ALLERGY TYPE & ORIGINATION DATE/TIME & ORIGINATOR & OBSERVED/HISTORICAL &
ORIGINATOR SIGN OFF & MECHANISM & VERIFIED & VERIFICATION DATE/TIME & VERIFIER & ENTERED IN ERROR & DATE/TIME
ENTERED IN ERROR & USER ENTERING IN ERROR (AHDR)
LAST MODIFIED: JUL 1,2021@11:28
120.8,.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2) (Required)
LAST EDITED: NOV 28, 1995
DESCRIPTION:
This is the patient to whom this allergy/adverse reaction pertains.
PRE-LOOKUP: I X=" ",$D(^DISV(DUZ,"^GMR(120.8,")),$S($D(^GMR(120.8,+$P(^DISV(DUZ,"^GMR(120.8,"),U),0)):1,1:0),$P
(^(0),U,2)'="" S X=$P(^(0),U,2) D:DIC(0)["E" EN^DDIOL(X,"","")
CROSS-REFERENCE: 120.8^B
1)= S ^GMR(120.8,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.8,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 120.8^AVER1^MUMPS
1)= S GMRA=".01^1" D EN1^GMRAUIX1
2)= S GMRA=".01^0" D EN1^GMRAUIX1
For further information on this xref, see the Cross-reference section of the Adverse Reaction
Tracking Technical Manual.
CROSS-REFERENCE: 120.8^ANKA01^MUMPS
1)= S GMRA=$P($G(^GMR(120.8,DA,0)),U,22) S:GMRA'="" ^GMR(120.8,"ANKA",X,GMRA,DA)="" K GMRA
2)= S GMRA=$P($G(^GMR(120.8,DA,0)),U,22) K:GMRA'="" ^GMR(120.8,"ANKA",X,GMRA,DA) K GMRA
For further information on this xref, see the Cross-reference section of the Allergy Tracking
System Technical Manual.
CROSS-REFERENCE: 120.8^ADRG01^MUMPS
1)= S GMRA=".01^1" D EN1^GMRAUIX0
2)= S GMRA=".01^0" D EN1^GMRAUIX0
For further information on this xref, see the Cross-reference section of the Adverse Reaction
Tracking Technical Manual.
RECORD INDEXES: AHDR (#482)
120.8,.02 REACTANT 0;2 FREE TEXT (Required)
CAUSATIVE AGENT
INPUT TRANSFORM: D EN^DDIOL("Editing not allowed!","","$C(7),!?4") K X
LAST EDITED: AUG 13, 2004
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION: This is the agent to which the patient had this reaction. This is the name of the reactant and
will be the result of a look up on either the GMR Allergies (120.82), National Drug (50.6), Drug
Ingredients (50.416), Local Drug (50) or VA Drug Class (50.605) files.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 120.8^C
1)= S ^GMR(120.8,"C",$E(X,1,30),DA)=""
2)= K ^GMR(120.8,"C",$E(X,1,30),DA)
RECORD INDEXES: AHDR (#482)
120.8,1 GMR ALLERGY 0;3 VARIABLE POINTER
FILE ORDER PREFIX LAYGO MESSAGE
120.82 1 A n GMR ALLERGY
50.6 4 N n NATIONAL DRUG
50 5 D n LOCAL DRUG
50.416 2 I n DRUG INGREDIENTS
50.605 3 C n VA DRUG CLASS
LAST EDITED: JUN 22, 1992
DESCRIPTION: This field is a variable pointer to help relate this allergy to some record in one of the files to
which this field points. The files that are pointed to are the GMR Allergies (120.82) file,
National Drug (50.6) file, Drug (50) file, Drug Ingredients (50.416) file and VA Drug Class
(50.605) file.
RECORD INDEXES: AHDR (#482)
120.8,2 DRUG INGREDIENTS 2;0 POINTER Multiple #120.802 (Add New Entry without Asking)
DESCRIPTION:
List of drug ingredients to which patient had reaction for this allergy/adverse reaction.
INDEXED BY: DRUG INGREDIENT (AHDR)
120.802,.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: SEP 25, 1991
DESCRIPTION:
Drug ingredient to which patient had reaction.
SCREEN: S DIC("S")="N GMRA S GMRA=$P(^(0),U) X ""I $L(GMRA),$D(^PS(50.416,""""P"""",GMRA,Y))"" Q"
EXPLANATION: Select primary drug ingredient.
CROSS-REFERENCE:120.802^B
1)= S ^GMR(120.8,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.8,DA(1),2,"B",$E(X,1,30),DA)
CROSS-REFERENCE:120.8^ADRG2^MUMPS
1)= S GMRA="2^1" D EN2^GMRAUIX0
2)= S GMRA="2^0" D EN2^GMRAUIX0
For further information on this xref, see the Cross-reference section of the Adverse Reaction
Tracking Technical Manual.
FIELD INDEX: AHDR (#483) MUMPS R ACTION
Short Descr: Send data to HDR upon entry or update
Description: Sends data to HDR upon entry or edit of drug ingredients.
Set Logic: Q:$D(DIU(0)) D SETADR^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLADR^GMRAHDR
Whole Kill: Q
X(1): DRUG INGREDIENT (120.802,.01) (forwards)
120.8,3 DRUG CLASSES 3;0 POINTER Multiple #120.803 (Add New Entry without Asking)
DESCRIPTION:
List of VA drug classes to which patient had reaction for this allergy/adverse reaction.
INDEXED BY: VA DRUG CLASS (AHDR)
120.803,.01 VA DRUG CLASS 0;1 POINTER TO VA DRUG CLASS FILE (#50.605) (Multiply asked)
OUTPUT TRANSFORM: S Y=$S($D(^PS(50.605,+Y,0)):$P(^(0),U,2),1:"UNKNOWN")
LAST EDITED: MAY 14, 1991
DESCRIPTION:
VA drug class to which patient had reaction.
CROSS-REFERENCE: 120.803^B
1)= S ^GMR(120.8,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.8,DA(1),3,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 120.8^ADRG3^MUMPS
1)= S GMRA="3^1" D EN2^GMRAUIX0
2)= S GMRA="3^0" D EN2^GMRAUIX0
For further information on this xref, see the Cross-reference section of the Adverse Reaction
Tracking Technical Manual.
FIELD INDEX: AHDR (#484) MUMPS R ACTION
Short Descr: Send data to HDR upon entry or edit
Description: Sends data to HDR when drug classes are added or edited.
Set Logic: Q:$D(DIU(0)) D SETADR^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLADR^GMRAHDR
Whole Kill: Q
X(1): VA DRUG CLASS (120.803,.01) (forwards)
120.8,3.1 ALLERGY TYPE 0;20 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 causative agent. 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.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#482)
120.8,4 ORIGINATION DATE/TIME 0;4 DATE (Required)
INPUT TRANSFORM: S %DT="EPSTXR",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: NOV 25, 1992
DESCRIPTION:
Date/time this allergy/adverse reaction was entered into the system.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 120.8^AODT
1)= S ^GMR(120.8,"AODT",$E(X,1,30),DA)=""
2)= K ^GMR(120.8,"AODT",$E(X,1,30),DA)
RECORD INDEXES: AHDR (#482)
120.8,5 ORIGINATOR 0;5 POINTER TO NEW PERSON FILE (#200) (Required)
DESCRIPTION:
Person who entered this allergy/adverse reaction into the system.
RECORD INDEXES: AHDR (#482)
120.8,6 OBSERVED/HISTORICAL 0;6 SET (Required)
'o' FOR OBSERVED;
'h' FOR HISTORICAL;
LAST EDITED: DEC 07, 1990
DESCRIPTION: Indicates whether this allergy/adverse reaction has been observed by some personnel, or if it is
historical data gathered about the patient.
RECORD INDEXES: AHDR (#482)
120.8,7 *REPORTABLE 0;21 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: APR 11, 1995
DESCRIPTION: This field will allow the data in this file to be unreportable to other packages. Examples of this
include drug-drug interactions which do not have to be shown as allergies/adverse reactions.
Note: This field is no longer supported.
120.8,8 HISTORICAL SEVERITY 0;8 SET
'1' FOR MILD;
'2' FOR MODERATE;
'3' FOR SEVERE;
LAST EDITED: OCT 09, 2020
HELP-PROMPT: Enter the severity of the historical allergy/adverse reaction.
DESCRIPTION:
The severity of a historical allergy/adverse reaction.
120.8,9 HISTORICAL DATE/TIME OF EVENT 0;9 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:X<1 X
LAST EDITED: OCT 09, 2020
HELP-PROMPT: Enter the date/time (in the past) this historical allergy/adverse reaction occurred.
DESCRIPTION:
The date/time a historical allergy/adverse reaction occurred.
120.8,10 REACTIONS 10;0 POINTER Multiple #120.81
DESCRIPTION:
These are the reactions observed for this allergy/adverse reaction.
INDEXED BY: REACTION & OTHER REACTION & ENTERED BY & DATE ENTERED (AHDR)
120.81,.01 REACTION 0;1 POINTER TO SIGN/SYMPTOMS FILE (#120.83) (Multiply asked)
LAST EDITED: AUG 13, 2004
HELP-PROMPT: If an entry does not appear in the list, notify the Allergy Coordinator to have it added.
DESCRIPTION:
One of the reactions for this allergy/adverse reaction.
CROSS-REFERENCE: 120.81^B
1)= S ^GMR(120.8,DA(1),10,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.8,DA(1),10,"B",$E(X,1,30),DA)
RECORD INDEXES: AHDR (#485)
120.81,1 OTHER REACTION 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!(X[",,")!($E(X)=",")!($E(X,$L(X))=",") X
LAST EDITED: JUL 25, 2016
HELP-PROMPT: Answer must be 3-30 characters in length with no leading, trailing or repeating commas.
DESCRIPTION: If this reaction cannot be found in the Sign/Symptoms (120.83) file, then the free text of what
the user typed in will be here, and the GMR Reaction of OTHER will be the value of the Name
field.
Once the SIGNS/SYMPTOMS file is standardized then this field will no longer be needed as all
entries will appear in file 120.83 and free text entries will no longer be allowed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#485)
120.81,2 ENTERED BY 0;3 POINTER TO NEW PERSON FILE (#200)
DESCRIPTION:
The person who entered this reaction into the system.
RECORD INDEXES: AHDR (#485)
120.81,3 DATE ENTERED 0;4 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 02, 1995
DESCRIPTION: This is where the user would enter the date that the reaction (Sign/Symptom) occurred or was
entered into the computer.
RECORD INDEXES: AHDR (#485)
120.8,13 CHART MARKED 13;0 DATE Multiple #120.813 (Add New Entry without Asking)
LAST EDITED: JUN 19, 1992
DESCRIPTION:
A list of those people who indicate that the patient's chart has been marked for this reactant.
INDEXED BY: DATE/TIME & USER ENTERING (AHDR)
120.813,.01 DATE/TIME 0;1 DATE
INPUT TRANSFORM: S %DT="EPSTXR",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: OCT 14, 1992
DESCRIPTION: This field contains the date/time the user indicated to ART that the patient's chart was marked
for this reactant.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 120.813^B
1)= S ^GMR(120.8,DA(1),13,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.8,DA(1),13,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 120.813^A^MUMPS
1)= S ^GMR(120.8,DA(1),13,"A",9999999-X,DA)=""
2)= K ^GMR(120.8,DA(1),13,"A",9999999-X,DA)
For further information on this xref, see the Cross-reference section of the Adverse Reaction
Tracking Technical Manual.
RECORD INDEXES: AHDR (#487)
120.813,1 USER ENTERING 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 20, 1991
DESCRIPTION:
This is the user who indicated that the chart was marked.
UNEDITABLE
RECORD INDEXES: AHDR (#487)
120.8,14 ID BAND MARKED 14;0 DATE Multiple #120.814 (Add New Entry without Asking)
LAST EDITED: JUN 19, 1992
DESCRIPTION:
A list of those people who indicated that the patient's ID band has been marked for this reactant.
INDEXED BY: DATE/TIME & USER ENTERING (AHDR)
120.814,.01 DATE/TIME 0;1 DATE
INPUT TRANSFORM: S %DT="EPSTXR",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: OCT 14, 1992
DESCRIPTION: This is the date/time the user indicated to the ATS that the patient's ID Band was marked for
this reactant.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 120.814^B
1)= S ^GMR(120.8,DA(1),14,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.8,DA(1),14,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 120.814^A^MUMPS
1)= S ^GMR(120.8,DA(1),14,"A",9999999-X,DA)=""
2)= K ^GMR(120.8,DA(1),14,"A",9999999-X,DA)
RECORD INDEXES: AHDR (#488)
120.814,1 USER ENTERING 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 20, 1991
DESCRIPTION:
This is the user who indicated the ID band was marked.
UNEDITABLE
RECORD INDEXES: AHDR (#488)
120.8,15 ORIGINATOR SIGN OFF 0;12 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUN 21, 1991
DESCRIPTION: Indicates whether the originator of this allergy/adverse reaction signed off on it, so that it may
be verified. An allergy/adverse reaction that is not signed off is not part of the patient's
reportable reactions.
CROSS-REFERENCE: 120.8^ASGN^MUMPS
1)= S GMRA="15^1" D EN2^GMRAUIX1
2)= S GMRA="15^0" D EN2^GMRAUIX1
For further information on this xref, see the Cross-reference section of the Adverse Reaction
Tracking Technical Manual.
RECORD INDEXES: AHDR (#482)
120.8,17 MECHANISM 0;14 SET (Required)
'A' FOR ALLERGY;
'P' FOR PHARMACOLOGIC;
'U' FOR UNKNOWN;
LAST EDITED: APR 20, 2017
HELP-PROMPT: Choose the mechanism of the reaction
DESCRIPTION: This field indicates the mechanism of the reaction.
RECORD INDEXES: AHDR (#482)
120.8,19 VERIFIED 0;16 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: FEB 25, 1991
DESCRIPTION: Indicates whether this allergy has been verified by a verifier. The data in this field will only
get put in place if the verifier has signed off using the electronic signature.
CROSS-REFERENCE: 120.8^AVER0^MUMPS
1)= S GMRA="19^1" D EN1^GMRAUIX1
2)= S GMRA="19^0" D EN1^GMRAUIX1
For further information on this xref, see the Cross-reference section of the Adverse Reaction
Tracking Technical Manual.
RECORD INDEXES: AHDR (#482)
120.8,20 VERIFICATION DATE/TIME 0;17 DATE
INPUT TRANSFORM: S %DT="EPSTXR",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: FEB 27, 1995
DESCRIPTION:
The date/time this allergy/adverse reaction has been verified.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 120.8^V
1)= S ^GMR(120.8,"V",$E(X,1,30),DA)=""
2)= K ^GMR(120.8,"V",$E(X,1,30),DA)
This cross-reference is to allow the look-up of reaction verified over a Date/time range.
RECORD INDEXES: AHDR (#482)
120.8,21 VERIFIER 0;18 POINTER TO NEW PERSON FILE (#200)
DESCRIPTION:
The verifier of the allergy/adverse reaction.
RECORD INDEXES: AHDR (#482)
120.8,22 ENTERED IN ERROR ER;1 SET
'1' FOR YES;
LAST EDITED: JUL 26, 1991
DESCRIPTION:
Indicates if this allergy was entered in error.
CROSS-REFERENCE: 120.8^ADRG22^MUMPS
1)= S GMRA="22^1" D EN1^GMRAUIX0
2)= S GMRA="22^0" D EN1^GMRAUIX0
For further information on this xref, see the Cross-reference section of the Adverse Reaction
Tracking Technical Manual.
CROSS-REFERENCE: 120.8^AVER2^MUMPS
1)= S GMRA="22^1" D EN1^GMRAUIX1
2)= S GMRA="22^0" D EN1^GMRAUIX1
For further information on this xref, see the Cross-reference section of the Adverse Reaction
Tracking Technical Manual.
CROSS-REFERENCE: 120.8^ASGN1^MUMPS
1)= S GMRA="22^1" D EN2^GMRAUIX1
2)= S GMRA="22^0" D EN2^GMRAUIX1
For further information on this xref, see the Cross-reference section of the Adverse Reaction
Tracking Technical Manual.
RECORD INDEXES: AHDR (#482)
120.8,23 DATE/TIME ENTERED IN ERROR ER;2 DATE
INPUT TRANSFORM: S %DT="EPSTXR",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
DESCRIPTION:
The date/time the allergy/adverse reaction was entered in error.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#482)
120.8,24 USER ENTERING IN ERROR ER;3 POINTER TO NEW PERSON FILE (#200)
DESCRIPTION:
The person who entered this allergy/adverse reaction in error.
RECORD INDEXES: AHDR (#482)
120.8,26 COMMENTS 26;0 DATE Multiple #120.826
LAST EDITED: JUN 19, 1992
DESCRIPTION:
List of comments entered about this reaction.
INDEXED BY: DATE/TIME COMMENT ENTERED & USER ENTERING & COMMENT TYPE (AHDR)
120.826,.01 DATE/TIME COMMENT ENTERED 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 12, 1993
DESCRIPTION: This field is the date/time this comment was entered. This field is automatically filled by the
system when a user enters a comment.
CROSS-REFERENCE: 120.826^B
1)= S ^GMR(120.8,DA(1),26,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.8,DA(1),26,"B",$E(X,1,30),DA)
RECORD INDEXES: AHDR (#486)
120.826,1 USER ENTERING 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 19, 1992
DESCRIPTION: This field tracks the user who entered this comment. The field is automatically stuffed when
that user enters a comment.
RECORD INDEXES: AHDR (#486)
120.826,1.5 COMMENT TYPE 0;3 SET
'V' FOR VERIFIED;
'O' FOR OBSERVED;
'E' FOR ERRORED;
LAST EDITED: NOV 09, 1995
DESCRIPTION: This field indicates the type of comments. If this field is answered "V", then these comments are
verifier entered. If this field is answered "O", then these are observer comments. If this
field is answered "E", then these are entered in error comments.
CROSS-REFERENCE: 120.826^AVER
1)= S ^GMR(120.8,DA(1),26,"AVER",$E(X,1,30),DA)=""
2)= K ^GMR(120.8,DA(1),26,"AVER",$E(X,1,30),DA)
RECORD INDEXES: AHDR (#486)
120.826,2 COMMENTS 2;0 WORD-PROCESSING #120.8262
DESCRIPTION: This field contains comments that were entered.
LAST EDITED: JUN 22, 1992
DESCRIPTION:
This field contains the entered comments for this agent.
FILES POINTED TO FIELDS
DRUG (#50) GMR ALLERGY (#1)
DRUG INGREDIENTS (#50.416) GMR ALLERGY (#1)
DRUG INGREDIENTS:DRUG INGREDIENT (#.01)
GMR ALLERGIES (#120.82) GMR ALLERGY (#1)
NEW PERSON (#200) ORIGINATOR (#5)
VERIFIER (#21)
USER ENTERING IN ERROR (#24)
REACTIONS:ENTERED BY (#2)
CHART MARKED:USER ENTERING (#1)
ID BAND MARKED:USER ENTERING (#1)
COMMENTS:USER ENTERING (#1)
PATIENT (#2) PATIENT (#.01)
SIGN/SYMPTOMS (#120.83) REACTIONS:REACTION (#.01)
VA DRUG CLASS (#50.605) GMR ALLERGY (#1)
DRUG CLASSES:VA DRUG CLASS (#.01)
VA GENERIC (#50.6) GMR ALLERGY (#1)
File #120.8
Record Indexes:
AHDR (#482) RECORD MUMPS R ACTION
Short Descr: Sends data to HDR upon entry
Description: This cross reference will send the HDR allergy data upon entry or editing of allergy related data.
Set Logic: Q:$D(DIU(0)) D SETADR^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLADR^GMRAHDR
Whole Kill: Q
X(1): PATIENT (120.8,.01) (forwards)
X(2): REACTANT (120.8,.02) (forwards)
X(3): GMR ALLERGY (120.8,1) (forwards)
X(4): ALLERGY TYPE (120.8,3.1) (forwards)
X(5): ORIGINATION DATE/TIME (120.8,4) (forwards)
X(6): ORIGINATOR (120.8,5) (forwards)
X(7): OBSERVED/HISTORICAL (120.8,6) (forwards)
X(8): ORIGINATOR SIGN OFF (120.8,15) (forwards)
X(9): MECHANISM (120.8,17) (forwards)
X(10): VERIFIED (120.8,19) (forwards)
X(11): VERIFICATION DATE/TIME (120.8,20) (forwards)
X(12): VERIFIER (120.8,21) (forwards)
X(13): ENTERED IN ERROR (120.8,22) (forwards)
X(14): DATE/TIME ENTERED IN ERROR (120.8,23) (forwards)
X(15): USER ENTERING IN ERROR (120.8,24) (forwards)
Subfile #120.81
Record Indexes:
AHDR (#485) RECORD MUMPS R ACTION
Short Descr: Send data to HDR upon entry or edit
Description: Sends data to HDR when reactions (sign/symptoms) are added or edited.
Set Logic: Q:$D(DIU(0)) D SETADR^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLADR^GMRAHDR
Whole Kill: Q
X(1): REACTION (120.81,.01) (forwards)
X(2): OTHER REACTION (120.81,1) (forwards)
X(3): ENTERED BY (120.81,2) (forwards)
X(4): DATE ENTERED (120.81,3) (forwards)
Subfile #120.813
Record Indexes:
AHDR (#487) RECORD MUMPS R ACTION
Short Descr: Send HDR data upon entry or edit
Description: Send HDR updated information when the chart is marked.
Set Logic: Q:$D(DIU(0)) D SETADR^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLADR^GMRAHDR
Whole Kill: Q
X(1): DATE/TIME (120.813,.01) (forwards)
X(2): USER ENTERING (120.813,1) (forwards)
Subfile #120.814
Record Indexes:
AHDR (#488) RECORD MUMPS R ACTION
Short Descr: Send data to HDR upon entry or edit
Description: Sends data to HDR related to ID BAND when entered or edited.
Set Logic: Q:$D(DIU(0)) D SETADR^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLADR^GMRAHDR
Whole Kill: Q
X(1): DATE/TIME (120.814,.01) (forwards)
X(2): USER ENTERING (120.814,1) (forwards)
Subfile #120.826
Record Indexes:
AHDR (#486) RECORD MUMPS R ACTION
Short Descr: Sends data to HDR upon entry or edit
Description: Sends data to the HDR when comments are added or updated.
Set Logic: Q:$D(DIU(0)) D SETADR^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLADR^GMRAHDR
Whole Kill: Q
X(1): DATE/TIME COMMENT ENTERED (120.826,.01) (forwards)
X(2): USER ENTERING (120.826,1) (forwards)
X(3): COMMENT TYPE (120.826,1.5) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
GMRA PRINT AUTOVERIFIED MAY 02, 1995@16:17 USER #0 [GMRA PRT AUTO HDR]
GMRA PRT AUTO HDR FEB 29, 1996@08:12 USER #0 @
SORT TEMPLATE(S):
GMRA SORT AUTOVERIFIED MAR 01, 1995@13:06 USER #0
SORT BY: '@VERIFICATION DATE/TIME;PGMRAVFR-GMRAVTO// (User is asked range)
WITHIN VERIFICATION DATE/TIME, SORT BY: '@VERIFIED// (VERIFIED equals 1)
WITHIN VERIFIED, SORT BY: '@VERIFIER// (VERIFIER is null)
WITHIN VERIFIER, SORT BY: PATIENT:WARD LOCATION;"WARD LOCATION: ";C1;S2// (User is asked range)
WITHIN PATIENT:WARD LOCATION, SORT BY: @.01:.101// (All .01:.101 (includes nulls))
WITHIN .01:.101, SORT BY: MECHANISM;C5;"MECHANISM: ";S// (User is asked range)
FORM(S)/BLOCK(S):