1: package BODY HZ_PARTY_ACQUIRE AS
2: /* $Header: ARHDQAQB.pls 120.7 2005/07/04 05:48:15 rchanamo noship $ */
3:
4: TYPE vTable IS TABLE OF VARCHAR2(255) index by binary_integer;
5:
484:
485: IF g_party_custom_valid(I) = 'Y' THEN
486: BEGIN
487:
488: IF l_proc_name = 'HZ_PARTY_ACQUIRE.get_known_as' THEN
489: l_val := HZ_PARTY_ACQUIRE.get_known_as(p_party_id,'PARTY', l_attr_name, 'STAGE');
490: ELSIF l_proc_name = 'HZ_PARTY_ACQUIRE.get_account_info' THEN
491: l_val := HZ_PARTY_ACQUIRE.get_account_info(p_party_id,'PARTY', l_attr_name, 'STAGE');
492: ELSE
485: IF g_party_custom_valid(I) = 'Y' THEN
486: BEGIN
487:
488: IF l_proc_name = 'HZ_PARTY_ACQUIRE.get_known_as' THEN
489: l_val := HZ_PARTY_ACQUIRE.get_known_as(p_party_id,'PARTY', l_attr_name, 'STAGE');
490: ELSIF l_proc_name = 'HZ_PARTY_ACQUIRE.get_account_info' THEN
491: l_val := HZ_PARTY_ACQUIRE.get_account_info(p_party_id,'PARTY', l_attr_name, 'STAGE');
492: ELSE
493: -- Create a dynamic SQL block to execute the merge procedure
486: BEGIN
487:
488: IF l_proc_name = 'HZ_PARTY_ACQUIRE.get_known_as' THEN
489: l_val := HZ_PARTY_ACQUIRE.get_known_as(p_party_id,'PARTY', l_attr_name, 'STAGE');
490: ELSIF l_proc_name = 'HZ_PARTY_ACQUIRE.get_account_info' THEN
491: l_val := HZ_PARTY_ACQUIRE.get_account_info(p_party_id,'PARTY', l_attr_name, 'STAGE');
492: ELSE
493: -- Create a dynamic SQL block to execute the merge procedure
494: plsql_block := 'BEGIN '||
487:
488: IF l_proc_name = 'HZ_PARTY_ACQUIRE.get_known_as' THEN
489: l_val := HZ_PARTY_ACQUIRE.get_known_as(p_party_id,'PARTY', l_attr_name, 'STAGE');
490: ELSIF l_proc_name = 'HZ_PARTY_ACQUIRE.get_account_info' THEN
491: l_val := HZ_PARTY_ACQUIRE.get_account_info(p_party_id,'PARTY', l_attr_name, 'STAGE');
492: ELSE
493: -- Create a dynamic SQL block to execute the merge procedure
494: plsql_block := 'BEGIN '||
495: ' :retval := '||l_proc_name||'(:record_id, :entity_name, :attribute_name);'||
734:
735: IF g_ps_custom_valid(I) = 'Y' THEN
736:
737: BEGIN
738: IF l_proc_name = 'HZ_PARTY_ACQUIRE.get_address' THEN
739: l_val := HZ_PARTY_ACQUIRE.get_address(p_party_site_id, 'PARTY_SITES', l_attr_name, 'STAGE');
740: ELSE
741: -- Create a dynamic SQL block to execute the merge procedure
742: plsql_block := 'BEGIN '||
735: IF g_ps_custom_valid(I) = 'Y' THEN
736:
737: BEGIN
738: IF l_proc_name = 'HZ_PARTY_ACQUIRE.get_address' THEN
739: l_val := HZ_PARTY_ACQUIRE.get_address(p_party_site_id, 'PARTY_SITES', l_attr_name, 'STAGE');
740: ELSE
741: -- Create a dynamic SQL block to execute the merge procedure
742: plsql_block := 'BEGIN '||
743: ' :retval := '||l_proc_name||'(:record_id, :entity_name, :attribute_name);'||
987:
988: IF g_cont_custom_valid(I) = 'Y' THEN
989:
990: BEGIN
991: IF l_proc_name='HZ_PARTY_ACQUIRE.get_contact_name' THEN
992: l_val := HZ_PARTY_ACQUIRE.get_contact_name(p_org_contact_id, 'CONTACTS', l_attr_name, 'STAGE');
993: ELSE
994: -- Create a dynamic SQL block to execute the merge procedure
995: plsql_block := 'BEGIN '||
988: IF g_cont_custom_valid(I) = 'Y' THEN
989:
990: BEGIN
991: IF l_proc_name='HZ_PARTY_ACQUIRE.get_contact_name' THEN
992: l_val := HZ_PARTY_ACQUIRE.get_contact_name(p_org_contact_id, 'CONTACTS', l_attr_name, 'STAGE');
993: ELSE
994: -- Create a dynamic SQL block to execute the merge procedure
995: plsql_block := 'BEGIN '||
996: ' :retval := '||l_proc_name||'(:record_id, :entity_name, :attribute_name);'||
1216:
1217: IF g_cpt_custom_valid(I) = 'Y' THEN
1218:
1219: BEGIN
1220: IF l_proc_name='HZ_PARTY_ACQUIRE.get_phone_number' THEN
1221: l_val := HZ_PARTY_ACQUIRE.get_phone_number(p_contact_point_id, 'CONTACT_POINTS', l_attr_name, 'STAGE');
1222: ELSE
1223: -- Create a dynamic SQL block to execute the merge procedure
1224: plsql_block := 'BEGIN '||
1217: IF g_cpt_custom_valid(I) = 'Y' THEN
1218:
1219: BEGIN
1220: IF l_proc_name='HZ_PARTY_ACQUIRE.get_phone_number' THEN
1221: l_val := HZ_PARTY_ACQUIRE.get_phone_number(p_contact_point_id, 'CONTACT_POINTS', l_attr_name, 'STAGE');
1222: ELSE
1223: -- Create a dynamic SQL block to execute the merge procedure
1224: plsql_block := 'BEGIN '||
1225: ' :retval := '||l_proc_name||'(:record_id, :entity_name, :attribute_name);'||
1363: IF (sqlcode=-6502) THEN
1364: RETURN l_acct_ret;
1365: END IF;
1366: FND_MESSAGE.SET_NAME('AR', 'HZ_ACQUIRE_PROC_ERROR');
1367: FND_MESSAGE.SET_TOKEN('PROC' ,'HZ_PARTY_ACQUIRE.get_account_info');
1368: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1369: FND_MSG_PUB.ADD;
1370: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1371: END get_account_info;
1398: END IF;
1399: EXCEPTION
1400: WHEN OTHERS THEN
1401: FND_MESSAGE.SET_NAME('AR', 'HZ_ACQUIRE_PROC_ERROR');
1402: FND_MESSAGE.SET_TOKEN('PROC' ,'HZ_PARTY_ACQUIRE.get_known_as');
1403: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1404: FND_MSG_PUB.ADD;
1405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1406: END get_known_as;
1435:
1436: EXCEPTION
1437: WHEN OTHERS THEN
1438: FND_MESSAGE.SET_NAME('AR', 'HZ_ACQUIRE_PROC_ERROR');
1439: FND_MESSAGE.SET_TOKEN('PROC' ,'HZ_PARTY_ACQUIRE.get_address');
1440: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1441: FND_MSG_PUB.ADD;
1442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1443: END get_address;
1471:
1472: EXCEPTION
1473: WHEN OTHERS THEN
1474: FND_MESSAGE.SET_NAME('AR', 'HZ_ACQUIRE_PROC_ERROR');
1475: FND_MESSAGE.SET_TOKEN('PROC' ,'HZ_PARTY_ACQUIRE.get_address');
1476: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1477: FND_MSG_PUB.ADD;
1478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1479: END get_contact_name;
1523: RETURN null;
1524: EXCEPTION
1525: WHEN OTHERS THEN
1526: FND_MESSAGE.SET_NAME('AR', 'HZ_ACQUIRE_PROC_ERROR');
1527: FND_MESSAGE.SET_TOKEN('PROC' ,'HZ_PARTY_ACQUIRE.get_phone_number');
1528: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1529: FND_MSG_PUB.ADD;
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1531: END get_phone_number;
1621: IF (sqlcode=-6502) THEN
1622: return retstr;
1623: END IF;
1624: FND_MESSAGE.SET_NAME('AR', 'HZ_ACQUIRE_PROC_ERROR');
1625: FND_MESSAGE.SET_TOKEN('PROC' ,'HZ_PARTY_ACQUIRE.GET_SSM_MAPPINGS');
1626: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1627: FND_MSG_PUB.ADD;
1628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1629: END get_ssm_mappings ;