64: l_default_rule OKL_CASH_ALLCTN_RLS.DEFAULT_RULE%TYPE;
65:
66: BEGIN
67:
68: l_return_status := OKL_API.START_ACTIVITY(l_api_name
69: ,G_PKG_NAME
70: ,p_init_msg_list
71: ,l_api_version
72: ,p_api_version
72: ,p_api_version
73: ,'_PVT'
74: ,l_return_status);
75:
76: IF (l_return_status = OKL_API.g_ret_sts_unexp_error) THEN
77: RAISE OKL_API.g_exception_unexpected_error;
78: ELSIF (l_return_Status = OKL_API.g_ret_sts_error) THEN
79: RAISE OKL_API.g_exception_error;
80: END IF;
73: ,'_PVT'
74: ,l_return_status);
75:
76: IF (l_return_status = OKL_API.g_ret_sts_unexp_error) THEN
77: RAISE OKL_API.g_exception_unexpected_error;
78: ELSIF (l_return_Status = OKL_API.g_ret_sts_error) THEN
79: RAISE OKL_API.g_exception_error;
80: END IF;
81:
74: ,l_return_status);
75:
76: IF (l_return_status = OKL_API.g_ret_sts_unexp_error) THEN
77: RAISE OKL_API.g_exception_unexpected_error;
78: ELSIF (l_return_Status = OKL_API.g_ret_sts_error) THEN
79: RAISE OKL_API.g_exception_error;
80: END IF;
81:
82:
75:
76: IF (l_return_status = OKL_API.g_ret_sts_unexp_error) THEN
77: RAISE OKL_API.g_exception_unexpected_error;
78: ELSIF (l_return_Status = OKL_API.g_ret_sts_error) THEN
79: RAISE OKL_API.g_exception_error;
80: END IF;
81:
82:
83: l_cash_rl_tbl := p_cash_rl_tbl;
125: ,p_catv_rec => l_catv_rec
126: ,x_catv_rec => x_catv_rec
127: );
128:
129: IF (l_return_status = OKL_API.g_ret_sts_unexp_error) THEN
130: RAISE OKL_API.g_exception_unexpected_error;
131: ELSIF (l_return_Status = OKL_API.g_ret_sts_error) THEN
132: RAISE OKL_API.g_exception_error;
133: END IF;
126: ,x_catv_rec => x_catv_rec
127: );
128:
129: IF (l_return_status = OKL_API.g_ret_sts_unexp_error) THEN
130: RAISE OKL_API.g_exception_unexpected_error;
131: ELSIF (l_return_Status = OKL_API.g_ret_sts_error) THEN
132: RAISE OKL_API.g_exception_error;
133: END IF;
134: ELSE
127: );
128:
129: IF (l_return_status = OKL_API.g_ret_sts_unexp_error) THEN
130: RAISE OKL_API.g_exception_unexpected_error;
131: ELSIF (l_return_Status = OKL_API.g_ret_sts_error) THEN
132: RAISE OKL_API.g_exception_error;
133: END IF;
134: ELSE
135:
128:
129: IF (l_return_status = OKL_API.g_ret_sts_unexp_error) THEN
130: RAISE OKL_API.g_exception_unexpected_error;
131: ELSIF (l_return_Status = OKL_API.g_ret_sts_error) THEN
132: RAISE OKL_API.g_exception_error;
133: END IF;
134: ELSE
135:
136: -- Cash application rule NAME has one or more future versions. Please delete these first.
169: ,p_catv_tbl => l_catv_tbl
170: ,x_catv_tbl => l_catv_tbl
171: );
172:
173: IF (l_return_status = OKL_API.g_ret_sts_unexp_error) THEN
174: RAISE OKL_API.g_exception_unexpected_error;
175: ELSIF (l_return_Status = OKL_API.g_ret_sts_error) THEN
176: RAISE OKL_API.g_exception_error;
177: END IF;
170: ,x_catv_tbl => l_catv_tbl
171: );
172:
173: IF (l_return_status = OKL_API.g_ret_sts_unexp_error) THEN
174: RAISE OKL_API.g_exception_unexpected_error;
175: ELSIF (l_return_Status = OKL_API.g_ret_sts_error) THEN
176: RAISE OKL_API.g_exception_error;
177: END IF;
178:
171: );
172:
173: IF (l_return_status = OKL_API.g_ret_sts_unexp_error) THEN
174: RAISE OKL_API.g_exception_unexpected_error;
175: ELSIF (l_return_Status = OKL_API.g_ret_sts_error) THEN
176: RAISE OKL_API.g_exception_error;
177: END IF;
178:
179: END IF;
172:
173: IF (l_return_status = OKL_API.g_ret_sts_unexp_error) THEN
174: RAISE OKL_API.g_exception_unexpected_error;
175: ELSIF (l_return_Status = OKL_API.g_ret_sts_error) THEN
176: RAISE OKL_API.g_exception_error;
177: END IF;
178:
179: END IF;
180: */
182: x_return_status := l_return_status;
183: x_msg_data := l_msg_data;
184: x_msg_count := l_msg_count;
185:
186: OKL_API.end_activity(x_msg_count, x_msg_data);
187:
188: EXCEPTION
189:
190: WHEN G_EXCEPTION_HALT_VALIDATION THEN
187:
188: EXCEPTION
189:
190: WHEN G_EXCEPTION_HALT_VALIDATION THEN
191: x_return_status := OKL_API.G_RET_STS_ERROR;
192: x_return_status := OKL_API.HANDLE_EXCEPTIONS
193: (
194: l_api_name,
195: G_PKG_NAME,
188: EXCEPTION
189:
190: WHEN G_EXCEPTION_HALT_VALIDATION THEN
191: x_return_status := OKL_API.G_RET_STS_ERROR;
192: x_return_status := OKL_API.HANDLE_EXCEPTIONS
193: (
194: l_api_name,
195: G_PKG_NAME,
196: 'OKL_API.G_RET_STS_ERROR',
192: x_return_status := OKL_API.HANDLE_EXCEPTIONS
193: (
194: l_api_name,
195: G_PKG_NAME,
196: 'OKL_API.G_RET_STS_ERROR',
197: x_msg_count,
198: x_msg_data,
199: '_PVT'
200: );
199: '_PVT'
200: );
201:
202:
203: WHEN OKL_API.g_exception_error THEN
204: x_return_status := OKL_API.HANDLE_EXCEPTIONS
205: (
206: l_api_name,
207: G_PKG_NAME,
200: );
201:
202:
203: WHEN OKL_API.g_exception_error THEN
204: x_return_status := OKL_API.HANDLE_EXCEPTIONS
205: (
206: l_api_name,
207: G_PKG_NAME,
208: 'OKL_API.G_RET_STS_ERROR',
204: x_return_status := OKL_API.HANDLE_EXCEPTIONS
205: (
206: l_api_name,
207: G_PKG_NAME,
208: 'OKL_API.G_RET_STS_ERROR',
209: x_msg_count,
210: x_msg_data,
211: '_PVT'
212: );
210: x_msg_data,
211: '_PVT'
212: );
213:
214: WHEN OKL_API.g_exception_unexpected_error THEN
215: x_return_status := OKL_API.HANDLE_EXCEPTIONS
216: (
217: l_api_name,
218: G_PKG_NAME,
211: '_PVT'
212: );
213:
214: WHEN OKL_API.g_exception_unexpected_error THEN
215: x_return_status := OKL_API.HANDLE_EXCEPTIONS
216: (
217: l_api_name,
218: G_PKG_NAME,
219: 'OKL_API.G_RET_STS_ERROR',
215: x_return_status := OKL_API.HANDLE_EXCEPTIONS
216: (
217: l_api_name,
218: G_PKG_NAME,
219: 'OKL_API.G_RET_STS_ERROR',
220: x_msg_count,
221: x_msg_data,
222: '_PVT'
223: );
222: '_PVT'
223: );
224:
225: WHEN OTHERS THEN
226: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
227: OKL_API.set_message( p_app_name => g_app_name
228: , p_msg_name => g_unexpected_error
229: , p_token1 => g_sqlcode_token
230: , p_token1_value => SQLCODE
223: );
224:
225: WHEN OTHERS THEN
226: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
227: OKL_API.set_message( p_app_name => g_app_name
228: , p_msg_name => g_unexpected_error
229: , p_token1 => g_sqlcode_token
230: , p_token1_value => SQLCODE
231: , p_token2 => g_sqlerrm_token