- 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