24: l_sum_txl_amt NUMBER := 0;
25:
26: BEGIN
27:
28: x_return_status := OKL_API.G_RET_STS_SUCCESS;
29:
30: -- Fetch trx line amount for update mode
31:
32: FOR txl_amt_rec IN txl_amt_csr (p_tcnv_rec.ID) LOOP
35:
36: -- Return Error status if sum of trx line amount is greater than trx amount.
37:
38: IF l_sum_txl_amt > NVL(p_tcnv_rec.amount, 0) THEN
39: x_return_status := OKL_API.G_RET_STS_ERROR;
40: END IF;
41:
42: END Validate_Amount;
43:
84:
85: BEGIN
86:
87: IF (p_tcnv_rec.khr_id IS NULL) OR
88: (p_tcnv_rec.khr_id = OKL_Api.G_MISS_NUM) THEN
89: OKL_Api.SET_MESSAGE(p_app_name => 'OKC'
90: ,p_msg_name => g_required_value
91: ,p_token1 => g_col_name_token
92: ,p_token1_value => 'KHR_ID');
85: BEGIN
86:
87: IF (p_tcnv_rec.khr_id IS NULL) OR
88: (p_tcnv_rec.khr_id = OKL_Api.G_MISS_NUM) THEN
89: OKL_Api.SET_MESSAGE(p_app_name => 'OKC'
90: ,p_msg_name => g_required_value
91: ,p_token1 => g_col_name_token
92: ,p_token1_value => 'KHR_ID');
93: x_return_status := OKL_Api.G_RET_STS_ERROR;
89: OKL_Api.SET_MESSAGE(p_app_name => 'OKC'
90: ,p_msg_name => g_required_value
91: ,p_token1 => g_col_name_token
92: ,p_token1_value => 'KHR_ID');
93: x_return_status := OKL_Api.G_RET_STS_ERROR;
94: RAISE OKL_API.G_EXCEPTION_ERROR;
95:
96: END IF;
97:
90: ,p_msg_name => g_required_value
91: ,p_token1 => g_col_name_token
92: ,p_token1_value => 'KHR_ID');
93: x_return_status := OKL_Api.G_RET_STS_ERROR;
94: RAISE OKL_API.G_EXCEPTION_ERROR;
95:
96: END IF;
97:
98: IF (p_tcnv_rec.Amount IS NULL) OR
95:
96: END IF;
97:
98: IF (p_tcnv_rec.Amount IS NULL) OR
99: (p_tcnv_rec.Amount = OKL_Api.G_MISS_NUM) OR
100: (p_tcnv_rec.Amount = 0) THEN
101: OKC_Api.SET_MESSAGE(p_app_name => 'OKC'
102: ,p_msg_name => g_required_value
103: ,p_token1 => g_col_name_token
101: OKC_Api.SET_MESSAGE(p_app_name => 'OKC'
102: ,p_msg_name => g_required_value
103: ,p_token1 => g_col_name_token
104: ,p_token1_value => 'AMOUNT');
105: x_return_status := OKL_Api.G_RET_STS_ERROR;
106: RAISE OKL_API.G_EXCEPTION_ERROR;
107:
108: END IF;
109:
102: ,p_msg_name => g_required_value
103: ,p_token1 => g_col_name_token
104: ,p_token1_value => 'AMOUNT');
105: x_return_status := OKL_Api.G_RET_STS_ERROR;
106: RAISE OKL_API.G_EXCEPTION_ERROR;
107:
108: END IF;
109:
110:
111: OPEN try_csr;
112: FETCH try_csr INTO l_try_id;
113:
114: IF (try_csr%NOTFOUND) THEN
115: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
116: p_msg_name => 'OKL_MISC_TRX_NOT_FOUND');
117: CLOSE try_csr;
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;
114: IF (try_csr%NOTFOUND) THEN
115: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
116: p_msg_name => 'OKL_MISC_TRX_NOT_FOUND');
117: CLOSE try_csr;
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;
120:
121: CLOSE try_csr;
122:
128: -- get the contract number
129: OPEN get_contract_number(l_tcnv_rec.khr_id);
130: FETCH get_contract_number INTO l_cntrct_number;
131: CLOSE get_contract_number;
132: Okl_Api.set_message(p_app_name => g_app_name,
133: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
134: p_token1 => 'CONTRACT_NUMBER',
135: p_token1_value => l_cntrct_number);
136: RAISE OKL_API.G_EXCEPTION_ERROR;
132: Okl_Api.set_message(p_app_name => g_app_name,
133: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
134: p_token1 => 'CONTRACT_NUMBER',
135: p_token1_value => l_cntrct_number);
136: RAISE OKL_API.G_EXCEPTION_ERROR;
137: END IF;
138:
139: l_tcnv_rec.TRY_ID := l_try_id;
140: l_tcnv_rec.TCN_TYPE := 'MAE';
197: ,x_tclv_tbl => x_tclv_tbl );
198:
199: EXCEPTION
200:
201: WHEN OKL_API.G_EXCEPTION_ERROR THEN
202: x_return_status := OKL_API.G_RET_STS_ERROR;
203:
204: END;
205:
198:
199: EXCEPTION
200:
201: WHEN OKL_API.G_EXCEPTION_ERROR THEN
202: x_return_status := OKL_API.G_RET_STS_ERROR;
203:
204: END;
205:
206:
227: l_currency_conversion_rate okl_k_headers.currency_conversion_rate%TYPE;
228: l_currency_conversion_date okl_k_headers.currency_conversion_date%TYPE;
229: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
230:
231: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
232:
233: CURSOR try_csr IS
234: SELECT ID
235: FROM OKL_TRX_TYPES_TL
249: l_legal_entity_id NUMBER;
250:
251: BEGIN
252:
253: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
254: G_PKG_NAME,
255: p_init_msg_list,
256: l_api_version,
257: p_api_version,
256: l_api_version,
257: p_api_version,
258: '_PVT',
259: x_return_status);
260: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
262: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
263: RAISE OKL_API.G_EXCEPTION_ERROR;
264: END IF;
257: p_api_version,
258: '_PVT',
259: x_return_status);
260: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
262: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
263: RAISE OKL_API.G_EXCEPTION_ERROR;
264: END IF;
265:
258: '_PVT',
259: x_return_status);
260: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
262: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
263: RAISE OKL_API.G_EXCEPTION_ERROR;
264: END IF;
265:
266: IF (l_tcnv_rec.khr_id IS NULL) OR
259: x_return_status);
260: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
262: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
263: RAISE OKL_API.G_EXCEPTION_ERROR;
264: END IF;
265:
266: IF (l_tcnv_rec.khr_id IS NULL) OR
267: (l_tcnv_rec.khr_id = OKL_Api.G_MISS_NUM) THEN
263: RAISE OKL_API.G_EXCEPTION_ERROR;
264: END IF;
265:
266: IF (l_tcnv_rec.khr_id IS NULL) OR
267: (l_tcnv_rec.khr_id = OKL_Api.G_MISS_NUM) THEN
268: OKL_Api.SET_MESSAGE(p_app_name => 'OKC'
269: ,p_msg_name => g_required_value
270: ,p_token1 => g_col_name_token
271: ,p_token1_value => 'KHR_ID');
264: END IF;
265:
266: IF (l_tcnv_rec.khr_id IS NULL) OR
267: (l_tcnv_rec.khr_id = OKL_Api.G_MISS_NUM) THEN
268: OKL_Api.SET_MESSAGE(p_app_name => 'OKC'
269: ,p_msg_name => g_required_value
270: ,p_token1 => g_col_name_token
271: ,p_token1_value => 'KHR_ID');
272: RAISE OKL_API.G_EXCEPTION_ERROR;
268: OKL_Api.SET_MESSAGE(p_app_name => 'OKC'
269: ,p_msg_name => g_required_value
270: ,p_token1 => g_col_name_token
271: ,p_token1_value => 'KHR_ID');
272: RAISE OKL_API.G_EXCEPTION_ERROR;
273: END IF;
274:
275: IF (l_tcnv_rec.Amount IS NULL) OR
276: (l_tcnv_rec.Amount = OKL_Api.G_MISS_NUM) OR
272: RAISE OKL_API.G_EXCEPTION_ERROR;
273: END IF;
274:
275: IF (l_tcnv_rec.Amount IS NULL) OR
276: (l_tcnv_rec.Amount = OKL_Api.G_MISS_NUM) OR
277: (l_tcnv_rec.Amount = 0) THEN
278: OKL_Api.SET_MESSAGE(p_app_name => 'OKC'
279: ,p_msg_name => g_required_value
280: ,p_token1 => g_col_name_token
274:
275: IF (l_tcnv_rec.Amount IS NULL) OR
276: (l_tcnv_rec.Amount = OKL_Api.G_MISS_NUM) OR
277: (l_tcnv_rec.Amount = 0) THEN
278: OKL_Api.SET_MESSAGE(p_app_name => 'OKC'
279: ,p_msg_name => g_required_value
280: ,p_token1 => g_col_name_token
281: ,p_token1_value => 'AMOUNT');
282: RAISE OKL_API.G_EXCEPTION_ERROR;
278: OKL_Api.SET_MESSAGE(p_app_name => 'OKC'
279: ,p_msg_name => g_required_value
280: ,p_token1 => g_col_name_token
281: ,p_token1_value => 'AMOUNT');
282: RAISE OKL_API.G_EXCEPTION_ERROR;
283: END IF;
284:
285: /* Commented by Kanti for Bug Number 2335254
286:
285: /* Commented by Kanti for Bug Number 2335254
286:
287:
288: IF (l_tcnv_rec.TRX_NUMBER IS NULL) OR
289: (l_tcnv_rec.TRX_NUMBER = OKL_Api.G_MISS_CHAR) THEN
290: OKL_Api.SET_MESSAGE(p_app_name => 'OKL'
291: ,p_msg_name => g_required_value
292: ,p_token1 => g_col_name_token
293: ,p_token1_value => 'TRX_NUMBER');
286:
287:
288: IF (l_tcnv_rec.TRX_NUMBER IS NULL) OR
289: (l_tcnv_rec.TRX_NUMBER = OKL_Api.G_MISS_CHAR) THEN
290: OKL_Api.SET_MESSAGE(p_app_name => 'OKL'
291: ,p_msg_name => g_required_value
292: ,p_token1 => g_col_name_token
293: ,p_token1_value => 'TRX_NUMBER');
294: RAISE OKL_API.G_EXCEPTION_ERROR;
290: OKL_Api.SET_MESSAGE(p_app_name => 'OKL'
291: ,p_msg_name => g_required_value
292: ,p_token1 => g_col_name_token
293: ,p_token1_value => 'TRX_NUMBER');
294: RAISE OKL_API.G_EXCEPTION_ERROR;
295: END IF;
296:
297: */
298:
300: OPEN try_csr;
301: FETCH try_csr INTO l_try_id;
302:
303: IF (try_csr%NOTFOUND) THEN
304: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
305: p_msg_name => 'OKL_MISC_TRX_NOT_FOUND');
306: CLOSE try_csr;
307: RAISE OKL_API.G_EXCEPTION_ERROR;
308: END IF;
303: IF (try_csr%NOTFOUND) THEN
304: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
305: p_msg_name => 'OKL_MISC_TRX_NOT_FOUND');
306: CLOSE try_csr;
307: RAISE OKL_API.G_EXCEPTION_ERROR;
308: END IF;
309:
310: CLOSE try_csr;
311:
316: ELSE
317: OPEN get_contract_number(l_tcnv_rec.khr_id);
318: FETCH get_contract_number INTO l_cntrct_number;
319: CLOSE get_contract_number;
320: Okl_Api.set_message(p_app_name => g_app_name,
321: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
322: p_token1 => 'CONTRACT_NUMBER',
323: p_token1_value => l_cntrct_number);
324: RAISE OKL_API.G_EXCEPTION_ERROR;
320: Okl_Api.set_message(p_app_name => g_app_name,
321: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
322: p_token1 => 'CONTRACT_NUMBER',
323: p_token1_value => l_cntrct_number);
324: RAISE OKL_API.G_EXCEPTION_ERROR;
325: END IF;
326:
327: l_tcnv_rec.TRY_ID := l_try_id;
328: l_tcnv_rec.TCN_TYPE := 'MAE';
384: x_tcnv_rec => x_tcnv_rec);
385:
386: x_return_status := l_return_status;
387:
388: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
389:
390: EXCEPTION
391: WHEN OKL_API.G_EXCEPTION_ERROR THEN
392: x_return_status := OKL_API.HANDLE_EXCEPTIONS
387:
388: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
389:
390: EXCEPTION
391: WHEN OKL_API.G_EXCEPTION_ERROR THEN
392: x_return_status := OKL_API.HANDLE_EXCEPTIONS
393: (
394: l_api_name,
395: G_PKG_NAME,
388: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
389:
390: EXCEPTION
391: WHEN OKL_API.G_EXCEPTION_ERROR THEN
392: x_return_status := OKL_API.HANDLE_EXCEPTIONS
393: (
394: l_api_name,
395: G_PKG_NAME,
396: 'OKL_API.G_RET_STS_ERROR',
392: x_return_status := OKL_API.HANDLE_EXCEPTIONS
393: (
394: l_api_name,
395: G_PKG_NAME,
396: 'OKL_API.G_RET_STS_ERROR',
397: x_msg_count,
398: x_msg_data,
399: '_PVT'
400: );
397: x_msg_count,
398: x_msg_data,
399: '_PVT'
400: );
401: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
402: x_return_status := OKL_API.HANDLE_EXCEPTIONS
403: (
404: l_api_name,
405: G_PKG_NAME,
398: x_msg_data,
399: '_PVT'
400: );
401: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
402: x_return_status := OKL_API.HANDLE_EXCEPTIONS
403: (
404: l_api_name,
405: G_PKG_NAME,
406: 'OKL_API.G_RET_STS_UNEXP_ERROR',
402: x_return_status := OKL_API.HANDLE_EXCEPTIONS
403: (
404: l_api_name,
405: G_PKG_NAME,
406: 'OKL_API.G_RET_STS_UNEXP_ERROR',
407: x_msg_count,
408: x_msg_data,
409: '_PVT'
410: );
408: x_msg_data,
409: '_PVT'
410: );
411: WHEN OTHERS THEN
412: x_return_status := OKL_API.HANDLE_EXCEPTIONS
413: (
414: l_api_name,
415: G_PKG_NAME,
416: 'OTHERS',
441:
442:
443: BEGIN
444:
445: x_return_status := OKL_API.G_RET_STS_SUCCESS;
446:
447: IF (p_tcnv_tbl.COUNT > 0) THEN
448:
449: i := p_tcnv_tbl.FIRST;
457: x_msg_data => x_msg_data,
458: p_tcnv_rec => p_tcnv_tbl(i),
459: x_tcnv_rec => x_tcnv_tbl(i));
460:
461: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
462: EXIT;
463: END IF;
464:
465: EXIT WHEN (i = p_tcnv_tbl.LAST);
493: l_tclv_rec TCLV_REC_TYPE := p_tclv_rec;
494:
495: BEGIN
496:
497: x_return_status := OKL_API.G_RET_STS_SUCCESS;
498:
499: IF (l_tclv_rec.AMOUNT IS NULL) OR
500: (l_tclv_rec.AMOUNT = OKL_Api.G_MISS_NUM) OR
501: (l_tclv_rec.AMOUNT = 0) THEN
496:
497: x_return_status := OKL_API.G_RET_STS_SUCCESS;
498:
499: IF (l_tclv_rec.AMOUNT IS NULL) OR
500: (l_tclv_rec.AMOUNT = OKL_Api.G_MISS_NUM) OR
501: (l_tclv_rec.AMOUNT = 0) THEN
502: Okl_Api.SET_MESSAGE(p_app_name => g_app_name
503: ,p_msg_name => g_required_value
504: ,p_token1 => g_col_name_token
498:
499: IF (l_tclv_rec.AMOUNT IS NULL) OR
500: (l_tclv_rec.AMOUNT = OKL_Api.G_MISS_NUM) OR
501: (l_tclv_rec.AMOUNT = 0) THEN
502: Okl_Api.SET_MESSAGE(p_app_name => g_app_name
503: ,p_msg_name => g_required_value
504: ,p_token1 => g_col_name_token
505: ,p_token1_value => 'AMOUNT');
506: RAISE OKL_API.G_EXCEPTION_ERROR;
502: Okl_Api.SET_MESSAGE(p_app_name => g_app_name
503: ,p_msg_name => g_required_value
504: ,p_token1 => g_col_name_token
505: ,p_token1_value => 'AMOUNT');
506: RAISE OKL_API.G_EXCEPTION_ERROR;
507: END IF;
508:
509: l_tclv_rec.TCL_TYPE := 'MAE';
510:
516: p_tclv_rec => l_tclv_rec,
517: x_tclv_rec => x_tclv_rec);
518: EXCEPTION
519:
520: WHEN OKL_API.G_EXCEPTION_ERROR THEN
521: x_return_status := Okl_Api.G_RET_STS_ERROR;
522:
523: END CREATE_TRX_CNTRCT_LINES;
524:
517: x_tclv_rec => x_tclv_rec);
518: EXCEPTION
519:
520: WHEN OKL_API.G_EXCEPTION_ERROR THEN
521: x_return_status := Okl_Api.G_RET_STS_ERROR;
522:
523: END CREATE_TRX_CNTRCT_LINES;
524:
525:
551: x_msg_data => x_msg_data,
552: p_tclv_rec => p_tclv_tbl(i),
553: x_tclv_rec => x_tclv_tbl(i));
554:
555: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
556: EXIT;
557: END IF;
558:
559: EXIT WHEN (i = p_tclv_tbl.LAST);
565:
566: EXCEPTION
567:
568: WHEN OTHERS THEN
569: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
570:
571: END CREATE_TRX_CNTRCT_LINES;
572:
573:
599:
600: Validate_Amount (p_tcnv_rec => l_tcnv_rec,
601: x_return_status => l_return_status);
602:
603: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
604: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
605: p_msg_name => 'OKL_TRX_AMT_GT_LINE_AMT');
606: RAISE OKL_API.G_EXCEPTION_ERROR;
607: END IF;
600: Validate_Amount (p_tcnv_rec => l_tcnv_rec,
601: x_return_status => l_return_status);
602:
603: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
604: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
605: p_msg_name => 'OKL_TRX_AMT_GT_LINE_AMT');
606: RAISE OKL_API.G_EXCEPTION_ERROR;
607: END IF;
608:
602:
603: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
604: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
605: p_msg_name => 'OKL_TRX_AMT_GT_LINE_AMT');
606: RAISE OKL_API.G_EXCEPTION_ERROR;
607: END IF;
608:
609: OKL_TRX_CONTRACTS_PUB.update_trx_contracts( p_api_version => l_api_version
610: ,p_init_msg_list => p_init_msg_list
659: l_total_dist NUMBER := 0;
660: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TRX_CONTRACTS';
661: l_api_version NUMBER := 1.0;
662: i NUMBER := 0;
663: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
664:
665: -- Added by Santonyr for Multi-Currency
666:
667: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
690: CLOSE tcn_csr;
691:
692: IF (l_tsu_code = 'CANCELED') THEN
693:
694: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
695: p_msg_name => 'OKL_TRX_CANCELED');
696: RAISE OKL_API.G_EXCEPTION_ERROR;
697:
698: END IF;
692: IF (l_tsu_code = 'CANCELED') THEN
693:
694: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
695: p_msg_name => 'OKL_TRX_CANCELED');
696: RAISE OKL_API.G_EXCEPTION_ERROR;
697:
698: END IF;
699:
700: -- Added by Santonyr Round the transaction amount
705:
706: Validate_Amount (p_tcnv_rec => l_tcnv_rec,
707: x_return_status => l_return_status);
708:
709: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
710: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
711: p_msg_name => 'OKL_TRX_AMT_GT_LINE_AMT');
712: RAISE OKL_API.G_EXCEPTION_ERROR;
713: END IF;
706: Validate_Amount (p_tcnv_rec => l_tcnv_rec,
707: x_return_status => l_return_status);
708:
709: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
710: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
711: p_msg_name => 'OKL_TRX_AMT_GT_LINE_AMT');
712: RAISE OKL_API.G_EXCEPTION_ERROR;
713: END IF;
714:
708:
709: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
710: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
711: p_msg_name => 'OKL_TRX_AMT_GT_LINE_AMT');
712: RAISE OKL_API.G_EXCEPTION_ERROR;
713: END IF;
714:
715:
716: OKL_TRX_CONTRACTS_PUB.update_trx_contracts(p_api_version => l_api_version,
722: x_tcnv_rec => x_tcnv_rec);
723:
724:
725:
726: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
727:
728: -- If transaction is being canceled, then reverse the accounting
729: -- But we need to make sure that Lines and Accounting actually exist
730:
757: END IF;
758:
759: x_return_status := l_return_status;
760:
761: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
762:
763: EXCEPTION
764:
765: WHEN OKL_API.G_EXCEPTION_ERROR THEN
761: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
762:
763: EXCEPTION
764:
765: WHEN OKL_API.G_EXCEPTION_ERROR THEN
766: x_return_status := OKL_API.HANDLE_EXCEPTIONS
767: (
768: l_api_name,
769: G_PKG_NAME,
762:
763: EXCEPTION
764:
765: WHEN OKL_API.G_EXCEPTION_ERROR THEN
766: x_return_status := OKL_API.HANDLE_EXCEPTIONS
767: (
768: l_api_name,
769: G_PKG_NAME,
770: 'OKL_API.G_RET_STS_ERROR',
766: x_return_status := OKL_API.HANDLE_EXCEPTIONS
767: (
768: l_api_name,
769: G_PKG_NAME,
770: 'OKL_API.G_RET_STS_ERROR',
771: x_msg_count,
772: x_msg_data,
773: '_PVT'
774: );
771: x_msg_count,
772: x_msg_data,
773: '_PVT'
774: );
775: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
776: x_return_status := OKL_API.HANDLE_EXCEPTIONS
777: (
778: l_api_name,
779: G_PKG_NAME,
772: x_msg_data,
773: '_PVT'
774: );
775: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
776: x_return_status := OKL_API.HANDLE_EXCEPTIONS
777: (
778: l_api_name,
779: G_PKG_NAME,
780: 'OKL_API.G_RET_STS_UNEXP_ERROR',
776: x_return_status := OKL_API.HANDLE_EXCEPTIONS
777: (
778: l_api_name,
779: G_PKG_NAME,
780: 'OKL_API.G_RET_STS_UNEXP_ERROR',
781: x_msg_count,
782: x_msg_data,
783: '_PVT'
784: );
782: x_msg_data,
783: '_PVT'
784: );
785: WHEN OTHERS THEN
786: x_return_status := OKL_API.HANDLE_EXCEPTIONS
787: (
788: l_api_name,
789: G_PKG_NAME,
790: 'OTHERS',
807: IS
808:
809: l_api_version NUMBER := 1.0;
810: i NUMBER := 0;
811: l_overall_Status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
812:
813: BEGIN
814:
815: IF (p_tcnv_tbl.COUNT > 0) THEN
825: x_msg_data => x_msg_data,
826: p_tcnv_rec => p_tcnv_tbl(i),
827: x_tcnv_rec => x_tcnv_tbl(i));
828:
829: IF (x_return_status <> OKL_Api.G_RET_STS_SUCCESS) THEN
830: EXIT;
831: END IF;
832:
833: EXIT WHEN (i = p_tcnv_tbl.LAST);
840:
841: EXCEPTION
842:
843: WHEN OTHERS THEN
844: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
845:
846: END UPDATE_TRX_CONTRACTS;
847:
848:
860:
861: BEGIN
862:
863: IF (p_tclv_rec.AMOUNT IS NULL) OR
864: (p_tclv_rec.AMOUNT = OKL_Api.G_MISS_NUM) OR
865: (p_tclv_rec.AMOUNT = 0) THEN
866: OKL_Api.SET_MESSAGE(p_app_name => 'OKL'
867: ,p_msg_name => g_required_value
868: ,p_token1 => g_col_name_token
862:
863: IF (p_tclv_rec.AMOUNT IS NULL) OR
864: (p_tclv_rec.AMOUNT = OKL_Api.G_MISS_NUM) OR
865: (p_tclv_rec.AMOUNT = 0) THEN
866: OKL_Api.SET_MESSAGE(p_app_name => 'OKL'
867: ,p_msg_name => g_required_value
868: ,p_token1 => g_col_name_token
869: ,p_token1_value => 'AMOUNT');
870: x_return_status := OKL_Api.G_RET_STS_ERROR;
866: OKL_Api.SET_MESSAGE(p_app_name => 'OKL'
867: ,p_msg_name => g_required_value
868: ,p_token1 => g_col_name_token
869: ,p_token1_value => 'AMOUNT');
870: x_return_status := OKL_Api.G_RET_STS_ERROR;
871: RAISE OKL_API.G_EXCEPTION_ERROR;
872: END IF;
873:
874:
867: ,p_msg_name => g_required_value
868: ,p_token1 => g_col_name_token
869: ,p_token1_value => 'AMOUNT');
870: x_return_status := OKL_Api.G_RET_STS_ERROR;
871: RAISE OKL_API.G_EXCEPTION_ERROR;
872: END IF;
873:
874:
875: OKL_TRX_CONTRACTS_PUB.update_trx_cntrct_lines(p_api_version => l_api_version,
880: p_tclv_rec => p_tclv_rec,
881: x_tclv_rec => x_tclv_rec);
882:
883: EXCEPTION
884: WHEN OKL_API.G_EXCEPTION_ERROR THEN
885: NULL;
886:
887: END;
888: