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.
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)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!($E(X,1)=" ")!($E(X,$L(X))=" ")!(X[" ")!(X'?.UNP) X
LAST EDITED: JAN 07, 2008
HELP-PROMPT: Answer must be 3-30 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)="".
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.