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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^PSD(58.86

Package: Controlled Substances

Global: ^PSD(58.86


Information

FileMan FileNo FileMan Filename Package
58.86 CS DESTRUCTION Controlled Substances

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
Controlled Substances 11 PSDEA41    PSDEST    PSDESTF    PSDESTO    PSDESTP    PSDGSH11    PSDGSRV1    PSDHRPT
PSDRPT    ^PSD(58.86    PSDUTL3    
Drug Accountability 1 PSAOUT    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Controlled Substances 1 PSDIPOST    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Drug Accountability 1 DRUG ACCOUNTABILITY TRANSACTION(#58.81)[47]    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Drug Accountability 2 DRUG ACCOUNTABILITY STATS(#58.8)[6]    DRUG ACCOUNTABILITY TRANSACTION(#58.81)[8]    
Kernel 1 NEW PERSON(#200)[34916]    
Pharmacy Data Management 1 DRUG(#50)[119]    
Registration 1 PATIENT(#2)[18]    

Fields, Total: 19

Field # Name Loc Type Details
.01 NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
  • LAST EDITED:  JUN 03, 1992
  • HELP-PROMPT:  Type a Number between 1 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    The destruction number for this Controlled Substances drug.
  • TECHNICAL DESCR:  
    DINUMed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  58.86^B
    1)= S ^PSD(58.86,"B",$E(X,1,30),DA)=""
    2)= K ^PSD(58.86,"B",$E(X,1,30),DA)
1 DRUG 0;2 POINTER TO DRUG FILE (#50) DRUG(#50)

  • INPUT TRANSFORM:  S DIC("S")="I $S('$D(^(""I"")):1,+^(""I"")>DT:1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 17, 1993
  • HELP-PROMPT:  Enter the name of the drug being destroyed.
  • DESCRIPTION:  
    A pointer to the name of the drug being destroyed.
  • SCREEN:  S DIC("S")="I $S('$D(^(""I"")):1,+^(""I"")>DT:1,1:0)"
  • EXPLANATION:  Allows selection of ACTIVE drugs to be destroyed.
  • CROSS-REFERENCE:  58.86^AC1^MUMPS
    1)= D SAC1^PSDUTL3
    2)= D KAC1^PSDUTL3
    3)= DO NOT DELETE
    This cross-reference is used in compiling the Controlled Substances destroyed drugs report.
    The cross-reference is ^PSD(58.86,"AC",DATE/TIME DESTROYED,DISPENSING SITE,DRUG,DA)=""
2 QUANTITY 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  MAY 18, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999, 2 Decimal Digits
  • DESCRIPTION:  
    The quantity of the drug being destroyed.
3 PHARMACIST TURNING IN DRUG 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 07, 1992
  • HELP-PROMPT:  Enter the name of the pharmacist turning this drug in for destruction.
  • DESCRIPTION:  
    A pointer to the name of the pharmacist turning the drug in for destruction.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))"
  • EXPLANATION:  Access granted to pharmacists holding the appropriate security key.
4 NURSE RETURNING DRUG 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 27, 1993
  • HELP-PROMPT:  Enter the name of the nurse returning this drug.
  • DESCRIPTION:  
    A pointer to the name of the nurse returning the drug to pharmacy for destruction.
  • SCREEN:  S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,1:0)"
  • EXPLANATION:  Access granted to nurse holding the appropriate security key.
5 DATE/TIME TURNED IN 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 01, 1993
  • HELP-PROMPT:  Enter date/time this drug was turned in for destruction.
  • DESCRIPTION:  
    The date/time the drug is turned in for destruction.
