IBDY349.m

IBDY349 ;ALB/DHH - PRE INSTALL FOR PATCH IBD*3*49 ;AUG 20, 2002

 ;;3.0;AUTOMATED INFO COLLECTION SYS;**49**;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 ---IBDY349   446     printed  Oct 16, 2024@18:56:08                                                                                                                                                                                                      Page 2

IBDY349   ;ALB/DHH - PRE INSTALL FOR PATCH IBD*3*49 ;AUG 20, 2002

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