[Home] [Help]
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;