ABMDLBLA.m

ABMDLBLA ; IHS/ASDST/DMJ - PRINT LABEL ALIGNMENT TEST PATTERN ; 

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

 ;Original;TMD;

 ;

TST I '$D(IO("S")) U IO(0)

 E  D SLV

 K DIR,%P S DIR(0)="Y",DIR("A",1)="         (NOTE: Mailing Labels should be loaded in the printer.)",DIR("A",2)="",DIR("A")="PRINT TEST ALIGNMENT PATTERN",DIR("B")="N" D ^DIR K DIR

 I $D(DIRUT) S Y=0

 Q:$D(DUOUT)!$D(DTOUT)!$D(DIROUT)!(Y=0)

 ;

LBL I '$D(IO("S")) U IO(0)

 E  X ABM("CLOSE")

 W !!?10,"(Printing Alignment Test)",!

 I '$D(IO("S")) U IO

 E  X ABM("OPEN")

MARG I $D(^ABMDPARM(DUZ(2),1,0)) S ABM("LM")=$P(^(0),U,11),ABM("TM")=$P(^(0),U,12)

 W $$EN^ABMVDF("IOF")

 I +ABM("TM") F ABM=1:1:ABM("TM") W !

 F ABM=1:1:5 D

 .F ABM("L")=1:1:3 W !?ABM("LM"),"******************************"

 .F ABM("L")=3:1:ABM("LINES") W !

 I '$D(IO("S")) U IO(0)

 E  X ABM("CLOSE")

 W ! S DIR(0)="Y",DIR("A")="IS THE ALIGNMENT CORRECT",DIR("B")="Y" D ^DIR K DIR

 I $D(DIRUT) S Y=1

 Q:$D(DUOUT)!$D(DTOUT)!$D(DIROUT)!(Y=1)

ADJ W ! S DIR("?")="Enter the desired left tab margin",DIR("A")="LEFT MARGIN",DIR(0)="N^0:20:0",DIR("B")=$P(^ABMDPARM(DUZ(2),1,0),U,11) D ^DIR K DIR

 Q:$D(DUOUT)!$D(DTOUT)!$D(DIROUT)

 S DIE="^ABMDPARM(DUZ(2),",DA=1,DR=".11////"_Y D ^ABMDDIE

 W ! S DIR("?")="Enter the number of lines to skip prior to printing",DIR("A")="TOP MARGIN",DIR(0)="N^0:20:0",DIR("B")=$P(^ABMDPARM(DUZ(2),1,0),U,12) D ^DIR K DIR

 G XIT:$D(DUOUT)!$D(DTOUT)!$D(DIROUT)

 S DIE="^ABMDPARM(DUZ(2),",DA=1,DR=".12////"_Y D ^ABMDDIE

 G LBL

 ;

XIT Q

 ;

SLV S ABM("OPEN")=$P(^%ZIS(2,IO("S"),10),"^"),ABM("CLOSE")=$P(^%ZIS(2,IO("S"),11),"^") X ABM("CLOSE")

 Q

ABMDLBLA  ; IHS/ASDST/DMJ - PRINT LABEL ALIGNMENT TEST PATTERN ; 

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

 +2       ;Original;TMD;

 +3       ;

TST        IF '$DATA(IO("S"))

               USE IO(0)

 +1       IF '$TEST

               DO SLV

 +2        KILL DIR,%P

           SET DIR(0)="Y"

           SET DIR("A",1)="         (NOTE: Mailing Labels should be loaded in the printer.)"

           SET DIR("A",2)=""

           SET DIR("A")="PRINT TEST ALIGNMENT PATTERN"

           SET DIR("B")="N"

           DO ^DIR

           KILL DIR

 +3        IF $DATA(DIRUT)

               SET Y=0

 +4        IF $DATA(DUOUT)!$DATA(DTOUT)!$DATA(DIROUT)!(Y=0)

               QUIT 

 +5       ;

LBL        IF '$DATA(IO("S"))

               USE IO(0)

 +1       IF '$TEST

               XECUTE ABM("CLOSE")

 +2        WRITE !!?10,"(Printing Alignment Test)",!

 +3        IF '$DATA(IO("S"))

               USE IO

 +4       IF '$TEST

               XECUTE ABM("OPEN")

MARG       IF $DATA(^ABMDPARM(DUZ(2),1,0))

               SET ABM("LM")=$PIECE(^(0),U,11)

               SET ABM("TM")=$PIECE(^(0),U,12)

 +1        WRITE $$EN^ABMVDF("IOF")

 +2        IF +ABM("TM")

               FOR ABM=1:1:ABM("TM")

                   WRITE !

 +3        FOR ABM=1:1:5

               Begin DoDot:1

 +4                FOR ABM("L")=1:1:3

                       WRITE !?ABM("LM"),"******************************"

 +5                FOR ABM("L")=3:1:ABM("LINES")

                       WRITE !

               End DoDot:1

 +6        IF '$DATA(IO("S"))

               USE IO(0)

 +7       IF '$TEST

               XECUTE ABM("CLOSE")

 +8        WRITE !

           SET DIR(0)="Y"

           SET DIR("A")="IS THE ALIGNMENT CORRECT"

           SET DIR("B")="Y"

           DO ^DIR

           KILL DIR

 +9        IF $DATA(DIRUT)

               SET Y=1

 +10       IF $DATA(DUOUT)!$DATA(DTOUT)!$DATA(DIROUT)!(Y=1)

               QUIT 

ADJ        WRITE !

           SET DIR("?")="Enter the desired left tab margin"

           SET DIR("A")="LEFT MARGIN"

           SET DIR(0)="N^0:20:0"

           SET DIR("B")=$PIECE(^ABMDPARM(DUZ(2),1,0),U,11)

           DO ^DIR

           KILL DIR

 +1        IF $DATA(DUOUT)!$DATA(DTOUT)!$DATA(DIROUT)

               QUIT 

 +2        SET DIE="^ABMDPARM(DUZ(2),"

           SET DA=1

           SET DR=".11////"_Y

           DO ^ABMDDIE

 +3        WRITE !

           SET DIR("?")="Enter the number of lines to skip prior to printing"

           SET DIR("A")="TOP MARGIN"

           SET DIR(0)="N^0:20:0"

           SET DIR("B")=$PIECE(^ABMDPARM(DUZ(2),1,0),U,12)

           DO ^DIR

           KILL DIR

 +4        IF $DATA(DUOUT)!$DATA(DTOUT)!$DATA(DIROUT)

               GOTO XIT

 +5        SET DIE="^ABMDPARM(DUZ(2),"

           SET DA=1

           SET DR=".12////"_Y

           DO ^ABMDDIE

 +6        GOTO LBL

 +7       ;

XIT        QUIT 

 +1       ;

SLV        SET ABM("OPEN")=$PIECE(^%ZIS(2,IO("S"),10),"^")

           SET ABM("CLOSE")=$PIECE(^%ZIS(2,IO("S"),11),"^")

           XECUTE ABM("CLOSE")

 +1        QUIT