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