source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCBEREFU.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 753 bytes
Line 
1RCBEREFU ;WISC/RFJ-refund utilities ;1 Mar 2001
2 ;;4.5;Accounts Receivable;**169**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5 ;
6 ;
7REFUREVW(RCDEBTDA) ; return prepayment bills in status refund review (44)
8 ; returns total of prepayment bills in refund review
9 ; returns rcprepay(billda)=amt in refund review
10 N BILLDA,PRINCPAL,RCPREPAY,TOTAL
11 K RCPREPAY
12 S BILLDA=0 F S BILLDA=$O(^PRCA(430,"AS",RCDEBTDA,44,BILLDA)) Q:'BILLDA D
13 . ; not a prepayment bill
14 . I $P($G(^PRCA(430,BILLDA,0)),"^",2)'=26 Q
15 . ; prepayment bill in refund review
16 . ; no money
17 . S PRINCPAL=+$P($G(^PRCA(430,BILLDA,7)),"^") I 'PRINCPAL Q
18 . S RCPREPAY(BILLDA)=PRINCPAL
19 . S TOTAL=$G(TOTAL)+PRINCPAL
20 Q +$G(TOTAL)
Note: See TracBrowser for help on using the repository browser.