[Home] [Help]
PACKAGE BODY: APPS.OKL_ACCRUAL_DEPRN_ADJ_PUB
Source
1 PACKAGE BODY OKL_ACCRUAL_DEPRN_ADJ_PUB AS
2 /* $Header: OKLPADAB.pls 115.3 2003/10/08 17:46:51 sgiyer noship $ */
3
4 FUNCTION SUBMIT_DEPRN_ADJUSTMENT(
5 x_return_status OUT NOCOPY VARCHAR2,
6 x_msg_count OUT NOCOPY NUMBER,
7 x_msg_data OUT NOCOPY VARCHAR2,
8 p_api_version IN NUMBER,
9 p_batch_name IN VARCHAR2,
10 p_date_from IN DATE,
11 p_date_to IN DATE ) RETURN NUMBER IS
12
13 l_api_version NUMBER := 1.0;
14 l_api_name CONSTANT VARCHAR2(30) := 'SUBMIT_DEPRN_ADJUSTMENT';
15 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
16 x_request_id NUMBER;
17
18 BEGIN
19
20 SAVEPOINT SUBMIT_DEPR_ADJUSTMENT;
21
22 x_return_status := FND_API.G_RET_STS_SUCCESS;
23
24 -- Execute the Main Procedure
25
26 x_request_id := OKL_ACCRUAL_DEPRN_ADJ_PVT.SUBMIT_DEPRN_ADJUSTMENT(
27 x_return_status => x_return_status,
28 x_msg_count => x_msg_count,
29 x_msg_data => x_msg_data,
30 p_api_version => l_api_version,
31 p_batch_name => p_batch_name,
32 p_date_from => p_date_from,
33 p_date_to => p_date_to);
34
35
36
37 IF x_return_status = FND_API.G_RET_STS_ERROR THEN
38 RAISE FND_API.G_EXC_ERROR;
39 ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
40 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41 END IF;
42
43 RETURN x_request_id;
44
45 EXCEPTION
46
47 WHEN FND_API.G_EXC_ERROR THEN
48 ROLLBACK TO SUBMIT_DEPR_ADJUSTMENT;
49 x_return_status := FND_API.G_RET_STS_ERROR;
50
51 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
52 ,p_count => x_msg_count
53 ,p_data => x_msg_data);
54
55 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
56 ROLLBACK TO SUBMIT_DEPR_ADJUSTMENT;
57 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 OTHERS THEN
63 ROLLBACK TO SUBMIT_DEPR_ADJUSTMENT;
64 FND_MSG_PUB.ADD_EXC_MSG('OKL_ACCRUAL_DEPRN_ADJ_PUB','SUBMIT_DEPR_ADJUSTMENT');
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 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
69
70 END SUBMIT_DEPRN_ADJUSTMENT;
71
72 END OKL_ACCRUAL_DEPRN_ADJ_PUB;