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 Dec 13, 2024@03:03:08 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