IBDEPT.m

IBDEPT ;ALB/CJM - ENCOUNTER FORM - installation routine for AICS 2.1 ;OCT 5, 1995

 ;;3.0;AUTOMATED INFO COLLECTION SYS;**14**;APR 24, 1997

 ;

 Q

 D AUTOINS^IBDE4 ; auto install tool kit forms and tool kit blocks

 D DONE

 Q

DONE ; Installation has completed - display final messages

 ;

 D NOW^%DTC S IBDEDT("IBEP")=$H

 ;S IBDINIT="IBDE" D ALLDONE^IBD21PT

 ;D MSGE^IBD21PT

 Q

IBDEPT    ;ALB/CJM - ENCOUNTER FORM - installation routine for AICS 2.1 ;OCT 5, 1995

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;**14**;APR 24, 1997

 +2       ;

 +3        QUIT 

 +4       ; auto install tool kit forms and tool kit blocks

           DO AUTOINS^IBDE4

 +5        DO DONE

 +6        QUIT 

DONE      ; Installation has completed - display final messages

 +1       ;

 +2        DO NOW^%DTC

           SET IBDEDT("IBEP")=$HOROLOG

 +3       ;S IBDINIT="IBDE" D ALLDONE^IBD21PT

 +4       ;D MSGE^IBD21PT

 +5        QUIT