; -- change position status (add if need be)
; input:
; SCTPNM = External Value of Position Name
; SCTMNM = External Value of Team Name
; SCFIELDA = similar to above -used for history entries (404.59)
; SCMAINA = array of extra field entries - scfielda('fld#')=value
; -Note: Only used if BRAND NEW POSITION - team fields (404.57)
; SCEFF = date to activate [default=DT]
; SCERR = array NAME to store error messages.
; [ex. ^TMP("ORXX",$J)]
ACTP(SCTP,SCFIELDA,SCEFF,SCERR)
; change position status using ien
; input:
; SCTP = Pointer to TEAM POSTION File (#404.57)
; SCFIELDA= array of extra field entries - for history entries (404.59)
; SCEFF = date to activate [default=DT]
; SCERR = array NAME to store error messages.
; [ex. ^TMP("ORXX",$J)]