source: WorldVistAEHR/trunk/r/AUTOMATED_LAB_INSTRUMENTS-LA/LABALARM.m@ 861

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

initial load of WorldVistAEHR

File size: 666 bytes
RevLine 
[613]1LABALARM ;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
6WRITE ;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.