PSS(PSOIEN,PSOTXT,LIST) |
PSS^PSO59(PSOIEN,PSOTXT,LIST)
Input:
PSOIEN
PSOTXT
LIST
Where:
PSOIEN = Internal Entry Number in OUTPATIENT SITE file (#59) [optional]
PSOTXT = Free text entry (a value of "??" may be used) [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 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,.03)=AREA CODE (59,.03)
^TMP($J,LIST,PSOIEN,.04)=PHONE NUMBER (59,.04)
^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.
.
|
VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
PSOIEN |
Input |
Internal Entry Number [optional]
|
PSOTXT |
Input |
Free text entry of .01 field from OUTPATIENT SITE
file (#59) or a value of "??" may be used [optional]
|
LIST |
Both |
Subscript name used in the ^TMP global [required]
|
|