5: (p_location_table_name IN VARCHAR2,
6: p_location_id IN VARCHAR2,
7: p_zone_type IN VARCHAR2,
8: p_date IN DATE,
9: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
10: x_zone_tbl OUT NOCOPY zone_tbl_type,
11: x_return_status OUT NOCOPY VARCHAR2,
12: x_msg_count OUT NOCOPY NUMBER,
13: x_msg_data OUT NOCOPY VARCHAR2) IS
53:
54: l_debug_prefix VARCHAR2(30) := ' ';
55:
56: BEGIN
57: x_return_status := FND_API.G_RET_STS_SUCCESS;
58: i := 1;
59:
60:
61: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
82: AND geography_use <> 'MASTER_REF'
83: AND rownum = 1;
84:
85: IF l_count = 0 THEN
86: x_return_status := FND_API.G_RET_STS_ERROR;
87: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_ZONE_TYPE_INVALID');
88: FND_MSG_PUB.ADD;
89: RAISE FND_API.G_EXC_ERROR;
90: END IF;
85: IF l_count = 0 THEN
86: x_return_status := FND_API.G_RET_STS_ERROR;
87: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_ZONE_TYPE_INVALID');
88: FND_MSG_PUB.ADD;
89: RAISE FND_API.G_EXC_ERROR;
90: END IF;
91:
92: -- Validate that the zone type has associated reference
93: -- geography types
107: p_msg_level=>fnd_log.level_statement);
108: END IF;
109:
110: IF l_count = 0 THEN
111: x_return_status := FND_API.G_RET_STS_ERROR;
112: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_ASSOC_GEO_TYPES');
113: FND_MESSAGE.SET_TOKEN('GEO_TYPE', p_zone_type);
114: FND_MSG_PUB.ADD;
115: RAISE FND_API.G_EXC_ERROR;
111: x_return_status := FND_API.G_RET_STS_ERROR;
112: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_ASSOC_GEO_TYPES');
113: FND_MESSAGE.SET_TOKEN('GEO_TYPE', p_zone_type);
114: FND_MSG_PUB.ADD;
115: RAISE FND_API.G_EXC_ERROR;
116: END IF;
117:
118: -- To get country_code for the location
119: BEGIN
156:
157: -- Below code is commenmted for bug # 5011582
158: -- Will display the message after the end loop of included_geo_types
159: -- IF l_count = 0 THEN
160: -- x_return_status := FND_API.G_RET_STS_ERROR;
161: -- FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_GEO_NAME_REF');
162: -- FND_MSG_PUB.ADD;
163: -- RAISE FND_API.G_EXC_ERROR;
164: -- END IF;
159: -- IF l_count = 0 THEN
160: -- x_return_status := FND_API.G_RET_STS_ERROR;
161: -- FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_GEO_NAME_REF');
162: -- FND_MSG_PUB.ADD;
163: -- RAISE FND_API.G_EXC_ERROR;
164: -- END IF;
165:
166: l_country_found := 'N';
167:
353:
354: -- If there is COUNTRY in included_geo_types and no GNR
355: IF (l_country_found = 'N' AND
356: l_gnr_count = 0) THEN
357: x_return_status := FND_API.G_RET_STS_ERROR;
358: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_GEO_NAME_REF');
359: FND_MSG_PUB.ADD;
360: RAISE FND_API.G_EXC_ERROR;
361: END IF;
356: l_gnr_count = 0) THEN
357: x_return_status := FND_API.G_RET_STS_ERROR;
358: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_GEO_NAME_REF');
359: FND_MSG_PUB.ADD;
360: RAISE FND_API.G_EXC_ERROR;
361: END IF;
362:
363: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
364: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>' Array l_zone_tbl Count is '||l_zone_tbl.COUNT,
472: p_msg_level=>fnd_log.level_procedure);
473: END IF;
474:
475: EXCEPTION
476: WHEN FND_API.G_EXC_ERROR THEN
477: x_return_status := FND_API.G_RET_STS_ERROR;
478: FND_MSG_PUB.Count_And_Get(
479: p_encoded => FND_API.G_FALSE,
480: p_count => x_msg_count,
473: END IF;
474:
475: EXCEPTION
476: WHEN FND_API.G_EXC_ERROR THEN
477: x_return_status := FND_API.G_RET_STS_ERROR;
478: FND_MSG_PUB.Count_And_Get(
479: p_encoded => FND_API.G_FALSE,
480: p_count => x_msg_count,
481: p_data => x_msg_data);
475: EXCEPTION
476: WHEN FND_API.G_EXC_ERROR THEN
477: x_return_status := FND_API.G_RET_STS_ERROR;
478: FND_MSG_PUB.Count_And_Get(
479: p_encoded => FND_API.G_FALSE,
480: p_count => x_msg_count,
481: p_data => x_msg_data);
482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
478: FND_MSG_PUB.Count_And_Get(
479: p_encoded => FND_API.G_FALSE,
480: p_count => x_msg_count,
481: p_data => x_msg_data);
482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
484: FND_MSG_PUB.Count_And_Get(
485: p_encoded => FND_API.G_FALSE,
486: p_count => x_msg_count,
479: p_encoded => FND_API.G_FALSE,
480: p_count => x_msg_count,
481: p_data => x_msg_data);
482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
484: FND_MSG_PUB.Count_And_Get(
485: p_encoded => FND_API.G_FALSE,
486: p_count => x_msg_count,
487: p_data => x_msg_data);
481: p_data => x_msg_data);
482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
484: FND_MSG_PUB.Count_And_Get(
485: p_encoded => FND_API.G_FALSE,
486: p_count => x_msg_count,
487: p_data => x_msg_data);
488:
489: WHEN OTHERS THEN
486: p_count => x_msg_count,
487: p_data => x_msg_data);
488:
489: WHEN OTHERS THEN
490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
491: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
492: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
493: FND_MSG_PUB.ADD;
494: FND_MSG_PUB.Count_And_Get(
491: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
492: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
493: FND_MSG_PUB.ADD;
494: FND_MSG_PUB.Count_And_Get(
495: p_encoded => FND_API.G_FALSE,
496: p_count => x_msg_count,
497: p_data => x_msg_data);
498:
499: END get_zone;