HLCSTERM.m

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

HEADER ;

 ;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 ---HLCSTERM   1598     printed  Feb 18, 2025@23:23:35                                                                                                                                                                                                    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 

HEADER    ;

 +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