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:
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:
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;
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:
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:
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:
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
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);
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
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:
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;