- BARDYSPR ; IHS/SD/TPF - DAYS IN A/R REPORT PRINT DRIVER;
- ;;1.8;IHS ACCOUNTS RECEIVABLE;**16,28**;OCT 26, 2005;Build 92
- ;IHS/SD/SDR 1.8*28 - HEAT224215 - Added code to write comma-delmtd or detl report
- ;IHS/DIT/CPC - 1.8*28 - CR8345 - Changed delimited file format, added spreadsheet XML option
- Q
- ;
- PRINTAPP ;EP -
- N MONTHYR
- S BAR("PG")=0
- D APPHDR
- S (TOTBILLD,TOTCOL,TOTBILLS,TOTVISIT)=0
- S MONTHYR=""
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL APPROVAL","NUMVISIT",MONTHYR)) Q:MONTHYR="" D
- .W !,$$MONTH^BARDYSPR(+$P(MONTHYR," ",2))_" ",$P(MONTHYR," ")
- .W ?20,$J($G(^XTMP("BARDYSVS",$J,"DAYS TO COL APPROVAL","NUMVISIT",MONTHYR)),7,0)
- .W ?30,$J($G(^XTMP("BARDYSVS",$J,"DAYS TO COL APPROVAL","BILLNUM",MONTHYR)),7,0)
- .W ?43,$J($G(^XTMP("BARDYSVS",$J,"DAYS TO COL APPROVAL","AMTBILLD",MONTHYR)),10,2)
- .W ?60,$J($G(^XTMP("BARDYSVS",$J,"DAYS TO COL APPROVAL","COLLAMT",MONTHYR)),10,2)
- .S TOTBILLD=TOTBILLD+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL APPROVAL","AMTBILLD",MONTHYR))
- .S TOTCOL=TOTCOL+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL APPROVAL","COLLAMT",MONTHYR))
- .S TOTBILLS=TOTBILLS+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL APPROVAL","BILLNUM",MONTHYR))
- .S TOTVISIT=TOTVISIT+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL APPROVAL","NUMVISIT",MONTHYR))
- W !?20,"=======",?30,"======="
- W ?45,"========",?60,"=========="
- ;PRINT GRAND TOTALS
- W !,"GRAND TOTALS",?20,$J(TOTVISIT,7,0),?30,$J(TOTBILLS,7,0),?43,$J(TOTBILLD,10,2),?60,$J(TOTCOL,10,2)
- I IOST[("P-") D ^%ZISC Q
- K DIR S DIR(0)="E" D ^DIR
- Q
- APPHDR ;EP -
- S BAR("PG")=BAR("PG")+1
- D HD^BARRHD
- D WHD^BARRHD
- W !!!,"MONTH",?20,"NUMBER",?30,"#",?45,""
- W !,"OF",?20,"OF",?30,"OF",?45,"Billed",?60,"Collection"
- W !,"VISIT",?20,"VISITS",?30,"Bills",?45,"Amount",?60,"Amount"
- Q
- PRINTVIS ;EP -
- N MTH,YR,MONTHYR,ESC
- S ESC=0
- S $P(EQUALS,"=",181)=""
- S BAR(180)=""
- S DOLLARW=14 ;DOLLAR COL WIDTH
- S GENERALW=5 ;UNIT COL WIDTH
- S DECIMALS=2 ;HOW MANY DECIMALS FOR AVERAGES
- S BAR("PG")=0
- I BARY("SUMORDET")="D" D PRNTDET^BARDYSV6 Q ;bar*1.8*27 IHS/SD/SDR HEAT224215
- I BARY("COMMADELIM")=1 D PRTVSCOM^BARDYSV7 Q ;bar*1.8*27 IHS/SD/SDR HEAT224215
- D VISHDR
- ;THESE ARE PAGE SUBTOTALS
- S (COLVISIT,COLWITBL,COLNUMBL,COLBILAM,COLCHKIN,COLCREDY,COLREVDY)=0
- S (COLTPBA,COLTPBX,COLTOPY,COLEARPY,COLLSTPY,COLTOTPS,PGCNT)=0
- S COLTOTPY=0 ;TOT PAY MADE
- S MONTHYR=""
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR)) Q:MONTHYR="" D Q:+$G(ESC)
- .S YR=$P(MONTHYR," ")
- .S MTH=$$MONTH(+$P(MONTHYR," ",2))
- .I (IOST[("C-")),($Y>(IOSL-6)) D VISFOOT K DIR S DIR(0)="E" D ^DIR S ESC=X=U D:'ESC VISHDR
- .I (IOST[("P-")),($Y>(IOSL-16)) D VISFOOT,VISHDR
- .S PGCNT=PGCNT+1
- .;TOT PAYMENTS MADE
- .S COLTOTPY=COLTOTPY+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOT PAY MADE","MONTHYR",MONTHYR))
- .;MONTH of DOS
- .W !,MTH," ",YR
- .;;# of Visits
- .W ?17,$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR))
- .S COLVISIT=COLVISIT+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR))
- .;# Visits with Bills
- .W ?26,$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","WITBILLS","MONTHYR",MONTHYR))
- .S COLWITBL=COLWITBL+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","WITBILLS","MONTHYR",MONTHYR))
- .;# of Bills
- .W ?33,$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR))
- .S COLNUMBL=COLNUMBL+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR))
- .;Billed Amount
- .W ?37,$J($FN($G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","AMTBILLD","MONTHYR",MONTHYR)),"",2),DOLLARW)
- .S COLBILAM=COLBILAM+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","AMTBILLD","MONTHYR",MONTHYR))
- .;AVG Visits Checked in
- .I +^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR)'=0 D
- ..W ?56,$J($G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","AVGCHKIN","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- ..S COLCHKIN=COLCHKIN+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","AVGCHKIN","MONTHYR",MONTHYR))
- .;AVG Days to PCC CREATED
- .I +^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR)'=0 D
- ..W ?65,$J($G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","CREDAYS","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- ..S COLCREDY=COLCREDY+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","CREDAYS","MONTHYR",MONTHYR))
- .;AVG Days to Reviewed
- .I +^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR)'=0 D
- ..W ?77,$J($G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","REVDAYS","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- ..S COLREVDY=COLREVDY+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","REVDAYS","MONTHYR",MONTHYR))
- .;AVG Days to 3P APPROVED
- .I +$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR))'=0 D
- ..W ?90,$J($G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DAYSAPP","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- ..S COLTPBA=COLTPBA+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DAYSAPP","MONTHYR",MONTHYR))
- .;AVG Days to EXPORTED
- .I +$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR))'=0 D
- ..W ?101,$J($G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DAYSEXP","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- ..S COLTPBX=COLTPBX+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DAYSEXP","MONTHYR",MONTHYR))
- .;AVG Days to Payment
- .I +$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOT PAY MADE","MONTHYR",MONTHYR))'=0 D
- ..W ?113,$J($G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DYSTOPAY","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOT PAY MADE","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- ..S COLTOPY=COLTOPY+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DYSTOPAY","MONTHYR",MONTHYR))
- .;AVG Days to First Posting
- .I +$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOT PAY MADE","MONTHYR",MONTHYR))'=0 D
- ..W ?125,$J($G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","EARLYPAY","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOT FIRST PAYMENT MADE","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- ..S COLEARPY=COLEARPY+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","EARLYPAY","MONTHYR",MONTHYR))
- .;AVG Days to Last Posting
- .I +$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOT LAST PAYMENT MADE","MONTHYR",MONTHYR))'=0 D
- ..W ?137,$J($G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","LASTPAY","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOT LAST PAYMENT MADE","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- ..S COLLSTPY=COLLSTPY+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","LASTPAY","MONTHYR",MONTHYR))
- .;Total Posted Amounts
- .W ?155,$J($FN($G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOTPOST","MONTHYR",MONTHYR)),"",2),DOLLARW)
- .S COLTOTPS=COLTOTPS+$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOTPOST","MONTHYR",MONTHYR))
- W !,EQUALS
- ;DO THE GRAND TOTALS
- S MONTHYR=""
- S NUMVISIT("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S NUMVISIT("GRANDTOT")=NUMVISIT("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR)
- W !,"GRAND TOTAL:",?17,NUMVISIT("GRANDTOT")
- S MONTHYR=""
- S WITBILLS("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","WITBILLS","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S WITBILLS("GRANDTOT")=WITBILLS("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","WITBILLS","MONTHYR",MONTHYR)
- W ?26,WITBILLS("GRANDTOT")
- S BILLNUM("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S BILLNUM("GRANDTOT")=BILLNUM("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR)
- W ?33,BILLNUM("GRANDTOT")
- S AMTBILLD("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","AMTBILLD","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S AMTBILLD("GRANDTOT")=AMTBILLD("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","AMTBILLD","MONTHYR",MONTHYR)
- W ?37,$J($FN(AMTBILLD("GRANDTOT"),"",2),DOLLARW)
- S AVGCHKIN("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","AVGCHKIN","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S AVGCHKIN("GRANDTOT")=AVGCHKIN("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","AVGCHKIN","MONTHYR",MONTHYR)
- W:$G(NUMVISIT("GRANDTOT")) ?56,$J(AVGCHKIN("GRANDTOT")/NUMVISIT("GRANDTOT"),GENERALW,DECIMALS)
- S CREDAYS("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","CREDAYS","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S CREDAYS("GRANDTOT")=CREDAYS("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","CREDAYS","MONTHYR",MONTHYR)
- W:$G(NUMVISIT("GRANDTOT")) ?65,$J(CREDAYS("GRANDTOT")/NUMVISIT("GRANDTOT"),GENERALW,DECIMALS)
- S REVDAYS("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","REVDAYS","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S REVDAYS("GRANDTOT")=REVDAYS("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","REVDAYS","MONTHYR",MONTHYR)
- W:$G(NUMVISIT("GRANDTOT")) ?77,$J(REVDAYS("GRANDTOT")/NUMVISIT("GRANDTOT"),GENERALW,DECIMALS)
- S DAYSAPP("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DAYSAPP","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S DAYSAPP("GRANDTOT")=DAYSAPP("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DAYSAPP","MONTHYR",MONTHYR)
- W:$G(BILLNUM("GRANDTOT")) ?90,$J(DAYSAPP("GRANDTOT")/BILLNUM("GRANDTOT"),GENERALW,DECIMALS)
- S DAYSEXP("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DAYSEXP","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S DAYSEXP("GRANDTOT")=DAYSEXP("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DAYSEXP","MONTHYR",MONTHYR)
- W:$G(BILLNUM("GRANDTOT")) ?101,$J(DAYSEXP("GRANDTOT")/BILLNUM("GRANDTOT"),GENERALW,DECIMALS)
- S NUMPAYMT("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOT PAY MADE","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S NUMPAYMT("GRANDTOT")=NUMPAYMT("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOT PAY MADE","MONTHYR",MONTHYR)
- S NUMFIRST("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOT FIRST PAYMENT MADE","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S NUMFIRST("GRANDTOT")=NUMFIRST("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOT FIRST PAYMENT MADE","MONTHYR",MONTHYR)
- S NUMLAST("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOT LAST PAYMENT MADE","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S NUMLAST("GRANDTOT")=NUMLAST("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOT LAST PAYMENT MADE","MONTHYR",MONTHYR)
- S DYSTOPAY("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DYSTOPAY","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S DYSTOPAY("GRANDTOT")=DYSTOPAY("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DYSTOPAY","MONTHYR",MONTHYR)
- W:$G(NUMPAYMT("GRANDTOT")) ?113,$J(DYSTOPAY("GRANDTOT")/NUMPAYMT("GRANDTOT"),GENERALW,DECIMALS)
- S EARLYPAY("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","EARLYPAY","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S EARLYPAY("GRANDTOT")=EARLYPAY("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","EARLYPAY","MONTHYR",MONTHYR)
- W:$G(NUMFIRST("GRANDTOT")) ?125,$J(EARLYPAY("GRANDTOT")/NUMFIRST("GRANDTOT"),GENERALW,DECIMALS)
- S LASTPAY("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","LASTPAY","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S LASTPAY("GRANDTOT")=LASTPAY("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","LASTPAY","MONTHYR",MONTHYR)
- W:$G(NUMLAST("GRANDTOT")) ?137,$J(LASTPAY("GRANDTOT")/NUMLAST("GRANDTOT"),GENERALW,DECIMALS)
- S TOTPOST("GRANDTOT")=0
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOTPOST","MONTHYR",MONTHYR)) Q:MONTHYR="" D
- .S TOTPOST("GRANDTOT")=TOTPOST("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","TOTPOST","MONTHYR",MONTHYR)
- W ?155,$J($FN(TOTPOST("GRANDTOT"),"",2),DOLLARW)
- S TOTNOEXP("GRANDTOT")=0
- S MONTHYR=""
- F S MONTHYR=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","BLLNOEXP","MONTHYR",MONTHYR)) Q:'MONTHYR D
- .S TOTNOEXP("GRANDTOT")=TOTNOEXP("GRANDTOT")+^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","BLLNOEXP","MONTHYR",MONTHYR)
- W !,"TOTAL BILLS WITH NO EXPORT: ",TOTNOEXP("GRANDTOT")
- I IOST[("P-") D ^%ZISC Q
- K DIR S DIR(0)="E" D ^DIR
- Q
- MONTH(X) ;EP -
- Q $S(X=1:"JAN",X=2:"FEB",X=3:"MAR",X=4:"APR",X=5:"MAY",X=6:"JUN",X=7:"JUL",X=8:"AUG",X=9:"SEP",X=10:"OCT",X=11:"NOV",X=12:"DEC",1:"UNK")
- VISHDR ;EP -
- S BAR("PG")=BAR("PG")+1
- S BAR("HD",0)=""
- S BAR("LOC")=""
- S BAR("OPT")="BAR RPT DAYS IN AR"
- D HD^BARRHD
- D WHD^BARRHD
- W !,"",?16,"",?25,"#",?33,"",?43,"",?56,"AVG",?65,"AVG",?77,"AVG",?90,"AVG"
- W ?101,"AVG",?113,"AVG",?125,"AVG",?137,"AVG"
- W !,"Month",?16,"#",?25,"Visits",?33,"#",?43,"",?56,"Visits",?65,"Days",?77,"Days",?90,"Days"
- W ?101,"Date",?113,"Days",?125,"Days",?137,"Days",?163,"Total"
- W !,"of",?16,"of",?25,"with",?33,"of",?43,"Billed",?56,"Checked",?65,"to PCC",?77,"to",?90,"3p Bill"
- W ?101,"Export",?113,"to",?125,"First",?137,"Last",?163,"Posted"
- W !,"DOS",?16,"Visits",?25,"Bills",?33,"Bills",?43,"Amount",?56,"in",?65,"CREATED",?77,"Reviewed",?90,"APPROVED"
- W ?101,"EXPORTED",?113,"Payment",?125,"Posting",?137,"Posting",?163,"Amounts"
- Q
- Q:'$G(PGCNT)
- W !,EQUALS
- W !,"PAGE SUBTOTAL"
- W ?17,COLVISIT
- W ?26,COLWITBL
- W ?33,COLNUMBL
- W ?37,$J($FN(COLBILAM,"",2),DOLLARW)
- W ?56,$J(COLCHKIN/COLVISIT,GENERALW,DECIMALS)
- W ?65,$J(COLCREDY/COLVISIT,GENERALW,DECIMALS)
- W ?77,$J(COLREVDY/COLVISIT,GENERALW,DECIMALS)
- W ?90,$J(COLTPBA/COLVISIT,GENERALW,DECIMALS)
- W ?101,$J(COLTPBX/COLVISIT,GENERALW,DECIMALS)
- W:COLTOPY'=0 ?113,$J(COLTOPY/COLTOTPY,GENERALW,DECIMALS)
- W:COLTOPY'=0 ?125,$J(COLEARPY/COLTOTPY,GENERALW,DECIMALS)
- W:COLTOPY'=0 ?137,$J(COLLSTPY/COLTOTPY,GENERALW,DECIMALS)
- W ?155,$J($FN(COLTOTPS,"",2),DOLLARW)
- S (COLVISIT,COLWITBL,COLNUMBL,COLBILAM,COLCHKIN,COLCREDY,COLREVDY)=0
- S (COLTPBA,COLTPBX,COLTOPY,COLLSTPY,COLTOTPS,PGCNT,COLTOTPY)=0
- D FOOTNOTE
- Q
- ;W !,"NOTE: THE '# OF BILLS' COLUMN MAY NOT EQUAL THE '# OF VISITS WITH BILLS' BECAUSE"
- ;W !?7,"NOT ALL BILLS ARE UTILIZED IN THE CALCULATIONS. I.E. PROVIDER OR BILLING ENITITY NOT CHOSEN TO INCLUDE. BILLS SCREENED=",$G(BILLREJT)
- Q
- ;PULL TOTAL COLLECTIONS FOR DATE RANGE OF INTEREST
- COLLECT(START,END,COLLAMT) ;EP -
- N ENTRY,DEBIT,CREDIT
- S ENTRY=START-.01
- S END=END_".24"
- F S ENTRY=$O(^BARTR(DUZ(2),"B",ENTRY)) Q:ENTRY=""!(ENTRY>END) D
- .S MONTHYR=$E(ENTRY,4,5)_$E(ENTRY,2,3)
- .S THISYR=$E(DT,1,3)
- .S REC=""
- .F S REC=$O(^BARTR(DUZ(2),"B",ENTRY,REC)) Q:'REC D
- ..S POSTAMT=$$GET1^DIQ(90050.03,REC_",",2)
- ..S:POSTAMT="" POSTAMT=$$GET1^DIQ(90050.03,REC_",",3)
- ..S COLLAMT=COLLAMT+POSTAMT
- ..S COLLAMT(MONTHYR)=$G(COLLAMT(MONTHYR))+POSTAMT
- Q
- BARDYSPR ; IHS/SD/TPF - DAYS IN A/R REPORT PRINT DRIVER;
- +1 ;;1.8;IHS ACCOUNTS RECEIVABLE;**16,28**;OCT 26, 2005;Build 92
- +2 ;IHS/SD/SDR 1.8*28 - HEAT224215 - Added code to write comma-delmtd or detl report
- +3 ;IHS/DIT/CPC - 1.8*28 - CR8345 - Changed delimited file format, added spreadsheet XML option
- +4 QUIT
- +5 ;
- PRINTAPP ;EP -
- +1 NEW MONTHYR
- +2 SET BAR("PG")=0
- +3 DO APPHDR
- +4 SET (TOTBILLD,TOTCOL,TOTBILLS,TOTVISIT)=0
- +5 SET MONTHYR=""
- +6 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL APPROVAL","NUMVISIT",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +7 WRITE !,$$MONTH^BARDYSPR(+$PIECE(MONTHYR," ",2))_" ",$PIECE(MONTHYR," ")
- +8 WRITE ?20,$JUSTIFY($GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL APPROVAL","NUMVISIT",MONTHYR)),7,0)
- +9 WRITE ?30,$JUSTIFY($GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL APPROVAL","BILLNUM",MONTHYR)),7,0)
- +10 WRITE ?43,$JUSTIFY($GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL APPROVAL","AMTBILLD",MONTHYR)),10,2)
- +11 WRITE ?60,$JUSTIFY($GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL APPROVAL","COLLAMT",MONTHYR)),10,2)
- +12 SET TOTBILLD=TOTBILLD+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL APPROVAL","AMTBILLD",MONTHYR))
- +13 SET TOTCOL=TOTCOL+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL APPROVAL","COLLAMT",MONTHYR))
- +14 SET TOTBILLS=TOTBILLS+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL APPROVAL","BILLNUM",MONTHYR))
- +15 SET TOTVISIT=TOTVISIT+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL APPROVAL","NUMVISIT",MONTHYR))
- End DoDot:1
- +16 WRITE !?20,"=======",?30,"======="
- +17 WRITE ?45,"========",?60,"=========="
- +18 ;PRINT GRAND TOTALS
- +19 WRITE !,"GRAND TOTALS",?20,$JUSTIFY(TOTVISIT,7,0),?30,$JUSTIFY(TOTBILLS,7,0),?43,$JUSTIFY(TOTBILLD,10,2),?60,$JUSTIFY(TOTCOL,10,2)
- +20 IF IOST[("P-")
- DO ^%ZISC
- QUIT
- +21 KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- +22 QUIT
- APPHDR ;EP -
- +1 SET BAR("PG")=BAR("PG")+1
- +2 DO HD^BARRHD
- +3 DO WHD^BARRHD
- +4 WRITE !!!,"MONTH",?20,"NUMBER",?30,"#",?45,""
- +5 WRITE !,"OF",?20,"OF",?30,"OF",?45,"Billed",?60,"Collection"
- +6 WRITE !,"VISIT",?20,"VISITS",?30,"Bills",?45,"Amount",?60,"Amount"
- +7 QUIT
- PRINTVIS ;EP -
- +1 NEW MTH,YR,MONTHYR,ESC
- +2 SET ESC=0
- +3 SET $PIECE(EQUALS,"=",181)=""
- +4 SET BAR(180)=""
- +5 ;DOLLAR COL WIDTH
- SET DOLLARW=14
- +6 ;UNIT COL WIDTH
- SET GENERALW=5
- +7 ;HOW MANY DECIMALS FOR AVERAGES
- SET DECIMALS=2
- +8 SET BAR("PG")=0
- +9 ;bar*1.8*27 IHS/SD/SDR HEAT224215
- IF BARY("SUMORDET")="D"
- DO PRNTDET^BARDYSV6
- QUIT
- +10 ;bar*1.8*27 IHS/SD/SDR HEAT224215
- IF BARY("COMMADELIM")=1
- DO PRTVSCOM^BARDYSV7
- QUIT
- +11 DO VISHDR
- +12 ;THESE ARE PAGE SUBTOTALS
- +13 SET (COLVISIT,COLWITBL,COLNUMBL,COLBILAM,COLCHKIN,COLCREDY,COLREVDY)=0
- +14 SET (COLTPBA,COLTPBX,COLTOPY,COLEARPY,COLLSTPY,COLTOTPS,PGCNT)=0
- +15 ;TOT PAY MADE
- SET COLTOTPY=0
- +16 SET MONTHYR=""
- +17 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +18 SET YR=$PIECE(MONTHYR," ")
- +19 SET MTH=$$MONTH(+$PIECE(MONTHYR," ",2))
- +20 IF (IOST[("C-"))
- IF ($Y>(IOSL-6))
- DO VISFOOT
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- SET ESC=X=U
- IF 'ESC
- DO VISHDR
- +21 IF (IOST[("P-"))
- IF ($Y>(IOSL-16))
- DO VISFOOT
- DO VISHDR
- +22 SET PGCNT=PGCNT+1
- +23 ;TOT PAYMENTS MADE
- +24 SET COLTOTPY=COLTOTPY+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOT PAY MADE","MONTHYR",MONTHYR))
- +25 ;MONTH of DOS
- +26 WRITE !,MTH," ",YR
- +27 ;;# of Visits
- +28 WRITE ?17,$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR))
- +29 SET COLVISIT=COLVISIT+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR))
- +30 ;# Visits with Bills
- +31 WRITE ?26,$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","WITBILLS","MONTHYR",MONTHYR))
- +32 SET COLWITBL=COLWITBL+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","WITBILLS","MONTHYR",MONTHYR))
- +33 ;# of Bills
- +34 WRITE ?33,$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR))
- +35 SET COLNUMBL=COLNUMBL+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR))
- +36 ;Billed Amount
- +37 WRITE ?37,$JUSTIFY($FNUMBER($GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","AMTBILLD","MONTHYR",MONTHYR)),"",2),DOLLARW)
- +38 SET COLBILAM=COLBILAM+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","AMTBILLD","MONTHYR",MONTHYR))
- +39 ;AVG Visits Checked in
- +40 IF +^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR)'=0
- Begin DoDot:2
- +41 WRITE ?56,$JUSTIFY($GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","AVGCHKIN","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- +42 SET COLCHKIN=COLCHKIN+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","AVGCHKIN","MONTHYR",MONTHYR))
- End DoDot:2
- +43 ;AVG Days to PCC CREATED
- +44 IF +^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR)'=0
- Begin DoDot:2
- +45 WRITE ?65,$JUSTIFY($GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","CREDAYS","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- +46 SET COLCREDY=COLCREDY+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","CREDAYS","MONTHYR",MONTHYR))
- End DoDot:2
- +47 ;AVG Days to Reviewed
- +48 IF +^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR)'=0
- Begin DoDot:2
- +49 WRITE ?77,$JUSTIFY($GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","REVDAYS","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- +50 SET COLREVDY=COLREVDY+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","REVDAYS","MONTHYR",MONTHYR))
- End DoDot:2
- +51 ;AVG Days to 3P APPROVED
- +52 IF +$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR))'=0
- Begin DoDot:2
- +53 WRITE ?90,$JUSTIFY($GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DAYSAPP","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- +54 SET COLTPBA=COLTPBA+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DAYSAPP","MONTHYR",MONTHYR))
- End DoDot:2
- +55 ;AVG Days to EXPORTED
- +56 IF +$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR))'=0
- Begin DoDot:2
- +57 WRITE ?101,$JUSTIFY($GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DAYSEXP","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- +58 SET COLTPBX=COLTPBX+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DAYSEXP","MONTHYR",MONTHYR))
- End DoDot:2
- +59 ;AVG Days to Payment
- +60 IF +$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOT PAY MADE","MONTHYR",MONTHYR))'=0
- Begin DoDot:2
- +61 WRITE ?113,$JUSTIFY($GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DYSTOPAY","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOT PAY MADE","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- +62 SET COLTOPY=COLTOPY+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DYSTOPAY","MONTHYR",MONTHYR))
- End DoDot:2
- +63 ;AVG Days to First Posting
- +64 IF +$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOT PAY MADE","MONTHYR",MONTHYR))'=0
- Begin DoDot:2
- +65 WRITE ?125,$JUSTIFY($GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","EARLYPAY","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOT FIRST PAYMENT MADE","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- +66 SET COLEARPY=COLEARPY+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","EARLYPAY","MONTHYR",MONTHYR))
- End DoDot:2
- +67 ;AVG Days to Last Posting
- +68 IF +$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOT LAST PAYMENT MADE","MONTHYR",MONTHYR))'=0
- Begin DoDot:2
- +69 WRITE ?137,$JUSTIFY($GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","LASTPAY","MONTHYR",MONTHYR))/^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOT LAST PAYMENT MADE","MONTHYR",MONTHYR),GENERALW,DECIMALS)
- +70 SET COLLSTPY=COLLSTPY+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","LASTPAY","MONTHYR",MONTHYR))
- End DoDot:2
- +71 ;Total Posted Amounts
- +72 WRITE ?155,$JUSTIFY($FNUMBER($GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOTPOST","MONTHYR",MONTHYR)),"",2),DOLLARW)
- +73 SET COLTOTPS=COLTOTPS+$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOTPOST","MONTHYR",MONTHYR))
- End DoDot:1
- IF +$GET(ESC)
- QUIT
- +74 WRITE !,EQUALS
- +75 ;DO THE GRAND TOTALS
- +76 SET MONTHYR=""
- +77 SET NUMVISIT("GRANDTOT")=0
- +78 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +79 SET NUMVISIT("GRANDTOT")=NUMVISIT("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","NUMVISIT","MONTHYR",MONTHYR)
- End DoDot:1
- +80 WRITE !,"GRAND TOTAL:",?17,NUMVISIT("GRANDTOT")
- +81 SET MONTHYR=""
- +82 SET WITBILLS("GRANDTOT")=0
- +83 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","WITBILLS","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +84 SET WITBILLS("GRANDTOT")=WITBILLS("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","WITBILLS","MONTHYR",MONTHYR)
- End DoDot:1
- +85 WRITE ?26,WITBILLS("GRANDTOT")
- +86 SET BILLNUM("GRANDTOT")=0
- +87 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +88 SET BILLNUM("GRANDTOT")=BILLNUM("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","BILLNUM","MONTHYR",MONTHYR)
- End DoDot:1
- +89 WRITE ?33,BILLNUM("GRANDTOT")
- +90 SET AMTBILLD("GRANDTOT")=0
- +91 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","AMTBILLD","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +92 SET AMTBILLD("GRANDTOT")=AMTBILLD("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","AMTBILLD","MONTHYR",MONTHYR)
- End DoDot:1
- +93 WRITE ?37,$JUSTIFY($FNUMBER(AMTBILLD("GRANDTOT"),"",2),DOLLARW)
- +94 SET AVGCHKIN("GRANDTOT")=0
- +95 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","AVGCHKIN","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +96 SET AVGCHKIN("GRANDTOT")=AVGCHKIN("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","AVGCHKIN","MONTHYR",MONTHYR)
- End DoDot:1
- +97 IF $GET(NUMVISIT("GRANDTOT"))
- WRITE ?56,$JUSTIFY(AVGCHKIN("GRANDTOT")/NUMVISIT("GRANDTOT"),GENERALW,DECIMALS)
- +98 SET CREDAYS("GRANDTOT")=0
- +99 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","CREDAYS","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +100 SET CREDAYS("GRANDTOT")=CREDAYS("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","CREDAYS","MONTHYR",MONTHYR)
- End DoDot:1
- +101 IF $GET(NUMVISIT("GRANDTOT"))
- WRITE ?65,$JUSTIFY(CREDAYS("GRANDTOT")/NUMVISIT("GRANDTOT"),GENERALW,DECIMALS)
- +102 SET REVDAYS("GRANDTOT")=0
- +103 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","REVDAYS","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +104 SET REVDAYS("GRANDTOT")=REVDAYS("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","REVDAYS","MONTHYR",MONTHYR)
- End DoDot:1
- +105 IF $GET(NUMVISIT("GRANDTOT"))
- WRITE ?77,$JUSTIFY(REVDAYS("GRANDTOT")/NUMVISIT("GRANDTOT"),GENERALW,DECIMALS)
- +106 SET DAYSAPP("GRANDTOT")=0
- +107 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DAYSAPP","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +108 SET DAYSAPP("GRANDTOT")=DAYSAPP("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DAYSAPP","MONTHYR",MONTHYR)
- End DoDot:1
- +109 IF $GET(BILLNUM("GRANDTOT"))
- WRITE ?90,$JUSTIFY(DAYSAPP("GRANDTOT")/BILLNUM("GRANDTOT"),GENERALW,DECIMALS)
- +110 SET DAYSEXP("GRANDTOT")=0
- +111 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DAYSEXP","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +112 SET DAYSEXP("GRANDTOT")=DAYSEXP("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DAYSEXP","MONTHYR",MONTHYR)
- End DoDot:1
- +113 IF $GET(BILLNUM("GRANDTOT"))
- WRITE ?101,$JUSTIFY(DAYSEXP("GRANDTOT")/BILLNUM("GRANDTOT"),GENERALW,DECIMALS)
- +114 SET NUMPAYMT("GRANDTOT")=0
- +115 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOT PAY MADE","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +116 SET NUMPAYMT("GRANDTOT")=NUMPAYMT("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOT PAY MADE","MONTHYR",MONTHYR)
- End DoDot:1
- +117 SET NUMFIRST("GRANDTOT")=0
- +118 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOT FIRST PAYMENT MADE","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +119 SET NUMFIRST("GRANDTOT")=NUMFIRST("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOT FIRST PAYMENT MADE","MONTHYR",MONTHYR)
- End DoDot:1
- +120 SET NUMLAST("GRANDTOT")=0
- +121 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOT LAST PAYMENT MADE","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +122 SET NUMLAST("GRANDTOT")=NUMLAST("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOT LAST PAYMENT MADE","MONTHYR",MONTHYR)
- End DoDot:1
- +123 SET DYSTOPAY("GRANDTOT")=0
- +124 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DYSTOPAY","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +125 SET DYSTOPAY("GRANDTOT")=DYSTOPAY("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DYSTOPAY","MONTHYR",MONTHYR)
- End DoDot:1
- +126 IF $GET(NUMPAYMT("GRANDTOT"))
- WRITE ?113,$JUSTIFY(DYSTOPAY("GRANDTOT")/NUMPAYMT("GRANDTOT"),GENERALW,DECIMALS)
- +127 SET EARLYPAY("GRANDTOT")=0
- +128 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","EARLYPAY","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +129 SET EARLYPAY("GRANDTOT")=EARLYPAY("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","EARLYPAY","MONTHYR",MONTHYR)
- End DoDot:1
- +130 IF $GET(NUMFIRST("GRANDTOT"))
- WRITE ?125,$JUSTIFY(EARLYPAY("GRANDTOT")/NUMFIRST("GRANDTOT"),GENERALW,DECIMALS)
- +131 SET LASTPAY("GRANDTOT")=0
- +132 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","LASTPAY","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +133 SET LASTPAY("GRANDTOT")=LASTPAY("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","LASTPAY","MONTHYR",MONTHYR)
- End DoDot:1
- +134 IF $GET(NUMLAST("GRANDTOT"))
- WRITE ?137,$JUSTIFY(LASTPAY("GRANDTOT")/NUMLAST("GRANDTOT"),GENERALW,DECIMALS)
- +135 SET TOTPOST("GRANDTOT")=0
- +136 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOTPOST","MONTHYR",MONTHYR))
- IF MONTHYR=""
- QUIT
- Begin DoDot:1
- +137 SET TOTPOST("GRANDTOT")=TOTPOST("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","TOTPOST","MONTHYR",MONTHYR)
- End DoDot:1
- +138 WRITE ?155,$JUSTIFY($FNUMBER(TOTPOST("GRANDTOT"),"",2),DOLLARW)
- +139 SET TOTNOEXP("GRANDTOT")=0
- +140 SET MONTHYR=""
- +141 FOR
- SET MONTHYR=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","BLLNOEXP","MONTHYR",MONTHYR))
- IF 'MONTHYR
- QUIT
- Begin DoDot:1
- +142 SET TOTNOEXP("GRANDTOT")=TOTNOEXP("GRANDTOT")+^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","BLLNOEXP","MONTHYR",MONTHYR)
- End DoDot:1
- +143 WRITE !,"TOTAL BILLS WITH NO EXPORT: ",TOTNOEXP("GRANDTOT")
- +144 IF IOST[("P-")
- DO ^%ZISC
- QUIT
- +145 KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- +146 QUIT
- MONTH(X) ;EP -
- +1 QUIT $SELECT(X=1:"JAN",X=2:"FEB",X=3:"MAR",X=4:"APR",X=5:"MAY",X=6:"JUN",X=7:"JUL",X=8:"AUG",X=9:"SEP",X=10:"OCT",X=11:"NOV",X=12:"DEC",1:"UNK")
- VISHDR ;EP -
- +1 SET BAR("PG")=BAR("PG")+1
- +2 SET BAR("HD",0)=""
- +3 SET BAR("LOC")=""
- +4 SET BAR("OPT")="BAR RPT DAYS IN AR"
- +5 DO HD^BARRHD
- +6 DO WHD^BARRHD
- +7 WRITE !,"",?16,"",?25,"#",?33,"",?43,"",?56,"AVG",?65,"AVG",?77,"AVG",?90,"AVG"
- +8 WRITE ?101,"AVG",?113,"AVG",?125,"AVG",?137,"AVG"
- +9 WRITE !,"Month",?16,"#",?25,"Visits",?33,"#",?43,"",?56,"Visits",?65,"Days",?77,"Days",?90,"Days"
- +10 WRITE ?101,"Date",?113,"Days",?125,"Days",?137,"Days",?163,"Total"
- +11 WRITE !,"of",?16,"of",?25,"with",?33,"of",?43,"Billed",?56,"Checked",?65,"to PCC",?77,"to",?90,"3p Bill"
- +12 WRITE ?101,"Export",?113,"to",?125,"First",?137,"Last",?163,"Posted"
- +13 WRITE !,"DOS",?16,"Visits",?25,"Bills",?33,"Bills",?43,"Amount",?56,"in",?65,"CREATED",?77,"Reviewed",?90,"APPROVED"
- +14 WRITE ?101,"EXPORTED",?113,"Payment",?125,"Posting",?137,"Posting",?163,"Amounts"
- +15 QUIT
- +1 IF '$GET(PGCNT)
- QUIT
- +2 WRITE !,EQUALS
- +3 WRITE !,"PAGE SUBTOTAL"
- +4 WRITE ?17,COLVISIT
- +5 WRITE ?26,COLWITBL
- +6 WRITE ?33,COLNUMBL
- +7 WRITE ?37,$JUSTIFY($FNUMBER(COLBILAM,"",2),DOLLARW)
- +8 WRITE ?56,$JUSTIFY(COLCHKIN/COLVISIT,GENERALW,DECIMALS)
- +9 WRITE ?65,$JUSTIFY(COLCREDY/COLVISIT,GENERALW,DECIMALS)
- +10 WRITE ?77,$JUSTIFY(COLREVDY/COLVISIT,GENERALW,DECIMALS)
- +11 WRITE ?90,$JUSTIFY(COLTPBA/COLVISIT,GENERALW,DECIMALS)
- +12 WRITE ?101,$JUSTIFY(COLTPBX/COLVISIT,GENERALW,DECIMALS)
- +13 IF COLTOPY'=0
- WRITE ?113,$JUSTIFY(COLTOPY/COLTOTPY,GENERALW,DECIMALS)
- +14 IF COLTOPY'=0
- WRITE ?125,$JUSTIFY(COLEARPY/COLTOTPY,GENERALW,DECIMALS)
- +15 IF COLTOPY'=0
- WRITE ?137,$JUSTIFY(COLLSTPY/COLTOTPY,GENERALW,DECIMALS)
- +16 WRITE ?155,$JUSTIFY($FNUMBER(COLTOTPS,"",2),DOLLARW)
- +17 SET (COLVISIT,COLWITBL,COLNUMBL,COLBILAM,COLCHKIN,COLCREDY,COLREVDY)=0
- +18 SET (COLTPBA,COLTPBX,COLTOPY,COLLSTPY,COLTOTPS,PGCNT,COLTOTPY)=0
- +19 DO FOOTNOTE
- +20 QUIT
- +1 ;W !,"NOTE: THE '# OF BILLS' COLUMN MAY NOT EQUAL THE '# OF VISITS WITH BILLS' BECAUSE"
- +2 ;W !?7,"NOT ALL BILLS ARE UTILIZED IN THE CALCULATIONS. I.E. PROVIDER OR BILLING ENITITY NOT CHOSEN TO INCLUDE. BILLS SCREENED=",$G(BILLREJT)
- +3 QUIT
- +4 ;PULL TOTAL COLLECTIONS FOR DATE RANGE OF INTEREST
- COLLECT(START,END,COLLAMT) ;EP -
- +1 NEW ENTRY,DEBIT,CREDIT
- +2 SET ENTRY=START-.01
- +3 SET END=END_".24"
- +4 FOR
- SET ENTRY=$ORDER(^BARTR(DUZ(2),"B",ENTRY))
- IF ENTRY=""!(ENTRY>END)
- QUIT
- Begin DoDot:1
- +5 SET MONTHYR=$EXTRACT(ENTRY,4,5)_$EXTRACT(ENTRY,2,3)
- +6 SET THISYR=$EXTRACT(DT,1,3)
- +7 SET REC=""
- +8 FOR
- SET REC=$ORDER(^BARTR(DUZ(2),"B",ENTRY,REC))
- IF 'REC
- QUIT
- Begin DoDot:2
- +9 SET POSTAMT=$$GET1^DIQ(90050.03,REC_",",2)
- +10 IF POSTAMT=""
- SET POSTAMT=$$GET1^DIQ(90050.03,REC_",",3)
- +11 SET COLLAMT=COLLAMT+POSTAMT
- +12 SET COLLAMT(MONTHYR)=$GET(COLLAMT(MONTHYR))+POSTAMT
- End DoDot:2
- End DoDot:1
- +13 QUIT
