- 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 Feb 18, 2025@23:07:47 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