STANDARD DATA DICTIONARY #51.24 -- DOSE UNITS FILE 9/29/25 PAGE 1
STORED IN ^PS(51.24, (63 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Per VHA Directive 2005-044, this file has been "locked down" by Data Standardization (DS). The file definition (i.e. data
dictionary) shall not be modified. All additions, changes and deletions to entries in the file shall be done by Enterprise
Reference Terminology (ERT) using the Master File Server (MFS), provided by Common Services (CS). Creating and/or editing locally
defined fields in the file are not permitted. Use of locally defined fields that were created prior to the VHA Directive's
2005-044 effective date shall not be supported.
This file contains a list of Standard Dose Units, associated synonyms, and a corresponding FIRST DATABANK Dose Unit for every
Standard Dose Unit. The associated FIRST DATABANK Dose Unit will be used for the Dosage Checks provided by FIRST DATABANK. Updates
cannot be made at a local facility.
DD ACCESS: @
RD ACCESS: Pp
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
POINTED TO BY: DOSE UNIT field (#4) of the LOCAL POSSIBLE DOSAGE sub-field (#50.0904) of the DRUG File (#50)
REPLACED BY VHA STANDARD TERM field (#99.97) of the DOSE UNITS File (#51.24)
CROSS
REFERENCED BY: REPLACED BY VHA STANDARD TERM(AREPLACETERM), VUID(AVUID), NAME(B), FIRST DATABANK DOSE UNIT(C), SYNONYM(D)
INDEXED BY: VUID & MASTER ENTRY FOR VUID (AMASTERVUID), NAME (FDBNAME), SYNONYM (FDBSYN), FIRST DATABANK DOSE UNIT (FDBUNIT),
NAME (UPCASE)
LAST MODIFIED: JUN 27,2025@16:19:37
51.24,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1)!($E(X,1)=" ")!($E(X,$L(X))=" ")!(X[" ")!(X'?.ANP)!'(X'?1P.E) X
LAST EDITED: AUG 29, 2024
HELP-PROMPT: Answer must be 1-40 characters in length, comprised of upper and lower case letters, numerics, and
punctuation, but no leading punctuation, and contain no leading, trailing, or consecutive spaces.
DESCRIPTION: This is the name of the Dose Unit. Local Possible Dosages entries in the DRUG (#50) File will be
mapped to entries in this file. This mapping will enable the software to derive a First DataBank
Dose Unit, also in this file, that can be passed into the Dose API for Dose checks for medication
orders.
PRE-LOOKUP: I $G(DIC(0))["L",'$D(XUMF) K X D EN^DDIOL("Entries must be edited via the Master File Server (MFS).
","","!?5")
DELETE TEST: 1,0)= D:'$D(XUMF) EN^DDIOL("Entries must be inactivated via the Master File Server(MFS).","","!?5")
I '$D(XUMF)
LAYGO TEST: 1,0)= D:'$D(XUMF) EN^DDIOL("Entries must be added via the Master File Server(MFS).","","!?5") I $D(
XUMF)
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 51.24^B
1)= S ^PS(51.24,"B",$E(X,1,30),DA)=""
2)= K ^PS(51.24,"B",$E(X,1,30),DA)
FIELD INDEX: UPCASE (#1100) REGULAR IR LOOKUP & SORTING
Short Descr: Converts mixed case to uppercase for lookup
Description: This cross-reference converts mixed case (TallMan lettering) to uppercase so that when a lookup is
done, the list collates properly while still retaining TallMan lettering in the NAME field (#.01).
Set Logic: S ^PS(51.24,"UPCASE",$E(X,1,30),DA)=""
Kill Logic: K ^PS(51.24,"UPCASE",$E(X,1,30),DA)
Whole Kill: K ^PS(51.24,"UPCASE")
X(1): NAME (51.24,.01) (Subscr 1) (Len 30) (forwards)
Transform (Storage): S X=$$UP^XLFSTR(X)
FIELD INDEX: FDBNAME (#1692) REGULAR IR LOOKUP & SORTING
Short Descr: Full length index on the Name field
Description: This is a full length index on the Name field for use in First Databank order processing.
Set Logic: S ^PS(51.24,"FDBNAME",$E(X,1,40),DA)=""
Kill Logic: K ^PS(51.24,"FDBNAME",$E(X,1,40),DA)
Whole Kill: K ^PS(51.24,"FDBNAME")
X(1): NAME (51.24,.01) (Subscr 1) (Len 40) (forwards)
51.24,1 FIRST DATABANK DOSE UNIT 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1)!($E(X,1)=" ")!($E(X,$L(X))=" ")!(X[" ")!(X'?.ANP) X
LAST EDITED: AUG 29, 2024
HELP-PROMPT: Answer must be 1-40 characters in length, comprised of upper and lower case letters, numerics, and
punctuation, and contain no leading, trailing, or consecutive spaces.
DESCRIPTION: This field provides the mapping from the Vista Dose Unit to the First DataBank Dose Unit. The First
DataBank Dose Unit will be used when processing the dosage checks provided by First DataBank.
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 51.24^C
1)= S ^PS(51.24,"C",$E(X,1,30),DA)=""
2)= K ^PS(51.24,"C",$E(X,1,30),DA)
This cross reference is a regular cross reference on the FIRST DATABANK DOSE UNIT field. It sets
the global: PS(51.24,"C",FIRST DATABANK DOSE UNIT, Internal Entry Number)="".
FIELD INDEX: FDBUNIT (#1694) REGULAR IR LOOKUP & SORTING
Short Descr: Full length index on the FDB Dose Unit field
Description: This is a full length index on the First Databank Dose Unit field for use in First Databank order
processing.
Set Logic: S ^PS(51.24,"FDBUNIT",$E(X,1,40),DA)=""
Kill Logic: K ^PS(51.24,"FDBUNIT",$E(X,1,40),DA)
Whole Kill: K ^PS(51.24,"FDBUNIT")
X(1): FIRST DATABANK DOSE UNIT (51.24,1) (Subscr 1) (Len 40) (forwards)
51.24,2 SYNONYM 1;0 Multiple #51.242
WRITE AUTHORITY: ^
51.242,.01 SYNONYM 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1)!($E(X,1)=" ")!($E(X,$L(X))=" ")!(X[" ")!(X'?.ANP) X
MAXIMUM LENGTH: 40
LAST EDITED: SEP 16, 2024
HELP-PROMPT: Answer must be 1-40 characters in length, comprised of upper and lower case letters, numerics,
and punctuation, and contain no leading, trailing, or consecutive spaces.
DESCRIPTION:
This is a synonym for the NAME field, which is the name of the DOSE UNIT.
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 51.242^B
1)= S ^PS(51.24,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PS(51.24,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 51.24^D
1)= S ^PS(51.24,"D",$E(X,1,30),DA(1),DA)=""
2)= K ^PS(51.24,"D",$E(X,1,30),DA(1),DA)
This is a whole file cross reference on the SYNONYM (#.01) Field of the SYNONYM (#51.242)
Subfile. It sets the global PS(51.24,"D",SYNONYM,DA(1),DA)="".
FIELD INDEX: FDBSYN (#1693) REGULAR IR LOOKUP & SORTING WHOLE FILE (#51.24)
Short Descr: Full length index on the Synonym field
Description: This is a full length index on the Synonym field for use in First Databank order processing.
Set Logic: S ^PS(51.24,"FDBSYN",$E(X,1,40),DA(1),DA)=""
Kill Logic: K ^PS(51.24,"FDBSYN",$E(X,1,40),DA(1),DA)
Whole Kill: K ^PS(51.24,"FDBSYN")
X(1): SYNONYM (51.242,.01) (Subscr 1) (Len 40) (forwards)
51.24,3 DOSE FORM INDICATOR 0;3 SET (Required)
'0' FOR NO;
'1' FOR YES;
LAST EDITED: OCT 01, 2008
HELP-PROMPT: Enter 'Yes' if this Dose Unit should be considered a Dose Form type by First DataBank for the
Dosing Check API. This determines the values used to compose the general dosing information
message.
DESCRIPTION: This field indicates whether the Dose Unit is considered by First DataBank (FDB) as a Dose Form
type of Dose Unit when returning data for the Dosing Check API. It determines what values should be
used to compose the general dosing information message.
WRITE AUTHORITY: ^
51.24,99.97 REPLACED BY VHA STANDARD TERM VUID;3 POINTER TO DOSE UNITS FILE (#51.24)
LAST EDITED: MAR 01, 2008
DESCRIPTION: This field is populated when one Term/Concept replaces another Term/Concept. This field is
controlled by standardization and should only be changed by standardization processes. This field
contains a pointer to a VHA standard term that replaces this entry.
WRITE AUTHORITY: ^
CROSS-REFERENCE: 51.24^AREPLACETERM
1)= S ^PS(51.24,"AREPLACETERM",$E(X,1,30),DA)=""
2)= K ^PS(51.24,"AREPLACETERM",$E(X,1,30),DA)
This cross-reference can be used to identify the replacement entries associated with a
Term/Concept.
51.24,99.98 MASTER ENTRY FOR VUID VUID;2 SET (Required)
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JAN 26, 2008
DESCRIPTION:
This field identifies the Master entry for a VUID associated with a Term/Concept.
WRITE AUTHORITY: ^
UNEDITABLE
RECORD INDEXES: AMASTERVUID (#687)
51.24,99.99 VUID VUID;1 FREE TEXT (Required)
INPUT TRANSFORM: S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X
LAST EDITED: JAN 26, 2008
HELP-PROMPT: Answer must be 1-20 digits in length.
DESCRIPTION:
VHA Unique ID (VUID). A unique meaningless integer assigned to reference terms VHA wide.
WRITE AUTHORITY: ^
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 51.24^AVUID
1)= S ^PS(51.24,"AVUID",$E(X,1,30),DA)=""
2)= K ^PS(51.24,"AVUID",$E(X,1,30),DA)
3)= This cross-reference is by VUID.
This cross-reference is by VUID.
RECORD INDEXES: AMASTERVUID (#687)
51.24,99.991 EFFECTIVE DATE/TIME TERMSTATUS;0 DATE Multiple #51.2499 (Add New Entry without Asking)
LAST EDITED: JAN 26, 2008
DESCRIPTION:
Describes the pair Status and Effective Date/Time for each reference term.
WRITE AUTHORITY: ^
51.2499,.01 EFFECTIVE DATE/TIME 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 26, 2008
DESCRIPTION:
This is the date/time when the Status of the reference term was established.
WRITE AUTHORITY: ^
UNEDITABLE
CROSS-REFERENCE: 51.2499^B
1)= S ^PS(51.24,DA(1),"TERMSTATUS","B",$E(X,1,30),DA)=""
2)= K ^PS(51.24,DA(1),"TERMSTATUS","B",$E(X,1,30),DA)
This cross-reference is by Effective Date/Time.
51.2499,.02 STATUS 0;2 SET (Required)
'1' FOR ACTIVE;
'0' FOR INACTIVE;
LAST EDITED: JAN 26, 2008
DESCRIPTION: The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If 'ACTIVE', then the term will
be accessible by end-users to document a particular patient event. If 'INACTIVE', then the term
will only be accessible by the application to display legacy data.
WRITE AUTHORITY: ^
UNEDITABLE
FILES POINTED TO FIELDS
DOSE UNITS (#51.24) REPLACED BY VHA STANDARD TERM (#99.97)
File #51.24
Record Indexes:
AMASTERVUID (#687) RECORD REGULAR IR SORTING ONLY
Short Descr: This cross-reference identifies the Master entry for a VUID.
Description: If multiple entries have the same VUID in the file, this cross-reference can be used to identify the Master
entry for a VUID associated with a Term/Concept.
Set Logic: S ^PS(51.24,"AMASTERVUID",$E(X(1),1,30),X(2),DA)=""
Kill Logic: K ^PS(51.24,"AMASTERVUID",$E(X(1),1,30),X(2),DA)
Whole Kill: K ^PS(51.24,"AMASTERVUID")
X(1): VUID (51.24,99.99) (Subscr 1) (Len 30) (forwards)
X(2): MASTER ENTRY FOR VUID (51.24,99.98) (Subscr 2) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):