source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUTMG43.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 951 bytes
Line 
1XUTMG43 ;SEA/RDS - TaskMan: Globals: X-Refs For File 8989.3 ;07/29/98 14:12
2 ;;8.0;KERNEL;**18,65,94**;Jul 03, 1995
3 ;
4SET ;set logic entry point
5 N ZTLOG S ZTLOG=(X="Y") G UPDATE
6 ;
7KILL ;kill logic entry point
8 N ZTLOG S ZTLOG=0 G UPDATE
9 ;
10UPDATE ;shared logic for MUMPS X-ref: Tell MGR to adjust resource logging
11 N X,ZTM,ZTN,ZTV
12 I $D(^%ZTSCH) D
13 . L +^%ZTSCH("LOGRSRC") S:ZTLOG ^%ZTSCH("LOGRSRC")=1 K:'ZTLOG ^%ZTSCH("LOGRSRC") L -^%ZTSCH("LOGRSRC")
14 S ZTV=0
15U1 ;
16 F S ZTV=$O(^%ZIS(14.5,ZTV)) Q:'ZTV D
17 . S ZTREC=$G(^%ZIS(14.5,ZTV,0))
18 . I ZTREC="" Q
19 . I $P(ZTREC,U,3)="N" Q
20 . I $P(ZTREC,U,4)="Y" Q
21 . S X="TRAP^XUTMG43",@^%ZOSF("TRAP")
22 . S ZTN=$P(ZTREC,U)
23 . S ZTM=$P(ZTREC,U,6)
24 . I '$D(^[ZTM,ZTN]%ZTSCH) Q
25 . L +^[ZTM,ZTN]%ZTSCH("LOGRSRC")
26 . I ZTLOG S ^[ZTM,ZTN]%ZTSCH("LOGRSRC")=1
27 . E K ^[ZTM,ZTN]%ZTSCH("LOGRSRC")
28 . L -^[ZTM,ZTN]%ZTSCH("LOGRSRC") Q
29 Q
30 ;
31TRAP ;UPDATE--trap link errors, which represent unaccessible links
32 G U1
33 ;
Note: See TracBrowser for help on using the repository browser.