STANDARD DATA DICTIONARY #58.8 -- DRUG ACCOUNTABILITY STATS FILE 3/24/25 PAGE 1
STORED IN ^PSD(58.8, (1 ENTRY) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains data associated with the Pharmacy Drug Accountability Stats location. Entries in this file may be edited but
not deleted. Entries in this file should NOT be edited directly using VA FileMan.
This file is designed to be shared between the Drug Accountability module and the Controlled Substances module of the Pharmacy
software. The Controlled Substances module will recognize a location as a Narcotic Area of Use (NAOU). The menu option Inactivate
NAOU [PSD INACTIVATE NAOU] is used to inactivate NAOUs no longer in use. The menu option Inactivate NAOU Stock Drug [PSD
INACTIVATE NAOU STOCK DRUG] is used to inactivate drugs no longer stocked within that NAOU.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY:
"WRITE": I $D(^("I")),^("I")]"",^("I")'>DT D EN^DDIOL($C(7)_"**INACTIVE**")
POINTED TO BY: NARCOTIC AREA OF USE (NAOU) field (#.01) of the NARCOTIC AREA OF USE (NAOU) sub-field (#58.29) of the AOU INVENTORY
GROUP File (#58.2)
PHARMACY LOCATION field (#.01) of the RETURN DRUG File (#58.35)
PRIMARY DISPENSING SITE field (#3) of the DRUG ACCOUNTABILITY STATS File (#58.8)
DISPENSING SITE field (#2) of the ORDERS sub-field (#58.800118) of the DRUG sub-field (#58.8001) of the DRUG
ACCOUNTABILITY STATS File (#58.8)
PHARMACY LOCATION field (#2) of the DRUG ACCOUNTABILITY TRANSACTION File (#58.81)
NAOU field (#17) of the DRUG ACCOUNTABILITY TRANSACTION File (#58.81)
TRANSFER TO NAOU field (#66) of the DRUG ACCOUNTABILITY TRANSACTION File (#58.81)
PHARMACY LOCATION field (#4) of the INVOICE DATA sub-field (#58.8112) of the DRUG ACCOUNTABILITY ORDER File
(#58.811)
MASTER VAULT field (#13) of the INVOICE DATA sub-field (#58.8112) of the DRUG ACCOUNTABILITY ORDER File (#58.811)
DISPENSING SITE field (#1) of the CS WORKSHEET File (#58.85)
NAOU field (#2) of the CS WORKSHEET File (#58.85)
RETURNED TO DISP SITE field (#6) of the CS DESTRUCTION File (#58.86)
NAOU field (#5) of the CS CORRECTION LOG File (#58.87)
PHARM DISPENSING SITE field (#12) of the CS CORRECTION LOG File (#58.87)
CS LOCATION field (#6) of the CS ERROR LOG File (#58.89)
CS NAOU field (#.01) of the PBM CS NAOU MAPPINGS sub-field (#59.79002) of the PHARMACY SYSTEM File (#59.7)
DA PHARMACY LOCATION field (#.01) of the PBM DA PHARM LOC MAPPINGS sub-field (#59.79003) of the PHARMACY SYSTEM File
(#59.7)
CROSS
REFERENCED BY: WARD(AB), ORDER STATUS(AC), DISPENSED DATE/TIME(AD), LOCATION TYPE(ADISP), EXPIRATION DATE(AEXP),
EXPIRATION DATE(AEXPO), IV ROOM(AIV), OUTPATIENT SITE(AOP), OUTPATIENT SITE(S)(AOP), INPATIENT SITE(ASITE),
LOCATION TYPE(ASITE1), PHARMACY LOCATION(B), BALANCE DISCREPANCY CHECK(BC), DRUG(C), WARD (FOR DRUG)(D),
*PRIMARY INVENTORY POINT(E), PHARMACY DISPENSING #(F), PRIMARY INVENTORY POINT(S)(P)
LAST MODIFIED: DEC 4,2018@15:45:13
58.8,.01 PHARMACY LOCATION 0;1 FREE TEXT (Required)
NAOU
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X
LAST EDITED: AUG 17, 2000
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION: This field contains the name of the Pharmacy location.
The Controlled Substances module will recognize this location as the Narcotic Area of Use (NAOU)
throughout this package.
TECHNICAL DESCR:
Free text name of this Pharmacy location. Not to exceed 30 characters.
DELETE TEST: .01,0)= I 1 W !,?5,"DO NOT DELETE. Use the Inactivate NAOU option. "
CROSS-REFERENCE: 58.8^B
1)= S ^PSD(58.8,"B",$E(X,1,30),DA)=""
2)= K ^PSD(58.8,"B",$E(X,1,30),DA)
58.8,1 LOCATION TYPE 0;2 SET (Required)
Location Type
'M' FOR MASTER VAULT;
'S' FOR SATELLITE VAULT;
'N' FOR NARCOTIC LOCATION;
'P' FOR PRIMARY;
INPUT TRANSFORM: K X W $C(7),!,?10," ** No Editing ** ",!
LAST EDITED: OCT 21, 1993
HELP-PROMPT: Enter the location type.
DESCRIPTION: This field contains the location type for this pharmacy location. Location types are "M" for
master vault, "S" for satellite vault, "N" for narcotic location, and "P" for primary.
This field should NOT be edited directly using VA FileMan. The Drug Accountability and Controlled
Substances modules depend on the accuracy of this data.
The Controlled Substances module supports "M", "S" and "N" location types. For CS use, enter the
master vault locations first.
TECHNICAL DESCR:
Set of codes. Do NOT edit directly using VA FileMan.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 58.8^ADISP
1)= S ^PSD(58.8,"ADISP",$E(X,1,30),DA)=""
2)= K ^PSD(58.8,"ADISP",$E(X,1,30),DA)
CROSS-REFERENCE: 58.8^ASITE1^MUMPS
1)= D SASITE1^PSDUTL
2)= D KASITE1^PSDUTL
3)= DO NOT DELETE
This cross-reference is used in determining site for all Controlled Substances applications. The
cross-reference is ^PSD(58.8,"ASITE",INPATIENT SITE,LOC TYPE,DA)="".
58.8,2 INPATIENT SITE 0;3 POINTER TO INPATIENT SITE FILE (#59.4) (Required)
CS SITE
INPUT TRANSFORM: S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",31)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 09, 1992
HELP-PROMPT: Enter inpatient site.
DESCRIPTION: This field contains a pointer to the inpatient site. This is a required data element within the
Controlled Substances module.
TECHNICAL DESCR:
Screened pointer to File 59.4 - INPATIENT SITE file. Required for CS use.
SCREEN: S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",31)"
EXPLANATION: Select only sites that are "Selectable for CS" in File 59.4.
CROSS-REFERENCE: 58.8^ASITE^MUMPS
1)= D SASITE^PSDUTL
2)= D KASITE^PSDUTL
3)= DO NOT DELETE
This cross-reference is used in distinguishing multi-divisional sites. The Controlled Substances
software uses this cross-reference in all ordering, dispensing, and reporting activity. The
cross-reference is ^PSD(58.8,"ASITE",INPATIENT SITE,LOC TYPE,DA)="".
58.8,3 PRIMARY DISPENSING SITE 0;4 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8)
Primary Dispensing Site
INPUT TRANSFORM: S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,+Y'=DA,$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 21, 1992
HELP-PROMPT: Answer must be the name of an existing Master or Satellite vault.
DESCRIPTION: This field contains a pointer to the primary dispensing site for this pharmacy location. This data
is utilized within the Controlled Substances module.
TECHNICAL DESCR: Screened pointer to File 58.8 - DRUG ACCOUNTABILITY STATS file. Selection limited to Master vault
or Satellite vault.
SCREEN: S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,+Y'=DA,$S($P(^(0),""^"",2)=""M"":1,$P(^(0),""^"
",2)=""S"":1,1:0)"
EXPLANATION: Selection limited to Master or Satellite vault.
58.8,4 INACTIVE DATE I;1 DATE
Inactive Date
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 06, 1992
HELP-PROMPT: Enter the date when this pharmacy location became inactive.
DESCRIPTION:
The date on which this pharmacy location was inactivated.
TECHNICAL DESCR:
Inactive date for this pharmacy location.
58.8,5 ASK MFG/LOT #/EXP.DATE? 0;5 SET
Ask Mfg/Lot #/Exp.Date?
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JAN 06, 1992
HELP-PROMPT: Enter "1" or "Y" if you wish to be prompted for mfg., lot #, and exp. date.
DESCRIPTION: The answer for asking manufacturer, lot #, and expiration date on drugs tracked within this
Pharmacy location . If this field is set to "1" or "YES", manufacturer, lot number, and expiration
date will be asked when dispensing drugs within this Pharmacy location.
For Controlled Substances use, this field should be answered for Master vaults and Satellite
vaults.
TECHNICAL DESCR:
Set of codes - "1" for "YES" or "0" for "NO".
58.8,6 IS THIS PHARM WORKING STOCK? 0;7 SET
Is this a Pharmacy NAOU for Working Stock?
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAY 05, 1992
HELP-PROMPT: Enter "1" or "Y" if this is a Pharmacy NAOU for working stock.
DESCRIPTION: Pharmacy location designated as a Narcotic Area of Use for pharmacy working stock. If this field is
set to "1" or "YES" drug data will be utilized differently within the Controlled Substances module.
TECHNICAL DESCR:
Set of codes - "1" for "YES" or "0" for "NO".
58.8,10 DRUG 1;0 POINTER Multiple #58.8001
DESCRIPTION: Drug is defined by physical location, stock level, balance on-hand, reorder level, quantity to
reorder, breakdown unit, package size, manufacturer, lot number, and expiration date. Other
information available is inventory types, ward (for drug), and prime vendor item number (if
applicable).
In the Controlled Substances module, all CS order requests are stored in the ORDERS multiple within
DRUG.
58.8001,.01 DRUG 0;1 POINTER TO DRUG FILE (#50) (Required) (Multiply asked)
CS Drug
INPUT TRANSFORM:S DIC("S")="I $S('$D(^(""I"")):1,+^(""I"")>DT:1,1:0)" S:$D(PSDSITE) DIC("S")=DIC("S")_",$S($P($G(^(
2)),""^"",3)[""N"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAR 30, 1992
HELP-PROMPT: Enter the name of the drug being stocked in this pharmacy location.
DESCRIPTION:
This field contains a pointer to the drug being stocked in this pharmacy location.
TECHNICAL DESCR:Within the Controlled Substances module, select only ACTIVE drugs marked for use in the CS package.
Do not select INACTIVE or NON-PHARMACY drugs. This field should not be edited directly using VA
FileMan. The appropriate screen for selecting ACTIVE drugs marked for CS use is contained within
the package functionality. DINUMed pointer to File 50 - DRUG file.
SCREEN: S DIC("S")="I $S('$D(^(""I"")):1,+^(""I"")>DT:1,1:0)" S:$D(PSDSITE) DIC("S")=DIC("S")_",$S($P($G(^(
2)),""^"",3)[""N"":1,1:0)"
EXPLANATION: For CS locations, select only ACTIVE drugs marked for CS package use.
DELETE TEST: .01,0)= I 1 W !,?5,"DO NOT DELETE. For CS locations, use the Inactivate Stocked CS Drug option. "
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:58.8001^B
1)= S ^PSD(58.8,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PSD(58.8,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE:58.8^C
1)= S ^PSD(58.8,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^PSD(58.8,"C",$E(X,1,30),DA(1),DA)
3)= DO NOT DELETE
This cross-reference will be used for various reports within the Drug Accountability and Controlled
Substances modules.
58.8001,1 LOCATION 0;2 FREE TEXT
Location
INPUT TRANSFORM:K:$L(X)>12!($L(X)<1) X
LAST EDITED: SEP 04, 1991
HELP-PROMPT: Answer must be 1-12 characters in length.
DESCRIPTION: This is the location address of the drug in the pharmacy location. It can consist of up to 3
levels, each separated by a comma. For example, "MR,CA,S3" or "CUR,CB,D1". This information is
used to sort drugs on inventory sheets and other printouts.
TECHNICAL DESCR:Location address of this drug. It can consist of up to 3 levels of locations defined in File 58.17
- AOU ITEM LOCATION file. Not to exceed 12 characters.
58.8001,2 STOCK LEVEL 0;3 NUMBER
Stock Level
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 24, 1992
HELP-PROMPT: Enter the ideal number of dispense units to keep on the shelf.
DESCRIPTION: This field contains the quantity that is the required stock level for the drug in this pharmacy
location. It is recorded in dispense units.
58.8001,3 BALANCE 0;4 NUMBER
Balance
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."3N.N) X
LAST EDITED: APR 28, 1993
HELP-PROMPT: Type a Number between -999999 and 999999, 2 Decimal Digits
DESCRIPTION:
This field contains the current balance (quantity) of this stocked drug.
58.8001,4 REORDER LEVEL 0;5 NUMBER
Reorder Level
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 24, 1992
HELP-PROMPT: Enter the minimum number of dispense units you want to have in the pharmacy location.
DESCRIPTION: This field contains the on-hand level that must be reached before a drug will have replacements
dispensed. It is recorded in dispense units.
58.8001,5 QUANTITY TO REORDER 0;6 NUMBER
Quantity to Reorder
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 24, 1992
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
This field contains the quantity to reorder for this stocked drug.
58.8001,6 DA CONVERSION # ; COMPUTED
Drug Accountability Conversion #
MUMPS CODE: X ^DD(58.8001,6,9.2) S D0=$P(Y(58.8001,6,1),U,1) S:'$D(^PSDRUG(+D0,0)) D0=-1 S Y(58.8001,6,101)=$S(
$D(^PSDRUG(D0,660)):^(660),1:"") S X=$P(Y(58.8001,6,101),U,5) S D0=Y(58.8001,6,80) S D1=Y(58.8001,6
,81)
9.2 = S Y(58.8001,6,81)=$S($D(D1):D1,1:""),Y(58.8001,6,80)=$S($D(D0):D0,1:""),Y(58.8001,6,1)=$S($D(
^PSD(58.8,D0,1,D1,0)):^(0),1:"")
ALGORITHM: DRUG:DISPENSE UNITS PER ORDER UNIT
LAST EDITED: APR 22, 1992
HELP-PROMPT: Type a Number between 1 and 999999, 0 Decimal Digits
DESCRIPTION: This field is computed by the value in the corresponding drug field, dispensing units per order
unit and used to convert receipts.
58.8001,7 BREAKDOWN UNIT 0;8 FREE TEXT
Breakdown Unit
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1)!'(X?1A.A) X
LAST EDITED: MAR 30, 1992
HELP-PROMPT: Enter dispensing unit, i.e., PACK, BOTTLE, EACH. Not to exceed 10 characters.
DESCRIPTION: This unit represents the pharmacy dispensing unit. Examples: BOX, EACH, BOTTLE, etc.
In the Controlled Substances module this is referred to as the "Narcotic Breakdown Unit" and will
be displayed during order entry. This information is required for order entry.
TECHNICAL DESCR:The breakdown unit name is free text not to exceed 10 characters. In the Controlled Substances
module this unit is required for order entry.
58.8001,8 PACKAGE SIZE 0;9 NUMBER
Package Size
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 30, 1992
HELP-PROMPT: Type a Number between 1 and 999999, 0 Decimal Digits
DESCRIPTION: This is the number of units dispensed from pharmacy.
In the Controlled Substances module, this is referred to as the "Narcotic Package Size" and will be
displayed during order entry. This information is required for order entry.
TECHNICAL DESCR:
In the Controlled Substances module this is required for order entry.
58.8001,8.5 MAXIMUM QUANTITY PER ORDER 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X I $P($G(^PSD(58.8,DA(1),1,DA,0)),U,9),$G(X)#$P($G(^(0)),U
,9) D EN^DDIOL("Must be a multiple of "_$P($G(^(0)),U,9)) K X
LAST EDITED: JUN 08, 1994
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits, and a multiple of the package size.
DESCRIPTION: For an NAOU that is keeping a perpetual inventory, this field may be used to limit the maximum
quantity that Nursing Service may enter for any single order for this drug. If this field is left
blank, deleted, or set to zero, Nursing Service will be able to enter any quantity that is a
multiple of package size, up to 999999, for any single order of this drug.
TECHNICAL DESCR:If the fifth piece of the second node of an entry in File 58.8 equals 1, the routine PSDSTK will
allow access to this field. Under the same circumstances, this field will be used to limit order
entry in routine PSDOR2.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.8001,9 MANUFACTURER 0;10 FREE TEXT
Manufacturer
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 04, 1991
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
This field contains the manufacturer of the currently stocked drug in this Pharmacy location.
58.8001,10 LOT # 0;11 FREE TEXT
Lot #
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
LAST EDITED: SEP 04, 1991
HELP-PROMPT: Answer must be 1-10 characters in length.
DESCRIPTION:
This field contains the lot # of the currently stocked drug in this Pharmacy location.
58.8001,11 EXPIRATION DATE 0;12 DATE
Expiration Date
INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 21, 1992
HELP-PROMPT: Enter expiration date for this drug.
DESCRIPTION:
This field contains the expiration date for this stocked drug.
TECHNICAL DESCR:
Date may be imprecise.
CROSS-REFERENCE:58.8^AEXP^MUMPS
1)= S ^PSD(58.8,"AEXP",$E(X,1,30),DA,DA(1))=""
2)= K ^PSD(58.8,"AEXP",$E(X,1,30),DA,DA(1))
3)= DO NOT DELETE
This cross-reference is used for compiling the Expiration Date Report in the Controlled Substances
module.
The cross-reference is ^PSD(58.8,"AEXP",DATE,DRUG,DA)="".
58.8001,12 PRIME VENDOR ITEM # 0;13 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
LAST EDITED: MAY 26, 1992
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION: To allow look-up by Prime Vendor Item # during receipt process. Also to locate by Prime Vendor
Item #, all receipts for that item.
TECHNICAL DESCR:
Used as a cross-reference for look-up during Prime Vendor receiving.
CROSS-REFERENCE:58.8001^C
1)= S ^PSD(58.8,DA(1),1,"C",$E(X,1,30),DA)=""
2)= K ^PSD(58.8,DA(1),1,"C",$E(X,1,30),DA)
To allow look-up by Prime Vendor Item number during receiving.
58.8001,13 INACTIVATION DATE 0;14 DATE
Inactivation Date
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 14, 1992
DESCRIPTION: This field contains the date on which this drug was inactivated, and thus is no longer considered
part of the standard stock for this Pharmacy location.
CROSS-REFERENCE:58.8001^AC^MUMPS
1)= S ^PSD(58.8,DA(1),1,DA,"I",X)=""
2)= K ^PSD(58.8,DA(1),1,DA,"I",X) D DELR^PSDUTL
This cross reference is used for locating inactivated CS stocked drugs.
58.8001,14 INACTIVATION REASON 0;15 SET
Inactivation Reason
'N' FOR NOT USED;
'O' FOR OTHER;
'DF' FOR DELETED FROM FORMULARY;
LAST EDITED: SEP 11, 1991
DESCRIPTION: This field contains the reason that the drug has been inactivated from the list of drugs normally
stocked in this Pharmacy location.
58.8001,14.5 INACTIVATION REASON (OTHER) 0;16 FREE TEXT
Inactivation Reason (Other)
INPUT TRANSFORM:K:$L(X)>40!($L(X)<3) X
LAST EDITED: SEP 11, 1991
HELP-PROMPT: Answer must be 3-40 characters in length.
DESCRIPTION: This field contains the custom reason for inactivating the drug from the stock list. An
inactivation reason of "other" should have been entered if a custom reason is to be listed.
58.8001,15 WARD (FOR DRUG) 1;0 POINTER Multiple #58.800115 (Add New Entry without Asking)
DESCRIPTION: Names of the ward or wards using this drug will be entered. This is a link between the Controlled
Substances package and the Unit Dose package for determining ward stocked drugs.
58.800115,.01 WARD (FOR DRUG) 0;1 POINTER TO WARD LOCATION FILE (#42) (Multiply asked)
INPUT TRANSFORM:S:$D(X) DINUM=X
LAST EDITED: MAR 21, 1992
HELP-PROMPT: Enter the ward which uses this drug.
DESCRIPTION: This field contains information from the WARD LOCATION file (#42). Names of the ward or wards
using this drug will be entered. This is the link between the Controlled Substances package and
the Unit Dose package for determining ward stocked drugs.
TECHNICAL DESCR:
DINUMed pointer to File 42 - WARD LOCATION file.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:58.8^D^MUMPS
1)= I $D(^PSD(58.8,DA(2),1,DA(1),0)),^(0) D INACT^PSDUTL I $D(PSDFLAG) S ^PSD(58.8,"D",+^(0),DA,DA(
2))="" K PSDFLAG
2)= I $D(^PSD(58.8,DA(2),1,DA(1),0)),^(0) K ^PSD(58.8,"D",+^(0),DA,DA(2))
3)= DO NOT DELETE
This cross-reference is the link between the Controlled Substances package and the Unit Dose
package for determining ward stocked drugs. The cross-reference is ^PSD(58.8,"D",DRUG,WARD,DA)=""
58.8001,16 INVENTORY TYPE 2;0 POINTER Multiple #58.800116 (Add New Entry without Asking)
LAST EDITED: JAN 22, 1992
DESCRIPTION:
Inventory types are used to group related drugs in a Narcotic Area of Use.
58.800116,.01 TYPE 0;1 POINTER TO AOU INVENTORY TYPE FILE (#58.16) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),""^"")'=""ALL""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: FEB 13, 1992
HELP-PROMPT: Enter the inventory type(s) for this CS drug.
DESCRIPTION: Pointer to the inventory types defined in File 58.16 - AOU INVENTORY TYPE file.
The Controlled Substances module uses inventory types to group related drugs in a Narcotic Area
of Use.
TECHNICAL DESCR:
DINUMed pointer to File 58.16 - AOU INVENTORY TYPE file.
SCREEN: S DIC("S")="I $P(^(0),""^"")'=""ALL"""
EXPLANATION: Screens out selection of "ALL" as Inventory Type.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.8001,17 SKIP PRINTING VA FORM 10-2638? GS;1 SET
Skip printing VA Form 10-2638 when dispensing this drug?
'1' FOR YES;
'0' FOR NO;
LAST EDITED: APR 22, 1992
HELP-PROMPT: Enter "YES" or "1" to skip printing VA FORM 10-2638 when dispensing this drug.
DESCRIPTION: Answer "1" or "YES" to skip printing the VA FORM 10-2638 (Green Sheet) when dispensing this drug
to this Narcotic Area of Use.
58.8001,18 ORDERS 3;0 Multiple #58.800118 (Add New Entry without Asking)
LAST EDITED: MAR 19, 1992
DESCRIPTION:
The ORDERS multiple stores all data associated with Controlled Substances order requests.
58.800118,.01 REQUEST # 0;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
LAST EDITED: MAR 22, 1992
HELP-PROMPT: Type a Number between 1 and 99999999, 0 Decimal Digits
DESCRIPTION:
Internal entry number for this Controlled Substances request order.
TECHNICAL DESCR:
DINUM
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:58.800118^B
1)= S ^PSD(58.8,DA(2),1,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^PSD(58.8,DA(2),1,DA(1),3,"B",$E(X,1,30),DA)
58.800118,1 REQUEST DATE/TIME 0;2 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 19, 1992
HELP-PROMPT: Enter the request date or date/time for this order.
DESCRIPTION:
The date or date/time this Controlled Substances request order was generated.
58.800118,2 DISPENSING SITE 0;3 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8) (Required)
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=D
IE,X=+Y K:Y<0 X
LAST EDITED: MAR 25, 1992
HELP-PROMPT:Enter the Pharmacy dispensing location.
DESCRIPTION:
A pointer to the primary dispensing site for this Controlled Substances request order. A primary
dispensing site is defined in the DRUG ACCOUNTABILITY STATS file (#58.8) as a Master vault or
Satellite vault.
TECHNICAL DESCR:
Screened pointer to File 58.8 - DRUG ACCOUNTABILITY STATS file. Allows selection of Master vault
or Satellite vault as a dispensing site.
SCREEN: S DIC("S")="I $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.
58.800118,3 ORDERED BY 0;4 POINTER TO NEW PERSON FILE (#200) (Required)
INPUT TRANSFORM:S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSE
C(""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 person requesting this CS order.
DESCRIPTION:
A pointer to the name of the person requesting this Controlled Substances order.
TECHNICAL DESCR:
Screened pointer to File 200 - NEW PERSON file.
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.800118,4 DISPENSED BY 0;5 POINTER TO NEW PERSON FILE (#200) (Required)
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: MAY 03, 1992
HELP-PROMPT:Enter the name of the pharmacist dispensing this CS order.
DESCRIPTION:
A pointer to the name of the pharmacist dispensing the drug for this Controlled Substances order.
TECHNICAL DESCR:
Screened pointer to File 200 - NEW PERSON file.
SCREEN: S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))"
EXPLANATION:Access granted to pharmacist holding the appropriate security key.
58.800118,5 QUANTITY ORDERED 0;6 NUMBER (Required)
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 30, 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.800118,6 RECEIVED BY 0;7 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(^XUSE
C(""PSJ RPHARM"",+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 person receiving this CS order.
DESCRIPTION:
A pointer to the name of the person receiving this Controlled Substances order.
TECHNICAL DESCR:
Screened pointer to File 200 - NEW PERSON file. Limits selection to nurses or pharmacy personnel
holding the appropriate security key.
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,$D(^XUSEC(""PSD NURSE"",+Y)):1,1:0)"
EXPLANATION:Access granted to nurses and pharmacy personnel holding the appropriate security key.
58.800118,7 MANUFACTURER 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: JAN 07, 1992
HELP-PROMPT:Enter the current manufacturer for the drug dispensed on this CS order.
DESCRIPTION:
The current manufacturer of the drug dispensed on this Controlled Substances order.
58.800118,8 LOT # 0;9 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
LAST EDITED: JAN 07, 1992
HELP-PROMPT:Enter the current lot # for the drug dispensed on this CS order.
DESCRIPTION:
The current lot # for the drug dispensed on this Controlled Substances order.
58.800118,9 EXPIRATION DATE 0;10 DATE
INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 04, 1992
HELP-PROMPT:Enter the expiration date for the drug dispensed on this CS order.
DESCRIPTION:
The current expiration date for the drug dispensed on this Controlled Substances order.
TECHNICAL DESCR:
Date may be imprecise.
CROSS-REFERENCE:58.8^AEXPO^MUMPS
1)= S ^PSD(58.8,"AEXPO",$E(X,1,30),DA(1),DA(2),DA)=""
2)= K ^PSD(58.8,"AEXPO",$E(X,1,30),DA(1),DA(2),DA)
3)= DO NOT DELETE
This cross-reference is used for compiling the Expiration Date Report in the Controlled Substances
module.
The cross-reference is ^PSD(58.8,"AEXPO",DATE,DRUG,NAOU,REQUEST #)=""
58.800118,10 ORDER STATUS 0;11 POINTER TO CS ORDER STATUS FILE (#58.82)
LAST EDITED: MAR 25, 1992
HELP-PROMPT:Enter the status of this Controlled Substances order.
DESCRIPTION:
The status of this Controlled Substances order.
CROSS-REFERENCE:58.8^AC^MUMPS
1)= S ^PSD(58.8,"AC",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^PSD(58.8,"AC",$E(X,1,30),DA(2),DA(1),DA)
3)= DO NOT DELETE
This cross reference is used in compiling data for various Controlled Substances statistical
reports. It represents ^PSD(58.8,"AC",ORDER STATUS,NAOU,DRUG,REQUEST #)=""
58.800118,11 COMPLETION STATUS 0;12 POINTER TO CS COMPLETION STATUS FILE (#58.83)
LAST EDITED: JUN 29, 1992
HELP-PROMPT:Enter the completion status of this Controlled Substances order.
DESCRIPTION:
The completion status for this Controlled Substances order.
58.800118,12 COMPLETION DATE/TIME 0;13 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 01, 1993
HELP-PROMPT:Enter the date/time this order was completed.
DESCRIPTION:
The date or date/time this Controlled Substances order was completed.
58.800118,13 COMMENTS 1;0 WORD-PROCESSING #58.80011813
DESCRIPTION:
Comments to pharmacy concerning this Controlled Substances order request.
LAST EDITED: MAR 23, 1992
HELP-PROMPT:Enter any comments for this order.
DESCRIPTION:
Comments to pharmacy concerning this Controlled Substances order request.
58.800118,14 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
HELP-PROMPT:Enter the date/time pharmacy dispensed this drug.
DESCRIPTION:
The date or date/time this Controlled Substances order was dispensed from pharmacy.
CROSS-REFERENCE:58.8^AD
1)= S ^PSD(58.8,"AD",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^PSD(58.8,"AD",$E(X,1,30),DA(2),DA(1),DA)
3)= DO NOT DELETE
58.800118,15 RECEIPT DATE/TIME 0;15 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 08, 1992
HELP-PROMPT:Enter date/time this drug was received into this Narcotic Area of Use.
DESCRIPTION:
The date or date/time this drug order was received into this Narcotic Area of Use.
58.800118,16 PHARMACY DISPENSING # 0;16 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 Controlled Substances control number (Green Sheet #) pharmacy assigned to this order.
If the site parameter "AUTO GENERATE DISPENSING #'S?" was answered "YES", this number will be
automatically generated within the Controlled Substances package.
CROSS-REFERENCE:58.8^F
1)= S ^PSD(58.8,"F",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^PSD(58.8,"F",$E(X,1,30),DA(2),DA(1),DA)
3)= DO NOT DELETE
58.800118,17 TRANSACTION # 0;17 POINTER TO DRUG ACCOUNTABILITY TRANSACTION FILE (#58.81)
LAST EDITED: MAR 22, 1992
HELP-PROMPT:Enter the transaction number for this CS order.
DESCRIPTION:
A pointer to the transaction for this Controlled Substances order.
TECHNICAL DESCR:
Pointer to File 58.81 - DRUG ACCOUNTABILITY TRANSACTION file.
58.800118,18 RX # 0;18 POINTER TO PRESCRIPTION FILE (#52)
LAST EDITED: MAR 23, 1992
HELP-PROMPT:Enter the prescription number for this CS order.
DESCRIPTION:
The prescription number for this Controlled Substances order.
TECHNICAL DESCR:
Pointer to File 52 - PRESCRIPTION file.
58.800118,19 QUANTITY DISPENSED 0;19 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 30, 1992
HELP-PROMPT:Type a Number between 1 and 999999, 0 Decimal Digits
DESCRIPTION:
The actual quantity of the drug dispensed from pharmacy on this Controlled Substances order.
58.800118,20 QUANTITY RECEIVED 0;20 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 23, 1993
HELP-PROMPT:Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The actual quantity of the drug received on this Controlled Substances order.
58.800118,21 DISCREPANCY UNRESOLVED 0;21 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUN 29, 1992
HELP-PROMPT:Answer "YES" if this receiving discrepancy is unresolved.
DESCRIPTION:
If the actual quantity of the drug received is different from the actual quantity pharmacy
dispensed, then this field will be set to "1" or "YES".
58.800118,22 BALANCE 0;22 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."1N.N) X
LAST EDITED: AUG 23, 1993
HELP-PROMPT:Type a Number between -999999 and 999999, 0 Decimal Digits
DESCRIPTION:
Actual balance of the drug for this Controlled Substances order.
58.800118,23 COMPLETED BY NURSE 2;1 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 ^DI
C 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 order.
DESCRIPTION:
A pointer to the name of the nurse returning the VA FORM 10-2638 (Green Sheet) to pharmacy.
TECHNICAL DESCR:
Screened pointer to File 200 - NEW PERSON file. Limits selection to nurses holding the appropriate
security key.
SCREEN: S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,1:0)"
EXPLANATION:Access granted to nurses holding the appropriate security key.
58.800118,24 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.800118,25 BALANCE BEFORE RECEIPT 2;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: OCT 31, 1996
HELP-PROMPT:Type a Number between 0 and 999999, 3 Decimal Digits
DESCRIPTION:
The balance of this drug before receiving this order
58.8001,19 ACTIVITY 4;0 POINTER Multiple #58.800119 (Add New Entry without Asking)
DESCRIPTION:
A link to the DRUG ACCOUNTABILITY TRANSACTION file (#58.81) where each receipt and adjustment is
stored as an audit trail.
In the Controlled Substances package, each dispensing transaction is also stored.
58.800119,.01 ACTIVITY 0;1 POINTER TO DRUG ACCOUNTABILITY TRANSACTION FILE (#58.81) (Multiply asked)
INPUT TRANSFORM:S:$D(X) DINUM=X
LAST EDITED: APR 27, 1992
DESCRIPTION:
A link to the DRUG ACCOUNTABILITY TRANSACTION file (#58.81) where each receipt and adjustment is
stored as an audit trail.
TECHNICAL DESCR:
Points to File 58.81 - DRUG ACCOUNTABILITY TRANSACTION file - where full information about each
transaction is stored.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:58.800119^B
1)= S ^PSD(58.8,DA(2),1,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^PSD(58.8,DA(2),1,DA(1),4,"B",$E(X,1,30),DA)
58.8001,20 MONTHLY ACTIVITY 5;0 Multiple #58.801 (Add New Entry without Asking)
DESCRIPTION:
As activity (receipts, adjustments, dispensing) occurs for each drug, an entry will be added here
in which to store totals.
58.801,.01 MONTHLY ACTIVITY 0;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<29204)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
OUTPUT TRANSFORM:X ^DD("DD")
LAST EDITED: FEB 25, 1993
HELP-PROMPT:Type a Number between 29204 and 9999999, 0 Decimal Digits
DESCRIPTION:
As activity (receipts, adjustments, dispensing) occurs for each drug, an entry will be added
here in which to store totals.
TECHNICAL DESCR:
Month of activity stored in seven digit FM format.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:58.801^B
1)= S ^PSD(58.8,DA(2),1,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^PSD(58.8,DA(2),1,DA(1),5,"B",$E(X,1,30),DA)
58.801,1 BEGINNING BALANCE 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."3N.N) X
LAST EDITED: MAY 03, 1993
HELP-PROMPT:Type a Number between -9999999 and 9999999, 2 Decimal Digits
DESCRIPTION:
At the beginning of each month, the current balance of a drug will be stuffed here by a queued
option.
TECHNICAL DESCR:
The balance of a drug at the beginning of the month.
58.801,2 BEGINNING VALUE ; COMPUTED
MUMPS CODE: X $P(^DD(58.8001,21,0),U,5,99) S Y(58.801,2,2)=X S Y(58.801,2,1)=$S($D(^PSD(58.8,D0,1,D1,5,
D2,0)):^(0),1:"") S X=$P(Y(58.801,2,1),U,2)*Y(58.801,2,2)
ALGORITHM: BEG*PRICE PER DI
LAST EDITED: APR 29, 1992
DESCRIPTION:
Computed by the price per dispense unit from the DRUG file (#50) times the beginning balance.
TECHNICAL DESCR:
Uses price per dispense unit from File 50 - DRUG file - times beginning balance.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.801,3 ENDING BALANCE 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."3N.N) X
LAST EDITED: MAY 03, 1993
HELP-PROMPT:Type a Number between -9999999 and 9999999, 2 Decimal Digits
DESCRIPTION:
At the beginning of each month the current balance will be stuffed as the previous month's ending
balance.
TECHNICAL DESCR:
The balance of a drug at the end of the month.
58.801,4 ENDING VALUE ; COMPUTED
MUMPS CODE: X $P(^DD(58.8001,21,0),U,5,99) S Y(58.801,4,2)=X S Y(58.801,4,1)=$S($D(^PSD(58.8,D0,1,D1,5,
D2,0)):^(0),1:"") S X=$P(Y(58.801,4,1),U,4)*Y(58.801,4,2)
ALGORITHM: ENDING BALANCE*PRICE PER DISPENSE UNIT
DESCRIPTION:
Computed by the price per dispense unit from the DRUG file (#50) times the ending balance.
TECHNICAL DESCR:
Uses price per dispense unit from File 50 - DRUG file - times ending balance.
58.801,5 TOTAL RECEIVED 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: SEP 23, 1993
HELP-PROMPT:Type a Number between 0 and 9999999, 2 Decimal Digits
DESCRIPTION:
Each receipt added to the DRUG ACCOUNTABILITY TRANSACTION file (#58.81) will increment this amount.
TECHNICAL DESCR:
Incremented by receipt transactions in File 58.81 - DRUG ACCOUNTABILITY TRANSACTION file.
58.801,6 VALUE RECEIVED ; COMPUTED
MUMPS CODE: X $P(^DD(58.8001,21,0),U,5,99) S Y(58.801,6,2)=X S Y(58.801,6,1)=$S($D(^PSD(58.8,D0,1,D1,5,
D2,0)):^(0),1:"") S X=$P(Y(58.801,6,1),U,3)*Y(58.801,6,2)
ALGORITHM: TOTAL RECEIVED*PRICE PER DISPENSE UNIT
DESCRIPTION:
Computed by the price per dispense unit from the DRUG file (#50) times the total received.
TECHNICAL DESCR:
Uses price per dispense unit from File 50 - DRUG file - times total received.
58.801,7 TOTAL ADJUSTED 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."3N.N) X
LAST EDITED: SEP 23, 1993
HELP-PROMPT:Type a Number between -9999999 and 9999999, 2 Decimal Digits
DESCRIPTION:
Each adjustment added to the DRUG ACCOUNTABILITY TRANSACTION file (#58.81) will increment/decrement
this amount.
TECHNICAL DESCR:
Incremented/decremented by adjustments in File 58.81 - DRUG ACCOUNTABILITY TRANSACTION file.
58.801,8 VALUE ADJUSTED ; COMPUTED
MUMPS CODE: X $P(^DD(58.8001,21,0),U,5,99) S Y(58.801,8,2)=X S Y(58.801,8,1)=$S($D(^PSD(58.8,D0,1,D1,5,
D2,0)):^(0),1:"") S X=$P(Y(58.801,8,1),U,5)*Y(58.801,8,2)
ALGORITHM: TOTAL ADJUSTED*PRICE PER DISPENSE UNIT
DESCRIPTION:
Computed by the price per dispense unit from the DRUG file (#50) times the total adjusted.
TECHNICAL DESCR:
Uses price per dispense unit from File 50 - DRUG file - times total adjusted.
58.801,9 TOTAL DISPENSED 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: SEP 23, 1993
HELP-PROMPT:Type a Number between 0 and 9999999, 2 Decimal Digits
DESCRIPTION:
Each dispensing transaction added to the DRUG ACCOUNTABILITY TRANSACTION file (#58.81) will
increment this amount.
TECHNICAL DESCR:
Incremented by dispensing recorded in File 58.81 - DRUG ACCOUNTABILITY TRANSACTION file.
58.801,10 VALUE DISPENSED ; COMPUTED
MUMPS CODE: X $P(^DD(58.8001,21,0),U,5,99) S Y(58.801,10,2)=X S Y(58.801,10,1)=$S($D(^PSD(58.8,D0,1,D1,
5,D2,0)):^(0),1:"") S X=$P(Y(58.801,10,1),U,6)*Y(58.801,10,2)
ALGORITHM: TOTAL DISPENSED*PRICE PER DISPENSE UNIT
DESCRIPTION:
Computed by the price per dispense unit from the DRUG file (#50) times the total dispensed.
TECHNICAL DESCR:
Uses price per dispense unit from File 50 - DRUG file - times total dispensed.
58.801,11 TOTAL RETURN TO STOCK 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."3N.N) X
LAST EDITED: AUG 03, 1993
HELP-PROMPT:Type a Number between -9999999 and 9999999, 2 Decimal Digits
DESCRIPTION:
The total number of drugs return to stock during this month. This total includes cancelled orders
returned to stock.
TECHNICAL DESCR:
Monthly total of drugs returned to stock.
58.801,12 TOTAL TURN IN FOR DESTRUCTION 0;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."3N.N) X
LAST EDITED: AUG 03, 1993
HELP-PROMPT:Type a Number between -9999999 and 9999999, 2 Decimal Digits
DESCRIPTION:
The total number of drugs turned into the pharmacy for destruction.
TECHNICAL DESCR:
Monthly total of drugs turned in for destruction.
58.801,13 TOTAL TRANSFERRED 0;9 NUMBER
Total Transferred
INPUT TRANSFORM:K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"."1N.N) X
LAST EDITED: JUN 30, 1997
HELP-PROMPT:Enter the total number of dispense units transferred to and from the pharmacy location.
DESCRIPTION:
The TOTAL TRANSFERRED field contains the total number of dispense units that were transferred from
or to the pharmacy location.
TECHNICAL DESCR:
The number of dispense units transferred from the pharmacy location are subtracted from the
dispense units transferred to the pharmacy location.
58.8001,21 PRICE PER DISPENSE UNIT ; COMPUTED
MUMPS CODE: S X=$S($D(^PSDRUG(D1,660)):$P(^PSDRUG(D1,660),U,6),1:0)
ALGORITHM: S X=$P(^PSDRUG(D1,660),U,6)
LAST EDITED: MAY 11, 1992
DESCRIPTION:
Computed by price per dispense unit in the DRUG file (#50).
TECHNICAL DESCR:
Uses price per dispense unit from File 50 - DRUG file.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.8001,22 LAST OP COLLECTION DATE 6;1 DATE
INPUT TRANSFORM:S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 13, 1993
HELP-PROMPT:Enter the last date to collect Outpatient dispensing.
DESCRIPTION:
When collecting Outpatient dispensing data, this field will be used in conjunction with the "AL"
cross-reference in File 52 - PRESCRIPTION file - to determine a starting point from which to gather
dispensing data.
TECHNICAL DESCR:
This field contains the date from the last collection of Outpatient dispensing data.
58.8001,22.1 LAST OP COLLECTION RX 6;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>11!($L(X)<1) X
LAST EDITED: JUL 13, 1993
HELP-PROMPT:Answer must be 1-11 characters in length.
DESCRIPTION:
The last prescription for which dispensing data was collected.
TECHNICAL DESCR:
The last entry from the PRESCRIPTION file (#52) for which dispensing data was collected.
58.8001,22.2 LAST OP PARTIAL DATE 6;7 DATE
INPUT TRANSFORM:S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 13, 1993
HELP-PROMPT:Enter last partial date.
DESCRIPTION:
The last date that a partial was dispensed for this drug.
TECHNICAL DESCR:
Determined by looping through the "AM" cross-reference in the PRESCRIPTION file (#52).
58.8001,22.3 LAST OP PARTIAL RX 6;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>11!($L(X)<1) X
LAST EDITED: JUL 13, 1993
HELP-PROMPT:Answer must be 1-11 characters in length.
DESCRIPTION:
Last partial prescription dispensed.
TECHNICAL DESCR:
The last entry in the PRESCRIPTION file (#52) for which a partial was dispensed.
58.8001,23 LAST OP RET TO STOCK DATE 6;2 DATE
INPUT TRANSFORM:S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 13, 1993
HELP-PROMPT:Enter the last date for collection of Outpatient dispensing.
DESCRIPTION:
When collecting Outpatient dispensing data, this field will be used in conjunction with the "AJ"
cross-reference in File 52 - PRESCRIPTION file - to determine a starting point from which to gather
return to stock data.
TECHNICAL DESCR:
This field contains the date from the last collection of return to stock data in the Outpatient
module.
58.8001,23.1 LAST OP RET TO STOCK RX 6;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>11!($L(X)<1) X
LAST EDITED: JUL 13, 1993
HELP-PROMPT:Answer must be 1-11 characters in length.
DESCRIPTION:
The last prescription returned to stock.
TECHNICAL DESCR:
The last entry in the PRESCRIPTION file (#52) returned to stock.
58.8001,23.2 LAST OP PARTIAL RET DATE 6;9 DATE
INPUT TRANSFORM:S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 13, 1993
HELP-PROMPT:Enter date of last partial returned to stock.
DESCRIPTION:
Date that the last partial was returned to stock for this drug.
TECHNICAL DESCR:
The date that the last partial was returned to stock for this drug.
58.8001,23.3 LAST OP PARTIAL RET RX 6;10 FREE TEXT
INPUT TRANSFORM:K:$L(X)>11!($L(X)<1) X
LAST EDITED: JUL 13, 1993
HELP-PROMPT:Answer must be 1-11 characters in length.
DESCRIPTION:
The last partial prescription returned to stock for this drug.
TECHNICAL DESCR:
The last entry in the PRESCRIPTION file (#52) that had a partial returned to stock.
58.8001,24 LAST IV COLLECTION DATE,WARD 6;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>60!($L(X)<3) X
LAST EDITED: SEP 03, 1992
HELP-PROMPT:Answer must be 3-60 characters in length.
DESCRIPTION:
When collecting IV dispensing data, this field will be used to store the last date,ward collected
from the IV STATS file (#50.8). It will then be used as a starting point for future collections.
TECHNICAL DESCR:
Date and ward from File 50.8 - IV STATS file - at which dispensing data was last collected.
58.8001,25 IV CONVERSION FACTOR 6;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<.01)!(X?.E1"."3N.N) X
LAST EDITED: JUL 02, 1993
HELP-PROMPT:Enter a number to convert IV drug units to DRUG file (#50) dispense units.
DESCRIPTION:
When dispensing occurs in the IV module, this number will be used to convert IV drug units to DRUG
file (#50) dispense units.
TECHNICAL DESCR:
Used to convert IV drug units to DRUG file (#50) dispense units.
58.8001,26 LIQUID? 7;1 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: AUG 17, 1993
HELP-PROMPT:Is this CS drug a liquid?
DESCRIPTION:
This field is used to flag a Controlled Substances drug as a liquid.
58.8001,27 INITIALIZED BALANCE 0;17 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: AUG 29, 1993
HELP-PROMPT:Enter YES if this drug balance has been initialized.
DESCRIPTION:
When the drug balance has been initialized, this field will be set to "1" or "YES". A drug balance
may only be initialized once.
58.8001,28 RESTRICT FROM NAOUS? 7;2 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 31, 1995
HELP-PROMPT:Enter "1" or "Y" to prevent one-time requests.
DESCRIPTION:
If the primary dispensing site for an NAOU allows one-time requests, entering "YES" will
prevent this drug from being ordered by any NAOU that does not already stock it.
TECHNICAL DESCR:
Checked by order entry routines (PSDOR*) before allowing one-time requests.
58.8001,29 ALWAYS PRINT VA FORM 10-2638? 7;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 08, 1996
HELP-PROMPT:Enter "YES" or "1" to force printing VA FORM 10-2638.
DESCRIPTION:
Answer "1" or "YES" to force printing a VA FORM 10-2638 even when dispensing to a Narcotic Area of
Use that is keeping a perpetual inventory.
58.8,11 *PRIMARY INVENTORY POINT 0;6 POINTER TO GENERIC INVENTORY FILE (#445)
*Primary Inventory Point
INPUT TRANSFORM: S DATABASE=1,DIC("S")="I $P(^(0),U,3)=""P""&($P(^(0),U,7)=822400)" D ^DIC K DIC S DIC=DIE,X=+Y D ^P
SAUTL K DATABASE K:Y<0 X
LAST EDITED: JUL 29, 1997
HELP-PROMPT: For Controlled Substances enter the name of the pharmacy inventory point which contains ONLY the
controlled substances stored in this pharmacy master vault.
DESCRIPTION: To provide a direct link between a pharmacy inventory point and a pharmacy location entry in this
file. Receiving that occurs in the inventory point will update on hand quantities in the pharmacy
location.
TECHNICAL DESCR: To provide a direct link between the GENERIC INVENTORY file (#445) and the DRUG ACCOUNTABILITY
STATS file (#58.8).
SCREEN: S DIC("S")="I $P(^(0),U,3)=""P""&($P(^(0),U,7)=822400)"
EXPLANATION: You can only select a Primary Inventory Point with a Cost Center of 822400.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 58.8^E
1)= S ^PSD(58.8,"E",$E(X,1,30),DA)=""
2)= K ^PSD(58.8,"E",$E(X,1,30),DA)
To identify Pharmacy location linked to an Inventory Point.
58.8,11.5 *RECEIPT FAILURE NOTIFICATION? 0;11 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 19, 1993
HELP-PROMPT: Enter "1" or "Y" to notify the RECEIPT FAILURE mail group of items that could not be received.
DESCRIPTION: If a Drug Accountability location is linked to a Primary Inventory Point the items received into
the Primary Inventory Point will also be updated in the Drug Accountability location. If items are
received into the linked Primary Inventory that are not connected to the DRUG file (#50) or not
stocked in the Drug Accountability location, and this field is set to "YES", the RECEIPT FAILURE
mail group will be notified with a list of the items.
TECHNICAL DESCR:
Set of codes - "1" for "YES" or "0" for "NO".
58.8,12 PRIME VENDOR? 0;8 SET
Prime Vendor?
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 29, 1997
HELP-PROMPT: Enter "1" or "Y" for "YES". Enter "0" or "N" for "NO".
DESCRIPTION: To more efficiently process prime vendor receipts, setting this flag to "YES" will allow you to
store an obligation number. This number will then be offered as a default whenever using the
Receive Directly into Drug Accountability [PSA RECEIVING] option on the Receipts Menu [PSA RECEIPTS
MENU] menu.
TECHNICAL DESCR: Directs the flow of receipt processing and checks for a 1358 obligation number stored in the
CURRENT PRIME VENDOR PO# field (#13).
58.8,13 CURRENT PRIME VENDOR PO# 0;9 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)
Current Prime Vendor PO#
INPUT TRANSFORM: S DIC("S")="I $P($G(^(0)),U,5)[822400" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 29, 1997
HELP-PROMPT: Enter the 1358 obligation number for the current month.
DESCRIPTION:
This entry will be used as a default when receiving from the prime vendor.
TECHNICAL DESCR:
Default value for prime vendor receiving.
SCREEN: S DIC("S")="I $P($G(^(0)),U,5)[822400"
EXPLANATION: You can only select P.O.#s with a 822400 cost center.
58.8,14 AUTO GENERATE DISPENSING #'S? 2;1 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUN 06, 1992
HELP-PROMPT: Answer "YES" to automatically generate the pharmacy dispensing # for CS orders.
DESCRIPTION: The pharmacy dispensing number (Green Sheet #) will be automatically generated when dispensing
Controlled Substances orders if this field is set to "1" or "YES". If left blank, or if "0", or
"NO" are entered the pharmacy employee processing the Controlled Substances order will have to
enter the dispensing number (Green Sheet #).
58.8,15 LOW DISPENSING # 2;2 NUMBER
INPUT TRANSFORM: K:'$D(PSDJLP) X W:'$D(X) " NO EDITING" Q:'$D(X) K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X D LOW
^PSDSITE K:$D(PSDFLAG) X K PSD,PSDFLAG,PSDL
LAST EDITED: NOV 23, 1992
HELP-PROMPT: Enter the lowest CS dispensing # for this dispensing site (1 to 999999999).
DESCRIPTION: The lowest CS pharmacy dispensing number for this dispensing site. The system will not allow
numbers smaller than the one you choose.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.8,16 HIGH DISPENSING # 2;3 NUMBER
INPUT TRANSFORM: K:'$D(PSDJLP) X W:'$D(X) " NO EDITING" Q:'$D(X) K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X D HIG
H^PSDSITE K:$D(PSDFLAG) X K PSD,PSDFLAG,PSDH,PSDL
LAST EDITED: NOV 23, 1992
HELP-PROMPT: Enter the largest CS dispensing number for this dispensing site (1-999999999).
DESCRIPTION: The largest acceptable pharmacy dispensing number for this dispensing site. The difference between
this number and the lowest pharmacy dispensing number should be substantial. The system will not
allow numbers larger than the one you choose.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.8,17 LAST DISPENSING # 2;4 NUMBER
INPUT TRANSFORM: K:'$D(PSDJLP) X W:'$D(X) " NO EDITING" Q:'$D(X) K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X D LAS
T^PSDSITE K:$D(PSDFLAG) X K PSDFLAG
LAST EDITED: NOV 23, 1992
HELP-PROMPT: Enter the last CS dispensing number used for this dispensing site (1 to 999999999).
DESCRIPTION: The last CS pharmacy dispensing number used. This number will start at the lowest pharmacy
dispensing number, increment it by one until it finds a number that has not been used, and then use
that number for the next Controlled Substances order.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.8,18 USING PERPETUAL INVENTORY? 2;5 SET
Using Perpetual Inventory?
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 22, 1997
HELP-PROMPT: Answer "YES" if this site is using the perpetual inventory method.
DESCRIPTION: This flag is used to determine if this NAOU is using the Controlled Substances perpetual inventory
functionality.
If this field is set to "YES" or "1" the standard Controlled Substance Administration Record VA
FORM 10-2638 (Green Sheet) WILL NOT be printed and will be replaced by the perpetual inventory
method of tracking CS drugs.
For an NAOU that is using a perpetual inventory, the MAXIMUM QUANTITY PER ORDER field (#8.5) for a
drug in the dispensing site will limit the maximum quantity that Nursing Service may enter for any
single order for that drug. If the MAXIMUM QUANTITY PER ORDER is left blank, deleted, or set to
zero, Nursing Service will be able to enter any quantity that is a multiple of package size, up to
999999, for any single order of that drug.
58.8,19 PRINT GREEN SHEET 2;6 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUN 06, 1992
HELP-PROMPT: Enter "YES" to print the Green Sheet after process only, "NO" to print after RPh verification.
DESCRIPTION: This is a flag used to determine the sequence in which a Controlled Substance Administration Record
VA FORM 10-2638 (Green Sheet) will be printed. If set to "YES" or "1" the "Green Sheet" will print
after the order has been processed and prior to a RPh verification. If set to "NO" or "0" the
"Green Sheet" will print after a RPh has verified the filled order.
58.8,19.5 GREEN SHEET STOCK 2.5;1 SET
'1' FOR GPO 1992 PRINTING;
'0' FOR OTHER GPO PRINTING;
LAST EDITED: MAY 26, 1993
HELP-PROMPT: Enter 1 for GPO 1992 printed stock.
DESCRIPTION: The VA FORM 10-2638 (Green Sheet) stock was printed on 8 x 10 1/2 paper. In 1992, the paper size
changed to 8 1/2 x 11. This field is used as a site parameter when printing the Green Sheet forms.
Additional spacing is required for the GPO 1992 printed stock.
58.8,20 OUTPATIENT SITE 0;10 POINTER TO OUTPATIENT SITE FILE (#59)
Outpatient Site
INPUT TRANSFORM: I $D(X) S Z=$O(^PSD(58.8,"AOP",+X,0)) S:Z=DA Z=$O(^(DA)) W:$G(Z) $C(7),!,$P($G(^PSD(58.8,+$O(^PSD(5
8.8,"AOP",+X,0)),0)),U)," is already linked to ",$P($G(^PS(59,+X,0)),U) K:$G(Z) X,Z
LAST EDITED: JUL 29, 1997
HELP-PROMPT: Enter the Outpatient Site from which to gather prescription dispensing data.
DESCRIPTION: When prescriptions are filled the corresponding drug for this Outpatient Site will be updated for
monthly total dispensed.
TECHNICAL DESCR:
To be used for automated updating of total dispensed when Rx is filled.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 58.8^AOP
1)= S ^PSD(58.8,"AOP",$E(X,1,30),DA)=""
2)= K ^PSD(58.8,"AOP",$E(X,1,30),DA)
To be used for automated updating of total dispensed when Rx is filled.
58.8,21 WARD 3;0 POINTER Multiple #58.842
DESCRIPTION: When Unit Dose and IV dispensing data is compiled, it will affect the Drug Accountability Location
to which a ward is linked.
TECHNICAL DESCR:
For UD/IV dispensing to be subtracted from the appropriate DA location.
58.842,.01 WARD 0;1 POINTER TO WARD LOCATION FILE (#42) (Multiply asked)
INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: AUG 02, 1995
HELP-PROMPT: Select those wards for which you wish to gather Unit Dose or IV dispensing data.
DESCRIPTION: When Unit Dose and IV dispensing data is compiled, it will affect the Drug Accountability
location to which a ward is linked.
TECHNICAL DESCR:
For UD/IV dispensing to be subtracted from the appropriate DA location.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 58.842^B
1)= S ^PSD(58.8,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^PSD(58.8,DA(1),3,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 58.8^AB
1)= S ^PSD(58.8,"AB",$E(X,1,30),DA(1),DA)=""
2)= K ^PSD(58.8,"AB",$E(X,1,30),DA(1),DA)
To be used to determine which Drug Accountability location should be affected by Unit Dose and IV
dispensing data.
58.8,22 PRIMARY INVENTORY POINT(S) 4;0 POINTER Multiple #58.8445
DESCRIPTION: To provide a direct link between a pharmacy inventory point and a pharmacy location entry in this
file. Receiving that occurs in the inventory point will update on hand quantities in the pharmacy
location.
TECHNICAL DESCR: To provide a direct link between the GENERIC INVENTORY file (#445) and the DRUG ACCOUNTABILITY
STATS file (#58.8).
SCREEN: S DIC("S")="I $P(^(0),U,20)=""D"""
EXPLANATION: Must be Special Inventory Point Type "D" for Drug Accountability.
58.8445,.01 PRIMARY INVENTORY POINT(S) 0;1 POINTER TO GENERIC INVENTORY FILE (#445) (Multiply asked)
Primary Inventory Points(s)
INPUT TRANSFORM:S PRCPPRIV=1,DIC("S")="I $P(^(0),U,20)=""D""" D ^DIC K DIC S DIC=DIE,X=+Y K PRCPPRIV K:Y<0 X S:$D(X
) DINUM=X
LAST EDITED: JUL 29, 1997
HELP-PROMPT: Only primary inventory points that are set up with a special inventory type of "D" for Drug
Accountability may be selected.
DESCRIPTION: To provide a direct link between a pharmacy inventory point and a pharmacy location entry in this
file. Receiving that occurs in the inventory point will update on hand quantities in the pharmacy
location.
TECHNICAL DESCR:To provide a direct link between the GENERIC INVENTORY file (#445) and the DRUG ACCOUNTABILITY
STATS file (#58.8).
SCREEN: S DIC("S")="I $P(^(0),U,20)=""D"""
EXPLANATION: Must be Special Inventory Type "D" for Drug Accountability.
LAYGO TEST: 1,0)= N PSA S PSA=$O(^PSD(58.8,"P",+X,0)) S:PSA=DA PSA=$O(^(DA)) D:$G(PSA) EN^DDIOL($C(7)_$P($G(^PS
D(58.8,+$O(^PSD(58.8,"P",+X,0)),0)),U)_" is already linked to "_$$INVNAME^PRCPUX1(X)) I '$G(PSA)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:58.8445^B
1)= S ^PSD(58.8,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^PSD(58.8,DA(1),4,"B",$E(X,1,30),DA)
CROSS-REFERENCE:58.8^P
1)= S ^PSD(58.8,"P",$E(X,1,30),DA(1),DA)=""
2)= K ^PSD(58.8,"P",$E(X,1,30),DA(1),DA)
When receiving occurs in a Primary Inventory Point flagged as a Drug Accountability special
inventory type, this cross-reference will be used to locate the correct Drug Accountability
location to update.
58.8445,1 RECEIPT FAILURE NOTIFICATION? 0;2 SET
Receipt Failure Notification?
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 29, 1997
HELP-PROMPT: Enter "1" or "Y" to transmit a MailMan message to the receiver and the RECEIPT FAILURE mail group
each time a failure occurs.
DESCRIPTION: If a Drug Accountability location is linked to a primary inventory point, items received into the
primary inventory point will also be updated in the Drug Accountability location. If items are
received that are not connected to the DRUG file (#50) or not stocked in the Drug Accountability
location, and this field is set to "YES", the receiver and the RECEIPT FAILURE mail group will be
notified with a list of failed items.
TECHNICAL DESCR:
Set of codes - "1" for "YES" or "0" for "NO".
58.8445,2 RECEIPT MAIL GROUP 0;3 FREE TEXT
Receipt Mail Group
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUL 29, 1997
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: Enter the name of the mail group that should receive messages whenever inventory items cannot be
received into a pharmacy location and also this same group will receive DRUG file (#50) price
update messages.
TECHNICAL DESCR:When the routine PSAGIP is passed data by IFCAP, items that cannot be updated are listed in
messages sent to the receiver and this group.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.8,23 DISPENSING WORKSHEET SORT 2;7 SET
'D' FOR DRUG/NAOU;
'N' FOR NAOU/DRUG;
'S' FOR SELECT AT PRINTING;
LAST EDITED: APR 26, 1993
HELP-PROMPT: Enter the sort order to be used in creating the dispensing worksheet.
DESCRIPTION: This field determines the sort order when printing the Controlled Substances "Pharmacy Dispensing
Worksheet". The sort order may be defined by drug then NAOU, by NAOU then drug, or selected when
printing the worksheet.
TECHNICAL DESCR:
Set of codes used in determining the sort order when printing the "Pharmacy Dispensing Worksheet".
58.8,24 DEFAULT GREEN SHEET PRINTER 2;8 POINTER TO DEVICE FILE (#3.5)
LAST EDITED: APR 26, 1993
HELP-PROMPT: Enter the name of the device selected to print Green Sheets.
DESCRIPTION:
A pointer to the name of the device selected as the default printer for Green Sheets.
TECHNICAL DESCR:
Pointer to File 3.5 - the DEVICE file.
58.8,25 DEFAULT REPORT PRINTER 2;9 POINTER TO DEVICE FILE (#3.5)
LAST EDITED: APR 26, 1993
HELP-PROMPT: Enter the name of the device selected to print CS reports.
DESCRIPTION: A pointer to the name of the device selected as the default printer for various Controlled
Substances reports.
TECHNICAL DESCR:
Pointer to File 3.5 - the DEVICE file.
58.8,26 DEFAULT LABEL PRINTER 2;10 POINTER TO DEVICE FILE (#3.5)
LAST EDITED: APR 26, 1993
HELP-PROMPT: Enter the name of the device selected to print CS labels.
DESCRIPTION: A pointer to the name of the device selected as the default printer for Controlled Substances
labels.
TECHNICAL DESCR:
Pointer to File 3.5 - the DEVICE file.
58.8,27 LAST UD UPDATE 0;12 DATE
Last UD Update
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 29, 1997
HELP-PROMPT: The last date that dispensing from the UNIT DOSE PICK LIST STATS file (#57.6) was collected to
update this location.
DESCRIPTION: When the UD dispensing data is collected from the UNIT DOSE PICK LIST STATS file (#57.6) a date is
stored here. Each time unit dose dispensing data is collected, it begins FROM this date.
TECHNICAL DESCR: Used and stored by the PSAUDP routine for the collection of dispensing data from the UNIT DOSE PICK
LIST STATS file (#57.6).
58.8,28 ORDER ENTRY BANNER 5;0 WORD-PROCESSING #58.828
TECHNICAL DESCR:
A banner to be displayed for Order Entry.
LAST EDITED: JAN 16, 1995
HELP-PROMPT: Enter a banner which will be displayed for Nursing Order Entry, Pharmacy Order
Entry from Nursing, and Infusion Order Entry.
58.8,29 EMERGENCY ORDER PRINTER 2;11 POINTER TO DEVICE FILE (#3.5)
LAST EDITED: JAN 30, 1995
HELP-PROMPT: Select a device for this dispensing vault which can receive notice of emergency orders submitted by
nursing personnel.
DESCRIPTION: This device will be used to print a notice of emergency orders submitted by nursing personnel. The
printer designated to receive these messages SHOULD NOT be the printer which prints green sheets or
controlled substances labels.
TECHNICAL DESCR:
This field is a pointer to the DEVICE file (#3.5).
58.8,30 ALLOW ONE-TIME REQUESTS? 0;13 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 31, 1995
HELP-PROMPT: Enter "1" or "Y" to allow NAOUs to place one-time requests.
DESCRIPTION: If the primary dispensing site for an NAOU allows one-time requests, any active drug in that
dispensing site may be ordered, even though it may be inactive or not stocked by that NAOU.
Certain drugs within a dispensing site may be marked as not selectable and are unavailable for even
one-time requests.
TECHNICAL DESCR:
Checked by order entry routines (PSDOR*) before allowing one-time requests.
58.8,31 IV ROOM 3.5;0 POINTER Multiple #58.831
DESCRIPTION: The IV Room multiple contains the Outpatient Clinic's IV rooms to which the Outpatient Pharmacy
dispenses IVs. When IV dispensing data is compiled, it will affect the Drug Accountability
outpatient pharmacy location to which the IV Room is linked.
TECHNICAL DESCR:
This field points to the IV ROOM FILE (#59.5).
58.831,.01 IV ROOM 0;1 POINTER TO IV ROOM FILE (#59.5)
IV Room
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
LAST EDITED: DEC 15, 1995
HELP-PROMPT: Enter the IV Room to which the Outpatient Pharmacy Location dispenses IVs.
DESCRIPTION: The IV Room is the Outpatient Clinic's IV room to which the Outpatient Pharmacy dispenses IVs.
When IV dispensing data is compiled, it will affect the Drug Accountability outpatient pharmacy
location to which the IV Room is linked.
TECHNICAL DESCR:
This field points to the IV ROOM FILE (#59.5).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 58.8^AIV
1)= S ^PSD(58.8,"AIV",$E(X,1,30),DA(1),DA)=""
2)= K ^PSD(58.8,"AIV",$E(X,1,30),DA(1),DA)
3)= DO NOT DELETE!
The cross-reference is used to locate the outpatient pharmacy location that is linked to the IV
Room.
58.8,32 ADJUSTMENT MAIL GROUP 6;1 POINTER TO MAIL GROUP FILE (#3.8)
LAST EDITED: OCT 07, 1996
HELP-PROMPT: Enter the mail group that should receive messages when adjustments occur.
DESCRIPTION: The persons in this mail group will receive messages whenever an adjustment or count correction
occurs for this Narcotic Area of Use (NAOU).
58.8,33 TIME LIMIT FOR DELAYED DOSES 6;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>12)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: OCT 07, 1996
HELP-PROMPT: Type a Number between 0 and 12, 2 Decimal Digits
DESCRIPTION: This is the time limit for Nursing to record a delayed wastage or return to stock for a dose that
was not administered to a patient. If a "1" is entered, Nurses will have one hour to record the
disposition of a dose for this Narcotic Area of Use.
58.8,34 MAINTAIN REORDER LEVELS? 0;14 SET
Maintain Reorder Levels?
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JAN 31, 1997
HELP-PROMPT: Enter YES if the reorder level is to entered for each drug in the pharmacy location or master
vault.
DESCRIPTION: The MAINTAIN REORDER LEVELS? field denotes if the drugs in the pharmacy location or master vault
are to maintain their reorder levels.
58.8,35 DAYS TO KEEP INVOICE DATA 0;15 NUMBER
Days to Keep Invoice Data
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<120)!(X?.E1"."1N.N) X
LAST EDITED: MAY 19, 1997
HELP-PROMPT: Enter the number of days to keep the invoices in the DA ORDERS file. Enter 120 to 9999 days.
DESCRIPTION: The DAYS TO KEEP INVOICE DATA field contains the number of days invoices are to remain in the DRUG
ACCOUNTABILITY ORDERS (#58.811) file. A nightly job checks this field to determine if the invoice
data should be deleted. Invoice data must remain in the file at least 120 days.
58.8,36 OUTPATIENT SITE(S) 7;0 POINTER Multiple #58.836
58.836,.01 OUTPATIENT SITE(S) 0;1 POINTER TO OUTPATIENT SITE FILE (#59) (Multiply asked)
INPUT TRANSFORM: S DINUM=X Q
LAST EDITED: APR 26, 2000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 58.8^AOP
1)= S ^PSD(58.8,"AOP",$E(X,1,30),DA(1),DA)=""
2)= K ^PSD(58.8,"AOP",$E(X,1,30),DA(1),DA)
58.836,1 INACTIVATION DATE 0;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 26, 2000
58.8,37 BALANCE DISCREPANCY CHECK 8;1 SET
'1' FOR ON;
'0' FOR OFF;
LAST EDITED: AUG 31, 2018
HELP-PROMPT: Enter '1' to turn the balance discrepancy checking software ON, or '0' to turn it OFF.
DESCRIPTION: Enables Control Substance Dispensing sites to turn off the manual balance discrepancy inventory
software. ON will include the dispensing site in the manual count when dispensing controlled
substances. OFF is used for automated dispensing when manual counting is not desired. A null entry
in this field is the same as OFF.
TECHNICAL DESCR: This field is designed to allow VA locations to decide which control substance dispensing sites
will be included in the Balance Discrepancy software checks to help avoid diversion. Some automated
dispensing systems may not require individual prescription level inventory. Since each location can
have different dispensing site names, each will need to be turned on individually if Balance
Discrepancy Checks are required.
CROSS-REFERENCE: 58.8^BC
1)= S ^PSD(58.8,"BC",$E(X,1,30),DA)=""
2)= K ^PSD(58.8,"BC",$E(X,1,30),DA)
3)= Used for Balance Discrepancy Check On Off Switch.
This cross reference is used to look up balance discrepancy check on/off selections. Automated
Master Dispensing may need this turned off to function correctly.
FILES POINTED TO FIELDS
AOU INVENTORY TYPE (#58.16) INVENTORY TYPE:TYPE (#.01)
CS COMPLETION STATUS (#58.83) ORDERS:COMPLETION STATUS (#11)
CS ORDER STATUS (#58.82) ORDERS:ORDER STATUS (#10)
DEVICE (#3.5) DEFAULT GREEN SHEET PRINTER (#24)
DEFAULT REPORT PRINTER (#25)
DEFAULT LABEL PRINTER (#26)
EMERGENCY ORDER PRINTER (#29)
DRUG (#50) DRUG:DRUG (#.01)
DRUG ACCOUNTABILITY STATS
(#58.8) PRIMARY DISPENSING SITE (#3)
ORDERS:DISPENSING SITE (#2)
DRUG ACCOUNTABILITY TRANSACTIO
(#58.81) ORDERS:TRANSACTION # (#17)
ACTIVITY:ACTIVITY (#.01)
GENERIC INVENTORY (#445) *PRIMARY INVENTORY POINT (#11)
PRIMARY INVENTORY POINT(S):PRIMARY INVENTORY POINT(S) (#.01)
INPATIENT SITE (#59.4) INPATIENT SITE (#2)
IV ROOM (#59.5) IV ROOM:IV ROOM (#.01)
MAIL GROUP (#3.8) ADJUSTMENT MAIL GROUP (#32)
NEW PERSON (#200) ORDERS:ORDERED BY (#3)
DISPENSED BY (#4)
RECEIVED BY (#6)
COMPLETED BY NURSE (#23)
OUTPATIENT SITE (#59) OUTPATIENT SITE (#20)
OUTPATIENT SITE(S):OUTPATIENT SITE(S) (#.01)
PRESCRIPTION (#52) ORDERS:RX # (#18)
PROCUREMENT & ACCOUNTING TRANS
(#442) CURRENT PRIME VENDOR PO# (#13)
WARD LOCATION (#42) WARD (FOR DRUG):WARD (FOR DRUG) (#.01)
WARD:WARD (#.01)
INPUT TEMPLATE(S):
PSAENT NOV 09, 1993@09:03 USER #0
PSAGIP OCT 21, 1993@13:47 USER #0
PRINT TEMPLATE(S):
PSAINV MAR 05, 1993@10:36 USER #0 @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):