ABMVDF.m

ABMVDF ; IHS/ASDST/DMJ - VIDEO DISPLAY FEATURES ;  

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

EN(X) ;EP

 S ABM1("X")=$X

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

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

 .S ABM1("LN")=$T(@X),ABM1(1)=$P(ABM1("LN"),";;",2),ABM1(2)=$P(ABM1("LN"),";;",3),ABM1(3)=$P(ABM1("LN"),";;",4)

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

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

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

 S $X=ABM1("X")

 S X="" K ABM1 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

ABMVDF    ; IHS/ASDST/DMJ - VIDEO DISPLAY FEATURES ;  

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

EN(X)     ;EP

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

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

               SET IOP=0

               DO ^%ZIS

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

               Begin DoDot:1

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

                   SET ABM1(1)=$PIECE(ABM1("LN"),";;",2)

                   SET ABM1(2)=$PIECE(ABM1("LN"),";;",3)

                   SET ABM1(3)=$PIECE(ABM1("LN"),";;",4)

 +5                SET ABMVDF(+IOST(0),X)=$PIECE($GET(^%ZIS(2,+IOST(0),ABM1(1))),"^",ABM1(2),ABM1(3))

 +6                IF ABMVDF(+IOST(0),X)=""

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

               End DoDot:1

 +7        WRITE @ABMVDF(+IOST(0),X)

 +8        SET $X=ABM1("X")

 +9        SET X=""

           KILL ABM1

           QUIT X

 +10      ;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