ACHSPS16.m

ACHSPS16 ; IHS/ITSC/PMF - COMPRESSED PRINTING SETUP ;  [ 10/16/2001   8:16 AM ]

 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 ;

CHK16 ;EP for Compressed print for printer.

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

 Q:'$$DIR^XBDIR("Y","Should Output be in CONDENSED PRINT","Y","","(This report requires 132 Width Printer format)","",1)

 K ACHS("PRINT")

 S ACHS("PRINT",16)=$P($G(^%ZIS(2,IOST(0),12.1)),U)

 S ACHS("PRINT",10)=$P($G(^%ZIS(2,IOST(0),5)),U)

 I ACHS("PRINT",16)="" W !,*7,"=== Condensed Print not set for device -- Request Cancelled.  ===" G ERROR

 I ACHS("PRINT",10)="" W !,*7,"=== Standard Print not set for device -- Request Cancelled.  ===" G ERROR

 Q

 ;

10 ;EP - Reset to standard print.

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

 Q

 ;

ERROR ;

 S ACHS("PRINT","ERROR")=""

 Q

 ;

ACHSPS16  ; IHS/ITSC/PMF - COMPRESSED PRINTING SETUP ;  [ 10/16/2001   8:16 AM ]

 +1       ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 +2       ;

CHK16     ;EP for Compressed print for printer.

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

 +2        IF '$$DIR^XBDIR("Y","Should Output be in CONDENSED PRINT","Y","","(This report requires 132 Width Printer format)","",1)

               QUIT 

 +3        KILL ACHS("PRINT")

 +4        SET ACHS("PRINT",16)=$PIECE($GET(^%ZIS(2,IOST(0),12.1)),U)

 +5        SET ACHS("PRINT",10)=$PIECE($GET(^%ZIS(2,IOST(0),5)),U)

 +6        IF ACHS("PRINT",16)=""

               WRITE !,*7,"=== Condensed Print not set for device -- Request Cancelled.  ==="

               GOTO ERROR

 +7        IF ACHS("PRINT",10)=""

               WRITE !,*7,"=== Standard Print not set for device -- Request Cancelled.  ==="

               GOTO ERROR

 +8        QUIT 

 +9       ;

10        ;EP - Reset to standard print.

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

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

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

                   WRITE @ACHS("PRINT",10)

 +2        QUIT 

 +3       ;

ERROR     ;

 +1        SET ACHS("PRINT","ERROR")=""

 +2        QUIT 

 +3       ;