129: l_bg_id:=fnd_profile.value('PER_BUSINESS_GROUP_ID');
130:
131: -- pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(,0));
132:
133: pay_in_xml_utils.gXMLTable.delete;
134: l_count:=1;
135: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_sl';
136: pay_in_xml_utils.gXMLTable(l_count).Value := (p_row_num+1);
137: l_count := l_count + 1;
131: -- pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(,0));
132:
133: pay_in_xml_utils.gXMLTable.delete;
134: l_count:=1;
135: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_sl';
136: pay_in_xml_utils.gXMLTable(l_count).Value := (p_row_num+1);
137: l_count := l_count + 1;
138: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
139: pay_in_xml_utils.gXMLTable(l_count).Value :=
132:
133: pay_in_xml_utils.gXMLTable.delete;
134: l_count:=1;
135: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_sl';
136: pay_in_xml_utils.gXMLTable(l_count).Value := (p_row_num+1);
137: l_count := l_count + 1;
138: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
139: pay_in_xml_utils.gXMLTable(l_count).Value :=
140: (to_char(add_months(to_date('01-03-2004','DD-MM-YYYY'),p_row_num),'Mon'));
134: l_count:=1;
135: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_sl';
136: pay_in_xml_utils.gXMLTable(l_count).Value := (p_row_num+1);
137: l_count := l_count + 1;
138: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
139: pay_in_xml_utils.gXMLTable(l_count).Value :=
140: (to_char(add_months(to_date('01-03-2004','DD-MM-YYYY'),p_row_num),'Mon'));
141: IF pay_in_xml_utils.gXMLTable(l_count).Value='Mar' THEN
142: pay_in_xml_utils.gXMLTable(l_count).Value:=pay_in_xml_utils.gXMLTable(l_count).Value||' Paid in April';
135: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_sl';
136: pay_in_xml_utils.gXMLTable(l_count).Value := (p_row_num+1);
137: l_count := l_count + 1;
138: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
139: pay_in_xml_utils.gXMLTable(l_count).Value :=
140: (to_char(add_months(to_date('01-03-2004','DD-MM-YYYY'),p_row_num),'Mon'));
141: IF pay_in_xml_utils.gXMLTable(l_count).Value='Mar' THEN
142: pay_in_xml_utils.gXMLTable(l_count).Value:=pay_in_xml_utils.gXMLTable(l_count).Value||' Paid in April';
143: END IF;
137: l_count := l_count + 1;
138: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
139: pay_in_xml_utils.gXMLTable(l_count).Value :=
140: (to_char(add_months(to_date('01-03-2004','DD-MM-YYYY'),p_row_num),'Mon'));
141: IF pay_in_xml_utils.gXMLTable(l_count).Value='Mar' THEN
142: pay_in_xml_utils.gXMLTable(l_count).Value:=pay_in_xml_utils.gXMLTable(l_count).Value||' Paid in April';
143: END IF;
144: l_count := l_count + 1;
145: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_org';
138: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
139: pay_in_xml_utils.gXMLTable(l_count).Value :=
140: (to_char(add_months(to_date('01-03-2004','DD-MM-YYYY'),p_row_num),'Mon'));
141: IF pay_in_xml_utils.gXMLTable(l_count).Value='Mar' THEN
142: pay_in_xml_utils.gXMLTable(l_count).Value:=pay_in_xml_utils.gXMLTable(l_count).Value||' Paid in April';
143: END IF;
144: l_count := l_count + 1;
145: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_org';
146: pay_in_xml_utils.gXMLTable(l_count).Value :=
141: IF pay_in_xml_utils.gXMLTable(l_count).Value='Mar' THEN
142: pay_in_xml_utils.gXMLTable(l_count).Value:=pay_in_xml_utils.gXMLTable(l_count).Value||' Paid in April';
143: END IF;
144: l_count := l_count + 1;
145: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_org';
146: pay_in_xml_utils.gXMLTable(l_count).Value :=
147: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_epf_org,0));
148: l_count := l_count + 1;
149: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_org';
142: pay_in_xml_utils.gXMLTable(l_count).Value:=pay_in_xml_utils.gXMLTable(l_count).Value||' Paid in April';
143: END IF;
144: l_count := l_count + 1;
145: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_org';
146: pay_in_xml_utils.gXMLTable(l_count).Value :=
147: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_epf_org,0));
148: l_count := l_count + 1;
149: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_org';
150: pay_in_xml_utils.gXMLTable(l_count).Value :=
145: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_org';
146: pay_in_xml_utils.gXMLTable(l_count).Value :=
147: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_epf_org,0));
148: l_count := l_count + 1;
149: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_org';
150: pay_in_xml_utils.gXMLTable(l_count).Value :=
151: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pension_org,0));
152: l_count := l_count + 1;
153: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_dli_pf_org';
146: pay_in_xml_utils.gXMLTable(l_count).Value :=
147: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_epf_org,0));
148: l_count := l_count + 1;
149: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_org';
150: pay_in_xml_utils.gXMLTable(l_count).Value :=
151: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pension_org,0));
152: l_count := l_count + 1;
153: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_dli_pf_org';
154: pay_in_xml_utils.gXMLTable(l_count).Value :=
149: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_org';
150: pay_in_xml_utils.gXMLTable(l_count).Value :=
151: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pension_org,0));
152: l_count := l_count + 1;
153: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_dli_pf_org';
154: pay_in_xml_utils.gXMLTable(l_count).Value :=
155: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_dli_contr,0));
156: l_count := l_count + 1;
157: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_admin_pf';
150: pay_in_xml_utils.gXMLTable(l_count).Value :=
151: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pension_org,0));
152: l_count := l_count + 1;
153: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_dli_pf_org';
154: pay_in_xml_utils.gXMLTable(l_count).Value :=
155: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_dli_contr,0));
156: l_count := l_count + 1;
157: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_admin_pf';
158: pay_in_xml_utils.gXMLTable(l_count).Value :=
153: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_dli_pf_org';
154: pay_in_xml_utils.gXMLTable(l_count).Value :=
155: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_dli_contr,0));
156: l_count := l_count + 1;
157: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_admin_pf';
158: pay_in_xml_utils.gXMLTable(l_count).Value :=
159: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_admin_chrg,0));
160: l_count := l_count + 1;
161: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_edli_adm';
154: pay_in_xml_utils.gXMLTable(l_count).Value :=
155: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_dli_contr,0));
156: l_count := l_count + 1;
157: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_admin_pf';
158: pay_in_xml_utils.gXMLTable(l_count).Value :=
159: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_admin_chrg,0));
160: l_count := l_count + 1;
161: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_edli_adm';
162: pay_in_xml_utils.gXMLTable(l_count).Value :=
157: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_admin_pf';
158: pay_in_xml_utils.gXMLTable(l_count).Value :=
159: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_admin_chrg,0));
160: l_count := l_count + 1;
161: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_edli_adm';
162: pay_in_xml_utils.gXMLTable(l_count).Value :=
163: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_edli_adm,0));
164: l_count := l_count + 1;
165: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_total';
158: pay_in_xml_utils.gXMLTable(l_count).Value :=
159: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_admin_chrg,0));
160: l_count := l_count + 1;
161: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_edli_adm';
162: pay_in_xml_utils.gXMLTable(l_count).Value :=
163: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_edli_adm,0));
164: l_count := l_count + 1;
165: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_total';
166: pay_in_xml_utils.gXMLTable(l_count).Value :=
161: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_edli_adm';
162: pay_in_xml_utils.gXMLTable(l_count).Value :=
163: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_edli_adm,0));
164: l_count := l_count + 1;
165: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_total';
166: pay_in_xml_utils.gXMLTable(l_count).Value :=
167: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_total,0));
168: l_count := l_count + 1;
169: pay_in_xml_utils.multiColumnar('monthly',pay_in_xml_utils.gXMLTable,l_count,p_xml_data);
162: pay_in_xml_utils.gXMLTable(l_count).Value :=
163: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_edli_adm,0));
164: l_count := l_count + 1;
165: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_total';
166: pay_in_xml_utils.gXMLTable(l_count).Value :=
167: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_total,0));
168: l_count := l_count + 1;
169: pay_in_xml_utils.multiColumnar('monthly',pay_in_xml_utils.gXMLTable,l_count,p_xml_data);
170: pay_in_xml_utils.gXMLTable.delete;
165: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_total';
166: pay_in_xml_utils.gXMLTable(l_count).Value :=
167: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_total,0));
168: l_count := l_count + 1;
169: pay_in_xml_utils.multiColumnar('monthly',pay_in_xml_utils.gXMLTable,l_count,p_xml_data);
170: pay_in_xml_utils.gXMLTable.delete;
171:
172: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
173:
166: pay_in_xml_utils.gXMLTable(l_count).Value :=
167: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_total,0));
168: l_count := l_count + 1;
169: pay_in_xml_utils.multiColumnar('monthly',pay_in_xml_utils.gXMLTable,l_count,p_xml_data);
170: pay_in_xml_utils.gXMLTable.delete;
171:
172: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
173:
174: END insert_record;
217:
218: l_bg_id:=fnd_profile.value('PER_BUSINESS_GROUP_ID');
219: l_count:=1;
220: --PF Salary _ASG_ORG_PTD
221: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_salary_ptd';
222: pay_in_xml_utils.gXMLTable(l_count).Value :=
223: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pf_salary_ptd,0));
224: l_count := l_count + 1;
225: --Total Employee Contr
218: l_bg_id:=fnd_profile.value('PER_BUSINESS_GROUP_ID');
219: l_count:=1;
220: --PF Salary _ASG_ORG_PTD
221: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_salary_ptd';
222: pay_in_xml_utils.gXMLTable(l_count).Value :=
223: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pf_salary_ptd,0));
224: l_count := l_count + 1;
225: --Total Employee Contr
226: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf';
222: pay_in_xml_utils.gXMLTable(l_count).Value :=
223: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pf_salary_ptd,0));
224: l_count := l_count + 1;
225: --Total Employee Contr
226: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf';
227: pay_in_xml_utils.gXMLTable(l_count).Value :=
228: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_epf,0));
229: l_count := l_count + 1;
230: --Employer Contr towards PF
223: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pf_salary_ptd,0));
224: l_count := l_count + 1;
225: --Total Employee Contr
226: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf';
227: pay_in_xml_utils.gXMLTable(l_count).Value :=
228: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_epf,0));
229: l_count := l_count + 1;
230: --Employer Contr towards PF
231: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_difference';
227: pay_in_xml_utils.gXMLTable(l_count).Value :=
228: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_epf,0));
229: l_count := l_count + 1;
230: --Employer Contr towards PF
231: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_difference';
232: pay_in_xml_utils.gXMLTable(l_count).Value :=
233: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_epf_diff,0));
234: l_count := l_count + 1;
235: --Employer Contr towards Pension
228: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_epf,0));
229: l_count := l_count + 1;
230: --Employer Contr towards PF
231: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_difference';
232: pay_in_xml_utils.gXMLTable(l_count).Value :=
233: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_epf_diff,0));
234: l_count := l_count + 1;
235: --Employer Contr towards Pension
236: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_fund';
232: pay_in_xml_utils.gXMLTable(l_count).Value :=
233: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_epf_diff,0));
234: l_count := l_count + 1;
235: --Employer Contr towards Pension
236: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_fund';
237: pay_in_xml_utils.gXMLTable(l_count).Value :=
238: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pension_fund,0));
239: l_count := l_count + 1;
240: --Absence
233: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_epf_diff,0));
234: l_count := l_count + 1;
235: --Employer Contr towards Pension
236: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_fund';
237: pay_in_xml_utils.gXMLTable(l_count).Value :=
238: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pension_fund,0));
239: l_count := l_count + 1;
240: --Absence
241: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_absence';
237: pay_in_xml_utils.gXMLTable(l_count).Value :=
238: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pension_fund,0));
239: l_count := l_count + 1;
240: --Absence
241: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_absence';
242: pay_in_xml_utils.gXMLTable(l_count).Value :=
243: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_absence,0));
244: l_count := l_count + 1;
245: --Remarks
238: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pension_fund,0));
239: l_count := l_count + 1;
240: --Absence
241: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_absence';
242: pay_in_xml_utils.gXMLTable(l_count).Value :=
243: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_absence,0));
244: l_count := l_count + 1;
245: --Remarks
246: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
242: pay_in_xml_utils.gXMLTable(l_count).Value :=
243: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_absence,0));
244: l_count := l_count + 1;
245: --Remarks
246: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
247: pay_in_xml_utils.gXMLTable(l_count).Value := (p_remarks);
248: l_count := l_count + 1;
249: --Payroll Month
250: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
243: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_absence,0));
244: l_count := l_count + 1;
245: --Remarks
246: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
247: pay_in_xml_utils.gXMLTable(l_count).Value := (p_remarks);
248: l_count := l_count + 1;
249: --Payroll Month
250: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
251: IF p_month_name='Mar'then
246: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
247: pay_in_xml_utils.gXMLTable(l_count).Value := (p_remarks);
248: l_count := l_count + 1;
249: --Payroll Month
250: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
251: IF p_month_name='Mar'then
252: pay_in_xml_utils.gXMLTable(l_count).Value :=p_month_name||' Paid in Apr';
253: ELSE
254: pay_in_xml_utils.gXMLTable(l_count).Value :=p_month_name;
248: l_count := l_count + 1;
249: --Payroll Month
250: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
251: IF p_month_name='Mar'then
252: pay_in_xml_utils.gXMLTable(l_count).Value :=p_month_name||' Paid in Apr';
253: ELSE
254: pay_in_xml_utils.gXMLTable(l_count).Value :=p_month_name;
255: END IF;
256: l_count := l_count + 1;
250: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
251: IF p_month_name='Mar'then
252: pay_in_xml_utils.gXMLTable(l_count).Value :=p_month_name||' Paid in Apr';
253: ELSE
254: pay_in_xml_utils.gXMLTable(l_count).Value :=p_month_name;
255: END IF;
256: l_count := l_count + 1;
257: pay_in_xml_utils.multiColumnar('t_month',pay_in_xml_utils.gXMLTable,l_count,p_xml_data);
258: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
253: ELSE
254: pay_in_xml_utils.gXMLTable(l_count).Value :=p_month_name;
255: END IF;
256: l_count := l_count + 1;
257: pay_in_xml_utils.multiColumnar('t_month',pay_in_xml_utils.gXMLTable,l_count,p_xml_data);
258: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
259:
260: END insert_null_record;
261:
292: BEGIN
293: l_procedure := g_package ||'insert_ch_record';
294: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
295:
296: pay_in_xml_utils.gXMLTable.DELETE;
297: l_bg_id:=fnd_profile.value('PER_BUSINESS_GROUP_ID');
298: l_count:=1;
299:
300: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_org'||p_row_num;
296: pay_in_xml_utils.gXMLTable.DELETE;
297: l_bg_id:=fnd_profile.value('PER_BUSINESS_GROUP_ID');
298: l_count:=1;
299:
300: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_org'||p_row_num;
301: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,p_pension_org);
302: l_count := l_count + 1;
303:
304: pay_in_xml_utils.multiColumnar('monthly',pay_in_xml_utils.gXMLTable,l_count,p_xml_data);
297: l_bg_id:=fnd_profile.value('PER_BUSINESS_GROUP_ID');
298: l_count:=1;
299:
300: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_org'||p_row_num;
301: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,p_pension_org);
302: l_count := l_count + 1;
303:
304: pay_in_xml_utils.multiColumnar('monthly',pay_in_xml_utils.gXMLTable,l_count,p_xml_data);
305: pay_in_xml_utils.gXMLTable.DELETE;
300: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_org'||p_row_num;
301: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,p_pension_org);
302: l_count := l_count + 1;
303:
304: pay_in_xml_utils.multiColumnar('monthly',pay_in_xml_utils.gXMLTable,l_count,p_xml_data);
305: pay_in_xml_utils.gXMLTable.DELETE;
306: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
307:
308: END insert_ch_record;
301: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,p_pension_org);
302: l_count := l_count + 1;
303:
304: pay_in_xml_utils.multiColumnar('monthly',pay_in_xml_utils.gXMLTable,l_count,p_xml_data);
305: pay_in_xml_utils.gXMLTable.DELETE;
306: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
307:
308: END insert_ch_record;
309:
348:
349: l_bg_id:= fnd_profile.value('PER_BUSINESS_GROUP_ID');
350: l_count:=1;
351: --PF Salary _ASG_ORG_PTD
352: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_salary_ptd';
353: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pf_salary_ptd,0));
354: l_count := l_count + 1;
355:
356: --Employer Contr towards Pension
349: l_bg_id:= fnd_profile.value('PER_BUSINESS_GROUP_ID');
350: l_count:=1;
351: --PF Salary _ASG_ORG_PTD
352: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_salary_ptd';
353: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pf_salary_ptd,0));
354: l_count := l_count + 1;
355:
356: --Employer Contr towards Pension
357: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_fund';
353: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pf_salary_ptd,0));
354: l_count := l_count + 1;
355:
356: --Employer Contr towards Pension
357: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_fund';
358: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pension_fund,0));
359: l_count := l_count + 1;
360: --Absence
361: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_absence';
354: l_count := l_count + 1;
355:
356: --Employer Contr towards Pension
357: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_fund';
358: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pension_fund,0));
359: l_count := l_count + 1;
360: --Absence
361: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_absence';
362: pay_in_xml_utils.gXMLTable(l_count).Value := nvl(p_absence,0);
357: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_fund';
358: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pension_fund,0));
359: l_count := l_count + 1;
360: --Absence
361: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_absence';
362: pay_in_xml_utils.gXMLTable(l_count).Value := nvl(p_absence,0);
363: l_count := l_count + 1;
364: --Remarks
365: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
358: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(p_pension_fund,0));
359: l_count := l_count + 1;
360: --Absence
361: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_absence';
362: pay_in_xml_utils.gXMLTable(l_count).Value := nvl(p_absence,0);
363: l_count := l_count + 1;
364: --Remarks
365: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
366: pay_in_xml_utils.gXMLTable(l_count).Value := (p_remarks);
361: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_absence';
362: pay_in_xml_utils.gXMLTable(l_count).Value := nvl(p_absence,0);
363: l_count := l_count + 1;
364: --Remarks
365: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
366: pay_in_xml_utils.gXMLTable(l_count).Value := (p_remarks);
367: l_count := l_count + 1;
368: --Payroll Month
369: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
362: pay_in_xml_utils.gXMLTable(l_count).Value := nvl(p_absence,0);
363: l_count := l_count + 1;
364: --Remarks
365: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
366: pay_in_xml_utils.gXMLTable(l_count).Value := (p_remarks);
367: l_count := l_count + 1;
368: --Payroll Month
369: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
370: IF p_month_name='Mar'then
365: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
366: pay_in_xml_utils.gXMLTable(l_count).Value := (p_remarks);
367: l_count := l_count + 1;
368: --Payroll Month
369: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
370: IF p_month_name='Mar'then
371: pay_in_xml_utils.gXMLTable(l_count).Value :=p_month_name||' Paid in Apr';
372: ELSE
373: pay_in_xml_utils.gXMLTable(l_count).Value :=p_month_name;
367: l_count := l_count + 1;
368: --Payroll Month
369: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
370: IF p_month_name='Mar'then
371: pay_in_xml_utils.gXMLTable(l_count).Value :=p_month_name||' Paid in Apr';
372: ELSE
373: pay_in_xml_utils.gXMLTable(l_count).Value :=p_month_name;
374: END IF;
375:
369: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_month';
370: IF p_month_name='Mar'then
371: pay_in_xml_utils.gXMLTable(l_count).Value :=p_month_name||' Paid in Apr';
372: ELSE
373: pay_in_xml_utils.gXMLTable(l_count).Value :=p_month_name;
374: END IF;
375:
376: pay_in_xml_utils.multiColumnar('t_month',pay_in_xml_utils.gXMLTable,l_count,p_xml_data);
377: END insert_null_form7_record;
372: ELSE
373: pay_in_xml_utils.gXMLTable(l_count).Value :=p_month_name;
374: END IF;
375:
376: pay_in_xml_utils.multiColumnar('t_month',pay_in_xml_utils.gXMLTable,l_count,p_xml_data);
377: END insert_null_form7_record;
378:
379: --------------------------------------------------------------------------
380: -- --
602: fnd_file.put_line(fnd_file.log,'Creating XML for PT Form III.');
603:
604: --System Date:
605: l_sys_date_time := to_char(SYSDATE,'DD-Mon-YYYY HH24:MI:SS');
606: l_tag :=pay_in_xml_utils.getTag('c_sys_date_in_hh_mm_ss',l_sys_date_time);
607: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
608:
609: IF g_debug THEN
610: pay_in_utils.trace('Business Group id ',l_bg_id);
674: ,l_bsrtc_no;
675: CLOSE c_org_details;
676: pay_in_utils.set_location(g_debug,l_procedure, 60);
677: -- Registered No
678: l_tag :=pay_in_xml_utils.getTag('c_registered_no', l_registered_no);
679: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
680: --Organization Name and Address
681: l_tag :=pay_in_xml_utils.getTag('c_registered_name', l_registered_name);
682: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
677: -- Registered No
678: l_tag :=pay_in_xml_utils.getTag('c_registered_no', l_registered_no);
679: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
680: --Organization Name and Address
681: l_tag :=pay_in_xml_utils.getTag('c_registered_name', l_registered_name);
682: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
683: l_tag :=pay_in_xml_utils.getTag('c_registered_address', l_reg_address);
684: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
685: --Report Period
679: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
680: --Organization Name and Address
681: l_tag :=pay_in_xml_utils.getTag('c_registered_name', l_registered_name);
682: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
683: l_tag :=pay_in_xml_utils.getTag('c_registered_address', l_reg_address);
684: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
685: --Report Period
686: l_tag :=pay_in_xml_utils.getTag('c_period_from', to_char(period_start));
687: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
682: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
683: l_tag :=pay_in_xml_utils.getTag('c_registered_address', l_reg_address);
684: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
685: --Report Period
686: l_tag :=pay_in_xml_utils.getTag('c_period_from', to_char(period_start));
687: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
688: l_tag :=pay_in_xml_utils.getTag('c_period_to', to_char(period_end));
689: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
690: --Organization Rep Name and Designation
684: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
685: --Report Period
686: l_tag :=pay_in_xml_utils.getTag('c_period_from', to_char(period_start));
687: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
688: l_tag :=pay_in_xml_utils.getTag('c_period_to', to_char(period_end));
689: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
690: --Organization Rep Name and Designation
691: l_tag :=pay_in_xml_utils.getTag('c_rep_name', l_rep_name);
692: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
687: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
688: l_tag :=pay_in_xml_utils.getTag('c_period_to', to_char(period_end));
689: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
690: --Organization Rep Name and Designation
691: l_tag :=pay_in_xml_utils.getTag('c_rep_name', l_rep_name);
692: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
693: l_tag :=pay_in_xml_utils.getTag('c_rep_desg', l_rep_desg);
694: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
695: --BSRTC No
689: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
690: --Organization Rep Name and Designation
691: l_tag :=pay_in_xml_utils.getTag('c_rep_name', l_rep_name);
692: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
693: l_tag :=pay_in_xml_utils.getTag('c_rep_desg', l_rep_desg);
694: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
695: --BSRTC No
696: l_tag :=pay_in_xml_utils.getTag('c_bsrtc_no', l_bsrtc_no);
697: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
692: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
693: l_tag :=pay_in_xml_utils.getTag('c_rep_desg', l_rep_desg);
694: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
695: --BSRTC No
696: l_tag :=pay_in_xml_utils.getTag('c_bsrtc_no', l_bsrtc_no);
697: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
698: --Date
699: l_tag :=pay_in_xml_utils.getTag('c_date', substr(l_sys_date_time, 1, 11));
700: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
695: --BSRTC No
696: l_tag :=pay_in_xml_utils.getTag('c_bsrtc_no', l_bsrtc_no);
697: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
698: --Date
699: l_tag :=pay_in_xml_utils.getTag('c_date', substr(l_sys_date_time, 1, 11));
700: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
701: pay_in_utils.set_location(g_debug,l_procedure, 70);
702:
703: IF g_debug THEN
820: -- Writing to the report if the slab is not the highest slab
821: -- Highest slab is written to the report once the loop is over since a sum is to be taken for 200 and 300
822: l_slab_month_tag := 'c_month' || l_period_month || '_emp_slab'|| l_slab;
823: fnd_file.put_line(fnd_file.log,'l_slab_month_tag: '|| l_slab_month_tag);
824: l_tag := pay_in_xml_utils.getTag(l_slab_month_tag, l_slab_month_count);
825: dbms_lob.writeAppend(g_xml_data, LENGTH(l_tag), l_tag);
826: END IF;
827:
828: END LOOP;
846:
847: IF l_slab_month_count <> 0 THEN
848: -- Writing to the file for the highest slab
849: l_slab_month_tag := 'c_month' || l_period_month || '_emp_slab6';
850: l_tag := pay_in_xml_utils.getTag(l_slab_month_tag, l_slab_month_count);
851: dbms_lob.writeAppend(g_xml_data, LENGTH(l_tag), l_tag);
852: END IF;
853:
854: l_date := ADD_MONTHS(l_date, 1);
856: END LOOP;
857: pay_in_utils.set_location(g_debug,l_procedure, 120);
858:
859: -- Writing the total employees in a slab
860: l_tag := pay_in_xml_utils.getTag('c_emp_slab_1', l_count_0);
861: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
862: -- l_tag := pay_in_xml_utils.getTag('c_emp_slab_2', l_count_30);
863: -- dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
864: l_tag := pay_in_xml_utils.getTag('c_emp_slab_3', l_count_60);
858:
859: -- Writing the total employees in a slab
860: l_tag := pay_in_xml_utils.getTag('c_emp_slab_1', l_count_0);
861: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
862: -- l_tag := pay_in_xml_utils.getTag('c_emp_slab_2', l_count_30);
863: -- dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
864: l_tag := pay_in_xml_utils.getTag('c_emp_slab_3', l_count_60);
865: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
866: l_tag := pay_in_xml_utils.getTag('c_emp_slab_4', l_count_120);
860: l_tag := pay_in_xml_utils.getTag('c_emp_slab_1', l_count_0);
861: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
862: -- l_tag := pay_in_xml_utils.getTag('c_emp_slab_2', l_count_30);
863: -- dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
864: l_tag := pay_in_xml_utils.getTag('c_emp_slab_3', l_count_60);
865: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
866: l_tag := pay_in_xml_utils.getTag('c_emp_slab_4', l_count_120);
867: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
868: l_tag := pay_in_xml_utils.getTag('c_emp_slab_5', l_count_175);
862: -- l_tag := pay_in_xml_utils.getTag('c_emp_slab_2', l_count_30);
863: -- dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
864: l_tag := pay_in_xml_utils.getTag('c_emp_slab_3', l_count_60);
865: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
866: l_tag := pay_in_xml_utils.getTag('c_emp_slab_4', l_count_120);
867: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
868: l_tag := pay_in_xml_utils.getTag('c_emp_slab_5', l_count_175);
869: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
870: l_tag := pay_in_xml_utils.getTag('c_emp_slab_6', l_count_200 + l_count_300);
864: l_tag := pay_in_xml_utils.getTag('c_emp_slab_3', l_count_60);
865: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
866: l_tag := pay_in_xml_utils.getTag('c_emp_slab_4', l_count_120);
867: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
868: l_tag := pay_in_xml_utils.getTag('c_emp_slab_5', l_count_175);
869: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
870: l_tag := pay_in_xml_utils.getTag('c_emp_slab_6', l_count_200 + l_count_300);
871: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
872:
866: l_tag := pay_in_xml_utils.getTag('c_emp_slab_4', l_count_120);
867: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
868: l_tag := pay_in_xml_utils.getTag('c_emp_slab_5', l_count_175);
869: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
870: l_tag := pay_in_xml_utils.getTag('c_emp_slab_6', l_count_200 + l_count_300);
871: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
872:
873: -- Calculating the PT paid in each slab
874: -- l_tax_slab_2 := l_slab_2 * l_count_30;
880:
881:
882: /*To maintain two formats of the report before to Jul09 and from Jul09*/
883: IF l_slab_3 = 0 THEN
884: l_tag := pay_in_xml_utils.getTag('c_rate_1', 'Nil');
885: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
886: ELSE
887: l_tag := pay_in_xml_utils.getTag('c_rate_1', 'Rs. 60');
888: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
883: IF l_slab_3 = 0 THEN
884: l_tag := pay_in_xml_utils.getTag('c_rate_1', 'Nil');
885: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
886: ELSE
887: l_tag := pay_in_xml_utils.getTag('c_rate_1', 'Rs. 60');
888: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
889: END IF;
890:
891: IF l_slab_4 = 0 THEN
888: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
889: END IF;
890:
891: IF l_slab_4 = 0 THEN
892: l_tag := pay_in_xml_utils.getTag('c_rate_2', 'Nil');
893: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
894: ELSE
895: l_tag := pay_in_xml_utils.getTag('c_rate_2', 'Rs. 120');
896: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
891: IF l_slab_4 = 0 THEN
892: l_tag := pay_in_xml_utils.getTag('c_rate_2', 'Nil');
893: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
894: ELSE
895: l_tag := pay_in_xml_utils.getTag('c_rate_2', 'Rs. 120');
896: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
897: END IF;
898:
899: IF l_cnt_60 = 0 THEN
896: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
897: END IF;
898:
899: IF l_cnt_60 = 0 THEN
900: l_tag := pay_in_xml_utils.getTag('c_rs1', 'Nil');
901: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
902: l_tag := pay_in_xml_utils.getTag('c_tax_slab_3', '');
903: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
904: ELSE
898:
899: IF l_cnt_60 = 0 THEN
900: l_tag := pay_in_xml_utils.getTag('c_rs1', 'Nil');
901: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
902: l_tag := pay_in_xml_utils.getTag('c_tax_slab_3', '');
903: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
904: ELSE
905: l_tag := pay_in_xml_utils.getTag('c_rs1', 'Rs.');
906: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
901: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
902: l_tag := pay_in_xml_utils.getTag('c_tax_slab_3', '');
903: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
904: ELSE
905: l_tag := pay_in_xml_utils.getTag('c_rs1', 'Rs.');
906: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
907: l_tag := pay_in_xml_utils.getTag('c_tax_slab_3', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_tax_slab_3,0)));
908: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
909: END IF;
903: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
904: ELSE
905: l_tag := pay_in_xml_utils.getTag('c_rs1', 'Rs.');
906: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
907: l_tag := pay_in_xml_utils.getTag('c_tax_slab_3', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_tax_slab_3,0)));
908: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
909: END IF;
910:
911: IF l_cnt_120 = 0 THEN
908: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
909: END IF;
910:
911: IF l_cnt_120 = 0 THEN
912: l_tag := pay_in_xml_utils.getTag('c_rs2', 'Nil');
913: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
914: l_tag := pay_in_xml_utils.getTag('c_tax_slab_4', '');
915: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
916: ELSE
910:
911: IF l_cnt_120 = 0 THEN
912: l_tag := pay_in_xml_utils.getTag('c_rs2', 'Nil');
913: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
914: l_tag := pay_in_xml_utils.getTag('c_tax_slab_4', '');
915: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
916: ELSE
917: l_tag := pay_in_xml_utils.getTag('c_rs2', 'Rs.');
918: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
913: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
914: l_tag := pay_in_xml_utils.getTag('c_tax_slab_4', '');
915: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
916: ELSE
917: l_tag := pay_in_xml_utils.getTag('c_rs2', 'Rs.');
918: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
919: l_tag := pay_in_xml_utils.getTag('c_tax_slab_4', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_tax_slab_4,0)));
920: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
921: END IF;
915: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
916: ELSE
917: l_tag := pay_in_xml_utils.getTag('c_rs2', 'Rs.');
918: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
919: l_tag := pay_in_xml_utils.getTag('c_tax_slab_4', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_tax_slab_4,0)));
920: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
921: END IF;
922:
923:
921: END IF;
922:
923:
924: -- Writing to file the calculated PT paid in each slab
925: -- l_tag := pay_in_xml_utils.getTag('c_tax_slab_2', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_tax_slab_2,0)));
926: -- dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
927: l_tag := pay_in_xml_utils.getTag('c_tax_slab_5', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_tax_slab_5,0)));
928: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
929: l_tag := pay_in_xml_utils.getTag('c_tax_slab_6', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_tax_slab_6,0)));
923:
924: -- Writing to file the calculated PT paid in each slab
925: -- l_tag := pay_in_xml_utils.getTag('c_tax_slab_2', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_tax_slab_2,0)));
926: -- dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
927: l_tag := pay_in_xml_utils.getTag('c_tax_slab_5', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_tax_slab_5,0)));
928: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
929: l_tag := pay_in_xml_utils.getTag('c_tax_slab_6', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_tax_slab_6,0)));
930: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
931:
925: -- l_tag := pay_in_xml_utils.getTag('c_tax_slab_2', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_tax_slab_2,0)));
926: -- dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
927: l_tag := pay_in_xml_utils.getTag('c_tax_slab_5', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_tax_slab_5,0)));
928: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
929: l_tag := pay_in_xml_utils.getTag('c_tax_slab_6', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_tax_slab_6,0)));
930: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
931:
932: pay_in_utils.set_location(g_debug,l_procedure, 130);
933:
946: pay_in_utils.trace('Excess Tax ',l_excess_tax);
947: END IF;
948:
949:
950: l_tag := pay_in_xml_utils.getTag('c_tax_amount', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_tax_amount,0)));
951: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
952:
953: l_tag := pay_in_xml_utils.getTag('c_interest_amount', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_interest_amount,0)));
954: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
949:
950: l_tag := pay_in_xml_utils.getTag('c_tax_amount', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_tax_amount,0)));
951: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
952:
953: l_tag := pay_in_xml_utils.getTag('c_interest_amount', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_interest_amount,0)));
954: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
955:
956: l_tag := pay_in_xml_utils.getTag('c_excess_tax', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_excess_tax,0)));
957: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
952:
953: l_tag := pay_in_xml_utils.getTag('c_interest_amount', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_interest_amount,0)));
954: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
955:
956: l_tag := pay_in_xml_utils.getTag('c_excess_tax', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_excess_tax,0)));
957: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
958:
959: l_net_amount := l_tax_amount - l_excess_tax + l_interest_amount;
960:
957: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
958:
959: l_net_amount := l_tax_amount - l_excess_tax + l_interest_amount;
960:
961: l_tag := pay_in_xml_utils.getTag('c_net_amount', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_net_amount,0)));
962: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
963:
964: l_tag := pay_in_xml_utils.getTag('c_total_amount_words', initcap(pay_in_utils.number_to_words(l_net_amount)));
965: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
960:
961: l_tag := pay_in_xml_utils.getTag('c_net_amount', pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_net_amount,0)));
962: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
963:
964: l_tag := pay_in_xml_utils.getTag('c_total_amount_words', initcap(pay_in_utils.number_to_words(l_net_amount)));
965: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
966:
967: l_tag :=pay_in_xml_utils.getTag('c_year', period_start_year);
968: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
963:
964: l_tag := pay_in_xml_utils.getTag('c_total_amount_words', initcap(pay_in_utils.number_to_words(l_net_amount)));
965: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
966:
967: l_tag :=pay_in_xml_utils.getTag('c_year', period_start_year);
968: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
969: l_tag :=pay_in_xml_utils.getTag('c_year1', SUBSTR(p_year, 6, 4));
970: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
971:
965: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
966:
967: l_tag :=pay_in_xml_utils.getTag('c_year', period_start_year);
968: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
969: l_tag :=pay_in_xml_utils.getTag('c_year1', SUBSTR(p_year, 6, 4));
970: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
971:
972: l_tag :='';
973: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1008: BEGIN
1009: l_procedure := g_package ||'write_tag';
1010: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1011:
1012: l_tag := pay_in_xml_utils.getTag( p_tag_name => p_tag_name
1013: , p_tag_value => p_tag_value
1014: );
1015:
1016: dbms_lob.writeAppend(g_xml_data,length(l_tag),l_tag);
1275: pay_in_utils.trace('Assessment year ',p_assess_year);
1276: END IF;
1277:
1278:
1279: pay_in_xml_utils.gXMLTable.DELETE;
1280: --
1281: fnd_file.put_line(fnd_file.log,'Creating the XML...');
1282: dbms_lob.createtemporary(g_xml_data,FALSE,DBMS_LOB.CALL);
1283: dbms_lob.open(g_xml_data,dbms_lob.lob_readwrite);
1295: l_sys_date_time:=TO_CHAR(SYSDATE,'DD-Mon-YYYY HH24:MI:SS');
1296: l_sys_date := TO_CHAR(SYSDATE,'DD-Mon-YYYY');
1297: l_bg_id:=fnd_profile.value('PER_BUSINESS_GROUP_ID');
1298: --System Date
1299: l_tag :=pay_in_xml_utils.getTag('c_current_date_in_hh_mm_ss',l_sys_date_time);
1300: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1301:
1302: pay_in_utils.set_location(g_debug,l_procedure, 30);
1303:
1608: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1609:
1610: IF length(c_rec.member_id) < 8 and to_number(c_rec.member_id) >0
1611: THEN
1612: l_tag :=pay_in_xml_utils.getTag('c_1_pf_no',c_rec.member_id);
1613: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1614: ELSE
1615: fnd_message.set_name('PER', 'PER_IN_INVALID_PF_NUMBER');
1616: fnd_message.set_token('PF_NUMBER',c_rec.member_id, translate => true );
1673: fnd_message.set_name('PER', 'PER_IN_INVALID_NAME');
1674: fnd_message.set_token('EMP_NAME',l_member_name_1, translate => true );
1675: hr_utility.raise_error; /* raise invalid name error */
1676: ELSE
1677: l_tag :=pay_in_xml_utils.getTag('c_1_memeber_name',l_member_name_1);
1678: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1679:
1680: END IF;
1681:
1681:
1682: l_is_number := to_number(l_epf_wages_1);
1683:
1684: IF l_is_number = trunc(l_is_number) THEN
1685: l_tag :=pay_in_xml_utils.getTag('c_1_epf_wages',l_epf_wages_1);
1686: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1687: ELSE
1688: fnd_message.set_name('PER', 'PER_IN_DECIMAL_VALUE');
1689: fnd_message.set_token('NUM_VAL',l_epf_wages_1, translate => true );
1691: END IF;
1692:
1693: l_is_number := to_number(l_eps_wages_1);
1694: IF l_is_number = trunc(l_is_number) THEN
1695: l_tag :=pay_in_xml_utils.getTag('c_1_eps_wages',l_eps_wages_1);
1696: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1697: ELSE
1698: fnd_message.set_name('PER', 'PER_IN_DECIMAL_VALUE');
1699: fnd_message.set_token('NUM_VAL',l_eps_wages_1, translate => true );
1702:
1703: l_is_number := to_number(l_epf_contribution_employee_1);
1704:
1705: IF l_is_number = trunc(l_is_number) THEN
1706: l_tag :=pay_in_xml_utils.getTag('c_1_epf_cont_due',l_epf_contribution_employee_1);
1707: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1708:
1709: l_tag :=pay_in_xml_utils.getTag('c_1_epf_cont_rem',l_epf_contribution_employee_1);
1710: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1705: IF l_is_number = trunc(l_is_number) THEN
1706: l_tag :=pay_in_xml_utils.getTag('c_1_epf_cont_due',l_epf_contribution_employee_1);
1707: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1708:
1709: l_tag :=pay_in_xml_utils.getTag('c_1_epf_cont_rem',l_epf_contribution_employee_1);
1710: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1711: ELSE
1712: fnd_message.set_name('PER', 'PER_IN_DECIMAL_VALUE');
1713: fnd_message.set_token('NUM_VAL',l_epf_contribution_employee_1, translate => true );
1716:
1717: l_is_number := to_number(l_employer_contr_towards_eps_1);
1718:
1719: IF l_is_number = trunc(l_is_number) THEN
1720: l_tag :=pay_in_xml_utils.getTag('c_1_eps_cont_due',l_employer_contr_towards_eps_1);
1721: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1722:
1723: l_tag :=pay_in_xml_utils.getTag('c_1_eps_cont_rem',l_employer_contr_towards_eps_1);
1724: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1719: IF l_is_number = trunc(l_is_number) THEN
1720: l_tag :=pay_in_xml_utils.getTag('c_1_eps_cont_due',l_employer_contr_towards_eps_1);
1721: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1722:
1723: l_tag :=pay_in_xml_utils.getTag('c_1_eps_cont_rem',l_employer_contr_towards_eps_1);
1724: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1725: ELSE
1726: fnd_message.set_name('PER', 'PER_IN_DECIMAL_VALUE');
1727: fnd_message.set_token('NUM_VAL',l_employer_contr_towards_eps_1, translate => true );
1729: END IF;
1730:
1731: l_is_number := to_number(l_employer_contr_towards_pf_1);
1732: IF l_is_number = trunc(l_is_number) THEN
1733: l_tag :=pay_in_xml_utils.getTag('c_1_eps_epf_due',l_employer_contr_towards_pf_1);
1734: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1735:
1736: l_tag :=pay_in_xml_utils.getTag('c_1_eps_epf_rem',l_employer_contr_towards_pf_1);
1737: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1732: IF l_is_number = trunc(l_is_number) THEN
1733: l_tag :=pay_in_xml_utils.getTag('c_1_eps_epf_due',l_employer_contr_towards_pf_1);
1734: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1735:
1736: l_tag :=pay_in_xml_utils.getTag('c_1_eps_epf_rem',l_employer_contr_towards_pf_1);
1737: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1738: ELSE
1739: fnd_message.set_name('PER', 'PER_IN_DECIMAL_VALUE');
1740: fnd_message.set_token('NUM_VAL',l_employer_contr_towards_pf_1, translate => true );
1742: END IF;
1743:
1744: l_is_number := to_number(l_absence_1);
1745: IF l_is_number = trunc(l_is_number) THEN
1746: l_tag :=pay_in_xml_utils.getTag('c_1_non_con_per',l_absence_1);
1747: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1748: ELSE
1749: fnd_message.set_name('PER', 'PER_IN_DECIMAL_VALUE');
1750: fnd_message.set_token('NUM_VAL',l_absence_1, translate => true );
1750: fnd_message.set_token('NUM_VAL',l_absence_1, translate => true );
1751: hr_utility.raise_error; /* raise no decimal error */
1752: END IF;
1753:
1754: l_tag :=pay_in_xml_utils.getTag('c_1_ref_adv_emp','0');
1755: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1756:
1757: l_tag :=pay_in_xml_utils.getTag('c_1_epf_arr_wages','0');
1758: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1753:
1754: l_tag :=pay_in_xml_utils.getTag('c_1_ref_adv_emp','0');
1755: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1756:
1757: l_tag :=pay_in_xml_utils.getTag('c_1_epf_arr_wages','0');
1758: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1759:
1760: l_tag :=pay_in_xml_utils.getTag('c_1_epf_ee_arr','0');
1761: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1756:
1757: l_tag :=pay_in_xml_utils.getTag('c_1_epf_arr_wages','0');
1758: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1759:
1760: l_tag :=pay_in_xml_utils.getTag('c_1_epf_ee_arr','0');
1761: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1762:
1763: l_tag :=pay_in_xml_utils.getTag('c_1_epf_er_arr','0');
1764: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1759:
1760: l_tag :=pay_in_xml_utils.getTag('c_1_epf_ee_arr','0');
1761: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1762:
1763: l_tag :=pay_in_xml_utils.getTag('c_1_epf_er_arr','0');
1764: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1765:
1766: l_tag :=pay_in_xml_utils.getTag('c_1_eps_arr_wages','0');
1767: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1762:
1763: l_tag :=pay_in_xml_utils.getTag('c_1_epf_er_arr','0');
1764: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1765:
1766: l_tag :=pay_in_xml_utils.getTag('c_1_eps_arr_wages','0');
1767: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1768:
1769: pay_in_utils.set_location(g_debug,l_procedure, 70);
1770:
1778: fnd_message.set_name('PER', 'PER_IN_INVALID_NAME');
1779: fnd_message.set_token('EMP_NAME',l_father_husband_name_1, translate => true );
1780: hr_utility.raise_error; /* raise invalid name error */
1781: ELSE
1782: l_tag :=pay_in_xml_utils.getTag('c_1_fat_hus_name',l_father_husband_name_1);
1783: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1784: END IF;
1785:
1786: l_tag :=pay_in_xml_utils.getTag('c_1_fat_hus_rel',l_contact_type_1);
1782: l_tag :=pay_in_xml_utils.getTag('c_1_fat_hus_name',l_father_husband_name_1);
1783: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1784: END IF;
1785:
1786: l_tag :=pay_in_xml_utils.getTag('c_1_fat_hus_rel',l_contact_type_1);
1787: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1788:
1789: l_tag :=pay_in_xml_utils.getTag('c_1_dob',l_date_of_birth_1);
1790: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1785:
1786: l_tag :=pay_in_xml_utils.getTag('c_1_fat_hus_rel',l_contact_type_1);
1787: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1788:
1789: l_tag :=pay_in_xml_utils.getTag('c_1_dob',l_date_of_birth_1);
1790: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1791:
1792: l_tag :=pay_in_xml_utils.getTag('c_1_gender',l_gender_1);
1793: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1788:
1789: l_tag :=pay_in_xml_utils.getTag('c_1_dob',l_date_of_birth_1);
1790: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1791:
1792: l_tag :=pay_in_xml_utils.getTag('c_1_gender',l_gender_1);
1793: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1794:
1795: l_tag :=pay_in_xml_utils.getTag('c_1_doj_epf',l_hire_date_1);
1796: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1791:
1792: l_tag :=pay_in_xml_utils.getTag('c_1_gender',l_gender_1);
1793: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1794:
1795: l_tag :=pay_in_xml_utils.getTag('c_1_doj_epf',l_hire_date_1);
1796: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1797:
1798: l_tag :=pay_in_xml_utils.getTag('c_1_doj_eps',l_hire_date_1);
1799: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1794:
1795: l_tag :=pay_in_xml_utils.getTag('c_1_doj_epf',l_hire_date_1);
1796: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1797:
1798: l_tag :=pay_in_xml_utils.getTag('c_1_doj_eps',l_hire_date_1);
1799: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1800:
1801: pay_in_utils.set_location(g_debug,l_procedure, 80);
1802:
1805: IF(to_date(l_term_date_1,'DD/MM/YYYY')
1806: BETWEEN TRUNC(to_date(l_payroll_date_1,'DD/MM/YYYY'),'MM')
1807: AND last_day(to_date(l_payroll_date_1,'DD/MM/YYYY'))) THEN
1808:
1809: l_tag :=pay_in_xml_utils.getTag('c_1_doe_epf', l_term_date_1);
1810: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1811:
1812: l_tag :=pay_in_xml_utils.getTag('c_1_leav_rsn',l_term_reason_1);
1813: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1808:
1809: l_tag :=pay_in_xml_utils.getTag('c_1_doe_epf', l_term_date_1);
1810: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1811:
1812: l_tag :=pay_in_xml_utils.getTag('c_1_leav_rsn',l_term_reason_1);
1813: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1814:
1815: pay_in_utils.set_location(g_debug,l_procedure, 90);
1816:
1825: AND last_day(to_date(l_payroll_date_1,'DD/MM/YYYY'))
1826: THEN
1827: l_leave:=least(add_months(to_date(l_date_of_birth_1,'DD/MM/YYYY'),l_eps_age*12 ),to_date( l_term_date_1,'DD/MM/YYYY'));
1828: l_leave_2:=to_char(to_date(l_leave,'DD/MM/RRRR'),'DD/MM/RRRR');
1829: l_tag :=pay_in_xml_utils.getTag('c_1_doe_eps',l_leave_2);
1830: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1831:
1832: pay_in_utils.set_location(g_debug,l_procedure, 100);
1833:
1833:
1834: ELSE
1835: l_leave:=add_months(to_date(l_date_of_birth_1,'DD/MM/YYYY'),l_eps_age*12 );
1836: l_leave_2:=to_char(to_date(l_leave,'DD/MM/RRRR'),'DD/MM/RRRR');
1837: l_tag :=pay_in_xml_utils.getTag('c_1_doe_eps',l_leave_2);
1838: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1839:
1840: pay_in_utils.set_location(g_debug,l_procedure, 110);
1841: END IF;
1846: AND last_day(to_date(l_payroll_date_1,'DD/MM/YYYY'))
1847: THEN
1848: IF (add_months(to_date(l_date_of_birth_1,'DD/MM/YYYY'),l_eps_age*12 ) < TRUNC(to_date(l_payroll_date_1,'DD/MM/YYYY'),'MM'))
1849: THEN
1850: l_tag :=pay_in_xml_utils.getTag('c_1_doe_eps',null);
1851: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1852:
1853: pay_in_utils.set_location(g_debug,l_procedure, 120);
1854: ELSE
1851: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1852:
1853: pay_in_utils.set_location(g_debug,l_procedure, 120);
1854: ELSE
1855: l_tag :=pay_in_xml_utils.getTag('c_1_doe_eps', l_term_date_1);
1856: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
1857:
1858: pay_in_utils.set_location(g_debug,l_procedure, 130);
1859: END IF;
2298: l_procedure := g_package ||'create_form8_xml';
2299: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2300:
2301:
2302: pay_in_xml_utils.gXMLTable.DELETE;
2303: --
2304: fnd_file.put_line(fnd_file.log,'Creating the XML...');
2305: dbms_lob.createtemporary(g_xml_data,FALSE,DBMS_LOB.CALL);
2306: dbms_lob.open(g_xml_data,dbms_lob.lob_readwrite);
2315: fnd_file.put_line(fnd_file.log,'Creating XML for Employer Details.');
2316: l_sys_date_time:=TO_CHAR(SYSDATE,'DD-Mon-YYYY HH24:MI:SS');
2317: l_bg_id:=fnd_profile.value('PER_BUSINESS_GROUP_ID');
2318: --System Date
2319: l_tag :=pay_in_xml_utils.getTag('c_current_date_in_hh_mm_ss',l_sys_date_time);
2320: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
2321:
2322: pay_in_utils.set_location(g_debug,l_procedure, 20);
2323:
2337:
2338: l_count:=1;
2339: --PF Org Reg Name
2340: --PF Org Reg Name Made in BLOCK
2341: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_org_name';
2342: pay_in_xml_utils.gXMLTable(l_count).Value := upper(c_rec.action_information3);
2343: l_count := l_count + 1;
2344: --Address
2345: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_address';
2338: l_count:=1;
2339: --PF Org Reg Name
2340: --PF Org Reg Name Made in BLOCK
2341: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_org_name';
2342: pay_in_xml_utils.gXMLTable(l_count).Value := upper(c_rec.action_information3);
2343: l_count := l_count + 1;
2344: --Address
2345: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_address';
2346: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information5);
2341: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_org_name';
2342: pay_in_xml_utils.gXMLTable(l_count).Value := upper(c_rec.action_information3);
2343: l_count := l_count + 1;
2344: --Address
2345: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_address';
2346: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information5);
2347: l_count := l_count + 1;
2348: --Code
2349: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_code';
2342: pay_in_xml_utils.gXMLTable(l_count).Value := upper(c_rec.action_information3);
2343: l_count := l_count + 1;
2344: --Address
2345: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_address';
2346: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information5);
2347: l_count := l_count + 1;
2348: --Code
2349: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_code';
2350: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information6);
2345: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_address';
2346: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information5);
2347: l_count := l_count + 1;
2348: --Code
2349: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_code';
2350: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information6);
2351: l_count := l_count + 1;
2352: --Starting Year
2353: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_start_year';
2346: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information5);
2347: l_count := l_count + 1;
2348: --Code
2349: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_code';
2350: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information6);
2351: l_count := l_count + 1;
2352: --Starting Year
2353: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_start_year';
2354: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_start_date,'YYYY'));
2349: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_code';
2350: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information6);
2351: l_count := l_count + 1;
2352: --Starting Year
2353: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_start_year';
2354: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_start_date,'YYYY'));
2355: l_count := l_count + 1;
2356: --Ending Year
2357: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_end_year';
2350: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information6);
2351: l_count := l_count + 1;
2352: --Starting Year
2353: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_start_year';
2354: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_start_date,'YYYY'));
2355: l_count := l_count + 1;
2356: --Ending Year
2357: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_end_year';
2358: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_end_date,'YYYY'));
2353: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_start_year';
2354: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_start_date,'YYYY'));
2355: l_count := l_count + 1;
2356: --Ending Year
2357: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_end_year';
2358: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_end_date,'YYYY'));
2359: l_count := l_count + 1;
2360:
2361: pay_in_xml_utils.multiColumnar('org',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
2354: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_start_date,'YYYY'));
2355: l_count := l_count + 1;
2356: --Ending Year
2357: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_end_year';
2358: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_end_date,'YYYY'));
2359: l_count := l_count + 1;
2360:
2361: pay_in_xml_utils.multiColumnar('org',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
2362:
2357: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_end_year';
2358: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_end_date,'YYYY'));
2359: l_count := l_count + 1;
2360:
2361: pay_in_xml_utils.multiColumnar('org',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
2362:
2363: l_employee_no:=1;
2364: l_org_pf_ytd := 0;
2365: l_org_pension_ytd :=0;
2427: LOOP
2428: pay_in_utils.set_location(g_debug,l_procedure, 70);
2429: l_count:=1;
2430: --Sl No.
2431: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_sl_no';
2432: pay_in_xml_utils.gXMLTable(l_count).Value := (l_employee_no);
2433: l_employee_no := l_employee_no + 1;
2434: l_count := l_count + 1;
2435: --Pension Number
2428: pay_in_utils.set_location(g_debug,l_procedure, 70);
2429: l_count:=1;
2430: --Sl No.
2431: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_sl_no';
2432: pay_in_xml_utils.gXMLTable(l_count).Value := (l_employee_no);
2433: l_employee_no := l_employee_no + 1;
2434: l_count := l_count + 1;
2435: --Pension Number
2436: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_account_no';
2432: pay_in_xml_utils.gXMLTable(l_count).Value := (l_employee_no);
2433: l_employee_no := l_employee_no + 1;
2434: l_count := l_count + 1;
2435: --Pension Number
2436: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_account_no';
2437: pay_in_xml_utils.gXMLTable(l_count).Value := (assignment_rec.action_information15);
2438: l_count := l_count + 1;
2439: --Full Name
2440: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_name';
2433: l_employee_no := l_employee_no + 1;
2434: l_count := l_count + 1;
2435: --Pension Number
2436: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_account_no';
2437: pay_in_xml_utils.gXMLTable(l_count).Value := (assignment_rec.action_information15);
2438: l_count := l_count + 1;
2439: --Full Name
2440: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_name';
2441: pay_in_xml_utils.gXMLTable(l_count).Value := l_employee_name ;
2436: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_account_no';
2437: pay_in_xml_utils.gXMLTable(l_count).Value := (assignment_rec.action_information15);
2438: l_count := l_count + 1;
2439: --Full Name
2440: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_name';
2441: pay_in_xml_utils.gXMLTable(l_count).Value := l_employee_name ;
2442:
2443: l_count := l_count + 1;
2444: IF g_debug THEN
2437: pay_in_xml_utils.gXMLTable(l_count).Value := (assignment_rec.action_information15);
2438: l_count := l_count + 1;
2439: --Full Name
2440: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_name';
2441: pay_in_xml_utils.gXMLTable(l_count).Value := l_employee_name ;
2442:
2443: l_count := l_count + 1;
2444: IF g_debug THEN
2445: pay_in_utils.trace('Employee Name ',pay_in_xml_utils.gXMLTable(l_count).Value);
2441: pay_in_xml_utils.gXMLTable(l_count).Value := l_employee_name ;
2442:
2443: l_count := l_count + 1;
2444: IF g_debug THEN
2445: pay_in_utils.trace('Employee Name ',pay_in_xml_utils.gXMLTable(l_count).Value);
2446: END IF;
2447:
2448:
2449: pay_in_utils.set_location(g_debug,l_procedure, 80);
2451: l_org_pf_ytd := l_org_pf_ytd + asg_sum ;
2452: l_org_pension_ytd := l_org_pension_ytd + child_asg_rec.pension;
2453:
2454: --Annual Wages
2455: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf';
2456: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,NVL(asg_sum,0));
2457: l_count := l_count + 1;
2458: --Pension YTD
2459: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension';
2452: l_org_pension_ytd := l_org_pension_ytd + child_asg_rec.pension;
2453:
2454: --Annual Wages
2455: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf';
2456: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,NVL(asg_sum,0));
2457: l_count := l_count + 1;
2458: --Pension YTD
2459: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension';
2460: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.pension,0));
2455: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf';
2456: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,NVL(asg_sum,0));
2457: l_count := l_count + 1;
2458: --Pension YTD
2459: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension';
2460: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.pension,0));
2461: l_count := l_count + 1;
2462:
2463: IF g_debug THEN
2456: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,NVL(asg_sum,0));
2457: l_count := l_count + 1;
2458: --Pension YTD
2459: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension';
2460: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.pension,0));
2461: l_count := l_count + 1;
2462:
2463: IF g_debug THEN
2464: pay_in_utils.trace('PF Wages ',asg_sum);
2495: END IF;
2496: END LOOP;
2497:
2498:
2499: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
2500: pay_in_xml_utils.gXMLTable(l_count).Value := (l_remarks);
2501: l_count := l_count + 1;
2502: pay_in_xml_utils.multiColumnar('details',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
2503:
2496: END LOOP;
2497:
2498:
2499: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
2500: pay_in_xml_utils.gXMLTable(l_count).Value := (l_remarks);
2501: l_count := l_count + 1;
2502: pay_in_xml_utils.multiColumnar('details',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
2503:
2504: END LOOP;
2498:
2499: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
2500: pay_in_xml_utils.gXMLTable(l_count).Value := (l_remarks);
2501: l_count := l_count + 1;
2502: pay_in_xml_utils.multiColumnar('details',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
2503:
2504: END LOOP;
2505: END IF;
2506: END LOOP;
2506: END LOOP;
2507: END LOOP;
2508:
2509: pay_in_utils.set_location(g_debug,l_procedure, 100);
2510: pay_in_xml_utils.gXMLTable.delete;
2511:
2512: l_count:=1;
2513: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_wage_ytd';
2514: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,NVL(l_org_pf_ytd,0));
2509: pay_in_utils.set_location(g_debug,l_procedure, 100);
2510: pay_in_xml_utils.gXMLTable.delete;
2511:
2512: l_count:=1;
2513: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_wage_ytd';
2514: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,NVL(l_org_pf_ytd,0));
2515: l_count := l_count + 1;
2516: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_ytd';
2517: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,NVL(l_org_pension_ytd,0));
2510: pay_in_xml_utils.gXMLTable.delete;
2511:
2512: l_count:=1;
2513: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_wage_ytd';
2514: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,NVL(l_org_pf_ytd,0));
2515: l_count := l_count + 1;
2516: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_ytd';
2517: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,NVL(l_org_pension_ytd,0));
2518: l_count := l_count + 1;
2512: l_count:=1;
2513: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_wage_ytd';
2514: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,NVL(l_org_pf_ytd,0));
2515: l_count := l_count + 1;
2516: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_ytd';
2517: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,NVL(l_org_pension_ytd,0));
2518: l_count := l_count + 1;
2519: pay_in_xml_utils.multiColumnar('sum',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
2520:
2513: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_wage_ytd';
2514: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,NVL(l_org_pf_ytd,0));
2515: l_count := l_count + 1;
2516: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_ytd';
2517: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,NVL(l_org_pension_ytd,0));
2518: l_count := l_count + 1;
2519: pay_in_xml_utils.multiColumnar('sum',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
2520:
2521: IF g_debug THEN
2515: l_count := l_count + 1;
2516: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_ytd';
2517: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,NVL(l_org_pension_ytd,0));
2518: l_count := l_count + 1;
2519: pay_in_xml_utils.multiColumnar('sum',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
2520:
2521: IF g_debug THEN
2522: pay_in_utils.trace('Total PF Wages ',l_org_pf_ytd);
2523: pay_in_utils.trace('Total Pension Amt ',l_org_pension_ytd);
2523: pay_in_utils.trace('Total Pension Amt ',l_org_pension_ytd);
2524: END IF;
2525:
2526:
2527: pay_in_xml_utils.gXMLTable.delete;
2528:
2529: l_count:=1;
2530: l_epf_total:=0;
2531: l_pension_total:=0;
2573: insert_ch_record(i,g_xml_data);
2574: END LOOP;
2575: END IF;
2576:
2577: pay_in_xml_utils.gXMLTable.delete;
2578:
2579: l_count:=1;
2580: --Pension Fund Total
2581: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_org_total';
2577: pay_in_xml_utils.gXMLTable.delete;
2578:
2579: l_count:=1;
2580: --Pension Fund Total
2581: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_org_total';
2582: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,l_pension_total);
2583: l_count := l_count + 1;
2584:
2585: --No of employees in Form 8
2578:
2579: l_count:=1;
2580: --Pension Fund Total
2581: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_org_total';
2582: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,l_pension_total);
2583: l_count := l_count + 1;
2584:
2585: --No of employees in Form 8
2586: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_emp_no';
2582: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,l_pension_total);
2583: l_count := l_count + 1;
2584:
2585: --No of employees in Form 8
2586: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_emp_no';
2587: pay_in_xml_utils.gXMLTable(l_count).Value := l_employee_no - 1;
2588: l_count := l_count + 1;
2589:
2590: pay_in_utils.set_location(g_debug,l_procedure, 130);
2583: l_count := l_count + 1;
2584:
2585: --No of employees in Form 8
2586: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_emp_no';
2587: pay_in_xml_utils.gXMLTable(l_count).Value := l_employee_no - 1;
2588: l_count := l_count + 1;
2589:
2590: pay_in_utils.set_location(g_debug,l_procedure, 130);
2591:
2589:
2590: pay_in_utils.set_location(g_debug,l_procedure, 130);
2591:
2592: --Employer Representative Signature
2593: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_employer';
2594: OPEN c_rep_name(p_contribution_period
2595: ,c_rec.action_information2
2596: ,p_effective_start_date
2597: ,p_effective_end_date);
2594: OPEN c_rep_name(p_contribution_period
2595: ,c_rec.action_information2
2596: ,p_effective_start_date
2597: ,p_effective_end_date);
2598: FETCH c_rep_name INTO pay_in_xml_utils.gXMLTable(l_count).Value;
2599: CLOSE c_rep_name;
2600: l_count := l_count + 1;
2601: pay_in_xml_utils.multiColumnar('pf_org_sum',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
2602: /* Ending Starts here*/
2597: ,p_effective_end_date);
2598: FETCH c_rep_name INTO pay_in_xml_utils.gXMLTable(l_count).Value;
2599: CLOSE c_rep_name;
2600: l_count := l_count + 1;
2601: pay_in_xml_utils.multiColumnar('pf_org_sum',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
2602: /* Ending Starts here*/
2603: l_tag := '';
2604: dbms_lob.writeAppend(g_xml_data, LENGTH(l_tag), l_tag);
2605: pay_in_xml_utils.gXMLTable.DELETE;
2601: pay_in_xml_utils.multiColumnar('pf_org_sum',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
2602: /* Ending Starts here*/
2603: l_tag := '';
2604: dbms_lob.writeAppend(g_xml_data, LENGTH(l_tag), l_tag);
2605: pay_in_xml_utils.gXMLTable.DELETE;
2606: l_row_count:=NULL;
2607: pay_in_utils.set_location(g_debug,l_procedure, 140);
2608: END LOOP;
2609:
3347: asg_rec c_assignment_id%ROWTYPE;
3348:
3349:
3350: BEGIN
3351: pay_in_xml_utils.gXMLTable.DELETE;
3352:
3353: g_debug := hr_utility.debug_enabled;
3354: l_procedure := g_package ||'create_form6a_xml';
3355: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3369: fnd_file.put_line(fnd_file.log,'Creating XML for Employee Personal Details.');
3370: l_sys_date_time:=to_char(SYSDATE,'DD-Mon-YYYY HH24:MI:SS');
3371: l_bg_id:=fnd_profile.value('PER_BUSINESS_GROUP_ID');
3372: --System Date
3373: l_tag :=pay_in_xml_utils.getTag('c_current_date_in_hh_mm_ss',l_sys_date_time);
3374: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
3375:
3376: pay_in_utils.set_location(g_debug,l_procedure, 20);
3377:
3390: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
3391: l_count:=1;
3392: --PF Org Reg Name
3393: --PF Org Name made in BLOCK
3394: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_org_name';
3395: pay_in_xml_utils.gXMLTable(l_count).Value := upper(c_rec.action_information3);
3396: l_count := l_count + 1;
3397: --Address
3398: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_address';
3391: l_count:=1;
3392: --PF Org Reg Name
3393: --PF Org Name made in BLOCK
3394: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_org_name';
3395: pay_in_xml_utils.gXMLTable(l_count).Value := upper(c_rec.action_information3);
3396: l_count := l_count + 1;
3397: --Address
3398: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_address';
3399: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information5);
3394: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_org_name';
3395: pay_in_xml_utils.gXMLTable(l_count).Value := upper(c_rec.action_information3);
3396: l_count := l_count + 1;
3397: --Address
3398: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_address';
3399: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information5);
3400: l_count := l_count + 1;
3401: --Code
3402: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_code';
3395: pay_in_xml_utils.gXMLTable(l_count).Value := upper(c_rec.action_information3);
3396: l_count := l_count + 1;
3397: --Address
3398: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_address';
3399: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information5);
3400: l_count := l_count + 1;
3401: --Code
3402: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_code';
3403: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information6);
3398: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_address';
3399: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information5);
3400: l_count := l_count + 1;
3401: --Code
3402: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_code';
3403: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information6);
3404: l_count := l_count + 1;
3405:
3406: IF g_debug THEN
3399: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information5);
3400: l_count := l_count + 1;
3401: --Code
3402: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_code';
3403: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information6);
3404: l_count := l_count + 1;
3405:
3406: IF g_debug THEN
3407: pay_in_utils.trace('PF Organization ',c_rec.action_information3);
3413: WHERE GLOBAL_NAME ='IN_EMPLOYEE_PF_PERCENT'
3414: AND LEGISLATION_CODE='IN'
3415: AND p_effective_start_date BETWEEN effective_start_date AND p_effective_end_date;
3416:
3417: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_rate';
3418: pay_in_xml_utils.gXMLTable(l_count).Value := (l_rate);
3419: l_count := l_count + 1;
3420: --Starting Year
3421: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_start_year';
3414: AND LEGISLATION_CODE='IN'
3415: AND p_effective_start_date BETWEEN effective_start_date AND p_effective_end_date;
3416:
3417: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_rate';
3418: pay_in_xml_utils.gXMLTable(l_count).Value := (l_rate);
3419: l_count := l_count + 1;
3420: --Starting Year
3421: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_start_year';
3422: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_start_date,'YYYY'));
3417: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_rate';
3418: pay_in_xml_utils.gXMLTable(l_count).Value := (l_rate);
3419: l_count := l_count + 1;
3420: --Starting Year
3421: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_start_year';
3422: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_start_date,'YYYY'));
3423: l_count := l_count + 1;
3424: --Ending Year
3425: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_end_year';
3418: pay_in_xml_utils.gXMLTable(l_count).Value := (l_rate);
3419: l_count := l_count + 1;
3420: --Starting Year
3421: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_start_year';
3422: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_start_date,'YYYY'));
3423: l_count := l_count + 1;
3424: --Ending Year
3425: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_end_year';
3426: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_end_date,'YYYY'));
3421: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_start_year';
3422: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_start_date,'YYYY'));
3423: l_count := l_count + 1;
3424: --Ending Year
3425: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_end_year';
3426: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_end_date,'YYYY'));
3427: l_count := l_count + 1;
3428:
3429: pay_in_utils.set_location(g_debug,l_procedure, 30);
3422: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_start_date,'YYYY'));
3423: l_count := l_count + 1;
3424: --Ending Year
3425: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_end_year';
3426: pay_in_xml_utils.gXMLTable(l_count).Value := (to_char(p_effective_end_date,'YYYY'));
3427: l_count := l_count + 1;
3428:
3429: pay_in_utils.set_location(g_debug,l_procedure, 30);
3430:
3433: ,p_effective_start_date
3434: ,p_effective_end_date);
3435: FETCH c_number_of_contr INTO l_employee_no;
3436: CLOSE c_number_of_contr;
3437: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_number';
3438: pay_in_xml_utils.gXMLTable(l_count).Value := (l_employee_no);
3439: l_count := l_count + 1;
3440: pay_in_xml_utils.multiColumnar('org',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
3441: l_employee_no:=1;
3434: ,p_effective_end_date);
3435: FETCH c_number_of_contr INTO l_employee_no;
3436: CLOSE c_number_of_contr;
3437: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_number';
3438: pay_in_xml_utils.gXMLTable(l_count).Value := (l_employee_no);
3439: l_count := l_count + 1;
3440: pay_in_xml_utils.multiColumnar('org',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
3441: l_employee_no:=1;
3442:
3436: CLOSE c_number_of_contr;
3437: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_number';
3438: pay_in_xml_utils.gXMLTable(l_count).Value := (l_employee_no);
3439: l_count := l_count + 1;
3440: pay_in_xml_utils.multiColumnar('org',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
3441: l_employee_no:=1;
3442:
3443: pay_in_utils.set_location(g_debug,l_procedure, 40);
3444:
3499: LOOP
3500:
3501: l_count:=1;
3502: --Sl No.
3503: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_sl_no';
3504: pay_in_xml_utils.gXMLTable(l_count).Value := (l_employee_no);
3505: l_employee_no := l_employee_no + 1;
3506: l_count := l_count + 1;
3507: --PF Number
3500:
3501: l_count:=1;
3502: --Sl No.
3503: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_sl_no';
3504: pay_in_xml_utils.gXMLTable(l_count).Value := (l_employee_no);
3505: l_employee_no := l_employee_no + 1;
3506: l_count := l_count + 1;
3507: --PF Number
3508: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_account_no';
3504: pay_in_xml_utils.gXMLTable(l_count).Value := (l_employee_no);
3505: l_employee_no := l_employee_no + 1;
3506: l_count := l_count + 1;
3507: --PF Number
3508: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_account_no';
3509: pay_in_xml_utils.gXMLTable(l_count).Value := (assignment_rec.action_information3);
3510: l_count := l_count + 1;
3511: --Full Name
3512: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_name';
3505: l_employee_no := l_employee_no + 1;
3506: l_count := l_count + 1;
3507: --PF Number
3508: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_account_no';
3509: pay_in_xml_utils.gXMLTable(l_count).Value := (assignment_rec.action_information3);
3510: l_count := l_count + 1;
3511: --Full Name
3512: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_name';
3513: OPEN c_name(c_rec.action_information2
3508: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_account_no';
3509: pay_in_xml_utils.gXMLTable(l_count).Value := (assignment_rec.action_information3);
3510: l_count := l_count + 1;
3511: --Full Name
3512: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_name';
3513: OPEN c_name(c_rec.action_information2
3514: ,assignment_rec.action_information3
3515: ,p_effective_start_date
3516: ,p_effective_end_date );
3514: ,assignment_rec.action_information3
3515: ,p_effective_start_date
3516: ,p_effective_end_date );
3517:
3518: FETCH c_name INTO pay_in_xml_utils.gXMLTable(l_count).Value,l_asg_id;
3519: CLOSE c_name;
3520: l_count := l_count + 1;
3521: --Annual Wages
3522: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf';
3518: FETCH c_name INTO pay_in_xml_utils.gXMLTable(l_count).Value,l_asg_id;
3519: CLOSE c_name;
3520: l_count := l_count + 1;
3521: --Annual Wages
3522: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf';
3523: pay_in_xml_utils.gXMLTable(l_count).Value :=
3524: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.pf_ytd,0));
3525: l_count := l_count + 1;
3526: --Total Employee PF Contribution YTD
3519: CLOSE c_name;
3520: l_count := l_count + 1;
3521: --Annual Wages
3522: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf';
3523: pay_in_xml_utils.gXMLTable(l_count).Value :=
3524: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.pf_ytd,0));
3525: l_count := l_count + 1;
3526: --Total Employee PF Contribution YTD
3527: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf';
3523: pay_in_xml_utils.gXMLTable(l_count).Value :=
3524: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.pf_ytd,0));
3525: l_count := l_count + 1;
3526: --Total Employee PF Contribution YTD
3527: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf';
3528: pay_in_xml_utils.gXMLTable(l_count).Value :=
3529: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.employee,0));
3530: l_count := l_count + 1;
3531: --Employer Contribution Towards PF YTD
3524: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.pf_ytd,0));
3525: l_count := l_count + 1;
3526: --Total Employee PF Contribution YTD
3527: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf';
3528: pay_in_xml_utils.gXMLTable(l_count).Value :=
3529: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.employee,0));
3530: l_count := l_count + 1;
3531: --Employer Contribution Towards PF YTD
3532: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_diff';
3528: pay_in_xml_utils.gXMLTable(l_count).Value :=
3529: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.employee,0));
3530: l_count := l_count + 1;
3531: --Employer Contribution Towards PF YTD
3532: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_diff';
3533: pay_in_xml_utils.gXMLTable(l_count).Value :=
3534: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.employer,0));
3535: l_count := l_count + 1;
3536: --Pension YTD
3529: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.employee,0));
3530: l_count := l_count + 1;
3531: --Employer Contribution Towards PF YTD
3532: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_diff';
3533: pay_in_xml_utils.gXMLTable(l_count).Value :=
3534: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.employer,0));
3535: l_count := l_count + 1;
3536: --Pension YTD
3537: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension';
3533: pay_in_xml_utils.gXMLTable(l_count).Value :=
3534: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.employer,0));
3535: l_count := l_count + 1;
3536: --Pension YTD
3537: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension';
3538: pay_in_xml_utils.gXMLTable(l_count).Value :=
3539: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.pension,0));
3540: l_count := l_count + 1;
3541:
3534: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.employer,0));
3535: l_count := l_count + 1;
3536: --Pension YTD
3537: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension';
3538: pay_in_xml_utils.gXMLTable(l_count).Value :=
3539: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(child_asg_rec.pension,0));
3540: l_count := l_count + 1;
3541:
3542: l_org_pf_ytd := l_org_pf_ytd + child_asg_rec.pf_ytd;
3587: CLOSE c_vol_rate;
3588:
3589: l_rate:=to_number(l_rate,999.99);
3590: --VOLUNTARY RATE of Contribution
3591: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_voluntary_rate';
3592: pay_in_xml_utils.gXMLTable(l_count).Value := (l_rate);
3593: l_count := l_count + 1;
3594: --Pension YTD
3595: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
3588:
3589: l_rate:=to_number(l_rate,999.99);
3590: --VOLUNTARY RATE of Contribution
3591: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_voluntary_rate';
3592: pay_in_xml_utils.gXMLTable(l_count).Value := (l_rate);
3593: l_count := l_count + 1;
3594: --Pension YTD
3595: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
3596: pay_in_xml_utils.gXMLTable(l_count).Value := (l_remarks);
3591: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_voluntary_rate';
3592: pay_in_xml_utils.gXMLTable(l_count).Value := (l_rate);
3593: l_count := l_count + 1;
3594: --Pension YTD
3595: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
3596: pay_in_xml_utils.gXMLTable(l_count).Value := (l_remarks);
3597: l_count := l_count + 1;
3598: pay_in_xml_utils.multiColumnar('details',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
3599: pay_in_utils.set_location(g_debug,l_procedure, 80);
3592: pay_in_xml_utils.gXMLTable(l_count).Value := (l_rate);
3593: l_count := l_count + 1;
3594: --Pension YTD
3595: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
3596: pay_in_xml_utils.gXMLTable(l_count).Value := (l_remarks);
3597: l_count := l_count + 1;
3598: pay_in_xml_utils.multiColumnar('details',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
3599: pay_in_utils.set_location(g_debug,l_procedure, 80);
3600: END LOOP;
3594: --Pension YTD
3595: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_remarks';
3596: pay_in_xml_utils.gXMLTable(l_count).Value := (l_remarks);
3597: l_count := l_count + 1;
3598: pay_in_xml_utils.multiColumnar('details',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
3599: pay_in_utils.set_location(g_debug,l_procedure, 80);
3600: END LOOP;
3601: END LOOP;
3602: IF c_asg_id%ISOPEN THEN
3602: IF c_asg_id%ISOPEN THEN
3603: CLOSE c_asg_id;
3604: END IF;
3605: pay_in_utils.set_location(g_debug,l_procedure, 90);
3606: pay_in_xml_utils.gXMLTable.delete;
3607: l_count:=1;
3608: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_wage_ytd';
3609: pay_in_xml_utils.gXMLTable(l_count).Value :=
3610: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_pf_ytd,0));
3604: END IF;
3605: pay_in_utils.set_location(g_debug,l_procedure, 90);
3606: pay_in_xml_utils.gXMLTable.delete;
3607: l_count:=1;
3608: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_wage_ytd';
3609: pay_in_xml_utils.gXMLTable(l_count).Value :=
3610: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_pf_ytd,0));
3611: l_count := l_count + 1;
3612: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_ytd';
3605: pay_in_utils.set_location(g_debug,l_procedure, 90);
3606: pay_in_xml_utils.gXMLTable.delete;
3607: l_count:=1;
3608: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_wage_ytd';
3609: pay_in_xml_utils.gXMLTable(l_count).Value :=
3610: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_pf_ytd,0));
3611: l_count := l_count + 1;
3612: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_ytd';
3613: pay_in_xml_utils.gXMLTable(l_count).Value :=
3608: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_wage_ytd';
3609: pay_in_xml_utils.gXMLTable(l_count).Value :=
3610: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_pf_ytd,0));
3611: l_count := l_count + 1;
3612: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_ytd';
3613: pay_in_xml_utils.gXMLTable(l_count).Value :=
3614: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_employee,0));
3615: l_count := l_count + 1;
3616: pay_in_xml_utils.gXMLTable(l_count).Name := 'diff_ytd';
3609: pay_in_xml_utils.gXMLTable(l_count).Value :=
3610: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_pf_ytd,0));
3611: l_count := l_count + 1;
3612: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_ytd';
3613: pay_in_xml_utils.gXMLTable(l_count).Value :=
3614: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_employee,0));
3615: l_count := l_count + 1;
3616: pay_in_xml_utils.gXMLTable(l_count).Name := 'diff_ytd';
3617: pay_in_xml_utils.gXMLTable(l_count).Value :=
3612: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_ytd';
3613: pay_in_xml_utils.gXMLTable(l_count).Value :=
3614: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_employee,0));
3615: l_count := l_count + 1;
3616: pay_in_xml_utils.gXMLTable(l_count).Name := 'diff_ytd';
3617: pay_in_xml_utils.gXMLTable(l_count).Value :=
3618: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_employer,0));
3619: l_count := l_count + 1;
3620: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_ytd';
3613: pay_in_xml_utils.gXMLTable(l_count).Value :=
3614: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_employee,0));
3615: l_count := l_count + 1;
3616: pay_in_xml_utils.gXMLTable(l_count).Name := 'diff_ytd';
3617: pay_in_xml_utils.gXMLTable(l_count).Value :=
3618: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_employer,0));
3619: l_count := l_count + 1;
3620: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_ytd';
3621: pay_in_xml_utils.gXMLTable(l_count).Value :=
3616: pay_in_xml_utils.gXMLTable(l_count).Name := 'diff_ytd';
3617: pay_in_xml_utils.gXMLTable(l_count).Value :=
3618: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_employer,0));
3619: l_count := l_count + 1;
3620: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_ytd';
3621: pay_in_xml_utils.gXMLTable(l_count).Value :=
3622: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_pension,0));
3623: l_count := l_count + 1;
3624: pay_in_xml_utils.multiColumnar('sum',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
3617: pay_in_xml_utils.gXMLTable(l_count).Value :=
3618: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_employer,0));
3619: l_count := l_count + 1;
3620: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_ytd';
3621: pay_in_xml_utils.gXMLTable(l_count).Value :=
3622: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_pension,0));
3623: l_count := l_count + 1;
3624: pay_in_xml_utils.multiColumnar('sum',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
3625:
3620: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_ytd';
3621: pay_in_xml_utils.gXMLTable(l_count).Value :=
3622: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_pension,0));
3623: l_count := l_count + 1;
3624: pay_in_xml_utils.multiColumnar('sum',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
3625:
3626: pay_in_xml_utils.gXMLTable.delete;
3627: l_count:=1;
3628: l_epf_total:=0;
3622: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(l_org_pension,0));
3623: l_count := l_count + 1;
3624: pay_in_xml_utils.multiColumnar('sum',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
3625:
3626: pay_in_xml_utils.gXMLTable.delete;
3627: l_count:=1;
3628: l_epf_total:=0;
3629: l_pension_total:=0;
3630: l_dli_total:=0;
3673: ,l_summ);
3674: i:=i+1;
3675: END LOOP;
3676: pay_in_utils.set_location(g_debug,l_procedure, 220);
3677: pay_in_xml_utils.gXMLTable.delete;
3678: l_count:=1;
3679: --EPF Contributions Total
3680: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_org_total';
3681: pay_in_xml_utils.gXMLTable(l_count).Value :=
3676: pay_in_utils.set_location(g_debug,l_procedure, 220);
3677: pay_in_xml_utils.gXMLTable.delete;
3678: l_count:=1;
3679: --EPF Contributions Total
3680: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_org_total';
3681: pay_in_xml_utils.gXMLTable(l_count).Value :=
3682: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_epf_total);
3683: l_count := l_count + 1;
3684: --Pension Fund Total
3677: pay_in_xml_utils.gXMLTable.delete;
3678: l_count:=1;
3679: --EPF Contributions Total
3680: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_epf_org_total';
3681: pay_in_xml_utils.gXMLTable(l_count).Value :=
3682: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_epf_total);
3683: l_count := l_count + 1;
3684: --Pension Fund Total
3685: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_org_total';
3681: pay_in_xml_utils.gXMLTable(l_count).Value :=
3682: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_epf_total);
3683: l_count := l_count + 1;
3684: --Pension Fund Total
3685: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_org_total';
3686: pay_in_xml_utils.gXMLTable(l_count).Value :=
3687: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_pension_total);
3688: l_count := l_count + 1;
3689: --DLI Contribution Total
3682: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_epf_total);
3683: l_count := l_count + 1;
3684: --Pension Fund Total
3685: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_org_total';
3686: pay_in_xml_utils.gXMLTable(l_count).Value :=
3687: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_pension_total);
3688: l_count := l_count + 1;
3689: --DLI Contribution Total
3690: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_dli_pf_org_total';
3686: pay_in_xml_utils.gXMLTable(l_count).Value :=
3687: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_pension_total);
3688: l_count := l_count + 1;
3689: --DLI Contribution Total
3690: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_dli_pf_org_total';
3691: pay_in_xml_utils.gXMLTable(l_count).Value :=
3692: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_dli_total);
3693: l_count := l_count + 1;
3694: --Adm.Charges Total
3687: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_pension_total);
3688: l_count := l_count + 1;
3689: --DLI Contribution Total
3690: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_dli_pf_org_total';
3691: pay_in_xml_utils.gXMLTable(l_count).Value :=
3692: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_dli_total);
3693: l_count := l_count + 1;
3694: --Adm.Charges Total
3695: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_admin_pf_total';
3691: pay_in_xml_utils.gXMLTable(l_count).Value :=
3692: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_dli_total);
3693: l_count := l_count + 1;
3694: --Adm.Charges Total
3695: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_admin_pf_total';
3696: pay_in_xml_utils.gXMLTable(l_count).Value :=
3697: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_admn_total);
3698: l_count := l_count + 1;
3699: --EDLI ADm.Charges Total
3692: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_dli_total);
3693: l_count := l_count + 1;
3694: --Adm.Charges Total
3695: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_admin_pf_total';
3696: pay_in_xml_utils.gXMLTable(l_count).Value :=
3697: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_admn_total);
3698: l_count := l_count + 1;
3699: --EDLI ADm.Charges Total
3700: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_edli_org_total';
3696: pay_in_xml_utils.gXMLTable(l_count).Value :=
3697: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_admn_total);
3698: l_count := l_count + 1;
3699: --EDLI ADm.Charges Total
3700: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_edli_org_total';
3701: pay_in_xml_utils.gXMLTable(l_count).Value :=
3702: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_edli_adm_total);
3703: l_count := l_count + 1;
3704: --Col 5,6,7 Summation Aggregate
3697: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_admn_total);
3698: l_count := l_count + 1;
3699: --EDLI ADm.Charges Total
3700: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_edli_org_total';
3701: pay_in_xml_utils.gXMLTable(l_count).Value :=
3702: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_edli_adm_total);
3703: l_count := l_count + 1;
3704: --Col 5,6,7 Summation Aggregate
3705: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_total_annual';
3701: pay_in_xml_utils.gXMLTable(l_count).Value :=
3702: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_edli_adm_total);
3703: l_count := l_count + 1;
3704: --Col 5,6,7 Summation Aggregate
3705: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_total_annual';
3706: pay_in_xml_utils.gXMLTable(l_count).Value :=
3707: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_summation);
3708: l_count := l_count + 1;
3709: --No of employees in Form 6A
3702: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_edli_adm_total);
3703: l_count := l_count + 1;
3704: --Col 5,6,7 Summation Aggregate
3705: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_total_annual';
3706: pay_in_xml_utils.gXMLTable(l_count).Value :=
3707: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_summation);
3708: l_count := l_count + 1;
3709: --No of employees in Form 6A
3710: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_emp_no';
3706: pay_in_xml_utils.gXMLTable(l_count).Value :=
3707: pay_us_employee_payslip_web.get_format_value(l_bg_id,l_summation);
3708: l_count := l_count + 1;
3709: --No of employees in Form 6A
3710: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_emp_no';
3711:
3712: pay_in_utils.set_location(g_debug,l_procedure, 230);
3713:
3714: SELECT COUNT(DISTINCT action_information3)
3711:
3712: pay_in_utils.set_location(g_debug,l_procedure, 230);
3713:
3714: SELECT COUNT(DISTINCT action_information3)
3715: INTO pay_in_xml_utils.gXMLTable(l_count).Value
3716: FROM pay_action_information
3717: WHERE action_information_category='IN_PF_ASG'
3718: AND action_information1 = p_contribution_period -- Bug 5231500
3719: AND action_information2 = c_rec.action_information2 --PF Organization ID
3722: AND p_effective_end_date;
3723:
3724: l_count := l_count + 1;
3725: --Employer Representative Signature
3726: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_employer';
3727: OPEN c_rep_name(p_contribution_period
3728: ,c_rec.action_information2
3729: ,p_effective_start_date
3730: ,p_effective_end_date);
3727: OPEN c_rep_name(p_contribution_period
3728: ,c_rec.action_information2
3729: ,p_effective_start_date
3730: ,p_effective_end_date);
3731: FETCH c_rep_name INTO pay_in_xml_utils.gXMLTable(l_count).Value;
3732: CLOSE c_rep_name;
3733: pay_in_utils.set_location(g_debug,l_procedure, 240);
3734: l_count := l_count + 1;
3735: pay_in_xml_utils.multiColumnar('pf_org_sum',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
3731: FETCH c_rep_name INTO pay_in_xml_utils.gXMLTable(l_count).Value;
3732: CLOSE c_rep_name;
3733: pay_in_utils.set_location(g_debug,l_procedure, 240);
3734: l_count := l_count + 1;
3735: pay_in_xml_utils.multiColumnar('pf_org_sum',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
3736: /* Ending Starts here*/
3737: l_tag := '';
3738: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
3739: pay_in_xml_utils.gXMLTable.delete;
3735: pay_in_xml_utils.multiColumnar('pf_org_sum',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
3736: /* Ending Starts here*/
3737: l_tag := '';
3738: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
3739: pay_in_xml_utils.gXMLTable.delete;
3740: l_row_count:=null;
3741: END LOOP;
3742: pay_in_utils.set_location(g_debug,l_procedure, 240);
3743: l_tag := '';
3967: g_debug := hr_utility.debug_enabled;
3968: l_procedure := g_package ||'create_form3a_xml';
3969: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3970:
3971: pay_in_xml_utils.gXMLTable.DELETE;
3972: --
3973: fnd_file.put_line(fnd_file.log,'Creating the XML...');
3974: dbms_lob.createtemporary(g_xml_data,FALSE,DBMS_LOB.CALL);
3975: dbms_lob.open(g_xml_data,dbms_lob.lob_readwrite);
3983: --
3984: fnd_file.put_line(fnd_file.log,'Creating XML for Employee Personal Details.');
3985: l_sys_date_time:=to_char(SYSDATE,'DD-Mon-YYYY HH24:MI:SS');
3986: --System Date
3987: l_tag :=pay_in_xml_utils.getTag('c_current_date_in_hh_mm_ss',l_sys_date_time);
3988: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
3989: l_cp_pf_org_id := p_pf_org_id;
3990:
3991: pay_in_utils.set_location(g_debug,l_procedure, 20);
4120: FETCH c_name_fath_hus_name INTO l_name,l_fath_name,l_date,l_voluntary_contribution_rate;
4121: CLOSE c_name_fath_hus_name;
4122: l_count:=1;
4123: --PF Number
4124: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_number';
4125: pay_in_xml_utils.gXMLTable(l_count).Value := (c_org.pf_num);
4126: l_count := l_count + 1;
4127: --Employee name made in BLOCK
4128: --Full Name
4121: CLOSE c_name_fath_hus_name;
4122: l_count:=1;
4123: --PF Number
4124: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_number';
4125: pay_in_xml_utils.gXMLTable(l_count).Value := (c_org.pf_num);
4126: l_count := l_count + 1;
4127: --Employee name made in BLOCK
4128: --Full Name
4129: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_full_name';
4125: pay_in_xml_utils.gXMLTable(l_count).Value := (c_org.pf_num);
4126: l_count := l_count + 1;
4127: --Employee name made in BLOCK
4128: --Full Name
4129: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_full_name';
4130: pay_in_xml_utils.gXMLTable(l_count).Value := upper(l_name);
4131: l_count := l_count + 1;
4132: --Father/Husband Name
4133: --Father/Husband name made in BLOCK
4126: l_count := l_count + 1;
4127: --Employee name made in BLOCK
4128: --Full Name
4129: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_full_name';
4130: pay_in_xml_utils.gXMLTable(l_count).Value := upper(l_name);
4131: l_count := l_count + 1;
4132: --Father/Husband Name
4133: --Father/Husband name made in BLOCK
4134: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_fath_hus_name';
4130: pay_in_xml_utils.gXMLTable(l_count).Value := upper(l_name);
4131: l_count := l_count + 1;
4132: --Father/Husband Name
4133: --Father/Husband name made in BLOCK
4134: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_fath_hus_name';
4135: pay_in_xml_utils.gXMLTable(l_count).Value := upper(l_fath_name);
4136: l_count := l_count + 1;
4137: --PF Org Reg Name
4138: --PF Org Registered name made in BLOCK
4131: l_count := l_count + 1;
4132: --Father/Husband Name
4133: --Father/Husband name made in BLOCK
4134: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_fath_hus_name';
4135: pay_in_xml_utils.gXMLTable(l_count).Value := upper(l_fath_name);
4136: l_count := l_count + 1;
4137: --PF Org Reg Name
4138: --PF Org Registered name made in BLOCK
4139: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_registered_name';
4135: pay_in_xml_utils.gXMLTable(l_count).Value := upper(l_fath_name);
4136: l_count := l_count + 1;
4137: --PF Org Reg Name
4138: --PF Org Registered name made in BLOCK
4139: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_registered_name';
4140: pay_in_xml_utils.gXMLTable(l_count).Value := upper(c_rec.reg);
4141: l_count := l_count + 1;
4142: --Address
4143: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_address';
4136: l_count := l_count + 1;
4137: --PF Org Reg Name
4138: --PF Org Registered name made in BLOCK
4139: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_registered_name';
4140: pay_in_xml_utils.gXMLTable(l_count).Value := upper(c_rec.reg);
4141: l_count := l_count + 1;
4142: --Address
4143: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_address';
4144: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information5);
4139: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_registered_name';
4140: pay_in_xml_utils.gXMLTable(l_count).Value := upper(c_rec.reg);
4141: l_count := l_count + 1;
4142: --Address
4143: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_address';
4144: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information5);
4145: l_count := l_count + 1;
4146: l_tag := '
4147: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4140: pay_in_xml_utils.gXMLTable(l_count).Value := upper(c_rec.reg);
4141: l_count := l_count + 1;
4142: --Address
4143: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_address';
4144: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information5);
4145: l_count := l_count + 1;
4146: l_tag := '
4147: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4148: pay_in_xml_utils.multiColumnar('Details',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
4144: pay_in_xml_utils.gXMLTable(l_count).Value := (c_rec.action_information5);
4145: l_count := l_count + 1;
4146: l_tag := '
4147: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4148: pay_in_xml_utils.multiColumnar('Details',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
4149: l_count:=1;
4150: l_row_count:=0;
4151: --Individual Month Record Determination
4152: FOR i IN 3..12
4247: END LOOP;
4248:
4249: pay_in_utils.set_location(g_debug,l_procedure, 100);
4250: --Voluntary Higher Contr Rate
4251: l_tag :=pay_in_xml_utils.getTag('c_voluntary_rate',to_number(l_voluntary_contribution_rate,999.99));
4252: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4253: --Employer Representative name
4254: l_tag :=pay_in_xml_utils.getTag('c_rep_name',l_pf_rep_name);
4255: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4250: --Voluntary Higher Contr Rate
4251: l_tag :=pay_in_xml_utils.getTag('c_voluntary_rate',to_number(l_voluntary_contribution_rate,999.99));
4252: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4253: --Employer Representative name
4254: l_tag :=pay_in_xml_utils.getTag('c_rep_name',l_pf_rep_name);
4255: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4256: FOR c_sum IN c_asg_summation_details(/*c_master.assignment_id --Assignment ID
4257: ,*/c_org.pf_org_id --PF Org ID
4258: ,c_org.pf_num --PF Number
4260: ,p_effective_end_date
4261: ,p_contribution_period)
4262: LOOP
4263: --PF Salary Annual Value
4264: l_tag :=pay_in_xml_utils.getTag('c_pf_salary_ytd',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_sum.pf_ytd));
4265: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4266: -- Employee Total Contribution
4267: l_tag :=pay_in_xml_utils.getTag('c_epf_ytd',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_sum.employee));
4268: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4263: --PF Salary Annual Value
4264: l_tag :=pay_in_xml_utils.getTag('c_pf_salary_ytd',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_sum.pf_ytd));
4265: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4266: -- Employee Total Contribution
4267: l_tag :=pay_in_xml_utils.getTag('c_epf_ytd',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_sum.employee));
4268: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4269: -- Employer Total Contribution
4270: l_tag :=pay_in_xml_utils.getTag('c_epf_difference_ytd',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_sum.employer));
4271: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4266: -- Employee Total Contribution
4267: l_tag :=pay_in_xml_utils.getTag('c_epf_ytd',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_sum.employee));
4268: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4269: -- Employer Total Contribution
4270: l_tag :=pay_in_xml_utils.getTag('c_epf_difference_ytd',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_sum.employer));
4271: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4272: -- Pension
4273: l_tag :=pay_in_xml_utils.getTag('c_pension_fund_ytd',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_sum.pension));
4274: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4269: -- Employer Total Contribution
4270: l_tag :=pay_in_xml_utils.getTag('c_epf_difference_ytd',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_sum.employer));
4271: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4272: -- Pension
4273: l_tag :=pay_in_xml_utils.getTag('c_pension_fund_ytd',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_sum.pension));
4274: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4275: --Total Employee Employer Contr
4276: l_tag :=pay_in_xml_utils.getTag('c_employer_employee_ytd',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_sum.total));
4277: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4272: -- Pension
4273: l_tag :=pay_in_xml_utils.getTag('c_pension_fund_ytd',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_sum.pension));
4274: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4275: --Total Employee Employer Contr
4276: l_tag :=pay_in_xml_utils.getTag('c_employer_employee_ytd',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_sum.total));
4277: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4278: END LOOP;
4279: pay_in_utils.set_location(g_debug,l_procedure, 110);
4280: --Current Date
4277: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4278: END LOOP;
4279: pay_in_utils.set_location(g_debug,l_procedure, 110);
4280: --Current Date
4281: l_tag :=pay_in_xml_utils.getTag('c_current_date',to_char(SYSDATE,'DD-Mon-YYYY'));
4282: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4283: --Starting Year
4284: l_tag :=pay_in_xml_utils.getTag('c_start_year',to_char(p_effective_start_date,'YYYY'));
4285: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4280: --Current Date
4281: l_tag :=pay_in_xml_utils.getTag('c_current_date',to_char(SYSDATE,'DD-Mon-YYYY'));
4282: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4283: --Starting Year
4284: l_tag :=pay_in_xml_utils.getTag('c_start_year',to_char(p_effective_start_date,'YYYY'));
4285: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4286: --Ending Year
4287: l_tag :=pay_in_xml_utils.getTag('c_end_year',to_char(p_effective_end_date,'YYYY'));
4288: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4283: --Starting Year
4284: l_tag :=pay_in_xml_utils.getTag('c_start_year',to_char(p_effective_start_date,'YYYY'));
4285: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4286: --Ending Year
4287: l_tag :=pay_in_xml_utils.getTag('c_end_year',to_char(p_effective_end_date,'YYYY'));
4288: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4289: --Statuory Rate of Contribution
4290: SELECT ROUND(fnd_number.canonical_to_number(GLOBAL_VALUE)*100,2) INTO l_rate
4291: FROM FF_GLOBALS_F
4292: WHERE GLOBAL_NAME ='IN_EMPLOYEE_PF_PERCENT'
4293: AND LEGISLATION_CODE='IN'
4294: AND p_effective_start_date BETWEEN effective_start_date AND p_effective_end_date;
4295:
4296: l_tag :=pay_in_xml_utils.getTag('c_stat_rate',to_number(l_rate,99.99));
4297: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4298: l_tag := '';
4299: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4300: pay_in_utils.set_location(g_debug,l_procedure, 120);
4494: l_org_address pay_action_information.action_information1%TYPE;
4495: --In the Rarest case of location adddress exceeding 240 characters nothing can be done
4496: l_est_code hr_organization_information.org_information1%TYPE;
4497:
4498: g_org_XMLTable pay_in_xml_utils.tXMLTable;
4499:
4500: l_employee_name per_all_people_f.full_name%TYPE;
4501: l_fath_husb_name per_all_people_f.full_name%TYPE;
4502: l_hire_date DATE;
4533: g_debug := hr_utility.debug_enabled;
4534: l_procedure := g_package ||'create_form7_xml';
4535: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
4536:
4537: pay_in_xml_utils.gXMLTable.DELETE;
4538:
4539: --
4540: fnd_file.put_line(fnd_file.log,'Creating the XML...');
4541: dbms_lob.createtemporary(g_xml_data,FALSE,DBMS_LOB.CALL);
4552: fnd_file.put_line(fnd_file.log,'Creating XML for Form7.');
4553:
4554: --System Date
4555: l_sys_date_time := to_char(SYSDATE,'DD-Mon-YYYY HH24:MI:SS');
4556: l_tag :=pay_in_xml_utils.getTag('c_current_date_in_hh_mm_ss',l_sys_date_time);
4557: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4558:
4559:
4560: OPEN csr_global_value('IN_EPS_PERCENT');
4767: END IF;
4768:
4769: -- Pension Number
4770: l_count:=1;
4771: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_number';
4772: pay_in_xml_utils.gXMLTable(l_count).Value := (c_master_rec.pension_number);
4773: l_count := l_count + 1;
4774:
4775: --Employee Name made in BLOCK
4768:
4769: -- Pension Number
4770: l_count:=1;
4771: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_number';
4772: pay_in_xml_utils.gXMLTable(l_count).Value := (c_master_rec.pension_number);
4773: l_count := l_count + 1;
4774:
4775: --Employee Name made in BLOCK
4776: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_full_name';
4772: pay_in_xml_utils.gXMLTable(l_count).Value := (c_master_rec.pension_number);
4773: l_count := l_count + 1;
4774:
4775: --Employee Name made in BLOCK
4776: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_full_name';
4777: pay_in_xml_utils.gXMLTable(l_count).Value := upper(l_employee_name);
4778: l_count := l_count + 1;
4779:
4780:
4773: l_count := l_count + 1;
4774:
4775: --Employee Name made in BLOCK
4776: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_full_name';
4777: pay_in_xml_utils.gXMLTable(l_count).Value := upper(l_employee_name);
4778: l_count := l_count + 1;
4779:
4780:
4781: -- Father/Husband Name
4779:
4780:
4781: -- Father/Husband Name
4782: -- Father/Husband Name made in BLOCK
4783: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_fath_hus_name';
4784: pay_in_xml_utils.gXMLTable(l_count).Value := upper(l_fath_husb_name);
4785: l_count := l_count + 1;
4786:
4787: -- Yes_or_no
4780:
4781: -- Father/Husband Name
4782: -- Father/Husband Name made in BLOCK
4783: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_fath_hus_name';
4784: pay_in_xml_utils.gXMLTable(l_count).Value := upper(l_fath_husb_name);
4785: l_count := l_count + 1;
4786:
4787: -- Yes_or_no
4788: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_yes_no';
4784: pay_in_xml_utils.gXMLTable(l_count).Value := upper(l_fath_husb_name);
4785: l_count := l_count + 1;
4786:
4787: -- Yes_or_no
4788: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_yes_no';
4789: pay_in_xml_utils.gXMLTable(l_count).Value := l_salary_exceed_ceiling;
4790: l_count := l_count + 1;
4791:
4792: -- Pension Rate
4785: l_count := l_count + 1;
4786:
4787: -- Yes_or_no
4788: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_yes_no';
4789: pay_in_xml_utils.gXMLTable(l_count).Value := l_salary_exceed_ceiling;
4790: l_count := l_count + 1;
4791:
4792: -- Pension Rate
4793: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_rate';
4789: pay_in_xml_utils.gXMLTable(l_count).Value := l_salary_exceed_ceiling;
4790: l_count := l_count + 1;
4791:
4792: -- Pension Rate
4793: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_rate';
4794: pay_in_xml_utils.gXMLTable(l_count).Value := to_char(l_eps_percent);
4795: l_count := l_count + 1;
4796:
4797: -- Salary Ceiling
4790: l_count := l_count + 1;
4791:
4792: -- Pension Rate
4793: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_rate';
4794: pay_in_xml_utils.gXMLTable(l_count).Value := to_char(l_eps_percent);
4795: l_count := l_count + 1;
4796:
4797: -- Salary Ceiling
4798: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_ceiling';
4794: pay_in_xml_utils.gXMLTable(l_count).Value := to_char(l_eps_percent);
4795: l_count := l_count + 1;
4796:
4797: -- Salary Ceiling
4798: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_ceiling';
4799: pay_in_xml_utils.gXMLTable(l_count).Value := to_char(l_salary_ceiling);
4800: l_count := l_count + 1;
4801:
4802: -- Annual PF Wages
4795: l_count := l_count + 1;
4796:
4797: -- Salary Ceiling
4798: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_ceiling';
4799: pay_in_xml_utils.gXMLTable(l_count).Value := to_char(l_salary_ceiling);
4800: l_count := l_count + 1;
4801:
4802: -- Annual PF Wages
4803: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_salary_ytd';
4799: pay_in_xml_utils.gXMLTable(l_count).Value := to_char(l_salary_ceiling);
4800: l_count := l_count + 1;
4801:
4802: -- Annual PF Wages
4803: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_salary_ytd';
4804: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(to_char(l_total_pf_wages),0));
4805: l_count := l_count + 1;
4806: -- Annual Pension Contr
4807: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_fund_ytd';
4800: l_count := l_count + 1;
4801:
4802: -- Annual PF Wages
4803: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_salary_ytd';
4804: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(to_char(l_total_pf_wages),0));
4805: l_count := l_count + 1;
4806: -- Annual Pension Contr
4807: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_fund_ytd';
4808: pay_in_xml_utils.gXMLTable(l_count).Value :=
4803: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pf_salary_ytd';
4804: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(to_char(l_total_pf_wages),0));
4805: l_count := l_count + 1;
4806: -- Annual Pension Contr
4807: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_fund_ytd';
4808: pay_in_xml_utils.gXMLTable(l_count).Value :=
4809: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(to_char(l_total_pension),0));
4810: l_count := l_count + 1;
4811:
4804: pay_in_xml_utils.gXMLTable(l_count).Value := pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(to_char(l_total_pf_wages),0));
4805: l_count := l_count + 1;
4806: -- Annual Pension Contr
4807: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_pension_fund_ytd';
4808: pay_in_xml_utils.gXMLTable(l_count).Value :=
4809: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(to_char(l_total_pension),0));
4810: l_count := l_count + 1;
4811:
4812: -- Hire Date
4809: pay_us_employee_payslip_web.get_format_value(l_bg_id,nvl(to_char(l_total_pension),0));
4810: l_count := l_count + 1;
4811:
4812: -- Hire Date
4813: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_hire_date';
4814: pay_in_xml_utils.gXMLTable(l_count).Value := to_char(l_hire_date,'DD-Mon-YYYY');
4815:
4816: pay_in_xml_utils.multiColumnar('Details',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
4817: pay_in_xml_utils.multiColumnar('Organization',g_org_XMLTable,l_org_count,g_xml_data);
4810: l_count := l_count + 1;
4811:
4812: -- Hire Date
4813: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_hire_date';
4814: pay_in_xml_utils.gXMLTable(l_count).Value := to_char(l_hire_date,'DD-Mon-YYYY');
4815:
4816: pay_in_xml_utils.multiColumnar('Details',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
4817: pay_in_xml_utils.multiColumnar('Organization',g_org_XMLTable,l_org_count,g_xml_data);
4818:
4812: -- Hire Date
4813: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_hire_date';
4814: pay_in_xml_utils.gXMLTable(l_count).Value := to_char(l_hire_date,'DD-Mon-YYYY');
4815:
4816: pay_in_xml_utils.multiColumnar('Details',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
4817: pay_in_xml_utils.multiColumnar('Organization',g_org_XMLTable,l_org_count,g_xml_data);
4818:
4819: --Current Date
4820: l_tag :=pay_in_xml_utils.getTag('c_current_date',to_char(sysdate,'DD-Mon-YYYY'));
4813: pay_in_xml_utils.gXMLTable(l_count).Name := 'c_hire_date';
4814: pay_in_xml_utils.gXMLTable(l_count).Value := to_char(l_hire_date,'DD-Mon-YYYY');
4815:
4816: pay_in_xml_utils.multiColumnar('Details',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
4817: pay_in_xml_utils.multiColumnar('Organization',g_org_XMLTable,l_org_count,g_xml_data);
4818:
4819: --Current Date
4820: l_tag :=pay_in_xml_utils.getTag('c_current_date',to_char(sysdate,'DD-Mon-YYYY'));
4821: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4816: pay_in_xml_utils.multiColumnar('Details',pay_in_xml_utils.gXMLTable,l_count,g_xml_data);
4817: pay_in_xml_utils.multiColumnar('Organization',g_org_XMLTable,l_org_count,g_xml_data);
4818:
4819: --Current Date
4820: l_tag :=pay_in_xml_utils.getTag('c_current_date',to_char(sysdate,'DD-Mon-YYYY'));
4821: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4822:
4823: --Starting Year
4824: l_tag :=pay_in_xml_utils.getTag('c_start_year',to_char(p_effective_start_date,'YYYY'));
4820: l_tag :=pay_in_xml_utils.getTag('c_current_date',to_char(sysdate,'DD-Mon-YYYY'));
4821: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4822:
4823: --Starting Year
4824: l_tag :=pay_in_xml_utils.getTag('c_start_year',to_char(p_effective_start_date,'YYYY'));
4825: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4826: --Ending Year
4827: l_tag :=pay_in_xml_utils.getTag('c_end_year',to_char(p_effective_end_date,'YYYY'));
4828: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4823: --Starting Year
4824: l_tag :=pay_in_xml_utils.getTag('c_start_year',to_char(p_effective_start_date,'YYYY'));
4825: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4826: --Ending Year
4827: l_tag :=pay_in_xml_utils.getTag('c_end_year',to_char(p_effective_end_date,'YYYY'));
4828: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
4829:
4830: l_tag := '';
4831: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5570: --
5571: fnd_file.put_line(fnd_file.log,'Creating XML for ESI Form 6.');
5572: l_sys_date_time:=to_char(SYSDATE,'DD-Mon-YYYY HH24:MI:SS');
5573: --System Date:
5574: l_tag :=pay_in_xml_utils.getTag('c_sys_date_in_hh_mm_ss',l_sys_date_time);
5575: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5576: pay_in_utils.set_location(g_debug,l_procedure, 20);
5577:
5578: FOR c_rec IN c_distinct_org
5596: dbms_lob.createtemporary(l_xml_data,FALSE,DBMS_LOB.CALL);
5597: dbms_lob.open(l_xml_data,dbms_lob.lob_readwrite);
5598: l_tag :='
5599: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5600: l_tag :=pay_in_xml_utils.getTag('c_employer_code',l_employer_code);
5601: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5602: --Organization Name made in BLOCK
5603: l_tag :=pay_in_xml_utils.getTag('c_registered_name',upper(l_registered_name));
5604: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5599: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5600: l_tag :=pay_in_xml_utils.getTag('c_employer_code',l_employer_code);
5601: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5602: --Organization Name made in BLOCK
5603: l_tag :=pay_in_xml_utils.getTag('c_registered_name',upper(l_registered_name));
5604: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5605: l_tag :=pay_in_xml_utils.getTag('c_address',l_reg_address);
5606: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5607: --Organization Rep Name made in BLOCK
5601: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5602: --Organization Name made in BLOCK
5603: l_tag :=pay_in_xml_utils.getTag('c_registered_name',upper(l_registered_name));
5604: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5605: l_tag :=pay_in_xml_utils.getTag('c_address',l_reg_address);
5606: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5607: --Organization Rep Name made in BLOCK
5608: l_tag :=pay_in_xml_utils.getTag('c_rep_name',upper(l_rep_name));
5609: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5604: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5605: l_tag :=pay_in_xml_utils.getTag('c_address',l_reg_address);
5606: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5607: --Organization Rep Name made in BLOCK
5608: l_tag :=pay_in_xml_utils.getTag('c_rep_name',upper(l_rep_name));
5609: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5610: l_tag :=pay_in_xml_utils.getTag('c_rep_desg',l_rep_desg);
5611: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5612: l_tag :=pay_in_xml_utils.getTag('c_rep_address',l_rep_addr);
5606: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5607: --Organization Rep Name made in BLOCK
5608: l_tag :=pay_in_xml_utils.getTag('c_rep_name',upper(l_rep_name));
5609: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5610: l_tag :=pay_in_xml_utils.getTag('c_rep_desg',l_rep_desg);
5611: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5612: l_tag :=pay_in_xml_utils.getTag('c_rep_address',l_rep_addr);
5613: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5614: l_tag :=pay_in_xml_utils.getTag('c_local_office',l_org_name);
5608: l_tag :=pay_in_xml_utils.getTag('c_rep_name',upper(l_rep_name));
5609: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5610: l_tag :=pay_in_xml_utils.getTag('c_rep_desg',l_rep_desg);
5611: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5612: l_tag :=pay_in_xml_utils.getTag('c_rep_address',l_rep_addr);
5613: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5614: l_tag :=pay_in_xml_utils.getTag('c_local_office',l_org_name);
5615: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5616:
5610: l_tag :=pay_in_xml_utils.getTag('c_rep_desg',l_rep_desg);
5611: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5612: l_tag :=pay_in_xml_utils.getTag('c_rep_address',l_rep_addr);
5613: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5614: l_tag :=pay_in_xml_utils.getTag('c_local_office',l_org_name);
5615: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5616:
5617: --Organization Specific Data written on the CLOB. Finding Contribution Periods
5618: l_contr_start := substr(p_contribution_period,1,8);
5616:
5617: --Organization Specific Data written on the CLOB. Finding Contribution Periods
5618: l_contr_start := substr(p_contribution_period,1,8);
5619: l_contr_end := substr(p_contribution_period,11);
5620: l_tag :=pay_in_xml_utils.getTag('c_contr_start',l_contr_start);
5621: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5622: l_tag :=pay_in_xml_utils.getTag('c_contr_end',l_contr_end);
5623: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5624: --Details of Contribution Period written to the CLOB.Finding Employee Details
5618: l_contr_start := substr(p_contribution_period,1,8);
5619: l_contr_end := substr(p_contribution_period,11);
5620: l_tag :=pay_in_xml_utils.getTag('c_contr_start',l_contr_start);
5621: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5622: l_tag :=pay_in_xml_utils.getTag('c_contr_end',l_contr_end);
5623: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5624: --Details of Contribution Period written to the CLOB.Finding Employee Details
5625: l_count := 1;
5626: l_employer_total := 0;
5746: flag := FALSE;
5747: END IF;
5748: l_tag :='
5749: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5750: l_tag :=pay_in_xml_utils.getTag('c_sl_no',l_count);
5751: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5752: l_tag :=pay_in_xml_utils.getTag('c_insurance_number',l_insurance_no);
5753: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5754: l_tag :=pay_in_xml_utils.getTag('c_full_name',l_full_name);
5748: l_tag :='
5749: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5750: l_tag :=pay_in_xml_utils.getTag('c_sl_no',l_count);
5751: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5752: l_tag :=pay_in_xml_utils.getTag('c_insurance_number',l_insurance_no);
5753: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5754: l_tag :=pay_in_xml_utils.getTag('c_full_name',l_full_name);
5755: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5756: l_tag :=pay_in_xml_utils.getTag('c_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_actual_salary));
5750: l_tag :=pay_in_xml_utils.getTag('c_sl_no',l_count);
5751: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5752: l_tag :=pay_in_xml_utils.getTag('c_insurance_number',l_insurance_no);
5753: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5754: l_tag :=pay_in_xml_utils.getTag('c_full_name',l_full_name);
5755: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5756: l_tag :=pay_in_xml_utils.getTag('c_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_actual_salary));
5757: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5758: l_tag :=pay_in_xml_utils.getTag('c_employee_contr',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_employee_contr));
5752: l_tag :=pay_in_xml_utils.getTag('c_insurance_number',l_insurance_no);
5753: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5754: l_tag :=pay_in_xml_utils.getTag('c_full_name',l_full_name);
5755: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5756: l_tag :=pay_in_xml_utils.getTag('c_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_actual_salary));
5757: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5758: l_tag :=pay_in_xml_utils.getTag('c_employee_contr',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_employee_contr));
5759: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5760: l_tag :=pay_in_xml_utils.getTag('c_esi_coverage',l_esi_coverage);
5754: l_tag :=pay_in_xml_utils.getTag('c_full_name',l_full_name);
5755: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5756: l_tag :=pay_in_xml_utils.getTag('c_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_actual_salary));
5757: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5758: l_tag :=pay_in_xml_utils.getTag('c_employee_contr',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_employee_contr));
5759: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5760: l_tag :=pay_in_xml_utils.getTag('c_esi_coverage',l_esi_coverage);
5761: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5762: l_tag :=pay_in_xml_utils.getTag('c_remarks',l_remarks);
5756: l_tag :=pay_in_xml_utils.getTag('c_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_actual_salary));
5757: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5758: l_tag :=pay_in_xml_utils.getTag('c_employee_contr',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_employee_contr));
5759: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5760: l_tag :=pay_in_xml_utils.getTag('c_esi_coverage',l_esi_coverage);
5761: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5762: l_tag :=pay_in_xml_utils.getTag('c_remarks',l_remarks);
5763: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5764: l_tag :=pay_in_xml_utils.getTag('c_days',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_days));
5758: l_tag :=pay_in_xml_utils.getTag('c_employee_contr',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_employee_contr));
5759: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5760: l_tag :=pay_in_xml_utils.getTag('c_esi_coverage',l_esi_coverage);
5761: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5762: l_tag :=pay_in_xml_utils.getTag('c_remarks',l_remarks);
5763: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5764: l_tag :=pay_in_xml_utils.getTag('c_days',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_days));
5765: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5766: l_tag :=pay_in_xml_utils.getTag('c_avg_daily_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_avg_daily_wage));
5760: l_tag :=pay_in_xml_utils.getTag('c_esi_coverage',l_esi_coverage);
5761: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5762: l_tag :=pay_in_xml_utils.getTag('c_remarks',l_remarks);
5763: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5764: l_tag :=pay_in_xml_utils.getTag('c_days',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_days));
5765: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5766: l_tag :=pay_in_xml_utils.getTag('c_avg_daily_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_avg_daily_wage));
5767: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5768: l_tag :='';
5762: l_tag :=pay_in_xml_utils.getTag('c_remarks',l_remarks);
5763: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5764: l_tag :=pay_in_xml_utils.getTag('c_days',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_days));
5765: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5766: l_tag :=pay_in_xml_utils.getTag('c_avg_daily_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_avg_daily_wage));
5767: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5768: l_tag :='';
5769: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5770: l_count := l_count + 1;
5773: l_days_tot := l_days_tot + nvl(l_days,0);
5774: END IF;
5775: END LOOP;
5776:
5777: l_tag :=pay_in_xml_utils.getTag('c_total_con',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_con_tot));
5778: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5779: l_tag :=pay_in_xml_utils.getTag('c_total_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_wages_tot));
5780: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5781: l_tag :=pay_in_xml_utils.getTag('c_total_days',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_days_tot));
5775: END LOOP;
5776:
5777: l_tag :=pay_in_xml_utils.getTag('c_total_con',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_con_tot));
5778: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5779: l_tag :=pay_in_xml_utils.getTag('c_total_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_wages_tot));
5780: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5781: l_tag :=pay_in_xml_utils.getTag('c_total_days',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_days_tot));
5782: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5783:
5777: l_tag :=pay_in_xml_utils.getTag('c_total_con',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_con_tot));
5778: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5779: l_tag :=pay_in_xml_utils.getTag('c_total_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_wages_tot));
5780: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5781: l_tag :=pay_in_xml_utils.getTag('c_total_days',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_days_tot));
5782: dbms_lob.writeAppend(g_xml_data, length(l_tag), l_tag);
5783:
5784: dbms_lob.close(l_xml_data);
5785: dbms_lob.createtemporary(l_xml_data,FALSE,DBMS_LOB.CALL);
5784: dbms_lob.close(l_xml_data);
5785: dbms_lob.createtemporary(l_xml_data,FALSE,DBMS_LOB.CALL);
5786: dbms_lob.open(l_xml_data,dbms_lob.lob_readwrite);
5787: --Employer Share, Employee Share and Total Contribution
5788: l_tag :=pay_in_xml_utils.getTag('c_employer_share',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_employer_total));
5789: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5790: l_tag :=pay_in_xml_utils.getTag('c_employee_share',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_employee_total));
5791: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5792: l_tag :=pay_in_xml_utils.getTag('c_total',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_employee_total + l_employer_total));
5786: dbms_lob.open(l_xml_data,dbms_lob.lob_readwrite);
5787: --Employer Share, Employee Share and Total Contribution
5788: l_tag :=pay_in_xml_utils.getTag('c_employer_share',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_employer_total));
5789: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5790: l_tag :=pay_in_xml_utils.getTag('c_employee_share',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_employee_total));
5791: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5792: l_tag :=pay_in_xml_utils.getTag('c_total',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_employee_total + l_employer_total));
5793: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5794: --Challan Details
5788: l_tag :=pay_in_xml_utils.getTag('c_employer_share',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_employer_total));
5789: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5790: l_tag :=pay_in_xml_utils.getTag('c_employee_share',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_employee_total));
5791: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5792: l_tag :=pay_in_xml_utils.getTag('c_total',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_employee_total + l_employer_total));
5793: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5794: --Challan Details
5795: l_count := 1;
5796: l_challan_tot := 0;
5804:
5805:
5806: l_tag :='
5807: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5808: l_tag :=pay_in_xml_utils.getTag('c_sl',l_count);
5809: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5810: l_tag :=pay_in_xml_utils.getTag('c_month',c_challan_rec.month);
5811: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5812: l_tag :=pay_in_xml_utils.getTag('c_challan_date',c_challan_rec.challan_date);
5806: l_tag :='
5807: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5808: l_tag :=pay_in_xml_utils.getTag('c_sl',l_count);
5809: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5810: l_tag :=pay_in_xml_utils.getTag('c_month',c_challan_rec.month);
5811: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5812: l_tag :=pay_in_xml_utils.getTag('c_challan_date',c_challan_rec.challan_date);
5813: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5814: l_tag :=pay_in_xml_utils.getTag('c_challan_paid',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_challan_rec.challan_amt));
5808: l_tag :=pay_in_xml_utils.getTag('c_sl',l_count);
5809: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5810: l_tag :=pay_in_xml_utils.getTag('c_month',c_challan_rec.month);
5811: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5812: l_tag :=pay_in_xml_utils.getTag('c_challan_date',c_challan_rec.challan_date);
5813: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5814: l_tag :=pay_in_xml_utils.getTag('c_challan_paid',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_challan_rec.challan_amt));
5815: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5816: l_tag :=pay_in_xml_utils.getTag('c_challan_bank',c_challan_rec.challan_bank);
5810: l_tag :=pay_in_xml_utils.getTag('c_month',c_challan_rec.month);
5811: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5812: l_tag :=pay_in_xml_utils.getTag('c_challan_date',c_challan_rec.challan_date);
5813: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5814: l_tag :=pay_in_xml_utils.getTag('c_challan_paid',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_challan_rec.challan_amt));
5815: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5816: l_tag :=pay_in_xml_utils.getTag('c_challan_bank',c_challan_rec.challan_bank);
5817: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5818: l_tag :=pay_in_xml_utils.getTag('c_challan_branch',l_bank_branch_name);
5812: l_tag :=pay_in_xml_utils.getTag('c_challan_date',c_challan_rec.challan_date);
5813: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5814: l_tag :=pay_in_xml_utils.getTag('c_challan_paid',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_challan_rec.challan_amt));
5815: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5816: l_tag :=pay_in_xml_utils.getTag('c_challan_bank',c_challan_rec.challan_bank);
5817: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5818: l_tag :=pay_in_xml_utils.getTag('c_challan_branch',l_bank_branch_name);
5819: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5820: l_challan_tot := l_challan_tot + nvl(c_challan_rec.challan_amt,0);
5814: l_tag :=pay_in_xml_utils.getTag('c_challan_paid',pay_us_employee_payslip_web.get_format_value(l_bg_id,c_challan_rec.challan_amt));
5815: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5816: l_tag :=pay_in_xml_utils.getTag('c_challan_bank',c_challan_rec.challan_bank);
5817: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5818: l_tag :=pay_in_xml_utils.getTag('c_challan_branch',l_bank_branch_name);
5819: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5820: l_challan_tot := l_challan_tot + nvl(c_challan_rec.challan_amt,0);
5821: l_count := l_count + 1;
5822: l_tag :='';
5821: l_count := l_count + 1;
5822: l_tag :='';
5823: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5824: END LOOP;
5825: l_tag :=pay_in_xml_utils.getTag('c_challan_total',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_challan_tot));
5826: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5827:
5828:
5829: --Declaration Details
5844: CLOSE c_declaration ;
5845:
5846: l_tag := '
5847: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5848: l_tag :=pay_in_xml_utils.getTag('c_declaration_forms',l_declaration_forms);
5849: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5850: l_tag := pay_in_xml_utils.getTag('c_tic',l_tic);
5851: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5852: l_tag := pay_in_xml_utils.getTag('c_pic_received',l_pic_received);
5846: l_tag := '
5847: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5848: l_tag :=pay_in_xml_utils.getTag('c_declaration_forms',l_declaration_forms);
5849: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5850: l_tag := pay_in_xml_utils.getTag('c_tic',l_tic);
5851: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5852: l_tag := pay_in_xml_utils.getTag('c_pic_received',l_pic_received);
5853: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5854: l_tag := pay_in_xml_utils.getTag('c_pic_distributed',l_pic_distributed);
5848: l_tag :=pay_in_xml_utils.getTag('c_declaration_forms',l_declaration_forms);
5849: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5850: l_tag := pay_in_xml_utils.getTag('c_tic',l_tic);
5851: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5852: l_tag := pay_in_xml_utils.getTag('c_pic_received',l_pic_received);
5853: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5854: l_tag := pay_in_xml_utils.getTag('c_pic_distributed',l_pic_distributed);
5855: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5856: l_tag := pay_in_xml_utils.getTag('c_accidents_reported',l_accidents_reported);
5850: l_tag := pay_in_xml_utils.getTag('c_tic',l_tic);
5851: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5852: l_tag := pay_in_xml_utils.getTag('c_pic_received',l_pic_received);
5853: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5854: l_tag := pay_in_xml_utils.getTag('c_pic_distributed',l_pic_distributed);
5855: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5856: l_tag := pay_in_xml_utils.getTag('c_accidents_reported',l_accidents_reported);
5857: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5858: l_tag := pay_in_xml_utils.getTag('c_direct_covered_employees',l_direct_covered_employees);
5852: l_tag := pay_in_xml_utils.getTag('c_pic_received',l_pic_received);
5853: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5854: l_tag := pay_in_xml_utils.getTag('c_pic_distributed',l_pic_distributed);
5855: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5856: l_tag := pay_in_xml_utils.getTag('c_accidents_reported',l_accidents_reported);
5857: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5858: l_tag := pay_in_xml_utils.getTag('c_direct_covered_employees',l_direct_covered_employees);
5859: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5860: l_tag := pay_in_xml_utils.getTag('c_direct_covered_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_direct_covered_wages));
5854: l_tag := pay_in_xml_utils.getTag('c_pic_distributed',l_pic_distributed);
5855: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5856: l_tag := pay_in_xml_utils.getTag('c_accidents_reported',l_accidents_reported);
5857: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5858: l_tag := pay_in_xml_utils.getTag('c_direct_covered_employees',l_direct_covered_employees);
5859: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5860: l_tag := pay_in_xml_utils.getTag('c_direct_covered_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_direct_covered_wages));
5861: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5862: l_tag := pay_in_xml_utils.getTag('c_direct_not_covered_employees',l_direct_not_covered_employees);
5856: l_tag := pay_in_xml_utils.getTag('c_accidents_reported',l_accidents_reported);
5857: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5858: l_tag := pay_in_xml_utils.getTag('c_direct_covered_employees',l_direct_covered_employees);
5859: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5860: l_tag := pay_in_xml_utils.getTag('c_direct_covered_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_direct_covered_wages));
5861: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5862: l_tag := pay_in_xml_utils.getTag('c_direct_not_covered_employees',l_direct_not_covered_employees);
5863: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5864: l_tag := pay_in_xml_utils.getTag('c_direct_not_covered_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_direct_not_covered_wages));
5858: l_tag := pay_in_xml_utils.getTag('c_direct_covered_employees',l_direct_covered_employees);
5859: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5860: l_tag := pay_in_xml_utils.getTag('c_direct_covered_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_direct_covered_wages));
5861: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5862: l_tag := pay_in_xml_utils.getTag('c_direct_not_covered_employees',l_direct_not_covered_employees);
5863: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5864: l_tag := pay_in_xml_utils.getTag('c_direct_not_covered_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_direct_not_covered_wages));
5865: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5866: l_tag := pay_in_xml_utils.getTag('c_immediate_employer_covered',l_immediate_employer_covered);
5860: l_tag := pay_in_xml_utils.getTag('c_direct_covered_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_direct_covered_wages));
5861: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5862: l_tag := pay_in_xml_utils.getTag('c_direct_not_covered_employees',l_direct_not_covered_employees);
5863: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5864: l_tag := pay_in_xml_utils.getTag('c_direct_not_covered_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_direct_not_covered_wages));
5865: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5866: l_tag := pay_in_xml_utils.getTag('c_immediate_employer_covered',l_immediate_employer_covered);
5867: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5868: l_tag := pay_in_xml_utils.getTag('c_wages_immediate_emplr_cover',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_wages_immediate_emplr_cover));
5862: l_tag := pay_in_xml_utils.getTag('c_direct_not_covered_employees',l_direct_not_covered_employees);
5863: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5864: l_tag := pay_in_xml_utils.getTag('c_direct_not_covered_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_direct_not_covered_wages));
5865: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5866: l_tag := pay_in_xml_utils.getTag('c_immediate_employer_covered',l_immediate_employer_covered);
5867: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5868: l_tag := pay_in_xml_utils.getTag('c_wages_immediate_emplr_cover',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_wages_immediate_emplr_cover));
5869: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5870: l_tag := pay_in_xml_utils.getTag('c_immediate_emplr_not_covered',l_immediate_emplr_not_covered);
5864: l_tag := pay_in_xml_utils.getTag('c_direct_not_covered_wages',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_direct_not_covered_wages));
5865: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5866: l_tag := pay_in_xml_utils.getTag('c_immediate_employer_covered',l_immediate_employer_covered);
5867: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5868: l_tag := pay_in_xml_utils.getTag('c_wages_immediate_emplr_cover',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_wages_immediate_emplr_cover));
5869: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5870: l_tag := pay_in_xml_utils.getTag('c_immediate_emplr_not_covered',l_immediate_emplr_not_covered);
5871: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5872: l_tag := pay_in_xml_utils.getTag('c_wages_immd_emplr_not_covered',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_wages_immd_emplr_not_covered));
5866: l_tag := pay_in_xml_utils.getTag('c_immediate_employer_covered',l_immediate_employer_covered);
5867: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5868: l_tag := pay_in_xml_utils.getTag('c_wages_immediate_emplr_cover',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_wages_immediate_emplr_cover));
5869: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5870: l_tag := pay_in_xml_utils.getTag('c_immediate_emplr_not_covered',l_immediate_emplr_not_covered);
5871: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5872: l_tag := pay_in_xml_utils.getTag('c_wages_immd_emplr_not_covered',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_wages_immd_emplr_not_covered));
5873: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5874: l_tag := '';
5868: l_tag := pay_in_xml_utils.getTag('c_wages_immediate_emplr_cover',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_wages_immediate_emplr_cover));
5869: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5870: l_tag := pay_in_xml_utils.getTag('c_immediate_emplr_not_covered',l_immediate_emplr_not_covered);
5871: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5872: l_tag := pay_in_xml_utils.getTag('c_wages_immd_emplr_not_covered',pay_us_employee_payslip_web.get_format_value(l_bg_id,l_wages_immd_emplr_not_covered));
5873: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5874: l_tag := '';
5875: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5876:
5881: FOR rec_elements IN c_elements
5882: LOOP
5883: l_tag := '
5884: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5885: l_tag :=pay_in_xml_utils.getTag('c_sl_no',l_count);
5886: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5887: l_count := l_count + 1;
5888: l_tag := pay_in_xml_utils.getTag('c_elements',rec_elements.element_name);
5889: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5884: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5885: l_tag :=pay_in_xml_utils.getTag('c_sl_no',l_count);
5886: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5887: l_count := l_count + 1;
5888: l_tag := pay_in_xml_utils.getTag('c_elements',rec_elements.element_name);
5889: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5890: l_tag := '';
5891: dbms_lob.writeAppend(l_xml_data, length(l_tag), l_tag);
5892: END LOOP ;