[Home] [Help]
PACKAGE BODY: APPS.ARP_INST_UTIL_PKG
Source
1 PACKAGE BODY ARP_INST_UTIL_PKG AS
2 /* $Header: ARTUINSB.pls 115.3 2002/11/18 22:56:39 anukumar ship $ */
3
4 PROCEDURE select_inst_summary(
5 p_ct_id IN ra_customer_trx.customer_trx_id%type,
6 p_prev_ct_id IN ra_customer_trx.customer_trx_id%type,
7 p_mode IN varchar2,
8 p_line_remaining OUT NOCOPY
9 ar_payment_schedules.amount_line_items_remaining%type,
10 p_line_remaining_db OUT NOCOPY
11 ar_payment_schedules.amount_line_items_remaining%type,
12 p_tax_remaining OUT NOCOPY ar_payment_schedules.tax_remaining%type,
13 p_tax_remaining_db OUT NOCOPY ar_payment_schedules.tax_remaining%type,
14 p_freight_remaining OUT NOCOPY ar_payment_schedules.freight_remaining%type,
15 p_freight_remaining_db OUT NOCOPY ar_payment_schedules.freight_remaining%type,
16 p_line_credited OUT NOCOPY ar_receivable_applications.line_applied%type,
17 p_line_credited_db OUT NOCOPY ar_receivable_applications.line_applied%type,
18 p_charges_credited OUT NOCOPY ar_receivable_applications.line_applied%type,
19 p_charges_credited_db OUT NOCOPY ar_receivable_applications.line_applied%type,
20 p_tax_credited OUT NOCOPY ar_receivable_applications.tax_applied%type,
21 p_tax_credited_db OUT NOCOPY ar_receivable_applications.tax_applied%type,
22 p_freight_credited OUT NOCOPY ar_receivable_applications.freight_applied%type,
23 p_freight_credited_db OUT NOCOPY ar_receivable_applications.freight_applied%type)
24 IS
25 BEGIN
26 arp_util.debug('arp_inst_util_pkg.select_inst_summary()+');
27
28 IF (p_mode IN ('ALL',
29 'CRTRX',
30 'CRTRX_LINE', 'CRTRX_TAX', 'CRTRX_FREIGHT'))
31 THEN
32 SELECT nvl(sum(prv_ps.amount_line_items_remaining), 0),
33 nvl(sum(prv_ps.tax_remaining), 0),
34 nvl(sum(prv_ps.freight_remaining), 0),
35 nvl(sum(prv_ps.amount_line_items_remaining), 0),
36 nvl(sum(prv_ps.tax_remaining), 0),
37 nvl(sum(prv_ps.freight_remaining), 0)
38 INTO p_line_remaining,
39 p_tax_remaining,
40 p_freight_remaining,
41 p_line_remaining_db,
42 p_tax_remaining_db,
43 p_freight_remaining_db
44 FROM ar_payment_schedules prv_ps
45 WHERE prv_ps.customer_trx_id = p_prev_ct_id;
46
47 END IF;
48
49 IF (p_mode IN ('ALL',
50 'CM',
51 'CM_LINE', 'CM_TAX', 'CM_FREIGHT'))
52 THEN
53
54 SELECT nvl(sum(ra.line_applied), 0) * -1,
55 nvl(sum(ra.receivables_charges_applied), 0) * -1,
56 nvl(sum(ra.tax_applied), 0) * -1,
57 nvl(sum(ra.freight_applied), 0) * -1,
58 nvl(sum(ra.line_applied), 0) * -1,
59 nvl(sum(ra.receivables_charges_applied), 0) * -1,
60 nvl(sum(ra.tax_applied), 0) * -1,
61 nvl(sum(ra.freight_applied), 0) * -1
62 INTO p_line_credited,
63 p_charges_credited,
64 p_tax_credited,
65 p_freight_credited,
66 p_line_credited_db,
67 p_charges_credited_db,
68 p_tax_credited_db,
69 p_freight_credited_db
70 FROM ar_receivable_applications ra
71 WHERE customer_trx_id = p_ct_id
72 AND applied_customer_trx_id = p_prev_ct_id;
73
74 END IF;
75
76 arp_util.debug('arp_inst_util_pkg.select_inst_summary()-');
77
78 EXCEPTION
79 WHEN OTHERS THEN
80 arp_util.debug('EXCEPTION: arp_inst_util_pkg.select_inst_summary');
81 arp_util.debug('p_ct_id : '|| p_ct_id);
82 arp_util.debug('p_prev_ct_id : '|| p_prev_ct_id);
83 arp_util.debug('p_mode : '|| p_mode);
84
85 RAISE;
86 END;
87
88 END ARP_INST_UTIL_PKG;