| SUS(LIST,DFN,IEN,RX#,SDATE,EDATE) |
SUS^PSO525AP(LIST,DFN,IEN,RX#,SDATE,EDATE)
Input:
LIST
DFN
IEN
RX#
SDATE
EDATE
Where:
LIST = Subscript name used in the ^TMP global [required]
DFN = IEN from the PATIENT file (#2) [optional]
IEN = Internal record number in RX SUSPENSE file (#52.5) [optional]
RX# = Pointer to PRESCRIPTION file (#52) [optional]
SDATE = Starting Suspense Date [optional]
EDATE = Ending Suspense Date [optional]
Note: If IEN is passed in, RX # is ignored. If RX # is passed in without IEN
lookup is done on ^PS(52.5,"B" cross-reference. If no IEN and no RX # is
passed, "AF" cross-reference shall be used to return suspended RXs. If SDATE
is passed in, suspended RXs starting with this date shall be returned. If
EDATE is passed in, suspended RXs up to and including this date shall be
returned.
Output:
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,.01)=RX # (52.5,01)
^TMP($J,LIST,DFN,IEN,.02)=Suspense Date (52.5,.02)^External Format (ex: Sep.
12, 1999)
^TMP($J,LIST,DFN,IEN.05)=Partial (52.5,.05)
^TMP($J,LIST,DFN,IEN,5)=Printed (52.5,2)^External Format for the Set of
codes
^TMP($J,LIST,DFN,IEN,3)=CMOP INDICATOR (52.5,3)^External Format for the Set
of Codes
^TMP($J,LIST,DFN,IEN,9)=Fill (52.5,9)
^TMP($J,LIST,"B",RX#,IEN)=""
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
LIST |
Both |
Subscript name used in the ^TMP global [required]
|
DFN |
Input |
Internal entry number from the PATIENT file (#2)
[optional]
|
IEN |
Input |
Internal entry number from RX SUSPENSE file (#52.5)
[optional]
|
RX# |
Input |
Pointer to PRESCRIPTION file (#52) [optional]
|
SDATE |
Input |
Starting suspense date if data is to be returned
within date range using the SUSPENSE DATE field (#.02) C cross-reference from
RX SUSPENSE file (#52.5). [optional]
|
EDATE |
Input |
Ending suspense date if data is to be returned within
date range using the SUSPENSE DATE field (#.02) C cross-reference from RX
SUSPENSE file (#52.5). [optional]
|
|