source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSMON1.m@ 1259

Last change on this file since 1259 was 623, checked in by George Lilly, 15 years ago

revised back to 6/30/08 version

File size: 2.8 KB
Line 
1HLCSMON1 ;SF-Utilities for Driver Program ;02/04/2004 10:25
2 ;;1.6;HEALTH LEVEL SEVEN;**15,40,49,65,109**;Oct 13, 1995
3 ;
4 ;This routine contains several entry points called from HLCSMON
5 ;no input parameters are required. All variables used which are
6 ;not newed here are newed in HLCSMON
7 ;
8DISPLAY ;display link info
9 ;turn of line wrap
10 S HLXX=0,X=0 X ^%ZOSF("RM")
11 F S HLXX=$O(HLARYD(HLXX)) Q:(HLXX'>0) D WLINE(HLXX)
12 ;DISPLAY INCOMING FILER STATUS
13 S HLXX=$$CNTFLR^HLCSUTL2("IN")
14 ;ONLY UPDATE SCREEN IF COUNT HAS CHANGED
15 I (HLXX'=+HLRUNCNT) D
16 .D WDATA(5,17,"","",$J(" ",31)),WDATA^HLCSMON1(5,17,"","","Incoming filers running => ",35)
17 .I (HLXX) D WDATA(32,17,"","",HLXX)
18 .I ('HLXX) D WDATA(32,17,IOINHI,IOINORM,"Zero")
19 .S $P(HLRUNCNT,"^",1)=HLXX
20 ;DISPLAY OUTGOING FILER STATUS
21 S HLXX=$$CNTFLR^HLCSUTL2("OUT")
22 ;ONLY UPDATE SCREEN IF COUNT HAS CHANGED
23 I (HLXX'=+$P(HLRUNCNT,"^",2)) D
24 .D WDATA(5,18,"","",$J(" ",31)),WDATA^HLCSMON1(5,18,"","","Outgoing filers running => ",35)
25 .I (HLXX) D WDATA(32,18,"","",HLXX)
26 .I ('HLXX) D WDATA(32,18,IOINHI,IOINORM,"Zero")
27 .S $P(HLRUNCNT,"^",2)=HLXX
28 S X=$$TM^%ZTLOAD
29 I X'=$G(HLTMSTAT) D
30 .S HLTMSTAT=X
31 .S HLXX=$S('HLTMSTAT:"***TASKMAN NOT RUNNING!!!***",1:"")
32 .I 'HLTMSTAT D WDATA^HLCSMON1(45,17,IOELEOL_IOBON_IORVON,IOBOFF_IORVOFF,HLXX) I 1
33 .E D WDATA(45,17,IOELEOL,"",$J("TaskMan running ",16)) ;D WDATA(5,19,IOELALL,"","")
34 S X=$$STAT^HLCSLM
35 I X'=$G(HLLMSTAT) D
36 .S HLLMSTAT=X Q:HLLMSTAT=3
37 .S HLXX=$S('HLLMSTAT:"***LINK MANAGER NOT RUNNING!!!***",1:"")
38 .I 'HLLMSTAT D WDATA^HLCSMON1(45,18,IOELEOL_IOBON_IORVON,IOBOFF_IORVOFF,HLXX) I 1
39 .E D WDATA^HLCSMON1(45,18,IOELEOL,"",$J("Link Manager running",18))
40 ;Turn terminal line wrap back on
41 D WDATA(45,19,IOELEOL,"",$$SLM^HLEVUTIL) ; HL*1.6*109
42 S X=IOM X ^%ZOSF("RM")
43 Q
44 ;
45WLINE(HLXX) ;write line from HLARYD=current values, HLARYO=old values
46 ;if values haven't changed, don't do anything
47 I HLARYD(HLXX)]"",HLARYD(HLXX)=$G(HLARYO(HLXX)) Q
48 S HLARYO(HLXX)=HLARYD(HLXX),HLERR=$P(HLARYD(HLXX),U,8),DX=1
49 F X=1:1:7 S @$P("HLNODE^HLREC^HLPROC^HLSEND^HLSENT^HLDEV^HLSTAT",U,X)=$E($P(HLARYD(HLXX),U,X)_" ",1,8)
50 ;if link is in error, write node in rev. video
51 I HLERR]"" D WDATA(5,HLXX,IOBON_IORVON,IOBOFF_IORVOFF,HLNODE,8) S DX=14
52 ;Turn off terminal line wrap & inform O/S where cursor is located
53 S DY=HLXX X IOXY,^%ZOSF("XY")
54 W:HLERR="" ?5,HLNODE
55 W ?16,HLREC,?26,HLPROC,?37,HLSEND,?47,HLSENT,?58,HLDEV,?64,HLSTAT
56 Q
57 ;
58WDATA(DX,DY,IO1,IO2,HLDATA,HLENGTH) ;
59 ;
60 ;First erase the data block then write to it. Attributes are
61 ;contained in IO1 & IO2
62 ;
63 N X S X=0 X ^%ZOSF("RM") X ^%ZOSF("XY")
64 ;Turn off terminal line wrap & inform O/S where cursor is located
65 I '$D(HLENGTH) S HLENGTH=$L(HLDATA)
66 X IOXY W IOSC,$E($J(" ",79),1,HLENGTH),IORC W IO1,$E(HLDATA,1,HLENGTH),IO2
67 S X=IOM X ^%ZOSF("RM")
68 ;Turn terminal line wrap back on
69 Q
Note: See TracBrowser for help on using the repository browser.