104: x_msg_data := NULL;
105:
106:
107: -- Standard call to check for call compatibility.
108: IF NOT FND_API.Compatible_API_Call ( l_api_version,
109: p_api_version,
110: l_api_name,
111: G_PKG_NAME ) THEN
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
108: IF NOT FND_API.Compatible_API_Call ( l_api_version,
109: p_api_version,
110: l_api_name,
111: G_PKG_NAME ) THEN
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: END IF;
114:
115: -- Initialize message list if p_init_msg_list is set to TRUE.
116: IF FND_API.to_Boolean( p_init_msg_list ) THEN
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: END IF;
114:
115: -- Initialize message list if p_init_msg_list is set to TRUE.
116: IF FND_API.to_Boolean( p_init_msg_list ) THEN
117: FND_MSG_PUB.initialize;
118: END IF;
119:
120: -- Initialize API return status to success
117: FND_MSG_PUB.initialize;
118: END IF;
119:
120: -- Initialize API return status to success
121: x_return_status := FND_API.G_RET_STS_SUCCESS;
122:
123: /*-----------------------------------------------+
124: | ======== START OF API BODY ============ |
125: +-----------------------------------------------*/
149: IF case1_legal_information_cur%NOTFOUND THEN
150: --specific xle message under creation fnd message used as workaround
151: FND_MESSAGE.SET_NAME('FND','FND_GRANTS_RECORD_NOT_FOUND');
152: FND_MSG_PUB.Add;
153: x_return_status := FND_API.G_RET_STS_ERROR;
154: END IF;
155:
156:
157: CLOSE case1_legal_information_cur;
179: IF case2_legal_information_cur%NOTFOUND THEN
180: --specific xle message under creation fnd message used as workaround
181: FND_MESSAGE.SET_NAME('FND','FND_GRANTS_RECORD_NOT_FOUND');
182: FND_MSG_PUB.Add;
183: x_return_status := FND_API.G_RET_STS_ERROR;
184: END IF;
185:
186:
187: CLOSE case2_legal_information_cur;
199: p_data => x_msg_data );
200:
201: EXCEPTION
202:
203: WHEN FND_API.G_EXC_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_ERROR ;
205: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
206: p_data => x_msg_data);
207:
200:
201: EXCEPTION
202:
203: WHEN FND_API.G_EXC_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_ERROR ;
205: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
206: p_data => x_msg_data);
207:
208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_ERROR ;
205: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
206: p_data => x_msg_data);
207:
208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
210: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
211: p_data => x_msg_data);
212: WHEN OTHERS THEN
205: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
206: p_data => x_msg_data);
207:
208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
210: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
211: p_data => x_msg_data);
212: WHEN OTHERS THEN
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
210: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
211: p_data => x_msg_data);
212: WHEN OTHERS THEN
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
214: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
215: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,
216: l_api_name);
217: END IF;
246: BEGIN
247:
248:
249: IF p_init_msg_list IS NULL THEN
250: l_init_msg_list := FND_API.G_FALSE;
251: ELSE
252: l_init_msg_list := p_init_msg_list;
253: END IF;
254:
252: l_init_msg_list := p_init_msg_list;
253: END IF;
254:
255: IF p_commit IS NULL THEN
256: l_commit := FND_API.G_FALSE;
257: ELSE
258: l_commit := p_commit;
259: END IF;
260:
258: l_commit := p_commit;
259: END IF;
260:
261: -- Standard call to check for call compatibility.
262: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
263: p_api_version ,
264: l_api_name ,
265: G_PKG_NAME )
266: THEN
263: p_api_version ,
264: l_api_name ,
265: G_PKG_NAME )
266: THEN
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268: END IF;
269: -- Initialize message list if p_init_msg_list is set to TRUE.
270:
271: IF FND_API.to_Boolean( l_init_msg_list ) THEN
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268: END IF;
269: -- Initialize message list if p_init_msg_list is set to TRUE.
270:
271: IF FND_API.to_Boolean( l_init_msg_list ) THEN
272: FND_MSG_PUB.initialize;
273: END IF;
274:
275: -- Initialize API return status to success
272: FND_MSG_PUB.initialize;
273: END IF;
274:
275: -- Initialize API return status to success
276: x_return_status := FND_API.G_RET_STS_SUCCESS;
277:
278: -- API body
279:
280:
312:
313:
314: EXCEPTION
315: WHEN OTHERS THEN
316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
317: x_msg_data := SQLERRM;
318: END;
319:
320: