Routine: DVBHQREC

DVBHQREC ;ALB/JLU This routine recompiles all the print and input templates. ;3/19/90

 ;;V4.0;HINQ;;03/25/92

1 W !!!,DVBLN,!,?20,"Recompilation of '",$S(DVBF="^DIE(":"Edit' templates",1:"Print' templates"),!,DVBLN

 S DVBA="DVBHI" F DVB=1:1 S DVBA=$O(@(DVBF_"""B"",DVBA)")) Q:DVBA=""!($E(DVBA,1,5)'="DVBHI")  S DVBN=+$O(^(DVBA,0)) I DVBN>0,$D(@(DVBF_"+DVBN,""ROUOLD"")")),^("ROUOLD")]"",$D(^(0)) S X=$P(^("ROUOLD"),U) D 2

2 W !!,"----Recompiling '",DVBA,"' ",$S(DVBF["^DIE":"Input",1:"Output")," Template----"

 I ^%ZOSF("OS")["M/11" S DMAX=3500

 E  S DMAX=4000

 S Y=+DVBN D @($S(DVBF["^DIE":"EN^DIEZ",1:"EN^DIPZ")) I $D(@(DVBF_DVBN_",""ROU"")")) W !!,?3,"  '",DVBA,"' has been recompiled in the ",^("ROU"),"* routines.",!

E S:'$D(DTIME) DTIME=300 S $P(DVBLN,"*",80)="",%=1,U="^" W !,"Do you want to Recompile the HINQ edit and print templates" D YN^DICN G:%<0!(%=2) K1 I %=0 W !!,"A YES answer will recompile all the HINQ edit and print templates.",! G E

 ;start RT monitor

 D:$D(XRTL) T0^%ZOSV

 S DVBF="^DIE(" D 1

 S DVBF="^DIPT(" D 1

 S:$D(XRT0) XRTN=$T(+0) D:$D(XRT0) T1^%ZOSV

K1 K X,Y,DVB,DVBA,DVBF,DVBLN,DVBN,%,%Y Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBHQREC   1145     printed  Mar 13, 2025@21:03:46                                                                                                                                                                                                    Page 2

DVBHQREC  ;ALB/JLU This routine recompiles all the print and input templates. ;3/19/90

 +1       ;;V4.0;HINQ;;03/25/92

1          WRITE !!!,DVBLN,!,?20,"Recompilation of '",$SELECT(DVBF="^DIE(":"Edit' templates",1:"Print' templates"),!,DVBLN

 +1        SET DVBA="DVBHI"

           FOR DVB=1:1

               SET DVBA=$ORDER(@(DVBF_"""B"",DVBA)"))

               if DVBA=""!($EXTRACT(DVBA,1,5)'="DVBHI")

                   QUIT

               SET DVBN=+$ORDER(^(DVBA,0))

               IF DVBN>0

                   IF $DATA(@(DVBF_"+DVBN,""ROUOLD"")"))

                       IF ^("ROUOLD")]""

                           IF $DATA(^(0))

                               SET X=$PIECE(^("ROUOLD"),U)

                               DO 2

 +2        QUIT

2          WRITE !!,"----Recompiling '",DVBA,"' ",$SELECT(DVBF["^DIE":"Input",1:"Output")," Template----"

 +1        IF ^%ZOSF("OS")["M/11"

               SET DMAX=3500

 +2       IF '$TEST

               SET DMAX=4000

 +3        SET Y=+DVBN

           DO @($SELECT(DVBF["^DIE":"EN^DIEZ",1:"EN^DIPZ"))

           IF $DATA(@(DVBF_DVBN_",""ROU"")"))

               WRITE !!,?3,"  '",DVBA,"' has been recompiled in the ",^("ROU"),"* routines.",!

 +4        QUIT

E          if '$DATA(DTIME)

               SET DTIME=300

           SET $PIECE(DVBLN,"*",80)=""

           SET %=1

           SET U="^"

           WRITE !,"Do you want to Recompile the HINQ edit and print templates"

           DO YN^DICN

           if %<0!(%=2)

               GOTO K1

           IF %=0

               WRITE !!,"A YES answer will recompile all the HINQ edit and print templates.",!

               GOTO E

 +1       ;start RT monitor

 +2        if $DATA(XRTL)

               DO T0^%ZOSV

 +3        SET DVBF="^DIE("

           DO 1

 +4        SET DVBF="^DIPT("

           DO 1

 +5        if $DATA(XRT0)

               SET XRTN=$TEXT(+0)

           if $DATA(XRT0)

               DO T1^%ZOSV

K1         KILL X,Y,DVB,DVBA,DVBF,DVBLN,DVBN,%,%Y

           QUIT

DVBHQREC.m