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