Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 58.8001

Package: Drug Accountability

DRUG ACCOUNTABILITY STATS(#58.8)-->58.8001

Sub-Field: 58.8001


Information

Parent File Name Number Package
DRUG ACCOUNTABILITY STATS(#58.8) DRUG 58.8001 Drug Accountability

Details

Field # Name Loc Type Details
.01 DRUG 0;1 POINTER TO DRUG FILE (#50)
************************REQUIRED FIELD************************
DRUG(#50)

  • 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.
1 LOCATION 0;2 FREE TEXT

  • 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.
2 STOCK LEVEL 0;3 NUMBER

  • 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.
3 BALANCE 0;4 NUMBER

  • 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.
4 REORDER LEVEL 0;5 NUMBER

  • 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.
5 QUANTITY TO REORDER 0;6 NUMBER

  • 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.
6 DA CONVERSION # COMPUTED

  • 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.





7
BREAKDOWN UNIT
0;8
FREE TEXT

  • 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.





8
PACKAGE SIZE
0;9
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:  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.





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





9
MANUFACTURER
0;10
FREE TEXT

  • 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.





10
LOT #
0;11
FREE TEXT

  • 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.





11
EXPIRATION DATE
0;12
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)="".





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.





13
INACTIVATION DATE
0;14
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.





14
INACTIVATION REASON
0;15
SET

  • '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.





14.5
INACTIVATION REASON (OTHER)
0;16
FREE TEXT

  • 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.





15
WARD (FOR DRUG)
1;0
POINTER Multiple #58.800115 
58.800115
  • 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.





16
INVENTORY TYPE
2;0
POINTER Multiple #58.800116 
58.800116
  • LAST EDITED:  JAN 22, 1992
  • DESCRIPTION:  
    Inventory types are used to group related drugs in a Narcotic Area of Use.





17
SKIP PRINTING VA FORM 10-2638?
GS;1
SET

  • 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.





18
ORDERS
3;0
Multiple #58.800118 
58.800118
  • LAST EDITED:  MAR 19, 1992
  • DESCRIPTION:  
    The ORDERS multiple stores all data associated with Controlled Substances order requests.





19
ACTIVITY
4;0
POINTER Multiple #58.800119 
58.800119
  • 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.





20
MONTHLY ACTIVITY
5;0
Multiple #58.801 
58.801
  • DESCRIPTION:  
    As activity (receipts, adjustments, dispensing) occurs for each drug, an entry will be added here in which to store totals.





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





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.





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.





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).





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.





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.





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.





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.





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.





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.





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.





26
LIQUID?
7;1
SET

  • 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.





27
INITIALIZED BALANCE
0;17
SET

  • 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.





28
RESTRICT FROM NAOUS?
7;2
SET

  • 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.





29
ALWAYS PRINT VA FORM 10-2638?
7;3
SET

  • 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.







    



Info | 
Details | 
All