; assign practitioner to position
; input:
; SC200 = New Person File (#200) Pointer
; SCTP = Pointer To Team Position File (#404.57)
; SCFIELDA= array of extra field entries - scfielda('fld#')=value
; -Note: Only used if BRAND NEW POSITION - team fields (404.57)
; SCEFF = date to activate/inactivate [default=DT]
; SCERR = array NAME to store error messages.
; [ex. ^TMP("ORXX",$J)]