source: FOIAVistA/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDY348.m@ 1800

Last change on this file since 1800 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 426 bytes
Line 
1IBDY348 ;ALB/DHH-PRE INSTALL FOR PATCH IBD*3*48 ;DEC 20, 2001
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;**48**;APR 24, 1997
3 ;
4PRE ;- clear workspace before install
5 D CLWKSP
6 Q
7 ;
8 ;
9CLWKSP ;- Clear the AICS Import/Export Workspace (files in #358) before
10 ;- loading new toolkit blocks
11 ;
12 D MES^XPDUTL("")
13 D BMES^XPDUTL(">>> Clearing AICS Import/Export workspace...")
14 D DLTALL^IBDE2
15 D MES^XPDUTL(">>> ...completed.")
16 Q
17 ;
18 ;
Note: See TracBrowser for help on using the repository browser.