SDWLINI3.m

SDWLINI3 ;;IOFO BAY PINES/- PATCH 279;01/22/2003 ; 20 Aug 2002  2:10 PM

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

 ;

 ;

 ;

EN ;

 S X="SD WAIT LIST TRANS TO AAC",D="B",DIC(0)="MNZ",DIC=19 D ^DIC Q:Y<0  S DA=+Y

 S DIE=19,DR="3///@" D ^DIE

 S DR="20///@" D ^DIE

 S DR="25///^S X=""INIT^SDWLTR""" D ^DIE

 Q 

SDWLINI3  ;;IOFO BAY PINES/- PATCH 279;01/22/2003 ; 20 Aug 2002  2:10 PM

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

 +2       ;

 +3       ;

 +4       ;

EN        ;

 +1        SET X="SD WAIT LIST TRANS TO AAC"

           SET D="B"

           SET DIC(0)="MNZ"

           SET DIC=19

           DO ^DIC

           IF Y<0

               QUIT 

           SET DA=+Y

 +2        SET DIE=19

           SET DR="3///@"

           DO ^DIE

 +3        SET DR="20///@"

           DO ^DIE

 +4        SET DR="25///^S X=""INIT^SDWLTR"""

           DO ^DIE

 +5        QUIT