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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEPT 387 printed Oct 16, 2024@18:51:20 Page 2
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
