source: WorldVistAEHR/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDY353.m@ 1006

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

initial load of WorldVistAEHR

File size: 427 bytes
Line 
1IBDY353 ;ALB/DHH - PRE INSTALL FOR PATCH IBD*3*53 ;DEC 3, 2003
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;**53**;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.