6 RETURNED TO DISP SITE 0;7 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8) DRUG ACCOUNTABILITY STATS(#58.8)

  • INPUT TRANSFORM:  S DIC("S")="I $S($P(^(0),""^"",2)=""M"":1,$P(^(0),""^"",2)=""S"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 24, 1993
  • HELP-PROMPT:  Enter the name of the dispensing vault holding this drug for destruction.
  • DESCRIPTION:  
    The pharmacy dispensing site (vault) holding the drug for destruction.
  • SCREEN:  S DIC("S")="I $S($P(^(0),""^"",2)=""M"":1,$P(^(0),""^"",2)=""S"":1,1:0)"
  • EXPLANATION:  Allows selection of Master or Satellite vaults.
  • CROSS-REFERENCE:  58.86^AC2^MUMPS
    1)= D SAC2^PSDUTL3
    2)= D KAC2^PSDUTL3
    3)= DO NOT DELETE
    This cross-reference is used in compiling the Controlled Substances destroyed drugs report.
    The cross-reference is ^PSD(58.86,"AC",DATE/TIME DESTROYED,DISPENSING SITE,DRUG,DA)=""
  • CROSS-REFERENCE:  58.86^AD2^MUMPS
    1)= D SAD2^PSDUTL3
    2)= D KAD2^PSDUTL3
    3)= DO NOT DELETE
    This cross-reference is used in compiling the Controlled Substances destroyed drugs report.
    The cross-reference is ^PSD(58.86,"AD",DATE/TIME DESTROYED,DISPENSING SITE, FREE-TEXT DRUG NAME,DA)=""
8 TRANSACTION # 0;9 POINTER TO DRUG ACCOUNTABILITY TRANSACTION FILE (#58.81) DRUG ACCOUNTABILITY TRANSACTION(#58.81)

  • LAST EDITED:  JUN 07, 1992
  • HELP-PROMPT:  Enter transaction number of this drug.
  • DESCRIPTION:  
    A pointer to the transaction associated with this drug destruction.
9 PHARMACIST DESTROYED DRUG 0;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSDMGR"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 24, 1993
  • HELP-PROMPT:  Enter the name of the pharmacist destroying this drug.
  • DESCRIPTION:  
    A pointer to the name of the pharmacist verifying this drug was destroyed.
  • SCREEN:  S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSDMGR"",+Y)):1,1:0)"
  • EXPLANATION:  Access granted to pharmacists holding the appropriate security key.
10 DATE/TIME DESTROYED 0;11 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 24, 1993
  • HELP-PROMPT:  Enter the date/time this drug was destroyed.
  • DESCRIPTION:  
    The destruction date/time of this drug.
  • CROSS-REFERENCE:  58.86^AC^MUMPS
    1)= D SAC^PSDUTL3
    2)= D KAC^PSDUTL3
    3)= DO NOT DELETE
    This cross-reference is used in compiling the Controlled Substances destroyed drugs report.
    The cross-reference is ^PSD(58.86,"AC",DATE/TIME DESTROYED,DISPENSING SITE,DRUG,DA)=""
  • CROSS-REFERENCE:  58.86^AD^MUMPS
    1)= D SAD^PSDUTL3
    2)= D KAD^PSDUTL3
    3)= DO NOT DELETE
    This cross-reference is used in compiling the Controlled Substances destroyed drugs report.
    The cross-reference is ^PSD(58.86,"AC",DATE/TIME DESTROYED,DISPENSING SITE, FREE-TEXT DRUG NAME,DA)=""
11 NO. OF CONTAINERS 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 16, 1993
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the number of containers destroyed. This information is required for DEA Form - 41.
12 UNIT 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1)!'(X?1A.A) X
  • LAST EDITED:  MAY 16, 1993
  • HELP-PROMPT:  Enter unit being destroyed (e.g., PACK, EACH. Not to exceed 10 characters).
  • DESCRIPTION:  
    The DEA Form - 41 requires that unit be defined for each controlled substance destroyed.
13 DRUG ITEM 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  OCT 24, 1993
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    The free-text name of the drug not normally housed within the VA.
  • CROSS-REFERENCE:  58.86^AD1^MUMPS
    1)= D SAD1^PSDUTL3
    2)= D KAD1^PSDUTL3
    3)= DO NOT DELETE
    This cross-reference is used in compiling the Controlled Substances destroyed drugs report.
    The cross-reference is ^PSD(58.86,"AD",DATE/TIME DESTROYED,DISPENSING SITE, FREE-TEXT DRUG NAME,DA)=""
14 COMMENTS 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  MAR 02, 1995
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
  • DESCRIPTION:  
    Enter patient name, RX# and reason drug is placed on hold.
  • TECHNICAL DESCR:  
    E3R# 3771 requested a comment field to enter patient name, RX# and reason drug is placed on hold.
