[Home] [Help]
PACKAGE BODY: APPS.OKL_FORMULAEVALUATE_PUB
Source
1 PACKAGE BODY OKL_FORMULAEVALUATE_PUB AS
2 /* $Header: OKLPEVAB.pls 115.4 2004/04/13 10:44:46 rnaik noship $ */
3
4 PROCEDURE EVA_GetParameterValues(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 ,p_fma_id IN okl_formulae_v.id%TYPE
10 ,p_contract_id IN okl_k_headers_v.id%TYPE
11 ,x_ctx_parameter_tbl OUT NOCOPY ctxparameter_tbl
12 ,p_line_id IN okl_k_lines_v.id%TYPE DEFAULT NULL)
13 IS
14 l_count NUMBER;
15 l_data VARCHAR2(100);
16 l_api_name CONSTANT VARCHAR2(30) := 'eva_getparametervalues';
17 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18 BEGIN
19 x_return_status := FND_API.G_RET_STS_SUCCESS;
20 SAVEPOINT getparametervalues;
21
22
23
24
25 okl_formulaevaluate_pvt.EVA_GetParameterValues(
26 p_api_version => p_api_version
27 ,p_init_msg_list => p_init_msg_list
28 ,x_return_status => l_return_status
29 ,x_msg_count => x_msg_count
30 ,x_msg_data => x_msg_data
31 ,p_fma_id => p_fma_id
32 ,p_contract_id => p_contract_id
33 ,x_ctx_parameter_tbl => x_ctx_parameter_tbl
34 ,p_line_id => p_line_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
47 EXCEPTION
48 WHEN FND_API.G_EXC_ERROR THEN
49 ROLLBACK TO getparametervalues;
50 x_return_status := FND_API.G_RET_STS_ERROR;
51
52 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
53 ,p_count => x_msg_count
54 ,p_data => x_msg_data);
55
56 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
57 ROLLBACK TO getparametervalues;
58 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
59 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
60 ,p_count => x_msg_count
61 ,p_data => x_msg_data);
62
63 WHEN OTHERS THEN
64 FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, l_api_name);
65 -- store SQL error message on message stack for caller
66 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
67 ,p_count => x_msg_count
68 ,p_data => x_msg_data);
69 -- notify caller of an UNEXPECTED error
70 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
71 END EVA_GetParameterValues;
72
73 PROCEDURE EVA_GetFunctionValue(p_api_version IN NUMBER
74 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
75 ,x_return_status OUT NOCOPY VARCHAR2
76 ,x_msg_count OUT NOCOPY NUMBER
77 ,x_msg_data OUT NOCOPY VARCHAR2
78 ,p_fma_id IN okl_formulae_v.id%TYPE
79 ,p_contract_id IN okl_k_headers_v.id%TYPE
80 ,p_line_id IN okl_k_lines_v.id%TYPE
81 ,p_ctx_parameter_tbl IN ctxparameter_tbl
82 ,x_function_tbl OUT NOCOPY function_tbl
83 ) IS
84 l_count NUMBER;
85 l_data VARCHAR2(100);
86 l_api_name CONSTANT VARCHAR2(30) := 'eva_getfunctionvalue';
87 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
88 BEGIN
89 x_return_status := FND_API.G_RET_STS_SUCCESS;
90 SAVEPOINT getfunctionvalue;
91 okl_formulaevaluate_pvt.EVA_GetFunctionValue(p_api_version => p_api_version
92 ,p_init_msg_list => p_init_msg_list
93 ,x_return_status => l_return_status
94 ,x_msg_count => x_msg_count
95 ,x_msg_data => x_msg_data
96 ,p_fma_id => p_fma_id
97 ,p_contract_id => p_contract_id
98 ,p_line_id => p_line_id
99 ,p_ctx_parameter_tbl => p_ctx_parameter_tbl
100 ,x_function_tbl => x_function_tbl);
101
102 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
103 RAISE FND_API.G_EXC_ERROR;
104 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
105 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
106 END IF;
107
108
109 EXCEPTION
110 WHEN FND_API.G_EXC_ERROR THEN
111 ROLLBACK TO getfunctionvalue;
112 x_return_status := FND_API.G_RET_STS_ERROR;
113
114 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
115 ,p_count => x_msg_count
116 ,p_data => x_msg_data);
117
118 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
119 ROLLBACK TO getfunctionvalue;
120 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
121 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
122 ,p_count => x_msg_count
123 ,p_data => x_msg_data);
124
125 WHEN OTHERS THEN
126 FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME,l_api_name);
127 -- store SQL error message on message stack for caller
128 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
129 ,p_count => x_msg_count
130 ,p_data => x_msg_data);
131 -- notify caller of an UNEXPECTED error
132 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
133 END EVA_GetFunctionValue;
134
135 END OKL_FORMULAEVALUATE_PUB;