; -- positions for a patient
; input:
; DFN = ien of PATIENT file(#2) [required]
; SCDATES("BEGIN") = begin date to search (inclusive)
; [default: TODAY]
; ("END") = end date to search (inclusive)
; [default: TODAY]
; ("INCL") = 1: only use patients who were assigned to
; team for entire date range
; 0: anytime in date range
; [default: 1]
; SCPOSA -array of pointers to team position - 404.57 (per SCPURPA)
; SCUSRA -array of pointers to user file - 8930 (per SCPURPA array)
; SCPURPA -array of pointers to team purpose file 403.47
; if none are defined - returns all teams
; if @SCPURPA@('exclude') is defined - exclude listed teams
; SCROLEA - array of pointers to std position file 403.46 (per SCPURPA)
; SCYESCL -boolean[0-NO(default)/1-YES] Include pts asc. via enrollment?
; SCLIST -array name to store list
; [ex. ^TMP("SCPT",$J)]
;
; SCERR = array NAME to store error messages.
; [ex. ^TMP("ORXX",$J)]