ABMDRAOT.m

ABMDRAOT ; IHS/ASDST/DMJ - Reprint AO Export Log ; 

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

 ;Original;TMD;

START ;START HERE   

 D REDO^ABMDTX Q:'$G(ABM("ADFN"))

 S ABM("ERROR")=$P(^ABMDAOTX(DUZ(2),ABM("ADFN"),0),"^",3) I ABM("ERROR")'="" D  Q

 .W !,"EXPORT ERROR: ",ABM("ERROR"),!

 .K ABM

 W !,"NOTE: 132 column report."

 S %ZIS="QN" D ^%ZIS

 I IO'=IO(0) D QUE,HOME^%ZIS Q

 I $D(IO("S")) S IOP=ION D ^%ZIS

TM ;ENTER FROM TASK MAN

 S ABM("REDO")=1,ABM("PG")=0

 D DATA^ABMDTX0

 D WRT^ABMDTX0

 I $D(IO("S")) D ^%ZISC

 I $E(IOST,1)="C" S DIR(0)="E" D ^DIR K DIR

 W $$EN^ABMVDF("IOF")

 K ^TMP("ABMDTX",$J),ABM

 Q

QUE ;QUE

 S ZTRTN="TM^ABMDRAOT"

 S ZTDESC="AO Export Log"

 S ZTSAVE("ABM(""ADFN"")")=""

 K ZTSK D ^%ZTLOAD W:$G(ZTSK) !,"Task # ",ZTSK," queued.",!

 Q

ABMDRAOT  ; IHS/ASDST/DMJ - Reprint AO Export Log ; 

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

 +2       ;Original;TMD;

START     ;START HERE   

 +1        DO REDO^ABMDTX

           IF '$GET(ABM("ADFN"))

               QUIT 

 +2        SET ABM("ERROR")=$PIECE(^ABMDAOTX(DUZ(2),ABM("ADFN"),0),"^",3)

           IF ABM("ERROR")'=""

               Begin DoDot:1

 +3                WRITE !,"EXPORT ERROR: ",ABM("ERROR"),!

 +4                KILL ABM

               End DoDot:1

               QUIT 

 +5        WRITE !,"NOTE: 132 column report."

 +6        SET %ZIS="QN"

           DO ^%ZIS

 +7        IF IO'=IO(0)

               DO QUE

               DO HOME^%ZIS

               QUIT 

 +8        IF $DATA(IO("S"))

               SET IOP=ION

               DO ^%ZIS

TM        ;ENTER FROM TASK MAN

 +1        SET ABM("REDO")=1

           SET ABM("PG")=0

 +2        DO DATA^ABMDTX0

 +3        DO WRT^ABMDTX0

 +4        IF $DATA(IO("S"))

               DO ^%ZISC

 +5        IF $EXTRACT(IOST,1)="C"

               SET DIR(0)="E"

               DO ^DIR

               KILL DIR

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

 +7        KILL ^TMP("ABMDTX",$JOB),ABM

 +8        QUIT 

QUE       ;QUE

 +1        SET ZTRTN="TM^ABMDRAOT"

 +2        SET ZTDESC="AO Export Log"

 +3        SET ZTSAVE("ABM(""ADFN"")")=""

 +4        KILL ZTSK

           DO ^%ZTLOAD

           IF $GET(ZTSK)

               WRITE !,"Task # ",ZTSK," queued.",!

 +5        QUIT