Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: IBDY313

IBDY313.m

Go to the documentation of this file.

IBDY313 ;ALB/JS - Post Install routine for IBD*3*13  - 28-Oct-97

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

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.")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDY313   347     printed  Apr 09, 2024@21:41:12                                                                                                                                                                                                      Page 2

IBDY313   ;ALB/JS - Post Install routine for IBD*3*13  - 28-Oct-97

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

 +2       ;

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