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/XUTMKA.m@ 623

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

initial load of WorldVistAEHR

File size: 953 bytes
Line 
1XUTMKA ;ISF/RWF - Send alerts for Taskman ;11/23/99 07:57
2 ;;8.0;KERNEL;**127**
3EN1 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 ;
9CLEAR ;Clear the DEVTRY nodes.
10 K ^%ZTSCH("DEVTRY")
11 Q
12TASK ;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
19DEVTRY(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
27LOG(MSG) ;Add text to report
28 S CNT=$G(CNT)+1,^TMP($J,CNT,0)=MSG
29 Q
30 ;
31SHOW ;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.