source: FOIAVistA/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDEPT.m@ 1783

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

initial load of FOIAVistA 6/30/08 version

File size: 374 bytes
Line 
1IBDEPT ;ALB/CJM - ENCOUNTER FORM - installation routine for AICS 2.1 ;OCT 5, 1995
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;**14**;APR 24, 1997
3 ;
4 Q
5 D AUTOINS^IBDE4 ; auto install tool kit forms and tool kit blocks
6 D DONE
7 Q
8DONE ; Installation has completed - display final messages
9 ;
10 D NOW^%DTC S IBDEDT("IBEP")=$H
11 ;S IBDINIT="IBDE" D ALLDONE^IBD21PT
12 ;D MSGE^IBD21PT
13 Q
Note: See TracBrowser for help on using the repository browser.