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: ^PS(56

Package: National Drug File

Global: ^PS(56


Information

FileMan FileNo FileMan Filename Package
56 DRUG INTERACTION National Drug File

Description

Directly Accessed By Routines, Total: 176

Package Total Routines
National Drug File 163 PSN105D    PSN111D    PSN120P    PSN121D    PSN125D    PSN127D    PSN130D    PSN132D
PSN134P    PSN138D    PSN142D    PSN144D    PSN146D    PSN158D    PSN163D    PSN166D
PSN170D    PSN172D    PSN179D    PSN182D    PSN184D    PSN188D    PSN198D    PSN201D
PSN207D    PSN213D    PSN219D    PSN222D    PSN232D    PSN235D    PSN241D    PSN244D
PSN247D    PSN259D    PSN284D    PSN287D    PSN290D    PSN293D    PSN310D    PSN316D
PSN319D    PSN322D    PSN328D    PSN350D    PSN356D    PSN362D    PSN367D    PSN376D
PSN379D    PSN391D    PSN394D    PSN398D    PSN408D    PSN411D    PSN415D    PSN424D
PSN427D    PSN462D    PSN473D    PSN490D    PSN494D    PSN497D    PSN4POST    PSN500D
PSN511D    PSN518D    PSN521D    PSN524D    PSN530D    PSN533D    PSN542D    PSN545D
PSN548D    PSN56    PSNCLING    PSNDDI1    PSNDINT    PSNJP54    PSNPRE1    ^PS(56
PSN110P    PSN114D    PSN118D    PSN123D    PSN135D    PSN148D    PSN149D    PSN153D
PSN155D    PSN161D    PSN174D    PSN177D    PSN186D    PSN190D    PSN195D    PSN204D
PSN210D    PSN216D    PSN225D    PSN228D    PSN238D    PSN250D    PSN253D    PSN256D
PSN266D    PSN269D    PSN272D    PSN275D    PSN278D    PSN281D    PSN301D    PSN304D
PSN307D    PSN313D    PSN325D    PSN331D    PSN334D    PSN337D    PSN339D    PSN341D
PSN344D    PSN347D    PSN353D    PSN359D    PSN370D    PSN373D    PSN382D    PSN385D
PSN388D    PSN401D    PSN404D    PSN418D    PSN421D    PSN432D    PSN435D    PSN439D
PSN443D    PSN446D    PSN450D    PSN453D    PSN456D    PSN459D    PSN466D    PSN469D
PSN478D    PSN481D    PSN484D    PSN487D    PSN4PRE    PSN503D    PSN505D    PSN508D
PSN515D    PSN527D    PSN536D    PSNCLEAN    PSNPCH4    PSNPPSCL    PSNPPSI1    PSNPPSNU
PSNVCR2    PSNXREF    SCHEDULED OPTION    
Outpatient Pharmacy 10 PSODDPR1    PSODGDGI    PSODRDU1    PSOHELP    PSOHELP3    PSOHLDS3    PSOHLSG3    PSOORDRG
PSOVER    PSOVER1    
Pharmacy Data Management 3 PSS1P43    PSSDINT    PSSHELP    

Accessed By FileMan Db Calls, Total: 15

Package Total Routines
National Drug File 10 PSN4P77    PSN56    PSNCLEAN    PSNCLING    PSNDINT    PSNPCH4    PSNPPSCL    PSNPPSI1
PSNPPSNK    PSNTER    
Pharmacy Data Management 4 PSS1P43    PSSDINT    PSSDRINT    PSSHELP    
Outpatient Pharmacy 1 PSOHELP    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Pharmacy Data Management 1 DRUG INGREDIENTS(#50.416)[1, 2]    

Fields, Total: 8

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  JUL 10, 1998
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • DESCRIPTION:  
    This field is used to store the name of the drug interaction.
  • TECHNICAL DESCR:  
    Name of interaction.
  • AUDIT:  YES, ALWAYS
  • DELETE TEST:  .01,0)= I 1 D EN^DDIOL("DELETIONS ARE NOT ALLOWED")
  • LAYGO TEST:  .01,0)= N ZZZ S ZZZ=$D(PSSDF)!$D(PSNDF) D:'ZZZ EN^DDIOL("ADDITIONS MUST BE MADE THROUGH STANDARD PDM OPTIONS") I ZZZ
  • GROUP:  PSO
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  56^B
    1)= S ^PS(56,"B",$E(X,1,30),DA)=""
    2)= K ^PS(56,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  56^C^KWIC
    1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "/"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^PS(56,"C",I,DA)=""
    2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "/"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^PS(56,"C",I,DA)
    3)= This cross-reference should not be deleted
    This cross-reference is used as a key word lookup to allow lookup based on either of the two ingredients selected.
