[Home] [Help]
PACKAGE BODY: APPS.FARX_C_AD
Source
1 PACKAGE BODY FARX_C_AD as
2 /* $Header: farxcadb.pls 115.11 2002/11/13 04:25:19 glchen ship $ */
3
4 g_print_debug boolean := fa_cache_pkg.fa_print_debug;
5
6 PROCEDURE ADD_PERIOD (
7 errbuf out nocopy varchar2,
8 retcode out nocopy varchar2,
9 argument1 in varchar2, -- book
10 argument2 in varchar2, -- begin period_name
11 argument3 in varchar2, -- end period name
12 argument4 in varchar2 default null, -- chart of accounts ID
13 argument5 in varchar2 default null, -- category structure number
14 argument6 in varchar2 default null, -- from major category
15 argument7 in varchar2 default null, -- to major category
16 argument8 in varchar2 default null, -- minor category exists check
17 argument9 in varchar2 default null, -- from minor category
18 argument10 in varchar2 default null, -- to minor category
19 argument11 in varchar2 default null, -- from cost center
20 argument12 in varchar2 default null, -- to cost center
21 argument13 in varchar2 default null, -- category segmrnt number
22 argument14 in varchar2 default null, -- from category segment value
23 argument15 in varchar2 default null, -- to category segment value
24 argument16 in varchar2 default null, -- from asset number
25 argument17 in varchar2 default null, -- to asset number
26 argument18 in varchar2 default null, -- debug
27 argument19 in varchar2 default null,
28 argument20 in varchar2 default null,
29 argument21 in varchar2 default null,
30 argument22 in varchar2 default null,
31 argument23 in varchar2 default null,
32 argument24 in varchar2 default null,
33 argument25 in varchar2 default null,
34 argument26 in varchar2 default null,
35 argument27 in varchar2 default null,
36 argument28 in varchar2 default null,
37 argument29 in varchar2 default null,
38 argument30 in varchar2 default null,
39 argument31 in varchar2 default null,
40 argument32 in varchar2 default null,
41 argument33 in varchar2 default null,
42 argument34 in varchar2 default null,
43 argument35 in varchar2 default null,
44 argument36 in varchar2 default null,
45 argument37 in varchar2 default null,
46 argument38 in varchar2 default null,
47 argument39 in varchar2 default null,
48 argument40 in varchar2 default null,
49 argument41 in varchar2 default null,
50 argument42 in varchar2 default null,
51 argument43 in varchar2 default null,
52 argument44 in varchar2 default null,
53 argument45 in varchar2 default null,
54 argument46 in varchar2 default null,
55 argument47 in varchar2 default null,
56 argument48 in varchar2 default null,
57 argument49 in varchar2 default null,
58 argument50 in varchar2 default null,
59 argument51 in varchar2 default null,
60 argument52 in varchar2 default null,
61 argument53 in varchar2 default null,
62 argument54 in varchar2 default null,
63 argument55 in varchar2 default null,
64 argument56 in varchar2 default null,
65 argument57 in varchar2 default null,
66 argument58 in varchar2 default null,
67 argument59 in varchar2 default null,
68 argument60 in varchar2 default null,
69 argument61 in varchar2 default null,
70 argument62 in varchar2 default null,
71 argument63 in varchar2 default null,
72 argument64 in varchar2 default null,
73 argument65 in varchar2 default null,
74 argument66 in varchar2 default null,
75 argument67 in varchar2 default null,
76 argument68 in varchar2 default null,
77 argument69 in varchar2 default null,
78 argument70 in varchar2 default null,
79 argument71 in varchar2 default null,
80 argument72 in varchar2 default null,
81 argument73 in varchar2 default null,
82 argument74 in varchar2 default null,
83 argument75 in varchar2 default null,
84 argument76 in varchar2 default null,
85 argument77 in varchar2 default null,
86 argument78 in varchar2 default null,
87 argument79 in varchar2 default null,
88 argument80 in varchar2 default null,
89 argument81 in varchar2 default null,
90 argument82 in varchar2 default null,
91 argument83 in varchar2 default null,
92 argument84 in varchar2 default null,
93 argument85 in varchar2 default null,
94 argument86 in varchar2 default null,
95 argument87 in varchar2 default null,
96 argument88 in varchar2 default null,
97 argument89 in varchar2 default null,
98 argument90 in varchar2 default null,
99 argument91 in varchar2 default null,
100 argument92 in varchar2 default null,
101 argument93 in varchar2 default null,
102 argument94 in varchar2 default null,
103 argument95 in varchar2 default null,
104 argument96 in varchar2 default null,
105 argument97 in varchar2 default null,
106 argument98 in varchar2 default null,
107 argument99 in varchar2 default null,
108 argument100 in varchar2 default null) IS
109
110 h_request_id number;
111 h_user_id number;
112 h_err_msg varchar2(2000);
113 h_debug BOOLEAN;
114
115 begin
116 -- for debugging
117 h_debug := Upper(argument18) LIKE 'Y%';
118 IF h_debug THEN
119 fa_rx_util_pkg.enable_debug;
120 END IF;
121
122 IF (g_print_debug) THEN
123 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument1:' ||argument1);
124 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument2:' ||argument2);
125 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument3:' ||argument3);
126 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument4:' ||argument4);
127 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument5:' ||argument5);
128 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument6:' ||argument6);
129 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument7:' ||argument7);
130 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument8:' ||argument8);
131 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument9:' ||argument9);
132 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument10:' ||argument10);
133 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument11:' ||argument11);
134 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument12:' ||argument12);
135 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument13:' ||argument13);
136 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument14:' ||argument14);
137 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument15:' ||argument15);
138 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument16:' ||argument16);
139 fa_rx_util_pkg.debug('ADD_PERIOD: ' || 'argument17:' ||argument17);
140 END IF;
141
142 -- select max(fcr.request_id) into h_request_id
143 -- from fnd_concurrent_requests fcr, fnd_concurrent_programs fcp
144 -- where fcr.argument1 = argument1
145 -- and fcr.argument2 = argument2
146 -- and fcr.argument3 = argument3
147 -- and fcr.phase_code = 'R'
148 -- and fcr.concurrent_program_id = fcp.concurrent_program_id
149 -- and fcp.concurrent_program_name = 'RXFAADP';
150
151 h_request_id := fnd_global.conc_request_id;
152
153 fnd_profile.get('USER_ID',h_user_id);
154
155 farx_ad.add_by_period (
156 book => argument1,
157 begin_period => argument2,
158 end_period => argument3,
159 from_maj_cat => argument6,
160 to_maj_cat => argument7,
161 from_min_cat => argument9,
162 to_min_cat => argument10,
163 from_cc => argument11,
164 to_cc => argument12,
165 cat_seg_num => argument13,
166 from_cat_seg_val => argument14,
167 to_cat_seg_val => argument15,
168 from_asset_num => argument16,
169 to_asset_num => argument17,
170 request_id => h_request_id,
171 user_id => h_user_id,
172 retcode => retcode,
173 errbuf => errbuf);
174
175 retcode := 0;
176
177 exception when others then
178 fnd_message.set_name('OFA', 'FA_SHARED_SERVER_ERROR');
179 h_err_msg := fnd_message.get;
180 fa_rx_conc_mesg_pkg.log(h_err_msg);
181 retcode := 2;
182
183 end add_period;
184
185
186 PROCEDURE ADD_DATE (
187 errbuf out nocopy varchar2,
188 retcode out nocopy varchar2,
189 argument1 in varchar2, -- book
190 argument2 in varchar2, -- begin dpis
191 argument3 in varchar2, -- end dpis
192 argument4 in varchar2 default null,
193 argument5 in varchar2 default null,
194 argument6 in varchar2 default null,
195 argument7 in varchar2 default null,
196 argument8 in varchar2 default null,
197 argument9 in varchar2 default null,
198 argument10 in varchar2 default null,
199 argument11 in varchar2 default null,
200 argument12 in varchar2 default null,
201 argument13 in varchar2 default null,
202 argument14 in varchar2 default null,
203 argument15 in varchar2 default null,
204 argument16 in varchar2 default null,
205 argument17 in varchar2 default null,
206 argument18 in varchar2 default null,
207 argument19 in varchar2 default null,
208 argument20 in varchar2 default null,
209 argument21 in varchar2 default null,
210 argument22 in varchar2 default null,
211 argument23 in varchar2 default null,
212 argument24 in varchar2 default null,
213 argument25 in varchar2 default null,
214 argument26 in varchar2 default null,
215 argument27 in varchar2 default null,
216 argument28 in varchar2 default null,
217 argument29 in varchar2 default null,
218 argument30 in varchar2 default null,
219 argument31 in varchar2 default null,
220 argument32 in varchar2 default null,
221 argument33 in varchar2 default null,
222 argument34 in varchar2 default null,
223 argument35 in varchar2 default null,
224 argument36 in varchar2 default null,
225 argument37 in varchar2 default null,
226 argument38 in varchar2 default null,
227 argument39 in varchar2 default null,
228 argument40 in varchar2 default null,
229 argument41 in varchar2 default null,
230 argument42 in varchar2 default null,
231 argument43 in varchar2 default null,
232 argument44 in varchar2 default null,
233 argument45 in varchar2 default null,
234 argument46 in varchar2 default null,
235 argument47 in varchar2 default null,
236 argument48 in varchar2 default null,
237 argument49 in varchar2 default null,
238 argument50 in varchar2 default null,
239 argument51 in varchar2 default null,
240 argument52 in varchar2 default null,
241 argument53 in varchar2 default null,
242 argument54 in varchar2 default null,
243 argument55 in varchar2 default null,
244 argument56 in varchar2 default null,
245 argument57 in varchar2 default null,
246 argument58 in varchar2 default null,
247 argument59 in varchar2 default null,
248 argument60 in varchar2 default null,
249 argument61 in varchar2 default null,
250 argument62 in varchar2 default null,
251 argument63 in varchar2 default null,
252 argument64 in varchar2 default null,
253 argument65 in varchar2 default null,
254 argument66 in varchar2 default null,
255 argument67 in varchar2 default null,
256 argument68 in varchar2 default null,
257 argument69 in varchar2 default null,
258 argument70 in varchar2 default null,
259 argument71 in varchar2 default null,
260 argument72 in varchar2 default null,
261 argument73 in varchar2 default null,
262 argument74 in varchar2 default null,
263 argument75 in varchar2 default null,
264 argument76 in varchar2 default null,
265 argument77 in varchar2 default null,
266 argument78 in varchar2 default null,
267 argument79 in varchar2 default null,
268 argument80 in varchar2 default null,
269 argument81 in varchar2 default null,
270 argument82 in varchar2 default null,
271 argument83 in varchar2 default null,
272 argument84 in varchar2 default null,
273 argument85 in varchar2 default null,
274 argument86 in varchar2 default null,
275 argument87 in varchar2 default null,
276 argument88 in varchar2 default null,
277 argument89 in varchar2 default null,
278 argument90 in varchar2 default null,
279 argument91 in varchar2 default null,
280 argument92 in varchar2 default null,
281 argument93 in varchar2 default null,
282 argument94 in varchar2 default null,
283 argument95 in varchar2 default null,
284 argument96 in varchar2 default null,
285 argument97 in varchar2 default null,
286 argument98 in varchar2 default null,
287 argument99 in varchar2 default null,
288 argument100 in varchar2 default null) is
289
290 h_request_id number;
291 h_user_id number;
292
293 h_begin_dpis date;
294 h_end_dpis date;
295
296 h_begin_str varchar2(25);
297 h_end_str varchar2(25);
298 h_date_format varchar2(25);
299
300 h_err_msg varchar2(2000);
301
302 begin
303
304 -- select max(fcr.request_id) into h_request_id
305 -- from fnd_concurrent_requests fcr, fnd_concurrent_programs fcp
306 -- where fcr.argument1 = argument1
307 -- and fcr.argument2 = argument2
308 -- and fcr.argument3 = argument3
309 -- and fcr.phase_code = 'R'
310 -- and fcr.concurrent_program_id = fcp.concurrent_program_id
311 -- and fcp.concurrent_program_name = 'RXFAADD';
312
313 h_request_id := fnd_global.conc_request_id;
314 fnd_profile.get('USER_ID',h_user_id);
315
316 -- h_begin_str := substr(argument2,1,instr(argument2,'_')-1);
317 -- h_end_str := substr(argument3,1,instr(argument3,'_')-1);
318 --
319 -- h_date_format := substr(argument2,instr(argument2,'_')+1);
320 -- h_begin_dpis := to_date(h_begin_str,h_date_format);
321 -- h_end_dpis := to_date(h_end_str,h_date_format);
322
323 h_begin_dpis := to_date(argument2,'YYYY/MM/DD HH24:MI:SS');
324 h_end_dpis := to_date(argument3,'YYYY/MM/DD HH24:MI:SS');
325
326 farx_ad.add_by_date (
327 book => argument1,
328 begin_dpis => h_begin_dpis,
329 end_dpis => h_end_dpis,
330 request_id => h_request_id,
331 user_id => h_user_id,
332 retcode => retcode,
333 errbuf => errbuf);
334 retcode := 0;
335
336
337 exception when others then
338 fnd_message.set_name('OFA', 'FA_SHARED_SERVER_ERROR');
339 h_err_msg := fnd_message.get;
340 fa_rx_conc_mesg_pkg.log(h_err_msg);
341 retcode := 2;
342
343 end add_date;
344
345
346
347
348 PROCEDURE ADD_RESP (
349 errbuf out nocopy varchar2,
350 retcode out nocopy varchar2,
351 argument1 in varchar2, -- book
352 argument2 in varchar2, -- period
353 argument3 in varchar2, -- accounting flex struct
354 argument4 in varchar2, -- begin cost center
355 argument5 in varchar2, -- end cost center
356 argument6 in varchar2 default null,
357 argument7 in varchar2 default null,
358 argument8 in varchar2 default null,
359 argument9 in varchar2 default null,
360 argument10 in varchar2 default null,
361 argument11 in varchar2 default null,
362 argument12 in varchar2 default null,
363 argument13 in varchar2 default null,
364 argument14 in varchar2 default null,
365 argument15 in varchar2 default null,
366 argument16 in varchar2 default null,
367 argument17 in varchar2 default null,
368 argument18 in varchar2 default null,
369 argument19 in varchar2 default null,
370 argument20 in varchar2 default null,
371 argument21 in varchar2 default null,
372 argument22 in varchar2 default null,
373 argument23 in varchar2 default null,
374 argument24 in varchar2 default null,
375 argument25 in varchar2 default null,
376 argument26 in varchar2 default null,
377 argument27 in varchar2 default null,
378 argument28 in varchar2 default null,
379 argument29 in varchar2 default null,
380 argument30 in varchar2 default null,
381 argument31 in varchar2 default null,
382 argument32 in varchar2 default null,
383 argument33 in varchar2 default null,
384 argument34 in varchar2 default null,
385 argument35 in varchar2 default null,
386 argument36 in varchar2 default null,
387 argument37 in varchar2 default null,
388 argument38 in varchar2 default null,
389 argument39 in varchar2 default null,
390 argument40 in varchar2 default null,
391 argument41 in varchar2 default null,
392 argument42 in varchar2 default null,
393 argument43 in varchar2 default null,
394 argument44 in varchar2 default null,
395 argument45 in varchar2 default null,
396 argument46 in varchar2 default null,
397 argument47 in varchar2 default null,
398 argument48 in varchar2 default null,
399 argument49 in varchar2 default null,
400 argument50 in varchar2 default null,
401 argument51 in varchar2 default null,
402 argument52 in varchar2 default null,
403 argument53 in varchar2 default null,
404 argument54 in varchar2 default null,
405 argument55 in varchar2 default null,
406 argument56 in varchar2 default null,
407 argument57 in varchar2 default null,
408 argument58 in varchar2 default null,
409 argument59 in varchar2 default null,
410 argument60 in varchar2 default null,
411 argument61 in varchar2 default null,
412 argument62 in varchar2 default null,
413 argument63 in varchar2 default null,
414 argument64 in varchar2 default null,
415 argument65 in varchar2 default null,
416 argument66 in varchar2 default null,
417 argument67 in varchar2 default null,
418 argument68 in varchar2 default null,
419 argument69 in varchar2 default null,
420 argument70 in varchar2 default null,
421 argument71 in varchar2 default null,
422 argument72 in varchar2 default null,
423 argument73 in varchar2 default null,
424 argument74 in varchar2 default null,
425 argument75 in varchar2 default null,
426 argument76 in varchar2 default null,
427 argument77 in varchar2 default null,
428 argument78 in varchar2 default null,
429 argument79 in varchar2 default null,
430 argument80 in varchar2 default null,
431 argument81 in varchar2 default null,
432 argument82 in varchar2 default null,
433 argument83 in varchar2 default null,
434 argument84 in varchar2 default null,
435 argument85 in varchar2 default null,
436 argument86 in varchar2 default null,
437 argument87 in varchar2 default null,
438 argument88 in varchar2 default null,
439 argument89 in varchar2 default null,
440 argument90 in varchar2 default null,
441 argument91 in varchar2 default null,
442 argument92 in varchar2 default null,
443 argument93 in varchar2 default null,
444 argument94 in varchar2 default null,
445 argument95 in varchar2 default null,
446 argument96 in varchar2 default null,
447 argument97 in varchar2 default null,
448 argument98 in varchar2 default null,
449 argument99 in varchar2 default null,
450 argument100 in varchar2 default null) is
451
452
453 h_request_id number;
454 h_user_id number;
455 h_err_msg varchar2(2000);
456 begin
457
458 -- select max(fcr.request_id) into h_request_id
459 -- from fnd_concurrent_requests fcr, fnd_concurrent_programs fcp
460 -- where fcr.argument1 = argument1
461 -- and fcr.argument2 = argument2
462 -- and fcr.argument3 = argument3
463 -- and fcr.argument4 = argument4
464 -- and fcr.phase_code = 'R'
465 -- and fcr.concurrent_program_id = fcp.concurrent_program_id
466 -- and fcp.concurrent_program_name = 'RXFAADR';
467
468 h_request_id := fnd_global.conc_request_id;
469 fnd_profile.get('USER_ID',h_user_id);
470
471 farx_ad.add_by_resp (
472 book => argument1,
473 period => argument2,
474 begin_cc => argument4,
475 end_cc => argument5,
476 request_id => h_request_id,
477 user_id => h_user_id,
478 retcode => retcode,
479 errbuf => errbuf);
480
481 retcode := 0;
482
483 exception when others then
484 fnd_message.set_name('OFA', 'FA_SHARED_SERVER_ERROR');
485 h_err_msg := fnd_message.get;
486 fa_rx_conc_mesg_pkg.log(h_err_msg);
487 retcode := 2;
488
489 end add_resp;
490
491
492 END FARX_C_AD;