RCBMILLD.m

RCBMILLD ;WISC/RFJ-millennium bill (calculations internal set tmp) ; 27 Jun 2001 11:10 AM

 ;;4.5;Accounts Receivable;**170**;Mar 20, 1995

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 Q

 ;

 ;

SETTEMP(TYPE,PRINCPAL,AMTOMCCF,AMTOHSIF,PAIDMCCF,PAIDHSIF) ;  build the temp global

 ;  called internally by the routine rcbmillc

 ;

 ;  type = type of transaction

 ;  princpal = principal amount of transaction

 ;  amtomccf = expected amount calculated going to mccf

 ;  amtohsif = expected amount calculated going to hsif

 ;  paidmccf = amount already paid to mccf for the payment

 ;  paidhsif = amount already paid to hsif for the payment

 ;

 ;  if not a payment, set running balance of what is owed to mccf and hsif

 I TYPE'="P" D

 .   S RCTOTAL("OWED TO MCCF")=RCTOTAL("OWED TO MCCF")+AMTOMCCF("BEFORE EFF DATE")+AMTOMCCF("AFTER EFF DATE")

 .   S RCTOTAL("OWED TO HSIF")=RCTOTAL("OWED TO HSIF")+AMTOHSIF

 ;

 ;  if a payment, add amount paid to mccf and hsif

 I TYPE="P" D

 .   S RCTOTAL("PAID TO MCCF")=RCTOTAL("PAID TO MCCF")+AMTOMCCF("BEFORE EFF DATE")+AMTOMCCF("AFTER EFF DATE")

 .   S RCTOTAL("PAID TO HSIF")=RCTOTAL("PAID TO HSIF")+AMTOHSIF

 ;

 ;  build total owed to hsif for bill

 S RCBALANC("HSIF")=RCBALANC("HSIF")+AMTOHSIF

 ;

 ;  build total owed to mccf for bill

 S RCBALANC("MCCF BEFORE EFF DATE")=RCBALANC("MCCF BEFORE EFF DATE")+AMTOMCCF("BEFORE EFF DATE")

 S RCBALANC("MCCF AFTER EFF DATE")=RCBALANC("MCCF AFTER EFF DATE")+AMTOMCCF("AFTER EFF DATE")

 ;

 ;  build a tmp array of increase and decrease adjustment transactions

 ;  set tmp = transaction type 'D'ecrease or 'I"ncrease

 ;            principal amount of transaction

 ;            amount owed to mccf

 ;            amount owed to hsif

 ;            for payment, amount already paid to mccf

 ;            for payment, amount already paid to hsif

 S ^TMP($J,"RCBMILLDATA",RCBILLDA,RCTRANDA)=TYPE_"^"_PRINCPAL_"^"_(AMTOMCCF("BEFORE EFF DATE")+AMTOMCCF("AFTER EFF DATE"))_"^"_AMTOHSIF_"^"_$G(PAIDMCCF)_"^"_$G(PAIDHSIF)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RCBMILLD   2054     printed  Apr 09, 2024@20:50:42                                                                                                                                                                                                    Page 2

RCBMILLD  ;WISC/RFJ-millennium bill (calculations internal set tmp) ; 27 Jun 2001 11:10 AM

 +1       ;;4.5;Accounts Receivable;**170**;Mar 20, 1995

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        QUIT 

 +4       ;

 +5       ;

SETTEMP(TYPE,PRINCPAL,AMTOMCCF,AMTOHSIF,PAIDMCCF,PAIDHSIF) ;  build the temp global

 +1       ;  called internally by the routine rcbmillc

 +2       ;

 +3       ;  type = type of transaction

 +4       ;  princpal = principal amount of transaction

 +5       ;  amtomccf = expected amount calculated going to mccf

 +6       ;  amtohsif = expected amount calculated going to hsif

 +7       ;  paidmccf = amount already paid to mccf for the payment

 +8       ;  paidhsif = amount already paid to hsif for the payment

 +9       ;

 +10      ;  if not a payment, set running balance of what is owed to mccf and hsif

 +11       IF TYPE'="P"

               Begin DoDot:1

 +12               SET RCTOTAL("OWED TO MCCF")=RCTOTAL("OWED TO MCCF")+AMTOMCCF("BEFORE EFF DATE")+AMTOMCCF("AFTER EFF DATE")

 +13               SET RCTOTAL("OWED TO HSIF")=RCTOTAL("OWED TO HSIF")+AMTOHSIF

               End DoDot:1

 +14      ;

 +15      ;  if a payment, add amount paid to mccf and hsif

 +16       IF TYPE="P"

               Begin DoDot:1

 +17               SET RCTOTAL("PAID TO MCCF")=RCTOTAL("PAID TO MCCF")+AMTOMCCF("BEFORE EFF DATE")+AMTOMCCF("AFTER EFF DATE")

 +18               SET RCTOTAL("PAID TO HSIF")=RCTOTAL("PAID TO HSIF")+AMTOHSIF

               End DoDot:1

 +19      ;

 +20      ;  build total owed to hsif for bill

 +21       SET RCBALANC("HSIF")=RCBALANC("HSIF")+AMTOHSIF

 +22      ;

 +23      ;  build total owed to mccf for bill

 +24       SET RCBALANC("MCCF BEFORE EFF DATE")=RCBALANC("MCCF BEFORE EFF DATE")+AMTOMCCF("BEFORE EFF DATE")

 +25       SET RCBALANC("MCCF AFTER EFF DATE")=RCBALANC("MCCF AFTER EFF DATE")+AMTOMCCF("AFTER EFF DATE")

 +26      ;

 +27      ;  build a tmp array of increase and decrease adjustment transactions

 +28      ;  set tmp = transaction type 'D'ecrease or 'I"ncrease

 +29      ;            principal amount of transaction

 +30      ;            amount owed to mccf

 +31      ;            amount owed to hsif

 +32      ;            for payment, amount already paid to mccf

 +33      ;            for payment, amount already paid to hsif

 +34       SET ^TMP($JOB,"RCBMILLDATA",RCBILLDA,RCTRANDA)=TYPE_"^"_PRINCPAL_"^"_(AMTOMCCF("BEFORE EFF DATE")+AMTOMCCF("AFTER EFF DATE"))_"^"_AMTOHSIF_"^"_$GET(PAIDMCCF)_"^"_$GET(PAIDHSIF)

 +35       QUIT