Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
621 bytes
|
Rev | Line | |
---|
[613] | 1 | XUTMG14P ;SEA/RDS - TaskMan: Globals: X-Refs For Files 14.5 & .7 ;07/14/99 11:58
|
---|
| 2 | ;;8.0;KERNEL;**118**;Jul 10, 1995
|
---|
| 3 | ;
|
---|
| 4 | UPDATE ;Set Logic For MUMPS X-Refs: Tell Managers To Update Site Parameters
|
---|
| 5 | N X,ZTI,ZTM,ZTN,ZTV,$ESTACK,$ETRAP
|
---|
| 6 | S $ETRAP="S $ECODE="""" Q " ;Trap down links when telling managers to update
|
---|
| 7 | S ZTV=0
|
---|
| 8 | U0 F ZTI=0:0 S ZTV=$O(^%ZIS(14.5,ZTV)) Q:'ZTV S X=$G(^%ZIS(14.5,ZTV,0)) D
|
---|
| 9 | . S ZTN=$P(X,U),ZTM=$P(X,U,6) Q:ZTN=""
|
---|
| 10 | . I ZTN'=^%ZOSF("VOL") L +^[ZTM,ZTN]%ZTSCH("UPDATE") K ^[ZTM,ZTN]%ZTSCH("UPDATE") L -^[ZTM,ZTN]%ZTSCH("UPDATE")
|
---|
| 11 | . Q
|
---|
| 12 | L +^%ZTSCH("UPDATE") K ^%ZTSCH("UPDATE") L -^%ZTSCH("UPDATE") Q
|
---|
| 13 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.