source: FOIAVistA/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCBEPAYC.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1RCBEPAYC ;WISC/RFJ-check a payment before processing ;1 Jun 00
2 ;;4.5;Accounts Receivable;**153**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5 ;
6 ;
7CHECKPAY(RCRECTDA,RCPAYDA) ; check a payment before processing. this call
8 ; is normally used to check a payment and verify that the billed
9 ; amount is not less than the paid amount.
10 ; returns 1^error if the payment cannot be processed
11 ;
12 N RCACCT,RCBILAMT,RCDATA,RCPAYAMT,X
13 ;
14 S RCDATA=$G(^RCY(344,RCRECTDA,1,RCPAYDA,0))
15 I RCDATA="" Q "1^Unable to find payment"
16 ;
17 S RCACCT=$P(RCDATA,"^",3)
18 I RCACCT="" Q "1^Account not defined"
19 ;
20 ; get the payment amount (amount paid minus amount processed)
21 ; if no payment amount, do not return error
22 S RCPAYAMT=$P(RCDATA,"^",4)-$P(RCDATA,"^",5) I RCPAYAMT'>0 Q 0
23 ;
24 ; if first party bill, everything is ok, quit
25 I $P(RCDATA,"^",3)["DPT(" Q 0
26 I $P(RCDATA,"^",3)["PRCA(430,",$P($G(^RCD(340,+$P($G(^PRCA(430,+$P(RCDATA,"^",3),0)),"^",9),0)),"^")["DPT(" Q 0
27 ;
28 ; === third party bills ===
29 ;
30 ; bill not activated or open
31 S X=$P($G(^PRCA(430,+$P(RCDATA,"^",3),0)),"^",8)
32 I X'=42,X'=16 Q "1^Bill not activated or open"
33 ;
34 ; calculate dollars on receivable
35 S X=$G(^PRCA(430,+$P(RCDATA,"^",3),7))
36 S RCBILAMT=$P(X,"^")+$P(X,"^",2)+$P(X,"^",3)+$P(X,"^",4)+$P(X,"^",5)
37 ;
38 ; does the payment exceed the billed amount?
39 ; pending payments is not greater than bill balance, payment ok, quit
40 I RCPAYAMT'>RCBILAMT Q 0
41 ;
42 ; pending payments exceed balance of the bill, return error
43 Q "1^Pending Payments of "_$J(RCPAYAMT,0,2)_" is greater than the balance of the bill "_$J(RCBILAMT,0,2)
Note: See TracBrowser for help on using the repository browser.