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.8513

Package: Adverse Reaction Tracking

ADVERSE REACTION REPORTING(#120.85)-->120.8513

Sub-Field: 120.8513


Information

Parent File Name Number Package
ADVERSE REACTION REPORTING(#120.85) CONCOMITANT DRUGS 120.8513 Adverse Reaction Tracking

Details

Field # Name Loc Type Details
.01 CONCOMITANT DRUGS 0;1 FREE TEXT

  • 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)
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)
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)
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)
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)
Info |  Details