[Home] [Help]
PACKAGE BODY: APPS.PAY_JP_SPR_EFILE_PKG
Source
1 package body pay_jp_spr_efile_pkg as
2 /* $Header: pyjpspre.pkb 120.9.12020000.4 2012/12/27 09:49:32 dduvvuri ship $ */
3 --
4 c_package constant varchar2(30) := 'pay_jp_spr_efile_pkg.';
5 g_debug boolean := hr_utility.debug_enabled;
6 --
7 c_eol varchar2(30) := fnd_global.local_chr(10);
8 c_max_file_open number := 50;
9 --
10 g_bg_itax_dpnt_ref_type varchar2(150);
11 g_ass_set_formula_id number;
12 g_ass_set_amendment_type hr_assignment_set_amendments.include_or_exclude%type;
13 g_file_dir fnd_concurrent_processes.plsql_dir%type;
14 --
15 g_warning_exist varchar2(1);
16 g_warning_header varchar2(1);
17 --
18 type t_per_rec is record(
19 person_id number,
20 assignment_id number,
21 assignment_action_id number,
22 ass_cnt number);
23 type t_per_tbl is table of t_per_rec index by binary_integer;
24 g_per_ind_tbl t_per_tbl;
25 --
26 type t_ass_rec is record(
27 person_id number,
28 assignment_id number,
29 assignment_action_id number,
30 effective_date date,
31 spr_term_valid number,
32 include_or_exclude hr_assignment_set_amendments.include_or_exclude%type);
33 type t_ass_tbl is table of t_ass_rec index by binary_integer;
34 g_ass_tbl t_ass_tbl;
35 g_ass_ind_tbl t_ass_tbl;
36 --
37 type t_number_tbl is table of number index by binary_integer;
38 g_assact_tbl t_number_tbl;
39 --
40 type t_data_rec is record(
41 mag_assignment_action_id number,
42 assignment_action_id number,
43 assignment_id number,
44 action_sequence number,
45 effective_date date,
46 date_earned date,
47 itax_organization_id number,
48 itax_category pay_jp_pre_tax.itax_category%type,
49 itax_yea_category pay_jp_pre_tax.itax_yea_category%type,
50 dpnt_ref_type pay_all_payrolls_f.prl_information1%type,
51 dpnt_effective_date date,
52 person_id number,
53 sex per_all_people_f.sex%type,
54 date_of_birth date,
55 leaving_reason per_periods_of_service.leaving_reason%type,
56 last_name per_all_people_f.per_information18%type,
57 last_name_kana per_all_people_f.last_name%type,
58 first_name per_all_people_f.per_information19%type,
59 first_name_kana per_all_people_f.first_name%type,
60 employment_category per_all_assignments_f.employment_category%type,
61 district_code per_addresses.town_or_city%type,
62 address varchar2(800),
63 address_kana varchar2(800),
64 address_jp varchar2(1),
65 full_name varchar2(400),
66 actual_termination_date date,
67 date_start date,
68 full_name_kana varchar2(400),
69 employee_number per_all_people_f.employee_number%type,
70 swot_number pay_jp_swot_numbers.swot_number%type,
71 output_file_name pay_jp_swot_numbers.output_file_name%type,
72 itax_org_address varchar2(500),
73 itax_org_address_kana varchar2(500),
74 itax_org_name hr_organization_information.org_information1%type,
75 itax_org_name_kana hr_organization_information.org_information2%type,
76 itax_org_phone hr_organization_information.org_information12%type,
77 itax_org_serial1 hr_organization_information.org_information4%type,
78 itax_org_serial2 hr_organization_information.org_information5%type,
79 taxable_income number,
80 net_taxable_income number,
81 total_income_exempt number,
82 withholding_itax number,
83 spouse_special_exempt number,
84 social_insurance_premium number,
85 mutual_aid_premium number,
86 life_insurance_premium_exempt number,
87 damage_insurance_premium_exem number,
88 housing_tax_reduction number,
89 private_pension_premium number,
90 spouse_net_taxable_income number,
91 long_damage_insurance_premium number,
92 disaster_tax_reduction number,
93 dependent_spouse_exists_kou pay_action_information.action_information1%type,
94 dependent_spouse_no_exist_kou pay_action_information.action_information2%type,
95 dependent_spouse_exists_otsu pay_action_information.action_information3%type,
96 dependent_spouse_no_exist_otsu pay_action_information.action_information4%type,
97 aged_spouse_exists pay_action_information.action_information5%type,
98 num_specifieds_kou number,
99 num_specifieds_otsu number,
100 num_aged_parents_partial number,
101 num_ageds_kou number,
102 num_ageds_otsu number,
103 num_dependents_kou number,
104 num_dependents_otsu number,
105 num_special_disableds_partial number,
106 num_special_disableds number,
107 num_disableds number,
108 husband_exists pay_action_information.action_information16%type,
109 minor pay_action_information.action_information17%type,
110 otsu pay_action_information.action_information18%type,
111 special_disabled pay_action_information.action_information19%type,
112 disabled pay_action_information.action_information20%type,
113 aged pay_action_information.action_information21%type,
114 widow pay_action_information.action_information22%type,
115 special_widow pay_action_information.action_information23%type,
116 widower pay_action_information.action_information24%type,
117 working_student pay_action_information.action_information25%type,
118 deceased_termination pay_action_information.action_information26%type,
119 disastered pay_action_information.action_information27%type,
120 foreigner pay_action_information.action_information28%type,
121 prev_job_employer_name pay_action_information.action_information20%type,
122 prev_job_employer_name_kana pay_action_information.action_information19%type,
123 prev_job_employer_add varchar2(500),
124 prev_job_employer_add_kana varchar2(500),
125 prev_job_foreign_address pay_action_information.action_information21%type,
126 prev_job_taxable_income number,
127 prev_job_itax number,
128 prev_job_si_prem number,
129 prev_job_termination_date date,
130 prev_job_termination_year number,
131 prev_job_termination_month number,
132 prev_job_termination_day number,
133 hld_residence_date_1_date date,
134 hld_residence_date_1_year number,
135 hld_residence_date_1_month number,
136 hld_residence_date_1_day number,
137 hld_loan_count number,
138 hld_payable_loan number,
139 hld_loan_type_1 pay_action_information.action_information4%type,
140 hld_loan_balance_1 number,
141 hld_residence_date_2_date date,
142 hld_residence_date_2_year number,
143 hld_residence_date_2_month number,
144 hld_residence_date_2_day number,
145 hld_loan_type_2 pay_action_information.action_information7%type,
146 hld_loan_balance_2 number,
147 original_description varchar2(32767),
148 original_description_kana varchar2(32767),
149 wtm_system_desc varchar2(500),
150 wtm_system_desc_kana varchar2(500),
151 wtm_user_desc varchar2(500),
152 wtm_user_desc_kana varchar2(500),
153 num_junior_deps number,
154 new_life_ins_prem number,
155 old_life_ins_prem number,
156 new_care_med_prem number,
157 new_pens_ins_prem number);
158 type t_data_tbl is table of t_data_rec index by binary_integer;
159 --
160 type t_body_rec is record(
161 mag_assignment_action_id number,
162 assignment_action_id number,
163 assignment_id number,
164 action_sequence number,
165 effective_date date,
166 date_earned date,
167 itax_organization_id number,
168 itax_category pay_jp_pre_tax.itax_category%type,
169 itax_yea_category pay_jp_pre_tax.itax_yea_category%type,
170 dpnt_ref_type pay_all_payrolls_f.prl_information1%type,
171 dpnt_effective_date date,
172 person_id number,
173 sex per_all_people_f.sex%type,
174 date_of_birth date,
175 leaving_reason per_periods_of_service.leaving_reason%type,
176 last_name per_all_people_f.per_information18%type,
177 last_name_kana per_all_people_f.last_name%type,
178 first_name per_all_people_f.per_information19%type,
179 first_name_kana per_all_people_f.first_name%type,
180 employment_category per_all_assignments_f.employment_category%type,
181 address varchar2(800),
182 address_kana varchar2(800),
183 address_jp varchar2(1),
184 full_name varchar2(400),
185 full_name_kana varchar2(400),
186 actual_termination_date date,
187 date_start date,
188 itax_org_address varchar2(500),
189 itax_org_address_kana varchar2(500),
190 itax_org_name hr_organization_information.org_information1%type,
191 itax_org_name_kana hr_organization_information.org_information2%type,
192 dependent_spouse_exists_kou pay_action_information.action_information1%type,
193 dependent_spouse_no_exist_kou pay_action_information.action_information2%type,
194 dependent_spouse_exists_otsu pay_action_information.action_information3%type,
195 dependent_spouse_no_exist_otsu pay_action_information.action_information4%type,
196 aged_spouse_exists pay_action_information.action_information5%type,
197 husband_exists pay_action_information.action_information16%type,
198 minor pay_action_information.action_information17%type,
199 otsu pay_action_information.action_information18%type,
200 special_disabled pay_action_information.action_information19%type,
201 disabled pay_action_information.action_information20%type,
202 aged pay_action_information.action_information21%type,
203 widow pay_action_information.action_information22%type,
204 special_widow pay_action_information.action_information23%type,
205 widower pay_action_information.action_information24%type,
206 working_student pay_action_information.action_information25%type,
207 deceased_termination pay_action_information.action_information26%type,
208 disastered pay_action_information.action_information27%type,
209 foreigner pay_action_information.action_information28%type,
210 prev_job_employer_name pay_action_information.action_information20%type,
211 prev_job_employer_name_kana pay_action_information.action_information19%type,
212 prev_job_employer_add varchar2(500),
213 prev_job_employer_add_kana varchar2(500),
214 prev_job_employer_add_jp pay_action_information.action_information21%type,
215 pjob_termination_date date,
216 hld_payable_loan pay_action_information.action_information1%type,
217 hld_loan_count pay_action_information.action_information2%type,
218 hld_residence_date_1 date,
219 hld_loan_type_1 pay_action_information.action_information4%type,
220 hld_loan_balance_1 pay_action_information.action_information5%type,
221 hld_residence_date_2 date,
222 hld_loan_type_2 pay_action_information.action_information7%type,
223 hld_loan_balance_2 pay_action_information.action_information8%type,
224 original_description varchar2(32767),
225 original_description_kana varchar2(32767),
226 long_description varchar2(32767),
227 wtm_system_desc varchar2(500),
228 wtm_system_desc_kana varchar2(500),
229 wtm_user_desc varchar2(500),
230 wtm_user_desc_kana varchar2(500),
231 spr_term_valid number,
232 --
233 output_file_name pay_jp_swot_numbers.output_file_name%type,
234 file_ind number,
235 --
236 o_form_number varchar2(3),
237 o_itax_org_serial1 hr_organization_information.org_information4%type,
238 o_itax_org_cnt number,
239 o_itax_org_address varchar2(500),
240 o_itax_org_name hr_organization_information.org_information1%type,
241 o_itax_org_phone hr_organization_information.org_information12%type,
242 o_itax_org_serial2 hr_organization_information.org_information5%type,
243 o_itax_hq_address varchar2(500),
244 o_itax_hq_name hr_organization_information.org_information1%type,
245 o_amend_flag varchar2(1),
246 o_target_yy varchar2(2),
247 o_address varchar2(800),
248 o_address_jp varchar2(1),
249 o_full_name varchar2(400),
250 o_position varchar2(15),
251 o_assortment fnd_new_messages.message_text%type,
252 o_taxable_income number,
253 o_unpaid_income number,
254 o_net_taxable_income number,
255 o_total_income_exempt number,
256 o_withholding_itax number,
257 o_uncollected_itax number,
258 o_dep_spouse varchar2(1),
259 o_aged_spouse varchar2(1),
260 o_spouse_sp_exempt varchar2(30),
261 o_num_specifieds_kou varchar2(30),
262 o_num_specifieds_otsu varchar2(30),
263 o_num_ageds_kou varchar2(30),
264 o_num_aged_parents_lt varchar2(30),
265 o_num_ageds_otsu varchar2(30),
266 o_num_deps_kou varchar2(30),
267 o_num_deps_otsu varchar2(30),
268 o_num_svr_disableds varchar2(30),
269 o_num_svr_disableds_lt varchar2(30),
270 o_num_disableds varchar2(30),
271 o_si_prem number,
272 o_mutual_aid_prem number,
273 o_li_prem_exempt number,
274 o_ai_prem_exempt number,
275 o_housing_tax_reduction number,
276 o_pp_prem number,
277 o_spouse_net_taxable_income number,
278 o_long_ai_prem number,
279 o_birth_date_era varchar2(1),
280 o_birth_date_yy varchar2(2),
281 o_birth_date_mm varchar2(2),
282 o_birth_date_dd varchar2(2),
283 o_husband_exists varchar2(1),
284 o_minor varchar2(1),
285 o_otsu varchar2(1),
286 o_svr_disabled varchar2(1),
287 o_disabled varchar2(1),
288 o_aged varchar2(1),
289 o_widow varchar2(1),
290 o_widower varchar2(1),
291 o_working_student varchar2(1),
292 o_deceased_termination varchar2(1),
293 o_disastered varchar2(1),
294 o_foreigner varchar2(1),
295 o_employed varchar2(1),
296 o_employed_yy varchar2(2),
297 o_employed_mm varchar2(2),
298 o_employed_dd varchar2(2),
299 o_pjob_itax_org_address varchar2(500),
300 o_pjob_itax_org_address_jp varchar2(1),
301 o_pjob_itax_org_full_name pay_action_information.action_information20%type,
302 o_pjob_taxable_income number,
303 o_pjob_itax number,
304 o_pjob_si_prem number,
305 o_disaster_tax_reduction number,
306 o_pjob_termination_date_yy varchar2(2),
307 o_pjob_termination_date_mm varchar2(2),
308 o_pjob_termination_date_dd varchar2(2),
309 o_hld_residence_date_1_yy varchar2(2),
310 o_hld_residence_date_1_mm varchar2(2),
311 o_hld_residence_date_1_dd varchar2(2),
312 o_hld_loan_count number,
313 o_hld_payable_loan number,
314 o_hld_loan_type_1 varchar2(2),
315 o_hld_loan_balance_1 number,
316 o_hld_residence_date_2_yy varchar2(2),
317 o_hld_residence_date_2_mm varchar2(2),
318 o_hld_residence_date_2_dd varchar2(2),
319 o_hld_loan_type_2 varchar2(2),
320 o_hld_loan_balance_2 number,
321 o_description varchar2(32767),
322 o_num_junior_deps varchar2(30),
323 o_gen_collecting varchar2(1),
324 o_blue_proprietor varchar2(1),
325 o_immune varchar2(1),
326 o_full_name_kana varchar2(400),
327 o_employee_number per_all_people_f.employee_number%type,
328 o_district_code per_addresses.town_or_city%type,
329 o_swot_number pay_jp_swot_numbers.swot_number%type,
330 o_new_life_ins_prem number,
331 o_old_life_ins_prem number,
332 o_new_care_med_prem number,
333 o_new_pens_ins_prem number);
334 type t_body_tbl is table of t_body_rec index by binary_integer;
335 g_body_tbl t_body_tbl;
336 --
337 type t_file_rec is record(
338 file_name varchar2(80),
339 file_out utl_file.file_type);
340 type t_file_tbl is table of t_file_rec index by binary_integer;
341 g_file_tbl t_file_tbl;
342 --
343 type t_summary_rec is record(
344 file_name varchar2(80),
345 district_code per_addresses.town_or_city%type,
346 itax_org_cnt number,
347 emp_cnt number,
348 term_emp_cnt number);
349 type t_summary_tbl is table of t_summary_rec index by binary_integer;
350 g_summary_tbl t_summary_tbl;
351 --
352 -- -------------------------------------------------------------------------
353 -- query for proc_ass in assignment_action_creation
354 -- -------------------------------------------------------------------------
355 c_proc_ass_select_clause varchar2(32767)
356 := 'select wic_v.person_id,
357 wic_v.assignment_id,
358 wic_v.assignment_action_id,
359 wic_v.effective_date,
360 wic_v.spr_term_valid';
361 --
362 c_proc_ass_from_clause varchar2(32767)
363 := '(select pjwa_v.pa_person_id person_id,
364 pjwa_v.assignment_id,
365 pjwa_v.assignment_action_id,
366 pjwa_v.effective_date,
367 pjwa_v.itax_organization_id,
368 decode(padr.address_id,null,padc.town_or_city,padr.town_or_city) town_or_city,
369 pjwa_v.spr_term_valid
370 from
371 (select pa.person_id pa_person_id,
372 pjwa.assignment_id,
373 pjwa.assignment_action_id,
374 pjwa.effective_date,
375 pjwa.person_id pjwa_person_id,
376 pjwa.itax_organization_id,
377 pjwa.actual_termination_date,
378 to_number(decode(to_char(pjwa.actual_termination_date,''YYYY/MM/DD''),null,0,
379 pay_jp_wic_pkg.spr_term_valid(
380 pjwa.assignment_action_id,
381 pjwa.assignment_id,
382 pjwa.action_sequence,
383 pjwa.effective_date,
384 pjwa.itax_organization_id,
385 pjwa.itax_category,
386 pjwa.itax_yea_category,
387 pjwa.employment_category,
388 pjwa.actual_termination_date))) spr_term_valid
389 from pay_payroll_actions ppa,
390 pay_assignment_actions paa,
391 per_all_assignments_f pa,
392 pay_jp_wic_assacts_v pjwa
393 where ppa.effective_date
394 between fnd_date.canonical_to_date(''i_effective_soy'') and fnd_date.canonical_to_date(''i_effective_eoy'')
395 and ppa.business_group_id + 0 = to_number(''i_business_group_id'')
396 and pa.business_group_id + 0 = to_number(''i_business_group_id'')
397 and ppa.action_type in (''R'',''Q'',''B'',''I'')
398 and paa.payroll_action_id = ppa.payroll_action_id
399 and paa.action_status = ''C''
400 and ppa.action_status = ''C''
401 and pa.assignment_id = paa.assignment_id
402 and ppa.effective_date
403 between pa.effective_start_date and pa.effective_end_date
404 and pjwa.assignment_action_id = paa.assignment_action_id
405 and pjwa.payroll_action_id = ppa.payroll_action_id
406 and pjwa.itax_organization_id = nvl(to_number(''i_organization_id''),pjwa.itax_organization_id)) pjwa_v,
407 per_addresses padr,
408 per_addresses padc
409 where padr.person_id (+) = pjwa_v.pjwa_person_id
410 and padr.address_type (+) = ''JP_R''
411 and nvl(pjwa_v.actual_termination_date, add_months(trunc(pjwa_v.effective_date, ''YYYY''), 12))
412 between padr.date_from (+) and nvl(padr.date_to(+), fnd_date.canonical_to_date(''i_eot''))
413 and padc.person_id (+) = pjwa_v.pjwa_person_id
414 and padc.address_type (+) = ''JP_C''
415 and nvl(pjwa_v.actual_termination_date, add_months(trunc(pjwa_v.effective_date, ''YYYY''), 12))
416 between padc.date_from (+) and nvl(padc.date_to(+), fnd_date.canonical_to_date(''i_eot''))) wic_v,
417 (select pjsn_act.organization_id,
418 pjsn_act.district_code act_district_code,
419 substrb(nvl(pjsn_act.report_district_code,pjsn_act.district_code),1,5) rep_district_code,
420 pjsn_rep.swot_number rep_swot_number,
421 pjsn_rep.output_file_name rep_output_file_name,
422 pjsn_rep.efile_exclusive_flag rep_efile_exclusive_flag
423 from pay_jp_swot_numbers pjsn_rep,
424 pay_jp_swot_numbers pjsn_act
425 where pjsn_rep.organization_id = pjsn_act.organization_id
426 and pjsn_rep.district_code = nvl(pjsn_act.report_district_code,pjsn_act.district_code)) pjsn_v';
427 --
428 c_proc_ass_where_clause varchar2(32767)
429 := 'pjsn_v.organization_id (+) = wic_v.itax_organization_id
430 and substrb(pjsn_v.act_district_code(+),1,5) = wic_v.town_or_city
431 and nvl(pjsn_v.rep_district_code,nvl(wic_v.town_or_city,''X''))
432 = nvl(''i_district_code'',nvl(pjsn_v.rep_district_code,nvl(wic_v.town_or_city,''X'')))
433 and nvl(pjsn_v.rep_efile_exclusive_flag,''N'') = ''N''';
434 --
435 c_proc_ass_hasa_select_clause varchar2(32767)
436 := ', hasa.include_or_exclude';
437 --
438 c_proc_ass_hasa_from_clause varchar2(32767)
439 := 'hr_assignment_set_amendments hasa,';
440 --
441 c_proc_ass_hasa_where_clause varchar2(32767)
442 := '(to_number(decode(nvl(''i_ass_set_formula_id'',''-1''),''-1'',
443 decode(nvl(''i_ass_set_amendment_type'',''X''),''I'',hasa.assignment_id,wic_v.assignment_id),
444 wic_v.assignment_id)) = wic_v.assignment_id
445 and hasa.assignment_set_id (+) = to_number(''i_assignment_set_id'')
446 and hasa.assignment_id (+) = wic_v.assignment_id
447 and nvl(hasa.include_or_exclude,''I'') <> ''E'')';
448 --
449 c_proc_ass_order_clause varchar2(32767)
450 := 'wic_v.person_id';
451 --
452 -- -------------------------------------------------------------------------
453 -- query for proc_arch in archinit
454 -- -------------------------------------------------------------------------
455 c_proc_arch_select_clause varchar2(32767)
456 := 'select
457 pjia.person_id,
458 pjia.assignment_id,
459 pjia.assignment_action_id,
460 pjia.effective_date,
461 to_number(decode(to_char(pjip.actual_termination_date,''YYYY/MM/DD''),null,0,
462 decode(sign(fnd_number.canonical_to_number(pjit.taxable_income) - to_number(''i_valid_term_taxable_amt'')),1,0,1))) spr_term_valid';
463 --
464 c_proc_arch_from_clause varchar2(32767)
465 := 'pay_payroll_actions ppa,
466 pay_assignment_actions paa,
467 pay_jp_itax_arch_v2 pjia,
468 pay_jp_itax_person_v2 pjip,
469 pay_jp_itax_tax_v pjit,
470 (select pjsn_act.organization_id,
471 pjsn_act.district_code act_district_code,
472 substrb(nvl(pjsn_act.report_district_code,pjsn_act.district_code),1,5) rep_district_code,
473 pjsn_rep.swot_number rep_swot_number,
474 pjsn_rep.output_file_name rep_output_file_name,
475 pjsn_rep.efile_exclusive_flag rep_efile_exclusive_flag
476 from pay_jp_swot_numbers pjsn_rep,
477 pay_jp_swot_numbers pjsn_act
478 where pjsn_rep.organization_id = pjsn_act.organization_id
479 and pjsn_rep.district_code = nvl(pjsn_act.report_district_code,pjsn_act.district_code)) pjsn_v';
480 --
481 c_proc_arch_where_clause varchar2(32767)
482 := 'ppa.business_group_id + 0 = to_number(''i_business_group_id'')
483 and ppa.effective_date
484 between fnd_date.canonical_to_date(''i_effective_soy'') and fnd_date.canonical_to_date(''i_effective_eoy'')
485 and ppa.action_type = ''X''
486 and ppa.report_type = ''JPTW''
487 and ppa.report_qualifier = ''JP''
488 and ppa.report_category = ''ARCHIVE''
489 and paa.payroll_action_id = ppa.payroll_action_id
490 and pjia.action_context_id = paa.assignment_action_id
491 and pjip.action_context_id = pjia.action_context_id
492 and pjip.effective_date = pjia.effective_date
493 and pjip.itax_organization_id = nvl(to_number(''i_organization_id''),pjip.itax_organization_id)
494 and pjit.action_context_id = pjia.action_context_id
495 and pjit.effective_date = pjia.effective_date
496 and pjsn_v.organization_id (+) = pjip.itax_organization_id
497 and substrb(pjsn_v.act_district_code(+),1,5) = pjip.district_code
498 and nvl(pjsn_v.rep_district_code,nvl(pjip.district_code,''X''))
499 = nvl(''i_district_code'',nvl(pjsn_v.rep_district_code,nvl(pjip.district_code,''X'')))
500 and nvl(pjsn_v.rep_efile_exclusive_flag,''N'') = ''N''';
501 --
502 c_proc_arch_hasa_select_clause varchar2(32767)
503 := ', hasa.include_or_exclude';
504 --
505 c_proc_arch_hasa_from_clause varchar2(32767)
506 := 'hr_assignment_set_amendments hasa,';
507 --
508 c_proc_arch_hasa_where_clause varchar2(32767)
509 := '(to_number(decode(nvl(''i_ass_set_formula_id'',''-1''),''-1'',
510 decode(nvl(''i_ass_set_amendment_type'',''X''),''I'',hasa.assignment_id,paa.assignment_id),
511 paa.assignment_id)) = paa.assignment_id
512 and hasa.assignment_set_id (+) = to_number(''i_assignment_set_id'')
513 and hasa.assignment_id (+) = paa.assignment_id
514 and nvl(hasa.include_or_exclude,''I'') <> ''E'')';
515 --
516 c_proc_arch_order_clause varchar2(32767)
517 := 'pjia.person_id';
518 --
519 -- -------------------------------------------------------------------------
520 -- query for data_ass in archinit
521 -- -------------------------------------------------------------------------
522 c_data_ass_select_clause varchar2(32767)
523 := 'select /*+ ORDERED */
524 wic_v.mag_assignment_action_id,
525 wic_v.assignment_action_id,
526 wic_v.assignment_id,
527 wic_v.action_sequence,
528 wic_v.effective_date,
529 wic_v.date_earned,
530 wic_v.itax_organization_id,
531 wic_v.itax_category,
532 wic_v.itax_yea_category,
533 wic_v.dpnt_ref_type,
534 wic_v.dpnt_effective_date,
535 wic_v.person_id,
536 wic_v.sex,
537 wic_v.date_of_birth,
538 wic_v.leaving_reason,
539 wic_v.last_name,
540 wic_v.last_name_kana,
541 wic_v.first_name,
542 wic_v.first_name_kana,
543 wic_v.employment_category,
544 nvl(pjsn_v.rep_district_code,wic_v.town_or_city)||per_jp_validations.district_code_check_digit(nvl(pjsn_v.rep_district_code,wic_v.town_or_city)) district_code,
545 wic_v.address,
546 wic_v.address_kana,
547 wic_v.address_jp,
548 wic_v.full_name,
549 wic_v.actual_termination_date,
550 wic_v.date_start,
551 wic_v.full_name_kana,
552 wic_v.employee_number,
553 pjsn_v.rep_swot_number swot_number,
554 nvl(pjsn_v.rep_output_file_name,
555 pay_jp_spr_efile_pkg.default_file_name(nvl(pjsn_v.rep_district_code,wic_v.town_or_city)||
556 per_jp_validations.district_code_check_digit(nvl(pjsn_v.rep_district_code,wic_v.town_or_city)))) output_file_name,
557 hoi.org_information6||hoi.org_information7||hoi.org_information8 itax_org_address,
558 hoi.org_information9||hoi.org_information10||hoi.org_information11 itax_org_address_kana,
559 hoi.org_information1 itax_org_name,
560 hoi.org_information2 itax_org_name_kana,
561 hoi.org_information12 itax_org_phone,
562 hoiw.org_information4 itax_org_serial1,
563 hoiw.org_information5 itax_org_serial2,
564 null taxable_income,
565 null net_taxable_income,
566 null total_income_exempt,
567 null withholding_itax,
568 null spouse_special_exempt,
569 null social_insurance_premium,
570 null mutual_aid_premium,
571 null life_insurance_premium_exempt,
572 null damage_insurance_premium_exem,
573 null housing_tax_reduction,
574 null private_pension_premium,
575 null spouse_net_taxable_income,
576 null long_damage_insurance_premium,
577 null disaster_tax_reduction,
578 null dependent_spouse_exists_kou,
579 null dependent_spouse_no_exist_kou,
580 null dependent_spouse_exists_otsu,
581 null dependent_spouse_no_exist_otsu,
582 null aged_spouse_exists,
583 null num_specifieds_kou,
584 null num_specifieds_otsu,
585 null num_aged_parents_partial,
586 null num_ageds_kou,
587 null num_ageds_otsu,
588 null num_dependents_kou,
589 null num_dependents_otsu,
590 null num_special_disableds_partial,
591 null num_special_disableds,
592 null num_disableds,
593 null husband_exists,
594 null minor,
595 null otsu,
596 null special_disabled,
597 null disabled,
598 null aged,
599 null widow,
600 null special_widow,
601 null widower,
602 null working_student,
603 null deceased_termination,
604 null disastered,
605 null foreigner,
606 null prev_job_employer_name,
607 null prev_job_employer_name_kana,
608 null prev_job_employer_add,
609 null prev_job_employer_add_kana,
610 null prev_job_foreign_address,
611 null prev_job_taxable_income,
612 null prev_job_itax,
613 null prev_job_si_prem,
614 null prev_job_termination_date,
615 null prev_job_termination_year,
616 null prev_job_termination_month,
617 null prev_job_termination_day,
618 null hld_residence_date_1_date,
619 null hld_residence_date_1_year,
620 null hld_residence_date_1_month,
621 null hld_residence_date_1_day,
622 null hld_loan_count,
623 null hld_payable_loan,
624 null hld_loan_type_1,
625 null hld_loan_balance_1,
626 null hld_residence_date_2_date,
627 null hld_residence_date_2_year,
628 null hld_residence_date_2_month,
629 null hld_residence_date_2_day,
630 null hld_loan_type_2,
631 null hld_loan_balance_2,
632 null original_description,
633 null original_description_kana,
634 null wtm_system_desc,
635 null wtm_system_desc_kana,
636 null wtm_user_desc,
637 null wtm_user_desc_kana,
638 null num_junior_deps,
639 null new_life_ins_prem,
640 null old_life_ins_prem,
641 null new_care_med_prem,
642 null new_pens_ins_prem';
643 --
644 c_data_ass_from_clause varchar2(32767)
645 := '(select /*+ ORDERED */
646 paa.assignment_action_id mag_assignment_action_id,
647 pjwa.assignment_action_id,
648 pjwa.assignment_id,
649 pjwa.action_sequence,
650 pjwa.effective_date,
651 pjwa.date_earned,
652 pjwa.itax_organization_id,
653 pjwa.itax_category,
654 pjwa.itax_yea_category,
655 nvl(nvl(pap.prl_information1,''i_bg_itax_dpnt_ref_type''),''CTR_EE'') dpnt_ref_type,
656 nvl(fnd_date.canonical_to_date(pay_core_utils.get_parameter(''ITAX_DPNT_EFFECTIVE_DATE'',pjwa.legislative_parameters)),pjwa.effective_date) dpnt_effective_date,
657 pp.person_id,
658 pp.sex,
659 pp.date_of_birth,
660 pjwa.leaving_reason,
661 pp.per_information18 last_name,
662 pp.last_name last_name_kana,
663 pp.per_information19 first_name,
664 pp.first_name first_name_kana,
665 pjwa.employment_category,
666 decode(padr.address_id,null,padc.town_or_city,padr.town_or_city) town_or_city,
667 decode(padr.address_id, null,
668 padc.address_line1||padc.address_line2||padc.address_line3,
669 padr.address_line1||padr.address_line2||padr.address_line3) address,
670 decode(padr.address_id, null,
671 padc.region_1||padc.region_2||padc.region_3,
672 padr.region_1||padr.region_2||padr.region_3) address_kana,
673 decode(decode(padr.address_id,null,padc.country,padr.country),''JP'',''0'',''1'') address_jp,
674 pp.per_information18||'' ''||pp.per_information19 full_name,
675 pjwa.actual_termination_date,
676 pjwa.date_start,
677 pp.last_name||'' ''||pp.first_name full_name_kana,
678 pp.employee_number
679 from pay_payroll_actions ppa,
680 pay_assignment_actions paa,
681 pay_jp_wic_assacts_v pjwa,
682 pay_all_payrolls_f pap,
683 per_all_people_f pp,
684 per_addresses padr,
685 per_addresses padc
686 where ppa.payroll_action_id = :p_payroll_action_id
687 and paa.payroll_action_id = ppa.payroll_action_id
688 and pjwa.assignment_action_id = paa.source_action_id
689 and pjwa.assignment_id = paa.assignment_id
690 and pjwa.business_group_id + 0 = to_number(''i_business_group_id'')
691 and pjwa.effective_date
692 between fnd_date.canonical_to_date(''i_effective_soy'') and fnd_date.canonical_to_date(''i_effective_eoy'')
693 and pjwa.itax_organization_id = nvl(to_number(''i_organization_id''),pjwa.itax_organization_id)
694 and pap.payroll_id = pjwa.payroll_id
695 and pjwa.effective_date
696 between pap.effective_start_date and pap.effective_end_date
697 and pp.person_id = pjwa.person_id
698 and pjwa.effective_date
699 between pp.effective_start_date and pp.effective_end_date
700 and padr.person_id (+) = pjwa.person_id
701 and padr.address_type (+) = ''JP_R''
702 and nvl(pjwa.actual_termination_date, add_months(trunc(pjwa.effective_date, ''YYYY''), 12))
703 between padr.date_from (+) and nvl(padr.date_to(+), fnd_date.canonical_to_date(''i_eot''))
704 and padc.person_id (+) = pjwa.person_id
705 and padc.address_type (+) = ''JP_C''
706 and nvl(pjwa.actual_termination_date, add_months(trunc(pjwa.effective_date, ''YYYY''), 12))
707 between padc.date_from (+) and nvl(padc.date_to(+), fnd_date.canonical_to_date(''i_eot''))) wic_v,
708 (select pjsn_act.organization_id,
709 pjsn_act.district_code act_district_code,
710 substrb(nvl(pjsn_act.report_district_code,pjsn_act.district_code),1,5) rep_district_code,
711 pjsn_rep.swot_number rep_swot_number,
712 pjsn_rep.output_file_name rep_output_file_name,
713 pjsn_rep.efile_exclusive_flag rep_efile_exclusive_flag
714 from pay_jp_swot_numbers pjsn_rep,
715 pay_jp_swot_numbers pjsn_act
716 where pjsn_rep.organization_id = pjsn_act.organization_id
717 and pjsn_rep.district_code = nvl(pjsn_act.report_district_code,pjsn_act.district_code)) pjsn_v,
718 hr_organization_information hoi,
719 hr_organization_information hoiw';
720 --
721 c_data_ass_where_clause varchar2(32767)
722 := 'pjsn_v.organization_id (+) = wic_v.itax_organization_id
723 and substrb(pjsn_v.act_district_code(+),1,5) = wic_v.town_or_city
724 and nvl(pjsn_v.rep_district_code,nvl(wic_v.town_or_city,''X''))
725 = nvl(''i_district_code'',nvl(pjsn_v.rep_district_code,nvl(wic_v.town_or_city,''X'')))
726 and nvl(pjsn_v.rep_efile_exclusive_flag,''N'') = ''N''
727 and hoi.organization_id (+) = wic_v.itax_organization_id
728 and hoi.org_information_context(+) = ''JP_TAX_SWOT_INFO''
729 and hoiw.organization_id (+) = wic_v.itax_organization_id
730 and hoiw.org_information_context(+) = ''JP_ITAX_WITHHELD_INFO''';
731 --
732 c_data_ass_order_clause varchar2(32767)
733 := 'nvl(pjsn_v.rep_district_code,wic_v.town_or_city),
734 hoi.org_information1,
735 wic_v.itax_organization_id,
736 lpad(wic_v.employee_number,30,'' '')';
737 --
738 -- -------------------------------------------------------------------------
739 -- query for data_arch in archinit
740 -- -------------------------------------------------------------------------
741 c_data_arch_select_clause varchar2(32767)
742 := 'select
743 paa.assignment_action_id mag_assignment_action_id,
744 pjia.assignment_action_id,
745 pjia.assignment_id,
746 pjia.action_sequence,
747 pjia.effective_date,
748 pjia.date_earned,
749 pjip.itax_organization_id,
750 pjia.itax_category,
751 pjia.itax_yea_category,
752 null dpnt_ref_type,
753 null dpnt_effective_date,
754 pjia.person_id,
755 pjip.sex,
756 pjip.date_of_birth,
757 pjip.leaving_reason,
758 pjip.last_name_kanji last_name,
759 pjip.last_name_kana,
760 pjip.first_name_kanji first_name,
761 pjip.first_name_kana,
762 pjia.employment_category,
763 nvl(pjsn_v.rep_district_code,pjip.district_code)||per_jp_validations.district_code_check_digit(nvl(pjsn_v.rep_district_code,pjip.district_code)) district_code,
764 pjip.address_kanji address,
765 pjip.address_kana address_kana,
766 decode(pjip.country,''JP'',''0'',''1'') address_jp,
767 pjip.last_name_kanji||'' ''||pjip.first_name_kanji full_name,
768 pjip.actual_termination_date,
769 pjip.date_start,
770 pjip.last_name_kana||'' ''||pjip.first_name_kana full_name_kana,
771 pjip.employee_number,
772 pjsn_v.rep_swot_number swot_number,
773 nvl(pjsn_v.rep_output_file_name,
774 pay_jp_spr_efile_pkg.default_file_name(nvl(pjsn_v.rep_district_code,pjip.district_code)||
775 per_jp_validations.district_code_check_digit(nvl(pjsn_v.rep_district_code,pjip.district_code)))) output_file_name,
776 pjia.employer_address itax_org_address,
777 null itax_org_address_kana,
778 pjia.employer_name itax_org_name,
779 null itax_org_name_kana,
780 pjia.employer_telephone_number itax_org_phone,
781 pjia.reference_number1 itax_org_serial1,
782 pjia.reference_number2 itax_org_serial2,
783 fnd_number.canonical_to_number(pjit.taxable_income) taxable_income,
784 fnd_number.canonical_to_number(pjit.net_taxable_income) net_taxable_income,
785 fnd_number.canonical_to_number(pjit.total_income_exempt) total_income_exempt,
786 fnd_number.canonical_to_number(pjit.withholding_itax) withholding_itax,
787 fnd_number.canonical_to_number(pjit.spouse_special_exempt) spouse_special_exempt,
788 fnd_number.canonical_to_number(pjit.social_insurance_premium) social_insurance_premium,
789 fnd_number.canonical_to_number(pjit.mutual_aid_premium) mutual_aid_premium,
790 fnd_number.canonical_to_number(pjit.life_insurance_premium_exempt) life_insurance_premium_exempt,
791 fnd_number.canonical_to_number(pjit.damage_insurance_premium_exem) damage_insurance_premium_exem,
792 fnd_number.canonical_to_number(pjit.housing_tax_reduction) housing_tax_reduction,
793 fnd_number.canonical_to_number(pjit.private_pension_premium) private_pension_premium,
794 fnd_number.canonical_to_number(pjit.spouse_net_taxable_income) spouse_net_taxable_income,
795 fnd_number.canonical_to_number(pjit.long_damage_insurance_premium) long_damage_insurance_premium,
796 fnd_number.canonical_to_number(pjit.disaster_tax_reduction) disaster_tax_reduction,
797 pjio.dependent_spouse_exists_kou,
798 pjio.dependent_spouse_no_exist_kou,
799 pjio.dependent_spouse_exists_otsu,
800 pjio.dependent_spouse_no_exist_otsu,
801 pjio.aged_spouse_exists,
802 fnd_number.canonical_to_number(pjio.num_specifieds_kou) num_specifieds_kou,
803 fnd_number.canonical_to_number(pjio.num_specifieds_otsu) num_specifieds_otsu,
804 fnd_number.canonical_to_number(pjio.num_aged_parents_partial) num_aged_parents_partial,
805 fnd_number.canonical_to_number(pjio.num_ageds_kou) num_ageds_kou,
806 fnd_number.canonical_to_number(pjio.num_ageds_otsu) num_ageds_otsu,
807 fnd_number.canonical_to_number(pjio.num_dependents_kou) num_dependents_kou,
808 fnd_number.canonical_to_number(pjio.num_dependents_otsu) num_dependents_otsu,
809 fnd_number.canonical_to_number(pjio.num_special_disableds_partial) num_special_disableds_partial,
810 fnd_number.canonical_to_number(pjio.num_special_disableds) num_special_disableds,
811 fnd_number.canonical_to_number(pjio.num_disableds) num_disableds,
812 pjio.husband_exists,
813 pjio.minor,
814 pjio.otsu,
815 pjio.special_disabled,
816 pjio.disabled,
817 pjio.aged,
818 pjio.widow,
819 pjio.special_widow,
820 pjio.widower,
821 pjio.working_student,
822 pjio.deceased_termination,
823 pjio.disastered,
824 pjio.foreigner,
825 pjit.prev_job_employer_name_kanji prev_job_employer_name,
826 pjit.prev_job_employer_name_kana,
827 pjit.prev_job_employer_add_kanji prev_job_employer_add,
828 pjit.prev_job_employer_add_kana,
829 pjit.prev_job_foreign_address,
830 fnd_number.canonical_to_number(pjit.prev_job_taxable_income) prev_job_taxable_income,
831 fnd_number.canonical_to_number(pjit.prev_job_itax) prev_job_itax,
832 fnd_number.canonical_to_number(pjit.prev_job_si_prem) prev_job_si_prem,
833 null prev_job_termination_date,
834 fnd_number.canonical_to_number(pjit.prev_job_termination_year) prev_job_termination_year,
835 fnd_number.canonical_to_number(pjit.prev_job_termination_month) prev_job_termination_month,
836 fnd_number.canonical_to_number(pjit.prev_job_termination_day) prev_job_termination_day,
837 null hld_residence_date_1_date,
838 fnd_number.canonical_to_number(pjit.housing_residence_year) hld_residence_date_1_year,
839 fnd_number.canonical_to_number(pjit.housing_residence_month) hld_residence_date_1_month,
840 fnd_number.canonical_to_number(pjit.housing_residence_day) hld_residence_date_1_day,
841 null hld_loan_count,
842 null hld_payable_loan,
843 null hld_loan_type_1,
844 null hld_loan_balance_1,
845 null hld_residence_date_2_date,
846 null hld_residence_date_2_year,
847 null hld_residence_date_2_month,
848 null hld_residence_date_2_day,
849 null hld_loan_type_2,
850 null hld_loan_balance_2,
851 null original_description,
852 null original_description_kana,
853 pjio2.wtm_system_desc_kanji wtm_system_desc,
854 pjio2.wtm_system_desc_kana,
855 pjio2.wtm_user_desc_kanji wtm_user_desc,
856 pjio2.wtm_user_desc_kana,
857 null num_junior_deps,
858 null new_life_ins_prem,
859 null old_life_ins_prem,
860 null new_care_med_prem,
861 null new_pens_ins_prem';
862 --
863 c_data_arch_from_clause varchar2(32767)
864 := 'pay_payroll_actions ppa,
865 pay_assignment_actions paa,
866 pay_assignment_actions ipaa,
867 pay_payroll_actions ippa,
868 pay_jp_itax_person_v2 pjip,
869 pay_jp_itax_arch_v2 pjia,
870 pay_jp_itax_tax_v pjit,
871 pay_jp_itax_other_v pjio,
872 pay_jp_itax_other2_v2 pjio2,
873 (select pjsn_act.organization_id,
874 pjsn_act.district_code act_district_code,
875 substrb(nvl(pjsn_act.report_district_code,pjsn_act.district_code),1,5) rep_district_code,
876 pjsn_rep.swot_number rep_swot_number,
877 pjsn_rep.output_file_name rep_output_file_name,
878 pjsn_rep.efile_exclusive_flag rep_efile_exclusive_flag
879 from pay_jp_swot_numbers pjsn_rep,
880 pay_jp_swot_numbers pjsn_act
881 where pjsn_rep.organization_id = pjsn_act.organization_id
882 and pjsn_rep.district_code = nvl(pjsn_act.report_district_code,pjsn_act.district_code)) pjsn_v';
883 --
884 c_data_arch_where_clause varchar2(32767)
885 := 'ppa.payroll_action_id = :p_payroll_action_id
886 and paa.payroll_action_id = ppa.payroll_action_id
887 and ipaa.assignment_id = paa.assignment_id
888 and ippa.payroll_action_id = ipaa.payroll_action_id
889 and ippa.business_group_id + 0 = to_number(''i_business_group_id'')
890 and ippa.effective_date
891 between fnd_date.canonical_to_date(''i_effective_soy'') and fnd_date.canonical_to_date(''i_effective_eoy'')
892 and ippa.action_type = ''X''
893 and ippa.report_type = ''JPTW''
894 and ippa.report_qualifier = ''JP''
895 and ippa.report_category = ''ARCHIVE''
896 and pjip.action_context_id = ipaa.assignment_action_id
897 and pjip.itax_organization_id = nvl(to_number(''i_organization_id''),pjip.itax_organization_id)
898 and pjia.action_context_id = pjip.action_context_id
899 and pjia.effective_date = pjip.effective_date
900 and pjia.assignment_action_id = paa.source_action_id
901 and pjit.action_context_id = pjip.action_context_id
902 and pjit.effective_date = pjip.effective_date
903 and pjio.action_context_id = pjip.action_context_id
904 and pjio.effective_date = pjip.effective_date
905 and pjio2.action_context_id = pjip.action_context_id
906 and pjio2.effective_date = pjip.effective_date
907 and pjsn_v.organization_id (+) = pjip.itax_organization_id
908 and substrb(pjsn_v.act_district_code(+),1,5) = pjip.district_code
909 and nvl(pjsn_v.rep_district_code,nvl(pjip.district_code,''X''))
910 = nvl(''i_district_code'',nvl(pjsn_v.rep_district_code,nvl(pjip.district_code,''X'')))
911 and nvl(pjsn_v.rep_efile_exclusive_flag,''N'') = ''N''';
912 --
913 c_data_arch_order_clause varchar2(32767)
914 := 'nvl(pjsn_v.rep_district_code,pjip.district_code),
915 pjia.employer_name,
916 pjip.itax_organization_id,
917 lpad(pjip.employee_number,30,'' '')';
918 --
919 c_data_arch_select_clause_2009 varchar2(32767)
920 := 'select
921 paa.assignment_action_id mag_assignment_action_id,
922 pjia.assignment_action_id,
923 pjia.assignment_id,
924 pjia.action_sequence,
925 pjia.effective_date,
926 pjia.date_earned,
927 pjip.itax_organization_id,
928 pjia.itax_category,
929 pjia.itax_yea_category,
930 null dpnt_ref_type,
931 null dpnt_effective_date,
932 pjia.person_id,
933 pjip.sex,
934 pjip.date_of_birth,
935 pjip.leaving_reason,
936 pjip.last_name_kanji last_name,
937 pjip.last_name_kana,
938 pjip.first_name_kanji first_name,
939 pjip.first_name_kana,
940 pjia.employment_category,
941 nvl(pjsn_v.rep_district_code,pjip.district_code)||per_jp_validations.district_code_check_digit(nvl(pjsn_v.rep_district_code,pjip.district_code)) district_code,
942 pjip.address_kanji address,
943 pjip.address_kana address_kana,
944 decode(pjip.country,''JP'',''0'',''1'') address_jp,
945 pjip.last_name_kanji||'' ''||pjip.first_name_kanji full_name,
946 pjip.actual_termination_date,
947 pjip.date_start,
948 pjip.last_name_kana||'' ''||pjip.first_name_kana full_name_kana,
949 pjip.employee_number,
950 pjsn_v.rep_swot_number swot_number,
951 nvl(pjsn_v.rep_output_file_name,
952 pay_jp_spr_efile_pkg.default_file_name(nvl(pjsn_v.rep_district_code,pjip.district_code)||
953 per_jp_validations.district_code_check_digit(nvl(pjsn_v.rep_district_code,pjip.district_code)))) output_file_name,
954 pjia.employer_address itax_org_address,
955 null itax_org_address_kana,
956 pjia.employer_name itax_org_name,
957 null itax_org_name_kana,
958 pjia.employer_telephone_number itax_org_phone,
959 pjia.reference_number1 itax_org_serial1,
960 pjia.reference_number2 itax_org_serial2,
961 fnd_number.canonical_to_number(pjit.taxable_income) taxable_income,
962 fnd_number.canonical_to_number(pjit.net_taxable_income) net_taxable_income,
963 fnd_number.canonical_to_number(pjit.total_income_exempt) total_income_exempt,
964 fnd_number.canonical_to_number(pjit.withholding_itax) withholding_itax,
965 fnd_number.canonical_to_number(pjit.spouse_special_exempt) spouse_special_exempt,
966 fnd_number.canonical_to_number(pjit.social_insurance_premium) social_insurance_premium,
967 fnd_number.canonical_to_number(pjit.mutual_aid_premium) mutual_aid_premium,
968 fnd_number.canonical_to_number(pjit.life_insurance_premium_exempt) life_insurance_premium_exempt,
969 fnd_number.canonical_to_number(pjit.damage_insurance_premium_exem) damage_insurance_premium_exem,
970 fnd_number.canonical_to_number(pjit.housing_tax_reduction) housing_tax_reduction,
971 fnd_number.canonical_to_number(pjit.private_pension_premium) private_pension_premium,
972 fnd_number.canonical_to_number(pjit.spouse_net_taxable_income) spouse_net_taxable_income,
973 fnd_number.canonical_to_number(pjit.long_damage_insurance_premium) long_damage_insurance_premium,
974 fnd_number.canonical_to_number(pjit.disaster_tax_reduction) disaster_tax_reduction,
975 pjio.dependent_spouse_exists_kou,
976 pjio.dependent_spouse_no_exist_kou,
977 pjio.dependent_spouse_exists_otsu,
978 pjio.dependent_spouse_no_exist_otsu,
979 pjio.aged_spouse_exists,
980 fnd_number.canonical_to_number(pjio.num_specifieds_kou) num_specifieds_kou,
981 fnd_number.canonical_to_number(pjio.num_specifieds_otsu) num_specifieds_otsu,
982 fnd_number.canonical_to_number(pjio.num_aged_parents_partial) num_aged_parents_partial,
983 fnd_number.canonical_to_number(pjio.num_ageds_kou) num_ageds_kou,
984 fnd_number.canonical_to_number(pjio.num_ageds_otsu) num_ageds_otsu,
985 fnd_number.canonical_to_number(pjio.num_dependents_kou) num_dependents_kou,
986 fnd_number.canonical_to_number(pjio.num_dependents_otsu) num_dependents_otsu,
987 fnd_number.canonical_to_number(pjio.num_special_disableds_partial) num_special_disableds_partial,
988 fnd_number.canonical_to_number(pjio.num_special_disableds) num_special_disableds,
989 fnd_number.canonical_to_number(pjio.num_disableds) num_disableds,
990 pjio.husband_exists,
991 pjio.minor,
992 pjio.otsu,
993 pjio.special_disabled,
994 pjio.disabled,
995 pjio.aged,
996 pjio.widow,
997 pjio.special_widow,
998 pjio.widower,
999 pjio.working_student,
1000 pjio.deceased_termination,
1001 pjio.disastered,
1002 pjio.foreigner,
1003 pjit.prev_job_employer_name_kanji prev_job_employer_name,
1004 pjit.prev_job_employer_name_kana,
1005 pjit.prev_job_employer_add_kanji prev_job_employer_add,
1006 pjit.prev_job_employer_add_kana,
1007 pjit.prev_job_foreign_address,
1008 fnd_number.canonical_to_number(pjit.prev_job_taxable_income) prev_job_taxable_income,
1009 fnd_number.canonical_to_number(pjit.prev_job_itax) prev_job_itax,
1010 fnd_number.canonical_to_number(pjit.prev_job_si_prem) prev_job_si_prem,
1011 null prev_job_termination_date,
1012 fnd_number.canonical_to_number(pjit.prev_job_termination_year) prev_job_termination_year,
1013 fnd_number.canonical_to_number(pjit.prev_job_termination_month) prev_job_termination_month,
1014 fnd_number.canonical_to_number(pjit.prev_job_termination_day) prev_job_termination_day,
1015 pjih.residence_date_1 hld_residence_date_1_date,
1016 null hld_residence_date_1_year,
1017 null hld_residence_date_1_month,
1018 null hld_residence_date_1_day,
1019 pjih.loan_count hld_loan_count,
1020 pjih.payable_loan hld_payable_loan,
1021 pjih.loan_type_1 hld_loan_type_1,
1022 pjih.loan_balance_1 hld_loan_balance_1,
1023 pjih.residence_date_2 hld_residence_date_2_date,
1024 null hld_residence_date_2_year,
1025 null hld_residence_date_2_month,
1026 null hld_residence_date_2_day,
1027 pjih.loan_type_2 hld_loan_type_2,
1028 pjih.loan_balance_2 hld_loan_balance_2,
1029 null original_description,
1030 null original_description_kana,
1031 pjio2.wtm_system_desc_kanji wtm_system_desc,
1032 pjio2.wtm_system_desc_kana,
1033 pjio2.wtm_user_desc_kanji wtm_user_desc,
1034 pjio2.wtm_user_desc_kana,
1035 null num_junior_deps,
1036 null new_life_ins_prem,
1037 null old_life_ins_prem,
1038 null new_care_med_prem,
1039 null new_pens_ins_prem';
1040 --
1041 c_data_arch_from_clause_2009 varchar2(32767)
1042 := 'pay_payroll_actions ppa,
1043 pay_assignment_actions paa,
1044 pay_assignment_actions ipaa,
1045 pay_payroll_actions ippa,
1046 pay_jp_itax_person_v2 pjip,
1047 pay_jp_itax_arch_v2 pjia,
1048 pay_jp_itax_tax_v pjit,
1049 pay_jp_itax_other_v pjio,
1050 pay_jp_itax_other2_v2 pjio2,
1051 pay_jp_itax_housing_v pjih,
1052 (select pjsn_act.organization_id,
1053 pjsn_act.district_code act_district_code,
1054 substrb(nvl(pjsn_act.report_district_code,pjsn_act.district_code),1,5) rep_district_code,
1055 pjsn_rep.swot_number rep_swot_number,
1056 pjsn_rep.output_file_name rep_output_file_name,
1057 pjsn_rep.efile_exclusive_flag rep_efile_exclusive_flag
1058 from pay_jp_swot_numbers pjsn_rep,
1059 pay_jp_swot_numbers pjsn_act
1060 where pjsn_rep.organization_id = pjsn_act.organization_id
1061 and pjsn_rep.district_code = nvl(pjsn_act.report_district_code,pjsn_act.district_code)) pjsn_v';
1062 --
1063 c_data_arch_where_clause_2009 varchar2(32767)
1064 := 'ppa.payroll_action_id = :p_payroll_action_id
1065 and paa.payroll_action_id = ppa.payroll_action_id
1066 and ipaa.assignment_id = paa.assignment_id
1067 and ippa.payroll_action_id = ipaa.payroll_action_id
1068 and ippa.business_group_id + 0 = to_number(''i_business_group_id'')
1069 and ippa.effective_date
1070 between fnd_date.canonical_to_date(''i_effective_soy'') and fnd_date.canonical_to_date(''i_effective_eoy'')
1071 and ippa.action_type = ''X''
1072 and ippa.report_type = ''JPTW''
1073 and ippa.report_qualifier = ''JP''
1074 and ippa.report_category = ''ARCHIVE''
1075 and pjip.action_context_id = ipaa.assignment_action_id
1076 and pjip.itax_organization_id = nvl(to_number(''i_organization_id''),pjip.itax_organization_id)
1077 and pjia.action_context_id = pjip.action_context_id
1078 and pjia.effective_date = pjip.effective_date
1079 and pjia.assignment_action_id = paa.source_action_id
1080 and pjit.action_context_id = pjip.action_context_id
1081 and pjit.effective_date = pjip.effective_date
1082 and pjio.action_context_id = pjip.action_context_id
1083 and pjio.effective_date = pjip.effective_date
1084 and pjio2.action_context_id = pjip.action_context_id
1085 and pjio2.effective_date = pjip.effective_date
1086 and pjih.action_context_id = pjip.action_context_id
1087 and pjih.effective_date = pjip.effective_date
1088 and pjsn_v.organization_id (+) = pjip.itax_organization_id
1089 and substrb(pjsn_v.act_district_code(+),1,5) = pjip.district_code
1090 and nvl(pjsn_v.rep_district_code,nvl(pjip.district_code,''X''))
1091 = nvl(''i_district_code'',nvl(pjsn_v.rep_district_code,nvl(pjip.district_code,''X'')))
1092 and nvl(pjsn_v.rep_efile_exclusive_flag,''N'') = ''N''';
1093 --
1094 c_data_arch_select_clause_2011 varchar2(32767)
1095 := 'select
1096 paa.assignment_action_id mag_assignment_action_id,
1097 pjia.assignment_action_id,
1098 pjia.assignment_id,
1099 pjia.action_sequence,
1100 pjia.effective_date,
1101 pjia.date_earned,
1102 pjip.itax_organization_id,
1103 pjia.itax_category,
1104 pjia.itax_yea_category,
1105 null dpnt_ref_type,
1106 null dpnt_effective_date,
1107 pjia.person_id,
1108 pjip.sex,
1109 pjip.date_of_birth,
1110 pjip.leaving_reason,
1111 pjip.last_name_kanji last_name,
1112 pjip.last_name_kana,
1113 pjip.first_name_kanji first_name,
1114 pjip.first_name_kana,
1115 pjia.employment_category,
1116 nvl(pjsn_v.rep_district_code,pjip.district_code)||per_jp_validations.district_code_check_digit(nvl(pjsn_v.rep_district_code,pjip.district_code)) district_code,
1117 pjip.address_kanji address,
1118 pjip.address_kana address_kana,
1119 decode(pjip.country,''JP'',''0'',''1'') address_jp,
1120 pjip.last_name_kanji||'' ''||pjip.first_name_kanji full_name,
1121 pjip.actual_termination_date,
1122 pjip.date_start,
1123 pjip.last_name_kana||'' ''||pjip.first_name_kana full_name_kana,
1124 pjip.employee_number,
1125 pjsn_v.rep_swot_number swot_number,
1126 nvl(pjsn_v.rep_output_file_name,
1127 pay_jp_spr_efile_pkg.default_file_name(nvl(pjsn_v.rep_district_code,pjip.district_code)||
1128 per_jp_validations.district_code_check_digit(nvl(pjsn_v.rep_district_code,pjip.district_code)))) output_file_name,
1129 pjia.employer_address itax_org_address,
1130 null itax_org_address_kana,
1131 pjia.employer_name itax_org_name,
1132 null itax_org_name_kana,
1133 pjia.employer_telephone_number itax_org_phone,
1134 pjia.reference_number1 itax_org_serial1,
1135 pjia.reference_number2 itax_org_serial2,
1136 fnd_number.canonical_to_number(pjit.taxable_income) taxable_income,
1137 fnd_number.canonical_to_number(pjit.net_taxable_income) net_taxable_income,
1138 fnd_number.canonical_to_number(pjit.total_income_exempt) total_income_exempt,
1139 fnd_number.canonical_to_number(pjit.withholding_itax) withholding_itax,
1140 fnd_number.canonical_to_number(pjit.spouse_special_exempt) spouse_special_exempt,
1141 fnd_number.canonical_to_number(pjit.social_insurance_premium) social_insurance_premium,
1142 fnd_number.canonical_to_number(pjit.mutual_aid_premium) mutual_aid_premium,
1143 fnd_number.canonical_to_number(pjit.life_insurance_premium_exempt) life_insurance_premium_exempt,
1144 fnd_number.canonical_to_number(pjit.damage_insurance_premium_exem) damage_insurance_premium_exem,
1145 fnd_number.canonical_to_number(pjit.housing_tax_reduction) housing_tax_reduction,
1146 fnd_number.canonical_to_number(pjit.private_pension_premium) private_pension_premium,
1147 fnd_number.canonical_to_number(pjit.spouse_net_taxable_income) spouse_net_taxable_income,
1148 fnd_number.canonical_to_number(pjit.long_damage_insurance_premium) long_damage_insurance_premium,
1149 fnd_number.canonical_to_number(pjit.disaster_tax_reduction) disaster_tax_reduction,
1150 pjio.dependent_spouse_exists_kou,
1151 pjio.dependent_spouse_no_exist_kou,
1152 pjio.dependent_spouse_exists_otsu,
1153 pjio.dependent_spouse_no_exist_otsu,
1154 pjio.aged_spouse_exists,
1155 fnd_number.canonical_to_number(pjio.num_specifieds_kou) num_specifieds_kou,
1156 fnd_number.canonical_to_number(pjio.num_specifieds_otsu) num_specifieds_otsu,
1157 fnd_number.canonical_to_number(pjio.num_aged_parents_partial) num_aged_parents_partial,
1158 fnd_number.canonical_to_number(pjio.num_ageds_kou) num_ageds_kou,
1159 fnd_number.canonical_to_number(pjio.num_ageds_otsu) num_ageds_otsu,
1160 fnd_number.canonical_to_number(pjio.num_dependents_kou) num_dependents_kou,
1161 fnd_number.canonical_to_number(pjio.num_dependents_otsu) num_dependents_otsu,
1162 fnd_number.canonical_to_number(pjio.num_special_disableds_partial) num_special_disableds_partial,
1163 fnd_number.canonical_to_number(pjio.num_special_disableds) num_special_disableds,
1164 fnd_number.canonical_to_number(pjio.num_disableds) num_disableds,
1165 pjio.husband_exists,
1166 pjio.minor,
1167 pjio.otsu,
1168 pjio.special_disabled,
1169 pjio.disabled,
1170 pjio.aged,
1171 pjio.widow,
1172 pjio.special_widow,
1173 pjio.widower,
1174 pjio.working_student,
1175 pjio.deceased_termination,
1176 pjio.disastered,
1177 pjio.foreigner,
1178 pjit.prev_job_employer_name_kanji prev_job_employer_name,
1179 pjit.prev_job_employer_name_kana,
1180 pjit.prev_job_employer_add_kanji prev_job_employer_add,
1181 pjit.prev_job_employer_add_kana,
1182 pjit.prev_job_foreign_address,
1183 fnd_number.canonical_to_number(pjit.prev_job_taxable_income) prev_job_taxable_income,
1184 fnd_number.canonical_to_number(pjit.prev_job_itax) prev_job_itax,
1185 fnd_number.canonical_to_number(pjit.prev_job_si_prem) prev_job_si_prem,
1186 null prev_job_termination_date,
1187 fnd_number.canonical_to_number(pjit.prev_job_termination_year) prev_job_termination_year,
1188 fnd_number.canonical_to_number(pjit.prev_job_termination_month) prev_job_termination_month,
1189 fnd_number.canonical_to_number(pjit.prev_job_termination_day) prev_job_termination_day,
1190 pjih.residence_date_1 hld_residence_date_1_date,
1191 null hld_residence_date_1_year,
1192 null hld_residence_date_1_month,
1193 null hld_residence_date_1_day,
1194 pjih.loan_count hld_loan_count,
1195 pjih.payable_loan hld_payable_loan,
1196 pjih.loan_type_1 hld_loan_type_1,
1197 pjih.loan_balance_1 hld_loan_balance_1,
1198 pjih.residence_date_2 hld_residence_date_2_date,
1199 null hld_residence_date_2_year,
1200 null hld_residence_date_2_month,
1201 null hld_residence_date_2_day,
1202 pjih.loan_type_2 hld_loan_type_2,
1203 pjih.loan_balance_2 hld_loan_balance_2,
1204 null original_description,
1205 null original_description_kana,
1206 pjio2.wtm_system_desc_kanji wtm_system_desc,
1207 pjio2.wtm_system_desc_kana,
1208 pjio2.wtm_user_desc_kanji wtm_user_desc,
1209 pjio2.wtm_user_desc_kana,
1210 fnd_number.canonical_to_number(pjid.num_junior_deps) num_junior_deps,
1211 null new_life_ins_prem,
1212 null old_life_ins_prem,
1213 null new_care_med_prem,
1214 null new_pens_ins_prem';
1215 --
1216 c_data_arch_from_clause_2011 varchar2(32767)
1217 := 'pay_payroll_actions ppa,
1218 pay_assignment_actions paa,
1219 pay_assignment_actions ipaa,
1220 pay_payroll_actions ippa,
1221 pay_jp_itax_person_v2 pjip,
1222 pay_jp_itax_arch_v2 pjia,
1223 pay_jp_itax_tax_v pjit,
1224 pay_jp_itax_other_v pjio,
1225 pay_jp_itax_other2_v2 pjio2,
1226 pay_jp_itax_housing_v pjih,
1227 pay_jp_itax_dep_v pjid,
1228 (select pjsn_act.organization_id,
1229 pjsn_act.district_code act_district_code,
1230 substrb(nvl(pjsn_act.report_district_code,pjsn_act.district_code),1,5) rep_district_code,
1231 pjsn_rep.swot_number rep_swot_number,
1232 pjsn_rep.output_file_name rep_output_file_name,
1233 pjsn_rep.efile_exclusive_flag rep_efile_exclusive_flag
1234 from pay_jp_swot_numbers pjsn_rep,
1235 pay_jp_swot_numbers pjsn_act
1236 where pjsn_rep.organization_id = pjsn_act.organization_id
1237 and pjsn_rep.district_code = nvl(pjsn_act.report_district_code,pjsn_act.district_code)) pjsn_v';
1238 --
1239 c_data_arch_where_clause_2011 varchar2(32767)
1240 := 'ppa.payroll_action_id = :p_payroll_action_id
1241 and paa.payroll_action_id = ppa.payroll_action_id
1242 and ipaa.assignment_id = paa.assignment_id
1243 and ippa.payroll_action_id = ipaa.payroll_action_id
1244 and ippa.business_group_id + 0 = to_number(''i_business_group_id'')
1245 and ippa.effective_date
1246 between fnd_date.canonical_to_date(''i_effective_soy'') and fnd_date.canonical_to_date(''i_effective_eoy'')
1247 and ippa.action_type = ''X''
1248 and ippa.report_type = ''JPTW''
1249 and ippa.report_qualifier = ''JP''
1250 and ippa.report_category = ''ARCHIVE''
1251 and pjip.action_context_id = ipaa.assignment_action_id
1252 and pjip.itax_organization_id = nvl(to_number(''i_organization_id''),pjip.itax_organization_id)
1253 and pjia.action_context_id = pjip.action_context_id
1254 and pjia.effective_date = pjip.effective_date
1255 and pjia.assignment_action_id = paa.source_action_id
1256 and pjit.action_context_id = pjip.action_context_id
1257 and pjit.effective_date = pjip.effective_date
1258 and pjio.action_context_id = pjip.action_context_id
1259 and pjio.effective_date = pjip.effective_date
1260 and pjio2.action_context_id = pjip.action_context_id
1261 and pjio2.effective_date = pjip.effective_date
1262 and pjih.action_context_id = pjip.action_context_id
1263 and pjih.effective_date = pjip.effective_date
1264 and pjid.action_context_id = pjip.action_context_id
1265 and pjid.effective_date = pjip.effective_date
1266 and pjsn_v.organization_id (+) = pjip.itax_organization_id
1267 and substrb(pjsn_v.act_district_code(+),1,5) = pjip.district_code
1268 and nvl(pjsn_v.rep_district_code,nvl(pjip.district_code,''X''))
1269 = nvl(''i_district_code'',nvl(pjsn_v.rep_district_code,nvl(pjip.district_code,''X'')))
1270 and nvl(pjsn_v.rep_efile_exclusive_flag,''N'') = ''N''';
1271 --
1272 c_data_arch_select_clause_2012 varchar2(32767)
1273 := 'select
1274 paa.assignment_action_id mag_assignment_action_id,
1275 pjia.assignment_action_id,
1276 pjia.assignment_id,
1277 pjia.action_sequence,
1278 pjia.effective_date,
1279 pjia.date_earned,
1280 pjip.itax_organization_id,
1281 pjia.itax_category,
1282 pjia.itax_yea_category,
1283 null dpnt_ref_type,
1284 null dpnt_effective_date,
1285 pjia.person_id,
1286 pjip.sex,
1287 pjip.date_of_birth,
1288 pjip.leaving_reason,
1289 pjip.last_name_kanji last_name,
1290 pjip.last_name_kana,
1291 pjip.first_name_kanji first_name,
1292 pjip.first_name_kana,
1293 pjia.employment_category,
1294 nvl(pjsn_v.rep_district_code,pjip.district_code)||per_jp_validations.district_code_check_digit(nvl(pjsn_v.rep_district_code,pjip.district_code)) district_code,
1295 pjip.address_kanji address,
1296 pjip.address_kana address_kana,
1297 decode(pjip.country,''JP'',''0'',''1'') address_jp,
1298 pjip.last_name_kanji||'' ''||pjip.first_name_kanji full_name,
1299 pjip.actual_termination_date,
1300 pjip.date_start,
1301 pjip.last_name_kana||'' ''||pjip.first_name_kana full_name_kana,
1302 pjip.employee_number,
1303 pjsn_v.rep_swot_number swot_number,
1304 nvl(pjsn_v.rep_output_file_name,
1305 pay_jp_spr_efile_pkg.default_file_name(nvl(pjsn_v.rep_district_code,pjip.district_code)||
1306 per_jp_validations.district_code_check_digit(nvl(pjsn_v.rep_district_code,pjip.district_code)))) output_file_name,
1307 pjia.employer_address itax_org_address,
1308 null itax_org_address_kana,
1309 pjia.employer_name itax_org_name,
1310 null itax_org_name_kana,
1311 pjia.employer_telephone_number itax_org_phone,
1312 pjia.reference_number1 itax_org_serial1,
1313 pjia.reference_number2 itax_org_serial2,
1314 fnd_number.canonical_to_number(pjit.taxable_income) taxable_income,
1315 fnd_number.canonical_to_number(pjit.net_taxable_income) net_taxable_income,
1316 fnd_number.canonical_to_number(pjit.total_income_exempt) total_income_exempt,
1317 fnd_number.canonical_to_number(pjit.withholding_itax) withholding_itax,
1318 fnd_number.canonical_to_number(pjit.spouse_special_exempt) spouse_special_exempt,
1319 fnd_number.canonical_to_number(pjit.social_insurance_premium) social_insurance_premium,
1320 fnd_number.canonical_to_number(pjit.mutual_aid_premium) mutual_aid_premium,
1321 fnd_number.canonical_to_number(pjit.life_insurance_premium_exempt) life_insurance_premium_exempt,
1322 fnd_number.canonical_to_number(pjit.damage_insurance_premium_exem) damage_insurance_premium_exem,
1323 fnd_number.canonical_to_number(pjit.housing_tax_reduction) housing_tax_reduction,
1324 fnd_number.canonical_to_number(pjit.private_pension_premium) private_pension_premium,
1325 fnd_number.canonical_to_number(pjit.spouse_net_taxable_income) spouse_net_taxable_income,
1326 fnd_number.canonical_to_number(pjit.long_damage_insurance_premium) long_damage_insurance_premium,
1327 fnd_number.canonical_to_number(pjit.disaster_tax_reduction) disaster_tax_reduction,
1328 pjio.dependent_spouse_exists_kou,
1329 pjio.dependent_spouse_no_exist_kou,
1330 pjio.dependent_spouse_exists_otsu,
1331 pjio.dependent_spouse_no_exist_otsu,
1332 pjio.aged_spouse_exists,
1333 fnd_number.canonical_to_number(pjio.num_specifieds_kou) num_specifieds_kou,
1334 fnd_number.canonical_to_number(pjio.num_specifieds_otsu) num_specifieds_otsu,
1335 fnd_number.canonical_to_number(pjio.num_aged_parents_partial) num_aged_parents_partial,
1336 fnd_number.canonical_to_number(pjio.num_ageds_kou) num_ageds_kou,
1337 fnd_number.canonical_to_number(pjio.num_ageds_otsu) num_ageds_otsu,
1338 fnd_number.canonical_to_number(pjio.num_dependents_kou) num_dependents_kou,
1339 fnd_number.canonical_to_number(pjio.num_dependents_otsu) num_dependents_otsu,
1340 fnd_number.canonical_to_number(pjio.num_special_disableds_partial) num_special_disableds_partial,
1341 fnd_number.canonical_to_number(pjio.num_special_disableds) num_special_disableds,
1342 fnd_number.canonical_to_number(pjio.num_disableds) num_disableds,
1343 pjio.husband_exists,
1344 pjio.minor,
1345 pjio.otsu,
1346 pjio.special_disabled,
1347 pjio.disabled,
1348 pjio.aged,
1349 pjio.widow,
1350 pjio.special_widow,
1351 pjio.widower,
1352 pjio.working_student,
1353 pjio.deceased_termination,
1354 pjio.disastered,
1355 pjio.foreigner,
1356 pjit.prev_job_employer_name_kanji prev_job_employer_name,
1357 pjit.prev_job_employer_name_kana,
1358 pjit.prev_job_employer_add_kanji prev_job_employer_add,
1359 pjit.prev_job_employer_add_kana,
1360 pjit.prev_job_foreign_address,
1361 fnd_number.canonical_to_number(pjit.prev_job_taxable_income) prev_job_taxable_income,
1362 fnd_number.canonical_to_number(pjit.prev_job_itax) prev_job_itax,
1363 fnd_number.canonical_to_number(pjit.prev_job_si_prem) prev_job_si_prem,
1364 null prev_job_termination_date,
1365 fnd_number.canonical_to_number(pjit.prev_job_termination_year) prev_job_termination_year,
1366 fnd_number.canonical_to_number(pjit.prev_job_termination_month) prev_job_termination_month,
1367 fnd_number.canonical_to_number(pjit.prev_job_termination_day) prev_job_termination_day,
1368 pjih.residence_date_1 hld_residence_date_1_date,
1369 null hld_residence_date_1_year,
1370 null hld_residence_date_1_month,
1371 null hld_residence_date_1_day,
1372 pjih.loan_count hld_loan_count,
1373 pjih.payable_loan hld_payable_loan,
1374 pjih.loan_type_1 hld_loan_type_1,
1375 pjih.loan_balance_1 hld_loan_balance_1,
1376 pjih.residence_date_2 hld_residence_date_2_date,
1377 null hld_residence_date_2_year,
1378 null hld_residence_date_2_month,
1379 null hld_residence_date_2_day,
1380 pjih.loan_type_2 hld_loan_type_2,
1381 pjih.loan_balance_2 hld_loan_balance_2,
1382 null original_description,
1383 null original_description_kana,
1384 pjio2.wtm_system_desc_kanji wtm_system_desc,
1385 pjio2.wtm_system_desc_kana,
1386 pjio2.wtm_user_desc_kanji wtm_user_desc,
1387 pjio2.wtm_user_desc_kana,
1388 fnd_number.canonical_to_number(pjid.num_junior_deps) num_junior_deps,
1389 fnd_number.canonical_to_number(tax1.new_life_ins_prem) new_life_ins_prem,
1390 fnd_number.canonical_to_number(tax1.old_life_ins_prem) old_life_ins_prem,
1391 fnd_number.canonical_to_number(tax1.care_med_ins_prem) new_care_med_prem,
1392 fnd_number.canonical_to_number(tax1.new_pen_ins_prem) new_pens_ins_prem';
1393 --
1394 c_data_arch_from_clause_2012 varchar2(32767)
1395 := 'pay_payroll_actions ppa,
1396 pay_assignment_actions paa,
1397 pay_assignment_actions ipaa,
1398 pay_payroll_actions ippa,
1399 pay_jp_itax_person_v2 pjip,
1400 pay_jp_itax_arch_v2 pjia,
1401 pay_jp_itax_tax_v pjit,
1402 pay_jp_itax_tax_v2 tax1,
1403 pay_jp_itax_other_v pjio,
1404 pay_jp_itax_other2_v2 pjio2,
1405 pay_jp_itax_housing_v pjih,
1406 pay_jp_itax_dep_v pjid,
1407 (select pjsn_act.organization_id,
1408 pjsn_act.district_code act_district_code,
1409 substrb(nvl(pjsn_act.report_district_code,pjsn_act.district_code),1,5) rep_district_code,
1410 pjsn_rep.swot_number rep_swot_number,
1411 pjsn_rep.output_file_name rep_output_file_name,
1412 pjsn_rep.efile_exclusive_flag rep_efile_exclusive_flag
1413 from pay_jp_swot_numbers pjsn_rep,
1414 pay_jp_swot_numbers pjsn_act
1415 where pjsn_rep.organization_id = pjsn_act.organization_id
1416 and pjsn_rep.district_code = nvl(pjsn_act.report_district_code,pjsn_act.district_code)) pjsn_v';
1417 --
1418 c_data_arch_where_clause_2012 varchar2(32767)
1419 := 'ppa.payroll_action_id = :p_payroll_action_id
1420 and paa.payroll_action_id = ppa.payroll_action_id
1421 and ipaa.assignment_id = paa.assignment_id
1422 and ippa.payroll_action_id = ipaa.payroll_action_id
1423 and ippa.business_group_id + 0 = to_number(''i_business_group_id'')
1424 and ippa.effective_date
1425 between fnd_date.canonical_to_date(''i_effective_soy'') and fnd_date.canonical_to_date(''i_effective_eoy'')
1426 and ippa.action_type = ''X''
1427 and ippa.report_type = ''JPTW''
1428 and ippa.report_qualifier = ''JP''
1429 and ippa.report_category = ''ARCHIVE''
1430 and pjip.action_context_id = ipaa.assignment_action_id
1431 and pjip.itax_organization_id = nvl(to_number(''i_organization_id''),pjip.itax_organization_id)
1432 and pjia.action_context_id = pjip.action_context_id
1433 and pjia.effective_date = pjip.effective_date
1434 and pjia.assignment_action_id = paa.source_action_id
1435 and pjit.action_context_id = pjip.action_context_id
1436 and pjit.effective_date = pjip.effective_date
1437 and tax1.action_context_id = pjip.action_context_id
1438 and tax1.effective_date = pjip.effective_date
1439 and pjio.action_context_id = pjip.action_context_id
1440 and pjio.effective_date = pjip.effective_date
1441 and pjio2.action_context_id = pjip.action_context_id
1442 and pjio2.effective_date = pjip.effective_date
1443 and pjih.action_context_id = pjip.action_context_id
1444 and pjih.effective_date = pjip.effective_date
1445 and pjid.action_context_id = pjip.action_context_id
1446 and pjid.effective_date = pjip.effective_date
1447 and pjsn_v.organization_id (+) = pjip.itax_organization_id
1448 and substrb(pjsn_v.act_district_code(+),1,5) = pjip.district_code
1449 and nvl(pjsn_v.rep_district_code,nvl(pjip.district_code,''X''))
1450 = nvl(''i_district_code'',nvl(pjsn_v.rep_district_code,nvl(pjip.district_code,''X'')))
1451 and nvl(pjsn_v.rep_efile_exclusive_flag,''N'') = ''N''';
1452 --
1453 -- -------------------------------------------------------------------------
1454 -- set_file_prefix
1455 -- -------------------------------------------------------------------------
1456 procedure set_file_prefix(
1457 p_file_prefix in varchar2)
1458 is
1459 begin
1460 --
1461 pay_jp_spr_efile_pkg.g_file_prefix := p_file_prefix;
1462 --
1463 end set_file_prefix;
1464 --
1465 -- -------------------------------------------------------------------------
1466 -- set_file_extension
1467 -- -------------------------------------------------------------------------
1468 procedure set_file_extension(
1469 p_file_extension in varchar2)
1470 is
1471 begin
1472 --
1473 pay_jp_spr_efile_pkg.g_file_extension := p_file_extension;
1474 --
1475 end set_file_extension;
1476 --
1477 -- -------------------------------------------------------------------------
1478 -- default_file_name
1479 -- -------------------------------------------------------------------------
1480 function default_file_name(
1481 p_district_code in varchar2)
1482 return varchar2
1483 is
1484 --
1485 l_file_name varchar2(80);
1486 --
1487 begin
1488 --
1489 if p_district_code is null then
1490 --
1491 l_file_name := pay_jp_spr_efile_pkg.g_file_prefix||
1492 c_file_spliter||
1493 to_char(pay_jp_spr_efile_pkg.g_request_id)||c_file_extension;
1494 --
1495 else
1496 --
1497 l_file_name := pay_jp_spr_efile_pkg.g_file_prefix||
1498 c_file_spliter||
1499 p_district_code||
1500 c_file_spliter||
1501 to_char(pay_jp_spr_efile_pkg.g_request_id)||c_file_extension;
1502 --
1503 end if;
1504 --
1505 if lengthb(l_file_name) > 80 then
1506 --
1507 fnd_message.set_name('PAY','PAY_JP_SPR_INV_FILE_NAME');
1508 fnd_message.raise_error;
1509 --
1510 end if;
1511 --
1512 return l_file_name;
1513 end default_file_name;
1514 --
1515 -- -------------------------------------------------------------------------
1516 -- file_era_code
1517 -- -------------------------------------------------------------------------
1518 function file_era_code(
1519 p_era_code in varchar2)
1520 return varchar2
1521 is
1522 --
1523 l_file_era_code varchar2(1);
1524 --
1525 begin
1526 --
1527 if p_era_code = 'M' then
1528 l_file_era_code := '3';
1529 elsif p_era_code = 'T' then
1530 l_file_era_code := '2';
1531 elsif p_era_code = 'S' then
1532 l_file_era_code := '1';
1533 elsif p_era_code = 'H' then
1534 l_file_era_code := '4';
1535 end if;
1536 --
1537 return l_file_era_code;
1538 end file_era_code;
1539 --
1540 -- -------------------------------------------------------------------------
1541 -- set_detail_debug
1542 -- -------------------------------------------------------------------------
1543 procedure set_detail_debug(
1544 p_yn in varchar2)
1545 is
1546 --
1547 -- hidden option for tracking
1548 cursor csr_hidden_debug
1549 is
1550 select parameter_value
1551 from pay_action_parameters
1552 where parameter_name = 'JP_DEBUG_PAYJPSPE';
1553 --
1554 l_hidden_debug pay_action_parameters.parameter_value%type;
1555 --
1556 begin
1557 --
1558 if p_yn is not null then
1559 --
1560 pay_jp_spr_efile_pkg.g_detail_debug := p_yn;
1561 --
1562 else
1563 --
1564 open csr_hidden_debug;
1565 fetch csr_hidden_debug into l_hidden_debug;
1566 close csr_hidden_debug;
1567 --
1568 if l_hidden_debug = 'Y' then
1569 --
1570 pay_jp_spr_efile_pkg.g_detail_debug := l_hidden_debug;
1571 --
1572 end if;
1573 --
1574 end if;
1575 --
1576 if g_debug then
1577 --
1578 hr_utility.trace('l_hidden_debug : '||l_hidden_debug);
1579 hr_utility.trace('g_detail_debug : '||g_detail_debug);
1580 --
1581 end if;
1582 --
1583 end set_detail_debug;
1584 --
1585 -- -------------------------------------------------------------------------
1586 -- sequence of process.
1587 -- 1. range_cursor/initialization_code (inc. init_pact, archive_pact)
1588 -- 2. assignment_action_creation <= invoked by each ranges
1589 -- 3. archinit (inc. init_pact) <= invoked by each threads, start from here in mark-for-retry)
1590 -- 4. archive_data (inc. init_assact, archive_assact)
1591 -- 5. deinitialization_code
1592 -- -------------------------------------------------------------------------
1593 -- init_pact
1594 -- -------------------------------------------------------------------------
1595 procedure init_pact(
1596 p_payroll_action_id in number)
1597 is
1598 --
1599 l_proc varchar2(80) := c_package||'init_pact';
1600 --
1601 l_detail_debug varchar2(1) := pay_jp_spr_efile_pkg.g_detail_debug;
1602 --
1603 cursor csr_action
1604 is
1605 select ppa.business_group_id,
1606 ppa.effective_date,
1607 ppa.legislative_parameters,
1608 pbg.legislation_code,
1609 ppa.request_id
1610 from pay_payroll_actions ppa,
1611 per_business_groups_perf pbg
1612 where ppa.payroll_action_id = p_payroll_action_id
1613 and pbg.business_group_id = ppa.business_group_id;
1614 --
1615 cursor csr_arch_pact_exist
1616 is
1617 select 'Y'
1618 from dual
1619 where not exists(
1620 select null
1621 from hr_organization_information hoi,
1622 hr_all_organization_units hou
1623 where hoi.org_information_context = 'CLASS'
1624 and hoi.org_information1 = 'JP_TAX_SWOT'
1625 and hoi.organization_id = nvl(g_organization_id,hoi.organization_id)
1626 and hou.organization_id = hoi.organization_id
1627 and hou.business_group_id + 0 = g_business_group_id
1628 and hou.date_from <= g_effective_eoy
1629 and nvl(hou.date_to,hr_api.g_eot) >= g_effective_soy
1630 and not exists(
1631 select null
1632 from pay_payroll_actions ppa,
1633 pay_jp_itax_pact_v2 pjip
1634 where ppa.business_group_id + 0 = g_business_group_id
1635 and ppa.effective_date
1636 between g_effective_soy and g_effective_eoy
1637 and ppa.action_type = 'X'
1638 and ppa.report_type = 'JPTW'
1639 and ppa.report_qualifier = 'JP'
1640 and ppa.report_category = 'ARCHIVE'
1641 and pjip.action_context_id = ppa.payroll_action_id
1642 and nvl(pjip.itax_organization_id,hou.organization_id) = hou.organization_id
1643 and pjip.effective_date
1644 between g_effective_soy and g_effective_eoy
1645 and exists(
1646 select null
1647 from pay_assignment_actions paa,
1648 pay_jp_itax_person_v2 pjips
1649 where paa.payroll_action_id = ppa.payroll_action_id
1650 and pjips.action_context_id = paa.assignment_action_id
1651 and pjips.itax_organization_id = hoi.organization_id
1652 and (to_number(to_char(pjip.effective_date,'YYYY')) < 2009
1653 or (to_number(to_char(pjip.effective_date,'YYYY')) >= 2009
1654 and to_number(to_char(pjip.effective_date,'YYYY')) < 2011
1655 and exists(
1656 select null
1657 from pay_jp_itax_housing_v pjih
1658 where pjih.action_context_id = pjips.action_context_id
1659 and pjih.effective_date = pjips.effective_date))
1660 or (to_number(to_char(pjip.effective_date,'YYYY')) >= 2011 and to_number(to_char(pjip.effective_date,'YYYY')) < 2012
1661 and exists(
1662 select null
1663 from pay_jp_itax_housing_v pjih
1664 where pjih.action_context_id = pjips.action_context_id
1665 and pjih.effective_date = pjips.effective_date)
1666 and exists(
1667 select null
1668 from pay_jp_itax_dep_v pjid
1669 where pjid.action_context_id = pjips.action_context_id
1670 and pjid.effective_date = pjips.effective_date))
1671 or (to_number(to_char(pjip.effective_date,'YYYY')) >= 2012
1672 and exists(
1673 select null
1674 from pay_jp_itax_housing_v pjih
1675 where pjih.action_context_id = pjips.action_context_id
1676 and pjih.effective_date = pjips.effective_date)
1677 and exists(
1678 select null
1679 from pay_jp_itax_dep_v pjid
1680 where pjid.action_context_id = pjips.action_context_id
1681 and pjid.effective_date = pjips.effective_date))
1682 ))));
1683 --
1684 cursor csr_bg_itax_dpnt_ref_type
1685 is
1686 select nvl(hoi.org_information2,'CTR_EE')
1687 from /* Business Group details */
1688 hr_organization_information hoi
1689 where hoi.organization_id = g_business_group_id
1690 and hoi.org_information_context = 'JP_BUSINESS_GROUP_INFO';
1691 --
1692 cursor csr_file_dir
1693 is
1694 select fcp.plsql_dir
1695 from fnd_concurrent_requests fcr,
1696 fnd_concurrent_processes fcp
1697 where fcr.request_id = g_request_id
1698 and fcp.concurrent_process_id = fcr.controlling_manager;
1699 --
1700 l_csr_action csr_action%rowtype;
1701 --
1702 begin
1703 --
1704 set_detail_debug(l_detail_debug);
1705 --
1706 if g_debug
1707 and g_detail_debug = 'Y' then
1708 hr_utility.set_location(l_proc,0);
1709 end if;
1710 --
1711 if g_payroll_action_id is null
1712 or g_payroll_action_id <> p_payroll_action_id then
1713 --
1714 if g_debug
1715 and g_detail_debug = 'Y' then
1716 hr_utility.set_location(l_proc,10);
1717 hr_utility.trace('no cache : g_pact_id('||g_payroll_action_id||'),p_pact_id('||p_payroll_action_id||')');
1718 end if;
1719 --
1720 open csr_action;
1721 fetch csr_action into l_csr_action;
1722 if csr_action%notfound then
1723 close csr_action;
1724 fnd_message.set_name('PAY','PAY_34985_INVALID_PAY_ACTION');
1725 fnd_message.raise_error;
1726 end if;
1727 close csr_action;
1728 --
1729 g_payroll_action_id := p_payroll_action_id;
1730 g_session_date := l_csr_action.effective_date;
1731 g_effective_soy := to_date(pay_core_utils.get_parameter('SUBJECT_YEAR',l_csr_action.legislative_parameters)||'/01/01','YYYY/MM/DD');
1732 g_effective_eoy := add_months(g_effective_soy,12) - 1;
1733 g_effective_yyyy := to_number(to_char(g_effective_soy,'YYYY'));
1734 g_business_group_id := l_csr_action.business_group_id;
1735 g_legislation_code := l_csr_action.legislation_code;
1736 g_district_code := pay_core_utils.get_parameter('DISTRICT_CODE',l_csr_action.legislative_parameters);
1737 g_organization_id := fnd_number.canonical_to_number(pay_core_utils.get_parameter('ORGANIZATION_ID',l_csr_action.legislative_parameters));
1738 g_assignment_set_id := fnd_number.canonical_to_number(pay_core_utils.get_parameter('ASSIGNMENT_SET_ID',l_csr_action.legislative_parameters));
1739 --g_request_id := fnd_global.conc_request_id;
1740 g_request_id := l_csr_action.request_id;
1741 g_file_split := pay_core_utils.get_parameter('FILE_SPLIT',l_csr_action.legislative_parameters);
1742 g_use_arch := pay_core_utils.get_parameter('USE_ARCH',l_csr_action.legislative_parameters);
1743 --g_kana_flag := pay_core_utils.get_parameter('KANA_FLAG',l_csr_action.legislative_parameters);
1744 --no support non-assignment creation to exclude assignment by assignment set (assignment_action_creation chache cannot be transfered to archinit)
1745 --g_process_assignments_flag := pay_core_utils.get_parameter('PROCESS_ASSIGNMENTS_FLAG',l_csr_action.legislative_parameters);
1746 g_remove_act := pay_core_utils.get_parameter('REMOVE_ACT',l_csr_action.legislative_parameters);
1747 --
1748 -- not support partial archive unit (part of payroll)
1749 -- use archive when archive exist for itax_organization
1750 -- limitation is that excluding partial employee for whom archive has not been processed.
1751 --
1752 -- set null for g_use_arch = N and no csr_arch_pact_exist row
1753 g_arch_pact_exist := null;
1754 --
1755 if g_use_arch is null then
1756 --
1757 open csr_arch_pact_exist;
1758 fetch csr_arch_pact_exist into g_arch_pact_exist;
1759 close csr_arch_pact_exist;
1760 --
1761 elsif g_use_arch = 'Y' then
1762 --
1763 g_arch_pact_exist := 'Y';
1764 --
1765 end if;
1766 --
1767 g_bg_itax_dpnt_ref_type := null;
1768 open csr_bg_itax_dpnt_ref_type;
1769 fetch csr_bg_itax_dpnt_ref_type into g_bg_itax_dpnt_ref_type;
1770 close csr_bg_itax_dpnt_ref_type;
1771 --
1772 g_file_dir := null;
1773 open csr_file_dir;
1774 fetch csr_file_dir into g_file_dir;
1775 close csr_file_dir;
1776 --
1777 if g_file_dir is null then
1778 --
1779 fnd_message.set_name('FND','CONC-GET PLSQL FILE NAMES');
1780 fnd_message.raise_error;
1781 --
1782 end if;
1783 --
1784 g_ass_set_formula_id := null;
1785 g_ass_set_amendment_type := null;
1786 if g_assignment_set_id is not null then
1787 --
1788 hr_jp_ast_utility_pkg.get_assignment_set_info(g_assignment_set_id,g_ass_set_formula_id,g_ass_set_amendment_type);
1789 --
1790 end if;
1791 --
1792 if pay_jp_wic_pkg.g_valid_term_taxable_amt is null then
1793 --
1794 pay_jp_wic_pkg.set_valid_term_taxable_amt(c_valid_term_taxable_amt);
1795 --
1796 end if;
1797 --
1798 if pay_jp_report_pkg.g_char_set is null then
1799 --
1800 pay_jp_report_pkg.set_char_set(c_char_set);
1801 --
1802 end if;
1803 --
1804 if pay_jp_spr_efile_pkg.g_file_prefix is null then
1805 --
1806 set_file_prefix(c_file_prefix);
1807 --
1808 end if;
1809 --
1810 if pay_jp_spr_efile_pkg.g_file_extension is null then
1811 --
1812 set_file_extension(c_file_extension);
1813 --
1814 end if;
1815 --
1816 end if;
1817 --
1818 if g_debug then
1819 hr_utility.trace('g_payroll_action_id : '||to_char(g_payroll_action_id));
1820 hr_utility.trace('g_session_date : '||to_char(g_session_date,'YYYY/MM/DD'));
1821 hr_utility.trace('g_effective_soy : '||to_char(g_effective_soy,'YYYY/MM/DD'));
1822 hr_utility.trace('g_effective_eoy : '||to_char(g_effective_eoy,'YYYY/MM/DD'));
1823 hr_utility.trace('g_effective_yyyy : '||to_char(g_effective_yyyy));
1824 hr_utility.trace('g_business_group_id : '||to_char(g_business_group_id));
1825 hr_utility.trace('g_legislation_code : '||g_legislation_code);
1826 hr_utility.trace('g_district_code : '||g_district_code);
1827 hr_utility.trace('g_organization_id : '||to_char(g_organization_id));
1828 hr_utility.trace('g_assignment_set_id : '||to_char(g_assignment_set_id));
1829 hr_utility.trace('g_request_id : '||to_char(g_request_id));
1830 hr_utility.trace('g_file_split : '||g_file_split);
1831 hr_utility.trace('g_arch_pact_exist : '||g_arch_pact_exist);
1832 hr_utility.trace('g_bg_itax_dpnt_ref_type : '||g_bg_itax_dpnt_ref_type);
1833 hr_utility.trace('g_file_dir : '||g_file_dir);
1834 hr_utility.trace('g_use_arch : '||g_use_arch);
1835 --hr_utility.trace('kana_flag : '||g_kana_flag);
1836 --hr_utility.trace('process_assignments_flag : '||g_process_assignments_flag);
1837 hr_utility.trace('g_remove_act : '||g_remove_act);
1838 hr_utility.trace('g_ass_set_formula_id : '||to_char(g_ass_set_formula_id));
1839 hr_utility.trace('g_ass_set_amendment_type : '||g_ass_set_amendment_type);
1840 hr_utility.trace('pay_jp_wic_pkg.g_valid_term_taxable_amt : '||to_char(pay_jp_wic_pkg.g_valid_term_taxable_amt));
1841 hr_utility.trace('pay_jp_report_pkg.g_char_set : '||pay_jp_report_pkg.g_char_set);
1842 hr_utility.trace('pay_jp_spr_efile_pkg.g_file_prefix : '||pay_jp_spr_efile_pkg.g_file_prefix);
1843 hr_utility.trace('pay_jp_spr_efile_pkg.g_file_extension : '||pay_jp_spr_efile_pkg.g_file_extension);
1844 end if;
1845 --
1846 if g_debug
1847 and g_detail_debug = 'Y' then
1848 hr_utility.set_location(l_proc,1000);
1849 end if;
1850 --
1851 end init_pact;
1852 --
1853 -- -------------------------------------------------------------------------
1854 -- archive_pact
1855 -- -------------------------------------------------------------------------
1856 --procedure archive_pact(
1857 -- p_payroll_action_id in number)
1858 --is
1859 ----
1860 -- l_proc varchar2(80) := c_package||'archive_pact';
1861 ----
1862 --begin
1863 ----
1864 -- if g_debug then
1865 -- hr_utility.set_location(l_proc,0);
1866 -- end if;
1867 ----
1868 -- if g_debug then
1869 -- hr_utility.set_location(l_proc,1000);
1870 -- end if;
1871 ----
1872 --end archive_pact;
1873 --
1874 -- -------------------------------------------------------------------------
1875 -- range_cursor
1876 -- -------------------------------------------------------------------------
1877 procedure range_cursor(
1878 p_payroll_action_id in number,
1879 p_sqlstr out nocopy varchar2)
1880 is
1881 --
1882 l_proc varchar2(80) := c_package||'range_cursor';
1883 --
1884 begin
1885 --
1886 if g_debug then
1887 hr_utility.set_location(l_proc,0);
1888 end if;
1889 --
1890 init_pact(p_payroll_action_id);
1891 --
1892 if g_debug
1893 and g_detail_debug = 'Y' then
1894 hr_utility.set_location(l_proc,10);
1895 end if;
1896 --
1897 -- archive_pact(p_payroll_action_id);
1898 ----
1899 -- if g_debug then
1900 -- hr_utility.set_location(l_proc,20);
1901 -- end if;
1902 --
1903 ---- no create assact when process assignments flag is set.
1904 ----
1905 --if g_process_assignments_flag = 'N' then
1906 ----
1907 -- if g_debug then
1908 -- hr_utility.set_location(l_proc,25);
1909 -- end if;
1910 ----
1911 -- p_sqlstr :=
1912 -- 'select 1
1913 -- from dual
1914 -- where :payroll_action_id < 0';
1915 ----
1916 --else
1917 --
1918 if g_debug
1919 and g_detail_debug = 'Y' then
1920 hr_utility.set_location(l_proc,30);
1921 end if;
1922 --
1923 p_sqlstr :=
1924 'select /*+ ORDERED
1925 INDEX(PPOS PER_PERIODS_OF_SERVICE_N3) */
1926 distinct ppos.person_id
1927 from pay_payroll_actions ppa,
1928 per_all_people_f pp,
1929 per_periods_of_service ppos
1930 where ppa.payroll_action_id = :payroll_action_id
1931 and pp.business_group_id = ppa.business_group_id + 0
1932 and ppos.person_id = pp.person_id
1933 and ppos.business_group_id + 0 = pp.business_group_id
1934 and ppos.date_start <= fnd_date.canonical_to_date(''i_effective_eoy'')
1935 and nvl(ppos.final_process_date,fnd_date.canonical_to_date(''i_effective_soy'')) >= fnd_date.canonical_to_date(''i_effective_soy'')
1936 order by
1937 ppos.person_id';
1938 --
1939 p_sqlstr := replace(p_sqlstr,'i_effective_soy',fnd_date.date_to_canonical(g_effective_soy));
1940 p_sqlstr := replace(p_sqlstr,'i_effective_eoy',fnd_date.date_to_canonical(g_effective_eoy));
1941 --
1942 --end if;
1943 --
1944 if g_debug then
1945 hr_utility.set_location(l_proc,1000);
1946 end if;
1947 --
1948 end range_cursor;
1949 --
1950 -- -------------------------------------------------------------------------
1951 -- assignment_action_creation
1952 -- -------------------------------------------------------------------------
1953 procedure assignment_action_creation(
1954 p_payroll_action_id in number,
1955 p_start_person_id in number,
1956 p_end_person_id in number,
1957 p_chunk_number in number)
1958 is
1959 --
1960 l_proc varchar2(80) := c_package||'assignment_action_creation';
1961 --
1962 l_select_clause varchar2(32767);
1963 l_from_clause varchar2(32767);
1964 l_where_clause varchar2(32767);
1965 l_order_by_clause varchar2(255);
1966 --
1967 l_hasa_select_clause varchar2(32767);
1968 l_hasa_from_clause varchar2(32767);
1969 l_hasa_where_clause varchar2(32767);
1970 --
1971 l_spr_assignment_action_id number;
1972 l_ass_valid boolean;
1973 --
1974 l_person_id number;
1975 l_assignment_id number;
1976 l_assignment_action_id number;
1977 l_ass_cnt number;
1978 --
1979 l_ass_id_tbl t_number_tbl;
1980 l_ass_id_tbl_cnt number;
1981 --
1982 begin
1983 --
1984 if g_debug
1985 and g_detail_debug = 'Y' then
1986 hr_utility.set_location(l_proc,0);
1987 end if;
1988 --
1989 -- need set for multiple ranges.
1990 init_pact(p_payroll_action_id);
1991 --
1992 if g_debug
1993 and g_detail_debug = 'Y' then
1994 hr_utility.set_location(l_proc,10);
1995 end if;
1996 --
1997 if g_per_ind_tbl.count = 0
1998 or g_ass_ind_tbl.count = 0
1999 or g_ass_tbl.count = 0 then
2000 --
2001 if g_debug
2002 and g_detail_debug = 'Y' then
2003 hr_utility.set_location(l_proc,20);
2004 end if;
2005 --
2006 g_per_ind_tbl.delete;
2007 g_ass_ind_tbl.delete;
2008 g_ass_tbl.delete;
2009 --
2010 if g_arch_pact_exist is not null
2011 and g_arch_pact_exist = 'Y' then
2012 --
2013 if g_debug
2014 and g_detail_debug = 'Y' then
2015 hr_utility.set_location(l_proc,30);
2016 end if;
2017 --
2018 pay_jp_report_pkg.append_select_clause(c_proc_arch_select_clause,l_select_clause);
2019 pay_jp_report_pkg.append_from_clause(c_proc_arch_from_clause,l_from_clause);
2020 pay_jp_report_pkg.append_where_clause(c_proc_arch_where_clause,l_where_clause);
2021 pay_jp_report_pkg.append_order_clause(c_proc_arch_order_clause,l_order_by_clause);
2022 --
2023 l_hasa_select_clause := c_proc_arch_hasa_select_clause;
2024 l_hasa_from_clause := c_proc_arch_hasa_from_clause;
2025 l_hasa_where_clause := c_proc_arch_hasa_where_clause;
2026 --
2027 else
2028 --
2029 if g_debug
2030 and g_detail_debug = 'Y' then
2031 hr_utility.set_location(l_proc,40);
2032 end if;
2033 --
2034 pay_jp_report_pkg.append_select_clause(c_proc_ass_select_clause,l_select_clause);
2035 pay_jp_report_pkg.append_from_clause(c_proc_ass_from_clause,l_from_clause);
2036 pay_jp_report_pkg.append_where_clause(c_proc_ass_where_clause,l_where_clause);
2037 pay_jp_report_pkg.append_order_clause(c_proc_ass_order_clause,l_order_by_clause);
2038 --
2039 l_hasa_select_clause := c_proc_ass_hasa_select_clause;
2040 l_hasa_from_clause := c_proc_ass_hasa_from_clause;
2041 l_hasa_where_clause := c_proc_ass_hasa_where_clause;
2042 --
2043 end if;
2044 --
2045 if g_debug
2046 and g_detail_debug = 'Y' then
2047 hr_utility.set_location(l_proc,50);
2048 end if;
2049 --
2050 if g_assignment_set_id is not null
2051 and g_ass_set_amendment_type is not null
2052 and g_ass_set_amendment_type <> 'N' then
2053 --
2054 if g_debug
2055 and g_detail_debug = 'Y' then
2056 hr_utility.set_location(l_proc,60);
2057 end if;
2058 --
2059 pay_jp_report_pkg.append_select_clause(l_hasa_select_clause,l_select_clause);
2060 pay_jp_report_pkg.append_from_clause(l_hasa_from_clause,l_from_clause,'Y');
2061 pay_jp_report_pkg.append_where_clause(l_hasa_where_clause,l_where_clause);
2062 --
2063 --
2064 -- set variable parameter
2065 --
2066 l_where_clause := replace(l_where_clause,'i_ass_set_formula_id',to_char(g_ass_set_formula_id));
2067 l_where_clause := replace(l_where_clause,'i_ass_set_amendment_type',g_ass_set_amendment_type);
2068 l_where_clause := replace(l_where_clause,'i_assignment_set_id',to_char(g_assignment_set_id));
2069 --
2070 else
2071 --
2072 if g_debug
2073 and g_detail_debug = 'Y' then
2074 hr_utility.set_location(l_proc,70);
2075 end if;
2076 --
2077 pay_jp_report_pkg.append_select_clause(', null include_or_exclude',l_select_clause);
2078 --
2079 end if;
2080 --
2081 --
2082 -- set variable parameter
2083 --
2084 l_select_clause := replace(l_select_clause,'i_valid_term_taxable_amt',to_char(pay_jp_wic_pkg.g_valid_term_taxable_amt));
2085 --
2086 l_from_clause := replace(l_from_clause,'i_business_group_id',to_char(g_business_group_id));
2087 l_from_clause := replace(l_from_clause,'i_effective_soy',fnd_date.date_to_canonical(g_effective_soy));
2088 l_from_clause := replace(l_from_clause,'i_effective_eoy',fnd_date.date_to_canonical(g_effective_eoy));
2089 l_from_clause := replace(l_from_clause,'i_organization_id',to_char(g_organization_id));
2090 l_from_clause := replace(l_from_clause,'i_eot',fnd_date.date_to_canonical(hr_api.g_eot));
2091 --
2092 l_where_clause := replace(l_where_clause,'i_business_group_id',to_char(g_business_group_id));
2093 l_where_clause := replace(l_where_clause,'i_effective_soy',fnd_date.date_to_canonical(g_effective_soy));
2094 l_where_clause := replace(l_where_clause,'i_effective_eoy',fnd_date.date_to_canonical(g_effective_eoy));
2095 l_where_clause := replace(l_where_clause,'i_organization_id',to_char(g_organization_id));
2096 l_where_clause := replace(l_where_clause,'i_district_code',g_district_code);
2097 --
2098 if g_debug
2099 and g_detail_debug = 'Y' then
2100 hr_utility.set_location(l_proc,80);
2101 --
2102 if g_show_act_debug is null
2103 or g_show_act_debug <> 'Y' then
2104 --
2105 g_show_act_debug := 'Y';
2106 --
2107 pay_jp_report_pkg.show_debug(l_select_clause);
2108 pay_jp_report_pkg.show_debug(l_from_clause);
2109 pay_jp_report_pkg.show_debug(l_where_clause);
2110 pay_jp_report_pkg.show_debug(l_order_by_clause);
2111 --
2112 end if;
2113 end if;
2114 --
2115 execute immediate
2116 l_select_clause||
2117 l_from_clause||
2118 l_where_clause||
2119 l_order_by_clause
2120 bulk collect into g_ass_tbl;
2121 --using
2122 -- p_start_person_id,
2123 -- p_end_person_id;
2124 --
2125 if g_debug
2126 and g_detail_debug = 'Y' then
2127 hr_utility.set_location(l_proc,90);
2128 hr_utility.trace('g_ass_tbl.count : '||to_char(g_ass_tbl.count));
2129 end if;
2130 --
2131 if g_ass_tbl.count > 0 then
2132 --
2133 <<loop_ass_tbl>>
2134 for i in 1..g_ass_tbl.count loop
2135 --
2136 if ((l_person_id is not null
2137 and l_person_id = g_ass_tbl(i).person_id)
2138 or (l_assignment_id is not null
2139 and l_assignment_id = g_ass_tbl(i).assignment_id)) then
2140 --
2141 l_person_id := g_ass_tbl(i).person_id;
2142 l_assignment_id := g_ass_tbl(i).assignment_id;
2143 l_assignment_action_id := null;
2144 l_ass_cnt := l_ass_cnt + 1;
2145 --
2146 else
2147 --
2148 l_person_id := g_ass_tbl(i).person_id;
2149 l_assignment_id := g_ass_tbl(i).assignment_id;
2150 l_assignment_action_id := g_ass_tbl(i).assignment_action_id;
2151 l_ass_cnt := 1;
2152 --
2153 end if;
2154 --
2155 -- override if person_id or assignment_id is same
2156 g_per_ind_tbl(l_person_id).person_id := l_person_id;
2157 g_per_ind_tbl(l_person_id).assignment_id := l_assignment_id;
2158 g_per_ind_tbl(l_person_id).assignment_action_id := l_assignment_action_id;
2159 g_per_ind_tbl(l_person_id).ass_cnt := l_ass_cnt;
2160 --
2161 g_ass_ind_tbl(g_ass_tbl(i).assignment_action_id).person_id := g_ass_tbl(i).person_id;
2162 g_ass_ind_tbl(g_ass_tbl(i).assignment_action_id).assignment_id := g_ass_tbl(i).assignment_id;
2163 g_ass_ind_tbl(g_ass_tbl(i).assignment_action_id).assignment_action_id := g_ass_tbl(i).assignment_action_id;
2164 g_ass_ind_tbl(g_ass_tbl(i).assignment_action_id).effective_date := g_ass_tbl(i).effective_date;
2165 g_ass_ind_tbl(g_ass_tbl(i).assignment_action_id).spr_term_valid := g_ass_tbl(i).spr_term_valid;
2166 g_ass_ind_tbl(g_ass_tbl(i).assignment_action_id).include_or_exclude := g_ass_tbl(i).include_or_exclude;
2167 --
2168 end loop loop_ass_tbl;
2169 --
2170 else
2171 --
2172 hr_utility.trace('g_ass_tbl.count is 0 : '||to_char(g_ass_tbl.count));
2173 --
2174 end if;
2175 --
2176 end if;
2177 --
2178 if g_debug
2179 and g_detail_debug = 'Y' then
2180 --
2181 hr_utility.set_location(l_proc,100);
2182 hr_utility.trace('p_start_person_id : '||to_char(p_start_person_id));
2183 hr_utility.trace('p_end_person_id : '||to_char(p_end_person_id));
2184 --
2185 hr_utility.trace('g_per_ind_tbl.count : '||to_char(g_per_ind_tbl.count));
2186 hr_utility.trace('g_ass_ind_tbl.count : '||to_char(g_ass_ind_tbl.count));
2187 hr_utility.trace('g_ass_tbl.count : '||to_char(g_ass_tbl.count));
2188 --
2189 if g_per_ind_tbl.count > 0 then
2190 hr_utility.trace('g_per_ind_tbl.first : '||to_char(g_per_ind_tbl.first));
2191 hr_utility.trace('g_per_ind_tbl.last : '||to_char(g_per_ind_tbl.last));
2192 hr_utility.trace('g_per_ind_tbl(g_per_ind_tbl.first).person_id : '||to_char(g_per_ind_tbl(g_per_ind_tbl.first).person_id));
2193 hr_utility.trace('g_per_ind_tbl(g_per_ind_tbl.last).person_id : '||to_char(g_per_ind_tbl(g_per_ind_tbl.last).person_id));
2194 end if;
2195 --
2196 if g_ass_ind_tbl.count > 0 then
2197 hr_utility.trace('g_ass_ind_tbl.first : '||to_char(g_ass_ind_tbl.first));
2198 hr_utility.trace('g_ass_ind_tbl.last : '||to_char(g_ass_ind_tbl.last));
2199 hr_utility.trace('g_ass_ind_tbl(g_ass_ind_tbl.first).person_id : '||to_char(g_ass_ind_tbl(g_ass_ind_tbl.first).person_id));
2200 hr_utility.trace('g_ass_ind_tbl(g_ass_ind_tbl.last).person_id : '||to_char(g_ass_ind_tbl(g_ass_ind_tbl.last).person_id));
2201 end if;
2202 --
2203 if g_ass_tbl.count > 0 then
2204 hr_utility.trace('g_ass_tbl.first : '||to_char(g_ass_tbl.first));
2205 hr_utility.trace('g_ass_tbl.last : '||to_char(g_ass_tbl.last));
2206 hr_utility.trace('g_ass_tbl(g_ass_tbl.first).person_id : '||to_char(g_ass_tbl(g_ass_tbl.first).person_id));
2207 hr_utility.trace('g_ass_tbl(g_ass_tbl.last).person_id : '||to_char(g_ass_tbl(g_ass_tbl.last).person_id));
2208 end if;
2209 end if;
2210 --
2211 if (g_per_ind_tbl.count > 0
2212 and g_ass_ind_tbl.count > 0
2213 and g_ass_tbl.count > 0) then
2214 --
2215 <<loop_per_tbl>>
2216 for j in p_start_person_id..p_end_person_id loop
2217 --
2218 l_person_id := null;
2219 l_ass_id_tbl_cnt := 0;
2220 l_ass_id_tbl.delete;
2221 --
2222 -- check if g_per_ind_tbl exist
2223 begin
2224 --
2225 l_person_id := g_per_ind_tbl(j).person_id;
2226 --
2227 exception
2228 when no_data_found then
2229 --
2230 null;
2231 --
2232 end;
2233 --
2234 -- skip out of range
2235 if l_person_id is not null then
2236 --
2237 -- case same person_id or assignment_id
2238 if g_per_ind_tbl(j).ass_cnt > 1 then
2239 --
2240 <<loop_imp_ass_tbl>>
2241 for s in 1..g_ass_tbl.count loop
2242 --
2243 if g_ass_tbl(s).person_id = g_per_ind_tbl(j).person_id then
2244 --
2245 l_ass_id_tbl_cnt := l_ass_id_tbl_cnt + 1;
2246 l_ass_id_tbl(l_ass_id_tbl_cnt) := g_ass_tbl(s).assignment_action_id;
2247 --
2248 if l_ass_id_tbl_cnt = g_per_ind_tbl(j).ass_cnt then
2249 exit loop_imp_ass_tbl;
2250 end if;
2251 --
2252 end if;
2253 --
2254 end loop loop_imp_ass_tbl;
2255 --
2256 else
2257 --
2258 l_ass_id_tbl_cnt := l_ass_id_tbl_cnt + 1;
2259 l_ass_id_tbl(l_ass_id_tbl_cnt) := g_per_ind_tbl(j).assignment_action_id;
2260 --
2261 end if;
2262 --
2263 if g_debug
2264 and g_detail_debug = 'Y' then
2265 hr_utility.trace('j person_id : '||to_char(j));
2266 hr_utility.trace('l_ass_id_tbl_cnt : '||to_char(l_ass_id_tbl_cnt));
2267 hr_utility.trace('l_ass_id_tbl.count : '||to_char(l_ass_id_tbl.count));
2268 end if;
2269 --
2270 if l_ass_id_tbl.count > 0 then
2271 --
2272 <<loop_exp_ass_tbl>>
2273 for t in 1..l_ass_id_tbl.count loop
2274 --
2275 l_ass_valid := true;
2276 --
2277 if g_ass_set_formula_id is not null
2278 and g_ass_ind_tbl(l_ass_id_tbl(t)).include_or_exclude is null then
2279 --
2280 l_ass_valid := hr_jp_ast_utility_pkg.formula_validate(
2281 p_formula_id => g_ass_set_formula_id,
2282 p_assignment_id => g_ass_ind_tbl(l_ass_id_tbl(t)).assignment_id,
2283 p_effective_date => g_ass_ind_tbl(l_ass_id_tbl(t)).effective_date,
2284 p_populate_fs => true);
2285 --
2286 end if;
2287 --
2288 if l_ass_valid
2289 and g_valid_term_flag = 'Y'
2290 and g_ass_ind_tbl(l_ass_id_tbl(t)).spr_term_valid = 1 then
2291 --
2292 l_ass_valid := false;
2293 --
2294 end if;
2295 --
2296 if l_ass_valid then
2297 --
2298 select pay_assignment_actions_s.nextval
2299 into l_spr_assignment_action_id
2300 from dual;
2301 --
2302 hr_nonrun_asact.insact(
2303 lockingactid => l_spr_assignment_action_id,
2304 assignid => g_ass_ind_tbl(l_ass_id_tbl(t)).assignment_id,
2305 pactid => p_payroll_action_id,
2306 chunk => p_chunk_number,
2307 greid => null,
2308 source_act => g_ass_ind_tbl(l_ass_id_tbl(t)).assignment_action_id);
2309 --
2310 if g_debug
2311 and g_detail_debug = 'Y' then
2312 hr_utility.trace('assignment_action_id : '||to_char(l_ass_id_tbl(t))||','||to_char(l_ass_id_tbl(t))||','||to_char(g_ass_ind_tbl(l_ass_id_tbl(t)).assignment_action_id));
2313 hr_utility.trace('person_id : '||to_char(g_ass_ind_tbl(l_ass_id_tbl(t)).person_id));
2314 hr_utility.trace('assignment_id : '||to_char(g_ass_ind_tbl(l_ass_id_tbl(t)).assignment_id));
2315 hr_utility.trace('effective_date : '||to_char(g_ass_ind_tbl(l_ass_id_tbl(t)).effective_date,'YYYY/MM/DD'));
2316 hr_utility.trace('spr_assignment_action_id : '||to_char(l_spr_assignment_action_id));
2317 end if;
2318 --
2319 end if;
2320 --
2321 end loop loop_exp_ass_tbl;
2322 --
2323 else
2324 --
2325 hr_utility.trace('l_ass_id_tbl.count is 0 : '||to_char(l_ass_id_tbl.count));
2326 --
2327 end if;
2328 --
2329 end if;
2330 --
2331 end loop loop_per_tbl;
2332 --
2333 else
2334 --
2335 hr_utility.trace('g_per_ind_tbl.count is 0 : '||to_char(g_per_ind_tbl.count));
2336 hr_utility.trace('g_ass_ind_tbl.count is 0 : '||to_char(g_ass_ind_tbl.count));
2337 hr_utility.trace('g_ass_tbl.count is 0 : '||to_char(g_ass_tbl.count));
2338 --
2339 end if;
2340 --
2341 if g_debug
2342 and g_detail_debug = 'Y' then
2343 hr_utility.set_location(l_proc,1000);
2344 end if;
2345 --
2346 end assignment_action_creation;
2347 --
2348 -- -------------------------------------------------------------------------
2349 -- archinit
2350 -- -------------------------------------------------------------------------
2351 procedure archinit(
2352 p_payroll_action_id in number)
2353 is
2354 --
2355 l_proc varchar2(80) := c_package||'archinit';
2356 --
2357 l_select_clause varchar2(32767);
2358 l_from_clause varchar2(32767);
2359 l_where_clause varchar2(32767);
2360 l_order_by_clause varchar2(255);
2361 --
2362 l_file_name varchar2(80);
2363 l_file_out utl_file.file_type;
2364 l_file_cnt number;
2365 l_file_over_start number;
2366 --
2367 l_data_tbl t_data_tbl;
2368 --
2369 l_certificate_info pay_jp_wic_pkg.t_certificate_info;
2370 l_prev_job_info pay_jp_wic_pkg.t_prev_job_info;
2371 l_housing_info pay_jp_wic_pkg.t_housing_info;
2372 l_submission_required_flag varchar2(1);
2373 --
2374 l_district_code per_addresses.town_or_city%type;
2375 l_district_code_chg boolean;
2376 l_district_code_null boolean;
2377 l_itax_organization_id number;
2378 l_itax_org_name hr_organization_information.org_information1%type;
2379 l_itax_org_address varchar2(500);
2380 l_itax_org_cnt number;
2381 l_emp_cnt number;
2382 l_term_emp_cnt number;
2383 l_summary_tbl_cnt number;
2384 --
2385 l_full_name_kana varchar2(400);
2386 l_address varchar2(500);
2387 l_assortment fnd_new_messages.message_text%type;
2388 l_yes varchar2(1);
2389 l_dep_spouse varchar2(1);
2390 l_aged_spouse varchar2(1);
2391 l_husband_exists varchar2(1);
2392 l_aged varchar2(1);
2393 l_widow varchar2(1);
2394 l_employed varchar2(1);
2395 l_employed_date date;
2396 l_pjob_itax_org_address varchar2(500);
2397 l_pjob_itax_org_address_jp varchar2(1);
2398 l_pjob_itax_org_full_name pay_action_information.action_information20%type;
2399 l_original_description varchar2(32767);
2400 l_desc_chr_len number;
2401 --
2402 l_delimiter varchar2(1);
2403 --
2404 type t_itax_org_kana_rec is record(
2405 itax_org_name hr_organization_information.org_information1%type,
2406 itax_org_address varchar2(500));
2407 type t_itax_org_kana_tbl is table of t_itax_org_kana_rec index by binary_integer;
2408 l_itax_org_kana_tbl t_itax_org_kana_tbl;
2409 --
2410 procedure get_itax_org_kana(
2411 p_itax_organization_id in number,
2412 p_itax_org_name out nocopy varchar2,
2413 p_itax_org_address out nocopy varchar2)
2414 is
2415 --
2416 l_found boolean := false;
2417 --
2418 cursor csr_itax_org_kana
2419 is
2420 select hoi.org_information2 itax_org_name_kana,
2421 hoi.org_information9||hoi.org_information10||hoi.org_information11 itax_org_address_kana
2422 from hr_organization_information hoi
2423 where hoi.organization_id = p_itax_organization_id
2424 and hoi.org_information_context = 'JP_TAX_SWOT_INFO';
2425 --
2426 begin
2427 --
2428 if l_itax_org_kana_tbl.count > 0 then
2429 --
2430 begin
2431 --
2432 p_itax_org_name := l_itax_org_kana_tbl(p_itax_organization_id).itax_org_name;
2433 p_itax_org_address := l_itax_org_kana_tbl(p_itax_organization_id).itax_org_address;
2434 l_found := true;
2435 --
2436 exception
2437 when others then
2438 null;
2439 end;
2440 --
2441 end if;
2442 --
2443 if not l_found then
2444 --
2445 open csr_itax_org_kana;
2446 fetch csr_itax_org_kana
2447 into p_itax_org_name,
2448 p_itax_org_address;
2449 close csr_itax_org_kana;
2450 --
2451 l_itax_org_kana_tbl(p_itax_organization_id).itax_org_name := p_itax_org_name;
2452 l_itax_org_kana_tbl(p_itax_organization_id).itax_org_address := p_itax_org_address;
2453 --
2454 end if;
2455 --
2456 end get_itax_org_kana;
2457 --
2458 begin
2459 --
2460 if g_debug then
2461 hr_utility.set_location(l_proc,0);
2462 end if;
2463 --
2464 g_per_ind_tbl.delete;
2465 g_ass_ind_tbl.delete;
2466 g_ass_tbl.delete;
2467 g_assact_tbl.delete;
2468 g_body_tbl.delete;
2469 l_file_cnt := 0;
2470 l_file_over_start := 0;
2471 g_file_tbl.delete;
2472 g_warning_exist := null;
2473 g_warning_header := null;
2474 l_summary_tbl_cnt := 0;
2475 g_summary_tbl.delete;
2476 l_district_code_chg := false;
2477 l_district_code_null := false;
2478 l_itax_org_cnt := 0;
2479 l_emp_cnt := 0;
2480 l_term_emp_cnt := 0;
2481 --
2482 -- need set for multiple threads.
2483 init_pact(p_payroll_action_id);
2484 --
2485 if g_debug
2486 and g_detail_debug = 'Y' then
2487 hr_utility.set_location(l_proc,10);
2488 end if;
2489 --
2490 if g_arch_pact_exist is not null
2491 and g_arch_pact_exist = 'Y' then
2492 --
2493 if g_debug
2494 and g_detail_debug = 'Y' then
2495 hr_utility.set_location(l_proc,20);
2496 hr_utility.trace('g_effective_yyyy : '||to_char(g_effective_yyyy));
2497 end if;
2498 --
2499 if g_effective_yyyy < 2009 then
2500 --
2501 pay_jp_report_pkg.append_select_clause(c_data_arch_select_clause,l_select_clause);
2502 pay_jp_report_pkg.append_from_clause(c_data_arch_from_clause,l_from_clause);
2503 pay_jp_report_pkg.append_where_clause(c_data_arch_where_clause,l_where_clause);
2504 pay_jp_report_pkg.append_order_clause(c_data_arch_order_clause,l_order_by_clause);
2505 --
2506 elsif g_effective_yyyy >= 2009 and g_effective_yyyy < 2011 then
2507 --
2508 pay_jp_report_pkg.append_select_clause(c_data_arch_select_clause_2009,l_select_clause);
2509 pay_jp_report_pkg.append_from_clause(c_data_arch_from_clause_2009,l_from_clause);
2510 pay_jp_report_pkg.append_where_clause(c_data_arch_where_clause_2009,l_where_clause);
2511 pay_jp_report_pkg.append_order_clause(c_data_arch_order_clause,l_order_by_clause);
2512 --
2513 elsif g_effective_yyyy >= 2011 and g_effective_yyyy < 2012 then
2514 --
2515 pay_jp_report_pkg.append_select_clause(c_data_arch_select_clause_2011,l_select_clause);
2516 pay_jp_report_pkg.append_from_clause(c_data_arch_from_clause_2011,l_from_clause);
2517 pay_jp_report_pkg.append_where_clause(c_data_arch_where_clause_2011,l_where_clause);
2518 pay_jp_report_pkg.append_order_clause(c_data_arch_order_clause,l_order_by_clause);
2519 --
2520 else
2521 --
2522 pay_jp_report_pkg.append_select_clause(c_data_arch_select_clause_2012,l_select_clause);
2523 pay_jp_report_pkg.append_from_clause(c_data_arch_from_clause_2012,l_from_clause);
2524 pay_jp_report_pkg.append_where_clause(c_data_arch_where_clause_2012,l_where_clause);
2525 pay_jp_report_pkg.append_order_clause(c_data_arch_order_clause,l_order_by_clause);
2526 --
2527 end if;
2528 --
2529 l_yes := c_arch_yes;
2530 --
2531 else
2532 --
2533 if g_debug
2534 and g_detail_debug = 'Y' then
2535 hr_utility.set_location(l_proc,30);
2536 end if;
2537 --
2538 pay_jp_report_pkg.append_select_clause(c_data_ass_select_clause,l_select_clause);
2539 pay_jp_report_pkg.append_from_clause(c_data_ass_from_clause,l_from_clause);
2540 pay_jp_report_pkg.append_where_clause(c_data_ass_where_clause,l_where_clause);
2541 pay_jp_report_pkg.append_order_clause(c_data_ass_order_clause,l_order_by_clause);
2542 --
2543 l_yes := c_ass_yes;
2544 --
2545 end if;
2546 --
2547 --
2548 -- set variable parameter
2549 --
2550 l_from_clause := replace(l_from_clause,'i_bg_itax_dpnt_ref_type',g_bg_itax_dpnt_ref_type);
2551 l_from_clause := replace(l_from_clause,'i_business_group_id',to_char(g_business_group_id));
2552 l_from_clause := replace(l_from_clause,'i_effective_soy',fnd_date.date_to_canonical(g_effective_soy));
2553 l_from_clause := replace(l_from_clause,'i_effective_eoy',fnd_date.date_to_canonical(g_effective_eoy));
2554 l_from_clause := replace(l_from_clause,'i_organization_id',to_char(g_organization_id));
2555 l_from_clause := replace(l_from_clause,'i_district_code',g_district_code);
2556 l_from_clause := replace(l_from_clause,'i_eot',fnd_date.date_to_canonical(hr_api.g_eot));
2557 --
2558 l_where_clause := replace(l_where_clause,'i_business_group_id',to_char(g_business_group_id));
2559 l_where_clause := replace(l_where_clause,'i_effective_soy',fnd_date.date_to_canonical(g_effective_soy));
2560 l_where_clause := replace(l_where_clause,'i_effective_eoy',fnd_date.date_to_canonical(g_effective_eoy));
2561 l_where_clause := replace(l_where_clause,'i_organization_id',to_char(g_organization_id));
2562 l_where_clause := replace(l_where_clause,'i_district_code',g_district_code);
2563 --
2564 if g_debug
2565 and g_detail_debug = 'Y' then
2566 hr_utility.set_location(l_proc,40);
2567 --
2568 if g_show_debug is null
2569 or g_show_debug <> 'Y' then
2570 --
2571 g_show_debug := 'Y';
2572 --
2573 pay_jp_report_pkg.show_debug(l_select_clause);
2574 pay_jp_report_pkg.show_debug(l_from_clause);
2575 pay_jp_report_pkg.show_debug(l_where_clause);
2576 pay_jp_report_pkg.show_debug(l_order_by_clause);
2577 --
2578 end if;
2579 end if;
2580 --
2581 execute immediate
2582 l_select_clause||
2583 l_from_clause||
2584 l_where_clause||
2585 l_order_by_clause
2586 bulk collect into l_data_tbl
2587 using p_payroll_action_id;
2588 --
2589 if g_debug
2590 and g_detail_debug = 'Y' then
2591 hr_utility.set_location(l_proc,50);
2592 hr_utility.trace('l_data_tbl.count : '||to_char(l_data_tbl.count));
2593 end if;
2594 --
2595 for i in 1..l_data_tbl.count loop
2596 --
2597 -- -----------------------------------------------------
2598 -- g_assact_tbl setup
2599 -- -----------------------------------------------------
2600 g_assact_tbl(i) := l_data_tbl(i).mag_assignment_action_id;
2601 --
2602 -- -----------------------------------------------------
2603 -- l_data_tbl setup
2604 -- -----------------------------------------------------
2605 if g_arch_pact_exist is null
2606 or g_arch_pact_exist <> 'Y' then
2607 --
2608 l_certificate_info := null;
2609 l_prev_job_info := null;
2610 --l_certificate_info.delete;
2611 --l_prev_job_info.delete;
2612 l_submission_required_flag := null;
2613 --
2614 pay_jp_wic_pkg.get_certificate_info(
2615 p_assignment_action_id => l_data_tbl(i).assignment_action_id,
2616 p_assignment_id => l_data_tbl(i).assignment_id,
2617 p_action_sequence => l_data_tbl(i).action_sequence,
2618 p_business_group_id => g_business_group_id,
2619 p_effective_date => l_data_tbl(i).effective_date,
2620 p_date_earned => l_data_tbl(i).date_earned,
2621 p_itax_organization_id => l_data_tbl(i).itax_organization_id,
2622 p_itax_category => l_data_tbl(i).itax_category,
2623 p_itax_yea_category => l_data_tbl(i).itax_yea_category,
2624 p_dpnt_ref_type => l_data_tbl(i).dpnt_ref_type,
2625 p_dpnt_effective_date => l_data_tbl(i).dpnt_effective_date,
2626 p_person_id => l_data_tbl(i).person_id,
2627 p_sex => l_data_tbl(i).sex,
2628 p_date_of_birth => l_data_tbl(i).date_of_birth,
2629 p_leaving_reason => l_data_tbl(i).leaving_reason,
2630 p_last_name_kanji => l_data_tbl(i).last_name,
2631 p_last_name_kana => l_data_tbl(i).last_name_kana,
2632 p_employment_category => l_data_tbl(i).employment_category,
2633 p_magnetic_media_flag => 'Y',
2634 p_certificate_info => l_certificate_info,
2635 p_submission_required_flag => l_submission_required_flag,
2636 p_prev_job_info => l_prev_job_info,
2637 p_housing_info => l_housing_info);
2638 --
2639 l_data_tbl(i).taxable_income := l_certificate_info.tax_info.taxable_income;
2640 l_data_tbl(i).net_taxable_income := l_certificate_info.net_taxable_income;
2641 l_data_tbl(i).total_income_exempt := l_certificate_info.total_income_exempt;
2642 l_data_tbl(i).withholding_itax := l_certificate_info.tax_info.withholding_itax;
2643 l_data_tbl(i).spouse_special_exempt := l_certificate_info.spouse_sp_exempt;
2644 l_data_tbl(i).social_insurance_premium := l_certificate_info.tax_info.si_prem;
2645 l_data_tbl(i).mutual_aid_premium := l_certificate_info.tax_info.mutual_aid_prem;
2646 l_data_tbl(i).life_insurance_premium_exempt := l_certificate_info.li_prem_exempt;
2647 l_data_tbl(i).damage_insurance_premium_exem := l_certificate_info.ai_prem_exempt;
2648 l_data_tbl(i).housing_tax_reduction := l_certificate_info.housing_tax_reduction;
2649 l_data_tbl(i).private_pension_premium := l_certificate_info.pp_prem;
2650 l_data_tbl(i).spouse_net_taxable_income := l_certificate_info.spouse_net_taxable_income;
2651 l_data_tbl(i).long_damage_insurance_premium := l_certificate_info.long_ai_prem;
2652 l_data_tbl(i).disaster_tax_reduction := l_certificate_info.tax_info.disaster_tax_reduction;
2653 l_data_tbl(i).dependent_spouse_exists_kou := l_certificate_info.dep_spouse_exists_kou;
2654 l_data_tbl(i).dependent_spouse_no_exist_kou := l_certificate_info.dep_spouse_not_exist_kou;
2655 l_data_tbl(i).dependent_spouse_exists_otsu := l_certificate_info.dep_spouse_exists_otsu;
2656 l_data_tbl(i).dependent_spouse_no_exist_otsu := l_certificate_info.dep_spouse_not_exist_otsu;
2657 l_data_tbl(i).aged_spouse_exists := l_certificate_info.aged_spouse_exists;
2658 l_data_tbl(i).num_specifieds_kou := l_certificate_info.num_specifieds_kou;
2659 l_data_tbl(i).num_specifieds_otsu := l_certificate_info.num_specifieds_otsu;
2660 l_data_tbl(i).num_aged_parents_partial := l_certificate_info.num_aged_parents_lt;
2661 l_data_tbl(i).num_ageds_kou := l_certificate_info.num_ageds_kou;
2662 l_data_tbl(i).num_ageds_otsu := l_certificate_info.num_ageds_otsu;
2663 l_data_tbl(i).num_dependents_kou := l_certificate_info.num_deps_kou;
2664 l_data_tbl(i).num_dependents_otsu := l_certificate_info.num_deps_otsu;
2665 l_data_tbl(i).num_special_disableds_partial := l_certificate_info.num_svr_disableds_lt;
2666 l_data_tbl(i).num_special_disableds := l_certificate_info.num_svr_disableds;
2667 l_data_tbl(i).num_disableds := l_certificate_info.num_disableds;
2668 l_data_tbl(i).husband_exists := l_certificate_info.husband_exists;
2669 l_data_tbl(i).minor := l_certificate_info.minor_flag;
2670 l_data_tbl(i).otsu := l_certificate_info.otsu_flag;
2671 l_data_tbl(i).special_disabled := l_certificate_info.svr_disabled_flag;
2672 l_data_tbl(i).disabled := l_certificate_info.disabled_flag;
2673 l_data_tbl(i).aged := l_certificate_info.aged_flag;
2674 l_data_tbl(i).widow := l_certificate_info.widow_flag;
2675 l_data_tbl(i).special_widow := l_certificate_info.sp_widow_flag;
2676 l_data_tbl(i).widower := l_certificate_info.widower_flag;
2677 l_data_tbl(i).working_student := l_certificate_info.working_student_flag;
2678 l_data_tbl(i).deceased_termination := l_certificate_info.deceased_termination_flag;
2679 l_data_tbl(i).disastered := l_certificate_info.disastered_flag;
2680 l_data_tbl(i).foreigner := l_certificate_info.foreigner_flag;
2681 --
2682 if g_effective_yyyy >= 2012 then
2683 l_data_tbl(i).new_life_ins_prem := l_certificate_info.new_life_ins_prem;
2684 l_data_tbl(i).old_life_ins_prem := l_certificate_info.old_life_ins_prem;
2685 l_data_tbl(i).new_care_med_prem := l_certificate_info.care_med_ins_prem;
2686 l_data_tbl(i).new_pens_ins_prem := l_certificate_info.new_pen_ins_prem;
2687 end if;
2688
2689 if l_prev_job_info.taxable_income is null then
2690 --
2691 l_data_tbl(i).prev_job_employer_name := null;
2692 l_data_tbl(i).prev_job_employer_name_kana := null;
2693 l_data_tbl(i).prev_job_employer_add := null;
2694 l_data_tbl(i).prev_job_employer_add_kana := null;
2695 l_data_tbl(i).prev_job_foreign_address := null;
2696 l_data_tbl(i).prev_job_taxable_income := null;
2697 l_data_tbl(i).prev_job_itax := null;
2698 l_data_tbl(i).prev_job_si_prem := null;
2699 l_data_tbl(i).prev_job_termination_date := null;
2700 l_data_tbl(i).prev_job_termination_year := null;
2701 l_data_tbl(i).prev_job_termination_month := null;
2702 l_data_tbl(i).prev_job_termination_day := null;
2703 --
2704 else
2705 --
2706 l_data_tbl(i).prev_job_employer_name := l_prev_job_info.salary_payer_name_kanji;
2707 l_data_tbl(i).prev_job_employer_name_kana := l_prev_job_info.salary_payer_name_kana;
2708 l_data_tbl(i).prev_job_employer_add := l_prev_job_info.salary_payer_address_kanji;
2709 l_data_tbl(i).prev_job_employer_add_kana := l_prev_job_info.salary_payer_address_kana;
2710 l_data_tbl(i).prev_job_foreign_address := l_prev_job_info.foreign_address_flag;
2711 l_data_tbl(i).prev_job_taxable_income := l_prev_job_info.taxable_income;
2712 l_data_tbl(i).prev_job_itax := l_prev_job_info.itax;
2713 l_data_tbl(i).prev_job_si_prem := l_prev_job_info.si_prem;
2714 l_data_tbl(i).prev_job_termination_date := l_prev_job_info.termination_date;
2715 l_data_tbl(i).prev_job_termination_year := to_number(to_char(l_prev_job_info.termination_date,'YY','nls_calendar=''Japanese Imperial'''));
2716 l_data_tbl(i).prev_job_termination_month := to_number(to_char(l_prev_job_info.termination_date,'MM','nls_calendar=''Japanese Imperial'''));
2717 l_data_tbl(i).prev_job_termination_day := to_number(to_char(l_prev_job_info.termination_date,'DD','nls_calendar=''Japanese Imperial'''));
2718 --
2719 end if;
2720 --
2721 if g_effective_yyyy < 2009 then
2722 --
2723 l_data_tbl(i).hld_residence_date_1_date := l_certificate_info.housing_residence_date;
2724 l_data_tbl(i).hld_residence_date_1_year := to_number(to_char(l_certificate_info.housing_residence_date,'YY','nls_calendar=''Japanese Imperial'''));
2725 l_data_tbl(i).hld_residence_date_1_month := to_number(to_char(l_certificate_info.housing_residence_date,'MM','nls_calendar=''Japanese Imperial'''));
2726 l_data_tbl(i).hld_residence_date_1_day := to_number(to_char(l_certificate_info.housing_residence_date,'DD','nls_calendar=''Japanese Imperial'''));
2727 l_data_tbl(i).hld_loan_count := null;
2728 l_data_tbl(i).hld_payable_loan := null;
2729 l_data_tbl(i).hld_loan_type_1 := null;
2730 l_data_tbl(i).hld_loan_balance_1 := null;
2731 l_data_tbl(i).hld_residence_date_2_date := null;
2732 l_data_tbl(i).hld_residence_date_2_year := null;
2733 l_data_tbl(i).hld_residence_date_2_month := null;
2734 l_data_tbl(i).hld_residence_date_2_day := null;
2735 l_data_tbl(i).hld_loan_type_2 := null;
2736 l_data_tbl(i).hld_loan_balance_2 := null;
2737 --
2738 else
2739 --
2740 l_data_tbl(i).hld_residence_date_1_date := l_housing_info.residence_date_1;
2741 l_data_tbl(i).hld_residence_date_1_year := to_number(to_char(l_housing_info.residence_date_1,'YY','nls_calendar=''Japanese Imperial'''));
2742 l_data_tbl(i).hld_residence_date_1_month := to_number(to_char(l_housing_info.residence_date_1,'MM','nls_calendar=''Japanese Imperial'''));
2743 l_data_tbl(i).hld_residence_date_1_day := to_number(to_char(l_housing_info.residence_date_1,'DD','nls_calendar=''Japanese Imperial'''));
2744 l_data_tbl(i).hld_loan_count := l_housing_info.loan_count;
2745 l_data_tbl(i).hld_payable_loan := l_housing_info.payable_loan;
2746 l_data_tbl(i).hld_loan_type_1 := l_housing_info.loan_type_1;
2747 l_data_tbl(i).hld_loan_balance_1 := l_housing_info.loan_balance_1;
2748 l_data_tbl(i).hld_residence_date_2_date := l_housing_info.residence_date_2;
2749 l_data_tbl(i).hld_residence_date_2_year := to_number(to_char(l_housing_info.residence_date_2,'YY','nls_calendar=''Japanese Imperial'''));
2750 l_data_tbl(i).hld_residence_date_2_month := to_number(to_char(l_housing_info.residence_date_2,'MM','nls_calendar=''Japanese Imperial'''));
2751 l_data_tbl(i).hld_residence_date_2_day := to_number(to_char(l_housing_info.residence_date_2,'DD','nls_calendar=''Japanese Imperial'''));
2752 l_data_tbl(i).hld_loan_type_2 := l_housing_info.loan_type_2;
2753 l_data_tbl(i).hld_loan_balance_2 := l_housing_info.loan_balance_2;
2754 --
2755 end if;
2756 --
2757 l_data_tbl(i).original_description := l_certificate_info.description_kanji;
2758 l_data_tbl(i).original_description_kana := l_certificate_info.description_kana;
2759 l_data_tbl(i).wtm_system_desc := null;
2760 l_data_tbl(i).wtm_system_desc_kana := null;
2761 l_data_tbl(i).wtm_user_desc := null;
2762 l_data_tbl(i).wtm_user_desc_kana := null;
2763 --
2764 l_data_tbl(i).num_junior_deps := l_certificate_info.num_junior_deps;
2765 --
2766 else
2767 --
2768 if g_effective_yyyy >= 2009 then
2769 --
2770 l_data_tbl(i).hld_residence_date_1_year := to_number(to_char(l_data_tbl(i).hld_residence_date_1_date,'YY','nls_calendar=''Japanese Imperial'''));
2771 l_data_tbl(i).hld_residence_date_1_month := to_number(to_char(l_data_tbl(i).hld_residence_date_1_date,'MM','nls_calendar=''Japanese Imperial'''));
2772 l_data_tbl(i).hld_residence_date_1_day := to_number(to_char(l_data_tbl(i).hld_residence_date_1_date,'DD','nls_calendar=''Japanese Imperial'''));
2773 l_data_tbl(i).hld_residence_date_2_year := to_number(to_char(l_data_tbl(i).hld_residence_date_2_date,'YY','nls_calendar=''Japanese Imperial'''));
2774 l_data_tbl(i).hld_residence_date_2_month := to_number(to_char(l_data_tbl(i).hld_residence_date_2_date,'MM','nls_calendar=''Japanese Imperial'''));
2775 l_data_tbl(i).hld_residence_date_2_day := to_number(to_char(l_data_tbl(i).hld_residence_date_2_date,'DD','nls_calendar=''Japanese Imperial'''));
2776 --
2777 end if;
2778 --
2779 -- not set in case archive (desired to store into archive)
2780 if g_kana_flag is not null
2781 and g_kana_flag = 'Y' then
2782 --
2783 get_itax_org_kana(
2784 p_itax_organization_id => l_data_tbl(i).itax_organization_id,
2785 p_itax_org_name => l_data_tbl(i).itax_org_name_kana,
2786 p_itax_org_address => l_data_tbl(i).itax_org_address_kana);
2787 --
2788 else
2789 --
2790 get_itax_org_kana(
2791 p_itax_organization_id => l_data_tbl(i).itax_organization_id,
2792 p_itax_org_name => l_data_tbl(i).itax_org_name_kana,
2793 p_itax_org_address => l_data_tbl(i).itax_org_address_kana);
2794 --
2795 end if;
2796 --
2797 l_delimiter := null;
2798 if l_data_tbl(i).wtm_system_desc is not null
2799 and l_data_tbl(i).wtm_user_desc is not null then
2800 --
2801 l_delimiter := c_delimiter;
2802 --
2803 end if;
2804 --
2805 l_data_tbl(i).original_description := l_data_tbl(i).wtm_system_desc||
2806 l_delimiter||
2807 l_data_tbl(i).wtm_user_desc;
2808 --
2809 l_delimiter := null;
2810 if l_data_tbl(i).wtm_system_desc_kana is not null
2811 and l_data_tbl(i).wtm_user_desc_kana is not null then
2812 --
2813 l_delimiter := c_delimiter;
2814 --
2815 end if;
2816 --
2817 l_data_tbl(i).original_description_kana := l_data_tbl(i).wtm_system_desc_kana||
2818 l_delimiter||
2819 l_data_tbl(i).wtm_user_desc_kana;
2820 --
2821 end if;
2822 --
2823 -- -----------------------------------------------------
2824 -- g_body_tbl setup
2825 -- -----------------------------------------------------
2826 g_body_tbl(g_assact_tbl(i)).mag_assignment_action_id := l_data_tbl(i).mag_assignment_action_id;
2827 g_body_tbl(g_assact_tbl(i)).assignment_action_id := l_data_tbl(i).assignment_action_id;
2828 g_body_tbl(g_assact_tbl(i)).assignment_id := l_data_tbl(i).assignment_id;
2829 g_body_tbl(g_assact_tbl(i)).action_sequence := l_data_tbl(i).action_sequence;
2830 g_body_tbl(g_assact_tbl(i)).effective_date := l_data_tbl(i).effective_date;
2831 g_body_tbl(g_assact_tbl(i)).date_earned := l_data_tbl(i).date_earned;
2832 g_body_tbl(g_assact_tbl(i)).itax_organization_id := l_data_tbl(i).itax_organization_id;
2833 g_body_tbl(g_assact_tbl(i)).itax_category := l_data_tbl(i).itax_category;
2834 g_body_tbl(g_assact_tbl(i)).itax_yea_category := l_data_tbl(i).itax_yea_category;
2835 g_body_tbl(g_assact_tbl(i)).dpnt_ref_type := l_data_tbl(i).dpnt_ref_type;
2836 g_body_tbl(g_assact_tbl(i)).dpnt_effective_date := l_data_tbl(i).dpnt_effective_date;
2837 g_body_tbl(g_assact_tbl(i)).person_id := l_data_tbl(i).person_id;
2838 g_body_tbl(g_assact_tbl(i)).sex := l_data_tbl(i).sex;
2839 g_body_tbl(g_assact_tbl(i)).date_of_birth := l_data_tbl(i).date_of_birth;
2840 g_body_tbl(g_assact_tbl(i)).leaving_reason := l_data_tbl(i).leaving_reason;
2841 g_body_tbl(g_assact_tbl(i)).last_name := l_data_tbl(i).last_name;
2842 g_body_tbl(g_assact_tbl(i)).last_name_kana := l_data_tbl(i).last_name_kana;
2843 g_body_tbl(g_assact_tbl(i)).first_name := l_data_tbl(i).first_name;
2844 g_body_tbl(g_assact_tbl(i)).first_name_kana := l_data_tbl(i).first_name_kana;
2845 g_body_tbl(g_assact_tbl(i)).employment_category := l_data_tbl(i).employment_category;
2846 g_body_tbl(g_assact_tbl(i)).address := l_data_tbl(i).address;
2847 g_body_tbl(g_assact_tbl(i)).address_kana := l_data_tbl(i).address_kana;
2848 g_body_tbl(g_assact_tbl(i)).address_jp := l_data_tbl(i).address_jp;
2849 g_body_tbl(g_assact_tbl(i)).full_name := l_data_tbl(i).full_name;
2850 g_body_tbl(g_assact_tbl(i)).full_name_kana := l_data_tbl(i).full_name_kana;
2851 g_body_tbl(g_assact_tbl(i)).actual_termination_date := l_data_tbl(i).actual_termination_date;
2852 g_body_tbl(g_assact_tbl(i)).date_start := l_data_tbl(i).date_start;
2853 g_body_tbl(g_assact_tbl(i)).itax_org_address := l_data_tbl(i).itax_org_address;
2854 g_body_tbl(g_assact_tbl(i)).itax_org_address_kana := l_data_tbl(i).itax_org_address_kana;
2855 g_body_tbl(g_assact_tbl(i)).itax_org_name := l_data_tbl(i).itax_org_name;
2856 g_body_tbl(g_assact_tbl(i)).itax_org_name_kana := l_data_tbl(i).itax_org_name_kana;
2857 g_body_tbl(g_assact_tbl(i)).dependent_spouse_exists_kou := l_data_tbl(i).dependent_spouse_exists_kou;
2858 g_body_tbl(g_assact_tbl(i)).dependent_spouse_no_exist_kou := l_data_tbl(i).dependent_spouse_no_exist_kou;
2859 g_body_tbl(g_assact_tbl(i)).dependent_spouse_exists_otsu := l_data_tbl(i).dependent_spouse_exists_otsu;
2860 g_body_tbl(g_assact_tbl(i)).dependent_spouse_no_exist_otsu := l_data_tbl(i).dependent_spouse_no_exist_otsu;
2861 g_body_tbl(g_assact_tbl(i)).aged_spouse_exists := l_data_tbl(i).aged_spouse_exists;
2862 g_body_tbl(g_assact_tbl(i)).husband_exists := l_data_tbl(i).husband_exists;
2863 g_body_tbl(g_assact_tbl(i)).minor := l_data_tbl(i).minor;
2864 g_body_tbl(g_assact_tbl(i)).otsu := l_data_tbl(i).otsu;
2865 g_body_tbl(g_assact_tbl(i)).special_disabled := l_data_tbl(i).special_disabled;
2866 g_body_tbl(g_assact_tbl(i)).disabled := l_data_tbl(i).disabled;
2867 g_body_tbl(g_assact_tbl(i)).aged := l_data_tbl(i).aged;
2868 g_body_tbl(g_assact_tbl(i)).widow := l_data_tbl(i).widow;
2869 g_body_tbl(g_assact_tbl(i)).special_widow := l_data_tbl(i).special_widow;
2870 g_body_tbl(g_assact_tbl(i)).widower := l_data_tbl(i).widower;
2871 g_body_tbl(g_assact_tbl(i)).working_student := l_data_tbl(i).working_student;
2872 g_body_tbl(g_assact_tbl(i)).deceased_termination := l_data_tbl(i).deceased_termination;
2873 g_body_tbl(g_assact_tbl(i)).disastered := l_data_tbl(i).disastered;
2874 g_body_tbl(g_assact_tbl(i)).foreigner := l_data_tbl(i).foreigner;
2875 g_body_tbl(g_assact_tbl(i)).prev_job_employer_name := l_data_tbl(i).prev_job_employer_name;
2876 g_body_tbl(g_assact_tbl(i)).prev_job_employer_name_kana := l_data_tbl(i).prev_job_employer_name_kana;
2877 g_body_tbl(g_assact_tbl(i)).prev_job_employer_add := l_data_tbl(i).prev_job_employer_add;
2878 g_body_tbl(g_assact_tbl(i)).prev_job_employer_add_kana := l_data_tbl(i).prev_job_employer_add_kana;
2879 g_body_tbl(g_assact_tbl(i)).prev_job_employer_add_jp := l_data_tbl(i).prev_job_foreign_address;
2880 -- not set in case archive
2881 g_body_tbl(g_assact_tbl(i)).pjob_termination_date := l_data_tbl(i).prev_job_termination_date;
2882 g_body_tbl(g_assact_tbl(i)).hld_payable_loan := l_data_tbl(i).hld_payable_loan;
2883 g_body_tbl(g_assact_tbl(i)).hld_loan_count := l_data_tbl(i).hld_loan_count;
2884 -- not set in case archive before 2009
2885 g_body_tbl(g_assact_tbl(i)).hld_residence_date_1 := l_data_tbl(i).hld_residence_date_1_date;
2886 g_body_tbl(g_assact_tbl(i)).hld_loan_type_1 := l_data_tbl(i).hld_loan_type_1;
2887 g_body_tbl(g_assact_tbl(i)).hld_loan_balance_1 := l_data_tbl(i).hld_loan_balance_1;
2888 g_body_tbl(g_assact_tbl(i)).hld_residence_date_2 := l_data_tbl(i).hld_residence_date_2_date;
2889 g_body_tbl(g_assact_tbl(i)).hld_loan_type_2 := l_data_tbl(i).hld_loan_type_2;
2890 g_body_tbl(g_assact_tbl(i)).hld_loan_balance_2 := l_data_tbl(i).hld_loan_balance_2;
2891 --
2892 g_body_tbl(g_assact_tbl(i)).original_description := l_data_tbl(i).original_description;
2893 g_body_tbl(g_assact_tbl(i)).original_description_kana := l_data_tbl(i).original_description_kana;
2894 g_body_tbl(g_assact_tbl(i)).wtm_system_desc := l_data_tbl(i).wtm_system_desc;
2895 g_body_tbl(g_assact_tbl(i)).wtm_system_desc_kana := l_data_tbl(i).wtm_system_desc_kana;
2896 g_body_tbl(g_assact_tbl(i)).wtm_user_desc := l_data_tbl(i).wtm_user_desc;
2897 g_body_tbl(g_assact_tbl(i)).wtm_user_desc_kana := l_data_tbl(i).wtm_user_desc_kana;
2898 --
2899 g_body_tbl(g_assact_tbl(i)).spr_term_valid := 0;
2900 if g_valid_term_flag is null
2901 or g_valid_term_flag <> 'Y' then
2902 --
2903 if l_data_tbl(i).actual_termination_date is not null
2904 and l_data_tbl(i).taxable_income <= pay_jp_wic_pkg.g_valid_term_taxable_amt then
2905 --
2906 g_body_tbl(g_assact_tbl(i)).spr_term_valid := 1;
2907 --
2908 end if;
2909 --
2910 end if;
2911 --
2912 -- override output_file_name to unit file in case etax
2913 if g_file_split is not null
2914 and g_file_split = 'N' then
2915 --
2916 l_data_tbl(i).output_file_name :=
2917 pay_jp_spr_efile_pkg.g_file_prefix||
2918 c_file_spliter||
2919 to_char(pay_jp_spr_efile_pkg.g_request_id)||c_file_extension;
2920 --
2921 end if;
2922 --
2923 l_district_code_chg := false;
2924 if ((not l_district_code_null)
2925 and (l_district_code is null
2926 or l_data_tbl(i).district_code is null
2927 or l_district_code <> l_data_tbl(i).district_code)) then
2928 --
2929 l_district_code_chg := true;
2930 --
2931 l_district_code := l_data_tbl(i).district_code;
2932 --
2933 l_itax_org_cnt := 0;
2934 l_emp_cnt := 0;
2935 l_term_emp_cnt := 0;
2936 l_file_over_start := i;
2937 --
2938 l_itax_organization_id := null;
2939 --
2940 l_district_code_null := false;
2941 if l_data_tbl(i).district_code is null then
2942 --
2943 l_district_code_null := true;
2944 --
2945 end if;
2946 --
2947 end if;
2948 --
2949 l_emp_cnt := l_emp_cnt + 1;
2950 --
2951 if l_itax_organization_id is null
2952 or l_itax_organization_id <> l_data_tbl(i).itax_organization_id then
2953 --
2954 l_itax_organization_id := l_data_tbl(i).itax_organization_id;
2955 l_itax_org_cnt := l_itax_org_cnt + 1;
2956 --
2957 -- override output_file_name to unit file for multiple itax_org
2958 if l_itax_org_cnt > 1
2959 and (g_file_split is null
2960 or g_file_split = 'Y') then
2961 --
2962 -- reset all output_file_name for l_itax_org_cnt = 1 in same district_code group
2963 if l_itax_org_cnt = 2 then
2964 --
2965 if l_file_over_start > 0 then
2966 --
2967 -- override file
2968 l_file_name := default_file_name(l_district_code);
2969 --
2970 if l_file_cnt > 0 then
2971 --
2972 g_file_tbl(l_file_cnt).file_name := l_file_name;
2973 --
2974 else
2975 --
2976 hr_utility.trace('l_file_cnt is 0 : '||to_char(l_file_cnt));
2977 --
2978 end if;
2979 --
2980 if l_summary_tbl_cnt > 0 then
2981 --
2982 g_summary_tbl(l_summary_tbl_cnt).file_name := l_file_name;
2983 --
2984 else
2985 --
2986 hr_utility.trace('l_summary_tbl_cnt is 0 : '||to_char(l_summary_tbl_cnt));
2987 --
2988 end if;
2989 --
2990 <<loop_file_over>>
2991 for j in l_file_over_start..(i - 1) loop
2992 --
2993 l_data_tbl(j).output_file_name := l_file_name;
2994 --
2995 end loop loop_file_over;
2996 --
2997 else
2998 --
2999 hr_utility.trace('l_file_over_start is 0 : '||to_char(l_file_over_start));
3000 --
3001 end if;
3002 --
3003 end if;
3004 --
3005 end if;
3006 --
3007 end if;
3008 --
3009 -- override output_file_name to unit file for multiple itax_org
3010 if l_itax_org_cnt > 1
3011 and (g_file_split is null
3012 or g_file_split = 'Y') then
3013 --
3014 l_data_tbl(i).output_file_name := default_file_name(l_district_code);
3015 --
3016 end if;
3017 --
3018 -- -----------------------------------------------------
3019 -- g_file_tbl setup
3020 -- -----------------------------------------------------
3021 --
3022 -- use same l_file_cnt if l_file_name is same
3023 --
3024 if l_file_name is null
3025 or l_file_name <> l_data_tbl(i).output_file_name then
3026 --
3027 l_file_cnt := l_file_cnt + 1;
3028 l_file_name := l_data_tbl(i).output_file_name;
3029 --
3030 g_file_tbl(l_file_cnt).file_name := l_file_name;
3031 --
3032 end if;
3033 --
3034 g_body_tbl(g_assact_tbl(i)).output_file_name := l_data_tbl(i).output_file_name;
3035 g_body_tbl(g_assact_tbl(i)).file_ind := l_file_cnt;
3036 --
3037 -- output data format
3038 --
3039 l_itax_org_name := null;
3040 l_itax_org_address := null;
3041 l_address := null;
3042 --l_assortment := null;
3043 l_pjob_itax_org_address := null;
3044 l_pjob_itax_org_full_name := null;
3045 l_original_description := null;
3046 --
3047 if g_kana_flag is not null
3048 and g_kana_flag = 'Y' then
3049 --
3050 -- format same as payjpwtm
3051 l_itax_org_address := hr_jp_standard_pkg.upper_kana(l_data_tbl(i).itax_org_address_kana);
3052 l_itax_org_name := hr_jp_standard_pkg.upper_kana(l_data_tbl(i).itax_org_name_kana);
3053 l_address := hr_jp_standard_pkg.upper_kana(l_data_tbl(i).address_kana);
3054 --
3055 if l_assortment is null then
3056 l_assortment := fnd_message.get_string('PAY','PAY_JP_WIC_EARNINGS_TYPE_KANA');
3057 end if;
3058 --
3059 l_pjob_itax_org_address := l_data_tbl(i).prev_job_employer_add_kana;
3060 l_pjob_itax_org_full_name := l_data_tbl(i).prev_job_employer_name_kana;
3061 --
3062 l_original_description := l_data_tbl(i).original_description_kana;
3063 if g_arch_pact_exist is null
3064 or g_arch_pact_exist <> 'Y' then
3065 --
3066 -- format same as payjpwtm
3067 l_original_description := hr_jp_standard_pkg.upper_kana(hr_jp_standard_pkg.to_hankaku(l_original_description));
3068 --
3069 end if;
3070 --
3071 else
3072 --
3073 l_itax_org_address := l_data_tbl(i).itax_org_address;
3074 l_itax_org_name := l_data_tbl(i).itax_org_name;
3075 l_address := l_data_tbl(i).address;
3076 --
3077 if l_assortment is null then
3078 l_assortment := fnd_message.get_string('PAY','PAY_JP_WIC_EARNINGS_TYPE_KANJI');
3079 end if;
3080 --
3081 l_pjob_itax_org_address := l_data_tbl(i).prev_job_employer_add;
3082 l_pjob_itax_org_full_name := l_data_tbl(i).prev_job_employer_name;
3083 l_original_description := l_data_tbl(i).original_description;
3084 --
3085 end if;
3086 --
3087 l_desc_chr_len := c_desc_chr_len;
3088 if g_effective_yyyy >= 2009 then
3089 --
3090 l_desc_chr_len := c_desc_chr_len_2009;
3091 --
3092 end if;
3093 --
3094 l_dep_spouse := null;
3095 if l_data_tbl(i).dependent_spouse_exists_kou = l_yes then
3096 l_dep_spouse := '1';
3097 elsif l_data_tbl(i).dependent_spouse_no_exist_kou = l_yes then
3098 l_dep_spouse := '2';
3099 elsif l_data_tbl(i).dependent_spouse_exists_otsu = l_yes then
3100 l_dep_spouse := '3';
3101 elsif l_data_tbl(i).dependent_spouse_no_exist_otsu = l_yes then
3102 l_dep_spouse := '4';
3103 end if;
3104 --
3105 l_aged_spouse := '0';
3106 if l_data_tbl(i).aged_spouse_exists = l_yes then
3107 l_aged_spouse := '1';
3108 end if;
3109 --
3110 l_husband_exists := null;
3111 l_aged := null;
3112 if g_effective_yyyy < 2005 then
3113 --
3114 l_husband_exists := pay_jp_report_pkg.decode_value(l_data_tbl(i).husband_exists = l_yes,'1','0');
3115 l_aged := pay_jp_report_pkg.decode_value(l_data_tbl(i).aged = l_yes,'1','0');
3116 --
3117 end if;
3118 --
3119 l_widow := '0';
3120 if l_data_tbl(i).widow = l_yes then
3121 l_widow := '1';
3122 elsif l_data_tbl(i).special_widow = l_yes then
3123 l_widow := '2';
3124 end if;
3125 --
3126 l_employed := '0';
3127 l_employed_date := null;
3128 -- set actual_termination_date in case when both term and start exists
3129 if l_data_tbl(i).actual_termination_date is not null then
3130 --
3131 l_employed := '2';
3132 l_employed_date := l_data_tbl(i).actual_termination_date;
3133 l_term_emp_cnt := l_term_emp_cnt + 1;
3134 --
3135 elsif l_data_tbl(i).date_start is not null then
3136 --
3137 l_employed := '1';
3138 l_employed_date := l_data_tbl(i).date_start;
3139 --
3140 end if;
3141 --
3142 l_pjob_itax_org_address_jp := '0';
3143 if l_data_tbl(i).prev_job_foreign_address = l_yes
3144 or l_data_tbl(i).prev_job_foreign_address = '1' then
3145 l_pjob_itax_org_address_jp := '1';
3146 end if;
3147 --
3148 -- format same as payjpwtm
3149 l_full_name_kana := hr_jp_standard_pkg.upper_kana(l_data_tbl(i).full_name_kana);
3150 --
3151 -- output data setup
3152 --
3153 g_body_tbl(g_assact_tbl(i)).o_form_number := pay_jp_report_pkg.cnv_siz('h',3 ,c_form_number);
3154 g_body_tbl(g_assact_tbl(i)).o_itax_org_serial1 := pay_jp_report_pkg.cnv_siz('h',10 ,pay_jp_report_pkg.csvspchar(pay_jp_report_pkg.cnv_str(l_data_tbl(i).itax_org_serial1)));
3155 g_body_tbl(g_assact_tbl(i)).o_itax_org_cnt := pay_jp_report_pkg.cnv_siz('h',50 ,l_itax_org_cnt);
3156 g_body_tbl(g_assact_tbl(i)).o_itax_org_address := pay_jp_report_pkg.cnv_siz('z',60 ,pay_jp_report_pkg.cnv_str(l_itax_org_address));
3157 g_body_tbl(g_assact_tbl(i)).o_itax_org_name := pay_jp_report_pkg.cnv_siz('z',30 ,pay_jp_report_pkg.cnv_str(l_itax_org_name));
3158 g_body_tbl(g_assact_tbl(i)).o_itax_org_phone := pay_jp_report_pkg.cnv_siz('h',15 ,pay_jp_report_pkg.csvspchar(pay_jp_report_pkg.cnv_str(l_data_tbl(i).itax_org_phone)));
3159 g_body_tbl(g_assact_tbl(i)).o_itax_org_serial2 := pay_jp_report_pkg.cnv_siz('h',13 ,pay_jp_report_pkg.csvspchar(pay_jp_report_pkg.cnv_str(l_data_tbl(i).itax_org_serial2)));
3160 g_body_tbl(g_assact_tbl(i)).o_itax_hq_address := pay_jp_report_pkg.cnv_siz('z',60 ,to_char(null));
3161 g_body_tbl(g_assact_tbl(i)).o_itax_hq_name := pay_jp_report_pkg.cnv_siz('z',30 ,to_char(null));
3162 g_body_tbl(g_assact_tbl(i)).o_amend_flag := pay_jp_report_pkg.cnv_siz('h',1 ,c_amend_flag);
3163 g_body_tbl(g_assact_tbl(i)).o_target_yy := pay_jp_report_pkg.cnv_siz('h',2 ,to_char(g_effective_soy,'YY','nls_calendar=''Japanese Imperial'''));
3164 g_body_tbl(g_assact_tbl(i)).o_address := pay_jp_report_pkg.cnv_siz('z',60 ,pay_jp_report_pkg.cnv_str(l_address));
3165 g_body_tbl(g_assact_tbl(i)).o_address_jp := pay_jp_report_pkg.cnv_siz('h',1 ,l_data_tbl(i).address_jp);
3166 g_body_tbl(g_assact_tbl(i)).o_full_name := pay_jp_report_pkg.cnv_siz('z',30 ,pay_jp_report_pkg.cnv_str(l_data_tbl(i).full_name));
3167 g_body_tbl(g_assact_tbl(i)).o_position := pay_jp_report_pkg.cnv_siz('z',15 ,to_char(null));
3168 g_body_tbl(g_assact_tbl(i)).o_assortment := pay_jp_report_pkg.cnv_siz('z',10 ,l_assortment);
3169 g_body_tbl(g_assact_tbl(i)).o_taxable_income := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).taxable_income);
3170 g_body_tbl(g_assact_tbl(i)).o_unpaid_income := pay_jp_report_pkg.cnv_siz('h',10 ,c_unpaid_income);
3171 g_body_tbl(g_assact_tbl(i)).o_net_taxable_income := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).net_taxable_income);
3172 g_body_tbl(g_assact_tbl(i)).o_total_income_exempt := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).total_income_exempt);
3173 g_body_tbl(g_assact_tbl(i)).o_withholding_itax := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).withholding_itax);
3174 g_body_tbl(g_assact_tbl(i)).o_uncollected_itax := pay_jp_report_pkg.cnv_siz('h',10 ,c_uncollected_itax);
3175 g_body_tbl(g_assact_tbl(i)).o_dep_spouse := pay_jp_report_pkg.cnv_siz('h',1 ,l_dep_spouse);
3176 g_body_tbl(g_assact_tbl(i)).o_aged_spouse := pay_jp_report_pkg.cnv_siz('h',1 ,l_aged_spouse);
3177 g_body_tbl(g_assact_tbl(i)).o_spouse_sp_exempt := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).spouse_special_exempt);
3178 g_body_tbl(g_assact_tbl(i)).o_num_specifieds_kou := pay_jp_report_pkg.cnv_siz('h',2 ,l_data_tbl(i).num_specifieds_kou);
3179 g_body_tbl(g_assact_tbl(i)).o_num_specifieds_otsu := pay_jp_report_pkg.cnv_siz('h',2 ,l_data_tbl(i).num_specifieds_otsu);
3180 g_body_tbl(g_assact_tbl(i)).o_num_ageds_kou := pay_jp_report_pkg.cnv_siz('h',2 ,l_data_tbl(i).num_ageds_kou);
3181 g_body_tbl(g_assact_tbl(i)).o_num_aged_parents_lt := pay_jp_report_pkg.cnv_siz('h',2 ,l_data_tbl(i).num_aged_parents_partial);
3182 g_body_tbl(g_assact_tbl(i)).o_num_ageds_otsu := pay_jp_report_pkg.cnv_siz('h',2 ,l_data_tbl(i).num_ageds_otsu);
3183 g_body_tbl(g_assact_tbl(i)).o_num_deps_kou := pay_jp_report_pkg.cnv_siz('h',2 ,l_data_tbl(i).num_dependents_kou);
3184 g_body_tbl(g_assact_tbl(i)).o_num_deps_otsu := pay_jp_report_pkg.cnv_siz('h',2 ,l_data_tbl(i).num_dependents_otsu);
3185 g_body_tbl(g_assact_tbl(i)).o_num_svr_disableds := pay_jp_report_pkg.cnv_siz('h',2 ,l_data_tbl(i).num_special_disableds);
3186 g_body_tbl(g_assact_tbl(i)).o_num_svr_disableds_lt := pay_jp_report_pkg.cnv_siz('h',2 ,l_data_tbl(i).num_special_disableds_partial);
3187 g_body_tbl(g_assact_tbl(i)).o_num_disableds := pay_jp_report_pkg.cnv_siz('h',2 ,l_data_tbl(i).num_disableds);
3188 g_body_tbl(g_assact_tbl(i)).o_si_prem := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).social_insurance_premium);
3189 g_body_tbl(g_assact_tbl(i)).o_mutual_aid_prem := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).mutual_aid_premium);
3190 g_body_tbl(g_assact_tbl(i)).o_li_prem_exempt := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).life_insurance_premium_exempt);
3191 g_body_tbl(g_assact_tbl(i)).o_ai_prem_exempt := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).damage_insurance_premium_exem);
3192 g_body_tbl(g_assact_tbl(i)).o_housing_tax_reduction := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).housing_tax_reduction);
3193 g_body_tbl(g_assact_tbl(i)).o_pp_prem := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).private_pension_premium);
3194 g_body_tbl(g_assact_tbl(i)).o_spouse_net_taxable_income := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).spouse_net_taxable_income);
3195 g_body_tbl(g_assact_tbl(i)).o_long_ai_prem := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).long_damage_insurance_premium);
3196 g_body_tbl(g_assact_tbl(i)).o_birth_date_era := pay_jp_report_pkg.cnv_siz('h',1 ,file_era_code(to_char(l_data_tbl(i).date_of_birth,'E','nls_calendar=''Japanese Imperial''')));
3197 g_body_tbl(g_assact_tbl(i)).o_birth_date_yy := pay_jp_report_pkg.cnv_siz('h',2 ,to_char(l_data_tbl(i).date_of_birth,'YY','nls_calendar=''Japanese Imperial'''));
3198 g_body_tbl(g_assact_tbl(i)).o_birth_date_mm := pay_jp_report_pkg.cnv_siz('h',2 ,to_char(l_data_tbl(i).date_of_birth,'MM','nls_calendar=''Japanese Imperial'''));
3199 g_body_tbl(g_assact_tbl(i)).o_birth_date_dd := pay_jp_report_pkg.cnv_siz('h',2 ,to_char(l_data_tbl(i).date_of_birth,'DD','nls_calendar=''Japanese Imperial'''));
3200 g_body_tbl(g_assact_tbl(i)).o_husband_exists := pay_jp_report_pkg.cnv_siz('h',1 ,l_husband_exists);
3201 g_body_tbl(g_assact_tbl(i)).o_minor := pay_jp_report_pkg.cnv_siz('h',1 ,pay_jp_report_pkg.decode_value(l_data_tbl(i).minor = l_yes,'1','0'));
3202 g_body_tbl(g_assact_tbl(i)).o_otsu := pay_jp_report_pkg.cnv_siz('h',1 ,pay_jp_report_pkg.decode_value(l_data_tbl(i).otsu = l_yes,'1','0'));
3203 g_body_tbl(g_assact_tbl(i)).o_svr_disabled := pay_jp_report_pkg.cnv_siz('h',1 ,pay_jp_report_pkg.decode_value(l_data_tbl(i).special_disabled = l_yes,'1','0'));
3204 g_body_tbl(g_assact_tbl(i)).o_disabled := pay_jp_report_pkg.cnv_siz('h',1 ,pay_jp_report_pkg.decode_value(l_data_tbl(i).disabled = l_yes,'1','0'));
3205 g_body_tbl(g_assact_tbl(i)).o_aged := pay_jp_report_pkg.cnv_siz('h',1 ,l_aged);
3206 g_body_tbl(g_assact_tbl(i)).o_widow := pay_jp_report_pkg.cnv_siz('h',1 ,l_widow);
3207 g_body_tbl(g_assact_tbl(i)).o_widower := pay_jp_report_pkg.cnv_siz('h',1 ,pay_jp_report_pkg.decode_value(l_data_tbl(i).widower = l_yes,'1','0'));
3208 g_body_tbl(g_assact_tbl(i)).o_working_student := pay_jp_report_pkg.cnv_siz('h',1 ,pay_jp_report_pkg.decode_value(l_data_tbl(i).working_student = l_yes,'1','0'));
3209 g_body_tbl(g_assact_tbl(i)).o_deceased_termination := pay_jp_report_pkg.cnv_siz('h',1 ,pay_jp_report_pkg.decode_value(l_data_tbl(i).deceased_termination = l_yes,'1','0'));
3210 g_body_tbl(g_assact_tbl(i)).o_disastered := pay_jp_report_pkg.cnv_siz('h',1 ,pay_jp_report_pkg.decode_value(l_data_tbl(i).disastered = l_yes,'1','0'));
3211 g_body_tbl(g_assact_tbl(i)).o_foreigner := pay_jp_report_pkg.cnv_siz('h',1 ,pay_jp_report_pkg.decode_value(l_data_tbl(i).foreigner = l_yes,'1','0'));
3212 g_body_tbl(g_assact_tbl(i)).o_employed := pay_jp_report_pkg.cnv_siz('h',1 ,l_employed);
3213 g_body_tbl(g_assact_tbl(i)).o_employed_yy := pay_jp_report_pkg.cnv_siz('h',2 ,to_char(l_employed_date,'YY','nls_calendar=''Japanese Imperial'''));
3214 g_body_tbl(g_assact_tbl(i)).o_employed_mm := pay_jp_report_pkg.cnv_siz('h',2 ,to_char(l_employed_date,'MM','nls_calendar=''Japanese Imperial'''));
3215 g_body_tbl(g_assact_tbl(i)).o_employed_dd := pay_jp_report_pkg.cnv_siz('h',2 ,to_char(l_employed_date,'DD','nls_calendar=''Japanese Imperial'''));
3216 g_body_tbl(g_assact_tbl(i)).o_pjob_itax_org_address := pay_jp_report_pkg.cnv_siz('z',60 ,pay_jp_report_pkg.cnv_str(l_pjob_itax_org_address));
3217 g_body_tbl(g_assact_tbl(i)).o_pjob_itax_org_address_jp := pay_jp_report_pkg.cnv_siz('h',1 ,l_pjob_itax_org_address_jp);
3218 g_body_tbl(g_assact_tbl(i)).o_pjob_itax_org_full_name := pay_jp_report_pkg.cnv_siz('z',30 ,pay_jp_report_pkg.cnv_str(l_pjob_itax_org_full_name));
3219 g_body_tbl(g_assact_tbl(i)).o_pjob_taxable_income := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).prev_job_taxable_income);
3220 g_body_tbl(g_assact_tbl(i)).o_pjob_itax := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).prev_job_itax);
3221 g_body_tbl(g_assact_tbl(i)).o_pjob_si_prem := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).prev_job_si_prem);
3222 g_body_tbl(g_assact_tbl(i)).o_disaster_tax_reduction := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).disaster_tax_reduction);
3223 g_body_tbl(g_assact_tbl(i)).o_pjob_termination_date_yy := pay_jp_report_pkg.cnv_siz('h',2 ,lpad(to_char(l_data_tbl(i).prev_job_termination_year),2,'0'));
3224 g_body_tbl(g_assact_tbl(i)).o_pjob_termination_date_mm := pay_jp_report_pkg.cnv_siz('h',2 ,lpad(to_char(l_data_tbl(i).prev_job_termination_month),2,'0'));
3225 g_body_tbl(g_assact_tbl(i)).o_pjob_termination_date_dd := pay_jp_report_pkg.cnv_siz('h',2 ,lpad(to_char(l_data_tbl(i).prev_job_termination_day),2,'0'));
3226 g_body_tbl(g_assact_tbl(i)).o_hld_residence_date_1_yy := pay_jp_report_pkg.cnv_siz('h',2 ,lpad(to_char(l_data_tbl(i).hld_residence_date_1_year),2,'0'));
3227 g_body_tbl(g_assact_tbl(i)).o_hld_residence_date_1_mm := pay_jp_report_pkg.cnv_siz('h',2 ,lpad(to_char(l_data_tbl(i).hld_residence_date_1_month),2,'0'));
3228 g_body_tbl(g_assact_tbl(i)).o_hld_residence_date_1_dd := pay_jp_report_pkg.cnv_siz('h',2 ,lpad(to_char(l_data_tbl(i).hld_residence_date_1_day),2,'0'));
3229 g_body_tbl(g_assact_tbl(i)).o_hld_loan_count := pay_jp_report_pkg.cnv_siz('h',1 ,l_data_tbl(i).hld_loan_count);
3230 g_body_tbl(g_assact_tbl(i)).o_hld_payable_loan := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).hld_payable_loan);
3231 g_body_tbl(g_assact_tbl(i)).o_hld_loan_type_1 := pay_jp_report_pkg.cnv_siz('h',2 ,l_data_tbl(i).hld_loan_type_1);
3232 g_body_tbl(g_assact_tbl(i)).o_hld_loan_balance_1 := pay_jp_report_pkg.cnv_siz('h',8 ,l_data_tbl(i).hld_loan_balance_1);
3233 g_body_tbl(g_assact_tbl(i)).o_hld_residence_date_2_yy := pay_jp_report_pkg.cnv_siz('h',2 ,lpad(to_char(l_data_tbl(i).hld_residence_date_2_year),2,'0'));
3234 g_body_tbl(g_assact_tbl(i)).o_hld_residence_date_2_mm := pay_jp_report_pkg.cnv_siz('h',2 ,lpad(to_char(l_data_tbl(i).hld_residence_date_2_month),2,'0'));
3235 g_body_tbl(g_assact_tbl(i)).o_hld_residence_date_2_dd := pay_jp_report_pkg.cnv_siz('h',2 ,lpad(to_char(l_data_tbl(i).hld_residence_date_2_day),2,'0'));
3236 g_body_tbl(g_assact_tbl(i)).o_hld_loan_type_2 := pay_jp_report_pkg.cnv_siz('h',2 ,l_data_tbl(i).hld_loan_type_2);
3237 g_body_tbl(g_assact_tbl(i)).o_hld_loan_balance_2 := pay_jp_report_pkg.cnv_siz('h',8 ,l_data_tbl(i).hld_loan_balance_2);
3238 g_body_tbl(g_assact_tbl(i)).o_description := pay_jp_report_pkg.cnv_siz('z',l_desc_chr_len,pay_jp_report_pkg.cnv_str(l_original_description));
3239 g_body_tbl(g_assact_tbl(i)).o_num_junior_deps := pay_jp_report_pkg.cnv_siz('h',2 ,l_data_tbl(i).num_junior_deps);
3240 g_body_tbl(g_assact_tbl(i)).o_gen_collecting := pay_jp_report_pkg.cnv_siz('h',1 ,c_gen_collecting);
3241 g_body_tbl(g_assact_tbl(i)).o_blue_proprietor := pay_jp_report_pkg.cnv_siz('h',1 ,c_blue_proprietor);
3242 g_body_tbl(g_assact_tbl(i)).o_immune := pay_jp_report_pkg.cnv_siz('h',1 ,c_immune);
3243 g_body_tbl(g_assact_tbl(i)).o_full_name_kana := pay_jp_report_pkg.cnv_siz('h',60 ,pay_jp_report_pkg.csvspchar(pay_jp_report_pkg.cnv_str(l_full_name_kana)));
3244 g_body_tbl(g_assact_tbl(i)).o_employee_number := pay_jp_report_pkg.cnv_siz('h',25 ,pay_jp_report_pkg.csvspchar(pay_jp_report_pkg.cnv_str(l_data_tbl(i).employee_number)));
3245 g_body_tbl(g_assact_tbl(i)).o_district_code := pay_jp_report_pkg.cnv_siz('h',6 ,l_district_code);
3246 g_body_tbl(g_assact_tbl(i)).o_swot_number := pay_jp_report_pkg.cnv_siz('h',12 ,pay_jp_report_pkg.csvspchar(pay_jp_report_pkg.cnv_str(l_data_tbl(i).swot_number)));
3247
3248 g_body_tbl(g_assact_tbl(i)).o_new_life_ins_prem := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).new_life_ins_prem);
3249 g_body_tbl(g_assact_tbl(i)).o_old_life_ins_prem := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).old_life_ins_prem);
3250 g_body_tbl(g_assact_tbl(i)).o_new_care_med_prem := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).new_care_med_prem);
3251 g_body_tbl(g_assact_tbl(i)).o_new_pens_ins_prem := pay_jp_report_pkg.cnv_siz('h',10 ,l_data_tbl(i).new_pens_ins_prem);
3252 --
3253 -- warning data setup
3254 --
3255 g_body_tbl(g_assact_tbl(i)).long_description := null;
3256 if g_show_warning is null
3257 or g_show_warning = 'Y' then
3258 --
3259 if g_body_tbl(g_assact_tbl(i)).o_description <> hr_jp_standard_pkg.to_zenkaku(pay_jp_report_pkg.cnv_str(l_original_description)) then
3260 --
3261 g_warning_exist := 'Y';
3262 g_body_tbl(g_assact_tbl(i)).long_description := hr_jp_standard_pkg.to_zenkaku(pay_jp_report_pkg.cnv_str(l_original_description));
3263 --
3264 end if;
3265 --
3266 end if;
3267 --
3268 -- sumamry data setup
3269 --
3270 if g_show_summary is null
3271 or g_show_summary = 'Y' then
3272 --
3273 if l_district_code_chg then
3274 --
3275 l_summary_tbl_cnt := l_summary_tbl_cnt + 1;
3276 --
3277 g_summary_tbl(l_summary_tbl_cnt).file_name := l_file_name;
3278 g_summary_tbl(l_summary_tbl_cnt).district_code := l_district_code;
3279 --
3280 end if;
3281 --
3282 --
3283 -- override to leave last record
3284 --
3285 g_summary_tbl(l_summary_tbl_cnt).itax_org_cnt := l_itax_org_cnt;
3286 g_summary_tbl(l_summary_tbl_cnt).emp_cnt := l_emp_cnt;
3287 g_summary_tbl(l_summary_tbl_cnt).term_emp_cnt := l_term_emp_cnt;
3288 --
3289 end if;
3290 --
3291 end loop;
3292 --
3293 if g_debug
3294 and g_detail_debug = 'Y' then
3295 hr_utility.set_location(l_proc,60);
3296 hr_utility.trace('g_file_tbl.count : '||to_char(g_file_tbl.count));
3297 end if;
3298 --
3299 -- file open cannot be done here because of utl_file open file max 50
3300 --
3301 if g_debug
3302 and g_detail_debug = 'Y' then
3303 --
3304 if g_assact_tbl.count > 0 then
3305 --
3306 for i in 1..g_assact_tbl.count loop
3307 --
3308 hr_utility.trace('g_assact_tbl : '||to_char(i)||
3309 ' : '||to_char(g_assact_tbl(i))||' - g_body_tbl.mag_assignment_action_id : '||
3310 to_char(g_body_tbl(g_assact_tbl(i)).mag_assignment_action_id));
3311 --
3312 end loop;
3313 --
3314 else
3315 hr_utility.trace('g_assact_tbl.count is 0');
3316 end if;
3317 --
3318 hr_utility.set_location(l_proc,70);
3319 --
3320 if g_file_tbl.count > 0 then
3321 --
3322 for i in 1..g_file_tbl.count loop
3323 --
3324 hr_utility.trace('g_file_tbl : '||to_char(i)||' : '||g_file_tbl(i).file_name);
3325 --
3326 end loop;
3327 --
3328 else
3329 hr_utility.trace('g_file_tbl.count is 0');
3330 end if;
3331 --
3332 hr_utility.set_location(l_proc,80);
3333 --
3334 end if;
3335 --
3336 if g_debug then
3337 --
3338 hr_utility.trace('g_assact_tbl.count : '||to_char(g_assact_tbl.count));
3339 hr_utility.trace('g_file_tbl.count : '||to_char(g_file_tbl.count));
3340 hr_utility.trace('g_body_tbl.count : '||to_char(g_body_tbl.count));
3341 hr_utility.trace('g_warning_exist : '||g_warning_exist);
3342 hr_utility.trace('g_summary_tbl.count : '||to_char(g_summary_tbl.count));
3343 --
3344 hr_utility.set_location(l_proc,1000);
3345 --
3346 end if;
3347 --
3348 end archinit;
3349 --
3350 -- -------------------------------------------------------------------------
3351 -- init_assact
3352 -- -------------------------------------------------------------------------
3353 --procedure init_assact(
3354 -- p_assignment_action_id in number,
3355 -- p_assignment_id in number)
3356 --is
3357 ----
3358 -- l_proc varchar2(80) := c_package||'init_assact';
3359 ----
3360 --begin
3361 ----
3362 -- if g_debug
3363 -- and g_detail_debug = 'Y' then
3364 -- hr_utility.set_location(l_proc,0);
3365 -- end if;
3366 ----
3367 -- if g_assignment_action_id is null
3368 -- or g_assignment_action_id <> p_assignment_action_id then
3369 -- --
3370 -- if g_debug
3371 -- and g_detail_debug = 'Y' then
3372 -- hr_utility.set_location(l_proc,10);
3373 -- hr_utility.trace('no cache : g_assact_id('||g_assignment_action_id||'),p_assact_id('||p_assignment_action_id||')');
3374 -- end if;
3375 -- --
3376 -- g_assignment_action_id := p_assignment_action_id;
3377 -- g_assignment_id := p_assignment_id;
3378 -- --
3379 -- end if;
3380 -- --
3381 -- if g_debug
3382 -- and g_detail_debug = 'Y' then
3383 -- hr_utility.trace('assignment_action_id : '||g_assignment_action_id);
3384 -- hr_utility.trace('assignment_id : '||g_assignment_id);
3385 -- hr_utility.set_location(l_proc,1000);
3386 -- end if;
3387 ----
3388 --end init_assact;
3389 --
3390 -- -------------------------------------------------------------------------
3391 -- archive_assact
3392 -- -------------------------------------------------------------------------
3393 --procedure archive_assact(
3394 -- p_assignment_action_id in number,
3395 -- p_assignment_id in number)
3396 --is
3397 ----
3398 -- l_proc varchar2(80) := c_package||'archive_assact';
3399 ----
3400 --begin
3401 ----
3402 -- if g_debug
3403 -- and g_detail_debug = 'Y' then
3404 -- hr_utility.set_location(l_proc,0);
3405 -- end if;
3406 ----
3407 -- if g_debug
3408 -- and g_detail_debug = 'Y' then
3409 -- hr_utility.set_location(l_proc,1000);
3410 -- end if;
3411 ----
3412 --end archive_assact;
3413 --
3414 -- -------------------------------------------------------------------------
3415 -- xml_assact
3416 -- -------------------------------------------------------------------------
3417 procedure xml_assact(
3418 p_assignment_action_id in number)
3419 is
3420 --
3421 l_proc varchar2(80) := c_package||'xml_assact';
3422 --
3423 l_mag_assignment_action_id number;
3424 l_original_description varchar2(32767);
3425 --
3426 l_xml_assact varchar2(32767);
3427 --
3428 l_address varchar2(500);
3429 --
3430 cursor csr_per(
3431 cp_assignment_id number,
3432 cp_effective_date date,
3433 cp_adr_effective_date date)
3434 is
3435 select per.employee_number,
3436 nvl(adrr.address_id, adrc.address_id) address_id,
3437 rtrim(substrb(decode(adrr.address_id, null,
3438 adrc.region_1 || adrc.region_2 || adrc.region_3,
3439 adrr.region_1 || adrr.region_2 || adrr.region_3), 1, 240)) address_kana,
3440 rtrim(substrb(decode(adrr.address_id, null,
3441 adrc.address_line1 || adrc.address_line2 || adrc.address_line3,
3442 adrr.address_line1 || adrr.address_line2 || adrr.address_line3), 1, 240)) address_kanji,
3443 decode(adrr.address_id, null, adrc.country, adrr.country) country,
3444 decode(adrr.address_id, null, adrc.town_or_city, adrr.town_or_city) district_code,
3445 asg.organization_id
3446 from per_all_assignments_f asg,
3447 per_all_people_f per,
3448 per_addresses adrr,
3449 per_addresses adrc
3450 where asg.assignment_id = cp_assignment_id
3451 and cp_effective_date
3452 between asg.effective_start_date and asg.effective_end_date
3453 and per.person_id = asg.person_id
3454 and cp_effective_date
3455 between per.effective_start_date and per.effective_end_date
3456 and adrr.person_id(+) = per.person_id
3457 and adrr.address_type(+) = 'JP_R'
3458 and cp_adr_effective_date
3459 between adrr.date_from(+) and nvl(adrr.date_to(+), cp_adr_effective_date)
3460 and adrc.person_id(+) = per.person_id
3461 and adrc.address_type(+) = 'JP_C'
3462 and cp_adr_effective_date
3463 between adrc.date_from(+) and nvl(adrc.date_to(+), cp_adr_effective_date);
3464
3465 l_per_rec csr_per%rowtype;
3466
3467 begin
3468 --
3469 if g_debug
3470 and g_detail_debug = 'Y' then
3471 hr_utility.set_location(l_proc,0);
3472 hr_utility.trace('p_assignment_action_id : '||to_char(p_assignment_action_id));
3473 end if;
3474 --
3475 l_mag_assignment_action_id := g_body_tbl(p_assignment_action_id).mag_assignment_action_id;
3476 --
3477 if l_mag_assignment_action_id is not null
3478 and l_mag_assignment_action_id = p_assignment_action_id then
3479 --
3480 if g_debug
3481 and g_detail_debug = 'Y' then
3482 --
3483 --
3484 if g_effective_yyyy < 2009 then
3485 --
3486 hr_utility.trace(pay_jp_report_pkg.add_tag ('d1', g_body_tbl(p_assignment_action_id).o_form_number ));
3487 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d2', g_body_tbl(p_assignment_action_id).o_itax_org_serial1 ));
3488 hr_utility.trace(pay_jp_report_pkg.add_tag ('d3', g_body_tbl(p_assignment_action_id).o_itax_org_cnt ));
3489 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d4', g_body_tbl(p_assignment_action_id).o_itax_org_address ));
3490 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d5', g_body_tbl(p_assignment_action_id).o_itax_org_name ));
3491 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d6', g_body_tbl(p_assignment_action_id).o_itax_org_phone ));
3492 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d7', g_body_tbl(p_assignment_action_id).o_itax_org_serial2 ));
3493 hr_utility.trace(pay_jp_report_pkg.add_tag ('d8', g_body_tbl(p_assignment_action_id).o_itax_hq_address ));
3494 hr_utility.trace(pay_jp_report_pkg.add_tag ('d9', g_body_tbl(p_assignment_action_id).o_itax_hq_name ));
3495 hr_utility.trace(pay_jp_report_pkg.add_tag ('d10',g_body_tbl(p_assignment_action_id).o_amend_flag ));
3496 hr_utility.trace(pay_jp_report_pkg.add_tag ('d11',g_body_tbl(p_assignment_action_id).o_target_yy ));
3497 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d12',g_body_tbl(p_assignment_action_id).o_address ));
3498 hr_utility.trace(pay_jp_report_pkg.add_tag ('d13',g_body_tbl(p_assignment_action_id).o_address_jp ));
3499 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d14',g_body_tbl(p_assignment_action_id).o_full_name ));
3500 hr_utility.trace(pay_jp_report_pkg.add_tag ('d15',g_body_tbl(p_assignment_action_id).o_position ));
3501 hr_utility.trace(pay_jp_report_pkg.add_tag ('d16',g_body_tbl(p_assignment_action_id).o_assortment ));
3502 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d17',g_body_tbl(p_assignment_action_id).o_taxable_income ));
3503 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d18',g_body_tbl(p_assignment_action_id).o_unpaid_income ));
3504 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d19',g_body_tbl(p_assignment_action_id).o_net_taxable_income ));
3505 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d20',g_body_tbl(p_assignment_action_id).o_total_income_exempt ));
3506 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d21',g_body_tbl(p_assignment_action_id).o_withholding_itax ));
3507 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d22',g_body_tbl(p_assignment_action_id).o_uncollected_itax ));
3508 hr_utility.trace(pay_jp_report_pkg.add_tag ('d23',g_body_tbl(p_assignment_action_id).o_dep_spouse ));
3509 hr_utility.trace(pay_jp_report_pkg.add_tag ('d24',g_body_tbl(p_assignment_action_id).o_aged_spouse ));
3510 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d25',g_body_tbl(p_assignment_action_id).o_spouse_sp_exempt ));
3511 hr_utility.trace(pay_jp_report_pkg.add_tag ('d26',g_body_tbl(p_assignment_action_id).o_num_specifieds_kou ));
3512 hr_utility.trace(pay_jp_report_pkg.add_tag ('d27',g_body_tbl(p_assignment_action_id).o_num_specifieds_otsu ));
3513 hr_utility.trace(pay_jp_report_pkg.add_tag ('d28',g_body_tbl(p_assignment_action_id).o_num_ageds_kou ));
3514 hr_utility.trace(pay_jp_report_pkg.add_tag ('d29',g_body_tbl(p_assignment_action_id).o_num_aged_parents_lt ));
3515 hr_utility.trace(pay_jp_report_pkg.add_tag ('d30',g_body_tbl(p_assignment_action_id).o_num_ageds_otsu ));
3516 hr_utility.trace(pay_jp_report_pkg.add_tag ('d31',g_body_tbl(p_assignment_action_id).o_num_deps_kou ));
3517 hr_utility.trace(pay_jp_report_pkg.add_tag ('d32',g_body_tbl(p_assignment_action_id).o_num_deps_otsu ));
3518 hr_utility.trace(pay_jp_report_pkg.add_tag ('d33',g_body_tbl(p_assignment_action_id).o_num_svr_disableds ));
3519 hr_utility.trace(pay_jp_report_pkg.add_tag ('d34',g_body_tbl(p_assignment_action_id).o_num_svr_disableds_lt ));
3520 hr_utility.trace(pay_jp_report_pkg.add_tag ('d35',g_body_tbl(p_assignment_action_id).o_num_disableds ));
3521 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d36',g_body_tbl(p_assignment_action_id).o_si_prem ));
3522 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d37',g_body_tbl(p_assignment_action_id).o_mutual_aid_prem ));
3523 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d38',g_body_tbl(p_assignment_action_id).o_li_prem_exempt ));
3524 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d39',g_body_tbl(p_assignment_action_id).o_ai_prem_exempt ));
3525 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d40',g_body_tbl(p_assignment_action_id).o_housing_tax_reduction ));
3526 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d41',g_body_tbl(p_assignment_action_id).o_pp_prem ));
3527 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d42',g_body_tbl(p_assignment_action_id).o_spouse_net_taxable_income));
3528 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d43',g_body_tbl(p_assignment_action_id).o_long_ai_prem ));
3529 hr_utility.trace(pay_jp_report_pkg.add_tag ('d44',g_body_tbl(p_assignment_action_id).o_birth_date_era ));
3530 hr_utility.trace(pay_jp_report_pkg.add_tag ('d45',g_body_tbl(p_assignment_action_id).o_birth_date_yy ));
3531 hr_utility.trace(pay_jp_report_pkg.add_tag ('d46',g_body_tbl(p_assignment_action_id).o_birth_date_mm ));
3532 hr_utility.trace(pay_jp_report_pkg.add_tag ('d47',g_body_tbl(p_assignment_action_id).o_birth_date_dd ));
3533 hr_utility.trace(pay_jp_report_pkg.add_tag ('d48',g_body_tbl(p_assignment_action_id).o_husband_exists ));
3534 hr_utility.trace(pay_jp_report_pkg.add_tag ('d49',g_body_tbl(p_assignment_action_id).o_minor ));
3535 hr_utility.trace(pay_jp_report_pkg.add_tag ('d50',g_body_tbl(p_assignment_action_id).o_otsu ));
3536 hr_utility.trace(pay_jp_report_pkg.add_tag ('d51',g_body_tbl(p_assignment_action_id).o_svr_disabled ));
3537 hr_utility.trace(pay_jp_report_pkg.add_tag ('d52',g_body_tbl(p_assignment_action_id).o_disabled ));
3538 hr_utility.trace(pay_jp_report_pkg.add_tag ('d53',g_body_tbl(p_assignment_action_id).o_aged ));
3539 hr_utility.trace(pay_jp_report_pkg.add_tag ('d54',g_body_tbl(p_assignment_action_id).o_widow ));
3540 hr_utility.trace(pay_jp_report_pkg.add_tag ('d55',g_body_tbl(p_assignment_action_id).o_widower ));
3541 hr_utility.trace(pay_jp_report_pkg.add_tag ('d56',g_body_tbl(p_assignment_action_id).o_working_student ));
3542 hr_utility.trace(pay_jp_report_pkg.add_tag ('d57',g_body_tbl(p_assignment_action_id).o_deceased_termination ));
3543 hr_utility.trace(pay_jp_report_pkg.add_tag ('d58',g_body_tbl(p_assignment_action_id).o_disastered ));
3544 hr_utility.trace(pay_jp_report_pkg.add_tag ('d59',g_body_tbl(p_assignment_action_id).o_foreigner ));
3545 hr_utility.trace(pay_jp_report_pkg.add_tag ('d60',g_body_tbl(p_assignment_action_id).o_employed ));
3546 hr_utility.trace(pay_jp_report_pkg.add_tag ('d61',g_body_tbl(p_assignment_action_id).o_employed_yy ));
3547 hr_utility.trace(pay_jp_report_pkg.add_tag ('d62',g_body_tbl(p_assignment_action_id).o_employed_mm ));
3548 hr_utility.trace(pay_jp_report_pkg.add_tag ('d63',g_body_tbl(p_assignment_action_id).o_employed_dd ));
3549 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d64',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address ));
3550 hr_utility.trace(pay_jp_report_pkg.add_tag ('d65',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address_jp ));
3551 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d66',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_full_name ));
3552 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d67',g_body_tbl(p_assignment_action_id).o_pjob_taxable_income ));
3553 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d68',g_body_tbl(p_assignment_action_id).o_pjob_itax ));
3554 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d69',g_body_tbl(p_assignment_action_id).o_pjob_si_prem ));
3555 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d70',g_body_tbl(p_assignment_action_id).o_disaster_tax_reduction ));
3556 hr_utility.trace(pay_jp_report_pkg.add_tag ('d71',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_yy ));
3557 hr_utility.trace(pay_jp_report_pkg.add_tag ('d72',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_mm ));
3558 hr_utility.trace(pay_jp_report_pkg.add_tag ('d73',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_dd ));
3559 hr_utility.trace(pay_jp_report_pkg.add_tag ('d74',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_yy ));
3560 hr_utility.trace(pay_jp_report_pkg.add_tag ('d75',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_mm ));
3561 hr_utility.trace(pay_jp_report_pkg.add_tag ('d76',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_dd ));
3562 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d77',g_body_tbl(p_assignment_action_id).o_description ));
3563 hr_utility.trace(pay_jp_report_pkg.add_tag ('d78',g_body_tbl(p_assignment_action_id).o_gen_collecting ));
3564 hr_utility.trace(pay_jp_report_pkg.add_tag ('d79',g_body_tbl(p_assignment_action_id).o_blue_proprietor ));
3565 hr_utility.trace(pay_jp_report_pkg.add_tag ('d80',g_body_tbl(p_assignment_action_id).o_immune ));
3566 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d81',g_body_tbl(p_assignment_action_id).o_full_name_kana ));
3567 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d82',g_body_tbl(p_assignment_action_id).o_employee_number ));
3568 hr_utility.trace(pay_jp_report_pkg.add_tag ('d83',g_body_tbl(p_assignment_action_id).o_district_code ));
3569 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d84',g_body_tbl(p_assignment_action_id).o_swot_number ));
3570 --
3571 elsif g_effective_yyyy >= 2009 and g_effective_yyyy < 2011 then
3572 --
3573 hr_utility.trace(pay_jp_report_pkg.add_tag ('d1', g_body_tbl(p_assignment_action_id).o_form_number ));
3574 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d2', g_body_tbl(p_assignment_action_id).o_itax_org_serial1 ));
3575 hr_utility.trace(pay_jp_report_pkg.add_tag ('d3', g_body_tbl(p_assignment_action_id).o_itax_org_cnt ));
3576 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d4', g_body_tbl(p_assignment_action_id).o_itax_org_address ));
3577 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d5', g_body_tbl(p_assignment_action_id).o_itax_org_name ));
3578 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d6', g_body_tbl(p_assignment_action_id).o_itax_org_phone ));
3579 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d7', g_body_tbl(p_assignment_action_id).o_itax_org_serial2 ));
3580 hr_utility.trace(pay_jp_report_pkg.add_tag ('d8', g_body_tbl(p_assignment_action_id).o_itax_hq_address ));
3581 hr_utility.trace(pay_jp_report_pkg.add_tag ('d9', g_body_tbl(p_assignment_action_id).o_itax_hq_name ));
3582 hr_utility.trace(pay_jp_report_pkg.add_tag ('d10',g_body_tbl(p_assignment_action_id).o_amend_flag ));
3583 hr_utility.trace(pay_jp_report_pkg.add_tag ('d11',g_body_tbl(p_assignment_action_id).o_target_yy ));
3584 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d12',g_body_tbl(p_assignment_action_id).o_address ));
3585 hr_utility.trace(pay_jp_report_pkg.add_tag ('d13',g_body_tbl(p_assignment_action_id).o_address_jp ));
3586 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d14',g_body_tbl(p_assignment_action_id).o_full_name ));
3587 hr_utility.trace(pay_jp_report_pkg.add_tag ('d15',g_body_tbl(p_assignment_action_id).o_position ));
3588 hr_utility.trace(pay_jp_report_pkg.add_tag ('d16',g_body_tbl(p_assignment_action_id).o_assortment ));
3589 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d17',g_body_tbl(p_assignment_action_id).o_taxable_income ));
3590 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d18',g_body_tbl(p_assignment_action_id).o_unpaid_income ));
3591 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d19',g_body_tbl(p_assignment_action_id).o_net_taxable_income ));
3592 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d20',g_body_tbl(p_assignment_action_id).o_total_income_exempt ));
3593 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d21',g_body_tbl(p_assignment_action_id).o_withholding_itax ));
3594 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d22',g_body_tbl(p_assignment_action_id).o_uncollected_itax ));
3595 hr_utility.trace(pay_jp_report_pkg.add_tag ('d23',g_body_tbl(p_assignment_action_id).o_dep_spouse ));
3596 hr_utility.trace(pay_jp_report_pkg.add_tag ('d24',g_body_tbl(p_assignment_action_id).o_aged_spouse ));
3597 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d25',g_body_tbl(p_assignment_action_id).o_spouse_sp_exempt ));
3598 hr_utility.trace(pay_jp_report_pkg.add_tag ('d26',g_body_tbl(p_assignment_action_id).o_num_specifieds_kou ));
3599 hr_utility.trace(pay_jp_report_pkg.add_tag ('d27',g_body_tbl(p_assignment_action_id).o_num_specifieds_otsu ));
3600 hr_utility.trace(pay_jp_report_pkg.add_tag ('d28',g_body_tbl(p_assignment_action_id).o_num_ageds_kou ));
3601 hr_utility.trace(pay_jp_report_pkg.add_tag ('d29',g_body_tbl(p_assignment_action_id).o_num_aged_parents_lt ));
3602 hr_utility.trace(pay_jp_report_pkg.add_tag ('d30',g_body_tbl(p_assignment_action_id).o_num_ageds_otsu ));
3603 hr_utility.trace(pay_jp_report_pkg.add_tag ('d31',g_body_tbl(p_assignment_action_id).o_num_deps_kou ));
3604 hr_utility.trace(pay_jp_report_pkg.add_tag ('d32',g_body_tbl(p_assignment_action_id).o_num_deps_otsu ));
3605 hr_utility.trace(pay_jp_report_pkg.add_tag ('d33',g_body_tbl(p_assignment_action_id).o_num_svr_disableds ));
3606 hr_utility.trace(pay_jp_report_pkg.add_tag ('d34',g_body_tbl(p_assignment_action_id).o_num_svr_disableds_lt ));
3607 hr_utility.trace(pay_jp_report_pkg.add_tag ('d35',g_body_tbl(p_assignment_action_id).o_num_disableds ));
3608 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d36',g_body_tbl(p_assignment_action_id).o_si_prem ));
3609 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d37',g_body_tbl(p_assignment_action_id).o_mutual_aid_prem ));
3610 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d38',g_body_tbl(p_assignment_action_id).o_li_prem_exempt ));
3611 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d39',g_body_tbl(p_assignment_action_id).o_ai_prem_exempt ));
3612 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d40',g_body_tbl(p_assignment_action_id).o_housing_tax_reduction ));
3613 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d41',g_body_tbl(p_assignment_action_id).o_pp_prem ));
3614 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d42',g_body_tbl(p_assignment_action_id).o_spouse_net_taxable_income));
3615 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d43',g_body_tbl(p_assignment_action_id).o_long_ai_prem ));
3616 hr_utility.trace(pay_jp_report_pkg.add_tag ('d44',g_body_tbl(p_assignment_action_id).o_birth_date_era ));
3617 hr_utility.trace(pay_jp_report_pkg.add_tag ('d45',g_body_tbl(p_assignment_action_id).o_birth_date_yy ));
3618 hr_utility.trace(pay_jp_report_pkg.add_tag ('d46',g_body_tbl(p_assignment_action_id).o_birth_date_mm ));
3619 hr_utility.trace(pay_jp_report_pkg.add_tag ('d47',g_body_tbl(p_assignment_action_id).o_birth_date_dd ));
3620 hr_utility.trace(pay_jp_report_pkg.add_tag ('d48',g_body_tbl(p_assignment_action_id).o_husband_exists ));
3621 hr_utility.trace(pay_jp_report_pkg.add_tag ('d49',g_body_tbl(p_assignment_action_id).o_minor ));
3622 hr_utility.trace(pay_jp_report_pkg.add_tag ('d50',g_body_tbl(p_assignment_action_id).o_otsu ));
3623 hr_utility.trace(pay_jp_report_pkg.add_tag ('d51',g_body_tbl(p_assignment_action_id).o_svr_disabled ));
3624 hr_utility.trace(pay_jp_report_pkg.add_tag ('d52',g_body_tbl(p_assignment_action_id).o_disabled ));
3625 hr_utility.trace(pay_jp_report_pkg.add_tag ('d53',g_body_tbl(p_assignment_action_id).o_aged ));
3626 hr_utility.trace(pay_jp_report_pkg.add_tag ('d54',g_body_tbl(p_assignment_action_id).o_widow ));
3627 hr_utility.trace(pay_jp_report_pkg.add_tag ('d55',g_body_tbl(p_assignment_action_id).o_widower ));
3628 hr_utility.trace(pay_jp_report_pkg.add_tag ('d56',g_body_tbl(p_assignment_action_id).o_working_student ));
3629 hr_utility.trace(pay_jp_report_pkg.add_tag ('d57',g_body_tbl(p_assignment_action_id).o_deceased_termination ));
3630 hr_utility.trace(pay_jp_report_pkg.add_tag ('d58',g_body_tbl(p_assignment_action_id).o_disastered ));
3631 hr_utility.trace(pay_jp_report_pkg.add_tag ('d59',g_body_tbl(p_assignment_action_id).o_foreigner ));
3632 hr_utility.trace(pay_jp_report_pkg.add_tag ('d60',g_body_tbl(p_assignment_action_id).o_employed ));
3633 hr_utility.trace(pay_jp_report_pkg.add_tag ('d61',g_body_tbl(p_assignment_action_id).o_employed_yy ));
3634 hr_utility.trace(pay_jp_report_pkg.add_tag ('d62',g_body_tbl(p_assignment_action_id).o_employed_mm ));
3635 hr_utility.trace(pay_jp_report_pkg.add_tag ('d63',g_body_tbl(p_assignment_action_id).o_employed_dd ));
3636 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d64',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address ));
3637 hr_utility.trace(pay_jp_report_pkg.add_tag ('d65',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address_jp ));
3638 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d66',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_full_name ));
3639 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d67',g_body_tbl(p_assignment_action_id).o_pjob_taxable_income ));
3640 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d68',g_body_tbl(p_assignment_action_id).o_pjob_itax ));
3641 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d69',g_body_tbl(p_assignment_action_id).o_pjob_si_prem ));
3642 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d70',g_body_tbl(p_assignment_action_id).o_disaster_tax_reduction ));
3643 hr_utility.trace(pay_jp_report_pkg.add_tag ('d71',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_yy ));
3644 hr_utility.trace(pay_jp_report_pkg.add_tag ('d72',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_mm ));
3645 hr_utility.trace(pay_jp_report_pkg.add_tag ('d73',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_dd ));
3646 hr_utility.trace(pay_jp_report_pkg.add_tag ('d74',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_yy ));
3647 hr_utility.trace(pay_jp_report_pkg.add_tag ('d75',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_mm ));
3648 hr_utility.trace(pay_jp_report_pkg.add_tag ('d76',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_dd ));
3649 hr_utility.trace(pay_jp_report_pkg.add_tag ('d77',g_body_tbl(p_assignment_action_id).o_hld_loan_count ));
3650 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d78',g_body_tbl(p_assignment_action_id).o_hld_payable_loan ));
3651 hr_utility.trace(pay_jp_report_pkg.add_tag ('d79',g_body_tbl(p_assignment_action_id).o_hld_loan_type_1 ));
3652 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d80',g_body_tbl(p_assignment_action_id).o_hld_loan_balance_1 ));
3653 hr_utility.trace(pay_jp_report_pkg.add_tag ('d81',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_yy ));
3654 hr_utility.trace(pay_jp_report_pkg.add_tag ('d82',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_mm ));
3655 hr_utility.trace(pay_jp_report_pkg.add_tag ('d83',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_dd ));
3656 hr_utility.trace(pay_jp_report_pkg.add_tag ('d84',g_body_tbl(p_assignment_action_id).o_hld_loan_type_2 ));
3657 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d85',g_body_tbl(p_assignment_action_id).o_hld_loan_balance_2 ));
3658 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d86',g_body_tbl(p_assignment_action_id).o_description ));
3659 hr_utility.trace(pay_jp_report_pkg.add_tag ('d87',g_body_tbl(p_assignment_action_id).o_gen_collecting ));
3660 hr_utility.trace(pay_jp_report_pkg.add_tag ('d88',g_body_tbl(p_assignment_action_id).o_blue_proprietor ));
3661 hr_utility.trace(pay_jp_report_pkg.add_tag ('d89',g_body_tbl(p_assignment_action_id).o_immune ));
3662 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d90',g_body_tbl(p_assignment_action_id).o_full_name_kana ));
3663 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d91',g_body_tbl(p_assignment_action_id).o_employee_number ));
3664 hr_utility.trace(pay_jp_report_pkg.add_tag ('d92',g_body_tbl(p_assignment_action_id).o_district_code ));
3665 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d93',g_body_tbl(p_assignment_action_id).o_swot_number ));
3666 --
3667 elsif g_effective_yyyy >= 2011 and g_effective_yyyy < 2012 then
3668 --
3669 hr_utility.trace(pay_jp_report_pkg.add_tag ('d1', g_body_tbl(p_assignment_action_id).o_form_number ));
3670 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d2', g_body_tbl(p_assignment_action_id).o_itax_org_serial1 ));
3671 hr_utility.trace(pay_jp_report_pkg.add_tag ('d3', g_body_tbl(p_assignment_action_id).o_itax_org_cnt ));
3672 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d4', g_body_tbl(p_assignment_action_id).o_itax_org_address ));
3673 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d5', g_body_tbl(p_assignment_action_id).o_itax_org_name ));
3674 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d6', g_body_tbl(p_assignment_action_id).o_itax_org_phone ));
3675 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d7', g_body_tbl(p_assignment_action_id).o_itax_org_serial2 ));
3676 hr_utility.trace(pay_jp_report_pkg.add_tag ('d8', g_body_tbl(p_assignment_action_id).o_itax_hq_address ));
3677 hr_utility.trace(pay_jp_report_pkg.add_tag ('d9', g_body_tbl(p_assignment_action_id).o_itax_hq_name ));
3678 hr_utility.trace(pay_jp_report_pkg.add_tag ('d10',g_body_tbl(p_assignment_action_id).o_amend_flag ));
3679 hr_utility.trace(pay_jp_report_pkg.add_tag ('d11',g_body_tbl(p_assignment_action_id).o_target_yy ));
3680 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d12',g_body_tbl(p_assignment_action_id).o_address ));
3681 hr_utility.trace(pay_jp_report_pkg.add_tag ('d13',g_body_tbl(p_assignment_action_id).o_address_jp ));
3682 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d14',g_body_tbl(p_assignment_action_id).o_full_name ));
3683 hr_utility.trace(pay_jp_report_pkg.add_tag ('d15',g_body_tbl(p_assignment_action_id).o_position ));
3684 hr_utility.trace(pay_jp_report_pkg.add_tag ('d16',g_body_tbl(p_assignment_action_id).o_assortment ));
3685 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d17',g_body_tbl(p_assignment_action_id).o_taxable_income ));
3686 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d18',g_body_tbl(p_assignment_action_id).o_unpaid_income ));
3687 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d19',g_body_tbl(p_assignment_action_id).o_net_taxable_income ));
3688 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d20',g_body_tbl(p_assignment_action_id).o_total_income_exempt ));
3689 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d21',g_body_tbl(p_assignment_action_id).o_withholding_itax ));
3690 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d22',g_body_tbl(p_assignment_action_id).o_uncollected_itax ));
3691 hr_utility.trace(pay_jp_report_pkg.add_tag ('d23',g_body_tbl(p_assignment_action_id).o_dep_spouse ));
3692 hr_utility.trace(pay_jp_report_pkg.add_tag ('d24',g_body_tbl(p_assignment_action_id).o_aged_spouse ));
3693 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d25',g_body_tbl(p_assignment_action_id).o_spouse_sp_exempt ));
3694 hr_utility.trace(pay_jp_report_pkg.add_tag ('d26',g_body_tbl(p_assignment_action_id).o_num_specifieds_kou ));
3695 hr_utility.trace(pay_jp_report_pkg.add_tag ('d27',g_body_tbl(p_assignment_action_id).o_num_specifieds_otsu ));
3696 hr_utility.trace(pay_jp_report_pkg.add_tag ('d28',g_body_tbl(p_assignment_action_id).o_num_ageds_kou ));
3697 hr_utility.trace(pay_jp_report_pkg.add_tag ('d29',g_body_tbl(p_assignment_action_id).o_num_aged_parents_lt ));
3698 hr_utility.trace(pay_jp_report_pkg.add_tag ('d30',g_body_tbl(p_assignment_action_id).o_num_ageds_otsu ));
3699 hr_utility.trace(pay_jp_report_pkg.add_tag ('d31',g_body_tbl(p_assignment_action_id).o_num_deps_kou ));
3700 hr_utility.trace(pay_jp_report_pkg.add_tag ('d32',g_body_tbl(p_assignment_action_id).o_num_deps_otsu ));
3701 hr_utility.trace(pay_jp_report_pkg.add_tag ('d33',g_body_tbl(p_assignment_action_id).o_num_svr_disableds ));
3702 hr_utility.trace(pay_jp_report_pkg.add_tag ('d34',g_body_tbl(p_assignment_action_id).o_num_svr_disableds_lt ));
3703 hr_utility.trace(pay_jp_report_pkg.add_tag ('d35',g_body_tbl(p_assignment_action_id).o_num_disableds ));
3704 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d36',g_body_tbl(p_assignment_action_id).o_si_prem ));
3705 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d37',g_body_tbl(p_assignment_action_id).o_mutual_aid_prem ));
3706 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d38',g_body_tbl(p_assignment_action_id).o_li_prem_exempt ));
3707 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d39',g_body_tbl(p_assignment_action_id).o_ai_prem_exempt ));
3708 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d40',g_body_tbl(p_assignment_action_id).o_housing_tax_reduction ));
3709 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d41',g_body_tbl(p_assignment_action_id).o_pp_prem ));
3710 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d42',g_body_tbl(p_assignment_action_id).o_spouse_net_taxable_income));
3711 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d43',g_body_tbl(p_assignment_action_id).o_long_ai_prem ));
3712 hr_utility.trace(pay_jp_report_pkg.add_tag ('d44',g_body_tbl(p_assignment_action_id).o_birth_date_era ));
3713 hr_utility.trace(pay_jp_report_pkg.add_tag ('d45',g_body_tbl(p_assignment_action_id).o_birth_date_yy ));
3714 hr_utility.trace(pay_jp_report_pkg.add_tag ('d46',g_body_tbl(p_assignment_action_id).o_birth_date_mm ));
3715 hr_utility.trace(pay_jp_report_pkg.add_tag ('d47',g_body_tbl(p_assignment_action_id).o_birth_date_dd ));
3716 hr_utility.trace(pay_jp_report_pkg.add_tag ('d48',g_body_tbl(p_assignment_action_id).o_husband_exists ));
3717 hr_utility.trace(pay_jp_report_pkg.add_tag ('d49',g_body_tbl(p_assignment_action_id).o_minor ));
3718 hr_utility.trace(pay_jp_report_pkg.add_tag ('d50',g_body_tbl(p_assignment_action_id).o_otsu ));
3719 hr_utility.trace(pay_jp_report_pkg.add_tag ('d51',g_body_tbl(p_assignment_action_id).o_svr_disabled ));
3720 hr_utility.trace(pay_jp_report_pkg.add_tag ('d52',g_body_tbl(p_assignment_action_id).o_disabled ));
3721 hr_utility.trace(pay_jp_report_pkg.add_tag ('d53',g_body_tbl(p_assignment_action_id).o_aged ));
3722 hr_utility.trace(pay_jp_report_pkg.add_tag ('d54',g_body_tbl(p_assignment_action_id).o_widow ));
3723 hr_utility.trace(pay_jp_report_pkg.add_tag ('d55',g_body_tbl(p_assignment_action_id).o_widower ));
3724 hr_utility.trace(pay_jp_report_pkg.add_tag ('d56',g_body_tbl(p_assignment_action_id).o_working_student ));
3725 hr_utility.trace(pay_jp_report_pkg.add_tag ('d57',g_body_tbl(p_assignment_action_id).o_deceased_termination ));
3726 hr_utility.trace(pay_jp_report_pkg.add_tag ('d58',g_body_tbl(p_assignment_action_id).o_disastered ));
3727 hr_utility.trace(pay_jp_report_pkg.add_tag ('d59',g_body_tbl(p_assignment_action_id).o_foreigner ));
3728 hr_utility.trace(pay_jp_report_pkg.add_tag ('d60',g_body_tbl(p_assignment_action_id).o_employed ));
3729 hr_utility.trace(pay_jp_report_pkg.add_tag ('d61',g_body_tbl(p_assignment_action_id).o_employed_yy ));
3730 hr_utility.trace(pay_jp_report_pkg.add_tag ('d62',g_body_tbl(p_assignment_action_id).o_employed_mm ));
3731 hr_utility.trace(pay_jp_report_pkg.add_tag ('d63',g_body_tbl(p_assignment_action_id).o_employed_dd ));
3732 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d64',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address ));
3733 hr_utility.trace(pay_jp_report_pkg.add_tag ('d65',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address_jp ));
3734 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d66',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_full_name ));
3735 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d67',g_body_tbl(p_assignment_action_id).o_pjob_taxable_income ));
3736 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d68',g_body_tbl(p_assignment_action_id).o_pjob_itax ));
3737 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d69',g_body_tbl(p_assignment_action_id).o_pjob_si_prem ));
3738 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d70',g_body_tbl(p_assignment_action_id).o_disaster_tax_reduction ));
3739 hr_utility.trace(pay_jp_report_pkg.add_tag ('d71',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_yy ));
3740 hr_utility.trace(pay_jp_report_pkg.add_tag ('d72',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_mm ));
3741 hr_utility.trace(pay_jp_report_pkg.add_tag ('d73',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_dd ));
3742 hr_utility.trace(pay_jp_report_pkg.add_tag ('d74',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_yy ));
3743 hr_utility.trace(pay_jp_report_pkg.add_tag ('d75',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_mm ));
3744 hr_utility.trace(pay_jp_report_pkg.add_tag ('d76',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_dd ));
3745 hr_utility.trace(pay_jp_report_pkg.add_tag ('d77',g_body_tbl(p_assignment_action_id).o_hld_loan_count ));
3746 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d78',g_body_tbl(p_assignment_action_id).o_hld_payable_loan ));
3747 hr_utility.trace(pay_jp_report_pkg.add_tag ('d79',g_body_tbl(p_assignment_action_id).o_hld_loan_type_1 ));
3748 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d80',g_body_tbl(p_assignment_action_id).o_hld_loan_balance_1 ));
3749 hr_utility.trace(pay_jp_report_pkg.add_tag ('d81',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_yy ));
3750 hr_utility.trace(pay_jp_report_pkg.add_tag ('d82',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_mm ));
3751 hr_utility.trace(pay_jp_report_pkg.add_tag ('d83',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_dd ));
3752 hr_utility.trace(pay_jp_report_pkg.add_tag ('d84',g_body_tbl(p_assignment_action_id).o_hld_loan_type_2 ));
3753 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d85',g_body_tbl(p_assignment_action_id).o_hld_loan_balance_2 ));
3754 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d86',g_body_tbl(p_assignment_action_id).o_description ));
3755 hr_utility.trace(pay_jp_report_pkg.add_tag ('d87',g_body_tbl(p_assignment_action_id).o_num_junior_deps ));
3756 hr_utility.trace(pay_jp_report_pkg.add_tag ('d88',g_body_tbl(p_assignment_action_id).o_gen_collecting ));
3757 hr_utility.trace(pay_jp_report_pkg.add_tag ('d89',g_body_tbl(p_assignment_action_id).o_blue_proprietor ));
3758 hr_utility.trace(pay_jp_report_pkg.add_tag ('d90',g_body_tbl(p_assignment_action_id).o_immune ));
3759 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d91',g_body_tbl(p_assignment_action_id).o_full_name_kana ));
3760 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d92',g_body_tbl(p_assignment_action_id).o_employee_number ));
3761 hr_utility.trace(pay_jp_report_pkg.add_tag ('d93',g_body_tbl(p_assignment_action_id).o_district_code ));
3762 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d94',g_body_tbl(p_assignment_action_id).o_swot_number ));
3763 --
3764 else
3765 --
3766 hr_utility.trace(pay_jp_report_pkg.add_tag ('d1', g_body_tbl(p_assignment_action_id).o_form_number ));
3767 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d2', g_body_tbl(p_assignment_action_id).o_itax_org_serial1 ));
3768 hr_utility.trace(pay_jp_report_pkg.add_tag ('d3', g_body_tbl(p_assignment_action_id).o_itax_org_cnt ));
3769 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d4', g_body_tbl(p_assignment_action_id).o_itax_org_address ));
3770 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d5', g_body_tbl(p_assignment_action_id).o_itax_org_name ));
3771 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d6', g_body_tbl(p_assignment_action_id).o_itax_org_phone ));
3772 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d7', g_body_tbl(p_assignment_action_id).o_itax_org_serial2 ));
3773 hr_utility.trace(pay_jp_report_pkg.add_tag ('d8', g_body_tbl(p_assignment_action_id).o_itax_hq_address ));
3774 hr_utility.trace(pay_jp_report_pkg.add_tag ('d9', g_body_tbl(p_assignment_action_id).o_itax_hq_name ));
3775 hr_utility.trace(pay_jp_report_pkg.add_tag ('d10',g_body_tbl(p_assignment_action_id).o_amend_flag ));
3776 hr_utility.trace(pay_jp_report_pkg.add_tag ('d11',g_body_tbl(p_assignment_action_id).o_target_yy ));
3777 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d12',g_body_tbl(p_assignment_action_id).o_address ));
3778 hr_utility.trace(pay_jp_report_pkg.add_tag ('d13',g_body_tbl(p_assignment_action_id).o_address_jp ));
3779 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d14',g_body_tbl(p_assignment_action_id).o_full_name ));
3780 hr_utility.trace(pay_jp_report_pkg.add_tag ('d15',g_body_tbl(p_assignment_action_id).o_position ));
3781 hr_utility.trace(pay_jp_report_pkg.add_tag ('d16',g_body_tbl(p_assignment_action_id).o_assortment ));
3782 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d17',g_body_tbl(p_assignment_action_id).o_taxable_income ));
3783 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d18',g_body_tbl(p_assignment_action_id).o_unpaid_income ));
3784 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d19',g_body_tbl(p_assignment_action_id).o_net_taxable_income ));
3785 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d20',g_body_tbl(p_assignment_action_id).o_total_income_exempt ));
3786 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d21',g_body_tbl(p_assignment_action_id).o_withholding_itax ));
3787 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d22',g_body_tbl(p_assignment_action_id).o_uncollected_itax ));
3788 hr_utility.trace(pay_jp_report_pkg.add_tag ('d23',g_body_tbl(p_assignment_action_id).o_dep_spouse ));
3789 hr_utility.trace(pay_jp_report_pkg.add_tag ('d24',g_body_tbl(p_assignment_action_id).o_aged_spouse ));
3790 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d25',g_body_tbl(p_assignment_action_id).o_spouse_sp_exempt ));
3791 hr_utility.trace(pay_jp_report_pkg.add_tag ('d26',g_body_tbl(p_assignment_action_id).o_num_specifieds_kou ));
3792 hr_utility.trace(pay_jp_report_pkg.add_tag ('d27',g_body_tbl(p_assignment_action_id).o_num_specifieds_otsu ));
3793 hr_utility.trace(pay_jp_report_pkg.add_tag ('d28',g_body_tbl(p_assignment_action_id).o_num_ageds_kou ));
3794 hr_utility.trace(pay_jp_report_pkg.add_tag ('d29',g_body_tbl(p_assignment_action_id).o_num_aged_parents_lt ));
3795 hr_utility.trace(pay_jp_report_pkg.add_tag ('d30',g_body_tbl(p_assignment_action_id).o_num_ageds_otsu ));
3796 hr_utility.trace(pay_jp_report_pkg.add_tag ('d31',g_body_tbl(p_assignment_action_id).o_num_deps_kou ));
3797 hr_utility.trace(pay_jp_report_pkg.add_tag ('d32',g_body_tbl(p_assignment_action_id).o_num_deps_otsu ));
3798 hr_utility.trace(pay_jp_report_pkg.add_tag ('d33',g_body_tbl(p_assignment_action_id).o_num_svr_disableds ));
3799 hr_utility.trace(pay_jp_report_pkg.add_tag ('d34',g_body_tbl(p_assignment_action_id).o_num_svr_disableds_lt ));
3800 hr_utility.trace(pay_jp_report_pkg.add_tag ('d35',g_body_tbl(p_assignment_action_id).o_num_disableds ));
3801 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d36',g_body_tbl(p_assignment_action_id).o_si_prem ));
3802 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d37',g_body_tbl(p_assignment_action_id).o_mutual_aid_prem ));
3803 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d38',g_body_tbl(p_assignment_action_id).o_li_prem_exempt ));
3804 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d39',g_body_tbl(p_assignment_action_id).o_ai_prem_exempt ));
3805 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d40',g_body_tbl(p_assignment_action_id).o_housing_tax_reduction ));
3806 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d41',g_body_tbl(p_assignment_action_id).o_pp_prem ));
3807 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d42',g_body_tbl(p_assignment_action_id).o_spouse_net_taxable_income));
3808 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d43',g_body_tbl(p_assignment_action_id).o_long_ai_prem ));
3809 hr_utility.trace(pay_jp_report_pkg.add_tag ('d44',g_body_tbl(p_assignment_action_id).o_birth_date_era ));
3810 hr_utility.trace(pay_jp_report_pkg.add_tag ('d45',g_body_tbl(p_assignment_action_id).o_birth_date_yy ));
3811 hr_utility.trace(pay_jp_report_pkg.add_tag ('d46',g_body_tbl(p_assignment_action_id).o_birth_date_mm ));
3812 hr_utility.trace(pay_jp_report_pkg.add_tag ('d47',g_body_tbl(p_assignment_action_id).o_birth_date_dd ));
3813 hr_utility.trace(pay_jp_report_pkg.add_tag ('d48',g_body_tbl(p_assignment_action_id).o_husband_exists ));
3814 hr_utility.trace(pay_jp_report_pkg.add_tag ('d49',g_body_tbl(p_assignment_action_id).o_minor ));
3815 hr_utility.trace(pay_jp_report_pkg.add_tag ('d50',g_body_tbl(p_assignment_action_id).o_otsu ));
3816 hr_utility.trace(pay_jp_report_pkg.add_tag ('d51',g_body_tbl(p_assignment_action_id).o_svr_disabled ));
3817 hr_utility.trace(pay_jp_report_pkg.add_tag ('d52',g_body_tbl(p_assignment_action_id).o_disabled ));
3818 hr_utility.trace(pay_jp_report_pkg.add_tag ('d53',g_body_tbl(p_assignment_action_id).o_aged ));
3819 hr_utility.trace(pay_jp_report_pkg.add_tag ('d54',g_body_tbl(p_assignment_action_id).o_widow ));
3820 hr_utility.trace(pay_jp_report_pkg.add_tag ('d55',g_body_tbl(p_assignment_action_id).o_widower ));
3821 hr_utility.trace(pay_jp_report_pkg.add_tag ('d56',g_body_tbl(p_assignment_action_id).o_working_student ));
3822 hr_utility.trace(pay_jp_report_pkg.add_tag ('d57',g_body_tbl(p_assignment_action_id).o_deceased_termination ));
3823 hr_utility.trace(pay_jp_report_pkg.add_tag ('d58',g_body_tbl(p_assignment_action_id).o_disastered ));
3824 hr_utility.trace(pay_jp_report_pkg.add_tag ('d59',g_body_tbl(p_assignment_action_id).o_foreigner ));
3825 hr_utility.trace(pay_jp_report_pkg.add_tag ('d60',g_body_tbl(p_assignment_action_id).o_employed ));
3826 hr_utility.trace(pay_jp_report_pkg.add_tag ('d61',g_body_tbl(p_assignment_action_id).o_employed_yy ));
3827 hr_utility.trace(pay_jp_report_pkg.add_tag ('d62',g_body_tbl(p_assignment_action_id).o_employed_mm ));
3828 hr_utility.trace(pay_jp_report_pkg.add_tag ('d63',g_body_tbl(p_assignment_action_id).o_employed_dd ));
3829 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d64',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address ));
3830 hr_utility.trace(pay_jp_report_pkg.add_tag ('d65',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address_jp ));
3831 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d66',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_full_name ));
3832 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d67',g_body_tbl(p_assignment_action_id).o_pjob_taxable_income ));
3833 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d68',g_body_tbl(p_assignment_action_id).o_pjob_itax ));
3834 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d69',g_body_tbl(p_assignment_action_id).o_pjob_si_prem ));
3835 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d70',g_body_tbl(p_assignment_action_id).o_disaster_tax_reduction ));
3836 hr_utility.trace(pay_jp_report_pkg.add_tag ('d71',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_yy ));
3837 hr_utility.trace(pay_jp_report_pkg.add_tag ('d72',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_mm ));
3838 hr_utility.trace(pay_jp_report_pkg.add_tag ('d73',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_dd ));
3839 hr_utility.trace(pay_jp_report_pkg.add_tag ('d74',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_yy ));
3840 hr_utility.trace(pay_jp_report_pkg.add_tag ('d75',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_mm ));
3841 hr_utility.trace(pay_jp_report_pkg.add_tag ('d76',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_dd ));
3842 hr_utility.trace(pay_jp_report_pkg.add_tag ('d77',g_body_tbl(p_assignment_action_id).o_hld_loan_count ));
3843 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d78',g_body_tbl(p_assignment_action_id).o_hld_payable_loan ));
3844 hr_utility.trace(pay_jp_report_pkg.add_tag ('d79',g_body_tbl(p_assignment_action_id).o_hld_loan_type_1 ));
3845 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d80',g_body_tbl(p_assignment_action_id).o_hld_loan_balance_1 ));
3846 hr_utility.trace(pay_jp_report_pkg.add_tag ('d81',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_yy ));
3847 hr_utility.trace(pay_jp_report_pkg.add_tag ('d82',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_mm ));
3848 hr_utility.trace(pay_jp_report_pkg.add_tag ('d83',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_dd ));
3849 hr_utility.trace(pay_jp_report_pkg.add_tag ('d84',g_body_tbl(p_assignment_action_id).o_hld_loan_type_2 ));
3850 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d85',g_body_tbl(p_assignment_action_id).o_hld_loan_balance_2 ));
3851 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d86',g_body_tbl(p_assignment_action_id).o_description ));
3852 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d87',g_body_tbl(p_assignment_action_id).o_new_life_ins_prem ));
3853 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d88',g_body_tbl(p_assignment_action_id).o_old_life_ins_prem ));
3854 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d89',g_body_tbl(p_assignment_action_id).o_new_care_med_prem ));
3855 hr_utility.trace(pay_jp_report_pkg.add_tag_m('d90',g_body_tbl(p_assignment_action_id).o_new_pens_ins_prem ));
3856 hr_utility.trace(pay_jp_report_pkg.add_tag ('d91',g_body_tbl(p_assignment_action_id).o_num_junior_deps ));
3857 hr_utility.trace(pay_jp_report_pkg.add_tag ('d92',g_body_tbl(p_assignment_action_id).o_gen_collecting ));
3858 hr_utility.trace(pay_jp_report_pkg.add_tag ('d93',g_body_tbl(p_assignment_action_id).o_blue_proprietor ));
3859 hr_utility.trace(pay_jp_report_pkg.add_tag ('d94',g_body_tbl(p_assignment_action_id).o_immune ));
3860 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d95',g_body_tbl(p_assignment_action_id).o_full_name_kana ));
3861 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d96',g_body_tbl(p_assignment_action_id).o_employee_number ));
3862 hr_utility.trace(pay_jp_report_pkg.add_tag ('d97',g_body_tbl(p_assignment_action_id).o_district_code ));
3863 hr_utility.trace(pay_jp_report_pkg.add_tag_v('d98',g_body_tbl(p_assignment_action_id).o_swot_number ));
3864 --
3865 end if;
3866 --
3867 end if;
3868 --
3869 if g_effective_yyyy < 2009 then
3870 --
3871 l_xml_assact :=
3872 '<g_emp>'||c_eol||
3873 pay_jp_report_pkg.add_tag ('d1', g_body_tbl(p_assignment_action_id).o_form_number )||c_eol||
3874 pay_jp_report_pkg.add_tag_v('d2', g_body_tbl(p_assignment_action_id).o_itax_org_serial1 )||c_eol||
3875 pay_jp_report_pkg.add_tag ('d3', g_body_tbl(p_assignment_action_id).o_itax_org_cnt )||c_eol||
3876 pay_jp_report_pkg.add_tag_v('d4', g_body_tbl(p_assignment_action_id).o_itax_org_address )||c_eol||
3877 pay_jp_report_pkg.add_tag_v('d5', g_body_tbl(p_assignment_action_id).o_itax_org_name )||c_eol||
3878 pay_jp_report_pkg.add_tag_v('d6', g_body_tbl(p_assignment_action_id).o_itax_org_phone )||c_eol||
3879 pay_jp_report_pkg.add_tag_v('d7', g_body_tbl(p_assignment_action_id).o_itax_org_serial2 )||c_eol||
3880 pay_jp_report_pkg.add_tag ('d8', g_body_tbl(p_assignment_action_id).o_itax_hq_address )||c_eol||
3881 pay_jp_report_pkg.add_tag ('d9', g_body_tbl(p_assignment_action_id).o_itax_hq_name )||c_eol||
3882 pay_jp_report_pkg.add_tag ('d10',g_body_tbl(p_assignment_action_id).o_amend_flag )||c_eol||
3883 pay_jp_report_pkg.add_tag ('d11',g_body_tbl(p_assignment_action_id).o_target_yy )||c_eol||
3884 pay_jp_report_pkg.add_tag_v('d12',g_body_tbl(p_assignment_action_id).o_address )||c_eol||
3885 pay_jp_report_pkg.add_tag ('d13',g_body_tbl(p_assignment_action_id).o_address_jp )||c_eol||
3886 pay_jp_report_pkg.add_tag_v('d14',g_body_tbl(p_assignment_action_id).o_full_name )||c_eol||
3887 pay_jp_report_pkg.add_tag ('d15',g_body_tbl(p_assignment_action_id).o_position )||c_eol||
3888 pay_jp_report_pkg.add_tag ('d16',g_body_tbl(p_assignment_action_id).o_assortment )||c_eol||
3889 pay_jp_report_pkg.add_tag_m('d17',g_body_tbl(p_assignment_action_id).o_taxable_income )||c_eol||
3890 pay_jp_report_pkg.add_tag_m('d18',g_body_tbl(p_assignment_action_id).o_unpaid_income )||c_eol||
3891 pay_jp_report_pkg.add_tag_m('d19',g_body_tbl(p_assignment_action_id).o_net_taxable_income )||c_eol||
3892 pay_jp_report_pkg.add_tag_m('d20',g_body_tbl(p_assignment_action_id).o_total_income_exempt )||c_eol||
3893 pay_jp_report_pkg.add_tag_m('d21',g_body_tbl(p_assignment_action_id).o_withholding_itax )||c_eol||
3894 pay_jp_report_pkg.add_tag_m('d22',g_body_tbl(p_assignment_action_id).o_uncollected_itax )||c_eol||
3895 pay_jp_report_pkg.add_tag ('d23',g_body_tbl(p_assignment_action_id).o_dep_spouse )||c_eol||
3896 pay_jp_report_pkg.add_tag ('d24',g_body_tbl(p_assignment_action_id).o_aged_spouse )||c_eol||
3897 pay_jp_report_pkg.add_tag_m('d25',g_body_tbl(p_assignment_action_id).o_spouse_sp_exempt )||c_eol||
3898 pay_jp_report_pkg.add_tag ('d26',g_body_tbl(p_assignment_action_id).o_num_specifieds_kou )||c_eol||
3899 pay_jp_report_pkg.add_tag ('d27',g_body_tbl(p_assignment_action_id).o_num_specifieds_otsu )||c_eol||
3900 pay_jp_report_pkg.add_tag ('d28',g_body_tbl(p_assignment_action_id).o_num_ageds_kou )||c_eol||
3901 pay_jp_report_pkg.add_tag ('d29',g_body_tbl(p_assignment_action_id).o_num_aged_parents_lt )||c_eol||
3902 pay_jp_report_pkg.add_tag ('d30',g_body_tbl(p_assignment_action_id).o_num_ageds_otsu )||c_eol||
3903 pay_jp_report_pkg.add_tag ('d31',g_body_tbl(p_assignment_action_id).o_num_deps_kou )||c_eol||
3904 pay_jp_report_pkg.add_tag ('d32',g_body_tbl(p_assignment_action_id).o_num_deps_otsu )||c_eol||
3905 pay_jp_report_pkg.add_tag ('d33',g_body_tbl(p_assignment_action_id).o_num_svr_disableds )||c_eol||
3906 pay_jp_report_pkg.add_tag ('d34',g_body_tbl(p_assignment_action_id).o_num_svr_disableds_lt )||c_eol||
3907 pay_jp_report_pkg.add_tag ('d35',g_body_tbl(p_assignment_action_id).o_num_disableds )||c_eol||
3908 pay_jp_report_pkg.add_tag_m('d36',g_body_tbl(p_assignment_action_id).o_si_prem )||c_eol||
3909 pay_jp_report_pkg.add_tag_m('d37',g_body_tbl(p_assignment_action_id).o_mutual_aid_prem )||c_eol||
3910 pay_jp_report_pkg.add_tag_m('d38',g_body_tbl(p_assignment_action_id).o_li_prem_exempt )||c_eol||
3911 pay_jp_report_pkg.add_tag_m('d39',g_body_tbl(p_assignment_action_id).o_ai_prem_exempt )||c_eol||
3912 pay_jp_report_pkg.add_tag_m('d40',g_body_tbl(p_assignment_action_id).o_housing_tax_reduction )||c_eol||
3913 pay_jp_report_pkg.add_tag_m('d41',g_body_tbl(p_assignment_action_id).o_pp_prem )||c_eol||
3914 pay_jp_report_pkg.add_tag_m('d42',g_body_tbl(p_assignment_action_id).o_spouse_net_taxable_income)||c_eol||
3915 pay_jp_report_pkg.add_tag_m('d43',g_body_tbl(p_assignment_action_id).o_long_ai_prem )||c_eol||
3916 pay_jp_report_pkg.add_tag ('d44',g_body_tbl(p_assignment_action_id).o_birth_date_era )||c_eol||
3917 pay_jp_report_pkg.add_tag ('d45',g_body_tbl(p_assignment_action_id).o_birth_date_yy )||c_eol||
3918 pay_jp_report_pkg.add_tag ('d46',g_body_tbl(p_assignment_action_id).o_birth_date_mm )||c_eol||
3919 pay_jp_report_pkg.add_tag ('d47',g_body_tbl(p_assignment_action_id).o_birth_date_dd )||c_eol||
3920 pay_jp_report_pkg.add_tag ('d48',g_body_tbl(p_assignment_action_id).o_husband_exists )||c_eol||
3921 pay_jp_report_pkg.add_tag ('d49',g_body_tbl(p_assignment_action_id).o_minor )||c_eol||
3922 pay_jp_report_pkg.add_tag ('d50',g_body_tbl(p_assignment_action_id).o_otsu )||c_eol||
3923 pay_jp_report_pkg.add_tag ('d51',g_body_tbl(p_assignment_action_id).o_svr_disabled )||c_eol||
3924 pay_jp_report_pkg.add_tag ('d52',g_body_tbl(p_assignment_action_id).o_disabled )||c_eol||
3925 pay_jp_report_pkg.add_tag ('d53',g_body_tbl(p_assignment_action_id).o_aged )||c_eol||
3926 pay_jp_report_pkg.add_tag ('d54',g_body_tbl(p_assignment_action_id).o_widow )||c_eol||
3927 pay_jp_report_pkg.add_tag ('d55',g_body_tbl(p_assignment_action_id).o_widower )||c_eol||
3928 pay_jp_report_pkg.add_tag ('d56',g_body_tbl(p_assignment_action_id).o_working_student )||c_eol||
3929 pay_jp_report_pkg.add_tag ('d57',g_body_tbl(p_assignment_action_id).o_deceased_termination )||c_eol||
3930 pay_jp_report_pkg.add_tag ('d58',g_body_tbl(p_assignment_action_id).o_disastered )||c_eol||
3931 pay_jp_report_pkg.add_tag ('d59',g_body_tbl(p_assignment_action_id).o_foreigner )||c_eol||
3932 pay_jp_report_pkg.add_tag ('d60',g_body_tbl(p_assignment_action_id).o_employed )||c_eol||
3933 pay_jp_report_pkg.add_tag ('d61',g_body_tbl(p_assignment_action_id).o_employed_yy )||c_eol||
3934 pay_jp_report_pkg.add_tag ('d62',g_body_tbl(p_assignment_action_id).o_employed_mm )||c_eol||
3935 pay_jp_report_pkg.add_tag ('d63',g_body_tbl(p_assignment_action_id).o_employed_dd )||c_eol||
3936 pay_jp_report_pkg.add_tag_v('d64',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address )||c_eol||
3937 pay_jp_report_pkg.add_tag ('d65',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address_jp )||c_eol||
3938 pay_jp_report_pkg.add_tag_v('d66',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_full_name )||c_eol||
3939 pay_jp_report_pkg.add_tag_m('d67',g_body_tbl(p_assignment_action_id).o_pjob_taxable_income )||c_eol||
3940 pay_jp_report_pkg.add_tag_m('d68',g_body_tbl(p_assignment_action_id).o_pjob_itax )||c_eol||
3941 pay_jp_report_pkg.add_tag_m('d69',g_body_tbl(p_assignment_action_id).o_pjob_si_prem )||c_eol||
3942 pay_jp_report_pkg.add_tag_m('d70',g_body_tbl(p_assignment_action_id).o_disaster_tax_reduction )||c_eol||
3943 pay_jp_report_pkg.add_tag ('d71',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_yy )||c_eol||
3944 pay_jp_report_pkg.add_tag ('d72',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_mm )||c_eol||
3945 pay_jp_report_pkg.add_tag ('d73',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_dd )||c_eol||
3946 pay_jp_report_pkg.add_tag ('d74',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_yy )||c_eol||
3947 pay_jp_report_pkg.add_tag ('d75',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_mm )||c_eol||
3948 pay_jp_report_pkg.add_tag ('d76',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_dd )||c_eol||
3949 pay_jp_report_pkg.add_tag_v('d77',g_body_tbl(p_assignment_action_id).o_description )||c_eol||
3950 pay_jp_report_pkg.add_tag ('d78',g_body_tbl(p_assignment_action_id).o_gen_collecting )||c_eol||
3951 pay_jp_report_pkg.add_tag ('d79',g_body_tbl(p_assignment_action_id).o_blue_proprietor )||c_eol||
3952 pay_jp_report_pkg.add_tag ('d80',g_body_tbl(p_assignment_action_id).o_immune )||c_eol||
3953 pay_jp_report_pkg.add_tag_v('d81',g_body_tbl(p_assignment_action_id).o_full_name_kana )||c_eol||
3954 pay_jp_report_pkg.add_tag_v('d82',g_body_tbl(p_assignment_action_id).o_employee_number )||c_eol||
3955 pay_jp_report_pkg.add_tag ('d83',g_body_tbl(p_assignment_action_id).o_district_code )||c_eol||
3956 pay_jp_report_pkg.add_tag_v('d84',g_body_tbl(p_assignment_action_id).o_swot_number )||c_eol||
3957 '</g_emp>';
3958 --
3959 elsif g_effective_yyyy >= 2009 and g_effective_yyyy < 2011 then
3960 --
3961 l_xml_assact :=
3962 '<g_emp>'||c_eol||
3963 pay_jp_report_pkg.add_tag ('d1', g_body_tbl(p_assignment_action_id).o_form_number )||c_eol||
3964 pay_jp_report_pkg.add_tag_v('d2', g_body_tbl(p_assignment_action_id).o_itax_org_serial1 )||c_eol||
3965 pay_jp_report_pkg.add_tag ('d3', g_body_tbl(p_assignment_action_id).o_itax_org_cnt )||c_eol||
3966 pay_jp_report_pkg.add_tag_v('d4', g_body_tbl(p_assignment_action_id).o_itax_org_address )||c_eol||
3967 pay_jp_report_pkg.add_tag_v('d5', g_body_tbl(p_assignment_action_id).o_itax_org_name )||c_eol||
3968 pay_jp_report_pkg.add_tag_v('d6', g_body_tbl(p_assignment_action_id).o_itax_org_phone )||c_eol||
3969 pay_jp_report_pkg.add_tag_v('d7', g_body_tbl(p_assignment_action_id).o_itax_org_serial2 )||c_eol||
3970 pay_jp_report_pkg.add_tag ('d8', g_body_tbl(p_assignment_action_id).o_itax_hq_address )||c_eol||
3971 pay_jp_report_pkg.add_tag ('d9', g_body_tbl(p_assignment_action_id).o_itax_hq_name )||c_eol||
3972 pay_jp_report_pkg.add_tag ('d10',g_body_tbl(p_assignment_action_id).o_amend_flag )||c_eol||
3973 pay_jp_report_pkg.add_tag ('d11',g_body_tbl(p_assignment_action_id).o_target_yy )||c_eol||
3974 pay_jp_report_pkg.add_tag_v('d12',g_body_tbl(p_assignment_action_id).o_address )||c_eol||
3975 pay_jp_report_pkg.add_tag ('d13',g_body_tbl(p_assignment_action_id).o_address_jp )||c_eol||
3976 pay_jp_report_pkg.add_tag_v('d14',g_body_tbl(p_assignment_action_id).o_full_name )||c_eol||
3977 pay_jp_report_pkg.add_tag ('d15',g_body_tbl(p_assignment_action_id).o_position )||c_eol||
3978 pay_jp_report_pkg.add_tag ('d16',g_body_tbl(p_assignment_action_id).o_assortment )||c_eol||
3979 pay_jp_report_pkg.add_tag_m('d17',g_body_tbl(p_assignment_action_id).o_taxable_income )||c_eol||
3980 pay_jp_report_pkg.add_tag_m('d18',g_body_tbl(p_assignment_action_id).o_unpaid_income )||c_eol||
3981 pay_jp_report_pkg.add_tag_m('d19',g_body_tbl(p_assignment_action_id).o_net_taxable_income )||c_eol||
3982 pay_jp_report_pkg.add_tag_m('d20',g_body_tbl(p_assignment_action_id).o_total_income_exempt )||c_eol||
3983 pay_jp_report_pkg.add_tag_m('d21',g_body_tbl(p_assignment_action_id).o_withholding_itax )||c_eol||
3984 pay_jp_report_pkg.add_tag_m('d22',g_body_tbl(p_assignment_action_id).o_uncollected_itax )||c_eol||
3985 pay_jp_report_pkg.add_tag ('d23',g_body_tbl(p_assignment_action_id).o_dep_spouse )||c_eol||
3986 pay_jp_report_pkg.add_tag ('d24',g_body_tbl(p_assignment_action_id).o_aged_spouse )||c_eol||
3987 pay_jp_report_pkg.add_tag_m('d25',g_body_tbl(p_assignment_action_id).o_spouse_sp_exempt )||c_eol||
3988 pay_jp_report_pkg.add_tag ('d26',g_body_tbl(p_assignment_action_id).o_num_specifieds_kou )||c_eol||
3989 pay_jp_report_pkg.add_tag ('d27',g_body_tbl(p_assignment_action_id).o_num_specifieds_otsu )||c_eol||
3990 pay_jp_report_pkg.add_tag ('d28',g_body_tbl(p_assignment_action_id).o_num_ageds_kou )||c_eol||
3991 pay_jp_report_pkg.add_tag ('d29',g_body_tbl(p_assignment_action_id).o_num_aged_parents_lt )||c_eol||
3992 pay_jp_report_pkg.add_tag ('d30',g_body_tbl(p_assignment_action_id).o_num_ageds_otsu )||c_eol||
3993 pay_jp_report_pkg.add_tag ('d31',g_body_tbl(p_assignment_action_id).o_num_deps_kou )||c_eol||
3994 pay_jp_report_pkg.add_tag ('d32',g_body_tbl(p_assignment_action_id).o_num_deps_otsu )||c_eol||
3995 pay_jp_report_pkg.add_tag ('d33',g_body_tbl(p_assignment_action_id).o_num_svr_disableds )||c_eol||
3996 pay_jp_report_pkg.add_tag ('d34',g_body_tbl(p_assignment_action_id).o_num_svr_disableds_lt )||c_eol||
3997 pay_jp_report_pkg.add_tag ('d35',g_body_tbl(p_assignment_action_id).o_num_disableds )||c_eol||
3998 pay_jp_report_pkg.add_tag_m('d36',g_body_tbl(p_assignment_action_id).o_si_prem )||c_eol||
3999 pay_jp_report_pkg.add_tag_m('d37',g_body_tbl(p_assignment_action_id).o_mutual_aid_prem )||c_eol||
4000 pay_jp_report_pkg.add_tag_m('d38',g_body_tbl(p_assignment_action_id).o_li_prem_exempt )||c_eol||
4001 pay_jp_report_pkg.add_tag_m('d39',g_body_tbl(p_assignment_action_id).o_ai_prem_exempt )||c_eol||
4002 pay_jp_report_pkg.add_tag_m('d40',g_body_tbl(p_assignment_action_id).o_housing_tax_reduction )||c_eol||
4003 pay_jp_report_pkg.add_tag_m('d41',g_body_tbl(p_assignment_action_id).o_pp_prem )||c_eol||
4004 pay_jp_report_pkg.add_tag_m('d42',g_body_tbl(p_assignment_action_id).o_spouse_net_taxable_income)||c_eol||
4005 pay_jp_report_pkg.add_tag_m('d43',g_body_tbl(p_assignment_action_id).o_long_ai_prem )||c_eol||
4006 pay_jp_report_pkg.add_tag ('d44',g_body_tbl(p_assignment_action_id).o_birth_date_era )||c_eol||
4007 pay_jp_report_pkg.add_tag ('d45',g_body_tbl(p_assignment_action_id).o_birth_date_yy )||c_eol||
4008 pay_jp_report_pkg.add_tag ('d46',g_body_tbl(p_assignment_action_id).o_birth_date_mm )||c_eol||
4009 pay_jp_report_pkg.add_tag ('d47',g_body_tbl(p_assignment_action_id).o_birth_date_dd )||c_eol||
4010 pay_jp_report_pkg.add_tag ('d48',g_body_tbl(p_assignment_action_id).o_husband_exists )||c_eol||
4011 pay_jp_report_pkg.add_tag ('d49',g_body_tbl(p_assignment_action_id).o_minor )||c_eol||
4012 pay_jp_report_pkg.add_tag ('d50',g_body_tbl(p_assignment_action_id).o_otsu )||c_eol||
4013 pay_jp_report_pkg.add_tag ('d51',g_body_tbl(p_assignment_action_id).o_svr_disabled )||c_eol||
4014 pay_jp_report_pkg.add_tag ('d52',g_body_tbl(p_assignment_action_id).o_disabled )||c_eol||
4015 pay_jp_report_pkg.add_tag ('d53',g_body_tbl(p_assignment_action_id).o_aged )||c_eol||
4016 pay_jp_report_pkg.add_tag ('d54',g_body_tbl(p_assignment_action_id).o_widow )||c_eol||
4017 pay_jp_report_pkg.add_tag ('d55',g_body_tbl(p_assignment_action_id).o_widower )||c_eol||
4018 pay_jp_report_pkg.add_tag ('d56',g_body_tbl(p_assignment_action_id).o_working_student )||c_eol||
4019 pay_jp_report_pkg.add_tag ('d57',g_body_tbl(p_assignment_action_id).o_deceased_termination )||c_eol||
4020 pay_jp_report_pkg.add_tag ('d58',g_body_tbl(p_assignment_action_id).o_disastered )||c_eol||
4021 pay_jp_report_pkg.add_tag ('d59',g_body_tbl(p_assignment_action_id).o_foreigner )||c_eol||
4022 pay_jp_report_pkg.add_tag ('d60',g_body_tbl(p_assignment_action_id).o_employed )||c_eol||
4023 pay_jp_report_pkg.add_tag ('d61',g_body_tbl(p_assignment_action_id).o_employed_yy )||c_eol||
4024 pay_jp_report_pkg.add_tag ('d62',g_body_tbl(p_assignment_action_id).o_employed_mm )||c_eol||
4025 pay_jp_report_pkg.add_tag ('d63',g_body_tbl(p_assignment_action_id).o_employed_dd )||c_eol||
4026 pay_jp_report_pkg.add_tag_v('d64',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address )||c_eol||
4027 pay_jp_report_pkg.add_tag ('d65',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address_jp )||c_eol||
4028 pay_jp_report_pkg.add_tag_v('d66',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_full_name )||c_eol||
4029 pay_jp_report_pkg.add_tag_m('d67',g_body_tbl(p_assignment_action_id).o_pjob_taxable_income )||c_eol||
4030 pay_jp_report_pkg.add_tag_m('d68',g_body_tbl(p_assignment_action_id).o_pjob_itax )||c_eol||
4031 pay_jp_report_pkg.add_tag_m('d69',g_body_tbl(p_assignment_action_id).o_pjob_si_prem )||c_eol||
4032 pay_jp_report_pkg.add_tag_m('d70',g_body_tbl(p_assignment_action_id).o_disaster_tax_reduction )||c_eol||
4033 pay_jp_report_pkg.add_tag ('d71',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_yy )||c_eol||
4034 pay_jp_report_pkg.add_tag ('d72',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_mm )||c_eol||
4035 pay_jp_report_pkg.add_tag ('d73',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_dd )||c_eol||
4036 pay_jp_report_pkg.add_tag ('d74',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_yy )||c_eol||
4037 pay_jp_report_pkg.add_tag ('d75',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_mm )||c_eol||
4038 pay_jp_report_pkg.add_tag ('d76',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_dd )||c_eol||
4039 pay_jp_report_pkg.add_tag ('d77',g_body_tbl(p_assignment_action_id).o_hld_loan_count )||c_eol||
4040 pay_jp_report_pkg.add_tag_m('d78',g_body_tbl(p_assignment_action_id).o_hld_payable_loan )||c_eol||
4041 pay_jp_report_pkg.add_tag ('d79',g_body_tbl(p_assignment_action_id).o_hld_loan_type_1 )||c_eol||
4042 pay_jp_report_pkg.add_tag_m('d80',g_body_tbl(p_assignment_action_id).o_hld_loan_balance_1 )||c_eol||
4043 pay_jp_report_pkg.add_tag ('d81',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_yy )||c_eol||
4044 pay_jp_report_pkg.add_tag ('d82',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_mm )||c_eol||
4045 pay_jp_report_pkg.add_tag ('d83',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_dd )||c_eol||
4046 pay_jp_report_pkg.add_tag ('d84',g_body_tbl(p_assignment_action_id).o_hld_loan_type_2 )||c_eol||
4047 pay_jp_report_pkg.add_tag_m('d85',g_body_tbl(p_assignment_action_id).o_hld_loan_balance_2 )||c_eol||
4048 pay_jp_report_pkg.add_tag_v('d86',g_body_tbl(p_assignment_action_id).o_description )||c_eol||
4049 pay_jp_report_pkg.add_tag ('d87',g_body_tbl(p_assignment_action_id).o_gen_collecting )||c_eol||
4050 pay_jp_report_pkg.add_tag ('d88',g_body_tbl(p_assignment_action_id).o_blue_proprietor )||c_eol||
4051 pay_jp_report_pkg.add_tag ('d89',g_body_tbl(p_assignment_action_id).o_immune )||c_eol||
4052 pay_jp_report_pkg.add_tag_v('d90',g_body_tbl(p_assignment_action_id).o_full_name_kana )||c_eol||
4053 pay_jp_report_pkg.add_tag_v('d91',g_body_tbl(p_assignment_action_id).o_employee_number )||c_eol||
4054 pay_jp_report_pkg.add_tag ('d92',g_body_tbl(p_assignment_action_id).o_district_code )||c_eol||
4055 pay_jp_report_pkg.add_tag_v('d93',g_body_tbl(p_assignment_action_id).o_swot_number )||c_eol||
4056 '</g_emp>';
4057 --
4058 elsif g_effective_yyyy >= 2011 and g_effective_yyyy < 2012 then
4059 --
4060 l_xml_assact :=
4061 '<g_emp>'||c_eol||
4062 pay_jp_report_pkg.add_tag ('d1', g_body_tbl(p_assignment_action_id).o_form_number )||c_eol||
4063 pay_jp_report_pkg.add_tag_v('d2', g_body_tbl(p_assignment_action_id).o_itax_org_serial1 )||c_eol||
4064 pay_jp_report_pkg.add_tag ('d3', g_body_tbl(p_assignment_action_id).o_itax_org_cnt )||c_eol||
4065 pay_jp_report_pkg.add_tag_v('d4', g_body_tbl(p_assignment_action_id).o_itax_org_address )||c_eol||
4066 pay_jp_report_pkg.add_tag_v('d5', g_body_tbl(p_assignment_action_id).o_itax_org_name )||c_eol||
4067 pay_jp_report_pkg.add_tag_v('d6', g_body_tbl(p_assignment_action_id).o_itax_org_phone )||c_eol||
4068 pay_jp_report_pkg.add_tag_v('d7', g_body_tbl(p_assignment_action_id).o_itax_org_serial2 )||c_eol||
4069 pay_jp_report_pkg.add_tag ('d8', g_body_tbl(p_assignment_action_id).o_itax_hq_address )||c_eol||
4070 pay_jp_report_pkg.add_tag ('d9', g_body_tbl(p_assignment_action_id).o_itax_hq_name )||c_eol||
4071 pay_jp_report_pkg.add_tag ('d10',g_body_tbl(p_assignment_action_id).o_amend_flag )||c_eol||
4072 pay_jp_report_pkg.add_tag ('d11',g_body_tbl(p_assignment_action_id).o_target_yy )||c_eol||
4073 pay_jp_report_pkg.add_tag_v('d12',g_body_tbl(p_assignment_action_id).o_address )||c_eol||
4074 pay_jp_report_pkg.add_tag ('d13',g_body_tbl(p_assignment_action_id).o_address_jp )||c_eol||
4075 pay_jp_report_pkg.add_tag_v('d14',g_body_tbl(p_assignment_action_id).o_full_name )||c_eol||
4076 pay_jp_report_pkg.add_tag ('d15',g_body_tbl(p_assignment_action_id).o_position )||c_eol||
4077 pay_jp_report_pkg.add_tag ('d16',g_body_tbl(p_assignment_action_id).o_assortment )||c_eol||
4078 pay_jp_report_pkg.add_tag_m('d17',g_body_tbl(p_assignment_action_id).o_taxable_income )||c_eol||
4079 pay_jp_report_pkg.add_tag_m('d18',g_body_tbl(p_assignment_action_id).o_unpaid_income )||c_eol||
4080 pay_jp_report_pkg.add_tag_m('d19',g_body_tbl(p_assignment_action_id).o_net_taxable_income )||c_eol||
4081 pay_jp_report_pkg.add_tag_m('d20',g_body_tbl(p_assignment_action_id).o_total_income_exempt )||c_eol||
4082 pay_jp_report_pkg.add_tag_m('d21',g_body_tbl(p_assignment_action_id).o_withholding_itax )||c_eol||
4083 pay_jp_report_pkg.add_tag_m('d22',g_body_tbl(p_assignment_action_id).o_uncollected_itax )||c_eol||
4084 pay_jp_report_pkg.add_tag ('d23',g_body_tbl(p_assignment_action_id).o_dep_spouse )||c_eol||
4085 pay_jp_report_pkg.add_tag ('d24',g_body_tbl(p_assignment_action_id).o_aged_spouse )||c_eol||
4086 pay_jp_report_pkg.add_tag_m('d25',g_body_tbl(p_assignment_action_id).o_spouse_sp_exempt )||c_eol||
4087 pay_jp_report_pkg.add_tag ('d26',g_body_tbl(p_assignment_action_id).o_num_specifieds_kou )||c_eol||
4088 pay_jp_report_pkg.add_tag ('d27',g_body_tbl(p_assignment_action_id).o_num_specifieds_otsu )||c_eol||
4089 pay_jp_report_pkg.add_tag ('d28',g_body_tbl(p_assignment_action_id).o_num_ageds_kou )||c_eol||
4090 pay_jp_report_pkg.add_tag ('d29',g_body_tbl(p_assignment_action_id).o_num_aged_parents_lt )||c_eol||
4091 pay_jp_report_pkg.add_tag ('d30',g_body_tbl(p_assignment_action_id).o_num_ageds_otsu )||c_eol||
4092 pay_jp_report_pkg.add_tag ('d31',g_body_tbl(p_assignment_action_id).o_num_deps_kou )||c_eol||
4093 pay_jp_report_pkg.add_tag ('d32',g_body_tbl(p_assignment_action_id).o_num_deps_otsu )||c_eol||
4094 pay_jp_report_pkg.add_tag ('d33',g_body_tbl(p_assignment_action_id).o_num_svr_disableds )||c_eol||
4095 pay_jp_report_pkg.add_tag ('d34',g_body_tbl(p_assignment_action_id).o_num_svr_disableds_lt )||c_eol||
4096 pay_jp_report_pkg.add_tag ('d35',g_body_tbl(p_assignment_action_id).o_num_disableds )||c_eol||
4097 pay_jp_report_pkg.add_tag_m('d36',g_body_tbl(p_assignment_action_id).o_si_prem )||c_eol||
4098 pay_jp_report_pkg.add_tag_m('d37',g_body_tbl(p_assignment_action_id).o_mutual_aid_prem )||c_eol||
4099 pay_jp_report_pkg.add_tag_m('d38',g_body_tbl(p_assignment_action_id).o_li_prem_exempt )||c_eol||
4100 pay_jp_report_pkg.add_tag_m('d39',g_body_tbl(p_assignment_action_id).o_ai_prem_exempt )||c_eol||
4101 pay_jp_report_pkg.add_tag_m('d40',g_body_tbl(p_assignment_action_id).o_housing_tax_reduction )||c_eol||
4102 pay_jp_report_pkg.add_tag_m('d41',g_body_tbl(p_assignment_action_id).o_pp_prem )||c_eol||
4103 pay_jp_report_pkg.add_tag_m('d42',g_body_tbl(p_assignment_action_id).o_spouse_net_taxable_income)||c_eol||
4104 pay_jp_report_pkg.add_tag_m('d43',g_body_tbl(p_assignment_action_id).o_long_ai_prem )||c_eol||
4105 pay_jp_report_pkg.add_tag ('d44',g_body_tbl(p_assignment_action_id).o_birth_date_era )||c_eol||
4106 pay_jp_report_pkg.add_tag ('d45',g_body_tbl(p_assignment_action_id).o_birth_date_yy )||c_eol||
4107 pay_jp_report_pkg.add_tag ('d46',g_body_tbl(p_assignment_action_id).o_birth_date_mm )||c_eol||
4108 pay_jp_report_pkg.add_tag ('d47',g_body_tbl(p_assignment_action_id).o_birth_date_dd )||c_eol||
4109 pay_jp_report_pkg.add_tag ('d48',g_body_tbl(p_assignment_action_id).o_husband_exists )||c_eol||
4110 pay_jp_report_pkg.add_tag ('d49',g_body_tbl(p_assignment_action_id).o_minor )||c_eol||
4111 pay_jp_report_pkg.add_tag ('d50',g_body_tbl(p_assignment_action_id).o_otsu )||c_eol||
4112 pay_jp_report_pkg.add_tag ('d51',g_body_tbl(p_assignment_action_id).o_svr_disabled )||c_eol||
4113 pay_jp_report_pkg.add_tag ('d52',g_body_tbl(p_assignment_action_id).o_disabled )||c_eol||
4114 pay_jp_report_pkg.add_tag ('d53',g_body_tbl(p_assignment_action_id).o_aged )||c_eol||
4115 pay_jp_report_pkg.add_tag ('d54',g_body_tbl(p_assignment_action_id).o_widow )||c_eol||
4116 pay_jp_report_pkg.add_tag ('d55',g_body_tbl(p_assignment_action_id).o_widower )||c_eol||
4117 pay_jp_report_pkg.add_tag ('d56',g_body_tbl(p_assignment_action_id).o_working_student )||c_eol||
4118 pay_jp_report_pkg.add_tag ('d57',g_body_tbl(p_assignment_action_id).o_deceased_termination )||c_eol||
4119 pay_jp_report_pkg.add_tag ('d58',g_body_tbl(p_assignment_action_id).o_disastered )||c_eol||
4120 pay_jp_report_pkg.add_tag ('d59',g_body_tbl(p_assignment_action_id).o_foreigner )||c_eol||
4121 pay_jp_report_pkg.add_tag ('d60',g_body_tbl(p_assignment_action_id).o_employed )||c_eol||
4122 pay_jp_report_pkg.add_tag ('d61',g_body_tbl(p_assignment_action_id).o_employed_yy )||c_eol||
4123 pay_jp_report_pkg.add_tag ('d62',g_body_tbl(p_assignment_action_id).o_employed_mm )||c_eol||
4124 pay_jp_report_pkg.add_tag ('d63',g_body_tbl(p_assignment_action_id).o_employed_dd )||c_eol||
4125 pay_jp_report_pkg.add_tag_v('d64',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address )||c_eol||
4126 pay_jp_report_pkg.add_tag ('d65',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address_jp )||c_eol||
4127 pay_jp_report_pkg.add_tag_v('d66',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_full_name )||c_eol||
4128 pay_jp_report_pkg.add_tag_m('d67',g_body_tbl(p_assignment_action_id).o_pjob_taxable_income )||c_eol||
4129 pay_jp_report_pkg.add_tag_m('d68',g_body_tbl(p_assignment_action_id).o_pjob_itax )||c_eol||
4130 pay_jp_report_pkg.add_tag_m('d69',g_body_tbl(p_assignment_action_id).o_pjob_si_prem )||c_eol||
4131 pay_jp_report_pkg.add_tag_m('d70',g_body_tbl(p_assignment_action_id).o_disaster_tax_reduction )||c_eol||
4132 pay_jp_report_pkg.add_tag ('d71',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_yy )||c_eol||
4133 pay_jp_report_pkg.add_tag ('d72',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_mm )||c_eol||
4134 pay_jp_report_pkg.add_tag ('d73',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_dd )||c_eol||
4135 pay_jp_report_pkg.add_tag ('d74',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_yy )||c_eol||
4136 pay_jp_report_pkg.add_tag ('d75',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_mm )||c_eol||
4137 pay_jp_report_pkg.add_tag ('d76',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_dd )||c_eol||
4138 pay_jp_report_pkg.add_tag ('d77',g_body_tbl(p_assignment_action_id).o_hld_loan_count )||c_eol||
4139 pay_jp_report_pkg.add_tag_m('d78',g_body_tbl(p_assignment_action_id).o_hld_payable_loan )||c_eol||
4140 pay_jp_report_pkg.add_tag ('d79',g_body_tbl(p_assignment_action_id).o_hld_loan_type_1 )||c_eol||
4141 pay_jp_report_pkg.add_tag_m('d80',g_body_tbl(p_assignment_action_id).o_hld_loan_balance_1 )||c_eol||
4142 pay_jp_report_pkg.add_tag ('d81',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_yy )||c_eol||
4143 pay_jp_report_pkg.add_tag ('d82',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_mm )||c_eol||
4144 pay_jp_report_pkg.add_tag ('d83',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_dd )||c_eol||
4145 pay_jp_report_pkg.add_tag ('d84',g_body_tbl(p_assignment_action_id).o_hld_loan_type_2 )||c_eol||
4146 pay_jp_report_pkg.add_tag_m('d85',g_body_tbl(p_assignment_action_id).o_hld_loan_balance_2 )||c_eol||
4147 pay_jp_report_pkg.add_tag_v('d86',g_body_tbl(p_assignment_action_id).o_description )||c_eol||
4148 pay_jp_report_pkg.add_tag ('d87',g_body_tbl(p_assignment_action_id).o_num_junior_deps )||c_eol||
4149 pay_jp_report_pkg.add_tag ('d88',g_body_tbl(p_assignment_action_id).o_gen_collecting )||c_eol||
4150 pay_jp_report_pkg.add_tag ('d89',g_body_tbl(p_assignment_action_id).o_blue_proprietor )||c_eol||
4151 pay_jp_report_pkg.add_tag ('d90',g_body_tbl(p_assignment_action_id).o_immune )||c_eol||
4152 pay_jp_report_pkg.add_tag_v('d91',g_body_tbl(p_assignment_action_id).o_full_name_kana )||c_eol||
4153 pay_jp_report_pkg.add_tag_v('d92',g_body_tbl(p_assignment_action_id).o_employee_number )||c_eol||
4154 pay_jp_report_pkg.add_tag ('d93',g_body_tbl(p_assignment_action_id).o_district_code )||c_eol||
4155 pay_jp_report_pkg.add_tag_v('d94',g_body_tbl(p_assignment_action_id).o_swot_number )||c_eol||
4156 '</g_emp>';
4157 --
4158 else
4159 --
4160 if g_body_tbl(p_assignment_action_id).actual_termination_date is not null then
4161
4162 open csr_per(g_body_tbl(p_assignment_action_id).assignment_id,
4163 g_body_tbl(p_assignment_action_id).effective_date,
4164 g_effective_eoy + 1);
4165 fetch csr_per into l_per_rec;
4166 close csr_per;
4167
4168 if g_kana_flag is not null and g_kana_flag = 'Y' then
4169 l_address := hr_jp_standard_pkg.upper_kana(l_per_rec.address_kana);
4170 else
4171 l_address := l_per_rec.address_kanji;
4172 end if;
4173
4174 g_body_tbl(p_assignment_action_id).o_address := pay_jp_report_pkg.cnv_siz('z',60 ,pay_jp_report_pkg.cnv_str(l_address));
4175
4176 end if;
4177
4178 l_xml_assact :=
4179 '<g_emp>'||c_eol||
4180 pay_jp_report_pkg.add_tag ('d1', g_body_tbl(p_assignment_action_id).o_form_number )||c_eol||
4181 pay_jp_report_pkg.add_tag_v('d2', g_body_tbl(p_assignment_action_id).o_itax_org_serial1 )||c_eol||
4182 pay_jp_report_pkg.add_tag ('d3', g_body_tbl(p_assignment_action_id).o_itax_org_cnt )||c_eol||
4183 pay_jp_report_pkg.add_tag_v('d4', g_body_tbl(p_assignment_action_id).o_itax_org_address )||c_eol||
4184 pay_jp_report_pkg.add_tag_v('d5', g_body_tbl(p_assignment_action_id).o_itax_org_name )||c_eol||
4185 pay_jp_report_pkg.add_tag_v('d6', g_body_tbl(p_assignment_action_id).o_itax_org_phone )||c_eol||
4186 pay_jp_report_pkg.add_tag_v('d7', g_body_tbl(p_assignment_action_id).o_itax_org_serial2 )||c_eol||
4187 pay_jp_report_pkg.add_tag ('d8', g_body_tbl(p_assignment_action_id).o_itax_hq_address )||c_eol||
4188 pay_jp_report_pkg.add_tag ('d9', g_body_tbl(p_assignment_action_id).o_itax_hq_name )||c_eol||
4189 pay_jp_report_pkg.add_tag ('d10',g_body_tbl(p_assignment_action_id).o_amend_flag )||c_eol||
4190 pay_jp_report_pkg.add_tag ('d11',g_body_tbl(p_assignment_action_id).o_target_yy )||c_eol||
4191 pay_jp_report_pkg.add_tag_v('d12',g_body_tbl(p_assignment_action_id).o_address )||c_eol||
4192 pay_jp_report_pkg.add_tag ('d13',g_body_tbl(p_assignment_action_id).o_address_jp )||c_eol||
4193 pay_jp_report_pkg.add_tag_v('d14',g_body_tbl(p_assignment_action_id).o_full_name )||c_eol||
4194 pay_jp_report_pkg.add_tag ('d15',g_body_tbl(p_assignment_action_id).o_position )||c_eol||
4195 pay_jp_report_pkg.add_tag ('d16',g_body_tbl(p_assignment_action_id).o_assortment )||c_eol||
4196 pay_jp_report_pkg.add_tag_m('d17',g_body_tbl(p_assignment_action_id).o_taxable_income )||c_eol||
4197 pay_jp_report_pkg.add_tag_m('d18',g_body_tbl(p_assignment_action_id).o_unpaid_income )||c_eol||
4198 pay_jp_report_pkg.add_tag_m('d19',g_body_tbl(p_assignment_action_id).o_net_taxable_income )||c_eol||
4199 pay_jp_report_pkg.add_tag_m('d20',g_body_tbl(p_assignment_action_id).o_total_income_exempt )||c_eol||
4200 pay_jp_report_pkg.add_tag_m('d21',g_body_tbl(p_assignment_action_id).o_withholding_itax )||c_eol||
4201 pay_jp_report_pkg.add_tag_m('d22',g_body_tbl(p_assignment_action_id).o_uncollected_itax )||c_eol||
4202 pay_jp_report_pkg.add_tag ('d23',g_body_tbl(p_assignment_action_id).o_dep_spouse )||c_eol||
4203 pay_jp_report_pkg.add_tag ('d24',g_body_tbl(p_assignment_action_id).o_aged_spouse )||c_eol||
4204 pay_jp_report_pkg.add_tag_m('d25',g_body_tbl(p_assignment_action_id).o_spouse_sp_exempt )||c_eol||
4205 pay_jp_report_pkg.add_tag ('d26',g_body_tbl(p_assignment_action_id).o_num_specifieds_kou )||c_eol||
4206 pay_jp_report_pkg.add_tag ('d27',g_body_tbl(p_assignment_action_id).o_num_specifieds_otsu )||c_eol||
4207 pay_jp_report_pkg.add_tag ('d28',g_body_tbl(p_assignment_action_id).o_num_ageds_kou )||c_eol||
4208 pay_jp_report_pkg.add_tag ('d29',g_body_tbl(p_assignment_action_id).o_num_aged_parents_lt )||c_eol||
4209 pay_jp_report_pkg.add_tag ('d30',g_body_tbl(p_assignment_action_id).o_num_ageds_otsu )||c_eol||
4210 pay_jp_report_pkg.add_tag ('d31',g_body_tbl(p_assignment_action_id).o_num_deps_kou )||c_eol||
4211 pay_jp_report_pkg.add_tag ('d32',g_body_tbl(p_assignment_action_id).o_num_deps_otsu )||c_eol||
4212 pay_jp_report_pkg.add_tag ('d33',g_body_tbl(p_assignment_action_id).o_num_svr_disableds )||c_eol||
4213 pay_jp_report_pkg.add_tag ('d34',g_body_tbl(p_assignment_action_id).o_num_svr_disableds_lt )||c_eol||
4214 pay_jp_report_pkg.add_tag ('d35',g_body_tbl(p_assignment_action_id).o_num_disableds )||c_eol||
4215 pay_jp_report_pkg.add_tag_m('d36',g_body_tbl(p_assignment_action_id).o_si_prem )||c_eol||
4216 pay_jp_report_pkg.add_tag_m('d37',g_body_tbl(p_assignment_action_id).o_mutual_aid_prem )||c_eol||
4217 pay_jp_report_pkg.add_tag_m('d38',g_body_tbl(p_assignment_action_id).o_li_prem_exempt )||c_eol||
4218 pay_jp_report_pkg.add_tag_m('d39',g_body_tbl(p_assignment_action_id).o_ai_prem_exempt )||c_eol||
4219 pay_jp_report_pkg.add_tag_m('d40',g_body_tbl(p_assignment_action_id).o_housing_tax_reduction )||c_eol||
4220 pay_jp_report_pkg.add_tag_m('d41',g_body_tbl(p_assignment_action_id).o_pp_prem )||c_eol||
4221 pay_jp_report_pkg.add_tag_m('d42',g_body_tbl(p_assignment_action_id).o_spouse_net_taxable_income)||c_eol||
4222 pay_jp_report_pkg.add_tag_m('d43',g_body_tbl(p_assignment_action_id).o_long_ai_prem )||c_eol||
4223 pay_jp_report_pkg.add_tag ('d44',g_body_tbl(p_assignment_action_id).o_birth_date_era )||c_eol||
4224 pay_jp_report_pkg.add_tag ('d45',g_body_tbl(p_assignment_action_id).o_birth_date_yy )||c_eol||
4225 pay_jp_report_pkg.add_tag ('d46',g_body_tbl(p_assignment_action_id).o_birth_date_mm )||c_eol||
4226 pay_jp_report_pkg.add_tag ('d47',g_body_tbl(p_assignment_action_id).o_birth_date_dd )||c_eol||
4227 pay_jp_report_pkg.add_tag ('d48',g_body_tbl(p_assignment_action_id).o_husband_exists )||c_eol||
4228 pay_jp_report_pkg.add_tag ('d49',g_body_tbl(p_assignment_action_id).o_minor )||c_eol||
4229 pay_jp_report_pkg.add_tag ('d50',g_body_tbl(p_assignment_action_id).o_otsu )||c_eol||
4230 pay_jp_report_pkg.add_tag ('d51',g_body_tbl(p_assignment_action_id).o_svr_disabled )||c_eol||
4231 pay_jp_report_pkg.add_tag ('d52',g_body_tbl(p_assignment_action_id).o_disabled )||c_eol||
4232 pay_jp_report_pkg.add_tag ('d53',g_body_tbl(p_assignment_action_id).o_aged )||c_eol||
4233 pay_jp_report_pkg.add_tag ('d54',g_body_tbl(p_assignment_action_id).o_widow )||c_eol||
4234 pay_jp_report_pkg.add_tag ('d55',g_body_tbl(p_assignment_action_id).o_widower )||c_eol||
4235 pay_jp_report_pkg.add_tag ('d56',g_body_tbl(p_assignment_action_id).o_working_student )||c_eol||
4236 pay_jp_report_pkg.add_tag ('d57',g_body_tbl(p_assignment_action_id).o_deceased_termination )||c_eol||
4237 pay_jp_report_pkg.add_tag ('d58',g_body_tbl(p_assignment_action_id).o_disastered )||c_eol||
4238 pay_jp_report_pkg.add_tag ('d59',g_body_tbl(p_assignment_action_id).o_foreigner )||c_eol||
4239 pay_jp_report_pkg.add_tag ('d60',g_body_tbl(p_assignment_action_id).o_employed )||c_eol||
4240 pay_jp_report_pkg.add_tag ('d61',g_body_tbl(p_assignment_action_id).o_employed_yy )||c_eol||
4241 pay_jp_report_pkg.add_tag ('d62',g_body_tbl(p_assignment_action_id).o_employed_mm )||c_eol||
4242 pay_jp_report_pkg.add_tag ('d63',g_body_tbl(p_assignment_action_id).o_employed_dd )||c_eol||
4243 pay_jp_report_pkg.add_tag_v('d64',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address )||c_eol||
4244 pay_jp_report_pkg.add_tag ('d65',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address_jp )||c_eol||
4245 pay_jp_report_pkg.add_tag_v('d66',g_body_tbl(p_assignment_action_id).o_pjob_itax_org_full_name )||c_eol||
4246 pay_jp_report_pkg.add_tag_m('d67',g_body_tbl(p_assignment_action_id).o_pjob_taxable_income )||c_eol||
4247 pay_jp_report_pkg.add_tag_m('d68',g_body_tbl(p_assignment_action_id).o_pjob_itax )||c_eol||
4248 pay_jp_report_pkg.add_tag_m('d69',g_body_tbl(p_assignment_action_id).o_pjob_si_prem )||c_eol||
4249 pay_jp_report_pkg.add_tag_m('d70',g_body_tbl(p_assignment_action_id).o_disaster_tax_reduction )||c_eol||
4250 pay_jp_report_pkg.add_tag ('d71',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_yy )||c_eol||
4251 pay_jp_report_pkg.add_tag ('d72',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_mm )||c_eol||
4252 pay_jp_report_pkg.add_tag ('d73',g_body_tbl(p_assignment_action_id).o_pjob_termination_date_dd )||c_eol||
4253 pay_jp_report_pkg.add_tag ('d74',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_yy )||c_eol||
4254 pay_jp_report_pkg.add_tag ('d75',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_mm )||c_eol||
4255 pay_jp_report_pkg.add_tag ('d76',g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_dd )||c_eol||
4256 pay_jp_report_pkg.add_tag ('d77',g_body_tbl(p_assignment_action_id).o_hld_loan_count )||c_eol||
4257 pay_jp_report_pkg.add_tag_m('d78',g_body_tbl(p_assignment_action_id).o_hld_payable_loan )||c_eol||
4258 pay_jp_report_pkg.add_tag ('d79',g_body_tbl(p_assignment_action_id).o_hld_loan_type_1 )||c_eol||
4259 pay_jp_report_pkg.add_tag_m('d80',g_body_tbl(p_assignment_action_id).o_hld_loan_balance_1 )||c_eol||
4260 pay_jp_report_pkg.add_tag ('d81',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_yy )||c_eol||
4261 pay_jp_report_pkg.add_tag ('d82',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_mm )||c_eol||
4262 pay_jp_report_pkg.add_tag ('d83',g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_dd )||c_eol||
4263 pay_jp_report_pkg.add_tag ('d84',g_body_tbl(p_assignment_action_id).o_hld_loan_type_2 )||c_eol||
4264 pay_jp_report_pkg.add_tag_m('d85',g_body_tbl(p_assignment_action_id).o_hld_loan_balance_2 )||c_eol||
4265 pay_jp_report_pkg.add_tag_v('d86',g_body_tbl(p_assignment_action_id).o_description )||c_eol||
4266 pay_jp_report_pkg.add_tag_m('d87',g_body_tbl(p_assignment_action_id).o_new_life_ins_prem )||c_eol||
4267 pay_jp_report_pkg.add_tag_m('d88',g_body_tbl(p_assignment_action_id).o_old_life_ins_prem )||c_eol||
4268 pay_jp_report_pkg.add_tag_m('d89',g_body_tbl(p_assignment_action_id).o_new_care_med_prem )||c_eol||
4269 pay_jp_report_pkg.add_tag_m('d90',g_body_tbl(p_assignment_action_id).o_new_pens_ins_prem )||c_eol||
4270 pay_jp_report_pkg.add_tag ('d91',g_body_tbl(p_assignment_action_id).o_num_junior_deps )||c_eol||
4271 pay_jp_report_pkg.add_tag ('d92',g_body_tbl(p_assignment_action_id).o_gen_collecting )||c_eol||
4272 pay_jp_report_pkg.add_tag ('d93',g_body_tbl(p_assignment_action_id).o_blue_proprietor )||c_eol||
4273 pay_jp_report_pkg.add_tag ('d94',g_body_tbl(p_assignment_action_id).o_immune )||c_eol||
4274 pay_jp_report_pkg.add_tag_v('d95',g_body_tbl(p_assignment_action_id).o_full_name_kana )||c_eol||
4275 pay_jp_report_pkg.add_tag_v('d96',g_body_tbl(p_assignment_action_id).o_employee_number )||c_eol||
4276 pay_jp_report_pkg.add_tag ('d97',g_body_tbl(p_assignment_action_id).o_district_code )||c_eol||
4277 pay_jp_report_pkg.add_tag_v('d98',g_body_tbl(p_assignment_action_id).o_swot_number )||c_eol||
4278 '</g_emp>';
4279 --
4280 end if;
4281 --
4282 pay_core_files.write_to_magtape_lob(l_xml_assact);
4283 --
4284 else
4285 --
4286 if g_debug
4287 and g_detail_debug = 'Y' then
4288 hr_utility.trace('mismatch assignment_action_id : g_body_tbl : '||to_char(l_mag_assignment_action_id)||' <> p_assignment_action_id : '||to_char(p_assignment_action_id));
4289 end if;
4290 --
4291 end if;
4292 --
4293 if g_debug
4294 and g_detail_debug = 'Y' then
4295 hr_utility.set_location(l_proc,1000);
4296 end if;
4297 --
4298 exception
4299 when no_data_found then
4300 --
4301 if g_debug then
4302 --
4303 hr_utility.trace('no chache g_body_tbl : p_assignment_action_id : '||to_char(p_assignment_action_id));
4304 hr_utility.trace('g_body_tbl count : '||to_char(g_body_tbl.count));
4305 --
4306 if g_detail_debug = 'Y' then
4307 --
4308 for i in g_body_tbl.first..g_body_tbl.last loop
4309 --
4310 hr_utility.trace('g_body_tbl(i).mag_assignment_action_id : '||to_char(g_body_tbl(i).mag_assignment_action_id));
4311 hr_utility.trace('g_body_tbl(i).assignment_action_id : '||to_char(g_body_tbl(i).assignment_action_id));
4312 --
4313 end loop;
4314 --
4315 end if;
4316 --
4317 end if;
4318 --
4319 when others then
4320 raise;
4321 --
4322 end xml_assact;
4323 --
4324 -- -------------------------------------------------------------------------
4325 -- file_assact
4326 -- -------------------------------------------------------------------------
4327 procedure file_assact(
4328 p_assignment_action_id in number)
4329 is
4330 --
4331 l_proc varchar2(80) := c_package||'file_assact';
4332 --
4333 l_mag_assignment_action_id number;
4334 --
4335 l_file_ind number;
4336 l_file_name varchar2(80);
4337 l_file_out utl_file.file_type;
4338 l_file_assact varchar2(32767);
4339 l_address varchar2(500);
4340 --
4341
4342 cursor csr_per(
4343 cp_assignment_id number,
4344 cp_effective_date date,
4345 cp_adr_effective_date date)
4346 is
4347 select per.employee_number,
4348 nvl(adrr.address_id, adrc.address_id) address_id,
4349 rtrim(substrb(decode(adrr.address_id, null,
4350 adrc.region_1 || adrc.region_2 || adrc.region_3,
4351 adrr.region_1 || adrr.region_2 || adrr.region_3), 1, 240)) address_kana,
4352 rtrim(substrb(decode(adrr.address_id, null,
4353 adrc.address_line1 || adrc.address_line2 || adrc.address_line3,
4354 adrr.address_line1 || adrr.address_line2 || adrr.address_line3), 1, 240)) address_kanji,
4355 decode(adrr.address_id, null, adrc.country, adrr.country) country,
4356 decode(adrr.address_id, null, adrc.town_or_city, adrr.town_or_city) district_code,
4357 asg.organization_id
4358 from per_all_assignments_f asg,
4359 per_all_people_f per,
4360 per_addresses adrr,
4361 per_addresses adrc
4362 where asg.assignment_id = cp_assignment_id
4363 and cp_effective_date
4364 between asg.effective_start_date and asg.effective_end_date
4365 and per.person_id = asg.person_id
4366 and cp_effective_date
4367 between per.effective_start_date and per.effective_end_date
4368 and adrr.person_id(+) = per.person_id
4369 and adrr.address_type(+) = 'JP_R'
4370 and cp_adr_effective_date
4371 between adrr.date_from(+) and nvl(adrr.date_to(+), cp_adr_effective_date)
4372 and adrc.person_id(+) = per.person_id
4373 and adrc.address_type(+) = 'JP_C'
4374 and cp_adr_effective_date
4375 between adrc.date_from(+) and nvl(adrc.date_to(+), cp_adr_effective_date);
4376
4377 l_per_rec csr_per%rowtype;
4378
4379 begin
4380 --
4381 if g_debug
4382 and g_detail_debug = 'Y' then
4383 hr_utility.set_location(l_proc,0);
4384 end if;
4385 --
4386 l_mag_assignment_action_id := g_body_tbl(p_assignment_action_id).mag_assignment_action_id;
4387 --
4388 if l_mag_assignment_action_id is not null
4389 and l_mag_assignment_action_id = p_assignment_action_id then
4390 --
4391 --
4392 -- warning log
4393 --
4394 if g_warning_exist is not null
4395 and g_warning_exist = 'Y'
4396 and g_body_tbl(p_assignment_action_id).long_description is not null then
4397 --
4398 if g_warning_header is null
4399 or g_warning_header <> 'Y' then
4400 --
4401 g_warning_header := 'Y';
4402 --
4403 fnd_file.put_line(fnd_file.log,fnd_message.get_string('PAY','PAY_JP_WIC_DESC_TRUNCATED'));
4404 --
4405 end if;
4406 --
4407 fnd_file.put_line(fnd_file.log,g_body_tbl(p_assignment_action_id).o_employee_number||' : '||g_body_tbl(p_assignment_action_id).o_full_name);
4408 fnd_file.put_line(fnd_file.log,'----------------------------------------------------------------------------------------------------');
4409 pay_jp_report_pkg.show_warning(fnd_file.log,g_body_tbl(p_assignment_action_id).long_description);
4410 fnd_file.put_line(fnd_file.log,' ');
4411 --
4412 end if;
4413 --
4414 l_file_ind := g_body_tbl(p_assignment_action_id).file_ind;
4415 --
4416 l_file_name := g_body_tbl(p_assignment_action_id).output_file_name;
4417 l_file_out := g_file_tbl(l_file_ind).file_out;
4418 --
4419 if g_effective_yyyy < 2009 then
4420 --
4421 l_file_assact :=
4422 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_form_number ||c_delimiter)||
4423 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_serial1 ||c_delimiter)||
4424 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_cnt ||c_delimiter)||
4425 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_address ||c_delimiter)||
4426 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_name ||c_delimiter)||
4427 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_phone ||c_delimiter)||
4428 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_serial2 ||c_delimiter)||
4429 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_hq_address ||c_delimiter)||
4430 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_hq_name ||c_delimiter)||
4431 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_amend_flag ||c_delimiter)||
4432 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_target_yy ||c_delimiter)||
4433 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_address ||c_delimiter)||
4434 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_address_jp ||c_delimiter)||
4435 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_full_name ||c_delimiter)||
4436 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_position ||c_delimiter)||
4437 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_assortment ||c_delimiter)||
4438 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_taxable_income ||c_delimiter)||
4439 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_unpaid_income ||c_delimiter)||
4440 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_net_taxable_income ||c_delimiter)||
4441 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_total_income_exempt ||c_delimiter)||
4442 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_withholding_itax ||c_delimiter)||
4443 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_uncollected_itax ||c_delimiter)||
4444 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_dep_spouse ||c_delimiter)||
4445 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_aged_spouse ||c_delimiter)||
4446 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_spouse_sp_exempt ||c_delimiter)||
4447 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_specifieds_kou ||c_delimiter)||
4448 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_specifieds_otsu ||c_delimiter)||
4449 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_ageds_kou ||c_delimiter)||
4450 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_aged_parents_lt ||c_delimiter)||
4451 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_ageds_otsu ||c_delimiter)||
4452 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_deps_kou ||c_delimiter)||
4453 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_deps_otsu ||c_delimiter)||
4454 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_svr_disableds ||c_delimiter)||
4455 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_svr_disableds_lt ||c_delimiter)||
4456 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_disableds ||c_delimiter)||
4457 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_si_prem ||c_delimiter)||
4458 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_mutual_aid_prem ||c_delimiter)||
4459 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_li_prem_exempt ||c_delimiter)||
4460 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_ai_prem_exempt ||c_delimiter)||
4461 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_housing_tax_reduction ||c_delimiter)||
4462 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pp_prem ||c_delimiter)||
4463 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_spouse_net_taxable_income||c_delimiter)||
4464 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_long_ai_prem ||c_delimiter)||
4465 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_era ||c_delimiter)||
4466 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_yy ||c_delimiter)||
4467 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_mm ||c_delimiter)||
4468 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_dd ||c_delimiter)||
4469 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_husband_exists ||c_delimiter)||
4470 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_minor ||c_delimiter)||
4471 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_otsu ||c_delimiter)||
4472 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_svr_disabled ||c_delimiter)||
4473 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_disabled ||c_delimiter)||
4474 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_aged ||c_delimiter)||
4475 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_widow ||c_delimiter)||
4476 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_widower ||c_delimiter)||
4477 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_working_student ||c_delimiter)||
4478 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_deceased_termination ||c_delimiter)||
4479 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_disastered ||c_delimiter)||
4480 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_foreigner ||c_delimiter)||
4481 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed ||c_delimiter)||
4482 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed_yy ||c_delimiter)||
4483 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed_mm ||c_delimiter)||
4484 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed_dd ||c_delimiter)||
4485 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address ||c_delimiter)||
4486 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address_jp ||c_delimiter)||
4487 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax_org_full_name ||c_delimiter)||
4488 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_taxable_income ||c_delimiter)||
4489 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax ||c_delimiter)||
4490 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_si_prem ||c_delimiter)||
4491 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_disaster_tax_reduction ||c_delimiter)||
4492 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_termination_date_yy ||c_delimiter)||
4493 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_termination_date_mm ||c_delimiter)||
4494 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_termination_date_dd ||c_delimiter)||
4495 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_yy ||c_delimiter)||
4496 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_mm ||c_delimiter)||
4497 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_dd ||c_delimiter)||
4498 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_description ||c_delimiter)||
4499 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_gen_collecting ||c_delimiter)||
4500 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_blue_proprietor ||c_delimiter)||
4501 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_immune ||c_delimiter)||
4502 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_full_name_kana ||c_delimiter)||
4503 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employee_number ||c_delimiter)||
4504 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_district_code ||c_delimiter)||
4505 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_swot_number );
4506 --
4507 elsif g_effective_yyyy >= 2009 and g_effective_yyyy < 2011 then
4508 --
4509 l_file_assact :=
4510 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_form_number ||c_delimiter)||
4511 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_serial1 ||c_delimiter)||
4512 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_cnt ||c_delimiter)||
4513 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_address ||c_delimiter)||
4514 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_name ||c_delimiter)||
4515 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_phone ||c_delimiter)||
4516 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_serial2 ||c_delimiter)||
4517 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_hq_address ||c_delimiter)||
4518 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_hq_name ||c_delimiter)||
4519 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_amend_flag ||c_delimiter)||
4520 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_target_yy ||c_delimiter)||
4521 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_address ||c_delimiter)||
4522 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_address_jp ||c_delimiter)||
4523 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_full_name ||c_delimiter)||
4524 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_position ||c_delimiter)||
4525 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_assortment ||c_delimiter)||
4526 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_taxable_income ||c_delimiter)||
4527 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_unpaid_income ||c_delimiter)||
4528 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_net_taxable_income ||c_delimiter)||
4529 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_total_income_exempt ||c_delimiter)||
4530 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_withholding_itax ||c_delimiter)||
4531 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_uncollected_itax ||c_delimiter)||
4532 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_dep_spouse ||c_delimiter)||
4533 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_aged_spouse ||c_delimiter)||
4534 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_spouse_sp_exempt ||c_delimiter)||
4535 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_specifieds_kou ||c_delimiter)||
4536 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_specifieds_otsu ||c_delimiter)||
4537 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_ageds_kou ||c_delimiter)||
4538 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_aged_parents_lt ||c_delimiter)||
4539 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_ageds_otsu ||c_delimiter)||
4540 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_deps_kou ||c_delimiter)||
4541 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_deps_otsu ||c_delimiter)||
4542 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_svr_disableds ||c_delimiter)||
4543 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_svr_disableds_lt ||c_delimiter)||
4544 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_disableds ||c_delimiter)||
4545 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_si_prem ||c_delimiter)||
4546 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_mutual_aid_prem ||c_delimiter)||
4547 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_li_prem_exempt ||c_delimiter)||
4548 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_ai_prem_exempt ||c_delimiter)||
4549 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_housing_tax_reduction ||c_delimiter)||
4550 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pp_prem ||c_delimiter)||
4551 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_spouse_net_taxable_income||c_delimiter)||
4552 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_long_ai_prem ||c_delimiter)||
4553 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_era ||c_delimiter)||
4554 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_yy ||c_delimiter)||
4555 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_mm ||c_delimiter)||
4556 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_dd ||c_delimiter)||
4557 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_husband_exists ||c_delimiter)||
4558 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_minor ||c_delimiter)||
4559 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_otsu ||c_delimiter)||
4560 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_svr_disabled ||c_delimiter)||
4561 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_disabled ||c_delimiter)||
4562 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_aged ||c_delimiter)||
4563 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_widow ||c_delimiter)||
4564 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_widower ||c_delimiter)||
4565 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_working_student ||c_delimiter)||
4566 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_deceased_termination ||c_delimiter)||
4567 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_disastered ||c_delimiter)||
4568 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_foreigner ||c_delimiter)||
4569 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed ||c_delimiter)||
4570 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed_yy ||c_delimiter)||
4571 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed_mm ||c_delimiter)||
4572 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed_dd ||c_delimiter)||
4573 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address ||c_delimiter)||
4574 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address_jp ||c_delimiter)||
4575 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax_org_full_name ||c_delimiter)||
4576 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_taxable_income ||c_delimiter)||
4577 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax ||c_delimiter)||
4578 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_si_prem ||c_delimiter)||
4579 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_disaster_tax_reduction ||c_delimiter)||
4580 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_termination_date_yy ||c_delimiter)||
4581 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_termination_date_mm ||c_delimiter)||
4582 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_termination_date_dd ||c_delimiter)||
4583 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_yy ||c_delimiter)||
4584 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_mm ||c_delimiter)||
4585 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_dd ||c_delimiter)||
4586 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_loan_count ||c_delimiter)||
4587 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_payable_loan ||c_delimiter)||
4588 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_loan_type_1 ||c_delimiter)||
4589 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_loan_balance_1 ||c_delimiter)||
4590 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_yy ||c_delimiter)||
4591 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_mm ||c_delimiter)||
4592 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_dd ||c_delimiter)||
4593 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_loan_type_2 ||c_delimiter)||
4594 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_loan_balance_2 ||c_delimiter)||
4595 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_description ||c_delimiter)||
4596 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_gen_collecting ||c_delimiter)||
4597 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_blue_proprietor ||c_delimiter)||
4598 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_immune ||c_delimiter)||
4599 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_full_name_kana ||c_delimiter)||
4600 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employee_number ||c_delimiter)||
4601 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_district_code ||c_delimiter)||
4602 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_swot_number );
4603 --
4604 elsif g_effective_yyyy >= 2011 and g_effective_yyyy < 2012 then
4605 --
4606 l_file_assact :=
4607 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_form_number ||c_delimiter)||
4608 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_serial1 ||c_delimiter)||
4609 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_cnt ||c_delimiter)||
4610 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_address ||c_delimiter)||
4611 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_name ||c_delimiter)||
4612 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_phone ||c_delimiter)||
4613 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_serial2 ||c_delimiter)||
4614 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_hq_address ||c_delimiter)||
4615 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_hq_name ||c_delimiter)||
4616 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_amend_flag ||c_delimiter)||
4617 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_target_yy ||c_delimiter)||
4618 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_address ||c_delimiter)||
4619 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_address_jp ||c_delimiter)||
4620 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_full_name ||c_delimiter)||
4621 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_position ||c_delimiter)||
4622 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_assortment ||c_delimiter)||
4623 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_taxable_income ||c_delimiter)||
4624 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_unpaid_income ||c_delimiter)||
4625 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_net_taxable_income ||c_delimiter)||
4626 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_total_income_exempt ||c_delimiter)||
4627 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_withholding_itax ||c_delimiter)||
4628 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_uncollected_itax ||c_delimiter)||
4629 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_dep_spouse ||c_delimiter)||
4630 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_aged_spouse ||c_delimiter)||
4631 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_spouse_sp_exempt ||c_delimiter)||
4632 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_specifieds_kou ||c_delimiter)||
4633 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_specifieds_otsu ||c_delimiter)||
4634 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_ageds_kou ||c_delimiter)||
4635 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_aged_parents_lt ||c_delimiter)||
4636 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_ageds_otsu ||c_delimiter)||
4637 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_deps_kou ||c_delimiter)||
4638 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_deps_otsu ||c_delimiter)||
4639 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_svr_disableds ||c_delimiter)||
4640 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_svr_disableds_lt ||c_delimiter)||
4641 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_disableds ||c_delimiter)||
4642 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_si_prem ||c_delimiter)||
4643 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_mutual_aid_prem ||c_delimiter)||
4644 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_li_prem_exempt ||c_delimiter)||
4645 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_ai_prem_exempt ||c_delimiter)||
4646 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_housing_tax_reduction ||c_delimiter)||
4647 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pp_prem ||c_delimiter)||
4648 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_spouse_net_taxable_income||c_delimiter)||
4649 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_long_ai_prem ||c_delimiter)||
4650 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_era ||c_delimiter)||
4651 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_yy ||c_delimiter)||
4652 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_mm ||c_delimiter)||
4653 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_dd ||c_delimiter)||
4654 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_husband_exists ||c_delimiter)||
4655 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_minor ||c_delimiter)||
4656 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_otsu ||c_delimiter)||
4657 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_svr_disabled ||c_delimiter)||
4658 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_disabled ||c_delimiter)||
4659 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_aged ||c_delimiter)||
4660 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_widow ||c_delimiter)||
4661 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_widower ||c_delimiter)||
4662 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_working_student ||c_delimiter)||
4663 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_deceased_termination ||c_delimiter)||
4664 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_disastered ||c_delimiter)||
4665 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_foreigner ||c_delimiter)||
4666 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed ||c_delimiter)||
4667 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed_yy ||c_delimiter)||
4668 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed_mm ||c_delimiter)||
4669 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed_dd ||c_delimiter)||
4670 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address ||c_delimiter)||
4671 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address_jp ||c_delimiter)||
4672 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax_org_full_name ||c_delimiter)||
4673 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_taxable_income ||c_delimiter)||
4674 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax ||c_delimiter)||
4675 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_si_prem ||c_delimiter)||
4676 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_disaster_tax_reduction ||c_delimiter)||
4677 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_termination_date_yy ||c_delimiter)||
4678 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_termination_date_mm ||c_delimiter)||
4679 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_termination_date_dd ||c_delimiter)||
4680 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_yy ||c_delimiter)||
4681 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_mm ||c_delimiter)||
4682 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_dd ||c_delimiter)||
4683 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_loan_count ||c_delimiter)||
4684 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_payable_loan ||c_delimiter)||
4685 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_loan_type_1 ||c_delimiter)||
4686 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_loan_balance_1 ||c_delimiter)||
4687 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_yy ||c_delimiter)||
4688 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_mm ||c_delimiter)||
4689 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_dd ||c_delimiter)||
4690 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_loan_type_2 ||c_delimiter)||
4691 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_loan_balance_2 ||c_delimiter)||
4692 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_description ||c_delimiter)||
4693 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_junior_deps ||c_delimiter)||
4694 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_gen_collecting ||c_delimiter)||
4695 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_blue_proprietor ||c_delimiter)||
4696 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_immune ||c_delimiter)||
4697 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_full_name_kana ||c_delimiter)||
4698 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employee_number ||c_delimiter)||
4699 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_district_code ||c_delimiter)||
4700 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_swot_number );
4701 --
4702 else
4703
4704 if g_body_tbl(p_assignment_action_id).actual_termination_date is not null then
4705
4706 open csr_per(g_body_tbl(p_assignment_action_id).assignment_id,
4707 g_body_tbl(p_assignment_action_id).effective_date,
4708 g_effective_eoy + 1);
4709 fetch csr_per into l_per_rec;
4710 close csr_per;
4711
4712 if g_kana_flag is not null and g_kana_flag = 'Y' then
4713 l_address := hr_jp_standard_pkg.upper_kana(l_per_rec.address_kana);
4714 else
4715 l_address := l_per_rec.address_kanji;
4716 end if;
4717
4718 g_body_tbl(p_assignment_action_id).o_address := pay_jp_report_pkg.cnv_siz('z',60 ,pay_jp_report_pkg.cnv_str(l_address));
4719
4720 end if;
4721
4722 l_file_assact :=
4723 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_form_number ||c_delimiter)||
4724 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_serial1 ||c_delimiter)||
4725 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_cnt ||c_delimiter)||
4726 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_address ||c_delimiter)||
4727 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_name ||c_delimiter)||
4728 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_phone ||c_delimiter)||
4729 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_org_serial2 ||c_delimiter)||
4730 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_hq_address ||c_delimiter)||
4731 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_itax_hq_name ||c_delimiter)||
4732 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_amend_flag ||c_delimiter)||
4733 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_target_yy ||c_delimiter)||
4734 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_address ||c_delimiter)||
4735 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_address_jp ||c_delimiter)||
4736 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_full_name ||c_delimiter)||
4737 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_position ||c_delimiter)||
4738 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_assortment ||c_delimiter)||
4739 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_taxable_income ||c_delimiter)||
4740 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_unpaid_income ||c_delimiter)||
4741 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_net_taxable_income ||c_delimiter)||
4742 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_total_income_exempt ||c_delimiter)||
4743 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_withholding_itax ||c_delimiter)||
4744 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_uncollected_itax ||c_delimiter)||
4745 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_dep_spouse ||c_delimiter)||
4746 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_aged_spouse ||c_delimiter)||
4747 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_spouse_sp_exempt ||c_delimiter)||
4748 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_specifieds_kou ||c_delimiter)||
4749 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_specifieds_otsu ||c_delimiter)||
4750 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_ageds_kou ||c_delimiter)||
4751 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_aged_parents_lt ||c_delimiter)||
4752 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_ageds_otsu ||c_delimiter)||
4753 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_deps_kou ||c_delimiter)||
4754 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_deps_otsu ||c_delimiter)||
4755 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_svr_disableds ||c_delimiter)||
4756 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_svr_disableds_lt ||c_delimiter)||
4757 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_disableds ||c_delimiter)||
4758 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_si_prem ||c_delimiter)||
4759 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_mutual_aid_prem ||c_delimiter)||
4760 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_li_prem_exempt ||c_delimiter)||
4761 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_ai_prem_exempt ||c_delimiter)||
4762 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_housing_tax_reduction ||c_delimiter)||
4763 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pp_prem ||c_delimiter)||
4764 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_spouse_net_taxable_income||c_delimiter)||
4765 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_long_ai_prem ||c_delimiter)||
4766 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_era ||c_delimiter)||
4767 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_yy ||c_delimiter)||
4768 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_mm ||c_delimiter)||
4769 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_birth_date_dd ||c_delimiter)||
4770 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_husband_exists ||c_delimiter)||
4771 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_minor ||c_delimiter)||
4772 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_otsu ||c_delimiter)||
4773 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_svr_disabled ||c_delimiter)||
4774 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_disabled ||c_delimiter)||
4775 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_aged ||c_delimiter)||
4776 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_widow ||c_delimiter)||
4777 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_widower ||c_delimiter)||
4778 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_working_student ||c_delimiter)||
4779 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_deceased_termination ||c_delimiter)||
4780 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_disastered ||c_delimiter)||
4781 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_foreigner ||c_delimiter)||
4782 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed ||c_delimiter)||
4783 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed_yy ||c_delimiter)||
4784 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed_mm ||c_delimiter)||
4785 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employed_dd ||c_delimiter)||
4786 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address ||c_delimiter)||
4787 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax_org_address_jp ||c_delimiter)||
4788 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax_org_full_name ||c_delimiter)||
4789 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_taxable_income ||c_delimiter)||
4790 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_itax ||c_delimiter)||
4791 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_si_prem ||c_delimiter)||
4792 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_disaster_tax_reduction ||c_delimiter)||
4793 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_termination_date_yy ||c_delimiter)||
4794 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_termination_date_mm ||c_delimiter)||
4795 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_pjob_termination_date_dd ||c_delimiter)||
4796 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_yy ||c_delimiter)||
4797 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_mm ||c_delimiter)||
4798 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_1_dd ||c_delimiter)||
4799 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_loan_count ||c_delimiter)||
4800 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_payable_loan ||c_delimiter)||
4801 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_loan_type_1 ||c_delimiter)||
4802 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_loan_balance_1 ||c_delimiter)||
4803 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_yy ||c_delimiter)||
4804 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_mm ||c_delimiter)||
4805 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_residence_date_2_dd ||c_delimiter)||
4806 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_loan_type_2 ||c_delimiter)||
4807 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_hld_loan_balance_2 ||c_delimiter)||
4808 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_description ||c_delimiter)||
4809 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_new_life_ins_prem ||c_delimiter)||
4810 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_old_life_ins_prem ||c_delimiter)||
4811 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_new_care_med_prem ||c_delimiter)||
4812 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_new_pens_ins_prem ||c_delimiter)||
4813 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_num_junior_deps ||c_delimiter)||
4814 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_gen_collecting ||c_delimiter)||
4815 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_blue_proprietor ||c_delimiter)||
4816 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_immune ||c_delimiter)||
4817 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_full_name_kana ||c_delimiter)||
4818 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_employee_number ||c_delimiter)||
4819 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_district_code ||c_delimiter)||
4820 pay_jp_report_pkg.cnv_txt(g_body_tbl(p_assignment_action_id).o_swot_number );
4821
4822 end if;
4823 --
4824 pay_jp_report_pkg.write_file(l_file_name,l_file_out,l_file_assact);
4825 --
4826 else
4827 --
4828 if g_debug
4829 and g_detail_debug = 'Y' then
4830 hr_utility.trace('mismatch assignment_action_id : g_body_tbl : '||to_char(l_mag_assignment_action_id)||' <> p_assignment_action_id : '||to_char(p_assignment_action_id));
4831 end if;
4832 --
4833 end if;
4834 --
4835 if g_debug
4836 and g_detail_debug = 'Y' then
4837 hr_utility.set_location(l_proc,1000);
4838 end if;
4839 --
4840 exception
4841 when no_data_found then
4842 --
4843 if g_debug then
4844 --
4845 hr_utility.trace('no chache g_body_tbl : p_assignment_action_id : '||to_char(p_assignment_action_id));
4846 hr_utility.trace('g_body_tbl count : '||to_char(g_body_tbl.count));
4847 --
4848 hr_utility.trace('no chache g_file_tbl : l_file_ind : '||to_char(l_file_ind));
4849 hr_utility.trace('g_file_tbl count : '||to_char(g_file_tbl.count));
4850 --
4851 end if;
4852 --
4853 when others then
4854 raise;
4855 --
4856 end file_assact;
4857 --
4858 -- -------------------------------------------------------------------------
4859 -- gen_file
4860 -- -------------------------------------------------------------------------
4861 procedure gen_file
4862 is
4863 --
4864 l_proc varchar2(80) := c_package||'gen_file';
4865 --
4866 l_ass_cnt number := 0;
4867 --
4868 l_file_out utl_file.file_type;
4869 l_open_file_tbl t_number_tbl;
4870 l_open_file_ind number;
4871 l_found boolean := false;
4872 --
4873 begin
4874 --
4875 if g_debug
4876 and g_detail_debug = 'Y' then
4877 hr_utility.set_location(l_proc,0);
4878 hr_utility.trace('g_assact_tbl.count : '||to_char(g_assact_tbl.count));
4879 end if;
4880 --
4881 if g_assact_tbl.count > 0 then
4882 --
4883 <<assac_tbl_loop>>
4884 for i in 1..g_assact_tbl.count loop
4885 --
4886 if g_assact_tbl(i) is not null then
4887 --
4888 -- -----------------------------------------------------
4889 -- file close for fnd_file open_cursor limitation
4890 -- -----------------------------------------------------
4891 -- close all open file
4892 -- this can be closed as efficient because g_body_tbl consists of data sorted by sequential district code
4893 -- consider fnd_file log, out count
4894 if l_open_file_tbl.count = (c_max_file_open - 1 - 2) then
4895 --
4896 <<open_file_tbl_int_loop>>
4897 for j in l_open_file_tbl.first..l_open_file_tbl.last loop
4898 --
4899 pay_jp_report_pkg.close_file(g_file_tbl(l_open_file_tbl(j)).file_name,g_file_tbl(l_open_file_tbl(j)).file_out);
4900 --
4901 end loop open_file_tbl_int_loop;
4902 --
4903 l_open_file_tbl.delete;
4904 --
4905 end if;
4906 --
4907 l_found := false;
4908 --
4909 begin
4910 --
4911 l_open_file_ind := l_open_file_tbl(g_body_tbl(g_assact_tbl(i)).file_ind);
4912 l_found := true;
4913 --
4914 exception
4915 when others then
4916 --
4917 null;
4918 --
4919 end;
4920 --
4921 -- new file to be opened if no in l_open_file_tbl
4922 if not l_found then
4923 --
4924 -- -----------------------------------------------------
4925 -- file open
4926 -- -----------------------------------------------------
4927 l_file_out := null;
4928 l_open_file_ind := g_body_tbl(g_assact_tbl(i)).file_ind;
4929 pay_jp_report_pkg.open_file(g_file_tbl(l_open_file_ind).file_name,g_file_dir,l_file_out,'a');
4930 g_file_tbl(l_open_file_ind).file_out := l_file_out;
4931 --
4932 l_open_file_tbl(l_open_file_ind) := l_open_file_ind;
4933 --
4934 end if;
4935 --
4936 -- -----------------------------------------------------
4937 -- file write
4938 -- -----------------------------------------------------
4939 file_assact(g_assact_tbl(i));
4940 --
4941 l_ass_cnt := l_ass_cnt + 1;
4942 --
4943 else
4944 if g_debug
4945 and g_detail_debug = 'Y' then
4946 hr_utility.trace('g_assact_tbl is null : '||to_char(i));
4947 end if;
4948 end if;
4949 --
4950 end loop assac_tbl_loop;
4951 --
4952 -- -----------------------------------------------------
4953 -- file close
4954 -- -----------------------------------------------------
4955 if l_open_file_tbl.count > 0 then
4956 --
4957 <<open_file_tbl_loop>>
4958 for k in l_open_file_tbl.first..l_open_file_tbl.last loop
4959 --
4960 pay_jp_report_pkg.close_file(g_file_tbl(l_open_file_tbl(k)).file_name,g_file_tbl(l_open_file_tbl(k)).file_out);
4961 --
4962 end loop open_file_tbl_loop;
4963 --
4964 end if;
4965 --
4966 end if;
4967 --
4968 if g_debug
4969 and g_detail_debug = 'Y' then
4970 hr_utility.set_location(l_proc,1000);
4971 end if;
4972 --
4973 end gen_file;
4974 --
4975 -- -------------------------------------------------------------------------
4976 -- del_file
4977 -- -------------------------------------------------------------------------
4978 procedure del_file(
4979 p_request_id in number,
4980 p_file_name in varchar2 default null)
4981 is
4982 --
4983 l_proc varchar2(80) := c_package||'del_file';
4984 --
4985 l_payroll_action_id number;
4986 --
4987 l_district_code per_addresses.town_or_city%type;
4988 l_itax_organization_id number;
4989 l_itax_org_cnt number;
4990 --
4991 l_select_clause varchar2(32767);
4992 l_from_clause varchar2(32767);
4993 l_where_clause varchar2(32767);
4994 l_order_by_clause varchar2(255);
4995 --
4996 l_file_dir fnd_concurrent_processes.plsql_dir%type;
4997 l_file_name varchar2(80);
4998 l_file_cnt number;
4999 --
5000 l_data_tbl t_data_tbl;
5001 l_file_tbl t_file_tbl;
5002 --
5003 cursor csr_action
5004 is
5005 select ppa.payroll_action_id
5006 from pay_payroll_actions ppa
5007 where ppa.request_id = p_request_id
5008 and ppa.action_type = 'X'
5009 and ppa.report_type = 'JP_SPR_EFILE'
5010 and ppa.report_qualifier = 'JP'
5011 and ppa.report_category = 'XML';
5012 --
5013 cursor csr_file_dir
5014 is
5015 select fcp.plsql_dir
5016 from fnd_concurrent_requests fcr,
5017 fnd_concurrent_processes fcp
5018 where fcr.request_id = p_request_id
5019 and fcp.concurrent_process_id = fcr.controlling_manager;
5020 --
5021 begin
5022 --
5023 if g_debug
5024 and g_detail_debug = 'Y' then
5025 hr_utility.set_location(l_proc,0);
5026 end if;
5027 --
5028 l_file_cnt := 0;
5029 l_itax_org_cnt := 0;
5030 --
5031 open csr_file_dir;
5032 fetch csr_file_dir into l_file_dir;
5033 close csr_file_dir;
5034 --
5035 if g_debug
5036 and g_detail_debug = 'Y' then
5037 hr_utility.set_location(l_proc,10);
5038 hr_utility.trace('l_file_dir : '||l_file_dir);
5039 end if;
5040 --
5041 if l_file_dir is not null then
5042 --
5043 if p_file_name is not null then
5044 --
5045 if g_debug
5046 and g_detail_debug = 'Y' then
5047 hr_utility.set_location(l_proc,20);
5048 hr_utility.trace('p_file_name : '||p_file_name);
5049 end if;
5050 --
5051 if g_del_file <> 'N' then
5052 pay_jp_report_pkg.delete_file(l_file_dir,p_file_name);
5053 end if;
5054 --
5055 if g_debug
5056 and g_detail_debug = 'Y' then
5057 hr_utility.trace(p_file_name||' was deleted');
5058 end if;
5059 --
5060 else
5061 --
5062 if g_debug
5063 and g_detail_debug = 'Y' then
5064 hr_utility.set_location(l_proc,30);
5065 hr_utility.trace('p_request_id : '||to_char(p_request_id));
5066 end if;
5067 --
5068 open csr_action;
5069 fetch csr_action into l_payroll_action_id;
5070 close csr_action;
5071 --
5072 if g_debug
5073 and g_detail_debug = 'Y' then
5074 hr_utility.set_location(l_proc,40);
5075 hr_utility.trace('l_payroll_action_id : '||to_char(l_payroll_action_id));
5076 end if;
5077 --
5078 if l_payroll_action_id is not null then
5079 --
5080 -- need set to global variables.
5081 init_pact(l_payroll_action_id);
5082 --
5083 if g_debug
5084 and g_detail_debug = 'Y' then
5085 hr_utility.set_location(l_proc,50);
5086 hr_utility.trace('g_file_split : '||g_file_split);
5087 end if;
5088 --
5089 -- output_file_name to unit file in case etax
5090 if g_file_split is not null
5091 and g_file_split = 'N' then
5092 --
5093 l_file_name :=
5094 pay_jp_spr_efile_pkg.g_file_prefix||
5095 c_file_spliter||
5096 to_char(p_request_id)||c_file_extension;
5097 --
5098 if g_debug
5099 and g_detail_debug = 'Y' then
5100 hr_utility.set_location(l_proc,60);
5101 hr_utility.trace('l_file_name : '||l_file_name);
5102 end if;
5103 --
5104 if g_del_file <> 'N' then
5105 pay_jp_report_pkg.delete_file(l_file_dir,l_file_name);
5106 end if;
5107 --
5108 if g_debug
5109 and g_detail_debug = 'Y' then
5110 hr_utility.trace(l_file_name||' was deleted');
5111 end if;
5112 --
5113 else
5114 --
5115 if g_debug
5116 and g_detail_debug = 'Y' then
5117 hr_utility.set_location(l_proc,70);
5118 hr_utility.trace('g_arch_pact_exist : '||g_arch_pact_exist);
5119 end if;
5120 --
5121 if g_arch_pact_exist is not null
5122 and g_arch_pact_exist = 'Y' then
5123 --
5124 if g_debug
5125 and g_detail_debug = 'Y' then
5126 hr_utility.set_location(l_proc,80);
5127 end if;
5128 --
5129 pay_jp_report_pkg.append_select_clause(c_data_arch_select_clause,l_select_clause);
5130 pay_jp_report_pkg.append_from_clause(c_data_arch_from_clause,l_from_clause);
5131 pay_jp_report_pkg.append_where_clause(c_data_arch_where_clause,l_where_clause);
5132 pay_jp_report_pkg.append_order_clause(c_data_arch_order_clause,l_order_by_clause);
5133 --
5134 else
5135 --
5136 if g_debug
5137 and g_detail_debug = 'Y' then
5138 hr_utility.set_location(l_proc,90);
5139 end if;
5140 --
5141 pay_jp_report_pkg.append_select_clause(c_data_ass_select_clause,l_select_clause);
5142 pay_jp_report_pkg.append_from_clause(c_data_ass_from_clause,l_from_clause);
5143 pay_jp_report_pkg.append_where_clause(c_data_ass_where_clause,l_where_clause);
5144 pay_jp_report_pkg.append_order_clause(c_data_ass_order_clause,l_order_by_clause);
5145 --
5146 end if;
5147 --
5148 --
5149 -- set variable parameter
5150 --
5151 l_from_clause := replace(l_from_clause,'i_bg_itax_dpnt_ref_type',g_bg_itax_dpnt_ref_type);
5152 l_from_clause := replace(l_from_clause,'i_business_group_id',to_char(g_business_group_id));
5153 l_from_clause := replace(l_from_clause,'i_effective_soy',fnd_date.date_to_canonical(g_effective_soy));
5154 l_from_clause := replace(l_from_clause,'i_effective_eoy',fnd_date.date_to_canonical(g_effective_eoy));
5155 l_from_clause := replace(l_from_clause,'i_organization_id',to_char(g_organization_id));
5156 l_from_clause := replace(l_from_clause,'i_district_code',g_district_code);
5157 l_from_clause := replace(l_from_clause,'i_eot',fnd_date.date_to_canonical(hr_api.g_eot));
5158 --
5159 l_where_clause := replace(l_where_clause,'i_business_group_id',to_char(g_business_group_id));
5160 l_where_clause := replace(l_where_clause,'i_effective_soy',fnd_date.date_to_canonical(g_effective_soy));
5161 l_where_clause := replace(l_where_clause,'i_effective_eoy',fnd_date.date_to_canonical(g_effective_eoy));
5162 l_where_clause := replace(l_where_clause,'i_organization_id',to_char(g_organization_id));
5163 l_where_clause := replace(l_where_clause,'i_district_code',g_district_code);
5164 --
5165 if g_debug
5166 and g_detail_debug = 'Y' then
5167 hr_utility.set_location(l_proc,100);
5168 --
5169 if g_show_debug is null
5170 or g_show_debug <> 'Y' then
5171 --
5172 pay_jp_report_pkg.show_debug(l_select_clause);
5173 pay_jp_report_pkg.show_debug(l_from_clause);
5174 pay_jp_report_pkg.show_debug(l_where_clause);
5175 pay_jp_report_pkg.show_debug(l_order_by_clause);
5176 --
5177 end if;
5178 end if;
5179 --
5180 execute immediate
5181 l_select_clause||
5182 l_from_clause||
5183 l_where_clause||
5184 l_order_by_clause
5185 bulk collect into l_data_tbl
5186 using l_payroll_action_id;
5187 --
5188 if g_debug
5189 and g_detail_debug = 'Y' then
5190 hr_utility.set_location(l_proc,110);
5191 hr_utility.trace('l_data_tbl.count : '||to_char(l_data_tbl.count));
5192 end if;
5193 --
5194 -- -----------------------------------------------------
5195 -- l_file_tbl setup
5196 -- -----------------------------------------------------
5197 for i in 1..l_data_tbl.count loop
5198 --
5199 if l_district_code is null
5200 or l_district_code <> l_data_tbl(i).district_code then
5201 --
5202 l_district_code := l_data_tbl(i).district_code;
5203 --
5204 l_itax_org_cnt := 0;
5205 l_itax_organization_id := null;
5206 --
5207 end if;
5208 --
5209 if l_file_name is null
5210 or l_file_name <> l_data_tbl(i).output_file_name then
5211 --
5212 l_file_name := l_data_tbl(i).output_file_name;
5213 --
5214 if l_itax_org_cnt < 1 then
5215 --
5216 l_file_cnt := l_file_cnt + 1;
5217 l_file_tbl(l_file_cnt).file_name := l_file_name;
5218 --
5219 end if;
5220 --
5221 end if;
5222 --
5223 if l_itax_organization_id is null
5224 or l_itax_organization_id <> l_data_tbl(i).itax_organization_id then
5225 --
5226 l_itax_organization_id := l_data_tbl(i).itax_organization_id;
5227 l_itax_org_cnt := l_itax_org_cnt + 1;
5228 --
5229 -- override output_file_name to unit file for multiple itax_org
5230 if l_itax_org_cnt > 1
5231 and (g_file_split is null
5232 or g_file_split = 'Y') then
5233 --
5234 -- reset file_name for l_itax_org_cnt = 1 in same district_code group
5235 if l_itax_org_cnt = 2 then
5236 --
5237 -- override file name
5238 --
5239 l_file_tbl(l_file_cnt).file_name := default_file_name(l_district_code);
5240 --
5241 end if;
5242 --
5243 end if;
5244 --
5245 end if;
5246 --
5247 end loop;
5248 --
5249 if g_debug
5250 and g_detail_debug = 'Y' then
5251 hr_utility.set_location(l_proc,120);
5252 hr_utility.trace('l_file_tbl.count : '||to_char(l_file_tbl.count));
5253 end if;
5254 --
5255 -- -----------------------------------------------------
5256 -- file delete
5257 -- -----------------------------------------------------
5258 for i in 1..l_file_tbl.count loop
5259 --
5260 l_file_name := l_file_tbl(i).file_name;
5261 --
5262 if g_del_file <> 'N' then
5263 pay_jp_report_pkg.delete_file(l_file_dir,l_file_name);
5264 end if;
5265 --
5266 if g_debug
5267 and g_detail_debug = 'Y' then
5268 hr_utility.trace(to_char(i)||' : '||l_file_name||' was deleted');
5269 end if;
5270 --
5271 end loop;
5272 --
5273 if g_debug
5274 and g_detail_debug = 'Y' then
5275 hr_utility.set_location(l_proc,130);
5276 --
5277 if g_show_debug is null
5278 or g_show_debug <> 'Y' then
5279 --
5280 for i in l_file_tbl.first..l_file_tbl.last loop
5281 hr_utility.trace('target of delete : '||to_char(i)||' : '||l_file_tbl(i).file_name);
5282 end loop;
5283 --
5284 end if;
5285 --
5286 end if;
5287 --
5288 end if;
5289 --
5290 else
5291 --
5292 if g_debug
5293 and g_detail_debug = 'Y' then
5294 hr_utility.trace('l_payroll_action_id is null');
5295 end if;
5296 --
5297 end if;
5298 --
5299 end if;
5300 --
5301 else
5302 --
5303 if g_debug
5304 and g_detail_debug = 'Y' then
5305 hr_utility.trace('l_file_dir is null');
5306 end if;
5307 --
5308 end if;
5309 --
5310 if g_debug
5311 and g_detail_debug = 'Y' then
5312 hr_utility.set_location(l_proc,1000);
5313 end if;
5314 --
5315 end del_file;
5316 --
5317 -- -------------------------------------------------------------------------
5318 -- gen_xml_header
5319 -- -------------------------------------------------------------------------
5320 procedure gen_xml_header
5321 is
5322 --
5323 l_proc varchar2(80) := c_package||'gen_xml_header';
5324 --
5325 l_xml_header varchar2(32767);
5326 --
5327 begin
5328 --
5329 if g_debug
5330 and g_detail_debug = 'Y' then
5331 hr_utility.set_location(l_proc,0);
5332 end if;
5333 --
5334 l_xml_header := c_eol||'<spr_efile>'||c_eol;
5335 --
5336 pay_core_files.write_to_magtape_lob(l_xml_header);
5337 --
5338 if g_debug
5339 and g_detail_debug = 'Y' then
5340 hr_utility.set_location(l_proc,1000);
5341 end if;
5342 --
5343 end gen_xml_header;
5344 --
5345 -- -------------------------------------------------------------------------
5346 -- gen_xml_body
5347 -- -------------------------------------------------------------------------
5348 procedure gen_xml_body
5349 is
5350 --
5351 l_proc varchar2(80) := c_package||'gen_xml_body';
5352 --
5353 l_mag_assignment_action_id number;
5354 --
5355 begin
5356 --
5357 if g_debug
5358 and g_detail_debug = 'Y' then
5359 hr_utility.set_location(l_proc,0);
5360 end if;
5361 --
5362 l_mag_assignment_action_id := pay_magtape_generic.get_parameter_value('TRANSFER_ACT_ID');
5363 --
5364 xml_assact(l_mag_assignment_action_id);
5365 --
5366 if g_debug
5367 and g_detail_debug = 'Y' then
5368 hr_utility.trace('l_mag_assignment_action_id : '||to_char(l_mag_assignment_action_id));
5369 hr_utility.set_location(l_proc,1000);
5370 end if;
5371 --
5372 end gen_xml_body;
5373 --
5374 -- -------------------------------------------------------------------------
5375 -- gen_xml_footer
5376 -- -------------------------------------------------------------------------
5377 procedure gen_xml_footer
5378 is
5379 --
5380 l_proc varchar2(80) := c_package||'gen_xml_footer';
5381 --
5382 l_xml_footer varchar2(32767);
5383 --
5384 begin
5385 --
5386 if g_debug
5387 and g_detail_debug = 'Y' then
5388 hr_utility.set_location(l_proc,0);
5389 end if;
5390 --
5391 l_xml_footer := '</spr_efile>';
5392 --
5393 pay_core_files.write_to_magtape_lob(l_xml_footer);
5394 --
5395 if g_debug
5396 and g_detail_debug = 'Y' then
5397 hr_utility.set_location(l_proc,10);
5398 end if;
5399 --
5400 gen_file;
5401 --
5402 if g_debug
5403 and g_detail_debug = 'Y' then
5404 hr_utility.set_location(l_proc,20);
5405 hr_utility.trace('g_file_tbl.count : '||to_char(g_file_tbl.count));
5406 end if;
5407 --
5408 --
5409 -- for debug purpose
5410 --
5411 if g_file_tbl.count > 0 then
5412 --
5413 for i in 1..g_file_tbl.count loop
5414 --
5415 if g_debug
5416 and g_detail_debug = 'Y' then
5417 hr_utility.trace('g_file_tbl file_name : '||g_file_tbl(i).file_name);
5418 end if;
5419 --
5420 end loop;
5421 --
5422 end if;
5423 --
5424 if g_debug
5425 and g_detail_debug = 'Y' then
5426 hr_utility.set_location(l_proc,1000);
5427 end if;
5428 --
5429 end gen_xml_footer;
5430 --
5431 -- -------------------------------------------------------------------------
5432 -- archive_data
5433 -- -------------------------------------------------------------------------
5434 procedure archive_data(
5435 p_assignment_action_id in number,
5436 p_effective_date in date)
5437 is
5438 --
5439 l_proc varchar2(80) := c_package||'archive_data';
5440 --
5441 l_assignment_id number;
5442 l_tax_type pay_element_entry_values_f.screen_entry_value%type;
5443 --
5444 l_action_information_id number;
5445 l_object_version_number number;
5446 --
5447 begin
5448 --
5449 if g_debug
5450 and g_detail_debug = 'Y' then
5451 hr_utility.set_location(l_proc,0);
5452 hr_utility.trace('assignment_action_id : '||p_assignment_action_id);
5453 end if;
5454 --
5455 -- init_assact(
5456 -- p_assignment_action_id => p_assignment_action_id,
5457 -- p_assignment_id => l_assignment_id);
5458 ----
5459 -- if g_debug
5460 -- and g_detail_debug = 'Y' then
5461 -- hr_utility.set_location(l_proc,10);
5462 -- end if;
5463 ----
5464 -- archive_assact(
5465 -- p_assignment_action_id => p_assignment_action_id,
5466 -- p_assignment_id => l_assignment_id);
5467 --
5468 if g_debug
5469 and g_detail_debug = 'Y' then
5470 hr_utility.set_location(l_proc,1000);
5471 end if;
5472 --
5473 end archive_data;
5474 --
5475 -- -------------------------------------------------------------------------
5476 -- deinitialize_code
5477 -- -------------------------------------------------------------------------
5478 procedure deinitialize_code(
5479 p_payroll_action_id in number)
5480 is
5481 --
5482 l_proc varchar2(80) := c_package||'deinitialize_code';
5483 --
5484 l_all_district_cnt number;
5485 l_all_emp_cnt number;
5486 l_all_term_emp_cnt number;
5487 --
5488 begin
5489 --
5490 if g_debug then
5491 hr_utility.set_location(l_proc,0);
5492 end if;
5493 --
5494 --archive_pact(p_payroll_action_id);
5495 --
5496 if g_debug
5497 and g_detail_debug = 'Y' then
5498 hr_utility.set_location(l_proc,10);
5499 hr_utility.trace('g_summary_tbl.count : '||to_char(g_summary_tbl.count));
5500 end if;
5501 --
5502 --
5503 -- cnt note log
5504 --
5505 if g_show_summary is null
5506 or g_show_summary <> 'N' then
5507 --
5508 if g_summary_tbl.count > 0 then
5509 --
5510 l_all_district_cnt := 0;
5511 l_all_emp_cnt := 0;
5512 l_all_term_emp_cnt := 0;
5513 --
5514 fnd_file.put_line(fnd_file.log,'----------------------------------------------------------------------------------------------------');
5515 fnd_file.put_line(fnd_file.log,'File Name - Municipality Code : Special Withholding Agent / Employee / Retired Employee');
5516 fnd_file.put_line(fnd_file.log,'----------------------------------------------------------------------------------------------------');
5517 --
5518 for j in 1..g_summary_tbl.count loop
5519 --
5520 fnd_file.put_line(fnd_file.log,
5521 g_summary_tbl(j).file_name||' - '||
5522 g_summary_tbl(j).district_code||' : '||
5523 to_char(g_summary_tbl(j).itax_org_cnt)||' / '||
5524 to_char(g_summary_tbl(j).emp_cnt)||' / '||
5525 to_char(g_summary_tbl(j).term_emp_cnt));
5526 --
5527 if g_summary_tbl(j).district_code is not null then
5528 --
5529 l_all_district_cnt := l_all_district_cnt + 1;
5530 --
5531 end if;
5532 --
5533 l_all_emp_cnt := l_all_emp_cnt + g_summary_tbl(j).emp_cnt;
5534 l_all_term_emp_cnt := l_all_term_emp_cnt + g_summary_tbl(j).term_emp_cnt;
5535 --
5536 end loop;
5537 --
5538 fnd_file.put_line(fnd_file.log,' ');
5539 fnd_file.put_line(fnd_file.log,'----------------------------------------------------------------------------------------------------');
5540 fnd_file.put_line(fnd_file.log,'Total : Municipality Code / Employee / Retired Employee');
5541 fnd_file.put_line(fnd_file.log,'----------------------------------------------------------------------------------------------------');
5542 fnd_file.put_line(fnd_file.log,
5543 'Total : '||
5544 to_char(l_all_district_cnt)||' / '||
5545 to_char(l_all_emp_cnt)||' / '||
5546 to_char(l_all_term_emp_cnt));
5547 fnd_file.put_line(fnd_file.log,' ');
5548 --
5549 end if;
5550 --
5551 end if;
5552 --
5553 g_per_ind_tbl.delete;
5554 g_ass_ind_tbl.delete;
5555 g_ass_tbl.delete;
5556 g_assact_tbl.delete;
5557 g_body_tbl.delete;
5558 g_file_tbl.delete;
5559 g_warning_exist := null;
5560 g_warning_header := null;
5561 g_summary_tbl.delete;
5562 --
5563 if g_debug
5564 and g_detail_debug = 'Y' then
5565 hr_utility.set_location(l_proc,20);
5566 end if;
5567 --
5568 --pay_core_xdo_utils.archive_deinit(p_payroll_action_id);
5569 pay_core_xdo_utils.standard_deinit(p_payroll_action_id);
5570 --
5571 if g_debug then
5572 hr_utility.set_location(l_proc,1000);
5573 end if;
5574 --
5575 end deinitialize_code;
5576 --
5577 -- -------------------------------------------------------------------------
5578 -- sort_code
5579 -- -------------------------------------------------------------------------
5580 --procedure sort_code(
5581 -- p_payroll_action_id in number,
5582 -- p_sqlstr in out nocopy varchar2,
5583 -- p_length out number)
5584 --is
5585 ----
5586 -- l_proc varchar2(80) := c_package||'sort_code';
5587 ----
5588 --begin
5589 ----
5590 -- if g_debug then
5591 -- hr_utility.set_location(l_proc,0);
5592 -- end if;
5593 ----
5594 -- p_sqlstr :=
5595 -- 'select paa.rowid
5596 -- from pay_payroll_actions ppa,
5597 -- pay_assignment_actions paa
5598 -- where ppa.payroll_action_id = :pactid
5599 -- and paa.payroll_action_id = ppa.payroll_action_id';
5600 ----
5601 -- p_length := lengthb(p_sqlstr);
5602 ----
5603 -- if g_debug then
5604 -- hr_utility.set_location(l_proc,1000);
5605 -- end if;
5606 ----
5607 --end sort_code;
5608 --
5609 end pay_jp_spr_efile_pkg;