Print Page as PDF
DBIA4825 ICR (4825)

DBIA4825    ICR (4825)

Name Value
NUMBER 4825
IA # 4825
DATE CREATED 2005/12/07
CUSTODIAL PACKAGE OUTPATIENT PHARMACY
USAGE Supported
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PSO53
NAME DBIA4825
GENERAL DESCRIPTION 
This API shall be provided to scan the NAME field
(#.01) of RX PATIENT STATUS file (#53) utilizing the "B" cross-reference and
return a listing of records for a specific value based on logical criteria
received for the patient status. The following fields shall be included: NAME,
ABBR, DAYS SUPPLY, REFILLS, RENEWABLE, SC/A&A/OTHER/INPATIENT/NVA, EXEMPT FROM
COPAYMENT, and EXEMPT FROM CHAMPUS BILLING.
STATUS Active
DURATION Till Otherwise Agreed
ID PSO53
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
PSO(PSOIEN,PSOTXT,LIST) 
PSO^PSO53(PSOIEN,PSOTXT,LIST)

Input:
PSOIEN
PSOTXT
LIST

Where:
PSOIEN = Internal Entry Number [optional]
PSOTXT = Free text entry [optional]
LIST = Subscript name used in the ^TMP global [required]

Output:
^TMP($J,LIST,PSOIEN,0)=TOTAL entries returning or -1^NO DATA FOUND
^TMP($J,LIST,PSOIEN,.001)=NUMBER(53,.001)
^TMP($J,LIST,PSOIEN,.01)=NAME(53,.01)
^TMP($J,LIST,PSOIEN,2)=ABBR(53,2)
^TMP($J,LIST,PSOIEN,3)=DAYS SUPPLY(53,3)
^TMP($J,LIST,PSOIEN,4)=REFILLS(53,4)
^TMP($J,LIST,PSOIEN,5)=RENEWABLE (53,5)^External Format for the Set of Codes
^TMP($J,LIST,PSOIEN,6)=SC/A&A/OTHER/INPATIENT/NVA (53,6)^External Format for
the Set of Codes
^TMP($J,LIST,PSOIEN,15)=EXEMPT FROM COPAYMENT (53,15)^External Format for the
Set of Codes
^TMP($J,LIST,PSOIEN,16)=EXEMPT FROM CHAMPUS BILLING (53,16)^External Format
for the Set of Codes
^TMP($J,LIST,"B",NAME,PSOIEN)=""
VARIABLES TYPE VARIABLES DESCRIPTION
PSOIEN Input 
Internal Entry Number [optional]
PSOTXT Input 
Free text entry of .01 field from RX PATIENT STATUS
file (#53) [optional]
LIST Both 
Subscript name used in the ^TMP global [required]