STANDARD DATA DICTIONARY #58.86 -- CS DESTRUCTION FILE 9/29/25 PAGE 1
STORED IN ^PSD(58.86, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the data for all Controlled Substances drugs destroyed. The entries are listed pending destruction until
pharmacy destroys the drug and updates this file.
Entries in this file should NOT be edited directly using VA FileMan. The Controlled Substances module contains all necessary data
checks.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: DRUG (#1), DRUG ITEM (#13)
POINTED TO BY: DEST HOLDING # field (#47) of the DRUG ACCOUNTABILITY TRANSACTION File (#58.81)
CROSS
REFERENCED BY: DATE/TIME DESTROYED(AC), DRUG(AC1), RETURNED TO DISP SITE(AC2), DATE/TIME DESTROYED(AD), DRUG ITEM(AD1),
RETURNED TO DISP SITE(AD2), NUMBER(B)
58.86,.01 NUMBER 0;1 NUMBER (Required)
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)
58.86,1 DRUG 0;2 POINTER TO DRUG FILE (#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)=""
58.86,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.
58.86,3 PHARMACIST TURNING IN DRUG 0;4 POINTER TO NEW PERSON FILE (#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.
58.86,4 NURSE RETURNING DRUG 0;5 POINTER TO NEW PERSON FILE (#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.
58.86,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.
58.86,6 RETURNED TO DISP SITE 0;7 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#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)=""
58.86,8 TRANSACTION # 0;9 POINTER TO DRUG ACCOUNTABILITY TRANSACTION FILE (#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.
58.86,9 PHARMACIST DESTROYED DRUG 0;10 POINTER TO NEW PERSON FILE (#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 D
IC=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.
58.86,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)=""
58.86,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.
58.86,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.
58.86,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)=""
58.86,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.
58.86,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.
58.86,16 CANCELLED BY 3;2 POINTER TO NEW PERSON FILE (#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.
58.86,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.
58.86,18 PATIENT RETURNING DRUG 0;13 POINTER TO PATIENT FILE (#2)
Patient returning the drug
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.
58.86,19 PRICE PER DISPENSE UNIT 0;14 POINTER TO DRUG FILE (#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.
FILES POINTED TO FIELDS
DRUG (#50) DRUG (#1)
PRICE PER DISPENSE UNIT (#19)
DRUG ACCOUNTABILITY STATS
(#58.8) RETURNED TO DISP SITE (#6)
DRUG ACCOUNTABILITY TRANSACTIO
(#58.81) TRANSACTION # (#8)
NEW PERSON (#200) PHARMACIST TURNING IN DRUG (#3)
NURSE RETURNING DRUG (#4)
PHARMACIST DESTROYED DRUG (#9)
CANCELLED BY (#16)
PATIENT (#2) PATIENT RETURNING DRUG (#18)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):