| 1 | XBVDF ; IHS/ASDST/DMJ - VIDEO DISPLAY FEATURES ; [ 10/07/2004 3:00 PM ]
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | EN(X) ;EP
|
|---|
| 4 | I X="" Q X
|
|---|
| 5 | I '$L($T(@X)) S X="" Q X
|
|---|
| 6 | S XB1("X")=$X
|
|---|
| 7 | I '$G(IOST(0)) S IOP=0 D ^%ZIS
|
|---|
| 8 | I '$D(XBVDF(+IOST(0),X)) D
|
|---|
| 9 | .S XB1("LN")=$T(@X),XB1(1)=$P(XB1("LN"),";;",2),XB1(2)=$P(XB1("LN"),";;",3),XB1(3)=$P(XB1("LN"),";;",4)
|
|---|
| 10 | .S XBVDF(+IOST(0),X)=$P($G(^%ZIS(2,+IOST(0),XB1(1))),"^",XB1(2),XB1(3))
|
|---|
| 11 | .I XBVDF(+IOST(0),X)="" S XBVDF(+IOST(0),X)="*0"
|
|---|
| 12 | W @XBVDF(+IOST(0),X)
|
|---|
| 13 | S $X=XB1("X")
|
|---|
| 14 | S X=""
|
|---|
| 15 | K XB1
|
|---|
| 16 | Q X
|
|---|
| 17 | ;GLOBAL LOCATIONS TO FOLLOW
|
|---|
| 18 | HIN ;;7;;1;;1;;HI INTENSITY ON
|
|---|
| 19 | HIX ;;7;;2;;2;;HI INTENSITY OFF
|
|---|
| 20 | RVN ;;5;;4;;4;;REVERSE VIDEO ON
|
|---|
| 21 | RVX ;;5;;5;;5;;REVERSE VIDEO OFF
|
|---|
| 22 | ULN ;;6;;4;;4;;UNDERLINE ON
|
|---|
| 23 | ULX ;;6;;5;;5;;UNDERLINE OFF
|
|---|
| 24 | DTP ;;17;;1;;1;;DOUBLE HIGH TOP HALF
|
|---|
| 25 | DTB ;;17;;2;;2;;DOUBLE HIGH BOTTOM HALF
|
|---|
| 26 | BLN ;;5;;8;;8;;BLINK ON
|
|---|
| 27 | BLX ;;5;;9;;9;;BLINK OFF
|
|---|
| 28 | CUP ;;8;;1;;1;;CURSOR UP
|
|---|
| 29 | IOF ;;1;;2;;2;;FORM FEED/CLEAR SCREEN
|
|---|
| 30 | 10 ;;5;;1;;1;;TEN PITCH
|
|---|
| 31 | 12 ;;5;;2;;2;;TWELVE PITCH
|
|---|
| 32 | 16 ;;12.1;;1;;250;;SIXTEEN PITCH
|
|---|
| 33 | BKF ;;CLRBKF;;1;;1;;BLACK FOREGROUND
|
|---|
| 34 | BKB ;;CLRBKB;;1;;1;;BLACK BACKGROUND
|
|---|
| 35 | REF ;;CLRREF;;1;;1;;RED FOREGROUND
|
|---|
| 36 | REB ;;CLRREB;;1;;1;;RED BACKGROUND
|
|---|
| 37 | GRF ;;CLRGRF;;1;;1;;GREEN FOREGROUND
|
|---|
| 38 | GRB ;;CLRGRB;;1;;1;;GREEN BACKGROUND
|
|---|
| 39 | YEF ;;CLRYEF;;1;;1;;YELLOW FOREGROUND
|
|---|
| 40 | YEB ;;CLRYEB;;1;;1;;YELLOW BACKGROUND
|
|---|
| 41 | BLF ;;CLRBLF;;1;;1;;BLUE FOREGROUND
|
|---|
| 42 | BLB ;;CLRBLB;;1;;1;;BLUE BACKGROUND
|
|---|
| 43 | MGF ;;CLRMGF;;1;;1;;MAGENTA FOREGROUND
|
|---|
| 44 | MGB ;;CLRMGB;;1;;1;;MAGENTA BACKGROUND
|
|---|
| 45 | CYF ;;CLRCYF;;1;;1;;CYAN FOREGROUND
|
|---|
| 46 | CYB ;;CLRCYB;;1;;1;;CYAN BACKGROUND
|
|---|
| 47 | WHF ;;CLRWHF;;1;;1;;WHITE FOREGROUND
|
|---|
| 48 | WHB ;;CLRWHB;;1;;1;;WHITE BACKGROUND
|
|---|
| 49 | CLR ;;6;;1;;1;;RESET
|
|---|
| 50 | HOM ;;5;;3;;3;;HOME CURSOR
|
|---|
