[Home] [Help]
665:
666: x_b2b := p_b2b_flag;
667: if p_import_list_header_id is not null then
668: -- Checks if party_id is mapped
669: l_is_party_mapped := AMS_ListImport_PVT.G_PARTY_MAPPED;
670: OPEN c_rented;
671: FETCH c_rented into x_rented_list_flag, l_rec_update_flag;
672: CLOSE c_rented;
673: if x_rented_list_flag is null then
820:
821: end if;
822: --org_rec.CREATED_BY_MODULE := 'Oracle Marketing';
823: --R12 tca mandate: bug 4587049: all who calls create_customer should
824: --populate created_by_module. List import populates in AMS_LISTIMPORT_PVT amsvimlb.pls
825: /* --caller must populate this
826: IF org_rec.CREATED_BY_MODULE is null THEN
827: org_rec.CREATED_BY_MODULE := 'AMS_LIST_IMPORT';
828: END IF;
1044: person_rec.party_rec.party_id := x_per_party_id;
1045:
1046: --person_rec.CREATED_BY_MODULE := 'Oracle Marketing';
1047: --R12 tca mandate: bug 4587049: all who calls create_customer should
1048: --populate created_by_module. List import populates in AMS_LISTIMPORT_PVT amsvimlb.pls
1049: /* --caller must populate this
1050: IF person_rec.CREATED_BY_MODULE is null THEN
1051: person_rec.CREATED_BY_MODULE := 'AMS_LIST_IMPORT';
1052: END IF;
1139: ocon_rec.party_rel_rec.start_date := sysdate;
1140:
1141: --ocon_rec.CREATED_BY_MODULE := 'Oracle Marketing';
1142: --R12 tca mandate: bug 4587049: all who calls create_customer should
1143: --populate created_by_module. List import populates in AMS_LISTIMPORT_PVT amsvimlb.pls
1144: /* --caller must populate this
1145: IF ocon_rec.CREATED_BY_MODULE is null THEN
1146: ocon_rec.CREATED_BY_MODULE := 'AMS_LIST_IMPORT';
1147: END IF;
1244: language_rec.native_language := 'Y';
1245:
1246: --language_rec.CREATED_BY_MODULE := 'Oracle Marketing';
1247: --R12 tca mandate: bug 4587049: all who calls create_customer should
1248: --populate created_by_module. List import populates in AMS_LISTIMPORT_PVT amsvimlb.pls
1249: /* --caller must populate this
1250: IF language_rec.CREATED_BY_MODULE is null THEN
1251: language_rec.CREATED_BY_MODULE := 'AMS_LIST_IMPORT';
1252: END IF;
1332: -- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1333: -- sranka Modified for COLt Enhancements 7/15/2003
1334: if org_location_rec.address1 is not NULL then
1335: if x_org_locatiON_Id is null and l_import_source_line_id is null then
1336: AMS_ListImport_PVT.address_echeck(
1337: p_party_id => x_org_party_id,
1338: x_return_status => x_return_status,
1339: x_msg_count => x_msg_count,
1340: x_msg_data => x_msg_data,
1393: p_log_used_by_id => p_import_list_header_id,
1394: p_msg_data => 'Create Location for Organization : Creating location ',
1395: p_msg_type => 'DEBUG');
1396:
1397: AMS_ListImport_PVT.create_location (
1398: org_location_rec ,
1399: x_return_status ,
1400: x_msg_count ,
1401: x_msg_data ,
1444: org_psite_rec.location_id := x_org_location_id;
1445: org_psite_rec.status := 'A';
1446: -- x_pty_site_id := null;
1447: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and l_org_lp_psite_id is NULL)) then
1448: AMS_ListImport_PVT.create_party_site(
1449: org_psite_rec,
1450: x_return_status,
1451: x_msg_count,
1452: x_msg_data,
1480:
1481: -- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1482:
1483: if x_locatiON_Id is null and l_import_source_line_id is null then
1484: AMS_ListImport_PVT.address_echeck(
1485: p_party_id => x_org_party_id,
1486: x_return_status => x_return_status,
1487: x_msg_count => x_msg_count,
1488: x_msg_data => x_msg_data,
1507: x_return_status := null;
1508: x_msg_count := null;
1509: x_msg_data := null;
1510: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and x_location_id is NULL)) then
1511: AMS_ListImport_PVT.create_location (
1512: location_rec ,
1513: x_return_status ,
1514: x_msg_count ,
1515: x_msg_data ,
1556: psite_rec.location_id := x_location_id;
1557: psite_rec.status := 'A';
1558: -- x_pty_site_id := null;
1559: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and l_lp_psite_id is NULL)) then
1560: AMS_ListImport_PVT.create_party_site(
1561: psite_rec,
1562: x_return_status,
1563: x_msg_count,
1564: x_msg_data,
1597: x_msg_data := null;
1598:
1599: psiteuse_rec.party_site_id := x_party_site_id;
1600: psiteuse_rec.status := 'A';
1601: AMS_ListImport_PVT.create_party_site_use(
1602: psiteuse_rec,
1603: x_return_status,
1604: x_msg_count,
1605: x_msg_data,
1686: psite_rec.party_id := x_party_rel_party_id;
1687: psite_rec.location_id := x_location_id;
1688: psite_rec.status := 'A';
1689:
1690: AMS_ListImport_PVT.create_party_site(
1691: psite_rec,
1692: x_return_status,
1693: x_msg_count,
1694: x_msg_data,
1707: x_msg_data := null;
1708:
1709: psiteuse_rec.party_site_id := x_party_site_id;
1710: psiteuse_rec.status := 'A';
1711: AMS_ListImport_PVT.create_party_site_use(
1712: psiteuse_rec,
1713: x_return_status,
1714: x_msg_count,
1715: x_msg_data,
1743: fetch org_email_exists into l_email_exists;
1744: close org_email_exists;
1745: if l_email_exists is NULL then
1746: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and l_email_exists is NULL)) then
1747: AMS_ListImport_PVT.create_contact_point(
1748: cpoint_rec,
1749: edi_rec,
1750: email_rec,
1751: phone_rec,
1795: close c_org_party_site_phone_id;
1796: end if;
1797: if l_phone_exists is NULL then
1798: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and l_phone_exists is NULL)) then
1799: AMS_ListImport_PVT.create_contact_point(
1800: cpoint_rec,
1801: edi_rec,
1802: email_rec,
1803: org_party_site_phone_rec,
1850: close c_org_phone_id;
1851: end if;
1852: if l_phone_exists is NULL then
1853: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and l_phone_exists is NULL)) then
1854: AMS_ListImport_PVT.create_contact_point(
1855: cpoint_rec,
1856: edi_rec,
1857: email_rec,
1858: phone_rec,
1905: close c_phone_id;
1906: end if;
1907: if l_phone_exists is NULL then
1908: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and l_phone_exists is NULL)) then
1909: AMS_ListImport_PVT.create_contact_point(
1910: cpoint_rec,
1911: edi_rec,
1912: email_rec,
1913: phone_rec,
1959: close c_fax_id;
1960: end if;
1961: if l_fax_exists is NULL then
1962: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and l_fax_exists is NULL)) then
1963: AMS_ListImport_PVT.create_contact_point(
1964: cpoint_rec,
1965: edi_rec,
1966: email_rec,
1967: fax_rec,
2008: close c_url_id;
2009: end if;
2010: if l_url_exists is NULL then
2011: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and l_url_exists is NULL)) then
2012: AMS_ListImport_PVT.create_contact_point(
2013: cpoint_rec,
2014: edi_rec,
2015: email_rec,
2016: fax_rec,
2052: fetch email_exists into l_email_exists;
2053: close email_exists;
2054: if l_email_exists is NULL then
2055: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and l_email_exists is NULL)) then
2056: AMS_ListImport_PVT.create_contact_point(
2057: cpoint_rec,
2058: edi_rec,
2059: email_rec,
2060: phone_rec,
2349: end if;
2350:
2351: --person_rec.CREATED_BY_MODULE := 'Oracle Marketing';
2352: --R12 tca mandate: bug 4587049: all who calls create_customer should
2353: --populate created_by_module. List import populates in AMS_LISTIMPORT_PVT amsvimlb.pls
2354: /* --caller must populate this
2355: IF person_rec.CREATED_BY_MODULE is null THEN
2356: person_rec.CREATED_BY_MODULE := 'AMS_LIST_IMPORT';
2357: END IF;
2429: language_rec.native_language := 'Y';
2430:
2431: --language_rec.CREATED_BY_MODULE := 'Oracle Marketing';
2432: --R12 tca mandate: bug 4587049: all who calls create_customer should
2433: --populate created_by_module. List import populates in AMS_LISTIMPORT_PVT amsvimlb.pls
2434: /* --caller must populate this
2435: IF language_rec.CREATED_BY_MODULE is null THEN
2436: language_rec.CREATED_BY_MODULE := 'AMS_LIST_IMPORT';
2437: END IF;
2523:
2524: if x_rented_list_flag <> 'R' then
2525: if x_hz_dup_check = 'Y' then
2526: if x_location_id is null and i_import_source_line_id is null then
2527: AMS_ListImport_PVT.address_echeck(
2528: p_party_id => x_per_party_id,
2529: x_return_status => x_return_status,
2530: x_msg_count => x_msg_count,
2531: x_msg_data => x_msg_data,
2550: x_return_status := null;
2551: x_msg_count := null;
2552: x_msg_data := null;
2553: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and x_location_id is NULL)) then
2554: AMS_ListImport_PVT.create_location (
2555: location_rec ,
2556: x_return_status ,
2557: x_msg_count ,
2558: x_msg_data ,
2598: psite_rec.party_id := x_per_party_id;
2599: psite_rec.location_id := x_location_id;
2600: psite_rec.status := 'A';
2601: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and l_lp_psite_id is NULL)) then
2602: AMS_ListImport_PVT.create_party_site(
2603: psite_rec,
2604: x_return_status,
2605: x_msg_count,
2606: x_msg_data,
2639: x_msg_data := null;
2640:
2641: psiteuse_rec.party_site_id := x_party_site_id;
2642: psiteuse_rec.status := 'A';
2643: AMS_ListImport_PVT.create_party_site_use(
2644: psiteuse_rec,
2645: x_return_status,
2646: x_msg_count,
2647: x_msg_data,
2683: close c_phone_id;
2684: end if;
2685: if l_phone_exists is NULL then
2686: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and l_phone_exists is NULL)) then
2687: AMS_ListImport_PVT.create_contact_point(
2688: cpoint_rec,
2689: edi_rec,
2690: email_rec,
2691: phone_rec,
2732: close c_fax_id;
2733: end if;
2734: if l_fax_exists is NULL then
2735: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and l_fax_exists is NULL)) then
2736: AMS_ListImport_PVT.create_contact_point(
2737: cpoint_rec,
2738: edi_rec,
2739: email_rec,
2740: fax_rec,
2778: close c_url_id;
2779: end if;
2780: if l_url_exists is NULL then
2781: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and l_url_exists is NULL)) then
2782: AMS_ListImport_PVT.create_contact_point(
2783: cpoint_rec,
2784: edi_rec,
2785: email_rec,
2786: fax_rec,
2819: fetch email_exists into l_email_exists;
2820: close email_exists;
2821: if l_email_exists is NULL then
2822: if (l_rec_update_flag = 'N' or (l_rec_update_flag = 'Y' and l_email_exists is NULL)) then
2823: AMS_ListImport_PVT.create_contact_point(
2824: cpoint_rec,
2825: edi_rec,
2826: email_rec,
2827: phone_rec,
3443: set ERROR_TEXT = substr(p_error_text,1,2000),
3444: LOAD_STATUS = 'ERROR'
3445: where imp_xml_element_id = l_imp_xml_element_id;
3446: else
3447: AMS_ListImport_PVT.update_element_error (
3448: p_import_list_header_id,l_imp_xml_element_id,
3449: p_field_name,upper(p_field_name)||' :'||substr(p_error_text,1,2000));
3450: end if;
3451: end if; -- l_file_type = 'XML'
5024: FND_MSG_PUB.initialize;
5025: END IF;
5026:
5027: --call private API procedure.
5028: AMS_ListImport_PVT.update_rented_list_party (
5029: p_party_id => p_party_id,
5030: p_return_status => x_return_status,
5031: p_msg_count => x_msg_count,
5032: p_msg_data => x_msg_data);