ABMDR16.m

ABMDR16 ; IHS/ASDST/DMJ - COMPRESSED PRINTING SETUP ;

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

 ;Original;TMD;

 ;

16 ;EP for Compressed print for printer.

 W !?5,"(This report requires 132 Width export format)"

 K ABM("PRINT") S:$D(^%ZIS(2,IOST(0),12.1)) ABM("PRINT",16)=^(12.1)

 I $G(ABM("PRINT",16))="" W !,*7,"=== Condensed Print has not been established for this Device. ===" G XIT

 W ! K DIR S DIR(0)="Y",DIR("A")="Should Output be in CONDENSED PRINT (Y/N)",DIR("B")="Y" D ^DIR K DIR I '$G(Y) K ABM("PRINT") G 10

 Q

10 ;EP for resetting to standard print.

 I $D(^%ZIS(2,IOST(0),5)),$P(^(5),U)'="" S ABM("PRINT",10)=$P(^(5),U)

 I $D(ABM("PRINT",10)) W @ABM("PRINT",10)

 Q

 ;

XIT K ABM("PRINT")

 Q

ABMDR16   ; IHS/ASDST/DMJ - COMPRESSED PRINTING SETUP ;

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

 +2       ;Original;TMD;

 +3       ;

16        ;EP for Compressed print for printer.

 +1        WRITE !?5,"(This report requires 132 Width export format)"

 +2        KILL ABM("PRINT")

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

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

 +3        IF $GET(ABM("PRINT",16))=""

               WRITE !,*7,"=== Condensed Print has not been established for this Device. ==="

               GOTO XIT

 +4        WRITE !

           KILL DIR

           SET DIR(0)="Y"

           SET DIR("A")="Should Output be in CONDENSED PRINT (Y/N)"

           SET DIR("B")="Y"

           DO ^DIR

           KILL DIR

           IF '$GET(Y)

               KILL ABM("PRINT")

               GOTO 10

 +5        QUIT 

10        ;EP for resetting to standard print.

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

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

                   SET ABM("PRINT",10)=$PIECE(^(5),U)

 +2        IF $DATA(ABM("PRINT",10))

               WRITE @ABM("PRINT",10)

 +3        QUIT 

 +4       ;

XIT        KILL ABM("PRINT")

 +1        QUIT