43: END IF;
44:
45: --
46: l_tag := '<'||p_type||'>';
47: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
48:
49: FOR i in 1..p_count
50: LOOP
51: --
51: --
52: IF p_data.exists(i) THEN
53: --
54: l_tag := getTag(p_data(i).Name, p_data(i).Value);
55: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
56: --
57: END IF;
58: --
59: END LOOP;
58: --
59: END LOOP;
60: --
61: l_tag := '';
62: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
63: pay_in_utils.trace('**************************************************','********************');
64: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,20);
65: --
66: END multiColumnar;
108: IF p_data.exists(i) THEN
109: --
110: -- Start Main tag
111: l_tag := '<'||p_type||'>';
112: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
113: --
114: -- Put Description tag
115: l_tag := getTag('c_description', p_data(i).Name);
116: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
112: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
113: --
114: -- Put Description tag
115: l_tag := getTag('c_description', p_data(i).Name);
116: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
117: --
118: -- Put amount tag
119: l_tag := getTag('c_amount', p_data(i).Value);
120: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
116: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
117: --
118: -- Put amount tag
119: l_tag := getTag('c_amount', p_data(i).Value);
120: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
121: --
122: -- End Main tag
123: l_tag := '';
124: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
120: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
121: --
122: -- End Main tag
123: l_tag := '';
124: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
125: --
126: END IF;
127: --
128: END LOOP;
1022: gXMLTable.DELETE;
1023: l_count := 1;
1024: --
1025: fnd_file.put_line(fnd_file.log,'Creating the XML...');
1026: dbms_lob.createtemporary(p_xml_data,FALSE,DBMS_LOB.CALL);
1027: dbms_lob.open(p_xml_data,dbms_lob.lob_readwrite);
1028: --
1029: l_tag := '';
1030: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1023: l_count := 1;
1024: --
1025: fnd_file.put_line(fnd_file.log,'Creating the XML...');
1026: dbms_lob.createtemporary(p_xml_data,FALSE,DBMS_LOB.CALL);
1027: dbms_lob.open(p_xml_data,dbms_lob.lob_readwrite);
1028: --
1029: l_tag := '';
1030: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1031: l_tag := '
1026: dbms_lob.createtemporary(p_xml_data,FALSE,DBMS_LOB.CALL);
1027: dbms_lob.open(p_xml_data,dbms_lob.lob_readwrite);
1028: --
1029: l_tag := '';
1030: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1031: l_tag := '
1032: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1033: fnd_file.put_line(fnd_file.log,'Started...');
1034: --
1028: --
1029: l_tag := '';
1030: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1031: l_tag := '
1032: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1033: fnd_file.put_line(fnd_file.log,'Started...');
1034: --
1035: --
1036: fnd_file.put_line(fnd_file.log,'Creating XML for Employee Personal Details.');
1128: ,l_term_date)
1129: LOOP
1130: -- For getting the Designation
1131: l_tag := getTag('c_designation', c_rec_designation.designation);
1132: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1133: END LOOP;
1134: fnd_file.put_line(fnd_file.log,'Created Employee Personal Details.');
1135: --
1136: l_total_earnings := 0;
1220: --
1221: IF l_total_earnings <> 0 THEN
1222: l_tag := getTag('c_total_earnings', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1223: ,l_total_earnings));
1224: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1225: ELSE
1226: gXMLTable(1).Name := 'No Data Exists.';
1227: gXMLTable(1).Value := ' ';
1228: twoColumnar('t_earnings'
1232:
1233: IF l_total_deductions <> 0 THEN
1234: l_tag := getTag('c_total_deductions', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1235: ,l_total_deductions));
1236: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1237: ELSE
1238: gXMLTable(1).Name := 'No Data Exists.';
1239: gXMLTable(1).Value := ' ';
1240: twoColumnar('t_deductions'
1244:
1245: IF l_total_employer_charges <> 0 THEN
1246: l_tag := getTag('c_total_employer_charges', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1247: ,l_total_employer_charges));
1248: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1249: ELSE
1250: gXMLTable(1).Name := 'No Data Exists.';
1251: gXMLTable(1).Value := ' ';
1252: twoColumnar('t_er_charges'
1256:
1257: IF l_total_perquisites <> 0 THEN
1258: l_tag := getTag('c_total_perquisites', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1259: ,l_total_perquisites));
1260: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1261: ELSE
1262: gXMLTable(1).Name := 'No Data Exists.';
1263: gXMLTable(1).Value := ' ';
1264: twoColumnar('t_perquisites'
1268:
1269: IF l_total_other_deductions <> 0 THEN
1270: l_tag := getTag('c_total_other_deductions', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1271: ,abs(fnd_number.canonical_to_number(l_total_other_deductions))));
1272: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1273: ELSE
1274: gXMLTable(1).Name := 'No Data Exists.';
1275: gXMLTable(1).Value := ' ';
1276: twoColumnar('t_other_deductions'
1281: --Bugfix 66660147 start
1282: IF l_total_advance <> 0 THEN
1283: l_tag := getTag('c_total_advance', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1284: ,abs(fnd_number.canonical_to_number(l_total_advance))));
1285: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1286: ELSE
1287: gXMLTable(1).Name := 'No Data Exists.';
1288: gXMLTable(1).Value := ' ';
1289: twoColumnar('t_advances'
1293:
1294: IF l_total_fringe_benefit <> 0 THEN
1295: l_tag := getTag('c_total_fringe_benefit', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1296: ,abs(fnd_number.canonical_to_number(l_total_fringe_benefit))));
1297: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1298: ELSE
1299: gXMLTable(1).Name := 'No Data Exists.';
1300: gXMLTable(1).Value := ' ';
1301: twoColumnar('t_fringe_benefits'
1352: --
1353: IF l_total_loan_recovery <> 0 THEN
1354: l_tag := getTag('c_total_perquisites_loan_recovery', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1355: ,fnd_number.canonical_to_number(l_total_loan_recovery)));
1356: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1357: ELSE
1358: gXMLTable(1).Name := 'No Data Exists.';
1359: gXMLTable(1).Value := ' ';
1360: twoColumnar('t_loan_recovery'
1677: ,1);
1678: ELSE
1679: l_tag := getTag('c_total_amount_paid', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1680: ,l_total_paid));
1681: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1682:
1683: l_tag := getTag('c_total_taxable_amount', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1684: ,l_total_taxable));
1685: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1681: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1682:
1683: l_tag := getTag('c_total_taxable_amount', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1684: ,l_total_taxable));
1685: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1686:
1687: l_tag := getTag('c_total_amount_exempted', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1688: ,l_total_exempted));
1689: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1685: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1686:
1687: l_tag := getTag('c_total_amount_exempted', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1688: ,l_total_exempted));
1689: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1690: END IF;
1691: --
1692: fnd_file.put_line(fnd_file.log,'Created Dues to Employee.');
1693: --
1710: END LOOP;
1711:
1712: l_tag := getTag('c_gross_deductions', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1713: ,l_gross_earnings));
1714: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1715:
1716: --
1717: l_net_pay := 0;
1718: --
1732: END LOOP;
1733:
1734: l_tag := getTag('c_net_amount', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1735: ,l_net_pay));
1736: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1737:
1738: IF l_net_pay >= 0 THEN
1739: l_tag := getTag('c_net_amount_in_words', initcap(pay_in_utils.number_to_words(l_net_pay)));
1740: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1736: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1737:
1738: IF l_net_pay >= 0 THEN
1739: l_tag := getTag('c_net_amount_in_words', initcap(pay_in_utils.number_to_words(l_net_pay)));
1740: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1741: END IF;
1742:
1743: --
1744: l_tag := getTag('c_gross_earnings', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1742:
1743: --
1744: l_tag := getTag('c_gross_earnings', pay_us_employee_payslip_web.get_format_value(p_bus_grp_id
1745: ,l_gross_earnings));
1746: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1747: --
1748: fnd_file.put_line(fnd_file.log,'Created Net Amount Payables.');
1749: --
1750: fnd_file.put_line(fnd_file.log,'Creating XML for Payment Details.');
1765: l_payment_flag := 1;
1766:
1767: IF l_count = 1 THEN
1768: l_tag := getTag('c_payment_date', to_char(c_rec_payment_details.payment_date,'dd-Mon-yyyy'));
1769: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1770: END IF;
1771:
1772: l_count := 1;
1773: --
1808: fnd_file.put_line(fnd_file.log,'Created Payment Details.');
1809: --
1810: l_tag := '';
1811: --
1812: dbms_lob.writeAppend(p_xml_data, length(l_tag), l_tag);
1813: --
1814: l_xml_data := p_xml_data;
1815: --
1816: pay_in_utils.trace('**************************************************','********************');