source: FOIAVistA/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSTERM.m@ 952

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

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1HLCSTERM ;ALB/RJS - SET UP VIDEO ATTRIBUTES ;06/27/2007 17:04
2 ;;1.6;HEALTH LEVEL SEVEN;**40,49,122**;Oct 13, 1995;Build 14
3 ;Per VHA Directive 2004-038, this routine should not be modified.
4 ;
5TERM ; -- set up term characteristics
6 N X
7 I '$D(IOST(0)) D HOME^%ZIS
8 S X=$$IO D ENDR^%ZISS
9 S (HLCON,HLCOFF)=""
10 I $E(IOST,1,4)="C-VT" S HLCOFF=$C(13,27,91)_"?25l"_$C(13),HLCON=$C(27,91)_"?25h"
11 Q
12HEADER ;
13 ;Write out Header
14 ;
15 N HLMIDDLE,HLLNGTH,HLJUST
16 W @IOF,!
17 S HLPARAM=$$PARAM^HLCS2
18 S HLSITE=$P(HLPARAM,U,5),HLPROD=$P(HLPARAM,U,3)
19 S HLHDR="SYSTEM LINK MONITOR for "_HLSITE_" ("_HLPROD_" System)"
20 S HLMIDDLE=IOM\2,HLLNGTH=$L(HLHDR)\2,HLJUST=HLMIDDLE-HLLNGTH
21 D WDATA^HLCSMON1(HLJUST,1,IORVON,IORVOFF,HLHDR,75)
22 D WDATA^HLCSMON1(5,4,IOUON,IOUOFF,"NODE",8)
23 D WDATA^HLCSMON1(16,3,"","","MESSAGES",8),WDATA^HLCSMON1(16,4,IOUON,IOUOFF,"RECEIVED",8)
24 D WDATA^HLCSMON1(26,3,"","","MESSAGES",8),WDATA^HLCSMON1(26,4,IOUON,IOUOFF,"PROCESSED",9)
25 D WDATA^HLCSMON1(37,3,"","","MESSAGES",8),WDATA^HLCSMON1(37,4,IOUON,IOUOFF,"TO SEND ",8)
26 D WDATA^HLCSMON1(47,3,"","","MESSAGES",8),WDATA^HLCSMON1(47,4,IOUON,IOUOFF,"SENT ",8)
27 ; patch HL*1.6*122
28 ; D WDATA^HLCSMON1(57,3,"","","DEVICE",8),WDATA^HLCSMON1(57,4,IOUON,IOUOFF,"TYPE ",8)
29 D WDATA^HLCSMON1(57,3,"","","DEVICE",8),WDATA^HLCSMON1(57,4,IOUON,IOUOFF,"TYPE ",6)
30 ;
31 D WDATA^HLCSMON1(66,4,IOUON,IOUOFF,"STATE",8)
32 Q
33KVAR ;
34 D KILL^%ZISS
35 K HLCON,HLCOFF
36 Q
37IO() ; -- what device params
38 Q "IOELALL;IOELEOL;IORESET;IORVON;IORVOFF;IOIL;IOSTBM;IOSC;IORC;IOEDEOP;IOINHI;IOINORM;IOUON;IOUOFF;IOBOFF;IOBON"
39 Q
Note: See TracBrowser for help on using the repository browser.