[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:
504: --Added DQM Sync call
505: HZ_DQM_SYNC.sync_party_site(p_party_site_rec.party_site_id,'C');
506:
507: if p_party_site_rec.orig_system is not null
508: and p_party_site_rec.orig_system <>fnd_api.g_miss_char
509: then
510: l_orig_sys_reference_rec.orig_system := p_party_site_rec.orig_system;
511: l_orig_sys_reference_rec.orig_system_reference := p_party_site_rec.orig_system_reference;
512: l_orig_sys_reference_rec.owner_table_name := 'HZ_PARTY_SITES';
513: l_orig_sys_reference_rec.owner_table_id := p_party_site_rec.party_site_id;
514: l_orig_sys_reference_rec.created_by_module := p_party_site_rec.created_by_module;
515:
516: hz_orig_system_ref_pub.create_orig_system_reference(
517: FND_API.G_FALSE,
518: l_orig_sys_reference_rec,
519: x_return_status,
520: l_msg_count,
521: l_msg_data);
518: l_orig_sys_reference_rec,
519: x_return_status,
520: l_msg_count,
521: l_msg_data);
522: IF x_return_status <> fnd_api.g_ret_sts_success THEN
523: RAISE FND_API.G_EXC_ERROR;
524: END IF;
525: end if;
526:
519: x_return_status,
520: l_msg_count,
521: l_msg_data);
522: IF x_return_status <> fnd_api.g_ret_sts_success THEN
523: RAISE FND_API.G_EXC_ERROR;
524: END IF;
525: end if;
526:
527: x_party_site_id := p_party_site_rec.party_site_id;
583: X_RETURN_STATUS => x_return_status,
584: P_REGISTRATION_TYPE_CODE => null,--4742586
585: P_COUNTRY_CODE => l_country_code --4742586
586: );
587: IF x_return_status <> fnd_api.g_ret_sts_success THEN
588: RAISE FND_API.G_EXC_ERROR;
589: END IF;
590:
591: -- Debug info.
584: P_REGISTRATION_TYPE_CODE => null,--4742586
585: P_COUNTRY_CODE => l_country_code --4742586
586: );
587: IF x_return_status <> fnd_api.g_ret_sts_success THEN
588: RAISE FND_API.G_EXC_ERROR;
589: END IF;
590:
591: -- Debug info.
592: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
698: THEN
699: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
700: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_party_sites');
701: FND_MSG_PUB.ADD;
702: RAISE FND_API.G_EXC_ERROR;
703: END IF;
704:
705: p_object_version_number := nvl(l_object_version_number, 1) + 1;
706:
708: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
709: FND_MESSAGE.SET_TOKEN('RECORD', 'party site');
710: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_rec.party_site_id), 'null'));
711: FND_MSG_PUB.ADD;
712: RAISE FND_API.G_EXC_ERROR;
713: END;
714:
715: -- Bug 2197181: added for mix-n-match project.
716: -- check if the data source is seleted.
730: l_rowid,
731: x_return_status,
732: l_loc_actual_content_source);
733:
734: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
735: RAISE FND_API.G_EXC_ERROR;
736: END IF;
737:
738: -- if the current site is updated to be identifying one, then
731: x_return_status,
732: l_loc_actual_content_source);
733:
734: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
735: RAISE FND_API.G_EXC_ERROR;
736: END IF;
737:
738: -- if the current site is updated to be identifying one, then
739: -- unmark the previous party sites with identifying flag = 'Y'.
754: do_unmark_address_flag(db_party_id, p_party_site_rec.party_site_id, 'U');
755: l_identifying_location_id := db_location_id;
756: ELSE
757: -- ignore the value of primary address flag if the flag
758: -- has been set to 'N' or NULL or FND_API.G_MISS_CHAR.
759: -- user can not unset a primary address flag by passing
760: -- value 'N' or NULL. to unset a primary flag, he/she
761: -- needs to select another address as primary. this
762: -- address will be unmarked automatically.
854: END IF;
855: END IF;
856:
857: if (p_party_site_rec.orig_system is not null
858: and p_party_site_rec.orig_system <>fnd_api.g_miss_char)
859: and (p_party_site_rec.orig_system_reference is not null
860: and p_party_site_rec.orig_system_reference <>fnd_api.g_miss_char)
861: then
862: p_party_site_rec.orig_system_reference := null;
856:
857: if (p_party_site_rec.orig_system is not null
858: and p_party_site_rec.orig_system <>fnd_api.g_miss_char)
859: and (p_party_site_rec.orig_system_reference is not null
860: and p_party_site_rec.orig_system_reference <>fnd_api.g_miss_char)
861: then
862: p_party_site_rec.orig_system_reference := null;
863: -- In mosr, we have bypassed osr nonupdateable validation
864: -- but we should not update existing osr, set it to null
941: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
942: FND_MESSAGE.SET_TOKEN('RECORD', 'Message Name');
943: --FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_use_rec.party_site_id), 'null'));
944: FND_MSG_PUB.ADD;
945: RAISE FND_API.G_EXC_ERROR;
946: END;
947: END IF;
948: IF g_message_name IS NOT NULL THEN
949: -- Code modified for Bug 3714636 ends here
952: x_return_status);
953: END IF;
954: END IF;
955:
956: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
957: RAISE FND_API.G_EXC_ERROR;
958: END IF;
959:
960: -- Debug info.
953: END IF;
954: END IF;
955:
956: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
957: RAISE FND_API.G_EXC_ERROR;
958: END IF;
959:
960: -- Debug info.
961: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1025: END IF;
1026:
1027: -- if primary key value is passed, check for uniqueness.
1028: IF l_party_site_use_id IS NOT NULL AND
1029: l_party_site_use_id <> FND_API.G_MISS_NUM
1030: THEN
1031: BEGIN
1032: SELECT 'Y'
1033: INTO l_dummy
1036:
1037: FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
1038: FND_MESSAGE.SET_TOKEN('COLUMN', 'party_site_use_id');
1039: FND_MSG_PUB.ADD;
1040: RAISE FND_API.G_EXC_ERROR;
1041:
1042: EXCEPTION
1043: WHEN NO_DATA_FOUND THEN
1044: NULL;
1050: p_party_site_use_rec,
1051: l_rowid,
1052: x_return_status);
1053:
1054: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1055: RAISE FND_API.G_EXC_ERROR;
1056: END IF;
1057:
1058:
1051: l_rowid,
1052: x_return_status);
1053:
1054: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1055: RAISE FND_API.G_EXC_ERROR;
1056: END IF;
1057:
1058:
1059: -- Bug 2065191
1058:
1059: -- Bug 2065191
1060: IF p_party_site_use_rec.status = 'A'
1061: OR p_party_site_use_rec.status IS NULL
1062: OR p_party_site_use_rec.status = FND_API.G_MISS_CHAR
1063: THEN
1064: -- if this is the first active party site use per type,,
1065: -- we need to mark it with primary_per_type = 'Y'.
1066: SELECT PARTY_ID
1220: THEN
1221: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1222: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_PARTY_SITE_USES');
1223: FND_MSG_PUB.ADD;
1224: RAISE FND_API.G_EXC_ERROR;
1225: END IF;
1226:
1227: p_object_version_number := nvl(l_object_version_number, 1) + 1;
1228:
1230: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
1231: FND_MESSAGE.SET_TOKEN('RECORD', 'party site use');
1232: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_use_rec.party_site_use_id), 'null'));
1233: FND_MSG_PUB.ADD;
1234: RAISE FND_API.G_EXC_ERROR;
1235: END;
1236:
1237: -- unmark the previous site uses whose primary_per_type = 'Y'.
1238: BEGIN
1257: l_site_use_type, 'U' );
1258:
1259: ELSE
1260: -- ignore the value of primary per type flag if the flag has been
1261: -- set to 'N' or NULL by passing FND_API.G_MISS_CHAR.
1262: -- user can not unset a primary per type flag by passing value 'N' or NULL.
1263: -- to unset a primary flag, he/she needs to select another site use as primary.
1264: -- This site use will be unmarked automatically.
1265: p_party_site_use_rec.primary_per_type := NULL;
1317: FND_MESSAGE.SET_TOKEN('FK', 'party site id');
1318: FND_MESSAGE.SET_TOKEN('COLUMN', 'party site id');
1319: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_party_sites');
1320: FND_MSG_PUB.ADD;
1321: RAISE FND_API.G_EXC_ERROR;
1322: END;
1323:
1324: -- call for validations.
1325: -- Moved the validation for Bug Fix: 3651716
1328: p_party_site_use_rec,
1329: l_rowid,
1330: x_return_status);
1331:
1332: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1333: RAISE FND_API.G_EXC_ERROR;
1334: END IF;
1335:
1336: -- Debug info.
1329: l_rowid,
1330: x_return_status);
1331:
1332: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1333: RAISE FND_API.G_EXC_ERROR;
1334: END IF;
1335:
1336: -- Debug info.
1337: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1428: WHEN OTHERS THEN
1429: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1430: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_PARTIES');
1431: FND_MSG_PUB.ADD;
1432: RAISE FND_API.G_EXC_ERROR;
1433: END;
1434:
1435: -- if location_id is null, we will null out NOCOPY the location
1436: -- components in hz_parties.
1550: WHEN OTHERS THEN
1551: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1552: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_PARTY_SITES');
1553: FND_MSG_PUB.ADD;
1554: RAISE FND_API.G_EXC_ERROR;
1555: END;
1556:
1557: IF l_rowid IS NOT NULL THEN
1558: UPDATE hz_party_sites
1646: WHEN OTHERS THEN
1647: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1648: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_PARTY_SITE_USES');
1649: FND_MSG_PUB.ADD;
1650: RAISE FND_API.G_EXC_ERROR;
1651: END;
1652:
1653: IF l_rowid IS NOT NULL THEN
1654: UPDATE HZ_PARTY_SITE_USES
1712: |
1713: +===========================================================================*/
1714:
1715: PROCEDURE create_party_site (
1716: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1717: p_party_site_rec IN PARTY_SITE_REC_TYPE,
1718: x_party_site_id OUT NOCOPY NUMBER,
1719: x_party_site_number OUT NOCOPY VARCHAR2,
1720: x_return_status OUT NOCOPY VARCHAR2,
1725: l_api_name CONSTANT VARCHAR2(30) := 'create_party_site';
1726: l_party_site_rec PARTY_SITE_REC_TYPE := p_party_site_rec;
1727:
1728:
1729: dss_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1730: dss_msg_count NUMBER := 0;
1731: dss_msg_data VARCHAR2(2000):= null;
1732: l_test_security VARCHAR2(1):= 'F';
1733: l_debug_prefix VARCHAR2(30) := '';
1746: p_msg_level=>fnd_log.level_procedure);
1747: END IF;
1748:
1749: -- initialize message list if p_init_msg_list is set to TRUE.
1750: IF FND_API.to_Boolean(p_init_msg_list) THEN
1751: FND_MSG_PUB.initialize;
1752: END IF;
1753:
1754: -- initialize API return status to success.
1751: FND_MSG_PUB.initialize;
1752: END IF;
1753:
1754: -- initialize API return status to success.
1755: x_return_status := FND_API.G_RET_STS_SUCCESS;
1756:
1757: -- Bug 2197181: added for mix-n-match project. first load data
1758: -- sources for this entity.
1759:
1778: p_party_site_rec => l_party_site_rec,
1779: x_return_status => x_return_status
1780: );
1781:
1782: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1783: RAISE FND_API.G_EXC_ERROR;
1784: END IF;
1785: END IF;
1786:
1779: x_return_status => x_return_status
1780: );
1781:
1782: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1783: RAISE FND_API.G_EXC_ERROR;
1784: END IF;
1785: END IF;
1786:
1787: -- call to business logic.
1805: x_return_status => dss_return_status,
1806: x_msg_count => dss_msg_count,
1807: x_msg_data => dss_msg_data);
1808:
1809: if dss_return_status <> fnd_api.g_ret_sts_success THEN
1810: RAISE FND_API.G_EXC_ERROR;
1811: end if;
1812:
1813: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
1806: x_msg_count => dss_msg_count,
1807: x_msg_data => dss_msg_data);
1808:
1809: if dss_return_status <> fnd_api.g_ret_sts_success THEN
1810: RAISE FND_API.G_EXC_ERROR;
1811: end if;
1812:
1813: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
1814: --
1809: if dss_return_status <> fnd_api.g_ret_sts_success THEN
1810: RAISE FND_API.G_EXC_ERROR;
1811: end if;
1812:
1813: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
1814: --
1815: -- Bug 3835601: replaced the dss message with a more user friendly message
1816: --
1817: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
1817: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
1818: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
1819: fnd_message.get_string('AR', 'HZ_DSS_PARTY_ADDRESSES'));
1820: FND_MSG_PUB.ADD;
1821: RAISE FND_API.G_EXC_ERROR;
1822: end if;
1823: END IF;
1824:
1825: -- Invoke business event system.
1827: -- SSM SST Integration and Extension
1828: -- For non-profile entities, the concept of select/de-select data-sources is obsoleted.
1829: -- There is no need to check if the data-source is selected.
1830:
1831: IF x_return_status = FND_API.G_RET_STS_SUCCESS /* AND
1832: -- Bug 2197181: Added below condition for Mix-n-Match
1833: g_pst_is_datasource_selected = 'Y'*/
1834: THEN
1835: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
1848: --Bug 4866187
1849: --Bug 5370799
1850: --Bug13117445
1851: --Commented sync_party_site call as it will called do_create_party_site just after party site insertion
1852: /* IF (p_party_site_rec.orig_system IS NULL OR p_party_site_rec.orig_system=FND_API.G_MISS_CHAR ) THEN
1853: HZ_DQM_SYNC.sync_party_site(l_party_site_rec.party_site_id,'C');
1854: END IF;
1855: */
1856: END IF;
1856: END IF;
1857:
1858: -- standard call to get message count and if count is 1, get message info.
1859: FND_MSG_PUB.Count_And_Get(
1860: p_encoded => FND_API.G_FALSE,
1861: p_count => x_msg_count,
1862: p_data => x_msg_data);
1863:
1864: -- Debug info.
1877: -- Check if API is called in debug mode. If yes, disable debug.
1878: --disable_debug;
1879:
1880: EXCEPTION
1881: WHEN FND_API.G_EXC_ERROR THEN
1882: ROLLBACK TO create_party_site;
1883: x_return_status := FND_API.G_RET_STS_ERROR;
1884: FND_MSG_PUB.Count_And_Get(
1885: p_encoded => FND_API.G_FALSE,
1879:
1880: EXCEPTION
1881: WHEN FND_API.G_EXC_ERROR THEN
1882: ROLLBACK TO create_party_site;
1883: x_return_status := FND_API.G_RET_STS_ERROR;
1884: FND_MSG_PUB.Count_And_Get(
1885: p_encoded => FND_API.G_FALSE,
1886: p_count => x_msg_count,
1887: p_data => x_msg_data);
1881: WHEN FND_API.G_EXC_ERROR THEN
1882: ROLLBACK TO create_party_site;
1883: x_return_status := FND_API.G_RET_STS_ERROR;
1884: FND_MSG_PUB.Count_And_Get(
1885: p_encoded => FND_API.G_FALSE,
1886: p_count => x_msg_count,
1887: p_data => x_msg_data);
1888:
1889: -- Debug info.
1901:
1902: -- Check if API is called in debug mode. If yes, disable debug.
1903: --disable_debug;
1904:
1905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1906: ROLLBACK TO create_party_site;
1907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1908: FND_MSG_PUB.Count_And_Get(
1909: p_encoded => FND_API.G_FALSE,
1903: --disable_debug;
1904:
1905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1906: ROLLBACK TO create_party_site;
1907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1908: FND_MSG_PUB.Count_And_Get(
1909: p_encoded => FND_API.G_FALSE,
1910: p_count => x_msg_count,
1911: p_data => x_msg_data);
1905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1906: ROLLBACK TO create_party_site;
1907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1908: FND_MSG_PUB.Count_And_Get(
1909: p_encoded => FND_API.G_FALSE,
1910: p_count => x_msg_count,
1911: p_data => x_msg_data);
1912:
1913: -- Debug info.
1927: --disable_debug;
1928:
1929: WHEN OTHERS THEN
1930: ROLLBACK TO create_party_site;
1931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1932: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1933: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1934: FND_MSG_PUB.ADD;
1935: FND_MSG_PUB.Count_And_Get(
1932: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1933: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1934: FND_MSG_PUB.ADD;
1935: FND_MSG_PUB.Count_And_Get(
1936: p_encoded => FND_API.G_FALSE,
1937: p_count => x_msg_count,
1938: p_data => x_msg_data);
1939:
1940: -- Debug info.
1987: | select/de-select data-sources is obsoleted.
1988: +===========================================================================*/
1989:
1990: PROCEDURE update_party_site (
1991: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1992: p_party_site_rec IN PARTY_SITE_REC_TYPE,
1993: p_object_version_number IN OUT NOCOPY NUMBER,
1994: x_return_status OUT NOCOPY VARCHAR2,
1995: x_msg_count OUT NOCOPY NUMBER,
1999: l_api_name CONSTANT VARCHAR2(30) := 'update_party_site';
2000: l_party_site_rec PARTY_SITE_REC_TYPE := p_party_site_rec;
2001: l_old_party_site_rec PARTY_SITE_REC_TYPE;
2002:
2003: dss_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2004: dss_msg_count NUMBER := 0;
2005: dss_msg_data VARCHAR2(2000):= null;
2006: l_test_security VARCHAR2(1):= 'F';
2007: l_release_name VARCHAR2(50);
2022: p_msg_level=>fnd_log.level_procedure);
2023: END IF;
2024:
2025: -- initialize message list if p_init_msg_list is set to TRUE.
2026: IF FND_API.to_Boolean(p_init_msg_list) THEN
2027: FND_MSG_PUB.initialize;
2028: END IF;
2029:
2030: -- initialize API return status to success.
2027: FND_MSG_PUB.initialize;
2028: END IF;
2029:
2030: -- initialize API return status to success.
2031: x_return_status := FND_API.G_RET_STS_SUCCESS;
2032:
2033: -- if party_site_id is not passed in, but orig system parameters are passed in
2034: -- get party_id
2035:
2033: -- if party_site_id is not passed in, but orig system parameters are passed in
2034: -- get party_id
2035:
2036: IF (p_party_site_rec.orig_system is not null
2037: and p_party_site_rec.orig_system <>fnd_api.g_miss_char)
2038: and (p_party_site_rec.orig_system_reference is not null
2039: and p_party_site_rec.orig_system_reference <>fnd_api.g_miss_char)
2040: and (p_party_site_rec.party_site_id = FND_API.G_MISS_NUM or p_party_site_rec.party_site_id is null) THEN
2041: hz_orig_system_ref_pub.get_owner_table_id
2035:
2036: IF (p_party_site_rec.orig_system is not null
2037: and p_party_site_rec.orig_system <>fnd_api.g_miss_char)
2038: and (p_party_site_rec.orig_system_reference is not null
2039: and p_party_site_rec.orig_system_reference <>fnd_api.g_miss_char)
2040: and (p_party_site_rec.party_site_id = FND_API.G_MISS_NUM or p_party_site_rec.party_site_id is null) THEN
2041: hz_orig_system_ref_pub.get_owner_table_id
2042: (p_orig_system => p_party_site_rec.orig_system,
2043: p_orig_system_reference => p_party_site_rec.orig_system_reference,
2036: IF (p_party_site_rec.orig_system is not null
2037: and p_party_site_rec.orig_system <>fnd_api.g_miss_char)
2038: and (p_party_site_rec.orig_system_reference is not null
2039: and p_party_site_rec.orig_system_reference <>fnd_api.g_miss_char)
2040: and (p_party_site_rec.party_site_id = FND_API.G_MISS_NUM or p_party_site_rec.party_site_id is null) THEN
2041: hz_orig_system_ref_pub.get_owner_table_id
2042: (p_orig_system => p_party_site_rec.orig_system,
2043: p_orig_system_reference => p_party_site_rec.orig_system_reference,
2044: p_owner_table_name => 'HZ_PARTY_SITES',
2043: p_orig_system_reference => p_party_site_rec.orig_system_reference,
2044: p_owner_table_name => 'HZ_PARTY_SITES',
2045: x_owner_table_id => l_party_site_rec.party_site_id,
2046: x_return_status => x_return_status);
2047: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2048: RAISE FND_API.G_EXC_ERROR;
2049: END IF;
2050: END IF;
2051:
2044: p_owner_table_name => 'HZ_PARTY_SITES',
2045: x_owner_table_id => l_party_site_rec.party_site_id,
2046: x_return_status => x_return_status);
2047: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2048: RAISE FND_API.G_EXC_ERROR;
2049: END IF;
2050: END IF;
2051:
2052:
2057: x_return_status => x_return_status,
2058: x_msg_count => x_msg_count,
2059: x_msg_data => x_msg_data );
2060:
2061: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2062: RAISE FND_API.G_EXC_ERROR;
2063: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2065: END IF;
2058: x_msg_count => x_msg_count,
2059: x_msg_data => x_msg_data );
2060:
2061: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2062: RAISE FND_API.G_EXC_ERROR;
2063: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2065: END IF;
2066:
2059: x_msg_data => x_msg_data );
2060:
2061: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2062: RAISE FND_API.G_EXC_ERROR;
2063: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2065: END IF;
2066:
2067: --- Bug 2486394 Check if the DSS security is granted to the user
2060:
2061: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2062: RAISE FND_API.G_EXC_ERROR;
2063: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2065: END IF;
2066:
2067: --- Bug 2486394 Check if the DSS security is granted to the user
2068: -- Bug 3818648: check dss profile before call test_instance.
2077: x_return_status => dss_return_status,
2078: x_msg_count => dss_msg_count,
2079: x_msg_data => dss_msg_data);
2080:
2081: if dss_return_status <> fnd_api.g_ret_sts_success THEN
2082: RAISE FND_API.G_EXC_ERROR;
2083: end if;
2084:
2085: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
2078: x_msg_count => dss_msg_count,
2079: x_msg_data => dss_msg_data);
2080:
2081: if dss_return_status <> fnd_api.g_ret_sts_success THEN
2082: RAISE FND_API.G_EXC_ERROR;
2083: end if;
2084:
2085: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
2086: --
2081: if dss_return_status <> fnd_api.g_ret_sts_success THEN
2082: RAISE FND_API.G_EXC_ERROR;
2083: end if;
2084:
2085: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
2086: --
2087: -- Bug 3835601: replaced the dss message with a more user friendly message
2088: --
2089: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
2089: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
2090: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
2091: fnd_message.get_string('AR', 'HZ_DSS_PARTY_ADDRESSES'));
2092: FND_MSG_PUB.ADD;
2093: RAISE FND_API.G_EXC_ERROR;
2094: end if;
2095: END IF;
2096:
2097: -- Bug 2197181: added for mix-n-match project. first load data
2119: p_old_party_site_rec => l_old_party_site_rec,
2120: x_return_status => x_return_status
2121: );
2122:
2123: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2124: RAISE FND_API.G_EXC_ERROR;
2125: END IF;
2126: END IF;
2127:
2120: x_return_status => x_return_status
2121: );
2122:
2123: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2124: RAISE FND_API.G_EXC_ERROR;
2125: END IF;
2126: END IF;
2127:
2128: -- call to business logic.
2136: -- SSM SST Integration and Extension
2137: -- For non-profile entities, the concept of select/de-select data-sources is obsoleted.
2138: -- There is no need to check if the data-source is selected.
2139:
2140: IF x_return_status = FND_API.G_RET_STS_SUCCESS /*AND
2141: -- Bug 2197181: added for mix-n-match project.
2142: g_pst_is_datasource_selected = 'Y'*/
2143: THEN
2144: l_old_party_site_rec.orig_system := l_party_site_rec.orig_system;
2178: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
2179: FND_MESSAGE.SET_TOKEN('RECORD', 'Message Name');
2180: --FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_use_rec.party_site_id), 'null'));
2181: FND_MSG_PUB.ADD;
2182: RAISE FND_API.G_EXC_ERROR;
2183: END;
2184: END IF;
2185: --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
2186: IF g_message_name IS NOT NULL THEN
2187: -- Code modified for Bug 3714636 ends here
2188: update_acct_sites_status(l_party_site_rec.party_site_id,
2189: l_party_site_rec.status,
2190: x_return_status);
2191: -- IF x_return_status <> fnd_api.g_ret_sts_success THEN
2192: -- RAISE FND_API.G_EXC_ERROR;
2193: -- END IF;
2194:
2195: END IF;
2188: update_acct_sites_status(l_party_site_rec.party_site_id,
2189: l_party_site_rec.status,
2190: x_return_status);
2191: -- IF x_return_status <> fnd_api.g_ret_sts_success THEN
2192: -- RAISE FND_API.G_EXC_ERROR;
2193: -- END IF;
2194:
2195: END IF;
2196: END IF;
2196: END IF;
2197:
2198: -- standard call to get message count and if count is 1, get message info.
2199: FND_MSG_PUB.Count_And_Get(
2200: p_encoded => FND_API.G_FALSE,
2201: p_count => x_msg_count,
2202: p_data => x_msg_data);
2203:
2204:
2218: -- Check if API is called in debug mode. If yes, disable debug.
2219: --disable_debug;
2220:
2221: EXCEPTION
2222: WHEN FND_API.G_EXC_ERROR THEN
2223: ROLLBACK TO update_party_site;
2224: x_return_status := FND_API.G_RET_STS_ERROR;
2225: FND_MSG_PUB.Count_And_Get(
2226: p_encoded => FND_API.G_FALSE,
2220:
2221: EXCEPTION
2222: WHEN FND_API.G_EXC_ERROR THEN
2223: ROLLBACK TO update_party_site;
2224: x_return_status := FND_API.G_RET_STS_ERROR;
2225: FND_MSG_PUB.Count_And_Get(
2226: p_encoded => FND_API.G_FALSE,
2227: p_count => x_msg_count,
2228: p_data => x_msg_data);
2222: WHEN FND_API.G_EXC_ERROR THEN
2223: ROLLBACK TO update_party_site;
2224: x_return_status := FND_API.G_RET_STS_ERROR;
2225: FND_MSG_PUB.Count_And_Get(
2226: p_encoded => FND_API.G_FALSE,
2227: p_count => x_msg_count,
2228: p_data => x_msg_data);
2229:
2230: -- Debug info.
2243:
2244: -- Check if API is called in debug mode. If yes, disable debug.
2245: --disable_debug;
2246:
2247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2248: ROLLBACK TO update_party_site;
2249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2250: FND_MSG_PUB.Count_And_Get(
2251: p_encoded => FND_API.G_FALSE,
2245: --disable_debug;
2246:
2247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2248: ROLLBACK TO update_party_site;
2249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2250: FND_MSG_PUB.Count_And_Get(
2251: p_encoded => FND_API.G_FALSE,
2252: p_count => x_msg_count,
2253: p_data => x_msg_data);
2247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2248: ROLLBACK TO update_party_site;
2249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2250: FND_MSG_PUB.Count_And_Get(
2251: p_encoded => FND_API.G_FALSE,
2252: p_count => x_msg_count,
2253: p_data => x_msg_data);
2254:
2255: -- Debug info.
2269: --disable_debug;
2270:
2271: WHEN OTHERS THEN
2272: ROLLBACK TO update_party_site;
2273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2274: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2275: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2276: FND_MSG_PUB.ADD;
2277: FND_MSG_PUB.Count_And_Get(
2274: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2275: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2276: FND_MSG_PUB.ADD;
2277: FND_MSG_PUB.Count_And_Get(
2278: p_encoded => FND_API.G_FALSE,
2279: p_count => x_msg_count,
2280: p_data => x_msg_data);
2281:
2282: -- Debug info.
2328: |
2329: +===========================================================================*/
2330:
2331: PROCEDURE create_party_site_use (
2332: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2333: p_party_site_use_rec IN PARTY_SITE_USE_REC_TYPE,
2334: x_party_site_use_id OUT NOCOPY NUMBER,
2335: x_return_status OUT NOCOPY VARCHAR2,
2336: x_msg_count OUT NOCOPY NUMBER,
2357: END IF;
2358:
2359:
2360: -- initialize message list if p_init_msg_list is set to TRUE.
2361: IF FND_API.to_Boolean(p_init_msg_list) THEN
2362: FND_MSG_PUB.initialize;
2363: END IF;
2364:
2365: -- initialize API return status to success.
2362: FND_MSG_PUB.initialize;
2363: END IF;
2364:
2365: -- initialize API return status to success.
2366: x_return_status := FND_API.G_RET_STS_SUCCESS;
2367:
2368: -- call to business logic.
2369: do_create_party_site_use(
2370: l_party_site_use_rec,
2371: x_party_site_use_id,
2372: x_return_status
2373: );
2374:
2375: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2376: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
2377: -- Invoke business event system.
2378: HZ_BUSINESS_EVENT_V2PVT.create_party_site_use_event (
2379: l_party_site_use_rec );
2388: END IF;
2389:
2390: -- standard call to get message count and if count is 1, get message info.
2391: FND_MSG_PUB.Count_And_Get(
2392: p_encoded => FND_API.G_FALSE,
2393: p_count => x_msg_count,
2394: p_data => x_msg_data);
2395:
2396: -- Debug info.
2409: -- Check if API is called in debug mode. If yes, disable debug.
2410: --disable_debug;
2411:
2412: EXCEPTION
2413: WHEN FND_API.G_EXC_ERROR THEN
2414: ROLLBACK TO create_party_site_use;
2415: x_return_status := FND_API.G_RET_STS_ERROR;
2416: FND_MSG_PUB.Count_And_Get(
2417: p_encoded => FND_API.G_FALSE,
2411:
2412: EXCEPTION
2413: WHEN FND_API.G_EXC_ERROR THEN
2414: ROLLBACK TO create_party_site_use;
2415: x_return_status := FND_API.G_RET_STS_ERROR;
2416: FND_MSG_PUB.Count_And_Get(
2417: p_encoded => FND_API.G_FALSE,
2418: p_count => x_msg_count,
2419: p_data => x_msg_data);
2413: WHEN FND_API.G_EXC_ERROR THEN
2414: ROLLBACK TO create_party_site_use;
2415: x_return_status := FND_API.G_RET_STS_ERROR;
2416: FND_MSG_PUB.Count_And_Get(
2417: p_encoded => FND_API.G_FALSE,
2418: p_count => x_msg_count,
2419: p_data => x_msg_data);
2420:
2421: -- Debug info.
2433:
2434: -- Check if API is called in debug mode. If yes, disable debug.
2435: --disable_debug;
2436:
2437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2438: ROLLBACK TO create_party_site_use;
2439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2440: FND_MSG_PUB.Count_And_Get(
2441: p_encoded => FND_API.G_FALSE,
2435: --disable_debug;
2436:
2437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2438: ROLLBACK TO create_party_site_use;
2439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2440: FND_MSG_PUB.Count_And_Get(
2441: p_encoded => FND_API.G_FALSE,
2442: p_count => x_msg_count,
2443: p_data => x_msg_data);
2437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2438: ROLLBACK TO create_party_site_use;
2439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2440: FND_MSG_PUB.Count_And_Get(
2441: p_encoded => FND_API.G_FALSE,
2442: p_count => x_msg_count,
2443: p_data => x_msg_data);
2444:
2445: -- Debug info.
2459: --disable_debug;
2460:
2461: WHEN OTHERS THEN
2462: ROLLBACK TO create_party_site_use;
2463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2464: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2465: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2466: FND_MSG_PUB.ADD;
2467: FND_MSG_PUB.Count_And_Get(
2464: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2465: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2466: FND_MSG_PUB.ADD;
2467: FND_MSG_PUB.Count_And_Get(
2468: p_encoded => FND_API.G_FALSE,
2469: p_count => x_msg_count,
2470: p_data => x_msg_data);
2471:
2472: -- Debug info.
2516: |
2517: +===========================================================================*/
2518:
2519: PROCEDURE update_party_site_use (
2520: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2521: p_party_site_use_rec IN PARTY_SITE_USE_REC_TYPE,
2522: p_object_version_number IN OUT NOCOPY NUMBER,
2523: x_return_status OUT NOCOPY VARCHAR2,
2524: x_msg_count OUT NOCOPY NUMBER,
2545: p_msg_level=>fnd_log.level_procedure);
2546: END IF;
2547:
2548: -- initialize message list if p_init_msg_list is set to TRUE.
2549: IF FND_API.to_Boolean(p_init_msg_list) THEN
2550: FND_MSG_PUB.initialize;
2551: END IF;
2552:
2553: -- initialize API return status to success.
2550: FND_MSG_PUB.initialize;
2551: END IF;
2552:
2553: -- initialize API return status to success.
2554: x_return_status := FND_API.G_RET_STS_SUCCESS;
2555:
2556: --2290537
2557: get_party_site_use_rec (
2558: p_party_site_use_id => p_party_site_use_rec.party_site_use_id,
2560: x_return_status => x_return_status,
2561: x_msg_count => x_msg_count,
2562: x_msg_data => x_msg_data);
2563:
2564: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2565: RAISE FND_API.G_EXC_ERROR;
2566: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2568: END IF;
2561: x_msg_count => x_msg_count,
2562: x_msg_data => x_msg_data);
2563:
2564: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2565: RAISE FND_API.G_EXC_ERROR;
2566: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2568: END IF;
2569:
2562: x_msg_data => x_msg_data);
2563:
2564: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2565: RAISE FND_API.G_EXC_ERROR;
2566: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2568: END IF;
2569:
2570: -- call to business logic.
2563:
2564: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2565: RAISE FND_API.G_EXC_ERROR;
2566: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2568: END IF;
2569:
2570: -- call to business logic.
2571: do_update_party_site_use(
2573: p_object_version_number,
2574: x_return_status
2575: );
2576:
2577: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2578: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
2579: -- Invoke business event system.
2580: HZ_BUSINESS_EVENT_V2PVT.update_party_site_use_event (
2581: l_party_site_use_rec , l_old_party_site_use_rec );
2590: END IF;
2591:
2592: -- standard call to get message count and if count is 1, get message info.
2593: FND_MSG_PUB.Count_And_Get(
2594: p_encoded => FND_API.G_FALSE,
2595: p_count => x_msg_count,
2596: p_data => x_msg_data);
2597:
2598: -- Debug info.
2611: -- Check if API is called in debug mode. If yes, disable debug.
2612: --disable_debug;
2613:
2614: EXCEPTION
2615: WHEN FND_API.G_EXC_ERROR THEN
2616: ROLLBACK TO update_party_site_use;
2617: x_return_status := FND_API.G_RET_STS_ERROR;
2618: FND_MSG_PUB.Count_And_Get(
2619: p_encoded => FND_API.G_FALSE,
2613:
2614: EXCEPTION
2615: WHEN FND_API.G_EXC_ERROR THEN
2616: ROLLBACK TO update_party_site_use;
2617: x_return_status := FND_API.G_RET_STS_ERROR;
2618: FND_MSG_PUB.Count_And_Get(
2619: p_encoded => FND_API.G_FALSE,
2620: p_count => x_msg_count,
2621: p_data => x_msg_data);
2615: WHEN FND_API.G_EXC_ERROR THEN
2616: ROLLBACK TO update_party_site_use;
2617: x_return_status := FND_API.G_RET_STS_ERROR;
2618: FND_MSG_PUB.Count_And_Get(
2619: p_encoded => FND_API.G_FALSE,
2620: p_count => x_msg_count,
2621: p_data => x_msg_data);
2622:
2623: -- Debug info.
2635:
2636: -- Check if API is called in debug mode. If yes, disable debug.
2637: --disable_debug;
2638:
2639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2640: ROLLBACK TO update_party_site_use;
2641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2642: FND_MSG_PUB.Count_And_Get(
2643: p_encoded => FND_API.G_FALSE,
2637: --disable_debug;
2638:
2639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2640: ROLLBACK TO update_party_site_use;
2641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2642: FND_MSG_PUB.Count_And_Get(
2643: p_encoded => FND_API.G_FALSE,
2644: p_count => x_msg_count,
2645: p_data => x_msg_data);
2639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2640: ROLLBACK TO update_party_site_use;
2641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2642: FND_MSG_PUB.Count_And_Get(
2643: p_encoded => FND_API.G_FALSE,
2644: p_count => x_msg_count,
2645: p_data => x_msg_data);
2646:
2647: -- Debug info.
2661: --disable_debug;
2662:
2663: WHEN OTHERS THEN
2664: ROLLBACK TO update_party_site_use;
2665: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2666: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2667: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2668: FND_MSG_PUB.ADD;
2669: FND_MSG_PUB.Count_And_Get(
2666: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2667: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2668: FND_MSG_PUB.ADD;
2669: FND_MSG_PUB.Count_And_Get(
2670: p_encoded => FND_API.G_FALSE,
2671: p_count => x_msg_count,
2672: p_data => x_msg_data);
2673:
2674: -- Debug info.
2721: | to HZ_PARTY_SITES.
2722: +===========================================================================*/
2723:
2724: PROCEDURE get_party_site_rec (
2725: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2726: p_party_site_id IN NUMBER,
2727: x_party_site_rec OUT NOCOPY PARTY_SITE_REC_TYPE,
2728: x_return_status OUT NOCOPY VARCHAR2,
2729: x_msg_count OUT NOCOPY NUMBER,
2735:
2736: BEGIN
2737:
2738: --Initialize message list if p_init_msg_list is set to TRUE.
2739: IF FND_API.to_Boolean(p_init_msg_list) THEN
2740: FND_MSG_PUB.initialize;
2741: END IF;
2742:
2743: --Initialize API return status to success.
2740: FND_MSG_PUB.initialize;
2741: END IF;
2742:
2743: --Initialize API return status to success.
2744: x_return_status := FND_API.G_RET_STS_SUCCESS;
2745:
2746: --Check whether primary key has been passed in.
2747: IF p_party_site_id IS NULL OR
2748: p_party_site_id = FND_API.G_MISS_NUM THEN
2744: x_return_status := FND_API.G_RET_STS_SUCCESS;
2745:
2746: --Check whether primary key has been passed in.
2747: IF p_party_site_id IS NULL OR
2748: p_party_site_id = FND_API.G_MISS_NUM THEN
2749: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2750: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'party_site_id' );
2751: FND_MSG_PUB.ADD;
2752: RAISE FND_API.G_EXC_ERROR;
2748: p_party_site_id = FND_API.G_MISS_NUM THEN
2749: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2750: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'party_site_id' );
2751: FND_MSG_PUB.ADD;
2752: RAISE FND_API.G_EXC_ERROR;
2753: END IF;
2754:
2755: x_party_site_rec.party_site_id := p_party_site_id;
2756:
2795: );
2796:
2797: --Standard call to get message count and if count is 1, get message info.
2798: FND_MSG_PUB.Count_And_Get(
2799: p_encoded => FND_API.G_FALSE,
2800: p_count => x_msg_count,
2801: p_data => x_msg_data );
2802:
2803: EXCEPTION
2800: p_count => x_msg_count,
2801: p_data => x_msg_data );
2802:
2803: EXCEPTION
2804: WHEN FND_API.G_EXC_ERROR THEN
2805: x_return_status := FND_API.G_RET_STS_ERROR;
2806:
2807: FND_MSG_PUB.Count_And_Get(
2808: p_encoded => FND_API.G_FALSE,
2801: p_data => x_msg_data );
2802:
2803: EXCEPTION
2804: WHEN FND_API.G_EXC_ERROR THEN
2805: x_return_status := FND_API.G_RET_STS_ERROR;
2806:
2807: FND_MSG_PUB.Count_And_Get(
2808: p_encoded => FND_API.G_FALSE,
2809: p_count => x_msg_count,
2804: WHEN FND_API.G_EXC_ERROR THEN
2805: x_return_status := FND_API.G_RET_STS_ERROR;
2806:
2807: FND_MSG_PUB.Count_And_Get(
2808: p_encoded => FND_API.G_FALSE,
2809: p_count => x_msg_count,
2810: p_data => x_msg_data );
2811:
2812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2808: p_encoded => FND_API.G_FALSE,
2809: p_count => x_msg_count,
2810: p_data => x_msg_data );
2811:
2812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2814:
2815: FND_MSG_PUB.Count_And_Get(
2816: p_encoded => FND_API.G_FALSE,
2809: p_count => x_msg_count,
2810: p_data => x_msg_data );
2811:
2812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2814:
2815: FND_MSG_PUB.Count_And_Get(
2816: p_encoded => FND_API.G_FALSE,
2817: p_count => x_msg_count,
2812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2814:
2815: FND_MSG_PUB.Count_And_Get(
2816: p_encoded => FND_API.G_FALSE,
2817: p_count => x_msg_count,
2818: p_data => x_msg_data );
2819:
2820: WHEN OTHERS THEN
2817: p_count => x_msg_count,
2818: p_data => x_msg_data );
2819:
2820: WHEN OTHERS THEN
2821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2822: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2823: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2824: FND_MSG_PUB.ADD;
2825: FND_MSG_PUB.Count_And_Get(
2822: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2823: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2824: FND_MSG_PUB.ADD;
2825: FND_MSG_PUB.Count_And_Get(
2826: p_encoded => FND_API.G_FALSE,
2827: p_count => x_msg_count,
2828: p_data => x_msg_data );
2829:
2830: END get_party_site_rec;
2860: |
2861: +===========================================================================*/
2862:
2863: PROCEDURE get_party_site_use_rec (
2864: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2865: p_party_site_use_id IN NUMBER,
2866: x_party_site_use_rec OUT NOCOPY PARTY_SITE_USE_REC_TYPE,
2867: x_return_status OUT NOCOPY VARCHAR2,
2868: x_msg_count OUT NOCOPY NUMBER,
2873:
2874: BEGIN
2875:
2876: --Initialize message list if p_init_msg_list is set to TRUE.
2877: IF FND_API.to_Boolean(p_init_msg_list) THEN
2878: FND_MSG_PUB.initialize;
2879: END IF;
2880:
2881: --Initialize API return status to success.
2878: FND_MSG_PUB.initialize;
2879: END IF;
2880:
2881: --Initialize API return status to success.
2882: x_return_status := FND_API.G_RET_STS_SUCCESS;
2883:
2884: --Check whether primary key has been passed in.
2885: IF p_party_site_use_id IS NULL OR
2886: p_party_site_use_id = FND_API.G_MISS_NUM THEN
2882: x_return_status := FND_API.G_RET_STS_SUCCESS;
2883:
2884: --Check whether primary key has been passed in.
2885: IF p_party_site_use_id IS NULL OR
2886: p_party_site_use_id = FND_API.G_MISS_NUM THEN
2887: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2888: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'p_party_site_use_id' );
2889: FND_MSG_PUB.ADD;
2890: RAISE FND_API.G_EXC_ERROR;
2886: p_party_site_use_id = FND_API.G_MISS_NUM THEN
2887: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2888: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'p_party_site_use_id' );
2889: FND_MSG_PUB.ADD;
2890: RAISE FND_API.G_EXC_ERROR;
2891: END IF;
2892:
2893: x_party_site_use_rec.party_site_use_id := p_party_site_use_id;
2894:
2904: );
2905:
2906: --Standard call to get message count and if count is 1, get message info.
2907: FND_MSG_PUB.Count_And_Get(
2908: p_encoded => FND_API.G_FALSE,
2909: p_count => x_msg_count,
2910: p_data => x_msg_data );
2911:
2912: EXCEPTION
2909: p_count => x_msg_count,
2910: p_data => x_msg_data );
2911:
2912: EXCEPTION
2913: WHEN FND_API.G_EXC_ERROR THEN
2914: x_return_status := FND_API.G_RET_STS_ERROR;
2915:
2916: FND_MSG_PUB.Count_And_Get(
2917: p_encoded => FND_API.G_FALSE,
2910: p_data => x_msg_data );
2911:
2912: EXCEPTION
2913: WHEN FND_API.G_EXC_ERROR THEN
2914: x_return_status := FND_API.G_RET_STS_ERROR;
2915:
2916: FND_MSG_PUB.Count_And_Get(
2917: p_encoded => FND_API.G_FALSE,
2918: p_count => x_msg_count,
2913: WHEN FND_API.G_EXC_ERROR THEN
2914: x_return_status := FND_API.G_RET_STS_ERROR;
2915:
2916: FND_MSG_PUB.Count_And_Get(
2917: p_encoded => FND_API.G_FALSE,
2918: p_count => x_msg_count,
2919: p_data => x_msg_data );
2920:
2921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2917: p_encoded => FND_API.G_FALSE,
2918: p_count => x_msg_count,
2919: p_data => x_msg_data );
2920:
2921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2923:
2924: FND_MSG_PUB.Count_And_Get(
2925: p_encoded => FND_API.G_FALSE,
2918: p_count => x_msg_count,
2919: p_data => x_msg_data );
2920:
2921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2923:
2924: FND_MSG_PUB.Count_And_Get(
2925: p_encoded => FND_API.G_FALSE,
2926: p_count => x_msg_count,
2921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2923:
2924: FND_MSG_PUB.Count_And_Get(
2925: p_encoded => FND_API.G_FALSE,
2926: p_count => x_msg_count,
2927: p_data => x_msg_data );
2928:
2929: WHEN OTHERS THEN
2926: p_count => x_msg_count,
2927: p_data => x_msg_data );
2928:
2929: WHEN OTHERS THEN
2930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2931: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2932: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2933: FND_MSG_PUB.ADD;
2934: FND_MSG_PUB.Count_And_Get(
2931: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2932: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2933: FND_MSG_PUB.ADD;
2934: FND_MSG_PUB.Count_And_Get(
2935: p_encoded => FND_API.G_FALSE,
2936: p_count => x_msg_count,
2937: p_data => x_msg_data );
2938:
2939: END get_party_site_use_rec;
3004: program_update_date = hz_utility_v2pub.program_update_date
3005: WHERE PARTY_SITE_ID = p_party_site_id;
3006:
3007: EXCEPTION WHEN NO_DATA_FOUND THEN
3008: x_return_status := FND_API.G_RET_STS_ERROR;
3009: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
3010: FND_MESSAGE.SET_TOKEN('RECORD', 'Account sites');
3011: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_id), 'null'));
3012: FND_MSG_PUB.ADD;
3009: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
3010: FND_MESSAGE.SET_TOKEN('RECORD', 'Account sites');
3011: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_id), 'null'));
3012: FND_MSG_PUB.ADD;
3013: RAISE FND_API.G_EXC_ERROR;
3014: END;
3015:
3016: -- Debug info.
3017: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3085: exit when c_active_use%notfound;
3086: l_party_site_use_rec.party_site_use_id := l_party_site_use_id;
3087: l_party_site_use_rec.status := 'I';
3088: HZ_PARTY_SITE_V2PUB.update_party_site_use
3089: (p_init_msg_list => FND_API.G_TRUE,
3090: p_party_site_use_rec => l_party_site_use_rec,
3091: p_object_version_number => l_object_version_number,
3092: x_return_status => x_return_status,
3093: x_msg_count => l_msg_count,
3092: x_return_status => x_return_status,
3093: x_msg_count => l_msg_count,
3094: x_msg_data => l_msg_data);
3095:
3096: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3097: RAISE FND_API.G_EXC_ERROR;
3098: END IF;
3099: end loop;
3100: close c_active_use;
3093: x_msg_count => l_msg_count,
3094: x_msg_data => l_msg_data);
3095:
3096: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3097: RAISE FND_API.G_EXC_ERROR;
3098: END IF;
3099: end loop;
3100: close c_active_use;
3101:
3111: program_update_date = hz_utility_v2pub.program_update_date
3112: WHERE PARTY_SITE_ID = p_party_site_id;*/
3113:
3114: EXCEPTION WHEN NO_DATA_FOUND THEN
3115: x_return_status := FND_API.G_RET_STS_ERROR;
3116: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
3117: FND_MESSAGE.SET_TOKEN('RECORD', 'party site use');
3118: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_id), 'null'));
3119: FND_MSG_PUB.ADD;
3116: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
3117: FND_MESSAGE.SET_TOKEN('RECORD', 'party site use');
3118: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_id), 'null'));
3119: FND_MSG_PUB.ADD;
3120: RAISE FND_API.G_EXC_ERROR;
3121: END;
3122:
3123: -- Debug info.
3124: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3329: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
3330: FND_MESSAGE.SET_TOKEN('RECORD', 'Party site use');
3331: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_party_site_id), 'null'));
3332: FND_MSG_PUB.ADD;
3333: RAISE FND_API.G_EXC_ERROR;
3334: END;
3335:
3336: -- Debug info.
3337: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3396: --- Call update_acct_sites_status procedure
3397: --
3398: update_acct_sites_status(p_party_site_id,p_new_status,x_return_status);
3399:
3400: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3401: RAISE FND_API.G_EXC_ERROR;
3402: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3404: END IF;
3397: --
3398: update_acct_sites_status(p_party_site_id,p_new_status,x_return_status);
3399:
3400: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3401: RAISE FND_API.G_EXC_ERROR;
3402: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3404: END IF;
3405: --
3398: update_acct_sites_status(p_party_site_id,p_new_status,x_return_status);
3399:
3400: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3401: RAISE FND_API.G_EXC_ERROR;
3402: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3404: END IF;
3405: --
3406: --- If Inactivating Party Site Uses
3399:
3400: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3401: RAISE FND_API.G_EXC_ERROR;
3402: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3404: END IF;
3405: --
3406: --- If Inactivating Party Site Uses
3407: --
3404: END IF;
3405: --
3406: --- If Inactivating Party Site Uses
3407: --
3408: IF x_return_status = FND_API.G_RET_STS_SUCCESS and p_new_status = 'I' THEN
3409: inactivate_party_site_uses(p_party_site_id,p_new_status,x_return_status);
3410: --
3411: --- Inactivate account site uses
3412: --
3409: inactivate_party_site_uses(p_party_site_id,p_new_status,x_return_status);
3410: --
3411: --- Inactivate account site uses
3412: --
3413: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3414: inactivate_account_site_uses(p_party_site_id,p_new_status,x_return_status);
3415: END IF;
3416: END IF;
3417: -- Debug info.
3420: p_prefix=>l_debug_prefix,
3421: p_msg_level=>fnd_log.level_procedure);
3422: END IF;
3423: EXCEPTION
3424: WHEN FND_API.G_EXC_ERROR THEN
3425: x_return_status := FND_API.G_RET_STS_ERROR;
3426:
3427: -- FND_MSG_PUB.Count_And_Get(
3428: -- p_encoded => FND_API.G_FALSE,
3421: p_msg_level=>fnd_log.level_procedure);
3422: END IF;
3423: EXCEPTION
3424: WHEN FND_API.G_EXC_ERROR THEN
3425: x_return_status := FND_API.G_RET_STS_ERROR;
3426:
3427: -- FND_MSG_PUB.Count_And_Get(
3428: -- p_encoded => FND_API.G_FALSE,
3429: -- p_count => x_msg_count,
3424: WHEN FND_API.G_EXC_ERROR THEN
3425: x_return_status := FND_API.G_RET_STS_ERROR;
3426:
3427: -- FND_MSG_PUB.Count_And_Get(
3428: -- p_encoded => FND_API.G_FALSE,
3429: -- p_count => x_msg_count,
3430: -- p_data => x_msg_data );
3431:
3432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3428: -- p_encoded => FND_API.G_FALSE,
3429: -- p_count => x_msg_count,
3430: -- p_data => x_msg_data );
3431:
3432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3433: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3434:
3435: -- FND_MSG_PUB.Count_And_Get(
3436: -- p_encoded => FND_API.G_FALSE,
3429: -- p_count => x_msg_count,
3430: -- p_data => x_msg_data );
3431:
3432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3433: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3434:
3435: -- FND_MSG_PUB.Count_And_Get(
3436: -- p_encoded => FND_API.G_FALSE,
3437: -- p_count => x_msg_count,
3432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3433: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3434:
3435: -- FND_MSG_PUB.Count_And_Get(
3436: -- p_encoded => FND_API.G_FALSE,
3437: -- p_count => x_msg_count,
3438: -- p_data => x_msg_data );
3439:
3440: WHEN OTHERS THEN
3437: -- p_count => x_msg_count,
3438: -- p_data => x_msg_data );
3439:
3440: WHEN OTHERS THEN
3441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3442: -- FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
3443: -- FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3444: -- FND_MSG_PUB.ADD;
3445: -- FND_MSG_PUB.Count_And_Get(
3442: -- FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
3443: -- FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3444: -- FND_MSG_PUB.ADD;
3445: -- FND_MSG_PUB.Count_And_Get(
3446: -- p_encoded => FND_API.G_FALSE,
3447: -- p_count => x_msg_count,
3448: -- p_data => x_msg_data );
3449:
3450: END cascade_site_status_changes;
3474:
3475: -- check language
3476: IF (p_create_update_flag = 'C' AND
3477: p_party_site_rec.language IS NOT NULL AND
3478: p_party_site_rec.language <> FND_API.G_MISS_CHAR) OR
3479: (p_create_update_flag = 'U' AND
3480: p_party_site_rec.language IS NOT NULL AND
3481: p_party_site_rec.language <> p_old_party_site_rec.language)
3482: THEN
3482: THEN
3483: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
3484: FND_MESSAGE.SET_TOKEN('COLUMN', 'language');
3485: FND_MSG_PUB.ADD;
3486: x_return_status := FND_API.G_RET_STS_ERROR;
3487: END IF;
3488:
3489: END check_obsolete_columns;
3490: