PACKAGE BODY: APPS.OKL_FORMULAVALIDATE_PUB

Source

1 PACKAGE BODY OKL_FORMULAVALIDATE_PUB AS
2   /* $Header: OKLPVALB.pls 115.4 2004/04/13 11:26:23 rnaik noship $ */
3 
4   PROCEDURE VAL_ValidateFormula(p_api_version   IN  NUMBER
5                    ,p_init_msg_list IN  VARCHAR2 DEFAULT OKC_API.G_FALSE
6                    ,x_return_status OUT NOCOPY VARCHAR2
7                    ,x_msg_count     OUT NOCOPY NUMBER
8                    ,x_msg_data      OUT NOCOPY VARCHAR2
9                    ,x_validate_status OUT NOCOPY VARCHAR2
10                    ,p_fma_id  IN  okl_formulae_v.id%TYPE
11                    ,p_cgr_id  IN  okl_context_groups_v.id%TYPE )
12   IS
13     l_count                  NUMBER;
14     l_data                   VARCHAR2(100);
15     l_api_name               CONSTANT VARCHAR2(30) := 'validateformula';
16     l_return_status          VARCHAR2(1)           := FND_API.G_RET_STS_SUCCESS;
17   BEGIN
18     x_return_status := FND_API.G_RET_STS_SUCCESS;
19     SAVEPOINT validateformula;
20 
21 
22 
23 
24 
25 
26     okl_formulavalidate_pvt.VAL_ValidateFormula(
27 				p_api_version     => p_api_version
28                                    ,p_init_msg_list   => p_init_msg_list
29                                    ,x_return_status   => l_return_status
30                                    ,x_msg_count       => x_msg_count
31                                    ,x_msg_data        => x_msg_data
32                                    ,x_validate_status   => x_validate_status
33                                    ,p_fma_id    => p_fma_id
34                                    ,p_cgr_id    => p_cgr_id);
35 
36 
37     IF l_return_status = FND_API.G_RET_STS_ERROR THEN
38       RAISE FND_API.G_EXC_ERROR;
39     ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
40       RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41     END IF;
42 
43 
44 
45 
46   EXCEPTION
47     WHEN FND_API.G_EXC_ERROR THEN
48       ROLLBACK TO validateformula;
49       x_return_status := FND_API.G_RET_STS_ERROR;
50 
51       FND_MSG_PUB.Count_and_get(p_encoded => OKC_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 validateformula;
57       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
58       FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
59                                ,p_count   => x_msg_count
60                                ,p_data    => x_msg_data);
61 
62     WHEN OTHERS THEN
63       FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, l_api_name);
64       -- store SQL error message on message stack for caller
65       FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
66                                ,p_count   => x_msg_count
67                                ,p_data    => x_msg_data);
68       -- notify caller of an UNEXPECTED error
69       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
70   END VAL_ValidateFormula;
71 
72 
73 END OKL_FORMULAVALIDATE_PUB;