;check/setup variables - return 1 if ok/0 if error
PRACQ
PRTP(SCTP,SCDATES,SCLIST,SCERR,SCPRCPTR,SCALLHIS)
;-- list of practitioners for position (bp/cmf 177-->SCPRCPTR,SCALLHIS param added)
; input:
; SCTP = ien of TEAM POSITION[required]
; SCDATES("BEGIN") = begin date to search (inclusive)
; [default: TODAY]
; ("END") = end date to search (inclusive)
; [default: DT]
; ("INCL") = 1: only use pracitioners who were on
; team for entire date range
; 0: anytime in date range
; [default: 1]
; SCLIST= array NAME for output
; SCERR = array NAME to store error messages.
; [ex. ^TMP("ORXX",$J)]
; SCPRCPTR = 1: return preceptor sub-array in SCLIST
; [default: 0]
; SCALLHIS = 1: return unfiltered sub-array in SCLIST
; [default: 0]