Changeset 623 for WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSTERM.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSTERM.m (modified) (1 diff)

WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSTERM.m

@@ -1 @@
-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
+HLCSTERM ;ALB/RJS - SET UP VIDEO ATTRIBUTES - 8/1/94 ;07/28/98  09:43
+ ;;1.6;HEALTH LEVEL SEVEN;**40,49**;Oct 13, 1995
+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)
+ D WDATA^HLCSMON1(57,3,"","","DEVICE",8),WDATA^HLCSMON1(57,4,IOUON,IOUOFF,"TYPE   ",8)
+ 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