LABALARM ;SLC/RWF - ALARM FOR LAB ;7/20/90 07:18 ;
;;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLABALARM 678 printed Dec 13, 2024@01:41:24 Page 2
LABALARM ;SLC/RWF - ALARM FOR LAB ;7/20/90 07:18 ;
+1 ;;5.2;AUTOMATED LAB INSTRUMENTS;**42**;Sep 27, 1994
+2 SET LRNOW=$$HTE^XLFDT($HOROLOG,"5MZ")
+3 FOR LRI=0:0
SET LRI=$ORDER(^LAB(62.4,HOME,4,LRI))
if LRI<1
QUIT
SET ZTIO=^(LRI,0)
SET ZTDTH=$HOROLOG
SET ZTRTN="WRITE^LABALARM"
SET ZTDESC="Problem on LSI notice"
SET ZTSAVE("LRNOW")=""
SET ZTSAVE("LANM")=""
DO ^%ZTLOAD
+4 KILL LRIO,LRI,LRNOW,IOP,%
QUIT
WRITE ;DEQUEUE ENTRY
+1 if $DATA(ZTQUEUED)
SET ZTREQ="@"
+2 WRITE $CHAR(7),!!!,$CHAR(7),?18,"********************************************",!!!,$CHAR(7)
+3 WRITE ?33,"Date/Time: ",LRNOW,!!!
+4 WRITE ?10," THE '",LANM,"' INTERFACE ROUTINE MAY NOT BE RUNNING",$CHAR(7),!!!,$CHAR(7)
+5 WRITE ?18,"********************************************",$CHAR(7),!!!,$CHAR(7)
+6 DO ^%ZISC
QUIT
