PACKAGE BODY: APPS.OKL_MULTI_GAAP_PUB

Source

1 PACKAGE BODY OKL_MULTI_GAAP_PUB AS
2 /* $Header: OKLPGAPB.pls 115.0 2002/12/17 20:00:55 sgiyer noship $ */
3 
4   FUNCTION SUBMIT_MULTI_GAAP(
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_date_from IN DATE,
10     p_date_to IN DATE,
11     p_batch_name IN VARCHAR2 ) RETURN NUMBER IS
12 
13     l_api_version       NUMBER := 1.0;
14     l_api_name          CONSTANT VARCHAR2(2000)  := 'SUBMIT_MULTI_GAAP';
15     l_return_status     VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
16     x_request_id        NUMBER;
17 
18   BEGIN
19 
20   SAVEPOINT SUBMIT_MULTI_GAAP;
21 
22   x_return_status    := FND_API.G_RET_STS_SUCCESS;
23 
24   -- Execute the Main Procedure
25 
26   x_request_id := OKL_MULTI_GAAP_PVT.SUBMIT_MULTI_GAAP(
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_date_from => p_date_from,
32                                 p_date_to => p_date_to,
33                                 p_batch_name => p_batch_name);
34 
35   IF x_return_status = FND_API.G_RET_STS_ERROR THEN
36     RAISE FND_API.G_EXC_ERROR;
37   ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
38     RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39   END IF;
40 
41   RETURN x_request_id;
42 
43 EXCEPTION
44 
45   WHEN FND_API.G_EXC_ERROR THEN
46       ROLLBACK TO SUBMIT_DEPR_ADJUSTMENT;
47       x_return_status := FND_API.G_RET_STS_ERROR;
48 
49       FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
50                                ,p_count   => x_msg_count
51                                ,p_data    => x_msg_data);
52 
53   WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
54       ROLLBACK TO SUBMIT_DEPR_ADJUSTMENT;
55       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
56       FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
57                                ,p_count   => x_msg_count
58                                ,p_data    => x_msg_data);
59 
60   WHEN OTHERS THEN
61       ROLLBACK TO SUBMIT_DEPR_ADJUSTMENT;
62       FND_MSG_PUB.ADD_EXC_MSG('OKL_ACCRUAL_DEPRN_ADJ_PUB','SUBMIT_MULTI_GAAP');
63       FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
64                                ,p_count   => x_msg_count
65                                ,p_data    => x_msg_data);
66       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
67 
68 END SUBMIT_MULTI_GAAP;
69 
70 END OKL_MULTI_GAAP_PUB;