1 INGREDIENT 1 0;2 POINTER TO DRUG INGREDIENTS FILE (#50.416)
************************REQUIRED FIELD************************
DRUG INGREDIENTS(#50.416)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^PS(50.416,+Y,0),""^"",2),+Y'=$P(^PS(56,DA,0),""^"",3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 10, 1998
  • HELP-PROMPT:  Enter name of primary ingredient.
  • DESCRIPTION:  
    This field is used to stored the first ingredient of adverse drug/drug reactions.
  • TECHNICAL DESCR:  
    Pointer to file #50.416.
  • SCREEN:  S DIC("S")="I '$P(^PS(50.416,+Y,0),""^"",2),+Y'=$P(^PS(56,DA,0),""^"",3)"
  • EXPLANATION:  Only primary ingredients are selected.
  • AUDIT:  YES, ALWAYS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  56^AI1
    1)= S ^PS(56,"AI1",$E(X,1,30),DA)=""
    2)= K ^PS(56,"AI1",$E(X,1,30),DA)
    3)= Do not delete !
    This xref will be used to track changes to the Drug Ingredient file (#50.416).
  • CROSS-REFERENCE:  56^APD^MUMPS
    1)= S DEL=0 D:$P(^PS(56,DA,0),"^",3) ^PSNDDI1 K DEL
    2)= S DEL=1 D:$P(^PS(56,DA,0),"^",3) ^PSNDDI1 K DEL
    3)= This XREF should not be deleted.
    This XREF is used to index file by drug adverse reactions. This XREF is executed if ingredient 2 is filled in. In the form of: ^PS(56,"APD",Drug Indentifier(Ingredient 1),Drug Identifier (Ingredient 2,DA)
  • CROSS-REFERENCE:  56^AE1^MUMPS
    1)= N ZZZ S ZZZ=$P(^PS(56,DA,0),"^",3) I ZZZ S ^PS(56,"AE",X,ZZZ,DA)="",^PS(56,"AE",ZZZ,X,DA)=""
    2)= N ZZZ S ZZZ=$P(^PS(56,DA,0),"^",3) I ZZZ K ^PS(56,"AE",X,ZZZ,DA),^PS(56,"AE",ZZZ,X,DA)
    Cross-reference checks for duplicate ingredient combinations. In the form of: ^PS(56,"AE",Ingredient 1,Ingredient 2,DA)
2 INGREDIENT 2 0;3 POINTER TO DRUG INGREDIENTS FILE (#50.416)
************************REQUIRED FIELD************************
DRUG INGREDIENTS(#50.416)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^PS(50.416,+Y,0),""^"",2),+Y'=$P(^PS(56,DA,0),""^"",2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 10, 1998
  • HELP-PROMPT:  Enter name of second ingredient for adverse drug reaction.
  • DESCRIPTION:  
    This field is used to store the name of the second ingredient for drug/drug adverse reaction. This ingredient cannot be the same as the first ingredient.
  • TECHNICAL DESCR:  
    Pointer to file #50.416.
  • SCREEN:  S DIC("S")="I '$P(^PS(50.416,+Y,0),""^"",2),+Y'=$P(^PS(56,DA,0),""^"",2)"
  • EXPLANATION:  Only primary ingredients are to be selected.
  • AUDIT:  YES, ALWAYS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  56^AI2
    1)= S ^PS(56,"AI2",$E(X,1,30),DA)=""
    2)= K ^PS(56,"AI2",$E(X,1,30),DA)
    3)= Do not delete !
    This xref is used to track changes to the Drug Ingredient file (#50.416).
  • CROSS-REFERENCE:  56^APE^MUMPS
    1)= S DEL=0 D:$P(^PS(56,DA,0),"^",2) ^PSNDDI1 K DEL
    2)= S DEL=1 D:$P(^PS(56,DA,0),"^",2) ^PSNDDI1 K DEL
    3)= This XREF should not be deleted.
    This XREF is used to index the file by the drug adverse reactions. This XREF is only executed if ingredient 1 field is filled in. In the form of: ^PS(56,"APD",Drug Identifier(Ingredient 2),Drug Identifier (Ingredient
    1,DA)
  • CROSS-REFERENCE:  56^AE2^MUMPS
    1)= N ZZZ S ZZZ=$P(^PS(56,DA,0),"^",2) I ZZZ S ^PS(56,"AE",X,ZZZ,DA)="",^PS(56,"AE",ZZZ,X,DA)=""
    2)= N ZZZ S ZZZ=$P(^PS(56,DA,0),"^",2) I ZZZ K ^PS(56,"AE",X,ZZZ,DA),^PS(56,"AE",ZZZ,X,DA)
    Cross-reference checks for duplicate ingredient combinations. In the form of: ^PS(56,"AE",Ingredient 2,Ingredient 1,DA)
