XUINEACH ;SF/RWF - Code that needs to be run on each cpu. ;8/1/94 14:01 ;
;;8.0;KERNEL;;Jul 10, 1995
I $D(DUZ)_$D(DUZ(0))_$D(U)[0 D DT^DICRW
A2 W !!,"Recompile Template routines."
S XU1="X"
F XU2=0:0 S XU1=$O(^DIPT("B",XU1)) Q:$E(XU1)'["X" F XU3=0:0 S XU3=$O(^DIPT("B",XU1,XU3)) Q:XU3'>0 I $D(^DIPT(XU3,"ROU")) D DIPT
A3 W !!,"Queue Menu Tree Rebuild"
F I=0:0 S I=$O(^%ZTSK(I)) Q:I'>0 I $P($G(^%ZTSK(I,.1)),"^",13)="Install Menu Rebuild" Q
G:I>0 A4
K ZTUCI,ZTCPU I ^%ZOSF("OS")["MSM" X ^%ZOSF("UCI") S ZTUCI=$P(Y,","),ZTCPU=$P(Y,",",2)
S ZTRTN="QUE^XQ81",ZTDTH=$H,ZTIO="",ZTDESC="Install Menu Rebuild" D ^%ZTLOAD
A4 Q
DIPT S Y=XU3,DMAX=^DD("ROU"),X=$G(^DIPT(XU3,"ROUOLD")) D:X]"" EN^DIPZ Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUINEACH 715 printed Dec 13, 2024@02:09:40 Page 2
XUINEACH ;SF/RWF - Code that needs to be run on each cpu. ;8/1/94 14:01 ;
+1 ;;8.0;KERNEL;;Jul 10, 1995
+2 IF $DATA(DUZ)_$DATA(DUZ(0))_$DATA(U)[0
DO DT^DICRW
A2 WRITE !!,"Recompile Template routines."
+1 SET XU1="X"
+2 FOR XU2=0:0
SET XU1=$ORDER(^DIPT("B",XU1))
if $EXTRACT(XU1)'["X"
QUIT
FOR XU3=0:0
SET XU3=$ORDER(^DIPT("B",XU1,XU3))
if XU3'>0
QUIT
IF $DATA(^DIPT(XU3,"ROU"))
DO DIPT
A3 WRITE !!,"Queue Menu Tree Rebuild"
+1 FOR I=0:0
SET I=$ORDER(^%ZTSK(I))
if I'>0
QUIT
IF $PIECE($GET(^%ZTSK(I,.1)),"^",13)="Install Menu Rebuild"
QUIT
+2 if I>0
GOTO A4
+3 KILL ZTUCI,ZTCPU
IF ^%ZOSF("OS")["MSM"
XECUTE ^%ZOSF("UCI")
SET ZTUCI=$PIECE(Y,",")
SET ZTCPU=$PIECE(Y,",",2)
+4 SET ZTRTN="QUE^XQ81"
SET ZTDTH=$HOROLOG
SET ZTIO=""
SET ZTDESC="Install Menu Rebuild"
DO ^%ZTLOAD
A4 QUIT
DIPT SET Y=XU3
SET DMAX=^DD("ROU")
SET X=$GET(^DIPT(XU3,"ROUOLD"))
if X]""
DO EN^DIPZ
QUIT
