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
Q
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.",!
Q
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 Dec 13, 2024@01:58:55 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
