;is pt a restricted consult pt?
; DFN - ien to PATIENT File
; SCATE - Date of interest - default=DT
; SCRPA - literal value of desired restrict patients array
; e.g. scrpa=xx results in xx(sctm)=teamname
; Returned: [1 if yes, 0 if no, -1 if error]
;