Global: ^GMR(120.85

FileMan FileNo	FileMan Filename	Package
120.85	ADVERSE REACTION REPORTING	Adverse Reaction Tracking

Package	Total	Routines
Adverse Reaction Tracking	58	CONCOMITANT DRUGS GMRADEL GMRADPT GMRADSP2 GMRADSP7 GMRAEF1 GMRAFDA1 GMRAFDA3 GMRAFN1 GMRAFN2 GMRAFN3 GMRAFN4 GMRAFN5 GMRAFUT0 GMRAFX3 GMRAGUI1 GMRAHDR GMRAIAD1 GMRAIAD2 GMRALAB0 GMRALAB1 GMRAOR GMRAOR2 GMRAOR7 GMRAPEL0 GMRAPEM0 GMRAPEO0 GMRAPER2 GMRAPFT GMRAPHR1 GMRAPHR2 GMRAPST1 GMRAPST2 GMRAPST3 GMRAPST4 GMRAPST5 GMRAPST6 GMRAPST7 GMRAPT GMRAPTB GMRAROBS GMRASIG1 GMRASIGN GMRAU85 GMRAU851 GMRAVFY GMRAY17 GMRAY21 GMRAY23 GMRAY29 GMRAY40 P&T ADDENDUM REACTIONS RELEVANT TEST/LAB DATA REPORT SOURCE SUSPECTED AGENT ^GMR(120.85 ^GMR(120.88

Package	Total	Routines
Adverse Reaction Tracking	24	GMRADEL GMRADPT GMRAFDA GMRAFDA1 GMRAFX3 GMRAIAD1 GMRALAB1 GMRAMAN GMRAOR1 GMRAOR7 GMRAPEM0 GMRAPEO0 GMRAPHR1 GMRAPT GMRAREP GMRAROBS GMRASIGN GMRAU85 GMRAU851 GMRAY17 GMRAY21 GMRAY23 GMRAY29 GMRAY40

Package	Total	FileMan Files
Adverse Reaction Tracking	2	PATIENT ALLERGIES(#120.8)[.03] SIGN/SYMPTOMS(#120.83)[#120.8502(.01)]
Kernel	2	STATE(#5)[48, 58] NEW PERSON(#200)[.5, 1.2, #120.8502(2)]
Registration	1	PATIENT(#2)[.02]

Fields, Total: 62

Field #	Name	Loc	Type	Details
.01	DATE/TIME OF EVENT	0;1	DATE	**********************REQUIRED FIELD********************** 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)`
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) 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)`
.03	RELATED REACTION	0;15	POINTER TO PATIENT ALLERGIES FILE (#120.8)	**********************REQUIRED FIELD********************** PATIENT ALLERGIES(#120.8) 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)`
.5	OBSERVER	0;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 25, 1992` DESCRIPTION: `This field is the person who witnessed this reaction.` RECORD INDEXES: `AHDR (#490)`
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)`
1.2	REPORTING USER	0;19	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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)`
2	REACTIONS	2;0	POINTER Multiple #120.8502	120.8502 DESCRIPTION: `A list of signs/symptoms observed for this reaction.` INDEXED BY: `REACTIONS & OTHER REACTION & ENTERED BY (AHDR)`
3	SUSPECTED AGENT	3;0	Multiple #120.8503	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)`
4	RELEVANT TEST/LAB DATA	4;0	Multiple #120.8504	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)`
5	QUESTION #1	0;3	SET	'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)`
6	QUESTION #2	0;4	SET	'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)`
7	QUESTION #3	0;5	SET	'y' FOR YES; 'n' FOR NO; DESCRIPTION: `This field indicates whether or not the reaction caused a life threatening illness.` RECORD INDEXES: `AHDR (#490)`
8	QUESTION #4	0;6	SET	'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)`
9	QUESTION #5	0;7	SET	'y' FOR YES; 'n' FOR NO; DESCRIPTION: `This field indicates whether this reaction required hospitalization.` RECORD INDEXES: `AHDR (#490)`
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)`
10	QUESTION #6	0;9	SET	'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)`
11	QUESTION #7	0;10	SET	'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)`
12	QUESTION #8	0;11	SET	'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)`
12.1	QUESTION #9	0;16	SET	'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)`
12.2	QUESTION #10	0;17	SET	'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)`
13	CONCOMITANT DRUGS	13;0	Multiple #120.8513	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)`
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.`
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)`
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)`
23	FDA QUESTION #1	PTC1;1	SET	'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)`
24	FDA QUESTION #2	PTC1;2	SET	'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)`
25	FDA QUESTION #3	PTC1;3	SET	'y' FOR YES; 'n' FOR NO; DESCRIPTION: `This question determines whether this reaction was an unexpected reaction for this drug.` RECORD INDEXES: `AHDR (#490)`
26	FDA QUESTION #4	PTC1;4	SET	'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)`
26.1	FDA QUESTION #5	PTC1;13	SET	'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)`
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)`
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)`
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)`
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`
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)`
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)`
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)`
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.`
31.5	P&T ADDENDUM	PTC2;0	DATE Multiple #120.85315	120.85315 DESCRIPTION: `List of comments made by the P&T committee.` INDEXED BY: `DATE/TIME ENTERED (AHDR)`
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)`
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)`
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)`
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)`
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)`
48	REPORTER STATE	RPT;6	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `JUN 16, 1992` DESCRIPTION: `The state where the reporter resides.` RECORD INDEXES: `AHDR (#490)`
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)`
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)`
51	RPT QUESTION #1	RPT;9	SET	'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)`
52	RPT QUESTION #2	RPT;10	SET	'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)`
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)`
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 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: `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)`
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)`
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)`
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)`
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)`
58	MFR STATE	MFR1;6	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `JUN 17, 1992` DESCRIPTION: `This is the state where the manufacturer is located.` RECORD INDEXES: `AHDR (#490)`
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)`
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)`
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)`
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)`
63	REPORT SOURCE	63;0	SET Multiple #120.8563	120.8563 DESCRIPTION: `This is the source of the report.` INDEXED BY: `SOURCE (AHDR)`
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)`
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)`

