IBDY353.m

IBDY353 ;ALB/DHH - PRE INSTALL FOR PATCH IBD*3*53 ;DEC 3, 2003

 ;;3.0;AUTOMATED INFO COLLECTION SYS;**53**;APR 24, 1997

 ;

PRE ;- clear workspace before install

 D CLWKSP

 Q

 ;

 ;

CLWKSP ;- Clear the AICS Import/Export Workspace (files in #358) before

 ;- loading new toolkit blocks

 ;

 D MES^XPDUTL("")

 D BMES^XPDUTL(">>> Clearing AICS Import/Export workspace...")

 D DLTALL^IBDE2

 D MES^XPDUTL(">>> ...completed.")

 Q

 ;

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBDY353   445     printed  Nov 22, 2024@18:05:35                                                                                                                                                                                                      Page 2

IBDY353   ;ALB/DHH - PRE INSTALL FOR PATCH IBD*3*53 ;DEC 3, 2003

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;**53**;APR 24, 1997

 +2       ;

PRE       ;- clear workspace before install

 +1        DO CLWKSP

 +2        QUIT 

 +3       ;

 +4       ;

CLWKSP    ;- Clear the AICS Import/Export Workspace (files in #358) before

 +1       ;- loading new toolkit blocks

 +2       ;

 +3        DO MES^XPDUTL("")

 +4        DO BMES^XPDUTL(">>> Clearing AICS Import/Export workspace...")

 +5        DO DLTALL^IBDE2

 +6        DO MES^XPDUTL(">>> ...completed.")

 +7        QUIT 

 +8       ;

 +9       ;