Last change
on this file since 668 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
953 bytes
|
Line | |
---|
1 | XUTMKA ;ISF/RWF - Send alerts for Taskman ;11/23/99 07:57
|
---|
2 | ;;8.0;KERNEL;**127**
|
---|
3 | EN1 N CNT K ^TMP($J)
|
---|
4 | W !,"List of Devices that haven't been successfully opened.",!
|
---|
5 | D DEVTRY(3600)
|
---|
6 | D SHOW,CLEAR
|
---|
7 | Q
|
---|
8 | ;
|
---|
9 | CLEAR ;Clear the DEVTRY nodes.
|
---|
10 | K ^%ZTSCH("DEVTRY")
|
---|
11 | Q
|
---|
12 | TASK ;Queued task entry point
|
---|
13 | N CNT,XMB,XMTEXT K ^TMP($J)
|
---|
14 | D LOG("From "_$$KSP^XUPARAM("WHERE")_" on "_$$HTE^XLFDT($H))
|
---|
15 | D DEVTRY(3600)
|
---|
16 | I CNT>1 S XMB="XUTM PROBLEM DEVICES",XMTEXT="^TMP($J," D ^XMB
|
---|
17 | D CLEAR
|
---|
18 | Q
|
---|
19 | DEVTRY(OFFSET) ;Look at the ^%ZTSCH("DEVTRY" nodes to see about problem devices
|
---|
20 | N DEV,TIME,DTIME
|
---|
21 | S TIME=$$H3^%ZTM($H),DEV=""
|
---|
22 | F S DEV=$O(^%ZTSCH("DEVTRY",DEV)) Q:DEV="" D
|
---|
23 | . S DTIME=$G(^%ZTSCH("DEVTRY",DEV)) Q:DTIME=""
|
---|
24 | . I (DTIME+OFFSET)<TIME D LOG("Device "_DEV_" has not been successfully opened since "_$$HTE^XLFDT($$H0^%ZTM(DTIME)))
|
---|
25 | . Q
|
---|
26 | Q
|
---|
27 | LOG(MSG) ;Add text to report
|
---|
28 | S CNT=$G(CNT)+1,^TMP($J,CNT,0)=MSG
|
---|
29 | Q
|
---|
30 | ;
|
---|
31 | SHOW ;Show text
|
---|
32 | N %
|
---|
33 | F %=1:1 Q:'$D(^TMP($J,%,0)) W !,^(0)
|
---|
34 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.