Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
666 bytes
|
Line | |
---|
1 | LABALARM ;SLC/RWF - ALARM FOR LAB ;7/20/90 07:18 ;
|
---|
2 | ;;5.2;AUTOMATED LAB INSTRUMENTS;**42**;Sep 27, 1994
|
---|
3 | S LRNOW=$$HTE^XLFDT($H,"5MZ")
|
---|
4 | F LRI=0:0 S LRI=$O(^LAB(62.4,HOME,4,LRI)) Q:LRI<1 S ZTIO=^(LRI,0),ZTDTH=$H,ZTRTN="WRITE^LABALARM",ZTDESC="Problem on LSI notice",ZTSAVE("LRNOW")="",ZTSAVE("LANM")="" D ^%ZTLOAD
|
---|
5 | K LRIO,LRI,LRNOW,IOP,% Q
|
---|
6 | WRITE ;DEQUEUE ENTRY
|
---|
7 | S:$D(ZTQUEUED) ZTREQ="@"
|
---|
8 | W $C(7),!!!,$C(7),?18,"********************************************",!!!,$C(7)
|
---|
9 | W ?33,"Date/Time: ",LRNOW,!!!
|
---|
10 | W ?10," THE '",LANM,"' INTERFACE ROUTINE MAY NOT BE RUNNING",$C(7),!!!,$C(7)
|
---|
11 | W ?18,"********************************************",$C(7),!!!,$C(7)
|
---|
12 | D ^%ZISC Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.