- 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
