Global: ^PSD(58.85

FileMan FileNo	FileMan Filename	Package
58.85	CS WORKSHEET	Controlled Substances

Package	Total	Routines
Controlled Substances	25	PSDDWK PSDDWK1 PSDDWK2 PSDDWK3 PSDDWK4 PSDDWKE PSDEVO PSDEVO1 PSDNRGO PSDNRGS PSDOR21 PSDORD2 PSDORL PSDORN1 PSDORN2 PSDORP1 PSDORST PSDORV1 PSDPRG PSDPWK PSDPWK1 PSDPWK2 PSDRWK PSDUTL PSDUTL1

Package	Total	Routines
Controlled Substances	3	PSDORN3 PSDORNP PSDPRG

Package	Total	FileMan Files
Drug Accountability	2	DRUG ACCOUNTABILITY STATS(#58.8)[1, 2] DRUG ACCOUNTABILITY TRANSACTION(#58.81)[7]
Controlled Substances	1	CS ORDER STATUS(#58.82)[6]
Kernel	1	NEW PERSON(#200)[12, 14, 17, 20]
Pharmacy Data Management	1	DRUG(#50)[3]
Registration	1	VA PATIENT(#2)[22]

Field #	Name	Loc	Type	Details
.01	RECORD NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 25, 1992` HELP-PROMPT: `Type a Number between 1 and 999999999, 0 Decimal Digits` DESCRIPTION: The record number for this worksheet entry. CROSS-REFERENCE: `58.85^B` 1)= S ^PSD(58.85,"B",$E(X,1,30),DA)="" 2)= K ^PSD(58.85,"B",$E(X,1,30),DA)
1	DISPENSING SITE	0;2	POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8)	**********************REQUIRED FIELD********************** DRUG ACCOUNTABILITY STATS(#58.8) INPUT TRANSFORM: `S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,$S($P(^(0),""^"",2)=""M"":1,$P(^(0),""^"",2)=""S"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 25, 1992` HELP-PROMPT: `Enter the Pharmacy dispensing location.` DESCRIPTION: The pharmacy dispensing site (vault) for this Controlled Substances order. SCREEN: `S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,$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.` CROSS-REFERENCE: `58.85^AE` 1)= S ^PSD(58.85,"AE",$E(X,1,30),DA)="" 2)= K ^PSD(58.85,"AE",$E(X,1,30),DA) CROSS-REFERENCE: `58.85^AW1^MUMPS` 1)= D SAW1^PSDUTL1 2)= D KAW1^PSDUTL1 3)= DO NOT DELETE This cross-reference will be used in displaying the CS request orders in the order printed on the "Pharmacy Dispensing Worksheet" report. The cross-reference is ^PSD(58.85,"AW",DISP SITE,PRT #,DA)=""
2	NAOU	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)=""N"":1,$P(^(0),""^"",2)=""S"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 25, 1992` HELP-PROMPT: `Enter the requesting NAOU.` DESCRIPTION: The Narcotic Area of Use requesting the Controlled Substances order. 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 a Narcotic location.`
3	DRUG	0;4	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($P($G(^(2)),""^"",3)[""N"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 25, 1992` HELP-PROMPT: `Enter drug requested for this order.` DESCRIPTION: The Controlled Substances drug requested on this order. SCREEN: `S DIC("S")="I $S('$D(^(""I"")):1,+^(""I"")>DT:1,1:0),$S($P($G(^(2)),""^"",3)[""N"":1,1:0)"` EXPLANATION: `Allows selection of ACTIVE drugs marked for Controlled Substances package use.`
4	REQUEST #	0;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 25, 1992` HELP-PROMPT: `Type a Number between 1 and 99999999, 0 Decimal Digits` DESCRIPTION: The request number for this Controlled Substances order. CROSS-REFERENCE: `58.85^AD^MUMPS` 1)= D REQ^PSDUTL 2)= D KREQ^PSDUTL 3)= DO NOT DELETE This cross-reference will be used for updating order requests stored in the DRUG ACCOUNTABILITY STATS file (#58.8). The cross-reference is ^PSD(58.85,"AD",NAOU,DRUG,REQUEST #,DA)=""
5	QUANTITY ORDERED	0;6	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 15, 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	ORDER STATUS	0;7	POINTER TO CS ORDER STATUS FILE (#58.82)	**********************REQUIRED FIELD********************** CS ORDER STATUS(#58.82) LAST EDITED: `MAR 25, 1992` HELP-PROMPT: `Enter processing status for this order.` DESCRIPTION: A pointer to the order status for this Controlled Substances request. CROSS-REFERENCE: `58.85^AC^MUMPS` 1)= D STAT^PSDUTL 2)= D KSTAT^PSDUTL 3)= DO NOT DELETE This cross-reference is used for various Controlled Substances statistical reports. The cross-reference is ^PSD(58.85,"AC",STATUS,NAOU,DRUG,REQUEST #,DA)=""
7	TRANSACTION #	0;8	POINTER TO DRUG ACCOUNTABILITY TRANSACTION FILE (#58.81)	DRUG ACCOUNTABILITY TRANSACTION(#58.81) LAST EDITED: `MAR 25, 1992` HELP-PROMPT: `Enter the transaction # for this order.` DESCRIPTION: If this request is processed by pharmacy, this field contains a pointer to the transaction dispensing this order.
8	COMMENTS	1;0	WORD-PROCESSING #58.858	DESCRIPTION: Comments to pharmacy concerning this Controlled Substances order request.
9	MANUFACTURER	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `APR 05, 1992` HELP-PROMPT: `Enter the current manufacturer.` DESCRIPTION: The manufacturer for the drug requested on this order.
10	LOT #	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `APR 05, 1992` HELP-PROMPT: `Enter the current lot # for this drug.` DESCRIPTION: The lot number for the drug requested on this order.
11	EXPIRATION DATE	0;11	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 expiration date for the drug requested on this order.
12	ORDERED BY	0;12	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,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 19, 1992` HELP-PROMPT: `Enter the person's name requesting this order.` DESCRIPTION: A pointer to the name of the person requesting this Controlled Substances order. 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.`
13	PRINTED	2;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 25, 1992` HELP-PROMPT: `Type a Number between 1 and 999999, 0 Decimal Digits` DESCRIPTION: This printed flag will be set to a counter if this request has been printed on a worksheet report. This flag will be used to compile the pharmacy worksheet log used in dispensing Controlled Substances drugs. CROSS-REFERENCE: `58.85^AW^MUMPS` 1)= D SAW^PSDUTL1 2)= D KAW^PSDUTL1 3)= DO NOT DELETE This cross-reference will be used in displaying CS request orders in the order printed on the "Pharmacy Dispensing Worksheet" report. The cross-reference is ^PSD(58.85,"AW",DISP SITE,PRT #,DA)=""
14	DISPENSED BY	0;13	POINTER TO NEW PERSON FILE (#200)	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: `APR 19, 1992` HELP-PROMPT: `Enter name of the dispensing pharmacist.` DESCRIPTION: A pointer to the name of the pharmacist dispensing this Controlled Substances order. SCREEN: `S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))"` EXPLANATION: `Access granted to pharmacists holding the appropriate security key.`
15	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` DESCRIPTION: The dispensed date/time of this Controlled Substances order.
16	PHARMACY DISPENSING #	0;15	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 (Green Sheet #) assigned to identify and track this Controlled Substances order.
17	TECH	0;16	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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: `APR 19, 1992` HELP-PROMPT: `Enter the name of the pharmacy employee processing this order.` DESCRIPTION: If a pharmacy technician processed this order, this field will contain a pointer to the name of the technician. 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.`
18	QUANTITY DISPENSED	0;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `MAY 12, 1999` HELP-PROMPT: `Type a Number between 0 and 999999, 2 Decimal Digits` DESCRIPTION: The actual drug quantity dispensed from pharmacy for this Controlled Substances order.
19	REQUEST DATE/TIME	0;18	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 this Controlled Substances request was entered by the NAOU.
20	ORDERED BY PHARMACY	0;19	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $S($D(^XUSEC(""PSJ RPHAM"",+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 pharmacy employee's name entering the Controlled Substances request for nursing. SCREEN: `S DIC("S")="I $S($D(^XUSEC(""PSJ RPHAM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)"` EXPLANATION: `Access granted to pharmacy personnel holding the appropriate security key.`
21	EMERGENCY	2;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `FEB 14, 1995` HELP-PROMPT: `Answer "YES" if this is an emergency order.` DESCRIPTION: A "YES" entry in this field will cause an order to print on the pharmacy emergency order printer and allow for expedited processing. TECHNICAL DESCR: This field is used to flag orders for expedited processing.
22	PATIENT	2;3	POINTER TO VA PATIENT FILE (#2)	VA PATIENT(#2) LAST EDITED: `AUG 16, 1996` HELP-PROMPT: `Enter the patient for which this Controlled Substance is being ordered.` DESCRIPTION: This field is for infusion and PCA syringe orders.

Field #

Name

Loc

Type

Details

.01

RECORD NUMBER

0;1

NUMBER

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 25, 1992
HELP-PROMPT: Type a Number between 1 and 999999999, 0 Decimal Digits

DESCRIPTION:

The record number for this worksheet entry.

CROSS-REFERENCE: 58.85^B

1)= S ^PSD(58.85,"B",$E(X,1,30),DA)=""

2)= K ^PSD(58.85,"B",$E(X,1,30),DA)

1

DISPENSING SITE

0;2

POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8)

************************REQUIRED FIELD************************

DRUG ACCOUNTABILITY STATS(#58.8)

INPUT TRANSFORM: S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,$S($P(^(0),""^"",2)=""M"":1,$P(^(0),""^"",2)=""S"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 25, 1992
HELP-PROMPT: Enter the Pharmacy dispensing location.

DESCRIPTION:

The pharmacy dispensing site (vault) for this Controlled Substances order.

SCREEN: S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,$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.

CROSS-REFERENCE: 58.85^AE

1)= S ^PSD(58.85,"AE",$E(X,1,30),DA)=""

2)= K ^PSD(58.85,"AE",$E(X,1,30),DA)

CROSS-REFERENCE: 58.85^AW1^MUMPS

1)= D SAW1^PSDUTL1

2)= D KAW1^PSDUTL1

3)= DO NOT DELETE

This cross-reference will be used in displaying the CS request orders in the order printed on the "Pharmacy Dispensing Worksheet" report.

The cross-reference is ^PSD(58.85,"AW",DISP SITE,PRT #,DA)=""

2

NAOU

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)=""N"":1,$P(^(0),""^"",2)=""S"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 25, 1992
HELP-PROMPT: Enter the requesting NAOU.

DESCRIPTION:

The Narcotic Area of Use requesting the Controlled Substances order.

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 a Narcotic location.

3

DRUG

0;4

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($P($G(^(2)),""^"",3)[""N"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 25, 1992
HELP-PROMPT: Enter drug requested for this order.

DESCRIPTION:

The Controlled Substances drug requested on this order.

SCREEN: S DIC("S")="I $S('$D(^(""I"")):1,+^(""I"")>DT:1,1:0),$S($P($G(^(2)),""^"",3)[""N"":1,1:0)"
EXPLANATION: Allows selection of ACTIVE drugs marked for Controlled Substances package use.

4

REQUEST #

0;5

NUMBER

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 25, 1992
HELP-PROMPT: Type a Number between 1 and 99999999, 0 Decimal Digits

DESCRIPTION:

The request number for this Controlled Substances order.

CROSS-REFERENCE: 58.85^AD^MUMPS

1)= D REQ^PSDUTL

2)= D KREQ^PSDUTL

3)= DO NOT DELETE

This cross-reference will be used for updating order requests stored in the DRUG ACCOUNTABILITY STATS file (#58.8).

The cross-reference is ^PSD(58.85,"AD",NAOU,DRUG,REQUEST #,DA)=""

5

QUANTITY ORDERED

0;6

NUMBER

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 15, 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

ORDER STATUS

0;7

POINTER TO CS ORDER STATUS FILE (#58.82)

************************REQUIRED FIELD************************

CS ORDER STATUS(#58.82)

LAST EDITED: MAR 25, 1992
HELP-PROMPT: Enter processing status for this order.

DESCRIPTION:

A pointer to the order status for this Controlled Substances request.

CROSS-REFERENCE: 58.85^AC^MUMPS

1)= D STAT^PSDUTL

2)= D KSTAT^PSDUTL

3)= DO NOT DELETE

This cross-reference is used for various Controlled Substances statistical reports.

The cross-reference is ^PSD(58.85,"AC",STATUS,NAOU,DRUG,REQUEST #,DA)=""

7

TRANSACTION #

0;8

POINTER TO DRUG ACCOUNTABILITY TRANSACTION FILE (#58.81)

DRUG ACCOUNTABILITY TRANSACTION(#58.81)

LAST EDITED: MAR 25, 1992
HELP-PROMPT: Enter the transaction # for this order.

DESCRIPTION:

If this request is processed by pharmacy, this field contains a pointer to the transaction dispensing this order.

8

COMMENTS

1;0

WORD-PROCESSING #58.858

DESCRIPTION:

Comments to pharmacy concerning this Controlled Substances order request.

9

MANUFACTURER

0;9

FREE TEXT

INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: APR 05, 1992
HELP-PROMPT: Enter the current manufacturer.

DESCRIPTION:

The manufacturer for the drug requested on this order.

10

LOT #

0;10

FREE TEXT

INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: APR 05, 1992
HELP-PROMPT: Enter the current lot # for this drug.

DESCRIPTION:

The lot number for the drug requested on this order.

11

EXPIRATION DATE

0;11

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 expiration date for the drug requested on this order.

12

ORDERED BY

0;12

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,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 19, 1992
HELP-PROMPT: Enter the person's name requesting this order.

DESCRIPTION:

A pointer to the name of the person requesting this Controlled Substances order.

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.

13

PRINTED

2;1

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 25, 1992
HELP-PROMPT: Type a Number between 1 and 999999, 0 Decimal Digits

DESCRIPTION:

This printed flag will be set to a counter if this request has been printed on a worksheet report.  This flag will be used to compile the pharmacy worksheet log used in dispensing Controlled Substances drugs.

CROSS-REFERENCE: 58.85^AW^MUMPS

1)= D SAW^PSDUTL1

2)= D KAW^PSDUTL1

3)= DO NOT DELETE

This cross-reference will be used in displaying CS request orders in the order printed on the "Pharmacy Dispensing Worksheet" report.

The cross-reference is ^PSD(58.85,"AW",DISP SITE,PRT #,DA)=""

14

DISPENSED BY

0;13

POINTER TO NEW PERSON FILE (#200)

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: APR 19, 1992
HELP-PROMPT: Enter name of the dispensing pharmacist.

DESCRIPTION:

A pointer to the name of the pharmacist dispensing this Controlled Substances order.

SCREEN: S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))"
EXPLANATION: Access granted to pharmacists holding the appropriate security key.

15

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

DESCRIPTION:

The dispensed date/time of this Controlled Substances order.

16

PHARMACY DISPENSING #

0;15

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 (Green Sheet #) assigned to identify and track this Controlled Substances order.

17

TECH

0;16

POINTER TO NEW PERSON FILE (#200)

NEW PERSON(#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: APR 19, 1992
HELP-PROMPT: Enter the name of the pharmacy employee processing this order.

DESCRIPTION:

If a pharmacy technician processed this order, this field will contain a pointer to the name of the technician.

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.

18

QUANTITY DISPENSED

0;17

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAY 12, 1999
HELP-PROMPT: Type a Number between 0 and 999999, 2 Decimal Digits

DESCRIPTION:

The actual drug quantity dispensed from pharmacy for this Controlled Substances order.

19

REQUEST DATE/TIME

0;18

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 this Controlled Substances request was entered by the NAOU.

20

ORDERED BY PHARMACY

0;19

POINTER TO NEW PERSON FILE (#200)

NEW PERSON(#200)

INPUT TRANSFORM: S DIC("S")="I $S($D(^XUSEC(""PSJ RPHAM"",+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 pharmacy employee's name entering the Controlled Substances request for nursing.

SCREEN: S DIC("S")="I $S($D(^XUSEC(""PSJ RPHAM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)"
EXPLANATION: Access granted to pharmacy personnel holding the appropriate security key.

21

EMERGENCY

2;2

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: FEB 14, 1995
HELP-PROMPT: Answer "YES" if this is an emergency order.

DESCRIPTION:

A "YES" entry in this field will cause an order to print on the pharmacy emergency order printer and allow for expedited processing.

TECHNICAL DESCR:

This field is used to flag orders for expedited processing.

22

PATIENT

2;3

POINTER TO VA PATIENT FILE (#2)

VA PATIENT(#2)

LAST EDITED: AUG 16, 1996
HELP-PROMPT: Enter the patient for which this Controlled Substance is being ordered.

DESCRIPTION:

This field is for infusion and PCA syringe orders.

Customize PDF page

Package: Controlled Substances

Global: ^PSD(58.85

Information

Description

Directly Accessed By Routines, Total: 25

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 6

Fields, Total: 23