SDWLRNE.m

SDWLRNE ;;IOFO BAY PINES/TEH/ENROLLEE STATUS API WAIT LIST ; 20 Aug 2002  2:10 PM

 ;;5.3;scheduling;**263,1015**;AUG 13 1993;Build 21

 ;

 ;

 ;

 ;

EN(SDWLDFN) ;-Enrollment API

 ;

 S SDWLRNE=$$ENROLL^EASWTAPI(SDWLDFN),SDWLRNE=$S(+SDWLRNE:"E",1:"N")

END Q

SDWLRNE   ;;IOFO BAY PINES/TEH/ENROLLEE STATUS API WAIT LIST ; 20 Aug 2002  2:10 PM

 +1       ;;5.3;scheduling;**263,1015**;AUG 13 1993;Build 21

 +2       ;

 +3       ;

 +4       ;

 +5       ;

EN(SDWLDFN) ;-Enrollment API

 +1       ;

 +2        SET SDWLRNE=$$ENROLL^EASWTAPI(SDWLDFN)

           SET SDWLRNE=$SELECT(+SDWLRNE:"E",1:"N")

END        QUIT