[Home] [Help]
133: l_insert_count NUMBER(10);
134:
135: BEGIN
136: -- Initialize API return status to success
137: x_return_status := fnd_api.g_ret_sts_success;
138:
139: -- Check if party is present for the perticular batch id,
140: -- source id, source reference in cross reference table and update the ap_suppliers_int table
141: UPDATE ap_suppliers_int supp
209: END IF;
210:
211: EXCEPTION
212: WHEN OTHERS THEN
213: x_return_status := fnd_api.g_ret_sts_unexp_error;
214: fnd_message.set_name('SQLAP', 'AP_INVALID_PARTY');
215: fnd_msg_pub.add;
216: fnd_msg_pub.count_and_get(p_count => x_msg_count,
217: p_data => x_msg_data);
230: l_insert_count NUMBER(10);
231:
232: BEGIN
233: -- Initialize API return status to success
234: x_return_status := fnd_api.g_ret_sts_success;
235:
236: -- Check for the existence of the site and location from the hz cross ref table
237: -- and update the ap_supplier_sites_in table using below query
238:
373: END IF;
374:
375: EXCEPTION
376: WHEN OTHERS THEN
377: x_return_status := fnd_api.g_ret_sts_unexp_error;
378: fnd_message.set_name('SQLAP', 'AP_INVALID_PARTY_SITE');
379: fnd_msg_pub.add;
380: fnd_msg_pub.count_and_get(p_count => x_msg_count,
381: p_data => x_msg_data);
395: l_insert_count NUMBER;
396: BEGIN
397:
398: -- Initialize API return status to success
399: x_return_status := fnd_api.g_ret_sts_success;
400:
401: UPDATE ap_sup_site_contact_int supp
402: SET per_party_id =
403: (SELECT party_id
585: END IF;
586:
587: EXCEPTION
588: WHEN OTHERS THEN
589: x_return_status := fnd_api.g_ret_sts_unexp_error;
590:
591: fnd_msg_pub.count_and_get(p_count => x_msg_count,
592: p_data => x_msg_data);
593:
668:
669: l_vendor_exists NUMBER := 0;
670: BEGIN
671: -- Initialize API return status to success
672: x_return_status := fnd_api.g_ret_sts_success;
673:
674: DELETE ap_supplier_int_rejections
675: WHERE parent_table = 'AP_SUPPLIERS_INT';
676:
748: l_vendor_exists := 0;
749:
750: /* Call validate vendor in update mode */
751: ap_vendor_pub_pkg.validate_vendor(p_api_version => 1.0,
752: p_init_msg_list => fnd_api.g_false,
753: p_commit => fnd_api.g_false,
754: x_return_status => l_return_status,
755: x_msg_count => l_msg_count,
756: x_msg_data => l_msg_data,
749:
750: /* Call validate vendor in update mode */
751: ap_vendor_pub_pkg.validate_vendor(p_api_version => 1.0,
752: p_init_msg_list => fnd_api.g_false,
753: p_commit => fnd_api.g_false,
754: x_return_status => l_return_status,
755: x_msg_count => l_msg_count,
756: x_msg_data => l_msg_data,
757: p_vendor_rec => vendor_rec,
762: p_vendor_id => l_vendor_id);
763: ELSE
764: /* Call validate vendor in insert mode */
765: ap_vendor_pub_pkg.validate_vendor(p_api_version => 1.0,
766: p_init_msg_list => fnd_api.g_false,
767: p_commit => fnd_api.g_false,
768: x_return_status => l_return_status,
769: x_msg_count => l_msg_count,
770: x_msg_data => l_msg_data,
763: ELSE
764: /* Call validate vendor in insert mode */
765: ap_vendor_pub_pkg.validate_vendor(p_api_version => 1.0,
766: p_init_msg_list => fnd_api.g_false,
767: p_commit => fnd_api.g_false,
768: x_return_status => l_return_status,
769: x_msg_count => l_msg_count,
770: x_msg_data => l_msg_data,
771: p_vendor_rec => vendor_rec,
775: x_payee_valid => l_payee_valid,
776: p_vendor_id => l_vendor_id);
777: END IF;
778:
779: IF (l_return_status <> fnd_api.g_ret_sts_success /*OR l_party_valid <> 'Y'*/
780: ) THEN
781: INSERT INTO pos_supplier_int_rejections
782: (batch_id,
783: import_request_id,
868: CLOSE party_int_cur;
869:
870: EXCEPTION
871: WHEN OTHERS THEN
872: x_return_status := fnd_api.g_ret_sts_unexp_error;
873: fnd_message.set_name('SQLAP', 'AP_INVALID_PARTY');
874: fnd_msg_pub.add;
875: fnd_msg_pub.count_and_get(p_count => x_msg_count,
876: p_data => x_msg_data);
916:
917: BEGIN
918:
919: -- Initialize API return status to success
920: x_return_status := fnd_api.g_ret_sts_success;
921:
922: OPEN supp_contact_int_cur;
923: LOOP
924: FETCH supp_contact_int_cur
1017: COMMIT;
1018:
1019: EXCEPTION
1020: WHEN OTHERS THEN
1021: x_return_status := fnd_api.g_ret_sts_unexp_error;
1022: fnd_message.set_name('SQLAP', 'AP_INVALID_PARTY');
1023: fnd_msg_pub.add;
1024: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1025: p_data => x_msg_data);
1039:
1040: BEGIN
1041:
1042: -- Initialize API return status to success
1043: x_return_status := fnd_api.g_ret_sts_success;
1044:
1045: UPDATE ap_suppliers_int supp
1046: SET supp.party_id =
1047: (SELECT party_id
1058: COMMIT;
1059:
1060: EXCEPTION
1061: WHEN OTHERS THEN
1062: x_return_status := fnd_api.g_ret_sts_unexp_error;
1063: fnd_message.set_name('SQLAP', 'AP_INVALID_PARTY');
1064: fnd_msg_pub.add;
1065: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1066: p_data => x_msg_data);
1080:
1081: BEGIN
1082:
1083: -- Initialize API return status to success
1084: x_return_status := fnd_api.g_ret_sts_success;
1085:
1086: UPDATE ap_supplier_sites_int supp
1087: SET supp.party_id =
1088: (SELECT party_id
1112: COMMIT;
1113:
1114: EXCEPTION
1115: WHEN OTHERS THEN
1116: x_return_status := fnd_api.g_ret_sts_unexp_error;
1117: fnd_message.set_name('SQLAP', 'AP_INVALID_PARTY');
1118: fnd_msg_pub.add;
1119: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1120: p_data => x_msg_data);
1152: l_msg_count NUMBER;
1153:
1154: BEGIN
1155: -- Initialize API return status to success
1156: x_return_status := fnd_api.g_ret_sts_success;
1157:
1158: -- Check if the party exist for the supplier to be imported by
1159: -- using cross reference table
1160: /* AP to HZ started */
1162: x_return_status => x_return_status,
1163: x_msg_count => x_msg_count,
1164: x_msg_data => x_msg_data);
1165:
1166: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1167: fnd_file.put_line(fnd_file.log,
1168: 'Error Message Count: ' || x_msg_count ||
1169: ' Error Message Data: ' || x_msg_data ||
1170: ' From check_party_exist API.');
1175: x_return_status => x_return_status,
1176: x_msg_count => x_msg_count,
1177: x_msg_data => x_msg_data);
1178:
1179: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1180: fnd_file.put_line(fnd_file.log,
1181: 'Error Message Count: ' || x_msg_count ||
1182: ' Error Message Data: ' || x_msg_data ||
1183: ' From check_party_site_exist API.');
1188: x_return_status => x_return_status,
1189: x_msg_count => x_msg_count,
1190: x_msg_data => x_msg_data);
1191:
1192: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1193: fnd_file.put_line(fnd_file.log,
1194: 'Error Message Count: ' || x_msg_count ||
1195: ' Error Message Data: ' || x_msg_data ||
1196: ' From check_party_contact_exist API.');
1203: -- Bulk insert data in party interface tables from supplier interface tables
1204:
1205: EXCEPTION
1206: WHEN OTHERS THEN
1207: x_return_status := fnd_api.g_ret_sts_unexp_error;
1208: fnd_message.set_name('SQLAP', 'AP_INVALID_PARTY');
1209: fnd_msg_pub.add;
1210: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1211: p_data => x_msg_data);
1292:
1293: l_vendor_exists NUMBER := 0;
1294: BEGIN
1295: -- Initialize API return status to success
1296: x_return_status := fnd_api.g_ret_sts_success;
1297:
1298: DELETE ap_supplier_int_rejections
1299: WHERE parent_table = 'AP_SUPPLIERS_INT';
1300:
1373: ap_tca_supplier_sync_pkg.sync_supplier(l_sync_return_status,
1374: l_sync_msg_count,
1375: l_sync_msg_data,
1376: vendor_rec.party_id);
1377: IF l_sync_return_status = fnd_api.g_ret_sts_success THEN
1378: ap_vendor_pub_pkg.raise_supplier_event(i_vendor_id => l_vendor_id);
1379: x_return_status := fnd_api.g_ret_sts_success;
1380: ELSE
1381: x_return_status := l_sync_return_status;
1375: l_sync_msg_data,
1376: vendor_rec.party_id);
1377: IF l_sync_return_status = fnd_api.g_ret_sts_success THEN
1378: ap_vendor_pub_pkg.raise_supplier_event(i_vendor_id => l_vendor_id);
1379: x_return_status := fnd_api.g_ret_sts_success;
1380: ELSE
1381: x_return_status := l_sync_return_status;
1382: x_msg_count := l_sync_msg_count;
1383: x_msg_data := l_sync_msg_data;
1384: END IF;
1385: ELSE
1386: /* Call create vendor API to create a supplier */
1387: ap_vendor_pub_pkg.create_vendor(p_api_version => 1.0,
1388: p_init_msg_list => fnd_api.g_true,
1389: p_commit => fnd_api.g_false,
1390: p_validation_level => fnd_api.g_valid_level_full,
1391: x_return_status => l_return_status,
1392: x_msg_count => l_msg_count,
1385: ELSE
1386: /* Call create vendor API to create a supplier */
1387: ap_vendor_pub_pkg.create_vendor(p_api_version => 1.0,
1388: p_init_msg_list => fnd_api.g_true,
1389: p_commit => fnd_api.g_false,
1390: p_validation_level => fnd_api.g_valid_level_full,
1391: x_return_status => l_return_status,
1392: x_msg_count => l_msg_count,
1393: x_msg_data => l_msg_data,
1386: /* Call create vendor API to create a supplier */
1387: ap_vendor_pub_pkg.create_vendor(p_api_version => 1.0,
1388: p_init_msg_list => fnd_api.g_true,
1389: p_commit => fnd_api.g_false,
1390: p_validation_level => fnd_api.g_valid_level_full,
1391: x_return_status => l_return_status,
1392: x_msg_count => l_msg_count,
1393: x_msg_data => l_msg_data,
1394: p_vendor_rec => vendor_rec,
1394: p_vendor_rec => vendor_rec,
1395: x_vendor_id => l_vendor_id,
1396: x_party_id => l_party_id);
1397:
1398: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1399: INSERT INTO pos_supplier_int_rejections
1400: (batch_id,
1401: import_request_id,
1402: parent_table,
1445: END IF;
1446: ELSIF party_int_rec.insert_update_flag = 'I' THEN
1447: /* Call create vendor API to create a supplier */
1448: ap_vendor_pub_pkg.create_vendor(p_api_version => 1.0,
1449: p_init_msg_list => fnd_api.g_true,
1450: p_commit => fnd_api.g_false,
1451: p_validation_level => fnd_api.g_valid_level_full,
1452: x_return_status => l_return_status,
1453: x_msg_count => l_msg_count,
1446: ELSIF party_int_rec.insert_update_flag = 'I' THEN
1447: /* Call create vendor API to create a supplier */
1448: ap_vendor_pub_pkg.create_vendor(p_api_version => 1.0,
1449: p_init_msg_list => fnd_api.g_true,
1450: p_commit => fnd_api.g_false,
1451: p_validation_level => fnd_api.g_valid_level_full,
1452: x_return_status => l_return_status,
1453: x_msg_count => l_msg_count,
1454: x_msg_data => l_msg_data,
1447: /* Call create vendor API to create a supplier */
1448: ap_vendor_pub_pkg.create_vendor(p_api_version => 1.0,
1449: p_init_msg_list => fnd_api.g_true,
1450: p_commit => fnd_api.g_false,
1451: p_validation_level => fnd_api.g_valid_level_full,
1452: x_return_status => l_return_status,
1453: x_msg_count => l_msg_count,
1454: x_msg_data => l_msg_data,
1455: p_vendor_rec => vendor_rec,
1455: p_vendor_rec => vendor_rec,
1456: x_vendor_id => l_vendor_id,
1457: x_party_id => l_party_id);
1458:
1459: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1460: INSERT INTO pos_supplier_int_rejections
1461: (batch_id,
1462: import_request_id,
1463: parent_table,
1503: ap_tca_supplier_sync_pkg.sync_supplier(l_sync_return_status,
1504: l_sync_msg_count,
1505: l_sync_msg_data,
1506: vendor_rec.party_id);
1507: IF l_sync_return_status = fnd_api.g_ret_sts_success THEN
1508: ap_vendor_pub_pkg.raise_supplier_event(i_vendor_id => l_vendor_id);
1509: x_return_status := fnd_api.g_ret_sts_success;
1510: ELSE
1511: x_return_status := l_sync_return_status;
1505: l_sync_msg_data,
1506: vendor_rec.party_id);
1507: IF l_sync_return_status = fnd_api.g_ret_sts_success THEN
1508: ap_vendor_pub_pkg.raise_supplier_event(i_vendor_id => l_vendor_id);
1509: x_return_status := fnd_api.g_ret_sts_success;
1510: ELSE
1511: x_return_status := l_sync_return_status;
1512: x_msg_count := l_sync_msg_count;
1513: x_msg_data := l_sync_msg_data;
1518: CLOSE party_int_cur;
1519:
1520: EXCEPTION
1521: WHEN OTHERS THEN
1522: x_return_status := fnd_api.g_ret_sts_unexp_error;
1523: fnd_message.set_name('SQLAP', 'AP_INVALID_PARTY');
1524: fnd_msg_pub.add;
1525: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1526: p_data => x_msg_data);
1563: l_party_usg_validation_level NUMBER;
1564: BEGIN
1565:
1566: -- Initialize API return status to success
1567: x_return_status := fnd_api.g_ret_sts_success;
1568:
1569: OPEN contact_int_cur;
1570:
1571: LOOP
1597: x_return_status => l_return_status,
1598: x_msg_count => l_msg_count,
1599: x_msg_data => l_msg_data);
1600:
1601: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1602: error_handler.get_message_list(l_error_msg_tbl);
1603: IF l_error_msg_tbl.first IS NOT NULL THEN
1604: l_msg_count := l_error_msg_tbl.first;
1605: WHILE l_msg_count IS NOT NULL LOOP
1624: CLOSE contact_int_cur;
1625:
1626: EXCEPTION
1627: WHEN OTHERS THEN
1628: x_return_status := fnd_api.g_ret_sts_unexp_error;
1629: fnd_message.set_name('SQLAP', 'AP_INVALID_PARTY_CONTACT');
1630: fnd_msg_pub.add;
1631: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1632: p_data => x_msg_data);
1669:
1670: l_ext_payee_id NUMBER;
1671: l_bank_acct_id NUMBER;
1672: BEGIN
1673: x_return_status := fnd_api.g_ret_sts_success;
1674:
1675: fnd_file.put_line(fnd_file.log,
1676: ' Message: Inside PROCEDURE CREATE_VENDOR' ||
1677: ' Parameters party_id: ' || p_vendor_rec.party_id ||
1679: ' vendor_interface_id: ' ||
1680: p_vendor_rec.vendor_interface_id);
1681:
1682: ap_vendor_pub_pkg.create_vendor(p_api_version => 1.0,
1683: p_init_msg_list => fnd_api.g_true,
1684: p_commit => fnd_api.g_false,
1685: p_validation_level => fnd_api.g_valid_level_full,
1686: x_return_status => l_return_status,
1687: x_msg_count => l_msg_count,
1680: p_vendor_rec.vendor_interface_id);
1681:
1682: ap_vendor_pub_pkg.create_vendor(p_api_version => 1.0,
1683: p_init_msg_list => fnd_api.g_true,
1684: p_commit => fnd_api.g_false,
1685: p_validation_level => fnd_api.g_valid_level_full,
1686: x_return_status => l_return_status,
1687: x_msg_count => l_msg_count,
1688: x_msg_data => l_msg_data,
1681:
1682: ap_vendor_pub_pkg.create_vendor(p_api_version => 1.0,
1683: p_init_msg_list => fnd_api.g_true,
1684: p_commit => fnd_api.g_false,
1685: p_validation_level => fnd_api.g_valid_level_full,
1686: x_return_status => l_return_status,
1687: x_msg_count => l_msg_count,
1688: x_msg_data => l_msg_data,
1689: p_vendor_rec => p_vendor_rec,
1689: p_vendor_rec => p_vendor_rec,
1690: x_vendor_id => l_vendor_id,
1691: x_party_id => l_party_id);
1692:
1693: IF l_return_status = fnd_api.g_ret_sts_success THEN
1694:
1695: UPDATE ap_suppliers_int
1696: SET status = 'PROCESSED'
1697: WHERE vendor_interface_id = p_vendor_rec.vendor_interface_id
1732: ext_payee_rec.payee_party_id := nvl(l_party_id, p_vendor_rec.party_id);
1733:
1734: /* Calling IBY Payee Validation API */
1735: iby_disbursement_setup_pub.validate_external_payee(p_api_version => 1.0,
1736: p_init_msg_list => fnd_api.g_true,
1737: p_ext_payee_rec => ext_payee_rec,
1738: x_return_status => l_return_status,
1739: x_msg_count => l_msg_count,
1740: x_msg_data => l_msg_data);
1743: ' Message: Inside PROCEDURE CREATE_VENDOR' ||
1744: ' from iby_disbursement_setup_pub.validate_external_payee' ||
1745: ' l_return_status: ' || l_return_status);
1746:
1747: IF l_return_status = fnd_api.g_ret_sts_success THEN
1748:
1749: ext_payee_tab(1) := ext_payee_rec;
1750:
1751: /*Calling IBY Payee Creation API */
1749: ext_payee_tab(1) := ext_payee_rec;
1750:
1751: /*Calling IBY Payee Creation API */
1752: iby_disbursement_setup_pub.create_external_payee(p_api_version => 1.0,
1753: p_init_msg_list => fnd_api.g_true,
1754: p_ext_payee_tab => ext_payee_tab,
1755: x_return_status => l_return_status,
1756: x_msg_count => l_msg_count,
1757: x_msg_data => l_msg_data,
1761: fnd_file.put_line(fnd_file.log,
1762: 'Payee_Creation_Msg: ' || ext_payee_create_tab(1)
1763: .payee_creation_msg);
1764:
1765: IF l_return_status = fnd_api.g_ret_sts_success THEN
1766: l_ext_payee_id := ext_payee_id_tab(1).ext_payee_id;
1767:
1768: UPDATE iby_temp_ext_bank_accts
1769: SET ext_payee_id = l_ext_payee_id,
1779: EXIT WHEN iby_ext_accts_cur%NOTFOUND;
1780:
1781: /* Calling IBY Bank Account Validation API */
1782: iby_disbursement_setup_pub.validate_temp_ext_bank_acct(p_api_version => 1.0,
1783: p_init_msg_list => fnd_api.g_true,
1784: x_return_status => l_return_status,
1785: x_msg_count => l_msg_count,
1786: x_msg_data => l_msg_data,
1787: p_temp_ext_acct_id => l_temp_ext_acct_id);
1785: x_msg_count => l_msg_count,
1786: x_msg_data => l_msg_data,
1787: p_temp_ext_acct_id => l_temp_ext_acct_id);
1788:
1789: IF l_return_status = fnd_api.g_ret_sts_success THEN
1790: /* Calling IBY Bank Account Creation API */
1791: iby_disbursement_setup_pub.create_temp_ext_bank_acct(p_api_version => 1.0,
1792: p_init_msg_list => fnd_api.g_true,
1793: x_return_status => l_return_status,
1788:
1789: IF l_return_status = fnd_api.g_ret_sts_success THEN
1790: /* Calling IBY Bank Account Creation API */
1791: iby_disbursement_setup_pub.create_temp_ext_bank_acct(p_api_version => 1.0,
1792: p_init_msg_list => fnd_api.g_true,
1793: x_return_status => l_return_status,
1794: x_msg_count => l_msg_count,
1795: x_msg_data => l_msg_data,
1796: p_temp_ext_acct_id => l_temp_ext_acct_id,
1801: p_org_type => NULL,
1802: x_bank_acc_id => l_bank_acct_id,
1803: x_response => ext_response_rec);
1804:
1805: IF l_return_status = fnd_api.g_ret_sts_success THEN
1806: UPDATE iby_temp_ext_bank_accts
1807: SET status = 'PROCESSED'
1808: WHERE temp_ext_bank_acct_id = l_temp_ext_acct_id;
1809:
2023:
2024: END IF; -- Supplier Creation API
2025: EXCEPTION
2026: WHEN OTHERS THEN
2027: x_return_status := fnd_api.g_ret_sts_unexp_error;
2028:
2029: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2030: p_data => x_msg_data);
2031:
2086: l_vendor_exists NUMBER := 0;
2087:
2088: BEGIN
2089: -- Initialize API return status to success
2090: x_return_status := fnd_api.g_ret_sts_success;
2091:
2092: -- Standard Start of API savepoint
2093: SAVEPOINT import_vendor_pub;
2094:
2220: vendor_int_rec.vendor_interface_id ||
2221: 'as length of num_1099 > 20 ');
2222: END IF;
2223: END IF;
2224: x_return_status := fnd_api.g_ret_sts_error;
2225: fnd_file.put_line(fnd_file.log,
2226: ' Message: Inside PROCEDURE IMPORT_VENDORS' ||
2227: ' failed for vendor_interface_id: ' ||
2228: vendor_int_rec.vendor_interface_id ||
2399: ', No. of Messages: ' || l_msg_count ||
2400: ', Message: ' || l_msg_data);
2401: END IF;
2402: END IF;
2403: x_return_status := fnd_api.g_ret_sts_error;
2404: fnd_file.put_line(fnd_file.log,
2405: ' Invalid Orig System Combination for: ' ||
2406: ' vendor_interface_id: ' ||
2407: vendor_rec.vendor_interface_id);
2464: ' As vendor exists calling ap_vendor_pub_pkg.update_vendor for vendor id : ' ||
2465: l_vendor_id);
2466:
2467: ap_vendor_pub_pkg.update_vendor(1.0,
2468: fnd_api.g_false,
2469: fnd_api.g_false,
2470: fnd_api.g_valid_level_full,
2471: l_return_status,
2472: l_msg_count,
2465: l_vendor_id);
2466:
2467: ap_vendor_pub_pkg.update_vendor(1.0,
2468: fnd_api.g_false,
2469: fnd_api.g_false,
2470: fnd_api.g_valid_level_full,
2471: l_return_status,
2472: l_msg_count,
2473: l_msg_data,
2466:
2467: ap_vendor_pub_pkg.update_vendor(1.0,
2468: fnd_api.g_false,
2469: fnd_api.g_false,
2470: fnd_api.g_valid_level_full,
2471: l_return_status,
2472: l_msg_count,
2473: l_msg_data,
2474: vendor_rec,
2473: l_msg_data,
2474: vendor_rec,
2475: l_vendor_id);
2476:
2477: IF l_return_status = fnd_api.g_ret_sts_success THEN
2478:
2479: UPDATE ap_suppliers_int
2480: SET status = 'PROCESSED'
2481: WHERE vendor_interface_id = vendor_rec.vendor_interface_id
2567: -- Standard call to get message count and if count is 1,
2568: -- get message info.
2569: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2570: EXCEPTION
2571: WHEN fnd_api.g_exc_error THEN
2572: ROLLBACK TO import_vendor_pub;
2573: x_return_status := fnd_api.g_ret_sts_error;
2574: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2575: p_data => x_msg_data);
2569: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2570: EXCEPTION
2571: WHEN fnd_api.g_exc_error THEN
2572: ROLLBACK TO import_vendor_pub;
2573: x_return_status := fnd_api.g_ret_sts_error;
2574: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2575: p_data => x_msg_data);
2576: fnd_file.put_line(fnd_file.log,
2577: ' Inside import_vendors EXCEPTION ' || ' Message: ' ||
2575: p_data => x_msg_data);
2576: fnd_file.put_line(fnd_file.log,
2577: ' Inside import_vendors EXCEPTION ' || ' Message: ' ||
2578: SQLCODE || ' ' || SQLERRM);
2579: WHEN fnd_api.g_exc_unexpected_error THEN
2580: ROLLBACK TO import_vendor_pub;
2581: x_return_status := fnd_api.g_ret_sts_unexp_error;
2582: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2583: p_data => x_msg_data);
2577: ' Inside import_vendors EXCEPTION ' || ' Message: ' ||
2578: SQLCODE || ' ' || SQLERRM);
2579: WHEN fnd_api.g_exc_unexpected_error THEN
2580: ROLLBACK TO import_vendor_pub;
2581: x_return_status := fnd_api.g_ret_sts_unexp_error;
2582: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2583: p_data => x_msg_data);
2584: fnd_file.put_line(fnd_file.log,
2585: ' Inside import_vendors unexcepted EXCEPTION ' ||
2585: ' Inside import_vendors unexcepted EXCEPTION ' ||
2586: ' Message: ' || SQLCODE || ' ' || SQLERRM);
2587: WHEN OTHERS THEN
2588: ROLLBACK TO import_vendor_pub;
2589: x_return_status := fnd_api.g_ret_sts_unexp_error;
2590:
2591: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2592: p_data => x_msg_data);
2593: fnd_file.put_line(fnd_file.log,
2639: l_payee_msg_data VARCHAR2(4000);
2640: l_error_code VARCHAR2(4000);
2641:
2642: BEGIN
2643: x_return_status := fnd_api.g_ret_sts_success;
2644:
2645: fnd_file.put_line(fnd_file.log,
2646: ' Message: Inside PROCEDURE CREATE_VENDOR_SITE' ||
2647: ' Parameters vendor_id: ' || p_site_rec.vendor_id ||
2650:
2651: SAVEPOINT import_vendor_sites_pub2;
2652:
2653: ap_vendor_pub_pkg.create_vendor_site(p_api_version => 1.0,
2654: p_init_msg_list => fnd_api.g_true,
2655: p_commit => fnd_api.g_false,
2656: p_validation_level => fnd_api.g_valid_level_full,
2657: x_return_status => l_return_status,
2658: x_msg_count => l_msg_count,
2651: SAVEPOINT import_vendor_sites_pub2;
2652:
2653: ap_vendor_pub_pkg.create_vendor_site(p_api_version => 1.0,
2654: p_init_msg_list => fnd_api.g_true,
2655: p_commit => fnd_api.g_false,
2656: p_validation_level => fnd_api.g_valid_level_full,
2657: x_return_status => l_return_status,
2658: x_msg_count => l_msg_count,
2659: x_msg_data => l_msg_data,
2652:
2653: ap_vendor_pub_pkg.create_vendor_site(p_api_version => 1.0,
2654: p_init_msg_list => fnd_api.g_true,
2655: p_commit => fnd_api.g_false,
2656: p_validation_level => fnd_api.g_valid_level_full,
2657: x_return_status => l_return_status,
2658: x_msg_count => l_msg_count,
2659: x_msg_data => l_msg_data,
2660: p_vendor_site_rec => p_site_rec,
2661: x_vendor_site_id => l_vendor_site_id,
2662: x_party_site_id => l_party_site_id,
2663: x_location_id => l_location_id);
2664:
2665: IF l_return_status = fnd_api.g_ret_sts_success THEN
2666:
2667: UPDATE ap_supplier_sites_int
2668: SET status = 'PROCESSED'
2669: WHERE vendor_site_interface_id = p_site_rec.vendor_site_interface_id
2703: p_data => l_payee_msg_data);
2704:
2705: /* Calling IBY Payee Validation API */
2706: iby_disbursement_setup_pub.validate_external_payee(p_api_version => 1.0,
2707: p_init_msg_list => fnd_api.g_true,
2708: p_ext_payee_rec => ext_payee_rec,
2709: x_return_status => l_return_status,
2710: x_msg_count => l_msg_count,
2711: x_msg_data => l_msg_data);
2709: x_return_status => l_return_status,
2710: x_msg_count => l_msg_count,
2711: x_msg_data => l_msg_data);
2712:
2713: IF l_return_status = fnd_api.g_ret_sts_success THEN
2714: ext_payee_tab(1) := ext_payee_rec;
2715:
2716: /* Calling IBY Payee Creation API */
2717: iby_disbursement_setup_pub.create_external_payee(p_api_version => 1.0,
2714: ext_payee_tab(1) := ext_payee_rec;
2715:
2716: /* Calling IBY Payee Creation API */
2717: iby_disbursement_setup_pub.create_external_payee(p_api_version => 1.0,
2718: p_init_msg_list => fnd_api.g_true,
2719: p_ext_payee_tab => ext_payee_tab,
2720: x_return_status => l_return_status,
2721: x_msg_count => l_msg_count,
2722: x_msg_data => l_msg_data,
2722: x_msg_data => l_msg_data,
2723: x_ext_payee_id_tab => ext_payee_id_tab,
2724: x_ext_payee_status_tab => ext_payee_create_tab);
2725:
2726: IF l_return_status = fnd_api.g_ret_sts_success THEN
2727: l_ext_payee_id := ext_payee_id_tab(1).ext_payee_id;
2728:
2729: UPDATE iby_temp_ext_bank_accts
2730: SET ext_payee_id = l_ext_payee_id,
2741: EXIT WHEN iby_ext_accts_cur%NOTFOUND;
2742:
2743: /* Calling IBY Bank Account Validation API */
2744: iby_disbursement_setup_pub.validate_temp_ext_bank_acct(p_api_version => 1.0,
2745: p_init_msg_list => fnd_api.g_true,
2746: x_return_status => l_return_status,
2747: x_msg_count => l_msg_count,
2748: x_msg_data => l_msg_data,
2749: p_temp_ext_acct_id => l_temp_ext_acct_id);
2747: x_msg_count => l_msg_count,
2748: x_msg_data => l_msg_data,
2749: p_temp_ext_acct_id => l_temp_ext_acct_id);
2750:
2751: IF l_return_status = fnd_api.g_ret_sts_success THEN
2752: /* Calling IBY Bank Account Creation API */
2753:
2754: iby_disbursement_setup_pub.create_temp_ext_bank_acct(p_api_version => 1.0,
2755: p_init_msg_list => fnd_api.g_true,
2751: IF l_return_status = fnd_api.g_ret_sts_success THEN
2752: /* Calling IBY Bank Account Creation API */
2753:
2754: iby_disbursement_setup_pub.create_temp_ext_bank_acct(p_api_version => 1.0,
2755: p_init_msg_list => fnd_api.g_true,
2756: x_return_status => l_return_status,
2757: x_msg_count => l_msg_count,
2758: x_msg_data => l_msg_data,
2759: p_temp_ext_acct_id => l_temp_ext_acct_id,
2764: p_org_type => 'OPERATING_UNIT',
2765: x_bank_acc_id => l_bank_acct_id,
2766: x_response => ext_response_rec);
2767:
2768: IF l_return_status = fnd_api.g_ret_sts_success THEN
2769: UPDATE iby_temp_ext_bank_accts
2770: SET status = 'PROCESSED'
2771: WHERE temp_ext_bank_acct_id = l_temp_ext_acct_id;
2772:
3004:
3005: END IF; -- Supplier Site Creation API
3006: EXCEPTION
3007: WHEN OTHERS THEN
3008: x_return_status := fnd_api.g_ret_sts_unexp_error;
3009:
3010: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3011: p_data => x_msg_data);
3012: fnd_file.put_line(fnd_file.log,
3080:
3081: -- fnd_msg_pub.initialize;
3082:
3083: -- Initialize API return status to success
3084: x_return_status := fnd_api.g_ret_sts_success;
3085:
3086: DELETE ap_supplier_int_rejections
3087: WHERE parent_table = 'AP_SUPPLIER_SITES_INT';
3088:
3235: ', No. of Messages: ' || l_msg_count ||
3236: ', Message: ' || l_msg_data);
3237: END IF;
3238: END IF;
3239: x_return_status := fnd_api.g_ret_sts_error;
3240: fnd_file.put_line(fnd_file.log,
3241: ' Vendor ID is null for: ' ||
3242: ' vendor_site_interface_id: ' ||
3243: site_int_rec.vendor_site_interface_id ||
3494:
3495: site_rec.vendor_site_code := null; --Bug 16441477 avoid duplicate supplier site checking
3496:
3497: ap_vendor_pub_pkg.update_vendor_site(1.0,
3498: fnd_api.g_false,
3499: fnd_api.g_false,
3500: fnd_api.g_valid_level_full,
3501: l_return_status,
3502: l_msg_count,
3495: site_rec.vendor_site_code := null; --Bug 16441477 avoid duplicate supplier site checking
3496:
3497: ap_vendor_pub_pkg.update_vendor_site(1.0,
3498: fnd_api.g_false,
3499: fnd_api.g_false,
3500: fnd_api.g_valid_level_full,
3501: l_return_status,
3502: l_msg_count,
3503: l_msg_data,
3496:
3497: ap_vendor_pub_pkg.update_vendor_site(1.0,
3498: fnd_api.g_false,
3499: fnd_api.g_false,
3500: fnd_api.g_valid_level_full,
3501: l_return_status,
3502: l_msg_count,
3503: l_msg_data,
3504: site_rec,
3503: l_msg_data,
3504: site_rec,
3505: l_vendor_site_id);
3506:
3507: IF l_return_status = fnd_api.g_ret_sts_success THEN
3508:
3509: UPDATE ap_supplier_sites_int
3510: SET status = 'PROCESSED'
3511: WHERE vendor_site_interface_id =
3599: -- get message info.
3600: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3601:
3602: EXCEPTION
3603: WHEN fnd_api.g_exc_error THEN
3604: ROLLBACK TO import_vendor_sites_pub;
3605: x_return_status := fnd_api.g_ret_sts_error;
3606: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3607: p_data => x_msg_data);
3601:
3602: EXCEPTION
3603: WHEN fnd_api.g_exc_error THEN
3604: ROLLBACK TO import_vendor_sites_pub;
3605: x_return_status := fnd_api.g_ret_sts_error;
3606: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3607: p_data => x_msg_data);
3608: fnd_file.put_line(fnd_file.log,
3609: ' Inside import_vendor_sites EXCEPTION ' ||
3607: p_data => x_msg_data);
3608: fnd_file.put_line(fnd_file.log,
3609: ' Inside import_vendor_sites EXCEPTION ' ||
3610: ' Message: ' || SQLCODE || ' ' || SQLERRM);
3611: WHEN fnd_api.g_exc_unexpected_error THEN
3612: ROLLBACK TO import_vendor_sites_pub;
3613: x_return_status := fnd_api.g_ret_sts_unexp_error;
3614: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3615: p_data => x_msg_data);
3609: ' Inside import_vendor_sites EXCEPTION ' ||
3610: ' Message: ' || SQLCODE || ' ' || SQLERRM);
3611: WHEN fnd_api.g_exc_unexpected_error THEN
3612: ROLLBACK TO import_vendor_sites_pub;
3613: x_return_status := fnd_api.g_ret_sts_unexp_error;
3614: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3615: p_data => x_msg_data);
3616: fnd_file.put_line(fnd_file.log,
3617: ' Inside import_vendor_sites unexcepted EXCEPTION ' ||
3617: ' Inside import_vendor_sites unexcepted EXCEPTION ' ||
3618: ' Message: ' || SQLCODE || ' ' || SQLERRM);
3619: WHEN OTHERS THEN
3620: ROLLBACK TO import_vendor_sites_pub;
3621: x_return_status := fnd_api.g_ret_sts_unexp_error;
3622:
3623: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3624: p_data => x_msg_data);
3625: fnd_file.put_line(fnd_file.log,
3657: AND rownum = 1;
3658:
3659: l_number NUMBER;
3660: BEGIN
3661: x_return_status := fnd_api.g_ret_sts_success;
3662:
3663: fnd_file.put_line(fnd_file.log,
3664: ' Message: Inside PROCEDURE CREATE_VENDOR_CONTACT' ||
3665: ' Parameters vendor_id: ' ||
3672: INTO l_number;
3673: IF l_cur%FOUND THEN
3674: -- already has such assignment
3675: CLOSE l_cur;
3676: l_return_status := fnd_api.g_ret_sts_success;
3677: ELSE
3678: ap_vendor_pub_pkg.create_vendor_contact(p_api_version => 1.0,
3679: p_init_msg_list => fnd_api.g_true,
3680: p_commit => fnd_api.g_false,
3675: CLOSE l_cur;
3676: l_return_status := fnd_api.g_ret_sts_success;
3677: ELSE
3678: ap_vendor_pub_pkg.create_vendor_contact(p_api_version => 1.0,
3679: p_init_msg_list => fnd_api.g_true,
3680: p_commit => fnd_api.g_false,
3681: p_validation_level => fnd_api.g_valid_level_full,
3682: x_return_status => l_return_status,
3683: x_msg_count => l_msg_count,
3676: l_return_status := fnd_api.g_ret_sts_success;
3677: ELSE
3678: ap_vendor_pub_pkg.create_vendor_contact(p_api_version => 1.0,
3679: p_init_msg_list => fnd_api.g_true,
3680: p_commit => fnd_api.g_false,
3681: p_validation_level => fnd_api.g_valid_level_full,
3682: x_return_status => l_return_status,
3683: x_msg_count => l_msg_count,
3684: x_msg_data => l_msg_data,
3677: ELSE
3678: ap_vendor_pub_pkg.create_vendor_contact(p_api_version => 1.0,
3679: p_init_msg_list => fnd_api.g_true,
3680: p_commit => fnd_api.g_false,
3681: p_validation_level => fnd_api.g_valid_level_full,
3682: x_return_status => l_return_status,
3683: x_msg_count => l_msg_count,
3684: x_msg_data => l_msg_data,
3685: p_vendor_contact_rec => p_vendor_contact_rec,
3691: x_party_site_id => l_party_site_id);
3692:
3693: END IF;
3694:
3695: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3696:
3697: IF (g_level_procedure >= g_current_runtime_level) THEN
3698: fnd_log.string(g_level_procedure,
3699: g_module_name || l_api_name,
3718: x_msg_data := l_msg_data;
3719:
3720: EXCEPTION
3721: WHEN OTHERS THEN
3722: x_return_status := fnd_api.g_ret_sts_unexp_error;
3723:
3724: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3725: p_data => x_msg_data);
3726: fnd_file.put_line(fnd_file.log,
3770: vendor_contact_rec ap_vendor_pub_pkg.r_vendor_contact_rec_type;
3771:
3772: BEGIN
3773: -- Initialize API return status to success
3774: x_return_status := fnd_api.g_ret_sts_success;
3775:
3776: DELETE ap_supplier_int_rejections
3777: WHERE parent_table = 'AP_SUP_SITE_CONTACT_INT';
3778:
3954: ', No. of Messages: ' || l_msg_count ||
3955: ', Message : ' || l_msg_data);
3956: END IF;
3957: END IF;
3958: x_return_status := fnd_api.g_ret_sts_error;
3959: fnd_file.put_line(fnd_file.log,
3960: ' Vendor ID is null for: ' ||
3961: ' vendor_contact_interface_id: ' ||
3962: vendor_contact_rec.vendor_contact_interface_id ||
4018: ', No. of Messages: ' || l_msg_count ||
4019: ', Message : ' || l_msg_data);
4020: END IF;
4021: END IF;
4022: x_return_status := fnd_api.g_ret_sts_error;
4023: fnd_file.put_line(fnd_file.log,
4024: ' Invalide party site orig sys and ref for: ' ||
4025: ' vendor_contact_interface_id: ' ||
4026: vendor_contact_rec.vendor_contact_interface_id);
4121: ', No. of Messages: ' || l_msg_count ||
4122: ', Message : ' || l_msg_data);
4123: END IF;
4124: END IF;
4125: x_return_status := fnd_api.g_ret_sts_error;
4126: fnd_file.put_line(fnd_file.log,
4127: ' Invalide person party id for: ' ||
4128: ' vendor_contact_interface_id: ' ||
4129: vendor_contact_rec.vendor_contact_interface_id);
4177: ', No. of Messages: ' || l_msg_count ||
4178: ', Message : ' || l_msg_data);
4179: END IF;
4180: END IF;
4181: x_return_status := fnd_api.g_ret_sts_error;
4182: fnd_file.put_line(fnd_file.log,
4183: ' Invalide party site name for: ' ||
4184: ' vendor_contact_interface_id: ' ||
4185: vendor_contact_rec.vendor_contact_interface_id);
4192: x_msg_data => l_msg_data,
4193: p_vendor_contact_rec => vendor_contact_rec);
4194: END IF;
4195:
4196: IF l_return_status = fnd_api.g_ret_sts_success THEN
4197: UPDATE ap_sup_site_contact_int
4198: SET status = 'PROCESSED'
4199: WHERE vendor_contact_interface_id =
4200: vendor_contact_rec.vendor_contact_interface_id
4284: -- get message info.
4285: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4286:
4287: EXCEPTION
4288: WHEN fnd_api.g_exc_error THEN
4289: ROLLBACK TO import_vendor_contact_pub;
4290: x_return_status := fnd_api.g_ret_sts_error;
4291: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4292: p_data => x_msg_data);
4286:
4287: EXCEPTION
4288: WHEN fnd_api.g_exc_error THEN
4289: ROLLBACK TO import_vendor_contact_pub;
4290: x_return_status := fnd_api.g_ret_sts_error;
4291: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4292: p_data => x_msg_data);
4293: fnd_file.put_line(fnd_file.log,
4294: ' Inside import_vendor_contacts EXCEPTION ' ||
4292: p_data => x_msg_data);
4293: fnd_file.put_line(fnd_file.log,
4294: ' Inside import_vendor_contacts EXCEPTION ' ||
4295: ' Message: ' || SQLCODE || ' ' || SQLERRM);
4296: WHEN fnd_api.g_exc_unexpected_error THEN
4297: ROLLBACK TO import_vendor_contact_pub;
4298: x_return_status := fnd_api.g_ret_sts_unexp_error;
4299: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4300: p_data => x_msg_data);
4294: ' Inside import_vendor_contacts EXCEPTION ' ||
4295: ' Message: ' || SQLCODE || ' ' || SQLERRM);
4296: WHEN fnd_api.g_exc_unexpected_error THEN
4297: ROLLBACK TO import_vendor_contact_pub;
4298: x_return_status := fnd_api.g_ret_sts_unexp_error;
4299: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4300: p_data => x_msg_data);
4301: fnd_file.put_line(fnd_file.log,
4302: ' Inside import_vendor_contacts unexpected EXCEPTION ' ||
4302: ' Inside import_vendor_contacts unexpected EXCEPTION ' ||
4303: ' Message: ' || SQLCODE || ' ' || SQLERRM);
4304: WHEN OTHERS THEN
4305: ROLLBACK TO import_vendor_contact_pub;
4306: x_return_status := fnd_api.g_ret_sts_unexp_error;
4307:
4308: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4309: p_data => x_msg_data);
4310: fnd_file.put_line(fnd_file.log,
4348: l_concatenated_segments VARCHAR2(4000) := NULL;
4349: l_category_id VARCHAR2(10);
4350: BEGIN
4351: -- Initialize API return status to success
4352: x_return_status := fnd_api.g_ret_sts_success;
4353: x_prod_valid := 'Y';
4354:
4355: fnd_file.put_line(fnd_file.log,
4356: ' Message: Inside PROCEDURE VALIDATE_VENDOR_PRODS_SERVICES' ||
4376: -- inserted is equal to the product segment count
4377: IF (p_vendor_prodsrv_rec.segment_definition <>
4378: l_product_segment_definition) THEN
4379: x_prod_valid := 'N';
4380: x_return_status := fnd_api.g_ret_sts_error;
4381: x_msg_data := 'POS_INVALID_SEGMENT_DEF';
4382: IF (insert_rejections(p_batch_id,
4383: l_request_id,
4384: 'POS_PRODUCT_SERVICE_INT',
4493: length(REPLACE(l_segment_concat, l_delimiter, '')));
4494:
4495: IF (l_segment_count <> l_product_segment_count) THEN
4496: x_prod_valid := 'N';
4497: x_return_status := fnd_api.g_ret_sts_error;
4498: x_msg_data := 'POS_INVALID_SEGMENT_COUNT';
4499: IF (insert_rejections(p_batch_id,
4500: l_request_id,
4501: 'POS_PRODUCT_SERVICE_INT',
4546:
4547: EXCEPTION
4548: WHEN no_data_found THEN
4549: x_prod_valid := 'N';
4550: x_return_status := fnd_api.g_ret_sts_error;
4551: x_msg_data := 'POS_INVALID_CATEGORY_ID';
4552: IF (insert_rejections(p_batch_id,
4553: l_request_id,
4554: 'POS_PRODUCT_SERVICE_INT',
4578: END;
4579:
4580: IF (l_category_id = 0) THEN
4581: x_prod_valid := 'N';
4582: x_return_status := fnd_api.g_ret_sts_error;
4583: x_msg_data := 'POS_INVALID_CATEGORY_ID';
4584: IF (insert_rejections(p_batch_id,
4585: l_request_id,
4586: 'POS_PRODUCT_SERVICE_INT',
4613:
4614: EXCEPTION
4615: WHEN OTHERS THEN
4616: x_prod_valid := 'N';
4617: x_return_status := fnd_api.g_ret_sts_unexp_error;
4618:
4619: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4620: p_data => x_msg_data);
4621: fnd_file.put_line(fnd_file.log,
4642: l_req_id NUMBER;
4643: l_status VARCHAR(2000);
4644: l_error_message VARCHAR(4000);
4645: BEGIN
4646: x_return_status := fnd_api.g_ret_sts_success;
4647:
4648: fnd_file.put_line(fnd_file.log,
4649: ' Message: Inside PROCEDURE CREATE_VENDOR_PRODS_SERVICES' ||
4650: ' Parameters: ' || ' batch_id: ' || p_batch_id ||
4687: x_return_status => l_return_status,
4688: x_msg_count => l_msg_count,
4689: x_msg_data => l_msg_data);
4690:
4691: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
4692: x_return_status := l_return_status;
4693: x_msg_count := l_msg_count;
4694: x_msg_data := l_msg_data;
4695: RETURN;
4737: x_msg_data := l_msg_data;
4738: RETURN;
4739: END IF;
4740: EXCEPTION
4741: WHEN fnd_api.g_exc_error THEN
4742: x_return_status := fnd_api.g_ret_sts_error;
4743: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4744: p_data => x_msg_data);
4745: fnd_file.put_line(fnd_file.log,
4738: RETURN;
4739: END IF;
4740: EXCEPTION
4741: WHEN fnd_api.g_exc_error THEN
4742: x_return_status := fnd_api.g_ret_sts_error;
4743: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4744: p_data => x_msg_data);
4745: fnd_file.put_line(fnd_file.log,
4746: ' Inside create_vendor_prods_services EXCEPTION ' ||
4744: p_data => x_msg_data);
4745: fnd_file.put_line(fnd_file.log,
4746: ' Inside create_vendor_prods_services EXCEPTION ' ||
4747: ' Message: ' || SQLCODE || ' ' || SQLERRM);
4748: WHEN fnd_api.g_exc_unexpected_error THEN
4749: x_return_status := fnd_api.g_ret_sts_unexp_error;
4750: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4751: p_data => x_msg_data);
4752: fnd_file.put_line(fnd_file.log,
4745: fnd_file.put_line(fnd_file.log,
4746: ' Inside create_vendor_prods_services EXCEPTION ' ||
4747: ' Message: ' || SQLCODE || ' ' || SQLERRM);
4748: WHEN fnd_api.g_exc_unexpected_error THEN
4749: x_return_status := fnd_api.g_ret_sts_unexp_error;
4750: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4751: p_data => x_msg_data);
4752: fnd_file.put_line(fnd_file.log,
4753: ' Inside create_vendor_prods_services unexpected EXCEPTION ' ||
4752: fnd_file.put_line(fnd_file.log,
4753: ' Inside create_vendor_prods_services unexpected EXCEPTION ' ||
4754: ' Message: ' || SQLCODE || ' ' || SQLERRM);
4755: WHEN OTHERS THEN
4756: x_return_status := fnd_api.g_ret_sts_unexp_error;
4757:
4758: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4759: p_data => x_msg_data);
4760: fnd_file.put_line(fnd_file.log,
4814: l_req_id_tab po_tbl_number := po_tbl_number();
4815:
4816: BEGIN
4817: -- Initialize API return status to success
4818: x_return_status := fnd_api.g_ret_sts_success;
4819:
4820: fnd_file.put_line(fnd_file.log,
4821: ' Message: Inside PROCEDURE IMPORT_VENDOR_PRODS_SERVICES' ||
4822: ' Parameters: ' || ' p_batch_id: ' || p_batch_id ||
4962: ' Product and Services Validation Msg: ' ||
4963: l_msg_data);
4964: END IF;
4965: END IF;
4966: x_return_status := fnd_api.g_ret_sts_error;
4967: fnd_file.put_line(fnd_file.log,
4968: ' Vendor ID is null for: ' ||
4969: ' PS_INTERFACE_ID: ' ||
4970: vendor_int_prod_srv_rec.ps_interface_id);
5113: x_return_status => l_return_status,
5114: x_msg_count => l_msg_count,
5115: x_msg_data => l_msg_data);
5116:
5117: IF l_return_status = fnd_api.g_ret_sts_success THEN
5118: UPDATE pos_product_service_int
5119: SET status = 'PROCESSED'
5120: WHERE ps_interface_id = vendor_int_prod_srv_rec.ps_interface_id
5121: AND sdh_batch_id = p_batch_id;
5247: x_msg_data => l_msg_data);
5248: END IF;
5249: END IF;
5250: END IF;
5251: IF l_ret_status = fnd_api.g_ret_sts_success THEN
5252: UPDATE pos_product_service_int
5253: SET status = 'PROCESSED'
5254: WHERE ps_interface_id = vendor_int_prod_srv_rec.ps_interface_id
5255: AND sdh_batch_id = p_batch_id;
5296: END LOOP;
5297:
5298: CLOSE vendor_int_prod_srv_cur;
5299: EXCEPTION
5300: WHEN fnd_api.g_exc_error THEN
5301: x_return_status := fnd_api.g_ret_sts_error;
5302: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5303: p_data => x_msg_data);
5304: fnd_file.put_line(fnd_file.log,
5297:
5298: CLOSE vendor_int_prod_srv_cur;
5299: EXCEPTION
5300: WHEN fnd_api.g_exc_error THEN
5301: x_return_status := fnd_api.g_ret_sts_error;
5302: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5303: p_data => x_msg_data);
5304: fnd_file.put_line(fnd_file.log,
5305: ' Inside import_vendor_prods_services EXCEPTION ' ||
5303: p_data => x_msg_data);
5304: fnd_file.put_line(fnd_file.log,
5305: ' Inside import_vendor_prods_services EXCEPTION ' ||
5306: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5307: WHEN fnd_api.g_exc_unexpected_error THEN
5308: x_return_status := fnd_api.g_ret_sts_unexp_error;
5309: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5310: p_data => x_msg_data);
5311: fnd_file.put_line(fnd_file.log,
5304: fnd_file.put_line(fnd_file.log,
5305: ' Inside import_vendor_prods_services EXCEPTION ' ||
5306: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5307: WHEN fnd_api.g_exc_unexpected_error THEN
5308: x_return_status := fnd_api.g_ret_sts_unexp_error;
5309: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5310: p_data => x_msg_data);
5311: fnd_file.put_line(fnd_file.log,
5312: ' Inside import_vendor_prods_services unexpected EXCEPTION ' ||
5311: fnd_file.put_line(fnd_file.log,
5312: ' Inside import_vendor_prods_services unexpected EXCEPTION ' ||
5313: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5314: WHEN OTHERS THEN
5315: x_return_status := fnd_api.g_ret_sts_unexp_error;
5316:
5317: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5318: p_data => x_msg_data);
5319: fnd_file.put_line(fnd_file.log,
5338: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_VENDOR_BUSS_CLASS';
5339: l_request_id NUMBER := fnd_global.conc_request_id;
5340: BEGIN
5341: -- Initialize API return status to success
5342: x_return_status := fnd_api.g_ret_sts_success;
5343:
5344: x_buss_valid := 'Y';
5345:
5346: fnd_file.put_line(fnd_file.log,
5365:
5366: EXCEPTION
5367: WHEN OTHERS THEN
5368: x_buss_valid := 'N';
5369: x_return_status := fnd_api.g_ret_sts_error;
5370: x_msg_data := 'POS_INVALID_LOOKUP_CODE';
5371: IF (insert_rejections(p_batch_id,
5372: l_request_id,
5373: 'POS_BUSINESS_CLASS_INT',
5410:
5411: EXCEPTION
5412: WHEN OTHERS THEN
5413: x_buss_valid := 'N';
5414: x_return_status := fnd_api.g_ret_sts_error;
5415: x_msg_data := 'POS_INVALID_MINOR_LOOKUP_CODE';
5416: IF (insert_rejections(p_batch_id,
5417: l_request_id,
5418: 'POS_BUSINESS_CLASS_INT',
5442: END IF;
5443: EXCEPTION
5444: WHEN OTHERS THEN
5445: x_buss_valid := 'N';
5446: x_return_status := fnd_api.g_ret_sts_unexp_error;
5447:
5448: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5449: p_data => x_msg_data);
5450: fnd_file.put_line(fnd_file.log,
5470: l_status VARCHAR2(100);
5471: l_exception_msg VARCHAR2(100);
5472: BEGIN
5473: -- Initialize API return status to success
5474: x_return_status := fnd_api.g_ret_sts_success;
5475:
5476: -- Call Validate_Vendor_Buss_Class to validate the Business Classification data
5477: BEGIN
5478:
5515: x_msg_data := l_msg_data;
5516: RETURN;
5517: END IF;
5518: EXCEPTION
5519: WHEN fnd_api.g_exc_error THEN
5520: x_return_status := fnd_api.g_ret_sts_error;
5521: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5522: p_data => x_msg_data);
5523: fnd_file.put_line(fnd_file.log,
5516: RETURN;
5517: END IF;
5518: EXCEPTION
5519: WHEN fnd_api.g_exc_error THEN
5520: x_return_status := fnd_api.g_ret_sts_error;
5521: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5522: p_data => x_msg_data);
5523: fnd_file.put_line(fnd_file.log,
5524: ' Inside create_vendor_buss_class EXCEPTION ' ||
5522: p_data => x_msg_data);
5523: fnd_file.put_line(fnd_file.log,
5524: ' Inside create_vendor_buss_class EXCEPTION ' ||
5525: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5526: WHEN fnd_api.g_exc_unexpected_error THEN
5527: x_return_status := fnd_api.g_ret_sts_unexp_error;
5528: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5529: p_data => x_msg_data);
5530: fnd_file.put_line(fnd_file.log,
5523: fnd_file.put_line(fnd_file.log,
5524: ' Inside create_vendor_buss_class EXCEPTION ' ||
5525: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5526: WHEN fnd_api.g_exc_unexpected_error THEN
5527: x_return_status := fnd_api.g_ret_sts_unexp_error;
5528: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5529: p_data => x_msg_data);
5530: fnd_file.put_line(fnd_file.log,
5531: ' Inside create_vendor_buss_class unexpected EXCEPTION ' ||
5530: fnd_file.put_line(fnd_file.log,
5531: ' Inside create_vendor_buss_class unexpected EXCEPTION ' ||
5532: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5533: WHEN OTHERS THEN
5534: x_return_status := fnd_api.g_ret_sts_unexp_error;
5535:
5536: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5537: p_data => x_msg_data);
5538: fnd_file.put_line(fnd_file.log,
5582: vendor_int_buss_class_rec vendor_int_buss_class_cur%ROWTYPE;
5583: vendor_buss_class_rec pos_business_class_int%ROWTYPE;
5584: BEGIN
5585: -- Initialize API return status to success
5586: x_return_status := fnd_api.g_ret_sts_success;
5587:
5588: fnd_file.put_line(fnd_file.log,
5589: ' Message: Inside PROCEDURE IMPORT_VENDOR_BUSS_CLASS' ||
5590: ' Parameters: ' || ' p_batch_id: ' || p_batch_id ||
5721: ' Buss and classification Validation Msg: ' ||
5722: l_msg_data);
5723: END IF;
5724: END IF;
5725: x_return_status := fnd_api.g_ret_sts_error;
5726: fnd_file.put_line(fnd_file.log,
5727: ' Vendor ID is null for: ' ||
5728: ' BUSINESS_CLASS_INTERFACE_ID: ' ||
5729: vendor_int_buss_class_rec.business_class_interface_id);
5796: x_return_status => l_return_status,
5797: x_msg_count => l_msg_count,
5798: x_msg_data => l_msg_data);
5799:
5800: IF l_return_status = fnd_api.g_ret_sts_success THEN
5801: UPDATE pos_business_class_int
5802: SET status = 'PROCESSED'
5803: WHERE business_class_interface_id =
5804: vendor_int_buss_class_rec.business_class_interface_id
5869: pos_supp_classification_pkg.synchronize_class_tca_to_po(l_party_id,
5870: vendor_buss_class_rec.vendor_id);
5871: END;
5872:
5873: IF l_return_status = fnd_api.g_ret_sts_success THEN
5874: UPDATE pos_business_class_int
5875: SET status = 'PROCESSED'
5876: WHERE business_class_interface_id =
5877: vendor_int_buss_class_rec.business_class_interface_id
5931: -- get message info.
5932: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5933:
5934: EXCEPTION
5935: WHEN fnd_api.g_exc_error THEN
5936: x_return_status := fnd_api.g_ret_sts_error;
5937: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5938: p_data => x_msg_data);
5939: fnd_file.put_line(fnd_file.log,
5932: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5933:
5934: EXCEPTION
5935: WHEN fnd_api.g_exc_error THEN
5936: x_return_status := fnd_api.g_ret_sts_error;
5937: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5938: p_data => x_msg_data);
5939: fnd_file.put_line(fnd_file.log,
5940: ' Inside import_vendor_buss_class EXCEPTION ' ||
5938: p_data => x_msg_data);
5939: fnd_file.put_line(fnd_file.log,
5940: ' Inside import_vendor_buss_class EXCEPTION ' ||
5941: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5942: WHEN fnd_api.g_exc_unexpected_error THEN
5943: x_return_status := fnd_api.g_ret_sts_unexp_error;
5944: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5945: p_data => x_msg_data);
5946: fnd_file.put_line(fnd_file.log,
5939: fnd_file.put_line(fnd_file.log,
5940: ' Inside import_vendor_buss_class EXCEPTION ' ||
5941: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5942: WHEN fnd_api.g_exc_unexpected_error THEN
5943: x_return_status := fnd_api.g_ret_sts_unexp_error;
5944: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5945: p_data => x_msg_data);
5946: fnd_file.put_line(fnd_file.log,
5947: ' Inside import_vendor_buss_class unexpected EXCEPTION ' ||
5946: fnd_file.put_line(fnd_file.log,
5947: ' Inside import_vendor_buss_class unexpected EXCEPTION ' ||
5948: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5949: WHEN OTHERS THEN
5950: x_return_status := fnd_api.g_ret_sts_unexp_error;
5951:
5952: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5953: p_data => x_msg_data);
5954: fnd_file.put_line(fnd_file.log,
5975: l_api_name CONSTANT VARCHAR2(50) := 'VALIDATE_VENDOR_PRODS_SERVICES';
5976: BEGIN
5977: fnd_file.put_line(fnd_file.log, ' Inside validate_tax_profile');
5978: -- Initialize API return status to success
5979: x_return_status := fnd_api.g_ret_sts_success;
5980:
5981: x_tax_prof_valid := 'Y';
5982:
5983: -- Check if the Tax Profile Id exists
6011:
6012: EXCEPTION
6013: WHEN OTHERS THEN
6014: x_tax_prof_valid := 'N';
6015: x_return_status := fnd_api.g_ret_sts_error;
6016: x_msg_data := 'POS_INVALID_ROUNDING_LEVEL';
6017: IF (insert_rejections(p_batch_id,
6018: l_request_id,
6019: 'POS_PARTY_TAX_PROFILE_INT',
6055:
6056: EXCEPTION
6057: WHEN OTHERS THEN
6058: x_tax_prof_valid := 'N';
6059: x_return_status := fnd_api.g_ret_sts_error;
6060: x_msg_data := 'POS_INVALID_ROUNDING_RULE';
6061: IF (insert_rejections(p_batch_id,
6062: l_request_id,
6063: 'POS_PARTY_TAX_PROFILE_INT',
6095: -- Update the Interface table with the country code obtained in the prev SQL since the country code would be saved.
6096: EXCEPTION
6097: WHEN OTHERS THEN
6098: x_tax_prof_valid := 'N';
6099: x_return_status := fnd_api.g_ret_sts_error;
6100: x_msg_data := 'POS_INVALID_COUNTRY_NAME';
6101: IF (insert_rejections(p_batch_id,
6102: l_request_id,
6103: ' POS_PARTY_TAX_PROFILE_INT',
6139:
6140: EXCEPTION
6141: WHEN OTHERS THEN
6142: x_tax_prof_valid := 'N';
6143: x_return_status := fnd_api.g_ret_sts_error;
6144: x_msg_data := 'POS_INVALID_REGI_TYPE_CODE';
6145: IF (insert_rejections(p_batch_id,
6146: l_request_id,
6147: 'POS_PARTY_TAX_PROFILE_INT',
6169:
6170: EXCEPTION
6171: WHEN OTHERS THEN
6172: x_tax_prof_valid := 'N';
6173: x_return_status := fnd_api.g_ret_sts_error;
6174: fnd_msg_pub.count_and_get(p_count => x_msg_count,
6175: p_data => x_msg_data);
6176: fnd_file.put_line(fnd_file.log,
6177: ' Inside validate_tax_profile EXCEPTION ' ||
6194: l_msg_count NUMBER;
6195: l_msg_data VARCHAR2(4000);
6196:
6197: BEGIN
6198: x_return_status := fnd_api.g_ret_sts_success;
6199:
6200: -- Call Validate_Tax_profile to validate the Tax Profiledata
6201: validate_tax_profile(p_batch_id => p_batch_id,
6202: p_tax_profile_rec => p_tax_profile_rec,
6340: END IF;
6341:
6342: EXCEPTION
6343: WHEN OTHERS THEN
6344: x_return_status := fnd_api.g_ret_sts_unexp_error;
6345:
6346: fnd_msg_pub.count_and_get(p_count => x_msg_count,
6347: p_data => x_msg_data);
6348: fnd_file.put_line(fnd_file.log,
6376: l_api_name CONSTANT VARCHAR2(50) := 'VALIDATE_VENDOR_PRODS_SERVICES';
6377: BEGIN
6378: fnd_file.put_line(fnd_file.log, ' Inside validate_tax_registration');
6379: -- Initialize API return status to success
6380: x_return_status := fnd_api.g_ret_sts_success;
6381:
6382: x_tax_reg_valid := 'Y';
6383:
6384: -- Validate the Tax Registration Type using the following query
6398:
6399: EXCEPTION
6400: WHEN OTHERS THEN
6401: x_tax_reg_valid := 'N';
6402: x_return_status := fnd_api.g_ret_sts_error;
6403: x_msg_data := 'POS_INVALID_REGI_TYPE_CODE';
6404: IF (insert_rejections(p_batch_id,
6405: l_request_id,
6406: 'POS_PARTY_TAX_REG_INT',
6443:
6444: EXCEPTION
6445: WHEN OTHERS THEN
6446: x_tax_reg_valid := 'N';
6447: x_return_status := fnd_api.g_ret_sts_error;
6448: x_msg_data := 'POS_INVALID_REG_STATUS_CODE';
6449: IF (insert_rejections(p_batch_id,
6450: l_request_id,
6451: 'POS_PARTY_TAX_REG_INT',
6489:
6490: EXCEPTION
6491: WHEN OTHERS THEN
6492: x_tax_reg_valid := 'N';
6493: x_return_status := fnd_api.g_ret_sts_error;
6494: x_msg_data := 'POS_INVALID_REG_ADDRESS';
6495: IF (insert_rejections(p_batch_id,
6496: l_request_id,
6497: 'POS_PARTY_TAX_REG_INT',
6534:
6535: EXCEPTION
6536: WHEN OTHERS THEN
6537: x_tax_reg_valid := 'N';
6538: x_return_status := fnd_api.g_ret_sts_error;
6539: x_msg_data := 'POS_INVALID_REG_REASON_CODE';
6540: IF (insert_rejections(p_batch_id,
6541: l_request_id,
6542: 'POS_PARTY_TAX_REG_INT',
6579:
6580: EXCEPTION
6581: WHEN OTHERS THEN
6582: x_tax_reg_valid := 'N';
6583: x_return_status := fnd_api.g_ret_sts_error;
6584: x_msg_data := 'POS_INVALID_REG_SOURCE_CODE';
6585: IF (insert_rejections(p_batch_id,
6586: l_request_id,
6587: 'POS_PARTY_TAX_REG_INT',
6624:
6625: EXCEPTION
6626: WHEN OTHERS THEN
6627: x_tax_reg_valid := 'N';
6628: x_return_status := fnd_api.g_ret_sts_error;
6629: x_msg_data := 'POS_INVALID_ROUND_RULE_CODE';
6630: IF (insert_rejections(p_batch_id,
6631: l_request_id,
6632: 'POS_PARTY_TAX_REG_INT',
6669:
6670: EXCEPTION
6671: WHEN OTHERS THEN
6672: x_tax_reg_valid := 'N';
6673: x_return_status := fnd_api.g_ret_sts_error;
6674: x_msg_data := 'POS_INVALID_TAX_AUTHORITY';
6675: IF (insert_rejections(p_batch_id,
6676: l_request_id,
6677: 'POS_PARTY_TAX_REG_INT',
6699: END IF;
6700: EXCEPTION
6701: WHEN OTHERS THEN
6702: x_tax_reg_valid := 'N';
6703: x_return_status := fnd_api.g_ret_sts_error;
6704: fnd_msg_pub.count_and_get(p_count => x_msg_count,
6705: p_data => x_msg_data);
6706: fnd_file.put_line(fnd_file.log,
6707: ' Inside validate_tax_registration EXCEPTION ' ||
6725: l_tax_authority_party_id NUMBER;
6726: l_request_id NUMBER := fnd_global.conc_request_id;
6727: BEGIN
6728: fnd_file.put_line(fnd_file.log, ' Inside create_tax_registration');
6729: x_return_status := fnd_api.g_ret_sts_success;
6730:
6731: validate_tax_registration(p_batch_id => p_batch_id,
6732: p_tax_reg_rec => p_tax_registration_rec,
6733: x_return_status => l_return_status,
6799: x_msg_count := l_msg_count;
6800: x_msg_data := l_msg_data;
6801: END IF;
6802:
6803: IF x_return_status = fnd_api.g_ret_sts_error THEN
6804: -- Read the Error buffer returned from the API
6805: -- Add the error buffer message to supplier rejections
6806: -- table
6807: IF (insert_rejections(p_batch_id,
6827: p_tax_registration_rec.tax_reg_interface_id);
6828: END IF;
6829: EXCEPTION
6830: WHEN OTHERS THEN
6831: x_return_status := fnd_api.g_ret_sts_error;
6832: fnd_msg_pub.count_and_get(p_count => x_msg_count,
6833: p_data => x_msg_data);
6834: fnd_file.put_line(fnd_file.log,
6835: ' Inside create_tax_registration EXCEPTION ' ||
6855: l_request_id NUMBER := fnd_global.conc_request_id;
6856: BEGIN
6857: fnd_file.put_line(fnd_file.log, ' Inside update_tax_registration');
6858: -- Initialize API return status to success
6859: x_return_status := fnd_api.g_ret_sts_success;
6860:
6861: validate_tax_registration(p_batch_id => p_batch_id,
6862: p_tax_reg_rec => p_tax_registration_rec,
6863: x_return_status => l_return_status,
6930: x_msg_count := l_msg_count;
6931: x_msg_data := l_msg_data;
6932: END IF;
6933:
6934: IF x_return_status = fnd_api.g_ret_sts_error THEN
6935: IF (insert_rejections(p_batch_id,
6936: l_request_id,
6937: 'POS_PARTY_TAX_REG_INT',
6938: p_tax_registration_rec.registration_type_code,
6956: END IF;
6957:
6958: EXCEPTION
6959: WHEN OTHERS THEN
6960: x_return_status := fnd_api.g_ret_sts_error;
6961: fnd_msg_pub.count_and_get(p_count => x_msg_count,
6962: p_data => x_msg_data);
6963: fnd_file.put_line(fnd_file.log,
6964: ' Inside update_tax_registration EXCEPTION ' ||
6990: BEGIN
6991: fnd_file.put_line(fnd_file.log,
6992: ' Inside validate_fiscal_classification');
6993: -- Initialize API return status to success
6994: x_return_status := fnd_api.g_ret_sts_success;
6995:
6996: x_valid := 'Y';
6997:
6998: -- Validate the Fiscal Classification Type using the following query
7010:
7011: EXCEPTION
7012: WHEN OTHERS THEN
7013: x_valid := 'N';
7014: x_return_status := fnd_api.g_ret_sts_error;
7015: x_msg_data := 'POS_INVALID_FISCAL_CLASS_TYPE';
7016: IF (insert_rejections(p_batch_id,
7017: l_request_id,
7018: 'POS_FISCAL_CLASS_INT',
7054:
7055: EXCEPTION
7056: WHEN OTHERS THEN
7057: x_valid := 'N';
7058: x_return_status := fnd_api.g_ret_sts_error;
7059: x_msg_data := 'POS_INVALID_FISCAL_CLASS_NAME';
7060: IF (insert_rejections(p_batch_id,
7061: l_request_id,
7062: 'POS_FISCAL_CLASS_INT',
7083: RETURN;
7084: END;
7085: EXCEPTION
7086: WHEN OTHERS THEN
7087: x_return_status := fnd_api.g_ret_sts_error;
7088: fnd_msg_pub.count_and_get(p_count => x_msg_count,
7089: p_data => x_msg_data);
7090: fnd_file.put_line(fnd_file.log,
7091: ' Inside validate_fiscal_classification EXCEPTION ' ||
7109: l_code_assignment_id NUMBER;
7110: BEGIN
7111: fnd_file.put_line(fnd_file.log, ' Inside create_fiscal_classification');
7112:
7113: x_return_status := fnd_api.g_ret_sts_success;
7114:
7115: validate_fiscal_classification(p_batch_id => p_batch_id,
7116: p_fiscal_class_rec => p_fiscal_class_rec,
7117: x_return_status => l_return_status,
7161: x_msg_data := l_msg_data;
7162: x_msg_count := l_msg_count;
7163: END IF;
7164:
7165: IF x_return_status = fnd_api.g_ret_sts_error THEN
7166: -- Read the Error buffer returned from the API
7167: -- Add the error buffer message to supplier rejections
7168: -- table
7169: /*IF (insert_rejections(p_batch_id,
7189: p_fiscal_class_rec.fiscal_class_interface_id);
7190: END IF;
7191: EXCEPTION
7192: WHEN OTHERS THEN
7193: x_return_status := fnd_api.g_ret_sts_error;
7194: fnd_msg_pub.count_and_get(p_count => x_msg_count,
7195: p_data => x_msg_data);
7196: fnd_file.put_line(fnd_file.log,
7197: ' Inside create_fiscal_classification EXCEPTION ' ||
7216: l_rowid VARCHAR2(100);
7217: BEGIN
7218: fnd_file.put_line(fnd_file.log, ' Inside update_fiscal_classification');
7219: -- Initialize API return status to success
7220: x_return_status := fnd_api.g_ret_sts_success;
7221:
7222: validate_fiscal_classification(p_batch_id => p_batch_id,
7223: p_fiscal_class_rec => p_fiscal_class_rec,
7224: x_return_status => l_return_status,
7240: AND class_category = l_classification_type;
7241:
7242: EXCEPTION
7243: WHEN no_data_found THEN
7244: x_return_status := fnd_api.g_ret_sts_error;
7245: x_msg_data := 'POS_INVALID_FISCAL_CLASS';
7246: RETURN;
7247: END;
7248:
7281: x_msg_data := l_msg_data;
7282: x_msg_count := l_msg_count;
7283: END IF;
7284:
7285: IF x_return_status = fnd_api.g_ret_sts_error THEN
7286: -- Read the Error buffer returned from the API
7287: -- Add the error buffer message to supplier rejections
7288: -- table
7289: /*IF (insert_rejections(p_batch_id,
7310: END IF;
7311:
7312: EXCEPTION
7313: WHEN OTHERS THEN
7314: x_return_status := fnd_api.g_ret_sts_error;
7315: fnd_msg_pub.count_and_get(p_count => x_msg_count,
7316: p_data => x_msg_data);
7317: fnd_file.put_line(fnd_file.log,
7318: ' Inside update_fiscal_classification EXCEPTION ' ||
7393: TYPE l_fiscal_class_rec_tab_typ IS TABLE OF pos_fiscal_class_int%ROWTYPE;
7394: l_fiscal_class_rec_tab l_fiscal_class_rec_tab_typ;
7395:
7396: BEGIN
7397: x_return_status := fnd_api.g_ret_sts_success;
7398:
7399: fnd_file.put_line(fnd_file.log,
7400: ' Message: Inside PROCEDURE IMPORT_VENDOR_TAX_DTLS' ||
7401: ' Parameters: ' || ' p_batch_id: ' || p_batch_id ||
7648: WHERE tax_profile_interface_id = l_tax_profile_rec_tab(cntr)
7649: .tax_profile_interface_id
7650: AND batch_id = p_batch_id;
7651:
7652: x_return_status := fnd_api.g_ret_sts_error;
7653:
7654: IF (insert_rejections(p_batch_id,
7655: l_request_id,
7656: 'POS_PARTY_TAX_PROFILE_INT',
7711: .tax_profile_id);
7712:
7713: EXCEPTION
7714: WHEN no_data_found THEN
7715: x_return_status := fnd_api.g_ret_sts_error;
7716: x_msg_data := 'POS_INVALID_TAX_PROFILE';
7717: fnd_file.put_line(fnd_file.log, ' POS_INVALID_TAX_PROFILE ');
7718:
7719: GOTO continue_next_record;
7755: nvl(effective_to, SYSDATE);
7756:
7757: EXCEPTION
7758: WHEN no_data_found THEN
7759: x_return_status := fnd_api.g_ret_sts_error;
7760: x_msg_data := 'POS_INVALID_TAX_REG';
7761:
7762: GOTO continue_next_record;
7763: END;
7822: WHERE tax_reg_interface_id = l_tax_reg_rec_tab(cntr)
7823: .tax_reg_interface_id
7824: AND batch_id = p_batch_id;
7825:
7826: x_return_status := fnd_api.g_ret_sts_error;
7827:
7828: IF (insert_rejections(p_batch_id,
7829: l_request_id,
7830: 'POS_PARTY_TAX_REG_INT',
7905: l_msg_data);
7906: END IF;
7907: END IF;
7908:
7909: x_return_status := fnd_api.g_ret_sts_error;
7910: x_msg_data := 'POS_INVALID_TAX_PROFILE';
7911:
7912: GOTO continue_next_fiscal_class;
7913: END;
7994: WHERE fiscal_class_interface_id = l_fiscal_class_rec_tab(cntr)
7995: .fiscal_class_interface_id
7996: AND batch_id = p_batch_id;
7997:
7998: x_return_status := fnd_api.g_ret_sts_error;
7999:
8000: IF (insert_rejections(p_batch_id,
8001: l_request_id,
8002: 'POS_FISCAL_CLASS_INT',
8024: END LOOP;
8025:
8026: EXCEPTION
8027: WHEN OTHERS THEN
8028: x_return_status := fnd_api.g_ret_sts_unexp_error;
8029:
8030: fnd_msg_pub.count_and_get(p_count => x_msg_count,
8031: p_data => x_msg_data);
8032: fnd_file.put_line(fnd_file.log,
8138:
8139: l_request_id NUMBER := fnd_global.conc_request_id;
8140: l_api_name CONSTANT VARCHAR2(30) := 'IMPORT_VENDOR_BANK_DTLS';
8141: BEGIN
8142: x_return_status := fnd_api.g_ret_sts_success;
8143:
8144: fnd_file.put_line(fnd_file.log,
8145: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
8146: ' Parameters: ' || ' p_batch_id: ' || p_batch_id ||
8293: -- Check if the bank exists
8294: -- This API would return the bank_id
8295: -- an OUT param
8296: iby_ext_bankacct_pub.check_bank_exist(p_api_version => 1,
8297: p_init_msg_list => fnd_api.g_true,
8298: p_country_code => bank_account_dtls_rec.country_code,
8299: p_bank_name => bank_account_dtls_rec.bank_name,
8300: p_bank_number => bank_account_dtls_rec.bank_number,
8301: x_return_status => l_ret_status,
8308: x_return_status := l_ret_status;
8309: x_msg_count := l_msg_count;
8310: x_msg_data := l_msg_data;
8311:
8312: IF l_ret_status <> fnd_api.g_ret_sts_success THEN
8313: UPDATE pos_bank_account_det_int
8314: SET interface_status = 'REJECTED'
8315: WHERE bank_account_interface_id =
8316: bank_account_dtls_rec.bank_account_interface_id
8359: IF (l_bank_id IS NULL) THEN
8360: -- bank doesn't exist so CREATE
8361: fnd_file.put_line(fnd_file.log, ' Going for bank creation');
8362: iby_ext_bankacct_pub. create_ext_bank(p_api_version => 1,
8363: p_init_msg_list => fnd_api.g_true,
8364: p_ext_bank_rec => l_new_bank_rec,
8365: x_bank_id => l_bank_id,
8366: x_return_status => l_ret_status,
8367: x_msg_count => l_msg_count,
8382: FROM hz_parties
8383: WHERE party_id = l_bank_id;
8384:
8385: iby_ext_bankacct_pub.update_ext_bank(p_api_version => 1,
8386: p_init_msg_list => fnd_api.g_true,
8387: p_ext_bank_rec => l_new_bank_rec,
8388: x_return_status => l_ret_status,
8389: x_msg_count => l_msg_count,
8390: x_msg_data => l_msg_data,
8393: x_return_status := l_ret_status;
8394: x_msg_count := l_msg_count;
8395: x_msg_data := l_msg_data;
8396: ELSE
8397: l_ret_status := fnd_api.g_ret_sts_error;
8398:
8399: fnd_file.put_line(fnd_file.log,
8400: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
8401: ' failed in iby_ext_bankacct_pub.create/update_ext_bank' ||
8405: ', Message: Bank doesnt exist');
8406: END IF;
8407:
8408: -- this would also return the generated bank_id.
8409: IF l_ret_status <> fnd_api.g_ret_sts_success THEN
8410: UPDATE pos_bank_account_det_int
8411: SET interface_status = 'REJECTED'
8412: WHERE bank_account_interface_id =
8413: bank_account_dtls_rec.bank_account_interface_id
8546:
8547: -- Update bank end date
8548: IF (bank_account_dtls_rec.bank_end_date IS NOT NULL) THEN
8549: iby_ext_bankacct_pub.set_bank_end_date(p_api_version => 1.0,
8550: p_init_msg_list => fnd_api.g_true,
8551: p_bank_id => l_bank_id,
8552: p_end_date => bank_account_dtls_rec.bank_end_date,
8553: x_return_status => l_ret_status,
8554: x_msg_count => l_msg_count,
8558: x_return_status := l_ret_status;
8559: x_msg_count := l_msg_count;
8560: x_msg_data := l_msg_data;
8561:
8562: IF l_ret_status <> fnd_api.g_ret_sts_success THEN
8563: UPDATE pos_bank_account_det_int
8564: SET interface_status = 'REJECTED'
8565: WHERE bank_account_interface_id =
8566: bank_account_dtls_rec.bank_account_interface_id
8600:
8601: -- Check if the branch exists
8602: -- This API would return the branch_id an OUT param
8603: iby_ext_bankacct_pub.check_ext_bank_branch_exist(p_api_version => 1,
8604: p_init_msg_list => fnd_api.g_true,
8605: p_bank_id => l_bank_id,
8606: p_branch_name => bank_account_dtls_rec.branch_name,
8607: p_branch_number => bank_account_dtls_rec.branch_number,
8608: x_return_status => l_ret_status,
8615: x_return_status := l_ret_status;
8616: x_msg_count := l_msg_count;
8617: x_msg_data := l_msg_data;
8618:
8619: IF l_ret_status <> fnd_api.g_ret_sts_success THEN
8620: UPDATE pos_bank_account_det_int
8621: SET interface_status = 'REJECTED'
8622: WHERE bank_account_interface_id =
8623: bank_account_dtls_rec.bank_account_interface_id
8669: -- branch doesn't exist so CREATE
8670: fnd_file.put_line(fnd_file.log,
8671: ' Message: Going for branch creation');
8672: iby_ext_bankacct_pub.create_ext_bank_branch(p_api_version => 1,
8673: p_init_msg_list => fnd_api.g_true,
8674: p_ext_bank_branch_rec => l_new_branch_rec,
8675: x_branch_id => l_branch_id,
8676: x_return_status => l_ret_status,
8677: x_msg_count => l_msg_count,
8724: ' l_new_branch_rec.bch_object_version_number: ' ||
8725: l_new_branch_rec.bch_object_version_number);
8726:
8727: iby_ext_bankacct_pub.update_ext_bank_branch(p_api_version => 1,
8728: p_init_msg_list => fnd_api.g_true,
8729: p_ext_bank_branch_rec => l_new_branch_rec,
8730: x_return_status => l_ret_status,
8731: x_msg_count => l_msg_count,
8732: x_msg_data => l_msg_data,
8735: x_return_status := l_ret_status;
8736: x_msg_count := l_msg_count;
8737: x_msg_data := l_msg_data;
8738: ELSE
8739: l_ret_status := fnd_api.g_ret_sts_error;
8740:
8741: fnd_file.put_line(fnd_file.log,
8742: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
8743: ' failed in iby_ext_bankacct_pub.create/update_ext_bank_branch' ||
8747: ', Message: Branch doesnt exist');
8748: END IF;
8749: -- this would also return the generated branch_id.
8750:
8751: IF l_ret_status <> fnd_api.g_ret_sts_success THEN
8752: UPDATE pos_bank_account_det_int
8753: SET interface_status = 'REJECTED'
8754: WHERE bank_account_interface_id =
8755: bank_account_dtls_rec.bank_account_interface_id
8890:
8891: -- Update branch end date
8892: IF (bank_account_dtls_rec.branch_end_date IS NOT NULL) THEN
8893: iby_ext_bankacct_pub.set_ext_bank_branch_end_date(p_api_version => 1.0,
8894: p_init_msg_list => fnd_api.g_true,
8895: p_branch_id => l_branch_id,
8896: p_end_date => bank_account_dtls_rec.branch_end_date,
8897: x_return_status => l_ret_status,
8898: x_msg_count => l_msg_count,
8902: x_return_status := l_ret_status;
8903: x_msg_count := l_msg_count;
8904: x_msg_data := l_msg_data;
8905:
8906: IF l_ret_status <> fnd_api.g_ret_sts_success THEN
8907: UPDATE pos_bank_account_det_int
8908: SET interface_status = 'REJECTED'
8909: WHERE bank_account_interface_id =
8910: bank_account_dtls_rec.bank_account_interface_id
8944:
8945: -- Check if the account exists
8946: -- This API would return the account_id an OUT param
8947: iby_ext_bankacct_pub.check_ext_acct_exist(p_api_version => 1,
8948: p_init_msg_list => fnd_api.g_true,
8949: p_bank_id => l_bank_id,
8950: p_branch_id => l_branch_id,
8951: p_acct_number => bank_account_dtls_rec.bank_account_number,
8952: p_acct_name => bank_account_dtls_rec.account_name,
9146:
9147: IF (l_account_id IS NULL AND
9148: bank_account_dtls_rec.insert_update_flag = 'I') THEN
9149: iby_ext_bankacct_pub.create_ext_bank_acct(p_api_version => 1,
9150: p_init_msg_list => fnd_api.g_true,
9151: p_ext_bank_acct_rec => l_new_account_rec,
9152: p_association_level => l_association_level,
9153: p_supplier_site_id => l_vendor_site_id,
9154: p_party_site_id => l_party_site_id,
9233: L_ASSIGN.INSTRUMENT.INSTRUMENT_ID := L_ACCOUNT_ID;
9234: l_joint_account_owner_id := NULL;
9235:
9236: iby_ext_bankacct_pub.add_joint_account_owner(p_api_version => 1.0,
9237: p_init_msg_list => fnd_api.g_true,
9238: p_bank_account_id => l_account_id,
9239: P_ACCT_OWNER_PARTY_ID => L_PARTY_ID,
9240: x_joint_acct_owner_id => l_joint_account_owner_id,
9241: x_return_status => l_ret_status,
9274: AND bank_party_id = l_bank_id
9275: AND ext_bank_account_id = l_account_id;
9276:
9277: iby_ext_bankacct_pub.update_ext_bank_acct(p_api_version => 1,
9278: p_init_msg_list => fnd_api.g_true,
9279: p_ext_bank_acct_rec => l_new_account_rec,
9280: x_return_status => l_ret_status,
9281: x_msg_count => l_msg_count,
9282: x_msg_data => l_msg_data,
9288: ELSE
9289: IF (l_account_id IS NULL AND
9290: bank_account_dtls_rec.insert_update_flag = 'U') THEN
9291: -- Account doesnt exist
9292: l_ret_status := fnd_api.g_ret_sts_error;
9293:
9294: fnd_file.put_line(fnd_file.log,
9295: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
9296: ' failed in iby_ext_bankacct_pub.create_ext_bank_acct' ||
9302: END IF;
9303: END IF;
9304: -- this would also return the generated account_id.
9305:
9306: IF l_ret_status <> fnd_api.g_ret_sts_success THEN
9307: UPDATE pos_bank_account_det_int
9308: SET interface_status = 'REJECTED'
9309: WHERE bank_account_interface_id =
9310: bank_account_dtls_rec.bank_account_interface_id
9442: IF (l_new_intermed_acct1_rec.intermediary_acct_id IS NULL) THEN
9443: fnd_file.put_line(fnd_file.log,
9444: ' Message: Going for intermediary account1 creation ');
9445: iby_ext_bankacct_pub.create_intermediary_acct(p_api_version => 1.0,
9446: p_init_msg_list => fnd_api.g_true,
9447: p_intermed_acct_rec => l_new_intermed_acct1_rec,
9448: x_intermediary_acct_id => l_intermediary1_acct_id,
9449: x_return_status => l_ret_status,
9450: x_msg_count => l_msg_count,
9458: fnd_file.put_line(fnd_file.log,
9459: ' Message: Going for intermediary account1 update ');
9460:
9461: iby_ext_bankacct_pub.update_intermediary_acct(p_api_version => 1.0,
9462: p_init_msg_list => fnd_api.g_true,
9463: p_intermed_acct_rec => l_new_intermed_acct1_rec,
9464: x_return_status => l_ret_status,
9465: x_msg_count => l_msg_count,
9466: x_msg_data => l_msg_data,
9470: x_msg_count := l_msg_count;
9471: x_msg_data := l_msg_data;
9472: END IF;
9473:
9474: IF l_ret_status <> fnd_api.g_ret_sts_success THEN
9475: UPDATE pos_bank_account_det_int
9476: SET interface_status = 'REJECTED'
9477: WHERE bank_account_interface_id =
9478: bank_account_dtls_rec.bank_account_interface_id
9586: IF (l_new_intermed_acct2_rec.intermediary_acct_id IS NULL) THEN
9587: fnd_file.put_line(fnd_file.log,
9588: ' Message: Going for intermediary account2 creation ');
9589: iby_ext_bankacct_pub.create_intermediary_acct(p_api_version => 1.0,
9590: p_init_msg_list => fnd_api.g_true,
9591: p_intermed_acct_rec => l_new_intermed_acct2_rec,
9592: x_intermediary_acct_id => l_intermediary2_acct_id,
9593: x_return_status => l_ret_status,
9594: x_msg_count => l_msg_count,
9602: fnd_file.put_line(fnd_file.log,
9603: ' Message: Going for intermediary account2 update ');
9604:
9605: iby_ext_bankacct_pub.update_intermediary_acct(p_api_version => 1.0,
9606: p_init_msg_list => fnd_api.g_true,
9607: p_intermed_acct_rec => l_new_intermed_acct2_rec,
9608: x_return_status => l_ret_status,
9609: x_msg_count => l_msg_count,
9610: x_msg_data => l_msg_data,
9614: x_msg_count := l_msg_count;
9615: x_msg_data := l_msg_data;
9616: END IF;
9617:
9618: IF l_ret_status <> fnd_api.g_ret_sts_success THEN
9619: UPDATE pos_bank_account_det_int
9620: SET interface_status = 'REJECTED'
9621: WHERE bank_account_interface_id =
9622: bank_account_dtls_rec.bank_account_interface_id
9779: -- End Bug 12842286
9780:
9781: -- Call the add account owner API
9782: iby_ext_bankacct_pub.add_joint_account_owner(p_api_version => 1.0,
9783: p_init_msg_list => fnd_api.g_true,
9784: p_bank_account_id => l_account_id,
9785: p_acct_owner_party_id => l_account_owner_id,
9786: x_joint_acct_owner_id => l_joint_account_owner_id,
9787: x_return_status => l_ret_status,
9792: x_return_status := l_ret_status;
9793: x_msg_count := l_msg_count;
9794: x_msg_data := l_msg_data;
9795:
9796: IF l_ret_status <> fnd_api.g_ret_sts_success THEN
9797:
9798: UPDATE pos_bank_accnt_owners_int
9799: SET interface_status = 'REJECTED'
9800: WHERE bank_acct_owner_interface_id =
9850: AND account_owner_party_id = l_account_owner_id;
9851: END IF;
9852:
9853: iby_ext_bankacct_pub.set_joint_acct_owner_end_date(p_api_version => 1.0,
9854: p_init_msg_list => fnd_api.g_true,
9855: p_acct_owner_id => l_joint_account_owner_id,
9856: p_end_date => account_owners_rec.end_date,
9857: p_object_version_number => l_obj_version,
9858: x_return_status => l_ret_status,
9863: x_return_status := l_ret_status;
9864: x_msg_count := l_msg_count;
9865: x_msg_data := l_msg_data;
9866:
9867: IF l_ret_status <> fnd_api.g_ret_sts_success THEN
9868:
9869: UPDATE pos_bank_accnt_owners_int
9870: SET interface_status = 'REJECTED'
9871: WHERE bank_acct_owner_interface_id =
9904:
9905: -- Set the primary flag
9906: IF (account_owners_rec.primary_flag IS NOT NULL) THEN
9907: iby_ext_bankacct_pub.change_primary_acct_owner(p_api_version => 1.0,
9908: p_init_msg_list => fnd_api.g_true,
9909: p_bank_acct_id => l_account_id,
9910: p_acct_owner_party_id => l_account_owner_id,
9911: x_return_status => l_ret_status,
9912: x_msg_count => l_msg_count,
9916: x_return_status := l_ret_status;
9917: x_msg_count := l_msg_count;
9918: x_msg_data := l_msg_data;
9919:
9920: IF l_ret_status <> fnd_api.g_ret_sts_success THEN
9921:
9922: UPDATE pos_bank_accnt_owners_int
9923: SET interface_status = 'REJECTED'
9924: WHERE bank_acct_owner_interface_id =
9976: CLOSE account_owners_cur;
9977:
9978: EXCEPTION
9979: WHEN OTHERS THEN
9980: x_return_status := fnd_api.g_ret_sts_unexp_error;
9981:
9982: fnd_msg_pub.count_and_get(p_count => x_msg_count,
9983: p_data => x_msg_data);
9984: fnd_file.put_line(fnd_file.log,
10055: x_return_status => l_return_status,
10056: x_msg_count => l_msg_count,
10057: x_msg_data => l_msg_data);
10058:
10059: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
10060: fnd_file.put_line(fnd_file.log,
10061: 'UIC***** No. of Messages: ' || l_msg_count ||
10062: ', Message: ' || l_msg_data ||
10063: ' From pre_processing API.');
10098: x_return_status => l_return_status,
10099: x_msg_count => l_msg_count,
10100: x_msg_data => l_msg_data);
10101:
10102: IF l_return_status <> fnd_api.g_ret_sts_success THEN
10103: fnd_file.put_line(fnd_file.log,
10104: 'Error Message Count: ' || l_msg_count ||
10105: ' Error Message Data: ' || l_msg_data ||
10106: ' From validate_vendor API.');
10241: x_return_status => l_return_status,
10242: x_msg_count => l_msg_count,
10243: x_msg_data => l_msg_data);
10244:
10245: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
10246: fnd_file.put_line(fnd_file.log,
10247: 'UIC***** No. of Messages: ' || l_msg_count ||
10248: ', Message: ' || l_msg_data ||
10249: ' From enable_party_as_supplier API.');
10263: x_return_status => l_return_status,
10264: x_msg_count => l_msg_count,
10265: x_msg_data => l_msg_data);
10266:
10267: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
10268: fnd_file.put_line(fnd_file.log,
10269: 'UIC***** No. of Messages: ' || l_msg_count ||
10270: ', Message: ' || l_msg_data ||
10271: ' From enable_partycont_as_suppcont API.');
10277: x_return_status => l_return_status,
10278: x_msg_count => l_msg_count,
10279: x_msg_data => l_msg_data);
10280:
10281: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
10282: fnd_file.put_line(fnd_file.log,
10283: 'UIC***** No. of Messages: ' || l_msg_count ||
10284: ', Message: ' || l_msg_data ||
10285: ' From update_party_id API.');
10291: x_return_status => l_return_status,
10292: x_msg_count => l_msg_count,
10293: x_msg_data => l_msg_data);
10294:
10295: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
10296: l_tot_err_count := l_tot_err_count + 1;
10297: fnd_file.put_line(fnd_file.log,
10298: 'UIC***** No. of Messages: ' || l_msg_count ||
10299: ', Message: ' || l_msg_data ||
10315: x_return_status => l_return_status,
10316: x_msg_count => l_msg_count,
10317: x_msg_data => l_msg_data);
10318:
10319: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
10320: fnd_file.put_line(fnd_file.log,
10321: 'UIC***** No. of Messages: ' || l_msg_count ||
10322: ', Message: ' || l_msg_data ||
10323: ' From update_party_id API.');
10329: x_return_status => l_return_status,
10330: x_msg_count => l_msg_count,
10331: x_msg_data => l_msg_data);
10332:
10333: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
10334: l_tot_err_count := l_tot_err_count + 1;
10335: fnd_file.put_line(fnd_file.log,
10336: 'UIC***** No. of Messages: ' || l_msg_count ||
10337: ', Message: ' || l_msg_data ||
10353: x_return_status => l_return_status,
10354: x_msg_count => l_msg_count,
10355: x_msg_data => l_msg_data);
10356:
10357: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
10358: fnd_file.put_line(fnd_file.log,
10359: 'UIC***** No. of Messages: ' || l_msg_count ||
10360: ', Message: ' || l_msg_data ||
10361: ' From update_contact_dtls API.');
10367: x_return_status => l_return_status,
10368: x_msg_count => l_msg_count,
10369: x_msg_data => l_msg_data);
10370:
10371: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
10372: l_tot_err_count := l_tot_err_count + 1;
10373: fnd_file.put_line(fnd_file.log,
10374: 'UIC***** No. of Messages: ' || l_msg_count ||
10375: ', Message: ' || l_msg_data ||
10391: x_return_status => l_return_status,
10392: x_msg_count => l_msg_count,
10393: x_msg_data => l_msg_data);
10394:
10395: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
10396: l_tot_err_count := l_tot_err_count + 1;
10397: fnd_file.put_line(fnd_file.log,
10398: 'UIC***** No. of Messages: ' || l_msg_count ||
10399: ', Message: ' || l_msg_data ||
10415: x_return_status => l_return_status,
10416: x_msg_count => l_msg_count,
10417: x_msg_data => l_msg_data);
10418:
10419: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
10420: l_tot_err_count := l_tot_err_count + 1;
10421: fnd_file.put_line(fnd_file.log,
10422: 'UIC***** No. of Messages: ' || l_msg_count ||
10423: ', Message: ' || l_msg_data ||
10439: x_return_status => l_return_status,
10440: x_msg_count => l_msg_count,
10441: x_msg_data => l_msg_data);
10442:
10443: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
10444: l_tot_err_count := l_tot_err_count + 1;
10445: fnd_file.put_line(fnd_file.log,
10446: 'UIC***** No. of Messages: ' || l_msg_count ||
10447: ', Message: ' || l_msg_data ||
10481: x_return_status => l_return_status,
10482: x_msg_count => l_msg_count,
10483: x_msg_data => l_msg_data);
10484:
10485: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
10486: l_tot_err_count := l_tot_err_count + 1;
10487: fnd_file.put_line(fnd_file.log,
10488: 'UIC***** No. of Messages: ' || l_msg_count ||
10489: ', Message: ' || l_msg_data ||
10513: ------UDA import
10514: POS_BULKLOAD_ENTITIES.PROCESS_USER_ATTRS_DATA(p_data_set_id => p_batch_id,
10515: ERRBUF => l_errbuf,
10516: RETCODE => L_RETCODE,
10517: P_PURGE_SUCCESSFUL_LINES => FND_API.G_FALSE);
10518:
10519: IF (L_RETCODE <> FND_API.G_RET_STS_SUCCESS) THEN
10520: l_tot_err_count := l_tot_err_count + 1;
10521: fnd_file.put_line(fnd_file.log,
10515: ERRBUF => l_errbuf,
10516: RETCODE => L_RETCODE,
10517: P_PURGE_SUCCESSFUL_LINES => FND_API.G_FALSE);
10518:
10519: IF (L_RETCODE <> FND_API.G_RET_STS_SUCCESS) THEN
10520: l_tot_err_count := l_tot_err_count + 1;
10521: fnd_file.put_line(fnd_file.log,
10522: 'UIC***** No. of Messages: ' || L_RETCODE ||
10523: ', Message: ' || l_errbuf ||
10587: ------UDA import
10588: POS_BULKLOAD_ENTITIES.PROCESS_USER_ATTRS_DATA(p_data_set_id => p_batch_id,
10589: ERRBUF => l_errbuf,
10590: RETCODE => L_RETCODE,
10591: P_PURGE_SUCCESSFUL_LINES => FND_API.G_FALSE);
10592:
10593: IF (L_RETCODE <> FND_API.G_RET_STS_SUCCESS) THEN
10594: l_tot_err_count := l_tot_err_count + 1;
10595: fnd_file.put_line(fnd_file.log,
10589: ERRBUF => l_errbuf,
10590: RETCODE => L_RETCODE,
10591: P_PURGE_SUCCESSFUL_LINES => FND_API.G_FALSE);
10592:
10593: IF (L_RETCODE <> FND_API.G_RET_STS_SUCCESS) THEN
10594: l_tot_err_count := l_tot_err_count + 1;
10595: fnd_file.put_line(fnd_file.log,
10596: 'UIC***** No. of Messages: ' || L_RETCODE ||
10597: ', Message: ' || l_errbuf ||