Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ABPABVR

ABPABVR.m

Go to the documentation of this file.
  1. 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
  1. A0 D END,^%AUCLS W !!
  1. W "Print PAYMENT BATCH VERIFICATION REPORT.....",!!!
  1. FRDT K DIC S DIC("A")="Select PAYMENT BATCH BEGINNING DATE: "
  1. S DIC="^ABPAPBAT(",DIC(0)="AEQZ" D ^DIC
  1. I +Y<0 G END
  1. S FR=+$E(+Y,4,5)_"/"_+$E(+Y,6,7)_"/"_+$E(+Y,2,3)
  1. TODT K DIC S DIC("A")="Select PAYMENT BATCH ENDING DATE: "
  1. S DIC="^ABPAPBAT(",DIC(0)="AEQZ" W !! D ^DIC
  1. I +Y<0 G FRDT
  1. L ^ABPAPBAT(+Y,0):3 I '$T D G A0
  1. .W *7,!!?15,"<<< BATCH FILE IN USE - CANNOT ACCESS >>>"
  1. S TO=+$E(+Y,4,5)_"/"_+$E(+Y,6,7)_"/"_+$E(+Y,2,3)
  1. SORT W !!,"THIS REPORT CAN BE SORTED BY",!!?5,"1 - PAYMENT BATCH DATE"
  1. W !?5,"2 - FACILITY NAME",!!,"Select your SORT PREFERENCE// "
  1. R ABPAX:DTIME I '$T G A0
  1. I ABPAX["^" G A0
  1. I (+ABPAX<1)!(+ABPAX>2) W *7," ??"
  1. W $S(+ABPAX=1:" PAYMENT BATCH DATE",1:" FACILITY NAME")
  1. S BY=$S(+ABPAX=1:"[ABPABVR1]",1:"[ABPABVR2]"),L=0,DIC="^ABPVAO("
  1. S DHD="AO PRIVATE INSURANCE - BATCH VERIFICATION REPORT - "
  1. S DHD=$S(BY="[ABPABVR1]":DHD_"DATE ORDER",1:DHD_"FACILITY ORDER")
  1. F ABPAI=$L(DHD):1:79 S DHD=DHD_" "
  1. S DHD=DHD_"For the period: "_FR_" through "_TO
  1. I BY="[ABPABVR2]" D
  1. .S FR="A,"_FR_",STANDARD"
  1. .S TO="ZZZZZ,"_TO_",STANDARD"
  1. S %ZIS("A")="Select DEVICE or [Q]ueue: "
  1. DIP W ! D EN1^DIP D PAUSE^ABPAMAIN
  1. END K DIC,X,Y,FR,TO,L,BY,DHD,%ZIS("A"),ABPAX,ABPAI Q