[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.12.12010000.1 2008/07/28 13:20:46 appldev 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,
25 argument18 in varchar2,
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
118 h_req1 number;
119 h_req2 number;
120 h_req3 number;
121 h_req4 number;
122
123 -- bug#2448122:Obsolete all state parameter.
124 -- h_all_state boolean; /*Select insert all state or one state */
125
126 -- bug#2448122:Added the variables for parameters.
127 h_book VARCHAR2(15);
128 h_locstruct_num NUMBER;
129 h_start_state VARCHAR2(150);
130 h_end_state VARCHAR2(150);
131 h_cat_struct_num NUMBER;
132 h_minor_cat_exist VARCHAR2(1);
133 h_start_category VARCHAR2(150);
134 h_end_category VARCHAR2(150);
135 h_sale_code VARCHAR2(30);
136 h_all_rep VARCHAR2(3);
137 h_add_rep VARCHAR2(3);
138 --
139 h_add_layout BOOLEAN;
140 l_iso_language FND_LANGUAGES.iso_language%TYPE;
141 l_iso_territory FND_LANGUAGES.iso_territory%TYPE;
142
143
144 /* Bug#3305764 - Enhancement to make category flexfield flexible */
145 h_tax_asset_type_seg VARCHAR2(30);
146
147 NOSETUP_MINOR_CAT Exception;
148
149 -- Added error handlings on bug#2661575
150 fadptx_insert_err Exception;
151 l_calling_fn VARCHAR2(50) := 'fa_deprn_tax_c_pkg.fadptx_insert';
152
153 BEGIN
154
155 h_debug := Upper(argument16) LIKE 'Y%';
156 IF h_debug THEN
157 fa_rx_util_pkg.enable_debug;
158 if NOT fa_cache_pkg.fazcbc(X_book => argument1) then -- Added for debug standard
159 raise fadptx_insert_err;
160 end if;
161 END IF;
162
163 IF (g_print_debug) THEN
164 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument1:' ||argument1);
165 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument2:' ||argument2);
166 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument3:' ||argument3);
167 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument4:' ||argument4);
168 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument5:' ||argument5);
169 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument6:' ||argument6);
170 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument7:' ||argument7);
171 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument8:' ||argument8);
172 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument9:' ||argument9);
173 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument10:' ||argument10);
174 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument11:' ||argument11);
175 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument12:' ||argument12);
176 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument13:' ||argument13);
177 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument14:' ||argument14);
178 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument15:' ||argument15);
179 fa_rx_util_pkg.debug('fadptx_insert: ' || 'argument16:' ||argument16);
180 END IF;
181
182 -- bug#2448122:Set variables from parameters
183 h_book := argument1;
184 h_locstruct_num := To_number(argument3);
185 h_start_state := argument4;
186 h_end_state := argument5;
187 h_cat_struct_num:= To_number(argument6);
188 h_minor_cat_exist := argument8;
189 h_start_category := argument9;
190 h_end_category := argument10;
191 h_sale_code := argument11;
192 h_all_rep := argument13;
193 h_add_rep := argument14;
194
195 -- if argument6 is null then
196 -- if h_minor_cat_exist is null then
197
198 if h_start_category is null or h_end_category is null then /* bug3305784 */
199
200 RAISE NOSETUP_MINOR_CAT;
201
202 end if;
203
204 /* Bug#3305764 - Enhancement to make Category Flexfield flexible */
205 if argument7 is null then
206 h_tax_asset_type_seg := 'MINOR_CATEGORY';
207 else
208 h_tax_asset_type_seg := argument7;
209 end if;
210
211 h_request_id := fnd_global.conc_request_id;
212 -- fnd_profile.get('LOGIN_ID',h_login_id);
213 fnd_profile.get('USER_ID',h_login_id); -- bug#2661575
214
215 h_year := to_number(argument2);
216
217 h_sum_rep := Upper(argument12) LIKE 'Y%';
218 h_dec_rep := Upper(argument15) LIKE 'Y%';
219
220 -- bug#2448122 Obsolete all state
221 -- h_all_state := Upper(argument14) LIKE 'Y%';
222
223 fa_deprn_tax_rep_pkg.fadptx_insert(
224 errbuf => errbuf,
225 retcode => retcode,
226 book => h_book,
227 year => h_year,
228 state_from => h_start_state,
229 state_to => h_end_state,
230 tax_asset_type_seg => h_tax_asset_type_seg, -- Bug#3305764 - Enhancement to make Category Flexfield flexible
231 category_from => h_start_category,
232 category_to => h_end_category,
233 sale_code => h_sale_code,
234 all_state => null,
235 request_id => h_request_id,
236 login_id => h_login_id
237 );
238 if retcode =2 then
239 raise fadptx_insert_err;
240 else
241 commit;
242 end if;
243
244 /*==============================================================================
245 Run reports
246 FADTXS.rdf (Depreciable Asset Tax Report)
247 FADTXA.rdf (Detail Report by Asset Type (All/Addition) 180char) --All Assets
248 FADTXA.rdf (Detail Report by Asset Type (All/Addition) 180char) --Asset Addition
249 FADTXD.rdf (Detail Report by Asset Type (Decrease)
250
251 If these parameters are TRUE, reports are printed.
252 If FALSE, not printed.
253 ==============================================================================*/
254
255 SELECT lower(iso_language),iso_territory
256 INTO l_iso_language,l_iso_territory
257 FROM FND_LANGUAGES
258 WHERE language_code = USERENV('LANG');
259
260 if h_sum_rep then
261
262 h_add_layout:= fnd_request.add_layout(
263 template_appl_name => 'OFA',
264 template_code => 'FADTXS',
265 template_language => l_iso_language,
266 template_territory => l_iso_territory,
267 output_format => 'PDF'
268 );
269
270 h_req1 := FND_REQUEST.SUBMIT_REQUEST('OFA','FADTXS',null,sysdate,FALSE,
271 h_request_id,h_book,h_year,h_locstruct_num,null,chr(0));
272
273 if h_req1 = 0 then
274
275 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_ERROR');
276 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req1,TRUE);
277 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
278
279 else
280 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_COMP');
281 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req1,TRUE);
282 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
283
284 end if;
285
286 end if;
287
288 if h_all_rep='132' or h_all_rep='180' then
289
290 h_add_layout:= fnd_request.add_layout(
291 template_appl_name => 'OFA',
292 template_code => 'FADTXA'||h_all_rep,
293 template_language => l_iso_language,
294 template_territory => l_iso_territory,
295 output_format => 'PDF'
296 );
297
298 h_req2 :=FND_REQUEST.SUBMIT_REQUEST('OFA','FADTXA'||h_all_rep,null,sysdate,FALSE,
299 h_request_id,h_book,h_year,h_locstruct_num,null,'ALL','AUTO',h_all_rep,chr(0));
300
301 if h_req2 = 0 then
302
303 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_ERROR');
304 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req2,TRUE);
305 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
306
307 else
308 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_COMP');
309 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req2,TRUE);
310 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
311
312 end if;
313
314 end if;
315
316 if h_add_rep='132' or h_add_rep='180' then
317
318 h_add_layout:= fnd_request.add_layout(
319 template_appl_name => 'OFA',
320 template_code => 'FADTXA'||h_add_rep,
321 template_language => l_iso_language,
322 template_territory => l_iso_territory,
323 output_format => 'PDF'
324 );
325
326 h_req3 :=FND_REQUEST.SUBMIT_REQUEST('OFA','FADTXA'||h_add_rep,null,sysdate,FALSE,
327 h_request_id,h_book,h_year,h_locstruct_num,null,'ADDITION','NOT APPLICABLE',h_add_rep,chr(0));
328
329 if h_req3 = 0 then
330
331 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_ERROR');
332 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req3,TRUE);
333 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
334
335 else
336 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_COMP');
337 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req3,TRUE);
338 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
339
340 end if;
341
342 end if;
343
344 if h_dec_rep then
345
346 h_add_layout:= fnd_request.add_layout(
347 template_appl_name => 'OFA',
348 template_code => 'FADTXD',
349 template_language => l_iso_language,
350 template_territory => l_iso_territory,
351 output_format => 'PDF'
352 );
353
354 h_req4 :=FND_REQUEST.SUBMIT_REQUEST('OFA','FADTXD',null,sysdate,FALSE,
355 h_request_id,h_book,h_year,h_locstruct_num,null,chr(0));
356
357 if h_req4 = 0 then
358
359 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_ERROR');
360 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req4,TRUE);
361 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
362
363 else
364 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_COMP');
365 FND_MESSAGE.SET_TOKEN('REQUEST_ID',h_req4,TRUE);
366 FND_FILE.PUT_LINE(fnd_file.output,fnd_message.get);
367
368 end if;
369
370 end if;
371
372 Exception
373 When NOSETUP_MINOR_CAT then
374 FND_MESSAGE.SET_NAME('OFA','FA_DEPRN_TAX_NOSETUP_MINOR_CAT');
375 FND_FILE.PUT_LINE(fnd_file.log,fnd_message.get);
376
377 retcode :=2;
378 errbuf := sqlerrm;
379
380 When fadptx_insert_err THEN
381 fa_srvr_msg.add_sql_error (calling_fn => l_calling_fn);
382 retcode :=2;
383 errbuf := sqlerrm;
384
385 When OTHERS THEN
386 fa_srvr_msg.add_sql_error (calling_fn => l_calling_fn);
387 retcode :=2;
388 errbuf := sqlerrm;
389
390 END fadptx_insert;
391
392 END FA_DEPRN_TAX_C_PKG;