STANDARD DATA DICTIONARY #58.87 -- CS CORRECTION LOG FILE 3/24/25 PAGE 1
STORED IN ^PSD(58.87, *** 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 data associated with corrective actions on the Controlled Substances orders.
Entries in this file should NOT be edited directly using VA FileMan.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: CORRECTION DATE/TIME(AC), TYPE OF CORRECTION(AC1), PHARM DISPENSING SITE(AC2), LOG NUMBER(B)
58.87,.01 LOG NUMBER 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 06, 1992
HELP-PROMPT: Type a Number between 1 and 999999999, 0 Decimal Digits
DESCRIPTION:
This field contains the correction log number for this entry.
CROSS-REFERENCE: 58.87^B
1)= S ^PSD(58.87,"B",$E(X,1,30),DA)=""
2)= K ^PSD(58.87,"B",$E(X,1,30),DA)
58.87,1 CORRECTION DATE/TIME 0;2 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 06, 1992
HELP-PROMPT: Enter the date/time of this correction action.
DESCRIPTION:
The date/time of this correction entry.
CROSS-REFERENCE: 58.87^AC^MUMPS
1)= D SAC^PSDUTL2
2)= D KAC^PSDUTL2
3)= DO NOT DELETE
This cross-reference is used in compiling the "CS Correction Log Report".
The cross-reference is ^PSD(58.87,"AC",TYPE,DISP SITE,DATE,DA)=""
58.87,2 CORRECTED BY PHARMACIST 0;3 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: SEP 06, 1992
HELP-PROMPT: Enter the name of the pharmacist correcting this problem.
DESCRIPTION:
A pointer to the name of the pharmacist associated with this correction action.
SCREEN: S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))"
EXPLANATION: Access granted to the pharmacists holding the appropriate security key.
58.87,3 PHARMACY DISPENSING # 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1) X
LAST EDITED: SEP 06, 1992
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION:
The pharmacy control number to identify and track this Controlled Substances correction entry.
58.87,4 DRUG 0;5 POINTER TO DRUG FILE (#50)
INPUT TRANSFORM: S DIC("S")="I $S('$D(^(""I"")):1,+^(""I"")>DT:1,1:0),$P($G(^(2)),""^"",3)[""N""" D ^DIC K DIC S DIC
=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 06, 1992
HELP-PROMPT: Enter the name of the drug associated with this correction action.
DESCRIPTION:
A pointer to the drug associated with this correction action.
SCREEN: S DIC("S")="I $S('$D(^(""I"")):1,+^(""I"")>DT:1,1:0),$P($G(^(2)),""^"",3)[""N"""
EXPLANATION: Allows selection of ACTIVE drugs marked for Controlled Substances use.
58.87,5 NAOU 0;6 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: SEP 06, 1992
HELP-PROMPT: Enter the name of the NAOU associated with this correction action.
DESCRIPTION:
A pointer to the NAOU associated with this correction action.
SCREEN: S DIC("S")="I $P(^(0),""^"",2)=""N"""
EXPLANATION: Allows selection of Narcotic locations only.
58.87,6 NURSE 0;7 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 associated with this correction action.
DESCRIPTION: A pointer to the name of the nurse who completed the Green Sheet and marked it ready for pharmacy
pickup.
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.87,7 PROBLEM DATE/TIME 0;8 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 06, 1992
HELP-PROMPT: Enter the date/time the problem was created.
DESCRIPTION:
This field contains the date/time when the problem was created.
58.87,8 REQUEST # 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 06, 1992
HELP-PROMPT: Type a Number between 1 and 99999999, 0 Decimal Digits
DESCRIPTION:
The order request number associated with this correction action.
58.87,9 GS ENTERED BY PHARM 0;10 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: MAY 31, 1993
HELP-PROMPT: Enter the name of the pharmacist who entered the Green Sheet.
DESCRIPTION:
A pointer to the name of the pharmacist who entered/completed the Green Sheet.
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 pharmacists holding the appropriate security key.
58.87,10 QUANTITY 0;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: SEP 06, 1992
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
The quantity of the drug associated with this correction action.
58.87,11 TYPE OF CORRECTION 0;12 SET
'1' FOR GREEN SHEET READY FOR PICKUP;
'2' FOR DELETE EXISTING GREEN SHEETS;
'3' FOR ERROR FOUND ON COMPLETED GS;
'4' FOR ERROR RESOLVED ON GREEN SHEET;
LAST EDITED: MAY 22, 1993
HELP-PROMPT: Enter the appropriate type of correction action.
DESCRIPTION:
The type of correction action associated with this entry.
CROSS-REFERENCE: 58.87^AC1^MUMPS
1)= D SAC1^PSDUTL2
2)= D KAC1^PSDUTL2
3)= DO NOT DELETE
This cross-reference is used in compiling the "CS Correction Log Report".
The cross-reference is ^PSD(58.87,"AC",TYPE,DISP SITE,DATE,DA)=""
58.87,12 PHARM DISPENSING SITE 0;13 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#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: SEP 06, 1992
HELP-PROMPT: Enter the dispensing vault associated with this correction action.
DESCRIPTION: This field contains a pointer to the pharmacy dispensing site (vault) associated with this
correction action.
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: Selection limited to a Master vault or a Satellite vault.
CROSS-REFERENCE: 58.87^AC2^MUMPS
1)= D SAC2^PSDUTL2
2)= D KAC2^PSDUTL2
3)= DO NOT DELETE
This cross-reference is used in compiling the "CS Correction Log Report".
The cross-reference is ^PSD(58.87,"AC",TYPE,DISP SITE,DATE,DA)=""
58.87,13 PREVIOUS COMPLETION STATUS 0;14 POINTER TO CS COMPLETION STATUS FILE (#58.83)
LAST EDITED: MAY 22, 1993
HELP-PROMPT: Enter the previous completion status for the order.
DESCRIPTION:
The completion status prior to correction action being taken.
58.87,14 CURRENT COMPLETED STATUS 0;15 POINTER TO CS COMPLETION STATUS FILE (#58.83)
LAST EDITED: MAY 22, 1993
HELP-PROMPT: Enter the current completion status for this order.
DESCRIPTION:
The completion status after this correction action has been performed.
FILES POINTED TO FIELDS
CS COMPLETION STATUS (#58.83) PREVIOUS COMPLETION STATUS (#13)
CURRENT COMPLETED STATUS (#14)
DRUG (#50) DRUG (#4)
DRUG ACCOUNTABILITY STATS
(#58.8) NAOU (#5)
PHARM DISPENSING SITE (#12)
NEW PERSON (#200) CORRECTED BY PHARMACIST (#2)
NURSE (#6)
GS ENTERED BY PHARM (#9)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):