Routine: ABPABLST

ABPABLST ;PAYMENT BATCH STATISICAL LISTING;[ 06/26/91  5:55 PM ]

 ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991

 S ABPAHD1="Print PAYMENT BATCH STATISTICAL REPORT" D HEADER^ABPAMAIN

 D ^ABPADATE G:$D(EDT)'=1 END

 S ABPA("DTIN")=BDT D DTCVT^ABPAMAIN S FR=ABPA("DTOUT")

 S ABPA("DTIN")=EDT D DTCVT^ABPAMAIN S TO=ABPA("DTOUT")

 S L=0,DIC="^ABPAPBAT(",BY="[ABPA/BATCH/STATISTICS]"

 S DHD=ABPATLE_" - BATCH STATISTICS - "_FR_" to "_TO

 S %ZIS("A")="Select DEVICE or [Q]ueue: "

 W ! D EN1^DIP D PAUSE^ABPAMAIN

END K BDT,DIC,EDT,X,Y,FR,TO,L,BY,DHD,%ZIS("A")

ABPABLST  ;PAYMENT BATCH STATISICAL LISTING;[ 06/26/91  5:55 PM ]

 +1       ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991

 +2        SET ABPAHD1="Print PAYMENT BATCH STATISTICAL REPORT"

           DO HEADER^ABPAMAIN

 +3        DO ^ABPADATE

           IF $DATA(EDT)'=1

               GOTO END

 +4        SET ABPA("DTIN")=BDT

           DO DTCVT^ABPAMAIN

           SET FR=ABPA("DTOUT")

 +5        SET ABPA("DTIN")=EDT

           DO DTCVT^ABPAMAIN

           SET TO=ABPA("DTOUT")

 +6        SET L=0

           SET DIC="^ABPAPBAT("

           SET BY="[ABPA/BATCH/STATISTICS]"

 +7        SET DHD=ABPATLE_" - BATCH STATISTICS - "_FR_" to "_TO

 +8        SET %ZIS("A")="Select DEVICE or [Q]ueue: "

 +9        WRITE !

           DO EN1^DIP

           DO PAUSE^ABPAMAIN

END        KILL BDT,DIC,EDT,X,Y,FR,TO,L,BY,DHD,%ZIS("A")

ABPABLST.m