PACKAGE BODY: APPS.ARP_PAY_SCHED

Source

1 PACKAGE BODY ARP_PAY_SCHED AS
2 /* $Header: ARPLPAYB.pls 120.4 2005/04/14 23:13:10 hyu ship $ */
3 
4 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
5 
6 PROCEDURE upd_payment_schedules(p_amount_due_remaining         NUMBER,
7                                 p_acctd_amount_due_remaining   NUMBER,
8                                 p_exchange_rate                NUMBER,
9                                 p_exchange_date                DATE,
10                                 p_exchange_rate_type           VARCHAR2,
11                                 p_pay_id                       NUMBER,
12 				p_last_updated_by	       NUMBER,
13 				p_last_update_date	       DATE,
14 				p_last_update_login	       NUMBER) IS
15 BEGIN
16 
17     UPDATE AR_PAYMENT_SCHEDULES
18     SET AMOUNT_DUE_REMAINING = p_amount_due_remaining,
19         ACCTD_AMOUNT_DUE_REMAINING = p_acctd_amount_due_remaining,
20         EXCHANGE_RATE = p_exchange_rate,
21         EXCHANGE_DATE = p_exchange_date,
22         EXCHANGE_RATE_TYPE = p_exchange_rate_type,
23 	LAST_UPDATED_BY = p_last_updated_by,
24 	LAST_UPDATE_DATE = p_last_update_date,
25 	LAST_UPDATE_LOGIN = p_last_update_login
26     WHERE PAYMENT_SCHEDULE_ID = p_pay_id;
27 
28     /* need to call ar_mrc_engine to update AR_MC_PAYMENT_SCHEDULES */
29 --{BUG4301323
30 --    ar_mrc_engine.maintain_mrc_data(
31 --                p_event_mode       => 'UPDATE',
32 --                p_table_name       => 'AR_PAYMENT_SCHEDULES',
33 --                p_mode             => 'SINGLE',
34 --                p_key_value        => p_pay_id);
35 --}
36 
37 END upd_payment_schedules;
38 
39 PROCEDURE upd_amt_due_remaining(pay_id                      NUMBER,
40                                 amt_due_remaining           NUMBER,
41                                 acctd_amt_due_remaining     NUMBER,
42 				p_last_updated_by	       NUMBER,
43 				p_last_update_date	       DATE,
44 				p_last_update_login	       NUMBER) IS
45 BEGIN
46 
47     UPDATE AR_PAYMENT_SCHEDULES
48     SET AMOUNT_DUE_REMAINING = amt_due_remaining,
49         ACCTD_AMOUNT_DUE_REMAINING = acctd_amt_due_remaining,
50 	LAST_UPDATED_BY = p_last_updated_by,
51 	LAST_UPDATE_DATE = p_last_update_date,
52 	LAST_UPDATE_LOGIN = p_last_update_login
53     WHERE PAYMENT_SCHEDULE_ID = pay_id;
54 
55     /* need to call ar_mrc_engine to update AR_MC_PAYMENT_SCHEDULES */
56 --{BUG4301323
57 --    ar_mrc_engine.maintain_mrc_data(
58 --                p_event_mode       => 'UPDATE',
59 --                p_table_name       => 'AR_PAYMENT_SCHEDULES',
60 --                p_mode             => 'SINGLE',
61 --                p_key_value        => pay_id);
62 --}
63 
64 END upd_amt_due_remaining;
65 
66 --
67     PROCEDURE PopulateDatesClosedIfNull( p_GlDateClosed      IN OUT NOCOPY DATE,
68 					 p_ActualDateClosed  IN OUT NOCOPY DATE ) IS
69     BEGIN
70         IF p_GlDateClosed IS NULL
71         THEN
72             p_GlDateClosed := to_date('12/31/4712','MM/DD/YYYY');
73         END IF;
74         IF p_ActualDateClosed IS NULL
75         THEN
76             p_ActualDateClosed := to_date('12/31/4712','MM/DD/YYYY');
77         END IF;
78     EXCEPTION
79         WHEN OTHERS THEN
80             arp_standard.debug( 'Exception:arp_pay_sched.PopulateDatesClosedIfNull');
81             RAISE;
82     END;
83 --
84 
85 END ARP_PAY_SCHED;