LABALARM.m

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 ---LABALARM   678     printed  Apr 09, 2024@20:43:57                                                                                                                                                                                                     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