Last change
on this file since 794 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
702 bytes
|
Line | |
---|
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.