Sub-Field: 58.800118

Parent File	Name	Number	Package
58.8001	ORDERS	58.800118	Drug Accountability

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

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.

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

Customize PDF page

Package: Drug Accountability

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

Sub-Field: 58.800118

Information

Details