PACKAGE BODY: APPS.OKL_INTEREST_IMP_PUB

Source

1 PACKAGE BODY OKL_INTEREST_IMP_PUB AS
2 /* $Header: OKLPITFB.pls 115.3 2002/12/18 12:22:46 kjinger noship $ */
3 
4 
5 
6 PROCEDURE INT_RATE_IMPORT(p_api_version                 IN   NUMBER,
7                           p_init_msg_list               IN   VARCHAR2,
8                           x_return_status               OUT  NOCOPY VARCHAR2,
9                           x_msg_count                   OUT  NOCOPY NUMBER,
10                           x_msg_data                    OUT  NOCOPY VARCHAR2)
11 AS
12 
13 l_api_version   NUMBER := 1.0;
14 
15 l_api_name          CONSTANT VARCHAR2(30)  := 'INT_RATE_IMPORT';
16 l_return_status     VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
17 
18 
19 
20 BEGIN
21 
22 
23   SAVEPOINT INT_RATE_IMPORT;
24 
25   x_return_status    := FND_API.G_RET_STS_SUCCESS;
26 
27   -- customer pre-processing
28 
29 
30 
31 
32 -- Run the MAIN Procedure
33 
34 
35     OKL_INTEREST_IMP_PVT.INT_RATE_IMPORT(p_api_version        => l_api_version,
36                                          p_init_msg_list      => p_init_msg_list,
37                                          x_return_status      => x_return_status,
38                                          x_msg_count          => x_msg_count,
39                                          x_msg_data           => x_msg_data);
40 
41 
42   IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
43       RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
44   ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
45       RAISE FND_API.G_EXC_ERROR;
46   END IF;
47 
48 
49 
50 
51 
52 EXCEPTION
53 
54   WHEN FND_API.G_EXC_ERROR THEN
55       ROLLBACK TO INT_RATE_IMPORT;
56       x_return_status := FND_API.G_RET_STS_ERROR;
57 
58       FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
59                                ,p_count   => x_msg_count
60                                ,p_data    => x_msg_data);
61 
62   WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
63       ROLLBACK TO INT_RATE_IMPORT;
64       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
65       FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
66                                ,p_count   => x_msg_count
67                                ,p_data    => x_msg_data);
68 
69   WHEN OTHERS THEN
70 
71       FND_MSG_PUB.ADD_EXC_MSG('OKL_INTEREST_IMP_PUB','INT_RATE_IMPORT');
72       FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
73                                ,p_count   => x_msg_count
74                                ,p_data    => x_msg_data);
75       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
76 
77 
78 
79 END INT_RATE_IMPORT;
80 
81 
82 END OKL_INTEREST_IMP_PUB;
83