- IBDY350 ;ALB/DHH - PRE INSTALL FOR PATCH IBD*3*54 ;SEP 4, 2003
- ;;3.0;AUTOMATED INFO COLLECTION SYS;**54**;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 ---[H[J[2J[HIBDY354 445 printed Feb 19, 2025@00:21:51 Page 2
- IBDY350 ;ALB/DHH - PRE INSTALL FOR PATCH IBD*3*54 ;SEP 4, 2003
- +1 ;;3.0;AUTOMATED INFO COLLECTION SYS;**54**;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 ;