- 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
