- 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 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
- +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