17: --
18: -- End of comments
19: PROCEDURE validate_recycle(
20: p_api_version IN NUMBER,
21: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
22: x_return_status OUT NOCOPY VARCHAR2,
23: x_msg_count OUT NOCOPY NUMBER,
24: x_msg_data OUT NOCOPY VARCHAR2,
25: p_recy_rec IN recy_rec_type) IS
43: WHERE id = p_khr_id;
44:
45: get_recycle_vals_rec get_recycle_vals_csr%ROWTYPE;
46: get_recycle_k_vals_rec get_recycle_k_vals_csr%ROWTYPE;
47: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
48: l_recycle_exception EXCEPTION;
49: lp_recy_rec recy_rec_type := p_recy_rec;
50: l_meaning VARCHAR2(2000);
51: l_term_meaning VARCHAR2(2000);
74: CLOSE get_recycle_vals_csr;
75:
76: -- Check if valid transaction id
77: IF get_recycle_vals_rec.id IS NULL
78: OR get_recycle_vals_rec.id = OKL_API.G_MISS_NUM THEN
79:
80: OKL_API.SET_MESSAGE(
81: p_app_name => 'OKC',
82: p_msg_name => G_INVALID_VALUE,
76: -- Check if valid transaction id
77: IF get_recycle_vals_rec.id IS NULL
78: OR get_recycle_vals_rec.id = OKL_API.G_MISS_NUM THEN
79:
80: OKL_API.SET_MESSAGE(
81: p_app_name => 'OKC',
82: p_msg_name => G_INVALID_VALUE,
83: p_token1 => G_COL_NAME_TOKEN,
84: p_token1_value => 'p_transaction_id');
91: CLOSE get_recycle_k_vals_csr;
92:
93: -- Check if contract id valid
94: IF get_recycle_k_vals_rec.id IS NULL
95: OR get_recycle_k_vals_rec.id = OKL_API.G_MISS_NUM THEN
96:
97: OKL_API.SET_MESSAGE(
98: p_app_name => 'OKC',
99: p_msg_name => G_INVALID_VALUE,
93: -- Check if contract id valid
94: IF get_recycle_k_vals_rec.id IS NULL
95: OR get_recycle_k_vals_rec.id = OKL_API.G_MISS_NUM THEN
96:
97: OKL_API.SET_MESSAGE(
98: p_app_name => 'OKC',
99: p_msg_name => G_INVALID_VALUE,
100: p_token1 => G_COL_NAME_TOKEN,
101: p_token1_value => 'p_contract_id');
112: p_lookup_code => 'PROCESSED',
113: p_validate_yn => 'Y');
114:
115: -- Cannot recycle transaction for contract CONTRACT_NUMBER which is already STATUS.
116: OKL_API.SET_MESSAGE(
117: p_app_name => OKL_API.G_APP_NAME,
118: p_msg_name => 'OKL_AM_K_RECYCLE_STS_ERR',
119: p_token1 => 'CONTRACT_NUMBER',
120: p_token1_value => get_recycle_k_vals_rec.contract_number,
113: p_validate_yn => 'Y');
114:
115: -- Cannot recycle transaction for contract CONTRACT_NUMBER which is already STATUS.
116: OKL_API.SET_MESSAGE(
117: p_app_name => OKL_API.G_APP_NAME,
118: p_msg_name => 'OKL_AM_K_RECYCLE_STS_ERR',
119: p_token1 => 'CONTRACT_NUMBER',
120: p_token1_value => get_recycle_k_vals_rec.contract_number,
121: p_token2 => 'STATUS',
127: -- Check if transaction already set for recycle
128: IF get_recycle_vals_rec.tmt_recycle_yn = 'Y' THEN
129:
130: -- Cannot recycle transaction for contract CONTRACT_NUMBER which is already set for recycle.
131: OKL_API.SET_MESSAGE(
132: p_app_name => OKL_API.G_APP_NAME,
133: p_msg_name => 'OKL_AM_K_RECYCLE_RCY_ERR',
134: p_token1 => 'CONTRACT_NUMBER',
135: p_token1_value => get_recycle_k_vals_rec.contract_number);
128: IF get_recycle_vals_rec.tmt_recycle_yn = 'Y' THEN
129:
130: -- Cannot recycle transaction for contract CONTRACT_NUMBER which is already set for recycle.
131: OKL_API.SET_MESSAGE(
132: p_app_name => OKL_API.G_APP_NAME,
133: p_msg_name => 'OKL_AM_K_RECYCLE_RCY_ERR',
134: p_token1 => 'CONTRACT_NUMBER',
135: p_token1_value => get_recycle_k_vals_rec.contract_number);
136:
150: p_lookup_code => 'EXPIRED',
151: p_validate_yn => 'Y');
152:
153: -- Cannot recycle transaction for TERM_STATUS or EXP_STATUS contract CONTRACT_NUMBER.
154: OKL_API.SET_MESSAGE(
155: p_app_name => OKL_API.G_APP_NAME,
156: p_msg_name => 'OKL_AM_K_RECYCLE_TMT_ERR',
157: p_token1 => 'CONTRACT_NUMBER',
158: p_token1_value => get_recycle_k_vals_rec.contract_number,
151: p_validate_yn => 'Y');
152:
153: -- Cannot recycle transaction for TERM_STATUS or EXP_STATUS contract CONTRACT_NUMBER.
154: OKL_API.SET_MESSAGE(
155: p_app_name => OKL_API.G_APP_NAME,
156: p_msg_name => 'OKL_AM_K_RECYCLE_TMT_ERR',
157: p_token1 => 'CONTRACT_NUMBER',
158: p_token1_value => get_recycle_k_vals_rec.contract_number,
159: p_token2 => 'TERM_STATUS',
181: END IF;
182: IF get_recycle_k_vals_csr%ISOPEN THEN
183: CLOSE get_recycle_k_vals_csr;
184: END IF;
185: x_return_status := OKL_API.G_RET_STS_ERROR;
186:
187: WHEN OTHERS THEN
188: IF (is_debug_exception_on) THEN
189: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
195: IF get_recycle_k_vals_csr%ISOPEN THEN
196: CLOSE get_recycle_k_vals_csr;
197: END IF;
198: -- Set the oracle error message
199: OKL_API.set_message(p_app_name => g_app_name,
200: p_msg_name => g_unexpected_error,
201: p_token1 => g_sqlcode_token,
202: p_token1_value => SQLCODE,
203: p_token2 => g_sqlerrm_token,
201: p_token1 => g_sqlcode_token,
202: p_token1_value => SQLCODE,
203: p_token2 => g_sqlerrm_token,
204: p_token2_value => SQLERRM);
205: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
206:
207: END validate_recycle;
208:
209: -- Start of comments
217: --
218: -- End of comments
219: PROCEDURE recycle_termination(
220: p_api_version IN NUMBER,
221: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
222: x_return_status OUT NOCOPY VARCHAR2,
223: x_msg_count OUT NOCOPY NUMBER,
224: x_msg_data OUT NOCOPY VARCHAR2,
225: p_recy_rec IN recy_rec_type,
234: AND T.khr_id = K.id;
235:
236: lp_tcnv_rec OKL_TRX_CONTRACTS_PUB.tcnv_rec_type;
237: lx_tcnv_rec OKL_TRX_CONTRACTS_PUB.tcnv_rec_type;
238: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
239: l_api_name CONSTANT VARCHAR2(30) := 'recycle_termination';
240: l_api_version CONSTANT NUMBER := 1;
241: l_contract_number VARCHAR2(200);
242:
260: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_recy_rec.p_transaction_date: ' || p_recy_rec.p_transaction_date);
261: END IF;
262:
263: -- Set the transaction
264: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
265: G_PKG_NAME,
266: p_init_msg_list,
267: l_api_version,
268: p_api_version,
269: '_PVT',
270: x_return_status);
271:
272: -- Rollback if error setting activity for api
273: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
275: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
276: RAISE OKL_API.G_EXCEPTION_ERROR;
277: END IF;
270: x_return_status);
271:
272: -- Rollback if error setting activity for api
273: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
275: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
276: RAISE OKL_API.G_EXCEPTION_ERROR;
277: END IF;
278:
271:
272: -- Rollback if error setting activity for api
273: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
275: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
276: RAISE OKL_API.G_EXCEPTION_ERROR;
277: END IF;
278:
279: -- Validate the recycle transaction
272: -- Rollback if error setting activity for api
273: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
275: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
276: RAISE OKL_API.G_EXCEPTION_ERROR;
277: END IF;
278:
279: -- Validate the recycle transaction
280: validate_recycle (
278:
279: -- Validate the recycle transaction
280: validate_recycle (
281: p_api_version => p_api_version,
282: p_init_msg_list => OKL_API.G_FALSE,
283: x_return_status => l_return_status,
284: x_msg_count => x_msg_count,
285: x_msg_data => x_msg_data,
286: p_recy_rec => p_recy_rec);
288: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called validate_recycle , return status: ' || l_return_status);
289: END IF;
290:
291: -- Rollback if error in validation
292: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
294: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
295: RAISE OKL_API.G_EXCEPTION_ERROR;
296: END IF;
289: END IF;
290:
291: -- Rollback if error in validation
292: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
294: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
295: RAISE OKL_API.G_EXCEPTION_ERROR;
296: END IF;
297:
290:
291: -- Rollback if error in validation
292: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
294: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
295: RAISE OKL_API.G_EXCEPTION_ERROR;
296: END IF;
297:
298: -- set tcnv_rec
291: -- Rollback if error in validation
292: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
293: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
294: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
295: RAISE OKL_API.G_EXCEPTION_ERROR;
296: END IF;
297:
298: -- set tcnv_rec
299: lp_tcnv_rec.id := p_recy_rec.p_transaction_id;
304: END IF;
305: -- call update of transaction
306: OKL_TRX_CONTRACTS_PUB.update_trx_contracts(
307: p_api_version => p_api_version,
308: p_init_msg_list => OKL_API.G_FALSE,
309: x_return_status => l_return_status,
310: x_msg_count => x_msg_count,
311: x_msg_data => x_msg_data,
312: p_tcnv_rec => lp_tcnv_rec,
315: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TRX_CONTRACTS_PUB.update_trx_contracts , return status: ' || l_return_status);
316: END IF;
317:
318: -- raise exception if error
319: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
321: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
322: RAISE OKL_API.G_EXCEPTION_ERROR;
323: END IF;
316: END IF;
317:
318: -- raise exception if error
319: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
321: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
322: RAISE OKL_API.G_EXCEPTION_ERROR;
323: END IF;
324:
317:
318: -- raise exception if error
319: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
321: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
322: RAISE OKL_API.G_EXCEPTION_ERROR;
323: END IF;
324:
325: -- get the contract details
318: -- raise exception if error
319: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
321: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
322: RAISE OKL_API.G_EXCEPTION_ERROR;
323: END IF;
324:
325: -- get the contract details
326: OPEN contract_details_csr(lx_tcnv_rec.id);
328: CLOSE contract_details_csr;
329:
330: -- Set the message
331: -- Message: Contract CONTRACT_NUMBER is scheduled to recycle.
332: OKL_API.set_message(
333: p_app_name => OKL_API.G_APP_NAME,
334: p_msg_name => 'OKL_AM_K_SET_TO_RECYCLE',
335: p_token1 => 'CONTRACT_NUMBER',
336: p_token1_value => l_contract_number);
329:
330: -- Set the message
331: -- Message: Contract CONTRACT_NUMBER is scheduled to recycle.
332: OKL_API.set_message(
333: p_app_name => OKL_API.G_APP_NAME,
334: p_msg_name => 'OKL_AM_K_SET_TO_RECYCLE',
335: p_token1 => 'CONTRACT_NUMBER',
336: p_token1_value => l_contract_number);
337:
356: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run , return status: ' || l_return_status);
357: END IF;
358:
359: -- raise exception if error
360: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
362: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_ERROR;
364: END IF;
357: END IF;
358:
359: -- raise exception if error
360: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
362: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_ERROR;
364: END IF;
365:
358:
359: -- raise exception if error
360: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
362: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_ERROR;
364: END IF;
365:
366: -- set return variables
359: -- raise exception if error
360: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
362: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_ERROR;
364: END IF;
365:
366: -- set return variables
367: x_return_status := l_return_status;
366: -- set return variables
367: x_return_status := l_return_status;
368:
369: -- end the transaction
370: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
371: IF (is_debug_procedure_on) THEN
372: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
373: END IF;
374:
372: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
373: END IF;
374:
375: EXCEPTION
376: WHEN OKL_API.G_EXCEPTION_ERROR THEN
377: IF (is_debug_exception_on) THEN
378: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
379: END IF;
380: IF contract_details_csr%ISOPEN THEN
380: IF contract_details_csr%ISOPEN THEN
381: CLOSE contract_details_csr;
382: END IF;
383:
384: x_return_status := OKL_API.HANDLE_EXCEPTIONS
385: (
386: l_api_name,
387: G_PKG_NAME,
388: 'OKL_API.G_RET_STS_ERROR',
384: x_return_status := OKL_API.HANDLE_EXCEPTIONS
385: (
386: l_api_name,
387: G_PKG_NAME,
388: 'OKL_API.G_RET_STS_ERROR',
389: x_msg_count,
390: x_msg_data,
391: '_PVT'
392: );
389: x_msg_count,
390: x_msg_data,
391: '_PVT'
392: );
393: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
394: IF (is_debug_exception_on) THEN
395: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
396: END IF;
397: IF contract_details_csr%ISOPEN THEN
397: IF contract_details_csr%ISOPEN THEN
398: CLOSE contract_details_csr;
399: END IF;
400:
401: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
402: (
403: l_api_name,
404: G_PKG_NAME,
405: 'OKL_API.G_RET_STS_UNEXP_ERROR',
401: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
402: (
403: l_api_name,
404: G_PKG_NAME,
405: 'OKL_API.G_RET_STS_UNEXP_ERROR',
406: x_msg_count,
407: x_msg_data,
408: '_PVT'
409: );
415: IF contract_details_csr%ISOPEN THEN
416: CLOSE contract_details_csr;
417: END IF;
418:
419: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
420: (
421: l_api_name,
422: G_PKG_NAME,
423: 'OTHERS',
439: --
440: -- End of comments
441: PROCEDURE recycle_termination(
442: p_api_version IN NUMBER,
443: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
444: x_return_status OUT NOCOPY VARCHAR2,
445: x_msg_count OUT NOCOPY NUMBER,
446: x_msg_data OUT NOCOPY VARCHAR2,
447: p_recy_tbl IN recy_tbl_type,
446: x_msg_data OUT NOCOPY VARCHAR2,
447: p_recy_tbl IN recy_tbl_type,
448: x_recy_tbl OUT NOCOPY recy_tbl_type) IS
449:
450: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
451: i NUMBER := 0;
452: l_api_name CONSTANT VARCHAR2(30) := 'recycle_termination';
453: l_api_version CONSTANT NUMBER := 1;
454: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'recycle_termination';
465: END IF;
466:
467:
468: -- Set the transaction
469: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
470: G_PKG_NAME,
471: p_init_msg_list,
472: l_api_version,
473: p_api_version,
474: '_PVT',
475: x_return_status);
476:
477: -- Rollback if error setting activity for api
478: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
480: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
481: RAISE OKL_API.G_EXCEPTION_ERROR;
482: END IF;
475: x_return_status);
476:
477: -- Rollback if error setting activity for api
478: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
480: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
481: RAISE OKL_API.G_EXCEPTION_ERROR;
482: END IF;
483:
476:
477: -- Rollback if error setting activity for api
478: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
480: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
481: RAISE OKL_API.G_EXCEPTION_ERROR;
482: END IF;
483:
484:
477: -- Rollback if error setting activity for api
478: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
480: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
481: RAISE OKL_API.G_EXCEPTION_ERROR;
482: END IF;
483:
484:
485: IF (p_recy_tbl.COUNT > 0) THEN
500: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called recycle_termination , return status: ' || l_return_status);
501: END IF;
502:
503: -- raise exception if error
504: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
506: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
507: RAISE OKL_API.G_EXCEPTION_ERROR;
508: END IF;
501: END IF;
502:
503: -- raise exception if error
504: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
506: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
507: RAISE OKL_API.G_EXCEPTION_ERROR;
508: END IF;
509:
502:
503: -- raise exception if error
504: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
506: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
507: RAISE OKL_API.G_EXCEPTION_ERROR;
508: END IF;
509:
510: EXIT WHEN (i = p_recy_tbl.LAST);
503: -- raise exception if error
504: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
506: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
507: RAISE OKL_API.G_EXCEPTION_ERROR;
508: END IF;
509:
510: EXIT WHEN (i = p_recy_tbl.LAST);
511: i := p_recy_tbl.NEXT(i);
516: x_return_status := l_return_status;
517:
518:
519: -- end the transaction
520: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
521: IF (is_debug_procedure_on) THEN
522: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
523: END IF;
524:
522: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
523: END IF;
524:
525: EXCEPTION
526: WHEN OKL_API.G_EXCEPTION_ERROR THEN
527: IF (is_debug_exception_on) THEN
528: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
529: END IF;
530: x_return_status := OKL_API.HANDLE_EXCEPTIONS
526: WHEN OKL_API.G_EXCEPTION_ERROR THEN
527: IF (is_debug_exception_on) THEN
528: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
529: END IF;
530: x_return_status := OKL_API.HANDLE_EXCEPTIONS
531: (
532: l_api_name,
533: G_PKG_NAME,
534: 'OKL_API.G_RET_STS_ERROR',
530: x_return_status := OKL_API.HANDLE_EXCEPTIONS
531: (
532: l_api_name,
533: G_PKG_NAME,
534: 'OKL_API.G_RET_STS_ERROR',
535: x_msg_count,
536: x_msg_data,
537: '_PVT'
538: );
535: x_msg_count,
536: x_msg_data,
537: '_PVT'
538: );
539: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
540: IF (is_debug_exception_on) THEN
541: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
542: END IF;
543: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
539: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
540: IF (is_debug_exception_on) THEN
541: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
542: END IF;
543: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
544: (
545: l_api_name,
546: G_PKG_NAME,
547: 'OKL_API.G_RET_STS_UNEXP_ERROR',
543: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
544: (
545: l_api_name,
546: G_PKG_NAME,
547: 'OKL_API.G_RET_STS_UNEXP_ERROR',
548: x_msg_count,
549: x_msg_data,
550: '_PVT'
551: );
553: IF (is_debug_exception_on) THEN
554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
555: || sqlcode || ' , SQLERRM : ' || sqlerrm);
556: END IF;
557: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
558: (
559: l_api_name,
560: G_PKG_NAME,
561: 'OTHERS',