BARVDF.m

BARVDF ; IHS/SD/LSL - VIDEO DISPLAY FEATURES ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 ;

EN(X) ; EP

 S BAR1("X")=$X

 I '$G(IOST(0)) S IOP=0 D ^%ZIS

 I '$D(BARVDF(+IOST(0),X)) D

 .S BAR1("LN")=$T(@X)

 .S BAR1(1)=$P(BAR1("LN"),";;",2)

 .S BAR1(2)=$P(BAR1("LN"),";;",3)

 .S BAR1(3)=$P(BAR1("LN"),";;",4)

 .S BARVDF(+IOST(0),X)=$P($G(^%ZIS(2,+IOST(0),BAR1(1))),"^",BAR1(2),BAR1(3))

 .I BARVDF(+IOST(0),X)="" S BARVDF(+IOST(0),X)="*0"

 W @BARVDF(+IOST(0),X)

 S $X=BAR1("X")

 S X=""

 K BAR1

 Q X

 ; *********************************************************************

 ;GLOBAL LOCATIONS TO FOLLOW

 ;

HIN ;;7;;1;;1;;HI INTENSITY ON

HIF ;;7;;2;;2;;HI INTENSITY OFF

RVN ;;5;;4;;4;;REVERSE VIDEO ON

RVF ;;5;;5;;5;;REVERSE VIDEO OFF

ULN ;;6;;4;;4;;UNDERLINE ON

ULF ;;6;;5;;5;;UNDERLINE OFF

DTP ;;17;;1;;1;;DOUBLE HIGH TOP HALF

DTB ;;17;;2;;2;;DOUBLE HIGH BOTTOM HALF

BLN ;;5;;8;;8;;BLINK ON

BLF ;;5;;9;;9;;BLINK OFF

CUP ;;8;;1;;1;;CURSOR UP

IOF ;;1;;2;;2;;FORM FEED/CLEAR SCREEN

10 ;;5;;1;;1;;TEN PITCH

12 ;;5;;2;;2;;TWELVE PITCH

16 ;;12.1;;1;;250;;SIXTEEN PITCH

GRF ;;C;;1;;1;;GREEN FOREGROUND

YEF ;;C;;2;;2;;YELLOW FOREGROUND

CYB ;;C;;3;;3;;CYAN BACKGROUND

REB ;;C;;5;;5;;RED BACKGROUND

WHF ;;C;;4;;4;;WHITE FOREGROUND

CLR ;;6;;1;;1;;RESET

HOM ;;5;;3;;3;;HOME CURSOR

BARVDF    ; IHS/SD/LSL - VIDEO DISPLAY FEATURES ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 +2       ;

EN(X)     ; EP

 +1        SET BAR1("X")=$X

 +2        IF '$GET(IOST(0))

               SET IOP=0

               DO ^%ZIS

 +3        IF '$DATA(BARVDF(+IOST(0),X))

               Begin DoDot:1

 +4                SET BAR1("LN")=$TEXT(@X)

 +5                SET BAR1(1)=$PIECE(BAR1("LN"),";;",2)

 +6                SET BAR1(2)=$PIECE(BAR1("LN"),";;",3)

 +7                SET BAR1(3)=$PIECE(BAR1("LN"),";;",4)

 +8                SET BARVDF(+IOST(0),X)=$PIECE($GET(^%ZIS(2,+IOST(0),BAR1(1))),"^",BAR1(2),BAR1(3))

 +9                IF BARVDF(+IOST(0),X)=""

                       SET BARVDF(+IOST(0),X)="*0"

               End DoDot:1

 +10       WRITE @BARVDF(+IOST(0),X)

 +11       SET $X=BAR1("X")

 +12       SET X=""

 +13       KILL BAR1

 +14       QUIT X

 +15      ; *********************************************************************

 +16      ;GLOBAL LOCATIONS TO FOLLOW

 +17      ;

HIN       ;;7;;1;;1;;HI INTENSITY ON

HIF       ;;7;;2;;2;;HI INTENSITY OFF

RVN       ;;5;;4;;4;;REVERSE VIDEO ON

RVF       ;;5;;5;;5;;REVERSE VIDEO OFF

ULN       ;;6;;4;;4;;UNDERLINE ON

ULF       ;;6;;5;;5;;UNDERLINE OFF

DTP       ;;17;;1;;1;;DOUBLE HIGH TOP HALF

DTB       ;;17;;2;;2;;DOUBLE HIGH BOTTOM HALF

BLN       ;;5;;8;;8;;BLINK ON

BLF       ;;5;;9;;9;;BLINK OFF

CUP       ;;8;;1;;1;;CURSOR UP

IOF       ;;1;;2;;2;;FORM FEED/CLEAR SCREEN

10        ;;5;;1;;1;;TEN PITCH

12        ;;5;;2;;2;;TWELVE PITCH

16        ;;12.1;;1;;250;;SIXTEEN PITCH

GRF       ;;C;;1;;1;;GREEN FOREGROUND

YEF       ;;C;;2;;2;;YELLOW FOREGROUND

CYB       ;;C;;3;;3;;CYAN BACKGROUND

REB       ;;C;;5;;5;;RED BACKGROUND

WHF       ;;C;;4;;4;;WHITE FOREGROUND

CLR       ;;6;;1;;1;;RESET

HOM       ;;5;;3;;3;;HOME CURSOR