XUTMG14P.m

XUTMG14P ;SEA/RDS - TaskMan: Globals: X-Refs For Files 14.5 & .7 ;07/14/99  11:58 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 ;;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

 ;

XUTMG14P  ;SEA/RDS - TaskMan: Globals: X-Refs For Files 14.5 & .7 ;07/14/99  11:58 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;**118**;Jul 10, 1995

 +3       ;

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       ;