196: v_csr_get_retro_wts csr_get_retro_wts%ROWTYPE;
197:
198: BEGIN
199:
200: hr_utility.set_location('p_asg_sct_id-'||to_char(p_asg_act_id)||' p_element_type_id-'||to_char(p_element_type_id)||' p_retro_date-'||to_char(p_retro_date,'DD-MON-RRRR'),999);
201:
202: FOR v_csr_get_retro_wts IN csr_get_retro_wts(p_asg_act_id, p_element_type_id, p_retro_date)
203: LOOP
204:
454: execute immediate ('alter session set nls_numeric_characters =''.,''');
455: END IF;
456: l_format := FND_PROFILE.VALUE('ICX_DATE_FORMAT_MASK');
457: execute immediate 'alter session set nls_date_format = ''' ||l_format ||'''';
458: --hr_utility.trace_on(null,'WTS_bug');
459: hr_utility.set_location('Inside populate_wts_report_data',2000);
460:
461: OPEN csr_get_bg_name(p_bg_id);
462: FETCH csr_get_bg_name INTO l_bg_name;
455: END IF;
456: l_format := FND_PROFILE.VALUE('ICX_DATE_FORMAT_MASK');
457: execute immediate 'alter session set nls_date_format = ''' ||l_format ||'''';
458: --hr_utility.trace_on(null,'WTS_bug');
459: hr_utility.set_location('Inside populate_wts_report_data',2000);
460:
461: OPEN csr_get_bg_name(p_bg_id);
462: FETCH csr_get_bg_name INTO l_bg_name;
463: CLOSE csr_get_bg_name;
460:
461: OPEN csr_get_bg_name(p_bg_id);
462: FETCH csr_get_bg_name INTO l_bg_name;
463: CLOSE csr_get_bg_name;
464: hr_utility.set_location('Inside populate_wts_report_data: l_bg_name'||l_bg_name,2040);
465:
466: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagName := 'BG_NAME';
467: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := l_bg_name;
468: vCtr := vCtr + 1;
502: l_emp_total_subsidy := 0;
503:
504: FOR v_csr_get_record_details IN csr_get_record_details
505: LOOP
506: hr_utility.set_location('Inside populate_wts_report_data: Each Record: Employer: '||v_csr_get_record_details.employer_name,2050);
507: IF ((NVL(l_payroll_id,-1) <> v_csr_get_record_details.payroll_id
508: AND l_payroll_id IS NOT NULL )
509: OR (NVL(l_person_id,-1)<> v_csr_get_record_details.person_id
510: AND l_person_id IS NOT NULL)) AND l_flag = FALSE THEN
716: vCtr := vCtr + 1;
717: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagName := 'G_CONTAINER_EMPLOYEE';
718: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := 'END';
719:
720: hr_utility.set_location('Outside populate_wts_report_data: Employer Loop',2100);
721: vCtr := vCtr + 1;
722: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagName := 'G_CONTAINER_EMPLOYER';
723: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := 'END';
724: END IF;
734: vCtr := vCtr + 1;
735: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagName := 'REP_TOT_PARENTAL';
736: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := TO_CHAR(ROUND(l_rp_tot_ppl_subsidy,2),'99G999G999G999D90MI');
737:
738: hr_utility.set_location('Outside populate_wts_report_data: WritetoCLOB_rtf',2150);
739: pay_nl_xdo_Report.WritetoCLOB_rtf(p_xfdf_blob );
740:
741: END populate_wts_report_data;
742:
1060: execute immediate ('alter session set nls_numeric_characters =''.,''');
1061: END IF;
1062: l_format := FND_PROFILE.VALUE('ICX_DATE_FORMAT_MASK');
1063: execute immediate 'alter session set nls_date_format = ''' ||l_format ||'''';
1064: --hr_utility.trace_on(null,'WTS_bug');
1065: hr_utility.set_location('Inside populate_wts_report_data',2000);
1066:
1067: OPEN csr_get_bg_name(p_bg_id);
1068: FETCH csr_get_bg_name INTO l_bg_name;
1061: END IF;
1062: l_format := FND_PROFILE.VALUE('ICX_DATE_FORMAT_MASK');
1063: execute immediate 'alter session set nls_date_format = ''' ||l_format ||'''';
1064: --hr_utility.trace_on(null,'WTS_bug');
1065: hr_utility.set_location('Inside populate_wts_report_data',2000);
1066:
1067: OPEN csr_get_bg_name(p_bg_id);
1068: FETCH csr_get_bg_name INTO l_bg_name;
1069: CLOSE csr_get_bg_name;
1066:
1067: OPEN csr_get_bg_name(p_bg_id);
1068: FETCH csr_get_bg_name INTO l_bg_name;
1069: CLOSE csr_get_bg_name;
1070: hr_utility.set_location('Inside populate_wts_report_data: l_bg_name'||l_bg_name,2040);
1071:
1072: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagName := 'BG_NAME';
1073: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := l_bg_name;
1074: vCtr := vCtr + 1;
1108: l_emp_total_subsidy := 0;
1109:
1110: FOR v_csr_get_record_details IN csr_get_record_details
1111: LOOP
1112: hr_utility.set_location('Inside populate_wts_report_data: Each Record: Employer: '||v_csr_get_record_details.employer_name,2050);
1113: IF ((NVL(l_payroll_id,-1) <> v_csr_get_record_details.payroll_id
1114: AND l_payroll_id IS NOT NULL )
1115: OR (NVL(l_person_id,-1)<> v_csr_get_record_details.person_id
1116: AND l_person_id IS NOT NULL)) AND l_flag = FALSE THEN
1323: vCtr := vCtr + 1;
1324: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagName := 'G_CONTAINER_EMPLOYEE';
1325: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := 'END';
1326:
1327: hr_utility.set_location('Outside populate_wts_report_data: Employer Loop',2100);
1328: vCtr := vCtr + 1;
1329: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagName := 'G_CONTAINER_EMPLOYER';
1330: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := 'END';
1331: END IF;
1341: vCtr := vCtr + 1;
1342: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagName := 'REP_TOT_PARENTAL';
1343: PAY_NL_XDO_REPORT.vXMLTable(vCtr).TagValue := TO_CHAR(ROUND(l_rp_tot_ppl_subsidy,2),'99G999G999G999D90MI');
1344:
1345: hr_utility.set_location('Outside populate_wts_report_data: WritetoCLOB_rtf',2150);
1346: pay_nl_xdo_Report.WritetoCLOB_rtf_1(p_xml);
1347:
1348: END populate_wts_report_data_1;
1349: