|
Last change
on this file since 1650 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
666 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
