[Home] [Help]
PACKAGE BODY: APPS.GMF_AR_GET_INV_ADJUSTMENTS
Source
1 PACKAGE BODY GMF_AR_GET_INV_ADJUSTMENTS as
2 /* $Header: gmfinvab.pls 115.4 2002/11/11 00:38:53 rseshadr ship $ */
3 cursor cur_ar_get_invoice_adjustments(start_date date,
4 end_date date,
5 invoice_id number,
6 adj_id number,
7 adj_number varchar2) is
8 select ADJ.CUSTOMER_TRX_ID, ADJ.ADJUSTMENT_NUMBER,
9 ADJ.AMOUNT, ADJ.APPLY_DATE,
10 ADJ.GL_DATE, ADJ.SET_OF_BOOKS_ID,
11 ADJ.CODE_COMBINATION_ID, ADJ.TYPE,
12 ADJ.ADJUSTMENT_TYPE, ADJ.STATUS,
13 ADJ.LINE_ADJUSTED, ADJ.FREIGHT_ADJUSTED,
14 ADJ.TAX_ADJUSTED, TRX.INVOICE_CURRENCY_CODE,
15 ADJ.RECEIVABLES_CHARGES_ADJUSTED,
16 ADJ.ASSOCIATED_CASH_RECEIPT_ID,
17 ADJ.CHARGEBACK_CUSTOMER_TRX_ID,
18 ADJ.BATCH_ID, ADJ.CUSTOMER_TRX_LINE_ID,
19 ADJ.SUBSEQUENT_TRX_ID, ADJ.PAYMENT_SCHEDULE_ID,
20 ADJ.RECEIVABLES_TRX_ID, ADJ.DISTRIBUTION_SET_ID,
21 ADJ.GL_POSTED_DATE, ADJ.CREATED_FROM,
22 ADJ.REASON_CODE, ADJ.APPROVED_BY,
23 ADJ.ATTRIBUTE_CATEGORY, ADJ.ATTRIBUTE1,
24 ADJ.ATTRIBUTE2, ADJ.ATTRIBUTE3,
25 ADJ.ATTRIBUTE4, ADJ.ATTRIBUTE5,
26 ADJ.ATTRIBUTE6, ADJ.ATTRIBUTE7,
27 ADJ.ATTRIBUTE8, ADJ.ATTRIBUTE9,
28 ADJ.ATTRIBUTE10, ADJ.ATTRIBUTE11,
29 ADJ.ATTRIBUTE12, ADJ.ATTRIBUTE13,
30 ADJ.ATTRIBUTE14, ADJ.ATTRIBUTE15,
31 ADJ.POSTING_CONTROL_ID, ADJ.ACCTD_AMOUNT,
32 ADJ.CREATED_BY, ADJ.CREATION_DATE,
33 ADJ.LAST_UPDATE_DATE, ADJ.LAST_UPDATED_BY
34 from RA_CUSTOMER_TRX_ALL TRX,
35 AR_ADJUSTMENTS_ALL ADJ
36 where ADJ.customer_trx_id = invoice_id
37 and ADJ.adjustment_id = nvl(adj_id, ADJ.adjustment_id)
38 and TRX.customer_trx_id = ADJ.customer_trx_id
39 and ADJ.last_update_date between
40 nvl(start_date, ADJ.last_update_date)
41 and nvl(end_date, ADJ.last_update_date);
42
43 procedure AR_GET_INVOICE_ADJUSTMENTS (invoice_id in out NOCOPY number,
44 adj_id in out NOCOPY number,
45 start_date in out NOCOPY date,
46 end_date in out NOCOPY date,
47 adj_number in out NOCOPY varchar2,
48 amount out NOCOPY number,
49 apply_date out NOCOPY date,
50 gl_date out NOCOPY date,
51 sob_id out NOCOPY number,
52 coa_id out NOCOPY number,
53 type out NOCOPY varchar2,
54 adjustment_type out NOCOPY varchar2,
55 status out NOCOPY varchar2,
56 line_adjusted out NOCOPY number,
57 frght_adjusted out NOCOPY number,
58 tax_adjusted out NOCOPY number,
59 currency out NOCOPY varchar2,
60 revcharge_adj out NOCOPY number,
61 receipt_id out NOCOPY number,
62 chrgbck_cust_trxid out NOCOPY number,
63 batch_id out NOCOPY number,
64 cust_trx_line_id out NOCOPY number,
65 subseq_trx_id out NOCOPY number,
66 paymnt_sched_id out NOCOPY number,
67 receiv_trx_id out NOCOPY number,
68 distrib_set_id out NOCOPY number,
69 gl_posted_date out NOCOPY date,
70 created_from out NOCOPY varchar2,
71 reason_code out NOCOPY varchar2,
72 approved_by out NOCOPY number,
73 attr_category out NOCOPY varchar2,
74 att1 out NOCOPY varchar2,
75 att2 out NOCOPY varchar2,
76 att3 out NOCOPY varchar2,
77 att4 out NOCOPY varchar2,
78 att5 out NOCOPY varchar2,
79 att6 out NOCOPY varchar2,
80 att7 out NOCOPY varchar2,
81 att8 out NOCOPY varchar2,
82 att9 out NOCOPY varchar2,
83 att10 out NOCOPY varchar2,
84 att11 out NOCOPY varchar2,
85 att12 out NOCOPY varchar2,
86 att13 out NOCOPY varchar2,
87 att14 out NOCOPY varchar2,
88 att15 out NOCOPY varchar2,
89 posting_controlid out NOCOPY number,
90 acctd_amount out NOCOPY number,
91 created_by out NOCOPY number,
92 creation_date out NOCOPY date,
93 last_update_date out NOCOPY date,
94 last_updated_by out NOCOPY number,
95 row_to_fetch in out NOCOPY number,
96 error_status out NOCOPY number) is
97
98 begin
99
100 if NOT cur_ar_get_invoice_adjustments%ISOPEN then
101 open cur_ar_get_invoice_adjustments(start_date, end_date,
102 invoice_id, adj_id,
103 adj_number);
104 end if;
105
106 fetch cur_ar_get_invoice_adjustments
107 into invoice_id, adj_number, amount,
108 apply_date, gl_date, sob_id,
109 coa_id, type, adjustment_type,
110 status, line_adjusted, frght_adjusted,
111 tax_adjusted, currency, revcharge_adj,
112 receipt_id, chrgbck_cust_trxid, batch_id,
113 cust_trx_line_id, subseq_trx_id, paymnt_sched_id,
114 receiv_trx_id, distrib_set_id, gl_posted_date,
115 created_from, reason_code, approved_by,
116 attr_category, att1, att2,
117 att3, att4, att5,
118 att6, att7, att8,
119 att9, att10, att11,
120 att12, att13, att14,
121 att15, posting_controlid, acctd_amount,
122 created_by, creation_date, last_update_date,
123 last_updated_by;
124
125 if cur_ar_get_invoice_adjustments%NOTFOUND then
126 error_status := 100;
127 close cur_ar_get_invoice_adjustments;
128 end if;
129 if row_to_fetch = 1 and cur_ar_get_invoice_adjustments%ISOPEN then
130 close cur_ar_get_invoice_adjustments;
131 end if;
132
133 exception
134
135 when others then
136 error_status := SQLCODE;
137
138 end AR_GET_INVOICE_ADJUSTMENTS;
139 END GMF_AR_GET_INV_ADJUSTMENTS;