source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUINEACH.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 702 bytes
Line 
1XUINEACH ;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
4A2 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
7A3 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
12A4 Q
13DIPT 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.