1: package body pay_jp_ltax_imp_pkg as
2: /* $Header: pyjpltxi.pkb 120.4 2011/07/29 10:15:55 keyazawa noship $ */
3: --
4: c_package constant varchar2(30) := 'pay_jp_ltax_imp_pkg.';
5: g_debug boolean := hr_utility.debug_enabled;
1: package body pay_jp_ltax_imp_pkg as
2: /* $Header: pyjpltxi.pkb 120.4 2011/07/29 10:15:55 keyazawa noship $ */
3: --
4: c_package constant varchar2(30) := 'pay_jp_ltax_imp_pkg.';
5: g_debug boolean := hr_utility.debug_enabled;
6: --
7: c_com_ltx_info_elm constant varchar2(80) := 'COM_LTX_INFO';
8: c_com_itx_info_elm constant varchar2(80) := 'COM_ITX_INFO';
194: p_file_prefix in varchar2)
195: is
196: begin
197: --
198: pay_jp_ltax_imp_pkg.g_file_prefix := p_file_prefix;
199: --
200: end set_file_prefix;
201: --
202: -- -------------------------------------------------------------------------
206: p_file_suffix in varchar2)
207: is
208: begin
209: --
210: pay_jp_ltax_imp_pkg.g_file_suffix := p_file_suffix;
211: --
212: end set_file_suffix;
213: --
214: -- -------------------------------------------------------------------------
218: p_file_extension in varchar2)
219: is
220: begin
221: --
222: pay_jp_ltax_imp_pkg.g_file_extension := p_file_extension;
223: --
224: end set_file_extension;
225: --
226: -- -------------------------------------------------------------------------
230: p_file_split in varchar2)
231: is
232: begin
233: --
234: pay_jp_ltax_imp_pkg.g_file_split := p_file_split;
235: --
236: end set_file_split;
237: --
238: -- -------------------------------------------------------------------------
242: p_datetrack_eev in varchar2)
243: is
244: begin
245: --
246: pay_jp_ltax_imp_pkg.g_datetrack_eev := p_datetrack_eev;
247: --
248: end set_datetrack_eev;
249: --
250: -- -------------------------------------------------------------------------
254: p_yn in varchar2)
255: is
256: begin
257: --
258: pay_jp_ltax_imp_pkg.g_detail_debug := p_yn;
259: --
260: end set_detail_debug;
261: --
262: -- -------------------------------------------------------------------------
274: l_sub_name varchar2(15);
275: --
276: begin
277: --
278: l_file_end := pay_jp_ltax_imp_pkg.g_file_extension;
279: if pay_jp_ltax_imp_pkg.g_file_suffix is not null then
280: --
281: l_file_end := c_file_spliter||pay_jp_ltax_imp_pkg.g_file_suffix||l_file_end;
282: --
275: --
276: begin
277: --
278: l_file_end := pay_jp_ltax_imp_pkg.g_file_extension;
279: if pay_jp_ltax_imp_pkg.g_file_suffix is not null then
280: --
281: l_file_end := c_file_spliter||pay_jp_ltax_imp_pkg.g_file_suffix||l_file_end;
282: --
283: end if;
277: --
278: l_file_end := pay_jp_ltax_imp_pkg.g_file_extension;
279: if pay_jp_ltax_imp_pkg.g_file_suffix is not null then
280: --
281: l_file_end := c_file_spliter||pay_jp_ltax_imp_pkg.g_file_suffix||l_file_end;
282: --
283: end if;
284: --
285: if p_organization_id is null then
285: if p_organization_id is null then
286: --
287: if p_district_code is not null then
288: --
289: l_file_name := pay_jp_ltax_imp_pkg.g_file_prefix||
290: c_file_spliter||p_district_code||l_file_end;
291: --
292: else
293: --
290: c_file_spliter||p_district_code||l_file_end;
291: --
292: else
293: --
294: l_file_name := pay_jp_ltax_imp_pkg.g_file_prefix||
295: l_file_end;
296: --
297: end if;
298: --
304: l_sub_name := p_swot_number;
305: --
306: end if;
307: --
308: l_file_name := pay_jp_ltax_imp_pkg.g_file_prefix||
309: c_file_spliter||p_district_code||
310: c_file_spliter||l_sub_name||
311: l_file_end;
312: --
466: is
467: --
468: l_proc varchar2(80) := c_package||'init';
469: --
470: l_detail_debug varchar2(1) := pay_jp_ltax_imp_pkg.g_detail_debug;
471: --
472: cursor csr_file_dir
473: is
474: select fcp.plsql_dir
573: end if;
574: --
575: pay_jp_report_pkg.set_db_char_set;
576: --
577: if pay_jp_ltax_imp_pkg.g_file_prefix is null then
578: --
579: set_file_prefix(c_file_prefix);
580: --
581: end if;
579: set_file_prefix(c_file_prefix);
580: --
581: end if;
582: --
583: if pay_jp_ltax_imp_pkg.g_file_extension is null then
584: --
585: set_file_extension(c_file_extension);
586: --
587: end if;
2982: end if;
2983: --
2984: end transfer_imp_ltax_info_to_bee;
2985: --
2986: end pay_jp_ltax_imp_pkg;