87: Debug Code */
88:
89: -- Set record return status.
90:
91: l_CURR_LISTS_rec.return_status := FND_API.G_RET_STS_SUCCESS;
92:
93: -- Prepare record.
94:
95: IF l_CURR_LISTS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
93: -- Prepare record.
94:
95: IF l_CURR_LISTS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
96:
97: l_CURR_LISTS_rec.db_flag := FND_API.G_FALSE;
98:
99: -- Set missing old record elements to NULL.
100:
101: l_old_CURR_LISTS_rec :=
104: ELSIF l_CURR_LISTS_rec.operation = QP_GLOBALS.G_OPR_UPDATE
105: OR l_CURR_LISTS_rec.operation = QP_GLOBALS.G_OPR_DELETE
106: THEN
107:
108: l_CURR_LISTS_rec.db_flag := FND_API.G_TRUE;
109:
110: -- Query Old if missing
111:
112: IF l_old_CURR_LISTS_rec.currency_header_id = FND_API.G_MISS_NUM
108: l_CURR_LISTS_rec.db_flag := FND_API.G_TRUE;
109:
110: -- Query Old if missing
111:
112: IF l_old_CURR_LISTS_rec.currency_header_id = FND_API.G_MISS_NUM
113: THEN
114:
115: l_old_CURR_LISTS_rec := QP_Curr_Lists_Util.Query_Row
116: ( p_currency_header_id => l_CURR_LISTS_rec.currency_header_id
145: IF l_control_rec.default_attributes
146: OR l_control_rec.change_attributes
147: THEN
148:
149: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
150:
151: QP_Validate_Curr_Lists.Attributes
152: ( x_return_status => l_return_status
153: , p_CURR_LISTS_rec => l_CURR_LISTS_rec
153: , p_CURR_LISTS_rec => l_CURR_LISTS_rec
154: , p_old_CURR_LISTS_rec => l_old_CURR_LISTS_rec
155: );
156:
157: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
160: RAISE FND_API.G_EXC_ERROR;
161: END IF;
154: , p_old_CURR_LISTS_rec => l_old_CURR_LISTS_rec
155: );
156:
157: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
160: RAISE FND_API.G_EXC_ERROR;
161: END IF;
162:
155: );
156:
157: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
160: RAISE FND_API.G_EXC_ERROR;
161: END IF;
162:
163: END IF;
156:
157: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
160: RAISE FND_API.G_EXC_ERROR;
161: END IF;
162:
163: END IF;
164:
225: -- Added by sunilpandey to prevent delete operation of details from Public package
226: FND_MESSAGE.SET_NAME('QP','QP_CAN_NOT_DELETE_CURR_HDR');
227: OE_MSG_PUB.Add;
228:
229: RAISE FND_API.G_EXC_ERROR;
230:
231:
232: /*
233: QP_Validate_Curr_Lists.Entity_Delete
245: );
246:
247: END IF;
248:
249: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
252: RAISE FND_API.G_EXC_ERROR;
253: END IF;
246:
247: END IF;
248:
249: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
252: RAISE FND_API.G_EXC_ERROR;
253: END IF;
254:
247: END IF;
248:
249: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
252: RAISE FND_API.G_EXC_ERROR;
253: END IF;
254:
255: END IF;
248:
249: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
252: RAISE FND_API.G_EXC_ERROR;
253: END IF;
254:
255: END IF;
256: -- Added by SunilP
309: x_old_CURR_LISTS_rec := l_old_CURR_LISTS_rec;
310:
311: EXCEPTION
312:
313: WHEN FND_API.G_EXC_ERROR THEN
314:
315: l_CURR_LISTS_rec.return_status := FND_API.G_RET_STS_ERROR;
316: x_CURR_LISTS_rec := l_CURR_LISTS_rec;
317: x_old_CURR_LISTS_rec := l_old_CURR_LISTS_rec;
311: EXCEPTION
312:
313: WHEN FND_API.G_EXC_ERROR THEN
314:
315: l_CURR_LISTS_rec.return_status := FND_API.G_RET_STS_ERROR;
316: x_CURR_LISTS_rec := l_CURR_LISTS_rec;
317: x_old_CURR_LISTS_rec := l_old_CURR_LISTS_rec;
318: RAISE;
319:
316: x_CURR_LISTS_rec := l_CURR_LISTS_rec;
317: x_old_CURR_LISTS_rec := l_old_CURR_LISTS_rec;
318: RAISE;
319:
320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
321:
322: l_CURR_LISTS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323: x_CURR_LISTS_rec := l_CURR_LISTS_rec;
324: x_old_CURR_LISTS_rec := l_old_CURR_LISTS_rec;
318: RAISE;
319:
320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
321:
322: l_CURR_LISTS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323: x_CURR_LISTS_rec := l_CURR_LISTS_rec;
324: x_old_CURR_LISTS_rec := l_old_CURR_LISTS_rec;
325:
326: RAISE;
334: , 'Curr_Lists'
335: );
336: END IF;
337:
338: l_CURR_LISTS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
339: x_CURR_LISTS_rec := l_CURR_LISTS_rec;
340: x_old_CURR_LISTS_rec := l_old_CURR_LISTS_rec;
341:
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
338: l_CURR_LISTS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
339: x_CURR_LISTS_rec := l_CURR_LISTS_rec;
340: x_old_CURR_LISTS_rec := l_old_CURR_LISTS_rec;
341:
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
343:
344: END Curr_Lists;
345:
346: -- Curr_Detailss
419: Debug Code */
420:
421: -- Set record return status.
422:
423: l_CURR_DETAILS_rec.return_status := FND_API.G_RET_STS_SUCCESS;
424:
425: -- Prepare record.
426:
427: IF l_CURR_DETAILS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
425: -- Prepare record.
426:
427: IF l_CURR_DETAILS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
428:
429: l_CURR_DETAILS_rec.db_flag := FND_API.G_FALSE;
430:
431: -- Set missing old record elements to NULL.
432:
433: l_old_CURR_DETAILS_rec :=
436: ELSIF l_CURR_DETAILS_rec.operation = QP_GLOBALS.G_OPR_UPDATE
437: OR l_CURR_DETAILS_rec.operation = QP_GLOBALS.G_OPR_DELETE
438: THEN
439:
440: l_CURR_DETAILS_rec.db_flag := FND_API.G_TRUE;
441:
442: -- Query Old if missing
443:
444: IF l_old_CURR_DETAILS_rec.currency_detail_id = FND_API.G_MISS_NUM
440: l_CURR_DETAILS_rec.db_flag := FND_API.G_TRUE;
441:
442: -- Query Old if missing
443:
444: IF l_old_CURR_DETAILS_rec.currency_detail_id = FND_API.G_MISS_NUM
445: THEN
446:
447: l_old_CURR_DETAILS_rec := QP_Curr_Details_Util.Query_Row
448: ( p_currency_detail_id => l_CURR_DETAILS_rec.currency_detail_id
502: IF l_control_rec.default_attributes
503: OR l_control_rec.change_attributes
504: THEN
505:
506: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
507:
508: QP_Validate_Curr_Details.Attributes
509: ( x_return_status => l_return_status
510: , p_CURR_DETAILS_rec => l_CURR_DETAILS_rec
510: , p_CURR_DETAILS_rec => l_CURR_DETAILS_rec
511: , p_old_CURR_DETAILS_rec => l_old_CURR_DETAILS_rec
512: );
513:
514: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
517: RAISE FND_API.G_EXC_ERROR;
518: END IF;
511: , p_old_CURR_DETAILS_rec => l_old_CURR_DETAILS_rec
512: );
513:
514: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
517: RAISE FND_API.G_EXC_ERROR;
518: END IF;
519:
512: );
513:
514: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
517: RAISE FND_API.G_EXC_ERROR;
518: END IF;
519:
520: END IF;
513:
514: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
517: RAISE FND_API.G_EXC_ERROR;
518: END IF;
519:
520: END IF;
521:
684: -- Added by sunilpandey to prevent delete operation of details from Public package
685: FND_MESSAGE.SET_NAME('QP','QP_CAN_NOT_DELETE_CURR_DTL');
686: OE_MSG_PUB.Add;
687:
688: RAISE FND_API.G_EXC_ERROR;
689:
690:
691: /*
692: QP_Validate_Curr_Details.Entity_Delete
708: END IF;
709:
710: -- oe_debug_pub.add('After Calling QP_Validate_Curr_Details.Entity from V package; l_return_status :'||l_return_status);
711:
712: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
715: RAISE FND_API.G_EXC_ERROR;
716: END IF;
709:
710: -- oe_debug_pub.add('After Calling QP_Validate_Curr_Details.Entity from V package; l_return_status :'||l_return_status);
711:
712: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
715: RAISE FND_API.G_EXC_ERROR;
716: END IF;
717:
710: -- oe_debug_pub.add('After Calling QP_Validate_Curr_Details.Entity from V package; l_return_status :'||l_return_status);
711:
712: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
715: RAISE FND_API.G_EXC_ERROR;
716: END IF;
717:
718: END IF;
711:
712: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
715: RAISE FND_API.G_EXC_ERROR;
716: END IF;
717:
718: END IF;
719:
774:
775:
776: EXCEPTION
777:
778: WHEN FND_API.G_EXC_ERROR THEN
779:
780: l_CURR_DETAILS_rec.return_status := FND_API.G_RET_STS_ERROR;
781: l_CURR_DETAILS_tbl(I) := l_CURR_DETAILS_rec;
782: l_old_CURR_DETAILS_tbl(I) := l_old_CURR_DETAILS_rec;
776: EXCEPTION
777:
778: WHEN FND_API.G_EXC_ERROR THEN
779:
780: l_CURR_DETAILS_rec.return_status := FND_API.G_RET_STS_ERROR;
781: l_CURR_DETAILS_tbl(I) := l_CURR_DETAILS_rec;
782: l_old_CURR_DETAILS_tbl(I) := l_old_CURR_DETAILS_rec;
783: -- oe_debug_pub.add('Raised Inner FND_API.G_EXC_ERROR EXCEPTION');
784: RAISE FND_API.G_EXC_ERROR;
779:
780: l_CURR_DETAILS_rec.return_status := FND_API.G_RET_STS_ERROR;
781: l_CURR_DETAILS_tbl(I) := l_CURR_DETAILS_rec;
782: l_old_CURR_DETAILS_tbl(I) := l_old_CURR_DETAILS_rec;
783: -- oe_debug_pub.add('Raised Inner FND_API.G_EXC_ERROR EXCEPTION');
784: RAISE FND_API.G_EXC_ERROR;
785:
786: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
787:
780: l_CURR_DETAILS_rec.return_status := FND_API.G_RET_STS_ERROR;
781: l_CURR_DETAILS_tbl(I) := l_CURR_DETAILS_rec;
782: l_old_CURR_DETAILS_tbl(I) := l_old_CURR_DETAILS_rec;
783: -- oe_debug_pub.add('Raised Inner FND_API.G_EXC_ERROR EXCEPTION');
784: RAISE FND_API.G_EXC_ERROR;
785:
786: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
787:
788: l_CURR_DETAILS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
782: l_old_CURR_DETAILS_tbl(I) := l_old_CURR_DETAILS_rec;
783: -- oe_debug_pub.add('Raised Inner FND_API.G_EXC_ERROR EXCEPTION');
784: RAISE FND_API.G_EXC_ERROR;
785:
786: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
787:
788: l_CURR_DETAILS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
789: l_CURR_DETAILS_tbl(I) := l_CURR_DETAILS_rec;
790: l_old_CURR_DETAILS_tbl(I) := l_old_CURR_DETAILS_rec;
784: RAISE FND_API.G_EXC_ERROR;
785:
786: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
787:
788: l_CURR_DETAILS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
789: l_CURR_DETAILS_tbl(I) := l_CURR_DETAILS_rec;
790: l_old_CURR_DETAILS_tbl(I) := l_old_CURR_DETAILS_rec;
791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
792:
787:
788: l_CURR_DETAILS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
789: l_CURR_DETAILS_tbl(I) := l_CURR_DETAILS_rec;
790: l_old_CURR_DETAILS_tbl(I) := l_old_CURR_DETAILS_rec;
791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
792:
793: WHEN OTHERS THEN
794:
795: l_CURR_DETAILS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
792:
793: WHEN OTHERS THEN
794:
795: l_CURR_DETAILS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
796: l_CURR_DETAILS_tbl(I) := l_CURR_DETAILS_rec;
797: l_old_CURR_DETAILS_tbl(I) := l_old_CURR_DETAILS_rec;
798:
799: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
803: , 'Curr_Detailss'
804: );
805: END IF;
806:
807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
808:
809: END;
810: END LOOP;
811:
815: x_old_CURR_DETAILS_tbl := l_old_CURR_DETAILS_tbl;
816:
817: EXCEPTION
818:
819: WHEN FND_API.G_EXC_ERROR THEN
820:
821: RAISE;
822:
823: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
819: WHEN FND_API.G_EXC_ERROR THEN
820:
821: RAISE;
822:
823: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
824:
825:
826: RAISE;
827:
835: );
836: END IF;
837:
838:
839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
840:
841: END Curr_Detailss;
842:
843: -- Start of Comments
857: -- End of Comments
858:
859: PROCEDURE Process_Currency
860: ( p_api_version_number IN NUMBER
861: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
862: , p_commit IN VARCHAR2 := FND_API.G_FALSE
863: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
864: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
865: QP_GLOBALS.G_MISS_CONTROL_REC
858:
859: PROCEDURE Process_Currency
860: ( p_api_version_number IN NUMBER
861: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
862: , p_commit IN VARCHAR2 := FND_API.G_FALSE
863: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
864: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
865: QP_GLOBALS.G_MISS_CONTROL_REC
866: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
859: PROCEDURE Process_Currency
860: ( p_api_version_number IN NUMBER
861: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
862: , p_commit IN VARCHAR2 := FND_API.G_FALSE
863: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
864: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
865: QP_GLOBALS.G_MISS_CONTROL_REC
866: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
867: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
900: -- Standard call to check for call compatibility
901: -- oe_debug_pub.add('Markup Value: '||l_CURR_LISTS_rec.base_markup_value);
902: -- oe_debug_pub.add('Description: '||l_CURR_LISTS_rec.description);
903:
904: IF NOT FND_API.Compatible_API_Call
905: ( l_api_version_number
906: , p_api_version_number
907: , l_api_name
908: , G_PKG_NAME
907: , l_api_name
908: , G_PKG_NAME
909: )
910: THEN
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: END IF;
913:
914: -- Initialize message list.
915:
912: END IF;
913:
914: -- Initialize message list.
915:
916: IF FND_API.to_Boolean(p_init_msg_list) THEN
917: OE_MSG_PUB.initialize;
918: END IF;
919:
920: -- Init local table variables.
961: l_CURR_DETAILS_rec := l_CURR_DETAILS_tbl(I);
962:
963: IF l_CURR_DETAILS_rec.operation = QP_GLOBALS.G_OPR_CREATE
964: AND (l_CURR_DETAILS_rec.currency_header_id IS NULL OR
965: l_CURR_DETAILS_rec.currency_header_id = FND_API.G_MISS_NUM)
966: THEN
967:
968: -- Copy parent_id.
969:
994: THEN
995:
996: QP_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
997: (p_entity_code => QP_GLOBALS.G_ENTITY_CURR_DETAILS
998: ,p_delete => FND_API.G_TRUE
999: ,x_return_status => l_return_status
1000: );
1001: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
997: (p_entity_code => QP_GLOBALS.G_ENTITY_CURR_DETAILS
998: ,p_delete => FND_API.G_TRUE
999: ,x_return_status => l_return_status
1000: );
1001: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1003: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1004: RAISE FND_API.G_EXC_ERROR;
1005: END IF;
998: ,p_delete => FND_API.G_TRUE
999: ,x_return_status => l_return_status
1000: );
1001: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1003: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1004: RAISE FND_API.G_EXC_ERROR;
1005: END IF;
1006:
999: ,x_return_status => l_return_status
1000: );
1001: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1003: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1004: RAISE FND_API.G_EXC_ERROR;
1005: END IF;
1006:
1007: END IF;
1000: );
1001: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1003: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1004: RAISE FND_API.G_EXC_ERROR;
1005: END IF;
1006:
1007: END IF;
1008:
1038: END IF;
1039:
1040: -- Derive return status.
1041:
1042: x_return_status := FND_API.G_RET_STS_SUCCESS;
1043:
1044: IF l_CURR_LISTS_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1045: x_return_status := FND_API.G_RET_STS_ERROR;
1046: END IF;
1040: -- Derive return status.
1041:
1042: x_return_status := FND_API.G_RET_STS_SUCCESS;
1043:
1044: IF l_CURR_LISTS_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1045: x_return_status := FND_API.G_RET_STS_ERROR;
1046: END IF;
1047:
1048: FOR I IN 1..l_CURR_DETAILS_tbl.COUNT LOOP
1041:
1042: x_return_status := FND_API.G_RET_STS_SUCCESS;
1043:
1044: IF l_CURR_LISTS_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1045: x_return_status := FND_API.G_RET_STS_ERROR;
1046: END IF;
1047:
1048: FOR I IN 1..l_CURR_DETAILS_tbl.COUNT LOOP
1049:
1046: END IF;
1047:
1048: FOR I IN 1..l_CURR_DETAILS_tbl.COUNT LOOP
1049:
1050: IF l_CURR_DETAILS_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
1051: x_return_status := FND_API.G_RET_STS_ERROR;
1052: END IF;
1053:
1054: END LOOP;
1047:
1048: FOR I IN 1..l_CURR_DETAILS_tbl.COUNT LOOP
1049:
1050: IF l_CURR_DETAILS_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
1051: x_return_status := FND_API.G_RET_STS_ERROR;
1052: END IF;
1053:
1054: END LOOP;
1055:
1062:
1063:
1064: EXCEPTION
1065:
1066: WHEN FND_API.G_EXC_ERROR THEN
1067:
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1069:
1070: -- Get message count and data
1064: EXCEPTION
1065:
1066: WHEN FND_API.G_EXC_ERROR THEN
1067:
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1069:
1070: -- Get message count and data
1071:
1072: OE_MSG_PUB.Count_And_Get
1073: ( p_count => x_msg_count
1074: , p_data => x_msg_data
1075: );
1076:
1077: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1078:
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1080:
1081: -- Get message count and data
1075: );
1076:
1077: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1078:
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1080:
1081: -- Get message count and data
1082:
1083: OE_MSG_PUB.Count_And_Get
1086: );
1087:
1088: WHEN OTHERS THEN
1089:
1090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1091:
1092: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1093: THEN
1094: OE_MSG_PUB.Add_Exc_Msg
1123: -- End of Comments
1124:
1125: PROCEDURE Lock_Currency
1126: ( p_api_version_number IN NUMBER
1127: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1128: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1129: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1130: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1131: , p_CURR_LISTS_rec IN QP_Currency_PUB.Curr_Lists_Rec_Type :=
1137: )
1138: IS
1139: l_api_version_number CONSTANT NUMBER := 1.0;
1140: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Currency';
1141: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1142: l_CURR_DETAILS_rec QP_Currency_PUB.Curr_Details_Rec_Type;
1143: BEGIN
1144:
1145: -- Standard call to check for call compatibility
1143: BEGIN
1144:
1145: -- Standard call to check for call compatibility
1146:
1147: IF NOT FND_API.Compatible_API_Call
1148: ( l_api_version_number
1149: , p_api_version_number
1150: , l_api_name
1151: , G_PKG_NAME
1150: , l_api_name
1151: , G_PKG_NAME
1152: )
1153: THEN
1154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1155: END IF;
1156:
1157: -- Initialize message list.
1158:
1155: END IF;
1156:
1157: -- Initialize message list.
1158:
1159: IF FND_API.to_Boolean(p_init_msg_list) THEN
1160: OE_MSG_PUB.initialize;
1161: END IF;
1162:
1163: -- Set Savepoint
1175: , x_CURR_LISTS_rec => x_CURR_LISTS_rec
1176: , x_return_status => l_return_status
1177: );
1178:
1179: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1181: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1182: RAISE FND_API.G_EXC_ERROR;
1183: END IF;
1176: , x_return_status => l_return_status
1177: );
1178:
1179: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1181: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1182: RAISE FND_API.G_EXC_ERROR;
1183: END IF;
1184:
1177: );
1178:
1179: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1181: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1182: RAISE FND_API.G_EXC_ERROR;
1183: END IF;
1184:
1185:
1178:
1179: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1181: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1182: RAISE FND_API.G_EXC_ERROR;
1183: END IF;
1184:
1185:
1186: END IF;
1196: , x_CURR_DETAILS_rec => l_CURR_DETAILS_rec
1197: , x_return_status => l_return_status
1198: );
1199:
1200: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1202: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1203: RAISE FND_API.G_EXC_ERROR;
1204: END IF;
1197: , x_return_status => l_return_status
1198: );
1199:
1200: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1202: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1203: RAISE FND_API.G_EXC_ERROR;
1204: END IF;
1205:
1198: );
1199:
1200: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1202: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1203: RAISE FND_API.G_EXC_ERROR;
1204: END IF;
1205:
1206: x_CURR_DETAILS_tbl(I) := l_CURR_DETAILS_rec;
1199:
1200: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1202: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1203: RAISE FND_API.G_EXC_ERROR;
1204: END IF;
1205:
1206: x_CURR_DETAILS_tbl(I) := l_CURR_DETAILS_rec;
1207:
1210: END LOOP;
1211:
1212: -- Set return status
1213:
1214: x_return_status := FND_API.G_RET_STS_SUCCESS;
1215:
1216: -- Get message count and data
1217:
1218: OE_MSG_PUB.Count_And_Get
1222:
1223:
1224: EXCEPTION
1225:
1226: WHEN FND_API.G_EXC_ERROR THEN
1227:
1228: x_return_status := FND_API.G_RET_STS_ERROR;
1229:
1230: -- Get message count and data
1224: EXCEPTION
1225:
1226: WHEN FND_API.G_EXC_ERROR THEN
1227:
1228: x_return_status := FND_API.G_RET_STS_ERROR;
1229:
1230: -- Get message count and data
1231:
1232: OE_MSG_PUB.Count_And_Get
1237: -- Rollback
1238:
1239: ROLLBACK TO Lock_Currency_PVT;
1240:
1241: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1242:
1243: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1244:
1245: -- Get message count and data
1239: ROLLBACK TO Lock_Currency_PVT;
1240:
1241: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1242:
1243: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1244:
1245: -- Get message count and data
1246:
1247: OE_MSG_PUB.Count_And_Get
1254: ROLLBACK TO Lock_Currency_PVT;
1255:
1256: WHEN OTHERS THEN
1257:
1258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1259:
1260: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1261: THEN
1262: OE_MSG_PUB.Add_Exc_Msg
1295: -- End of Comments
1296:
1297: PROCEDURE Get_Currency
1298: ( p_api_version_number IN NUMBER
1299: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1300: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1301: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1302: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1303: , p_currency_header_id IN NUMBER
1312: BEGIN
1313:
1314: -- Standard call to check for call compatibility
1315:
1316: IF NOT FND_API.Compatible_API_Call
1317: ( l_api_version_number
1318: , p_api_version_number
1319: , l_api_name
1320: , G_PKG_NAME
1319: , l_api_name
1320: , G_PKG_NAME
1321: )
1322: THEN
1323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1324: END IF;
1325:
1326: -- Initialize message list.
1327:
1324: END IF;
1325:
1326: -- Initialize message list.
1327:
1328: IF FND_API.to_Boolean(p_init_msg_list) THEN
1329: OE_MSG_PUB.initialize;
1330: END IF;
1331:
1332: -- Get CURR_LISTS ( parent = CURR_LISTS )
1348: x_CURR_DETAILS_tbl := l_CURR_DETAILS_tbl;
1349:
1350: -- Set return status
1351:
1352: x_return_status := FND_API.G_RET_STS_SUCCESS;
1353:
1354: -- Get message count and data
1355:
1356: OE_MSG_PUB.Count_And_Get
1360:
1361:
1362: EXCEPTION
1363:
1364: WHEN FND_API.G_EXC_ERROR THEN
1365:
1366: x_return_status := FND_API.G_RET_STS_ERROR;
1367:
1368: -- Get message count and data
1362: EXCEPTION
1363:
1364: WHEN FND_API.G_EXC_ERROR THEN
1365:
1366: x_return_status := FND_API.G_RET_STS_ERROR;
1367:
1368: -- Get message count and data
1369:
1370: OE_MSG_PUB.Count_And_Get
1371: ( p_count => x_msg_count
1372: , p_data => x_msg_data
1373: );
1374:
1375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1376:
1377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1378:
1379: -- Get message count and data
1373: );
1374:
1375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1376:
1377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1378:
1379: -- Get message count and data
1380:
1381: OE_MSG_PUB.Count_And_Get
1384: );
1385:
1386: WHEN OTHERS THEN
1387:
1388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1389:
1390: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1391: THEN
1392: OE_MSG_PUB.Add_Exc_Msg