Global: ^PS(51.25

FileMan FileNo	FileMan Filename	Package
51.25	DOSE UNIT CONVERSION	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) or via released Pharmacy Data Management (PDM) patches. Creating and/or editing locally defined fields in the file are not permitted. This file will be used to store CONVERSION FACTORS for DOSE UNIT 1 to DOSE UNIT 2. The top level or parent will be DOSE UNIT 1(#.01). Associated with each DOSE UNIT 1 will be multiple child DOSE UNIT 2(51.251,#.01) and CONVERSION FACTOR(51.251,#1) pairs. All fields are required for a given entry or sub-entry. The DOSE UNIT CONVERSION file will be used to convert one dose unit to another using a conversion factor so that a comparison can be made between two dose units when they are not equivalent. The dose unit used for the Dosing Order Check may not be the same dose unit First Data Bank (FDB) returns with the Dosing Order Check results.

Package	Total	Routines
Pharmacy Data Management	6	PSS1P178 ^APSPQA(32.5 ^PS(51.25 DOSE UNIT 2 PSSDSUTA PSSHRQ25

Package	Total	Routines
Pharmacy Data Management	1	PSS1P178

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DOSE UNIT 1	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X` LAST EDITED: `FEB 12, 2014` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `The Dose Unit value to be converted from.` TECHNICAL DESCR: `The parent DOSE UNIT 1 value to be converted from.` 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: ^` CROSS-REFERENCE: `51.25^B` `1)= S ^PS(51.25,"B",$E(X,1,30),DA)=""` `2)= K ^PS(51.25,"B",$E(X,1,30),DA)`
1	DOSE UNIT 2	1;0	Multiple #51.251	51.251 DESCRIPTION: `A list of child DOSE UNIT 2 values with an associated CONVERSION FACTOR for the parent DOSE UNIT 1.` TECHNICAL DESCR: `The CONVERSION FACTOR numeric field will be used to convert associated parent DOSE UNIT 1 values to child DOSE UNIT 2 values.`

DOSE UNIT 1

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X
LAST EDITED: FEB 12, 2014
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION:
The Dose Unit value to be converted from.
TECHNICAL DESCR:
The parent DOSE UNIT 1 value to be converted from.
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: ^
CROSS-REFERENCE: 51.25^B
1)= S ^PS(51.25,"B",$E(X,1,30),DA)=""
2)= K ^PS(51.25,"B",$E(X,1,30),DA)

DOSE UNIT 2

1;0

Multiple #51.251

DESCRIPTION:
A list of child DOSE UNIT 2 values with an associated CONVERSION FACTOR for the parent DOSE UNIT 1.
TECHNICAL DESCR:
The CONVERSION FACTOR numeric field will be used to convert associated parent DOSE UNIT 1 values to child DOSE UNIT 2 values.