14: ) IS
15: l_msg_count NUMBER;
16: l_msg_data VARCHAR2(100);
17: l_api_name CONSTANT VARCHAR2(30) := 'EXECUTE';
18: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
19: l_formula_id okl_formulae_v.id%TYPE;
20: l_formula_string okl_formulae_v.formula_string%TYPE;
21: l_formula_name okl_formulae_v.name%TYPE;
22: l_contract_id okl_k_headers_v.id%TYPE;
24: l_additional_parameters ctxt_val_tbl_type;
25: l_value NUMBER;
26: l_init_msg_list VARCHAR2(2) := 'T'; -- SGORANTL
27: BEGIN
28: x_return_status := FND_API.G_RET_STS_SUCCESS;
29:
30: SAVEPOINT execute;
31: -- SGORANTL changed start
32: IF NVL(p_init_msg_list,'F') = 'T' THEN
56: ,p_additional_parameters => l_additional_parameters
57: ,x_value => l_value
58: );
59:
60: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
61: RAISE FND_API.G_EXC_ERROR;
62: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
63: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
64: END IF;
57: ,x_value => l_value
58: );
59:
60: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
61: RAISE FND_API.G_EXC_ERROR;
62: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
63: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
64: END IF;
65: x_value := l_value;
58: );
59:
60: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
61: RAISE FND_API.G_EXC_ERROR;
62: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
63: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
64: END IF;
65: x_value := l_value;
66: EXCEPTION
59:
60: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
61: RAISE FND_API.G_EXC_ERROR;
62: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
63: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
64: END IF;
65: x_value := l_value;
66: EXCEPTION
67: WHEN FND_API.G_EXC_ERROR THEN
63: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
64: END IF;
65: x_value := l_value;
66: EXCEPTION
67: WHEN FND_API.G_EXC_ERROR THEN
68: ROLLBACK TO execute;
69: x_return_status := FND_API.G_RET_STS_ERROR;
70:
71: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
65: x_value := l_value;
66: EXCEPTION
67: WHEN FND_API.G_EXC_ERROR THEN
68: ROLLBACK TO execute;
69: x_return_status := FND_API.G_RET_STS_ERROR;
70:
71: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
72: ,p_count => x_msg_count
73: ,p_data => x_msg_data);
71: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
72: ,p_count => x_msg_count
73: ,p_data => x_msg_data);
74:
75: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
76: ROLLBACK TO execute;
77: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
79: ,p_count => x_msg_count
73: ,p_data => x_msg_data);
74:
75: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
76: ROLLBACK TO execute;
77: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
79: ,p_count => x_msg_count
80: ,p_data => x_msg_data);
81: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
79: ,p_count => x_msg_count
80: ,p_data => x_msg_data);
81: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
82: ROLLBACK TO execute;
83: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
84: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
85: ,p_count => x_msg_count
86: ,p_data => x_msg_data);
87: WHEN OTHERS THEN
90: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
91: ,p_count => x_msg_count
92: ,p_data => x_msg_data);
93: -- notify caller of an UNEXPECTED error
94: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
95: END execute;
96:
97: PROCEDURE execute(p_api_version IN NUMBER
98: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
108: ) IS
109: l_msg_count NUMBER;
110: l_msg_data VARCHAR2(100);
111: l_api_name CONSTANT VARCHAR2(30) := 'EXECUTE';
112: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
113: l_formula_id okl_formulae_v.id%TYPE;
114: l_formula_string okl_formulae_v.formula_string%TYPE;
115: l_formula_name okl_formulae_v.name%TYPE;
116: l_contract_id okl_k_headers_v.id%TYPE;
119: l_additional_parameters ctxt_val_tbl_type;
120: l_value NUMBER;
121: l_init_msg_list VARCHAR2(2) := 'T'; -- SGORANTL
122: BEGIN
123: x_return_status := FND_API.G_RET_STS_SUCCESS;
124: SAVEPOINT execute;
125:
126: -- SGORANTL changed start
127: IF NVL(p_init_msg_list,'F') = 'T' THEN
150: ,x_operand_val_tbl => l_operand_val_tbl
151: ,x_value => l_value
152: );
153:
154: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158: END IF;
151: ,x_value => l_value
152: );
153:
154: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158: END IF;
159:
152: );
153:
154: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158: END IF;
159:
160:
153:
154: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158: END IF;
159:
160:
161: x_value := l_value;
162: x_operand_val_tbl := l_operand_val_tbl;
163:
164:
165: EXCEPTION
166: WHEN FND_API.G_EXC_ERROR THEN
167: ROLLBACK TO execute;
168: x_return_status := FND_API.G_RET_STS_ERROR;
169:
170: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
164:
165: EXCEPTION
166: WHEN FND_API.G_EXC_ERROR THEN
167: ROLLBACK TO execute;
168: x_return_status := FND_API.G_RET_STS_ERROR;
169:
170: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
171: ,p_count => x_msg_count
172: ,p_data => x_msg_data);
170: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
171: ,p_count => x_msg_count
172: ,p_data => x_msg_data);
173:
174: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
175: ROLLBACK TO execute;
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
178: ,p_count => x_msg_count
172: ,p_data => x_msg_data);
173:
174: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
175: ROLLBACK TO execute;
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
178: ,p_count => x_msg_count
179: ,p_data => x_msg_data);
180:
184: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
185: ,p_count => x_msg_count
186: ,p_data => x_msg_data);
187: -- notify caller of an UNEXPECTED error
188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
189: END execute;
190:
191: END OKL_EXECUTE_FORMULA_PUB;