DG53671P.m

DG53671P ;ALB/GSN - Post Install to recompile Input Templates ;2/13/08 4:41pm

 ;;5.3;Registration;**671**;Aug 13, 1993;Build 27

 ;

EN ;

 ;-- re-compile input templates

 D COMP

 Q

 ;

COMP ;-- Re-compile input templates

 ;

 N DGCOUNT,X,Y,DMAX,DGNAME,DGMAX

 S DGMAX=$$ROUSIZE^DILF

 D MES^XPDUTL("Recompiling affected input templates ...")

 F DGCOUNT=1:1 S DGNAME=$P($T(TEMP+DGCOUNT),";;",2) Q:DGNAME=""  D

 .;

 .;find the ien of the input template

 .S Y=$O(^DIE("B",DGNAME,0))

 .Q:('Y)

 .;

 .;quit if input template not compiled

 .S X=$P($G(^DIE(Y,"ROUOLD")),"^")

 .Q:(X="")

 .;

 .D MES^XPDUTL("Compiling "_DGNAME_" , compiled routine is "_X_" ...")

 .S DMAX=DGMAX

 .D EN^DIEZ

 .D MES^XPDUTL("done")

 D MES^XPDUTL("Completed compiling input templates")

 Q

 ;

TEMP ;

 ;;DVBA C ADD 2507 PAT

 ;;DG101

 ;;DVBHINQ UPDATE

 ;;IB SCREEN1

 ;;DGRPT 10-10T REGISTRATION

 ;;SDM1

 ;;DG LOAD EDIT SCREEN 7

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53671P   927     printed  Feb 19, 2025@00:04:18                                                                                                                                                                                                     Page 2

DG53671P  ;ALB/GSN - Post Install to recompile Input Templates ;2/13/08 4:41pm

 +1       ;;5.3;Registration;**671**;Aug 13, 1993;Build 27

 +2       ;

EN        ;

 +1       ;-- re-compile input templates

 +2        DO COMP

 +3        QUIT 

 +4       ;

COMP      ;-- Re-compile input templates

 +1       ;

 +2        NEW DGCOUNT,X,Y,DMAX,DGNAME,DGMAX

 +3        SET DGMAX=$$ROUSIZE^DILF

 +4        DO MES^XPDUTL("Recompiling affected input templates ...")

 +5        FOR DGCOUNT=1:1

               SET DGNAME=$PIECE($TEXT(TEMP+DGCOUNT),";;",2)

               if DGNAME=""

                   QUIT 

               Begin DoDot:1

 +6       ;

 +7       ;find the ien of the input template

 +8                SET Y=$ORDER(^DIE("B",DGNAME,0))

 +9                if ('Y)

                       QUIT 

 +10      ;

 +11      ;quit if input template not compiled

 +12               SET X=$PIECE($GET(^DIE(Y,"ROUOLD")),"^")

 +13               if (X="")

                       QUIT 

 +14      ;

 +15               DO MES^XPDUTL("Compiling "_DGNAME_" , compiled routine is "_X_" ...")

 +16               SET DMAX=DGMAX

 +17               DO EN^DIEZ

 +18               DO MES^XPDUTL("done")

               End DoDot:1

 +19       DO MES^XPDUTL("Completed compiling input templates")

 +20       QUIT 

 +21      ;

TEMP      ;

 +1       ;;DVBA C ADD 2507 PAT

 +2       ;;DG101

 +3       ;;DVBHINQ UPDATE

 +4       ;;IB SCREEN1

 +5       ;;DGRPT 10-10T REGISTRATION

 +6       ;;SDM1

 +7       ;;DG LOAD EDIT SCREEN 7