IBDY348.m

IBDY348 ;ALB/DHH-PRE INSTALL FOR PATCH IBD*3*48 ;DEC 20, 2001

 ;;3.0;AUTOMATED INFO COLLECTION SYS;**48**;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 ---IBDY348   444     printed  Apr 09, 2024@21:13:52                                                                                                                                                                                                      Page 2

IBDY348   ;ALB/DHH-PRE INSTALL FOR PATCH IBD*3*48 ;DEC 20, 2001

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;**48**;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       ;