[Home] [Help]
PACKAGE BODY: APPS.FARX_C_DP
Source
1 PACKAGE BODY FARX_C_DP AS
2 /* $Header: farxcdpb.pls 115.10 2003/03/04 05:21:11 hhiraga ship $ */
3 g_print_debug boolean := fa_cache_pkg.fa_print_debug;
4
5 PROCEDURE deprn_rep (
6 errbuf out nocopy varchar2,
7 retcode out nocopy varchar2,
8 argument1 in varchar2, -- book
9 argument2 in varchar2, -- period_name
10 argument3 in varchar2, -- report_style
11 argument4 in varchar2 default null, -- debug
12 argument5 in varchar2 default null,
13 argument6 in varchar2 default null,
14 argument7 in varchar2 default null,
15 argument8 in varchar2 default null,
16 argument9 in varchar2 default null,
17 argument10 in varchar2 default null,
18 argument11 in varchar2 default null,
19 argument12 in varchar2 default null,
20 argument13 in varchar2 default null,
21 argument14 in varchar2 default null,
22 argument15 in varchar2 default null,
23 argument16 in varchar2 default null,
24 argument17 in varchar2 default null,
25 argument18 in varchar2 default null,
26 argument19 in varchar2 default null,
27 argument20 in varchar2 default null,
28 argument21 in varchar2 default null,
29 argument22 in varchar2 default null,
30 argument23 in varchar2 default null,
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) is
108
109 h_request_id NUMBER;
110 h_login_id NUMBER;
111 h_err_msg VARCHAR2(2000);
112 h_debug BOOLEAN;
113
114 h_report_style VARCHAR2(1);
115
116 BEGIN
117 h_debug := Upper(argument4) LIKE 'Y%';
118 IF h_debug THEN
119 fa_rx_util_pkg.enable_debug;
120 END IF;
121
122 -- select max(fcr.request_id) into h_request_id
123 -- from fnd_concurrent_requests fcr, fnd_concurrent_programs fcp
124 -- where fcr.argument1 = argument1
125 -- and fcr.argument2 = argument2
126 -- and fcr.argument3 = argument3
127 -- and fcr.phase_code = 'R'
128 -- and fcr.concurrent_program_id = fcp.concurrent_program_id
129 -- and fcp.concurrent_program_name = 'RXFARL';
130
131 h_request_id := fnd_global.conc_request_id;
132 fnd_profile.get('LOGIN_ID',h_login_id);
133
134 if nvl(argument3,'N') = 'Y' then
135 h_report_style := 'D';
136 else
137 h_report_style := 'S';
138 end if;
139
140 farx_dp.deprn_run (
141 book => argument1,
142 period => argument2,
143 from_bal => NULL,
144 to_bal => NULL,
145 from_acct => NULL,
146 to_acct => NULL,
147 from_cc => NULL,
148 to_cc => NULL,
149 from_maj_cat => NULL,
150 from_min_cat => NULL,
151 cat_seg_num => NULL,
152 from_cat_seg_val => NULL,
153 prop_type => NULL,
154 to_maj_cat => NULL,
155 to_min_cat => NULL,
156 to_cat_seg_val => NULL,
157 from_asset_num => NULL,
158 to_asset_num => NULL,
159 report_style => h_report_style,
160 request_id => h_request_id,
161 login_id => h_login_id,
162 retcode => retcode,
163 errbuf => errbuf);
164
165 commit;
166
167 EXCEPTION WHEN OTHERS THEN
168 fnd_message.set_name('OFA', 'FA_SHARED_SERVER_ERROR');
169 h_err_msg := fnd_message.get;
170 fa_rx_conc_mesg_pkg.log(h_err_msg);
171 retcode := 2;
172
173 END deprn_rep;
174
175 --
176
177 PROCEDURE book_run (
178 errbuf out nocopy varchar2,
179 retcode out nocopy varchar2,
180 argument1 in varchar2, -- book
181 argument2 in varchar2, -- period_name
182 argument3 in varchar2, -- chart_of_accounts_id
183 argument4 in varchar2, -- chart_of_accounts_id
184 argument5 in varchar2 default null, -- from balancing
185 argument6 in varchar2 default null, -- to balancing
186 argument7 in varchar2 default null, -- from account
187 argument8 in varchar2 default null, -- to account
188 argument9 in varchar2 default null, -- from cc
189 argument10 in varchar2 default null, -- to cc
190 argument11 in varchar2 default null, -- from major category
191 argument12 in varchar2 default null, -- to major category
192 argument13 in varchar2 default null, -- minor category exists check
193 argument14 in varchar2 default null, -- from minor category
194 argument15 in varchar2 default null, -- to minor category
195 argument16 in varchar2 default null, -- category segment number
196 argument17 in varchar2 default null, -- from category segment value
197 argument18 in varchar2 default null, -- to category segment value
198 argument19 in varchar2 default null, -- property type
199 argument20 in varchar2 default null, -- from asset number
200 argument21 in varchar2 default null, -- to asset number
201 argument22 in varchar2, -- report_style
202 argument23 in varchar2 default null, -- debug
203 argument24 in varchar2 default null,
204 argument25 in varchar2 default null,
205 argument26 in varchar2 default null,
206 argument27 in varchar2 default null,
207 argument28 in varchar2 default null,
208 argument29 in varchar2 default null,
209 argument30 in varchar2 default null,
210 argument31 in varchar2 default null,
211 argument32 in varchar2 default null,
212 argument33 in varchar2 default null,
213 argument34 in varchar2 default null,
214 argument35 in varchar2 default null,
215 argument36 in varchar2 default null,
216 argument37 in varchar2 default null,
217 argument38 in varchar2 default null,
218 argument39 in varchar2 default null,
219 argument40 in varchar2 default null,
220 argument41 in varchar2 default null,
221 argument42 in varchar2 default null,
222 argument43 in varchar2 default null,
223 argument44 in varchar2 default null,
224 argument45 in varchar2 default null,
225 argument46 in varchar2 default null,
226 argument47 in varchar2 default null,
227 argument48 in varchar2 default null,
228 argument49 in varchar2 default null,
229 argument50 in varchar2 default null,
230 argument51 in varchar2 default null,
231 argument52 in varchar2 default null,
232 argument53 in varchar2 default null,
233 argument54 in varchar2 default null,
234 argument55 in varchar2 default null,
235 argument56 in varchar2 default null,
236 argument57 in varchar2 default null,
237 argument58 in varchar2 default null,
238 argument59 in varchar2 default null,
239 argument60 in varchar2 default null,
240 argument61 in varchar2 default null,
241 argument62 in varchar2 default null,
242 argument63 in varchar2 default null,
243 argument64 in varchar2 default null,
244 argument65 in varchar2 default null,
245 argument66 in varchar2 default null,
246 argument67 in varchar2 default null,
247 argument68 in varchar2 default null,
248 argument69 in varchar2 default null,
249 argument70 in varchar2 default null,
250 argument71 in varchar2 default null,
251 argument72 in varchar2 default null,
252 argument73 in varchar2 default null,
253 argument74 in varchar2 default null,
254 argument75 in varchar2 default null,
255 argument76 in varchar2 default null,
256 argument77 in varchar2 default null,
257 argument78 in varchar2 default null,
258 argument79 in varchar2 default null,
259 argument80 in varchar2 default null,
260 argument81 in varchar2 default null,
261 argument82 in varchar2 default null,
262 argument83 in varchar2 default null,
263 argument84 in varchar2 default null,
264 argument85 in varchar2 default null,
265 argument86 in varchar2 default null,
266 argument87 in varchar2 default null,
267 argument88 in varchar2 default null,
268 argument89 in varchar2 default null,
269 argument90 in varchar2 default null,
270 argument91 in varchar2 default null,
271 argument92 in varchar2 default null,
272 argument93 in varchar2 default null,
273 argument94 in varchar2 default null,
274 argument95 in varchar2 default null,
275 argument96 in varchar2 default null,
276 argument97 in varchar2 default null,
277 argument98 in varchar2 default null,
278 argument99 in varchar2 default null,
279 argument100 in varchar2 default null) is
280
281 h_request_id NUMBER;
282 h_login_id NUMBER;
283 h_err_msg VARCHAR2(2000);
284 h_debug BOOLEAN;
285
286 h_report_style VARCHAR2(1);
287 BEGIN
288 --
289 h_debug := Upper(argument23) LIKE 'Y%';
290 IF h_debug THEN
291 fa_rx_util_pkg.enable_debug;
292 END IF;
293
294 if nvl(argument22,'N') = 'Y' then
295 h_report_style := 'D';
296 else
297 h_report_style := 'S';
298 end if;
299
300 IF (g_print_debug) THEN
301 fa_rx_util_pkg.debug('book_run: ' || 'argument1:' ||argument1);
302 fa_rx_util_pkg.debug('book_run: ' || 'argument2:' ||argument2);
303 fa_rx_util_pkg.debug('book_run: ' || 'argument3:' ||argument3);
304 fa_rx_util_pkg.debug('book_run: ' || 'argument4:' ||argument4);
305 fa_rx_util_pkg.debug('book_run: ' || 'argument5:' ||argument5);
306 fa_rx_util_pkg.debug('book_run: ' || 'argument6:' ||argument6);
307 fa_rx_util_pkg.debug('book_run: ' || 'argument7:' ||argument7);
308 fa_rx_util_pkg.debug('book_run: ' || 'argument8:' ||argument8);
309 fa_rx_util_pkg.debug('book_run: ' || 'argument9:' ||argument9);
310 fa_rx_util_pkg.debug('book_run: ' || 'argument10:' ||argument10);
311 fa_rx_util_pkg.debug('book_run: ' || 'argument11:' ||argument11);
312 fa_rx_util_pkg.debug('book_run: ' || 'argument12:' ||argument12);
313 fa_rx_util_pkg.debug('book_run: ' || 'argument13:' ||argument13);
314 fa_rx_util_pkg.debug('book_run: ' || 'argument14:' ||argument14);
315 fa_rx_util_pkg.debug('book_run: ' || 'argument15:' ||argument15);
316 fa_rx_util_pkg.debug('book_run: ' || 'argument16:' ||argument16);
317 fa_rx_util_pkg.debug('book_run: ' || 'argument17:' ||argument17);
318 fa_rx_util_pkg.debug('book_run: ' || 'argument18:' ||argument18);
319 fa_rx_util_pkg.debug('book_run: ' || 'argument19:' ||argument19);
320 fa_rx_util_pkg.debug('book_run: ' || 'argument20:' ||argument20);
321 fa_rx_util_pkg.debug('book_run: ' || 'argument21:' ||argument21);
322 fa_rx_util_pkg.debug('book_run: ' || 'argument22:' ||argument22);
323 END IF;
324
325 -- select max(fcr.request_id) into h_request_id
326 -- from fnd_concurrent_requests fcr, fnd_concurrent_programs fcp
327 -- where fcr.argument1 = argument1
328 -- and fcr.argument2 = argument2
329 -- and fcr.argument3 = argument3
330 -- and fcr.phase_code = 'R'
331 -- and fcr.concurrent_program_id = fcp.concurrent_program_id
332 -- and fcp.concurrent_program_name = 'RXFARL';
333
334 h_request_id := fnd_global.conc_request_id;
335 fnd_profile.get('LOGIN_ID',h_login_id);
336
337 farx_dp.deprn_run (
338 book => argument1,
339 period => argument2,
340 from_bal => argument5,
341 to_bal => argument6,
342 from_acct => argument7,
343 to_acct => argument8,
344 from_cc => argument9,
345 to_cc => argument10,
346 from_maj_cat => argument11,
347 to_maj_cat => argument12,
348 from_min_cat => argument14,
349 to_min_cat => argument15,
350 cat_seg_num => argument16,
351 from_cat_seg_val => argument17,
352 to_cat_seg_val => argument18,
353 prop_type => argument19,
354 from_asset_num => argument20,
355 to_asset_num => argument21,
356 report_style => h_report_style,
357 request_id => h_request_id,
358 login_id => h_login_id,
359 retcode => retcode,
360 errbuf => errbuf);
361
362 commit;
363
364 EXCEPTION WHEN OTHERS THEN
365 fnd_message.set_name('OFA', 'FA_SHARED_SERVER_ERROR');
366 h_err_msg := fnd_message.get;
367 fa_rx_conc_mesg_pkg.log(h_err_msg);
368 retcode := 2;
369
370 END book_run;
371
372 END FARX_C_DP;