| 1 | DVBHQREC ;ALB/JLU This routine recompiles all the print and input templates. ;3/19/90
|
|---|
| 2 | ;;V4.0;HINQ;;03/25/92
|
|---|
| 3 | 1 W !!!,DVBLN,!,?20,"Recompilation of '",$S(DVBF="^DIE(":"Edit' templates",1:"Print' templates"),!,DVBLN
|
|---|
| 4 | 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
|
|---|
| 5 | Q
|
|---|
| 6 | 2 W !!,"----Recompiling '",DVBA,"' ",$S(DVBF["^DIE":"Input",1:"Output")," Template----"
|
|---|
| 7 | I ^%ZOSF("OS")["M/11" S DMAX=3500
|
|---|
| 8 | E S DMAX=4000
|
|---|
| 9 | 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.",!
|
|---|
| 10 | Q
|
|---|
| 11 | 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
|
|---|
| 12 | ;start RT monitor
|
|---|
| 13 | D:$D(XRTL) T0^%ZOSV
|
|---|
| 14 | S DVBF="^DIE(" D 1
|
|---|
| 15 | S DVBF="^DIPT(" D 1
|
|---|
| 16 | S:$D(XRT0) XRTN=$T(+0) D:$D(XRT0) T1^%ZOSV
|
|---|
| 17 | K1 K X,Y,DVB,DVBA,DVBF,DVBLN,DVBN,%,%Y Q
|
|---|
