DBIA4824 ICR (4824)

Name

Value

NUMBER

4824

IA #

4824

DATE CREATED

2005/12/07

CUSTODIAL PACKAGE

OUTPATIENT PHARMACY

USAGE

Supported

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

PSO5291

NAME

DBIA4824

GENERAL DESCRIPTION

This API shall return the following fields from the TPB
ELIGIBILITY file (#52.91) for the IEN or free text entry received: PATIENT,
DATE PHARMACY BENEFITS BEGAN, INACTIVATION OF BENEFITS DATE, INACTIVATION
REASON CODE, DESIRED APPOINTMENT DATE, WAIT TYPE, STATION NUMBER, INSTITUTION,
EXCLUSION REASON, PRIMARY CARE SCHEDULED APPT DATE, RX#, and DATE LETTER
PRINTED.

STATUS

Active

DURATION

Till Otherwise Agreed

PSO5291

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

PSO(PSOIEN,PSOTXT,LIST)

PSO^PSO5291(PSOIEN,PSOTXT,LIST)

Input:
PSOIEN
PSOTXT
LIST

Where:
PSOIEN = Internal Entry Number in TPB ELIGIBILITY file (#52.91) [optional]
PSOTXT = Free text entry [optional]
LIST = Subscript name used in the ^TMP global [required]

Note: Either the IEN or free text entry must be present.

Output:
^TMP($J,LIST,PSOIEN,0)=TOTAL entries returning or -1^NO DATA FOUND
^TMP($J,LIST,PSOIEN,.01)=PATIENT (IEN) (52.91,.01)^NAME (2,.01)
^TMP($J,LIST,PSOIEN,1)=DATE PHARMACY BENEFIT BEGAN(52.91,1)^External Format
(ex: Sep. 12, 1999)
^TMP($J,LIST,PSOIEN,2)=INACTIVATION OF BENEFIT DATE(52.91,2)^External Format
(ex: Sep. 12, 1999)
^TMP($J,LIST,PSOIEN,3)=INACTIVATION REASON CODE (52.91,3)^External Format
for the Set of Codes
^TMP($J,LIST,PSOIEN,4)=DESIRED APPOINTMENT DATE(52.91,4)^External Format
(ex: Sep. 12, 1999)
^TMP($J,LIST,PSOIEN,5)=WAIT TYPE (52.91,5)^External Format for the Set of
Codes
^TMP($J,LIST,PSOIEN,6)=STATION NUMBER(52.91,6)
^TMP($J,LIST,PSOIEN,7)=INSTITUTION (52.91,7)^NAME (4,.01)
^TMP($J,LIST,PSOIEN,8)=EXCLUSION REASON (52.91,8)^External Format for the
Set of Codes
^TMP($J,LIST,PSOIEN,9)=PRIMARY CARE SCHEDULE APT DATE(52.91,9)^External
Format (ex: Sep. 12, 1999)
^TMP($J,LIST,PSOIEN,10)=RX #(52.91,10)
^TMP($J,LIST,PSOIEN,11)=DATE LETTER PRINTED(52.91,11)^External Format (ex:
Sep. 12, 1999)
^TMP($J,LIST,"B",PATIENT,PSOIEN)=""

VARIABLES	TYPE	VARIABLES DESCRIPTION
PSOIEN	Input	Internal Entry Number [optional]
PSOTXT	Input	Free text entry of .01 field from TPB ELIGIBILITY file (#52.91) [optional]
LIST	Both	Subscript name used in the ^TMP global [required]