; list of patients RE-assigned to a team (404.42)
; input: as per ACPTTM (above with the following change:)
; DFNA = is the name of a patient array (e.g. $N(^TMP(SCJOB,"SC PATIENT LIST")))
; there is at least one scpt(dfn)="" defined
; SCTMTO = pointer to "TO" team file
; SCTMFRM = pointer to "FROM" team file - PDR 7/98
; SCOTH = array of other parameters e.g. SCOTH("SIZELIM")
; SCFIELDA = List of array of fields and values in 404.42
; SCACT = Date filed (NOW)
; SCERR = Name of error message var
; SCNEWTM = Subset of DFNA that was NEWLY assigned to Team [returned]
; SCOLDTM = Subset of DFNA that was already assigned -Team [returned]
; SCBADTP = Subset of DFNA that was NOT assigned to Team [returned]
; Note: The above three arrays return data in a user determined array
; output: Count of Patients:
; 1 2 3 4
; total assigned^newly assigned^assigned prior^not assigned