43: -- End of Comments
44:
45: PROCEDURE Process_Currency
46: ( p_api_version_number IN NUMBER
47: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
48: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
49: , p_commit IN VARCHAR2 := FND_API.G_FALSE
50: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
51: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
44:
45: PROCEDURE Process_Currency
46: ( p_api_version_number IN NUMBER
47: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
48: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
49: , p_commit IN VARCHAR2 := FND_API.G_FALSE
50: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
51: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
52: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
45: PROCEDURE Process_Currency
46: ( p_api_version_number IN NUMBER
47: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
48: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
49: , p_commit IN VARCHAR2 := FND_API.G_FALSE
50: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
51: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
52: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
53: , p_CURR_LISTS_rec IN Curr_Lists_Rec_Type :=
75: BEGIN
76:
77: -- Standard call to check for call compatibility
78:
79: IF NOT FND_API.Compatible_API_Call
80: ( l_api_version_number
81: , p_api_version_number
82: , l_api_name
83: , G_PKG_NAME
82: , l_api_name
83: , G_PKG_NAME
84: )
85: THEN
86: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
87: END IF;
88:
89: -- Perform Value to Id conversion
90:
97: , x_CURR_LISTS_rec => l_CURR_LISTS_rec
98: , x_CURR_DETAILS_tbl => l_CURR_DETAILS_tbl
99: );
100:
101: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
104: RAISE FND_API.G_EXC_ERROR;
105: END IF;
98: , x_CURR_DETAILS_tbl => l_CURR_DETAILS_tbl
99: );
100:
101: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
104: RAISE FND_API.G_EXC_ERROR;
105: END IF;
106:
99: );
100:
101: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
104: RAISE FND_API.G_EXC_ERROR;
105: END IF;
106:
107:
100:
101: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
104: RAISE FND_API.G_EXC_ERROR;
105: END IF;
106:
107:
108: -- Added by Sunil Pandey
114: l_p_CURR_DETAILS_tbl := l_CURR_DETAILS_tbl;
115: QP_Currency_PVT.Process_Currency
116: ( p_api_version_number => 1.0
117: , p_init_msg_list => p_init_msg_list
118: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
119: , p_commit => p_commit
120: , x_return_status => x_return_status
121: , x_msg_count => x_msg_count
122: , x_msg_data => x_msg_data
133: x_CURR_DETAILS_tbl := l_CURR_DETAILS_tbl;
134:
135: -- If p_return_values is TRUE then convert Ids to Values.
136:
137: IF FND_API.to_Boolean(p_return_values) THEN
138:
139: Id_To_Value
140: ( p_CURR_LISTS_rec => l_CURR_LISTS_rec
141: , p_CURR_DETAILS_tbl => l_CURR_DETAILS_tbl
146: END IF;
147:
148: EXCEPTION
149:
150: WHEN FND_API.G_EXC_ERROR THEN
151:
152: x_return_status := FND_API.G_RET_STS_ERROR;
153:
154: -- Get message count and data
148: EXCEPTION
149:
150: WHEN FND_API.G_EXC_ERROR THEN
151:
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:
161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
162:
163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
164:
165: -- Get message count and data
159: );
160:
161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
162:
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
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
207: -- End of Comments
208:
209: PROCEDURE Lock_Currency
210: ( p_api_version_number IN NUMBER
211: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
212: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
213: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
214: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
215: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
208:
209: PROCEDURE Lock_Currency
210: ( p_api_version_number IN NUMBER
211: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
212: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
213: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
214: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
215: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
216: , p_CURR_LISTS_rec IN Curr_Lists_Rec_Type :=
237: BEGIN
238:
239: -- Standard call to check for call compatibility
240:
241: IF NOT FND_API.Compatible_API_Call
242: ( l_api_version_number
243: , p_api_version_number
244: , l_api_name
245: , G_PKG_NAME
244: , l_api_name
245: , G_PKG_NAME
246: )
247: THEN
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: END IF;
250:
251: -- Perform Value to Id conversion
252:
259: , x_CURR_LISTS_rec => l_CURR_LISTS_rec
260: , x_CURR_DETAILS_tbl => l_CURR_DETAILS_tbl
261: );
262:
263: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
265: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
266: RAISE FND_API.G_EXC_ERROR;
267: END IF;
260: , x_CURR_DETAILS_tbl => l_CURR_DETAILS_tbl
261: );
262:
263: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
265: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
266: RAISE FND_API.G_EXC_ERROR;
267: END IF;
268:
261: );
262:
263: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
265: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
266: RAISE FND_API.G_EXC_ERROR;
267: END IF;
268:
269:
262:
263: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
265: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
266: RAISE FND_API.G_EXC_ERROR;
267: END IF;
268:
269:
270: -- Call QP_Currency_PVT.Lock_Currency
288: x_CURR_DETAILS_tbl := l_CURR_DETAILS_tbl;
289:
290: -- If p_return_values is TRUE then convert Ids to Values.
291:
292: IF FND_API.to_Boolean(p_return_values) THEN
293:
294: Id_To_Value
295: ( p_CURR_LISTS_rec => l_CURR_LISTS_rec
296: , p_CURR_DETAILS_tbl => l_CURR_DETAILS_tbl
301: END IF;
302:
303: EXCEPTION
304:
305: WHEN FND_API.G_EXC_ERROR THEN
306:
307: x_return_status := FND_API.G_RET_STS_ERROR;
308:
309: -- Get message count and data
303: EXCEPTION
304:
305: WHEN FND_API.G_EXC_ERROR THEN
306:
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:
316: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
317:
318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
319:
320: -- Get message count and data
314: );
315:
316: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
317:
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
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
362: -- End of Comments
363:
364: PROCEDURE Get_Currency
365: ( p_api_version_number IN NUMBER
366: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
367: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
368: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
369: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
370: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
363:
364: PROCEDURE Get_Currency
365: ( p_api_version_number IN NUMBER
366: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
367: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
368: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
369: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
370: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
371: , p_currency_header_id IN NUMBER :=
368: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
369: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
370: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
371: , p_currency_header_id IN NUMBER :=
372: FND_API.G_MISS_NUM
373: , p_currency_header IN VARCHAR2 :=
374: FND_API.G_MISS_CHAR
375: , x_CURR_LISTS_rec OUT NOCOPY /* file.sql.39 change */ Curr_Lists_Rec_Type
376: , x_CURR_LISTS_val_rec OUT NOCOPY /* file.sql.39 change */ Curr_Lists_Val_Rec_Type
370: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
371: , p_currency_header_id IN NUMBER :=
372: FND_API.G_MISS_NUM
373: , p_currency_header IN VARCHAR2 :=
374: FND_API.G_MISS_CHAR
375: , x_CURR_LISTS_rec OUT NOCOPY /* file.sql.39 change */ Curr_Lists_Rec_Type
376: , x_CURR_LISTS_val_rec OUT NOCOPY /* file.sql.39 change */ Curr_Lists_Val_Rec_Type
377: , x_CURR_DETAILS_tbl OUT NOCOPY /* file.sql.39 change */ Curr_Details_Tbl_Type
378: , x_CURR_DETAILS_val_tbl OUT NOCOPY /* file.sql.39 change */ Curr_Details_Val_Tbl_Type
386: BEGIN
387:
388: -- Standard call to check for call compatibility
389:
390: IF NOT FND_API.Compatible_API_Call
391: ( l_api_version_number
392: , p_api_version_number
393: , l_api_name
394: , G_PKG_NAME
393: , l_api_name
394: , G_PKG_NAME
395: )
396: THEN
397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
398: END IF;
399:
400: -- Standard check for Val/ID conversion
401:
398: END IF;
399:
400: -- Standard check for Val/ID conversion
401:
402: IF p_currency_header = FND_API.G_MISS_CHAR
403: THEN
404:
405: l_currency_header_id := p_currency_header_id;
406:
403: THEN
404:
405: l_currency_header_id := p_currency_header_id;
406:
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)
424: l_currency_header_id := QP_Value_To_Id.currency_header
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');
435:
436: END IF;
437: END IF;
438:
439: RAISE FND_API.G_EXC_ERROR;
440:
441: END IF;
442:
443:
460: x_CURR_DETAILS_tbl := l_CURR_DETAILS_tbl;
461:
462: -- If p_return_values is TRUE then convert Ids to Values.
463:
464: IF FND_API.TO_BOOLEAN(p_return_values) THEN
465:
466: Id_To_Value
467: ( p_CURR_LISTS_rec => l_CURR_LISTS_rec
468: , p_CURR_DETAILS_tbl => l_CURR_DETAILS_tbl
473: END IF;
474:
475: -- Set return status
476:
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
485:
486:
487: EXCEPTION
488:
489: WHEN FND_API.G_EXC_ERROR THEN
490:
491: x_return_status := FND_API.G_RET_STS_ERROR;
492:
493: -- Get message count and data
487: EXCEPTION
488:
489: WHEN FND_API.G_EXC_ERROR THEN
490:
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:
500: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
501:
502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
503:
504: -- Get message count and data
498: );
499:
500: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
501:
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
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
562: , 'Id_To_Value'
563: );
564: END IF;
565:
566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
567:
568: END Id_To_Value;
569:
570: -- Procedure Value_To_Id
585: BEGIN
586:
587: -- Init x_return_status.
588:
589: x_return_status := FND_API.G_RET_STS_SUCCESS;
590:
591: -- Convert CURR_LISTS
592:
593: l_CURR_LISTS_rec := QP_Curr_Lists_Util.Get_Ids
596: );
597:
598: x_CURR_LISTS_rec := l_CURR_LISTS_rec;
599:
600: IF l_CURR_LISTS_rec.return_status = FND_API.G_RET_STS_ERROR THEN
601: x_return_status := FND_API.G_RET_STS_ERROR;
602: END IF;
603:
604: -- Convert CURR_DETAILS
597:
598: x_CURR_LISTS_rec := l_CURR_LISTS_rec;
599:
600: IF l_CURR_LISTS_rec.return_status = FND_API.G_RET_STS_ERROR THEN
601: x_return_status := FND_API.G_RET_STS_ERROR;
602: END IF;
603:
604: -- Convert CURR_DETAILS
605:
615: );
616:
617: x_CURR_DETAILS_tbl(l_index) := l_CURR_DETAILS_rec;
618:
619: IF l_CURR_DETAILS_rec.return_status = FND_API.G_RET_STS_ERROR THEN
620: x_return_status := FND_API.G_RET_STS_ERROR;
621: END IF;
622:
623: l_index := p_CURR_DETAILS_val_tbl.NEXT(l_index);
616:
617: x_CURR_DETAILS_tbl(l_index) := l_CURR_DETAILS_rec;
618:
619: IF l_CURR_DETAILS_rec.return_status = FND_API.G_RET_STS_ERROR THEN
620: x_return_status := FND_API.G_RET_STS_ERROR;
621: END IF;
622:
623: l_index := p_CURR_DETAILS_val_tbl.NEXT(l_index);
624:
635: , 'Value_To_Id'
636: );
637: END IF;
638:
639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
640:
641: END Value_To_Id;
642:
643: END QP_Currency_PUB;