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 ---[H[J[2J[HDG53671P 927 printed Sep 02, 2024@19:23:37 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