Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 120.8503

Package: Adverse Reaction Tracking

ADVERSE REACTION REPORTING(#120.85)-->120.8503

Sub-Field: 120.8503


Information

Parent File Name Number Package
ADVERSE REACTION REPORTING(#120.85) SUSPECTED AGENT 120.8503 Adverse Reaction Tracking

Details

Field # Name Loc Type Details
.01 SUSPECTED AGENT 0;1 FREE TEXT

  • 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)
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)
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)
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)
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)
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)
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)
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.
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 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 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)
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)
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)
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)
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)
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)
11 LIKE QUESTION #1 LIKE;1 SET
  • '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)
12 LIKE QUESTION #2 LIKE;2 SET
  • '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)
13 LIKE QUESTION #3 LIKE;3 SET
  • '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)
14 LIKE QUESTION #4 LIKE;4 SET
  • 'y' FOR YES;
  • 'n' FOR NO;

  • LAST EDITED:  AUG 10, 1993
  • DESCRIPTION:  
    This question determines whether the reactant was readministered.
  • RECORD INDEXES:  AHDR (#492)
15 LIKE QUESTION #5 LIKE;5 SET
  • '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)
16 LIKE QUESTION #6 LIKE;6 SET
  • '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)
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)
Info |  Details