|
Last change
on this file since 1154 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.
