ABPVPRT.m

ABPVPRT ;CONTROL PRINT FOR 80 COLUMNS [ 06/02/91  12:54 PM ]

 ;;2.0;FACILITY PVT-INS TRACKING;*0*;IHS-OKC/KJR;AUGUST 7, 1991

COMP ;ENTRY POINT. Compressed print for printer.

 K A("PRINT") I $D(^%ZIS(2,IOST(0),12.1)) D

 .S A("PRINT",16)=^(12.1) ; Code for compressed print.

 I $D(^%ZIS(2,IOST(0),5)),$P(^(5),"^",1)'="" D

 .S A("PRINT",10)=$P(^(5),"^",1) ; Code for standard print.

 I $D(A("PRINT",10)) S IOP=IO_";132" D

 .D ^%ZIS U IO W @A("PRINT",16) ; Set for compressed print.

 Q

ABPVPRT   ;CONTROL PRINT FOR 80 COLUMNS [ 06/02/91  12:54 PM ]

 +1       ;;2.0;FACILITY PVT-INS TRACKING;*0*;IHS-OKC/KJR;AUGUST 7, 1991

COMP      ;ENTRY POINT. Compressed print for printer.

 +1        KILL A("PRINT")

           IF $DATA(^%ZIS(2,IOST(0),12.1))

               Begin DoDot:1

 +2       ; Code for compressed print.

                   SET A("PRINT",16)=^(12.1)

               End DoDot:1

 +3        IF $DATA(^%ZIS(2,IOST(0),5))

               IF $PIECE(^(5),"^",1)'=""

                   Begin DoDot:1

 +4       ; Code for standard print.

                       SET A("PRINT",10)=$PIECE(^(5),"^",1)

                   End DoDot:1

 +5        IF $DATA(A("PRINT",10))

               SET IOP=IO_";132"

               Begin DoDot:1

 +6       ; Set for compressed print.

                   DO ^%ZIS

                   USE IO

                   WRITE @A("PRINT",16)

               End DoDot:1

 +7        QUIT