64: END IF;
65:
66: -- Initialize message list if p_init_msg_list is set to TRUE
67: IF FND_API.To_Boolean(p_init_msg_list) THEN
68: FND_MSG_PUB.Initialize;
69: END IF;
70:
71: -- Initialize API return status to success
72: x_return_status := FND_API.G_RET_STS_SUCCESS;
104: COMMIT WORK;
105: END IF;
106:
107: -- Standard call to get message count and if count is 1, get message info
108: FND_MSG_PUB.Count_And_Get
109: ( p_count => x_msg_count,
110: p_data => x_msg_data
111: );
112:
113: EXCEPTION
114: WHEN FND_API.G_EXC_ERROR THEN
115: ROLLBACK TO Create_Preferred_Language_PUB;
116: x_return_status := FND_API.G_RET_STS_ERROR;
117: FND_MSG_PUB.Count_And_Get
118: ( p_count => x_msg_count,
119: p_data => x_msg_data
120: );
121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
120: );
121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
122: ROLLBACK TO Create_Preferred_Language_PUB;
123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124: FND_MSG_PUB.Count_And_Get
125: ( p_count => x_msg_count,
126: p_data => x_msg_data
127: );
128: WHEN OTHERS THEN
127: );
128: WHEN OTHERS THEN
129: ROLLBACK TO Create_Preferred_Language_PUB;
130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
131: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
132: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
133: END IF;
134: FND_MSG_PUB.Count_And_Get
135: ( p_count => x_msg_count,
128: WHEN OTHERS THEN
129: ROLLBACK TO Create_Preferred_Language_PUB;
130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
131: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
132: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
133: END IF;
134: FND_MSG_PUB.Count_And_Get
135: ( p_count => x_msg_count,
136: p_data => x_msg_data
130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
131: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
132: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
133: END IF;
134: FND_MSG_PUB.Count_And_Get
135: ( p_count => x_msg_count,
136: p_data => x_msg_data
137: );
138:
188: END IF;
189:
190: -- Initialize message list if p_init_msg_list is set to TRUE
191: IF FND_API.To_Boolean(p_init_msg_list) THEN
192: FND_MSG_PUB.Initialize;
193: END IF;
194:
195: -- Initialize API return status to success
196: x_return_status := FND_API.G_RET_STS_SUCCESS;
228: COMMIT WORK;
229: END IF;
230:
231: -- Standard call to get message count and if count is 1, get message info
232: FND_MSG_PUB.Count_And_Get
233: ( p_count => x_msg_count,
234: p_data => x_msg_data
235: );
236:
237: EXCEPTION
238: WHEN FND_API.G_EXC_ERROR THEN
239: ROLLBACK TO Update_Preferred_Language_PUB;
240: x_return_status := FND_API.G_RET_STS_ERROR;
241: FND_MSG_PUB.Count_And_Get
242: ( p_count => x_msg_count,
243: p_data => x_msg_data
244: );
245: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
244: );
245: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
246: ROLLBACK TO Update_Preferred_Language_PUB;
247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
248: FND_MSG_PUB.Count_And_Get
249: ( p_count => x_msg_count,
250: p_data => x_msg_data
251: );
252: WHEN OTHERS THEN
251: );
252: WHEN OTHERS THEN
253: ROLLBACK TO Update_Preferred_Language_PUB;
254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
256: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
257: END IF;
258: FND_MSG_PUB.Count_And_Get
259: ( p_count => x_msg_count,
252: WHEN OTHERS THEN
253: ROLLBACK TO Update_Preferred_Language_PUB;
254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
256: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
257: END IF;
258: FND_MSG_PUB.Count_And_Get
259: ( p_count => x_msg_count,
260: p_data => x_msg_data
254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
256: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
257: END IF;
258: FND_MSG_PUB.Count_And_Get
259: ( p_count => x_msg_count,
260: p_data => x_msg_data
261: );
262: