[Home] [Help]
85: g_module_name || l_api_name,
86: SQLERRM);
87: END IF;
88:
89: fnd_file.put_line(fnd_file.log,
90: ' Inside INSERT_REJECTIONS EXCEPTION ' ||
91: ' Message: ' || SQLCODE || ' ' || SQLERRM);
92:
93: RETURN(FALSE);
116: RETURN l_party_id;
117:
118: EXCEPTION
119: WHEN OTHERS THEN
120: fnd_file.put_line(fnd_file.log,
121: ' Inside get_party_id EXCEPTION ' || ' Message: ' ||
122: SQLCODE || ' ' || SQLERRM);
123: RETURN 0;
124: END get_party_id;
191: supp.party_orig_system_reference);
192:
193: l_insert_count := SQL%ROWCOUNT;
194:
195: fnd_file.put_line(fnd_file.log,
196: ' Message: Inside PROCEDURE check_party_exist' ||
197: ' Parameters: ' || ' p_batch_id: ' || p_batch_id ||
198: ' Rows inserted in hz_imp_parties_int: ' ||
199: l_insert_count);
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);
218: fnd_file.put_line(fnd_file.log,
219: ' Inside check_party_exist EXCEPTION ' ||
220: ' Message: ' || SQLCODE || ' ' || SQLERRM);
221: END check_party_exist;
222:
355: WHERE rnk = 1;
356:
357: l_insert_count := SQL%ROWCOUNT;
358:
359: fnd_file.put_line(fnd_file.log,
360: ' Message: Inside PROCEDURE check_party_site_exist' ||
361: ' Parameters: ' || ' p_batch_id: ' || p_batch_id ||
362: ' Rows inserted in hz_imp_addresses_int: ' ||
363: l_insert_count);
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);
382: fnd_file.put_line(fnd_file.log,
383: ' Inside check_party_site_exist EXCEPTION ' ||
384: ' Message: ' || SQLCODE || ' ' || SQLERRM);
385: END check_party_site_exist;
386:
472: WHERE rnk = 1;
473:
474: l_insert_count := SQL%ROWCOUNT;
475:
476: fnd_file.put_line(fnd_file.log,
477: ' Message: Inside PROCEDURE check_party_contact_exist' ||
478: ' Parameters: ' || ' p_batch_id: ' || p_batch_id ||
479: ' Rows inserted in hz_imp_parties_int: ' ||
480: l_insert_count);
567: supp.contact_orig_system_reference);
568:
569: l_insert_count := SQL%ROWCOUNT;
570:
571: fnd_file.put_line(fnd_file.log,
572: ' Message: Inside PROCEDURE check_party_contact_exist' ||
573: ' Parameters: ' || ' p_batch_id: ' || p_batch_id ||
574: ' Rows inserted in hz_imp_contacts_int: ' ||
575: l_insert_count);
590:
591: fnd_msg_pub.count_and_get(p_count => x_msg_count,
592: p_data => x_msg_data);
593:
594: fnd_file.put_line(fnd_file.log,
595: ' Inside check_party_contact_exist EXCEPTION ' ||
596: ' Message: ' || SQLCODE || ' ' || SQLERRM);
597: END check_party_contact_exist;
598:
673:
674: DELETE ap_supplier_int_rejections
675: WHERE parent_table = 'AP_SUPPLIERS_INT';
676:
677: fnd_file.put_line(fnd_file.log,
678: ' Validating vendor record before the party is created. ');
679: OPEN party_int_cur;
680:
681: LOOP
714: IF (vendor_rec.party_id = 0) THEN
715: vendor_rec.party_id := NULL;
716: END IF;
717:
718: fnd_file.put_line(fnd_file.log,
719: ' Message: Inside PROCEDURE validate_vendor' ||
720: ' Parameters: ' || ' p_batch_id: ' || p_batch_id ||
721: ' Party id : ' || vendor_rec.party_id ||
722: ' from get_party_id');
849: SET interface_status = 'E',
850: error_id = l_error_id
851: WHERE ROWID = party_int_rec.rowid;
852:
853: fnd_file.put_line(fnd_file.log,
854: 'Error Message Count: ' || x_msg_count ||
855: ' Error Message Data: ' || x_msg_data ||
856: ' From ap_vendor_pub_pkg.validate_vendor API for party id: ' ||
857: vendor_rec.party_id ||
874: fnd_msg_pub.add;
875: fnd_msg_pub.count_and_get(p_count => x_msg_count,
876: p_data => x_msg_data);
877:
878: fnd_file.put_line(fnd_file.log,
879: ' Inside validate_vendor EXCEPTION ' ||
880: ' Message: ' || SQLCODE || ' ' || SQLERRM);
881: END validate_vendor;
882:
1003: AND sdh_batch_id = p_batch_id;
1004: END IF;
1005: END LOOP;
1006:
1007: fnd_file.put_line(fnd_file.log,
1008: ' Message: Inside PROCEDURE update_contact_dtls' ||
1009: ' Updated details for vendor_contact_interface_id: ' ||
1010: supp_contact_int_rec.vendor_contact_interface_id ||
1011: ' party_id: ' || l_org_party_id || ' per_party_id: ' ||
1023: fnd_msg_pub.add;
1024: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1025: p_data => x_msg_data);
1026:
1027: fnd_file.put_line(fnd_file.log,
1028: ' Inside update_contact_dtls EXCEPTION ' ||
1029: ' Message: ' || SQLCODE || ' ' || SQLERRM);
1030: END update_contact_dtls;
1031:
1064: fnd_msg_pub.add;
1065: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1066: p_data => x_msg_data);
1067:
1068: fnd_file.put_line(fnd_file.log,
1069: ' Inside update_party_id EXCEPTION ' ||
1070: ' Message: ' || SQLCODE || ' ' || SQLERRM);
1071: END update_party_id;
1072:
1118: fnd_msg_pub.add;
1119: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1120: p_data => x_msg_data);
1121:
1122: fnd_file.put_line(fnd_file.log,
1123: ' Inside update_party_site_id EXCEPTION ' ||
1124: ' Message: ' || SQLCODE || ' ' || SQLERRM);
1125: END update_party_site_id;
1126:
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.');
1171: RETURN;
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.');
1184: RETURN;
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.');
1197: RETURN;
1209: fnd_msg_pub.add;
1210: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1211: p_data => x_msg_data);
1212:
1213: fnd_file.put_line(fnd_file.log,
1214: ' Inside pre_processing EXCEPTION ' || ' Message: ' ||
1215: SQLCODE || ' ' || SQLERRM);
1216: END pre_processing;
1217:
1332:
1333: vendor_rec.party_id := get_party_id(party_int_rec.party_orig_system,
1334: party_int_rec.party_orig_system_reference);
1335:
1336: fnd_file.put_line(fnd_file.log,
1337: ' Message: Inside PROCEDURE enable_party_as_supplier' ||
1338: ' Parameters: ' || ' p_batch_id: ' || p_batch_id ||
1339: ' Party id : ' || vendor_rec.party_id ||
1340: ' from get_party_id');
1428: ', Message From Create_Vendor API: ' ||
1429: l_msg_data);
1430: END IF;
1431:
1432: fnd_file.put_line(fnd_file.log, 'Failed in validating vendor.');
1433:
1434: fnd_file.put_line(fnd_file.log,
1435: 'Error Message Count: ' || x_msg_count ||
1436: ' Error Message Data: ' || x_msg_data ||
1430: END IF;
1431:
1432: fnd_file.put_line(fnd_file.log, 'Failed in validating vendor.');
1433:
1434: fnd_file.put_line(fnd_file.log,
1435: 'Error Message Count: ' || x_msg_count ||
1436: ' Error Message Data: ' || x_msg_data ||
1437: ' From ap_vendor_pub_pkg.create_vendor API for party id: ' ||
1438: vendor_rec.party_id);
1489: ', Message From Create_Vendor API: ' ||
1490: l_msg_data);
1491: END IF;
1492:
1493: fnd_file.put_line(fnd_file.log,
1494: 'Error Message Count: ' || x_msg_count ||
1495: ' Error Message Data: ' || x_msg_data ||
1496: ' From ap_vendor_pub_pkg.create_vendor API for party id: ' ||
1497: vendor_rec.party_id);
1524: fnd_msg_pub.add;
1525: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1526: p_data => x_msg_data);
1527:
1528: fnd_file.put_line(fnd_file.log,
1529: ' Inside enable_party_as_supplier EXCEPTION ' ||
1530: ' Message: ' || SQLCODE || ' ' || SQLERRM);
1531: END enable_party_as_supplier;
1532:
1578: orig system reference combination */
1579: l_party_id := get_party_id(contact_int_rec.contact_orig_system,
1580: contact_int_rec.contact_orig_system_reference);
1581:
1582: fnd_file.put_line(fnd_file.log,
1583: ' Message: Inside PROCEDURE enable_partycont_as_suppcont' ||
1584: ' Parameters: ' || ' p_batch_id: ' || p_batch_id ||
1585: ' Party id : ' || l_party_id ||
1586: ' from get_party_id');
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
1606: fnd_file.put_line(fnd_file.log,
1607: 'Error Message: ' || l_error_msg_tbl(l_msg_count)
1608: .message_text ||
1609: ' From hz_party_usg_assignment_pvt.assign_party_usage API for party id ' ||
1610: l_party_id);
1610: l_party_id);
1611: l_msg_count := l_error_msg_tbl.next(l_msg_count);
1612: END LOOP;
1613: END IF;
1614: fnd_file.put_line(fnd_file.log,
1615: 'Error in hz_party_usg_assignment_pvt.assign_party_usage API for party id ' ||
1616: l_party_id);
1617: x_return_status := l_return_status;
1618: x_msg_count := l_msg_count;
1630: fnd_msg_pub.add;
1631: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1632: p_data => x_msg_data);
1633:
1634: fnd_file.put_line(fnd_file.log,
1635: ' Inside enable_partycont_as_suppcont EXCEPTION ' ||
1636: ' Message: ' || SQLCODE || ' ' || SQLERRM);
1637: END enable_partycont_as_suppcont;
1638:
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 ||
1678: ' vendor_id: ' || p_vendor_rec.vendor_id ||
1679: ' vendor_interface_id: ' ||
1723: SET vendor_id = l_vendor_id
1724: WHERE vendor_interface_id = p_vendor_rec.vendor_interface_id
1725: AND sdh_batch_id = p_batch_id;
1726:
1727: fnd_file.put_line(fnd_file.log,
1728: ' Message: Inside PROCEDURE CREATE_VENDOR' ||
1729: ' party_id: ' || p_vendor_rec.party_id ||
1730: ' l_party_id: ' || l_party_id);
1731:
1738: x_return_status => l_return_status,
1739: x_msg_count => l_msg_count,
1740: x_msg_data => l_msg_data);
1741:
1742: fnd_file.put_line(fnd_file.log,
1743: ' Message: Inside PROCEDURE CREATE_VENDOR' ||
1744: ' from iby_disbursement_setup_pub.validate_external_payee' ||
1745: ' l_return_status: ' || l_return_status);
1746:
1757: x_msg_data => l_msg_data,
1758: x_ext_payee_id_tab => ext_payee_id_tab,
1759: x_ext_payee_status_tab => ext_payee_create_tab);
1760:
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
1835:
1836: fnd_message.set_name('SQLAP', 'AP_BANK_ACCT_CREATION');
1837: fnd_msg_pub.add;
1838:
1839: fnd_file.put_line(fnd_file.log,
1840: ' Message: Inside PROCEDURE CREATE_VENDOR' ||
1841: ' failed in iby_disbursement_setup_pub.create_temp_ext_bank_acct ' ||
1842: ' vendor_interface_id: ' ||
1843: p_vendor_rec.vendor_interface_id ||
1873:
1874: fnd_message.set_name('SQLAP', 'AP_INVALID_BANK_ACCT_INFO');
1875: fnd_msg_pub.add;
1876:
1877: fnd_file.put_line(fnd_file.log,
1878: ' Message: Inside PROCEDURE CREATE_VENDOR' ||
1879: ' failed in iby_disbursement_setup_pub.validate_temp_ext_bank_acct ' ||
1880: ' vendor_interface_id: ' ||
1881: p_vendor_rec.vendor_interface_id ||
1910:
1911: fnd_message.set_name('SQLAP', 'AP_PAYEE_CREATION');
1912: fnd_msg_pub.add;
1913:
1914: fnd_file.put_line(fnd_file.log,
1915: ' Message: Inside PROCEDURE CREATE_VENDOR' ||
1916: ' failed in iby_disbursement_setup_pub.create_external_payee ' ||
1917: ' vendor_interface_id: ' ||
1918: p_vendor_rec.vendor_interface_id ||
1944:
1945: fnd_message.set_name('SQLAP', 'AP_INVALID_PAYEE');
1946: fnd_msg_pub.add;
1947:
1948: fnd_file.put_line(fnd_file.log,
1949: ' Message: Inside PROCEDURE CREATE_VENDOR' ||
1950: ' failed in iby_disbursement_setup_pub.validate_external_payee ' ||
1951: ' vendor_interface_id: ' ||
1952: p_vendor_rec.vendor_interface_id ||
1999: error_handler.get_message_list(l_error_msg_tbl);
2000: IF l_error_msg_tbl.first IS NOT NULL THEN
2001: l_msg_count := l_error_msg_tbl.first;
2002: WHILE l_msg_count IS NOT NULL LOOP
2003: fnd_file.put_line(fnd_file.log,
2004: ' Message: Inside PROCEDURE CREATE_VENDOR' ||
2005: ' failed in ap_vendor_pub_pkg.create_vendor ' ||
2006: ' vendor_interface_id: ' ||
2007: p_vendor_rec.vendor_interface_id ||
2010: .message_text);
2011: l_msg_count := l_error_msg_tbl.next(l_msg_count);
2012: END LOOP;
2013: ELSE
2014: fnd_file.put_line(fnd_file.log,
2015: ' Message: Inside PROCEDURE CREATE_VENDOR' ||
2016: ' failed in ap_vendor_pub_pkg.create_vendor ' ||
2017: ' vendor_interface_id: ' ||
2018: p_vendor_rec.vendor_interface_id);
2028:
2029: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2030: p_data => x_msg_data);
2031:
2032: fnd_file.put_line(fnd_file.log,
2033: ' Inside create_vendor EXCEPTION ' || ' Message: ' ||
2034: SQLCODE || ' ' || SQLERRM);
2035: END create_vendor;
2036:
2130: AND supp.party_orig_system_reference =
2131: party.party_orig_system_reference
2132: AND party.interface_status = 'R');
2133:
2134: fnd_file.put_line(fnd_file.log,
2135: ' Message: Inside PROCEDURE IMPORT_VENDORS' ||
2136: ' Not imported(marked REMOVED) : ' || SQL%ROWCOUNT ||
2137: ' records. Reason interface_status in hz_imp_parties_int = R');
2138:
2151: WHERE status = 'REMOVED'
2152: AND import_request_id = l_request_id
2153: AND sdh_batch_id = p_batch_id);
2154:
2155: fnd_file.put_line(fnd_file.log,
2156: ' Message: Inside PROCEDURE IMPORT_VENDORS' ||
2157: ' Parameters: ' || ' p_batch_id: ' || p_batch_id ||
2158: ' request_id: ' || l_request_id);
2159:
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 ||
2229: 'as length of num_1099 > 20 ');
2360: vendor_rec.ext_payee_rec.delivery_channel := vendor_int_rec.delivery_channel_code;
2361: vendor_rec.ext_payee_rec.pmt_format := vendor_int_rec.payment_format_code;
2362: vendor_rec.ext_payee_rec.settlement_priority := vendor_int_rec.settlement_priority;
2363:
2364: fnd_file.put_line(fnd_file.log,
2365: ' Message: Inside PROCEDURE IMPORT_VENDORS' ||
2366: ' vendor_interface_id: ' ||
2367: vendor_rec.vendor_interface_id || ' party_id: ' ||
2368: vendor_int_rec.party_id);
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);
2408: GOTO continue_next_record;
2407: vendor_rec.vendor_interface_id);
2408: GOTO continue_next_record;
2409: END IF;
2410:
2411: fnd_file.put_line(fnd_file.log,
2412: ' Message: Inside PROCEDURE IMPORT_VENDORS' ||
2413: ' vendor_interface_id: ' ||
2414: vendor_rec.vendor_interface_id || ' party_id: ' ||
2415: vendor_rec.party_id);
2435: l_insert_update_flag := 'O';
2436: END;
2437:
2438: IF (l_insert_update_flag = 'I') THEN
2439: fnd_file.put_line(fnd_file.log,
2440: ' Message: Inside PROCEDURE IMPORT_VENDORS' ||
2441: ' Calling create_vendor insert_update_flag = I');
2442:
2443: create_vendor(p_batch_id => p_batch_id,
2458: -- If the vendor exists then upodate it
2459: IF l_vendor_exists <> 0 THEN
2460: l_vendor_exists := 0;
2461:
2462: fnd_file.put_line(fnd_file.log,
2463: ' Message: Inside PROCEDURE IMPORT_VENDORS' ||
2464: ' As vendor exists calling ap_vendor_pub_pkg.update_vendor for vendor id : ' ||
2465: l_vendor_id);
2466:
2528: ', Message From update_vendor API: ' ||
2529: l_msg_data);
2530: END IF;
2531:
2532: fnd_file.put_line(fnd_file.log,
2533: ' Message: Inside PROCEDURE IMPORT_VENDORS' ||
2534: ' failed in ap_vendor_pub_pkg.update_vendor ' ||
2535: ' vendor_interface_id: ' ||
2536: vendor_rec.vendor_interface_id ||
2542: x_msg_count := l_msg_count;
2543: x_msg_data := l_msg_data;
2544: END IF;
2545: ELSE
2546: fnd_file.put_line(fnd_file.log,
2547: ' Message: Inside PROCEDURE IMPORT_VENDORS' ||
2548: ' Calling create_vendor insert_update_flag = U');
2549:
2550: create_vendor(p_batch_id => p_batch_id,
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: ' ||
2578: SQLCODE || ' ' || SQLERRM);
2579: WHEN fnd_api.g_exc_unexpected_error THEN
2580: ROLLBACK TO import_vendor_pub;
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 ' ||
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,
2594: ' Inside import_vendors others EXCEPTION ' ||
2595: ' Message: ' || SQLCODE || ' ' || SQLERRM);
2596: END import_vendors;
2597:
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 ||
2648: ' vendor_site_interface_id: ' ||
2649: p_site_rec.vendor_site_interface_id);
2824: ' Acct Validation Msg: ' || l_msg_data);
2825: END IF;
2826: END IF;
2827:
2828: fnd_file.put_line(fnd_file.log,
2829: ' Message: Inside PROCEDURE CREATE_VENDOR_SITE' ||
2830: ' failed in bank account creation ' ||
2831: ' vendor_site_interface_id: ' ||
2832: p_site_rec.vendor_site_interface_id ||
2861:
2862: fnd_message.set_name('SQLAP', 'AP_PAYEE_CREATION');
2863: fnd_msg_pub.add;
2864:
2865: fnd_file.put_line(fnd_file.log,
2866: ' Message: Inside PROCEDURE CREATE_VENDOR_SITE' ||
2867: ' failed in payee creation ' ||
2868: ' vendor_site_interface_id: ' ||
2869: p_site_rec.vendor_site_interface_id);
2922:
2923: fnd_message.set_name('SQLAP', 'AP_INVALID_PAYEE_INFO');
2924: fnd_msg_pub.add;
2925:
2926: fnd_file.put_line(fnd_file.log,
2927: ' Message: Inside PROCEDURE CREATE_VENDOR_SITE' ||
2928: ' failed in payee validation ' ||
2929: ' vendor_site_interface_id: ' ||
2930: p_site_rec.vendor_site_interface_id);
2980: error_handler.get_message_list(l_error_msg_tbl);
2981: IF l_error_msg_tbl.first IS NOT NULL THEN
2982: l_msg_count := l_error_msg_tbl.first;
2983: WHILE l_msg_count IS NOT NULL LOOP
2984: fnd_file.put_line(fnd_file.log,
2985: ' Message: Inside PROCEDURE CREATE_VENDOR_SITE' ||
2986: ' failed in ap_vendor_pub_pkg.create_vendor_site ' ||
2987: ' vendor_site_interface_id: ' ||
2988: p_site_rec.vendor_site_interface_id ||
2991: .message_text);
2992: l_msg_count := l_error_msg_tbl.next(l_msg_count);
2993: END LOOP;
2994: ELSE
2995: fnd_file.put_line(fnd_file.log,
2996: ' Message: Inside PROCEDURE CREATE_VENDOR_SITE' ||
2997: ' failed in ap_vendor_pub_pkg.create_vendor_site ' ||
2998: ' vendor_site_interface_id: ' ||
2999: p_site_rec.vendor_site_interface_id);
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,
3013: ' Inside create_vendor_site EXCEPTION ' ||
3014: ' Message: ' || SQLCODE || ' ' || SQLERRM);
3015: END create_vendor_site;
3016:
3149: AND supp.party_site_orig_sys_reference =
3150: party.site_orig_system_reference
3151: AND party.interface_status = 'R');
3152:
3153: fnd_file.put_line(fnd_file.log,
3154: ' Message: Inside PROCEDURE IMPORT_VENDOR_SITES' ||
3155: ' Not imported(marked REMOVED) : ' || SQL%ROWCOUNT ||
3156: ' records. Reason interface_status in hz_imp_addresses_int = R');
3157:
3170: WHERE status = 'REMOVED'
3171: AND import_request_id = l_request_id
3172: AND sdh_batch_id = p_batch_id);
3173:
3174: fnd_file.put_line(fnd_file.log,
3175: ' Message: Inside PROCEDURE IMPORT_VENDOR_SITES' ||
3176: ' Parameters: ' || ' p_batch_id: ' || p_batch_id ||
3177: ' request_id: ' || l_request_id);
3178: COMMIT;
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 ||
3244: ' party_id: ' || l_party_id);
3247: ELSE
3248: site_rec.vendor_id := site_int_rec.vendor_id;
3249: END IF;
3250:
3251: fnd_file.put_line(fnd_file.log,
3252: ' Message: Inside PROCEDURE IMPORT_VENDOR_SITES' ||
3253: ' vendor_site_interface_id: ' ||
3254: site_rec.vendor_site_interface_id || ' party_id: ' ||
3255: l_party_id || ' vendor_id: ' || site_rec.vendor_id);
3456: WHEN OTHERS THEN
3457: l_insert_update_flag := 'O';
3458: END;
3459:
3460: fnd_file.put_line(fnd_file.log,
3461: ' Message: Inside PROCEDURE IMPORT_VENDOR_SITES' ||
3462: ' Parameters insert_update_flag: ' ||
3463: l_insert_update_flag ||
3464: ' for vendor_site_interface_id: ' ||
3485: -- If the vendor exists then update it
3486: IF l_vendor_site_exists <> 0 THEN
3487: l_vendor_site_exists := 0;
3488:
3489: fnd_file.put_line(fnd_file.log,
3490: ' Message: Inside PROCEDURE IMPORT_VENDOR_SITES' ||
3491: ' As vendor site exists calling' ||
3492: ' ap_vendor_pub_pkg.update_vendor_site for vendor_site_id: ' ||
3493: l_vendor_site_id);
3560: ', Message From update_vendor_site API: ' ||
3561: l_msg_data);
3562: END IF;
3563:
3564: fnd_file.put_line(fnd_file.log,
3565: ' Message: Inside PROCEDURE IMPORT_VENDOR_SITES' ||
3566: ' failed in ap_vendor_pub_pkg.update_vendor_site ' ||
3567: ' vendor_site_interface_id: ' ||
3568: site_rec.vendor_site_interface_id ||
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 ' ||
3610: ' Message: ' || SQLCODE || ' ' || SQLERRM);
3611: WHEN fnd_api.g_exc_unexpected_error THEN
3612: ROLLBACK TO import_vendor_sites_pub;
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 ' ||
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,
3626: ' Inside import_vendor_sites others EXCEPTION ' ||
3627: ' Message: ' || SQLCODE || ' ' || SQLERRM);
3628: END import_vendor_sites;
3629:
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: ' ||
3666: p_vendor_contact_rec.vendor_id ||
3667: ' vendor_contact_interface_id: ' ||
3704: ', Message From Create_Vendor_Contact API: ' ||
3705: l_msg_data);
3706: END IF;
3707:
3708: fnd_file.put_line(fnd_file.log,
3709: ' Rejected Vendor_Contact_Interface_Id: ' ||
3710: p_vendor_contact_rec.vendor_contact_interface_id ||
3711: ', No. of Messages from Create_Vendor_Contact API: ' ||
3712: l_msg_count ||
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,
3727: ' Inside create_vendor_contact EXCEPTION ' ||
3728: ' Message: ' || SQLCODE || ' ' || SQLERRM);
3729: END create_vendor_contact;
3730:
3854: AND supp.contact_orig_system_reference =
3855: party.contact_orig_system_reference
3856: AND party.interface_status = 'R');
3857:
3858: fnd_file.put_line(fnd_file.log,
3859: ' Message: Inside PROCEDURE IMPORT_VENDOR_CONTACTS' ||
3860: ' Not imported(marked REMOVED) : ' || SQL%ROWCOUNT ||
3861: ' records. Reason interface_status in hz_imp_contacts_int = R');
3862:
3875: WHERE status = 'REMOVED'
3876: AND import_request_id = l_request_id
3877: AND sdh_batch_id = p_batch_id);
3878:
3879: fnd_file.put_line(fnd_file.log,
3880: ' Message: Inside PROCEDURE IMPORT_VENDOR_CONTACTS' ||
3881: ' Parameters: ' || ' p_batch_id: ' || p_batch_id ||
3882: ' request_id: ' || l_request_id);
3883: COMMIT;
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 ||
3963: ' party_id: ' || contact_int_rec.party_id);
3966: ELSE
3967: vendor_contact_rec.vendor_id := contact_int_rec.vendor_id;
3968: END IF;
3969:
3970: fnd_file.put_line(fnd_file.log,
3971: ' Message: Inside PROCEDURE IMPORT_VENDOR_CONTACTS' ||
3972: ' vendor_contact_interface_id: ' ||
3973: vendor_contact_rec.vendor_contact_interface_id ||
3974: ' party_id: ' || contact_int_rec.party_id ||
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);
4027: GOTO continue_next_record;
4028: END;
4029: END IF;
4030: END IF;
4031:
4032: fnd_file.put_line(fnd_file.log,
4033: ' vendor_contact_rec.org_party_site_id: ' ||
4034: vendor_contact_rec.org_party_site_id ||
4035: ' for vendor_contact_interface_id: ' ||
4036: vendor_contact_rec.vendor_contact_interface_id);
4062: x_msg_count => l_msg_count,
4063: x_msg_data => l_msg_data,
4064: p_department => vendor_contact_rec.department);
4065:
4066: fnd_file.put_line(fnd_file.log,
4067: 'Before calling pos_supplier_address_pkg.assign_address_to_contact' ||
4068: ' vendor_contact_rec.per_party_id: ' ||
4069: vendor_contact_rec.per_party_id ||
4070: ' vendor_contact_rec.org_party_site_id: ' ||
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);
4130: GOTO continue_next_record;
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);
4186: GOTO continue_next_record;
4232: contacts_imported = contacts_imported + 1
4233: WHERE batch_id = p_batch_id;
4234: END IF;
4235: ELSE
4236: fnd_file.put_line(fnd_file.log,
4237: 'Record Rejected :' ||
4238: vendor_contact_rec.vendor_contact_interface_id);
4239: UPDATE ap_sup_site_contact_int
4240: SET status = 'REJECTED'
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 ' ||
4295: ' Message: ' || SQLCODE || ' ' || SQLERRM);
4296: WHEN fnd_api.g_exc_unexpected_error THEN
4297: ROLLBACK TO import_vendor_contact_pub;
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 ' ||
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,
4311: ' Inside import_vendor_contacts others EXCEPTION ' ||
4312: ' Message: ' || SQLCODE || ' ' || SQLERRM);
4313: END import_vendor_contacts;
4314:
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' ||
4357: ' Parameters: ' || ' batch_id: ' || p_batch_id ||
4358: ' party_id: ' || p_party_id);
4359:
4365: x_product_segment_count => l_product_segment_count,
4366: x_default_po_category_set_id => l_default_po_category_set_id,
4367: x_delimiter => l_delimiter);
4368:
4369: fnd_file.put_line(fnd_file.log,
4370: ' Output from pos_product_service_utl_pkg.get_product_meta_data: ' ||
4371: ' product_segment_definition: ' ||
4372: l_product_segment_definition ||
4373: ' product_segment_count: ' || l_product_segment_count);
4397: p_vendor_prodsrv_rec.ps_interface_id ||
4398: ' Acct Validation Msg: ' || l_msg_data);
4399: END IF;
4400: END IF;
4401: fnd_file.put_line(fnd_file.log,
4402: ' Invalid Segment definition for: ' ||
4403: ' ps_interface_id: ' ||
4404: p_vendor_prodsrv_rec.ps_interface_id ||
4405: ', segment_definition: ' ||
4514: p_vendor_prodsrv_rec.ps_interface_id ||
4515: ' Acct Validation Msg: ' || l_msg_data);
4516: END IF;
4517: END IF;
4518: fnd_file.put_line(fnd_file.log,
4519: ' Invalid Segment count for: ' ||
4520: ' ps_interface_id: ' ||
4521: p_vendor_prodsrv_rec.ps_interface_id ||
4522: ', segment_concat: ' || l_segment_concat);
4567: p_vendor_prodsrv_rec.ps_interface_id ||
4568: ' Acct Validation Msg: ' || l_msg_data);
4569: END IF;
4570: END IF;
4571: fnd_file.put_line(fnd_file.log,
4572: ' Invalid category id for: ' ||
4573: ' ps_interface_id: ' ||
4574: p_vendor_prodsrv_rec.ps_interface_id ||
4575: ', concatenated_segments: ' ||
4599: p_vendor_prodsrv_rec.ps_interface_id ||
4600: ' Acct Validation Msg: ' || l_msg_data);
4601: END IF;
4602: END IF;
4603: fnd_file.put_line(fnd_file.log,
4604: ' Invalid category id for: ' ||
4605: ' ps_interface_id: ' ||
4606: p_vendor_prodsrv_rec.ps_interface_id ||
4607: ', category_id: ' || l_category_id);
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,
4622: ' Inside validate_vendor_prods_services EXCEPTION ' ||
4623: ' Message: ' || SQLCODE || ' ' || SQLERRM);
4624: END validate_vendor_prods_services;
4625:
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 ||
4651: ' party_id: ' || p_party_id);
4652:
4703: FROM pos_supplier_mappings
4704: WHERE vendor_id = p_vendor_prodsrv_rec.vendor_id
4705: AND party_id = p_party_id;
4706:
4707: fnd_file.put_line(fnd_file.log,
4708: ' Message: Inside PROCEDURE CREATE_VENDOR_PRODS_SERVICES' ||
4709: ' request_status: ' ||
4710: p_vendor_prodsrv_rec.request_status ||
4711: ' mapping_id: ' || l_mapping_id ||
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 ' ||
4747: ' Message: ' || SQLCODE || ' ' || SQLERRM);
4748: WHEN fnd_api.g_exc_unexpected_error THEN
4749: x_return_status := fnd_api.g_ret_sts_unexp_error;
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 ' ||
4754: ' Message: ' || SQLCODE || ' ' || SQLERRM);
4755: WHEN OTHERS THEN
4756: x_return_status := fnd_api.g_ret_sts_unexp_error;
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,
4761: ' Inside create_vendor_prods_services others EXCEPTION ' ||
4762: ' Message: ' || SQLCODE || ' ' || SQLERRM);
4763: END create_vendor_prods_services;
4764:
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 ||
4823: ' request_id: ' || l_request_id);
4824:
4855: AND supp.source_system_reference =
4856: party.party_orig_system_reference
4857: AND party.interface_status = 'R');
4858:
4859: fnd_file.put_line(fnd_file.log,
4860: ' Message: Inside PROCEDURE IMPORT_VENDOR_PRODS_SERVICES' ||
4861: ' Not imported(marked REMOVED) : ' || SQL%ROWCOUNT ||
4862: ' records. Reason interface_status in hz_imp_parties_int = R');
4863:
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);
4971: GOTO continue_next_record;
4973: ELSE
4974: vendor_prod_srv_rec.vendor_id := vendor_int_prod_srv_rec.vendor_id;
4975: END IF;
4976:
4977: fnd_file.put_line(fnd_file.log,
4978: ' Message: Inside PROCEDURE IMPORT_VENDOR_PRODS_SERVICES' ||
4979: ' ps_interface_id: ' ||
4980: vendor_prod_srv_rec.ps_interface_id ||
4981: ' party_id: ' || l_party_id || ' vendor_id: ' ||
4988: WHERE vendor_id = vendor_prod_srv_rec.vendor_id
4989: AND party_id = l_party_id;
4990:
4991: --Bug 13399285 - ora-00923 error, need to replace the '.' to global flexfield setup l_delimiter
4992: fnd_file.put_line(fnd_file.log, 'l_mapping_id: ' || l_mapping_id);
4993: --Bug 13704624 - update status for products and services not working, need to get l_delimiter value first
4994: pos_product_service_utl_pkg.initialize(x_status => l_status,
4995: x_error_message => l_error_message);
4996:
5062: l_delimiter)
5063: INTO l_segment_concat
5064: FROM dual;
5065:
5066: fnd_file.put_line(fnd_file.log,
5067: 'l_segment_concat: ' || l_segment_concat);
5068: fnd_file.put_line(fnd_file.log,
5069: 'l_delimiter: ' || l_delimiter);
5070:
5064: FROM dual;
5065:
5066: fnd_file.put_line(fnd_file.log,
5067: 'l_segment_concat: ' || l_segment_concat);
5068: fnd_file.put_line(fnd_file.log,
5069: 'l_delimiter: ' || l_delimiter);
5070:
5071: l_req_id := pos_product_service_utl_pkg.get_requestid(x_segment_code => l_segment_concat,
5072: x_mapp_id => l_mapping_id);
5069: 'l_delimiter: ' || l_delimiter);
5070:
5071: l_req_id := pos_product_service_utl_pkg.get_requestid(x_segment_code => l_segment_concat,
5072: x_mapp_id => l_mapping_id);
5073: fnd_file.put_line(fnd_file.log,
5074: 'l_req_id: ' || l_req_id);
5075:
5076: EXCEPTION
5077: WHEN OTHERS THEN
5080:
5081: BEGIN
5082: l_class_id := pos_product_service_utl_pkg.get_classid(x_segment_code => l_segment_concat,
5083: x_vendor_id => vendor_prod_srv_rec.vendor_id);
5084: fnd_file.put_line(fnd_file.log,
5085: 'l_class_id: ' || l_class_id);
5086: EXCEPTION
5087: WHEN OTHERS THEN
5088: l_class_id := 0;
5095: vendor_int_prod_srv_rec.insert_update_flag := nvl(vendor_int_prod_srv_rec.insert_update_flag,
5096: 'U');
5097: END IF;
5098:
5099: fnd_file.put_line(fnd_file.log,
5100: ' Message: Inside PROCEDURE IMPORT_VENDOR_PRODS_SERVICES' ||
5101: ' ps_interface_id: ' ||
5102: vendor_prod_srv_rec.ps_interface_id ||
5103: ' classification_id: ' || l_class_id ||
5212: END IF;
5213:
5214: END IF;
5215: ELSIF (vendor_int_prod_srv_rec.request_status) = 'REMOVED' THEN
5216: fnd_file.put_line(fnd_file.log,
5217: 'l_req_id for removed: ' || l_req_id);
5218: fnd_file.put_line(fnd_file.log,
5219: 'l_class_id for removed: ' || l_class_id);
5220: IF (l_req_id <> 0) THEN
5214: END IF;
5215: ELSIF (vendor_int_prod_srv_rec.request_status) = 'REMOVED' THEN
5216: fnd_file.put_line(fnd_file.log,
5217: 'l_req_id for removed: ' || l_req_id);
5218: fnd_file.put_line(fnd_file.log,
5219: 'l_class_id for removed: ' || l_class_id);
5220: IF (l_req_id <> 0) THEN
5221: l_req_id_tab.extend;
5222: l_req_id_tab(1) := l_req_id;
5234: x_msg_count => l_msg_count,
5235: x_msg_data => l_msg_data);
5236: END IF;
5237: ELSE
5238: fnd_file.put_line(fnd_file.log,'l_req_id for removed(l_req_id =0 flow): ' || l_req_id);
5239: fnd_file.put_line(fnd_file.log, 'l_class_id for removed(l_req_id =0 flow): ' || l_class_id);
5240: IF (l_class_id <>0) THEN
5241: l_req_id_tab.extend;
5242: l_req_id_tab(1) := l_class_id;
5235: x_msg_data => l_msg_data);
5236: END IF;
5237: ELSE
5238: fnd_file.put_line(fnd_file.log,'l_req_id for removed(l_req_id =0 flow): ' || l_req_id);
5239: fnd_file.put_line(fnd_file.log, 'l_class_id for removed(l_req_id =0 flow): ' || l_class_id);
5240: IF (l_class_id <>0) THEN
5241: l_req_id_tab.extend;
5242: l_req_id_tab(1) := l_class_id;
5243: pos_product_service_utl_pkg.update_main_ps_req(p_req_id_tbl => l_req_id_tab,
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 ' ||
5306: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5307: WHEN fnd_api.g_exc_unexpected_error THEN
5308: x_return_status := fnd_api.g_ret_sts_unexp_error;
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 ' ||
5313: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5314: WHEN OTHERS THEN
5315: x_return_status := fnd_api.g_ret_sts_unexp_error;
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,
5320: ' Inside import_vendor_prods_services others EXCEPTION ' ||
5321: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5322: END import_vendor_prods_services;
5323:
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,
5347: ' Message: Inside PROCEDURE VALIDATE_VENDOR_BUSS_CLASS' ||
5348: ' Parameters: ' || ' batch_id: ' || p_batch_id ||
5349: ' party_id: ' || p_party_id || ' lookup_type: ' ||
5350: p_vendor_buss_class_rec.lookup_type ||
5387: p_vendor_buss_class_rec.business_class_interface_id ||
5388: ' Acct Validation Msg: ' || l_msg_data);
5389: END IF;
5390: END IF;
5391: fnd_file.put_line(fnd_file.log,
5392: ' Invalid Lookup Code for: ' ||
5393: ' business_class_interface_id: ' ||
5394: p_vendor_buss_class_rec.business_class_interface_id ||
5395: ' lookup_code: ' ||
5432: p_vendor_buss_class_rec.business_class_interface_id ||
5433: ' Acct Validation Msg: ' || l_msg_data);
5434: END IF;
5435: END IF;
5436: fnd_file.put_line(fnd_file.log,
5437: ' Invalid Lookup Code for MINORITY_OWNED : ' ||
5438: ' business_class_interface_id: ' ||
5439: p_vendor_buss_class_rec.business_class_interface_id);
5440: RETURN;
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,
5451: ' Inside validate_vendor_buss_class EXCEPTION ' ||
5452: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5453: END validate_vendor_buss_class;
5454:
5503: END;
5504:
5505: -- Call the API to syncronise data with TCA pasing party_id and vendor_id
5506: BEGIN
5507: fnd_file.put_line(fnd_file.log,
5508: 'API to syncronise data with TCA pasing party_id and vendor_id');
5509: pos_supp_classification_pkg.synchronize_class_tca_to_po(p_party_id,
5510: p_vendor_buss_class_rec.vendor_id);
5511: END;
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 ' ||
5525: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5526: WHEN fnd_api.g_exc_unexpected_error THEN
5527: x_return_status := fnd_api.g_ret_sts_unexp_error;
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 ' ||
5532: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5533: WHEN OTHERS THEN
5534: x_return_status := fnd_api.g_ret_sts_unexp_error;
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,
5539: ' Inside create_vendor_buss_class others EXCEPTION ' ||
5540: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5541: END create_vendor_buss_class;
5542:
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 ||
5591: ' request_id: ' || l_request_id);
5592:
5623: AND supp.source_system_reference =
5624: party.party_orig_system_reference
5625: AND party.interface_status = 'R');
5626:
5627: fnd_file.put_line(fnd_file.log,
5628: ' Message: Inside PROCEDURE IMPORT_VENDOR_BUSS_CLASS' ||
5629: ' Not imported(marked REMOVED) : ' || SQL%ROWCOUNT ||
5630: ' records. Reason interface_status in hz_imp_parties_int = R');
5631:
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);
5730: GOTO continue_next_record;
5732: ELSE
5733: vendor_buss_class_rec.vendor_id := vendor_int_buss_class_rec.vendor_id;
5734: END IF;
5735:
5736: fnd_file.put_line(fnd_file.log,
5737: ' Message: Inside PROCEDURE IMPORT_VENDOR_BUSS_CLASS' ||
5738: ' business_class_interface_id: ' ||
5739: vendor_buss_class_rec.business_class_interface_id ||
5740: ' party_id: ' || l_party_id || ' vendor_id: ' ||
5778: vendor_int_buss_class_rec.insert_update_flag := nvl(vendor_int_buss_class_rec.insert_update_flag,
5779: 'U');
5780: END IF;
5781:
5782: fnd_file.put_line(fnd_file.log,
5783: ' Message: Inside PROCEDURE IMPORT_VENDOR_BUSS_CLASS' ||
5784: ' business_class_interface_id: ' ||
5785: vendor_buss_class_rec.business_class_interface_id ||
5786: ' classification_id: ' || l_classification_id ||
5863: x_status => l_return_status,
5864: x_exception_msg => l_msg_data);
5865:
5866: BEGIN
5867: fnd_file.put_line(fnd_file.log,
5868: 'API to syncronise data with TCA pasing party_id and vendor_id');
5869: pos_supp_classification_pkg.synchronize_class_tca_to_po(l_party_id,
5870: vendor_buss_class_rec.vendor_id);
5871: END;
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 ' ||
5941: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5942: WHEN fnd_api.g_exc_unexpected_error THEN
5943: x_return_status := fnd_api.g_ret_sts_unexp_error;
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 ' ||
5948: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5949: WHEN OTHERS THEN
5950: x_return_status := fnd_api.g_ret_sts_unexp_error;
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,
5955: ' Inside import_vendor_buss_class others EXCEPTION ' ||
5956: ' Message: ' || SQLCODE || ' ' || SQLERRM);
5957: END import_vendor_buss_class;
5958:
5973: l_msg_count NUMBER;
5974: l_msg_data VARCHAR2(2000);
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';
5996: END;
5997:
5998: -- Validate the rounding Level using the following query
5999: IF (p_tax_profile_rec.rounding_level_code IS NOT NULL) THEN
6000: fnd_file.put_line(fnd_file.log, ' Validating rounding level');
6001: BEGIN
6002: SELECT fndlookup.lookup_code
6003: INTO l_dummy_lookup
6004: FROM fnd_lookups fndlookup
6030: g_module_name || l_api_name,
6031: ' Acct Validation Msg: ' || l_msg_data);
6032: END IF;
6033: END IF;
6034: fnd_file.put_line(fnd_file.log,
6035: ' Invalid rounding level for: ' ||
6036: ' p_tax_profile_rec.rounding_level_code: ' ||
6037: p_tax_profile_rec.rounding_level_code);
6038: RETURN;
6040: END IF;
6041:
6042: IF (p_tax_profile_rec.rounding_rule_code IS NOT NULL) THEN
6043: -- Validate the rounding Rule using the following query
6044: fnd_file.put_line(fnd_file.log, ' Validating rounding rule');
6045: BEGIN
6046: SELECT fndlookup.lookup_code
6047: INTO l_dummy_lookup
6048: FROM fnd_lookups fndlookup
6074: g_module_name || l_api_name,
6075: 'Msg: ' || l_msg_data);
6076: END IF;
6077: END IF;
6078: fnd_file.put_line(fnd_file.log,
6079: ' Invalid rounding rule for: ' ||
6080: ' p_tax_profile_rec.rounding_rule_code: ' ||
6081: p_tax_profile_rec.rounding_rule_code);
6082: RETURN;
6084: END IF;
6085:
6086: IF (p_tax_profile_rec.country_name IS NOT NULL) THEN
6087: -- Validate the Country Name using the following query
6088: fnd_file.put_line(fnd_file.log, ' Validating Country name');
6089: BEGIN
6090: SELECT territory_code
6091: INTO x_country_code
6092: FROM fnd_territories_vl
6114: g_module_name || l_api_name,
6115: 'Msg: ' || l_msg_data);
6116: END IF;
6117: END IF;
6118: fnd_file.put_line(fnd_file.log,
6119: ' Invalid country name for: ' ||
6120: ' p_tax_profile_rec.country_name: ' ||
6121: p_tax_profile_rec.country_name);
6122: RETURN;
6124: END IF;
6125:
6126: IF (p_tax_profile_rec.registration_type_code IS NOT NULL) THEN
6127: -- Validate the Registration Type Code using the following query
6128: fnd_file.put_line(fnd_file.log, ' Validating registration type');
6129: BEGIN
6130: SELECT fndlookup.lookup_code
6131: INTO l_dummy_lookup
6132: FROM fnd_lookups fndlookup
6158: g_module_name || l_api_name,
6159: 'Msg: ' || l_msg_data);
6160: END IF;
6161: END IF;
6162: fnd_file.put_line(fnd_file.log,
6163: ' Invalid Registration Type Code for: ' ||
6164: ' p_tax_profile_rec.registration_type_code: ' ||
6165: p_tax_profile_rec.registration_type_code);
6166: RETURN;
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 ' ||
6178: ' Message: ' || SQLCODE || ' ' || SQLERRM);
6179: END validate_tax_profile;
6180:
6206: x_tax_prof_valid => l_tax_prof_valid,
6207: x_party_tax_profile_id => l_party_tax_profile_id,
6208: x_country_code => l_country_code);
6209:
6210: fnd_file.put_line(fnd_file.log,
6211: ' p_rounding_level_code: ' ||
6212: p_tax_profile_rec.rounding_level_code ||
6213: ' p_rounding_rule_code: ' ||
6214: p_tax_profile_rec.rounding_rule_code);
6215:
6216: IF (l_tax_prof_valid = 'Y') THEN
6217:
6218: IF (p_tax_profile_rec.insert_update_flag = 'U') THEN
6219: fnd_file.put_line(fnd_file.log, ' Updating Tax profile');
6220: zx_party_tax_profile_pkg.update_row(p_party_tax_profile_id => l_party_tax_profile_id,
6221: p_collecting_authority_flag => NULL,
6222: p_provider_type_code => NULL,
6223: p_create_awt_dists_type_code => NULL,
6267:
6268: x_tax_profile_id := l_party_tax_profile_id;
6269: ELSE
6270: -- Insert
6271: fnd_file.put_line(fnd_file.log, ' Creating Tax profile');
6272: zx_party_tax_profile_pkg.insert_row(p_collecting_authority_flag => NULL,
6273: p_provider_type_code => NULL,
6274: p_create_awt_dists_type_code => NULL,
6275: p_create_awt_invoices_type_cod => NULL,
6332: ELSE
6333: x_return_status := l_return_status;
6334: x_msg_data := l_msg_data;
6335: x_msg_count := l_msg_count;
6336: fnd_file.put_line(fnd_file.log,
6337: ' Tax profile validation failed for: ' ||
6338: ' tax_profile_interface_id: ' ||
6339: p_tax_profile_rec.tax_profile_interface_id);
6340: END IF;
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,
6349: ' Inside create_tax_profile EXCEPTION ' ||
6350: ' Message: ' || SQLCODE || ' ' || SQLERRM);
6351: END create_tax_profile;
6352:
6374: l_msg_count NUMBER;
6375: l_msg_data VARCHAR2(2000);
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
6385: IF (p_tax_reg_rec.registration_type_code IS NOT NULL) THEN
6386: BEGIN
6387: fnd_file.put_line(fnd_file.log,
6388: ' Validating tax registration type');
6389: SELECT fndlookup.lookup_code
6390: INTO l_dummy_lookup
6391: FROM fnd_lookups fndlookup
6417: g_module_name || l_api_name,
6418: 'Msg: ' || l_msg_data);
6419: END IF;
6420: END IF;
6421: fnd_file.put_line(fnd_file.log,
6422: ' Invalid Tax Registration Type for: ' ||
6423: ' p_tax_reg_rec.registration_type_code: ' ||
6424: p_tax_reg_rec.registration_type_code);
6425: RETURN;
6427: END IF;
6428:
6429: -- Validate the Tax Registration Status using the following query
6430: IF (p_tax_reg_rec.registration_status_code IS NOT NULL) THEN
6431: fnd_file.put_line(fnd_file.log,
6432: ' Validating tax registration status');
6433: BEGIN
6434: SELECT fndlookup.lookup_code
6435: INTO l_dummy_lookup
6462: g_module_name || l_api_name,
6463: 'Msg: ' || l_msg_data);
6464: END IF;
6465: END IF;
6466: fnd_file.put_line(fnd_file.log,
6467: ' Invalid Tax Registration Status for: ' ||
6468: ' p_tax_reg_rec.registration_status_code: ' ||
6469: p_tax_reg_rec.registration_status_code);
6470: RETURN;
6472: END IF;
6473:
6474: IF (p_tax_reg_rec.registration_address IS NOT NULL) THEN
6475: -- Validate the Local Reg Address using the following query
6476: fnd_file.put_line(fnd_file.log,
6477: ' Validating Tax registration address');
6478: BEGIN
6479: SELECT loc.location_id
6480: INTO l_dummy_location
6508: g_module_name || l_api_name,
6509: 'Msg: ' || l_msg_data);
6510: END IF;
6511: END IF;
6512: fnd_file.put_line(fnd_file.log,
6513: ' Invalid Local Reg Address for: ' ||
6514: ' p_tax_reg_rec.registration_address: ' ||
6515: p_tax_reg_rec.registration_address);
6516: RETURN;
6518: END IF;
6519:
6520: IF (p_tax_reg_rec.registration_reason_code IS NOT NULL) THEN
6521: -- Validate the Tax Registration Reason using the following query
6522: fnd_file.put_line(fnd_file.log,
6523: ' Validating tax registration reason code');
6524: BEGIN
6525: SELECT fndlookup.lookup_code
6526: INTO l_dummy_lookup
6553: g_module_name || l_api_name,
6554: 'Msg: ' || l_msg_data);
6555: END IF;
6556: END IF;
6557: fnd_file.put_line(fnd_file.log,
6558: ' Invalid Tax Registration Reason for: ' ||
6559: ' p_tax_reg_rec.registration_reason_code: ' ||
6560: p_tax_reg_rec.registration_reason_code);
6561: RETURN;
6563: END IF;
6564:
6565: IF (p_tax_reg_rec.registration_source_code IS NOT NULL) THEN
6566: -- Validate the Tax Registration Source using the following query
6567: fnd_file.put_line(fnd_file.log,
6568: ' Validating tax registration source code');
6569: BEGIN
6570: SELECT fndlookup.lookup_code
6571: INTO l_dummy_lookup
6598: g_module_name || l_api_name,
6599: 'Msg: ' || l_msg_data);
6600: END IF;
6601: END IF;
6602: fnd_file.put_line(fnd_file.log,
6603: ' Invalid Tax Registration Source for: ' ||
6604: ' p_tax_reg_rec.registration_source_code: ' ||
6605: p_tax_reg_rec.registration_source_code);
6606: RETURN;
6608: END IF;
6609:
6610: IF (p_tax_reg_rec.rounding_rule_code IS NOT NULL) THEN
6611: -- Validate the Tax Registration Rounding rule using the following query
6612: fnd_file.put_line(fnd_file.log,
6613: ' Validating tax registration rounding rule code');
6614: BEGIN
6615: SELECT fndlookup.lookup_code
6616: INTO l_dummy_lookup
6643: g_module_name || l_api_name,
6644: 'Msg: ' || l_msg_data);
6645: END IF;
6646: END IF;
6647: fnd_file.put_line(fnd_file.log,
6648: ' Invalid Tax Registration Rounding rule for: ' ||
6649: ' p_tax_reg_rec.rounding_rule_code: ' ||
6650: p_tax_reg_rec.rounding_rule_code);
6651: RETURN;
6654:
6655: -- get TAX_AUTHORITY party id
6656: IF (p_tax_reg_rec.tax_authority_party_id IS NULL AND
6657: p_tax_reg_rec.tax_authority_name IS NOT NULL) THEN
6658: fnd_file.put_line(fnd_file.log, ' Getting tax authority party id');
6659: BEGIN
6660: SELECT prof.party_id
6661: INTO l_tax_authority_party_id
6662: FROM zx_party_tax_profile prof,
6688: g_module_name || l_api_name,
6689: 'Msg: ' || l_msg_data);
6690: END IF;
6691: END IF;
6692: fnd_file.put_line(fnd_file.log,
6693: ' Invalid Tax Authority Name rule for: ' ||
6694: ' p_tax_reg_rec.tax_authority_name: ' ||
6695: p_tax_reg_rec.tax_authority_name);
6696: RETURN;
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 ' ||
6708: ' Message: ' || SQLCODE || ' ' || SQLERRM);
6709: END validate_tax_registration;
6710:
6724: l_valid VARCHAR2(100);
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,
6737: x_registration_loc_id => l_location_id,
6738: x_tax_authority_party_id => l_tax_authority_party_id);
6739:
6740: IF (l_valid = 'Y') THEN
6741: fnd_file.put_line(fnd_file.log,
6742: ' Calling zx_registrations_pkg.insert_row');
6743:
6744: zx_registrations_pkg.insert_row(p_request_id => NULL,
6745: p_attribute1 => NULL,
6820: g_module_name || 'Create_Tax_Registration',
6821: 'Msg: ' || l_msg_data);
6822: END IF;
6823: END IF;
6824: fnd_file.put_line(fnd_file.log,
6825: ' Tax Registration validation/creation failed for: ' ||
6826: ' tax_reg_interface_id: ' ||
6827: p_tax_registration_rec.tax_reg_interface_id);
6828: END IF;
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 ' ||
6836: ' Message: ' || SQLCODE || ' ' || SQLERRM);
6837: END create_tax_registration;
6838:
6853: l_valid VARCHAR2(100);
6854: l_tax_authority_party_id NUMBER;
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,
6867: x_registration_loc_id => l_location_id,
6868: x_tax_authority_party_id => l_tax_authority_party_id);
6869:
6870: IF (l_valid = 'Y') THEN
6871: fnd_file.put_line(fnd_file.log,
6872: ' Calling zx_registrations_pkg.update_row');
6873:
6874: zx_registrations_pkg.update_row(p_registration_id => p_registration_id,
6875: p_request_id => NULL,
6948: g_module_name || 'UPDATE_TAX_REGISTRATION',
6949: 'Msg: ' || l_msg_data);
6950: END IF;
6951: END IF;
6952: fnd_file.put_line(fnd_file.log,
6953: ' Tax Registration validation/updation failed for: ' ||
6954: ' tax_reg_interface_id: ' ||
6955: p_tax_registration_rec.tax_reg_interface_id);
6956: END IF;
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 ' ||
6965: ' Message: ' || SQLCODE || ' ' || SQLERRM);
6966: END update_tax_registration;
6967:
6987: l_msg_count NUMBER;
6988: l_msg_data VARCHAR2(2000);
6989: l_api_name CONSTANT VARCHAR2(50) := 'VALIDATE_VENDOR_PRODS_SERVICES';
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:
7031: p_fiscal_class_rec.classification_type_code_name ||
7032: ' Acct Validation Msg: ' || l_msg_data);
7033: END IF;
7034: END IF;
7035: fnd_file.put_line(fnd_file.log,
7036: ' Invalid Fiscal Classification Type for: ' ||
7037: ' p_fiscal_class_rec.classification_type_code_name: ' ||
7038: p_fiscal_class_rec.classification_type_code_name);
7039: RETURN;
7075: p_fiscal_class_rec.classification_type_code_name ||
7076: ' Acct Validation Msg: ' || l_msg_data);
7077: END IF;
7078: END IF;
7079: fnd_file.put_line(fnd_file.log,
7080: ' Invalid Fiscal Classification Code for: ' ||
7081: ' p_fiscal_class_rec.classification_type_code_name: ' ||
7082: p_fiscal_class_rec.classification_type_code_name);
7083: RETURN;
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 ' ||
7092: ' Message: ' || SQLCODE || ' ' || SQLERRM);
7093: END validate_fiscal_classification;
7094:
7107: l_msg_count NUMBER;
7108: l_msg_data VARCHAR2(1000);
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,
7120: x_valid => l_valid,
7121: x_classification_type => l_classification_type,
7122: x_classification_code => l_classification_code);
7123:
7124: fnd_file.put_line(fnd_file.log,
7125: 'validate_fiscal_classification l_valid: ' || l_valid ||
7126: 'l_return_status' || l_return_status);
7127:
7128: IF (l_valid = 'Y') THEN
7182: g_module_name || 'Create_Tax_Registration',
7183: 'Msg: ' || l_msg_data);
7184: END IF;
7185: END IF;*/
7186: fnd_file.put_line(fnd_file.log,
7187: ' Fiscal Classification validation/creation failed for: ' ||
7188: ' fiscal_class_interface_id: ' ||
7189: p_fiscal_class_rec.fiscal_class_interface_id);
7190: END IF;
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 ' ||
7198: ' Message: ' || SQLCODE || ' ' || SQLERRM);
7199: END create_fiscal_classification;
7200:
7214: l_msg_data VARCHAR2(1000);
7215: l_code_assignment_id NUMBER;
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,
7302: g_module_name || 'Create_Tax_Registration',
7303: 'Msg: ' || l_msg_data);
7304: END IF;
7305: END IF;*/
7306: fnd_file.put_line(fnd_file.log,
7307: ' Fiscal Classification validation/updation failed for: ' ||
7308: ' fiscal_class_interface_id: ' ||
7309: p_fiscal_class_rec.fiscal_class_interface_id);
7310: END IF;
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 ' ||
7319: ' Message: ' || SQLCODE || ' ' || SQLERRM);
7320: END update_fiscal_classification;
7321:
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 ||
7402: ' request_id: ' || l_request_id);
7403:
7466: AND supp.source_system_reference =
7467: party.party_orig_system_reference
7468: AND party.interface_status = 'R');
7469:
7470: fnd_file.put_line(fnd_file.log,
7471: ' Message: Inside PROCEDURE IMPORT_VENDOR_TAX_DTLS' ||
7472: ' Not imported(marked REMOVED) : ' || SQL%ROWCOUNT ||
7473: ' records from table pos_party_tax_profile_int. Reason interface_status in hz_imp_parties_int = R');
7474:
7501: AND supp.source_system_reference =
7502: party.party_orig_system_reference
7503: AND party.interface_status = 'R');
7504:
7505: fnd_file.put_line(fnd_file.log,
7506: ' Message: Inside PROCEDURE IMPORT_VENDOR_TAX_DTLS' ||
7507: ' Not imported(marked REMOVED) : ' || SQL%ROWCOUNT ||
7508: ' records from table pos_party_tax_reg_int. Reason interface_status in hz_imp_parties_int = R');
7509:
7536: AND supp.source_system_reference =
7537: party.party_orig_system_reference
7538: AND party.interface_status = 'R');
7539:
7540: fnd_file.put_line(fnd_file.log,
7541: ' Message: Inside PROCEDURE IMPORT_VENDOR_TAX_DTLS' ||
7542: ' Not imported(marked REMOVED) : ' || SQL%ROWCOUNT ||
7543: ' records from table pos_fiscal_class_int. Reason interface_status in hz_imp_parties_int = R');
7544:
7586: l_tax_profile_rec_tab(cntr).insert_update_flag := 'I';
7587: END;
7588: END IF;
7589:
7590: fnd_file.put_line(fnd_file.log,
7591: ' l_tax_profile_rec_tab(cntr).insert_update_flag: ' || l_tax_profile_rec_tab(cntr)
7592: .insert_update_flag);
7593:
7594: create_tax_profile(p_batch_id => p_batch_id,
7597: x_msg_count => x_msg_count,
7598: x_msg_data => x_msg_data,
7599: x_tax_profile_id => l_tax_profile_id);
7600:
7601: fnd_file.put_line(fnd_file.log,
7602: ' Message: Inside PROCEDURE import_vendor_tax_dtls' ||
7603: ' l_tax_profile_id: ' || l_tax_profile_id ||
7604: ' for tax_profile_interface_id: ' || l_tax_profile_rec_tab(cntr)
7605: .tax_profile_interface_id || ' x_return_status: ' ||
7691: ELSE
7692: l_party_id := l_tax_reg_rec_tab(cntr).party_id;
7693: END IF;
7694:
7695: fnd_file.put_line(fnd_file.log,
7696: ' l_tax_reg_rec_tab(cntr).party_id : ' || l_tax_reg_rec_tab(cntr)
7697: .party_id);
7698:
7699: IF (l_tax_reg_rec_tab(cntr).tax_profile_id IS NULL) THEN
7705: AND party_type_code = 'THIRD_PARTY';
7706:
7707: l_tax_reg_rec_tab(cntr).tax_profile_id := l_tax_profile_id;
7708:
7709: fnd_file.put_line(fnd_file.log,
7710: ' l_tax_reg_rec_tab(cntr).tax_profile_id : ' || l_tax_reg_rec_tab(cntr)
7711: .tax_profile_id);
7712:
7713: EXCEPTION
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;
7720: END;
7721: END IF;
7736: l_tax_reg_rec_tab(cntr).insert_update_flag := 'I';
7737: END;
7738: END IF;
7739:
7740: fnd_file.put_line(fnd_file.log,
7741: ' l_tax_reg_rec_tab(cntr).insert_update_flag: ' || l_tax_reg_rec_tab(cntr)
7742: .insert_update_flag);
7743:
7744: IF (l_tax_reg_rec_tab(cntr).insert_update_flag = 'U') THEN
7793: p_tax_registration_rec => l_tax_reg_rec_tab(cntr),
7794: x_return_status => x_return_status,
7795: x_msg_count => x_msg_count,
7796: x_msg_data => x_msg_data);
7797: fnd_file.put_line(fnd_file.log,
7798: ' create_tax_registration x_return_status: ' ||
7799: x_return_status);
7800:
7801: IF (x_return_status = 'S') THEN
7938: l_fiscal_class_rec_tab(cntr).insert_update_flag := 'I';
7939: END;
7940: END IF;
7941:
7942: fnd_file.put_line(fnd_file.log,
7943: ' l_fiscal_class_rec_tab(cntr).insert_update_flag: ' || l_fiscal_class_rec_tab(cntr)
7944: .insert_update_flag);
7945:
7946: IF (l_fiscal_class_rec_tab(cntr).insert_update_flag = 'I') 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,
8033: ' Inside import_vendor_tax_dtls EXCEPTION ' ||
8034: ' Message: ' || SQLCODE || ' ' || SQLERRM);
8035: END import_vendor_tax_dtls;
8036:
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 ||
8147: ' request_id: ' || l_request_id);
8148:
8195: AND supp.source_system_reference =
8196: party.party_orig_system_reference
8197: AND party.interface_status = 'R');
8198:
8199: fnd_file.put_line(fnd_file.log,
8200: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
8201: ' Not imported(marked REMOVED) : ' || SQL%ROWCOUNT ||
8202: ' records from table pos_bank_account_det_int. Reason interface_status in hz_imp_parties_int = R');
8203:
8230: AND supp.source_system_reference =
8231: party.party_orig_system_reference
8232: AND party.interface_status = 'R');
8233:
8234: fnd_file.put_line(fnd_file.log,
8235: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
8236: ' Not imported(marked REMOVED) : ' || SQL%ROWCOUNT ||
8237: ' records from table pos_bank_accnt_owners_int. Reason interface_status in hz_imp_parties_int = R');
8238:
8259: INTO bank_account_dtls_rec;
8260: EXIT WHEN bank_account_dtls_cur%NOTFOUND;
8261:
8262: -- Initializing the local variables
8263: fnd_file.put_line(fnd_file.log,
8264: ' Message: Inside import_vendor_bank_dtls initializing local variables ');
8265:
8266: l_bank_id := NULL;
8267: l_branch_id := NULL;
8334: bank_account_dtls_rec.bank_account_interface_id ||
8335: ' Check if the bank exists Msg: ' || l_msg_data);
8336: END IF;
8337: END IF;
8338: fnd_file.put_line(fnd_file.log,
8339: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
8340: ' failed in iby_ext_bankacct_pub.check_bank_exist ' ||
8341: ' Interface_Id: ' ||
8342: bank_account_dtls_rec.bank_account_interface_id ||
8351: l_new_bank_rec.country_code := bank_account_dtls_rec.country_code;
8352: l_new_bank_rec.bank_alt_name := bank_account_dtls_rec.alt_bank_name;
8353: l_new_bank_rec.description := bank_account_dtls_rec.bank_description;
8354:
8355: fnd_file.put_line(fnd_file.log,
8356: ' Message: After check_bank_exist' || ' Bank Id :' ||
8357: l_bank_id);
8358:
8359: IF (l_bank_id IS NULL) THEN
8357: l_bank_id);
8358:
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,
8372: x_msg_count := l_msg_count;
8373: x_msg_data := l_msg_data;
8374: ELSIF (l_bank_id IS NOT NULL) THEN
8375: -- Update
8376: fnd_file.put_line(fnd_file.log, ' Going for bank update');
8377: l_new_bank_rec.bank_id := l_bank_id;
8378:
8379: --getting the object version number
8380: SELECT object_version_number
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' ||
8402: ' Interface_Id: ' ||
8403: bank_account_dtls_rec.bank_account_interface_id ||
8431: bank_account_dtls_rec.bank_account_interface_id ||
8432: ' bank creation Msg: ' || l_msg_data);
8433: END IF;
8434: END IF;
8435: fnd_file.put_line(fnd_file.log,
8436: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
8437: ' failed in iby_ext_bankacct_pub.create/update_ext_bank ' ||
8438: ' Interface_Id: ' ||
8439: bank_account_dtls_rec.bank_account_interface_id ||
8442: GOTO continue_next_record;
8443: END IF;
8444:
8445: IF l_bank_id IS NOT NULL THEN
8446: fnd_file.put_line(fnd_file.log, ' Message: Bank Id :' || l_bank_id);
8447: -- Update the interface table with the
8448: -- bank_id that is obtained
8449: UPDATE pos_bank_account_det_int
8450: SET bank_id = l_bank_id
8584: bank_account_dtls_rec.bank_account_interface_id ||
8585: ' Update bank end date: ' || l_msg_data);
8586: END IF;
8587: END IF;
8588: fnd_file.put_line(fnd_file.log,
8589: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
8590: ' failed in iby_ext_bankacct_pub.set_bank_end_date ' ||
8591: ' Interface_Id: ' ||
8592: bank_account_dtls_rec.bank_account_interface_id ||
8641: bank_account_dtls_rec.bank_account_interface_id ||
8642: ' Update bank end date: ' || l_msg_data);
8643: END IF;
8644: END IF;
8645: fnd_file.put_line(fnd_file.log,
8646: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
8647: ' failed in iby_ext_bankacct_pub.check_ext_bank_branch_exist' ||
8648: ' Interface_Id: ' ||
8649: bank_account_dtls_rec.bank_account_interface_id ||
8660: l_new_branch_rec.description := bank_account_dtls_rec.branch_description;
8661: l_new_branch_rec.bic := bank_account_dtls_rec.bic;
8662: l_new_branch_rec.rfc_identifier := bank_account_dtls_rec.branch_rfc_identifier;
8663:
8664: fnd_file.put_line(fnd_file.log,
8665: ' Message: After check_branch_exist' ||
8666: ' Branch Id :' || l_branch_id);
8667:
8668: IF (l_branch_id IS NULL) THEN
8666: ' Branch Id :' || l_branch_id);
8667:
8668: IF (l_branch_id IS NULL) THEN
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,
8683: x_msg_data := l_msg_data;
8684: ELSIF (l_branch_id IS NOT NULL) THEN
8685: l_new_branch_rec.branch_party_id := l_branch_id;
8686:
8687: fnd_file.put_line(fnd_file.log,
8688: ' Message: Going for branch update');
8689:
8690: --getting the object version number
8691: /*SELECT object_version_number
8715: WHEN no_data_found THEN
8716: l_new_branch_rec.typ_object_version_number := 1;
8717: END;
8718:
8719: fnd_file.put_line(fnd_file.log,
8720: ' l_new_branch_rec.typ_object_version_number: ' ||
8721: l_new_branch_rec.typ_object_version_number);
8722:
8723: fnd_file.put_line(fnd_file.log,
8719: fnd_file.put_line(fnd_file.log,
8720: ' l_new_branch_rec.typ_object_version_number: ' ||
8721: l_new_branch_rec.typ_object_version_number);
8722:
8723: fnd_file.put_line(fnd_file.log,
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,
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' ||
8744: ' Interface_Id: ' ||
8745: bank_account_dtls_rec.bank_account_interface_id ||
8774: ' Update bank end date: ' || l_msg_data);
8775: END IF;
8776: END IF;
8777:
8778: fnd_file.put_line(fnd_file.log,
8779: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
8780: ' failed in iby_ext_bankacct_pub.create/update_ext_bank_branch' ||
8781: ' Interface_Id: ' ||
8782: bank_account_dtls_rec.bank_account_interface_id ||
8785: GOTO continue_next_record;
8786: END IF;
8787:
8788: IF (l_branch_id IS NOT NULL) THEN
8789: fnd_file.put_line(fnd_file.log,
8790: ' Message: Updating branch id ' || ' Branch Id :' ||
8791: l_branch_id);
8792: -- Update the interface table with the branch_id that is obtained
8793: UPDATE pos_bank_account_det_int
8928: bank_account_dtls_rec.bank_account_interface_id ||
8929: ' Update bank end date: ' || l_msg_data);
8930: END IF;
8931: END IF;
8932: fnd_file.put_line(fnd_file.log,
8933: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
8934: ' failed in iby_ext_bankacct_pub.set_ext_bank_branch_end_date' ||
8935: ' Interface_Id: ' ||
8936: bank_account_dtls_rec.bank_account_interface_id ||
8959: x_msg_count => l_msg_count,
8960: x_msg_data => l_msg_data,
8961: x_response => l_check_account_resp);
8962:
8963: fnd_file.put_line(fnd_file.log,
8964: ' Message: After check_account_exist' ||
8965: ' Account Id :' || l_account_id);
8966:
8967: -- Process account
8979: (bank_account_dtls_rec.party_site_name IS NOT NULL)) THEN
8980: IF (bank_account_dtls_rec.party_site_orig_sys IS NOT NULL AND
8981: bank_account_dtls_rec.party_site_orig_sys_ref IS NOT NULL) THEN
8982:
8983: fnd_file.put_line(fnd_file.log,
8984: ' Message: orig_system' ||
8985: bank_account_dtls_rec.party_site_orig_sys ||
8986: ' orig_system_reference :' ||
8987: bank_account_dtls_rec.party_site_orig_sys_ref);
8996: AND owner_table_name = 'HZ_PARTY_SITES'
8997: AND nvl(end_date_active, SYSDATE) >= SYSDATE;
8998: END IF;
8999:
9000: fnd_file.put_line(fnd_file.log,
9001: ' Message: Get the party site id' ||
9002: ' party_site_id :' || l_party_site_id);
9003:
9004: IF (l_party_site_id IS NULL OR l_party_site_id = 0) THEN
9018: bank_account_dtls_rec.party_site_name;
9019: END IF;
9020: END IF;
9021:
9022: fnd_file.put_line(fnd_file.log,
9023: ' Message: Get the party site id from hz_locations' ||
9024: ' party_site_id :' || l_party_site_id ||
9025: ' l_party_id : ' || l_party_id ||
9026: ' vendor_site_code : ' ||
9044: bank_account_dtls_rec.vendor_site_code
9045: AND site.org_id = bank_account_dtls_rec.org_id;
9046: END IF;
9047:
9048: fnd_file.put_line(fnd_file.log,
9049: ' Message: vendor_site_id :' || l_vendor_site_id);
9050:
9051: IF (l_vendor_site_id IS NOT NULL AND l_party_site_id IS NOT NULL AND
9052: l_party_site_id <> 0 AND bank_account_dtls_rec.org_id IS NOT NULL) THEN
9064: ELSE
9065: l_association_level := 'S';
9066: END IF;
9067:
9068: fnd_file.put_line(fnd_file.log,
9069: ' Message: Account association level :' ||
9070: l_association_level);
9071:
9072: EXCEPTION
9095: bank_account_dtls_rec.bank_account_interface_id ||
9096: ' Update bank end date: ' || l_msg_data);
9097: END IF;
9098: END IF;
9099: fnd_file.put_line(fnd_file.log,
9100: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
9101: ' failed to find site id' ||
9102: ' Interface_Id: ' ||
9103: bank_account_dtls_rec.bank_account_interface_id ||
9137: bank_account_dtls_rec.insert_update_flag := nvl(bank_account_dtls_rec.insert_update_flag,
9138: 'U');
9139: END IF;
9140:
9141: fnd_file.put_line(fnd_file.log,
9142: ' bank_account_dtls_rec.insert_update_flag: ' ||
9143: bank_account_dtls_rec.insert_update_flag ||
9144: ' l_new_account_rec.alternate_acct_name : ' ||
9145: l_new_account_rec.alternate_acct_name);
9176: l_payee_context_rec.Supplier_Site_id:=l_vendor_site_id;
9177: l_payee_context_rec.Org_Id:=bank_account_dtls_rec.org_id;
9178: l_payee_context_rec.Org_Type:=l_org_type;
9179: END IF;
9180: fnd_file.put_line(fnd_file.log,
9181: ' Message: l_association_level SS and l_vendor_site_id : ' ||
9182: l_association_level||l_vendor_site_id);
9183: ELSIF(l_association_level='A') THEN
9184: IF(l_party_site_id IS NOT NULL) THEN
9186: l_payee_context_rec.Supplier_Site_id:=NULL;
9187: l_payee_context_rec.Org_Id:=NULL;
9188: l_payee_context_rec.Org_Type:=NULL;
9189: END IF;
9190: fnd_file.put_line(fnd_file.log,
9191: ' Message: l_association_level A and l_party_site_id : ' ||
9192: l_association_level||l_party_site_id);
9193: ELSIF(l_association_level='AO') THEN
9194: IF(l_party_site_id IS NOT NULL AND bank_account_dtls_rec.org_id IS NOT NULL) THEN
9191: ' Message: l_association_level A and l_party_site_id : ' ||
9192: l_association_level||l_party_site_id);
9193: ELSIF(l_association_level='AO') THEN
9194: IF(l_party_site_id IS NOT NULL AND bank_account_dtls_rec.org_id IS NOT NULL) THEN
9195: fnd_file.put_line(fnd_file.log,
9196: ' Message: l_association_level AO: Party site id, org id is not null' ||
9197: l_association_level);
9198:
9199: END IF;
9200: l_payee_context_rec.Party_Site_id :=l_party_site_id;
9201: l_payee_context_rec.Org_Id:= bank_account_dtls_rec.org_id;
9202: l_payee_context_rec.Org_Type:= l_org_type;
9203: l_payee_context_rec.Supplier_Site_id:=NULL;
9204: fnd_file.put_line(fnd_file.log,
9205: ' Message: l_association_level AO, org_id and l_party_site_id : ' ||
9206: l_association_level||bank_account_dtls_rec.org_id||l_party_site_id);
9207: ELSIF(l_association_level='S') THEN
9208: l_payee_context_rec.Party_Site_id :=NULL;
9208: l_payee_context_rec.Party_Site_id :=NULL;
9209: l_payee_context_rec.Org_Id:= NULL;
9210: l_payee_context_rec.Org_Type:= NULL;
9211: l_payee_context_rec.Supplier_Site_id:=NULL;
9212: fnd_file.put_line(fnd_file.log,
9213: ' Message: l_association_level S : ' ||
9214: l_association_level);
9215: END IF;
9216:
9213: ' Message: l_association_level S : ' ||
9214: l_association_level);
9215: END IF;
9216:
9217: fnd_file.put_line(fnd_file.log,
9218: ' Message: orgid: ' ||
9219: l_payee_context_rec.Org_Id);
9220: fnd_file.put_line(fnd_file.log,
9221: ' Message: org type : ' ||
9216:
9217: fnd_file.put_line(fnd_file.log,
9218: ' Message: orgid: ' ||
9219: l_payee_context_rec.Org_Id);
9220: fnd_file.put_line(fnd_file.log,
9221: ' Message: org type : ' ||
9222: l_payee_context_rec.Org_Type);
9223: fnd_file.put_line(fnd_file.log,
9224: ' Message: party_site_id : ' ||
9219: l_payee_context_rec.Org_Id);
9220: fnd_file.put_line(fnd_file.log,
9221: ' Message: org type : ' ||
9222: l_payee_context_rec.Org_Type);
9223: fnd_file.put_line(fnd_file.log,
9224: ' Message: party_site_id : ' ||
9225: l_payee_context_rec.Party_Site_id);
9226: fnd_file.put_line(fnd_file.log,
9227: ' Message: Supplier_site_id : ' ||
9222: l_payee_context_rec.Org_Type);
9223: fnd_file.put_line(fnd_file.log,
9224: ' Message: party_site_id : ' ||
9225: l_payee_context_rec.Party_Site_id);
9226: fnd_file.put_line(fnd_file.log,
9227: ' Message: Supplier_site_id : ' ||
9228: l_payee_context_rec.Supplier_Site_id);
9229:
9230: l_payee_context_rec.Payment_Function :=l_payment_function;
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' ||
9297: ' Interface_Id: ' ||
9298: bank_account_dtls_rec.bank_account_interface_id ||
9328: bank_account_dtls_rec.bank_account_interface_id ||
9329: ' Update bank end date: ' || l_msg_data);
9330: END IF;
9331: END IF;
9332: fnd_file.put_line(fnd_file.log,
9333: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
9334: ' failed in iby_ext_bankacct_pub.create_ext_bank_acct' ||
9335: ' Interface_Id: ' ||
9336: bank_account_dtls_rec.bank_account_interface_id ||
9340: END IF;
9341:
9342: -- END IF;
9343:
9344: fnd_file.put_line(fnd_file.log,
9345: ' Message: Updating account id :' || l_account_id);
9346: -- Update the interface table with the
9347: -- account_id that is obtained
9348: UPDATE pos_bank_account_det_int
9432: WHEN OTHERS THEN
9433: l_new_intermed_acct1_rec.intermediary_acct_id := NULL;
9434: END;
9435:
9436: fnd_file.put_line(fnd_file.log,
9437: ' Message: Intermediary account id : ' ||
9438: l_new_intermed_acct1_rec.intermediary_acct_id ||
9439: ' l_new_intermed_acct1_rec.city : ' ||
9440: l_new_intermed_acct1_rec.city);
9439: ' l_new_intermed_acct1_rec.city : ' ||
9440: l_new_intermed_acct1_rec.city);
9441:
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,
9454: x_return_status := l_ret_status;
9455: x_msg_count := l_msg_count;
9456: x_msg_data := l_msg_data;
9457: ELSE
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,
9496: bank_account_dtls_rec.bank_account_interface_id ||
9497: ' Update bank end date: ' || l_msg_data);
9498: END IF;
9499: END IF;
9500: fnd_file.put_line(fnd_file.log,
9501: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
9502: ' failed in iby_ext_bankacct_pub.create/update_intermediary_acct 1' ||
9503: ' Interface_Id: ' ||
9504: bank_account_dtls_rec.bank_account_interface_id ||
9578: EXCEPTION
9579: WHEN OTHERS THEN
9580: l_new_intermed_acct2_rec.intermediary_acct_id := NULL;
9581: END;
9582: fnd_file.put_line(fnd_file.log,
9583: ' Message: Intermediary account id : ' ||
9584: l_new_intermed_acct2_rec.intermediary_acct_id);
9585:
9586: IF (l_new_intermed_acct2_rec.intermediary_acct_id IS NULL) THEN
9583: ' Message: Intermediary account id : ' ||
9584: l_new_intermed_acct2_rec.intermediary_acct_id);
9585:
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,
9598: x_return_status := l_ret_status;
9599: x_msg_count := l_msg_count;
9600: x_msg_data := l_msg_data;
9601: ELSE
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,
9640: bank_account_dtls_rec.bank_account_interface_id ||
9641: ' Update bank end date: ' || l_msg_data);
9642: END IF;
9643: END IF;
9644: fnd_file.put_line(fnd_file.log,
9645: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
9646: ' failed in iby_ext_bankacct_pub.create/update_intermediary_acct 2' ||
9647: ' Interface_Id: ' ||
9648: bank_account_dtls_rec.bank_account_interface_id ||
9680:
9681: CLOSE bank_account_dtls_cur;
9682:
9683: -- now process the account owners
9684: fnd_file.put_line(fnd_file.log, ' Message: Processing Account owners ');
9685:
9686: OPEN account_owners_cur;
9687: LOOP
9688: -- Fetch the cursor data into a record
9690: INTO account_owners_rec;
9691: EXIT WHEN account_owners_cur%NOTFOUND;
9692:
9693: -- Initializing
9694: fnd_file.put_line(fnd_file.log,
9695: ' Message: Initializing local variables ');
9696: fnd_file.put_line(fnd_file.log,
9697: ' account_owners_rec.account_owner_name: ' ||
9698: account_owners_rec.account_owner_name);
9692:
9693: -- Initializing
9694: fnd_file.put_line(fnd_file.log,
9695: ' Message: Initializing local variables ');
9696: fnd_file.put_line(fnd_file.log,
9697: ' account_owners_rec.account_owner_name: ' ||
9698: account_owners_rec.account_owner_name);
9699: l_account_owner_id := NULL;
9700: l_account_id := NULL;
9714: ELSE
9715: l_account_owner_id := account_owners_rec.account_owner_party_id;
9716: END IF;
9717:
9718: fnd_file.put_line(fnd_file.log,
9719: ' l_account_owner_id: ' || l_account_owner_id);
9720:
9721: -- Bug 12842286: Handle the exception if acount id is not found. Failing to create a bank account will cause this issue.
9722: BEGIN
9736: ELSE
9737: l_account_id := account_owners_rec.account_id;
9738: END IF;
9739:
9740: fnd_file.put_line(fnd_file.log, ' l_account_id: ' || l_account_id);
9741:
9742: EXCEPTION
9743: WHEN OTHERS THEN
9744: UPDATE pos_bank_accnt_owners_int
9765: bank_account_dtls_rec.bank_account_interface_id ||
9766: ' get account owner id Msg: ' || l_msg_data);
9767: END IF;
9768: END IF;
9769: fnd_file.put_line(fnd_file.log,
9770: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
9771: ' failed to find account id' ||
9772: ' bank_acct_owner_interface_id: ' ||
9773: account_owners_rec.bank_acct_owner_interface_id ||
9772: ' bank_acct_owner_interface_id: ' ||
9773: account_owners_rec.bank_acct_owner_interface_id ||
9774: ', No. of Messages: ' || l_msg_count ||
9775: ', Message: ' || l_msg_data);
9776: --fnd_file.put_line(fnd_file.log, ' l_account_id: ' || SQLCODE || ' ' || SQLERRM );
9777: GOTO continue_next_owner;
9778: END;
9779: -- End Bug 12842286
9780:
9819: bank_account_dtls_rec.bank_account_interface_id ||
9820: ' add account owner Msg: ' || l_msg_data);
9821: END IF;
9822: END IF;
9823: fnd_file.put_line(fnd_file.log,
9824: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
9825: ' failed in iby_ext_bankacct_pub.add_joint_account_owner' ||
9826: ' bank_acct_owner_interface_id: ' ||
9827: account_owners_rec.bank_acct_owner_interface_id ||
9890: bank_account_dtls_rec.bank_account_interface_id ||
9891: ' get account owner id Msg: ' || l_msg_data);
9892: END IF;
9893: END IF;
9894: fnd_file.put_line(fnd_file.log,
9895: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
9896: ' failed in iby_ext_bankacct_pub.set_joint_acct_owner_end_date' ||
9897: ' bank_acct_owner_interface_id: ' ||
9898: account_owners_rec.bank_acct_owner_interface_id ||
9943: bank_account_dtls_rec.bank_account_interface_id ||
9944: ' Set primary flag Msg: ' || l_msg_data);
9945: END IF;
9946: END IF;
9947: fnd_file.put_line(fnd_file.log,
9948: ' Message: Inside PROCEDURE IMPORT_VENDOR_BANK_DTLS' ||
9949: ' failed in iby_ext_bankacct_pub.change_primary_acct_owner' ||
9950: ' bank_acct_owner_interface_id: ' ||
9951: account_owners_rec.bank_acct_owner_interface_id ||
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,
9985: ' Inside import_vendor_bank_dtls EXCEPTION ' ||
9986: ' Message: ' || SQLCODE || ' ' || SQLERRM);
9987: END import_vendor_bank_dtls;
9988:
10023:
10024: BEGIN
10025: fnd_msg_pub.initialize;
10026:
10027: fnd_file.put_line(fnd_file.log,
10028: ' Message: Inside PROCEDURE IMPORT_BATCH' ||
10029: ' Parameters: ' || ' p_batch_id: ' || p_batch_id ||
10030: ' p_import_run_option: ' || p_import_run_option ||
10031: ' p_run_batch_dedup: ' || p_run_batch_dedup ||
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.');
10064: errbuf := 'WARNING****** Unexpected error occured in pre_processing.';
10076:
10077: RETURN;
10078: END IF;
10079: /*ELSE
10080: fnd_file.put_line(fnd_file.log,
10081: ' Message: Inside PROCEDURE IMPORT_BATCH' ||
10082: ' p_import_run_option = CONTINUE');
10083:
10084: UPDATE pos_imp_batch_summary
10089: WHERE batch_id = p_batch_id;
10090: END IF;*/
10091:
10092: IF (p_run_batch_dedup = 'N' AND p_run_registry_dedup = 'N') THEN
10093: fnd_file.put_line(fnd_file.log,
10094: 'After pre_processing Validate Supplier before party is created');
10095:
10096: /* Validate Supplier before party is created */
10097: validate_vendor(p_batch_id => p_batch_id,
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.');
10107:
10119:
10120: RETURN;
10121: END IF;
10122:
10123: fnd_file.put_line(fnd_file.log, 'After Validate Supplier');
10124: ELSE
10125: fnd_file.put_line(fnd_file.log, 'After pre_processing');
10126: END IF;
10127:
10121: END IF;
10122:
10123: fnd_file.put_line(fnd_file.log, 'After Validate Supplier');
10124: ELSE
10125: fnd_file.put_line(fnd_file.log, 'After pre_processing');
10126: END IF;
10127:
10128: BEGIN
10129: SELECT batch_status,
10139: WHEN no_data_found THEN
10140: l_batch_status := 'COMPLETED';
10141: END;
10142:
10143: fnd_file.put_line(fnd_file.log,
10144: 'l_batch_status : ' || l_batch_status ||
10145: ' l_import_status : ' || l_import_status);
10146:
10147: IF (l_batch_status <> 'COMPLETED') THEN
10168: ELSE
10169: l_import_run_option := p_import_run_option;
10170: END IF;
10171:
10172: fnd_file.put_line(fnd_file.log,
10173: 'l_import_run_option : ' || l_import_run_option);
10174:
10175: /* Call HZ import API to import a party */
10176: hz_batch_import_pkg.import_batch(l_errbuf,
10187: p_generate_fuzzy_key);
10188: errbuf := l_errbuf;
10189: retcode := l_retcode;
10190:
10191: fnd_file.put_line(fnd_file.log,
10192: ' Message: Inside PROCEDURE IMPORT_BATCH' ||
10193: ' output parameters from hz_batch_import_pkg errbuf : ' ||
10194: errbuf || ' retcode : ' || retcode);
10195: END IF;
10208: WHEN no_data_found THEN
10209: l_batch_status := 'NOT COMPLETED';
10210: END;
10211:
10212: fnd_file.put_line(fnd_file.log, 'l_batch_status2 : ' || l_batch_status);
10213:
10214: /*After the party import is completed enable the party
10215: as supplier and party contact as supplier contact*/
10216:
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.');
10250: errbuf := 'WARNING****** Unexpected error occured in enabling party as supplier program.';
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.');
10272: errbuf := 'WARNING****** Unexpected error occured in enabling party contact as supplier contact program.';
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.');
10286: errbuf := 'WARNING****** Unexpected error occured in update party id program.';
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 ||
10300: ' From import_vendors API.');
10301: errbuf := 'WARNING****** Unexpected error occured in import vendors program.';
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.');
10324: errbuf := 'WARNING****** Unexpected error occured in update party id program.';
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 ||
10338: ' From import_vendor_sites API.');
10339: errbuf := 'WARNING****** Unexpected error occured in import vendor sites program.';
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.');
10362: errbuf := 'WARNING****** Unexpected error occured in update contact details program.';
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 ||
10376: ' From import_vendor_contacts API.');
10377: errbuf := 'WARNING****** Unexpected error occured in import vendor contacts program.';
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 ||
10400: ' From import_vendor_prods_services API.');
10401: errbuf := 'WARNING****** Unexpected error occured in import vendor contacts program.';
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 ||
10424: ' From import_vendor_buss_class API.');
10425: errbuf := 'WARNING****** Unexpected error occured in import vendor contacts program.';
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 ||
10448: ' From import_vendor_tax_dtls API.');
10449: errbuf := 'WARNING****** Unexpected error occured in import vendor contacts program.';
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 ||
10490: ' From import_vendor_bank_dtls API.');
10491: errbuf := 'WARNING****** Unexpected error occured in import vendor contacts program.';
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 ||
10524: ' From POS_BULKLOAD_ENTITIES.PROCESS_USER_ATTRS_DATA API.');
10525: errbuf := 'WARNING****** Unexpected error occured in import UDA program.';
10541: END IF;
10542: ----UDA Import
10543:
10544:
10545: fnd_file.put_line(fnd_file.log,
10546: 'Total error count is : ' || l_tot_err_count);
10547:
10548: -- Set the processing status appropriately
10549: IF (l_tot_err_count = 0) THEN
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 ||
10598: ' From POS_BULKLOAD_ENTITIES.PROCESS_USER_ATTRS_DATA API.');
10599: errbuf := 'WARNING****** Unexpected error occured in import UDA program.';
10616: END IF;
10617: ----UDA Import
10618:
10619:
10620: fnd_file.put_line(fnd_file.log,
10621: 'Total Supplier UDA Import error count is : ' || l_tot_err_count);
10622:
10623:
10624: END IF; ---IF (p_import_uda_only = 'N') THEN
10627: EXCEPTION
10628: WHEN OTHERS THEN
10629: errbuf := fnd_message.get || ' ' || SQLERRM;
10630: retcode := 2;
10631: fnd_file.put_line(fnd_file.log,
10632: ' Inside import_batch EXCEPTION ' || ' Message: ' ||
10633: SQLCODE || ' ' || SQLERRM);
10634: END import_batch;
10635: