XUTMG43 ;SEA/RDS - TaskMan: Globals: X-Refs For File 8989.3 ;07/29/98 14:12
;;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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUTMG43 984 printed Dec 13, 2024@02:13:17 Page 2
XUTMG43 ;SEA/RDS - TaskMan: Globals: X-Refs For File 8989.3 ;07/29/98 14:12
+1 ;;8.0;KERNEL;**18,65,94**;Jul 03, 1995
+2 ;
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 ;
