67: l_debug_enabled VARCHAR2(10);
68: is_debug_statement_on BOOLEAN;
69:
70: BEGIN
71: x_return_status := OKL_API.G_RET_STS_SUCCESS;
72:
73: l_debug_enabled := okl_debug_pub.check_log_enabled;
74: -- check for logging on STATEMENT level
75: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
84: CLOSE c_get_pool_dates_csr;
85: -- validate if the source transaction date is between the passed subsidy pool dates
86: IF NOT(TRUNC(p_source_trx_date) BETWEEN cv_get_pool_dates_csr.effective_from_date AND
87: NVL(cv_get_pool_dates_csr.effective_to_date,OKL_ACCOUNTING_UTIL.g_final_date))THEN
88: OKL_API.set_message(G_APP_NAME, G_SOURCE_TRX_DATE_POOL_VAL
89: ,'TRX_DATE', p_source_trx_date
90: ,'POOL_NAME', cv_get_pool_dates_csr.subsidy_pool_name
91: ,'ASSET_NUMBER',lv_six_tbl(idx).dnz_asset_number);
92: x_return_status := OKL_API.G_RET_STS_ERROR;
88: OKL_API.set_message(G_APP_NAME, G_SOURCE_TRX_DATE_POOL_VAL
89: ,'TRX_DATE', p_source_trx_date
90: ,'POOL_NAME', cv_get_pool_dates_csr.subsidy_pool_name
91: ,'ASSET_NUMBER',lv_six_tbl(idx).dnz_asset_number);
92: x_return_status := OKL_API.G_RET_STS_ERROR;
93: -- any errors here would be rolled up to display as a bundled error; i.e. all subsidy elements are
94: -- processed to show applicable errors. hence no raise statement
95: ELSE
96: -- assign the source trx date to the date of the rebook
105: END IF;
106: -- for ADDITION to pool balance, check if there was a prior REDUCTION operation.
107: -- this validation ensures that we are not adding back to the pool balance without ever reducing from it
108: -- in ideal scenarios, this check never fails, but this check is essential to stop data corruption
109: IF(lv_six_tbl(idx).trx_type_code = 'ADDITION' AND x_return_status = OKL_API.G_RET_STS_SUCCESS)THEN
110: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
111: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
112: l_module,
113: ' finding trx for pool '||lv_six_tbl(idx).subsidy_pool_id || ' lv_six_tbl(idx).source_object_id '||lv_six_tbl(idx).source_object_id
130: );
131: FETCH c_get_pool_trx_details INTO cv_get_pool_trx_details;
132: IF(c_get_pool_trx_details%NOTFOUND)THEN
133: CLOSE c_get_pool_trx_details;
134: OKL_API.set_message(G_APP_NAME, G_NO_POOL_TRANSACTION_EXISTS
135: ,'ASSET_NUMBER', lv_six_tbl(idx).dnz_asset_number);
136: x_return_status := OKL_API.G_RET_STS_ERROR;
137: END IF;
138: CLOSE c_get_pool_trx_details;
132: IF(c_get_pool_trx_details%NOTFOUND)THEN
133: CLOSE c_get_pool_trx_details;
134: OKL_API.set_message(G_APP_NAME, G_NO_POOL_TRANSACTION_EXISTS
135: ,'ASSET_NUMBER', lv_six_tbl(idx).dnz_asset_number);
136: x_return_status := OKL_API.G_RET_STS_ERROR;
137: END IF;
138: CLOSE c_get_pool_trx_details;
139: lv_six_tbl(idx).subsidy_pool_amount := cv_get_pool_trx_details.subsidy_pool_amount;
140: lv_six_tbl(idx).conversion_rate := cv_get_pool_trx_details.conversion_rate;
146: ||' lv_six_tbl(idx).vendor_id '||lv_six_tbl(idx).vendor_id||' lv_six_tbl(idx).dnz_asset_number '||lv_six_tbl(idx).dnz_asset_number
147: ||' lv_six_tbl(idx).subsidy_id '||lv_six_tbl(idx).subsidy_id
148: );
149: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
150: END IF; -- end of lv_six_tbl(idx).trx_type_code = 'ADDITION' AND x_return_status = OKL_API.G_RET_STS_SUCCESS
151: lv_six_tbl(idx).source_type_code := G_TRX_SOURCE_TYPE_CODE;
152: lv_six_tbl(idx).trx_reason_code := G_CONTRACT_REBOOK_CODE;
153: END LOOP;
154: -- now call the create pool transacation api
151: lv_six_tbl(idx).source_type_code := G_TRX_SOURCE_TYPE_CODE;
152: lv_six_tbl(idx).trx_reason_code := G_CONTRACT_REBOOK_CODE;
153: END LOOP;
154: -- now call the create pool transacation api
155: IF(x_return_status = OKL_API.G_RET_STS_SUCCESS)THEN
156: okl_subsidy_pool_trx_pvt.create_pool_transaction(p_api_version => l_api_version
157: ,p_init_msg_list => OKL_API.G_TRUE
158: ,x_return_status => x_return_status
159: ,x_msg_count => x_msg_count
153: END LOOP;
154: -- now call the create pool transacation api
155: IF(x_return_status = OKL_API.G_RET_STS_SUCCESS)THEN
156: okl_subsidy_pool_trx_pvt.create_pool_transaction(p_api_version => l_api_version
157: ,p_init_msg_list => OKL_API.G_TRUE
158: ,x_return_status => x_return_status
159: ,x_msg_count => x_msg_count
160: ,x_msg_data => x_msg_data
161: ,p_sixv_tbl => lv_six_tbl
160: ,x_msg_data => x_msg_data
161: ,p_sixv_tbl => lv_six_tbl
162: ,x_sixv_tbl => lx_six_tbl
163: );
164: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
167: RAISE OKL_API.G_EXCEPTION_ERROR;
168: END IF;
161: ,p_sixv_tbl => lv_six_tbl
162: ,x_sixv_tbl => lx_six_tbl
163: );
164: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
167: RAISE OKL_API.G_EXCEPTION_ERROR;
168: END IF;
169: END IF;
162: ,x_sixv_tbl => lx_six_tbl
163: );
164: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
167: RAISE OKL_API.G_EXCEPTION_ERROR;
168: END IF;
169: END IF;
170: EXCEPTION WHEN OTHERS THEN
163: );
164: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
167: RAISE OKL_API.G_EXCEPTION_ERROR;
168: END IF;
169: END IF;
170: EXCEPTION WHEN OTHERS THEN
171: x_return_status := OKL_API.G_RET_STS_ERROR;
167: RAISE OKL_API.G_EXCEPTION_ERROR;
168: END IF;
169: END IF;
170: EXCEPTION WHEN OTHERS THEN
171: x_return_status := OKL_API.G_RET_STS_ERROR;
172: END pool_trx_khr_rbk;
173: -- local procedure 1. END
174:
175: -- local procedure 2. START
240: );
241: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
242:
243:
244: x_return_status := OKL_API.G_RET_STS_SUCCESS;
245:
246: -- initialize tbl type parameters and idx
247: lv_six_tbl.DELETE; lx_six_tbl.DELETE;
248: idx := 0;
290: );
291: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
292:
293: okl_subsidy_pool_trx_pvt.create_pool_transaction(p_api_version => l_api_version
294: ,p_init_msg_list => OKL_API.G_FALSE
295: ,x_return_status => x_return_status
296: ,x_msg_count => x_msg_count
297: ,x_msg_data => x_msg_data
298: ,p_sixv_tbl => lv_six_tbl
305: ||' x_msg_data '||x_msg_data
306: );
307: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
308:
309: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
312: RAISE OKL_API.G_EXCEPTION_ERROR;
313: END IF;
306: );
307: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
308:
309: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
312: RAISE OKL_API.G_EXCEPTION_ERROR;
313: END IF;
314: END IF;
307: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
308:
309: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
312: RAISE OKL_API.G_EXCEPTION_ERROR;
313: END IF;
314: END IF;
315:
308:
309: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
312: RAISE OKL_API.G_EXCEPTION_ERROR;
313: END IF;
314: END IF;
315:
316: EXCEPTION WHEN OTHERS THEN
313: END IF;
314: END IF;
315:
316: EXCEPTION WHEN OTHERS THEN
317: x_return_status := OKL_API.G_RET_STS_ERROR;
318: END reduce_pool_balance;
319: -- local procedure 2. END
320:
321: PROCEDURE create_pool_trx_khr_book(p_api_version IN NUMBER
365: is_debug_statement_on BOOLEAN;
366:
367: BEGIN
368:
369: x_return_status := OKL_API.G_RET_STS_SUCCESS;
370:
371: l_debug_enabled := okl_debug_pub.check_log_enabled;
372: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
373: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
374: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIUB.pls call create_pool_trx_khr_book');
375: END IF;
376:
377: -- Call start_activity to create savepoint, check compatibility and initialize message list
378: x_return_status := OKL_API.START_ACTIVITY (
379: l_api_name
380: ,p_init_msg_list
381: ,'_PVT'
382: ,x_return_status);
380: ,p_init_msg_list
381: ,'_PVT'
382: ,x_return_status);
383: -- Check if activity started successfully
384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_ERROR;
388: END IF;
381: ,'_PVT'
382: ,x_return_status);
383: -- Check if activity started successfully
384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_ERROR;
388: END IF;
389:
382: ,x_return_status);
383: -- Check if activity started successfully
384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_ERROR;
388: END IF;
389:
390: -- check for logging on STATEMENT level
383: -- Check if activity started successfully
384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_ERROR;
388: END IF;
389:
390: -- check for logging on STATEMENT level
391: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
452: 'OKL_LEASE_QUOTE_SUBPOOL_PVT.process_active_contract with status '||x_return_status||' x_msg_data '||x_msg_data
453: );
454: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
455:
456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
459: RAISE OKL_API.G_EXCEPTION_ERROR;
460: END IF;
453: );
454: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
455:
456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
459: RAISE OKL_API.G_EXCEPTION_ERROR;
460: END IF;
461:
454: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
455:
456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
459: RAISE OKL_API.G_EXCEPTION_ERROR;
460: END IF;
461:
462: END IF;
455:
456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
459: RAISE OKL_API.G_EXCEPTION_ERROR;
460: END IF;
461:
462: END IF;
463: -- END 09/09/2005 cklee
491: 'OKL_SUBSIDY_POOL_TRX_PVT.create_pool_transaction with status '||x_return_status||' x_msg_data '||x_msg_data
492: );
493: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
494:
495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
498: RAISE OKL_API.G_EXCEPTION_ERROR;
499: END IF;
492: );
493: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
494:
495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
498: RAISE OKL_API.G_EXCEPTION_ERROR;
499: END IF;
500: -- start: cklee 07/12/2005
493: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
494:
495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
498: RAISE OKL_API.G_EXCEPTION_ERROR;
499: END IF;
500: -- start: cklee 07/12/2005
501: /* ELSIF(cv_chk_orig_source.orig_system_source_code = 'LEASE_APPLICATION')THEN
494:
495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
498: RAISE OKL_API.G_EXCEPTION_ERROR;
499: END IF;
500: -- start: cklee 07/12/2005
501: /* ELSIF(cv_chk_orig_source.orig_system_source_code = 'LEASE_APPLICATION')THEN
502: -- contract has been originated from Lease Application. here we need to add back the subsidy amount on
506: */
507: -- 09/09/2005 cklee:comment out END IF;
508: -- end: cklee 07/12/2005
509:
510: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
511:
512: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
513: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIUB.pls call create_pool_trx_khr_book');
514: END IF;
513: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIUB.pls call create_pool_trx_khr_book');
514: END IF;
515:
516: EXCEPTION
517: WHEN OKL_API.G_EXCEPTION_ERROR THEN
518: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
519: p_api_name => l_api_name,
520: p_pkg_name => G_PKG_NAME,
521: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
514: END IF;
515:
516: EXCEPTION
517: WHEN OKL_API.G_EXCEPTION_ERROR THEN
518: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
519: p_api_name => l_api_name,
520: p_pkg_name => G_PKG_NAME,
521: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
522: x_msg_count => x_msg_count,
517: WHEN OKL_API.G_EXCEPTION_ERROR THEN
518: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
519: p_api_name => l_api_name,
520: p_pkg_name => G_PKG_NAME,
521: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
522: x_msg_count => x_msg_count,
523: x_msg_data => x_msg_data,
524: p_api_type => g_api_type);
525:
522: x_msg_count => x_msg_count,
523: x_msg_data => x_msg_data,
524: p_api_type => g_api_type);
525:
526: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
527: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
528: p_api_name => l_api_name,
529: p_pkg_name => G_PKG_NAME,
530: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
523: x_msg_data => x_msg_data,
524: p_api_type => g_api_type);
525:
526: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
527: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
528: p_api_name => l_api_name,
529: p_pkg_name => G_PKG_NAME,
530: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
531: x_msg_count => x_msg_count,
526: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
527: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
528: p_api_name => l_api_name,
529: p_pkg_name => G_PKG_NAME,
530: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
531: x_msg_count => x_msg_count,
532: x_msg_data => x_msg_data,
533: p_api_type => g_api_type);
534:
532: x_msg_data => x_msg_data,
533: p_api_type => g_api_type);
534:
535: WHEN OTHERS THEN
536: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
537: p_api_name => l_api_name,
538: p_pkg_name => G_PKG_NAME,
539: p_exc_name => 'OTHERS',
540: x_msg_count => x_msg_count,
624: is_debug_procedure_on BOOLEAN;
625: is_debug_statement_on BOOLEAN;
626:
627: BEGIN
628: x_return_status := OKL_API.G_RET_STS_SUCCESS;
629:
630: l_debug_enabled := okl_debug_pub.check_log_enabled;
631: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
632: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
633: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIUB.pls call create_pool_trx_khr_reverse');
634: END IF;
635:
636: -- Call start_activity to create savepoint, check compatibility and initialize message list
637: x_return_status := OKL_API.START_ACTIVITY (
638: l_api_name
639: ,p_init_msg_list
640: ,'_PVT'
641: ,x_return_status);
639: ,p_init_msg_list
640: ,'_PVT'
641: ,x_return_status);
642: -- Check if activity started successfully
643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
646: RAISE OKL_API.G_EXCEPTION_ERROR;
647: END IF;
640: ,'_PVT'
641: ,x_return_status);
642: -- Check if activity started successfully
643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
646: RAISE OKL_API.G_EXCEPTION_ERROR;
647: END IF;
648:
641: ,x_return_status);
642: -- Check if activity started successfully
643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
646: RAISE OKL_API.G_EXCEPTION_ERROR;
647: END IF;
648:
649: -- check for logging on STATEMENT level
642: -- Check if activity started successfully
643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
646: RAISE OKL_API.G_EXCEPTION_ERROR;
647: END IF;
648:
649: -- check for logging on STATEMENT level
650: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
674: );
675: FETCH c_sub_pool_trx_csr INTO cv_sub_pool_trx_rec;
676: IF(c_sub_pool_trx_csr%NOTFOUND)THEN
677: CLOSE c_sub_pool_trx_csr;
678: x_return_status := OKL_API.G_RET_STS_ERROR;
679: OKL_API.Set_Message(p_app_name => G_APP_NAME,
680: p_msg_name => G_NO_SUB_POOL_TRX_FOUND,
681: p_token1 => 'SUBSIDY',
682: p_token1_value => c_subsidy_csr_rec.subsidy_name,
675: FETCH c_sub_pool_trx_csr INTO cv_sub_pool_trx_rec;
676: IF(c_sub_pool_trx_csr%NOTFOUND)THEN
677: CLOSE c_sub_pool_trx_csr;
678: x_return_status := OKL_API.G_RET_STS_ERROR;
679: OKL_API.Set_Message(p_app_name => G_APP_NAME,
680: p_msg_name => G_NO_SUB_POOL_TRX_FOUND,
681: p_token1 => 'SUBSIDY',
682: p_token1_value => c_subsidy_csr_rec.subsidy_name,
683: p_token2 => 'ASSET_NUMBER',
730:
731: -- now check the length of the table lv_sixv_tbl and then call the okl_subsidy_pool_trx_pvt api to create ADDITION transactions
732: IF(lv_sixv_tbl.COUNT > 0)THEN
733: okl_subsidy_pool_trx_pvt.create_pool_transaction(p_api_version => p_api_version
734: ,p_init_msg_list => OKL_API.G_TRUE
735: ,x_return_status => x_return_status
736: ,x_msg_count => x_msg_count
737: ,x_msg_data => x_msg_data
738: ,p_sixv_tbl => lv_sixv_tbl
743: l_module,
744: 'okl_subsidy_pool_trx_pvt.create_pool_transaction with status '||x_return_status || ' x_msg_data '||x_msg_data
745: );
746: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
747: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
750: RAISE OKL_API.G_EXCEPTION_ERROR;
751: END IF;
744: 'okl_subsidy_pool_trx_pvt.create_pool_transaction with status '||x_return_status || ' x_msg_data '||x_msg_data
745: );
746: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
747: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
750: RAISE OKL_API.G_EXCEPTION_ERROR;
751: END IF;
752: END IF;
745: );
746: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
747: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
750: RAISE OKL_API.G_EXCEPTION_ERROR;
751: END IF;
752: END IF;
753:
746: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
747: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
750: RAISE OKL_API.G_EXCEPTION_ERROR;
751: END IF;
752: END IF;
753:
754: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
754: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
755: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIUB.pls call create_pool_trx_khr_reverse');
756: END IF;
757:
758: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
759:
760: EXCEPTION
761: WHEN OKL_API.G_EXCEPTION_ERROR THEN
762: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
757:
758: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
759:
760: EXCEPTION
761: WHEN OKL_API.G_EXCEPTION_ERROR THEN
762: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
763: p_api_name => l_api_name,
764: p_pkg_name => G_PKG_NAME,
765: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
758: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
759:
760: EXCEPTION
761: WHEN OKL_API.G_EXCEPTION_ERROR THEN
762: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
763: p_api_name => l_api_name,
764: p_pkg_name => G_PKG_NAME,
765: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
766: x_msg_count => x_msg_count,
761: WHEN OKL_API.G_EXCEPTION_ERROR THEN
762: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
763: p_api_name => l_api_name,
764: p_pkg_name => G_PKG_NAME,
765: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
766: x_msg_count => x_msg_count,
767: x_msg_data => x_msg_data,
768: p_api_type => g_api_type);
769:
766: x_msg_count => x_msg_count,
767: x_msg_data => x_msg_data,
768: p_api_type => g_api_type);
769:
770: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
771: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
772: p_api_name => l_api_name,
773: p_pkg_name => G_PKG_NAME,
774: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
767: x_msg_data => x_msg_data,
768: p_api_type => g_api_type);
769:
770: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
771: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
772: p_api_name => l_api_name,
773: p_pkg_name => G_PKG_NAME,
774: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
775: x_msg_count => x_msg_count,
770: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
771: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
772: p_api_name => l_api_name,
773: p_pkg_name => G_PKG_NAME,
774: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
775: x_msg_count => x_msg_count,
776: x_msg_data => x_msg_data,
777: p_api_type => g_api_type);
778:
776: x_msg_data => x_msg_data,
777: p_api_type => g_api_type);
778:
779: WHEN OTHERS THEN
780: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
781: p_api_name => l_api_name,
782: p_pkg_name => G_PKG_NAME,
783: p_exc_name => 'OTHERS',
784: x_msg_count => x_msg_count,
995: is_debug_procedure_on BOOLEAN;
996: is_debug_statement_on BOOLEAN;
997:
998: BEGIN
999: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1000:
1001: l_debug_enabled := okl_debug_pub.check_log_enabled;
1002: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1003: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1004: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIUB.pls call create_pool_trx_khr_rbk');
1005: END IF;
1006:
1007: -- Call start_activity to create savepoint, check compatibility and initialize message list
1008: x_return_status := OKL_API.START_ACTIVITY(l_api_name,p_init_msg_list,'_PVT',x_return_status);
1009: -- Check if activity started successfully
1010: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1012: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1006:
1007: -- Call start_activity to create savepoint, check compatibility and initialize message list
1008: x_return_status := OKL_API.START_ACTIVITY(l_api_name,p_init_msg_list,'_PVT',x_return_status);
1009: -- Check if activity started successfully
1010: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1012: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1013: RAISE OKL_API.G_EXCEPTION_ERROR;
1014: END IF;
1007: -- Call start_activity to create savepoint, check compatibility and initialize message list
1008: x_return_status := OKL_API.START_ACTIVITY(l_api_name,p_init_msg_list,'_PVT',x_return_status);
1009: -- Check if activity started successfully
1010: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1012: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1013: RAISE OKL_API.G_EXCEPTION_ERROR;
1014: END IF;
1015:
1008: x_return_status := OKL_API.START_ACTIVITY(l_api_name,p_init_msg_list,'_PVT',x_return_status);
1009: -- Check if activity started successfully
1010: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1012: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1013: RAISE OKL_API.G_EXCEPTION_ERROR;
1014: END IF;
1015:
1016: -- check for logging on STATEMENT level
1009: -- Check if activity started successfully
1010: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1012: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1013: RAISE OKL_API.G_EXCEPTION_ERROR;
1014: END IF;
1015:
1016: -- check for logging on STATEMENT level
1017: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
1199: 'pool_trx_khr_rbk returned with status '||x_return_status || ' x_msg_data '||x_msg_data
1200: );
1201: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
1202:
1203: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1206: RAISE OKL_API.G_EXCEPTION_ERROR;
1207: END IF;
1200: );
1201: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
1202:
1203: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1206: RAISE OKL_API.G_EXCEPTION_ERROR;
1207: END IF;
1208: END IF;
1201: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
1202:
1203: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1206: RAISE OKL_API.G_EXCEPTION_ERROR;
1207: END IF;
1208: END IF;
1209:
1202:
1203: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1206: RAISE OKL_API.G_EXCEPTION_ERROR;
1207: END IF;
1208: END IF;
1209:
1210: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1210: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1211: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIUB.pls call create_pool_trx_khr_rbk');
1212: END IF;
1213:
1214: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1215: EXCEPTION
1216: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1217: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1218: p_api_name => l_api_name,
1212: END IF;
1213:
1214: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1215: EXCEPTION
1216: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1217: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1218: p_api_name => l_api_name,
1219: p_pkg_name => G_PKG_NAME,
1220: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1213:
1214: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1215: EXCEPTION
1216: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1217: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1218: p_api_name => l_api_name,
1219: p_pkg_name => G_PKG_NAME,
1220: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1221: x_msg_count => x_msg_count,
1216: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1217: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1218: p_api_name => l_api_name,
1219: p_pkg_name => G_PKG_NAME,
1220: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1221: x_msg_count => x_msg_count,
1222: x_msg_data => x_msg_data,
1223: p_api_type => g_api_type);
1224:
1221: x_msg_count => x_msg_count,
1222: x_msg_data => x_msg_data,
1223: p_api_type => g_api_type);
1224:
1225: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1226: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1227: p_api_name => l_api_name,
1228: p_pkg_name => G_PKG_NAME,
1229: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1222: x_msg_data => x_msg_data,
1223: p_api_type => g_api_type);
1224:
1225: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1226: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1227: p_api_name => l_api_name,
1228: p_pkg_name => G_PKG_NAME,
1229: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1230: x_msg_count => x_msg_count,
1225: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1226: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1227: p_api_name => l_api_name,
1228: p_pkg_name => G_PKG_NAME,
1229: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1230: x_msg_count => x_msg_count,
1231: x_msg_data => x_msg_data,
1232: p_api_type => g_api_type);
1233:
1231: x_msg_data => x_msg_data,
1232: p_api_type => g_api_type);
1233:
1234: WHEN OTHERS THEN
1235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1236: p_api_name => l_api_name,
1237: p_pkg_name => G_PKG_NAME,
1238: p_exc_name => 'OTHERS',
1239: x_msg_count => x_msg_count,
1278: is_debug_procedure_on BOOLEAN;
1279: is_debug_statement_on BOOLEAN;
1280:
1281: BEGIN
1282: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1283:
1284: l_debug_enabled := okl_debug_pub.check_log_enabled;
1285: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1286: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1287: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIUB.pls call create_pool_trx_khr_split');
1288: END IF;
1289:
1290: -- Call start_activity to create savepoint, check compatibility and initialize message list
1291: x_return_status := OKL_API.START_ACTIVITY(l_api_name,p_init_msg_list,'_PVT',x_return_status);
1292: -- Check if activity started successfully
1293: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1295: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1289:
1290: -- Call start_activity to create savepoint, check compatibility and initialize message list
1291: x_return_status := OKL_API.START_ACTIVITY(l_api_name,p_init_msg_list,'_PVT',x_return_status);
1292: -- Check if activity started successfully
1293: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1295: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1296: RAISE OKL_API.G_EXCEPTION_ERROR;
1297: END IF;
1290: -- Call start_activity to create savepoint, check compatibility and initialize message list
1291: x_return_status := OKL_API.START_ACTIVITY(l_api_name,p_init_msg_list,'_PVT',x_return_status);
1292: -- Check if activity started successfully
1293: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1295: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1296: RAISE OKL_API.G_EXCEPTION_ERROR;
1297: END IF;
1298:
1291: x_return_status := OKL_API.START_ACTIVITY(l_api_name,p_init_msg_list,'_PVT',x_return_status);
1292: -- Check if activity started successfully
1293: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1295: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1296: RAISE OKL_API.G_EXCEPTION_ERROR;
1297: END IF;
1298:
1299: -- check for logging on STATEMENT level
1292: -- Check if activity started successfully
1293: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1295: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1296: RAISE OKL_API.G_EXCEPTION_ERROR;
1297: END IF;
1298:
1299: -- check for logging on STATEMENT level
1300: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
1339: 'create_pool_trx_khr_reverse called from create_pool_trx_khr_split return status '||x_return_status || ' x_msg_data '||x_msg_data
1340: );
1341: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
1342:
1343: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1346: RAISE OKL_API.G_EXCEPTION_ERROR;
1347: END IF;
1340: );
1341: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
1342:
1343: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1346: RAISE OKL_API.G_EXCEPTION_ERROR;
1347: END IF;
1348:
1341: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
1342:
1343: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1346: RAISE OKL_API.G_EXCEPTION_ERROR;
1347: END IF;
1348:
1349: -- write to log
1342:
1343: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1346: RAISE OKL_API.G_EXCEPTION_ERROR;
1347: END IF;
1348:
1349: -- write to log
1350: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
1366: 'reduce pool balance from first contract api return status '||x_return_status||' x_msg_data '||x_msg_data
1367: );
1368: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
1369:
1370: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1372: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1373: RAISE OKL_API.G_EXCEPTION_ERROR;
1374: END IF;
1367: );
1368: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
1369:
1370: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1372: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1373: RAISE OKL_API.G_EXCEPTION_ERROR;
1374: END IF;
1375:
1368: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
1369:
1370: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1372: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1373: RAISE OKL_API.G_EXCEPTION_ERROR;
1374: END IF;
1375:
1376: -- no errors from the first contract, process the second split contract for pool balance reduction.
1369:
1370: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1372: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1373: RAISE OKL_API.G_EXCEPTION_ERROR;
1374: END IF;
1375:
1376: -- no errors from the first contract, process the second split contract for pool balance reduction.
1377: -- call local api for this reduction operation
1385: 'reduce pool balance from second contract api return status '||x_return_status|| ' x_msg_data '||x_msg_data
1386: );
1387: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
1388:
1389: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1391: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1392: RAISE OKL_API.G_EXCEPTION_ERROR;
1393: END IF;
1386: );
1387: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
1388:
1389: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1391: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1392: RAISE OKL_API.G_EXCEPTION_ERROR;
1393: END IF;
1394:
1387: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
1388:
1389: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1391: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1392: RAISE OKL_API.G_EXCEPTION_ERROR;
1393: END IF;
1394:
1395: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1388:
1389: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1391: ELSIF(x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1392: RAISE OKL_API.G_EXCEPTION_ERROR;
1393: END IF;
1394:
1395: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1396: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIUB.pls call create_pool_trx_khr_split');
1395: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1396: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIUB.pls call create_pool_trx_khr_split');
1397: END IF;
1398:
1399: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1400: EXCEPTION
1401: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1402: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1403: p_api_name => l_api_name,
1397: END IF;
1398:
1399: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1400: EXCEPTION
1401: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1402: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1403: p_api_name => l_api_name,
1404: p_pkg_name => G_PKG_NAME,
1405: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1398:
1399: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1400: EXCEPTION
1401: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1402: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1403: p_api_name => l_api_name,
1404: p_pkg_name => G_PKG_NAME,
1405: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1406: x_msg_count => x_msg_count,
1401: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1402: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1403: p_api_name => l_api_name,
1404: p_pkg_name => G_PKG_NAME,
1405: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1406: x_msg_count => x_msg_count,
1407: x_msg_data => x_msg_data,
1408: p_api_type => g_api_type);
1409:
1406: x_msg_count => x_msg_count,
1407: x_msg_data => x_msg_data,
1408: p_api_type => g_api_type);
1409:
1410: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1411: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1412: p_api_name => l_api_name,
1413: p_pkg_name => G_PKG_NAME,
1414: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1407: x_msg_data => x_msg_data,
1408: p_api_type => g_api_type);
1409:
1410: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1411: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1412: p_api_name => l_api_name,
1413: p_pkg_name => G_PKG_NAME,
1414: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1415: x_msg_count => x_msg_count,
1410: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1411: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1412: p_api_name => l_api_name,
1413: p_pkg_name => G_PKG_NAME,
1414: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1415: x_msg_count => x_msg_count,
1416: x_msg_data => x_msg_data,
1417: p_api_type => g_api_type);
1418:
1416: x_msg_data => x_msg_data,
1417: p_api_type => g_api_type);
1418:
1419: WHEN OTHERS THEN
1420: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1421: p_api_name => l_api_name,
1422: p_pkg_name => G_PKG_NAME,
1423: p_exc_name => 'OTHERS',
1424: x_msg_count => x_msg_count,