| 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]
 
 | 
 
 |