Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LABALARM

LABALARM.m

Go to the documentation of this file.
LABALARM ; IHS/DIR/AAB - ALARM FOR LAB 7/20/90 07:18 ;
 ;;5.2;LA;**1003**;SEP 01, 1998
 ;
 ;;5.2;AUTOMATED LAB INSTRUMENTS;**42**;Sep 27, 1994
 S LRNOW=$$HTE^XLFDT($H,"5MZ")
 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
 K LRIO,LRI,LRNOW,IOP,% Q
WRITE ;DEQUEUE ENTRY
 S:$D(ZTQUEUED) ZTREQ="@"
 W $C(7),!!!,$C(7),?18,"********************************************",!!!,$C(7)
 W ?33,"Date/Time: ",LRNOW,!!!
 W ?10,"        THE '",LANM,"' INTERFACE ROUTINE MAY NOT BE RUNNING",$C(7),!!!,$C(7)
 W ?18,"********************************************",$C(7),!!!,$C(7)
 D ^%ZISC Q