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

Package: Adverse Reaction Tracking

ADVERSE REACTION REPORTING(#120.85)-->120.8504

Sub-Field: 120.8504


Information

Parent File Name Number Package
ADVERSE REACTION REPORTING(#120.85) RELEVANT TEST/LAB DATA 120.8504 Adverse Reaction Tracking

Details

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

  • 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 GMRAHLPX 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 (#292)
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 (#292)
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 (#292)
Info |  Details |  All