HLCSTERM ;ALB/RJS - SET UP VIDEO ATTRIBUTES ;06/27/2007 17:04
;;1.6;HEALTH LEVEL SEVEN;**40,49,122**;Oct 13, 1995;Build 14
;Per VHA Directive 2004-038, this routine should not be modified.
;
TERM ; -- set up term characteristics
N X
I '$D(IOST(0)) D HOME^%ZIS
S X=$$IO D ENDR^%ZISS
S (HLCON,HLCOFF)=""
I $E(IOST,1,4)="C-VT" S HLCOFF=$C(13,27,91)_"?25l"_$C(13),HLCON=$C(27,91)_"?25h"
Q
;Write out Header
;
N HLMIDDLE,HLLNGTH,HLJUST
W @IOF,!
S HLPARAM=$$PARAM^HLCS2
S HLSITE=$P(HLPARAM,U,5),HLPROD=$P(HLPARAM,U,3)
S HLHDR="SYSTEM LINK MONITOR for "_HLSITE_" ("_HLPROD_" System)"
S HLMIDDLE=IOM\2,HLLNGTH=$L(HLHDR)\2,HLJUST=HLMIDDLE-HLLNGTH
D WDATA^HLCSMON1(HLJUST,1,IORVON,IORVOFF,HLHDR,75)
D WDATA^HLCSMON1(5,4,IOUON,IOUOFF,"NODE",8)
D WDATA^HLCSMON1(16,3,"","","MESSAGES",8),WDATA^HLCSMON1(16,4,IOUON,IOUOFF,"RECEIVED",8)
D WDATA^HLCSMON1(26,3,"","","MESSAGES",8),WDATA^HLCSMON1(26,4,IOUON,IOUOFF,"PROCESSED",9)
D WDATA^HLCSMON1(37,3,"","","MESSAGES",8),WDATA^HLCSMON1(37,4,IOUON,IOUOFF,"TO SEND ",8)
D WDATA^HLCSMON1(47,3,"","","MESSAGES",8),WDATA^HLCSMON1(47,4,IOUON,IOUOFF,"SENT ",8)
; patch HL*1.6*122
; D WDATA^HLCSMON1(57,3,"","","DEVICE",8),WDATA^HLCSMON1(57,4,IOUON,IOUOFF,"TYPE ",8)
D WDATA^HLCSMON1(57,3,"","","DEVICE",8),WDATA^HLCSMON1(57,4,IOUON,IOUOFF,"TYPE ",6)
;
D WDATA^HLCSMON1(66,4,IOUON,IOUOFF,"STATE",8)
Q
KVAR ;
D KILL^%ZISS
K HLCON,HLCOFF
Q
IO() ; -- what device params
Q "IOELALL;IOELEOL;IORESET;IORVON;IORVOFF;IOIL;IOSTBM;IOSC;IORC;IOEDEOP;IOINHI;IOINORM;IOUON;IOUOFF;IOBOFF;IOBON"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLCSTERM 1598 printed Nov 22, 2024@17:07:18 Page 2
HLCSTERM ;ALB/RJS - SET UP VIDEO ATTRIBUTES ;06/27/2007 17:04
+1 ;;1.6;HEALTH LEVEL SEVEN;**40,49,122**;Oct 13, 1995;Build 14
+2 ;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
TERM ; -- set up term characteristics
+1 NEW X
+2 IF '$DATA(IOST(0))
DO HOME^%ZIS
+3 SET X=$$IO
DO ENDR^%ZISS
+4 SET (HLCON,HLCOFF)=""
+5 IF $EXTRACT(IOST,1,4)="C-VT"
SET HLCOFF=$CHAR(13,27,91)_"?25l"_$CHAR(13)
SET HLCON=$CHAR(27,91)_"?25h"
+6 QUIT
+1 ;Write out Header
+2 ;
+3 NEW HLMIDDLE,HLLNGTH,HLJUST
+4 WRITE @IOF,!
+5 SET HLPARAM=$$PARAM^HLCS2
+6 SET HLSITE=$PIECE(HLPARAM,U,5)
SET HLPROD=$PIECE(HLPARAM,U,3)
+7 SET HLHDR="SYSTEM LINK MONITOR for "_HLSITE_" ("_HLPROD_" System)"
+8 SET HLMIDDLE=IOM\2
SET HLLNGTH=$LENGTH(HLHDR)\2
SET HLJUST=HLMIDDLE-HLLNGTH
+9 DO WDATA^HLCSMON1(HLJUST,1,IORVON,IORVOFF,HLHDR,75)
+10 DO WDATA^HLCSMON1(5,4,IOUON,IOUOFF,"NODE",8)
+11 DO WDATA^HLCSMON1(16,3,"","","MESSAGES",8)
DO WDATA^HLCSMON1(16,4,IOUON,IOUOFF,"RECEIVED",8)
+12 DO WDATA^HLCSMON1(26,3,"","","MESSAGES",8)
DO WDATA^HLCSMON1(26,4,IOUON,IOUOFF,"PROCESSED",9)
+13 DO WDATA^HLCSMON1(37,3,"","","MESSAGES",8)
DO WDATA^HLCSMON1(37,4,IOUON,IOUOFF,"TO SEND ",8)
+14 DO WDATA^HLCSMON1(47,3,"","","MESSAGES",8)
DO WDATA^HLCSMON1(47,4,IOUON,IOUOFF,"SENT ",8)
+15 ; patch HL*1.6*122
+16 ; D WDATA^HLCSMON1(57,3,"","","DEVICE",8),WDATA^HLCSMON1(57,4,IOUON,IOUOFF,"TYPE ",8)
+17 DO WDATA^HLCSMON1(57,3,"","","DEVICE",8)
DO WDATA^HLCSMON1(57,4,IOUON,IOUOFF,"TYPE ",6)
+18 ;
+19 DO WDATA^HLCSMON1(66,4,IOUON,IOUOFF,"STATE",8)
+20 QUIT
KVAR ;
+1 DO KILL^%ZISS
+2 KILL HLCON,HLCOFF
+3 QUIT
IO() ; -- what device params
+1 QUIT "IOELALL;IOELEOL;IORESET;IORVON;IORVOFF;IOIL;IOSTBM;IOSC;IORC;IOEDEOP;IOINHI;IOINORM;IOUON;IOUOFF;IOBOFF;IOBON"
+2 QUIT
