Print Page as PDF
DBIA4824 ICR (4824)

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