Print Page as PDF
PSJ59P5 ICR (4819)

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
ID PSJ59P5
COMPONENT/ENTRY POINT
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