PSO52EX API –– PRESCRIPTION file (#52) Component: ARXREF
This API indicates if the RELEASED DATE/TIME, IEN, and FILL NUMBER from the PRESCRIPTION file (#52) exists in the “AR” cross-reference. The “AR” cross-reference in the format of ^PSRX(“AR”,RELEASED DATE/TIME,IEN,FILL NUMBER) will be used where: RELEASE DATE/TIME is either RELEASED DATE/TIME field (#31) for an Original Fill or RELEASED DATE/TIME field (#17) for a refill, IEN is the Internal Entry Number from the Prescription file (#52), and FILL NUMBER is 0 for Original Fill, 1 for Refill 1, 2 for Refill 2, etc.
Status: Active
S X=$$ARXREF^PSO52EX(PSODATE,PSOIEN,PSOFILL)
Input:
PSODATE
PSOIEN
PSOFILL
Where:
PSODATE = Release date/time of prescription [REQUIRED]
PSOIEN = Internal entry number from the PRESCRIPTION file (#52) [REQUIRED]
PSOFILL = Fill number of prescription (0 for Original Fill, 1 for Refill #1, 2 for Refill #2, etc.) [REQUIRED]
Output:
$$ARXREF
Where $$ARXREF is:
0 (zero) = Data does not exist in the "AR" cross reference, indicating the
fill was not dispensed from the Consolidated Mail Outpatient Pharmacy
(CMOP)
1 (one) = Data does exist in the "AR" cross reference, indicating the fill
was dispensed from the Consolidated Mail Outpatient Pharmacy (CMOP)
This API accepts date parameters in FileMan format and returns original fill, refill, and partial fill information using the “AL” and “AM” cross-references from the PRESCRIPTION file (#52).
Status: Active
EXTRACT^PSO52EX(SDATE,EDATE,LIST)
Input:
SDATE
EDATE
LIST
Where:
SDATE = Start date of record retrieval. (FileMan format date ex: 3030917) [REQUIRED]
EDATE = End date of record retrieval. A null value will return all entries to date. (FileMan format date ex: 3030917) [OPTIONAL]
LIST = Subscript name used in the ^TMP Global [REQUIRED]
Output:
^TMP($J,LIST,0)=Total entries found in X-refs or -1^NO DATA FOUND
Original Fill: (Returned every time)
^TMP($J,LIST,IEN,.01) = RX # (52,.01)
^TMP($J,LIST,IEN,2) = PATIENT (52,2)^NAME (2,.01)
^TMP($J,LIST,IEN,6) = DRUG (52,6)^GENERIC NAME (50,.01)
^TMP($J,LIST,IEN,7) = QTY (52,7)
^TMP($J,LIST,IEN,8) = DAYS SUPPLY (52,8) ^TMP($J,LIST,IEN,17) = UNIT PRICE OF DRUG (52,17)
Refills:
^TMP($J,LIST,IEN,"RF",0) = # OF ENTRIES
^TMP($J,LIST,IEN,"RF",n,.01) = REFILL DATE (52.1,.01)^External format
^TMP($J,LIST,IEN,"RF",n,1) = QTY (52.1,1)
^TMP($J,LIST,IEN,"RF",n,1.1) = DAYS SUPPLY (52.1,1.1)
^TMP($J,LIST,IEN,"RF",n,1.2) = CURRENT UNIT PRICE OF DRUG (52.1,1.2)
Partial Fills:
^TMP($J,LIST,IEN,"P",0)=# OF ENTRIES
^TMP($J,LIST,IEN,"P",n,.01) = PARTIAL DATE (52.2,.01)^External format
^TMP($J,LIST,IEN,"P",n,.04) = QTY (52.2,.04)
^TMP($J,LIST,IEN,"P",n,.041) = DAYS SUPPLY (52.2,.041)
^TMP($J,LIST,IEN,"P",n,.042) = CURRENT UNIT PRICE OF DRUG (52.2,.042)
(Returned every time)
^TMP($J,LIST,"AL",Date/Time,IEN,Fill)=""
^TMP($J,LIST,"AM",Date/Time,IEN,Fill)=""
Where:
n = the IEN of entry in the Refill multiple
Component: REF This API accepts date parameters in FileMan format and returns the “AD” cross-reference from the PRESCRIPTION file (#52).
Status: Active
REF^PSO52EX(SDATE,EDATE,LIST)
Input:
SDATE
EDATE
LIST
Where:
SDATE = Start date of "AD" cross reference retrieval (FileMan format date ex: 3030917) [REQUIRED]
EDATE = End date of “AD” cross reference retrieval. A null value will return only entries from the start date passed in SDATE. (FileMan format date ex: 3030917) [OPTIONAL]
LIST = Subscript name used in the ^TMP Global [REQUIRED]
Output:
^TMP($J,LIST,"AD",Date,RX,Fill)=""
PSO53 API – RX PATIENT STATUS file (#53) Component: PSO Returns data elements for the RX PATIENT STATUS file (#53).
Status: Active
PSO^PSO53(PSOIEN,PSOTXT,LIST)
Input:
PSOIEN
PSOTXT
LIST
Where:
PSOIEN = IEN [optional]
PSOTXT = Free text entry [optional]
LIST = defined by the calling application [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)=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)=""
PSO59 API – OUTPATIENT SITE file (#59) Component: PSS Returns data elements for the OUTPATIENT SITE file (#59).
Status: Active
PSS^PSO59(PSOIEN,PSOTXT,LIST)
Input:
PSOIEN
PSOTXT
LIST
Where:
PSOIEN = IEN [optional]
PSOTXT = Free text entry (a value of “??” may be used) [optional]
LIST = defined by the calling application [required]
Note: Either the IEN or free text entry must be present.
Note: Exact text entry in PSOTXT is necessary for data retrieval.
Output:
^TMP($J,LIST,PSOIEN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,PSOIEN,.01)=NAME(59,.01)
^TMP($J,LIST,PSOIEN,.02)=MAILING FRANK STREET ADDRESS(59,.02)
^TMP($J,LIST,PSOIEN,.05)=MAILING FRANK ZIP+4 CODE(59,.05)
^TMP($J,LIST,PSOIEN,.06)=SITE NUMBER(59,.06)
^TMP($J,LIST,PSOIEN,.07)=MAILING FRANK CITY(59,.07)
^TMP($J,LIST,PSOIEN,.08)=MAILING FRANK STATE (59,.08)^NAME (5,.01)
^TMP($J,LIST,PSOIEN,1)=SITE DEA NUMBER (59,1))
^TMP($J,LIST,PSOIEN,2)=SITE (NATIONAL NAME)(59,2)^NAME (736,.01) <*** See Note Below***>
^TMP($J,LIST,PSOIEN,100)=RELATED INSTITUTION (59,100)^NAME (4,.01)
^TMP($J,LIST,PSOIEN,101)=NPI INSTITUTION (59,101)^NAME (4,.01)
^TMP($J,LIST,PSOIEN,1003)=IB SERVICE/SECTION (59,1003)^NAME (49,.01)
^TMP($J,LIST,PSOIEN,1008)=NCPDP NUMBER (59,1008)
^TMP($J,LIST,"B",NAME,PSOIEN)=""
Note: The SITE (NATIONAL NAME) field (#2) of the OUTPATIENT SITE file (#59) points to the QUIC SORT DATA file (#736), which no longer exists. Therefore, the PSO59 routine will no longer return the ^TMP($J,LIST,PSOIEN,2) node.
Share with your friends: |