ACPTVDF.m

ACPTVDF ; IHS/ASDST/DMJ,SDR - VIDEO DISPLAY FEATURES;  [ 12/31/2003  1:56 PM ]

 ;;2.09;CPT FILES;;JAN 2, 2009

 ;

EN(X) ;EP

 S ACPT1("X")=$X

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

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

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

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

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

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

 S $X=ACPT1("X")

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

ACPTVDF   ; IHS/ASDST/DMJ,SDR - VIDEO DISPLAY FEATURES;  [ 12/31/2003  1:56 PM ]

 +1       ;;2.09;CPT FILES;;JAN 2, 2009

 +2       ;

EN(X)     ;EP

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

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

               SET IOP=0

               DO ^%ZIS

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

               Begin DoDot:1

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

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

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

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

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

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

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

               End DoDot:1

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

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

 +9        SET X=""

           KILL ACPT1

           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