Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^PS(51.23

Package: Pharmacy Data Management

Global: ^PS(51.23


Information

FileMan FileNo FileMan Filename Package
51.23 STANDARD MEDICATION ROUTES Pharmacy Data Management

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
Pharmacy Data Management 10 ^PS(51.23    EFFECTIVE DATE/TIME    PSSDFEE    PSSDSAPI    PSSMEDRQ    PSSMEDRT    PSSMRTUP    PSSMRTUX
PSSPO129    ^APSPQA(32.5    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Pharmacy Data Management 5 PSSP254    PSSP254A    PSSP254U    PSSP254V    PSSPO129    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
National Drug File 1 MEDICATION ROUTES(#51.2)[10, #51.27(2), #51.27(3)]
Pharmacy Data Management 1 STANDARD MEDICATION ROUTES(#51.23)[99.97]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Pharmacy Data Management 1 STANDARD MEDICATION ROUTES(#51.23)[99.97]    

Fields, Total: 6

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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)
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 (#1753) 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)
99.97 REPLACED BY VHA STANDARD TERM VUID;3 POINTER TO STANDARD MEDICATION ROUTES FILE (#51.23) STANDARD MEDICATION ROUTES(#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.
99.98 MASTER ENTRY FOR VUID VUID;2 SET
************************REQUIRED FIELD************************
  • '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)
99.99 VUID VUID;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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)
99.991 EFFECTIVE DATE/TIME TERMSTATUS;0 DATE Multiple #51.2399 51.2399

  • LAST EDITED:  FEB 16, 2008
  • DESCRIPTION:  
    Describes the pair Status and Effective Date/Time for each reference term.
    WRITE AUTHORITY: ^

Found Entries, Total: 93

NAME: BUCCAL    NAME: DENTAL    NAME: EPIDURAL    NAME: INHALATION    NAME: INTRA-ARTERIAL    NAME: INTRA-ARTICULAR    NAME: INTRACARDIAC    NAME: INTRACAVERNOSAL    
NAME: INTRADERMAL    NAME: INTRALESIONAL    NAME: INTRAMUSCULAR    NAME: INTRAOCULAR    NAME: INTRAPERITONEAL    NAME: INTRAPLEURAL    NAME: INTRATHECAL    NAME: INTRATRACHEAL    
NAME: INTRAVENOUS    NAME: INTRAVESICAL    NAME: IRRIGATION    NAME: NEBULIZATION    NAME: OPHTHALMIC    NAME: ORAL    NAME: OTIC    NAME: RECTAL    
NAME: SUBCUTANEOUS    NAME: SUBLINGUAL    NAME: TOPICAL    NAME: TRANSDERMAL    NAME: VAGINAL    NAME: NASAL    NAME: URETHRAL    NAME: NOT APPLICABLE    
NAME: INTRAVITREAL    NAME: INTRABURSAL    NAME: INTRASYNOVIAL    NAME: INFILTRATION    NAME: INTRACAUDAL    NAME: INTRACAVITARY    NAME: INTRASPINAL    NAME: INTRAUTERINE    
NAME: RETROBULBAR    NAME: ENTERAL    NAME: INTRA-AMNIOTIC    NAME: INTRADUCTAL    NAME: INTRATYMPANIC    NAME: SUBCONJUNCTIVAL    NAME: IONTOPHORESIS    NAME: INTRADETRUSOR    
NAME: INTRAOSSEOUS    NAME: PERIBULBAR    NAME: SUBTENONS    NAME: INTRACATHETER    NAME: TRANSLINGUAL    NAME: INTRAVARICEAL    NAME: SUBMUCOSAL    NAME: EXTRACORPOREAL    
NAME: SUBDERMAL    NAME: INTRACAMERAL    NAME: ADDUCTOR CANAL BLOCK    NAME: CERVICAL    NAME: ECTOPIC GESTATIONAL SAC    NAME: ENDOTRACHEAL    NAME: HAND BULB NEBULIZER    NAME: IMPLANT    
NAME: INFRACLAVICULAR    NAME: INSTILLATION    NAME: INTERSCALENE    NAME: INTRACANALICULAR    NAME: INTRACORONARY    NAME: INTRALUMBAR    NAME: INTRALYMPHATIC    NAME: INTRAPERICARDIAL    
NAME: INTRAPROSTATIC    NAME: INTRA-PYELOCALYCEAL    NAME: INTRASALIVARY GLAND    NAME: INTRA-SUBACROMIAL SPACE    NAME: INTRA-UMBILICAL VEIN    NAME: INTRAVENTRICULAR    NAME: IPPB    NAME: JUXTASCLERAL    
NAME: MISCELLANEOUS    NAME: MUCOUS MEMBRANE    NAME: O2 AEROSOLIZATION    NAME: PERCUTANEOUS    NAME: PERFUSION    NAME: PERIARTICULAR    NAME: PERINEURAL INJECTION    NAME: SUBLESIONAL    
NAME: SUBRETINAL    NAME: SUPRACHOROIDAL    NAME: TENDON SHEATH INJ    NAME: TRANSTRACHEAL    NAME: TRANSURETHRAL    

External References

Name Field # of Occurrence
EN^DDIOL .01TPL+1, .01DEL1+1, .01LAYGO1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51.23 - [#51.23] IXAMASTERVUIDSL+1*, IXAMASTERVUIDKL+1!, IXAMASTERVUIDKEIC+1!, IXBSL+1*, IXBKL+1!, IXBKEIC+1!, IXFDBMRTSL+1*, IXFDBMRTKL+1!, IXFDBMRTKEIC+1!, 1(XREF 1S)
, 1(XREF 1K), 99.97(XREF 1S), 99.97(XREF 1K), 99.99(XREF 1S), 99.99(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA IXAMASTERVUIDSL+1, IXAMASTERVUIDKL+1, IXBSL+1, IXBKL+1, IXFDBMRTSL+1, IXFDBMRTKL+1, 1(XREF 1S), 1(XREF 1K), 99.97(XREF 1S), 99.97(XREF 1K)
, 99.99(XREF 1S), 99.99(XREF 1K)
>> DIC(0 .01TPL+1
U ID1+1
X IXBSL+1, IXBKL+1, IXFDBMRTSL+1, IXFDBMRTKL+1, .01+1!, .01TPL+1!, 1+1!, 1(XREF 1S), 1(XREF 1K), 99.97(XREF 1S)
, 99.97(XREF 1K), 99.99+1*!, 99.99(XREF 1S), 99.99(XREF 1K)
X(1 IXAMASTERVUIDSL+1, IXAMASTERVUIDKL+1
X(2 IXAMASTERVUIDSL+1, IXAMASTERVUIDKL+1
>> XUMF .01TPL+1, .01DEL1+1, .01LAYGO1+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All