STANDARD DATA DICTIONARY #58.85 -- CS WORKSHEET FILE 6/27/25 PAGE 1
STORED IN ^PSD(58.85, *** 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 associated with the Controlled Substances order requests. Pharmacy dispenses these orders based on
data contained on the worksheet printed from this file. This file is purged when orders are delivered to an NAOU or when
cancelled.
Entries in this file should NOT be edited directly using VA FileMan. The Controlled Substances module contains the appropriate
data checks.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: NAOU (#2)[R], DRUG (#3)[R]
CROSS
REFERENCED BY: ORDER STATUS(AC), REQUEST #(AD), DISPENSING SITE(AE), PRINTED(AW), DISPENSING SITE(AW1), RECORD NUMBER(B)
58.85,.01 RECORD NUMBER 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 25, 1992
HELP-PROMPT: Type a Number between 1 and 999999999, 0 Decimal Digits
DESCRIPTION:
The record number for this worksheet entry.
CROSS-REFERENCE: 58.85^B
1)= S ^PSD(58.85,"B",$E(X,1,30),DA)=""
2)= K ^PSD(58.85,"B",$E(X,1,30),DA)
58.85,1 DISPENSING SITE 0;2 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8) (Required)
INPUT TRANSFORM: S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,$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: AUG 25, 1992
HELP-PROMPT: Enter the Pharmacy dispensing location.
DESCRIPTION:
The pharmacy dispensing site (vault) for this Controlled Substances order.
SCREEN: S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,$S($P(^(0),""^"",2)=""M"":1,$P(^(0),""^"",2)=""
S"":1,1:0)"
EXPLANATION: Allows selection of Master vault or Satellite vault as a dispensing site.
CROSS-REFERENCE: 58.85^AE
1)= S ^PSD(58.85,"AE",$E(X,1,30),DA)=""
2)= K ^PSD(58.85,"AE",$E(X,1,30),DA)
CROSS-REFERENCE: 58.85^AW1^MUMPS
1)= D SAW1^PSDUTL1
2)= D KAW1^PSDUTL1
3)= DO NOT DELETE
This cross-reference will be used in displaying the CS request orders in the order printed on the
"Pharmacy Dispensing Worksheet" report.
The cross-reference is ^PSD(58.85,"AW",DISP SITE,PRT #,DA)=""
58.85,2 NAOU 0;3 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8) (Required)
INPUT TRANSFORM: S DIC("S")="I $S($P(^(0),""^"",2)=""N"":1,$P(^(0),""^"",2)=""S"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+
Y K:Y<0 X
LAST EDITED: AUG 25, 1992
HELP-PROMPT: Enter the requesting NAOU.
DESCRIPTION:
The Narcotic Area of Use requesting the Controlled Substances order.
SCREEN: S DIC("S")="I $S($P(^(0),""^"",2)=""N"":1,$P(^(0),""^"",2)=""S"":1,1:0)"
EXPLANATION: Allows selection of a Satellite vault or a Narcotic location.
58.85,3 DRUG 0;4 POINTER TO DRUG FILE (#50) (Required)
INPUT TRANSFORM: S DIC("S")="I $S('$D(^(""I"")):1,+^(""I"")>DT:1,1:0),$S($P($G(^(2)),""^"",3)[""N"":1,1:0)" D ^DIC K
DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 25, 1992
HELP-PROMPT: Enter drug requested for this order.
DESCRIPTION:
The Controlled Substances drug requested on this order.
SCREEN: S DIC("S")="I $S('$D(^(""I"")):1,+^(""I"")>DT:1,1:0),$S($P($G(^(2)),""^"",3)[""N"":1,1:0)"
EXPLANATION: Allows selection of ACTIVE drugs marked for Controlled Substances package use.
58.85,4 REQUEST # 0;5 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 25, 1992
HELP-PROMPT: Type a Number between 1 and 99999999, 0 Decimal Digits
DESCRIPTION:
The request number for this Controlled Substances order.
CROSS-REFERENCE: 58.85^AD^MUMPS
1)= D REQ^PSDUTL
2)= D KREQ^PSDUTL
3)= DO NOT DELETE
This cross-reference will be used for updating order requests stored in the DRUG ACCOUNTABILITY
STATS file (#58.8).
The cross-reference is ^PSD(58.85,"AD",NAOU,DRUG,REQUEST #,DA)=""
58.85,5 QUANTITY ORDERED 0;6 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 15, 1992
HELP-PROMPT: Type a Number between 1 and 999999, 0 Decimal Digits
DESCRIPTION:
The drug quantity originally requested on this Controlled Substances order.
58.85,6 ORDER STATUS 0;7 POINTER TO CS ORDER STATUS FILE (#58.82) (Required)
LAST EDITED: MAR 25, 1992
HELP-PROMPT: Enter processing status for this order.
DESCRIPTION:
A pointer to the order status for this Controlled Substances request.
CROSS-REFERENCE: 58.85^AC^MUMPS
1)= D STAT^PSDUTL
2)= D KSTAT^PSDUTL
3)= DO NOT DELETE
This cross-reference is used for various Controlled Substances statistical reports.
The cross-reference is ^PSD(58.85,"AC",STATUS,NAOU,DRUG,REQUEST #,DA)=""
58.85,7 TRANSACTION # 0;8 POINTER TO DRUG ACCOUNTABILITY TRANSACTION FILE (#58.81)
LAST EDITED: MAR 25, 1992
HELP-PROMPT: Enter the transaction # for this order.
DESCRIPTION: If this request is processed by pharmacy, this field contains a pointer to the transaction
dispensing this order.
58.85,8 COMMENTS 1;0 WORD-PROCESSING #58.858
DESCRIPTION:
Comments to pharmacy concerning this Controlled Substances order request.
LAST EDITED: APR 05, 1992
DESCRIPTION:
Comments to pharmacy concerning this Controlled Substances order request.
58.85,9 MANUFACTURER 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: APR 05, 1992
HELP-PROMPT: Enter the current manufacturer.
DESCRIPTION:
The manufacturer for the drug requested on this order.
58.85,10 LOT # 0;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: APR 05, 1992
HELP-PROMPT: Enter the current lot # for this drug.
DESCRIPTION:
The lot number for the drug requested on this order.
58.85,11 EXPIRATION DATE 0;11 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 30, 1992
HELP-PROMPT: Enter the expiration date for this drug.
DESCRIPTION:
The expiration date for the drug requested on this order.
58.85,12 ORDERED BY 0;12 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PS
J RPHARM"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 19, 1992
HELP-PROMPT: Enter the person's name requesting this order.
DESCRIPTION:
A pointer to the name of the person requesting this Controlled Substances order.
SCREEN: S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PS
J RPHARM"",+Y)):1,1:0)"
EXPLANATION: Access granted to nurses and pharmacy personnel holding the appropriate security key.
58.85,13 PRINTED 2;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 25, 1992
HELP-PROMPT: Type a Number between 1 and 999999, 0 Decimal Digits
DESCRIPTION: This printed flag will be set to a counter if this request has been printed on a worksheet report.
This flag will be used to compile the pharmacy worksheet log used in dispensing Controlled
Substances drugs.
CROSS-REFERENCE: 58.85^AW^MUMPS
1)= D SAW^PSDUTL1
2)= D KAW^PSDUTL1
3)= DO NOT DELETE
This cross-reference will be used in displaying CS request orders in the order printed on the
"Pharmacy Dispensing Worksheet" report.
The cross-reference is ^PSD(58.85,"AW",DISP SITE,PRT #,DA)=""
58.85,14 DISPENSED BY 0;13 POINTER TO NEW PERSON FILE (#200)
DISPENSING PHARMACIST
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: APR 19, 1992
HELP-PROMPT: Enter name of the dispensing pharmacist.
DESCRIPTION:
A pointer to the name of the pharmacist dispensing this Controlled Substances order.
SCREEN: S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))"
EXPLANATION: Access granted to pharmacists holding the appropriate security key.
58.85,15 DISPENSED DATE/TIME 0;14 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 01, 1993
DESCRIPTION:
The dispensed date/time of this Controlled Substances order.
58.85,16 PHARMACY DISPENSING # 0;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1) X
LAST EDITED: AUG 12, 1992
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION: The pharmacy control number (Green Sheet #) assigned to identify and track this Controlled
Substances order.
58.85,17 TECH 0;16 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $S($D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PSJ RPHARM"",+Y)):1,1:0)" D ^DIC K
DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 19, 1992
HELP-PROMPT: Enter the name of the pharmacy employee processing this order.
DESCRIPTION: If a pharmacy technician processed this order, this field will contain a pointer to the name of the
technician.
SCREEN: S DIC("S")="I $S($D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PSJ RPHARM"",+Y)):1,1:0)"
EXPLANATION: Access granted to technicians holding the appropriate security key.
58.85,18 QUANTITY DISPENSED 0;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAY 12, 1999
HELP-PROMPT: Type a Number between 0 and 999999, 2 Decimal Digits
DESCRIPTION:
The actual drug quantity dispensed from pharmacy for this Controlled Substances order.
58.85,19 REQUEST DATE/TIME 0;18 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 01, 1992
HELP-PROMPT: Enter the request date for this order.
DESCRIPTION:
The date/time this Controlled Substances request was entered by the NAOU.
58.85,20 ORDERED BY PHARMACY 0;19 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $S($D(^XUSEC(""PSJ RPHAM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)" D ^DIC K
DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 10, 1993
HELP-PROMPT: Enter the person's name requesting this order for nursing.
DESCRIPTION:
A pointer to the pharmacy employee's name entering the Controlled Substances request for nursing.
SCREEN: S DIC("S")="I $S($D(^XUSEC(""PSJ RPHAM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)"
EXPLANATION: Access granted to pharmacy personnel holding the appropriate security key.
58.85,21 EMERGENCY 2;2 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: FEB 14, 1995
HELP-PROMPT: Answer "YES" if this is an emergency order.
DESCRIPTION: A "YES" entry in this field will cause an order to print on the pharmacy emergency order printer
and allow for expedited processing.
TECHNICAL DESCR:
This field is used to flag orders for expedited processing.
58.85,22 PATIENT 2;3 POINTER TO PATIENT FILE (#2)
LAST EDITED: AUG 16, 1996
HELP-PROMPT: Enter the patient for which this Controlled Substance is being ordered.
DESCRIPTION:
This field is for infusion and PCA syringe orders.
FILES POINTED TO FIELDS
CS ORDER STATUS (#58.82) ORDER STATUS (#6)
DRUG (#50) DRUG (#3)
DRUG ACCOUNTABILITY STATS
(#58.8) DISPENSING SITE (#1)
NAOU (#2)
DRUG ACCOUNTABILITY TRANSACTIO
(#58.81) TRANSACTION # (#7)
NEW PERSON (#200) ORDERED BY (#12)
DISPENSED BY (#14)
TECH (#17)
ORDERED BY PHARMACY (#20)
PATIENT (#2) PATIENT (#22)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):