Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
702 bytes
|
Rev | Line | |
---|
[628] | 1 | XUINEACH ;SF/RWF - Code that needs to be run on each cpu. ;8/1/94 14:01 ;
|
---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
---|
| 3 | I $D(DUZ)_$D(DUZ(0))_$D(U)[0 D DT^DICRW
|
---|
| 4 | A2 W !!,"Recompile Template routines."
|
---|
| 5 | S XU1="X"
|
---|
| 6 | 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
|
---|
| 7 | A3 W !!,"Queue Menu Tree Rebuild"
|
---|
| 8 | F I=0:0 S I=$O(^%ZTSK(I)) Q:I'>0 I $P($G(^%ZTSK(I,.1)),"^",13)="Install Menu Rebuild" Q
|
---|
| 9 | G:I>0 A4
|
---|
| 10 | K ZTUCI,ZTCPU I ^%ZOSF("OS")["MSM" X ^%ZOSF("UCI") S ZTUCI=$P(Y,","),ZTCPU=$P(Y,",",2)
|
---|
| 11 | S ZTRTN="QUE^XQ81",ZTDTH=$H,ZTIO="",ZTDESC="Install Menu Rebuild" D ^%ZTLOAD
|
---|
| 12 | A4 Q
|
---|
| 13 | DIPT S Y=XU3,DMAX=^DD("ROU"),X=$G(^DIPT(XU3,"ROUOLD")) D:X]"" EN^DIPZ Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.