18: BEGIN
19:
20: SAVEPOINT SUBMIT_DEPR_ADJUSTMENT;
21:
22: x_return_status := FND_API.G_RET_STS_SUCCESS;
23:
24: -- Execute the Main Procedure
25:
26: x_request_id := OKL_ACCRUAL_DEPRN_ADJ_PVT.SUBMIT_DEPRN_ADJUSTMENT(
33: p_date_to => p_date_to);
34:
35:
36:
37: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
38: RAISE FND_API.G_EXC_ERROR;
39: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
40: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41: END IF;
34:
35:
36:
37: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
38: RAISE FND_API.G_EXC_ERROR;
39: ELSIF x_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 x_return_status = FND_API.G_RET_STS_ERROR THEN
38: RAISE FND_API.G_EXC_ERROR;
39: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
40: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41: END IF;
42:
43: RETURN x_request_id;
36:
37: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
38: RAISE FND_API.G_EXC_ERROR;
39: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
40: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41: END IF;
42:
43: RETURN x_request_id;
44:
43: RETURN x_request_id;
44:
45: EXCEPTION
46:
47: WHEN FND_API.G_EXC_ERROR THEN
48: ROLLBACK TO SUBMIT_DEPR_ADJUSTMENT;
49: x_return_status := FND_API.G_RET_STS_ERROR;
50:
51: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
45: EXCEPTION
46:
47: WHEN FND_API.G_EXC_ERROR THEN
48: ROLLBACK TO SUBMIT_DEPR_ADJUSTMENT;
49: x_return_status := FND_API.G_RET_STS_ERROR;
50:
51: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
52: ,p_count => x_msg_count
53: ,p_data => x_msg_data);
51: FND_MSG_PUB.Count_and_get(p_encoded => OKL_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 SUBMIT_DEPR_ADJUSTMENT;
57: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
58: FND_MSG_PUB.Count_and_get(p_encoded => OKL_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 SUBMIT_DEPR_ADJUSTMENT;
57: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
58: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
59: ,p_count => x_msg_count
60: ,p_data => x_msg_data);
61:
64: FND_MSG_PUB.ADD_EXC_MSG('OKL_ACCRUAL_DEPRN_ADJ_PUB','SUBMIT_DEPR_ADJUSTMENT');
65: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
66: ,p_count => x_msg_count
67: ,p_data => x_msg_data);
68: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
69:
70: END SUBMIT_DEPRN_ADJUSTMENT;
71:
72: END OKL_ACCRUAL_DEPRN_ADJ_PUB;