Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: SDYDPRE

SDYDPRE.m

Go to the documentation of this file.

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

 ;;5.3;Scheduling;**27**;08/13/93

EN ;

 D CLEAN44

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDYDPRE   270     printed  Apr 09, 2024@21:45:07                                                                                                                                                                                                      Page 2

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

 +1       ;;5.3;Scheduling;**27**;08/13/93

 +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       ;