26: l_source_id NUMBER;
27:
28: BEGIN
29: SAVEPOINT CALC_INTEREST_ACTIVATE;
30: x_return_status := FND_API.G_RET_STS_SUCCESS;
31: -- customer pre-processing
32: -- Execute the Main Procedure
33: -- Start of wraper code generated automatically by Debug code generator for OKL_INTEREST_CALC_PVT.CALC_INTEREST_ACTIVATE
34: IF(L_DEBUG_ENABLED='Y') THEN
56: END IF;
57: -- End of wraper code generated automatically by Debug code generator for OKL_INTEREST_CALC_PVT.CALC_INTEREST_ACTIVATE
58:
59: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
60: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
61: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
62: RAISE FND_API.G_EXC_ERROR;
63: END IF;
64:
58:
59: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
60: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
61: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
62: RAISE FND_API.G_EXC_ERROR;
63: END IF;
64:
65: l_amount := x_amount;
66: l_source_id := x_source_id;
66: l_source_id := x_source_id;
67:
68:
69: EXCEPTION
70: WHEN FND_API.G_EXC_ERROR THEN
71: ROLLBACK TO CALC_INTEREST_ACTIVATE;
72: x_return_status := FND_API.G_RET_STS_ERROR;
73: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
74: ,p_count => x_msg_count
68:
69: EXCEPTION
70: WHEN FND_API.G_EXC_ERROR THEN
71: ROLLBACK TO CALC_INTEREST_ACTIVATE;
72: x_return_status := FND_API.G_RET_STS_ERROR;
73: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
74: ,p_count => x_msg_count
75: ,p_data => x_msg_data);
76: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
72: x_return_status := FND_API.G_RET_STS_ERROR;
73: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
74: ,p_count => x_msg_count
75: ,p_data => x_msg_data);
76: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
77: ROLLBACK TO CALC_INTEREST_ACTIVATE;
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
79: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
80: ,p_count => x_msg_count
74: ,p_count => x_msg_count
75: ,p_data => x_msg_data);
76: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
77: ROLLBACK TO CALC_INTEREST_ACTIVATE;
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
79: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
80: ,p_count => x_msg_count
81: ,p_data => x_msg_data);
82: WHEN OTHERS THEN
83: FND_MSG_PUB.ADD_EXC_MSG('OKL_INTEREST_CALC_PUB','CALC_INTEREST_ACTIVATE');
84: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
85: ,p_count => x_msg_count
86: ,p_data => x_msg_data);
87: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
88:
89: END CALC_INTEREST_ACTIVATE;
90:
91:
106:
107: BEGIN
108:
109: SAVEPOINT SUBMIT_CALCULATE_INTEREST;
110: l_return_status := FND_API.G_RET_STS_SUCCESS;
111: -- customer pre-processing
112:
113: -- Execute the Main Procedure
114: -- Start of wraper code generated automatically by Debug code generator for l_request_id := OKL_INTEREST_CALC_PVT.SUBMIT_CALCULATE_INTEREST
135: END IF;
136: -- End of wraper code generated automatically by Debug code generator for l_request_id := OKL_INTEREST_CALC_PVT.SUBMIT_CALCULATE_INTEREST
137:
138: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
139: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
140: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
141: RAISE FND_API.G_EXC_ERROR;
142: END IF;
143: RETURN l_request_id;
137:
138: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
139: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
140: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
141: RAISE FND_API.G_EXC_ERROR;
142: END IF;
143: RETURN l_request_id;
144: EXCEPTION
145: WHEN FND_API.G_EXC_ERROR THEN
141: RAISE FND_API.G_EXC_ERROR;
142: END IF;
143: RETURN l_request_id;
144: EXCEPTION
145: WHEN FND_API.G_EXC_ERROR THEN
146: ROLLBACK TO SUBMIT_CALCULATE_INTEREST;
147: x_return_status := FND_API.G_RET_STS_ERROR;
148: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
149: ,p_count => x_msg_count
143: RETURN l_request_id;
144: EXCEPTION
145: WHEN FND_API.G_EXC_ERROR THEN
146: ROLLBACK TO SUBMIT_CALCULATE_INTEREST;
147: x_return_status := FND_API.G_RET_STS_ERROR;
148: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
149: ,p_count => x_msg_count
150: ,p_data => x_msg_data);
151: RETURN l_request_id;
148: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
149: ,p_count => x_msg_count
150: ,p_data => x_msg_data);
151: RETURN l_request_id;
152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153: ROLLBACK TO SUBMIT_CALCULATE_INTEREST;
154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
155: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
156: ,p_count => x_msg_count
150: ,p_data => x_msg_data);
151: RETURN l_request_id;
152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153: ROLLBACK TO SUBMIT_CALCULATE_INTEREST;
154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
155: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
156: ,p_count => x_msg_count
157: ,p_data => x_msg_data);
158: RETURN l_request_id;
157: ,p_data => x_msg_data);
158: RETURN l_request_id;
159: WHEN OTHERS THEN
160: FND_MSG_PUB.ADD_EXC_MSG('OKL_INTEREST_CALC_PUB','CALC_INTEREST_ACTIVATE');
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
162: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
163: ,p_count => x_msg_count
164: ,p_data => x_msg_data);
165: RETURN l_request_id;