LABALARM.m

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

LABALARM  ; IHS/DIR/AAB - ALARM FOR LAB 7/20/90 07:18 ;

 +1       ;;5.2;LA;**1003**;SEP 01, 1998

 +2       ;

 +3       ;;5.2;AUTOMATED LAB INSTRUMENTS;**42**;Sep 27, 1994

 +4        SET LRNOW=$$HTE^XLFDT($HOROLOG,"5MZ")

 +5        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

 +6        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