152: x_return_status := FND_API.G_RET_STS_ERROR;
153:
154: -- Get message count and data
155:
156: OE_MSG_PUB.Count_And_Get
157: ( p_count => x_msg_count
158: , p_data => x_msg_data
159: );
160:
163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
164:
165: -- Get message count and data
166:
167: OE_MSG_PUB.Count_And_Get
168: ( p_count => x_msg_count
169: , p_data => x_msg_data
170: );
171:
172: WHEN OTHERS THEN
173:
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
175:
176: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
177: THEN
178: OE_MSG_PUB.Add_Exc_Msg
179: ( G_PKG_NAME
180: , 'Process_Currency'
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
175:
176: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
177: THEN
178: OE_MSG_PUB.Add_Exc_Msg
179: ( G_PKG_NAME
180: , 'Process_Currency'
181: );
182: END IF;
182: END IF;
183:
184: -- Get message count and data
185:
186: OE_MSG_PUB.Count_And_Get
187: ( p_count => x_msg_count
188: , p_data => x_msg_data
189: );
190:
307: x_return_status := FND_API.G_RET_STS_ERROR;
308:
309: -- Get message count and data
310:
311: OE_MSG_PUB.Count_And_Get
312: ( p_count => x_msg_count
313: , p_data => x_msg_data
314: );
315:
318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
319:
320: -- Get message count and data
321:
322: OE_MSG_PUB.Count_And_Get
323: ( p_count => x_msg_count
324: , p_data => x_msg_data
325: );
326:
327: WHEN OTHERS THEN
328:
329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
330:
331: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
332: THEN
333: OE_MSG_PUB.Add_Exc_Msg
334: ( G_PKG_NAME
335: , 'Lock_Currency'
329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
330:
331: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
332: THEN
333: OE_MSG_PUB.Add_Exc_Msg
334: ( G_PKG_NAME
335: , 'Lock_Currency'
336: );
337: END IF;
337: END IF;
338:
339: -- Get message count and data
340:
341: OE_MSG_PUB.Count_And_Get
342: ( p_count => x_msg_count
343: , p_data => x_msg_data
344: );
345:
407: ELSIF p_currency_header_id <> FND_API.G_MISS_NUM THEN
408:
409: l_currency_header_id := p_currency_header_id;
410:
411: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_SUCCESS)
412: THEN
413:
414: FND_MESSAGE.SET_NAME('QP','FND_BOTH_VAL_AND_ID_EXIST');
415: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','currency_header');
412: THEN
413:
414: FND_MESSAGE.SET_NAME('QP','FND_BOTH_VAL_AND_ID_EXIST');
415: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','currency_header');
416: OE_MSG_PUB.Add;
417:
418: END IF;
419:
420: ELSE
425: ( p_currency_header => p_currency_header
426: );
427:
428: IF l_currency_header_id = FND_API.G_MISS_NUM THEN
429: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
430: THEN
431:
432: FND_MESSAGE.SET_NAME('QP','Invalid Business Object Value');
433: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','currency_header');
430: THEN
431:
432: FND_MESSAGE.SET_NAME('QP','Invalid Business Object Value');
433: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','currency_header');
434: OE_MSG_PUB.Add;
435:
436: END IF;
437: END IF;
438:
477: x_return_status := FND_API.G_RET_STS_SUCCESS;
478:
479: -- Get message count and data
480:
481: OE_MSG_PUB.Count_And_Get
482: ( p_count => x_msg_count
483: , p_data => x_msg_data
484: );
485:
491: x_return_status := FND_API.G_RET_STS_ERROR;
492:
493: -- Get message count and data
494:
495: OE_MSG_PUB.Count_And_Get
496: ( p_count => x_msg_count
497: , p_data => x_msg_data
498: );
499:
502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
503:
504: -- Get message count and data
505:
506: OE_MSG_PUB.Count_And_Get
507: ( p_count => x_msg_count
508: , p_data => x_msg_data
509: );
510:
511: WHEN OTHERS THEN
512:
513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
514:
515: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
516: THEN
517: OE_MSG_PUB.Add_Exc_Msg
518: ( G_PKG_NAME
519: , 'Get_Currency'
513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
514:
515: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
516: THEN
517: OE_MSG_PUB.Add_Exc_Msg
518: ( G_PKG_NAME
519: , 'Get_Currency'
520: );
521: END IF;
521: END IF;
522:
523: -- Get message count and data
524:
525: OE_MSG_PUB.Count_And_Get
526: ( p_count => x_msg_count
527: , p_data => x_msg_data
528: );
529:
554: EXCEPTION
555:
556: WHEN OTHERS THEN
557:
558: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
559: THEN
560: OE_MSG_PUB.Add_Exc_Msg
561: ( G_PKG_NAME
562: , 'Id_To_Value'
556: WHEN OTHERS THEN
557:
558: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
559: THEN
560: OE_MSG_PUB.Add_Exc_Msg
561: ( G_PKG_NAME
562: , 'Id_To_Value'
563: );
564: END IF;
627: EXCEPTION
628:
629: WHEN OTHERS THEN
630:
631: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
632: THEN
633: OE_MSG_PUB.Add_Exc_Msg
634: ( G_PKG_NAME
635: , 'Value_To_Id'
629: WHEN OTHERS THEN
630:
631: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
632: THEN
633: OE_MSG_PUB.Add_Exc_Msg
634: ( G_PKG_NAME
635: , 'Value_To_Id'
636: );
637: END IF;