[Home] [Help]
240: END IF;
241:
242: -- if primary key value is passed, check for uniqueness.
243: IF l_party_site_id IS NOT NULL AND
244: l_party_site_id <> FND_API.G_MISS_NUM
245: THEN
246: BEGIN
247: SELECT 'Y'
248: INTO l_dummy
251:
252: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
253: FND_MESSAGE.SET_TOKEN('COLUMN', 'party_site_id');
254: FND_MSG_PUB.ADD;
255: RAISE FND_API.G_EXC_ERROR;
256:
257: EXCEPTION
258: WHEN NO_DATA_FOUND THEN
259: NULL;
267:
268: l_gen_party_site_number := fnd_profile.value('HZ_GENERATE_PARTY_SITE_NUMBER');
269:
270: IF l_gen_party_site_number = 'N' THEN
271: IF l_party_site_number = FND_API.G_MISS_CHAR
272: OR
273: l_party_site_number IS NULL
274: THEN
275: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
274: THEN
275: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
276: FND_MESSAGE.SET_TOKEN('COLUMN', 'party_site_number');
277: FND_MSG_PUB.ADD;
278: RAISE FND_API.G_EXC_ERROR;
279: END IF;
280:
281: BEGIN
282: SELECT 'Y'
286:
287: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
288: FND_MESSAGE.SET_TOKEN('COLUMN', 'party_site_number');
289: FND_MSG_PUB.ADD;
290: RAISE FND_API.G_EXC_ERROR;
291:
292: EXCEPTION
293: WHEN NO_DATA_FOUND THEN
294: NULL;
298: OR
299: l_gen_party_site_number IS NULL
300: THEN
301:
302: IF l_party_site_number <> FND_API.G_MISS_CHAR
303: AND
304: l_party_site_number IS NOT NULL
305: THEN
306: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PARTY_SITE_NUM_AUTO_ON');
304: l_party_site_number IS NOT NULL
305: THEN
306: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PARTY_SITE_NUM_AUTO_ON');
307: FND_MSG_PUB.ADD;
308: RAISE FND_API.G_EXC_ERROR;
309: END IF;
310:
311: END IF;
312:
321: l_rowid,
322: x_return_status,
323: l_loc_actual_content_source);
324:
325: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
326: RAISE FND_API.G_EXC_ERROR;
327: END IF;
328:
329: -- Bug 2197181: added for mix-n-match project. first check if user
322: x_return_status,
323: l_loc_actual_content_source);
324:
325: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
326: RAISE FND_API.G_EXC_ERROR;
327: END IF;
328:
329: -- Bug 2197181: added for mix-n-match project. first check if user
330: -- has privilege to create user-entered data if mix-n-match is enabled.
342: p_actual_content_source => l_loc_actual_content_source,
343: x_return_status => x_return_status );
344: END IF;
345:
346: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
347: RAISE FND_API.G_EXC_ERROR;
348: END IF;
349:
350: -- Bug 2197181: added for mix-n-match project.
343: x_return_status => x_return_status );
344: END IF;
345:
346: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
347: RAISE FND_API.G_EXC_ERROR;
348: END IF;
349:
350: -- Bug 2197181: added for mix-n-match project.
351: -- check if the data source is seleted.
413: -- For non-profile entities, the concept of select/de-select data-sources is obsoleted.
414: -- There is no need to check if the data-source is selected.
415:
416: IF (NVL(p_party_site_rec.status, 'A') = 'A' OR
417: p_party_site_rec.status = FND_API.G_MISS_CHAR) /*AND
418: g_pst_is_datasource_selected = 'Y'*/
419: THEN
420: p_party_site_rec.identifying_address_flag := 'Y';
421: ELSE
435: p_party_site_rec.party_site_id := l_party_site_id;
436: p_party_site_rec.party_site_number := l_party_site_number;
437:
438: -- this is for orig_system_defaulting
439: IF p_party_site_rec.party_site_id = FND_API.G_MISS_NUM THEN
440: p_party_site_rec.party_site_id := NULL;
441: END IF;
442:
443:
500: p_msg_level=>fnd_log.level_procedure);
501: END IF;
502:
503: if p_party_site_rec.orig_system is not null
504: and p_party_site_rec.orig_system <>fnd_api.g_miss_char
505: then
506: l_orig_sys_reference_rec.orig_system := p_party_site_rec.orig_system;
507: l_orig_sys_reference_rec.orig_system_reference := p_party_site_rec.orig_system_reference;
508: l_orig_sys_reference_rec.owner_table_name := 'HZ_PARTY_SITES';
509: l_orig_sys_reference_rec.owner_table_id := p_party_site_rec.party_site_id;
510: l_orig_sys_reference_rec.created_by_module := p_party_site_rec.created_by_module;
511:
512: hz_orig_system_ref_pub.create_orig_system_reference(
513: FND_API.G_FALSE,
514: l_orig_sys_reference_rec,
515: x_return_status,
516: l_msg_count,
517: l_msg_data);
514: l_orig_sys_reference_rec,
515: x_return_status,
516: l_msg_count,
517: l_msg_data);
518: IF x_return_status <> fnd_api.g_ret_sts_success THEN
519: RAISE FND_API.G_EXC_ERROR;
520: END IF;
521: end if;
522:
515: x_return_status,
516: l_msg_count,
517: l_msg_data);
518: IF x_return_status <> fnd_api.g_ret_sts_success THEN
519: RAISE FND_API.G_EXC_ERROR;
520: END IF;
521: end if;
522:
523: x_party_site_id := p_party_site_rec.party_site_id;
579: X_RETURN_STATUS => x_return_status,
580: P_REGISTRATION_TYPE_CODE => null,--4742586
581: P_COUNTRY_CODE => l_country_code --4742586
582: );
583: IF x_return_status <> fnd_api.g_ret_sts_success THEN
584: RAISE FND_API.G_EXC_ERROR;
585: END IF;
586:
587: -- Debug info.
580: P_REGISTRATION_TYPE_CODE => null,--4742586
581: P_COUNTRY_CODE => l_country_code --4742586
582: );
583: IF x_return_status <> fnd_api.g_ret_sts_success THEN
584: RAISE FND_API.G_EXC_ERROR;
585: END IF;
586:
587: -- Debug info.
588: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
694: THEN
695: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
696: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_party_sites');
697: FND_MSG_PUB.ADD;
698: RAISE FND_API.G_EXC_ERROR;
699: END IF;
700:
701: p_object_version_number := nvl(l_object_version_number, 1) + 1;
702:
704: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
705: FND_MESSAGE.SET_TOKEN('RECORD', 'party site');
706: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_rec.party_site_id), 'null'));
707: FND_MSG_PUB.ADD;
708: RAISE FND_API.G_EXC_ERROR;
709: END;
710:
711: -- Bug 2197181: added for mix-n-match project.
712: -- check if the data source is seleted.
726: l_rowid,
727: x_return_status,
728: l_loc_actual_content_source);
729:
730: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
731: RAISE FND_API.G_EXC_ERROR;
732: END IF;
733:
734: -- if the current site is updated to be identifying one, then
727: x_return_status,
728: l_loc_actual_content_source);
729:
730: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
731: RAISE FND_API.G_EXC_ERROR;
732: END IF;
733:
734: -- if the current site is updated to be identifying one, then
735: -- unmark the previous party sites with identifying flag = 'Y'.
750: do_unmark_address_flag(db_party_id, p_party_site_rec.party_site_id, 'U');
751: l_identifying_location_id := db_location_id;
752: ELSE
753: -- ignore the value of primary address flag if the flag
754: -- has been set to 'N' or NULL or FND_API.G_MISS_CHAR.
755: -- user can not unset a primary address flag by passing
756: -- value 'N' or NULL. to unset a primary flag, he/she
757: -- needs to select another address as primary. this
758: -- address will be unmarked automatically.
850: END IF;
851: END IF;
852:
853: if (p_party_site_rec.orig_system is not null
854: and p_party_site_rec.orig_system <>fnd_api.g_miss_char)
855: and (p_party_site_rec.orig_system_reference is not null
856: and p_party_site_rec.orig_system_reference <>fnd_api.g_miss_char)
857: then
858: p_party_site_rec.orig_system_reference := null;
852:
853: if (p_party_site_rec.orig_system is not null
854: and p_party_site_rec.orig_system <>fnd_api.g_miss_char)
855: and (p_party_site_rec.orig_system_reference is not null
856: and p_party_site_rec.orig_system_reference <>fnd_api.g_miss_char)
857: then
858: p_party_site_rec.orig_system_reference := null;
859: -- In mosr, we have bypassed osr nonupdateable validation
860: -- but we should not update existing osr, set it to null
937: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
938: FND_MESSAGE.SET_TOKEN('RECORD', 'Message Name');
939: --FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_use_rec.party_site_id), 'null'));
940: FND_MSG_PUB.ADD;
941: RAISE FND_API.G_EXC_ERROR;
942: END;
943: END IF;
944: IF g_message_name IS NOT NULL THEN
945: -- Code modified for Bug 3714636 ends here
948: x_return_status);
949: END IF;
950: END IF;
951:
952: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
953: RAISE FND_API.G_EXC_ERROR;
954: END IF;
955:
956: -- Debug info.
949: END IF;
950: END IF;
951:
952: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
953: RAISE FND_API.G_EXC_ERROR;
954: END IF;
955:
956: -- Debug info.
957: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1021: END IF;
1022:
1023: -- if primary key value is passed, check for uniqueness.
1024: IF l_party_site_use_id IS NOT NULL AND
1025: l_party_site_use_id <> FND_API.G_MISS_NUM
1026: THEN
1027: BEGIN
1028: SELECT 'Y'
1029: INTO l_dummy
1032:
1033: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
1034: FND_MESSAGE.SET_TOKEN('COLUMN', 'party_site_use_id');
1035: FND_MSG_PUB.ADD;
1036: RAISE FND_API.G_EXC_ERROR;
1037:
1038: EXCEPTION
1039: WHEN NO_DATA_FOUND THEN
1040: NULL;
1046: p_party_site_use_rec,
1047: l_rowid,
1048: x_return_status);
1049:
1050: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1051: RAISE FND_API.G_EXC_ERROR;
1052: END IF;
1053:
1054:
1047: l_rowid,
1048: x_return_status);
1049:
1050: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1051: RAISE FND_API.G_EXC_ERROR;
1052: END IF;
1053:
1054:
1055: -- Bug 2065191
1054:
1055: -- Bug 2065191
1056: IF p_party_site_use_rec.status = 'A'
1057: OR p_party_site_use_rec.status IS NULL
1058: OR p_party_site_use_rec.status = FND_API.G_MISS_CHAR
1059: THEN
1060: -- if this is the first active party site use per type,,
1061: -- we need to mark it with primary_per_type = 'Y'.
1062: SELECT PARTY_ID
1216: THEN
1217: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1218: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_PARTY_SITE_USES');
1219: FND_MSG_PUB.ADD;
1220: RAISE FND_API.G_EXC_ERROR;
1221: END IF;
1222:
1223: p_object_version_number := nvl(l_object_version_number, 1) + 1;
1224:
1226: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
1227: FND_MESSAGE.SET_TOKEN('RECORD', 'party site use');
1228: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_use_rec.party_site_use_id), 'null'));
1229: FND_MSG_PUB.ADD;
1230: RAISE FND_API.G_EXC_ERROR;
1231: END;
1232:
1233: -- unmark the previous site uses whose primary_per_type = 'Y'.
1234: BEGIN
1253: l_site_use_type, 'U' );
1254:
1255: ELSE
1256: -- ignore the value of primary per type flag if the flag has been
1257: -- set to 'N' or NULL by passing FND_API.G_MISS_CHAR.
1258: -- user can not unset a primary per type flag by passing value 'N' or NULL.
1259: -- to unset a primary flag, he/she needs to select another site use as primary.
1260: -- This site use will be unmarked automatically.
1261: p_party_site_use_rec.primary_per_type := NULL;
1313: FND_MESSAGE.SET_TOKEN('FK', 'party site id');
1314: FND_MESSAGE.SET_TOKEN('COLUMN', 'party site id');
1315: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_party_sites');
1316: FND_MSG_PUB.ADD;
1317: RAISE FND_API.G_EXC_ERROR;
1318: END;
1319:
1320: -- call for validations.
1321: -- Moved the validation for Bug Fix: 3651716
1324: p_party_site_use_rec,
1325: l_rowid,
1326: x_return_status);
1327:
1328: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1329: RAISE FND_API.G_EXC_ERROR;
1330: END IF;
1331:
1332: -- Debug info.
1325: l_rowid,
1326: x_return_status);
1327:
1328: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1329: RAISE FND_API.G_EXC_ERROR;
1330: END IF;
1331:
1332: -- Debug info.
1333: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1424: WHEN OTHERS THEN
1425: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1426: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_PARTIES');
1427: FND_MSG_PUB.ADD;
1428: RAISE FND_API.G_EXC_ERROR;
1429: END;
1430:
1431: -- if location_id is null, we will null out NOCOPY the location
1432: -- components in hz_parties.
1546: WHEN OTHERS THEN
1547: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1548: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_PARTY_SITES');
1549: FND_MSG_PUB.ADD;
1550: RAISE FND_API.G_EXC_ERROR;
1551: END;
1552:
1553: IF l_rowid IS NOT NULL THEN
1554: UPDATE hz_party_sites
1642: WHEN OTHERS THEN
1643: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1644: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_PARTY_SITE_USES');
1645: FND_MSG_PUB.ADD;
1646: RAISE FND_API.G_EXC_ERROR;
1647: END;
1648:
1649: IF l_rowid IS NOT NULL THEN
1650: UPDATE HZ_PARTY_SITE_USES
1708: |
1709: +===========================================================================*/
1710:
1711: PROCEDURE create_party_site (
1712: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1713: p_party_site_rec IN PARTY_SITE_REC_TYPE,
1714: x_party_site_id OUT NOCOPY NUMBER,
1715: x_party_site_number OUT NOCOPY VARCHAR2,
1716: x_return_status OUT NOCOPY VARCHAR2,
1721: l_api_name CONSTANT VARCHAR2(30) := 'create_party_site';
1722: l_party_site_rec PARTY_SITE_REC_TYPE := p_party_site_rec;
1723:
1724:
1725: dss_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1726: dss_msg_count NUMBER := 0;
1727: dss_msg_data VARCHAR2(2000):= null;
1728: l_test_security VARCHAR2(1):= 'F';
1729: l_debug_prefix VARCHAR2(30) := '';
1742: p_msg_level=>fnd_log.level_procedure);
1743: END IF;
1744:
1745: -- initialize message list if p_init_msg_list is set to TRUE.
1746: IF FND_API.to_Boolean(p_init_msg_list) THEN
1747: FND_MSG_PUB.initialize;
1748: END IF;
1749:
1750: -- initialize API return status to success.
1747: FND_MSG_PUB.initialize;
1748: END IF;
1749:
1750: -- initialize API return status to success.
1751: x_return_status := FND_API.G_RET_STS_SUCCESS;
1752:
1753: -- Bug 2197181: added for mix-n-match project. first load data
1754: -- sources for this entity.
1755:
1774: p_party_site_rec => l_party_site_rec,
1775: x_return_status => x_return_status
1776: );
1777:
1778: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1779: RAISE FND_API.G_EXC_ERROR;
1780: END IF;
1781: END IF;
1782:
1775: x_return_status => x_return_status
1776: );
1777:
1778: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1779: RAISE FND_API.G_EXC_ERROR;
1780: END IF;
1781: END IF;
1782:
1783: -- call to business logic.
1801: x_return_status => dss_return_status,
1802: x_msg_count => dss_msg_count,
1803: x_msg_data => dss_msg_data);
1804:
1805: if dss_return_status <> fnd_api.g_ret_sts_success THEN
1806: RAISE FND_API.G_EXC_ERROR;
1807: end if;
1808:
1809: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
1802: x_msg_count => dss_msg_count,
1803: x_msg_data => dss_msg_data);
1804:
1805: if dss_return_status <> fnd_api.g_ret_sts_success THEN
1806: RAISE FND_API.G_EXC_ERROR;
1807: end if;
1808:
1809: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
1810: --
1805: if dss_return_status <> fnd_api.g_ret_sts_success THEN
1806: RAISE FND_API.G_EXC_ERROR;
1807: end if;
1808:
1809: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
1810: --
1811: -- Bug 3835601: replaced the dss message with a more user friendly message
1812: --
1813: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
1813: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
1814: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
1815: fnd_message.get_string('AR', 'HZ_DSS_PARTY_ADDRESSES'));
1816: FND_MSG_PUB.ADD;
1817: RAISE FND_API.G_EXC_ERROR;
1818: end if;
1819: END IF;
1820:
1821: -- Invoke business event system.
1823: -- SSM SST Integration and Extension
1824: -- For non-profile entities, the concept of select/de-select data-sources is obsoleted.
1825: -- There is no need to check if the data-source is selected.
1826:
1827: IF x_return_status = FND_API.G_RET_STS_SUCCESS /* AND
1828: -- Bug 2197181: Added below condition for Mix-n-Match
1829: g_pst_is_datasource_selected = 'Y'*/
1830: THEN
1831: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
1842:
1843: -- Call to indicate Party Site creation to DQM
1844: --Bug 4866187
1845: --Bug 5370799
1846: IF (p_party_site_rec.orig_system IS NULL OR p_party_site_rec.orig_system=FND_API.G_MISS_CHAR ) THEN
1847: HZ_DQM_SYNC.sync_party_site(l_party_site_rec.party_site_id,'C');
1848: END IF;
1849: END IF;
1850:
1849: END IF;
1850:
1851: -- standard call to get message count and if count is 1, get message info.
1852: FND_MSG_PUB.Count_And_Get(
1853: p_encoded => FND_API.G_FALSE,
1854: p_count => x_msg_count,
1855: p_data => x_msg_data);
1856:
1857: -- Debug info.
1870: -- Check if API is called in debug mode. If yes, disable debug.
1871: --disable_debug;
1872:
1873: EXCEPTION
1874: WHEN FND_API.G_EXC_ERROR THEN
1875: ROLLBACK TO create_party_site;
1876: x_return_status := FND_API.G_RET_STS_ERROR;
1877: FND_MSG_PUB.Count_And_Get(
1878: p_encoded => FND_API.G_FALSE,
1872:
1873: EXCEPTION
1874: WHEN FND_API.G_EXC_ERROR THEN
1875: ROLLBACK TO create_party_site;
1876: x_return_status := FND_API.G_RET_STS_ERROR;
1877: FND_MSG_PUB.Count_And_Get(
1878: p_encoded => FND_API.G_FALSE,
1879: p_count => x_msg_count,
1880: p_data => x_msg_data);
1874: WHEN FND_API.G_EXC_ERROR THEN
1875: ROLLBACK TO create_party_site;
1876: x_return_status := FND_API.G_RET_STS_ERROR;
1877: FND_MSG_PUB.Count_And_Get(
1878: p_encoded => FND_API.G_FALSE,
1879: p_count => x_msg_count,
1880: p_data => x_msg_data);
1881:
1882: -- Debug info.
1894:
1895: -- Check if API is called in debug mode. If yes, disable debug.
1896: --disable_debug;
1897:
1898: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1899: ROLLBACK TO create_party_site;
1900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1901: FND_MSG_PUB.Count_And_Get(
1902: p_encoded => FND_API.G_FALSE,
1896: --disable_debug;
1897:
1898: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1899: ROLLBACK TO create_party_site;
1900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1901: FND_MSG_PUB.Count_And_Get(
1902: p_encoded => FND_API.G_FALSE,
1903: p_count => x_msg_count,
1904: p_data => x_msg_data);
1898: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1899: ROLLBACK TO create_party_site;
1900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1901: FND_MSG_PUB.Count_And_Get(
1902: p_encoded => FND_API.G_FALSE,
1903: p_count => x_msg_count,
1904: p_data => x_msg_data);
1905:
1906: -- Debug info.
1920: --disable_debug;
1921:
1922: WHEN OTHERS THEN
1923: ROLLBACK TO create_party_site;
1924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1925: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1926: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1927: FND_MSG_PUB.ADD;
1928: FND_MSG_PUB.Count_And_Get(
1925: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1926: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1927: FND_MSG_PUB.ADD;
1928: FND_MSG_PUB.Count_And_Get(
1929: p_encoded => FND_API.G_FALSE,
1930: p_count => x_msg_count,
1931: p_data => x_msg_data);
1932:
1933: -- Debug info.
1980: | select/de-select data-sources is obsoleted.
1981: +===========================================================================*/
1982:
1983: PROCEDURE update_party_site (
1984: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1985: p_party_site_rec IN PARTY_SITE_REC_TYPE,
1986: p_object_version_number IN OUT NOCOPY NUMBER,
1987: x_return_status OUT NOCOPY VARCHAR2,
1988: x_msg_count OUT NOCOPY NUMBER,
1992: l_api_name CONSTANT VARCHAR2(30) := 'update_party_site';
1993: l_party_site_rec PARTY_SITE_REC_TYPE := p_party_site_rec;
1994: l_old_party_site_rec PARTY_SITE_REC_TYPE;
1995:
1996: dss_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1997: dss_msg_count NUMBER := 0;
1998: dss_msg_data VARCHAR2(2000):= null;
1999: l_test_security VARCHAR2(1):= 'F';
2000: l_release_name VARCHAR2(50);
2015: p_msg_level=>fnd_log.level_procedure);
2016: END IF;
2017:
2018: -- initialize message list if p_init_msg_list is set to TRUE.
2019: IF FND_API.to_Boolean(p_init_msg_list) THEN
2020: FND_MSG_PUB.initialize;
2021: END IF;
2022:
2023: -- initialize API return status to success.
2020: FND_MSG_PUB.initialize;
2021: END IF;
2022:
2023: -- initialize API return status to success.
2024: x_return_status := FND_API.G_RET_STS_SUCCESS;
2025:
2026: -- if party_site_id is not passed in, but orig system parameters are passed in
2027: -- get party_id
2028:
2026: -- if party_site_id is not passed in, but orig system parameters are passed in
2027: -- get party_id
2028:
2029: IF (p_party_site_rec.orig_system is not null
2030: and p_party_site_rec.orig_system <>fnd_api.g_miss_char)
2031: and (p_party_site_rec.orig_system_reference is not null
2032: and p_party_site_rec.orig_system_reference <>fnd_api.g_miss_char)
2033: and (p_party_site_rec.party_site_id = FND_API.G_MISS_NUM or p_party_site_rec.party_site_id is null) THEN
2034: hz_orig_system_ref_pub.get_owner_table_id
2028:
2029: IF (p_party_site_rec.orig_system is not null
2030: and p_party_site_rec.orig_system <>fnd_api.g_miss_char)
2031: and (p_party_site_rec.orig_system_reference is not null
2032: and p_party_site_rec.orig_system_reference <>fnd_api.g_miss_char)
2033: and (p_party_site_rec.party_site_id = FND_API.G_MISS_NUM or p_party_site_rec.party_site_id is null) THEN
2034: hz_orig_system_ref_pub.get_owner_table_id
2035: (p_orig_system => p_party_site_rec.orig_system,
2036: p_orig_system_reference => p_party_site_rec.orig_system_reference,
2029: IF (p_party_site_rec.orig_system is not null
2030: and p_party_site_rec.orig_system <>fnd_api.g_miss_char)
2031: and (p_party_site_rec.orig_system_reference is not null
2032: and p_party_site_rec.orig_system_reference <>fnd_api.g_miss_char)
2033: and (p_party_site_rec.party_site_id = FND_API.G_MISS_NUM or p_party_site_rec.party_site_id is null) THEN
2034: hz_orig_system_ref_pub.get_owner_table_id
2035: (p_orig_system => p_party_site_rec.orig_system,
2036: p_orig_system_reference => p_party_site_rec.orig_system_reference,
2037: p_owner_table_name => 'HZ_PARTY_SITES',
2036: p_orig_system_reference => p_party_site_rec.orig_system_reference,
2037: p_owner_table_name => 'HZ_PARTY_SITES',
2038: x_owner_table_id => l_party_site_rec.party_site_id,
2039: x_return_status => x_return_status);
2040: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2041: RAISE FND_API.G_EXC_ERROR;
2042: END IF;
2043: END IF;
2044:
2037: p_owner_table_name => 'HZ_PARTY_SITES',
2038: x_owner_table_id => l_party_site_rec.party_site_id,
2039: x_return_status => x_return_status);
2040: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2041: RAISE FND_API.G_EXC_ERROR;
2042: END IF;
2043: END IF;
2044:
2045:
2050: x_return_status => x_return_status,
2051: x_msg_count => x_msg_count,
2052: x_msg_data => x_msg_data );
2053:
2054: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2055: RAISE FND_API.G_EXC_ERROR;
2056: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2058: END IF;
2051: x_msg_count => x_msg_count,
2052: x_msg_data => x_msg_data );
2053:
2054: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2055: RAISE FND_API.G_EXC_ERROR;
2056: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2058: END IF;
2059:
2052: x_msg_data => x_msg_data );
2053:
2054: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2055: RAISE FND_API.G_EXC_ERROR;
2056: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2058: END IF;
2059:
2060: --- Bug 2486394 Check if the DSS security is granted to the user
2053:
2054: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2055: RAISE FND_API.G_EXC_ERROR;
2056: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2058: END IF;
2059:
2060: --- Bug 2486394 Check if the DSS security is granted to the user
2061: -- Bug 3818648: check dss profile before call test_instance.
2070: x_return_status => dss_return_status,
2071: x_msg_count => dss_msg_count,
2072: x_msg_data => dss_msg_data);
2073:
2074: if dss_return_status <> fnd_api.g_ret_sts_success THEN
2075: RAISE FND_API.G_EXC_ERROR;
2076: end if;
2077:
2078: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
2071: x_msg_count => dss_msg_count,
2072: x_msg_data => dss_msg_data);
2073:
2074: if dss_return_status <> fnd_api.g_ret_sts_success THEN
2075: RAISE FND_API.G_EXC_ERROR;
2076: end if;
2077:
2078: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
2079: --
2074: if dss_return_status <> fnd_api.g_ret_sts_success THEN
2075: RAISE FND_API.G_EXC_ERROR;
2076: end if;
2077:
2078: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
2079: --
2080: -- Bug 3835601: replaced the dss message with a more user friendly message
2081: --
2082: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
2082: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
2083: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
2084: fnd_message.get_string('AR', 'HZ_DSS_PARTY_ADDRESSES'));
2085: FND_MSG_PUB.ADD;
2086: RAISE FND_API.G_EXC_ERROR;
2087: end if;
2088: END IF;
2089:
2090: -- Bug 2197181: added for mix-n-match project. first load data
2112: p_old_party_site_rec => l_old_party_site_rec,
2113: x_return_status => x_return_status
2114: );
2115:
2116: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2117: RAISE FND_API.G_EXC_ERROR;
2118: END IF;
2119: END IF;
2120:
2113: x_return_status => x_return_status
2114: );
2115:
2116: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2117: RAISE FND_API.G_EXC_ERROR;
2118: END IF;
2119: END IF;
2120:
2121: -- call to business logic.
2129: -- SSM SST Integration and Extension
2130: -- For non-profile entities, the concept of select/de-select data-sources is obsoleted.
2131: -- There is no need to check if the data-source is selected.
2132:
2133: IF x_return_status = FND_API.G_RET_STS_SUCCESS /*AND
2134: -- Bug 2197181: added for mix-n-match project.
2135: g_pst_is_datasource_selected = 'Y'*/
2136: THEN
2137: l_old_party_site_rec.orig_system := l_party_site_rec.orig_system;
2171: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
2172: FND_MESSAGE.SET_TOKEN('RECORD', 'Message Name');
2173: --FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_use_rec.party_site_id), 'null'));
2174: FND_MSG_PUB.ADD;
2175: RAISE FND_API.G_EXC_ERROR;
2176: END;
2177: END IF;
2178: --IF l_release_name not in ( '11.5.1','11.5.2','11.5.3','11.5.4','11.5.5','11.5.6','11.5.7','11.5.8','11.5.9') THEN
2179: IF g_message_name IS NOT NULL THEN
2180: -- Code modified for Bug 3714636 ends here
2181: update_acct_sites_status(l_party_site_rec.party_site_id,
2182: l_party_site_rec.status,
2183: x_return_status);
2184: -- IF x_return_status <> fnd_api.g_ret_sts_success THEN
2185: -- RAISE FND_API.G_EXC_ERROR;
2186: -- END IF;
2187:
2188: END IF;
2181: update_acct_sites_status(l_party_site_rec.party_site_id,
2182: l_party_site_rec.status,
2183: x_return_status);
2184: -- IF x_return_status <> fnd_api.g_ret_sts_success THEN
2185: -- RAISE FND_API.G_EXC_ERROR;
2186: -- END IF;
2187:
2188: END IF;
2189: END IF;
2189: END IF;
2190:
2191: -- standard call to get message count and if count is 1, get message info.
2192: FND_MSG_PUB.Count_And_Get(
2193: p_encoded => FND_API.G_FALSE,
2194: p_count => x_msg_count,
2195: p_data => x_msg_data);
2196:
2197:
2211: -- Check if API is called in debug mode. If yes, disable debug.
2212: --disable_debug;
2213:
2214: EXCEPTION
2215: WHEN FND_API.G_EXC_ERROR THEN
2216: ROLLBACK TO update_party_site;
2217: x_return_status := FND_API.G_RET_STS_ERROR;
2218: FND_MSG_PUB.Count_And_Get(
2219: p_encoded => FND_API.G_FALSE,
2213:
2214: EXCEPTION
2215: WHEN FND_API.G_EXC_ERROR THEN
2216: ROLLBACK TO update_party_site;
2217: x_return_status := FND_API.G_RET_STS_ERROR;
2218: FND_MSG_PUB.Count_And_Get(
2219: p_encoded => FND_API.G_FALSE,
2220: p_count => x_msg_count,
2221: p_data => x_msg_data);
2215: WHEN FND_API.G_EXC_ERROR THEN
2216: ROLLBACK TO update_party_site;
2217: x_return_status := FND_API.G_RET_STS_ERROR;
2218: FND_MSG_PUB.Count_And_Get(
2219: p_encoded => FND_API.G_FALSE,
2220: p_count => x_msg_count,
2221: p_data => x_msg_data);
2222:
2223: -- Debug info.
2236:
2237: -- Check if API is called in debug mode. If yes, disable debug.
2238: --disable_debug;
2239:
2240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2241: ROLLBACK TO update_party_site;
2242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2243: FND_MSG_PUB.Count_And_Get(
2244: p_encoded => FND_API.G_FALSE,
2238: --disable_debug;
2239:
2240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2241: ROLLBACK TO update_party_site;
2242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2243: FND_MSG_PUB.Count_And_Get(
2244: p_encoded => FND_API.G_FALSE,
2245: p_count => x_msg_count,
2246: p_data => x_msg_data);
2240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2241: ROLLBACK TO update_party_site;
2242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2243: FND_MSG_PUB.Count_And_Get(
2244: p_encoded => FND_API.G_FALSE,
2245: p_count => x_msg_count,
2246: p_data => x_msg_data);
2247:
2248: -- Debug info.
2262: --disable_debug;
2263:
2264: WHEN OTHERS THEN
2265: ROLLBACK TO update_party_site;
2266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2267: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2268: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2269: FND_MSG_PUB.ADD;
2270: FND_MSG_PUB.Count_And_Get(
2267: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2268: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2269: FND_MSG_PUB.ADD;
2270: FND_MSG_PUB.Count_And_Get(
2271: p_encoded => FND_API.G_FALSE,
2272: p_count => x_msg_count,
2273: p_data => x_msg_data);
2274:
2275: -- Debug info.
2321: |
2322: +===========================================================================*/
2323:
2324: PROCEDURE create_party_site_use (
2325: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2326: p_party_site_use_rec IN PARTY_SITE_USE_REC_TYPE,
2327: x_party_site_use_id OUT NOCOPY NUMBER,
2328: x_return_status OUT NOCOPY VARCHAR2,
2329: x_msg_count OUT NOCOPY NUMBER,
2350: END IF;
2351:
2352:
2353: -- initialize message list if p_init_msg_list is set to TRUE.
2354: IF FND_API.to_Boolean(p_init_msg_list) THEN
2355: FND_MSG_PUB.initialize;
2356: END IF;
2357:
2358: -- initialize API return status to success.
2355: FND_MSG_PUB.initialize;
2356: END IF;
2357:
2358: -- initialize API return status to success.
2359: x_return_status := FND_API.G_RET_STS_SUCCESS;
2360:
2361: -- call to business logic.
2362: do_create_party_site_use(
2363: l_party_site_use_rec,
2364: x_party_site_use_id,
2365: x_return_status
2366: );
2367:
2368: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2369: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
2370: -- Invoke business event system.
2371: HZ_BUSINESS_EVENT_V2PVT.create_party_site_use_event (
2372: l_party_site_use_rec );
2381: END IF;
2382:
2383: -- standard call to get message count and if count is 1, get message info.
2384: FND_MSG_PUB.Count_And_Get(
2385: p_encoded => FND_API.G_FALSE,
2386: p_count => x_msg_count,
2387: p_data => x_msg_data);
2388:
2389: -- Debug info.
2402: -- Check if API is called in debug mode. If yes, disable debug.
2403: --disable_debug;
2404:
2405: EXCEPTION
2406: WHEN FND_API.G_EXC_ERROR THEN
2407: ROLLBACK TO create_party_site_use;
2408: x_return_status := FND_API.G_RET_STS_ERROR;
2409: FND_MSG_PUB.Count_And_Get(
2410: p_encoded => FND_API.G_FALSE,
2404:
2405: EXCEPTION
2406: WHEN FND_API.G_EXC_ERROR THEN
2407: ROLLBACK TO create_party_site_use;
2408: x_return_status := FND_API.G_RET_STS_ERROR;
2409: FND_MSG_PUB.Count_And_Get(
2410: p_encoded => FND_API.G_FALSE,
2411: p_count => x_msg_count,
2412: p_data => x_msg_data);
2406: WHEN FND_API.G_EXC_ERROR THEN
2407: ROLLBACK TO create_party_site_use;
2408: x_return_status := FND_API.G_RET_STS_ERROR;
2409: FND_MSG_PUB.Count_And_Get(
2410: p_encoded => FND_API.G_FALSE,
2411: p_count => x_msg_count,
2412: p_data => x_msg_data);
2413:
2414: -- Debug info.
2426:
2427: -- Check if API is called in debug mode. If yes, disable debug.
2428: --disable_debug;
2429:
2430: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2431: ROLLBACK TO create_party_site_use;
2432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2433: FND_MSG_PUB.Count_And_Get(
2434: p_encoded => FND_API.G_FALSE,
2428: --disable_debug;
2429:
2430: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2431: ROLLBACK TO create_party_site_use;
2432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2433: FND_MSG_PUB.Count_And_Get(
2434: p_encoded => FND_API.G_FALSE,
2435: p_count => x_msg_count,
2436: p_data => x_msg_data);
2430: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2431: ROLLBACK TO create_party_site_use;
2432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2433: FND_MSG_PUB.Count_And_Get(
2434: p_encoded => FND_API.G_FALSE,
2435: p_count => x_msg_count,
2436: p_data => x_msg_data);
2437:
2438: -- Debug info.
2452: --disable_debug;
2453:
2454: WHEN OTHERS THEN
2455: ROLLBACK TO create_party_site_use;
2456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2457: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2458: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2459: FND_MSG_PUB.ADD;
2460: FND_MSG_PUB.Count_And_Get(
2457: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2458: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2459: FND_MSG_PUB.ADD;
2460: FND_MSG_PUB.Count_And_Get(
2461: p_encoded => FND_API.G_FALSE,
2462: p_count => x_msg_count,
2463: p_data => x_msg_data);
2464:
2465: -- Debug info.
2509: |
2510: +===========================================================================*/
2511:
2512: PROCEDURE update_party_site_use (
2513: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2514: p_party_site_use_rec IN PARTY_SITE_USE_REC_TYPE,
2515: p_object_version_number IN OUT NOCOPY NUMBER,
2516: x_return_status OUT NOCOPY VARCHAR2,
2517: x_msg_count OUT NOCOPY NUMBER,
2538: p_msg_level=>fnd_log.level_procedure);
2539: END IF;
2540:
2541: -- initialize message list if p_init_msg_list is set to TRUE.
2542: IF FND_API.to_Boolean(p_init_msg_list) THEN
2543: FND_MSG_PUB.initialize;
2544: END IF;
2545:
2546: -- initialize API return status to success.
2543: FND_MSG_PUB.initialize;
2544: END IF;
2545:
2546: -- initialize API return status to success.
2547: x_return_status := FND_API.G_RET_STS_SUCCESS;
2548:
2549: --2290537
2550: get_party_site_use_rec (
2551: p_party_site_use_id => p_party_site_use_rec.party_site_use_id,
2553: x_return_status => x_return_status,
2554: x_msg_count => x_msg_count,
2555: x_msg_data => x_msg_data);
2556:
2557: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2558: RAISE FND_API.G_EXC_ERROR;
2559: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2561: END IF;
2554: x_msg_count => x_msg_count,
2555: x_msg_data => x_msg_data);
2556:
2557: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2558: RAISE FND_API.G_EXC_ERROR;
2559: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2561: END IF;
2562:
2555: x_msg_data => x_msg_data);
2556:
2557: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2558: RAISE FND_API.G_EXC_ERROR;
2559: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2561: END IF;
2562:
2563: -- call to business logic.
2556:
2557: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2558: RAISE FND_API.G_EXC_ERROR;
2559: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2561: END IF;
2562:
2563: -- call to business logic.
2564: do_update_party_site_use(
2566: p_object_version_number,
2567: x_return_status
2568: );
2569:
2570: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2571: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
2572: -- Invoke business event system.
2573: HZ_BUSINESS_EVENT_V2PVT.update_party_site_use_event (
2574: l_party_site_use_rec , l_old_party_site_use_rec );
2583: END IF;
2584:
2585: -- standard call to get message count and if count is 1, get message info.
2586: FND_MSG_PUB.Count_And_Get(
2587: p_encoded => FND_API.G_FALSE,
2588: p_count => x_msg_count,
2589: p_data => x_msg_data);
2590:
2591: -- Debug info.
2604: -- Check if API is called in debug mode. If yes, disable debug.
2605: --disable_debug;
2606:
2607: EXCEPTION
2608: WHEN FND_API.G_EXC_ERROR THEN
2609: ROLLBACK TO update_party_site_use;
2610: x_return_status := FND_API.G_RET_STS_ERROR;
2611: FND_MSG_PUB.Count_And_Get(
2612: p_encoded => FND_API.G_FALSE,
2606:
2607: EXCEPTION
2608: WHEN FND_API.G_EXC_ERROR THEN
2609: ROLLBACK TO update_party_site_use;
2610: x_return_status := FND_API.G_RET_STS_ERROR;
2611: FND_MSG_PUB.Count_And_Get(
2612: p_encoded => FND_API.G_FALSE,
2613: p_count => x_msg_count,
2614: p_data => x_msg_data);
2608: WHEN FND_API.G_EXC_ERROR THEN
2609: ROLLBACK TO update_party_site_use;
2610: x_return_status := FND_API.G_RET_STS_ERROR;
2611: FND_MSG_PUB.Count_And_Get(
2612: p_encoded => FND_API.G_FALSE,
2613: p_count => x_msg_count,
2614: p_data => x_msg_data);
2615:
2616: -- Debug info.
2628:
2629: -- Check if API is called in debug mode. If yes, disable debug.
2630: --disable_debug;
2631:
2632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2633: ROLLBACK TO update_party_site_use;
2634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2635: FND_MSG_PUB.Count_And_Get(
2636: p_encoded => FND_API.G_FALSE,
2630: --disable_debug;
2631:
2632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2633: ROLLBACK TO update_party_site_use;
2634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2635: FND_MSG_PUB.Count_And_Get(
2636: p_encoded => FND_API.G_FALSE,
2637: p_count => x_msg_count,
2638: p_data => x_msg_data);
2632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2633: ROLLBACK TO update_party_site_use;
2634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2635: FND_MSG_PUB.Count_And_Get(
2636: p_encoded => FND_API.G_FALSE,
2637: p_count => x_msg_count,
2638: p_data => x_msg_data);
2639:
2640: -- Debug info.
2654: --disable_debug;
2655:
2656: WHEN OTHERS THEN
2657: ROLLBACK TO update_party_site_use;
2658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2659: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2660: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2661: FND_MSG_PUB.ADD;
2662: FND_MSG_PUB.Count_And_Get(
2659: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2660: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2661: FND_MSG_PUB.ADD;
2662: FND_MSG_PUB.Count_And_Get(
2663: p_encoded => FND_API.G_FALSE,
2664: p_count => x_msg_count,
2665: p_data => x_msg_data);
2666:
2667: -- Debug info.
2714: | to HZ_PARTY_SITES.
2715: +===========================================================================*/
2716:
2717: PROCEDURE get_party_site_rec (
2718: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2719: p_party_site_id IN NUMBER,
2720: x_party_site_rec OUT NOCOPY PARTY_SITE_REC_TYPE,
2721: x_return_status OUT NOCOPY VARCHAR2,
2722: x_msg_count OUT NOCOPY NUMBER,
2728:
2729: BEGIN
2730:
2731: --Initialize message list if p_init_msg_list is set to TRUE.
2732: IF FND_API.to_Boolean(p_init_msg_list) THEN
2733: FND_MSG_PUB.initialize;
2734: END IF;
2735:
2736: --Initialize API return status to success.
2733: FND_MSG_PUB.initialize;
2734: END IF;
2735:
2736: --Initialize API return status to success.
2737: x_return_status := FND_API.G_RET_STS_SUCCESS;
2738:
2739: --Check whether primary key has been passed in.
2740: IF p_party_site_id IS NULL OR
2741: p_party_site_id = FND_API.G_MISS_NUM THEN
2737: x_return_status := FND_API.G_RET_STS_SUCCESS;
2738:
2739: --Check whether primary key has been passed in.
2740: IF p_party_site_id IS NULL OR
2741: p_party_site_id = FND_API.G_MISS_NUM THEN
2742: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2743: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'party_site_id' );
2744: FND_MSG_PUB.ADD;
2745: RAISE FND_API.G_EXC_ERROR;
2741: p_party_site_id = FND_API.G_MISS_NUM THEN
2742: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2743: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'party_site_id' );
2744: FND_MSG_PUB.ADD;
2745: RAISE FND_API.G_EXC_ERROR;
2746: END IF;
2747:
2748: x_party_site_rec.party_site_id := p_party_site_id;
2749:
2788: );
2789:
2790: --Standard call to get message count and if count is 1, get message info.
2791: FND_MSG_PUB.Count_And_Get(
2792: p_encoded => FND_API.G_FALSE,
2793: p_count => x_msg_count,
2794: p_data => x_msg_data );
2795:
2796: EXCEPTION
2793: p_count => x_msg_count,
2794: p_data => x_msg_data );
2795:
2796: EXCEPTION
2797: WHEN FND_API.G_EXC_ERROR THEN
2798: x_return_status := FND_API.G_RET_STS_ERROR;
2799:
2800: FND_MSG_PUB.Count_And_Get(
2801: p_encoded => FND_API.G_FALSE,
2794: p_data => x_msg_data );
2795:
2796: EXCEPTION
2797: WHEN FND_API.G_EXC_ERROR THEN
2798: x_return_status := FND_API.G_RET_STS_ERROR;
2799:
2800: FND_MSG_PUB.Count_And_Get(
2801: p_encoded => FND_API.G_FALSE,
2802: p_count => x_msg_count,
2797: WHEN FND_API.G_EXC_ERROR THEN
2798: x_return_status := FND_API.G_RET_STS_ERROR;
2799:
2800: FND_MSG_PUB.Count_And_Get(
2801: p_encoded => FND_API.G_FALSE,
2802: p_count => x_msg_count,
2803: p_data => x_msg_data );
2804:
2805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2801: p_encoded => FND_API.G_FALSE,
2802: p_count => x_msg_count,
2803: p_data => x_msg_data );
2804:
2805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2807:
2808: FND_MSG_PUB.Count_And_Get(
2809: p_encoded => FND_API.G_FALSE,
2802: p_count => x_msg_count,
2803: p_data => x_msg_data );
2804:
2805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2807:
2808: FND_MSG_PUB.Count_And_Get(
2809: p_encoded => FND_API.G_FALSE,
2810: p_count => x_msg_count,
2805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2807:
2808: FND_MSG_PUB.Count_And_Get(
2809: p_encoded => FND_API.G_FALSE,
2810: p_count => x_msg_count,
2811: p_data => x_msg_data );
2812:
2813: WHEN OTHERS THEN
2810: p_count => x_msg_count,
2811: p_data => x_msg_data );
2812:
2813: WHEN OTHERS THEN
2814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2815: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2816: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2817: FND_MSG_PUB.ADD;
2818: FND_MSG_PUB.Count_And_Get(
2815: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2816: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2817: FND_MSG_PUB.ADD;
2818: FND_MSG_PUB.Count_And_Get(
2819: p_encoded => FND_API.G_FALSE,
2820: p_count => x_msg_count,
2821: p_data => x_msg_data );
2822:
2823: END get_party_site_rec;
2853: |
2854: +===========================================================================*/
2855:
2856: PROCEDURE get_party_site_use_rec (
2857: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2858: p_party_site_use_id IN NUMBER,
2859: x_party_site_use_rec OUT NOCOPY PARTY_SITE_USE_REC_TYPE,
2860: x_return_status OUT NOCOPY VARCHAR2,
2861: x_msg_count OUT NOCOPY NUMBER,
2866:
2867: BEGIN
2868:
2869: --Initialize message list if p_init_msg_list is set to TRUE.
2870: IF FND_API.to_Boolean(p_init_msg_list) THEN
2871: FND_MSG_PUB.initialize;
2872: END IF;
2873:
2874: --Initialize API return status to success.
2871: FND_MSG_PUB.initialize;
2872: END IF;
2873:
2874: --Initialize API return status to success.
2875: x_return_status := FND_API.G_RET_STS_SUCCESS;
2876:
2877: --Check whether primary key has been passed in.
2878: IF p_party_site_use_id IS NULL OR
2879: p_party_site_use_id = FND_API.G_MISS_NUM THEN
2875: x_return_status := FND_API.G_RET_STS_SUCCESS;
2876:
2877: --Check whether primary key has been passed in.
2878: IF p_party_site_use_id IS NULL OR
2879: p_party_site_use_id = FND_API.G_MISS_NUM THEN
2880: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2881: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'p_party_site_use_id' );
2882: FND_MSG_PUB.ADD;
2883: RAISE FND_API.G_EXC_ERROR;
2879: p_party_site_use_id = FND_API.G_MISS_NUM THEN
2880: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2881: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'p_party_site_use_id' );
2882: FND_MSG_PUB.ADD;
2883: RAISE FND_API.G_EXC_ERROR;
2884: END IF;
2885:
2886: x_party_site_use_rec.party_site_use_id := p_party_site_use_id;
2887:
2897: );
2898:
2899: --Standard call to get message count and if count is 1, get message info.
2900: FND_MSG_PUB.Count_And_Get(
2901: p_encoded => FND_API.G_FALSE,
2902: p_count => x_msg_count,
2903: p_data => x_msg_data );
2904:
2905: EXCEPTION
2902: p_count => x_msg_count,
2903: p_data => x_msg_data );
2904:
2905: EXCEPTION
2906: WHEN FND_API.G_EXC_ERROR THEN
2907: x_return_status := FND_API.G_RET_STS_ERROR;
2908:
2909: FND_MSG_PUB.Count_And_Get(
2910: p_encoded => FND_API.G_FALSE,
2903: p_data => x_msg_data );
2904:
2905: EXCEPTION
2906: WHEN FND_API.G_EXC_ERROR THEN
2907: x_return_status := FND_API.G_RET_STS_ERROR;
2908:
2909: FND_MSG_PUB.Count_And_Get(
2910: p_encoded => FND_API.G_FALSE,
2911: p_count => x_msg_count,
2906: WHEN FND_API.G_EXC_ERROR THEN
2907: x_return_status := FND_API.G_RET_STS_ERROR;
2908:
2909: FND_MSG_PUB.Count_And_Get(
2910: p_encoded => FND_API.G_FALSE,
2911: p_count => x_msg_count,
2912: p_data => x_msg_data );
2913:
2914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2910: p_encoded => FND_API.G_FALSE,
2911: p_count => x_msg_count,
2912: p_data => x_msg_data );
2913:
2914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2916:
2917: FND_MSG_PUB.Count_And_Get(
2918: p_encoded => FND_API.G_FALSE,
2911: p_count => x_msg_count,
2912: p_data => x_msg_data );
2913:
2914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2916:
2917: FND_MSG_PUB.Count_And_Get(
2918: p_encoded => FND_API.G_FALSE,
2919: p_count => x_msg_count,
2914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2916:
2917: FND_MSG_PUB.Count_And_Get(
2918: p_encoded => FND_API.G_FALSE,
2919: p_count => x_msg_count,
2920: p_data => x_msg_data );
2921:
2922: WHEN OTHERS THEN
2919: p_count => x_msg_count,
2920: p_data => x_msg_data );
2921:
2922: WHEN OTHERS THEN
2923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2924: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2925: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2926: FND_MSG_PUB.ADD;
2927: FND_MSG_PUB.Count_And_Get(
2924: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2925: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2926: FND_MSG_PUB.ADD;
2927: FND_MSG_PUB.Count_And_Get(
2928: p_encoded => FND_API.G_FALSE,
2929: p_count => x_msg_count,
2930: p_data => x_msg_data );
2931:
2932: END get_party_site_use_rec;
2997: program_update_date = hz_utility_v2pub.program_update_date
2998: WHERE PARTY_SITE_ID = p_party_site_id;
2999:
3000: EXCEPTION WHEN NO_DATA_FOUND THEN
3001: x_return_status := FND_API.G_RET_STS_ERROR;
3002: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
3003: FND_MESSAGE.SET_TOKEN('RECORD', 'Account sites');
3004: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_id), 'null'));
3005: FND_MSG_PUB.ADD;
3002: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
3003: FND_MESSAGE.SET_TOKEN('RECORD', 'Account sites');
3004: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_id), 'null'));
3005: FND_MSG_PUB.ADD;
3006: RAISE FND_API.G_EXC_ERROR;
3007: END;
3008:
3009: -- Debug info.
3010: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3078: exit when c_active_use%notfound;
3079: l_party_site_use_rec.party_site_use_id := l_party_site_use_id;
3080: l_party_site_use_rec.status := 'I';
3081: HZ_PARTY_SITE_V2PUB.update_party_site_use
3082: (p_init_msg_list => FND_API.G_TRUE,
3083: p_party_site_use_rec => l_party_site_use_rec,
3084: p_object_version_number => l_object_version_number,
3085: x_return_status => x_return_status,
3086: x_msg_count => l_msg_count,
3085: x_return_status => x_return_status,
3086: x_msg_count => l_msg_count,
3087: x_msg_data => l_msg_data);
3088:
3089: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3090: RAISE FND_API.G_EXC_ERROR;
3091: END IF;
3092: end loop;
3093: close c_active_use;
3086: x_msg_count => l_msg_count,
3087: x_msg_data => l_msg_data);
3088:
3089: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3090: RAISE FND_API.G_EXC_ERROR;
3091: END IF;
3092: end loop;
3093: close c_active_use;
3094:
3104: program_update_date = hz_utility_v2pub.program_update_date
3105: WHERE PARTY_SITE_ID = p_party_site_id;*/
3106:
3107: EXCEPTION WHEN NO_DATA_FOUND THEN
3108: x_return_status := FND_API.G_RET_STS_ERROR;
3109: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
3110: FND_MESSAGE.SET_TOKEN('RECORD', 'party site use');
3111: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_id), 'null'));
3112: FND_MSG_PUB.ADD;
3109: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
3110: FND_MESSAGE.SET_TOKEN('RECORD', 'party site use');
3111: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_id), 'null'));
3112: FND_MSG_PUB.ADD;
3113: RAISE FND_API.G_EXC_ERROR;
3114: END;
3115:
3116: -- Debug info.
3117: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3322: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
3323: FND_MESSAGE.SET_TOKEN('RECORD', 'Party site use');
3324: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_id), 'null'));
3325: FND_MSG_PUB.ADD;
3326: RAISE FND_API.G_EXC_ERROR;
3327: END;
3328:
3329: -- Debug info.
3330: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3389: --- Call update_acct_sites_status procedure
3390: --
3391: update_acct_sites_status(p_party_site_id,p_new_status,x_return_status);
3392:
3393: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3394: RAISE FND_API.G_EXC_ERROR;
3395: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3397: END IF;
3390: --
3391: update_acct_sites_status(p_party_site_id,p_new_status,x_return_status);
3392:
3393: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3394: RAISE FND_API.G_EXC_ERROR;
3395: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3397: END IF;
3398: --
3391: update_acct_sites_status(p_party_site_id,p_new_status,x_return_status);
3392:
3393: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3394: RAISE FND_API.G_EXC_ERROR;
3395: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3397: END IF;
3398: --
3399: --- If Inactivating Party Site Uses
3392:
3393: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3394: RAISE FND_API.G_EXC_ERROR;
3395: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3397: END IF;
3398: --
3399: --- If Inactivating Party Site Uses
3400: --
3397: END IF;
3398: --
3399: --- If Inactivating Party Site Uses
3400: --
3401: IF x_return_status = FND_API.G_RET_STS_SUCCESS and p_new_status = 'I' THEN
3402: inactivate_party_site_uses(p_party_site_id,p_new_status,x_return_status);
3403: --
3404: --- Inactivate account site uses
3405: --
3402: inactivate_party_site_uses(p_party_site_id,p_new_status,x_return_status);
3403: --
3404: --- Inactivate account site uses
3405: --
3406: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3407: inactivate_account_site_uses(p_party_site_id,p_new_status,x_return_status);
3408: END IF;
3409: END IF;
3410: -- Debug info.
3413: p_prefix=>l_debug_prefix,
3414: p_msg_level=>fnd_log.level_procedure);
3415: END IF;
3416: EXCEPTION
3417: WHEN FND_API.G_EXC_ERROR THEN
3418: x_return_status := FND_API.G_RET_STS_ERROR;
3419:
3420: -- FND_MSG_PUB.Count_And_Get(
3421: -- p_encoded => FND_API.G_FALSE,
3414: p_msg_level=>fnd_log.level_procedure);
3415: END IF;
3416: EXCEPTION
3417: WHEN FND_API.G_EXC_ERROR THEN
3418: x_return_status := FND_API.G_RET_STS_ERROR;
3419:
3420: -- FND_MSG_PUB.Count_And_Get(
3421: -- p_encoded => FND_API.G_FALSE,
3422: -- p_count => x_msg_count,
3417: WHEN FND_API.G_EXC_ERROR THEN
3418: x_return_status := FND_API.G_RET_STS_ERROR;
3419:
3420: -- FND_MSG_PUB.Count_And_Get(
3421: -- p_encoded => FND_API.G_FALSE,
3422: -- p_count => x_msg_count,
3423: -- p_data => x_msg_data );
3424:
3425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3421: -- p_encoded => FND_API.G_FALSE,
3422: -- p_count => x_msg_count,
3423: -- p_data => x_msg_data );
3424:
3425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3427:
3428: -- FND_MSG_PUB.Count_And_Get(
3429: -- p_encoded => FND_API.G_FALSE,
3422: -- p_count => x_msg_count,
3423: -- p_data => x_msg_data );
3424:
3425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3427:
3428: -- FND_MSG_PUB.Count_And_Get(
3429: -- p_encoded => FND_API.G_FALSE,
3430: -- p_count => x_msg_count,
3425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3427:
3428: -- FND_MSG_PUB.Count_And_Get(
3429: -- p_encoded => FND_API.G_FALSE,
3430: -- p_count => x_msg_count,
3431: -- p_data => x_msg_data );
3432:
3433: WHEN OTHERS THEN
3430: -- p_count => x_msg_count,
3431: -- p_data => x_msg_data );
3432:
3433: WHEN OTHERS THEN
3434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3435: -- FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
3436: -- FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3437: -- FND_MSG_PUB.ADD;
3438: -- FND_MSG_PUB.Count_And_Get(
3435: -- FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
3436: -- FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3437: -- FND_MSG_PUB.ADD;
3438: -- FND_MSG_PUB.Count_And_Get(
3439: -- p_encoded => FND_API.G_FALSE,
3440: -- p_count => x_msg_count,
3441: -- p_data => x_msg_data );
3442:
3443: END cascade_site_status_changes;
3467:
3468: -- check language
3469: IF (p_create_update_flag = 'C' AND
3470: p_party_site_rec.language IS NOT NULL AND
3471: p_party_site_rec.language <> FND_API.G_MISS_CHAR) OR
3472: (p_create_update_flag = 'U' AND
3473: p_party_site_rec.language IS NOT NULL AND
3474: p_party_site_rec.language <> p_old_party_site_rec.language)
3475: THEN
3475: THEN
3476: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
3477: FND_MESSAGE.SET_TOKEN('COLUMN', 'language');
3478: FND_MSG_PUB.ADD;
3479: x_return_status := FND_API.G_RET_STS_ERROR;
3480: END IF;
3481:
3482: END check_obsolete_columns;
3483: