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

RCBMILL4.m

Go to the documentation of this file.
  1. RCBMILL4 ;WISC/RFJ-millennium bill report (print history for date range) ; 27 Jun 2001 11:10 AM
  1. ;;4.5;Accounts Receivable;**170**;Mar 20, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. Q
  1. ;
  1. ;
  1. PRINT ; print history for date range
  1. N DATA,DATA1,GECSDATA,RCAMOUNT,RCBILLDA,RCDATE,RCLINE,RCTOTAL,RCTRANDA,TYPE,Y
  1. ;
  1. ; intialize totals for month
  1. K ^TMP("RCBMILL4",$J)
  1. ;
  1. ; loop the bills with payments
  1. S RCBILLDA=0 F S RCBILLDA=$O(^TMP($J,"RCBMILLDATA",RCBILLDA)) Q:'RCBILLDA D
  1. . ;
  1. . ; loop the transactions
  1. . S RCTRANDA=0 F S RCTRANDA=$O(^TMP($J,"RCBMILLDATA",RCBILLDA,RCTRANDA)) Q:'RCTRANDA D
  1. . . ;
  1. . . ; get the type of transaction
  1. . . S DATA1=$G(^PRCA(433,RCTRANDA,1))
  1. . . S TYPE=$P(DATA1,"^",2)
  1. . . ;
  1. . . ; only print payments for the selected date range
  1. . . I $P(DATA1,"^",9)<RCDATBEG!($P(DATA1,"^",9)>RCDATEND) Q
  1. . . ;
  1. . . ; if not a payment, quit
  1. . . I TYPE'=2,TYPE'=34 Q
  1. . . ; data = principal amt of transaction
  1. . . ; amount owed to mccf
  1. . . ; amount owed to hsif
  1. . . ; for payment, amount paid to mccf
  1. . . ; for payment, amount paid to hsif
  1. . . S DATA=^TMP($J,"RCBMILLDATA",RCBILLDA,RCTRANDA)
  1. . . ;
  1. . . ; compute totals paid for selected report month
  1. . . ; payment dollars are recorded in data as minus
  1. . . S ^TMP("RCBMILL4",$J,$E($P(DATA1,"^",9),1,5),"TO MCCF")=$G(^TMP("RCBMILL4",$J,$E($P(DATA1,"^",9),1,5),"TO MCCF"))-$P(DATA,"^",3)
  1. . . S ^TMP("RCBMILL4",$J,$E($P(DATA1,"^",9),1,5),"TO HSIF")=$G(^TMP("RCBMILL4",$J,$E($P(DATA1,"^",9),1,5),"TO HSIF"))-$P(DATA,"^",4)
  1. . . S ^TMP("RCBMILL4",$J,$E($P(DATA1,"^",9),1,5),"PAID TO HSIF")=$G(^TMP("RCBMILL4",$J,$E($P(DATA1,"^",9),1,5),"PAID TO HSIF"))+$P(DATA,"^",6)
  1. ;
  1. U IO D H
  1. ;
  1. S RCDATE="" F S RCDATE=$O(^TMP("RCBMILL4",$J,RCDATE)) Q:'RCDATE!($G(RCRJFLAG)) D
  1. . ; page break
  1. . I $Y>(IOSL-4) D:RCSCREEN PAUSE^RCRJRTR1 Q:$G(RCRJFLAG) D H
  1. . ;
  1. . S Y=$E(RCDATE,1,5)_"00" D DD^%DT
  1. . ; write month/year and split amount paid to mccf
  1. . W !,Y,?10," |",$J($G(^TMP("RCBMILL4",$J,RCDATE,"TO MCCF")),12,2)," |"
  1. . ; write split amount paid to hsif
  1. . W $J($G(^TMP("RCBMILL4",$J,RCDATE,"TO HSIF")),12,2)
  1. . ; write amount paid to hsif
  1. . W $J($G(^TMP("RCBMILL4",$J,RCDATE,"PAID TO HSIF")),12,2)
  1. . ; write amount owed to hsif
  1. . W $J($G(^TMP("RCBMILL4",$J,RCDATE,"TO HSIF"))-$G(^TMP("RCBMILL4",$J,RCDATE,"PAID TO HSIF")),12,2)," |"
  1. . ;
  1. . ; get the code sheet data
  1. . K GECSDATA
  1. . D KEYLOOK^GECSSGET("TR-"_$E(RCDATE,1,5)_"00",1)
  1. . ;
  1. . S RCAMOUNT=0
  1. . I $G(GECSDATA) D
  1. . . S RCLINE=0 F S RCLINE=$O(GECSDATA(2100.1,GECSDATA,10,RCLINE)) Q:'RCLINE D
  1. . . . S DATA=GECSDATA(2100.1,GECSDATA,10,RCLINE)
  1. . . . I $P(DATA,"^")'="LIN" Q
  1. . . . I $P(DATA,"^",6)'="5358.1" Q
  1. . . . I $P(DATA,"^",21)'="I" Q
  1. . . . S RCAMOUNT=RCAMOUNT+$P(DATA,"^",20)
  1. . ;
  1. . W $J(RCAMOUNT,12,2)
  1. . ;
  1. . ; total all columns
  1. . S RCTOTAL(1)=$G(RCTOTAL(1))+$G(^TMP("RCBMILL4",$J,RCDATE,"TO MCCF"))
  1. . S RCTOTAL(2)=$G(RCTOTAL(2))+$G(^TMP("RCBMILL4",$J,RCDATE,"TO HSIF"))
  1. . S RCTOTAL(3)=$G(RCTOTAL(3))+$G(^TMP("RCBMILL4",$J,RCDATE,"PAID TO HSIF"))
  1. . S RCTOTAL(5)=$G(RCTOTAL(5))+RCAMOUNT
  1. ;
  1. ; page break
  1. I $G(RCRJFLAG) D Q Q
  1. I $Y>(IOSL-5) D:RCSCREEN PAUSE^RCRJRTR1 Q:$G(RCRJFLAG) D H
  1. ;
  1. ; show totals
  1. W !,"==============================================================================="
  1. W !,"TOTALS",?10," |",$J($G(RCTOTAL(1)),12,2)," |",$J($G(RCTOTAL(2)),12,2),$J($G(RCTOTAL(3)),12,2),$J($G(RCTOTAL(2))-$G(RCTOTAL(3)),12,2)," |",$J($G(RCTOTAL(5)),12,2)
  1. W !,"==============================================================================="
  1. ;
  1. ; page break
  1. I $G(RCRJFLAG) D Q Q
  1. I $Y>(IOSL-8) D:RCSCREEN PAUSE^RCRJRTR1 Q:$G(RCRJFLAG) D H
  1. ;
  1. ; show what columns mean
  1. W !,"Column 2 is the dollar amount of RX-Copayments that is split to MCCF."
  1. W !,"Column 3 is the dollar amount of RX-Copayments that is split to HSIF."
  1. W !,"Column 4 is the dollar amount of HSIF payments that is paid to HSIF in FMS."
  1. W !,"Column 5 is the dollar difference between columns 3 and 4. This is the amount"
  1. W !," owed (needs to be transferred from MCCF) to HSIF."
  1. W !,"Column 6 is the dollar amount transferred from MCCF to HSIF taken from the"
  1. W !," monthly (TR)ansfer document."
  1. ;
  1. Q ; quit report
  1. K ^TMP("RCBMILL4",$J)
  1. Q
  1. ;
  1. ;
  1. H ; print heading
  1. S %=RCNOW_" PAGE "_RCPAGE,RCPAGE=RCPAGE+1 I RCPAGE'=2!(RCSCREEN) W @IOF
  1. W $C(13),"PAYMENTS SPLIT TO HSIF/MCCF HISTORY REPORT",?(79-$L(%)),%
  1. ;
  1. W !," FROM MONTH/YEAR: ",RCMOYR," TO MONTH/YEAR: ",RCMOYRTO
  1. W !,?10," |",$J("PAYMENTS",12)," |",$J("PAYMENTS",12),$J("PAID TO",12),$J("OWED TO",12)," |",$J("DOCUMENT",12)
  1. W !,"MONTH/YEAR",?10," |",$J("TO MCCF",12)," |",$J("TO HSIF",12),$J("HSIF",12),$J("HSIF",12)," |",$J("AMT TO HSIF",12)
  1. W !,"-------------------------------------------------------------------------------"
  1. Q