SDWLP446.m

SDWLP446 ;;IOFO BAY PINES/TEH - WAITING LIST-ENTER/EDIT - WAIT LISTTYPE/INSTUTITION;06/12/2002 ; 20 Aug 2002 2:10 PM  ; Compiled November 9, 2006 15:39:42

 ;;5.3;scheduling;**446**;AUG 13 1993;Build 77

 ;

 ;

 ;

 ;

EN I $D(^DD(409.3,.01,"DEL",1,0)) K ^DD(409.3,.01,"DEL",1,0)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDWLP446   286     printed  Dec 13, 2024@03:02:56                                                                                                                                                                                                     Page 2

SDWLP446  ;;IOFO BAY PINES/TEH - WAITING LIST-ENTER/EDIT - WAIT LISTTYPE/INSTUTITION;06/12/2002 ; 20 Aug 2002 2:10 PM  ; Compiled November 9, 2006 15:39:42

 +1       ;;5.3;scheduling;**446**;AUG 13 1993;Build 77

 +2       ;

 +3       ;

 +4       ;

 +5       ;

EN         IF $DATA(^DD(409.3,.01,"DEL",1,0))

               KILL ^DD(409.3,.01,"DEL",1,0)

 +1        QUIT