DBIA4826 ICR (4826)

Name

Value

NUMBER

4826

IA #

4826

DATE CREATED

2005/11/15

CUSTODIAL PACKAGE

PHARMACY DATA MANAGEMENT

USAGE

Supported

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

PSS55

NAME

DBIA4826

GENERAL DESCRIPTION

This DBIA is provided by PDM (Pharmacy Data Management)
as an API to the PHARMACY PATIENT file (#55). 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

PSS55

COMPONENT/ENTRY POINT

VARIABLES

PSS431(DFN,PO,PSDATE,PODATE,LIST)

VARIABLES	TYPE	VARIABLES DESCRIPTION
DFN	Input	IEN of Patient [REQUIRED]
PO	Input	Order # [optional]
PSDATE	Input	Start Date [optional]
PEDATE	Input	End Date [optional]
LIST	Input	Subscript name used in ^TMP global [REQUIRED]
TMP	Output	^TMP($J,LIST,0)=Total entries returned by patient or -1^NO DATA FOUND ^TMP($J,LIST ,PO,.01)=ORDER NUMBER(55.06,.01) ^TMP($J,LIST,PO,.5)=PATIENT NAME (DFN) (55.06,.5)^NAME (2,.01) ^TMP($J,LIST,PO,1)=PROVIDER (pointer value) (55.06,1)^NAME (200,.01) ^TMP($J,LIST,PO,3)=MED ROUTE (pointer value) (55.06,3) ^NAME (51.2,.01) ^TMP($J,LIST,PO,4)=TYPE (55.06,4)^External Format for the Set of Codes ^TMP($J,LIST,PO,5)=SELF MED (55.06,5)^External Format for the Set of Codes ^TMP($J,LIST,PO,6)=HOSPITAL SUPPLIED SELF MED (55.06,6)^External Format for the Set of Codes ^TMP($J,LIST,PO,7)=SCHEDULE TYPE (55.06,7)^External Format for the Set of Codes ^TMP($J,LIST,PO,11)=DAY LIMIT(55.06,11) ^TMP($J,LIST,PO,12)=DOSE LIMIT(55.06,12) ^TMP($J,LIST,PO,27)=ORDER DATE(55.06,27)^External Format (ex: Sep. 12, 1999) ^TMP($J,LIST,PO,27.1)=LOG-IN DATE(55.06,27.1)^External Format (ex: Sep. 12, 1999) ^TMP($J,LIST,PO,28)=STATUS (55.06,28)^External Format for the Set of Codes ^TMP($J,LIST,PO,"DDRUG",0)= Total entries returned or -1 ^NO DATA FOUND ^TMP($J,LIST,PO,"DDRUG",n,.01)=DISPENSE DRUG (55.07,.01)^GENERIC NAME (50,.01) ^TMP($J,LIST,PO,"DDRUG",n,.02)=UNITS PER DOSE(55.07,.02) ^TMP($J,LIST,PO,"DDRUG",n,.03)=INACTIVE DATE(55.07,.03)^External Format (ex: Sep. 12, 1999) ^TMP($J,LIST,PO,"DDRUG",n,.04)=TOTALS UNITS DISPENSED(55.07,.04) ^TMP($J,LIST,PO,"DDRUG",n,.05)=UNITS CALLED FOR(55.07,.05) ^TMP($J,LIST,PO,"DDRUG",n,.06)=UNITS ACTUALLY DISPENSED(55.07,.06) ^TMP($J,LIST,PO,"DDRUG",n,.07)=TOTAL RETURNS(55.07,.07) ^TMP($J,LIST,PO,"DDRUG",n,.08)=RETURNS(55.07,.08) ^TMP($J,LIST,PO,"DDRUG",n,.09)=PRE-EXCHANGE UNITS(55.07,.09) ^TMP($J,LIST,PO,"DDRUG",n,.1)=TOTALS EXTRA UNITS DISPENSED(55.07,.1) ^TMP($J,LIST,PO,"DDRUG",n,.11)=EXTRA UNITS DISPENSED(55.07,.11) ^TMP($J,LIST,PO,"DDRUG",n,.12)=TOTAL PRE-EXCHANGE UNITS(55.07,.12) ^TMP($J,LIST,"B",ORDER NUMBER)=""

PSS432(DFN,PO,LIST)

VARIABLES	TYPE	VARIABLES DESCRIPTION
DFN	Input	IEN of Patient [REQUIRED]
PO	Input	Order # [optional] If left blank, all active orders will be returned
LIST	Input	Subscript name used in ^TMP global [REQUIRED]
TMP	Output	^TMP($J,LIST,0)=Total entries returned by patient or -1^NO DATA FOUND ^TMP($J,LIST,PO,.01)=ORDER NUMBER(55.06,.01) ^TMP($J,LIST,PO,.5)=PATIENT NAME (DFN) (55.06,.5)^NAME (2,.01) ^TMP($J,LIST,PO,1)=PROVIDER (55.06,1) ^NAME (200,.01) ^TMP($J,LIST,PO,3)=MED ROUTE (55.06,3) ^NAME (51.2,.01) ^TMP($J,LIST,PO,4)=TYPE (55.06,4)^External Format for the Set of Codes ^TMP($J,LIST,PO,5)=SELF MED (55.06,5)^External Format for the Set of Codes ^TMP($J,LIST,PO,6)=HOSPITAL SUPPLIED SELF MED (55.06,6)^External Format for the Set of Codes ^TMP($J,LIST,PO,7)=SCHEDULE TYPE (55.06,7)^External Format for the Set of Codes ^TMP($J,LIST,PO,11)=DAY LIMIT(55.06,11) ^TMP($J,LIST,PO,12)=DOSE LIMIT(55.06,12) ^TMP($J,LIST,PO,26)=SCHEDULE (55.06,26) ^TMP($J,LIST,PO,27)=ORDER DATE(55.06,27)^External Format (ex: Sep. 12, 1999) ^TMP($J,LIST,PO,27.1)=LOG-IN DATE(55.06,27.1)^External Format (ex: Sep. 12, 1999) ^TMP($J,LIST,PO,28)=STATUS (55.06,28)^External Format for the Set of Codes ^TMP($J,LIST,"B",ORDER NUMBER)=""

PSS433(DFN,LIST)

VARIABLES

TYPE

VARIABLES DESCRIPTION

DFN

Input

IEN of Patient [REQUIRED]

LIST

Input

Subscript name used in ^TMP global [REQUIRED]

TMP

Output

^TMP($J,LIST,0)=Total entries returned by patient or
-1^NO DATA FOUND

^TMP($J,LIST,PO,.5)=PATIENT NAME (DFN) (55.06,.5)^NAME (2,.01)

^TMP($J,LIST,PO,9)=ORIGINAL WARD (55.06,9) ^NAME (42,.01)

^TMP($J,LIST,PO,25)=PREVIOUS STOP DATE/TIME(55.06,25)^External Format (ex:
Sep. 12, 1999)

^TMP($J,LIST,PO,26)=SCHEDULE(55.06,26)

^TMP($J,LIST,PO,34)=STOP DATE/TIME(55.06,34)^External Format (ex: Sep. 12,
1999)

^TMP($J,LIST,PO,41)=ADMIN TIMES(55.06,41)

^TMP($J,LIST,PO,42)=FREQUENCY (in minutes)(55.06,42)

^TMP($J,LIST,PO,70)=ORIGINAL START DATE/TIME(55.06,70)^External Format (ex:
Sep. 12, 1999)

^TMP($J,LIST,"B",ORDER NUMBER)=""

PSS435(DFN,PO,LIST)

VARIABLES	TYPE	VARIABLES DESCRIPTION
DFN	Input	IEN of Patient [REQUIRED]
PO	Input	Order # [optional] If left blank, all active orders will be returned.
LIST	Input	Subscript name used in ^TMP global [REQUIRED]
TMP	Output	^TMP($J,LIST,0)=Total entries returned by patient or -1^NO DATA FOUND ^TMP($J,LIST,PO,.01)=ORDER NUMBER(55.01,.01) ^TMP($J,LIST,PO,.02)=START DATE/TIME(55.01,.02)^External Format (ex: Sep. 12, 1999) ^TMP($J,LIST,PO,.03)=STOP DATE/TIME(55.01,.03)^External Format (ex: Sep. 12, 1999) ^TMP($J,LIST,PO,.04)=TYPE (55.01,.04)^External Format for the Set of Codes ^TMP($J,LIST,PO,.06)=PROVIDER (55.01,.06)^NAME (200,.01) ^TMP($J,LIST,PO,.08)=INFUSION RATE(55.01,.08) ^TMP($J,LIST,PO,.09)=SCHEDULE(55.01,.09) ^TMP($J,LIST,PO,.12)=ADMINISTRATION TIMES(55.01,.12) ^TMP($J,LIST,PO,.17)=SCHEDULE INTERVAL(55.01,.17) ^TMP($J,LIST,PO,.24)=CUMULATIVE DOSES(55.01,.24) ^TMP($J,LIST,PO,9)=ORIGINAL WARD (55.01,9)^NAME (42,.01) ^TMP($J,LIST,PO,31)=OTHER PRINT INFO (55.01,31) ^TMP($J,LIST,PO,100)=STATUS (55.01,100)^External Format for the Set of Codes ^TMP($J,LIST,PO,104)=WARD(55.01,104) ^TMP($J,LIST,PO,106)=CHEMOTHERAPY TYPE (55.01,106)^External Format for the Set of Codes ^TMP($J,LIST,PO,108)=INTERMITTENT SYRINGE(55.01,108) ^TMP($J,LIST,PO,110)=ORDERS FILE ENTRY(55.01,110) ^TMP($J,LIST,PO,112)=ATZERO (55.01,112)^External Format for the Set of Codes ^TMP($J,LIST,PO,120)=OERR HOLD FLAG (55.01,120)^External Format for the Set of Codes ^TMP($J,LIST,PO,121)=AUTO DC (55.01,121)^External Format for the Set of Codes ^TMP($J,LIST,PO,132)=MED ROUTE (55.01,132)^NAME (51.2,.01) ^TMP($J,LIST,"B",ORDER NUMBER)=""

PSS436(DFN,ORDER,LIST)

VARIABLES	TYPE	VARIABLES DESCRIPTION
DFN	Input	Internal Entry Number of patient in PHARMACY PATIENT file [REQUIRED]

ORDER	Input	ORDER NUMBER [REQUIRED]
LIST	Input	Subscript name used in ^TMP global [REQUIRED]
TMP	Output	^TMP($J,LIST,0)=Total entries returned by patient or -1^NO DATA FOUND ^TMP($J,LIST,ORDER,.01)=ORDER NUMBER(55.01,.01) ^TMP($J,LIST,ORDER,.02)=START DATE/TIME(55.01,.02)^External Format (ex: Sep. 12, 1999) ^TMP($J,LIST,ORDER,.03)=STOP DATE/TIME (55.01,.03)^External Format (ex: Sep. 12, 1999) ^TMP($J,LIST,ORDER,.04)=TYPE (55.01,.04)^External Format for the Set of Codes ^TMP($J,LIST,ORDER,.06)=PROVIDER(55.01,.06)^NAME (200,.01) ^TMP($J,LIST,ORDER,.08)=INFUSION RATE(55.01,.08) ^TMP($J,LIST,ORDER,.09)=SCHEDULE(55.01,.09) ^TMP($J,LIST,ORDER,.12)=ADMINISTRATION TIMES(55.01,.12) ^TMP($J,LIST,ORDER,.17)=SCHEDULE INTERVAL(55.01,.17) ^TMP($J,LIST,ORDER,.24)=CUMULATIVE DOSES(55.01,.24) ^TMP($J,LIST,ORDER,9)=ORIGINAL WARD (55.01,9)^NAME (42,.01) ^TMP($J,LIST,ORDER,31)=OTHER PRINT INFO (55.01,31) ^TMP($J,LIST,ORDER,100)=STATUS (55.01,100)^External Format for the Set of Codes ^TMP($J,LIST,ORDER,104)=WARD(55.01,104) ^TMP($J,LIST,ORDER,106)=CHEMOTHERAPY TYPE (55.01,106)^External Format for the Set of Codes ^TMP($J,LIST,ORDER,108)=INTERMITTENT SYRINGE (55.01,108)^External Format for the Set of Codes ^TMP($J,LIST,ORDER,110)=ORDERS FILE ENTRY(55.01,110) ^TMP($J,LIST,ORDER,112)=ATZERO (55.01,112)^External Format for the Set of Codes ^TMP($J,LIST,ORDER,120)=OERR HOLD FLAG (55.01,120)^External Format for the Set of Codes ^TMP($J,LIST,ORDER,121)=AUTO DC (55.01,121)^External Format for the Set of Codes ^TMP($J,LIST,ORDER,132)=MED ROUTE (55.01,132)^NAME (51.2,.01) ^TMP($J,LIST,ORDER,147)=BCMA EXPIRED FLAG (55.01,147)^External Format for the Set of Codes ^TMP($J,LIST,IEN,"ADD",0)=Total entries returned or -1^NO DATA FOUND ^TMP($J,LIST,ORDER,"ADD",n1,.01)=ADDITIVE (55.02,.01)^PRINT NAME (52.6,.01) ^TMP($J,LIST,ORDER,"ADD",n1,.02)=STRENGTH(55.02,.02) ^TMP($J,LIST,ORDER,"ADD",n1,.03)=BOTTLE(55.02,.03) ^TMP($J,LIST,IEN,"SOL",0)=Total entries returned or -1^NO DATA FOUND ^TMP($J,LIST,ORDER,"SOL",n2,.01)=SOLUTION (55.11,.01)^PRINT NAME (52.7,.01) ^TMP($J,LIST,ORDER,"SOL",n2,1)=VOLUME(55.11,1) ^TMP($J,LIST,"B",ORDER NUMBER)=""