Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
953 bytes
|
Rev | Line | |
---|
[628] | 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.