- SDWLRNE ;;IOFO BAY PINES/TEH/ENROLLEE STATUS API WAIT LIST ; 20 Aug 2002 2:10 PM
- ;;5.3;scheduling;**263**;AUG 13 1993
- ;
- ;
- ;
- ;
- EN(SDWLDFN) ;-Enrollment API
- ;
- S SDWLRNE=$$ENROLL^EASWTAPI(SDWLDFN),SDWLRNE=$S(+SDWLRNE:"E",1:"N")
- END Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDWLRNE 249 printed Apr 23, 2025@19:17:47 Page 2
- SDWLRNE ;;IOFO BAY PINES/TEH/ENROLLEE STATUS API WAIT LIST ; 20 Aug 2002 2:10 PM
- +1 ;;5.3;scheduling;**263**;AUG 13 1993
- +2 ;
- +3 ;
- +4 ;
- +5 ;
- EN(SDWLDFN) ;-Enrollment API
- +1 ;
- +2 SET SDWLRNE=$$ENROLL^EASWTAPI(SDWLDFN)
- SET SDWLRNE=$SELECT(+SDWLRNE:"E",1:"N")
- END QUIT
