Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: HLCSTERM

HLCSTERM.m

Go to the documentation of this file.
  1. 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
  1. ;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. TERM ; -- set up term characteristics
  1. N X
  1. I '$D(IOST(0)) D HOME^%ZIS
  1. S X=$$IO D ENDR^%ZISS
  1. S (HLCON,HLCOFF)=""
  1. I $E(IOST,1,4)="C-VT" S HLCOFF=$C(13,27,91)_"?25l"_$C(13),HLCON=$C(27,91)_"?25h"
  1. Q
  1. ;Write out Header
  1. ;
  1. N HLMIDDLE,HLLNGTH,HLJUST
  1. W @IOF,!
  1. S HLPARAM=$$PARAM^HLCS2
  1. S HLSITE=$P(HLPARAM,U,5),HLPROD=$P(HLPARAM,U,3)
  1. S HLHDR="SYSTEM LINK MONITOR for "_HLSITE_" ("_HLPROD_" System)"
  1. S HLMIDDLE=IOM\2,HLLNGTH=$L(HLHDR)\2,HLJUST=HLMIDDLE-HLLNGTH
  1. D WDATA^HLCSMON1(HLJUST,1,IORVON,IORVOFF,HLHDR,75)
  1. D WDATA^HLCSMON1(5,4,IOUON,IOUOFF,"NODE",8)
  1. D WDATA^HLCSMON1(16,3,"","","MESSAGES",8),WDATA^HLCSMON1(16,4,IOUON,IOUOFF,"RECEIVED",8)
  1. D WDATA^HLCSMON1(26,3,"","","MESSAGES",8),WDATA^HLCSMON1(26,4,IOUON,IOUOFF,"PROCESSED",9)
  1. D WDATA^HLCSMON1(37,3,"","","MESSAGES",8),WDATA^HLCSMON1(37,4,IOUON,IOUOFF,"TO SEND ",8)
  1. D WDATA^HLCSMON1(47,3,"","","MESSAGES",8),WDATA^HLCSMON1(47,4,IOUON,IOUOFF,"SENT ",8)
  1. ; patch HL*1.6*122
  1. ; D WDATA^HLCSMON1(57,3,"","","DEVICE",8),WDATA^HLCSMON1(57,4,IOUON,IOUOFF,"TYPE ",8)
  1. D WDATA^HLCSMON1(57,3,"","","DEVICE",8),WDATA^HLCSMON1(57,4,IOUON,IOUOFF,"TYPE ",6)
  1. ;
  1. D WDATA^HLCSMON1(66,4,IOUON,IOUOFF,"STATE",8)
  1. Q
  1. KVAR ;
  1. D KILL^%ZISS
  1. K HLCON,HLCOFF
  1. Q
  1. IO() ; -- what device params
  1. Q "IOELALL;IOELEOL;IORESET;IORVON;IORVOFF;IOIL;IOSTBM;IOSC;IORC;IOEDEOP;IOINHI;IOINORM;IOUON;IOUOFF;IOBOFF;IOBON"
  1. Q