RCBEREFU.m

RCBEREFU ;WISC/RFJ-refund utilities ;1 Mar 2001

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

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

 Q

 ;

 ;

REFUREVW(RCDEBTDA) ;  return prepayment bills in status refund review (44)

 ;  returns total of prepayment bills in refund review

 ;  returns rcprepay(billda)=amt in refund review

 N BILLDA,PRINCPAL,RCPREPAY,TOTAL

 K RCPREPAY

 S BILLDA=0 F  S BILLDA=$O(^PRCA(430,"AS",RCDEBTDA,44,BILLDA)) Q:'BILLDA  D

 .   ;  not a prepayment bill

 .   I $P($G(^PRCA(430,BILLDA,0)),"^",2)'=26 Q

 .   ;  prepayment bill in refund review

 .   ;  no money

 .   S PRINCPAL=+$P($G(^PRCA(430,BILLDA,7)),"^") I 'PRINCPAL Q

 .   S RCPREPAY(BILLDA)=PRINCPAL

 .   S TOTAL=$G(TOTAL)+PRINCPAL

 Q +$G(TOTAL)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RCBEREFU   773     printed  Apr 09, 2024@20:48:39                                                                                                                                                                                                     Page 2

RCBEREFU  ;WISC/RFJ-refund utilities ;1 Mar 2001

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

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

 +3        QUIT 

 +4       ;

 +5       ;

REFUREVW(RCDEBTDA) ;  return prepayment bills in status refund review (44)

 +1       ;  returns total of prepayment bills in refund review

 +2       ;  returns rcprepay(billda)=amt in refund review

 +3        NEW BILLDA,PRINCPAL,RCPREPAY,TOTAL

 +4        KILL RCPREPAY

 +5        SET BILLDA=0

           FOR 

               SET BILLDA=$ORDER(^PRCA(430,"AS",RCDEBTDA,44,BILLDA))

               if 'BILLDA

                   QUIT 

               Begin DoDot:1

 +6       ;  not a prepayment bill

 +7                IF $PIECE($GET(^PRCA(430,BILLDA,0)),"^",2)'=26

                       QUIT 

 +8       ;  prepayment bill in refund review

 +9       ;  no money

 +10               SET PRINCPAL=+$PIECE($GET(^PRCA(430,BILLDA,7)),"^")

                   IF 'PRINCPAL

                       QUIT 

 +11               SET RCPREPAY(BILLDA)=PRINCPAL

 +12               SET TOTAL=$GET(TOTAL)+PRINCPAL

               End DoDot:1

 +13       QUIT +$GET(TOTAL)