- 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