[Home] [Help]
PACKAGE BODY: APPS.FA_DEPRN_TAX_C_PKG
Source
1 PACKAGE BODY FA_DEPRN_TAX_C_PKG AS
2 /* $Header: facdptxb.pls 120.17.12020000.2 2012/07/20 10:15:46 mswetha ship $ */
3 g_print_debug boolean := fa_cache_pkg.fa_print_debug;
4
5 PROCEDURE fadptx_insert (
6 errbuf out nocopy varchar2,
7 retcode out nocopy number,
8 argument1 in varchar2, -- book
9 argument2 in varchar2, -- year
10 argument3 in varchar2, -- locstruct_num
11 argument4 in varchar2, -- start_state
12 argument5 in varchar2, -- end_state
13 argument6 in varchar2, -- cat_struct_num
14 argument7 in varchar2, -- tax_asset_type_seg
15 argument8 in varchar2, -- minor_cat_exist
16 argument9 in varchar2, -- start_category
17 argument10 in varchar2, -- end_category
18 argument11 in varchar2, -- sale_code
19 argument12 in varchar2, -- sum_rep
20 argument13 in varchar2, -- all_rep
21 argument14 in varchar2, -- add_rep
22 argument15 in varchar2, -- dec_rep
23 argument16 in varchar2, -- debug
24 argument17 in varchar2, -- round --bug4919991
25 argument18 in varchar2, -- Bug 9145830: rounding of evaluated NBV
26 argument19 in varchar2,
27 argument20 in varchar2,
28 argument21 in varchar2,
29 argument22 in varchar2,
30 argument23 in varchar2,
31 argument24 in varchar2,
32 argument25 in varchar2,
33 argument26 in varchar2,
34 argument27 in varchar2,
35 argument28 in varchar2,
36 argument29 in varchar2,
37 argument30 in varchar2,
38 argument31 in varchar2,
39 argument32 in varchar2,
40 argument33 in varchar2,
41 argument34 in varchar2,
42 argument35 in varchar2,
43 argument36 in varchar2,
44 argument37 in varchar2,
45 argument38 in varchar2,
46 argument39 in varchar2,
47 argument40 in varchar2,
48 argument41 in varchar2,
49 argument42 in varchar2,
50 argument43 in varchar2,
51 argument44 in varchar2,
52 argument45 in varchar2,
53 argument46 in varchar2,
54 argument47 in varchar2,
55 argument48 in varchar2,
56 argument49 in varchar2,
57 argument50 in varchar2,
58 argument51 in varchar2,
59 argument52 in varchar2,
60 argument53 in varchar2,
61 argument54 in varchar2,
62 argument55 in varchar2,
63 argument56 in varchar2,
64 argument57 in varchar2,
65 argument58 in varchar2,
66 argument59 in varchar2,
67 argument60 in varchar2,
68 argument61 in varchar2,
69 argument62 in varchar2,
70 argument63 in varchar2,
71 argument64 in varchar2,
72 argument65 in varchar2,
73 argument66 in varchar2,
74 argument67 in varchar2,
75 argument68 in varchar2,
76 argument69 in varchar2,
77 argument70 in varchar2,
78 argument71 in varchar2,
79 argument72 in varchar2,
80 argument73 in varchar2,
81 argument74 in varchar2,
82 argument75 in varchar2,
83 argument76 in varchar2,
84 argument77 in varchar2,
85 argument78 in varchar2,
86 argument79 in varchar2,
87 argument80 in varchar2,
88 argument81 in varchar2,
89 argument82 in varchar2,
90 argument83 in varchar2,
91 argument84 in varchar2,
92 argument85 in varchar2,
93 argument86 in varchar2,
94 argument87 in varchar2,
95 argument88 in varchar2,
96 argument89 in varchar2,
97 argument90 in varchar2,
98 argument91 in varchar2,
99 argument92 in varchar2,
100 argument93 in varchar2,
101 argument94 in varchar2,
102 argument95 in varchar2,
103 argument96 in varchar2,
104 argument97 in varchar2,
105 argument98 in varchar2,
106 argument99 in varchar2,
107 argument100 in varchar2) 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_year NUMBER;
115 h_sum_rep BOOLEAN; /*Print summary report */
116 h_dec_rep BOOLEAN; /*Print decrease report */
117 h_round BOOLEAN; --bug4919991
118 h_eval_nbv_round VARCHAR2(30); -- Bug 9145830
119
120
121 h_req1 number;
122 h_req2 number;
123 h_req3 number;
124 h_req4 number;
125
126 -- bug#2448122:Obsolete all state parameter.
127 -- h_all_state boolean; /*Select insert all state or one state */
128
129 -- bug#2448122:Added the variables for parameters.
130 h_book VARCHAR2(30);
131 h_locstruct_num NUMBER;
132 h_start_state VARCHAR2(150);
133 h_end_state VARCHAR2(150);
134 h_cat_struct_num NUMBER;
135 h_minor_cat_exist VARCHAR2(1);
136 h_start_category VARCHAR2(150);
137 h_end_category VARCHAR2(150);
138 h_sale_code VARCHAR2(30);
139 h_all_rep VARCHAR2(3);
140 h_add_rep VARCHAR2(3);
141 --
142 -- Adding the changes made in version 120.12 to RER
143 h_add_layout BOOLEAN;
144 l_iso_language FND_LANGUAGES.iso_language%TYPE;
145 l_iso_territory FND_LANGUAGES.iso_territory%TYPE;
146
147
148 /* Bug#3305764 - Enhancement to make category flexfield flexible */
149 h_tax_asset_type_seg VARCHAR2(30);
150
151 NOSETUP_MINOR_CAT Exception;
152
153 -- Added error handlings on bug#2661575
154 fadptx_insert_err Exception;
155 l_calling_fn VARCHAR2(50) := 'fa_deprn_tax_c_pkg.fadptx_insert';
156
157 BEGIN
158
159 h_debug := Upper(argument16) LIKE 'Y%';
160 IF h_debug THEN
161 fa_rx_util_pkg.enable_debug;
162 if NOT fa_cache_pkg.fazcbc(X_book => argument1) then -- Added for debug standard
163 raise fadptx_insert_err;
164 end if;
165 END IF;
166
167 IF (g_print_debug) THEN
168 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument1:' ||argument1);
169 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument2:' ||argument2);
170 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument3:' ||argument3);
171 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument4:' ||argument4);
172 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument5:' ||argument5);
173 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument6:' ||argument6);
174 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument7:' ||argument7);
175 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument8:' ||argument8);
176 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument9:' ||argument9);
177 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument10:' ||argument10);
178 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument11:' ||argument11);
179 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument12:' ||argument12);
180 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument13:' ||argument13);
181 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument14:' ||argument14);
182 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument15:' ||argument15);
183 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument16:' ||argument16);
184 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument17:' ||argument17);
185 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument18:' ||argument18); -- Bug 9145830
186 END IF;
187
188 -- bug#2448122:Set variables from parameters
189 h_book := argument1;
190 h_locstruct_num := To_number(argument3);
191 h_start_state := argument4;
192 h_end_state := argument5;
193 h_cat_struct_num:= To_number(argument6);
194 h_minor_cat_exist := argument8;
195 h_start_category := argument9;
196 h_end_category := argument10;
197 h_sale_code := argument11;
198 h_all_rep := argument13;
199 h_add_rep := argument14;
200
201 -- if argument6 is null then
202 -- if h_minor_cat_exist is null then
203
204 if h_start_category is null or h_end_category is null then /* bug3305784 */
205
206 RAISE NOSETUP_MINOR_CAT;
207
208 end if;
209
210 /* Bug#3305764 - Enhancement to make Category Flexfield flexible */
211 if argument7 is null then
212 h_tax_asset_type_seg := 'MINOR_CATEGORY';
213 else
214 h_tax_asset_type_seg := argument7;
215 end if;
216
217 h_request_id := fnd_global.conc_request_id;
218 -- fnd_profile.get('LOGIN_ID',h_login_id);
219 fnd_profile.get('USER_ID',h_login_id); -- bug#2661575
220
221 h_year := to_number(argument2);
222
223 h_sum_rep := Upper(argument12) LIKE 'Y%';
224 h_dec_rep := Upper(argument15) LIKE 'Y%';
225
226 h_round := Upper(argument17) LIKE 'Y%'; --bug4919991
227
228 -- bug#2448122 Obsolete all state
229 -- h_all_state := Upper(argument14) LIKE 'Y%';
230 h_eval_nbv_round := argument18; -- Bug 9145830
231
235 book => h_book,
232 fa_deprn_tax_rep_pkg.fadptx_insert(
233 errbuf => errbuf,
234 retcode => retcode,
236 year => h_year,
237 state_from => h_start_state,
238 state_to => h_end_state,
239 tax_asset_type_seg => h_tax_asset_type_seg, -- Bug#3305764 - Enhancement to make Category Flexfield flexible
240 category_from => h_start_category,
241 category_to => h_end_category,
242 sale_code => h_sale_code,
243 all_state => null,
244 rounding => h_round, --bug4919991
245 eval_nbv_round => h_eval_nbv_round, -- Bug 9145830
246 request_id => h_request_id,
247 login_id => h_login_id
248 );
249 if retcode =2 then
250 raise fadptx_insert_err;
251 else
252 commit;
253 end if;
254
255 /*==============================================================================
256 Run reports
257 FADTXS.rdf (Depreciable Asset Tax Report)
258 FADTXA.rdf (Detail Report by Asset Type (All/Addition) 180char) --All Assets
259 FADTXA.rdf (Detail Report by Asset Type (All/Addition) 180char) --Asset Addition
260 FADTXD.rdf (Detail Report by Asset Type (Decrease)
261
262 If these parameters are TRUE, reports are printed.
263 If FALSE, not printed.
264 ==============================================================================*/
265
266 -- Adding the changes made in version 120.12 to RER
267 SELECT lower(iso_language),iso_territory
268 INTO l_iso_language,l_iso_territory
269 FROM FND_LANGUAGES
270 WHERE language_code = USERENV('LANG');
271
272 if h_sum_rep then
273 -- Adding the changes made in version 120.12 to RER
274 h_add_layout:= fnd_request.add_layout(
275 template_appl_name => 'OFA',
276 template_code => 'FADTXS',
277 template_language => l_iso_language,
278 template_territory => l_iso_territory,
279 output_format => 'PDF'
280 );
281
282 -- Bug 8985010: Passing the values for the new parameters added
283 h_req1 := FND_REQUEST.SUBMIT_REQUEST('OFA','FADTXS',null,sysdate,FALSE,
284 h_request_id,h_book,h_year,h_locstruct_num,null,
285 h_cat_struct_num, h_tax_asset_type_seg, h_minor_cat_exist,
286 h_start_category, h_end_category, chr(0));
287 -- End Bug 8985010
288
289 if h_req1 = 0 then
290
291 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_ERROR');
292 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req1,TRUE);
293 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
294
295 else
296 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_COMP');
297 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req1,TRUE);
298 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
299
300 end if;
301
302 end if;
303
304 if h_all_rep='132' or h_all_rep='180' then
305 -- Adding the changes made in version 120.12 to RER
306 h_add_layout:= fnd_request.add_layout(
307 template_appl_name => 'OFA',
308 template_code => 'FADTXA'||h_all_rep,
309 template_language => l_iso_language,
310 template_territory => l_iso_territory,
311 output_format => 'PDF'
312 );
313
314 h_req2 :=FND_REQUEST.SUBMIT_REQUEST('OFA','FADTXA'||h_all_rep,null,sysdate,FALSE,
315 h_request_id,h_book,h_year,h_locstruct_num,null,'ALL','AUTO',h_all_rep,chr(0));
316
317 if h_req2 = 0 then
318
319 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_ERROR');
320 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req2,TRUE);
321 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
322
323 else
324 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_COMP');
325 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req2,TRUE);
326 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
327
328 end if;
329
330 end if;
331
332 if h_add_rep='132' or h_add_rep='180' then
333 -- Adding the changes made in version 120.12 to RER
334 h_add_layout:= fnd_request.add_layout(
335 template_appl_name => 'OFA',
336 template_code => 'FADTXA'||h_add_rep,
337 template_language => l_iso_language,
338 template_territory => l_iso_territory,
339 output_format => 'PDF'
340 );
341
342 h_req3 :=FND_REQUEST.SUBMIT_REQUEST('OFA','FADTXA'||h_add_rep,null,sysdate,FALSE,
343 h_request_id,h_book,h_year,h_locstruct_num,null,'ADDITION','NOT APPLICABLE',h_add_rep,chr(0));
344
345 if h_req3 = 0 then
346
347 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_ERROR');
348 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req3,TRUE);
349 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
350
351 else
352 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_COMP');
353 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req3,TRUE);
354 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
355
356 end if;
357
358 end if;
359
360 if h_dec_rep then
361 -- Adding the changes made in version 120.12 to RER
362 h_add_layout:= fnd_request.add_layout(
363 template_appl_name => 'OFA',
364 template_code => 'FADTXD',
365 template_language => l_iso_language,
366 template_territory => l_iso_territory,
367 output_format => 'PDF'
368 );
369
370 h_req4 :=FND_REQUEST.SUBMIT_REQUEST('OFA','FADTXD',null,sysdate,FALSE,
371 h_request_id,h_book,h_year,h_locstruct_num,null,chr(0));
372
373 if h_req4 = 0 then
374
375 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_ERROR');
376 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req4,TRUE);
377 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
378
379 else
380 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_COMP');
381 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req4,TRUE);
382 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
383
384 end if;
385
386 end if;
387
388 Exception
389 When NOSETUP_MINOR_CAT then
390 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_NOSETUP_MINOR_CAT');
391 FND_FILE.PUT_LINE(fnd_file.log,fnd_message.get);
392
393 retcode :=2;
394 errbuf := sqlerrm;
395
396 When fadptx_insert_err THEN
397 fa_srvr_msg.add_sql_error (calling_fn => l_calling_fn);
398 retcode :=2;
399 errbuf := sqlerrm;
400
401 When OTHERS THEN
402 fa_srvr_msg.add_sql_error (calling_fn => l_calling_fn);
403 retcode :=2;
404 errbuf := sqlerrm;
405
406 END fadptx_insert;
407
408 END FA_DEPRN_TAX_C_PKG;