; Entry point if transfer record is selected elsewhere.
EN(SDWLDFN,SDWLERR)
; Entry Point
; Extrinsic function. Quit back one of the following values
; 0 : Inter-Facility Transfer not selected, continue with standard processing
; 1 : Inter-Facility selected, all processing performed here, quit out on return.
;
; SDWLERR passed back by reference, indicates to the calling routine
; whether to announce that the update to 409.3 was performed.
;
GETENRST(SDWLDFN)
; Determine enrollee status ; NB this is reworking of code in SDWLE11.
GETTEAMS(SDWLIN,SDWLTM)
; Get teams for an institution ; NB this is reworking of code in SDWLE3.