Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | 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

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.

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
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

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | All