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