Print Page as PDF
DBIA4549 ICR (4549)

DBIA4549    ICR (4549)

Name Value
NUMBER 4549
IA # 4549
DATE CREATED 2004/12/14
CUSTODIAL PACKAGE PHARMACY DATA MANAGEMENT
CUSTODIAL ISC Birmingham
USAGE Supported
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PSS52P6
NAME DBIA4549
GENERAL DESCRIPTION
This DBIA is provided by PDM (Pharmacy Data Management)
as an API to the IV ADDITIVES file (#52.6). This API is to used in the future
by all packages accessing this file as all the Pharmacy packages are being
re-engineered.
STATUS Active
DURATION Till Otherwise Agreed
ID PSS52P6
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
ZERO(PSSIEN,PSSFT,PSSFL,LIST)
Format: D ZERO^PSS52P6(PSSIEN,PSSFT,PSSFL,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input
PSSIEN = IEN of entry in IV ADDITIVES file (#52.6)
[optional]
PSSFT Input
PSSFT = PRINT NAME field (#.01) of IV ADDITIVES file
(#52.6) (a value of  "??" may be used) [optional]
PSSFL Input
PSSFL = Inactive date: A null value will return all
entries (entry of a FileMan format date (ex: 3030917) will return active
entries after this date) [optional]
LIST Input
LIST = array defined by the calling application
[required]
~TMP Output
^TMP($J,LIST,0)=Total entries returning or -1^NO DATA
FOUND

^TMP($J,LIST,PSSIEN,.01)=PRINT NAME (52.6,.01)

^TMP($J,LIST,PSSIEN,1)=GENERIC DRUG (52.6,1)^GENERIC NAME (50,.01)

^TMP($J,LIST,PSSIEN,2)=DRUG UNIT(52.6,2)^Drug Unit external format (ex: MG,
ML)

^TMP($J,LIST,PSSIEN,3)=NUMBER OF DAYS FOR IV ORDER(52.6,3)

^TMP($J,LIST,PSSIEN,4)=USUAL IV SCHEDULE(52.6,4)

^TMP($J,LIST,PSSIEN,5)=ADMINISTRATION TIMES(52.6,5)

^TMP($J,LIST,PSSIEN,7)=AVERAGE DRUG COST PER UNIT(52.6,7)

^TMP($J,LIST,PSSIEN,12)=INACTIVATION DATE(52.6,12)^External format (ex: SEP
12,1999)

^TMP($J,LIST,PSSIEN,13)=CONCENTRATION(52.6,13)

TMP($J,LIST,PSSIEN,14)=MESSAGE(52.6,14)

^TMP($J,LIST,PSSIEN,15)=PHARMACY ORDERABLE ITEM(52.6,15)^NAME(50.7,.01)

^TMP($J,LIST,PSSIEN,17)=USED IN IV FLUID ORDER ENTRY (52.6,17)^External format
(ex: "YES" for 1 otherwise it is null)

^TMP($J,LIST,"B",PRINT NAME,PSSIEN)= ""