Global: ^PSD(58.89

FileMan FileNo	FileMan Filename	Package
58.89	CS ERROR LOG	Controlled Substances

Package	Total	Routines
Controlled Substances	10	PSDERCP PSDERP PSDFIL2 PSDFIL3 PSDFT PSDFT1 PSDRF1 PSDRFT PSDRFX PSDUTL4

Package	Total	FileMan Files
Drug Accountability	2	DRUG ACCOUNTABILITY STATS(#58.8)[6] DRUG ACCOUNTABILITY TRANSACTION(#58.81)[1]
Kernel	1	NEW PERSON(#200)[3]

Field #	Name	Loc	Type	Details
.01	LOG NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X S:$D(X) DINUM=X` LAST EDITED: `NOV 07, 1993` HELP-PROMPT: `Type a Number between 0 and 999999999, 0 Decimal Digits` DESCRIPTION: This field contains the internal entry number for this Controlled Substances error. TECHNICAL DESCR: DINUMed. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `58.89^B` 1)= S ^PSD(58.89,"B",$E(X,1,30),DA)="" 2)= K ^PSD(58.89,"B",$E(X,1,30),DA)
1	TRANSACTION NUMBER	0;2	POINTER TO DRUG ACCOUNTABILITY TRANSACTION FILE (#58.81)	DRUG ACCOUNTABILITY TRANSACTION(#58.81) LAST EDITED: `OCT 18, 1993` HELP-PROMPT: `Enter the transaction number generating this error.` DESCRIPTION: This field contains a pointer to the Controlled Substances transaction generating this error. CROSS-REFERENCE: `58.89^AC` 1)= S ^PSD(58.89,"AC",$E(X,1,30),DA)="" 2)= K ^PSD(58.89,"AC",$E(X,1,30),DA) 3)= DO NOT DELETE
2	DATE/TIME	0;3	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 07, 1993` HELP-PROMPT: `Enter the date/time the error occurred.` DESCRIPTION: This field contains the date/time the Controlled Substances error occurred. CROSS-REFERENCE: `58.89^AD^MUMPS` 1)= D SAD^PSDUTL4 2)= D KAD^PSDUTL4 3)= DO NOT DELETE This cross-reference is used in compiling various CS error log reports. The cross-reference is defined by: ^PSD(58.89,"AD",DATE/TIME,NAOU,DA)=""
3	CORRECTED BY	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^XUSEC(""PSD ERROR"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 17, 1993` HELP-PROMPT: `Enter the name of the supervisor correcting this error.` DESCRIPTION: This field contains a pointer to the name of the pharmacy or nursing supervisor correcting this error. SCREEN: `S DIC("S")="I $D(^XUSEC(""PSD ERROR"",+Y))"` EXPLANATION: `Access granted to pharmacy and nursing supervisors holding the appropriate key.`
4	DATE/TIME CORRECTED	0;5	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 07, 1993` HELP-PROMPT: `Enter the date/time this error was corrected.` DESCRIPTION: The date/time this Controlled Substances error was corrected. CROSS-REFERENCE: `58.89^AE^MUMPS` 1)= D SAE^PSDUTL4 2)= D KAE^PSDUTL4 3)= DO NOT DELETE This cross-reference is used in compiling the CS resolved error log report. The cross-reference is defined by: ^PSD(58.89,"AE",DATE/TIME CORRECTED,CS LOCATION,DA)=""
5	RESOLUTION	1;0	WORD-PROCESSING #58.895	DESCRIPTION: The final resolution for this Controlled Substances error.
6	CS LOCATION	0;6	POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8)	DRUG ACCOUNTABILITY STATS(#58.8) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),""^"",2)'=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 07, 1993` HELP-PROMPT: `Enter the NAOU or dispensing site generating this error log entry.` DESCRIPTION: This field contains a pointer to the Controlled Substances location, dispensing vault or NAOU, where this error occurred. SCREEN: `S DIC("S")="I $P(^(0),""^"",2)'=""P"""` EXPLANATION: `Allows selection of CS locations.` CROSS-REFERENCE: `58.89^AD1^MUMPS` 1)= D SAD1^PSDUTL4 2)= D KAD1^PSDUTL4 3)= DO NOT DELETE This cross-reference is used in compiling various CS error log reports. This cross-reference is defined by: ^PSD(58.89,"AD",DATE/TIME,NAOU,DA)="" CROSS-REFERENCE: `58.89^AE1^MUMPS` 1)= D SAE1^PSDUTL4 2)= D KAE1^PSDUTL4 3)= DO NOT DELETE This cross-reference is used in compiling the CS resolved error log report. This cross-reference is defined by: ^PSD(58.89,"AE",DATE/TIME CORRECTED,CS LOCATION,DA)=""

