SDYDPRE.m

SDYDPRE ;MJK/ALB - API Post Init;01 APR 1993

 ;;5.3;Scheduling;**27,1015**;08/13/93;Build 21

 ;

EN ;

 D CLEAN44

 Q

 ;

CLEAN44 ;-- Remove Provider DD on file 44

 D BMES^XPDUTL(">>> Deleting Provider screen on file 44 ...")

 S DIK="^DD(44.1,",DA=.01,DA(1)=44

 D ^DIK

 Q

 ;

SDYDPRE   ;MJK/ALB - API Post Init;01 APR 1993

 +1       ;;5.3;Scheduling;**27,1015**;08/13/93;Build 21

 +2       ;

EN        ;

 +1        DO CLEAN44

 +2        QUIT 

 +3       ;

CLEAN44   ;-- Remove Provider DD on file 44

 +1        DO BMES^XPDUTL(">>> Deleting Provider screen on file 44 ...")

 +2        SET DIK="^DD(44.1,"

           SET DA=.01

           SET DA(1)=44

 +3        DO ^DIK

 +4        QUIT 

 +5       ;