| 1 | HLCSTERM ;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 | ;
|
|---|
| 5 | TERM ; -- 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
|
|---|
| 12 | HEADER ;
|
|---|
| 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
|
|---|
| 33 | KVAR ;
|
|---|
| 34 | D KILL^%ZISS
|
|---|
| 35 | K HLCON,HLCOFF
|
|---|
| 36 | Q
|
|---|
| 37 | IO() ; -- what device params
|
|---|
| 38 | Q "IOELALL;IOELEOL;IORESET;IORVON;IORVOFF;IOIL;IOSTBM;IOSC;IORC;IOEDEOP;IOINHI;IOINORM;IOUON;IOUOFF;IOBOFF;IOBON"
|
|---|
| 39 | Q
|
|---|
