- IBDY360 ;ALB/RLC - PRE INSTALL FOR PATCH IBD*3*60 ;APR 12, 2006
- ;;3.0;AUTOMATED INFO COLLECTION SYS;**60**;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[HIBDY360 446 printed Jan 18, 2025@03:56:39 Page 2
- IBDY360 ;ALB/RLC - PRE INSTALL FOR PATCH IBD*3*60 ;APR 12, 2006
- +1 ;;3.0;AUTOMATED INFO COLLECTION SYS;**60**;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 ;