source: FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUTMG14P.m@ 1569

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

initial load of FOIAVistA 6/30/08 version

File size: 621 bytes
Line 
1XUTMG14P ;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 ;
4UPDATE ;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
8U0 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.