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 |  Found Entries |  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: 10

Package Total Routines
Controlled Substances 10 PSDEA41    PSDEST    PSDESTF    PSDESTO    PSDESTP    PSDGSH11    PSDGSRV1    PSDHRPT
PSDRPT    PSDUTL3    

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)[3, 4, 9, 16]    
Pharmacy Data Management 1 DRUG(#50)[1, 19]    
Registration 1 VA 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 VA PATIENT FILE (#2)
VA 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
    		• 



    

    


    


    
Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointed To By FileMan Files | 
Pointer To FileMan Files | 
Fields | 
ICR | 
Found Entries | 
All