[Home] [Help]
986: l_return_value BOOLEAN;
987:
988: BEGIN
989:
990: arp_util.debug('do_add_policy_function (+) ');
991:
992: --Get ar and apps schema name
993: l_return_value := fnd_installation.get_app_info(
994: 'AR', l_status, l_industry, l_ar_schema);
1024: FND_ACCESS_CONTROL_UTIL.ADD_POLICY(l_ar_schema, 'HZ_CODE_ASSIGNMENTS', 'content_source_type_sec', l_apps_schema, 'hz_common_pub.content_source_type_security');
1025: FND_ACCESS_CONTROL_UTIL.ADD_POLICY(l_ar_schema, 'HZ_ORGANIZATION_INDICATORS', 'content_source_type_sec', l_apps_schema, 'hz_common_pub.content_source_type_security');
1026: FND_ACCESS_CONTROL_UTIL.ADD_POLICY(l_ar_schema, 'HZ_PARTY_SITES', 'content_source_type_sec', l_apps_schema, 'hz_common_pub.content_source_type_security');
1027: */
1028: arp_util.debug('do_add_policy_function (-) ');
1029:
1030: END do_add_policy_function;
1031:
1032: /*===========================================================================+
1295: fnd_profile.put('HZ_USER_DATA_CREATION_RULE',null);
1296: end if;
1297:
1298: -- isMixNMatchEnabled := HZ_MIXNM_UTILITY.isMixNMatchEnabled('HZ_ORGANIZATION_PROFILES', l_mixnmatch_global_id);
1299: -- arp_util.debug('isMixNMatchEnabled=' || isMixNMatchEnabled);
1300:
1301: arp_util.debug('HZ_MAP_PARTY_PUB.MAP (+) ');
1302:
1303: --Standard call to check for call compatibility.
1297:
1298: -- isMixNMatchEnabled := HZ_MIXNM_UTILITY.isMixNMatchEnabled('HZ_ORGANIZATION_PROFILES', l_mixnmatch_global_id);
1299: -- arp_util.debug('isMixNMatchEnabled=' || isMixNMatchEnabled);
1300:
1301: arp_util.debug('HZ_MAP_PARTY_PUB.MAP (+) ');
1302:
1303: --Standard call to check for call compatibility.
1304: IF NOT FND_API.Compatible_API_Call(
1305: l_api_version,
1329: EXIT WHEN c1%NOTFOUND;
1330:
1331:
1332: num_of_rec := num_of_rec + 1;
1333: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: fetched record from cursor: num_of_rec = '|| to_char(num_of_rec));
1334: -- Bug 3220024 : Donot reset session related variables inside the cursor
1335:
1336: l_displayed_duns_party_id := NULL;
1337: l_party_id := NULL;
1402: OR l_interface_rec.ENQUIRY_DUNS IS NULL
1403: THEN
1404:
1405: --DNB has provided original party's data
1406: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: DUNS = ENQUIRY_DUNS');
1407:
1408: --Create DNB data
1409: --Create USER_ENTERED data if the party doesn't exist
1410:
1407:
1408: --Create DNB data
1409: --Create USER_ENTERED data if the party doesn't exist
1410:
1411: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: create DNB data, create USER_ENTERED data if party not exist');
1412: do_map(
1413: l_interface_rec,
1414: x_return_status
1415: );
1427: END IF;
1428:
1429: ELSE
1430:
1431: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: DUNS <> ENQUIRY_DUNS');
1432: --Party requested is a Branch location. DNB has provided HQ's data.
1433:
1434: --Since this is a HQ, store it as HQ.
1435: l_interface_rec.HQ_BRANCH_IND := 'HQ';
1454: l_exist := 'N';
1455: END;
1456:
1457: IF l_exist = 'N' THEN
1458: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: DUNS <> ENQUIRY_DUNS: no party exists for HQs DUNS');
1459:
1460: --no party exists with DUNS as HQ's DUNS.
1461: --create new party for HQ DUNS. And organization profiles with
1462: -- USER_ENTERED
1466: l_organization_rec.party_rec.orig_system_reference := l_interface_rec.orig_system_reference;
1467: --l_interface_rec.orig_system_reference := NULL;
1468:
1469: --Create new party and do mapping.
1470: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: create DNB and USER_ENTERED data for HQ (+)');
1471: do_map(
1472: l_interface_rec,
1473: x_return_status
1474: );
1478: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1480: END IF;
1481:
1482: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: create DNB and USER_ENTERED data for HQ (-)');
1483:
1484: l_displayed_duns_party_id := l_interface_rec.party_id;
1485: ELSE
1486: --party exists with DUNS as HQ's DUNS.
1484: l_displayed_duns_party_id := l_interface_rec.party_id;
1485: ELSE
1486: --party exists with DUNS as HQ's DUNS.
1487:
1488: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: DUNS <> ENQUIRY_DUNS: party exists for HQs DUNS (+)');
1489:
1490: IF l_original_party_id IS NOT NULL THEN /*Branch party exists. */
1491:
1492: --Branch party exists.
1499: AND actual_content_source = l_interface_rec.content_source_type
1500: AND (SYSDATE BETWEEN effective_start_date
1501: AND NVL(effective_end_date, to_date('12/31/4712','MM/DD/YYYY')));
1502:
1503: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: party exists for HQs DUNS: org profile for Branch exists');
1504:
1505: --DNB org profile for Branch exists. Check if HQ DUNS = DUNS of
1506: --Branch's displayed_duns_party_id.
1507:
1514: AND (SYSDATE BETWEEN effective_start_date
1515: AND NVL(effective_end_date, to_date('12/31/4712','MM/DD/YYYY')));
1516:
1517: IF lpad(to_char(l_interface_rec.DUNS_NUMBER),9,'0') = l_duns_number THEN
1518: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: branchs DISPLAYED_DUNS_NUMBER = HQs DUNS_NUMBER');
1519: l_relationship_exist := TRUE;
1520: ELSE
1521: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: branchs DISPLAYED_DUNS_NUMBER <> HQs DUNS_NUMBER ');
1522: l_displayed_duns_party_id := NULL;
1517: IF lpad(to_char(l_interface_rec.DUNS_NUMBER),9,'0') = l_duns_number THEN
1518: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: branchs DISPLAYED_DUNS_NUMBER = HQs DUNS_NUMBER');
1519: l_relationship_exist := TRUE;
1520: ELSE
1521: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: branchs DISPLAYED_DUNS_NUMBER <> HQs DUNS_NUMBER ');
1522: l_displayed_duns_party_id := NULL;
1523:
1524: --don't need to check in party rel for HQ because it
1525: --should give the same record as l_displayed_duns_party_id.
1532: WHEN NO_DATA_FOUND THEN
1533: --org profile does not exist. i.e.
1534: --DNB data does not exist, so partyrel also will not exist.
1535:
1536: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: party exists for HQs DUNS: org profile for Branch does not exist');
1537:
1538: l_displayed_duns_party_id := NULL;
1539: END;
1540:
1564: AND (SYSDATE BETWEEN effective_start_date
1565: AND NVL(effective_end_date, to_date('12/31/4712','MM/DD/YYYY'))))
1566: AND ROWNUM = 1;
1567:
1568: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: new l_displayed_duns_party_id=' || l_displayed_duns_party_id);
1569: END IF;
1570:
1571: --bug 4287144: call check mosr_mapping for duns_number when duns<>enquiry_duns
1572:
1590: l_interface_rec.party_id := l_displayed_duns_party_id;
1591: l_orig_system_reference := l_interface_rec.orig_system_reference;
1592: --l_interface_rec.orig_system_reference := NULL;
1593:
1594: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: update DNB for HQs');
1595:
1596: do_map(
1597: l_interface_rec,
1598: x_return_status
1612: --We need to create org profile as actual_content_source =
1613: -- USER_ENTERED
1614: -- DNB
1615:
1616: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: DUNS <> ENQUIRY_DUNS: create/ update party/org profile for the original party');
1617:
1618: l_organization_rec.party_rec.party_id := l_original_party_id;
1619: --bug 4287144: pass padded duns_number to make it 9 in length
1620: --l_organization_rec.DUNS_NUMBER_C := l_interface_rec.ENQUIRY_DUNS;
1652:
1653: --create party rel b/w the new party (HQ) and original party.
1654: --Require this because through GDPs, we may not get back Family Tree.
1655:
1656: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: DUNS <> ENQUIRY_DUNS: create party rel b/w the new party (HQ) and original party');
1657:
1658: l_party_rel_rec.subject_id := l_displayed_duns_party_id;
1659: l_party_rel_rec.object_id := l_final_party_id;
1660: l_party_rel_rec.relationship_type := 'HEADQUARTERS/DIVISION';
1735:
1736: ROLLBACK TO map_pub;
1737: x_return_status := FND_API.G_RET_STS_ERROR;
1738:
1739: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: FND_API.G_EXC_ERROR');
1740:
1741: do_update_request_log(
1742: l_interface_rec.request_log_id,
1743: l_original_party_id,
1756:
1757: ROLLBACK TO map_pub;
1758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1759:
1760: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: G_EXC_UNEXPECTED_ERROR');
1761:
1762: do_update_request_log(
1763: l_interface_rec.request_log_id,
1764: l_original_party_id,
1777:
1778: ROLLBACK TO map_pub;
1779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1780:
1781: arp_util.debug('HZ_MAP_PARTY_PUB.MAP: OTHERS EXCEPTION');
1782:
1783: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1784: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1785: FND_MSG_PUB.ADD;
1825: FND_MSG_PUB.Count_And_Get(
1826: p_encoded => FND_API.G_FALSE,
1827: p_count => x_msg_count,
1828: p_data => x_msg_data);
1829: arp_util.debug('HZ_MAP_PARTY_PUB.MAP (-)');
1830:
1831: hz_common_pub.enable_cont_source_security;
1832: --FND_PROFILE.put('HZ_UPDATE_THIRD_PARTY_DATA', l_update_third_party);
1833:
2327: l_orig_sys_ref_id NUMBER;
2328:
2329: BEGIN
2330:
2331: arp_util.debug('HZ_MAP_PARTY_PUB.DO_MAP (+) ');
2332:
2333: --
2334: -- Create party.
2335: --
2572: p_interface_rec => p_interface_rec,
2573: l_fin_rep_rec => l_fin_rep_reC,
2574: p_type_of_financial_report => 'BALANCE_SHEET');
2575:
2576: arp_util.debug('HZ_MAP_PARTY_PUB.DO_MAP: BALANCE_SHEET');
2577:
2578: -- actual_content_source = 'DNB'
2579:
2580: store_financial_report(
2606: OR p_interface_rec.NET_INCOME IS NOT NULL
2607: OR p_interface_rec.DIVIDENDS IS NOT NULL)
2608: THEN
2609:
2610: arp_util.debug('HZ_MAP_PARTY_PUB.DO_MAP: INCOME_STATEMENT');
2611:
2612: do_assign_financial_report(
2613: p_interface_rec => p_interface_rec,
2614: l_fin_rep_rec => l_fin_rep_reC,
2627:
2628:
2629: IF p_interface_rec.TANGIBLE_NET_WORTH IS NOT NULL THEN
2630:
2631: arp_util.debug('HZ_MAP_PARTY_PUB.DO_MAP: TANGIBLE_NET_WORTH');
2632:
2633: do_assign_financial_report(
2634: p_interface_rec => p_interface_rec,
2635: l_fin_rep_rec => l_fin_rep_reC,
2648:
2649:
2650: IF p_interface_rec.ANNUAL_SALES_VOLUME IS NOT NULL THEN
2651:
2652: arp_util.debug('HZ_MAP_PARTY_PUB.DO_MAP: ANNUAL_SALES_VOLUME');
2653:
2654: do_assign_financial_report(
2655: p_interface_rec => p_interface_rec,
2656: l_fin_rep_rec => l_fin_rep_reC,
2666: RETURN;
2667: END IF;
2668: END IF;
2669:
2670: arp_util.debug('HZ_MAP_PARTY_PUB.DO_MAP (-)');
2671:
2672: END do_map;
2673:
2674:
2904: --l_credit_ratings_rec OUT NOCOPY HZ_PARTY_INFO_PUB.CREDIT_RATINGS_REC_TYPE
2905: l_credit_ratings_rec OUT NOCOPY HZ_PARTY_INFO_V2PUB.CREDIT_RATING_REC_TYPE
2906: ) IS
2907: BEGIN
2908: arp_util.debug('HZ_MAP_PARTY_PUB.do_assign_credit_ratings (+) ');
2909: l_credit_ratings_rec.PARTY_ID := p_organization_rec.party_rec.party_id;
2910: l_credit_ratings_rec.RATED_AS_OF_DATE := sysdate;
2911: l_credit_ratings_rec.RATING_ORGANIZATION := 'DNB';
2912: l_credit_ratings_rec.FINCL_EMBT_IND := p_interface_rec.FINCL_EMBT_IND;
3088: l_fin_rep_rec.ISSUED_PERIOD := NVL(TO_CHAR(p_interface_rec.STATEMENT_DATE),
3089: TO_CHAR(SYSDATE,'YYYY'));
3090:
3091: ELSIF p_type_of_financial_report = 'INCOME_STATEMENT' THEN
3092: arp_util.debug('HZ_MAP_PARTY_PUB.DO_MAP: INCOME_STATEMENT');
3093: l_fin_rep_rec.type_of_financial_report := 'INCOME_STATEMENT';
3094:
3095:
3096: /* Bug 3539597.Replaced the previous mapping rules.
3140:
3141:
3142:
3143: ELSIF p_type_of_financial_report = 'TANGIBLE_NET_WORTH' THEN
3144: arp_util.debug('HZ_MAP_PARTY_PUB.DO_MAP: TANGIBLE_NET_WORTH');
3145: l_fin_rep_rec.type_of_financial_report := 'TANGIBLE_NET_WORTH';
3146:
3147: IF p_interface_rec.TANGIBLE_NET_WORTH_IND = '1' THEN
3148: l_fin_rep_rec.ESTIMATED_IND := 'N';
3156: l_fin_rep_rec.ISSUED_PERIOD := NVL(TO_CHAR(p_interface_rec.STATEMENT_DATE),
3157: TO_CHAR(SYSDATE,'YYYY'));
3158:
3159: ELSIF p_type_of_financial_report = 'ANNUAL_SALES_VOLUME' THEN
3160: arp_util.debug('HZ_MAP_PARTY_PUB.DO_MAP: ANNUAL_SALES_VOLUME');
3161: l_fin_rep_rec.type_of_financial_report := 'ANNUAL_SALES_VOLUME';
3162: l_fin_rep_rec.CONSOLIDATED_IND := p_interface_rec.ANNUAL_SALES_CONSOL_IND;
3163:
3164: -- Bug 3539597.
3252: and trunc(nvl(end_date_active, sysdate)) >= trunc(sysdate);
3253:
3254: BEGIN
3255:
3256: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_ORG (+) ');
3257:
3258: IF p_organization_rec.party_rec.party_id IS NULL THEN
3259:
3260: --
3259:
3260: --
3261: --party does not exist. Create party.
3262: --
3263: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_ORG: party does not exist');
3264:
3265: l_exist := 'N';
3266: l_ue_exist := 'N';
3267:
3266: l_ue_exist := 'N';
3267:
3268: ELSE
3269:
3270: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_ORG: party exists . party_id =' || to_char(p_organization_rec.party_rec.party_id));
3271:
3272: BEGIN
3273:
3274: SELECT 'Y' INTO l_ue_exist
3308: --
3309: --party exists. org profile does not. Create org profile
3310: --
3311:
3312: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_ORG: party exists, org profile does not exist ');
3313:
3314: --Bug 1721094: generate party number by sequence.
3315: IF fnd_profile.value('HZ_GENERATE_PARTY_NUMBER') = 'N' THEN
3316: fnd_profile.put('HZ_GENERATE_PARTY_NUMBER', 'Y');
3349: IF l_profile = 'N' THEN
3350: fnd_profile.put('HZ_GENERATE_PARTY_NUMBER', 'N');
3351: END IF;
3352:
3353: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_ORG: party does not exist: created party with party_id =' || to_char(p_organization_rec.party_rec.party_id));
3354:
3355: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3356: RETURN;
3357: END IF;
3358:
3359: IF p_organization_rec.displayed_duns_party_id IS NULL THEN
3360: IF l_ue_exist = 'N' THEN
3361:
3362: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_ORG: party does not exist: update DNB and USER_ENTERED displayed_duns_party_id');
3363:
3364: UPDATE hz_organization_profiles
3365: SET displayed_duns_party_id = p_organization_rec.party_rec.party_id
3366: WHERE party_id = p_organization_rec.party_rec.party_id AND
3365: SET displayed_duns_party_id = p_organization_rec.party_rec.party_id
3366: WHERE party_id = p_organization_rec.party_rec.party_id AND
3367: effective_end_date is null;
3368: ELSE
3369: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_ORG: party does not exist: update DNB displayed_duns_party_id');
3370: UPDATE hz_organization_profiles
3371: SET displayed_duns_party_id = p_organization_rec.party_rec.party_id
3372: WHERE party_id = p_organization_rec.party_rec.party_id AND
3373: actual_content_source = p_organization_rec.ACTUAL_CONTENT_SOURCE AND
3380: --
3381: --party exists. org profile exists. Update it.
3382: --
3383:
3384: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_ORG: party exists, org profile exists ');
3385:
3386: SELECT object_version_number INTO l_object_version_number
3387: FROM hz_parties
3388: WHERE party_id= p_organization_rec.party_rec.party_id;
3405: IF l_profile_obsolete_col = 'Y' THEN
3406: fnd_profile.put('HZ_API_ERR_ON_OBSOLETE_COLUMN', 'Y');
3407: END IF;
3408:
3409: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_ORG (-) ');
3410:
3411: END store_org;
3412:
3413:
3869: BEGIN
3870:
3871: /* update code assignment or create code assignment */
3872:
3873: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION (+) ');
3874:
3875: IF p_code_assignment_rec.class_category IN ('1972', '1977', '1987') THEN
3876: p_code_assignment_rec.class_category := p_code_assignment_rec.class_category || ' SIC';
3877: l_code_assignment_rec.class_category := p_code_assignment_rec.class_category;
3882: p_code_assignment_rec.class_code := SUBSTRB(replace(p_code_assignment_rec.class_code, ' ', ''), 1, 4);
3883: l_code_assignment_rec.class_code := p_code_assignment_rec.class_code;
3884: END IF;
3885:
3886: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : CONTENT_SOURCE_TYPE = ' || p_code_assignment_rec.CONTENT_SOURCE_TYPE);
3887: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : l_code_assignment_rec.class_category = ' || l_code_assignment_rec.class_category);
3888: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : l_code_assignment_rec.class_code = ' || l_code_assignment_rec.class_code);
3889: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : l_code_assignment_rec.owner_table_id = ' || l_code_assignment_rec.owner_table_id);
3890:
3883: l_code_assignment_rec.class_code := p_code_assignment_rec.class_code;
3884: END IF;
3885:
3886: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : CONTENT_SOURCE_TYPE = ' || p_code_assignment_rec.CONTENT_SOURCE_TYPE);
3887: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : l_code_assignment_rec.class_category = ' || l_code_assignment_rec.class_category);
3888: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : l_code_assignment_rec.class_code = ' || l_code_assignment_rec.class_code);
3889: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : l_code_assignment_rec.owner_table_id = ' || l_code_assignment_rec.owner_table_id);
3890:
3891: BEGIN
3884: END IF;
3885:
3886: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : CONTENT_SOURCE_TYPE = ' || p_code_assignment_rec.CONTENT_SOURCE_TYPE);
3887: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : l_code_assignment_rec.class_category = ' || l_code_assignment_rec.class_category);
3888: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : l_code_assignment_rec.class_code = ' || l_code_assignment_rec.class_code);
3889: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : l_code_assignment_rec.owner_table_id = ' || l_code_assignment_rec.owner_table_id);
3890:
3891: BEGIN
3892: select code_assignment_id, object_version_number , primary_flag
3885:
3886: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : CONTENT_SOURCE_TYPE = ' || p_code_assignment_rec.CONTENT_SOURCE_TYPE);
3887: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : l_code_assignment_rec.class_category = ' || l_code_assignment_rec.class_category);
3888: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : l_code_assignment_rec.class_code = ' || l_code_assignment_rec.class_code);
3889: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION : l_code_assignment_rec.owner_table_id = ' || l_code_assignment_rec.owner_table_id);
3890:
3891: BEGIN
3892: select code_assignment_id, object_version_number , primary_flag
3893: into l_code_assignment_id, l_object_version_number, l_primary_flag
3914: --4287144
3915: --IF p_code_assignment_rec.CONTENT_SOURCE_TYPE <> HZ_PARTY_V2PUB.G_MISS_CONTENT_SOURCE_TYPE THEN
3916: IF (l_primary_flag <> p_code_assignment_rec.primary_flag) THEN
3917:
3918: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION: Code Assignment already exist, code_assignment_id=' || to_char(l_code_assignment_id));
3919: l_code_assignment_rec.code_assignment_id := l_code_assignment_id;
3920: -- Bug 3397674 : the primary flag should be updated as per new data, instead
3921: -- of rataining it by l_primary_flag from above select statement.
3922: -- l_code_assignment_rec.primary_flag := l_primary_flag;
3946: END;
3947:
3948: IF l_create THEN
3949:
3950: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CLASSIFICATION: No Code Assignment exists, create ' || p_code_assignment_rec.CONTENT_SOURCE_TYPE);
3951:
3952: p_code_assignment_rec.application_id := 222;
3953: p_code_assignment_rec.created_by_module := 'TCA_DNB_MAPPING';
3954:
4022: l_duns_number_c := p_location_rec.orig_system_reference;
4023:
4024: /* update location or create party_site or (create location and party site). */
4025:
4026: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_LOCATION (+) ');
4027: -- Bug 3417357 : if p_create_new = TRUE, we need to create new location
4028: IF p_create_new = TRUE or p_location_rec.actual_content_source = HZ_PARTY_V2PUB.G_MISS_CONTENT_SOURCE_TYPE THEN
4029: -- actual_content_source = "USER_ENTERED" , create new location and party site
4030: l_create := TRUE;
4032: -- actual_content_source = "DNB"
4033:
4034: BEGIN
4035:
4036: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_LOCATION : actual_content_source = ' || p_location_rec.actual_content_source);
4037:
4038: -- there is only one dnb party site record with end_date_active as null
4039:
4040: -- Bug 2882305 : Add address1 to select statement
4048: -- Bug 3473497 : Added condition status='A' in where clause
4049: AND ps.status = 'A'
4050: AND rownum = 1;
4051:
4052: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_LOCATION: Location and party site already exist');
4053:
4054: hz_registry_validate_v2pub.tax_location_validation(
4055: p_location_rec,
4056: 'U',
4054: hz_registry_validate_v2pub.tax_location_validation(
4055: p_location_rec,
4056: 'U',
4057: l_valid_tax_location );
4058: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_LOCATION: l_valid_tax_location =' || l_valid_tax_location);
4059:
4060: IF l_valid_tax_location <> fnd_api.g_ret_sts_error THEN
4061: -- if the existing location record has same taxable components, update this record
4062:
4081: p_location_rec.created_by_module := NULL;
4082: p_location_rec.application_id := NULL;
4083:
4084:
4085: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_LOCATION: update Location and party site');
4086:
4087: -- Bug 2882305 : Check if null is passed for address1, retain the previous address1.
4088:
4089: if(p_location_rec.address1 = 'Not provided by DNB') then
4142:
4143: ELSE
4144: -- if the existing record has same taxable components, create a new location
4145: p_location_rec.location_id := null;
4146: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_LOCATION: Location Tax Components changed, create new location');
4147: l_create := TRUE;
4148: END IF;
4149:
4150: EXCEPTION
4153: END;
4154: END IF;
4155:
4156: IF l_create THEN
4157: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_LOCATION: No party site exists for this party, create ' || p_location_rec.actual_content_source );
4158: -- Bug 3417357 : Pass p_create_new to do_store_location.
4159: do_store_location(
4160: p_location_rec,
4161: p_party_id,
4164: x_return_status
4165: );
4166: END IF;
4167:
4168: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_LOCATION (-) ');
4169:
4170:
4171: END store_location; /* update location or create party_site or (create location and party site). */
4172:
4231: --
4232: --Location does not exist.
4233: --
4234:
4235: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_LOCATION: No party site exists for this party: Location does not exist');
4236: --arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_LOCATION: p_location_rec.ORIG_SYSTEM_REFERENCE=' || p_location_rec.ORIG_SYSTEM_REFERENCE);
4237: --arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_LOCATION: p_location_rec.actual_content_source =' || p_location_rec.actual_content_source);
4238:
4239: p_location_rec.application_id := 222;
4232: --Location does not exist.
4233: --
4234:
4235: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_LOCATION: No party site exists for this party: Location does not exist');
4236: --arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_LOCATION: p_location_rec.ORIG_SYSTEM_REFERENCE=' || p_location_rec.ORIG_SYSTEM_REFERENCE);
4237: --arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_LOCATION: p_location_rec.actual_content_source =' || p_location_rec.actual_content_source);
4238:
4239: p_location_rec.application_id := 222;
4240: p_location_rec.created_by_module := 'TCA_DNB_MAPPING';
4233: --
4234:
4235: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_LOCATION: No party site exists for this party: Location does not exist');
4236: --arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_LOCATION: p_location_rec.ORIG_SYSTEM_REFERENCE=' || p_location_rec.ORIG_SYSTEM_REFERENCE);
4237: --arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_LOCATION: p_location_rec.actual_content_source =' || p_location_rec.actual_content_source);
4238:
4239: p_location_rec.application_id := 222;
4240: p_location_rec.created_by_module := 'TCA_DNB_MAPPING';
4241: /* Bug Fix : 2770991 */
4250: IF l_location_id IS NOT NULL THEN
4251: p_location_rec.location_id := l_location_id;
4252: END IF;
4253:
4254: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_LOCATION: created location with location_id '|| to_char(p_location_rec.location_id));
4255:
4256: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4257: RETURN;
4258: END IF;
4275: AND status = 'A'
4276: AND (SYSDATE BETWEEN START_DATE_ACTIVE AND NVL(END_DATE_ACTIVE, to_date('12/31/4712','MM/DD/YYYY')))
4277: AND ROWNUM = 1;
4278:
4279: arp_util.debug(' l_party_site_exist = '|| l_party_site_exist );
4280:
4281: EXCEPTION WHEN NO_DATA_FOUND THEN
4282: */
4283: store_party_site(l_party_site_rec,
4319: and trunc(nvl(end_date_active, sysdate)) >= trunc(sysdate);
4320:
4321: BEGIN
4322:
4323: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_PARTY_SITE (+) ');
4324:
4325: --Bug 1721094: generate party site number by sequence.
4326: IF fnd_profile.value('HZ_GENERATE_PARTY_SITE_NUMBER') = 'N' THEN
4327: fnd_profile.put('HZ_GENERATE_PARTY_SITE_NUMBER', 'Y');
4380: IF l_profile = 'N' THEN
4381: fnd_profile.put('HZ_GENERATE_PARTY_SITE_NUMBER', 'N');
4382: END IF;
4383:
4384: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_PARTY_SITE: created party site with party_site_id '|| to_char(p_party_site_rec.party_site_id));
4385: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_PARTY_SITE (-) ');
4386:
4387:
4388: END store_party_site;
4381: fnd_profile.put('HZ_GENERATE_PARTY_SITE_NUMBER', 'N');
4382: END IF;
4383:
4384: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_PARTY_SITE: created party site with party_site_id '|| to_char(p_party_site_rec.party_site_id));
4385: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_PARTY_SITE (-) ');
4386:
4387:
4388: END store_party_site;
4389:
4452: and status = 'A'
4453: and trunc(nvl(end_date_active, sysdate)) >= trunc(sysdate);
4454: BEGIN
4455:
4456: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CONTACT_POINT (+) ');
4457:
4458: p_contact_points_rec.contact_point_type := 'PHONE';
4459: p_contact_points_rec.owner_table_name := 'HZ_PARTIES';
4460: p_contact_points_rec.contact_point_id := NULL; --Reset it.
4458: p_contact_points_rec.contact_point_type := 'PHONE';
4459: p_contact_points_rec.owner_table_name := 'HZ_PARTIES';
4460: p_contact_points_rec.contact_point_id := NULL; --Reset it.
4461:
4462: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CONTACT_POINT: actual_content_source = ' || p_contact_points_rec.actual_content_source);
4463:
4464: --4227564: initialize l_duns_number_c
4465: IF ( instrb ( p_contact_points_rec.orig_system_reference, 'CP', 1, 1) <> 0) THEN
4466: --get the duns_number_c from orig_system
4495: AND actual_content_source = p_contact_points_rec.actual_content_source
4496: AND status = 'A'
4497: )
4498: WHERE r=1;
4499: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CONTACT_POINT: contact point exists, contact_point_id =' || to_char(p_contact_points_rec.contact_point_id));
4500:
4501: IF p_contact_points_rec.actual_content_source <> HZ_PARTY_V2PUB.G_MISS_CONTENT_SOURCE_TYPE THEN
4502: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CONTACT_POINT: update contact point');
4503:
4498: WHERE r=1;
4499: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CONTACT_POINT: contact point exists, contact_point_id =' || to_char(p_contact_points_rec.contact_point_id));
4500:
4501: IF p_contact_points_rec.actual_content_source <> HZ_PARTY_V2PUB.G_MISS_CONTENT_SOURCE_TYPE THEN
4502: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CONTACT_POINT: update contact point');
4503:
4504: p_contact_points_rec.orig_system := NULL;
4505: p_contact_points_rec.orig_system_reference := l_orig_system_reference;
4506: p_contact_points_rec.created_by_module := NULL;
4562: l_create := TRUE;
4563: END;
4564:
4565: IF l_create THEN
4566: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CONTACT_POINT: contact point does not exist');
4567:
4568: --MOSR Changes
4569: --Increment the orig_system_reference counter
4570: --4227564: Moved this code to beginning of the procedure.
4620: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4621: RETURN;
4622: END IF;
4623:
4624: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CONTACT_POINT: created contact point, contact_point_id = ' || l_contact_point_id);
4625:
4626: END IF;
4627:
4628: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CONTACT_POINT (-) ');
4624: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CONTACT_POINT: created contact point, contact_point_id = ' || l_contact_point_id);
4625:
4626: END IF;
4627:
4628: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CONTACT_POINT (-) ');
4629:
4630: END store_contact_point;
4631:
4632:
4674: l_ovn NUMBER;
4675:
4676: BEGIN
4677:
4678: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CREDIT_RATINGS (+) ' );
4679: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CREDIT_RATINGS actual_content_source = ' || p_credit_ratings_rec.actual_content_source );
4680: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CREDIT_RATINGS party_id = ' || p_credit_ratings_rec.party_id );
4681:
4682: BEGIN
4675:
4676: BEGIN
4677:
4678: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CREDIT_RATINGS (+) ' );
4679: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CREDIT_RATINGS actual_content_source = ' || p_credit_ratings_rec.actual_content_source );
4680: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CREDIT_RATINGS party_id = ' || p_credit_ratings_rec.party_id );
4681:
4682: BEGIN
4683:
4676: BEGIN
4677:
4678: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CREDIT_RATINGS (+) ' );
4679: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CREDIT_RATINGS actual_content_source = ' || p_credit_ratings_rec.actual_content_source );
4680: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CREDIT_RATINGS party_id = ' || p_credit_ratings_rec.party_id );
4681:
4682: BEGIN
4683:
4684: SELECT MAX(rated_as_of_date)
4695: AND NVL(rated_as_of_date, TO_DATE('31-12-4712', 'DD-MM-YYYY'))=
4696: NVL(l_max_rated_as_of_date, TO_DATE('31-12-4712', 'DD-MM-YYYY'))
4697: AND rownum = 1;
4698:
4699: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CREDIT_RATINGS: credit rating record exists');
4700:
4701:
4702: IF trunc(l_rated_as_of_date) = trunc(sysdate) THEN
4703:
4728: RETURN;
4729: END IF;
4730:
4731: ELSE
4732: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CREDIT_RATINGS: the existing credit rating record is not in the same day as the new one');
4733: l_create_credit_rating := TRUE;
4734: END IF;
4735:
4736: EXCEPTION
4734: END IF;
4735:
4736: EXCEPTION
4737: WHEN NO_DATA_FOUND THEN
4738: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CREDIT_RATINGS: credit rating record not exist');
4739: l_create_credit_rating := TRUE;
4740: END;
4741:
4742: IF l_create_credit_rating THEN
4739: l_create_credit_rating := TRUE;
4740: END;
4741:
4742: IF l_create_credit_rating THEN
4743: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CREDIT_RATINGS: creating credit rating record ');
4744:
4745: p_credit_ratings_rec.created_by_module := 'TCA_DNB_MAPPING';
4746: HZ_PARTY_INFO_V2PUB.create_credit_rating(
4747: 'F',
4762: p_credit_ratings_rec.credit_rating_id);
4763: */
4764: END IF;
4765:
4766: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_CREDIT_RATINGS (-) ');
4767:
4768: END store_credit_ratings;
4769:
4770: --
4808: l_create BOOLEAN := FALSE;
4809: l_ovn NUMBER;
4810: BEGIN
4811:
4812: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_REPORT (+) ');
4813: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_REPORT actual_content_source = ' || p_fin_rep_rec.actual_content_source );
4814:
4815:
4816: BEGIN
4809: l_ovn NUMBER;
4810: BEGIN
4811:
4812: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_REPORT (+) ');
4813: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_REPORT actual_content_source = ' || p_fin_rep_rec.actual_content_source );
4814:
4815:
4816: BEGIN
4817: SELECT financial_report_id, last_update_date, object_version_number
4852: p_fin_rep_rec.REPORT_START_DATE := NULL;
4853: p_fin_rep_rec.REPORT_END_DATE := NULL;
4854: p_fin_rep_rec.ISSUED_PERIOD := NULL;
4855:
4856: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_REPORT: Fin report already exists, contact_point_id =' || to_char(p_fin_rep_rec.financial_report_id));
4857:
4858: IF p_fin_rep_rec.ACTUAL_CONTENT_SOURCE <> HZ_PARTY_V2PUB.G_MISS_CONTENT_SOURCE_TYPE THEN
4859: --
4860: --Fin report already exists. Update it.
4858: IF p_fin_rep_rec.ACTUAL_CONTENT_SOURCE <> HZ_PARTY_V2PUB.G_MISS_CONTENT_SOURCE_TYPE THEN
4859: --
4860: --Fin report already exists. Update it.
4861: --
4862: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_REPORT: update financial report for DNB');
4863:
4864: p_fin_rep_rec.created_by_module := NULL;
4865: HZ_ORGANIZATION_INFO_V2PUB.update_financial_report(
4866: 'F',
4895: --
4896: --Fin Report does not exist. Need to create a new one.
4897: --
4898:
4899: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_REPORT: Fin report does not exist');
4900:
4901: x_new_fin_report := 'Y';
4902:
4903: p_fin_rep_rec.created_by_module := 'TCA_DNB_MAPPING';
4921: */
4922:
4923: END IF;
4924:
4925: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_REPORT (-) ');
4926:
4927: END do_store_financial_report;
4928:
4929: /*===========================================================================+
5037: FROM hz_financial_numbers
5038: WHERE financial_report_id = p_fin_num_rec.financial_report_id;
5039: BEGIN
5040:
5041: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_NUMBER (+) ');
5042: --bug 3953178: in case financial_number_currecy is null use pref_functional_currency of interface record.
5043: IF p_interface_rec.FINANCIAL_NUMBER_CURRENCY IS NULL
5044: THEN
5045: p_fin_num_rec.FINANCIAL_NUMBER_CURRENCY := p_interface_rec.PREF_FUNCTIONAL_CURRENCY;
5052: --
5053: --Fin report exists. fetch all fin num names.
5054: --
5055:
5056: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_NUMBER: Fin report exists. fetch all fin num names');
5057:
5058: OPEN c1;
5059: LOOP
5060: FETCH c1 INTO l_fin_num_tab(i);
5070: --
5071: --Balance Sheet
5072: --
5073:
5074: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_NUMBER: BALANCE_SHEET');
5075:
5076: IF p_interface_rec.CURRENT_RATIO IS NOT NULL THEN
5077:
5078: p_fin_num_rec.FINANCIAL_NUMBER_NAME := 'CURRENT_RATIO';
5077:
5078: p_fin_num_rec.FINANCIAL_NUMBER_NAME := 'CURRENT_RATIO';
5079: p_fin_num_rec.FINANCIAL_NUMBER := p_interface_rec.CURRENT_RATIO;
5080:
5081: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_NUMBER:' || p_fin_num_rec.FINANCIAL_NUMBER_NAME);
5082:
5083: do_store_financial_number(p_fin_num_rec,
5084: p_new_fin_report,
5085: l_fin_num_tab,
5382: --
5383: --INCOME STATEMENT
5384: --
5385:
5386: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_NUMBER: INCOME_STATEMENT');
5387:
5388: --Following financial numbers come under 'INCOME_STATEMENT':
5389: --Sales
5390: --Previous Sales
5499: --
5500: --TANGIBLE_NET_WORTH
5501: --
5502:
5503: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_NUMBER: TANGIBLE_NET_WORTH');
5504:
5505: p_fin_num_rec.FINANCIAL_NUMBER_NAME := 'TANGIBLE_NET_WORTH';
5506: p_fin_num_rec.FINANCIAL_NUMBER := p_interface_rec.TANGIBLE_NET_WORTH;
5507: --bug 3953178: in case tangible_net_worth_curr is null use pref_functional_currency
5523: --
5524: --ANNUAL_SALES_VOLUME
5525: --
5526:
5527: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_NUMBER: ANNUAL_SALES_VOLUME');
5528:
5529: p_fin_num_rec.FINANCIAL_NUMBER_NAME := 'ANNUAL_SALES_VOLUME';
5530: p_fin_num_rec.FINANCIAL_NUMBER := p_interface_rec.ANNUAL_SALES_VOLUME;
5531: --bug 3953178: in case annual_sales_currency is null use pref_functional_currency
5559: l_fin_num_tab,
5560: x_return_status);
5561: END IF;
5562:
5563: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_FINANCIAL_NUMBER (-) ');
5564:
5565: END store_financial_number;
5566:
5567:
5609: l_last_update_date1 DATE;
5610: l_ovn NUMBER;
5611: BEGIN
5612:
5613: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_FINANCIAL_NUMBER (+) ');
5614:
5615: IF p_new_fin_report = 'Y' THEN /* financial report is new. */
5616:
5617: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_FINANCIAL_NUMBER: financial report is new');
5613: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_FINANCIAL_NUMBER (+) ');
5614:
5615: IF p_new_fin_report = 'Y' THEN /* financial report is new. */
5616:
5617: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_FINANCIAL_NUMBER: financial report is new');
5618:
5619: p_fin_num_rec.created_by_module := 'TCA_DNB_MAPPING';
5620: HZ_ORGANIZATION_INFO_V2PUB.create_financial_number(
5621: 'F',
5643: --else some fin num may be existing. check in db to see if fin num exists. If it does, update it, else create it.
5644:
5645: ELSE /* financial report is not new. */
5646:
5647: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_FINANCIAL_NUMBER: financial report exists');
5648:
5649: p_fin_num_rec.financial_number_id := NULL;
5650:
5651: IF p_fin_num_tab.COUNT > 0 THEN
5661: END IF;
5662:
5663: IF l_fin_name_exists = 'Y' THEN
5664:
5665: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_FINANCIAL_NUMBER: financial report exists: fin num exists');
5666:
5667:
5668: p_fin_num_rec.created_by_module := NULL;
5669: HZ_ORGANIZATION_INFO_V2PUB.update_financial_number(
5685: l_msg_data);
5686: */
5687: ELSE
5688:
5689: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_FINANCIAL_NUMBER: financial report is not new: fin num does not exist');
5690:
5691: p_fin_num_rec.created_by_module := 'TCA_DNB_MAPPING';
5692: HZ_ORGANIZATION_INFO_V2PUB.create_financial_number(
5693: 'F',
5711: END IF;
5712:
5713: END IF; /* financial report is new. */
5714:
5715: arp_util.debug('HZ_MAP_PARTY_PUB.D_STORE_FINANCIAL_NUMBER (-) ');
5716:
5717: END do_store_financial_number;
5718:
5719: /*===========================================================================+
5776:
5777: --For related DUNS, open cursor here again.
5778: BEGIN
5779:
5780: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_RELATED_DUNS (+) ');
5781: OPEN c1;
5782: LOOP
5783: BEGIN
5784: FETCH c1 INTO l_interface_rec;
5785: EXIT WHEN c1%NOTFOUND;
5786:
5787: num_of_rec := num_of_rec + 1;
5788:
5789: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_RELATED_DUNS: fetched record from cursor: '|| to_char(num_of_rec));
5790:
5791:
5792: --Set Savepoint
5793: SAVEPOINT store_related_duns_pub;
5804: conform_parent_flag := null;
5805:
5806: IF l_interface_rec.GDP_NAME IN ('BATCH', 'VENDOR_MGMT', 'ENT_MGMT') THEN
5807:
5808: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_RELATED_DUNS: GDP_NAME IN (BATCH, VENDOR_MGMT, ENT_MGMT)');
5809:
5810: --Related DUNS info. is provided only by above products.
5811:
5812: l_related_duns_rec.MAIN_PARTY_ID := l_interface_rec.party_id;
5822: --
5823:
5824: IF l_interface_rec.HQ_DUNS_NUMBER IS NOT NULL THEN
5825:
5826: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_RELATED_DUNS: HQ');
5827:
5828: l_related_duns_rec.DUNS_NUMBER := l_interface_rec.HQ_DUNS_NUMBER ;
5829: l_related_duns_rec.NAME := l_interface_rec.HQ_NAME ;
5830: l_related_duns_rec.COUNTRY := l_interface_rec.HQ_COUNTRY;
5853:
5854: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
5855: l_interface_rec.PARENT_DUNS_NUMBER IS NOT NULL THEN
5856:
5857: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_RELATED_DUNS: PARENT');
5858:
5859: l_related_duns_rec.DUNS_NUMBER := l_interface_rec.PARENT_DUNS_NUMBER ;
5860: l_related_duns_rec.NAME := l_interface_rec.PARENT_NAME ;
5861: l_related_duns_rec.COUNTRY := l_interface_rec.PARENT_COUNTRY ;
5880:
5881: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
5882: l_interface_rec.DOM_ULT_DUNS_NUMBER IS NOT NULL THEN
5883:
5884: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_RELATED_DUNS: DOM_ULT');
5885:
5886: l_related_duns_rec.DUNS_NUMBER := l_interface_rec.DOM_ULT_DUNS_NUMBER ;
5887: l_related_duns_rec.NAME := l_interface_rec.DOM_ULT_NAME ;
5888: l_related_duns_rec.COUNTRY := l_interface_rec.DOM_ULT_COUNTRY;
5906:
5907: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
5908: l_interface_rec.GLB_ULT_DUNS_NUMBER IS NOT NULL THEN
5909:
5910: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_RELATED_DUNS: GLB_ULT');
5911:
5912: l_related_duns_rec.DUNS_NUMBER := l_interface_rec.GLB_ULT_DUNS_NUMBER ;
5913: l_related_duns_rec.NAME := l_interface_rec.GLB_ULT_NAME ;
5914: l_related_duns_rec.COUNTRY := l_interface_rec.GLB_ULT_COUNTRY;
5967: SET status = 'P2'
5968: WHERE party_interface_id = l_interface_rec.party_interface_id;
5969: END IF;
5970:
5971: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_RELATED_DUNS: update party interface status to P2 for party_interface_id = ' || l_interface_rec.party_interface_id );
5972:
5973: do_update_request_log(
5974: l_interface_rec.request_log_id,
5975: l_interface_rec.party_id,
5975: l_interface_rec.party_id,
5976: 'S'
5977: );
5978:
5979: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_RELATED_DUNS: update request log status to S');
5980: IF FND_API.to_Boolean(p_commit) THEN
5981: commit;
5982: END IF;
5983:
6050:
6051: END LOOP;
6052: CLOSE c1;
6053:
6054: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_RELATED_DUNS (-) ');
6055:
6056: END store_related_duns;
6057:
6058: /*===========================================================================+
6127:
6128:
6129: BEGIN
6130:
6131: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_RELATED_DUNS (+) ');
6132:
6133: l_organization_rec.actual_content_source := p_related_duns_rec.content_source_type;
6134: l_organization_rec.created_by_module := 'TCA_DNB_MAPPING';
6135:
6186: --
6187: --party does not exist in system. create party and org profile.
6188: --
6189:
6190: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_RELATED_DUNS: party does not exist');
6191:
6192: l_organization_rec.organization_name := p_related_duns_rec.NAME;
6193: l_organization_rec.DUNS_NUMBER_C := lpad(to_char(p_related_duns_rec.DUNS_NUMBER),9,'0');
6194: --Bug 3550989 : Pass orig_system and orig_system_reference to create_org API
6227: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6228: RETURN;
6229: END IF;
6230:
6231: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_RELATED_DUNS: party does not exist: created party with party_id ' || to_char(l_organization_rec.party_rec.party_id));
6232: --
6233: --update displayed_duns_party_id.
6234: --
6235:
6232: --
6233: --update displayed_duns_party_id.
6234: --
6235:
6236: --arp_util.debug('HZ_MAP_PARTY_PUB.STORE_ORG: party does not exist: update displayed_duns_party_id');
6237:
6238: UPDATE hz_organization_profiles
6239: SET displayed_duns_party_id = l_organization_rec.party_rec.party_id
6240: WHERE organization_profile_id = l_organization_profile_id;
6285: --
6286: --party exists. get all party ids having this DUNS.
6287: --
6288:
6289: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_RELATED_DUNS: party exists');
6290:
6291:
6292: OPEN c1;
6293: LOOP
6338: END IF;
6339:
6340: END IF;
6341:
6342: arp_util.debug('HZ_MAP_PARTY_PUB.DO_STORE_RELATED_DUNS (-) ');
6343:
6344: END do_store_related_duns;
6345:
6346: /*===========================================================================+
6499: END LOOP;
6500: CLOSE c_old_parent_hq;
6501: end if;
6502:
6503: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_PARTY_REL (+) ');
6504:
6505: OPEN c_old_party_rel;
6506: LOOP
6507: FETCH c_old_party_rel
6586: fnd_profile.put('HZ_GENERATE_PARTY_NUMBER', 'Y');
6587: l_profile := 'N';
6588: END IF;
6589:
6590: arp_util.debug('HZ_MAP_PARTY_PUB.store_party_rel p_party_rel_rec.subject_id = ' || p_party_rel_rec.subject_id );
6591: arp_util.debug('HZ_MAP_PARTY_PUB.store_party_rel p_party_rel_rec.subject_type = ' || p_party_rel_rec.subject_type );
6592:
6593: p_party_rel_rec.created_by_module := 'TCA_DNB_MAPPING';
6594: HZ_RELATIONSHIP_V2PUB.create_relationship(
6587: l_profile := 'N';
6588: END IF;
6589:
6590: arp_util.debug('HZ_MAP_PARTY_PUB.store_party_rel p_party_rel_rec.subject_id = ' || p_party_rel_rec.subject_id );
6591: arp_util.debug('HZ_MAP_PARTY_PUB.store_party_rel p_party_rel_rec.subject_type = ' || p_party_rel_rec.subject_type );
6592:
6593: p_party_rel_rec.created_by_module := 'TCA_DNB_MAPPING';
6594: HZ_RELATIONSHIP_V2PUB.create_relationship(
6595: 'F',
6607: END IF;
6608:
6609: END IF;
6610:
6611: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_PARTY_REL (-) ');
6612:
6613: END store_party_rel;
6614:
6615: /*===========================================================================+
6645: l_message_text VARCHAR2(2000);
6646: l_msg_count NUMBER;
6647: BEGIN
6648:
6649: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_ERROR (+) ');
6650:
6651:
6652: UPDATE hz_party_interface
6653: SET status = p_status
6685: END LOOP;
6686:
6687: COMMIT; /* commit update to hz_party_interface and inserts into hz_party_interface_errors */
6688:
6689: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_ERROR (-) ');
6690:
6691: END store_error;
6692:
6693: /*===========================================================================+
6720: p_business_report CLOB
6721: ) IS
6722: BEGIN
6723:
6724: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_BUSINESS_REPORT(+) ');
6725:
6726: UPDATE hz_organization_profiles
6727: SET business_report = p_business_report
6728: WHERE organization_profile_id = p_organization_profile_id;
6726: UPDATE hz_organization_profiles
6727: SET business_report = p_business_report
6728: WHERE organization_profile_id = p_organization_profile_id;
6729:
6730: arp_util.debug('HZ_MAP_PARTY_PUB.STORE_BUSINESS_REPORT(-) ');
6731:
6732: END;
6733:
6734: