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

Package: Drug Accountability

DRUG ACCOUNTABILITY STATS(#58.8)-->58.8001-->58.800118

Sub-Field: 58.800118


Information

Parent File Name Number Package
58.8001 ORDERS 58.800118 Drug Accountability

Details

Field # Name Loc Type Details
.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)
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.
2 DISPENSING SITE 0;3 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8)
************************REQUIRED FIELD************************
DRUG ACCOUNTABILITY STATS(#58.8)

  • INPUT TRANSFORM:  S DIC("S")="I $S($P(^(0),""^"",2)=""M"":1,$P(^(0),""^"",2)=""S"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  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.
3 ORDERED BY 0;4 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$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 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(""PSJ RPHARM"",+Y)):1,1:0)"
  • EXPLANATION:  Access granted to nurses and pharmacy personnel holding the appropriate security key.
4 DISPENSED BY 0;5 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  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.
5 QUANTITY ORDERED 0;6 NUMBER
************************REQUIRED FIELD************************

  • 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.
6 RECEIVED BY 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""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(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,1:0)"
  • EXPLANATION:  Access granted to nurses and pharmacy personnel holding the appropriate security key.
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.
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.
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 #)=""
10 ORDER STATUS 0;11 POINTER TO CS ORDER STATUS FILE (#58.82) CS ORDER STATUS(#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 #)=""
11 COMPLETION STATUS 0;12 POINTER TO CS COMPLETION STATUS FILE (#58.83) CS COMPLETION STATUS(#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.
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.
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.
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
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.
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
17 TRANSACTION # 0;17 POINTER TO DRUG ACCOUNTABILITY TRANSACTION FILE (#58.81) DRUG ACCOUNTABILITY TRANSACTION(#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.
18 RX # 0;18 POINTER TO PRESCRIPTION FILE (#52) PRESCRIPTION(#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.
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.
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.
21 DISCREPANCY UNRESOLVED 0;21 SET

  • 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".
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.
23 COMPLETED BY NURSE 2;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 27, 1993
  • HELP-PROMPT:  Enter the name of the nurse returning this 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.
24 EMERGENCY 2;2 SET

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