XUINEACH.m

XUINEACH ;SF/RWF - Code that needs to be run on each cpu. ;8/1/94  14:01 ; [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 ;;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

XUINEACH  ;SF/RWF - Code that needs to be run on each cpu. ;8/1/94  14:01 ; [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;;Jul 10, 1995

 +3        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