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 |  Local Variables  | All
Print Page as PDF
Global: ^PS(51.24

Package: Pharmacy Data Management

Global: ^PS(51.24


Information

FileMan FileNo FileMan Filename Package
51.24 DOSE UNITS Pharmacy Data Management

Description

Directly Accessed By Routines, Total: 36

Package Total Routines
Pharmacy Data Management 30 EFFECTIVE DATE/TIME    PSS160PO    PSS1P178    PSS224PI    PSSDOS    PSSDOSRP    PSSDRDOS    PSSDSAPA
PSSDSAPD    PSSDSAPI    PSSDSAPK    PSSDSAPM    PSSDSBBP    PSSDSEXC    PSSDSPOP    PSSDSUTA
PSSHRQ25    PSSLDALL    PSSLDEDT    PSSLDOSE    PSSLOOK    PSSMEDRQ    PSSP198    PSSP254
PSSP254A    ^APSPQA(32.5    PSSTRENG    ^PS(51.24    PSSUTIL    SYNONYM    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
Pharmacy Data Management 10 PSS160PO    PSS164P    PSS1P178    PSS1P201    PSSP198    PSSP254    PSSP254A    PSSP254U
PSSP254V    PSSPO129    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Pharmacy Data Management 2 DOSE UNITS(#51.24)[99.97]    DRUG(#50)[#50.0904(4)]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Pharmacy Data Management 1 DOSE UNITS(#51.24)[99.97]    

Fields, Total: 8

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

  • 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 (#1754) 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)
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 (#1756) 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)
2 SYNONYM 1;0 Multiple #51.242 51.242

  • DESCRIPTION:  
    This is a synonym for the NAME field, which is the name of the DOSE UNIT.
    WRITE AUTHORITY: ^
3 DOSE FORM INDICATOR 0;3 SET
************************REQUIRED FIELD************************
  • '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: ^
99.97 REPLACED BY VHA STANDARD TERM VUID;3 POINTER TO DOSE UNITS FILE (#51.24) DOSE UNITS(#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.
99.98 MASTER ENTRY FOR VUID VUID;2 SET
************************REQUIRED FIELD************************
  • '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)
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:  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)
99.991 EFFECTIVE DATE/TIME TERMSTATUS;0 DATE Multiple #51.2499 51.2499

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

Found Entries, Total: 63

NAME: APPLICATION(S)    NAME: APPLICATORFUL(S)    NAME: BAR(S)    NAME: CAP/TAB    NAME: CAPLET(S)    NAME: CAPSULE(S)    NAME: CENTIMETER(S)    NAME: DROP(S)    
NAME: EACH    NAME: GRAM(S)    NAME: INCH(ES)    NAME: INHALATION(S)    NAME: INSERT(S)    NAME: LITER(S)    NAME: LOZENGE(S)    NAME: MICROGRAM(S)    
NAME: MILLIGRAM(S)    NAME: MG-PE    NAME: MICRO UNIT(S)    NAME: MILLIEQUIVALENT(S)    NAME: MILLIONUNIT(S)    NAME: MILLILITER(S)    NAME: MILLIMOLE(S)    NAME: NANOGRAM(S)    
NAME: PACKAGE(S)    NAME: PACKET(S)    NAME: PAD(S)    NAME: PATCH(ES)    NAME: PELLET(S)    NAME: PIECE(S)    NAME: PUFF(S)    NAME: SACHET(S)    
NAME: SCOOPFUL(S)    NAME: SPRAY(S)    NAME: STRIP(S)    NAME: SUPPOSITORY(IES)    NAME: TABLESPOONFUL(S)    NAME: TABLET(S)    NAME: TEASPOONFUL(S)    NAME: THOUSAND UNITS    
NAME: UNIT(S)    NAME: VAGINAL INSERT    NAME: VAGINAL RING    NAME: VIAL(S)    NAME: WAFER(S)    NAME: IMPLANT(S)    NAME: FILM(S)    NAME: ELISA UNIT(S)    
NAME: PUMP(S)    NAME: AMPULE    NAME: BILLION CELLS    NAME: CELL    NAME: COLONY FORMING UNIT    NAME: MELT    NAME: MICROGRAM DIETARY FOLATE EQUIVALENT    NAME: MILLICURIE    
NAME: MILLIGRAM FISH OIL    NAME: MILLION CELLS    NAME: MILLION PLAQUE FORMING UNITS    NAME: MILLIUNIT    NAME: PLAQUE FORMING UNIT    NAME: TOWELETTE    NAME: TUBE    

External References

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51.24 - [#51.24] IXAMASTERVUIDSL+1*, IXAMASTERVUIDKL+1!, IXAMASTERVUIDKEIC+1!, IXFDBNAMESL+1*, IXFDBNAMEKL+1!, IXFDBNAMEKEIC+1!, IXFDBSYNSL+1*, IXFDBSYNKL+1!, IXFDBSYNKEIC+1!, IXFDBUNITSL+1*
, IXFDBUNITKL+1!, IXFDBUNITKEIC+1!, IXUPCASESL+1*, IXUPCASEKL+1!, IXUPCASEKEIC+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 99.97(XREF 1S)
, 99.97(XREF 1K), 99.99(XREF 1S), 99.99(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA IXAMASTERVUIDSL+1, IXAMASTERVUIDKL+1, IXFDBNAMESL+1, IXFDBNAMEKL+1, IXFDBSYNSL+1, IXFDBSYNKL+1, IXFDBUNITSL+1, IXFDBUNITKL+1, IXUPCASESL+1, IXUPCASEKL+1
, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 99.97(XREF 1S), 99.97(XREF 1K), 99.99(XREF 1S), 99.99(XREF 1K)
>> DA(1 IXFDBSYNSL+1, IXFDBSYNKL+1
>> DIC(0 .01TPL+1
X IXFDBNAMESL+1, IXFDBNAMEKL+1, IXFDBSYNSL+1, IXFDBSYNKL+1, IXFDBUNITSL+1, IXFDBUNITKL+1, IXUPCASESL+1, IXUPCASEKL+1, IXUPCASEP1TS+1*, .01+1!
, .01TPL+1!, .01(XREF 1S), .01(XREF 1K), 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 |  Local Variables  | All