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

BPSRPT7A.m

Go to the documentation of this file. 
  1. BPSRPT7A ;AITC/CKB - ECME REPORTS ;3/9/2020
  1.  ;;1.0;E CLAIMS MGMT ENGINE;**28**;JUN 2004;Build 22
  1.  ;;Per VA Directive 6402, this routine should not be modified.
  1.  ;
  1.  Q
  1.  ;
  1.  ;Routine to Display the Reports (Continued - moved from BPSRPT7)
  1.  ;
  1.  ; Input Variables -> BPCLM = Array of report data by date
  1.  ;                   BPDIV,BPSUMDET,GTOT
  1.  ; Returned Value -> Cumulative Grand Totals
  1.  ; 
  1. PTBDT(BPDIV,BPSUMDET,BPCLM,GTOT) N DIFF,I,NP,RDT,TOT,X
  1.  ;
  1.  ;Loop through compiled array and display
  1.  S TOT=""
  1.  S RDT="" F  S RDT=$O(BPCLM(RDT)) Q:RDT=""  D  Q:BPQ
  1.  .S NP=$$CHKP^BPSRPT5(1) Q:BPQ
  1.  .S X=$G(BPCLM(RDT))
  1.  .;
  1.  .;Print Details - Report
  1.  .I BPSUMDET=0,'BPEXCEL D
  1.  ..W !,$$DATTIM^BPSRPT1(RDT) ;Date
  1.  ..W ?15,$J(+$P(X,U),17) ;#Claims
  1.  ..W ?33,$J(+$P(X,U,2),17,2)  ;Amount Submitted
  1.  ..W ?51,$J(+$P(X,U,3),17,2)  ;Returned Rejected
  1.  ..W ?69,$J(+$P(X,U,4),17,2)  ;Returned Payable
  1.  ..W ?87,$J(+$P(X,U,5),17,2)  ;Amount to Receive
  1.  ..;
  1.  ..;Difference
  1.  ..S DIFF=+$P(X,U,4)-$P(X,U,5)
  1.  ..I DIFF<0 S DIFF="<"_$TR($J(-DIFF,15,2)," ")_">" W ?117,$J(DIFF,15)
  1.  ..E  W ?116,$J(DIFF,15,2)
  1.  ..;
  1.  ..;Print Details - Excel
  1.  .I BPSUMDET=0,BPEXCEL D
  1.  ..;
  1.  ..;Division
  1.  ..W !,$S(BPDIV=0:"BLANK",$$DIVNAME^BPSSCRDS(BPDIV)]"":$$DIVNAME^BPSSCRDS(BPDIV),1:BPDIV),U
  1.  ..W $$DATTIM^BPSRPT1(RDT),U  ;Date
  1.  ..W +$P(X,U),U ;#Claims
  1.  ..W $TR($J(+$P(X,U,2),17,2)," "),U  ;Amount Submitted
  1.  ..W $TR($J(+$P(X,U,3),17,2)," "),U  ;Returned Rejected
  1.  ..W $TR($J(+$P(X,U,4),17,2)," "),U  ;Returned Payable
  1.  ..W $TR($J(+$P(X,U,5),17,2)," "),U  ;Amount to Receive
  1.  ..;
  1.  ..;Difference
  1.  ..S DIFF=+$P(X,U,4)-$P(X,U,5)
  1.  ..W $TR($J(DIFF,15,2)," ")
  1.  .;
  1.  .;Save Totals
  1.  .F I=1:1:5 S $P(TOT,U,I)=$P(TOT,U,I)+$P(X,U,I),$P(GTOT,U,I)=$P($G(GTOT),U,I)+$P(X,U,I)
  1.  ;
  1.  ;Print Totals
  1.  Q:BPEXCEL
  1.  Q:BPQ  S NP=$$CHKP^BPSRPT5(2) Q:BPQ
  1.  D ULINE^BPSRPT5("-")
  1.  W !,"TOTALS"
  1.  W ?15,$J(+$P(TOT,U),17)
  1.  W ?33,$J(+$P(TOT,U,2),17,2)
  1.  W ?51,$J(+$P(TOT,U,3),17,2)
  1.  W ?69,$J(+$P(TOT,U,4),17,2)
  1.  W ?87,$J(+$P(TOT,U,5),17,2)
  1.  S X=$S((+$P(TOT,U,4))=0:0,1:(+$P(TOT,U,5))/(+$P(TOT,U,4)))
  1.  S DIFF=+$P(TOT,U,4)-$P(TOT,U,5)
  1.  I DIFF<0 S DIFF="<"_$TR($J(-DIFF,15,2)," ")_">" W ?117,$J(DIFF,15)
  1.  E  W ?116,$J(DIFF,15,2)
  1.  Q
  1.  ;
  1.  ;Print Grand Totals - Report 6
  1.  ;
  1. PGTOT6(GTOT) N DIFF,NP,X
  1.  Q:BPQ  S NP=$$CHKP^BPSRPT5(2) Q:BPQ
  1.  D ULINE^BPSRPT5("-")
  1.  W !,"GRAND TOTALS"
  1.  W ?15,$J(+$P(GTOT,U),17)
  1.  W ?33,$J(+$P(GTOT,U,2),17,2)
  1.  W ?51,$J(+$P(GTOT,U,3),17,2)
  1.  W ?69,$J(+$P(GTOT,U,4),17,2)
  1.  W ?87,$J(+$P(GTOT,U,5),17,2)
  1.  S X=$S((+$P(GTOT,U,4))=0:0,1:(+$P(GTOT,U,5))/(+$P(GTOT,U,4)))
  1.  S DIFF=+$P(GTOT,U,4)-$P(GTOT,U,5)
  1.  I DIFF<0 S DIFF="<"_$TR($J(-DIFF,15,2)," ")_">" W ?117,$J(DIFF,15)
  1.  E  W ?116,$J(DIFF,15,2)
  1.  Q
  1.  ;
  1.  ;Print Grand Totals - Reports 1,2,3,4,5,7,8,9,10
  1.  ;
  1. PGTOT(BPRTYPE,BPGBIL,BPGINS,BPGCOLL,BPGDPAY,BPGCNT,BPGELTM,BPRICE) ;
  1.  I (BPRTYPE=1)!(BPRTYPE=4) D  Q
  1.  .W !!,?83,"----------",?105,"----------",?122,"----------"
  1.  .W !,"GRAND TOTALS",?83,$J(BPGBIL,10,2),?105,$J(BPGINS,10,2),?122,$J(BPGCOLL,10,2)
  1.  .W !,"COUNT",?83,$J(BPGCNT,10),?105,$J(BPGCNT,10),?122,$J(BPGCNT,10)
  1.  .W:BPGCNT !,"MEAN",?83,$J(BPGBIL/BPGCNT,10,2),?105,$J(BPGINS/BPGCNT,10,2),?122,$J(BPGCOLL/BPGCNT,10,2)
  1.  I BPRTYPE=3 D  Q
  1.  .W !!,?100,"----------",?122,"----------"
  1.  .W !,"GRAND TOTALS",?100,$J(BPGBIL,10,2),?122,$J(BPGINS,10,2)
  1.  .W !,"COUNT",?100,$J(BPGCNT,10),?122,$J(BPGCNT,10)
  1.  .W:BPGCNT !,"MEAN",?100,$J(BPGBIL/BPGCNT,10,2),?122,$J(BPGINS/BPGCNT,10,2)
  1.  I BPRTYPE=2 D  Q
  1.  .W !!,?41,"----------"
  1.  .W !,"GRAND TOTALS",?41,$J(BPGBIL,10,2)
  1.  .W !,"COUNT",?41,$J(BPGCNT,10)
  1.  .W:BPGCNT !,"MEAN",?41,$J(BPGBIL/BPGCNT,10,2)
  1.  I (BPRTYPE=5) D  Q
  1.  .W !!,"GRAND TOTALS (ALL DIVISIONS)",?65,"---------------"
  1.  .W !,"TOTAL CLAIMS",?65,$J(BPGCNT,15)
  1.  .W !,"AVERAGE ELAPSED TIME PER CLAIM",?65,$J($S(BPGCNT=0:"0",1:(BPGELTM\BPGCNT)),15)
  1.  I (BPRTYPE=7) D  Q
  1.  .W !!,"GRAND TOTALS (ALL DIVISIONS) BY BILLER"
  1.  .N BPBILR,BPDIV S BPDIV="ALL DIVISIONS"
  1.  .S BPBILR="" F  S BPBILR=$O(BPGCNT(BPBILR)) Q:BPBILR=""  D  Q:BPQ
  1.  ..S NP=$$CHKP^BPSRPT5(1) Q:BPQ
  1.  ..W !,?3,BPBILR,?65,$J($G(BPGCNT(BPBILR)),5)
  1.  .Q:$G(BPQ)
  1.  .W !,?65,"-----"
  1.  .W !,"CLOSED CLAIMS GRAND TOTAL",?65,$J(BPGCNT,5)
  1.  I BPRTYPE=8 D  Q
  1.  .W !!,?78,"----------",?100,"----------",?122,"----------"
  1.  .W !,"GRAND TOTALS",?78,$J(BPGBIL,10,2),?100,$J(BPGINS,10,2),?122,$J(BPGCOLL,10,2)
  1.  .W !,?4,$J($P(BPRICE,U,3),10,2),?23,$J($P(BPRICE,U,4),10,2),?38,$J($P(BPRICE,U,5),10,2),?56,$J($P(BPRICE,U,6),10,2),?81,$J($P(BPRICE,U,7),10,2),?96,$J($P(BPRICE,U,2),10,2),?111,$J($P(BPRICE,U),10,2)
  1.  .W !,"COUNT",?78,$J(BPGCNT,10),?100,$J(BPGCNT,10),?122,$J(BPGCNT,10)
  1.  .W !,?4,$J(BPGCNT,10),?23,$J(BPGCNT,10),?38,$J(BPGCNT,10),?56,$J(BPGCNT,10),?81,$J(BPGCNT,10),?96,$J(BPGCNT,10),?111,$J(BPGCNT,10)
  1.  .W:BPGCNT !,"MEAN",?78,$J(BPGBIL/BPGCNT,10,2),?100,$J(BPGINS/BPGCNT,10,2),?122,$J(BPGCOLL/BPGCNT,10,2)
  1.  .W !,?4,$J($P(BPRICE,U,3)/BPGCNT,10,2),?23,$J($P(BPRICE,U,4)/BPGCNT,10,2),?38,$J($P(BPRICE,U,5)/BPGCNT,10,2)
  1.  .W ?56,$J($P(BPRICE,U,6)/BPGCNT,10,2),?81,$J($P(BPRICE,U,7)/BPGCNT,10,2),?96,$J($P(BPRICE,U,2)/BPGCNT,10,2),?111,$J($P(BPRICE,U)/BPGCNT,10,2)
  1.  ;
  1.  I BPRTYPE=9 D  Q
  1.  .W !!,?84,"----------"
  1.  .W !,"GRAND TOTALS",?84,$J(BPGBIL,10,2)
  1.  .W !,"COUNT",?84,$J(BPGCNT,10)
  1.  .W:BPGCNT !,"MEAN",?84,$J(BPGBIL/BPGCNT,10,2)
  1.  ;
  1.  I BPRTYPE=10 D  Q
  1.  .W !!,?77,"----------",?90,$J("----------",13),?106,"----------",?118,$J("----------",12)
  1.  .W !,"GRAND TOTALS",?77,$J(BPGBIL,10,2),?90,$J(BPGINS,13,2),?106,$J(BPGCOLL,10,2),?118,$J(BPGDPAY,12,2)
  1.  .W !,"COUNT",?77,$J(BPGCNT,10),?90,$J(BPGCNT,13),?106,$J(BPGCNT,10),?118,$J(BPGCNT,12)
  1.  .W:BPGCNT !,"MEAN",?77,$J(BPGBIL/BPGCNT,10,2),?90,$J(BPGINS/BPGCNT,13,2),?106,$J(BPGCOLL/BPGCNT,10,2),?118,$J(BPGDPAY/BPGCNT,12,2)
  1.  Q
  1.  ;
  1.  ;Print Report Insurance Subtotals
  1.  ;
  1. ITOT(BPRTYPE,BPDIV,BPGRPLAN,BPTBIL,BPTINS,BPTCOLL,BPTDPAY,BPCNT,BPRICE) ;
  1.  N BPNP
  1.  I (BPRTYPE=1)!(BPRTYPE=4) D  Q
  1.  .W !!,?83,"----------",?105,"----------",?122,"----------"
  1.  .W !,"SUBTOTALS for INS:",$E(BPGRPLAN,1,50),?83,$J(BPTBIL,10,2),?105,$J(BPTINS,10,2),?122,$J(BPTCOLL,10,2)
  1.  .W !,"COUNT",?83,$J(BPCNT,10),?105,$J(BPCNT,10),?122,$J(BPCNT,10)
  1.  .W:BPCNT !,"MEAN",?83,$J(BPTBIL/BPCNT,10,2),?105,$J(BPTINS/BPCNT,10,2),?122,$J(BPTCOLL/BPCNT,10,2)
  1.  I BPRTYPE=3 D  Q
  1.  .W !!,?100,"----------",?122,"----------"
  1.  .W !,"SUBTOTALS for INS:",$E(BPGRPLAN,1,50),?100,$J(BPTBIL,10,2),?122,$J(BPTINS,10,2)
  1.  .W !,"COUNT",?100,$J(BPCNT,10),?122,$J(BPCNT,10)
  1.  .W:BPCNT !,"MEAN",?100,$J(BPTBIL/BPCNT,10,2),?122,$J(BPTINS/BPCNT,10,2)
  1.  I BPRTYPE=2 D  Q
  1.  .W !!,?41,"----------"
  1.  .W !,"SUBTOTALS for INS:",$E(BPGRPLAN,1,22),?41,$J(BPTBIL,10,2)
  1.  .W !,"COUNT",?41,$J(BPCNT,10)
  1.  .W:BPCNT !,"MEAN",?41,$J(BPTBIL/BPCNT,10,2)
  1.  I (BPRTYPE=7) D  Q
  1.  .W !!,"SUBTOTALS for INS:",$E(BPGRPLAN,1,50)
  1.  .N BPBILR
  1.  .S BPBILR="" F  S BPBILR=$O(BPCNT(BPBILR)) Q:BPBILR=""  D  Q:BPQ
  1.  ..S BPNP=$$CHKP^BPSRPT5(1) Q:BPQ
  1.  ..W !,?3,BPBILR,?65,$J($G(BPCNT(BPBILR)),5)
  1.  .Q:$G(BPQ)
  1.  .W !,?65,"-----"
  1.  .W !,"CLOSED CLAIMS SUBTOTAL",?65,$J(BPCNT,5)
  1.  I BPRTYPE=8 D  Q
  1.  .W !!,?78,"----------",?100,"----------",?122,"----------"
  1.  .W !,"SUBTOTALS for INS:",$E(BPGRPLAN,1,50),?78,$J(BPTBIL,10,2),?100,$J(BPTINS,10,2),?122,$J(BPTCOLL,10,2)
  1.  .W !,?4,$J($P(BPRICE,U,3),10,2),?23,$J($P(BPRICE,U,4),10,2),?38,$J($P(BPRICE,U,5),10,2),?56,$J($P(BPRICE,U,6),10,2),?81,$J($P(BPRICE,U,7),10,2),?96,$J($P(BPRICE,U,2),10,2),?111,$J($P(BPRICE,U),10,2)
  1.  .W !,"COUNT",?78,$J(BPCNT,10),?100,$J(BPCNT,10),?122,$J(BPCNT,10)
  1.  .W !,?4,$J(BPCNT,10),?23,$J(BPCNT,10),?38,$J(BPCNT,10),?56,$J(BPCNT,10),?81,$J(BPCNT,10),?96,$J(BPCNT,10),?111,$J(BPCNT,10)
  1.  .W:BPCNT !,"MEAN",?78,$J(BPTBIL/BPCNT,10,2),?100,$J(BPTINS/BPCNT,10,2),?122,$J(BPTCOLL/BPCNT,10,2)
  1.  .W !,?4,$J($P(BPRICE,U,3)/BPCNT,10,2),?23,$J($P(BPRICE,U,4)/BPCNT,10,2),?38,$J($P(BPRICE,U,5)/BPCNT,10,2),?56,$J($P(BPRICE,U,6)/BPCNT,10,2),?81,$J($P(BPRICE,U,7)/BPCNT,10,2),?96,$J($P(BPRICE,U,2)/BPCNT,10,2),?111,$J($P(BPRICE,U)/BPCNT,10,2)
  1.  ;
  1.  I BPRTYPE=9 D  Q
  1.  .W !!,?84,"----------"
  1.  .W !,"SUBTOTALS for INS:",$E(BPGRPLAN,1,50),?84,$J(BPTBIL,10,2)
  1.  .W !,"COUNT",?84,$J(BPCNT,10)
  1.  .W:BPCNT !,"MEAN",?84,$J(BPTBIL/BPCNT,10,2)
  1.  ;
  1.  I BPRTYPE=10 D  Q
  1.  .W !!,?77,"----------",?90,$J("----------",13),?106,"----------",?118,$J("----------",12)
  1.  .W !,"SUBTOTALS for INS:",$E(BPGRPLAN,1,50),?77,$J(BPTBIL,10,2),?90,$J(BPTINS,13,2),?106,$J(BPTCOLL,10,2),?118,$J(BPTDPAY,12,2)
  1.  .W !,"COUNT",?77,$J(BPCNT,10),?90,$J(BPCNT,13),?106,$J(BPCNT,10),?118,$J(BPCNT,12)
  1.  .W:BPCNT !,"MEAN",?77,$J(BPTBIL/BPCNT,10,2),?90,$J(BPTINS/BPCNT,13,2),?106,$J(BPTCOLL/BPCNT,10,2),?118,$J(BPTDPAY/BPCNT,12,2)
  1.  Q
  1.  ;
  1.  ;Return the Billed Amount
  1.  ;
  1. BILLED(BP59) ;
  1.  Q +$P($G(^BPST(BP59,5)),U,5)
  1.  ;