[Home] [Help]
PACKAGE BODY: APPS.ARRX_C_UNAPP
Source
1 PACKAGE BODY ARRX_C_UNAPP AS
2 /* $Header: ARRXCUNB.pls 120.2 2006/06/24 06:06:35 ggadhams noship $ */
3
4 PROCEDURE AR_UNAPP_REC_REGISTER (
5 errbuf out NOCOPY varchar2,
6 retcode out NOCOPY varchar2,
7 argument1 in varchar2, -- reporting_level
8 argument2 in varchar2, -- reporting_entity_id
9 argument3 in varchar2, -- set_of_books_id
10 argument4 in varchar2, -- coaid
11 argument5 in varchar2, -- company_segment_low
12 argument6 in varchar2, -- company_segment_high
13 argument7 in varchar2, -- gl_date_from
14 argument8 in varchar2, -- gl_date_to
15 argument9 in varchar2, -- entered_currency
16 argument10 in varchar2, -- batch_name_low
17 argument11 in varchar2, -- batch_name_high
18 argument12 in varchar2, -- batch_source_name_low
19 argument13 in varchar2, -- batch_source_name_high
20 argument14 in varchar2, -- customer_name_low
21 argument15 in varchar2, -- customer_name_high
22 argument16 in varchar2, -- customer_number_low
23 argument17 in varchar2, -- customer_number_high
24 argument18 in varchar2, -- receipt_number_low
25 argument19 in varchar2, -- receipt_number_high
26 argument20 in varchar2 default 'N', -- debug flag
27 argument21 in varchar2 default 'N', -- sql trace
28 argument22 in varchar2 default null,
29 argument23 in varchar2 default null,
30 argument24 in varchar2 default null,
31 argument25 in varchar2 default null,
32 argument26 in varchar2 default null,
33 argument27 in varchar2 default null,
34 argument28 in varchar2 default null,
35 argument29 in varchar2 default null,
36 argument30 in varchar2 default null,
37 argument31 in varchar2 default null,
38 argument32 in varchar2 default null,
39 argument33 in varchar2 default null,
40 argument34 in varchar2 default null,
41 argument35 in varchar2 default null,
42 argument36 in varchar2 default null,
43 argument37 in varchar2 default null,
44 argument38 in varchar2 default null,
45 argument39 in varchar2 default null,
46 argument40 in varchar2 default null,
47 argument41 in varchar2 default null,
48 argument42 in varchar2 default null,
49 argument43 in varchar2 default null,
50 argument44 in varchar2 default null,
51 argument45 in varchar2 default null,
52 argument46 in varchar2 default null,
53 argument47 in varchar2 default null,
54 argument48 in varchar2 default null,
55 argument49 in varchar2 default null,
56 argument50 in varchar2 default null,
57 argument51 in varchar2 default null,
58 argument52 in varchar2 default null,
59 argument53 in varchar2 default null,
60 argument54 in varchar2 default null,
61 argument55 in varchar2 default null,
62 argument56 in varchar2 default null,
63 argument57 in varchar2 default null,
64 argument58 in varchar2 default null,
65 argument59 in varchar2 default null,
66 argument60 in varchar2 default null,
67 argument61 in varchar2 default null,
68 argument62 in varchar2 default null,
69 argument63 in varchar2 default null,
70 argument64 in varchar2 default null,
71 argument65 in varchar2 default null,
72 argument66 in varchar2 default null,
73 argument67 in varchar2 default null,
74 argument68 in varchar2 default null,
75 argument69 in varchar2 default null,
76 argument70 in varchar2 default null,
77 argument71 in varchar2 default null,
78 argument72 in varchar2 default null,
79 argument73 in varchar2 default null,
80 argument74 in varchar2 default null,
81 argument75 in varchar2 default null,
82 argument76 in varchar2 default null,
83 argument77 in varchar2 default null,
84 argument78 in varchar2 default null,
85 argument79 in varchar2 default null,
86 argument80 in varchar2 default null,
87 argument81 in varchar2 default null,
88 argument82 in varchar2 default null,
89 argument83 in varchar2 default null,
90 argument84 in varchar2 default null,
91 argument85 in varchar2 default null,
92 argument86 in varchar2 default null,
93 argument87 in varchar2 default null,
94 argument88 in varchar2 default null,
95 argument89 in varchar2 default null,
96 argument90 in varchar2 default null,
97 argument91 in varchar2 default null,
98 argument92 in varchar2 default null,
99 argument93 in varchar2 default null,
100 argument94 in varchar2 default null,
101 argument95 in varchar2 default null,
102 argument96 in varchar2 default null,
103 argument97 in varchar2 default null,
104 argument98 in varchar2 default null,
105 argument99 in varchar2 default null,
106 argument100 in varchar2 default null) IS
107
108 l_request_id NUMBER;
109 l_reporting_level VARCHAR2(50);
110 l_reporting_entity_id NUMBER;
111 l_sob_id NUMBER;
112 l_coa_id NUMBER;
113 l_co_seg_low VARCHAR2(25);
114 l_co_seg_high VARCHAR2(25);
115 l_gl_date_from DATE;
116 l_gl_date_to DATE;
117 l_entered_currency VARCHAR2(15);
118 l_batch_name_low VARCHAR2(20);
119 l_batch_name_high VARCHAR2(20);
120 l_batch_src_low VARCHAR2(50);
121 l_batch_src_high VARCHAR2(50);
122 l_customer_name_low VARCHAR2(50);
123 l_customer_name_high VARCHAR2(50);
124 l_customer_number_low VARCHAR2(30);
125 l_customer_number_high VARCHAR2(30);
126 l_receipt_number_low VARCHAR2(30);
127 l_receipt_number_high VARCHAR2(30);
128 l_sob_type VARCHAR2(1) := 'P';
129
130 BEGIN
131
132 /* Enable debug based on the input */
133 IF upper(substr(argument20,1,1)) = 'Y' THEN
134 fa_rx_util_pkg.enable_debug;
135 END IF;
136
137 fa_rx_util_pkg.debug('AR_UNAPP_REC_REGISTER called with parameters
138 Reporting Level : '||argument1||'
139 Reporting Entity ID : '||argument2||'
140 Set of Books ID : '||argument3||'
141 Chart of Accounts ID : '||argument4||'
142 Company Segment Low : '||argument5||'
143 Company Segment High : '||argument6||'
144 GL Date From : '||argument7||'
145 GL Date To : '||argument8||'
146 Entered Currency : '||argument9||'
147 Batch Name Low : '||argument10||'
148 Batch Name High : '||argument11||'
149 Batch Source Name Low : '||argument12||'
150 Batch Source Name High : '||argument13||'
151 Customer Name Low : '||argument14||'
152 Customer Name High : '||argument15||'
153 Customer Number Low : '||argument16||'
154 Customer Number High : '||argument17||'
155 Receipt Number Low : '||argument18||'
156 Receipt Number High : '||argument19);
157
158 /* Get the request id */
159 l_request_id := fnd_global.conc_request_id;
160
161 /* Assign the parameters to the local variables */
162 l_reporting_level := argument1;
163 l_reporting_entity_id := argument2;
164 l_sob_id := argument3;
165 l_coa_id := argument4;
166 l_co_seg_low := argument5;
167 l_co_seg_high := argument6;
168 l_gl_date_from := fnd_date.canonical_to_date(argument7);
169 l_gl_date_to := fnd_date.canonical_to_date(argument8);
170 l_entered_currency := argument9;
171 l_batch_name_low := argument10;
172 l_batch_name_high := argument11;
173 l_batch_src_low := argument12;
174 l_batch_src_high := argument13;
175 l_customer_name_low := argument14;
176 l_customer_name_high := argument15;
177 l_customer_number_low := argument16;
178 l_customer_number_high := argument17;
179 l_receipt_number_low := argument18;
180 l_receipt_number_high := argument19;
181
182 /* If the report is run for RSOB, set the set of books context
183 BEGIN
184 select mrc_sob_type_code
185 into l_sob_type
186 from gl_sets_of_books
187 where set_of_books_id = l_sob_id;
188 EXCEPTION
189 WHEN OTHERS THEN
190 l_sob_type := 'P';
191 END;
192
193 IF l_sob_type = 'R'
194 THEN
195 fnd_client_info.set_currency_context(l_sob_id);
196 END IF; */
197
198 /* Bug 5244326Selecting the SOB based on the Reporting context*/
199
200 IF l_reporting_level = 1000 then
201 l_sob_id := l_reporting_entity_id;
202 mo_global.init('AR');
203 mo_global.set_policy_context('M',null);
204 ELSIF l_reporting_level = 3000 then
205 select set_of_books_id
206 into l_sob_id
207 from ar_system_parameters_all
208 where org_id = l_reporting_entity_id;
209 mo_global.init('AR');
210 mo_global.set_policy_context('S',l_reporting_entity_id);
211 END IF;
212
213
214
215 l_sob_type := 'P';
216
217
218 /* Run the report by calling the inner procedure */
219 arrx_rc_unapp.ar_unapp_reg(
220 l_request_id,
221 l_reporting_level,
222 l_reporting_entity_id,
223 l_sob_id,
224 l_coa_id,
225 l_co_seg_low,
226 l_co_seg_high,
227 l_gl_date_from,
228 l_gl_date_to,
229 l_entered_currency,
230 l_batch_name_low,
231 l_batch_name_high,
232 l_batch_src_low,
233 l_batch_src_high,
234 l_customer_name_low,
235 l_customer_name_high,
236 l_customer_number_low,
237 l_customer_number_high,
238 l_receipt_number_low,
239 l_receipt_number_high,
240 retcode,
241 errbuf);
242
243 fa_rx_util_pkg.debug('Completed AR_UNAPP_REC_REGISTER successfully');
244
245 commit;
246
247 EXCEPTION
248 WHEN OTHERS THEN
249 fa_rx_util_pkg.debug('AR_UNAPP_REC_REGISTER EXCEPTION');
250 fa_rx_util_pkg.debug(sqlcode);
251 fa_rx_util_pkg.debug(sqlerrm);
252 retcode := 2;
253 END AR_UNAPP_REC_REGISTER;
254
255 END ARRX_C_UNAPP;