77: END IF;
78:
79: -- Initialize message list if p_init_msg_list is set to TRUE.
80: IF FND_API.to_Boolean( p_init_msg_list ) THEN
81: FND_MSG_PUB.initialize;
82: END IF;
83:
84: -- Initialize API return status to success
85: x_return_status := FND_API.G_RET_STS_SUCCESS;
157: END IF;
158:
159: -- Standard call to get message count and if count is 1,
160: --get message info.
161: FND_MSG_PUB.Count_And_Get
162: ( p_count => x_msg_count ,
163: p_data => x_msg_data
164: );
165:
165:
166: EXCEPTION
167: WHEN FND_API.G_EXC_ERROR THEN
168: x_return_status := FND_API.G_RET_STS_ERROR ;
169: FND_MSG_PUB.Count_And_Get
170: ( p_count => x_msg_count ,
171: p_data => x_msg_data
172: );
173:
173:
174: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
175: ROLLBACK TO CREATE_RELATIONSHIP_PUB;
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
177: FND_MSG_PUB.Count_And_Get
178: ( p_count => x_msg_count ,
179: p_data => x_msg_data
180: );
181:
183: ROLLBACK TO CREATE_RELATIONSHIP_PUB;
184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
185: x_relationship_id := null;
186:
187: IF FND_MSG_PUB.Check_Msg_Level
188: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
189: THEN
190: FND_MSG_PUB.Add_Exc_Msg
191: ( G_PKG_NAME ,
184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
185: x_relationship_id := null;
186:
187: IF FND_MSG_PUB.Check_Msg_Level
188: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
189: THEN
190: FND_MSG_PUB.Add_Exc_Msg
191: ( G_PKG_NAME ,
192: l_api_name
186:
187: IF FND_MSG_PUB.Check_Msg_Level
188: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
189: THEN
190: FND_MSG_PUB.Add_Exc_Msg
191: ( G_PKG_NAME ,
192: l_api_name
193: );
194: END IF;
192: l_api_name
193: );
194: END IF;
195:
196: FND_MSG_PUB.Count_And_Get
197: (p_count => x_msg_count ,
198: p_data => x_msg_data
199: );
200:
243: END IF;
244:
245: -- Initialize message list if p_init_msg_list is set to TRUE.
246: IF FND_API.to_Boolean( p_init_msg_list ) THEN
247: FND_MSG_PUB.initialize;
248: END IF;
249:
250: -- Initialize API return status to success
251: x_return_status := FND_API.G_RET_STS_SUCCESS;
328: -- End of API Body
329:
330: -- Standard call to get message count and if count is 1,
331: --get message info.
332: FND_MSG_PUB.Count_And_Get
333: ( p_count => x_msg_count ,
334: p_data => x_msg_data
335: );
336:
344: fnd_message.set_token('EVENT_KEY', p_parent_event_key);
345:
346: l_mesg_text := fnd_message.get();
347:
348: FND_MSG_PUB.Add_Exc_Msg
349: ( G_PKG_NAME ,
350: l_api_name ,
351: l_mesg_text
352: );
350: l_api_name ,
351: l_mesg_text
352: );
353:
354: FND_MSG_PUB.Count_And_Get
355: ( p_count => x_msg_count ,
356: p_data => x_msg_data
357: );
358:
361: x_return_status := FND_API.G_RET_STS_ERROR ;
362: fnd_message.set_name('EDR','EDR_VAL_INVALID_EVENT');
363: l_mesg_text := fnd_message.get();
364:
365: FND_MSG_PUB.Add_Exc_Msg
366: ( G_PKG_NAME ,
367: l_api_name ,
368: l_mesg_text
369: );
367: l_api_name ,
368: l_mesg_text
369: );
370:
371: FND_MSG_PUB.Count_And_Get
372: ( p_count => x_msg_count ,
373: p_data => x_msg_data
374: );
375: WHEN PARENT_EVENT_ERROR THEN
379: fnd_message.set_token('EVENT_NAME', l_event_name);
380: fnd_message.set_token('EVENT_KEY', l_event_key);
381: l_mesg_text := fnd_message.get();
382:
383: FND_MSG_PUB.Add_Exc_Msg
384: ( G_PKG_NAME ,
385: l_api_name ,
386: l_mesg_text
387: );
385: l_api_name ,
386: l_mesg_text
387: );
388:
389: FND_MSG_PUB.Count_And_Get
390: ( p_count => x_msg_count ,
391: p_data => x_msg_data
392: );
393:
397: fnd_message.set_name('EDR','EDR_VAL_INVALID_CHILD_ID');
398: fnd_message.set_token('ERECORD_ID', p_child_erecord_id);
399: l_mesg_text := fnd_message.get();
400:
401: FND_MSG_PUB.Add_Exc_Msg
402: ( G_PKG_NAME ,
403: l_api_name ,
404: l_mesg_text
405: );
403: l_api_name ,
404: l_mesg_text
405: );
406:
407: FND_MSG_PUB.Count_And_Get
408: ( p_count => x_msg_count ,
409: p_data => x_msg_data
410: );
411:
417: fnd_message.set_token('EVENT_NAME', l_event_name);
418: fnd_message.set_token('EVENT_KEY', l_event_key);
419: l_mesg_text := fnd_message.get();
420:
421: FND_MSG_PUB.Add_Exc_Msg
422: ( G_PKG_NAME ,
423: l_api_name ,
424: l_mesg_text
425: );
423: l_api_name ,
424: l_mesg_text
425: );
426:
427: FND_MSG_PUB.Count_And_Get
428: ( p_count => x_msg_count ,
429: p_data => x_msg_data
430: );
431:
431:
432: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
433: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
434:
435: FND_MSG_PUB.Count_And_Get
436: ( p_count => x_msg_count ,
437: p_data => x_msg_data
438: );
439:
439:
440: WHEN OTHERS THEN
441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
442:
443: IF FND_MSG_PUB.Check_Msg_Level
444: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
445: THEN
446: FND_MSG_PUB.Add_Exc_Msg
447: ( G_PKG_NAME ,
440: WHEN OTHERS THEN
441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
442:
443: IF FND_MSG_PUB.Check_Msg_Level
444: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
445: THEN
446: FND_MSG_PUB.Add_Exc_Msg
447: ( G_PKG_NAME ,
448: l_api_name
442:
443: IF FND_MSG_PUB.Check_Msg_Level
444: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
445: THEN
446: FND_MSG_PUB.Add_Exc_Msg
447: ( G_PKG_NAME ,
448: l_api_name
449: );
450: END IF;
448: l_api_name
449: );
450: END IF;
451:
452: FND_MSG_PUB.Count_And_Get
453: (p_count => x_msg_count ,
454: p_data => x_msg_data
455: );
456: