IBDY314.m

IBDY314 ;ALB/AAS - POST INSTALL FOR PATCH IBD*3*14 ; 23-JUN-97

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

 ;

 D UPDATE^IBDECLN(1)

 D UNCOMP

 Q

 ;

UNCOMP ; -- uncompile all forms --

 N ZTQUEUED

 D MES^XPDUTL(">>> Now uncompiling all Encounter Forms.")

 S ZTQUEUED=1

 D RECMPALL^IBDF19

 D MES^XPDUTL("    Okay, forms will be recompiled as they are printed.")

 Q

IBDY314   ;ALB/AAS - POST INSTALL FOR PATCH IBD*3*14 ; 23-JUN-97

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

 +2       ;

 +3        DO UPDATE^IBDECLN(1)

 +4        DO UNCOMP

 +5        QUIT 

 +6       ;

UNCOMP    ; -- uncompile all forms --

 +1        NEW ZTQUEUED

 +2        DO MES^XPDUTL(">>> Now uncompiling all Encounter Forms.")

 +3        SET ZTQUEUED=1

 +4        DO RECMPALL^IBDF19

 +5        DO MES^XPDUTL("    Okay, forms will be recompiled as they are printed.")

 +6        QUIT