15 DATE/TIME CANCELLED 3;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 16, 1995
  • HELP-PROMPT:  Enter the date/time the holding number was cancelled.
  • DESCRIPTION:  
    The date the holding number is being cancelled.
  • TECHNICAL DESCR:  
    E3R# 4990. This field displays the date the holding number was cancelled.
16 CANCELLED BY 3;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 17, 1995
  • HELP-PROMPT:  Enter the name of the pharmacist cancelling the holding number.
  • DESCRIPTION:  
    A pointer to file# 200 for the name of the pharmacist cancelling the holding number.
  • TECHNICAL DESCR:  
    E3R# 4990. This field displays the name of the pharmacist cancelling the holding number.
17 COMMENTS 3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  JUL 17, 1995
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
  • DESCRIPTION:  
    Enter the reason the holding number was cancelled.
  • TECHNICAL DESCR:  
    E3R# 4990. Enter the reason the holding number was cancelled.
18 PATIENT RETURNING DRUG 0;13 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • LAST EDITED:  JUL 03, 1995
  • HELP-PROMPT:  Enter the name of the patient/person returning the drug.
  • DESCRIPTION:  
    A pointer to the name of the patient/person returning the drug for destruction.
  • TECHNICAL DESCR:  
    E3R# 4990 and David@jackson requested this fld be added to enter patient name returning the drug.
19 PRICE PER DISPENSE UNIT 0;14 POINTER TO DRUG FILE (#50) DRUG(#50)

  • LAST EDITED:  JUL 05, 1995
  • HELP-PROMPT:  This fld is automatically filled with data fr file #50,16 660;6.
  • DESCRIPTION:  
    This fld holds the data selected fr file #50,16 660;6.
  • TECHNICAL DESCR:  
    This fld and Qty 2,0;3 are used to calculate cost data by drug for the Destroyed Drug Report.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #4472
  • Drug Accountability
  • External References

    Name Field # of Occurrence
    ^%DT 5+1, 10+1, 15+1
    ^DIC 1+1, 3+1, 4+1, 6+1, 9+1
    Y^DIQ ID1+1
    KAC^PSDUTL3 10(XREF 1K)
    KAC1^PSDUTL3 1(XREF 1K)
    KAC2^PSDUTL3 6(XREF 1K)
    KAD^PSDUTL3 10(XREF 2K)
    KAD1^PSDUTL3 13(XREF 1K)
    KAD2^PSDUTL3 6(XREF 2K)
    SAC^PSDUTL3 10(XREF 1S)
    SAC1^PSDUTL3 1(XREF 1S)
    SAC2^PSDUTL3 6(XREF 1S)
    SAD^PSDUTL3 10(XREF 2S)
    SAD1^PSDUTL3 13(XREF 1S)
    SAD2^PSDUTL3 6(XREF 2S)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(50 ID1+1
    ^PSD(58.86 - [#58.86] .01(XREF 1S), .01(XREF 1K)
    ^PSDRUG - [#50] ID1+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID1+1
    ^(1 ID13+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 5+1*, 10+1*, 15+1*
    %I ID1+1*!
    >> C ID1+1*
    >> DA .01(XREF 1S), .01(XREF 1K)
    DIC ID1+1, 1+1!*, 3+1!*, 4+1!*, 6+1!*, 9+1!*
    DIC("S" 1+1*, 1SCR+1*, 3+1*, 3SCR+1*, 4+1*, 4SCR+1*, 6+1*, 6SCR+1*, 9+1*, 9SCR+1*
    >> DIE 1+1, 3+1, 4+1, 6+1, 9+1
    >> DINUM .01+1*
    U ID1+1, ID13+1
    X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1*!, 2+1!, 3+1*!, 4+1*!, 5+1*!, 6+1*!, 9+1*!
    , 10+1*!, 11+1!, 12+1!, 13+1!, 14+1!, 15+1*!, 17+1!
    >> Y ID1+1*, 1+1, 3+1, 4+1, 5+1, 6+1, 9+1, 10+1, 15+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All