DBA Data[Home] [Help]

APPS.OKL_LOAN_BAL_UPDATE_PVT dependencies on OKL_API

Line 20: , p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE

16: -- End of Comments
17: -----------------------------------------------------------------------------
18: PROCEDURE get_loan_amounts(
19: p_api_version IN NUMBER
20: , p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
21: , x_return_status OUT NOCOPY VARCHAR2
22: , x_msg_count OUT NOCOPY NUMBER
23: , x_msg_data OUT NOCOPY VARCHAR2
24: , p_khr_rec IN khr_rec_type

Line 106: /*x_return_status := OKL_API.START_ACTIVITY(

102: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRLBUB.pls call GET_LOAN_AMOUNTS');
103: END IF;
104:
105: -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
106: /*x_return_status := OKL_API.START_ACTIVITY(
107: p_api_name => l_api_name
108: , p_pkg_name => G_PKG_NAME
109: , p_init_msg_list => p_init_msg_list
110: , l_api_version => l_api_version

Line 115: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

111: , p_api_version => p_api_version
112: , p_api_type => G_API_TYPE
113: , x_return_status => x_return_status);
114: -- check if activity started successfully
115: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;*/

Line 116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

112: , p_api_type => G_API_TYPE
113: , x_return_status => x_return_status);
114: -- check if activity started successfully
115: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;*/
120:

Line 117: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

113: , x_return_status => x_return_status);
114: -- check if activity started successfully
115: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;*/
120:
121: x_return_status := OKL_API.G_RET_STS_SUCCESS;

Line 118: RAISE OKL_API.G_EXCEPTION_ERROR;

114: -- check if activity started successfully
115: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;*/
120:
121: x_return_status := OKL_API.G_RET_STS_SUCCESS;
122: -- check if the contract is of Book classification LOAN or REVOLVING-LOAN and is Booked

Line 121: x_return_status := OKL_API.G_RET_STS_SUCCESS;

117: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;*/
120:
121: x_return_status := OKL_API.G_RET_STS_SUCCESS;
122: -- check if the contract is of Book classification LOAN or REVOLVING-LOAN and is Booked
123: /*OPEN check_contract_loan_bal(p_contract_number);
124: FETCH check_contract_loan_bal INTO l_khr_id;
125: IF check_contract_loan_bal%NOTFOUND THEN

Line 128: RAISE OKL_API.G_EXCEPTION_ERROR;

124: FETCH check_contract_loan_bal INTO l_khr_id;
125: IF check_contract_loan_bal%NOTFOUND THEN
126: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Contract Book classification is not valid or the contract status is not Booked ');
127: FND_FILE.PUT_LINE (FND_FILE.LOG,'Contract Book classification is not valid or the contract status is not Booked ');
128: RAISE OKL_API.G_EXCEPTION_ERROR;
129: END IF;
130: CLOSE check_contract_loan_bal;*/
131:
132: i :=1;

Line 152: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

148: , p_khr_rec.khr_id -- Contract ID
149: , l_kle_rec.asset_id -- Asset ID
150: , p_as_of_date );
151:
152: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
153: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate principal balance for Asset Number: '|| l_kle_rec.asset_number);
154: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
155: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate principal balance for Asset Number: '|| l_kle_rec.asset_number);
156: END IF;

Line 154: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

150: , p_as_of_date );
151:
152: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
153: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate principal balance for Asset Number: '|| l_kle_rec.asset_number);
154: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
155: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate principal balance for Asset Number: '|| l_kle_rec.asset_number);
156: END IF;
157: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Asset Number: '|| l_kle_rec.asset_number || ' Principal Balance : ' || l_kle_prin_bal);
158: --l_khr_prin_bal := l_khr_prin_bal + l_kle_prin_bal;

Line 209: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

205: OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal( x_return_status
206: , p_khr_rec.khr_id -- Contract ID
207: , null --Asset id is null for revolving Loan
208: , p_as_of_date );
209: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
210: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate principal balance for Contract Number: '|| p_khr_rec.contract_number);
211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
212: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate principal balance for Contract Number: '|| p_khr_rec.contract_number);
213: END IF;

Line 211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

207: , null --Asset id is null for revolving Loan
208: , p_as_of_date );
209: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
210: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate principal balance for Contract Number: '|| p_khr_rec.contract_number);
211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
212: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate principal balance for Contract Number: '|| p_khr_rec.contract_number);
213: END IF;
214: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Contract Number: '|| p_khr_rec.contract_number || ' Principal Balance : ' || l_khr_prin_bal);
215:

