PSJ59P5 ICR (4819)

Name

Value

NUMBER

4819

IA #

4819

FILE NUMBER

59.5

GLOBAL ROOT

59.5

DATE CREATED

2005/10/31

CUSTODIAL PACKAGE

INPATIENT MEDICATIONS

USAGE

Supported

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

PSJ59P5

NAME

PSJ59P5

GENERAL DESCRIPTION

This API shall be provided to return the NAME field
(#.01), DIVISION field (#.02) and INACTIVATION DATE field (#19) from the IV
ROOM file (#59.5) for the IEN or free text entry received.

STATUS

Active

DURATION

Till Otherwise Agreed

PSJ59P5

COMPONENT/ENTRY POINT

VARIABLES

ALL(PSJIEN,PSJTXT,LIST)

VARIABLES	TYPE	VARIABLES DESCRIPTION
PSJIEN	Input	PSJIEN = Internal Entry Number in IV ROOM file 59.5 [optional]
PSJTXT	Input	PSJTXT = Free text entry (a value of "??" may be used) [optional]
LIST	Input	Subscript name used in ^TMP global [REQUIRED]
~TMP	Output	^TMP($J,LIST,0)=Total entries returned or -1^NO DATA FOUND ^TMP($J,LIST,PSJIEN,.01)=NAME (59.5,.01) ^TMP($J,LIST,PSJIEN,.02)= DIVISION (59.5,.02)^NAME(40.8,.01) ^TMP($J,LIST, PSJIEN,19)= INACTIVATION DATE (59.5,19)^External Format (ex: Sep. 12, 1999) ^TMP($J,LIST,"B",NAME,PSJIEN)=""

WRT(PSJIEN,PSJVAL,LIST)

VARIABLES	TYPE	VARIABLES DESCRIPTION
PSJIEN	Input	IEN of the IV ROOM file (59.5)[REQUIRED]
PSJVAL	Input	Division value [REQUIRED AND MUST BE THE POINTER VALUE]
LIST	Input	defined by the calling application [REQUIRED]
~TMP	Output	^TMP($J,LIST,PSJIEN,0)=0 for failure or 1 for success