161:
162: -- Check for exceptions
163: IF l_rca_id = NULL THEN
164:
165: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
167:
168: END IF;
169:
162: -- Check for exceptions
163: IF l_rca_id = NULL THEN
164:
165: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
167:
168: END IF;
169:
170: OPEN c_get_strm_dtls(l_rca_id);
186: -- clear up external receipt lines
187: DELETE FROM OKL_XTL_CSH_APPS_B
188: WHERE XCR_ID_DETAILS = l_xcr_id_details;
189:
190: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
191:
192: ELSE
193:
194: -- get internal lines id to obtain fixed values l_rct_id_details, cnr_id and khr_id.
202:
203: -- Check for exceptions
204: IF l_rca_id = NULL THEN
205:
206: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
208:
209: END IF;
210:
203: -- Check for exceptions
204: IF l_rca_id = NULL THEN
205:
206: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
208:
209: END IF;
210:
211: OPEN c_get_strm_dtls(l_rca_id);
213: CLOSE c_get_strm_dtls;
214:
215: -- Check for exceptions
216: IF l_rct_id_details = NULL THEN
217: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
219: END IF;
220:
221: OPEN c_get_rcpt_info(l_rct_id_details);
214:
215: -- Check for exceptions
216: IF l_rct_id_details = NULL THEN
217: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
219: END IF;
220:
221: OPEN c_get_rcpt_info(l_rct_id_details);
222: FETCH c_get_rcpt_info INTO l_rcpt_currency_code -- receipt currency
226: CLOSE c_get_rcpt_info;
227:
228: -- Check for exceptions
229: IF l_rcpt_currency_code = NULL THEN
230: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
231: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
232: END IF;
233:
234:
227:
228: -- Check for exceptions
229: IF l_rcpt_currency_code = NULL THEN
230: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
231: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
232: END IF;
233:
234:
235: -- check applied amount < = the receipt amount ...
274: ,l_rcav_tbl
275: );
276:
277: x_return_status := l_return_status;
278: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
281: RAISE OKL_API.G_EXCEPTION_ERROR;
282: END IF;
275: );
276:
277: x_return_status := l_return_status;
278: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
281: RAISE OKL_API.G_EXCEPTION_ERROR;
282: END IF;
283:
276:
277: x_return_status := l_return_status;
278: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
281: RAISE OKL_API.G_EXCEPTION_ERROR;
282: END IF;
283:
284: -- prepare new internal transaction records
277: x_return_status := l_return_status;
278: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
281: RAISE OKL_API.G_EXCEPTION_ERROR;
282: END IF;
283:
284: -- prepare new internal transaction records
285:
318: ,x_rcav_tbl
319: );
320:
321: x_return_status := l_return_status;
322: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
324: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
325: RAISE OKL_API.G_EXCEPTION_ERROR;
326: END IF;
319: );
320:
321: x_return_status := l_return_status;
322: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
324: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
325: RAISE OKL_API.G_EXCEPTION_ERROR;
326: END IF;
327:
320:
321: x_return_status := l_return_status;
322: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
324: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
325: RAISE OKL_API.G_EXCEPTION_ERROR;
326: END IF;
327:
328: -- update external transaction records
321: x_return_status := l_return_status;
322: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
324: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
325: RAISE OKL_API.G_EXCEPTION_ERROR;
326: END IF;
327:
328: -- update external transaction records
329:
379: ,x_xcav_tbl
380: );
381:
382: x_return_status := l_return_status;
383: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
385: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
386: RAISE OKL_API.G_EXCEPTION_ERROR;
387: END IF;
380: );
381:
382: x_return_status := l_return_status;
383: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
385: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
386: RAISE OKL_API.G_EXCEPTION_ERROR;
387: END IF;
388:
381:
382: x_return_status := l_return_status;
383: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
385: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
386: RAISE OKL_API.G_EXCEPTION_ERROR;
387: END IF;
388:
389: -- prepare to call receipt_api.
382: x_return_status := l_return_status;
383: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
385: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
386: RAISE OKL_API.G_EXCEPTION_ERROR;
387: END IF;
388:
389: -- prepare to call receipt_api.
390:
443: x_return_status := l_return_status;
444: x_msg_data := l_msg_data;
445: x_msg_count := l_msg_count;
446:
447: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
449: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
450: RAISE OKL_API.G_EXCEPTION_ERROR;
451: END IF;
444: x_msg_data := l_msg_data;
445: x_msg_count := l_msg_count;
446:
447: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
449: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
450: RAISE OKL_API.G_EXCEPTION_ERROR;
451: END IF;
452:
445: x_msg_count := l_msg_count;
446:
447: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
449: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
450: RAISE OKL_API.G_EXCEPTION_ERROR;
451: END IF;
452:
453: -- UPDATE EXT HEADER WITH CASH RECEIPT ID
446:
447: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
449: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
450: RAISE OKL_API.G_EXCEPTION_ERROR;
451: END IF;
452:
453: -- UPDATE EXT HEADER WITH CASH RECEIPT ID
454:
466: x_return_status := l_return_status;
467: x_msg_data := l_msg_data;
468: x_msg_count := l_msg_count;
469:
470: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
472: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
473: RAISE OKL_API.G_EXCEPTION_ERROR;
474: END IF;
467: x_msg_data := l_msg_data;
468: x_msg_count := l_msg_count;
469:
470: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
472: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
473: RAISE OKL_API.G_EXCEPTION_ERROR;
474: END IF;
475:
468: x_msg_count := l_msg_count;
469:
470: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
472: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
473: RAISE OKL_API.G_EXCEPTION_ERROR;
474: END IF;
475:
476:
469:
470: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
472: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
473: RAISE OKL_API.G_EXCEPTION_ERROR;
474: END IF;
475:
476:
477: END IF;
507:
508: WHEN OTHERS THEN
509: NULL;
510: /*
511: Okl_api.set_message( p_app_name => g_app_name
512: , p_msg_name => g_unexpected_error
513: , p_token1 => g_sqlcode_token
514: , p_token1_value => SQLCODE
515: , p_token2 => g_sqlerrm_token