Line 235: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

231: l_tot_interest_amt_due :=
232: OKL_VARIABLE_INT_UTIL_PVT.get_interest_due( x_return_status
233: , p_khr_rec.khr_id -- Contract ID
234: , p_as_of_date );
235: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
236: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate interest due for Contract Number: '|| p_khr_rec.contract_number);
237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
238: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate interest due for Contract Number: '|| p_khr_rec.contract_number);
239: END IF;

Line 237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

233: , p_khr_rec.khr_id -- Contract ID
234: , p_as_of_date );
235: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
236: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate interest due for Contract Number: '|| p_khr_rec.contract_number);
237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
238: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate interest due for Contract Number: '|| p_khr_rec.contract_number);
239: END IF;
240: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Contract Number: '|| p_khr_rec.contract_number || ' Interest Due : ' || l_tot_interest_amt_due);
241: /************************************************

Line 250: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

246: OKL_VARIABLE_INT_UTIL_PVT.get_interest_billed( x_return_status
247: , p_khr_rec.khr_id -- Contract ID
248: , NULL
249: , p_as_of_date );
250: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
251: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate interest billed for Contract Number: '|| p_khr_rec.contract_number);
252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
253: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate interest billed for Contract Number: '|| p_khr_rec.contract_number);
254: END IF;

Line 252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

248: , NULL
249: , p_as_of_date );
250: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
251: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate interest billed for Contract Number: '|| p_khr_rec.contract_number);
252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
253: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate interest billed for Contract Number: '|| p_khr_rec.contract_number);
254: END IF;
255: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Contract Number: '|| p_khr_rec.contract_number || ' Interest Billed : ' || l_tot_interest_amt_billed);
256: --FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Total interest amount billed ='|| l_tot_interest_amt_billed );

Line 267: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

263: OKL_VARIABLE_INT_UTIL_PVT.get_interest_paid( x_return_status
264: , p_khr_rec.khr_id -- Contract ID
265: , NULL
266: , p_as_of_date );
267: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
268: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate interest received for Contract Number: '|| p_khr_rec.contract_number);
269: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
270: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate interest received for Contract Number: '|| p_khr_rec.contract_number);
271: END IF;

Line 269: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

265: , NULL
266: , p_as_of_date );
267: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
268: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate interest received for Contract Number: '|| p_khr_rec.contract_number);
269: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
270: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to calculate interest received for Contract Number: '|| p_khr_rec.contract_number);
271: END IF;
272: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Contract Number: '|| p_khr_rec.contract_number || ' Interest Received : ' || l_tot_interest_amt_received);
273: --FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Total interest amount received ='|| l_tot_interest_amt_received);

Line 306: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN

302: , x_msg_count => x_msg_count
303: , x_msg_data => x_msg_data
304: , p_cblv_tbl => l_crt_cblv_tbl
305: , x_cblv_tbl => lx_crt_cblv_tbl);
306: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
307: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to create balances for Contract Number: '|| p_khr_rec.contract_number);
308: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
309: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to create balances for Contract Number: '|| p_khr_rec.contract_number);
310: END IF;

Line 308: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN

304: , p_cblv_tbl => l_crt_cblv_tbl
305: , x_cblv_tbl => lx_crt_cblv_tbl);
306: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
307: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to create balances for Contract Number: '|| p_khr_rec.contract_number);
308: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
309: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to create balances for Contract Number: '|| p_khr_rec.contract_number);
310: END IF;
311: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Successfully created balances for Contract Number: '|| p_khr_rec.contract_number);
312: END IF;

Line 324: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN

320: , x_msg_count => x_msg_count
321: , x_msg_data => x_msg_data
322: , p_cblv_tbl => l_upd_cblv_tbl
323: , x_cblv_tbl => lx_upd_cblv_tbl);
324: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
325: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to update balances for Contract Number: '|| p_khr_rec.contract_number);
326: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
327: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to update balances for Contract Number: '|| p_khr_rec.contract_number);
328: END IF;

Line 326: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN

322: , p_cblv_tbl => l_upd_cblv_tbl
323: , x_cblv_tbl => lx_upd_cblv_tbl);
324: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
325: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to update balances for Contract Number: '|| p_khr_rec.contract_number);
326: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
327: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Unable to update balances for Contract Number: '|| p_khr_rec.contract_number);
328: END IF;
329: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Successfully updated balances for Contract Number: '|| p_khr_rec.contract_number);
330: END IF;

Line 332: --OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);

328: END IF;
329: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Successfully updated balances for Contract Number: '|| p_khr_rec.contract_number);
330: END IF;
331: -- commit the savepoint
332: --OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
333:
334: IF(NVL(l_debug_enabled,'N')='Y') THEN
335: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRLBUB.pls call GET_LOAN_AMOUNTS');
336: END IF;

Line 365: lx_return_status VARCHAR(1) := OKL_API.G_RET_STS_SUCCESS;

361:
362: lx_msg_count NUMBER;
363: lx_msg_data VARCHAR2(450);
364: l_msg_index_out NUMBER;
365: lx_return_status VARCHAR(1) := OKL_API.G_RET_STS_SUCCESS;
366: l_as_of_date DATE := TRUNC(SYSDATE);
367: l_khr_rec khr_rec_type;
368:
369: CURSOR c_khr_csr(cp_contract_number IN VARCHAR2) IS SELECT chr.id khr_id,

Line 418: IF (lx_return_status = OKL_API.G_RET_STS_SUCCESS) THEN

414: x_msg_data => errbuf,
415: p_khr_rec => l_khr_rec,
416: p_as_of_date => l_as_of_date);
417:
418: IF (lx_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
419: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Successfully processed contract: ' || l_khr_rec.contract_number);
420: Commit;
421: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
422: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error processing contract: ' || l_khr_rec.contract_number);

Line 421: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN

417:
418: IF (lx_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
419: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Successfully processed contract: ' || l_khr_rec.contract_number);
420: Commit;
421: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
422: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error processing contract: ' || l_khr_rec.contract_number);
423: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
424: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Unexpected error processing contract: ' || l_khr_rec.contract_number);
425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

Line 423: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN

419: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Successfully processed contract: ' || l_khr_rec.contract_number);
420: Commit;
421: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
422: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error processing contract: ' || l_khr_rec.contract_number);
423: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
424: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Unexpected error processing contract: ' || l_khr_rec.contract_number);
425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
426: END IF;
427: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');

Line 425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

421: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
422: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error processing contract: ' || l_khr_rec.contract_number);
423: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
424: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Unexpected error processing contract: ' || l_khr_rec.contract_number);
425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
426: END IF;
427: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
428: END LOOP;
429:

Line 447: WHEN Okl_Api.G_EXCEPTION_ERROR THEN

443: END LOOP; -- end of for loop
444: END IF; -- end of check for message count
445: retcode := 0;
446: EXCEPTION
447: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
448: retcode := 2;
449: lx_return_status := Okl_Api.HANDLE_EXCEPTIONS(G_APP_NAME,
450: G_PKG_NAME,
451: 'Okl_Api.G_RET_STS_ERROR',

Line 449: lx_return_status := Okl_Api.HANDLE_EXCEPTIONS(G_APP_NAME,

445: retcode := 0;
446: EXCEPTION
447: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
448: retcode := 2;
449: lx_return_status := Okl_Api.HANDLE_EXCEPTIONS(G_APP_NAME,
450: G_PKG_NAME,
451: 'Okl_Api.G_RET_STS_ERROR',
452: lx_msg_count,
453: lx_msg_data,

Line 451: 'Okl_Api.G_RET_STS_ERROR',

447: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
448: retcode := 2;
449: lx_return_status := Okl_Api.HANDLE_EXCEPTIONS(G_APP_NAME,
450: G_PKG_NAME,
451: 'Okl_Api.G_RET_STS_ERROR',
452: lx_msg_count,
453: lx_msg_data,
454: '_PVT');
455: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 455: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

451: 'Okl_Api.G_RET_STS_ERROR',
452: lx_msg_count,
453: lx_msg_data,
454: '_PVT');
455: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
456: retcode := 2;
457: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
458: p_api_name => G_APP_NAME,
459: p_pkg_name => G_PKG_NAME,

Line 457: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(

453: lx_msg_data,
454: '_PVT');
455: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
456: retcode := 2;
457: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
458: p_api_name => G_APP_NAME,
459: p_pkg_name => G_PKG_NAME,
460: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
461: x_msg_count => lx_msg_count,

Line 460: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',

456: retcode := 2;
457: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
458: p_api_name => G_APP_NAME,
459: p_pkg_name => G_PKG_NAME,
460: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
461: x_msg_count => lx_msg_count,
462: x_msg_data => lx_msg_data,
463: p_api_type => '_PVT');
464: WHEN OTHERS THEN