PACKAGE BODY: APPS.OKL_ACCOUNTING_UPDATE_PUB

Source

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