XUTMG14P.m

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 ---XUTMG14P   634     printed  Apr 09, 2024@21:07:58                                                                                                                                                                                                     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       ;