12: FND_FILE.PUT_LINE (FND_FILE.LOG, p_message);
13: END;
14:
15: PROCEDURE migrate_Applications ( p_api_version IN NUMBER
16: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE
17: ,x_return_status OUT NOCOPY VARCHAR2
18: ,x_msg_count OUT NOCOPY NUMBER
19: ,x_msg_data OUT NOCOPY VARCHAR2
20: ,p_receipt_id IN AR_CASH_RECEIPTS_ALL.CASH_RECEIPT_ID%TYPE DEFAULT NULL
26: -- DECLARE Local Variables
27: ---------------------------
28:
29: l_api_version NUMBER := 1.0;
30: l_init_msg_list VARCHAR2(1) := okl_api.g_false;
31: l_return_status VARCHAR2(1);
32: l_msg_count NUMBER;
33: l_msg_data VARCHAR2(2000);
34: l_api_name CONSTANT VARCHAR2(30) := 'migrate_Applications';
67: FROM okl_Receipt_Applications_uv
68: WHERE cash_receipt_id = cp_csh_rcpt_id;
69:
70: BEGIN
71: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
72:
73: l_return_status := Okl_Api.START_ACTIVITY(
74: p_api_name => l_api_name,
75: p_pkg_name => G_PKG_NAME,
69:
70: BEGIN
71: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
72:
73: l_return_status := Okl_Api.START_ACTIVITY(
74: p_api_name => l_api_name,
75: p_pkg_name => G_PKG_NAME,
76: p_init_msg_list => p_init_msg_list,
77: l_api_version => l_api_version,
78: p_api_version => p_api_version,
79: p_api_type => '_PVT',
80: x_return_status => l_return_status);
81:
82: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
83: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
84: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
85: RAISE Okl_Api.G_EXCEPTION_ERROR;
86: END IF;
79: p_api_type => '_PVT',
80: x_return_status => l_return_status);
81:
82: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
83: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
84: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
85: RAISE Okl_Api.G_EXCEPTION_ERROR;
86: END IF;
87:
80: x_return_status => l_return_status);
81:
82: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
83: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
84: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
85: RAISE Okl_Api.G_EXCEPTION_ERROR;
86: END IF;
87:
88: l_new_appl_tbl := p_appl_tbl;
81:
82: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
83: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
84: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
85: RAISE Okl_Api.G_EXCEPTION_ERROR;
86: END IF;
87:
88: l_new_appl_tbl := p_appl_tbl;
89: i := 0;
142: END IF;
143: END IF;
144:
145: x_appl_tbl := l_appl_tbl;
146: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
147:
148: Okl_Api.END_ACTIVITY ( x_msg_count => x_msg_count,
149: x_msg_data => x_msg_data);
150:
144:
145: x_appl_tbl := l_appl_tbl;
146: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
147:
148: Okl_Api.END_ACTIVITY ( x_msg_count => x_msg_count,
149: x_msg_data => x_msg_data);
150:
151:
152: EXCEPTION
151:
152: EXCEPTION
153:
154: WHEN G_EXCEPTION_HALT_VALIDATION THEN
155: x_return_status := Okl_Api.G_RET_STS_ERROR;
156:
157:
158: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
159: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
154: WHEN G_EXCEPTION_HALT_VALIDATION THEN
155: x_return_status := Okl_Api.G_RET_STS_ERROR;
156:
157:
158: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
159: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
160: (
161: l_api_name,
162: G_PKG_NAME,
155: x_return_status := Okl_Api.G_RET_STS_ERROR;
156:
157:
158: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
159: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
160: (
161: l_api_name,
162: G_PKG_NAME,
163: Okl_Api.G_RET_STS_ERROR,
159: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
160: (
161: l_api_name,
162: G_PKG_NAME,
163: Okl_Api.G_RET_STS_ERROR,
164: x_msg_count,
165: x_msg_data,
166: '_PVT'
167: );
166: '_PVT'
167: );
168:
169: WHEN OTHERS THEN
170: x_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
171: Okl_api.set_message( p_app_name => g_app_name
172: , p_msg_name => g_unexpected_error
173: , p_token1 => g_sqlcode_token
174: , p_token1_value => SQLCODE
167: );
168:
169: WHEN OTHERS THEN
170: x_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
171: Okl_api.set_message( p_app_name => g_app_name
172: , p_msg_name => g_unexpected_error
173: , p_token1 => g_sqlcode_token
174: , p_token1_value => SQLCODE
175: , p_token2 => g_sqlerrm_token
182: -- This routine handles receivables interaction.
183: ---------------------------------------------------------------------------
184:
185: PROCEDURE process_advance_receipt ( p_api_version IN NUMBER
186: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE
187: ,x_return_status OUT NOCOPY VARCHAR2
188: ,x_msg_count OUT NOCOPY NUMBER
189: ,x_msg_data OUT NOCOPY VARCHAR2
190: ,p_receipt_id IN AR_CASH_RECEIPTS_ALL.CASH_RECEIPT_ID%TYPE DEFAULT NULL
197: -- DECLARE Local Variables
198: ---------------------------
199:
200: l_api_version NUMBER := 1.0;
201: l_init_msg_list VARCHAR2(1) := okl_api.g_false;
202: l_return_status VARCHAR2(1);
203: l_msg_count NUMBER;
204: l_msg_data VARCHAR2(2000);
205: l_api_name CONSTANT VARCHAR2(30) := 'process_advance_receipt';
239:
240:
241: BEGIN
242: log_file('process_advance_receipt start');
243: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
244:
245: l_return_status := Okl_Api.START_ACTIVITY(
246: p_api_name => l_api_name,
247: p_pkg_name => G_PKG_NAME,
241: BEGIN
242: log_file('process_advance_receipt start');
243: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
244:
245: l_return_status := Okl_Api.START_ACTIVITY(
246: p_api_name => l_api_name,
247: p_pkg_name => G_PKG_NAME,
248: p_init_msg_list => p_init_msg_list,
249: l_api_version => l_api_version,
250: p_api_version => p_api_version,
251: p_api_type => '_PVT',
252: x_return_status => l_return_status);
253:
254: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
255: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
256: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
257: RAISE Okl_Api.G_EXCEPTION_ERROR;
258: END IF;
251: p_api_type => '_PVT',
252: x_return_status => l_return_status);
253:
254: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
255: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
256: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
257: RAISE Okl_Api.G_EXCEPTION_ERROR;
258: END IF;
259:
252: x_return_status => l_return_status);
253:
254: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
255: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
256: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
257: RAISE Okl_Api.G_EXCEPTION_ERROR;
258: END IF;
259:
260: l_appl_tbl := p_appl_tbl;
253:
254: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
255: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
256: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
257: RAISE Okl_Api.G_EXCEPTION_ERROR;
258: END IF;
259:
260: l_appl_tbl := p_appl_tbl;
261:
278: ,x_appl_tbl => x_appl_tbl
279: );
280: x_return_status := l_return_status;
281: log_file('x_return_status = '||x_return_status);
282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
285: RAISE OKL_API.G_EXCEPTION_ERROR;
286: END IF;
279: );
280: x_return_status := l_return_status;
281: log_file('x_return_status = '||x_return_status);
282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
285: RAISE OKL_API.G_EXCEPTION_ERROR;
286: END IF;
287: l_appl_tbl := x_appl_tbl;
280: x_return_status := l_return_status;
281: log_file('x_return_status = '||x_return_status);
282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
285: RAISE OKL_API.G_EXCEPTION_ERROR;
286: END IF;
287: l_appl_tbl := x_appl_tbl;
288: log_file('l_appl_tbl.count = '||l_appl_tbl.COUNT);
281: log_file('x_return_status = '||x_return_status);
282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
285: RAISE OKL_API.G_EXCEPTION_ERROR;
286: END IF;
287: l_appl_tbl := x_appl_tbl;
288: log_file('l_appl_tbl.count = '||l_appl_tbl.COUNT);
289: -- unapply on account amount if any
299:
300: log_file('Ar_receipt_api_pub.unapply_on_account return status = '|| l_return_status);
301: x_return_status := l_return_status;
302:
303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
306: RAISE OKL_API.G_EXCEPTION_ERROR;
307: END IF;
300: log_file('Ar_receipt_api_pub.unapply_on_account return status = '|| l_return_status);
301: x_return_status := l_return_status;
302:
303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
306: RAISE OKL_API.G_EXCEPTION_ERROR;
307: END IF;
308: END IF;
301: x_return_status := l_return_status;
302:
303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
306: RAISE OKL_API.G_EXCEPTION_ERROR;
307: END IF;
308: END IF;
309: --apply the receipt
302:
303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
306: RAISE OKL_API.G_EXCEPTION_ERROR;
307: END IF;
308: END IF;
309: --apply the receipt
310: l_rcpt_rec.cash_receipt_id := l_receipt_id;
329: );
330:
331: x_return_status := l_return_status;
332: log_file('okl_receipts_pvt.handle_receipt return status = ' ||x_return_status);
333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
336: RAISE OKL_API.G_EXCEPTION_ERROR;
337: END IF;
330:
331: x_return_status := l_return_status;
332: log_file('okl_receipts_pvt.handle_receipt return status = ' ||x_return_status);
333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
336: RAISE OKL_API.G_EXCEPTION_ERROR;
337: END IF;
338: log_file('*** l_receipt_id = '||l_receipt_id);
331: x_return_status := l_return_status;
332: log_file('okl_receipts_pvt.handle_receipt return status = ' ||x_return_status);
333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
336: RAISE OKL_API.G_EXCEPTION_ERROR;
337: END IF;
338: log_file('*** l_receipt_id = '||l_receipt_id);
339: -- move unapplied amount to on account amount
332: log_file('okl_receipts_pvt.handle_receipt return status = ' ||x_return_status);
333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
336: RAISE OKL_API.G_EXCEPTION_ERROR;
337: END IF;
338: log_file('*** l_receipt_id = '||l_receipt_id);
339: -- move unapplied amount to on account amount
340: OPEN get_unapp_amt(l_receipt_id);
356: );
357:
358: x_return_status := l_return_status;
359:
360: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
362: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_ERROR;
364: END IF;
357:
358: x_return_status := l_return_status;
359:
360: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
362: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_ERROR;
364: END IF;
365: END IF;
358: x_return_status := l_return_status;
359:
360: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
362: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_ERROR;
364: END IF;
365: END IF;
366:
359:
360: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
362: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_ERROR;
364: END IF;
365: END IF;
366:
367: END IF;
365: END IF;
366:
367: END IF;
368:
369: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
370:
371: Okl_Api.END_ACTIVITY ( x_msg_count => x_msg_count,
372: x_msg_data => x_msg_data);
373:
367: END IF;
368:
369: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
370:
371: Okl_Api.END_ACTIVITY ( x_msg_count => x_msg_count,
372: x_msg_data => x_msg_data);
373:
374:
375: EXCEPTION
374:
375: EXCEPTION
376:
377: WHEN G_EXCEPTION_HALT_VALIDATION THEN
378: x_return_status := Okl_Api.G_RET_STS_ERROR;
379:
380:
381: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
382: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
377: WHEN G_EXCEPTION_HALT_VALIDATION THEN
378: x_return_status := Okl_Api.G_RET_STS_ERROR;
379:
380:
381: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
382: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
383: (
384: l_api_name,
385: G_PKG_NAME,
378: x_return_status := Okl_Api.G_RET_STS_ERROR;
379:
380:
381: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
382: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
383: (
384: l_api_name,
385: G_PKG_NAME,
386: Okl_Api.G_RET_STS_ERROR,
382: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
383: (
384: l_api_name,
385: G_PKG_NAME,
386: Okl_Api.G_RET_STS_ERROR,
387: x_msg_count,
388: x_msg_data,
389: '_PVT'
390: );
389: '_PVT'
390: );
391:
392: WHEN OTHERS THEN
393: x_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
394: Okl_api.set_message( p_app_name => g_app_name
395: , p_msg_name => g_unexpected_error
396: , p_token1 => g_sqlcode_token
397: , p_token1_value => SQLCODE
390: );
391:
392: WHEN OTHERS THEN
393: x_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
394: Okl_api.set_message( p_app_name => g_app_name
395: , p_msg_name => g_unexpected_error
396: , p_token1 => g_sqlcode_token
397: , p_token1_value => SQLCODE
398: , p_token2 => g_sqlerrm_token
408: -- receipts for newly booked contract
409: ---------------------------------------------------------------------------
410:
411: PROCEDURE advanced_cash_app ( p_api_version IN NUMBER
412: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE
413: ,x_return_status OUT NOCOPY VARCHAR2
414: ,x_msg_count OUT NOCOPY NUMBER
415: ,x_msg_data OUT NOCOPY VARCHAR2
416: ,p_contract_num IN OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE DEFAULT NULL
424: -- DECLARE Local Variables
425: ---------------------------
426:
427: l_api_version NUMBER := 1.0;
428: l_init_msg_list VARCHAR2(1) := okl_api.g_false;
429: l_return_status VARCHAR2(1);
430: l_msg_count NUMBER;
431: l_msg_data VARCHAR2(2000);
432: l_api_name CONSTANT VARCHAR2(30) := 'advanced_cash_app';
588: ------------------------------------------------------------
589: -- Start processing
590: ------------------------------------------------------------
591:
592: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
593:
594: l_return_status := Okl_Api.START_ACTIVITY(
595: p_api_name => l_api_name,
596: p_pkg_name => G_PKG_NAME,
590: ------------------------------------------------------------
591:
592: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
593:
594: l_return_status := Okl_Api.START_ACTIVITY(
595: p_api_name => l_api_name,
596: p_pkg_name => G_PKG_NAME,
597: p_init_msg_list => p_init_msg_list,
598: l_api_version => l_api_version,
599: p_api_version => p_api_version,
600: p_api_type => '_PVT',
601: x_return_status => l_return_status);
602:
603: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
604: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
605: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
606: RAISE Okl_Api.G_EXCEPTION_ERROR;
607: END IF;
600: p_api_type => '_PVT',
601: x_return_status => l_return_status);
602:
603: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
604: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
605: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
606: RAISE Okl_Api.G_EXCEPTION_ERROR;
607: END IF;
608:
601: x_return_status => l_return_status);
602:
603: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
604: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
605: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
606: RAISE Okl_Api.G_EXCEPTION_ERROR;
607: END IF;
608:
609: --start:| 13-May-2008 cklee --Fixed bug 7036445 |
602:
603: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
604: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
605: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
606: RAISE Okl_Api.G_EXCEPTION_ERROR;
607: END IF;
608:
609: --start:| 13-May-2008 cklee --Fixed bug 7036445 |
610: open c_customer_acc_num (p_customer_num);
708: --following code added by dkagrawa for cross currency
709: IF l_invoice_currency_code <> l_receipt_currency THEN
710: l_exchange_rate_type :=OKL_RECEIPTS_PVT.cross_currency_rate_type(l_org_id);-- FND_PROFILE.value('AR_CROSS_CURRENCY_RATE_TYPE');
711: IF l_exchange_rate_type IS NULL THEN
712: OKL_API.set_message( p_app_name => G_APP_NAME
713: ,p_msg_name => 'OKL_BPD_CONV_TYPE_NOT_FOUND'
714: );
715: RAISE G_EXCEPTION_HALT_VALIDATION;
716: ELSE
720: ,l_exchange_rate_type
721: );
722: IF l_conversion_rate IN (0,-1) THEN
723: -- Message Text: No exchange rate defined
724: x_return_status := okl_api.G_RET_STS_ERROR;
725: okl_api.set_message( p_app_name => G_APP_NAME,
726: p_msg_name => 'OKL_BPD_NO_EXCHANGE_RATE');
727: RAISE G_EXCEPTION_HALT_VALIDATION;
728: END IF;
721: );
722: IF l_conversion_rate IN (0,-1) THEN
723: -- Message Text: No exchange rate defined
724: x_return_status := okl_api.G_RET_STS_ERROR;
725: okl_api.set_message( p_app_name => G_APP_NAME,
726: p_msg_name => 'OKL_BPD_NO_EXCHANGE_RATE');
727: RAISE G_EXCEPTION_HALT_VALIDATION;
728: END IF;
729: END IF;
795: END IF;
796:
797: x_return_status := l_return_status;
798:
799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
802: RAISE OKL_API.G_EXCEPTION_ERROR;
803: END IF;
796:
797: x_return_status := l_return_status;
798:
799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
802: RAISE OKL_API.G_EXCEPTION_ERROR;
803: END IF;
804: log_file(' l_remain_rcpt_amount = '||l_remain_rcpt_amount);
797: x_return_status := l_return_status;
798:
799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
802: RAISE OKL_API.G_EXCEPTION_ERROR;
803: END IF;
804: log_file(' l_remain_rcpt_amount = '||l_remain_rcpt_amount);
805: IF l_remain_rcpt_amount <> l_actual_remittance_amount THEN -- application took place, move to next contract ...
798:
799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
802: RAISE OKL_API.G_EXCEPTION_ERROR;
803: END IF;
804: log_file(' l_remain_rcpt_amount = '||l_remain_rcpt_amount);
805: IF l_remain_rcpt_amount <> l_actual_remittance_amount THEN -- application took place, move to next contract ...
806:
827: ,x_rctv_rec => x_rctv_rec);
828:
829: x_return_status := l_return_status;
830:
831: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
833: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
834: RAISE OKL_API.G_EXCEPTION_ERROR;
835: END IF;
828:
829: x_return_status := l_return_status;
830:
831: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
833: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
834: RAISE OKL_API.G_EXCEPTION_ERROR;
835: END IF;
836:
829: x_return_status := l_return_status;
830:
831: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
833: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
834: RAISE OKL_API.G_EXCEPTION_ERROR;
835: END IF;
836:
837: -- commented out for testing purposes.
830:
831: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
833: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
834: RAISE OKL_API.G_EXCEPTION_ERROR;
835: END IF;
836:
837: -- commented out for testing purposes.
838: -------------------------------------------------------------------
874: ------------------------------------------------------------
875: -- End processing
876: ------------------------------------------------------------
877:
878: Okl_Api.END_ACTIVITY (
879: x_msg_count => x_msg_count,
880: x_msg_data => x_msg_data);
881: log_file('end advanced_Cash_app');
882:
882:
883: EXCEPTION
884:
885: WHEN G_EXCEPTION_HALT_VALIDATION THEN
886: x_return_status := okl_api.G_RET_STS_ERROR;
887:
888:
889: WHEN okl_api.G_EXCEPTION_ERROR THEN
890: x_return_status := okl_api.HANDLE_EXCEPTIONS
885: WHEN G_EXCEPTION_HALT_VALIDATION THEN
886: x_return_status := okl_api.G_RET_STS_ERROR;
887:
888:
889: WHEN okl_api.G_EXCEPTION_ERROR THEN
890: x_return_status := okl_api.HANDLE_EXCEPTIONS
891: (
892: l_api_name,
893: G_PKG_NAME,
886: x_return_status := okl_api.G_RET_STS_ERROR;
887:
888:
889: WHEN okl_api.G_EXCEPTION_ERROR THEN
890: x_return_status := okl_api.HANDLE_EXCEPTIONS
891: (
892: l_api_name,
893: G_PKG_NAME,
894: okl_api.G_RET_STS_ERROR,
890: x_return_status := okl_api.HANDLE_EXCEPTIONS
891: (
892: l_api_name,
893: G_PKG_NAME,
894: okl_api.G_RET_STS_ERROR,
895: x_msg_count,
896: x_msg_data,
897: '_PVT'
898: );
897: '_PVT'
898: );
899:
900: WHEN OTHERS THEN
901: x_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
902: Okl_api.set_message( p_app_name => g_app_name
903: , p_msg_name => g_unexpected_error
904: , p_token1 => g_sqlcode_token
905: , p_token1_value => SQLCODE
898: );
899:
900: WHEN OTHERS THEN
901: x_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
902: Okl_api.set_message( p_app_name => g_app_name
903: , p_msg_name => g_unexpected_error
904: , p_token1 => g_sqlcode_token
905: , p_token1_value => SQLCODE
906: , p_token2 => g_sqlerrm_token
915: -- as receipt amount is greater than contract total
916: ---------------------------------------------------------------------------
917:
918: PROCEDURE apply_rcpt_to_contract_no_rule ( p_api_version IN NUMBER
919: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE
920: ,x_return_status OUT NOCOPY VARCHAR2
921: ,x_msg_count OUT NOCOPY NUMBER
922: ,x_msg_data OUT NOCOPY VARCHAR2
923: ,p_contract_id IN OKC_K_HEADERS_V.ID%TYPE DEFAULT NULL
943:
944:
945:
946: l_api_version NUMBER := 1.0;
947: l_init_msg_list VARCHAR2(1) := okl_api.g_false;
948: l_return_status VARCHAR2(1);
949: l_msg_count NUMBER;
950: l_msg_data VARCHAR2(2000);
951: l_api_name CONSTANT VARCHAR2(30) := 'apply_rcpt_to_contract_no_rule';
1083:
1084: IF l_invoice_currency_code <> l_receipt_currency_code THEN
1085: l_exchange_rate_type := OKL_RECEIPTS_PVT.cross_currency_rate_type(l_org_id);--FND_PROFILE.value('AR_CROSS_CURRENCY_RATE_TYPE');
1086: IF l_exchange_rate_type IS NULL THEN
1087: OKL_API.set_message( p_app_name => G_APP_NAME
1088: ,p_msg_name => 'OKL_BPD_CONV_TYPE_NOT_FOUND'
1089: );
1090: RAISE G_EXCEPTION_HALT_VALIDATION;
1091: ELSE
1095: ,l_exchange_rate_type
1096: );
1097: IF l_conversion_rate IN (0,-1) THEN
1098: -- Message Text: No exchange rate defined
1099: x_return_status := okl_api.G_RET_STS_ERROR;
1100: okl_api.set_message( p_app_name => G_APP_NAME,
1101: p_msg_name => 'OKL_BPD_NO_EXCHANGE_RATE');
1102: RAISE G_EXCEPTION_HALT_VALIDATION;
1103: END IF;
1096: );
1097: IF l_conversion_rate IN (0,-1) THEN
1098: -- Message Text: No exchange rate defined
1099: x_return_status := okl_api.G_RET_STS_ERROR;
1100: okl_api.set_message( p_app_name => G_APP_NAME,
1101: p_msg_name => 'OKL_BPD_NO_EXCHANGE_RATE');
1102: RAISE G_EXCEPTION_HALT_VALIDATION;
1103: END IF;
1104: END IF;
1156: ,p_appl_tbl => l_appl_tbl
1157: ,x_remaining_amt => p_remain_rcpt_amount
1158: );
1159: log_file('l_return_status = ' ||l_return_status);
1160: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1162: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1163: RAISE OKL_API.G_EXCEPTION_ERROR;
1164: END IF;
1157: ,x_remaining_amt => p_remain_rcpt_amount
1158: );
1159: log_file('l_return_status = ' ||l_return_status);
1160: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1162: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1163: RAISE OKL_API.G_EXCEPTION_ERROR;
1164: END IF;
1165:
1158: );
1159: log_file('l_return_status = ' ||l_return_status);
1160: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1162: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1163: RAISE OKL_API.G_EXCEPTION_ERROR;
1164: END IF;
1165:
1166: END IF;
1159: log_file('l_return_status = ' ||l_return_status);
1160: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1162: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1163: RAISE OKL_API.G_EXCEPTION_ERROR;
1164: END IF;
1165:
1166: END IF;
1167:
1166: END IF;
1167:
1168: END IF;
1169:
1170: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1171: log_file('apply_rcpt_to_contract_no_rule end');
1172: EXCEPTION
1173:
1174: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1171: log_file('apply_rcpt_to_contract_no_rule end');
1172: EXCEPTION
1173:
1174: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1175: x_return_status := okl_api.G_RET_STS_ERROR;
1176:
1177:
1178: WHEN okl_api.G_EXCEPTION_ERROR THEN
1179: x_return_status := okl_api.HANDLE_EXCEPTIONS
1174: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1175: x_return_status := okl_api.G_RET_STS_ERROR;
1176:
1177:
1178: WHEN okl_api.G_EXCEPTION_ERROR THEN
1179: x_return_status := okl_api.HANDLE_EXCEPTIONS
1180: (
1181: l_api_name,
1182: G_PKG_NAME,
1175: x_return_status := okl_api.G_RET_STS_ERROR;
1176:
1177:
1178: WHEN okl_api.G_EXCEPTION_ERROR THEN
1179: x_return_status := okl_api.HANDLE_EXCEPTIONS
1180: (
1181: l_api_name,
1182: G_PKG_NAME,
1183: OKL_API.G_RET_STS_ERROR,
1179: x_return_status := okl_api.HANDLE_EXCEPTIONS
1180: (
1181: l_api_name,
1182: G_PKG_NAME,
1183: OKL_API.G_RET_STS_ERROR,
1184: x_msg_count,
1185: x_msg_data,
1186: '_PVT'
1187: );
1186: '_PVT'
1187: );
1188:
1189: WHEN OTHERS THEN
1190: x_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
1191: Okl_api.set_message( p_app_name => g_app_name
1192: , p_msg_name => g_unexpected_error
1193: , p_token1 => g_sqlcode_token
1194: , p_token1_value => SQLCODE
1187: );
1188:
1189: WHEN OTHERS THEN
1190: x_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
1191: Okl_api.set_message( p_app_name => g_app_name
1192: , p_msg_name => g_unexpected_error
1193: , p_token1 => g_sqlcode_token
1194: , p_token1_value => SQLCODE
1195: , p_token2 => g_sqlerrm_token
1204: -- rule
1205: ---------------------------------------------------------------------------
1206:
1207: PROCEDURE apply_rcpt_to_contract_w_rule ( p_api_version IN NUMBER
1208: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE
1209: ,x_return_status OUT NOCOPY VARCHAR2
1210: ,x_msg_count OUT NOCOPY NUMBER
1211: ,x_msg_data OUT NOCOPY VARCHAR2
1212: ,p_contract_id IN OKC_K_HEADERS_V.ID%TYPE DEFAULT NULL
1231: -- DECLARE Local Variables
1232: ---------------------------
1233:
1234: l_api_version NUMBER := 1.0;
1235: l_init_msg_list VARCHAR2(1) := okl_api.g_false;
1236: l_return_status VARCHAR2(1);
1237: l_msg_count NUMBER;
1238: l_msg_data VARCHAR2(2000);
1239: l_api_name CONSTANT VARCHAR2(30) := 'apply_rcpt_to_contract_w_rule';
1555:
1556: IF l_invoice_currency_code <> l_receipt_currency_code THEN
1557: l_exchange_rate_type :=OKL_RECEIPTS_PVT.cross_currency_rate_type(l_org_id);-- FND_PROFILE.value('AR_CROSS_CURRENCY_RATE_TYPE');
1558: IF l_exchange_rate_type IS NULL THEN
1559: OKL_API.set_message( p_app_name => G_APP_NAME
1560: ,p_msg_name => 'OKL_BPD_CONV_TYPE_NOT_FOUND'
1561: );
1562: RAISE G_EXCEPTION_HALT_VALIDATION;
1563: ELSE
1567: ,l_exchange_rate_type
1568: );
1569: IF l_conversion_rate IN (0,-1) THEN
1570: -- Message Text: No exchange rate defined
1571: x_return_status := okl_api.G_RET_STS_ERROR;
1572: okl_api.set_message( p_app_name => G_APP_NAME,
1573: p_msg_name => 'OKL_BPD_NO_EXCHANGE_RATE');
1574: RAISE G_EXCEPTION_HALT_VALIDATION;
1575: END IF;
1568: );
1569: IF l_conversion_rate IN (0,-1) THEN
1570: -- Message Text: No exchange rate defined
1571: x_return_status := okl_api.G_RET_STS_ERROR;
1572: okl_api.set_message( p_app_name => G_APP_NAME,
1573: p_msg_name => 'OKL_BPD_NO_EXCHANGE_RATE');
1574: RAISE G_EXCEPTION_HALT_VALIDATION;
1575: END IF;
1576: END IF;
1699: x_appl_tbl => l_autocash_appl_tbl,
1700: x_onacc_amount => x_onacc_amount,
1701: x_unapply_amount=> x_unapply_amount);
1702:
1703: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1704: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1705: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1706: RAISE OKL_API.G_EXCEPTION_ERROR;
1707: END IF;
1700: x_onacc_amount => x_onacc_amount,
1701: x_unapply_amount=> x_unapply_amount);
1702:
1703: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1704: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1705: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1706: RAISE OKL_API.G_EXCEPTION_ERROR;
1707: END IF;
1708: log_file('l_autocash_appl_tbl.count = '||l_autocash_appl_tbl.count);
1701: x_unapply_amount=> x_unapply_amount);
1702:
1703: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1704: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1705: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1706: RAISE OKL_API.G_EXCEPTION_ERROR;
1707: END IF;
1708: log_file('l_autocash_appl_tbl.count = '||l_autocash_appl_tbl.count);
1709: l_applied_running_total := 0;
1702:
1703: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1704: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1705: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1706: RAISE OKL_API.G_EXCEPTION_ERROR;
1707: END IF;
1708: log_file('l_autocash_appl_tbl.count = '||l_autocash_appl_tbl.count);
1709: l_applied_running_total := 0;
1710: IF l_autocash_appl_tbl.count > 0 THEN
1741: ,p_appl_tbl => l_appl_tbl
1742: ,x_remaining_amt => p_remain_rcpt_amount
1743: );
1744: log_file('l_return_status = '||l_return_status);
1745: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1748: RAISE OKL_API.G_EXCEPTION_ERROR;
1749: END IF;
1742: ,x_remaining_amt => p_remain_rcpt_amount
1743: );
1744: log_file('l_return_status = '||l_return_status);
1745: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1748: RAISE OKL_API.G_EXCEPTION_ERROR;
1749: END IF;
1750: END IF;
1743: );
1744: log_file('l_return_status = '||l_return_status);
1745: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1748: RAISE OKL_API.G_EXCEPTION_ERROR;
1749: END IF;
1750: END IF;
1751: log_file('p_remain_rcpt_amount in invoice currency = '||l_receipt_remaining);
1744: log_file('l_return_status = '||l_return_status);
1745: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1748: RAISE OKL_API.G_EXCEPTION_ERROR;
1749: END IF;
1750: END IF;
1751: log_file('p_remain_rcpt_amount in invoice currency = '||l_receipt_remaining);
1752: IF l_invoice_currency_code <> l_receipt_currency_code THEN
1754: ELSE
1755: p_remain_rcpt_amount := l_receipt_remaining;
1756: END IF;
1757: log_file('p_remain_rcpt_amount in receipt currency = '||p_remain_rcpt_amount);
1758: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1759:
1760: Okl_Api.END_ACTIVITY ( x_msg_count => x_msg_count,
1761: x_msg_data => x_msg_data);
1762:
1756: END IF;
1757: log_file('p_remain_rcpt_amount in receipt currency = '||p_remain_rcpt_amount);
1758: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1759:
1760: Okl_Api.END_ACTIVITY ( x_msg_count => x_msg_count,
1761: x_msg_data => x_msg_data);
1762:
1763: log_file('end apply_rcpt_to_contract_w_rule');
1764: EXCEPTION
1763: log_file('end apply_rcpt_to_contract_w_rule');
1764: EXCEPTION
1765:
1766: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1767: x_return_status := okl_api.G_RET_STS_ERROR;
1768:
1769:
1770: WHEN okl_api.G_EXCEPTION_ERROR THEN
1771: x_return_status := okl_api.HANDLE_EXCEPTIONS
1766: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1767: x_return_status := okl_api.G_RET_STS_ERROR;
1768:
1769:
1770: WHEN okl_api.G_EXCEPTION_ERROR THEN
1771: x_return_status := okl_api.HANDLE_EXCEPTIONS
1772: (
1773: l_api_name,
1774: G_PKG_NAME,
1767: x_return_status := okl_api.G_RET_STS_ERROR;
1768:
1769:
1770: WHEN okl_api.G_EXCEPTION_ERROR THEN
1771: x_return_status := okl_api.HANDLE_EXCEPTIONS
1772: (
1773: l_api_name,
1774: G_PKG_NAME,
1775: OKL_API.G_RET_STS_ERROR,
1771: x_return_status := okl_api.HANDLE_EXCEPTIONS
1772: (
1773: l_api_name,
1774: G_PKG_NAME,
1775: OKL_API.G_RET_STS_ERROR,
1776: x_msg_count,
1777: x_msg_data,
1778: '_PVT'
1779: );
1778: '_PVT'
1779: );
1780:
1781: WHEN OTHERS THEN
1782: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1783: Okl_api.set_message( p_app_name => g_app_name
1784: , p_msg_name => g_unexpected_error
1785: , p_token1 => g_sqlcode_token
1786: , p_token1_value => SQLCODE
1779: );
1780:
1781: WHEN OTHERS THEN
1782: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1783: Okl_api.set_message( p_app_name => g_app_name
1784: , p_msg_name => g_unexpected_error
1785: , p_token1 => g_sqlcode_token
1786: , p_token1_value => SQLCODE
1787: , p_token2 => g_sqlerrm_token
1795: -- Re application of advanced cash
1796: ---------------------------------------------------------------------------
1797:
1798: PROCEDURE reapplic_advanced_cash_app ( p_api_version IN NUMBER
1799: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE
1800: ,x_return_status OUT NOCOPY VARCHAR2
1801: ,x_msg_count OUT NOCOPY NUMBER
1802: ,x_msg_data OUT NOCOPY VARCHAR2
1803: ,p_contract_num IN OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE DEFAULT NULL
1815: -- DECLARE Local Variables
1816: ---------------------------
1817:
1818: l_api_version NUMBER := 1.0;
1819: l_init_msg_list VARCHAR2(1) := okl_api.g_false;
1820: l_return_status VARCHAR2(1);
1821: l_msg_count NUMBER;
1822: l_msg_data VARCHAR2(2000);
1823: l_api_name CONSTANT VARCHAR2(30) := 'reapplic_advanced_cash_app';
2108: ------------------------------------------------------------
2109: -- Start processing
2110: ------------------------------------------------------------
2111:
2112: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2113:
2114: l_return_status := Okl_Api.START_ACTIVITY(
2115: p_api_name => l_api_name,
2116: p_pkg_name => G_PKG_NAME,
2110: ------------------------------------------------------------
2111:
2112: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2113:
2114: l_return_status := Okl_Api.START_ACTIVITY(
2115: p_api_name => l_api_name,
2116: p_pkg_name => G_PKG_NAME,
2117: p_init_msg_list => p_init_msg_list,
2118: l_api_version => l_api_version,
2119: p_api_version => p_api_version,
2120: p_api_type => '_PVT',
2121: x_return_status => l_return_status);
2122:
2123: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2124: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2125: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2126: RAISE Okl_Api.G_EXCEPTION_ERROR;
2127: END IF;
2120: p_api_type => '_PVT',
2121: x_return_status => l_return_status);
2122:
2123: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2124: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2125: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2126: RAISE Okl_Api.G_EXCEPTION_ERROR;
2127: END IF;
2128:
2121: x_return_status => l_return_status);
2122:
2123: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2124: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2125: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2126: RAISE Okl_Api.G_EXCEPTION_ERROR;
2127: END IF;
2128:
2129: -- get default cash application rule
2122:
2123: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2124: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2125: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2126: RAISE Okl_Api.G_EXCEPTION_ERROR;
2127: END IF;
2128:
2129: -- get default cash application rule
2130: OPEN c_dflt_cash_applic_rule;
2238: ,x_rctv_rec => x_rctv_rec);
2239:
2240: x_return_status := l_return_status;
2241:
2242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2245: RAISE OKL_API.G_EXCEPTION_ERROR;
2246: END IF;
2239:
2240: x_return_status := l_return_status;
2241:
2242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2245: RAISE OKL_API.G_EXCEPTION_ERROR;
2246: END IF;
2247:
2240: x_return_status := l_return_status;
2241:
2242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2245: RAISE OKL_API.G_EXCEPTION_ERROR;
2246: END IF;
2247:
2248: END LOOP;
2241:
2242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2245: RAISE OKL_API.G_EXCEPTION_ERROR;
2246: END IF;
2247:
2248: END LOOP;
2249:
2308: --following code added by dkagrawa for cross currency
2309: IF l_invoice_currency_code <> l_receipt_currency THEN
2310: l_exchange_rate_type := OKL_RECEIPTS_PVT.cross_currency_rate_type(l_org_id);--FND_PROFILE.value('AR_CROSS_CURRENCY_RATE_TYPE');
2311: IF l_exchange_rate_type IS NULL THEN
2312: OKL_API.set_message( p_app_name => G_APP_NAME
2313: ,p_msg_name => 'OKL_BPD_CONV_TYPE_NOT_FOUND'
2314: );
2315: RAISE G_EXCEPTION_HALT_VALIDATION;
2316: ELSE
2320: ,l_exchange_rate_type
2321: );
2322: IF l_conversion_rate IN (0,-1) THEN
2323: -- Message Text: No exchange rate defined
2324: x_return_status := okl_api.G_RET_STS_ERROR;
2325: okl_api.set_message( p_app_name => G_APP_NAME,
2326: p_msg_name => 'OKL_BPD_NO_EXCHANGE_RATE');
2327: RAISE G_EXCEPTION_HALT_VALIDATION;
2328: END IF;
2321: );
2322: IF l_conversion_rate IN (0,-1) THEN
2323: -- Message Text: No exchange rate defined
2324: x_return_status := okl_api.G_RET_STS_ERROR;
2325: okl_api.set_message( p_app_name => G_APP_NAME,
2326: p_msg_name => 'OKL_BPD_NO_EXCHANGE_RATE');
2327: RAISE G_EXCEPTION_HALT_VALIDATION;
2328: END IF;
2329: END IF;
2380: END IF;
2381:
2382: x_return_status := l_return_status;
2383:
2384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_ERROR;
2388: END IF;
2381:
2382: x_return_status := l_return_status;
2383:
2384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_ERROR;
2388: END IF;
2389: log_file('l_remain_rcpt_amount = '||l_remain_rcpt_amount);
2382: x_return_status := l_return_status;
2383:
2384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_ERROR;
2388: END IF;
2389: log_file('l_remain_rcpt_amount = '||l_remain_rcpt_amount);
2390: IF l_remain_rcpt_amount <> l_actual_remittance_amount THEN -- application took place, move to next contract ...
2383:
2384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_ERROR;
2388: END IF;
2389: log_file('l_remain_rcpt_amount = '||l_remain_rcpt_amount);
2390: IF l_remain_rcpt_amount <> l_actual_remittance_amount THEN -- application took place, move to next contract ...
2391:
2424: );
2425: log_file('l_return_status = '||l_return_status);
2426: x_return_status := l_return_status;
2427:
2428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_ERROR;
2432: END IF;
2425: log_file('l_return_status = '||l_return_status);
2426: x_return_status := l_return_status;
2427:
2428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_ERROR;
2432: END IF;
2433:
2426: x_return_status := l_return_status;
2427:
2428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_ERROR;
2432: END IF;
2433:
2434: END IF;
2427:
2428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_ERROR;
2432: END IF;
2433:
2434: END IF;
2435: ELSE
2465: );
2466:
2467: x_return_status := l_return_status;
2468:
2469: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2471: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2472: RAISE OKL_API.G_EXCEPTION_ERROR;
2473: END IF;
2466:
2467: x_return_status := l_return_status;
2468:
2469: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2471: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2472: RAISE OKL_API.G_EXCEPTION_ERROR;
2473: END IF;
2474:
2467: x_return_status := l_return_status;
2468:
2469: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2471: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2472: RAISE OKL_API.G_EXCEPTION_ERROR;
2473: END IF;
2474:
2475: END LOOP;
2468:
2469: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2471: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2472: RAISE OKL_API.G_EXCEPTION_ERROR;
2473: END IF;
2474:
2475: END LOOP;
2476:
2534: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'RECEIPT '||l_check_number|| ' located with balance of '||l_actual_remittance_amount||' '||l_receipt_currency);
2535: IF l_invoice_currency_code <> l_receipt_currency THEN
2536: l_exchange_rate_type :=OKL_RECEIPTS_PVT.cross_currency_rate_type(l_org_id);-- FND_PROFILE.value('AR_CROSS_CURRENCY_RATE_TYPE');
2537: IF l_exchange_rate_type IS NULL THEN
2538: OKL_API.set_message( p_app_name => G_APP_NAME
2539: ,p_msg_name => 'OKL_BPD_CONV_TYPE_NOT_FOUND'
2540: );
2541: RAISE G_EXCEPTION_HALT_VALIDATION;
2542: ELSE
2546: ,l_exchange_rate_type
2547: );
2548: IF l_conversion_rate IN (0,-1) THEN
2549: -- Message Text: No exchange rate defined
2550: x_return_status := okl_api.G_RET_STS_ERROR;
2551: okl_api.set_message( p_app_name => G_APP_NAME,
2552: p_msg_name => 'OKL_BPD_NO_EXCHANGE_RATE');
2553: RAISE G_EXCEPTION_HALT_VALIDATION;
2554: END IF;
2547: );
2548: IF l_conversion_rate IN (0,-1) THEN
2549: -- Message Text: No exchange rate defined
2550: x_return_status := okl_api.G_RET_STS_ERROR;
2551: okl_api.set_message( p_app_name => G_APP_NAME,
2552: p_msg_name => 'OKL_BPD_NO_EXCHANGE_RATE');
2553: RAISE G_EXCEPTION_HALT_VALIDATION;
2554: END IF;
2555: END IF;
2612: END IF;
2613: log_file('l_return_status = '||l_return_status);
2614: x_return_status := l_return_status;
2615:
2616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2619: RAISE OKL_API.G_EXCEPTION_ERROR;
2620: END IF;
2613: log_file('l_return_status = '||l_return_status);
2614: x_return_status := l_return_status;
2615:
2616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2619: RAISE OKL_API.G_EXCEPTION_ERROR;
2620: END IF;
2621: log_file('l_remain_rcpt_amount = '||l_remain_rcpt_amount);
2614: x_return_status := l_return_status;
2615:
2616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2619: RAISE OKL_API.G_EXCEPTION_ERROR;
2620: END IF;
2621: log_file('l_remain_rcpt_amount = '||l_remain_rcpt_amount);
2622: IF l_remain_rcpt_amount <> l_actual_remittance_amount THEN -- application took place, move to next contract ...
2615:
2616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2619: RAISE OKL_API.G_EXCEPTION_ERROR;
2620: END IF;
2621: log_file('l_remain_rcpt_amount = '||l_remain_rcpt_amount);
2622: IF l_remain_rcpt_amount <> l_actual_remittance_amount THEN -- application took place, move to next contract ...
2623:
2659: ------------------------------------------------------------
2660: -- End processing
2661: ------------------------------------------------------------
2662:
2663: Okl_Api.END_ACTIVITY (
2664: x_msg_count => x_msg_count,
2665: x_msg_data => x_msg_data);
2666:
2667: log_file('reapplic_advanced_cash_app end');
2667: log_file('reapplic_advanced_cash_app end');
2668: EXCEPTION
2669:
2670: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2671: x_return_status := okl_api.G_RET_STS_ERROR;
2672:
2673:
2674: WHEN okl_api.G_EXCEPTION_ERROR THEN
2675: x_return_status := okl_api.HANDLE_EXCEPTIONS
2670: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2671: x_return_status := okl_api.G_RET_STS_ERROR;
2672:
2673:
2674: WHEN okl_api.G_EXCEPTION_ERROR THEN
2675: x_return_status := okl_api.HANDLE_EXCEPTIONS
2676: (
2677: l_api_name,
2678: G_PKG_NAME,
2671: x_return_status := okl_api.G_RET_STS_ERROR;
2672:
2673:
2674: WHEN okl_api.G_EXCEPTION_ERROR THEN
2675: x_return_status := okl_api.HANDLE_EXCEPTIONS
2676: (
2677: l_api_name,
2678: G_PKG_NAME,
2679: OKL_API.G_RET_STS_ERROR,
2675: x_return_status := okl_api.HANDLE_EXCEPTIONS
2676: (
2677: l_api_name,
2678: G_PKG_NAME,
2679: OKL_API.G_RET_STS_ERROR,
2680: x_msg_count,
2681: x_msg_data,
2682: '_PVT'
2683: );
2682: '_PVT'
2683: );
2684:
2685: WHEN OTHERS THEN
2686: x_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
2687: Okl_api.set_message( p_app_name => g_app_name
2688: , p_msg_name => g_unexpected_error
2689: , p_token1 => g_sqlcode_token
2690: , p_token1_value => SQLCODE
2683: );
2684:
2685: WHEN OTHERS THEN
2686: x_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
2687: Okl_api.set_message( p_app_name => g_app_name
2688: , p_msg_name => g_unexpected_error
2689: , p_token1 => g_sqlcode_token
2690: , p_token1_value => SQLCODE
2691: , p_token2 => g_sqlerrm_token
2694:
2695: END reapplic_advanced_cash_app;
2696:
2697: PROCEDURE reapplic_rcpt_w_cntrct ( p_api_version IN NUMBER
2698: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE
2699: ,x_return_status OUT NOCOPY VARCHAR2
2700: ,x_msg_count OUT NOCOPY NUMBER
2701: ,x_msg_data OUT NOCOPY VARCHAR2
2702: ,p_contract_num IN VARCHAR2 DEFAULT NULL
2704: ,p_cross_currency_allowed IN VARCHAR2 DEFAULT 'N'
2705: )IS
2706:
2707: l_api_version NUMBER := 1.0;
2708: l_init_msg_list VARCHAR2(1) := okl_api.g_false;
2709: l_return_status VARCHAR2(1);
2710: l_msg_count NUMBER;
2711: l_msg_data VARCHAR2(2000);
2712: l_api_name CONSTANT VARCHAR2(30) := 'reapplic_rcpt_w_cntrct';
2882: ------------------------------------------------------------
2883: -- Start processing
2884: ------------------------------------------------------------
2885:
2886: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2887:
2888: l_return_status := Okl_Api.START_ACTIVITY(
2889: p_api_name => l_api_name,
2890: p_pkg_name => G_PKG_NAME,
2884: ------------------------------------------------------------
2885:
2886: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2887:
2888: l_return_status := Okl_Api.START_ACTIVITY(
2889: p_api_name => l_api_name,
2890: p_pkg_name => G_PKG_NAME,
2891: p_init_msg_list => p_init_msg_list,
2892: l_api_version => l_api_version,
2893: p_api_version => p_api_version,
2894: p_api_type => '_PVT',
2895: x_return_status => l_return_status);
2896:
2897: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2898: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2899: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2900: RAISE Okl_Api.G_EXCEPTION_ERROR;
2901: END IF;
2894: p_api_type => '_PVT',
2895: x_return_status => l_return_status);
2896:
2897: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2898: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2899: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2900: RAISE Okl_Api.G_EXCEPTION_ERROR;
2901: END IF;
2902:
2895: x_return_status => l_return_status);
2896:
2897: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2898: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2899: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2900: RAISE Okl_Api.G_EXCEPTION_ERROR;
2901: END IF;
2902:
2903: IF l_customer_acct_id IS NULL AND
2896:
2897: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2898: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2899: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2900: RAISE Okl_Api.G_EXCEPTION_ERROR;
2901: END IF;
2902:
2903: IF l_customer_acct_id IS NULL AND
2904: l_contract_num IS NULL THEN
2991: WHERE receipt_type= 'ADV';
2992: log_file('after update adv count = '|| l_rct_id);
2993: x_return_status := l_return_status;
2994:
2995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2998: RAISE OKL_API.G_EXCEPTION_ERROR;
2999: END IF;
2992: log_file('after update adv count = '|| l_rct_id);
2993: x_return_status := l_return_status;
2994:
2995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2998: RAISE OKL_API.G_EXCEPTION_ERROR;
2999: END IF;
3000:
2993: x_return_status := l_return_status;
2994:
2995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2998: RAISE OKL_API.G_EXCEPTION_ERROR;
2999: END IF;
3000:
3001: END LOOP;
2994:
2995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2998: RAISE OKL_API.G_EXCEPTION_ERROR;
2999: END IF;
3000:
3001: END LOOP;
3002:
3040: );
3041:
3042: x_return_status := l_return_status;
3043:
3044: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3045: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3046: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3047: RAISE OKL_API.G_EXCEPTION_ERROR;
3048: END IF;
3041:
3042: x_return_status := l_return_status;
3043:
3044: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3045: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3046: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3047: RAISE OKL_API.G_EXCEPTION_ERROR;
3048: END IF;
3049:
3042: x_return_status := l_return_status;
3043:
3044: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3045: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3046: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3047: RAISE OKL_API.G_EXCEPTION_ERROR;
3048: END IF;
3049:
3050: ELSE
3043:
3044: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3045: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3046: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3047: RAISE OKL_API.G_EXCEPTION_ERROR;
3048: END IF;
3049:
3050: ELSE
3051:
3070: );
3071:
3072: x_return_status := l_return_status;
3073:
3074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3077: RAISE OKL_API.G_EXCEPTION_ERROR;
3078: END IF;
3071:
3072: x_return_status := l_return_status;
3073:
3074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3077: RAISE OKL_API.G_EXCEPTION_ERROR;
3078: END IF;
3079:
3072: x_return_status := l_return_status;
3073:
3074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3077: RAISE OKL_API.G_EXCEPTION_ERROR;
3078: END IF;
3079:
3080: END LOOP;
3073:
3074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3077: RAISE OKL_API.G_EXCEPTION_ERROR;
3078: END IF;
3079:
3080: END LOOP;
3081:
3088: ------------------------------------------------------------
3089: -- End processing
3090: ------------------------------------------------------------
3091:
3092: Okl_Api.END_ACTIVITY (
3093: x_msg_count => x_msg_count,
3094: x_msg_data => x_msg_data);
3095: log_file('end reapplic_rcpt_w_cntrct');
3096:
3096:
3097: EXCEPTION
3098:
3099: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3100: x_return_status := okl_api.G_RET_STS_ERROR;
3101:
3102:
3103: WHEN okl_api.G_EXCEPTION_ERROR THEN
3104: x_return_status := okl_api.HANDLE_EXCEPTIONS
3099: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3100: x_return_status := okl_api.G_RET_STS_ERROR;
3101:
3102:
3103: WHEN okl_api.G_EXCEPTION_ERROR THEN
3104: x_return_status := okl_api.HANDLE_EXCEPTIONS
3105: (
3106: l_api_name,
3107: G_PKG_NAME,
3100: x_return_status := okl_api.G_RET_STS_ERROR;
3101:
3102:
3103: WHEN okl_api.G_EXCEPTION_ERROR THEN
3104: x_return_status := okl_api.HANDLE_EXCEPTIONS
3105: (
3106: l_api_name,
3107: G_PKG_NAME,
3108: OKL_API.G_RET_STS_ERROR,
3104: x_return_status := okl_api.HANDLE_EXCEPTIONS
3105: (
3106: l_api_name,
3107: G_PKG_NAME,
3108: OKL_API.G_RET_STS_ERROR,
3109: x_msg_count,
3110: x_msg_data,
3111: '_PVT'
3112: );
3111: '_PVT'
3112: );
3113:
3114: WHEN OTHERS THEN
3115: x_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
3116: Okl_api.set_message( p_app_name => g_app_name
3117: , p_msg_name => g_unexpected_error
3118: , p_token1 => g_sqlcode_token
3119: , p_token1_value => SQLCODE
3112: );
3113:
3114: WHEN OTHERS THEN
3115: x_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
3116: Okl_api.set_message( p_app_name => g_app_name
3117: , p_msg_name => g_unexpected_error
3118: , p_token1 => g_sqlcode_token
3119: , p_token1_value => SQLCODE
3120: , p_token2 => g_sqlerrm_token
3130: ,p_customer_acct_id IN NUMBER DEFAULT NULL
3131: ) IS
3132:
3133: l_api_version NUMBER := 1;
3134: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3135: l_msg_count NUMBER;
3136: l_msg_data VARCHAR2(450);
3137: l_init_msg_list VARCHAR2(1) := 'T';
3138:
3175: ,p_contract_num => l_contract_num
3176: ,p_customer_num => l_customer_acct_id
3177: );
3178: log_file('l_return_status= '||l_return_status);
3179: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3180: fnd_file.put_line(fnd_file.log
3181: ,'Unexpected error in call to OKL_BPD_ADVANCED_CASH_APP_PUB.REAPPLIC_RCPT_W_CNTRCT');
3182: RAISE okl_api.g_exception_unexpected_error;
3183: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3178: log_file('l_return_status= '||l_return_status);
3179: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3180: fnd_file.put_line(fnd_file.log
3181: ,'Unexpected error in call to OKL_BPD_ADVANCED_CASH_APP_PUB.REAPPLIC_RCPT_W_CNTRCT');
3182: RAISE okl_api.g_exception_unexpected_error;
3183: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3184: fnd_file.put_line(fnd_file.log
3185: ,'Error in call to OKL_BPD_ADVANCED_CASH_APP_PUB.REAPPLIC_RCPT_W_CNTRCT');
3186: END IF;
3179: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3180: fnd_file.put_line(fnd_file.log
3181: ,'Unexpected error in call to OKL_BPD_ADVANCED_CASH_APP_PUB.REAPPLIC_RCPT_W_CNTRCT');
3182: RAISE okl_api.g_exception_unexpected_error;
3183: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3184: fnd_file.put_line(fnd_file.log
3185: ,'Error in call to OKL_BPD_ADVANCED_CASH_APP_PUB.REAPPLIC_RCPT_W_CNTRCT');
3186: END IF;
3187:
3203: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Error '||TO_CHAR(SQLCODE)||': '||SQLERRM);
3204: END;
3205: retcode := 0;
3206: EXCEPTION
3207: WHEN okl_api.g_exception_error THEN
3208: retcode := 2;
3209: -- print the error message in the output file
3210:
3211: IF (fnd_msg_pub.count_msg > 0) THEN
3219: END LOOP;
3220:
3221: END IF;
3222:
3223: WHEN okl_api.g_exception_unexpected_error THEN
3224: retcode := 2;
3225:
3226: -- print the error message in the output file
3227:
3262: -- This routine handles receivables interaction.
3263: ---------------------------------------------------------------------------
3264:
3265: PROCEDURE AR_advance_receipt ( p_api_version IN NUMBER
3266: ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
3267: ,x_return_status OUT NOCOPY VARCHAR2
3268: ,x_msg_count OUT NOCOPY NUMBER
3269: ,x_msg_data OUT NOCOPY VARCHAR2
3270: ,p_xcav_tbl IN xcav_tbl_type
3428: AND nvl(amount_due_remaining,0) > 0;
3429: l_ar_llca_tbl ar_receipt_api_pub.llca_trx_lines_tbl_type;
3430:
3431: BEGIN
3432: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3433:
3434: l_return_status := Okl_Api.START_ACTIVITY(
3435: p_api_name => l_api_name,
3436: p_pkg_name => G_PKG_NAME,
3430:
3431: BEGIN
3432: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3433:
3434: l_return_status := Okl_Api.START_ACTIVITY(
3435: p_api_name => l_api_name,
3436: p_pkg_name => G_PKG_NAME,
3437: p_init_msg_list => p_init_msg_list,
3438: l_api_version => l_api_version,
3439: p_api_version => p_api_version,
3440: p_api_type => '_PVT',
3441: x_return_status => l_return_status);
3442:
3443: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3444: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3445: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3446: RAISE Okl_Api.G_EXCEPTION_ERROR;
3447: END IF;
3440: p_api_type => '_PVT',
3441: x_return_status => l_return_status);
3442:
3443: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3444: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3445: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3446: RAISE Okl_Api.G_EXCEPTION_ERROR;
3447: END IF;
3448: l_xcav_tbl := p_xcav_tbl;
3441: x_return_status => l_return_status);
3442:
3443: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3444: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3445: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3446: RAISE Okl_Api.G_EXCEPTION_ERROR;
3447: END IF;
3448: l_xcav_tbl := p_xcav_tbl;
3449:
3442:
3443: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3444: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3445: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3446: RAISE Okl_Api.G_EXCEPTION_ERROR;
3447: END IF;
3448: l_xcav_tbl := p_xcav_tbl;
3449:
3450: l_record_count := l_xcav_tbl.COUNT;
3496:
3497:
3498: x_return_status := l_return_status;
3499:
3500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3503: RAISE OKL_API.G_EXCEPTION_ERROR;
3504: END IF;
3497:
3498: x_return_status := l_return_status;
3499:
3500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3503: RAISE OKL_API.G_EXCEPTION_ERROR;
3504: END IF;
3505:
3498: x_return_status := l_return_status;
3499:
3500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3503: RAISE OKL_API.G_EXCEPTION_ERROR;
3504: END IF;
3505:
3506: -- abindal start bug#4897580 --
3499:
3500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3503: RAISE OKL_API.G_EXCEPTION_ERROR;
3504: END IF;
3505:
3506: -- abindal start bug#4897580 --
3507: IF l_receipt_date <= SYSDATE THEN
3584: ,p_apply_date => l_apply_date
3585: ,p_apply_gl_date => l_inv_gl_date
3586: ,p_org_id => l_org_id
3587: );
3588: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3590: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3591: RAISE OKL_API.G_EXCEPTION_ERROR;
3592: END IF;
3585: ,p_apply_gl_date => l_inv_gl_date
3586: ,p_org_id => l_org_id
3587: );
3588: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3590: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3591: RAISE OKL_API.G_EXCEPTION_ERROR;
3592: END IF;
3593: END IF;
3586: ,p_org_id => l_org_id
3587: );
3588: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3590: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3591: RAISE OKL_API.G_EXCEPTION_ERROR;
3592: END IF;
3593: END IF;
3594:
3587: );
3588: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3590: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3591: RAISE OKL_API.G_EXCEPTION_ERROR;
3592: END IF;
3593: END IF;
3594:
3595: EXIT WHEN i = l_ar_inv_tbl.LAST OR l_receipt_amount = 0;
3618: );
3619:
3620: x_return_status := l_return_status;
3621:
3622: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3625: RAISE OKL_API.G_EXCEPTION_ERROR;
3626: END IF;
3619:
3620: x_return_status := l_return_status;
3621:
3622: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3625: RAISE OKL_API.G_EXCEPTION_ERROR;
3626: END IF;
3627:
3620: x_return_status := l_return_status;
3621:
3622: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3625: RAISE OKL_API.G_EXCEPTION_ERROR;
3626: END IF;
3627:
3628: p_receipt_amount := l_receipt_amount;
3621:
3622: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3625: RAISE OKL_API.G_EXCEPTION_ERROR;
3626: END IF;
3627:
3628: p_receipt_amount := l_receipt_amount;
3629:
3628: p_receipt_amount := l_receipt_amount;
3629:
3630: END IF;
3631:
3632: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3633:
3634: EXCEPTION
3635:
3636: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3636: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3637: x_return_status := OKC_API.G_RET_STS_ERROR;
3638:
3639:
3640: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3641: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3642: (
3643: l_api_name,
3644: G_PKG_NAME,
3641: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3642: (
3643: l_api_name,
3644: G_PKG_NAME,
3645: OKL_API.G_RET_STS_ERROR,
3646: x_msg_count,
3647: x_msg_data,
3648: '_PVT'
3649: );
3646: x_msg_count,
3647: x_msg_data,
3648: '_PVT'
3649: );
3650: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3651: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3652: (
3653: l_api_name,
3654: G_PKG_NAME,
3651: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3652: (
3653: l_api_name,
3654: G_PKG_NAME,
3655: OKL_API.G_RET_STS_UNEXP_ERROR,
3656: x_msg_count,
3657: x_msg_data,
3658: '_PVT'
3659: );
3659: );
3660:
3661: WHEN OTHERS THEN
3662: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3663: Okl_api.set_message( p_app_name => g_app_name
3664: , p_msg_name => g_unexpected_error
3665: , p_token1 => g_sqlcode_token
3666: , p_token1_value => SQLCODE
3667: , p_token2 => g_sqlerrm_token