DBIA4550 ICR (4550)

Name

Value

NUMBER

4550

IA #

4550

DATE CREATED

2004/12/14

CUSTODIAL PACKAGE

PHARMACY DATA MANAGEMENT

CUSTODIAL ISC

Birmingham

USAGE

Supported

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

PSS52P7

NAME

DBIA4550

GENERAL DESCRIPTION

This DBIA is provided by PDM (Pharmacy Data Management)
as an API to the IV SOLUTIONS file (#52.7). This API is to use in the future
by all packages accessing this file as all the Pharmacy packages are being
re-engineered.

STATUS

Active

DURATION

Till Otherwise Agreed

PSS52P7

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

ZERO(PSSIEN,PSSFT,PSSFL,LIST)

Format: D ZERO^PSS52P7(PSSIEN,PSSFT,PSSFL,LIST)

VARIABLES	TYPE	VARIABLES DESCRIPTION
PSSIEN	Input	PSSIEN = IEN of entry in IV SOLUTIONS file (#52.7) [optional]
PSSFT	Input	PSSFT = PRINT NAME in IV SOLUTIONS file (#52.7) (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.7,.01) ^TMP($J,LIST,PSSIEN,.02)=PRINT NAME {2}(52.7,.02) ^TMP($J,LIST,PSSIEN,1)=GENERIC DRUG(52.7,1)^GENERIC NAME (50,.01) ^TMP($J,LIST,PSSIEN,2)=VOLUME(52.7,2) ^TMP($J,LIST,PSSIEN,7)=AVERAGE DRUG COST (52.7,7) ^TMP($J,LIST,PSSIEN,8)=INACTIVATION DATE(52.7,8)^External format (ex: SEP 12, 1999) ^TMP($J,LIST,PSSIEN,9)=PHARMACY ORDERABLE ITEM(52.7,9)^ NAME(50.7,.01) ^TMP($J,LIST,PSSIEN,17)=USED IN IV FLUID ORDER ENTRY (52.7,17)^External format (ex: "YES" for 1 otherwise it is null) ^TMP($J,LIST,PSSIEN,"ELYTES",0)=Total entries returning for this sub-file or -1^NO DATA FOUND ^TMP($J,LIST,PSSIEN,"ELYTES",PSS(1),.01)=ELECTROLYTES(52.702,.01)^NAME(50.4,.01 ) (external format) ^TMP($J,LIST,PSSIEN,"ELYTES",PSS(1),1)=CONCENTRATION(52.702,1) ^TMP($J,LIST,"B",PRINT NAME,PSSIEN)= "" Where: PSS(1) is the IEN of entry in the ELECTROLYTES multiple

DRGIEN(PSS50,PSSFL,LIST)

This component returns the IV Solution Print Name and
Volume for a given entry from the Drug file (#50).

VARIABLES	TYPE	VARIABLES DESCRIPTION
PSS50	Input	IEN of entry in DRUG file (#50) [required]
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	Subscript name [required]
TMP	Output	^TMP($J,LIST,0)=Total entries returning or -1^NO DATA FOUND ^TMP($J,LIST,PSSIEN,.01)=PRINT NAME(52.7,.01) ^TMP($J,LIST,PSSIEN,2)=VOLUME(52.7,2) ^TMP($J,LIST,"AC",PRINT NAME,PSSIEN)="" (where PSSIEN = IEN of the IV SOLUTION file (#52.7)

DATE ACTIVATED

2017/11/29