3 SEVERITY 0;4 SET
************************REQUIRED FIELD************************
  • '1' FOR CRITICAL;
  • '2' FOR SIGNIFICANT;

  • LAST EDITED:  MAR 19, 1992
  • HELP-PROMPT:  Enter severity of drug/drug interaction/
  • DESCRIPTION:  
    This field is used to indicate the type of reaction from the interaction.
  • TECHNICAL DESCR:  
    Set of Codes.
  • AUDIT:  YES, ALWAYS
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
4 NATIONALLY ENTERED 0;5 SET
  • '1' FOR YES;

  • LAST EDITED:  MAR 19, 1992
  • DESCRIPTION:  
    This field is used to indicate if this data was sent out by the ISC.
  • TECHNICAL DESCR:  
    set of codes
  • AUDIT:  YES, ALWAYS
5 TOTAL INDEXES 0;6 NUMBER

  • INPUT TRANSFORM:  K X
  • LAST EDITED:  APR 23, 1992
  • HELP-PROMPT:  Data is not entered using File Manager.
  • DESCRIPTION:  
    This field is used to store the total number of interaction for an entry into the file. This data is not entered directly through FM.
  • TECHNICAL DESCR:  
    Data is stuffed.
  • AUDIT:  YES, ALWAYS
    SOURCE OF DATA: Data comes from index routine.
  • GROUP:  PSO
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 LOCALLY EDITED L;1 SET
  • '1' FOR YES;

  • LAST EDITED:  JUN 29, 1998
  • DESCRIPTION:  This field is set if the severity of this interaction has been edited locally. This will allow a site to change the severity of a nationally entered interaction from significant to critical and later change it back.
    Nationally entered critical interactions can not be edited.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
7 INACTIVATION DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 15, 1998
  • DESCRIPTION:  
    This is the date when this interaction became inactive.
  • AUDIT:  YES, ALWAYS

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2133
  • Pharmacy Data Management
    		•  NAME (.01).
    Access: Direct Global R/W & w/Fileman

    INGREDIENT 1 (1).
    Access: Direct Global R/W & w/Fileman

    INGREDIENT 2 (2).
    Access: Direct Global R/W & w/Fileman

    SEVERITY (3).
    Access: Direct Global R/W & w/Fileman

    LOCALLY EDITED (6).
    Access: Direct Global R/W & w/Fileman
    ICR #2229
  • Outpatient Pharmacy
    		•  NAME (.01).
    Access: Direct Global Read & w/Fileman

    INGREDIENT 1 (1).
    Access: Direct Global Read & w/Fileman

    INGREDIENT 2 (2).
    Access: Direct Global Read & w/Fileman

    SEVERITY (3).
    Access: Direct Global Read & w/Fileman

    NATIONALLY ENTERED (4).
    Access: Both R/W w/Fileman

    TOTAL INDEXES (5).
    Access: Direct Global R/W & w/Fileman

    INACTIVATION DATE (7).
    Access: Direct Global Read & w/Fileman

    		 This file is used to store drug-drug interactions.This cross reference is used to index the file byadverse drug reactions.

    External References

    Name Field # of Occurrence
    ^%DT 7+1
    EN^DDIOL .01DEL.01+1, .01LAYGO.01+1
    ^DIC 1+1, 2+1
    Y^DIQ ID1+1, ID2+1
    ^PSNDDI1 1(XREF 2S), 1(XREF 2K), 2(XREF 2S), 2(XREF 2K)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("KWIC" .01(XREF 3S)
    ^DD(50.416 ID1+1, ID2+1
    ^PS(50.416 - [#50.416] ID1+1, ID2+1
    ^PS(56 - [#56] .01(XREF 1S), .01(XREF 1K), .01(XREF 3S), .01(XREF 3K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K)
    , 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID1+1, ID2+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % .01(XREF 3S), .01(XREF 3K)
    >> %1 .01(XREF 3S), .01(XREF 3K)
    >> %DT 7+1*
    %I ID1+1*!, ID2+1*!
    >> C ID1+1*, ID2+1*
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 3S), .01(XREF 3K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K)
    , 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K)
    DEL 1(XREF 2S), 1(XREF 2K), 2(XREF 2S), 2(XREF 2K)
    DIC ID2+1, ID3+1, 1+1!*, 2+1!*
    DIC("S" 1+1*, 1SCR+1*, 2+1*, 2SCR+1*
    >> DIE 1+1, 2+1
    >> I .01(XREF 3S), .01(XREF 3K)
    >> PSNDF .01LAYGO.01+1
    >> PSSDF .01LAYGO.01+1
    U ID1+1, ID2+1
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 3S), .01(XREF 3K), 1+1*!, 1(XREF 1S), 1(XREF 1K), 1(XREF 3S), 1(XREF 3K)
    , 2+1*!, 2(XREF 1S), 2(XREF 1K), 2(XREF 3S), 2(XREF 3K), 5+1!, 7+1*!
    >> Y ID1+1*, ID2+1*, 1+1, 2+1, 7+1
    ZZZ .01LAYGO.01+1~*, 1(XREF 3S), 1(XREF 3K), 2(XREF 3S), 2(XREF 3K)
    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