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