STANDARD DATA DICTIONARY #51.23 -- STANDARD MEDICATION ROUTES FILE 9/29/25 PAGE 1
STORED IN ^PS(51.23, (93 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 the list of standard Medication Routes for Vista. Updates will only occur to this file at the national level.
Updates cannot be made at a local facility. This file will be used to link local Medication Routes from the Medication Routes
(#51.2) file to the national standard.
DD ACCESS: @
RD ACCESS: Pp
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: FIRST DATABANK MED ROUTE (#1)
POINTED TO BY: STANDARD MEDICATION ROUTE field (#10) of the MEDICATION ROUTES File (#51.2)
REPLACED BY VHA STANDARD TERM field (#99.97) of the STANDARD MEDICATION ROUTES File (#51.23)
OLD VALUE field (#2) of the STANDARD MED ROUTE CHANGE LOG sub-field (#51.27) of the MEDICATION ROUTES File (#51.2)
NEW VALUE field (#3) of the STANDARD MED ROUTE CHANGE LOG sub-field (#51.27) of the MEDICATION ROUTES File (#51.2)
CROSS
REFERENCED BY: REPLACED BY VHA STANDARD TERM(AREPLACETERM), VUID(AVUID), FIRST DATABANK MED ROUTE(C)
INDEXED BY: VUID & MASTER ENTRY FOR VUID (AMASTERVUID), NAME (B), FIRST DATABANK MED ROUTE (FDBMRT)
LAST MODIFIED: JUN 27,2025@16:19:37
51.23,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3)!($E(X,1)=" ")!($E(X,$L(X))=" ")!(X[" ")!(X'?.UNP)!'(X'?1P.E) X
LAST EDITED: FEB 16, 2008
HELP-PROMPT: Answer must be 3-50 characters in length, comprised only of uppercase letters, numerics, and
punctuation, but no leading punctuation, and contain no leading, trailing, or consecutive spaces.
DESCRIPTION: This is the name of the Standard Medication Route. It will be used to allow entries from the
MEDICATION ROUTES (#51.2) File to be mapped to a standard Medication Route.
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
FIELD INDEX: B (#686) REGULAR IR LOOKUP & SORTING
Short Descr: This cross reference sets PS(51.23,"B",NAME,DA)=""
Description: This cross reference is a new style cross reference on the NAME (#.01) Field of the STANDARD
MEDICATION ROUTES (#51.23) File. This cross reference sets the global PS(51.23,"B",NAME,DA)="".
Set Logic: S ^PS(51.23,"B",$E(X,1,50),DA)=""
Kill Logic: K ^PS(51.23,"B",$E(X,1,50),DA)
Whole Kill: K ^PS(51.23,"B")
X(1): NAME (51.23,.01) (Subscr 1) (Len 50) (forwards)
51.23,1 FIRST DATABANK MED ROUTE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<3)!($E(X,1)=" ")!($E(X,$L(X))=" ")!(X[" ")!(X'?.UNP) X
LAST EDITED: AUG 29, 2024
HELP-PROMPT: Answer must be 3-40 characters in length, comprised only of uppercase letters, numerics, and
punctuation, and contain no leading, trailing, or consecutive spaces.
DESCRIPTION: This field provides the mapping from the Vista Standard Medication Route to the First DataBank
Medication Route. The First DataBank Medication Route will be used when processing the order checks
provided by First DataBank.
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 51.23^C
1)= S ^PS(51.23,"C",$E(X,1,30),DA)=""
2)= K ^PS(51.23,"C",$E(X,1,30),DA)
This cross reference is a regular cross reference on the FIRST DATABANK MED ROUTE field. It sets
the global: PS(51.23,"C",FIRST DATABANK MED ROUTE, Internal Entry Number)="".
FIELD INDEX: FDBMRT (#1691) REGULAR IR LOOKUP & SORTING
Short Descr: This cross reference is to accomodate the change in length for Med Routes.
Description: This is a full length index on the First Databank Med Route field for use in First Databank order
processing.
Set Logic: S ^PS(51.23,"FDBMRT",$E(X,1,40),DA)=""
Kill Logic: K ^PS(51.23,"FDBMRT",$E(X,1,40),DA)
Whole Kill: K ^PS(51.23,"FDBMRT")
X(1): FIRST DATABANK MED ROUTE (51.23,1) (Subscr 1) (Len 40) (forwards)
51.23,99.97 REPLACED BY VHA STANDARD TERM VUID;3 POINTER TO STANDARD MEDICATION ROUTES FILE (#51.23)
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.23^AREPLACETERM
1)= S ^PS(51.23,"AREPLACETERM",$E(X,1,30),DA)=""
2)= K ^PS(51.23,"AREPLACETERM",$E(X,1,30),DA)
This cross-reference can be used to identify the replacement entries associated with a
Term/Concept.
51.23,99.98 MASTER ENTRY FOR VUID VUID;2 SET (Required)
'0' FOR NO;
'1' FOR YES;
LAST EDITED: FEB 16, 2008
DESCRIPTION:
This field identifies the Master entry for a VUID associated with a Term/Concept.
WRITE AUTHORITY: ^
UNEDITABLE
RECORD INDEXES: AMASTERVUID (#685)
51.23,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: FEB 16, 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.23^AVUID
1)= S ^PS(51.23,"AVUID",$E(X,1,30),DA)=""
2)= K ^PS(51.23,"AVUID",$E(X,1,30),DA)
3)= This cross-reference is by VUID.
This cross-reference is by VUID.
RECORD INDEXES: AMASTERVUID (#685)
51.23,99.991 EFFECTIVE DATE/TIME TERMSTATUS;0 DATE Multiple #51.2399 (Add New Entry without Asking)
LAST EDITED: FEB 16, 2008
DESCRIPTION:
Describes the pair Status and Effective Date/Time for each reference term.
WRITE AUTHORITY: ^
51.2399,.01 EFFECTIVE DATE/TIME 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 16, 2008
DESCRIPTION:
This is the date/time when the Status of the reference term was established.
WRITE AUTHORITY: ^
UNEDITABLE
CROSS-REFERENCE: 51.2399^B
1)= S ^PS(51.23,DA(1),"TERMSTATUS","B",$E(X,1,30),DA)=""
2)= K ^PS(51.23,DA(1),"TERMSTATUS","B",$E(X,1,30),DA)
This cross-reference is by Effective Date/Time.
51.2399,.02 STATUS 0;2 SET (Required)
'1' FOR ACTIVE;
'0' FOR INACTIVE;
LAST EDITED: FEB 16, 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
STANDARD MEDICATION ROUTES
(#51.23) REPLACED BY VHA STANDARD TERM (#99.97)
File #51.23
Record Indexes:
AMASTERVUID (#685) 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.23,"AMASTERVUID",$E(X(1),1,30),X(2),DA)=""
Kill Logic: K ^PS(51.23,"AMASTERVUID",$E(X(1),1,30),X(2),DA)
Whole Kill: K ^PS(51.23,"AMASTERVUID")
X(1): VUID (51.23,99.99) (Subscr 1) (Len 30) (forwards)
X(2): MASTER ENTRY FOR VUID (51.23,99.98) (Subscr 2) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):