[Home] [Help]
PACKAGE BODY: APPS.FARX_C_RT
Source
1 PACKAGE BODY FARX_C_RT as
2 /* $Header: farxcrtb.pls 115.6 2002/11/13 04:25:27 glchen ship $ */
3
4 g_print_debug boolean := fa_cache_pkg.fa_print_debug;
5
6 PROCEDURE RET (
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 account 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 segment 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('RET: ' || 'argument1:' ||argument1);
124 fa_rx_util_pkg.debug('RET: ' || 'argument2:' ||argument2);
125 fa_rx_util_pkg.debug('RET: ' || 'argument3:' ||argument3);
126 fa_rx_util_pkg.debug('RET: ' || 'argument4:' ||argument4);
127 fa_rx_util_pkg.debug('RET: ' || 'argument5:' ||argument5);
128 fa_rx_util_pkg.debug('RET: ' || 'argument6:' ||argument6);
129 fa_rx_util_pkg.debug('RET: ' || 'argument7:' ||argument7);
130 fa_rx_util_pkg.debug('RET: ' || 'argument8:' ||argument8);
131 fa_rx_util_pkg.debug('RET: ' || 'argument9:' ||argument9);
132 fa_rx_util_pkg.debug('RET: ' || 'argument10:' ||argument10);
133 fa_rx_util_pkg.debug('RET: ' || 'argument11:' ||argument11);
134 fa_rx_util_pkg.debug('RET: ' || 'argument12:' ||argument12);
135 fa_rx_util_pkg.debug('RET: ' || 'argument13:' ||argument13);
136 fa_rx_util_pkg.debug('RET: ' || 'argument14:' ||argument14);
137 fa_rx_util_pkg.debug('RET: ' || 'argument15:' ||argument15);
138 fa_rx_util_pkg.debug('RET: ' || 'argument16:' ||argument16);
139 fa_rx_util_pkg.debug('RET: ' || '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 = 'RXFARET';
150
151 h_request_id := fnd_global.conc_request_id;
152 fnd_profile.get('USER_ID',h_user_id);
153
154 farx_rt.ret (
155 book => argument1,
156 begin_period => argument2,
157 end_period => argument3,
158 from_maj_cat => argument6,
159 to_maj_cat => argument7,
160 from_min_cat => argument9,
161 to_min_cat => argument10,
162 from_cc => argument11,
163 to_cc => argument12,
164 cat_seg_num => argument13,
165 from_cat_seg_val => argument14,
166 to_cat_seg_val => argument15,
167 from_asset_num => argument16,
168 to_asset_num => argument17,
169 request_id => h_request_id,
170 user_id => h_user_id,
171 retcode => retcode,
172 errbuf => errbuf);
173 retcode := 0;
174
175
176 exception when others then
177 fnd_message.set_name('OFA', 'FA_SHARED_SERVER_ERROR');
178 h_err_msg := fnd_message.get;
179 fa_rx_conc_mesg_pkg.log(h_err_msg);
180 retcode := 2;
181
182
183 end ret;
184
185 END FARX_C_RT;