Field #

Name

Loc

Type

Details

.01

LOG NUMBER

0;1

NUMBER

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

INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
LAST EDITED: NOV 07, 1993
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits

DESCRIPTION:

This field contains the internal entry number for this Controlled Substances error.

TECHNICAL DESCR:
```
DINUMed.
```
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 58.89^B

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

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

1

TRANSACTION NUMBER

0;2

POINTER TO DRUG ACCOUNTABILITY TRANSACTION FILE (#58.81)

DRUG ACCOUNTABILITY TRANSACTION(#58.81)

LAST EDITED: OCT 18, 1993
HELP-PROMPT: Enter the transaction number generating this error.

DESCRIPTION:

This field contains a pointer to the Controlled Substances transaction generating this error.

CROSS-REFERENCE: 58.89^AC

1)= S ^PSD(58.89,"AC",$E(X,1,30),DA)=""

2)= K ^PSD(58.89,"AC",$E(X,1,30),DA)

3)= DO NOT DELETE

2

DATE/TIME

0;3

DATE

INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 07, 1993
HELP-PROMPT: Enter the date/time the error occurred.

DESCRIPTION:

This field contains the date/time the Controlled Substances error occurred.

CROSS-REFERENCE: 58.89^AD^MUMPS

1)= D SAD^PSDUTL4

2)= D KAD^PSDUTL4

3)= DO NOT DELETE

This cross-reference is used in compiling various CS error log reports.

The cross-reference is defined by: ^PSD(58.89,"AD",DATE/TIME,NAOU,DA)=""

3

CORRECTED BY

0;4

POINTER TO NEW PERSON FILE (#200)

NEW PERSON(#200)

INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PSD ERROR"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 17, 1993
HELP-PROMPT: Enter the name of the supervisor correcting this error.

DESCRIPTION:

This field contains a pointer to the name of the pharmacy or nursing supervisor correcting this error.

SCREEN: S DIC("S")="I $D(^XUSEC(""PSD ERROR"",+Y))"
EXPLANATION: Access granted to pharmacy and nursing supervisors holding the appropriate key.

4

DATE/TIME CORRECTED

0;5

DATE

INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 07, 1993
HELP-PROMPT: Enter the date/time this error was corrected.

DESCRIPTION:

The date/time this Controlled Substances error was corrected.

CROSS-REFERENCE: 58.89^AE^MUMPS

1)= D SAE^PSDUTL4

2)= D KAE^PSDUTL4

3)= DO NOT DELETE

This cross-reference is used in compiling the CS resolved error log report.

The cross-reference is defined by:

^PSD(58.89,"AE",DATE/TIME CORRECTED,CS LOCATION,DA)=""

5

RESOLUTION

1;0

WORD-PROCESSING #58.895

DESCRIPTION:

The final resolution for this Controlled Substances error.

6

CS LOCATION

0;6

POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8)

DRUG ACCOUNTABILITY STATS(#58.8)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",2)'=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 07, 1993
HELP-PROMPT: Enter the NAOU or dispensing site generating this error log entry.

DESCRIPTION:

This field contains a pointer to the Controlled Substances location, dispensing vault or NAOU, where this error occurred.

SCREEN: S DIC("S")="I $P(^(0),""^"",2)'=""P"""
EXPLANATION: Allows selection of CS locations.

CROSS-REFERENCE: 58.89^AD1^MUMPS

1)= D SAD1^PSDUTL4

2)= D KAD1^PSDUTL4

3)= DO NOT DELETE

This cross-reference is used in compiling various CS error log reports.

This cross-reference is defined by: ^PSD(58.89,"AD",DATE/TIME,NAOU,DA)=""

CROSS-REFERENCE: 58.89^AE1^MUMPS

1)= D SAE1^PSDUTL4

2)= D KAE1^PSDUTL4

3)= DO NOT DELETE

This cross-reference is used in compiling the CS resolved error log report.

This cross-reference is defined by:

^PSD(58.89,"AE",DATE/TIME CORRECTED,CS LOCATION,DA)=""

Customize PDF page

Package: Controlled Substances

Global: ^PSD(58.89

Information

Description

Directly Accessed By Routines, Total: 10

Pointer To FileMan Files, Total: 3

Fields, Total: 7