105: where contact_level_table='HZ_CONTACT_POINTS' and status='A')
106: order by 2,1 DESC;
107: BEGIN
108: -- Standard call to check for call compatibility.
109: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
110: p_api_version_number,
111: l_api_name,
112: G_PKG_NAME)
113: THEN
110: p_api_version_number,
111: l_api_name,
112: G_PKG_NAME)
113: THEN
114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
115: END IF;
116: x_return_status := FND_API.G_RET_STS_SUCCESS;
117: l_rec_tbl.delete;
118: l_rec_tbl1.delete;
112: G_PKG_NAME)
113: THEN
114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
115: END IF;
116: x_return_status := FND_API.G_RET_STS_SUCCESS;
117: l_rec_tbl.delete;
118: l_rec_tbl1.delete;
119: l_rec_tbl2.delete;
120: for v1 in c1 LOOP
160: ( p_count => x_msg_count,
161: p_data => x_msg_data
162: );
163: EXCEPTION
164: WHEN FND_API.G_EXC_ERROR THEN
165: x_return_status := FND_API.G_RET_STS_ERROR ;
166: FND_MSG_PUB.Count_And_Get
167: ( p_count => x_msg_count,
168: p_data => x_msg_data
161: p_data => x_msg_data
162: );
163: EXCEPTION
164: WHEN FND_API.G_EXC_ERROR THEN
165: x_return_status := FND_API.G_RET_STS_ERROR ;
166: FND_MSG_PUB.Count_And_Get
167: ( p_count => x_msg_count,
168: p_data => x_msg_data
169: );
166: FND_MSG_PUB.Count_And_Get
167: ( p_count => x_msg_count,
168: p_data => x_msg_data
169: );
170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
172: FND_MSG_PUB.Count_And_Get
173: ( p_count => x_msg_count,
174: p_data => x_msg_data
167: ( p_count => x_msg_count,
168: p_data => x_msg_data
169: );
170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
172: FND_MSG_PUB.Count_And_Get
173: ( p_count => x_msg_count,
174: p_data => x_msg_data
175: );
173: ( p_count => x_msg_count,
174: p_data => x_msg_data
175: );
176: WHEN OTHERS THEN
177: x_return_status := FND_API.G_RET_STS_ERROR;
178: IF FND_MSG_PUB.Check_Msg_Level
179: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
180: THEN
181: FND_MSG_PUB.Add_Exc_Msg