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

Package: Adverse Reaction Tracking

GMR ALLERGIES(#120.82)-->120.824

Sub-Field: 120.824


Information

Parent File Name Number Package
GMR ALLERGIES(#120.82) DRUG INGREDIENTS 120.824 Adverse Reaction Tracking

Details

Field # Name Loc Type Details
.01 DRUG INGREDIENT 0;1 POINTER TO DRUG INGREDIENTS FILE (#50.416) DRUG INGREDIENTS(#50.416)

  • INPUT TRANSFORM:  S DIC("S")="N GMRA S GMRA=$P(^(0),U) X ""I $L(GMRA),$D(^PS(50.416,""""P"""",GMRA,Y))"" Q" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 17, 2006
  • DESCRIPTION:  
    This is one of the drug ingredients that make up this causative agent. Must be a primary ingredient.
  • SCREEN:  S DIC("S")="N GMRA S GMRA=$P(^(0),U) X ""I $L(GMRA),$D(^PS(50.416,""""P"""",GMRA,Y))"" Q"
  • EXPLANATION:  Allow primary ingredients only.
  • EXECUTABLE HELP:  D:DZ="?" EN^DDIOL("Enter one of the drug ingredients that make up this allergy.","","!?5")
    WRITE AUTHORITY: ^
  • CROSS-REFERENCE:  120.824^B
    1)= S ^GMRD(120.82,DA(1),"ING","B",$E(X,1,30),DA)=""
    2)= K ^GMRD(120.82,DA(1),"ING","B",$E(X,1,30),DA)
  • FIELD INDEX:  AC (#616) MUMPS R ACTION
    Short Descr: Identifies changes to existing ingredients
    Set Logic: Q:$D(DIU(0)) S GMRAT="ING" D ^GMRAUTL2
    Kill Logic: Q:$D(DIU(0)) S GMRAT="ING" D ^GMRAUTL2
    X(1): DRUG INGREDIENT (120.824,.01) (forwards)
Info |  Details