379:
380: EXCEPTION
381: WHEN OTHERS THEN
382: /*
383: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
384: fnd_message.set_token('TABLE', 'HZ_PARTIES');
385: fnd_msg_pub.add;
386: */
387: CLOSE c1;
380: EXCEPTION
381: WHEN OTHERS THEN
382: /*
383: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
384: fnd_message.set_token('TABLE', 'HZ_PARTIES');
385: fnd_msg_pub.add;
386: */
387: CLOSE c1;
388: -- RAISE fnd_api.g_exc_error;
1415: p_tkn2_val IN VARCHAR2
1416: ) IS
1417: BEGIN
1418:
1419: FND_MESSAGE.SET_NAME('AR', p_message);
1420: IF (p_tkn1_name IS NOT NULL) THEN
1421: fnd_message.set_token(p_tkn1_name, p_tkn1_val);
1422: END IF;
1423: IF (p_tkn2_name IS NOT NULL) THEN
1417: BEGIN
1418:
1419: FND_MESSAGE.SET_NAME('AR', p_message);
1420: IF (p_tkn1_name IS NOT NULL) THEN
1421: fnd_message.set_token(p_tkn1_name, p_tkn1_val);
1422: END IF;
1423: IF (p_tkn2_name IS NOT NULL) THEN
1424: fnd_message.set_token(p_tkn2_name, p_tkn2_val);
1425: END IF;
1420: IF (p_tkn1_name IS NOT NULL) THEN
1421: fnd_message.set_token(p_tkn1_name, p_tkn1_val);
1422: END IF;
1423: IF (p_tkn2_name IS NOT NULL) THEN
1424: fnd_message.set_token(p_tkn2_name, p_tkn2_val);
1425: END IF;
1426: FND_MSG_PUB.ADD;
1427: FND_MSG_PUB.Reset;
1428:
1827: p_module_prefix => l_module_prefix,
1828: p_module => l_module
1829: );
1830: END IF;
1831: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_INVALID_ADDRESS');
1832: FND_MESSAGE.SET_TOKEN('P_MISSING_ELEMENTS', l_missing_elements);
1833: FND_MSG_PUB.ADD;
1834: RETURN l_addr_val_status;
1835: -- If validation level is WARNING, check the minimum parameters passed.
1828: p_module => l_module
1829: );
1830: END IF;
1831: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_INVALID_ADDRESS');
1832: FND_MESSAGE.SET_TOKEN('P_MISSING_ELEMENTS', l_missing_elements);
1833: FND_MSG_PUB.ADD;
1834: RETURN l_addr_val_status;
1835: -- If validation level is WARNING, check the minimum parameters passed.
1836: -- If yes, set the addr_val_status to 'W' and return status to 'S'
1871: EXIT WHEN i = p_mdu_tbl.LAST;
1872: i := p_mdu_tbl.NEXT(i);
1873: END LOOP;
1874: -- IF l_missing_elements is NULL then
1875: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_WARN_ADDRESS');
1876: FND_MESSAGE.SET_TOKEN('P_ALL_ELEMENTS', l_invalid_elements);
1877: x_addr_warn_msg := FND_MESSAGE.get;
1878: x_status := fnd_api.g_ret_sts_success;
1879: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1872: i := p_mdu_tbl.NEXT(i);
1873: END LOOP;
1874: -- IF l_missing_elements is NULL then
1875: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_WARN_ADDRESS');
1876: FND_MESSAGE.SET_TOKEN('P_ALL_ELEMENTS', l_invalid_elements);
1877: x_addr_warn_msg := FND_MESSAGE.get;
1878: x_status := fnd_api.g_ret_sts_success;
1879: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1880: hz_utility_v2pub.debug
1873: END LOOP;
1874: -- IF l_missing_elements is NULL then
1875: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_WARN_ADDRESS');
1876: FND_MESSAGE.SET_TOKEN('P_ALL_ELEMENTS', l_invalid_elements);
1877: x_addr_warn_msg := FND_MESSAGE.get;
1878: x_status := fnd_api.g_ret_sts_success;
1879: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1880: hz_utility_v2pub.debug
1881: (p_message => 'These address elements are not validated : '||l_invalid_elements,
1885: p_module => l_module
1886: );
1887: END IF;
1888: -- ELSE
1889: -- FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NULL_ADDRESS');
1890: -- FND_MESSAGE.SET_TOKEN('P_MISSING_ELEMENTS', l_missing_elements);
1891: -- FND_MSG_PUB.ADD;
1892: -- x_status := l_addr_val_status;
1893: -- IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1886: );
1887: END IF;
1888: -- ELSE
1889: -- FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NULL_ADDRESS');
1890: -- FND_MESSAGE.SET_TOKEN('P_MISSING_ELEMENTS', l_missing_elements);
1891: -- FND_MSG_PUB.ADD;
1892: -- x_status := l_addr_val_status;
1893: -- IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1894: -- hz_utility_v2pub.debug
1935:
1936: IF l_missing_elements is NULL then
1937: x_status := fnd_api.g_ret_sts_success;
1938: ELSE
1939: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NULL_ADDRESS');
1940: FND_MESSAGE.SET_TOKEN('P_MISSING_ELEMENTS', l_missing_elements);
1941: FND_MSG_PUB.ADD;
1942: -- hk_debugl('Please enter required address elements: '|| l_missing_elements);
1943: -- hk_debugl('l_addr_val_status : '|| l_addr_val_status);
1936: IF l_missing_elements is NULL then
1937: x_status := fnd_api.g_ret_sts_success;
1938: ELSE
1939: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NULL_ADDRESS');
1940: FND_MESSAGE.SET_TOKEN('P_MISSING_ELEMENTS', l_missing_elements);
1941: FND_MSG_PUB.ADD;
1942: -- hk_debugl('Please enter required address elements: '|| l_missing_elements);
1943: -- hk_debugl('l_addr_val_status : '|| l_addr_val_status);
1944: x_status := l_addr_val_status;
2262: WHERE LOCATION_ID = p_location_id
2263: FOR UPDATE OF LOCATION_ID NOWAIT;
2264: EXCEPTION
2265: WHEN NO_DATA_FOUND THEN
2266: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
2267: FND_MESSAGE.SET_TOKEN('RECORD', 'hz_locations');
2268: FND_MESSAGE.SET_TOKEN('VALUE', to_char(p_location_id));
2269: FND_MSG_PUB.ADD;
2270: x_status := FND_API.G_RET_STS_ERROR;
2263: FOR UPDATE OF LOCATION_ID NOWAIT;
2264: EXCEPTION
2265: WHEN NO_DATA_FOUND THEN
2266: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
2267: FND_MESSAGE.SET_TOKEN('RECORD', 'hz_locations');
2268: FND_MESSAGE.SET_TOKEN('VALUE', to_char(p_location_id));
2269: FND_MSG_PUB.ADD;
2270: x_status := FND_API.G_RET_STS_ERROR;
2271: END; -- end of SELECT
2264: EXCEPTION
2265: WHEN NO_DATA_FOUND THEN
2266: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
2267: FND_MESSAGE.SET_TOKEN('RECORD', 'hz_locations');
2268: FND_MESSAGE.SET_TOKEN('VALUE', to_char(p_location_id));
2269: FND_MSG_PUB.ADD;
2270: x_status := FND_API.G_RET_STS_ERROR;
2271: END; -- end of SELECT
2272:
2291: FROM HZ_LOCATIONS
2292: WHERE LOCATION_ID = p_location_id;
2293: EXCEPTION
2294: WHEN NO_DATA_FOUND THEN
2295: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
2296: FND_MESSAGE.SET_TOKEN('RECORD', 'hz_locations');
2297: FND_MESSAGE.SET_TOKEN('VALUE', to_char(p_location_id));
2298: FND_MSG_PUB.ADD;
2299: x_status := FND_API.G_RET_STS_ERROR;
2292: WHERE LOCATION_ID = p_location_id;
2293: EXCEPTION
2294: WHEN NO_DATA_FOUND THEN
2295: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
2296: FND_MESSAGE.SET_TOKEN('RECORD', 'hz_locations');
2297: FND_MESSAGE.SET_TOKEN('VALUE', to_char(p_location_id));
2298: FND_MSG_PUB.ADD;
2299: x_status := FND_API.G_RET_STS_ERROR;
2300: END; -- end of SELECT ;
2293: EXCEPTION
2294: WHEN NO_DATA_FOUND THEN
2295: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
2296: FND_MESSAGE.SET_TOKEN('RECORD', 'hz_locations');
2297: FND_MESSAGE.SET_TOKEN('VALUE', to_char(p_location_id));
2298: FND_MSG_PUB.ADD;
2299: x_status := FND_API.G_RET_STS_ERROR;
2300: END; -- end of SELECT ;
2301: END IF;