PACKAGE BODY: APPS.ARP_DISPUTE_HISTORY

Source

1 PACKAGE BODY ARP_DISPUTE_HISTORY AS
2 /* $Header: ARPLMDHB.pls 120.2.12020000.4 2012/10/16 11:37:25 vpotti ship $ */
3 
4 PROCEDURE DisputeHistory(	p_DisputeDate		IN OUT NOCOPY	DATE,
5 				p_OldDisputeDate	IN 	DATE,
6 				p_PaymentScheduleId	IN	NUMBER,
7 				p_OldPaymentScheduleId	IN	NUMBER,
8 				p_AmountDueRemaining	IN	NUMBER,
9 				p_AmountInDispute	IN	NUMBER,
10 				p_OldAmountInDispute	IN	NUMBER,
11 			        p_CreatedBy		IN	NUMBER,
12 			        p_CreationDate		IN	DATE,
13 			        p_LastUpdatedBy		IN	NUMBER,
14 			        p_LastUpdateDate	IN	DATE,
15 			        p_lastUpdateLogin	IN	NUMBER ) IS
16    BEGIN
17 
18       UPDATE  ar_dispute_history
19       SET     end_date = nvl(p_DisputeDate, greatest(nvl(p_OldDisputeDate,sysdate-1), sysdate))
20       WHERE   payment_schedule_id = p_PaymentScheduleId
21       AND     end_date IS NULL;
22 
23       if nvl(p_AmountInDispute,0) <> 0 then
24          -- 4640133 : insert row only for non-zero dispute amount
25 
26          INSERT INTO ar_dispute_history (
27            dispute_history_id,
28            payment_schedule_id,
29            amount_in_dispute,
30            amount_due_remaining,
31            dispute_amount,
32            start_date,
33            created_by,
34            creation_date,
35            last_updated_by,
36            last_update_date,
37            last_update_login )
38          VALUES (
39            ar_dispute_history_s.nextval,
40            p_OldPaymentScheduleId,
41            NVL(p_AmountInDispute, 0),
42            p_AmountDueRemaining,
43            DECODE(p_OldAmountInDispute, NULL, NVL(p_AmountInDispute,0),
44                 (NVL(p_AmountInDispute,0) - p_OldAmountInDispute)),
45            nvl(p_DisputeDate, greatest(nvl(p_OldDisputeDate,sysdate-1), sysdate)),
46            p_CreatedBy,
47            p_CreationDate,
48            p_LastUpdatedBy,
49            p_LastUpdateDate,
50            p_lastUpdateLogin );
51       end if;
52 
53       IF p_AmountInDispute IS NULL THEN
54 
55          p_DisputeDate := NULL;
56 
57       END IF;
58 
59     EXCEPTION
60         WHEN OTHERS THEN
61             arp_standard.debug( 'Exception:arp_dispute_history.DisputeHistory');
62             RAISE;
63    END;
64 
65 
66 
67 END ARP_DISPUTE_HISTORY;