90: -- API Savepoint
91: savepoint Purge_Personal_Metadata_Pvt;
92:
93: -- Call to check for call compatibility
94: if not FND_API.Compatible_Api_Call(
95: l_api_version
96: ,p_api_version
97: ,l_api_name
98: ,G_PKG_NAME
96: ,p_api_version
97: ,l_api_name
98: ,G_PKG_NAME
99: ) then
100: raise FND_API.G_EXC_UNEXPECTED_ERROR;
101: end if;
102:
103: -- Initialize API message list if necessary
104: if p_init_msg_list = 'Y' then
105: FND_MSG_PUB.Initialize;
106: end if;
107:
108: -- Initialize API return status to success
109: x_return_status := FND_API.G_RET_STS_SUCCESS;
110:
111: -- Default the user id if it is null
112: if (p_user_id is not null) then
113: l_user_id := p_user_id;
140: ,p_msg_count => l_msg_count
141: ,p_msg_data => l_msg_data
142: );
143:
144: if (l_return_status = FND_API.G_RET_STS_ERROR) then
145: raise FND_API.G_EXC_ERROR;
146: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
147: raise FND_API.G_EXC_UNEXPECTED_ERROR;
148: end if;
141: ,p_msg_data => l_msg_data
142: );
143:
144: if (l_return_status = FND_API.G_RET_STS_ERROR) then
145: raise FND_API.G_EXC_ERROR;
146: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
147: raise FND_API.G_EXC_UNEXPECTED_ERROR;
148: end if;
149:
142: );
143:
144: if (l_return_status = FND_API.G_RET_STS_ERROR) then
145: raise FND_API.G_EXC_ERROR;
146: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
147: raise FND_API.G_EXC_UNEXPECTED_ERROR;
148: end if;
149:
150: end loop;
143:
144: if (l_return_status = FND_API.G_RET_STS_ERROR) then
145: raise FND_API.G_EXC_ERROR;
146: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
147: raise FND_API.G_EXC_UNEXPECTED_ERROR;
148: end if;
149:
150: end loop;
151:
235: );
236:
237: EXCEPTION
238:
239: when FND_API.G_EXC_ERROR then
240: rollback to Purge_Personal_Metadata_Pvt;
241: x_return_status := FND_API.G_RET_STS_ERROR;
242: FND_MSG_PUB.Count_And_Get(
243: p_count => x_msg_count
237: EXCEPTION
238:
239: when FND_API.G_EXC_ERROR then
240: rollback to Purge_Personal_Metadata_Pvt;
241: x_return_status := FND_API.G_RET_STS_ERROR;
242: FND_MSG_PUB.Count_And_Get(
243: p_count => x_msg_count
244: ,p_data => x_msg_data
245: );
243: p_count => x_msg_count
244: ,p_data => x_msg_data
245: );
246:
247: when FND_API.G_EXC_UNEXPECTED_ERROR then
248: rollback to Purge_Personal_Metadata_Pvt;
249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
250: FND_MSG_PUB.Count_And_Get(
251: p_count => x_msg_count
245: );
246:
247: when FND_API.G_EXC_UNEXPECTED_ERROR then
248: rollback to Purge_Personal_Metadata_Pvt;
249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
250: FND_MSG_PUB.Count_And_Get(
251: p_count => x_msg_count
252: ,p_data => x_msg_data
253: );
253: );
254:
255: when others then
256: rollback to Purge_Personal_Metadata_Pvt;
257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
258: if (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) then
259: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
260: end if;
261: FND_MSG_PUB.Count_And_Get(