- 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 Apr 23, 2025@18:24:11 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
