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 ---[H[J[2J[HRCBEREFU 773 printed Dec 13, 2024@01:42:51 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)
