STANDARD DATA DICTIONARY #53.68 -- BCMA MISSING DOSE REQUEST FILE 3/24/25 PAGE 1
STORED IN ^PSB(53.68, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains the missing dose requests from the ward that are sent to pharmacy. This file may be purged as needed by VA Fileman.
DD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: DATE/TIME ENTERED(ADTE), STATUS(AS), REQUEST NUMBER(B)
INDEXED BY: STATUS & DIVISION (DIVAS)
LAST MODIFIED: JUL 6,2018@14:44:42
53.68,.01 REQUEST NUMBER 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>18!($L(X)<18) X
LAST EDITED: MAR 13, 1999
HELP-PROMPT: Answer must be 18 characters in length.
DESCRIPTION:
Contains a system generated unique request number for each missing dose request entered.
CROSS-REFERENCE: 53.68^B
1)= S ^PSB(53.68,"B",$E(X,1,30),DA)=""
2)= K ^PSB(53.68,"B",$E(X,1,30),DA)
53.68,.02 DATE/TIME ENTERED 0;2 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 18, 1999
DESCRIPTION:
Automatically stuffed at record creation time with a value of NOW.
CROSS-REFERENCE: 53.68^ADTE
1)= S ^PSB(53.68,"ADTE",$E(X,1,30),DA)=""
2)= K ^PSB(53.68,"ADTE",$E(X,1,30),DA)
53.68,.03 ENTERED BY 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 13, 1999
DESCRIPTION:
Automatically stuffed at record creation time with the current value of DUZ.
53.68,.04 DIVISION 0;4 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: APR 19, 2017
HELP-PROMPT: Select an institution.
DESCRIPTION:
Automatically stuffed at record creation time with the current value of DUZ(2).
RECORD INDEXES: DIVAS (#1519)
53.68,.05 SENT TO MAILGROUP 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAR 26, 1999
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
Once submitted this field contains the Mail group the request was sent to.
53.68,.06 PRINTED ON DEVICE 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAR 26, 1999
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
If printing is enabled this contains the printer that the request printed on.
53.68,.07 STATUS 0;7 SET
'0' FOR CLOSED;
'1' FOR UNRESOLVED;
LAST EDITED: APR 19, 2017
HELP-PROMPT: Enter 0 or CLOSED if the request has been closed. Enter 1 or UNRESOLVED for a new request.
DESCRIPTION:
Status of the request as Closed or Unresolved.
NOTES: TRIGGERED by the PHARMACY REASON NEEDED field of the BCMA MISSING DOSE REQUEST File
CROSS-REFERENCE: 53.68^AS
1)= S ^PSB(53.68,"AS",$E(X,1,30),DA)=""
2)= K ^PSB(53.68,"AS",$E(X,1,30),DA)
RECORD INDEXES: DIVAS (#1519)
53.68,.11 PATIENT .1;1 POINTER TO PATIENT FILE (#2)
LAST EDITED: MAR 13, 1999
DESCRIPTION:
Pointer to the PATIENT file (#2) of the patient missing the medication.
53.68,.12 WARD LOCATION .1;2 POINTER TO WARD LOCATION FILE (#42)
LAST EDITED: MAR 26, 1999
DESCRIPTION:
Pointer to the WARD LOCATION file (#42) with the selected ward for the report.
53.68,.13 DRUG REQUESTED .1;3 POINTER TO DRUG FILE (#50)
INPUT TRANSFORM: I ($P($G(^PSDRUG(X,2)),U,3)'["U")&($P($G(^PSDRUG(X,2)),U,3)'["I")!($G(^PSDRUG(X,"I"),DT)30!($L(X)<1) X
LAST EDITED: MAR 13, 1999
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
Free text description of the dosage needed.
53.68,.15 REASON NEEDED .1;5 SET
'1' FOR DROPPED;
'2' FOR EMPTY PACKAGE;
'3' FOR NOT AVAILABLE;
'4' FOR WRONG DOSE/DRUG DELIVERED;
'5' FOR PACKAGE CONTENTS DAMAGED;
'6' FOR PACKAGE INTEGRITY DAMAGED;
'7' FOR BARCODE/IEN ILLEGIBLE;
LAST EDITED: OCT 30, 2003
DESCRIPTION:
Set of codes containing the reason a medication is missing.
53.68,.16 ADMINISTRATION DATE/TIME .1;6 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 13, 1999
DESCRIPTION:
Date/Time the medication is to be administered.
53.68,.17 NEEDED BY DATE/TIME .1;7 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 26, 2002
DESCRIPTION:
Date/Time the medication will be needed to meet the next administration.
53.68,.18 ROOM/BED .1;8 POINTER TO ROOM-BED FILE (#405.4)
LAST EDITED: MAY 11, 2000
DESCRIPTION:
The room/bed of the patient when the request is entered.
53.68,.19 SCHEDULE .1;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<2) X
LAST EDITED: APR 26, 2002
HELP-PROMPT: Answer must be 2-25 characters in length.
53.68,.21 DOSE DELIVERED .2;1 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 13, 1999
DESCRIPTION:
Was a dose delivered to complete this missing med request. (y/n)
53.68,.22 DOSE DELIVERED BY .2;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 13, 1999
DESCRIPTION:
Pointer to NEW PERSON file (#200) with the user who resolved the request.
53.68,.23 DELIVERY TIME .2;3 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 13, 1999
DESCRIPTION:
Date/Time the medication was delivered/resolved.
53.68,.24 PHARMACY REASON NEEDED .2;4 SET
'1' FOR WS/FILL ON REQUEST;
'2' FOR FOUND IN DRAWER;
'3' FOR PHARMACIST ERROR;
'4' FOR EXPIRED/NO ORDER;
'5' FOR ATC ERROR;
'6' FOR NOT ENOUGH PRNS;
'7' FOR TECHNICIAN ERROR;
'8' FOR ON PRE-EXCHANGE/PICK LIST;
'9' FOR PATIENT TRANSFERRED;
'10' FOR NURSE ADMIN ERROR;
LAST EDITED: APR 08, 1999
DESCRIPTION:
Set of coded for resolution reason.
CROSS-REFERENCE: ^^TRIGGER^53.68^.07
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.68,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S
DIU=X K Y S X=DIV S X="0" X ^DD(53.68,.24,1,1,1.4)
1.4)= S DIH=$S($D(^PSB(53.68,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=53.68,DIG=.07 D ^DI
CR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.68,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S
DIU=X K Y S X=DIV S X="1" X ^DD(53.68,.24,1,1,2.4)
2.4)= S DIH=$S($D(^PSB(53.68,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=53.68,DIG=.07 D ^DI
CR
CREATE VALUE)= "0"
DELETE VALUE)= "1"
FIELD)= STATUS
53.68,.25 UNIQUE ID .1;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: APR 28, 2002
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This is the unique ID number of an IV bag, which is generated from Inpatient Medications.
53.68,.26 ADDITIVES .6;0 POINTER Multiple #53.686 (Add New Entry without Asking)
DESCRIPTION: Pointer to the additives file. Filled in automatically with the ordered additives when a missing
dose is submitted.
53.686,.01 ADDITIVES 0;1 POINTER TO IV ADDITIVES FILE (#52.6)
LAST EDITED: APR 26, 2002
DESCRIPTION: Pointer to the additives file. Filled in automatically with the ordered additives when a missing
dose is submitted.
CROSS-REFERENCE: 53.686^B
1)= S ^PSB(53.68,DA(1),.6,"B",$E(X,1,30),DA)=""
2)= K ^PSB(53.68,DA(1),.6,"B",$E(X,1,30),DA)
53.68,.27 SOLUTIONS .7;0 POINTER Multiple #53.687 (Add New Entry without Asking)
DESCRIPTION: Pointer to the SOLUTIONS file. Filled in automatically with the ordered additives when a missing
dose is submitted.
53.687,.01 SOLUTIONS 0;1 POINTER TO IV SOLUTIONS FILE (#52.7)
LAST EDITED: MAY 25, 2001
DESCRIPTION: Pointer to the SOLUTIONS file. Filled in automatically with the ordered additives when a missing
dose is submitted.
CROSS-REFERENCE: 53.687^B
1)= S ^PSB(53.68,DA(1),.7,"B",$E(X,1,30),DA)=""
2)= K ^PSB(53.68,DA(1),.7,"B",$E(X,1,30),DA)
53.68,1 CLINIC 1;1 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: NOV 15, 2012
HELP-PROMPT: Enter the Clinic assoiciated with the missing dose.
DESCRIPTION:
Pointer to the HOSPITAL LOCATION file (#44) for the selected clinic for the report.
FILES POINTED TO FIELDS
DRUG (#50) DRUG REQUESTED (#.13)
HOSPITAL LOCATION (#44) CLINIC (#1)
INSTITUTION (#4) DIVISION (#.04)
IV ADDITIVES (#52.6) ADDITIVES:ADDITIVES (#.01)
IV SOLUTIONS (#52.7) SOLUTIONS:SOLUTIONS (#.01)
NEW PERSON (#200) ENTERED BY (#.03)
DOSE DELIVERED BY (#.22)
PATIENT (#2) PATIENT (#.11)
ROOM-BED (#405.4) ROOM/BED (#.18)
WARD LOCATION (#42) WARD LOCATION (#.12)
File #53.68
Record Indexes:
DIVAS (#1519) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Compound cross reference of Status and Division.
Description: This cross reference sorts entries by Status and Division; it is used for lookups in the report 'Missing Dose
Followup'.
Set Logic: S ^PSB(53.68,"DIVAS",X(1),X(2),DA)=""
Kill Logic: K ^PSB(53.68,"DIVAS",X(1),X(2),DA)
Whole Kill: K ^PSB(53.68,"DIVAS")
X(1): STATUS (53.68,.07) (Subscr 1) (forwards)
X(2): DIVISION (53.68,.04) (Subscr 2) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):
PSB MISSING DOSE FOLLOWUP MAR 13, 1999@23:47 USER #0
PSB MISSING DOSE HDR DD #53.68
PSB MISSING DOSE FOLLOWUP DD #53.68
PSB MISSING DOSE REQUEST MAR 13, 1999@19:48 USER #0
PSB MISSING DOSE HDR DD #53.68
PSB MISSING DOSE REQUEST DD #53.68