Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^GMR(120.85

Package: Adverse Reaction Tracking

Global: ^GMR(120.85


Information

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

Description

Directly Accessed By Routines, Total: 58

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    

Accessed By FileMan Db Calls, Total: 24

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

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Adverse Reaction Tracking 2 PATIENT ALLERGIES(#120.8)[.03]    SIGN/SYMPTOMS(#120.83)[#120.8502(.01)]    
Kernel 2 STATE(#5)[4858]    NEW PERSON(#200)[.51.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)

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #5190
  • Inpatient Medications
  • External References

    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 )

    Global Variables Directly Accessed

    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)

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID.02+1, IDWRITE+1

    Local Variables

    Legend:

    >> 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*
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All