ABPABVR.m

ABPABVR ;PAYMENT BATCH VERIFICATION REPORT [ 05/24/91  1:10 PM ]

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

A0 D END,^%AUCLS W !!

 W "Print PAYMENT BATCH VERIFICATION REPORT.....",!!!

FRDT K DIC S DIC("A")="Select PAYMENT BATCH BEGINNING DATE: "

 S DIC="^ABPAPBAT(",DIC(0)="AEQZ" D ^DIC

 I +Y<0 G END

 S FR=+$E(+Y,4,5)_"/"_+$E(+Y,6,7)_"/"_+$E(+Y,2,3)

TODT K DIC S DIC("A")="Select PAYMENT BATCH ENDING DATE: "

 S DIC="^ABPAPBAT(",DIC(0)="AEQZ" W !! D ^DIC

 I +Y<0 G FRDT

 L ^ABPAPBAT(+Y,0):3 I '$T D  G A0

 .W *7,!!?15,"<<< BATCH FILE IN USE - CANNOT ACCESS >>>"

 S TO=+$E(+Y,4,5)_"/"_+$E(+Y,6,7)_"/"_+$E(+Y,2,3)

SORT W !!,"THIS REPORT CAN BE SORTED BY",!!?5,"1 - PAYMENT BATCH DATE"

 W !?5,"2 - FACILITY NAME",!!,"Select your SORT PREFERENCE// "

 R ABPAX:DTIME I '$T G A0

 I ABPAX["^" G A0

 I (+ABPAX<1)!(+ABPAX>2) W *7,"  ??"

 W $S(+ABPAX=1:"  PAYMENT BATCH DATE",1:"  FACILITY NAME")

 S BY=$S(+ABPAX=1:"[ABPABVR1]",1:"[ABPABVR2]"),L=0,DIC="^ABPVAO("

 S DHD="AO PRIVATE INSURANCE - BATCH VERIFICATION REPORT - "

 S DHD=$S(BY="[ABPABVR1]":DHD_"DATE ORDER",1:DHD_"FACILITY ORDER")

 F ABPAI=$L(DHD):1:79 S DHD=DHD_" "

 S DHD=DHD_"For the period:  "_FR_" through "_TO

 I BY="[ABPABVR2]" D

 .S FR="A,"_FR_",STANDARD"

 .S TO="ZZZZZ,"_TO_",STANDARD"

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

DIP W ! D EN1^DIP D PAUSE^ABPAMAIN

END K DIC,X,Y,FR,TO,L,BY,DHD,%ZIS("A"),ABPAX,ABPAI Q

ABPABVR   ;PAYMENT BATCH VERIFICATION REPORT [ 05/24/91  1:10 PM ]

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

A0         DO END

           DO ^%AUCLS

           WRITE !!

 +1        WRITE "Print PAYMENT BATCH VERIFICATION REPORT.....",!!!

FRDT       KILL DIC

           SET DIC("A")="Select PAYMENT BATCH BEGINNING DATE: "

 +1        SET DIC="^ABPAPBAT("

           SET DIC(0)="AEQZ"

           DO ^DIC

 +2        IF +Y<0

               GOTO END

 +3        SET FR=+$EXTRACT(+Y,4,5)_"/"_+$EXTRACT(+Y,6,7)_"/"_+$EXTRACT(+Y,2,3)

TODT       KILL DIC

           SET DIC("A")="Select PAYMENT BATCH ENDING DATE: "

 +1        SET DIC="^ABPAPBAT("

           SET DIC(0)="AEQZ"

           WRITE !!

           DO ^DIC

 +2        IF +Y<0

               GOTO FRDT

 +3        LOCK ^ABPAPBAT(+Y,0):3

           IF '$TEST

               Begin DoDot:1

 +4                WRITE *7,!!?15,"<<< BATCH FILE IN USE - CANNOT ACCESS >>>"

               End DoDot:1

               GOTO A0

 +5        SET TO=+$EXTRACT(+Y,4,5)_"/"_+$EXTRACT(+Y,6,7)_"/"_+$EXTRACT(+Y,2,3)

SORT       WRITE !!,"THIS REPORT CAN BE SORTED BY",!!?5,"1 - PAYMENT BATCH DATE"

 +1        WRITE !?5,"2 - FACILITY NAME",!!,"Select your SORT PREFERENCE// "

 +2        READ ABPAX:DTIME

           IF '$TEST

               GOTO A0

 +3        IF ABPAX["^"

               GOTO A0

 +4        IF (+ABPAX<1)!(+ABPAX>2)

               WRITE *7,"  ??"

 +5        WRITE $SELECT(+ABPAX=1:"  PAYMENT BATCH DATE",1:"  FACILITY NAME")

 +6        SET BY=$SELECT(+ABPAX=1:"[ABPABVR1]",1:"[ABPABVR2]")

           SET L=0

           SET DIC="^ABPVAO("

 +7        SET DHD="AO PRIVATE INSURANCE - BATCH VERIFICATION REPORT - "

 +8        SET DHD=$SELECT(BY="[ABPABVR1]":DHD_"DATE ORDER",1:DHD_"FACILITY ORDER")

 +9        FOR ABPAI=$LENGTH(DHD):1:79

               SET DHD=DHD_" "

 +10       SET DHD=DHD_"For the period:  "_FR_" through "_TO

 +11       IF BY="[ABPABVR2]"

               Begin DoDot:1

 +12               SET FR="A,"_FR_",STANDARD"

 +13               SET TO="ZZZZZ,"_TO_",STANDARD"

               End DoDot:1

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

DIP        WRITE !

           DO EN1^DIP

           DO PAUSE^ABPAMAIN

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

           QUIT