Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
951 bytes
|
Line | |
---|
1 | XUTMG43 ;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 | ;
|
---|
4 | SET ;set logic entry point
|
---|
5 | N ZTLOG S ZTLOG=(X="Y") G UPDATE
|
---|
6 | ;
|
---|
7 | KILL ;kill logic entry point
|
---|
8 | N ZTLOG S ZTLOG=0 G UPDATE
|
---|
9 | ;
|
---|
10 | UPDATE ;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
|
---|
15 | U1 ;
|
---|
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 | ;
|
---|
31 | TRAP ;UPDATE--trap link errors, which represent unaccessible links
|
---|
32 | G U1
|
---|
33 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.