XUTMG43.m

XUTMG43 ;SEA/RDS - TaskMan: Globals: X-Refs For File 8989.3 ;07/29/98  14:12 [ 04/02/2003   8:29 AM ]

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

 ;;8.0;KERNEL;**18,65,94**;Jul 03, 1995

 ;

SET ;set logic entry point

 N ZTLOG S ZTLOG=(X="Y") G UPDATE

 ;

KILL ;kill logic entry point

 N ZTLOG S ZTLOG=0 G UPDATE

 ;

UPDATE ;shared logic for MUMPS X-ref: Tell MGR to adjust resource logging

 N X,ZTM,ZTN,ZTV

 I $D(^%ZTSCH) D

 . L +^%ZTSCH("LOGRSRC") S:ZTLOG ^%ZTSCH("LOGRSRC")=1 K:'ZTLOG ^%ZTSCH("LOGRSRC") L -^%ZTSCH("LOGRSRC")

 S ZTV=0

U1 ;

 F  S ZTV=$O(^%ZIS(14.5,ZTV)) Q:'ZTV  D

 . S ZTREC=$G(^%ZIS(14.5,ZTV,0))

 . I ZTREC="" Q

 . I $P(ZTREC,U,3)="N" Q

 . I $P(ZTREC,U,4)="Y" Q

 . S X="TRAP^XUTMG43",@^%ZOSF("TRAP")

 . S ZTN=$P(ZTREC,U)

 . S ZTM=$P(ZTREC,U,6)

 . I '$D(^[ZTM,ZTN]%ZTSCH) Q

 . L +^[ZTM,ZTN]%ZTSCH("LOGRSRC")

 . I ZTLOG S ^[ZTM,ZTN]%ZTSCH("LOGRSRC")=1

 . E  K ^[ZTM,ZTN]%ZTSCH("LOGRSRC")

 . L -^[ZTM,ZTN]%ZTSCH("LOGRSRC") Q

 Q

 ;

TRAP ;UPDATE--trap link errors, which represent unaccessible links

 G U1

 ;

XUTMG43   ;SEA/RDS - TaskMan: Globals: X-Refs For File 8989.3 ;07/29/98  14:12 [ 04/02/2003   8:29 AM ]

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

 +2       ;;8.0;KERNEL;**18,65,94**;Jul 03, 1995

 +3       ;

SET       ;set logic entry point

 +1        NEW ZTLOG

           SET ZTLOG=(X="Y")

           GOTO UPDATE

 +2       ;

KILL      ;kill logic entry point

 +1        NEW ZTLOG

           SET ZTLOG=0

           GOTO UPDATE

 +2       ;

UPDATE    ;shared logic for MUMPS X-ref: Tell MGR to adjust resource logging

 +1        NEW X,ZTM,ZTN,ZTV

 +2        IF $DATA(^%ZTSCH)

               Begin DoDot:1

 +3                LOCK +^%ZTSCH("LOGRSRC")

                   IF ZTLOG

                       SET ^%ZTSCH("LOGRSRC")=1

                   IF 'ZTLOG

                       KILL ^%ZTSCH("LOGRSRC")

                   LOCK -^%ZTSCH("LOGRSRC")

               End DoDot:1

 +4        SET ZTV=0

U1        ;

 +1        FOR 

               SET ZTV=$ORDER(^%ZIS(14.5,ZTV))

               IF 'ZTV

                   QUIT 

               Begin DoDot:1

 +2                SET ZTREC=$GET(^%ZIS(14.5,ZTV,0))

 +3                IF ZTREC=""

                       QUIT 

 +4                IF $PIECE(ZTREC,U,3)="N"

                       QUIT 

 +5                IF $PIECE(ZTREC,U,4)="Y"

                       QUIT 

 +6                SET X="TRAP^XUTMG43"

                   SET @^%ZOSF("TRAP")

 +7                SET ZTN=$PIECE(ZTREC,U)

 +8                SET ZTM=$PIECE(ZTREC,U,6)

 +9                IF '$DATA(^[ZTM,ZTN]%ZTSCH)

                       QUIT 

 +10               LOCK +^[ZTM,ZTN]%ZTSCH("LOGRSRC")

 +11               IF ZTLOG

                       SET ^[ZTM

                       SET ZTN]%ZTSCH("LOGRSRC")=1

 +12              IF '$TEST

                       KILL ^[ZTM,ZTN]%ZTSCH("LOGRSRC")

 +13               LOCK -^[ZTM,ZTN]%ZTSCH("LOGRSRC")

                   QUIT 

               End DoDot:1

 +14       QUIT 

 +15      ;

TRAP      ;UPDATE--trap link errors, which represent unaccessible links

 +1        GOTO U1

 +2       ;