STANDARD DATA DICTIONARY #120.85 -- ADVERSE REACTION REPORTING FILE 9/29/25 PAGE 1
STORED IN ^GMR(120.85, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains all the data for an Observed Drug reaction.
DD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: PATIENT (#.02)[R], RELATED REACTION (#.03)[R]
"WRITE": S GMRAHLPX=$P($G(^(0)),U,15),GMRAHLPX=" "_$P($G(^GMR(120.8,+GMRAHLPX,0)),U,2) D EN^DDIOL(GMRAHLPX,"","?0") S GMRAH
LPX=$G(@(DIC_Y_",0)")) K GMRAHLPX
CROSS
REFERENCED BY: DATE REPORTED(ARDT), DATE/TIME OF EVENT(B), RELATED REACTION(C), PATIENT(D)
INDEXED BY: DATE/TIME OF EVENT & PATIENT & RELATED REACTION & OBSERVER & DATE REPORTED & REPORTING USER & QUESTION #1 & QUESTION
#2 & QUESTION #3 & QUESTION #4 & QUESTION #5 & NO. DAY HOSPITALIZED & QUESTION #6 & QUESTION #7 & QUESTION #8 &
QUESTION #9 & QUESTION #10 & SEVERITY & DATE MD NOTIFIED & FDA QUESTION #1 & FDA QUESTION #2 & FDA QUESTION #3 & FDA
QUESTION #4 & FDA QUESTION #5 & DATE REPORTED TO FDA & DATE OF PATIENT CONSENT TO MFR & DATE SENT TO MFR & DATE SENT
TO VAERS & P&T ACTION FDA REPORT & P&T ACTION MFR REPORT & REPORTER NAME & REPORTER ADDRESS1 & REPORTER ADDRESS2 &
REPORTER ADDRESS3 & REPORTER CITY & REPORTER STATE & REPORTER ZIP & REPORTER PHONE & RPT QUESTION #1 & RPT QUESTION
#2 & OCCUPATION & MANUFACTURER NAME & MFR ADDRESS #1 & MFR ADDRESS #2 & MFR ADDRESS #3 & MFR CITY & MFR STATE & MFR
ZIP & IND/NDA # FOR SUPPORT DRUG & MFR CONTROL # & DATE RECEIVED BY MFR & 15 DAY REPORT & REPORT TYPE (AHDR)
120.85,.01 DATE/TIME OF EVENT 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X I $D(X) S GMRA=.01 D EN4^GMRAFUT0
LAST EDITED: JUN 18, 1993
DESCRIPTION:
The date/time that this observed reaction occurred.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 120.85^B
1)= S ^GMR(120.85,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.85,"B",$E(X,1,30),DA)
RECORD INDEXES: AHDR (#490)
120.85,.02 PATIENT 0;2 POINTER TO PATIENT FILE (#2) (Required)
INPUT TRANSFORM: S DIC("S")="D SCR02^GMRAU85" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 23, 1992
DESCRIPTION: This field is the patient to whom this observed reaction occurred. This field is a pointer to the
Patient file.
SCREEN: S DIC("S")="D SCR02^GMRAU85"
EXPLANATION: Select patient for this reaction.
CROSS-REFERENCE: 120.85^D
1)= S ^GMR(120.85,"D",$E(X,1,30),DA)=""
2)= K ^GMR(120.85,"D",$E(X,1,30),DA)
RECORD INDEXES: AHDR (#490)
120.85,.03 RELATED REACTION 0;15 POINTER TO PATIENT ALLERGIES FILE (#120.8) (Required)
INPUT TRANSFORM: S DIC("S")="D SCR03^GMRAU85" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
OUTPUT TRANSFORM: S Y=$P($G(^GMR(120.8,+Y,0)),U,2)
LAST EDITED: OCT 23, 1992
DESCRIPTION:
This is the related reaction in the Patient Allergies (120.8) file for this event.
SCREEN: S DIC("S")="D SCR03^GMRAU85"
EXPLANATION: Select reaction for this patient.
CROSS-REFERENCE: 120.85^C
1)= S ^GMR(120.85,"C",$E(X,1,30),DA)=""
2)= K ^GMR(120.85,"C",$E(X,1,30),DA)
RECORD INDEXES: AHDR (#490)
120.85,.5 OBSERVER 0;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 25, 1992
DESCRIPTION:
This field is the person who witnessed this reaction.
RECORD INDEXES: AHDR (#490)
120.85,1.1 DATE REPORTED 0;18 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 30, 1995
DESCRIPTION:
This field is to track when a report is entered into this file.
CROSS-REFERENCE: 120.85^ARDT
1)= S ^GMR(120.85,"ARDT",$E(X,1,30),DA)=""
2)= K ^GMR(120.85,"ARDT",$E(X,1,30),DA)
This cross-reference is to track the date the reaction was entered into the system by the user.
RECORD INDEXES: AHDR (#490)
120.85,1.2 REPORTING USER 0;19 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 30, 1995
DESCRIPTION:
This field is used to track the user who entered the reaction. It is a pointer to File 200.
RECORD INDEXES: AHDR (#490)
120.85,2 REACTIONS 2;0 POINTER Multiple #120.8502
DESCRIPTION:
A list of signs/symptoms observed for this reaction.
INDEXED BY: REACTIONS & OTHER REACTION & ENTERED BY (AHDR)
120.8502,.01 REACTIONS 0;1 POINTER TO SIGN/SYMPTOMS FILE (#120.83) (Multiply asked)
LAST EDITED: OCT 21, 1992
DESCRIPTION:
One sign/symptom observed for this reaction.
CROSS-REFERENCE: 120.8502^B
1)= S ^GMR(120.85,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.85,DA(1),2,"B",$E(X,1,30),DA)
RECORD INDEXES: AHDR (#491)
120.8502,1 OTHER REACTION 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: OCT 21, 1992
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION: If this sign/symptom 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 signs/symptoms of OTHER REACTION will be the value
of the REACTIONS field.
RECORD INDEXES: AHDR (#491)
120.8502,2 ENTERED BY 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 21, 1992
DESCRIPTION:
The person who entered this reaction into the system.
RECORD INDEXES: AHDR (#491)
120.85,3 SUSPECTED AGENT 3;0 Multiple #120.8503
DESCRIPTION:
A list of suspected agents for this observed reaction.
INDEXED BY: SUSPECTED AGENT & DAILY DOSE & SIG & ROUTE OF ADMINISTRATION & INDICATIONS FOR USE & START DATE OF
ADMINISTRATION & STOP DATE OF ADMINISTRATION & MANUFACTURER & LOT # & NUMBER OF PREVIOUS DOSES &
LAST FILL DT & EXPIRATION DATE & NDC # & LIKE QUESTION #1 & LIKE QUESTION #2 & LIKE QUESTION #3 &
LIKE QUESTION #4 & LIKE QUESTION #5 & LIKE QUESTION #6 & LIKELIHOOD (AHDR)
120.8503,.01 SUSPECTED AGENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: X ^DD(120.8503,.01,9.2) D DO^DIC1 K:X?1P.E!(X'?.ANP)!($L(X)>64)!($L(X)<1) X
9.2 = N DIC,DO,DIX,DICR S DIC=50.6,DIC(0)="E" D ^DIC S:$D(DTOUT) X="^",Y=-1 Q:X="^" S:+Y>0 X=$P(Y,
U,2) Q:+Y>0 X ^DD(120.8503,.01,9.3) Q
9.3 = S DIC=50,DIC(0)="E" D ^DIC S:$D(DTOUT) X="^",Y=-1 S:+Y>0 X=$P(Y,U,2) Q
LAST EDITED: JUN 22, 1992
HELP-PROMPT: Answer must be 1-64 characters in length.
DESCRIPTION:
This field indicates one of the suspected agents for this observed reaction.
EXECUTABLE HELP:N DIC,D,DO F DIC="^PSNDF(","^PSDRUG(" S DIC(0)="E",D="B",DZ="?" K DO D DQ^DICQ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:120.8503^B
1)= S ^GMR(120.85,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.85,DA(1),3,"B",$E(X,1,30),DA)
3)= Required Index for Variable Pointer
RECORD INDEXES: AHDR (#492)
120.8503,1 DAILY DOSE 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: JUN 16, 1992
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
This field contains the daily dosage for this suspected agent.
RECORD INDEXES: AHDR (#492)
120.8503,1.5 SIG 1;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X
LAST EDITED: MAR 21, 1996
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This file contains the SIG code that indicates how this drug is to be given.
RECORD INDEXES: AHDR (#492)
120.8503,2 ROUTE OF ADMINISTRATION 0;3 FREE TEXT
INPUT TRANSFORM:X ^DD(120.8503,2,9.2) D DO^DIC1 K:X?1P.E!(X'?.ANP)!($L(X)>45)!($L(X)<1) X Q
9.2 = N DIC,DO,DIX,DICR S DIC=51.2,DIC(0)="EM" D ^DIC S:$D(DTOUT) X="^",Y=-1 Q:X="^" S:+Y>0 X=$P(Y
,U,2) Q:+Y>0 X ^DD(120.8503,2,9.3) Q
9.3 = F S GMRAHLPX="IS "_X_" THE ROUTE YOU WANT TO USE" D EN^DDIOL(GMRAHLPX,"","!?2") K GMRAHLPX S
%=1 D YN^DICN S:%=1 Y=1 S:%=2 X="" Q:% D EN^DDIOL("ANSWER YES OR NO","","!?5")
LAST EDITED: JUN 23, 1992
HELP-PROMPT: Answer must be 1-45 characters in length.
DESCRIPTION:
This is the route of administration for this suspected agent.
EXECUTABLE HELP:N DIC,D,DO S DIC="^PS(51.2,",DIC(0)="EQ",D="B",DZ="?" K DO D DQ^DICQ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#492)
120.8503,3 INDICATIONS FOR USE 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X
LAST EDITED: JUN 16, 1992
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This field indicates the reasoning for a particular agent.
RECORD INDEXES: AHDR (#492)
120.8503,4 START DATE OF ADMINISTRATION 1;1 DATE
INPUT TRANSFORM:S %DT="EPSTX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: JUN 24, 1992
DESCRIPTION:
This field contains the date a patient was first given the suspected agent.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#492)
120.8503,5 STOP DATE OF ADMINISTRATION 1;2 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X I $G(X,0) K:X<$P($G(^GMR(120.85,DA(1),3,DA,1)),U) X
LAST EDITED: MAR 20, 1996
HELP-PROMPT: This date MUST be after the START DATE OF ADMINISTRATION.
DESCRIPTION:
This field contains the stop date for a suspected agent.
RECORD INDEXES: AHDR (#492)
120.8503,6 DURATION OF ADMINISTRATION ; COMPUTED
MUMPS CODE: S Y(120.8503,6,1)=$S($D(^GMR(120.85,D0,3,D1,1)):^(1),1:"") S X=$P(Y(120.8503,6,1),U,2),X1=X,X2=$P(Y
(120.8503,6,1),U,1),X="" D:X2 ^%DTC:X1
ALGORITHM: #5-#4
LAST EDITED: JUN 24, 1992
DESCRIPTION:
This field contains the total time the suspected agent was given to a patient.
120.8503,7 MANUFACTURER 0;7 FREE TEXT
INPUT TRANSFORM:X ^DD(120.8503,7,9.2) K:X?1P.E!(X'?.ANP)!($L(X)>25)!($L(X)<2) X
9.2 = N DIC,DIX,DO,DICR S DIC=55.95,DIC(0)="E" D ^DIC S:$D(DTOUT) X="^",Y=-1 Q:X="^" S:+Y>0 X=$P(Y
,U,2) X:+Y'>0 ^DD(120.8503,7,9.3) Q
9.3 = F S GMRAHLPX="IS "_X_" THE MANUFACTURER YOU WANT TO USE" D EN^DDIOL(GMRAHLPX,"","!?2") K GMR
AHLPX S %=1 D YN^DICN S:%=1 Y=1 S:%=2 X="" Q:% D EN^DDIOL("ANSWER YES OR NO","","!?5")
LAST EDITED: JUN 23, 1992
HELP-PROMPT: Answer must be 2-25 characters in length.
DESCRIPTION:
This field contains the name of the manufacturer of the suspected agent.
EXECUTABLE HELP:N DIC,D,DO S DIC="^PS(55.95,",DIC(0)="EQ",D="B",DZ="??" D DQ^DICQ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#492)
120.8503,8 LOT # 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
LAST EDITED: JUN 16, 1992
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION:
This field contains the lot # for a suspected agent.
RECORD INDEXES: AHDR (#492)
120.8503,9 NUMBER OF PREVIOUS DOSES 0;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100000000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 23, 1992
HELP-PROMPT: Type a Number between 0 and 100000000, 0 Decimal Digits
DESCRIPTION: This field contains the total number of doses of this suspected agent that were given to the
patient prior to the reaction.
RECORD INDEXES: AHDR (#492)
120.8503,10 LAST FILL DT 0;10 DATE
INPUT TRANSFORM:S %DT="EPSTX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: OCT 30, 1992
DESCRIPTION:
This field is the date that this agent was last filled.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#492)
120.8503,10.1 EXPIRATION DATE 1;3 DATE
INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 10, 1993
DESCRIPTION:
This is the date that the suspected agent is to expire.
RECORD INDEXES: AHDR (#492)
120.8503,10.2 NDC # 1;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: AUG 10, 1993
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
This is the NDC (National Drug Code) of this agent.
RECORD INDEXES: AHDR (#492)
120.8503,11 LIKE QUESTION #1 LIKE;1 SET
Does the event have a reasonable temporal association with the drug?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: SEP 21, 1993
DESCRIPTION:
This question determines whether this reaction normally occurs with this reactant.
RECORD INDEXES: AHDR (#492)
120.8503,12 LIKE QUESTION #2 LIKE;2 SET
Was there a dechallenge from the drug?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: AUG 10, 1993
DESCRIPTION:
This question determines whether administration of the reactant was stopped.
RECORD INDEXES: AHDR (#492)
120.8503,13 LIKE QUESTION #3 LIKE;3 SET
Did the observed event abate upon dechallenge?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: AUG 10, 1993
DESCRIPTION: This question determines if the reaction stopped when the administration of the reactant was
terminated.
RECORD INDEXES: AHDR (#492)
120.8503,14 LIKE QUESTION #4 LIKE;4 SET
Was there a rechallenge?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: AUG 10, 1993
DESCRIPTION:
This question determines whether the reactant was readministered.
RECORD INDEXES: AHDR (#492)
120.8503,15 LIKE QUESTION #5 LIKE;5 SET
Could the event be due to an existing clinical condition?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: AUG 10, 1993
DESCRIPTION: This question determines whether the reaction could be due to the patient current clinical
condition.
RECORD INDEXES: AHDR (#492)
120.8503,16 LIKE QUESTION #6 LIKE;6 SET
Did the reaction or event reappear upon rechallenge?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: AUG 10, 1993
DESCRIPTION:
This question determines if the reaction reappeared after the reactant was readministered.
RECORD INDEXES: AHDR (#492)
120.8503,17 LIKELIHOOD LIKE;7 SET
'1' FOR REMOTE;
'2' FOR POSSIBLE;
'3' FOR PROBABLE;
'4' FOR HIGHLY PROBABLE;
LAST EDITED: AUG 10, 1993
DESCRIPTION: If this is an observed drug allergy/adverse reaction, then this is the likelihood that this is an
adverse reaction. The data for this field is based on an algorithm used by the FDA.
RECORD INDEXES: AHDR (#492)
120.85,4 RELEVANT TEST/LAB DATA 4;0 Multiple #120.8504
LAST EDITED: MAY 06, 1993
DESCRIPTION:
A list of all the relevant test/lab data for this observed reaction.
INDEXED BY: TEST & RESULTS & COLLECTION D/T (AHDR)
120.8504,.01 TEST 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: X ^DD(120.8504,.01,9.2) K:X?1P.E!(X'?.ANP)!($L(X)>30)!($L(X)<3) X
9.2 = N DIC,DO,DIX,DICR S DIC=60,DIC(0)="E" D ^DIC S:$D(DTOUT) X="^",Y=-1 Q:X="^" S:+Y>0 X=$P(Y,U,
2) X:Y'>0 ^DD(120.8504,.01,9.3) Q
9.3 = F S GMRAHLPX="IS "_X_" THE LAB TEST/TX YOU WANT TO USE" D EN^DDIOL(GMRAHLPX,"","!?2") K GMRA
HLPX S %=1 D YN^DICN S:%=1 Y=1 S:%=2 X="" Q:% D EN^DDIOL("ANSWER YES OR NO","","!?5")
LAST EDITED: OCT 28, 1992
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This field contains a particular test/lab data for this observed reaction.
EXECUTABLE HELP:N DIC,D,DO S DIC="^LAB(60,",DIC(0)="E",D="B" D DQ^DICQ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:120.8504^B
1)= S ^GMR(120.85,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.85,DA(1),4,"B",$E(X,1,30),DA)
RECORD INDEXES: AHDR (#493)
120.8504,1 RESULTS 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X
LAST EDITED: OCT 28, 1992
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This field will contain the results for the particular test.
RECORD INDEXES: AHDR (#493)
120.8504,2 COLLECTION D/T 0;3 DATE
INPUT TRANSFORM:S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 28, 1992
DESCRIPTION:
This field is the date the sample was collected from the patient.
RECORD INDEXES: AHDR (#493)
120.85,5 QUESTION #1 0;3 SET
Patient died?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: JUN 16, 1992
DESCRIPTION:
This field indicates whether or not a patient has died from this reaction.
RECORD INDEXES: AHDR (#490)
120.85,6 QUESTION #2 0;4 SET
Reaction treated with RX drug?
'y' FOR YES;
'n' FOR NO;
DESCRIPTION:
This field indicates whether or not a patient was treated with a RX drug for this reaction.
RECORD INDEXES: AHDR (#490)
120.85,7 QUESTION #3 0;5 SET
Life Threatening illness?
'y' FOR YES;
'n' FOR NO;
DESCRIPTION:
This field indicates whether or not the reaction caused a life threatening illness.
RECORD INDEXES: AHDR (#490)
120.85,8 QUESTION #4 0;6 SET
Required ER/MD visit?
'y' FOR YES;
'n' FOR NO;
DESCRIPTION: This field indicates whether or not the patient had to visit a doctor or an ER because of this
reaction.
RECORD INDEXES: AHDR (#490)
120.85,9 QUESTION #5 0;7 SET
Required hospitalization?
'y' FOR YES;
'n' FOR NO;
DESCRIPTION:
This field indicates whether this reaction required hospitalization.
RECORD INDEXES: AHDR (#490)
120.85,9.1 NO. DAY HOSPITALIZED 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 16, 1992
HELP-PROMPT: Type a Number between 0 and 100000, 0 Decimal Digits
DESCRIPTION:
This field shows the number of days the patient was hospitalized because of the reaction.
RECORD INDEXES: AHDR (#490)
120.85,10 QUESTION #6 0;9 SET
Prolonged Hospitalization?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: JUN 16, 1992
DESCRIPTION:
This field indicates if the patient had a prolonged hospitalization because of the reaction.
RECORD INDEXES: AHDR (#490)
120.85,11 QUESTION #7 0;10 SET
Resulted in permanent disability?
'y' FOR YES;
'n' FOR NO;
DESCRIPTION: This field indicates whether or not the patient had some sort of permanent disability as a result
of this reaction.
RECORD INDEXES: AHDR (#490)
120.85,12 QUESTION #8 0;11 SET
Patient recovered?
'y' FOR YES;
'n' FOR NO;
DESCRIPTION: This field indicates whether the patient recovered from any illness that may have resulted from the
reaction.
RECORD INDEXES: AHDR (#490)
120.85,12.1 QUESTION #9 0;16 SET
Is this event a Congenital Anomaly?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: AUG 17, 1993
DESCRIPTION:
This field is to find out if the observed reaction was a Congenital Anomaly.
RECORD INDEXES: AHDR (#490)
120.85,12.2 QUESTION #10 0;17 SET
Did this event require intervention to prevent impairment/damage?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: SEP 21, 1993
DESCRIPTION:
This field is to find out if this event required any intervention.
RECORD INDEXES: AHDR (#490)
120.85,13 CONCOMITANT DRUGS 13;0 Multiple #120.8513
DESCRIPTION:
A list of all drugs that may have been taken at the time of the reaction.
INDEXED BY: CONCOMITANT DRUGS & START DATE OF ADMINISTRATION & STOP DATE OF ADMINISTRATION & LAST FILL DT & SIG
(AHDR)
120.8513,.01 CONCOMITANT DRUGS 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: X ^DD(120.8513,.01,9.2) D DO^DIC1 K:X?1P.E!(X'?.ANP)!($L(X)>64)!($L(X)<1) X
9.2 = N DIC,DIX,DO,DICR S DIC=50.6,DIC(0)="E" D ^DIC S:$D(DTOUT) X="^",Y=-1 Q:X="^" S:+Y>0 X=$P(Y,
U,2) Q:+Y>0 X ^DD(120.8513,.01,9.3) Q
9.3 = S DIC=50,DIC(0)="E" D ^DIC S:$D(DTOUT) X="^",Y=-1 S:+Y>0 X=$P(Y,U,2) Q
LAST EDITED: JUN 23, 1992
HELP-PROMPT: Answer must be 1-64 characters in length.
DESCRIPTION:
This field contains the drug(s) this patient was taking at the time of the reaction.
EXECUTABLE HELP:N DIC,D,DO F DIC="^PSNDF(","^PSDRUG(" S DIC(0)="E",D="B",DZ="?" K DO D DQ^DICQ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:120.8513^B
1)= S ^GMR(120.85,DA(1),13,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.85,DA(1),13,"B",$E(X,1,30),DA)
RECORD INDEXES: AHDR (#494)
120.8513,1 START DATE OF ADMINISTRATION 0;2 DATE
INPUT TRANSFORM:S %DT="EPSTX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: JUN 24, 1992
DESCRIPTION:
This field is the date this drug was first given to the patient.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#494)
120.8513,2 STOP DATE OF ADMINISTRATION 0;3 DATE
INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 24, 1992
DESCRIPTION:
This field is the last day the patient was given this drug.
RECORD INDEXES: AHDR (#494)
120.8513,3 LAST FILL DT 0;4 DATE
INPUT TRANSFORM:S %DT="EPSTX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: OCT 30, 1992
DESCRIPTION:
This field is the last date that this drug was filled.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#494)
120.8513,4 SIG 0;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X
LAST EDITED: OCT 30, 1992
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This file contains the SIG code that indicates how this drug is to be given.
RECORD INDEXES: AHDR (#494)
120.85,14 OTHER RELATED HISTORY 14;0 WORD-PROCESSING #120.8514
DESCRIPTION:
This field contains any other related event history for this reaction.
LAST EDITED: JUN 16, 1992
DESCRIPTION:
This field is to document other history relating to this reaction.
120.85,14.5 SEVERITY 0;14 SET
'1' FOR MILD;
'2' FOR MODERATE;
'3' FOR SEVERE;
LAST EDITED: JUL 01, 1992
DESCRIPTION:
This field indicates the severity of this reaction.
EXECUTABLE HELP: D EN1^GMRAHUT0
RECORD INDEXES: AHDR (#490)
120.85,22 DATE MD NOTIFIED 0;12 DATE
INPUT TRANSFORM: S GMRA=22 D EN4^GMRAFUT0
LAST EDITED: JUN 15, 1993
DESCRIPTION:
This field contains the date the doctor was notified of this reaction.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#490)
120.85,23 FDA QUESTION #1 PTC1;1 SET
Serious ADR?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: JUN 16, 1992
DESCRIPTION:
This field determines if the reaction is considered serious.
RECORD INDEXES: AHDR (#490)
120.85,24 FDA QUESTION #2 PTC1;2 SET
ADR related to new drug? (Marketed within the last 2 yrs.)
'y' FOR YES;
'n' FOR NO;
LAST EDITED: FEB 01, 1996
DESCRIPTION:
This question determines whether this reaction is related to a new drug.
RECORD INDEXES: AHDR (#490)
120.85,25 FDA QUESTION #3 PTC1;3 SET
Unexpected ADR?
'y' FOR YES;
'n' FOR NO;
DESCRIPTION:
This question determines whether this reaction was an unexpected reaction for this drug.
RECORD INDEXES: AHDR (#490)
120.85,26 FDA QUESTION #4 PTC1;4 SET
ADR related to therapeutic failure?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: JUN 24, 1992
DESCRIPTION:
This question determines whether this reaction is related to a therapeutic failure of the drug.
RECORD INDEXES: AHDR (#490)
120.85,26.1 FDA QUESTION #5 PTC1;13 SET
Dose related?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: NOV 30, 1995
DESCRIPTION:
This field is to track if the reaction was a dose related reaction.
RECORD INDEXES: AHDR (#490)
120.85,27 DATE REPORTED TO FDA PTC1;5 DATE
INPUT TRANSFORM: S %DT="EPSTX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: MAY 12, 1993
DESCRIPTION:
This field contains the date on which the FDA was sent the ADR report.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#490)
120.85,28 DATE OF PATIENT CONSENT TO MFR PTC1;6 DATE
INPUT TRANSFORM: S %DT="EPSTX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
DESCRIPTION: This field is the date the patient had given his consent to have the reaction reported to the
manufacturer.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#490)
120.85,29 DATE SENT TO MFR PTC1;7 DATE
INPUT TRANSFORM: S %DT="EPSTX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
DESCRIPTION:
This is the date when the report was sent to the manufacturer.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#490)
120.85,30 *DATE SENT TO RCPM PTC1;8 DATE
INPUT TRANSFORM: S %DT="EPSTX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: FEB 13, 1996
DESCRIPTION:
This is the date when the report was sent to the regional offices.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
120.85,31 DATE SENT TO VAERS PTC1;9 DATE
INPUT TRANSFORM: S %DT="EPSTX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:X<1 X
LAST EDITED: OCT 12, 1993
DESCRIPTION:
This field is the date when the report was sent to the VAERS.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#490)
120.85,31.1 P&T ACTION FDA REPORT PTC1;10 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: JUN 29, 1992
DESCRIPTION:
This field indicates if the P&T committee determined whether to send the report to FDA.
RECORD INDEXES: AHDR (#490)
120.85,31.2 P&T ACTION MFR REPORT PTC1;11 SET
'y' FOR YES;
'n' FOR NO;
DESCRIPTION:
This field tells if the P&T committee determined whether to send the report to the manufacturer.
RECORD INDEXES: AHDR (#490)
120.85,31.3 *P&T ACTION RCPM REPORT PTC1;12 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: FEB 13, 1996
DESCRIPTION: This field determines whether or not the P&T committee will send the report to the regional
offices.
120.85,31.5 P&T ADDENDUM PTC2;0 DATE Multiple #120.85315
DESCRIPTION:
List of comments made by the P&T committee.
INDEXED BY: DATE/TIME ENTERED (AHDR)
120.85315,.01 DATE/TIME ENTERED 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="EPSTX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: JUN 29, 1992
DESCRIPTION:
This is the date/time the comment was entered.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 120.85315^B
1)= S ^GMR(120.85,DA(1),"PTC2","B",$E(X,1,30),DA)=""
2)= K ^GMR(120.85,DA(1),"PTC2","B",$E(X,1,30),DA)
FIELD INDEX: AHDR (#496) MUMPS R ACTION
Short Descr: Send data to HDR on entry/edit
Description: Send data to HDR when the P&T addendum is added.
Set Logic: Q:$D(DIU(0)) D SETOB^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLOB^GMRAHDR
Whole Kill: Q
X(1): DATE/TIME ENTERED (120.85315,.01) (forwards)
120.85315,1 ADDENDUM 1;0 WORD-PROCESSING #120.853151
DESCRIPTION:
This is the actual comment that is being added.
LAST EDITED: JUN 29, 1992
DESCRIPTION:
This field contains the comments that the P&T committee add to this reaction.
120.85,43 REPORTER NAME RPT;1 FREE TEXT
INPUT TRANSFORM: X ^DD(120.85,43,9.2) K:X?1P.E!(X'?.ANP)!($L(X)>30)!($L(X)<3) X
9.2 = N DIC,DO,DIX,DICR S DIC=200,DIC(0)="E" D ^DIC S:$D(DTOUT) X="^",Y=-1 Q:X="^" S:+Y>0 X=$P(Y,U
,2) Q:+Y>0 X ^DD(120.85,43,9.3) Q
9.3 = F S GMRAHLPX="IS "_X_" THE NAME YOU WANT TO USE" D EN^DDIOL(GMRAHLPX,"","!?2") K GMRAHLPX S
%=1 D YN^DICN S:%=1 Y=1 S:%=2 X="" Q:% D EN^DDIOL("ANSWER YES OR NO","","!?5")
LAST EDITED: JUN 23, 1992
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This field contains the name of the person filling out the reports.
EXECUTABLE HELP: N DIC,D,DO S DIC="^VA(200,",DIC(0)="E",D="B",DZ="?" D DQ^DICQ Q
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#490)
120.85,44 REPORTER ADDRESS1 RPT;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
Line one of the address of the person filling out the report.
RECORD INDEXES: AHDR (#490)
120.85,45 REPORTER ADDRESS2 RPT;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
Line two of the address of the person filling out the report.
RECORD INDEXES: AHDR (#490)
120.85,46 REPORTER ADDRESS3 RPT;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
Line three of the address of the person filling out the report.
RECORD INDEXES: AHDR (#490)
120.85,47 REPORTER CITY RPT;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
The city where the person lives who is filling out the report.
RECORD INDEXES: AHDR (#490)
120.85,48 REPORTER STATE RPT;6 POINTER TO STATE FILE (#5)
LAST EDITED: JUN 16, 1992
DESCRIPTION:
The state where the reporter resides.
RECORD INDEXES: AHDR (#490)
120.85,49 REPORTER ZIP RPT;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<5) X
LAST EDITED: JUN 16, 1992
HELP-PROMPT: Answer must be 5-10 characters in length.
DESCRIPTION:
This is the zip code of the person filling out the report.
RECORD INDEXES: AHDR (#490)
120.85,50 REPORTER PHONE RPT;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<7) X
LAST EDITED: DEC 01, 1992
HELP-PROMPT: Answer must be 7-20 characters in length.
DESCRIPTION:
This is the phone number of the person who is filling out the report.
RECORD INDEXES: AHDR (#490)
120.85,51 RPT QUESTION #1 RPT;9 SET
IS REPORTER A HEALTH CARE PROVIDER?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: JUN 16, 1992
DESCRIPTION:
This field determines if the reporter is a health care provider.
RECORD INDEXES: AHDR (#490)
120.85,52 RPT QUESTION #2 RPT;10 SET
Do you want the identity disclosed to the manufacturer?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: FEB 01, 1996
DESCRIPTION: This field determines if the reporter wants to permit the FDA to inform the manufacturer of his
identity.
RECORD INDEXES: AHDR (#490)
120.85,52.1 OCCUPATION RPT;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: AUG 10, 1993
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This field contains the reporter's current occupation.
RECORD INDEXES: AHDR (#490)
120.85,53 MANUFACTURER NAME MFR1;1 FREE TEXT
INPUT TRANSFORM: X ^DD(120.85,53,9.2) K:X?1P.E!(X'?.ANP)!($L(X)>25)!($L(X)<2) X
9.2 = N DIC,DO,DIX,DICR S DIC=55.95,DIC(0)="E" D ^DIC S:$D(DTOUT) X="^",Y=-1 Q:X="^" S:+Y>0 X=$P(Y
,U,2) X:+Y'>0 ^DD(120.85,53,9.3) Q
9.3 = F S GMRAHLPX="IS "_X_" THE MANUFACTURER YOU WANT TO USE" D EN^DDIOL(GMRAHLPX,"","!?2") K GMR
AHLPX S %=1 D YN^DICN S:%=1 Y=1 S:%=2 X="" Q:% D EN^DDIOL("ANSWER YES OR NO","","!?5")
LAST EDITED: JUN 23, 1992
HELP-PROMPT: Select the manufacturer to be notified. Answer must be 2-25 characters in length.
DESCRIPTION:
This field is the name of the manufacturer of the reactant.
EXECUTABLE HELP: N DIC,D,DO S DIC="^PS(55.95,",DIC(0)="E",D="B" D DQ^DICQ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#490)
120.85,54 MFR ADDRESS #1 MFR1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<3) X
LAST EDITED: JUN 17, 1992
HELP-PROMPT: Answer must be 3-40 characters in length.
DESCRIPTION:
This is address line one for the manufacturer.
RECORD INDEXES: AHDR (#490)
120.85,55 MFR ADDRESS #2 MFR1;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<3) X
HELP-PROMPT: Answer must be 3-40 characters in length.
DESCRIPTION:
This is address line two for the manufacturer.
RECORD INDEXES: AHDR (#490)
120.85,56 MFR ADDRESS #3 MFR1;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<3) X
HELP-PROMPT: Answer must be 3-40 characters in length.
DESCRIPTION:
This is address line three for the manufacturer.
RECORD INDEXES: AHDR (#490)
120.85,57 MFR CITY MFR1;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<3) X
HELP-PROMPT: Answer must be 3-40 characters in length.
DESCRIPTION:
This is the city of the manufacturer.
RECORD INDEXES: AHDR (#490)
120.85,58 MFR STATE MFR1;6 POINTER TO STATE FILE (#5)
LAST EDITED: JUN 17, 1992
DESCRIPTION:
This is the state where the manufacturer is located.
RECORD INDEXES: AHDR (#490)
120.85,59 MFR ZIP MFR1;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<5) X
LAST EDITED: JAN 23, 1996
HELP-PROMPT: Answer must be 5-11 characters in length.
DESCRIPTION:
This is the Zip Code of the manufacturer.
RECORD INDEXES: AHDR (#490)
120.85,60 IND/NDA # FOR SUPPORT DRUG MFR2;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUN 17, 1992
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
This is the IND/NDA # for support drug for the manufacturer.
RECORD INDEXES: AHDR (#490)
120.85,61 MFR CONTROL # MFR2;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
This is the control number used by the manufacturer.
RECORD INDEXES: AHDR (#490)
120.85,62 DATE RECEIVED BY MFR MFR2;3 DATE
INPUT TRANSFORM: S %DT="EPSTX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: JUN 16, 1993
DESCRIPTION:
This is the date the report was received by the manufacturer.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AHDR (#490)
120.85,63 REPORT SOURCE 63;0 SET Multiple #120.8563
DESCRIPTION:
This is the source of the report.
INDEXED BY: SOURCE (AHDR)
120.8563,.01 SOURCE 0;1 SET (Multiply asked)
'f' FOR FOREIGN;
'h' FOR HEALTH PROFESSIONAL;
's' FOR STUDY;
'l' FOR LITERATURE;
'c' FOR CONSUMER;
LAST EDITED: JUN 17, 1992
DESCRIPTION:
This is the actual source of the report.
CROSS-REFERENCE: 120.8563^B
1)= S ^GMR(120.85,DA(1),63,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.85,DA(1),63,"B",$E(X,1,30),DA)
FIELD INDEX: AHDR (#495) MUMPS R ACTION
Short Descr: Send data to HDR
Description: Send data to HDR when entries are added or edited in this multiple.
Set Logic: Q:$D(DIU(0)) D SETOB^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLOB^GMRAHDR
Whole Kill: Q
X(1): SOURCE (120.8563,.01) (forwards)
120.85,64 15 DAY REPORT MFR2;4 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: JUN 17, 1992
DESCRIPTION:
This field is to determine if the 15 Day Report has been completed.
RECORD INDEXES: AHDR (#490)
120.85,65 REPORT TYPE MFR2;5 SET
'i' FOR INITIAL;
'f' FOR FOLLOWUP;
LAST EDITED: JUN 17, 1992
DESCRIPTION:
This is the type of report issued.
RECORD INDEXES: AHDR (#490)
FILES POINTED TO FIELDS
NEW PERSON (#200) OBSERVER (#.5)
REPORTING USER (#1.2)
REACTIONS:ENTERED BY (#2)
PATIENT (#2) PATIENT (#.02)
PATIENT ALLERGIES (#120.8) RELATED REACTION (#.03)
SIGN/SYMPTOMS (#120.83) REACTIONS:REACTIONS (#.01)
STATE (#5) REPORTER STATE (#48)
MFR STATE (#58)
File #120.85
Record Indexes:
AHDR (#490) RECORD MUMPS R ACTION
Short Descr: Sends data to HDR
Description: Sends data to HDR upon new entry or upon editing of existing data.
Set Logic: Q:$D(DIU(0)) D SETOB^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLOB^GMRAHDR
Whole Kill: Q
X(1): DATE/TIME OF EVENT (120.85,.01) (forwards)
X(2): PATIENT (120.85,.02) (forwards)
X(3): RELATED REACTION (120.85,.03) (forwards)
X(4): OBSERVER (120.85,.5) (forwards)
X(5): DATE REPORTED (120.85,1.1) (forwards)
X(6): REPORTING USER (120.85,1.2) (forwards)
X(7): QUESTION #1 (120.85,5) (forwards)
X(8): QUESTION #2 (120.85,6) (forwards)
X(9): QUESTION #3 (120.85,7) (forwards)
X(10): QUESTION #4 (120.85,8) (forwards)
X(11): QUESTION #5 (120.85,9) (forwards)
X(12): NO. DAY HOSPITALIZED (120.85,9.1) (forwards)
X(13): QUESTION #6 (120.85,10) (forwards)
X(14): QUESTION #7 (120.85,11) (forwards)
X(15): QUESTION #8 (120.85,12) (forwards)
X(16): QUESTION #9 (120.85,12.1) (forwards)
X(17): QUESTION #10 (120.85,12.2) (forwards)
X(18): SEVERITY (120.85,14.5) (forwards)
X(19): DATE MD NOTIFIED (120.85,22) (forwards)
X(20): FDA QUESTION #1 (120.85,23) (forwards)
X(21): FDA QUESTION #2 (120.85,24) (forwards)
X(22): FDA QUESTION #3 (120.85,25) (forwards)
X(23): FDA QUESTION #4 (120.85,26) (forwards)
X(24): FDA QUESTION #5 (120.85,26.1) (forwards)
X(25): DATE REPORTED TO FDA (120.85,27) (forwards)
X(26): DATE OF PATIENT CONSENT TO MFR (120.85,28) (forwards)
X(27): DATE SENT TO MFR (120.85,29) (forwards)
X(28): DATE SENT TO VAERS (120.85,31) (forwards)
X(29): P&T ACTION FDA REPORT (120.85,31.1) (forwards)
X(30): P&T ACTION MFR REPORT (120.85,31.2) (forwards)
X(31): REPORTER NAME (120.85,43) (forwards)
X(32): REPORTER ADDRESS1 (120.85,44) (forwards)
X(33): REPORTER ADDRESS2 (120.85,45) (forwards)
X(34): REPORTER ADDRESS3 (120.85,46) (forwards)
X(35): REPORTER CITY (120.85,47) (forwards)
X(36): REPORTER STATE (120.85,48) (forwards)
X(37): REPORTER ZIP (120.85,49) (forwards)
X(38): REPORTER PHONE (120.85,50) (forwards)
X(39): RPT QUESTION #1 (120.85,51) (forwards)
X(40): RPT QUESTION #2 (120.85,52) (forwards)
X(41): OCCUPATION (120.85,52.1) (forwards)
X(42): MANUFACTURER NAME (120.85,53) (forwards)
X(43): MFR ADDRESS #1 (120.85,54) (forwards)
X(44): MFR ADDRESS #2 (120.85,55) (forwards)
X(45): MFR ADDRESS #3 (120.85,56) (forwards)
X(46): MFR CITY (120.85,57) (forwards)
X(47): MFR STATE (120.85,58) (forwards)
X(48): MFR ZIP (120.85,59) (forwards)
X(49): IND/NDA # FOR SUPPORT DRUG (120.85,60) (forwards)
X(50): MFR CONTROL # (120.85,61) (forwards)
X(51): DATE RECEIVED BY MFR (120.85,62) (forwards)
X(52): 15 DAY REPORT (120.85,64) (forwards)
X(53): REPORT TYPE (120.85,65) (forwards)
Subfile #120.8502
Record Indexes:
AHDR (#491) RECORD MUMPS R ACTION
Short Descr: Send data to HDR
Description: Send data to HDR when entries are added or edited in this multiple
Set Logic: Q:$D(DIU(0)) D SETOB^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLOB^GMRAHDR
Whole Kill: Q
X(1): REACTIONS (120.8502,.01) (forwards)
X(2): OTHER REACTION (120.8502,1) (forwards)
X(3): ENTERED BY (120.8502,2) (forwards)
Subfile #120.8503
Record Indexes:
AHDR (#492) RECORD MUMPS R ACTION
Short Descr: Send data to HDR
Description: Send data to HDR when entries are added or edited in this multiple.
Set Logic: Q:$D(DIU(0)) D SETOB^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLOB^GMRAHDR
Whole Kill: Q
X(1): SUSPECTED AGENT (120.8503,.01) (forwards)
X(2): DAILY DOSE (120.8503,1) (forwards)
X(3): SIG (120.8503,1.5) (forwards)
X(4): ROUTE OF ADMINISTRATION (120.8503,2) (forwards)
X(5): INDICATIONS FOR USE (120.8503,3) (forwards)
X(6): START DATE OF ADMINISTRATION (120.8503,4) (forwards)
X(7): STOP DATE OF ADMINISTRATION (120.8503,5) (forwards)
X(8): MANUFACTURER (120.8503,7) (forwards)
X(9): LOT # (120.8503,8) (forwards)
X(10): NUMBER OF PREVIOUS DOSES (120.8503,9) (forwards)
X(11): LAST FILL DT (120.8503,10) (forwards)
X(12): EXPIRATION DATE (120.8503,10.1) (forwards)
X(13): NDC # (120.8503,10.2) (forwards)
X(14): LIKE QUESTION #1 (120.8503,11) (forwards)
X(15): LIKE QUESTION #2 (120.8503,12) (forwards)
X(16): LIKE QUESTION #3 (120.8503,13) (forwards)
X(17): LIKE QUESTION #4 (120.8503,14) (forwards)
X(18): LIKE QUESTION #5 (120.8503,15) (forwards)
X(19): LIKE QUESTION #6 (120.8503,16) (forwards)
X(20): LIKELIHOOD (120.8503,17) (forwards)
Subfile #120.8504
Record Indexes:
AHDR (#493) RECORD MUMPS R ACTION
Short Descr: Send data to HDR
Description: Send data to HDR when entries are added or edited in this multiple
Set Logic: Q:$D(DIU(0)) D SETOB^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLOB^GMRAHDR
Whole Kill: Q
X(1): TEST (120.8504,.01) (forwards)
X(2): RESULTS (120.8504,1) (forwards)
X(3): COLLECTION D/T (120.8504,2) (forwards)
Subfile #120.8513
Record Indexes:
AHDR (#494) RECORD MUMPS R ACTION
Short Descr: Send data to HDR
Description: Send data to HDR when entries in this multiple are added or edited.
Set Logic: Q:$D(DIU(0)) D SETOB^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLOB^GMRAHDR
Whole Kill: Q
X(1): CONCOMITANT DRUGS (120.8513,.01) (forwards)
X(2): START DATE OF ADMINISTRATION (120.8513,1) (forwards)
X(3): STOP DATE OF ADMINISTRATION (120.8513,2) (forwards)
X(4): LAST FILL DT (120.8513,3) (forwards)
X(5): SIG (120.8513,4) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):