Name	Field # of Occurrence
^%DT	.01+1, 1.1+1, 27+1, 28+1, 29+1, 30+1, 31+1, 62+1
EN^DDIOL	IDWRITE+1, 43OF9.3+1, 53OF9.3+1
^DIC	.02+1, .03+1, 43OF9.2+1, 53OF9.2+1
YN^DICN	43OF9.3+1, 53OF9.3+1
DQ^DICQ	43(HELP ), 53(HELP )
Y^DIQ	ID.02+1
EN4^GMRAFUT0	.01+1, 22+1
KILLOB^GMRAHDR	IXAHDRKL+1
SETOB^GMRAHDR	IXAHDRSL+1
EN1^GMRAHUT0	14.5(HELP )

Name	Line Occurrences (* Changed, ! Killed)
^DD(120.85	43+1, 43OF9.2+1, 53+1, 53OF9.2+1
^DD(2	ID.02+1
^DPT - [#2]	ID.02+1
^GMR(120.8 - [#120.8]	IDWRITE+1, .03OT+1
^GMR(120.85 - [#120.85]	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), 1.1(XREF 1S), 1.1(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	43OF9.3+1, 53OF9.3+1
>> %DT	.01+1, 1.1+1, 27+1, 28+1, 29+1, 30+1, 31+1, 62+1
>> %DT(0	27+1!, 28+1!, 29+1!, 30+1!, 31+1!, 62+1!
%I	ID.02+1*!
>> C	ID.02+1*
D	43(HELP ), 53(HELP )
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), 1.1(XREF 1S), 1.1(XREF 1K)
DIC	ID.02+1, IDWRITE+1, .02+1!, .03+1!, 43(HELP ), 43OF9.2+1~, 53(HELP ), 53OF9.2+1~
DIC("S"	.02+1, .02SCR+1, .03+1, .03SCR+1
DIC(0	43(HELP ), 43OF9.2+1, 53(HELP ), 53OF9.2+1
DICR	43OF9.2+1~, 53OF9.2+1~
>> DIE	.02+1, .03+1
>> DIU(0	IXAHDRSL+1, IXAHDRKL+1
DIX	43OF9.2+1~, 53OF9.2+1~
DO	43(HELP ), 43OF9.2+1~, 53(HELP ), 53OF9.2+1~
>> DTOUT	43OF9.2+1, 53OF9.2+1
>> DZ	43(HELP )
>> GMRA	.01+1, 22+1
GMRAHLPX	IDWRITE+1!, 43OF9.3+1!, 53OF9.3+1*!
U	ID.02+1, IDWRITE+1, .03OT+1, 43OF9.2+1, 53OF9.2+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .03+1!, .03(XREF 1S), .03(XREF 1K), 1.1+1! , 1.1(XREF 1S), 1.1(XREF 1K), 9.1+1!, 27+1!, 28+1!, 29+1!, 30+1!, 31+1!, 43+1!, 43OF9.2+1 , 43OF9.3+1, 44+1!, 45+1!, 46+1!, 47+1!, 49+1!, 50+1!, 52.1+1!, 53+1!, 53OF9.2+1 , 53OF9.3+1, 54+1!, 55+1!, 56+1!, 57+1!, 59+1!, 60+1!, 61+1!, 62+1!
>> Y	ID.02+1, IDWRITE+1, .01+1, .02+1, .03+1, .03OT+1, 1.1+1, 27+1, 28+1, 29+1 , 30+1, 31+1, 43OF9.2+1, 43OF9.3+1, 53OF9.2+1, 53OF9.3+1, 62+1
>> Y(0	.03OT+1*

Customize PDF page

Package: Adverse Reaction Tracking

Global: ^GMR(120.85

Information

Description

Directly Accessed By Routines, Total: 58

Accessed By FileMan Db Calls, Total: 24

Pointer To FileMan Files, Total: 5

Fields, Total: 62

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: