STANDARD DATA DICTIONARY #58.81 -- DRUG ACCOUNTABILITY TRANSACTION FILE 6/27/25 PAGE 1
STORED IN ^PSD(58.81, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the data associated with drug accountability transactions. This file is designed to be shared between the Drug
Accountability module and the Controlled Substances module.
Entries in this file should NOT be edited directly for Controlled Substances use. The CS module contains all appropriate checks
for this file's use.
Controlled Substances entries will be flagged.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: DRUG (#4), NAOU (#17)
POINTED TO BY: TRANSACTION # field (#17) of the ORDERS sub-field (#58.800118) of the DRUG sub-field (#58.8001) of the DRUG
ACCOUNTABILITY STATS File (#58.8)
ACTIVITY field (#.01) of the ACTIVITY sub-field (#58.800119) of the DRUG sub-field (#58.8001) of the DRUG
ACCOUNTABILITY STATS File (#58.8)
PREVIOUS TRANSACTION # field (#69) of the DRUG ACCOUNTABILITY TRANSACTION File (#58.81)
TRANSACTION # field (#7) of the CS WORKSHEET File (#58.85)
TRANSACTION # field (#8) of the CS DESTRUCTION File (#58.86)
TRANSACTION NUMBER field (#1) of the CS ERROR LOG File (#58.89)
CROSS
REFERENCED BY: PRINTED 2321(AC), DATE/TIME(ACT), TYPE(ACT1), PHARMACY LOCATION(ACT2), DRUG(ACT3), DATE/TIME RET TO STOCK(ACT4),
EDIT VERIFIED ORDER DATE/TIME(ACT5), CANCEL VERIFIED ORD DATE/TIME(ACT6), DATE/TIME TURN IN DESTROY(ACT7),
ORDER STATUS(AD), NAOU(AD1), PREVIOUS TRANSACTION #(AE), DATE/TIME(AEM), EMERGENCY(AEM1),
PHARMACY LOCATION(AEM2), DRUG(AEM3), DATE/TIME(AF), PHARMACY LOCATION(AF1), TYPE(AF2), COMPLETION STATUS(AG),
NAOU(AG1), PRINTED 2638(AH), RECEIPT DATE/TIME(AK), NAOU(AK1), PRINTED LABEL(AL), RX #(AOP),
TRANSFER FROM NAOU DATE/TIME(ATRN), TRANSACTION NUMBER(B), PURCHASE ORDER NUMBER(C), PHARMACY DISPENSING #(D),
CONTROL POINT ACTIVITY(E), DRUG(F), PRIME VENDOR INVOICE(PV)
58.81,.01 TRANSACTION NUMBER 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
LAST EDITED: JUN 16, 1992
HELP-PROMPT: Type a Number between 1 and 999999999, 0 Decimal Digits
DESCRIPTION:
The internal entry number for this transaction.
TECHNICAL DESCR:
DINUMed.
DELETE TEST: .01,0)= I 1 D EN^DDIOL(" DELETIONS ARE NOT ALLOWED")
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 58.81^B
1)= S ^PSD(58.81,"B",$E(X,1,30),DA)=""
2)= K ^PSD(58.81,"B",$E(X,1,30),DA)
58.81,1 TYPE 0;2 POINTER TO DRUG ACCOUNTABILITY TRANSACTION TYPE FILE (#58.84)
LAST EDITED: JUN 12, 1992
HELP-PROMPT: Enter the transaction type.
DESCRIPTION:
A pointer to the name of this type transaction.
CROSS-REFERENCE: 58.81^AF2^MUMPS
1)= D SAFT^PSDUTL
2)= D KAFT^PSDUTL
3)= DO NOT DELETE
This cross-reference is used for Controlled Substances and Drug Accountability statistical
reporting. The cross-reference is ^PSD(58.81,"AF",DATE/TIME,LOCATION,TYPE,DA)=""
CROSS-REFERENCE: 58.81^ACT1^MUMPS
1)= D SACT1^PSDUTL1
2)= D KACT1^PSDUTL1
3)= DO NOT DELETE
This cross-reference is used in compiling data to print the pharmacy VA FORM 10-2320.
The cross-reference is ^PSD(58.81,"ACT",DATE/TIME,LOCATION,DRUG,TYPE,DA)=""
58.81,2 PHARMACY LOCATION 0;3 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8)
DISPENSING SITE
INPUT TRANSFORM: S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,$P(^(0),""^"",2)'=""P""" D ^DIC K DIC S DIC=DIE
,X=+Y K:Y<0 X
LAST EDITED: FEB 16, 1995
HELP-PROMPT: Enter the pharmacy location for this transaction.
DESCRIPTION: This field contains a pointer to the Pharmacy location in the DRUG ACCOUNTABILITY STATS file
(#58.8). The Controlled Substances module will recognize this location as the Narcotic Area of Use
(NAOU), usually the pharmacy dispensing site (vault).
SCREEN: S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,$P(^(0),""^"",2)'=""P"""
EXPLANATION: For CS, does not allow selection of a "primary" type pharmacy location.
CROSS-REFERENCE: 58.81^AF1^MUMPS
1)= D SAFL^PSDUTL
2)= D KAFL^PSDUTL
3)= DO NOT DELETE
This cross-reference is used for Controlled Substances and Drug Accountability statistical
reporting. The cross-reference is ^PSD(58.81,"AF",DATE/TIME,LOCATION,TYPE,DA)="".
CROSS-REFERENCE: 58.81^ACT2^MUMPS
1)= D SACT2^PSDUTL1
2)= D KACT2^PSDUTL1
3)= DO NOT DELETE
This cross-reference is used in compiling data to print the pharmacy VA FORM 10-2320.
The cross-reference is ^PSD(58.81,"ACT",DATE/TIME,LOCATION,DRUG,TYPE,DA)="".
CROSS-REFERENCE: 58.81^AEM2^MUMPS
1)= D SAEM2^PSDUTL5
2)= D KAEM2^PSDUTL5
3)= DO NOT DELETE
This cross-reference is used to track emergency orders.
The cross-reference is ^PSD(58.81,"AEM",DATE/TIME,LOCATION,DRUG,DA)="".
58.81,3 DATE/TIME 0;4 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: FEB 16, 1995
HELP-PROMPT: Enter the date of this transaction.
DESCRIPTION: The date/time of this transaction.
For Controlled Substances dispensing transactions, this is the date/time the pharmacist verified
this transaction.
CROSS-REFERENCE: 58.81^AF^MUMPS
1)= D SAF^PSDUTL
2)= D KAF^PSDUTL
3)= DO NOT DELETE
This cross-reference is used for Controlled Substances and Drug Accountability statistical
reporting. The cross-reference is ^PSD(58.81,"AF",DATE/TIME,LOCATION,TYPE,DA)=""
CROSS-REFERENCE: 58.81^ACT^MUMPS
1)= D SACT^PSDUTL1
2)= D KACT^PSDUTL1
3)= DO NOT DELETE
This cross-reference is used in compiling data to print the pharmacy VA FORM 10-2320.
The cross-reference is ^PSD(58.81,"ACT",DATE/TIME,LOCATION,DRUG,TYPE,DA)="".
CROSS-REFERENCE: 58.81^AEM^MUMPS
1)= D SAEM^PSDUTL5
2)= D KAEM^PSDUTL5
3)= DO NOT DELETE
This cross-reference is used to track emergency orders.
The cross-reference is ^PSD(58.81,"AEM",DATE/TIME,LOCATION,DRUG,DA)="".
58.81,4 DRUG 0;5 POINTER TO DRUG FILE (#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
LAST EDITED: FEB 16, 1995
HELP-PROMPT: Enter the name of the drug being processed in this transaction.
DESCRIPTION:
A pointer to the drug for this transaction.
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.
CROSS-REFERENCE: 58.81^F
1)= S ^PSD(58.81,"F",$E(X,1,30),DA)=""
2)= K ^PSD(58.81,"F",$E(X,1,30),DA)
To locate all receipt history for a given drug.
CROSS-REFERENCE: 58.81^ACT3^MUMPS
1)= D SACT3^PSDUTL1
2)= D KACT3^PSDUTL1
3)= DO NOT DELETE
This cross-reference is used for compiling data to print the pharmacy VA FORM 10-2320.
The cross-reference is ^PSD(58.81,"ACT",DATE/TIME,LOCATION,DRUG,TYPE,DA)=""
CROSS-REFERENCE: 58.81^AEM3^MUMPS
1)= D SAEM3^PSDUTL5
2)= D KAEM3^PSDUTL5
3)= DO NOT DELETE
This cross-reference is used to track emergency orders.
The cross-reference is ^PSD(58.81,"AEM",DATE/TIME,LOCATION,DRUG,DA)="".
58.81,5 QUANTITY 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between -999999 and 999999, 3 Decimal Digits
DESCRIPTION: The transaction quantity for this drug.
If the transaction type is BALANCE ADJUSTMENT, this quantity may be a negative number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,6 TRANSACTOR 0;7 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: APR 15, 1992
HELP-PROMPT: Enter the name of the person initiating this transaction.
DESCRIPTION:
This field contains a pointer to the name of the person initiating this transaction.
58.81,7 CONTROL POINT ACTIVITY 0;8 POINTER TO CONTROL POINT ACTIVITY FILE (#410)
LAST EDITED: APR 15, 1992
HELP-PROMPT: Enter the Control Point Activity number.
DESCRIPTION: Posted (Warehouse) Issue activity that created this transaction. This field is a pointer to the
CONTROL POINT ACTIVITY file (#410) and will be used mainly for receipt transactions.
TECHNICAL DESCR:
Pointer to the entry in File 410 - CONTROL POINT ACTIVITY file - that created this transaction.
CROSS-REFERENCE: 58.81^E
1)= S ^PSD(58.81,"E",$E(X,1,30),DA)=""
2)= K ^PSD(58.81,"E",$E(X,1,30),DA)
To locate all transactions linked to a certain Control Point Activity #.
58.81,8 PURCHASE ORDER NUMBER 0;9 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)
LAST EDITED: MAY 01, 1992
HELP-PROMPT: Enter the Purchase Order number for this transaction.
DESCRIPTION: The Unposted (Non-Warehouse) Purchase Order from which this transaction was created. This field is
a pointer to the PROCUREMENT & ACCOUNTING TRANSACTION file (#442) and will be used mainly for
receipt transactions.
TECHNICAL DESCR: Pointer to the entry in File 442 - PROCUREMENT & ACCOUNTING TRANSACTION file - to which this
transaction is linked.
CROSS-REFERENCE: 58.81^C
1)= S ^PSD(58.81,"C",$E(X,1,30),DA)=""
2)= K ^PSD(58.81,"C",$E(X,1,30),DA)
58.81,9 BALANCE FORWARD 0;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between -999999 and 999999, 3 Decimal Digits
DESCRIPTION: The pharmacy dispensing site (vault) inventory balance forward for this drug. This balance is used
in listing pharmacy's "Daily Activity Log".
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,10 ORDER STATUS 0;11 POINTER TO CS ORDER STATUS FILE (#58.82)
LAST EDITED: MAY 07, 1992
HELP-PROMPT: Enter the processing status for this order.
DESCRIPTION: The processing status for the Controlled Substances order being updated in this transaction. This
field is a pointer to the CS ORDER STATUS file (#58.82).
TECHNICAL DESCR:
Pointer to File 58.82 - CS ORDER STATS file.
CROSS-REFERENCE: 58.81^AD^MUMPS
1)= D SAD^PSDUTL
2)= D KAD^PSDUTL
3)= DO NOT DELETE
This cross-reference is used for compiling the "Narcotic Dispensing Report". The cross-reference
is ^PSD(58.81,"AD",ORDER STATUS,NAOU,DA)=""
58.81,11 COMPLETION STATUS 0;12 POINTER TO CS COMPLETION STATUS FILE (#58.83)
LAST EDITED: SEP 05, 1992
HELP-PROMPT: Enter the completion status for this Controlled Substances order.
DESCRIPTION: The completion status for this Controlled Substances order being updated by this transaction. This
field is a pointer to the CS COMPLETION STATUS file (#58.83).
TECHNICAL DESCR:
Pointer to File 58.83 - CS COMPLETION STATUS file.
CROSS-REFERENCE: 58.81^AG^MUMPS
1)= D SAG^PSDUTL2
2)= D KAG^PSDUTL2
3)= DO NOT DELETE
This cross-reference is used for compiling reports displaying Green Sheet discrepancies. The
cross-reference is ^PSD(58.81,"AG",COMPLETION STATUS,NAOU,DA)=""
58.81,12 MANUFACTURER 0;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: APR 15, 1992
HELP-PROMPT: Enter the current manufacturer (1-30 characters).
DESCRIPTION:
The current manufacturer of this drug.
58.81,13 LOT # 0;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: APR 15, 1992
HELP-PROMPT: Enter the current lot # for this drug (1-10 characters).
DESCRIPTION:
The current lot # of this drug.
58.81,14 EXPIRATION DATE 0;15 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 30, 1992
HELP-PROMPT: Enter the expiration date for this drug.
DESCRIPTION:
The current expiration date for this drug.
58.81,15 REASON 0;16 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
LAST EDITED: APR 15, 1992
HELP-PROMPT: Answer must be 1-45 characters in length.
DESCRIPTION:
Reason for creating this transaction.
58.81,16 PHARMACY DISPENSING # 0;17 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1) X
LAST EDITED: AUG 12, 1992
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION: The pharmacy control number to identify and track this Controlled Substances transaction. This
number may be manually entered in pharmacy or auto-generated by the CS software.
CROSS-REFERENCE: 58.81^D
1)= S ^PSD(58.81,"D",$E(X,1,30),DA)=""
2)= K ^PSD(58.81,"D",$E(X,1,30),DA)
3)= DO NOT DELETE
58.81,17 NAOU 0;18 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8)
INPUT TRANSFORM: S DIC("S")="I $S($P(^(0),""^"",2)=""N"":1,$P(^(0),""^"",2)=""S"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+
Y K:Y<0 X
LAST EDITED: MAY 23, 1994
HELP-PROMPT: Enter the NAOU ordering this drug.
DESCRIPTION:
The NAOU ordering this Controlled Substances drug.
SCREEN: S DIC("S")="I $S($P(^(0),""^"",2)=""N"":1,$P(^(0),""^"",2)=""S"":1,1:0)"
EXPLANATION: Allows selection of a Satellite vault or Narcotic location.
CROSS-REFERENCE: 58.81^AD1^MUMPS
1)= D SAD^PSDUTL1
2)= D KAD^PSDUTL1
3)= DO NOT DELETE
This cross-reference is used in compiling the "Narcotic Dispensing Report". The cross-reference is
^PSD(58.81,"AD",ORDER STATUS,NAOU,DA)=""
CROSS-REFERENCE: 58.81^AG1^MUMPS
1)= D SAG1^PSDUTL2
2)= D KAG1^PSDUTL2
3)= DO NOT DELETE
This cross-reference is used in compiling reports displaying Green Sheet discrepancies. The
cross-reference is ^PSD(58.81,"AG",COMPLETION STATUS,NAOU,DA)=""
CROSS-REFERENCE: 58.81^AK1^MUMPS
1)= D SAK1^PSDUTL4
2)= D KAK1^PSDUTL4
3)= DO NOT DELETE
This cross-reference is used in compiling the "Inspector's Log for Controlled Substances" generated
by date received on the NAOU. The cross-reference is ^PSD(58.81,"AK",D/T RECD,NAOU,DA)=""
58.81,18 DISPENSED BY 1;1 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 15, 1992
HELP-PROMPT: Enter the pharmacist dispensing this drug.
DESCRIPTION:
A pointer to the name of the pharmacist dispensing this drug.
SCREEN: S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))"
EXPLANATION: Access granted to pharmacists holding the appropriate security key.
58.81,19 PROCESSED DATE/TIME 1;2 DATE
INPUT TRANSFORM: S %DT="EPSTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 10, 1998
HELP-PROMPT: Enter the date/time pharmacy processed this drug.
DESCRIPTION: The date/time this transaction was processed. For Controlled Substances dispensing transactions,
this is the date/time a pharmacy technician processed this transaction.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,20 ORDER RECEIVED BY 1;3 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PS
J 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 person receiving this drug.
DESCRIPTION: A pointer to the name of the person receiving this Controlled Substances drug into the ordering
Narcotic Area of Use.
SCREEN: S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PS
J RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,1:0)"
EXPLANATION: Access granted to persons holding the appropriate security key.
58.81,21 RECEIPT DATE/TIME 1;4 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 23, 1994
HELP-PROMPT: Enter the date/time this drug was received from pharmacy.
DESCRIPTION:
The date/time this drug was received into the ordering Narcotic Area of Use.
CROSS-REFERENCE: 58.81^AK^MUMPS
1)= D SAK^PSDUTL4
2)= D KAK^PSDUTL4
3)= DO NOT DELETE
This cross-reference is used in compiling the "Inspector's Log for Controlled Substances" generated
by date received on the NAOU. The cross-reference is ^PSD(58.81,"AK",D/T RECD,NAOU,DA)=""
58.81,22 COMPLETION DATE/TIME 0;19 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 15, 1992
HELP-PROMPT: Enter the date/time this order was completed.
DESCRIPTION: The date/time this Controlled Substances Green Sheet (VA FORM 10-2638) was reviewed as complete by
pharmacy.
58.81,23 FILLED BY 1;5 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $S($D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PSJ RPHARM"",+Y)):1,1:0)" D ^DIC K
DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 30, 1992
HELP-PROMPT: Enter the name of the pharmacy employee processing this transaction.
DESCRIPTION:
A pointer to the name of the pharmacy technician processing this Controlled Substances transaction.
SCREEN: S DIC("S")="I $S($D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PSJ RPHARM"",+Y)):1,1:0)"
EXPLANATION: Access granted to technicians holding the appropriate security key.
58.81,24 REQUEST DATE/TIME 1;6 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 01, 1992
HELP-PROMPT: Enter the request date for this order.
DESCRIPTION:
The date/time the Controlled Substances order request was generated.
58.81,25 ORDERED BY 1;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(^XUSEC(""PS
J RPHARM"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 28, 1992
HELP-PROMPT: Enter the person's name requesting this order.
DESCRIPTION:
A pointer to the name of the person requesting this Controlled Substances drug.
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.81,25.5 ORDERED BY PHARMACY 1.5;1 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)" D ^DIC K
DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 10, 1993
HELP-PROMPT: Enter the person's name requesting this order for nursing.
DESCRIPTION: A pointer to the name of the pharmacy employee requesting the Controlled Substances order for
nursing.
TECHNICAL DESCR:
A screened pointer to NEW PERSON file (#200).
SCREEN: S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)"
EXPLANATION: Access granted to pharmacy personnel holding the appropriate security key.
58.81,26 COMMENTS 2;0 WORD-PROCESSING #58.8126
DESCRIPTION:
Comments concerning this transaction.
LAST EDITED: MAY 11, 1992
HELP-PROMPT: Enter your comments for this transaction.
DESCRIPTION:
This field contains the comments for this transaction.
TECHNICAL DESCR:
Word Processing.
58.81,27 QUANTITY RECEIVED 1;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between 0 and 999999, 3 Decimal Digits
DESCRIPTION:
The actual quantity of the drug received by the ordering NAOU.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,28 DISCREPANCY UNRESOLVED 1;9 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUN 29, 1992
HELP-PROMPT: Enter "YES" if a receiving/dispensing discrepancy exists.
DESCRIPTION: If the actual quantity of the drug received is different from the actual quantity pharmacy
dispensed, then this field is set to "1" or "YES".
58.81,29 COMPLETED BY NURSE 1;10 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,1:0)" D ^DIC K DIC
S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 27, 1993
HELP-PROMPT: Enter the name of the nurse returning this Green Sheet.
DESCRIPTION:
A pointer to the name of the nurse returning the Green Sheet (VA FORM 10-2638) to pharmacy.
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.81,29.5 COMP BY NURSE DATE/TIME 1.5;2 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 10, 1993
HELP-PROMPT: Enter the date/time this Green Sheet was completed by nursing.
DESCRIPTION:
The date/time this Green Sheet was completed by nursing and ready for pharmacy pickup.
58.81,29.6 D/T PLACED ON INSP HOLD 1.5;3 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 10, 1993
HELP-PROMPT: Enter the date/time this Green Sheet was placed on hold.
DESCRIPTION: The date/time this Green Sheet was placed on hold for review by the Controlled Substances
Inspector.
58.81,29.7 D/T INSP HOLD REMOVED 1.5;4 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 10, 1993
HELP-PROMPT: Enter the date/time this Green Sheet was removed from hold.
DESCRIPTION:
The date/time this Green Sheet was removed from hold by the Controlled Substances inspector.
58.81,29.8 HOLD REMARKS 1.6;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
LAST EDITED: JAN 05, 1994
HELP-PROMPT: Answer must be 1-45 characters in length.
DESCRIPTION:
This field contains information concerning the Green Sheet being held for CS inspector's review.
58.81,30 RECEIVED BY TECH 1;11 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)" D ^DIC K
DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 01, 1992
HELP-PROMPT: Enter the name of the tech receiving this order.
DESCRIPTION: A pointer to the name of the pharmacy technician receiving this Controlled Substances drug into the
NAOU.
SCREEN: S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)"
EXPLANATION: Access granted to technicians with appropriate security key.
58.81,31 PICK UP DATE/TIME 1;12 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 31, 1992
HELP-PROMPT: Enter the date/time pharmacy picked up the Green Sheet.
DESCRIPTION:
The date/time pharmacy picked up the Green Sheet (VA FORM 10-2638) from the NAOU.
58.81,32 PICKED UP BY 1;13 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $S($D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PSJ RPHARM"",+Y)):1,1:0)" D ^DIC K
DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 31, 1992
HELP-PROMPT: Enter the name of the technician picking up the Green Sheet.
DESCRIPTION: A pointer to the name of the pharmacy technician picking up the Green Sheet (VA FORM 10-2638) from
the NAOU.
SCREEN: S DIC("S")="I $S($D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PSJ RPHARM"",+Y)):1,1:0)"
EXPLANATION: Access granted to technicians picking up Green Sheets.
58.81,33 COMPLETED BY PHARMACIST 1;14 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)" D ^DIC K
DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 13, 1993
HELP-PROMPT: Enter the name of the pharmacist or tech completing this Green Sheet.
DESCRIPTION: A pointer to the name of the pharmacist or pharmacy technician completing the Green Sheet (VA FORM
10-2638).
SCREEN: S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)"
EXPLANATION: Access granted to the pharmacists or techs holding the appropriate security key.
58.81,34 DATE/TIME RET TO STOCK 3;1 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 01, 1993
HELP-PROMPT: Enter date/time returned to stock.
DESCRIPTION:
The date/time this drug is being returned to stock.
CROSS-REFERENCE: 58.81^ACT4^MUMPS
1)= D SACT4^PSDUTL1
2)= D KACT4^PSDUTL1
3)= DO NOT DELETE
This cross-reference is used in compiling data to print the pharmacy VA FORM 10-2320.
The cross-reference is ^PSD(58.81,"ACT",RET TO STK D/T,LOC,DRUG,TYPE,DA)=""
58.81,35 QUANTITY RET TO STOCK 3;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between 1 and 999999, 3 Decimal Digits
DESCRIPTION:
The actual quantity of this drug being returned to stock.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,36 REASON RETURNED TO STOCK 3;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
LAST EDITED: JUN 04, 1992
HELP-PROMPT: Enter reason this drug was returned to stock.
DESCRIPTION:
The reason this drug is being returned to stock.
58.81,37 DATE/TIME TURN IN DESTROY 3;4 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 drug was turned in for destruction.
DESCRIPTION:
The date/time this drug is being turned in for destruction.
CROSS-REFERENCE: 58.81^ACT7^MUMPS
1)= D SACT7^PSDUTL3
2)= D KACT7^PSDUTL3
3)= DO NOT DELETE
This cross-reference is used in compiling the cost reports.
The cross-reference reads ^PSD(58.81,"ACT",D/T TURN IN DEST,LOC,DRUG,DA)=""
58.81,38 QUANTITY TURN IN FOR DESTROY 3;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between 0 and 999999, 3 Decimal Digits
DESCRIPTION:
The actual quantity of this drug being turned in for destruction.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,39 REASON TURN IN FOR DESTROY 3;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
LAST EDITED: JUN 04, 1992
HELP-PROMPT: Enter reason this drug was turned in for destruction.
DESCRIPTION:
The reason this drug is being turned in for destruction.
58.81,40 REQUEST # 0;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUN 06, 1992
HELP-PROMPT: Type a Number between 1 and 99999999, 0 Decimal Digits
DESCRIPTION:
The order request number from the ordering NAOU.
58.81,41 BALANCE FWD RET/STK 3;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between -999999 and 999999, 3 Decimal Digits
DESCRIPTION: The inventory balance forward for this drug being returned to stock. This balance is used in
listing pharmacy's "Daily Activity Log".
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,47 DEST HOLDING # 3;8 POINTER TO CS DESTRUCTION FILE (#58.86)
LAST EDITED: JUN 07, 1992
HELP-PROMPT: Enter the destruction holding file # for this transaction.
DESCRIPTION:
A pointer to the destruction number for this drug being held for destruction.
58.81,48 EDIT VERIFIED ORDER DATE/TIME 4;1 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 01, 1993
HELP-PROMPT: Enter date/time this order was verified.
DESCRIPTION:
The date/time this verified order is being edited.
CROSS-REFERENCE: 58.81^ACT5^MUMPS
1)= D SACT5^PSDUTL1
2)= D KACT5^PSDUTL1
3)= DO NOT DELETE
This cross-reference is used in compiling data to print the pharmacy VA FORM 10-2320.
The cross-reference is ^PSD(58.81,"ACT",EDIT D/T,LOCATION,DRUG,TYPE,DA)=""
58.81,49 PHARMACIST EDITING 4;2 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 10, 1992
HELP-PROMPT: Enter the name of the pharmacist editing this verified order.
DESCRIPTION:
A pointer to name of the pharmacist editing this verified order.
SCREEN: S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))"
EXPLANATION: Access granted to pharmacists holding the appropriate security key.
58.81,50 NEW QUANTITY 4;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between 0 and 999999, 3 Decimal Digits
DESCRIPTION:
The actual quantity of this drug being dispensed, if quantity is being edited.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,51 ADJUSTED BY QUANTITY 4;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between -999999 and 999999, 3 Decimal Digits
DESCRIPTION: The difference in the original quantity dispensed and the edited quantity dispensed. The inventory
balance will be adjusted by this amount. This quantity may be a negative number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,52 EDIT MFG/LOT/EXP.DATE 4;5 SET
'1' FOR Y;
'0' FOR N;
LAST EDITED: JUN 10, 1992
HELP-PROMPT: Answer "YES" if manufacturer, lot #, or exp. date is edited.
DESCRIPTION: This field is set to "1" or "YES" if the manufacturer, lot #, or expiration date is being edited
on this verified order.
58.81,53 REASON EDITED 4;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
LAST EDITED: JUN 10, 1992
HELP-PROMPT: Answer must be 1-45 characters in length.
DESCRIPTION:
The reason this verified order is being edited.
58.81,54 BAL FWD EDIT VERIFIED ORDER 4;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between 0 and 999999, 3 Decimal Digits
DESCRIPTION: The inventory balance forward for this drug at the time this verified order is being edited. This
balance is used in listing pharmacy's "Daily Activity Log".
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,55 CANCEL VERIFIED ORD DATE/TIME 5;1 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 verified order was cancelled.
DESCRIPTION:
The date/time this verified order is being cancelled.
CROSS-REFERENCE: 58.81^ACT6^MUMPS
1)= D SACT6^PSDUTL1
2)= D KACT6^PSDUTL1
3)= DO NOT DELETE
This cross-reference is used in compiling data to print the pharmacy VA FORM 10-2320.
The cross-reference is ^PSD(58.81,"ACT",CANCEL D/T,LOC,DRUG,TYPE,DA)=""
58.81,56 PHARMACIST CANCELLING 5;2 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 10, 1992
HELP-PROMPT: Enter the name of the pharmacist holding the appropriate security key.
DESCRIPTION:
A pointer to the name of the pharmacist cancelling this verified order.
SCREEN: S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))"
EXPLANATION: Access granted to pharmacists holding the appropriate security key.
58.81,57 ADJUSTMENT QUANTITY 5;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between -999999 and 999999, 3 Decimal Digits
DESCRIPTION: The actual quantity of the drug for this cancelled order. The drug inventory balance will be
increased by this adjustment quantity.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,58 REASON CANCELLED 5;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
LAST EDITED: JUN 10, 1992
HELP-PROMPT: Answer must be 1-45 characters in length.
DESCRIPTION:
The reason this verified order is being cancelled.
58.81,59 BAL FWD CANCEL VERIFIED ORD 5;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between 0 and 999999, 3 Decimal Digits
DESCRIPTION: The inventory balance forward for this drug at the time this verified order is being cancelled.
This balance is used in listing pharmacy's "Daily Activity Log".
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,60 RX # 6;1 POINTER TO PRESCRIPTION FILE (#52)
LAST EDITED: AUG 24, 1992
HELP-PROMPT: Enter prescription number for this CS transaction.
DESCRIPTION:
A pointer to the outpatient prescription number.
CROSS-REFERENCE: 58.81^AOP
1)= S ^PSD(58.81,"AOP",$E(X,1,30),DA)=""
2)= K ^PSD(58.81,"AOP",$E(X,1,30),DA)
3)= DO NOT DELETE.
58.81,61 REFILL # 6;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUN 16, 1992
HELP-PROMPT: Type a Number between 1 and 100, 0 Decimal Digits
DESCRIPTION:
If this prescription is a refill, this field will contain the refill number.
58.81,62 PRESCRIPTION DATE 6;3 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 16, 1992
HELP-PROMPT: Enter the date/time this prescription was filled.
DESCRIPTION:
The fill date for this prescription.
58.81,63 PARTIAL # 6;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUN 16, 1992
HELP-PROMPT: Type a Number between 1 and 100, 0 Decimal Digits
DESCRIPTION:
If this prescription is a partial, this field contains the partial number.
58.81,63.5 OUTPATIENT RX # 6;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<1) X
LAST EDITED: MAY 07, 1993
HELP-PROMPT: Answer must be 1-11 characters in length.
DESCRIPTION:
This is the external form of the Outpatient prescription number.
58.81,63.6 RELEASING PHARMACIST 6;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 27, 1994
HELP-PROMPT: Enter the pharmacist processing the Outpatient release.
DESCRIPTION: This field is used to store the pharmacist responsible for the release of an Outpatient
prescription in case it is a different person than the transactor.
TECHNICAL DESCR:
This field records the releasing pharmacist in case this is a different person than the transactor.
58.81,64 TRANSFER FROM NAOU DATE/TIME 7;1 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 04, 1992
HELP-PROMPT: Enter the date/time the drug was transferred from this NAOU.
DESCRIPTION:
The date/time the Controlled Substances drug was transferred from this NAOU to another NAOU.
CROSS-REFERENCE: 58.81^ATRN
1)= S ^PSD(58.81,"ATRN",$E(X,1,30),DA)=""
2)= K ^PSD(58.81,"ATRN",$E(X,1,30),DA)
3)= DO NOT DELETE.
58.81,65 TRANSFER FROM NAOU NURSE 7;2 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,$D(^XUSEC(""PSJ RPH
ARM"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 14, 1993
HELP-PROMPT: Enter the name of the nurse transferring the drug from this NAOU.
DESCRIPTION: A pointer to the name of the nurse or pharmacist transferring the Controlled Substances drug from
this NAOU to another NAOU.
SCREEN: S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,$D(^XUSEC(""PSJ RPH
ARM"",+Y)):1,1:0)"
EXPLANATION: Access granted to nurses holding the appropriate security key.
58.81,66 TRANSFER TO NAOU 7;3 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",2)=""N""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 27, 1993
HELP-PROMPT: Enter the NAOU receiving the transferred drug.
DESCRIPTION:
The NAOU receiving this Controlled Substances drug from another NAOU.
SCREEN: S DIC("S")="I $P(^(0),""^"",2)=""N"""
EXPLANATION: Allows selection of a Satellite vault or Narcotic location.
58.81,67 TRANSFER TO NAOU DATE/TIME 7;4 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 04, 1992
HELP-PROMPT: Enter the date/time the drug was transferred to this NAOU.
DESCRIPTION:
The date/time the Controlled Substances drug was transferred to this NAOU from another NAOU.
58.81,68 TRANSFER TO NAOU NURSE 7;5 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,1:0)" D ^DIC K DIC
S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 27, 1993
HELP-PROMPT: Enter the name of the nurse receiving this transferred drug.
DESCRIPTION: A pointer to the name of the nurse receiving this transferred Controlled Substances drug from
another NAOU.
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.81,69 PREVIOUS TRANSACTION # 7;6 POINTER TO DRUG ACCOUNTABILITY TRANSACTION FILE (#58.81)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",11)=10" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 04, 1992
HELP-PROMPT: Enter the previous transferred from NAOU transaction number.
DESCRIPTION: The transaction number of the transferred from NAOU Controlled Substances drug. This is the
previous transaction number for this drug.
SCREEN: S DIC("S")="I $P(^(0),""^"",11)=10"
EXPLANATION: Allows selection of transactions transferred from an NAOU.
CROSS-REFERENCE: 58.81^AE
1)= S ^PSD(58.81,"AE",$E(X,1,30),DA)=""
2)= K ^PSD(58.81,"AE",$E(X,1,30),DA)
3)= DO NOT DELETE
58.81,70 QUANTITY TRANSFERRED 7;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between 1 and 999999, 3 Decimal Digits
DESCRIPTION:
The quantity of this Controlled Substances drug being transferred from an NAOU to another NAOU.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,71 PRIME VENDOR INVOICE 8;1 FREE TEXT
Prime Vendor Invoice
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 22, 1997
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: To allow the entering of a Prime Vendor Invoice number for a receipt. The Integrated Funds
Distribution, Control Point Activity, Accounting and Procurement (IFCAP) Purchase Order number may
be used all month and there may not be a corresponding IFCAP transaction number for each Prime
Vendor receipt.
TECHNICAL DESCR:
To track Prime Vendor receipts in the absence of a transaction number.
CROSS-REFERENCE: 58.81^PV^MUMPS
1)= I $P($G(^PSD(58.81,DA,8)),U,2)="" S ^PSD(58.81,"PV",X,DA)=""
2)= I $P($G(^PSD(58.81,DA,8)),U,2)="" K ^PSD(58.81,"PV",X,DA)
3)= DO NOT DELETE!
This cross-reference is used to located the transactions for specific Prime Vendor invoices.
^PSD(58.81,"PV",Prime Vendor Invoice#,Transaction internal entry#)=""
58.81,72 REFERRED REASON 1;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
LAST EDITED: AUG 24, 1992
HELP-PROMPT: Answer must be 1-45 characters in length.
DESCRIPTION: When a completed Green Sheet has been referred to a pharmacy supervisor for review, this field may
contain comments about the reason.
58.81,73 PATIENT 9;1 POINTER TO PATIENT FILE (#2)
LAST EDITED: JUL 22, 1993
HELP-PROMPT: Enter the name of the patient receiving this medication.
DESCRIPTION: This field contains a pointer to the name of the patient receiving this Controlled Substances
medication.
TECHNICAL DESCR:
Pointer to the PATIENT file #2.
58.81,73.5 FROM PATIENT ID LIST? 9.5;1 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: OCT 10, 1993
HELP-PROMPT: Is this Patient ID from the Patient ID list?
DESCRIPTION:
This field will be "YES" when the patient ID was picked up from the patient ID list.
58.81,74 NURSE ID 9;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 22, 1993
HELP-PROMPT: Enter the name of the nurse dispensing this medication.
DESCRIPTION: This field contains a pointer to the name of the nurse dispensing this Controlled Substances
medication.
TECHNICAL DESCR:
Pointer to the NEW PERSON file (#200).
58.81,75 ORIGINAL COUNT 9;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between -999999 and 999999, 3 Decimal Digits
DESCRIPTION: This field contains the original count or balance of this drug when loaded into the TRAKKER for
medication dispensing on the NAOU.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,76 WASTED QUANTITY 9;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between -999999 and 999999, 3 Decimal Digits
DESCRIPTION: This field contains the quantity of this Controlled Substances drug that was wasted during
dispensing at the NAOU.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,77 LIQUID AMOUNT 9;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between -999999 and 999999, 3 Decimal Digits
DESCRIPTION:
This field contains the liquid quantity of the drug dispensed at the NAOU.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,78 SECOND NURSE ID 9;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 22, 1993
HELP-PROMPT: Enter the name of the nurse witnessing this transaction.
DESCRIPTION: This field contains a pointer to the name of the nurse witnessing this Controlled Substances
transaction.
TECHNICAL DESCR:
Pointer to the NEW PERSON file (#200).
58.81,79 CORRECT COUNT 9;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
LAST EDITED: APR 11, 2001
HELP-PROMPT: Type a Number between -999999 and 999999, 3 Decimal Digits
DESCRIPTION:
This field contains the correct count or balance for a Controlled Substances drug on an NAOU.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58.81,80 PHARMACIST ID 9;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: SEP 30, 1993
HELP-PROMPT: Enter the name of the pharmacist inventorying this CS drug.
DESCRIPTION: This field contains a pointer to name of the pharmacist inventorying this Controlled Substances
drug.
TECHNICAL DESCR:
Pointer to the NEW PERSON file (#200).
58.81,81 SECOND PHARMACIST ID 9;9 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: SEP 30, 1993
HELP-PROMPT: Enter the name of the pharmacist witnessing this transaction.
DESCRIPTION: This field contains a pointer to the name of the pharmacist witnessing this Controlled Substances
transaction.
TECHNICAL DESCR:
Pointer to the NEW PERSON file (#200).
58.81,82 ACTUAL DATE/TIME 9;10 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 30, 1993
HELP-PROMPT: Enter actual date/time of this transaction.
DESCRIPTION:
This field contains the actual date/time this transaction was performed using the barcode TRAKKER.
58.81,83 CS INSPECTOR 9;11 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 09, 1993
HELP-PROMPT: Enter the name of the CS inspector performing this inventory.
DESCRIPTION: This option contains a pointer to the name of the Controlled Substances inspector inventorying this
CS drug.
58.81,84 SECOND CS INSPECTOR 9;12 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 09, 1993
HELP-PROMPT: Enter the name of the CS inspector witnessing this inventory.
DESCRIPTION: This field contains a pointer to the name of the Controlled Substances inspector witnessing the
inventory of this CS drug.
58.81,85 EMERGENCY CS;6 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: FEB 16, 1995
HELP-PROMPT: Anser "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.
CROSS-REFERENCE: 58.81^AEM1^MUMPS
1)= D SAEM1^PSDUTL5
2)= D KAEM1^PSDUTL5
3)= DO NOT DELETE
This cross-reference is used to track emergency orders.
The cross-reference is ^PSD(58.81,"AEM",DATE/TIME,LOCATION,DRUG,DA)="".
58.81,100 CS TRANSACTION CS;1 SET
'1' FOR YES;
LAST EDITED: APR 16, 1992
HELP-PROMPT: Is this a Controlled Substances transaction?
DESCRIPTION: This field will be set to "1" or "YES" if this is a Controlled Substances package transaction.
This CS flag will be used when purging data within this file.
58.81,101 PRINTED 2320 CS;2 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAY 04, 1992
HELP-PROMPT: Enter "1" or "Y" if this transaction has been printed.
DESCRIPTION: This field is set to "1" or "YES" when this transaction is printed on pharmacy's VA FORM 10-2320
for this drug.
58.81,102 PRINTED 2321 CS;3 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 04, 1992
HELP-PROMPT: Enter date or date/time this transaction was printed in lieu of the form 2321.
DESCRIPTION: This field is set to "1" or "YES" when this transaction is printed on the dispensing/receiving
report (in lieu of VA FORM 10-2321). This flag is used in printing this transaction only once on
the dispensing/receiving report. A reprint option is provided in the Controlled Substances module
for additional copies to be printed.
CROSS-REFERENCE: 58.81^AC
1)= S ^PSD(58.81,"AC",$E(X,1,30),DA)=""
2)= K ^PSD(58.81,"AC",$E(X,1,30),DA)
3)= DO NOT DELETE
58.81,103 PRINTED 2638 CS;4 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAY 24, 1992
HELP-PROMPT: Enter "1" or "YES" if the FORM 10-2638 has been printed for this transaction.
DESCRIPTION: This field is set to "1" or "YES" when a Green Sheet (VA FORM 10- 2638) is printed for this
Controlled Substances order. This flag is used in printing this transaction only once. A reprint
option is provided in the Controlled Substances module for additional copies to be printed.
CROSS-REFERENCE: 58.81^AH
1)= S ^PSD(58.81,"AH",$E(X,1,30),DA)=""
2)= K ^PSD(58.81,"AH",$E(X,1,30),DA)
58.81,104 PRINTED LABEL CS;5 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 29, 1993
HELP-PROMPT: Enter the date or date/time this transaction label was printed.
DESCRIPTION: This field is set to the date/time when the label for this transaction is printed. This flag is
used in printing labels only once for this transaction. A reprint label option is provided in the
Controlled Substances module for additional labels to be printed.
CROSS-REFERENCE: 58.81^AL
1)= S ^PSD(58.81,"AL",$E(X,1,30),DA)=""
2)= K ^PSD(58.81,"AL",$E(X,1,30),DA)
3)= DO NOT DELETE
58.81,105 SPECIALTY 9;13 POINTER TO SPECIALTY FILE (#42.4)
LAST EDITED: AUG 03, 1995
HELP-PROMPT: Enter specialty for patient at time dose dispensed.
DESCRIPTION:
For CDR reporting the specialty for the patient is stored at the time each dose is dispensed.
TECHNICAL DESCR:
For CDR reporting a call is made to INP^VADPT to get specialty.
58.81,106 PRIME VENDOR ORDER NUMBER 8;2 FREE TEXT
Prime Vendor Order Number
INPUT TRANSFORM: K:$L(X)>22!($L(X)<1) X
LAST EDITED: JUL 17, 1997
HELP-PROMPT: Enter the prime vendor's order number if the drug is not marked as a controlled substance.
DESCRIPTION: The PRIME VENDOR ORDER NUMBER field contains the order number on which the drugs were purchased if
the drug is not marked as a controlled substance.
FILES POINTED TO FIELDS
CONTROL POINT ACTIVITY (#410) CONTROL POINT ACTIVITY (#7)
CS COMPLETION STATUS (#58.83) COMPLETION STATUS (#11)
CS DESTRUCTION (#58.86) DEST HOLDING # (#47)
CS ORDER STATUS (#58.82) ORDER STATUS (#10)
DRUG (#50) DRUG (#4)
DRUG ACCOUNTABILITY STATS
(#58.8) PHARMACY LOCATION (#2)
NAOU (#17)
TRANSFER TO NAOU (#66)
DRUG ACCOUNTABILITY TRANSACTIO
(#58.81) TYPE (#1)
PREVIOUS TRANSACTION # (#69)
NEW PERSON (#200) TRANSACTOR (#6)
DISPENSED BY (#18)
ORDER RECEIVED BY (#20)
FILLED BY (#23)
ORDERED BY (#25)
ORDERED BY PHARMACY (#25.5)
COMPLETED BY NURSE (#29)
RECEIVED BY TECH (#30)
PICKED UP BY (#32)
COMPLETED BY PHARMACIST (#33)
PHARMACIST EDITING (#49)
PHARMACIST CANCELLING (#56)
RELEASING PHARMACIST (#63.6)
TRANSFER FROM NAOU NURSE (#65)
TRANSFER TO NAOU NURSE (#68)
NURSE ID (#74)
SECOND NURSE ID (#78)
PHARMACIST ID (#80)
SECOND PHARMACIST ID (#81)
CS INSPECTOR (#83)
SECOND CS INSPECTOR (#84)
PATIENT (#2) PATIENT (#73)
PRESCRIPTION (#52) RX # (#60)
PROCUREMENT & ACCOUNTING TRANS
(#442) PURCHASE ORDER NUMBER (#8)
SPECIALTY (#42.4) SPECIALTY (#105)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):