XUTMG14P ;SEA/RDS - TaskMan: Globals: X-Refs For Files 14.5 & .7 ;07/14/99 11:58
;;8.0;KERNEL;**118**;Jul 10, 1995
;
UPDATE ;Set Logic For MUMPS X-Refs: Tell Managers To Update Site Parameters
N X,ZTI,ZTM,ZTN,ZTV,$ESTACK,$ETRAP
S $ETRAP="S $ECODE="""" Q " ;Trap down links when telling managers to update
S ZTV=0
U0 F ZTI=0:0 S ZTV=$O(^%ZIS(14.5,ZTV)) Q:'ZTV S X=$G(^%ZIS(14.5,ZTV,0)) D
. S ZTN=$P(X,U),ZTM=$P(X,U,6) Q:ZTN=""
. I ZTN'=^%ZOSF("VOL") L +^[ZTM,ZTN]%ZTSCH("UPDATE") K ^[ZTM,ZTN]%ZTSCH("UPDATE") L -^[ZTM,ZTN]%ZTSCH("UPDATE")
. Q
L +^%ZTSCH("UPDATE") K ^%ZTSCH("UPDATE") L -^%ZTSCH("UPDATE") Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUTMG14P 634 printed Dec 13, 2024@02:13:15 Page 2
XUTMG14P ;SEA/RDS - TaskMan: Globals: X-Refs For Files 14.5 & .7 ;07/14/99 11:58
+1 ;;8.0;KERNEL;**118**;Jul 10, 1995
+2 ;
UPDATE ;Set Logic For MUMPS X-Refs: Tell Managers To Update Site Parameters
+1 NEW X,ZTI,ZTM,ZTN,ZTV,$ESTACK,$ETRAP
+2 ;Trap down links when telling managers to update
SET $ETRAP="S $ECODE="""" Q "
+3 SET ZTV=0
U0 FOR ZTI=0:0
SET ZTV=$ORDER(^%ZIS(14.5,ZTV))
if 'ZTV
QUIT
SET X=$GET(^%ZIS(14.5,ZTV,0))
Begin DoDot:1
+1 SET ZTN=$PIECE(X,U)
SET ZTM=$PIECE(X,U,6)
if ZTN=""
QUIT
+2 IF ZTN'=^%ZOSF("VOL")
LOCK +^[ZTM,ZTN]%ZTSCH("UPDATE")
KILL ^[ZTM,ZTN]%ZTSCH("UPDATE")
LOCK -^[ZTM,ZTN]%ZTSCH("UPDATE")
+3 QUIT
End DoDot:1
+4 LOCK +^%ZTSCH("UPDATE")
KILL ^%ZTSCH("UPDATE")
LOCK -^%ZTSCH("UPDATE")
QUIT
+5 ;
