[Home] [Help]
PACKAGE BODY: APPS.ARRX_C_ADJ
Source
1 PACKAGE BODY ARRX_C_ADJ as
2 /* $Header: ARRXCADB.pls 120.5 2005/10/30 04:25:19 appldev ship $ */
3
4
5 PROCEDURE ADJUSTMENT_REGISTER (
6 errbuf out NOCOPY varchar2,
7 retcode out NOCOPY varchar2,
8 argument1 in varchar2, -- reporting level
9 argument2 in varchar2, -- reporting context
10 argument3 in varchar2, -- sob_id
11 argument4 in varchar2, -- coa_id
12 argument5 in varchar2, -- co_seg_low
13 argument6 in varchar2, -- co_seg_high
14 argument7 in varchar2, -- gl_date_from
15 argument8 in varchar2, -- gl_date_to
16 argument9 in varchar2, -- currency_type_low
17 argument10 in varchar2, -- currency_type_high
18 argument11 in varchar2, -- adj date_low
19 argument12 in varchar2, -- adj date_high
20 argument13 in varchar2, -- trx due_date_low
21 argument14 in varchar2, -- trx due_date_high
22 argument15 in varchar2, -- trx_type_low
23 argument16 in varchar2, -- trx_type_high
24 argument17 in varchar2, -- adj_type_low
25 argument18 in varchar2, -- adj_type_high
26 argument19 in varchar2, -- doc seq name
27 argument20 in varchar2, -- doc seq low
28 argument21 in varchar2, -- doc seq high
29 argument22 in varchar2 default 'N', -- debug flag
30 argument23 in varchar2 default 'N', -- sql trace
31 argument24 in varchar2 default null,
32 argument25 in varchar2 default null,
33 argument26 in varchar2 default null,
34 argument27 in varchar2 default null,
35 argument28 in varchar2 default null,
36 argument29 in varchar2 default null,
37 argument30 in varchar2 default null,
38 argument31 in varchar2 default null,
39 argument32 in varchar2 default null,
40 argument33 in varchar2 default null,
41 argument34 in varchar2 default null,
42 argument35 in varchar2 default null,
43 argument36 in varchar2 default null,
44 argument37 in varchar2 default null,
45 argument38 in varchar2 default null,
46 argument39 in varchar2 default null,
47 argument40 in varchar2 default null,
48 argument41 in varchar2 default null,
49 argument42 in varchar2 default null,
50 argument43 in varchar2 default null,
51 argument44 in varchar2 default null,
52 argument45 in varchar2 default null,
53 argument46 in varchar2 default null,
54 argument47 in varchar2 default null,
55 argument48 in varchar2 default null,
56 argument49 in varchar2 default null,
57 argument50 in varchar2 default null,
58 argument51 in varchar2 default null,
59 argument52 in varchar2 default null,
60 argument53 in varchar2 default null,
61 argument54 in varchar2 default null,
62 argument55 in varchar2 default null,
63 argument56 in varchar2 default null,
64 argument57 in varchar2 default null,
65 argument58 in varchar2 default null,
66 argument59 in varchar2 default null,
67 argument60 in varchar2 default null,
68 argument61 in varchar2 default null,
69 argument62 in varchar2 default null,
70 argument63 in varchar2 default null,
71 argument64 in varchar2 default null,
72 argument65 in varchar2 default null,
73 argument66 in varchar2 default null,
74 argument67 in varchar2 default null,
75 argument68 in varchar2 default null,
76 argument69 in varchar2 default null,
77 argument70 in varchar2 default null,
78 argument71 in varchar2 default null,
79 argument72 in varchar2 default null,
80 argument73 in varchar2 default null,
81 argument74 in varchar2 default null,
82 argument75 in varchar2 default null,
83 argument76 in varchar2 default null,
84 argument77 in varchar2 default null,
85 argument78 in varchar2 default null,
86 argument79 in varchar2 default null,
87 argument80 in varchar2 default null,
88 argument81 in varchar2 default null,
89 argument82 in varchar2 default null,
90 argument83 in varchar2 default null,
91 argument84 in varchar2 default null,
92 argument85 in varchar2 default null,
93 argument86 in varchar2 default null,
94 argument87 in varchar2 default null,
95 argument88 in varchar2 default null,
96 argument89 in varchar2 default null,
97 argument90 in varchar2 default null,
98 argument91 in varchar2 default null,
99 argument92 in varchar2 default null,
100 argument93 in varchar2 default null,
101 argument94 in varchar2 default null,
102 argument95 in varchar2 default null,
103 argument96 in varchar2 default null,
104 argument97 in varchar2 default null,
105 argument98 in varchar2 default null,
106 argument99 in varchar2 default null,
107 argument100 in varchar2 default null)
108 is
109 l_request_id number;
110 l_reporting_level VARCHAR2(50);
111 l_reporting_entity_id NUMBER;
112 l_sob_id NUMBER;
113 l_coa_id number;
114 l_gl_date_low date;
115 l_gl_date_high date;
116 l_trx_date_low date;
117 l_trx_date_high date;
118 l_due_date_low date;
119 l_due_date_high date;
120 l_invoice_type_low varchar2(50);
121 l_invoice_type_high varchar2(50);
122 l_adj_type_low varchar2(30);
123 l_adj_type_high varchar2(30);
124 l_currency_code_low varchar2(15);
125 l_currency_code_high varchar2(15);
126 l_co_seg_low varchar2(30);
127 l_co_seg_high varchar2(30);
128 l_doc_seq_name varchar2(30);
129 l_doc_seq_low number;
130 l_doc_seq_high number;
131
132 begin
133 --
134 -- SQL Trace switches and debug flags are optional
135 -- but highly recommended.
136
137 --ATG mandate remove code for sql trace
138 -- if upper(substrb(argument23, 1, 1)) = 'Y' then
139 -- fa_rx_util_pkg.enable_trace;
140 -- end if;
141
142 if upper(substrb(argument22, 1, 1)) = 'Y' then
143 fa_rx_util_pkg.enable_debug;
144 end if;
145
146 fa_rx_util_pkg.debug('ADJUSTMENT_REGISTER called with parameters
147 Reporting Level : '||argument1||'
148 Reporting Entity ID : '||argument2||'
149 Set of Books ID : '||argument3||'
150 Chart of Accounts ID : '||argument4||'
151 Company Segment Low : '||argument5||'
152 Company Segment High : '||argument6||'
153 GL Date From : '||argument7||'
154 GL Date To : '||argument8||'
155 Entered Currency Low : '||argument9||'
156 Entered Currency High : '||argument10||'
157 Adjustment Date From : '||argument11||'
158 Adjustment Date To : '||argument12||'
159 Trx Due Date From : '||argument13||'
160 Trx Due Date To : '||argument14||'
161 Trx Type Low : '||argument15||'
162 Trx Type High : '||argument16||'
163 Adjustment Type Low : '||argument17||'
164 Adjustment Type High : '||argument18||'
165 Doc Sequence Name : '||argument19||'
166 Doc Sequence Num Low : '||argument20||'
167 Doc Sequence Num High : '||argument21);
168 --
169 -- Assign parameters doing any necessary mappings
170 -- e.g. date/number conversion
171 l_request_id := fnd_global.conc_request_id;
172 l_reporting_level := argument1;
173 l_reporting_entity_id := argument2;
174 l_sob_id := argument3;
175 l_coa_id := argument4;
176 l_co_seg_low := argument5;
177 l_co_seg_high := argument6;
178 l_gl_date_low := FND_DATE.CANONICAL_TO_DATE(argument7);
179 l_gl_date_high := FND_DATE.CANONICAL_TO_DATE(argument8);
180 l_currency_code_low := argument9;
181 l_currency_code_high := argument10;
182 l_trx_date_low := FND_DATE.CANONICAL_TO_DATE(argument11);
183 l_trx_date_high := FND_DATE.CANONICAL_TO_DATE(argument12);
184 l_due_date_low := FND_DATE.CANONICAL_TO_DATE(argument13);
185 l_due_date_high := FND_DATE.CANONICAL_TO_DATE(argument14);
186 l_invoice_type_low := argument15;
187 l_invoice_type_high := argument16;
188 l_adj_type_low := argument17;
189 l_adj_type_high := argument18;
190 l_doc_seq_name := argument19;
191 l_doc_seq_low := argument20;
192 l_doc_seq_high := argument21;
193
194 --
195 -- Run report
196 arrx_adj.aradj_rep (
197 l_request_id,
198 l_reporting_level,
199 l_reporting_entity_id,
200 l_sob_id,
201 l_coa_id,
202 l_co_seg_low,
203 l_co_seg_high,
204 l_gl_date_low,
205 l_gl_date_high,
206 l_currency_code_low,
207 l_currency_code_high,
208 l_trx_date_low,
209 l_trx_date_high,
210 l_due_date_low,
211 l_due_date_high,
212 l_invoice_type_low,
213 l_invoice_type_high,
214 l_adj_type_low,
215 l_adj_type_high,
216 l_doc_seq_name,
217 l_doc_seq_low,
218 l_doc_seq_high,
219 retcode,
220 errbuf);
221
222 commit;
223 EXCEPTION
224 WHEN OTHERS THEN
225 fa_rx_util_pkg.debug('AR_SHARED_SERVER_ERROR');
226 fa_rx_util_pkg.debug(sqlcode);
227 fa_rx_util_pkg.debug(sqlerrm);
228 retcode := 2;
229 END ADJUSTMENT_REGISTER;
230
231
232
233 END ARRX_C_ADJ;