36: END LOOP;
37:
38: IF l_count <> x_cf_levels_tbl.COUNT THEN
39:
40: OKL_API.SET_MESSAGE (
41: p_app_name => G_APP_NAME
42: ,p_msg_name => 'OKL_INVALID_VALUE2'
43: ,p_token1 => 'API_NAME'
44: ,p_token1_value => UPPER(l_api_name)
46: ,p_token2_value => 'levels_table_count'
47: ,p_token3 => 'VALUE'
48: ,p_token3_value => x_cf_levels_tbl.COUNT
49: );
50: RAISE OKL_API.G_EXCEPTION_ERROR;
51:
52: END IF;
53:
54: x_return_status := G_RET_STS_SUCCESS;
54: x_return_status := G_RET_STS_SUCCESS;
55:
56: EXCEPTION
57:
58: WHEN OKL_API.G_EXCEPTION_ERROR THEN
59: x_return_status := G_RET_STS_ERROR;
60:
61: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
62: x_return_status := G_RET_STS_UNEXP_ERROR;
57:
58: WHEN OKL_API.G_EXCEPTION_ERROR THEN
59: x_return_status := G_RET_STS_ERROR;
60:
61: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
62: x_return_status := G_RET_STS_UNEXP_ERROR;
63:
64: WHEN OTHERS THEN
65: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
61: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
62: x_return_status := G_RET_STS_UNEXP_ERROR;
63:
64: WHEN OTHERS THEN
65: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
66: p_msg_name => G_DB_ERROR,
67: p_token1 => G_PROG_NAME_TOKEN,
68: p_token1_value => l_api_name,
69: p_token2 => G_SQLCODE_TOKEN,
115: x_source_table := 'OKL_QUICK_QUOTE_LINES_B';
116: ELSIF (p_source_object_code = 'LEASE_QUOTE_CONSOLIDATED') THEN
117: x_source_table := 'OKL_LEASE_QUOTES_B';
118: ELSE
119: OKL_API.SET_MESSAGE (
120: p_app_name => G_APP_NAME
121: ,p_msg_name => 'OKL_INVALID_VALUE2'
122: ,p_token1 => 'API_NAME'
123: ,p_token1_value => UPPER(l_api_name)
125: ,p_token2_value => 'source_object_code'
126: ,p_token3 => 'VALUE'
127: ,p_token3_value => p_source_object_code
128: );
129: RAISE OKL_API.G_EXCEPTION_ERROR;
130: END IF;
131:
132: x_return_status := G_RET_STS_SUCCESS;
133:
132: x_return_status := G_RET_STS_SUCCESS;
133:
134: EXCEPTION
135:
136: WHEN OKL_API.G_EXCEPTION_ERROR THEN
137: x_return_status := G_RET_STS_ERROR;
138:
139: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
140: x_return_status := G_RET_STS_UNEXP_ERROR;
135:
136: WHEN OKL_API.G_EXCEPTION_ERROR THEN
137: x_return_status := G_RET_STS_ERROR;
138:
139: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
140: x_return_status := G_RET_STS_UNEXP_ERROR;
141:
142: WHEN OTHERS THEN
143: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
139: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
140: x_return_status := G_RET_STS_UNEXP_ERROR;
141:
142: WHEN OTHERS THEN
143: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
144: p_msg_name => G_DB_ERROR,
145: p_token1 => G_PROG_NAME_TOKEN,
146: p_token1_value => l_api_name,
147: p_token2 => G_SQLCODE_TOKEN,
242: );
243: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
244:
245: IF l_end_date > l_contract_end_date THEN
246: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_EXTENDS_K_END');
247: RAISE OKL_API.G_EXCEPTION_ERROR;
248: END IF;
249:
250: x_return_status := G_RET_STS_SUCCESS;
243: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
244:
245: IF l_end_date > l_contract_end_date THEN
246: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_EXTENDS_K_END');
247: RAISE OKL_API.G_EXCEPTION_ERROR;
248: END IF;
249:
250: x_return_status := G_RET_STS_SUCCESS;
251:
256: END IF;
257:
258: EXCEPTION
259:
260: WHEN OKL_API.G_EXCEPTION_ERROR THEN
261: x_return_status := G_RET_STS_ERROR;
262:
263: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
264: x_return_status := G_RET_STS_UNEXP_ERROR;
259:
260: WHEN OKL_API.G_EXCEPTION_ERROR THEN
261: x_return_status := G_RET_STS_ERROR;
262:
263: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
264: x_return_status := G_RET_STS_UNEXP_ERROR;
265:
266: WHEN OTHERS THEN
267: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
263: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
264: x_return_status := G_RET_STS_UNEXP_ERROR;
265:
266: WHEN OTHERS THEN
267: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
268: p_msg_name => G_DB_ERROR,
269: p_token1 => G_PROG_NAME_TOKEN,
270: p_token1_value => l_api_name,
271: p_token2 => G_SQLCODE_TOKEN,
311: x_return_status := G_RET_STS_SUCCESS;
312:
313: EXCEPTION
314:
315: WHEN OKL_API.G_EXCEPTION_ERROR THEN
316: x_return_status := G_RET_STS_ERROR;
317:
318: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
319: x_return_status := G_RET_STS_UNEXP_ERROR;
314:
315: WHEN OKL_API.G_EXCEPTION_ERROR THEN
316: x_return_status := G_RET_STS_ERROR;
317:
318: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
319: x_return_status := G_RET_STS_UNEXP_ERROR;
320:
321: WHEN OTHERS THEN
322: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
318: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
319: x_return_status := G_RET_STS_UNEXP_ERROR;
320:
321: WHEN OTHERS THEN
322: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
323: p_msg_name => G_DB_ERROR,
324: p_token1 => G_PROG_NAME_TOKEN,
325: p_token1_value => l_api_name,
326: p_token2 => G_SQLCODE_TOKEN,
347:
348: BEGIN
349:
350: IF p_cashflow_header_rec.frequency_code NOT IN ('M','Q','S','A') THEN
351: OKL_API.SET_MESSAGE (
352: p_app_name => G_APP_NAME
353: ,p_msg_name => 'OKL_INVALID_VALUE2'
354: ,p_token1 => 'API_NAME'
355: ,p_token1_value => UPPER(l_api_name)
357: ,p_token2_value => 'frequency_code'
358: ,p_token3 => 'VALUE'
359: ,p_token3_value => p_cashflow_header_rec.frequency_code
360: );
361: RAISE OKL_API.G_EXCEPTION_ERROR;
362: END IF;
363:
364: IF p_cashflow_header_rec.arrears_flag NOT IN ('Y' , 'N') THEN
365: OKL_API.SET_MESSAGE (
361: RAISE OKL_API.G_EXCEPTION_ERROR;
362: END IF;
363:
364: IF p_cashflow_header_rec.arrears_flag NOT IN ('Y' , 'N') THEN
365: OKL_API.SET_MESSAGE (
366: p_app_name => G_APP_NAME
367: ,p_msg_name => 'OKL_INVALID_VALUE2'
368: ,p_token1 => 'API_NAME'
369: ,p_token1_value => UPPER(l_api_name)
371: ,p_token2_value => 'arrears_flag'
372: ,p_token3 => 'VALUE'
373: ,p_token3_value => p_cashflow_header_rec.arrears_flag
374: );
375: RAISE OKL_API.G_EXCEPTION_ERROR;
376: END IF;
377:
378: IF p_cashflow_header_rec.type_code NOT IN ('INFLOW' , 'OUTFLOW') THEN
379: OKL_API.SET_MESSAGE (
375: RAISE OKL_API.G_EXCEPTION_ERROR;
376: END IF;
377:
378: IF p_cashflow_header_rec.type_code NOT IN ('INFLOW' , 'OUTFLOW') THEN
379: OKL_API.SET_MESSAGE (
380: p_app_name => G_APP_NAME
381: ,p_msg_name => 'OKL_INVALID_VALUE2'
382: ,p_token1 => 'API_NAME'
383: ,p_token1_value => UPPER(l_api_name)
385: ,p_token2_value => 'type_code'
386: ,p_token3 => 'VALUE'
387: ,p_token3_value => p_cashflow_header_rec.type_code
388: );
389: RAISE OKL_API.G_EXCEPTION_ERROR;
390: END IF;
391:
392: IF p_cashflow_header_rec.quote_type_code NOT IN ('LQ', 'QQ', 'LA') THEN
393: OKL_API.SET_MESSAGE (
389: RAISE OKL_API.G_EXCEPTION_ERROR;
390: END IF;
391:
392: IF p_cashflow_header_rec.quote_type_code NOT IN ('LQ', 'QQ', 'LA') THEN
393: OKL_API.SET_MESSAGE (
394: p_app_name => G_APP_NAME
395: ,p_msg_name => 'OKL_INVALID_VALUE2'
396: ,p_token1 => 'API_NAME'
397: ,p_token1_value => UPPER(l_api_name)
399: ,p_token2_value => 'quote_type_code'
400: ,p_token3 => 'VALUE'
401: ,p_token3_value => p_cashflow_header_rec.quote_type_code
402: );
403: RAISE OKL_API.G_EXCEPTION_ERROR;
404: END IF;
405:
406: IF p_cashflow_header_rec.quote_id IS NULL THEN
407: OKL_API.SET_MESSAGE (
403: RAISE OKL_API.G_EXCEPTION_ERROR;
404: END IF;
405:
406: IF p_cashflow_header_rec.quote_id IS NULL THEN
407: OKL_API.SET_MESSAGE (
408: p_app_name => G_APP_NAME
409: ,p_msg_name => 'OKL_INVALID_VALUE2'
410: ,p_token1 => 'API_NAME'
411: ,p_token1_value => UPPER(l_api_name)
413: ,p_token2_value => 'quote_id'
414: ,p_token3 => 'VALUE'
415: ,p_token3_value => p_cashflow_header_rec.quote_id
416: );
417: RAISE OKL_API.G_EXCEPTION_ERROR;
418: END IF;
419:
420: FOR i IN p_cashflow_level_tbl.FIRST .. p_cashflow_level_tbl.LAST LOOP
421: IF p_cashflow_level_tbl.EXISTS(i) THEN
419:
420: FOR i IN p_cashflow_level_tbl.FIRST .. p_cashflow_level_tbl.LAST LOOP
421: IF p_cashflow_level_tbl.EXISTS(i) THEN
422: IF UPPER(p_cashflow_level_tbl(i).record_mode) NOT IN ('CREATE', 'UPDATE') OR p_cashflow_level_tbl(i).record_mode IS NULL THEN
423: OKL_API.SET_MESSAGE (
424: p_app_name => G_APP_NAME
425: ,p_msg_name => 'OKL_INVALID_VALUE2'
426: ,p_token1 => 'API_NAME'
427: ,p_token1_value => UPPER(l_api_name)
429: ,p_token2_value => '('||i||') record_mode'
430: ,p_token3 => 'VALUE'
431: ,p_token3_value => UPPER(p_cashflow_level_tbl(i).record_mode)
432: );
433: RAISE OKL_API.G_EXCEPTION_ERROR;
434: END IF;
435: END IF;
436: END LOOP;
437:
438: x_return_status := G_RET_STS_SUCCESS;
439:
440: EXCEPTION
441:
442: WHEN OKL_API.G_EXCEPTION_ERROR THEN
443: x_return_status := G_RET_STS_ERROR;
444:
445: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
446: x_return_status := G_RET_STS_UNEXP_ERROR;
441:
442: WHEN OKL_API.G_EXCEPTION_ERROR THEN
443: x_return_status := G_RET_STS_ERROR;
444:
445: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
446: x_return_status := G_RET_STS_UNEXP_ERROR;
447:
448: WHEN OTHERS THEN
449: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
445: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
446: x_return_status := G_RET_STS_UNEXP_ERROR;
447:
448: WHEN OTHERS THEN
449: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
450: p_msg_name => G_DB_ERROR,
451: p_token1 => G_PROG_NAME_TOKEN,
452: p_token1_value => l_api_name,
453: p_token2 => G_SQLCODE_TOKEN,
484: l_periods_exists := 'Y';
485: END IF;
486:
487: IF p_cashflow_level_tbl(i).periods <= 0 THEN
488: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_PERIOD_ZERO');
489: RAISE OKL_API.G_EXCEPTION_ERROR;
490: END IF;
491:
492: IF TRUNC(p_cashflow_level_tbl(i).periods) <> p_cashflow_level_tbl(i).periods THEN
485: END IF;
486:
487: IF p_cashflow_level_tbl(i).periods <= 0 THEN
488: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_PERIOD_ZERO');
489: RAISE OKL_API.G_EXCEPTION_ERROR;
490: END IF;
491:
492: IF TRUNC(p_cashflow_level_tbl(i).periods) <> p_cashflow_level_tbl(i).periods THEN
493: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_PERIOD_FRACTION');
489: RAISE OKL_API.G_EXCEPTION_ERROR;
490: END IF;
491:
492: IF TRUNC(p_cashflow_level_tbl(i).periods) <> p_cashflow_level_tbl(i).periods THEN
493: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_PERIOD_FRACTION');
494: RAISE OKL_API.G_EXCEPTION_ERROR;
495: END IF;
496:
497: IF p_cashflow_level_tbl(i).stub_days <= 0 THEN
490: END IF;
491:
492: IF TRUNC(p_cashflow_level_tbl(i).periods) <> p_cashflow_level_tbl(i).periods THEN
493: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_PERIOD_FRACTION');
494: RAISE OKL_API.G_EXCEPTION_ERROR;
495: END IF;
496:
497: IF p_cashflow_level_tbl(i).stub_days <= 0 THEN
498: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_STUBDAYS_ZERO');
494: RAISE OKL_API.G_EXCEPTION_ERROR;
495: END IF;
496:
497: IF p_cashflow_level_tbl(i).stub_days <= 0 THEN
498: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_STUBDAYS_ZERO');
499: RAISE OKL_API.G_EXCEPTION_ERROR;
500: END IF;
501:
502: IF TRUNC(p_cashflow_level_tbl(i).stub_days) <> p_cashflow_level_tbl(i).stub_days THEN
495: END IF;
496:
497: IF p_cashflow_level_tbl(i).stub_days <= 0 THEN
498: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_STUBDAYS_ZERO');
499: RAISE OKL_API.G_EXCEPTION_ERROR;
500: END IF;
501:
502: IF TRUNC(p_cashflow_level_tbl(i).stub_days) <> p_cashflow_level_tbl(i).stub_days THEN
503: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_STUBDAYS_FRACTION');
499: RAISE OKL_API.G_EXCEPTION_ERROR;
500: END IF;
501:
502: IF TRUNC(p_cashflow_level_tbl(i).stub_days) <> p_cashflow_level_tbl(i).stub_days THEN
503: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_STUBDAYS_FRACTION');
504: RAISE OKL_API.G_EXCEPTION_ERROR;
505: END IF;
506: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
507: IF p_cashflow_level_tbl(i).periodic_amount < 0 THEN
500: END IF;
501:
502: IF TRUNC(p_cashflow_level_tbl(i).stub_days) <> p_cashflow_level_tbl(i).stub_days THEN
503: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_STUBDAYS_FRACTION');
504: RAISE OKL_API.G_EXCEPTION_ERROR;
505: END IF;
506: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
507: IF p_cashflow_level_tbl(i).periodic_amount < 0 THEN
508: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_AMOUNT_ZERO');
504: RAISE OKL_API.G_EXCEPTION_ERROR;
505: END IF;
506: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
507: IF p_cashflow_level_tbl(i).periodic_amount < 0 THEN
508: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_AMOUNT_ZERO');
509: RAISE OKL_API.G_EXCEPTION_ERROR;
510: END IF;
511: END IF;
512: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
505: END IF;
506: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
507: IF p_cashflow_level_tbl(i).periodic_amount < 0 THEN
508: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_AMOUNT_ZERO');
509: RAISE OKL_API.G_EXCEPTION_ERROR;
510: END IF;
511: END IF;
512: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
513: IF p_cashflow_level_tbl(i).stub_amount < 0 THEN
510: END IF;
511: END IF;
512: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
513: IF p_cashflow_level_tbl(i).stub_amount < 0 THEN
514: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_STUBAMT_ZERO');
515: RAISE OKL_API.G_EXCEPTION_ERROR;
516: END IF;
517: END IF;
518:
511: END IF;
512: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
513: IF p_cashflow_level_tbl(i).stub_amount < 0 THEN
514: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_STUBAMT_ZERO');
515: RAISE OKL_API.G_EXCEPTION_ERROR;
516: END IF;
517: END IF;
518:
519: IF p_caf_status <> 'WORK' AND p_cashflow_level_tbl(i).rate <= 0 THEN
516: END IF;
517: END IF;
518:
519: IF p_caf_status <> 'WORK' AND p_cashflow_level_tbl(i).rate <= 0 THEN
520: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_RATE_ZERO');
521: RAISE OKL_API.G_EXCEPTION_ERROR;
522: END IF;
523:
524: IF (p_cashflow_level_tbl(i).stub_days IS NULL) AND (p_cashflow_level_tbl(i).periods IS NULL) THEN
517: END IF;
518:
519: IF p_caf_status <> 'WORK' AND p_cashflow_level_tbl(i).rate <= 0 THEN
520: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_RATE_ZERO');
521: RAISE OKL_API.G_EXCEPTION_ERROR;
522: END IF;
523:
524: IF (p_cashflow_level_tbl(i).stub_days IS NULL) AND (p_cashflow_level_tbl(i).periods IS NULL) THEN
525: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_NO_STUB_AND_PER');
521: RAISE OKL_API.G_EXCEPTION_ERROR;
522: END IF;
523:
524: IF (p_cashflow_level_tbl(i).stub_days IS NULL) AND (p_cashflow_level_tbl(i).periods IS NULL) THEN
525: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_NO_STUB_AND_PER');
526: RAISE OKL_API.G_EXCEPTION_ERROR;
527: END IF;
528:
529: IF (p_cashflow_level_tbl(i).stub_days IS NOT NULL) AND (p_cashflow_level_tbl(i).periods IS NOT NULL) THEN
522: END IF;
523:
524: IF (p_cashflow_level_tbl(i).stub_days IS NULL) AND (p_cashflow_level_tbl(i).periods IS NULL) THEN
525: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_NO_STUB_AND_PER');
526: RAISE OKL_API.G_EXCEPTION_ERROR;
527: END IF;
528:
529: IF (p_cashflow_level_tbl(i).stub_days IS NOT NULL) AND (p_cashflow_level_tbl(i).periods IS NOT NULL) THEN
530: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_BOTH_STUB_AND_PER');
526: RAISE OKL_API.G_EXCEPTION_ERROR;
527: END IF;
528:
529: IF (p_cashflow_level_tbl(i).stub_days IS NOT NULL) AND (p_cashflow_level_tbl(i).periods IS NOT NULL) THEN
530: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_BOTH_STUB_AND_PER');
531: RAISE OKL_API.G_EXCEPTION_ERROR;
532: END IF;
533:
534: IF (p_cashflow_level_tbl(i).stub_amount IS NOT NULL) AND (p_cashflow_level_tbl(i).stub_days IS NULL) THEN
527: END IF;
528:
529: IF (p_cashflow_level_tbl(i).stub_days IS NOT NULL) AND (p_cashflow_level_tbl(i).periods IS NOT NULL) THEN
530: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_BOTH_STUB_AND_PER');
531: RAISE OKL_API.G_EXCEPTION_ERROR;
532: END IF;
533:
534: IF (p_cashflow_level_tbl(i).stub_amount IS NOT NULL) AND (p_cashflow_level_tbl(i).stub_days IS NULL) THEN
535: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_STUBAMT_WO_DAYS');
531: RAISE OKL_API.G_EXCEPTION_ERROR;
532: END IF;
533:
534: IF (p_cashflow_level_tbl(i).stub_amount IS NOT NULL) AND (p_cashflow_level_tbl(i).stub_days IS NULL) THEN
535: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_STUBAMT_WO_DAYS');
536: RAISE OKL_API.G_EXCEPTION_ERROR;
537: END IF;
538:
539: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
532: END IF;
533:
534: IF (p_cashflow_level_tbl(i).stub_amount IS NOT NULL) AND (p_cashflow_level_tbl(i).stub_days IS NULL) THEN
535: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_STUBAMT_WO_DAYS');
536: RAISE OKL_API.G_EXCEPTION_ERROR;
537: END IF;
538:
539: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
540: IF (p_cashflow_level_tbl(i).stub_amount IS NULL) AND (p_cashflow_level_tbl(i).stub_days IS NOT NULL) THEN
537: END IF;
538:
539: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
540: IF (p_cashflow_level_tbl(i).stub_amount IS NULL) AND (p_cashflow_level_tbl(i).stub_days IS NOT NULL) THEN
541: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_STUBDAYS_WO_AMT');
542: RAISE OKL_API.G_EXCEPTION_ERROR;
543: END IF;
544: END IF;
545: IF (p_cashflow_level_tbl(i).periodic_amount IS NOT NULL) AND (p_cashflow_level_tbl(i).periods IS NULL) THEN
538:
539: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
540: IF (p_cashflow_level_tbl(i).stub_amount IS NULL) AND (p_cashflow_level_tbl(i).stub_days IS NOT NULL) THEN
541: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_STUBDAYS_WO_AMT');
542: RAISE OKL_API.G_EXCEPTION_ERROR;
543: END IF;
544: END IF;
545: IF (p_cashflow_level_tbl(i).periodic_amount IS NOT NULL) AND (p_cashflow_level_tbl(i).periods IS NULL) THEN
546: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_AMOUNT_WO_PERIODS');
542: RAISE OKL_API.G_EXCEPTION_ERROR;
543: END IF;
544: END IF;
545: IF (p_cashflow_level_tbl(i).periodic_amount IS NOT NULL) AND (p_cashflow_level_tbl(i).periods IS NULL) THEN
546: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_AMOUNT_WO_PERIODS');
547: RAISE OKL_API.G_EXCEPTION_ERROR;
548: END IF;
549: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
550: IF (p_cashflow_level_tbl(i).periodic_amount IS NULL) AND (p_cashflow_level_tbl(i).periods IS NOT NULL) THEN
543: END IF;
544: END IF;
545: IF (p_cashflow_level_tbl(i).periodic_amount IS NOT NULL) AND (p_cashflow_level_tbl(i).periods IS NULL) THEN
546: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_AMOUNT_WO_PERIODS');
547: RAISE OKL_API.G_EXCEPTION_ERROR;
548: END IF;
549: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
550: IF (p_cashflow_level_tbl(i).periodic_amount IS NULL) AND (p_cashflow_level_tbl(i).periods IS NOT NULL) THEN
551: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_PERIODS_WO_AMOUNT');
547: RAISE OKL_API.G_EXCEPTION_ERROR;
548: END IF;
549: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
550: IF (p_cashflow_level_tbl(i).periodic_amount IS NULL) AND (p_cashflow_level_tbl(i).periods IS NOT NULL) THEN
551: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_PERIODS_WO_AMOUNT');
552: RAISE OKL_API.G_EXCEPTION_ERROR;
553: END IF;
554: END IF;
555: END IF;
548: END IF;
549: IF p_pricing_method <> 'SP' AND p_pricing_method <> 'SM' THEN
550: IF (p_cashflow_level_tbl(i).periodic_amount IS NULL) AND (p_cashflow_level_tbl(i).periods IS NOT NULL) THEN
551: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_PERIODS_WO_AMOUNT');
552: RAISE OKL_API.G_EXCEPTION_ERROR;
553: END IF;
554: END IF;
555: END IF;
556:
555: END IF;
556:
557: END LOOP;
558: IF l_periods_exists = 'N' THEN
559: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_PERIODS_NOT_PRESENT');
560: RAISE OKL_API.G_EXCEPTION_ERROR;
561: END IF;
562: x_return_status := G_RET_STS_SUCCESS;
563:
556:
557: END LOOP;
558: IF l_periods_exists = 'N' THEN
559: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_PERIODS_NOT_PRESENT');
560: RAISE OKL_API.G_EXCEPTION_ERROR;
561: END IF;
562: x_return_status := G_RET_STS_SUCCESS;
563:
564: EXCEPTION
562: x_return_status := G_RET_STS_SUCCESS;
563:
564: EXCEPTION
565:
566: WHEN OKL_API.G_EXCEPTION_ERROR THEN
567: x_return_status := G_RET_STS_ERROR;
568:
569: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
570: x_return_status := G_RET_STS_UNEXP_ERROR;
565:
566: WHEN OKL_API.G_EXCEPTION_ERROR THEN
567: x_return_status := G_RET_STS_ERROR;
568:
569: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
570: x_return_status := G_RET_STS_UNEXP_ERROR;
571:
572: WHEN OTHERS THEN
573: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
569: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
570: x_return_status := G_RET_STS_UNEXP_ERROR;
571:
572: WHEN OTHERS THEN
573: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
574: p_msg_name => G_DB_ERROR,
575: p_token1 => G_PROG_NAME_TOKEN,
576: p_token1_value => l_api_name,
577: p_token2 => G_SQLCODE_TOKEN,
651:
652: IF (x_contract_details.currency_code IS NULL) OR (x_contract_details.start_date IS NULL) OR
653: (x_contract_details.term IS NULL) OR (x_contract_details.pricing_method_code IS NULL) THEN
654:
655: OKL_API.SET_MESSAGE (
656: p_app_name => G_APP_NAME
657: ,p_msg_name => 'OKL_INVALID_VALUE2'
658: ,p_token1 => 'API_NAME'
659: ,p_token1_value => UPPER(l_api_name)
661: ,p_token2_value => 'x_contract_details'
662: ,p_token3 => 'VALUE'
663: ,p_token3_value => 'null'
664: );
665: RAISE OKL_API.G_EXCEPTION_ERROR;
666:
667: END IF;
668:
669: x_return_status := G_RET_STS_SUCCESS;
669: x_return_status := G_RET_STS_SUCCESS;
670:
671: EXCEPTION
672:
673: WHEN OKL_API.G_EXCEPTION_ERROR THEN
674: x_return_status := G_RET_STS_ERROR;
675:
676: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
677: x_return_status := G_RET_STS_UNEXP_ERROR;
672:
673: WHEN OKL_API.G_EXCEPTION_ERROR THEN
674: x_return_status := G_RET_STS_ERROR;
675:
676: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
677: x_return_status := G_RET_STS_UNEXP_ERROR;
678:
679: WHEN OTHERS THEN
680: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
676: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
677: x_return_status := G_RET_STS_UNEXP_ERROR;
678:
679: WHEN OTHERS THEN
680: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
681: p_msg_name => G_DB_ERROR,
682: p_token1 => G_PROG_NAME_TOKEN,
683: p_token1_value => l_api_name,
684: p_token2 => G_SQLCODE_TOKEN,
713: ,x_return_status => x_return_status
714: );
715:
716: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: ELSIF x_return_status = G_RET_STS_ERROR THEN
719: RAISE OKL_API.G_EXCEPTION_ERROR;
720: END IF;
721:
715:
716: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: ELSIF x_return_status = G_RET_STS_ERROR THEN
719: RAISE OKL_API.G_EXCEPTION_ERROR;
720: END IF;
721:
722: get_contract_details (
723: p_quote_type => p_cashflow_header_rec.quote_type_code
726: ,x_return_status => x_return_status
727: );
728:
729: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
731: ELSIF x_return_status = G_RET_STS_ERROR THEN
732: RAISE OKL_API.G_EXCEPTION_ERROR;
733: END IF;
734:
728:
729: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
731: ELSIF x_return_status = G_RET_STS_ERROR THEN
732: RAISE OKL_API.G_EXCEPTION_ERROR;
733: END IF;
734:
735: validate_level_attributes (
736: p_cashflow_level_tbl => p_cashflow_level_tbl
739: ,x_return_status => x_return_status
740: );
741:
742: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
743: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
744: ELSIF x_return_status = G_RET_STS_ERROR THEN
745: RAISE OKL_API.G_EXCEPTION_ERROR;
746: END IF;
747:
741:
742: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
743: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
744: ELSIF x_return_status = G_RET_STS_ERROR THEN
745: RAISE OKL_API.G_EXCEPTION_ERROR;
746: END IF;
747:
748: set_level_end_date (
749: p_contract_start_date => l_contract_details.start_date
753: ,x_return_status => x_return_status
754: );
755:
756: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
758: ELSIF x_return_status = G_RET_STS_ERROR THEN
759: RAISE OKL_API.G_EXCEPTION_ERROR;
760: END IF;
761:
755:
756: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
758: ELSIF x_return_status = G_RET_STS_ERROR THEN
759: RAISE OKL_API.G_EXCEPTION_ERROR;
760: END IF;
761:
762: set_level_amount (
763: p_contract_currency => l_contract_details.currency_code
765: ,x_return_status => x_return_status
766: );
767:
768: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
770: ELSIF x_return_status = G_RET_STS_ERROR THEN
771: RAISE OKL_API.G_EXCEPTION_ERROR;
772: END IF;
773:
767:
768: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
770: ELSIF x_return_status = G_RET_STS_ERROR THEN
771: RAISE OKL_API.G_EXCEPTION_ERROR;
772: END IF;
773:
774: x_return_status := G_RET_STS_SUCCESS;
775:
774: x_return_status := G_RET_STS_SUCCESS;
775:
776: EXCEPTION
777:
778: WHEN OKL_API.G_EXCEPTION_ERROR THEN
779: x_return_status := G_RET_STS_ERROR;
780:
781: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
782: x_return_status := G_RET_STS_UNEXP_ERROR;
777:
778: WHEN OKL_API.G_EXCEPTION_ERROR THEN
779: x_return_status := G_RET_STS_ERROR;
780:
781: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
782: x_return_status := G_RET_STS_UNEXP_ERROR;
783:
784: WHEN OTHERS THEN
785: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
781: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
782: x_return_status := G_RET_STS_UNEXP_ERROR;
783:
784: WHEN OTHERS THEN
785: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
786: p_msg_name => G_DB_ERROR,
787: p_token1 => G_PROG_NAME_TOKEN,
788: p_token1_value => l_api_name,
789: p_token2 => G_SQLCODE_TOKEN,
863: ,x_cfov_rec => lx_cfov_rec
864: );
865:
866: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
867: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
868: ELSIF x_return_status = G_RET_STS_ERROR THEN
869: RAISE OKL_API.G_EXCEPTION_ERROR;
870: END IF;
871:
865:
866: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
867: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
868: ELSIF x_return_status = G_RET_STS_ERROR THEN
869: RAISE OKL_API.G_EXCEPTION_ERROR;
870: END IF;
871:
872: l_cafv_rec.cfo_id := lx_cfov_rec.id;
873: l_cafv_rec.object_version_number := 1;
898: ,x_cafv_rec => lx_cafv_rec
899: );
900:
901: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
902: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
903: ELSIF x_return_status = G_RET_STS_ERROR THEN
904: RAISE OKL_API.G_EXCEPTION_ERROR;
905: END IF;
906:
900:
901: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
902: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
903: ELSIF x_return_status = G_RET_STS_ERROR THEN
904: RAISE OKL_API.G_EXCEPTION_ERROR;
905: END IF;
906:
907: FOR i IN p_cashflow_level_tbl.FIRST .. p_cashflow_level_tbl.LAST LOOP
908: IF p_cashflow_level_tbl.EXISTS(i) THEN
929: ,x_cflv_tbl => lx_cflv_tbl
930: );
931:
932: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
934: ELSIF x_return_status = G_RET_STS_ERROR THEN
935: RAISE OKL_API.G_EXCEPTION_ERROR;
936: END IF;
937:
931:
932: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
934: ELSIF x_return_status = G_RET_STS_ERROR THEN
935: RAISE OKL_API.G_EXCEPTION_ERROR;
936: END IF;
937:
938: p_cashflow_header_rec.cashflow_object_id := lx_cfov_rec.id;
939: p_cashflow_header_rec.cashflow_header_id := lx_cafv_rec.id;
944: ,x_return_status => x_return_status
945: );
946:
947: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
949: ELSIF x_return_status = G_RET_STS_ERROR THEN
950: RAISE OKL_API.G_EXCEPTION_ERROR;
951: END IF;
952:
946:
947: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
949: ELSIF x_return_status = G_RET_STS_ERROR THEN
950: RAISE OKL_API.G_EXCEPTION_ERROR;
951: END IF;
952:
953: EXCEPTION
954:
951: END IF;
952:
953: EXCEPTION
954:
955: WHEN OKL_API.G_EXCEPTION_ERROR THEN
956: x_return_status := G_RET_STS_ERROR;
957:
958: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
959: x_return_status := G_RET_STS_UNEXP_ERROR;
954:
955: WHEN OKL_API.G_EXCEPTION_ERROR THEN
956: x_return_status := G_RET_STS_ERROR;
957:
958: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
959: x_return_status := G_RET_STS_UNEXP_ERROR;
960:
961: WHEN OTHERS THEN
962: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
958: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
959: x_return_status := G_RET_STS_UNEXP_ERROR;
960:
961: WHEN OTHERS THEN
962: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
963: p_msg_name => G_DB_ERROR,
964: p_token1 => G_PROG_NAME_TOKEN,
965: p_token1_value => l_api_name,
966: p_token2 => G_SQLCODE_TOKEN,
1013: ,x_cafv_rec => lx_cafv_rec
1014: );
1015:
1016: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1017: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1018: ELSIF x_return_status = G_RET_STS_ERROR THEN
1019: RAISE OKL_API.G_EXCEPTION_ERROR;
1020: END IF;
1021:
1015:
1016: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1017: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1018: ELSIF x_return_status = G_RET_STS_ERROR THEN
1019: RAISE OKL_API.G_EXCEPTION_ERROR;
1020: END IF;
1021:
1022: FOR i IN p_cashflow_level_tbl.FIRST .. p_cashflow_level_tbl.LAST LOOP
1023: IF p_cashflow_level_tbl.EXISTS(i) THEN
1060: ,x_cflv_tbl => lx_cflv_tbl
1061: );
1062:
1063: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1065: ELSIF x_return_status = G_RET_STS_ERROR THEN
1066: RAISE OKL_API.G_EXCEPTION_ERROR;
1067: END IF;
1068:
1062:
1063: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1065: ELSIF x_return_status = G_RET_STS_ERROR THEN
1066: RAISE OKL_API.G_EXCEPTION_ERROR;
1067: END IF;
1068:
1069: END IF;
1070:
1080: ,x_cflv_tbl => lx_cflv_tbl
1081: );
1082:
1083: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1084: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1085: ELSIF x_return_status = G_RET_STS_ERROR THEN
1086: RAISE OKL_API.G_EXCEPTION_ERROR;
1087: END IF;
1088:
1082:
1083: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1084: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1085: ELSIF x_return_status = G_RET_STS_ERROR THEN
1086: RAISE OKL_API.G_EXCEPTION_ERROR;
1087: END IF;
1088:
1089: END IF;
1090:
1094: ,x_return_status => x_return_status
1095: );
1096:
1097: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF x_return_status = G_RET_STS_ERROR THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1102:
1096:
1097: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF x_return_status = G_RET_STS_ERROR THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1102:
1103: EXCEPTION
1104:
1101: END IF;
1102:
1103: EXCEPTION
1104:
1105: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1106: x_return_status := G_RET_STS_ERROR;
1107:
1108: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1109: x_return_status := G_RET_STS_UNEXP_ERROR;
1104:
1105: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1106: x_return_status := G_RET_STS_ERROR;
1107:
1108: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1109: x_return_status := G_RET_STS_UNEXP_ERROR;
1110:
1111: WHEN OTHERS THEN
1112: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1108: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1109: x_return_status := G_RET_STS_UNEXP_ERROR;
1110:
1111: WHEN OTHERS THEN
1112: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1113: p_msg_name => G_DB_ERROR,
1114: p_token1 => G_PROG_NAME_TOKEN,
1115: p_token1_value => l_api_name,
1116: p_token2 => G_SQLCODE_TOKEN,
1172: x_return_status := G_RET_STS_SUCCESS;
1173:
1174: EXCEPTION
1175:
1176: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1177: x_return_status := G_RET_STS_ERROR;
1178:
1179: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1180: x_return_status := G_RET_STS_UNEXP_ERROR;
1175:
1176: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1177: x_return_status := G_RET_STS_ERROR;
1178:
1179: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1180: x_return_status := G_RET_STS_UNEXP_ERROR;
1181:
1182: WHEN OTHERS THEN
1183: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1179: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1180: x_return_status := G_RET_STS_UNEXP_ERROR;
1181:
1182: WHEN OTHERS THEN
1183: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1184: p_msg_name => G_DB_ERROR,
1185: p_token1 => G_PROG_NAME_TOKEN,
1186: p_token1_value => l_api_name,
1187: p_token2 => G_SQLCODE_TOKEN,
1222: ,x_return_status => x_return_status
1223: );
1224:
1225: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1226: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1227: ELSIF x_return_status = G_RET_STS_ERROR THEN
1228: RAISE OKL_API.G_EXCEPTION_ERROR;
1229: END IF;
1230:
1224:
1225: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1226: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1227: ELSIF x_return_status = G_RET_STS_ERROR THEN
1228: RAISE OKL_API.G_EXCEPTION_ERROR;
1229: END IF;
1230:
1231: IF l_deleted_cf_level_tbl.COUNT > 0 THEN
1232:
1239: ,p_cflv_tbl => l_deleted_cf_level_tbl
1240: );
1241:
1242: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1244: ELSIF x_return_status = G_RET_STS_ERROR THEN
1245: RAISE OKL_API.G_EXCEPTION_ERROR;
1246: END IF;
1247:
1241:
1242: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1244: ELSIF x_return_status = G_RET_STS_ERROR THEN
1245: RAISE OKL_API.G_EXCEPTION_ERROR;
1246: END IF;
1247:
1248: END IF;
1249:
1260: ,p_cafv_rec => l_cafv_rec
1261: );
1262:
1263: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1265: ELSIF x_return_status = G_RET_STS_ERROR THEN
1266: RAISE OKL_API.G_EXCEPTION_ERROR;
1267: END IF;
1268:
1262:
1263: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1265: ELSIF x_return_status = G_RET_STS_ERROR THEN
1266: RAISE OKL_API.G_EXCEPTION_ERROR;
1267: END IF;
1268:
1269: l_cfov_rec.id := p_cashflow_header_rec.cashflow_object_id;
1270:
1277: ,p_cfov_rec => l_cfov_rec
1278: );
1279:
1280: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1281: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1282: ELSIF x_return_status = G_RET_STS_ERROR THEN
1283: RAISE OKL_API.G_EXCEPTION_ERROR;
1284: END IF;
1285:
1279:
1280: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1281: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1282: ELSIF x_return_status = G_RET_STS_ERROR THEN
1283: RAISE OKL_API.G_EXCEPTION_ERROR;
1284: END IF;
1285:
1286: END IF;
1287:
1286: END IF;
1287:
1288: EXCEPTION
1289:
1290: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1291: x_return_status := G_RET_STS_ERROR;
1292:
1293: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1294: x_return_status := G_RET_STS_UNEXP_ERROR;
1289:
1290: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1291: x_return_status := G_RET_STS_ERROR;
1292:
1293: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1294: x_return_status := G_RET_STS_UNEXP_ERROR;
1295:
1296: WHEN OTHERS THEN
1297: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1293: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1294: x_return_status := G_RET_STS_UNEXP_ERROR;
1295:
1296: WHEN OTHERS THEN
1297: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1298: p_msg_name => G_DB_ERROR,
1299: p_token1 => G_PROG_NAME_TOKEN,
1300: p_token1_value => l_api_name,
1301: p_token2 => G_SQLCODE_TOKEN,
1333: FND_MSG_PUB.initialize;
1334: END IF;
1335:
1336: IF p_cashflow_level_tbl.COUNT = 0 THEN
1337: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_REQD_LEVELS');
1338: RAISE OKL_API.G_EXCEPTION_ERROR;
1339: END IF;
1340:
1341: process_cashflow (
1334: END IF;
1335:
1336: IF p_cashflow_level_tbl.COUNT = 0 THEN
1337: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_REQD_LEVELS');
1338: RAISE OKL_API.G_EXCEPTION_ERROR;
1339: END IF;
1340:
1341: process_cashflow (
1342: p_cashflow_header_rec => p_cashflow_header_rec
1344: ,x_return_status => x_return_status
1345: );
1346:
1347: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1348: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1349: ELSIF x_return_status = G_RET_STS_ERROR THEN
1350: RAISE OKL_API.G_EXCEPTION_ERROR;
1351: END IF;
1352:
1346:
1347: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1348: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1349: ELSIF x_return_status = G_RET_STS_ERROR THEN
1350: RAISE OKL_API.G_EXCEPTION_ERROR;
1351: END IF;
1352:
1353: insert_rows (
1354: p_cashflow_header_rec => p_cashflow_header_rec
1358: ,x_msg_data => x_msg_data
1359: );
1360:
1361: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1363: ELSIF x_return_status = G_RET_STS_ERROR THEN
1364: RAISE OKL_API.G_EXCEPTION_ERROR;
1365: END IF;
1366:
1360:
1361: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1363: ELSIF x_return_status = G_RET_STS_ERROR THEN
1364: RAISE OKL_API.G_EXCEPTION_ERROR;
1365: END IF;
1366:
1367: EXCEPTION
1368:
1365: END IF;
1366:
1367: EXCEPTION
1368:
1369: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1370:
1371: IF p_transaction_control = G_TRUE THEN
1372: ROLLBACK TO l_program_name;
1373: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1374: END IF;
1375:
1376: x_return_status := G_RET_STS_ERROR;
1377:
1378: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1379:
1380: IF p_transaction_control = G_TRUE THEN
1381: ROLLBACK TO l_program_name;
1382: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1385: x_return_status := G_RET_STS_UNEXP_ERROR;
1386:
1387: WHEN OTHERS THEN
1388:
1389: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1390: p_msg_name => G_DB_ERROR,
1391: p_token1 => G_PROG_NAME_TOKEN,
1392: p_token1_value => l_api_name,
1393: p_token2 => G_SQLCODE_TOKEN,
1431: FND_MSG_PUB.initialize;
1432: END IF;
1433:
1434: IF p_cashflow_level_tbl.COUNT = 0 AND p_cashflow_header_rec.stream_type_id IS NOT NULL THEN
1435: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_REQD_LEVELS');
1436: RAISE OKL_API.G_EXCEPTION_ERROR;
1437: END IF;
1438:
1439: process_cashflow_deletion (
1432: END IF;
1433:
1434: IF p_cashflow_level_tbl.COUNT = 0 AND p_cashflow_header_rec.stream_type_id IS NOT NULL THEN
1435: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_REQD_LEVELS');
1436: RAISE OKL_API.G_EXCEPTION_ERROR;
1437: END IF;
1438:
1439: process_cashflow_deletion (
1440: p_cashflow_header_rec => p_cashflow_header_rec
1444: ,x_msg_data => x_msg_data
1445: );
1446:
1447: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1449: ELSIF x_return_status = G_RET_STS_ERROR THEN
1450: RAISE OKL_API.G_EXCEPTION_ERROR;
1451: END IF;
1452:
1446:
1447: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1449: ELSIF x_return_status = G_RET_STS_ERROR THEN
1450: RAISE OKL_API.G_EXCEPTION_ERROR;
1451: END IF;
1452:
1453: process_cashflow (
1454: p_cashflow_header_rec => p_cashflow_header_rec
1456: ,x_return_status => x_return_status
1457: );
1458:
1459: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF x_return_status = G_RET_STS_ERROR THEN
1462: RAISE OKL_API.G_EXCEPTION_ERROR;
1463: END IF;
1464:
1458:
1459: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF x_return_status = G_RET_STS_ERROR THEN
1462: RAISE OKL_API.G_EXCEPTION_ERROR;
1463: END IF;
1464:
1465: insert_update_rows (
1466: p_cashflow_header_rec => p_cashflow_header_rec
1470: ,x_msg_data => x_msg_data
1471: );
1472:
1473: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1475: ELSIF x_return_status = G_RET_STS_ERROR THEN
1476: RAISE OKL_API.G_EXCEPTION_ERROR;
1477: END IF;
1478:
1472:
1473: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1475: ELSIF x_return_status = G_RET_STS_ERROR THEN
1476: RAISE OKL_API.G_EXCEPTION_ERROR;
1477: END IF;
1478:
1479: EXCEPTION
1480:
1477: END IF;
1478:
1479: EXCEPTION
1480:
1481: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1482:
1483: IF p_transaction_control = G_TRUE THEN
1484: ROLLBACK TO l_program_name;
1485: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1486: END IF;
1487:
1488: x_return_status := G_RET_STS_ERROR;
1489:
1490: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1491:
1492: IF p_transaction_control = G_TRUE THEN
1493: ROLLBACK TO l_program_name;
1494: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1497: x_return_status := G_RET_STS_UNEXP_ERROR;
1498:
1499: WHEN OTHERS THEN
1500:
1501: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1502: p_msg_name => G_DB_ERROR,
1503: p_token1 => G_PROG_NAME_TOKEN,
1504: p_token1_value => l_api_name,
1505: p_token2 => G_SQLCODE_TOKEN,
1597: ,x_return_status => x_return_status
1598: );
1599:
1600: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1601: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1602: ELSIF x_return_status = G_RET_STS_ERROR THEN
1603: RAISE OKL_API.G_EXCEPTION_ERROR;
1604: END IF;
1605: --Bug # 5021937 ssdeshpa start
1599:
1600: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1601: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1602: ELSIF x_return_status = G_RET_STS_ERROR THEN
1603: RAISE OKL_API.G_EXCEPTION_ERROR;
1604: END IF;
1605: --Bug # 5021937 ssdeshpa start
1606: --This will fetch current Quote Status and Pricing Methods
1607: OPEN c_lq_hdr_rec_cur(p_quote_id);
1729: ,x_msg_count => x_msg_count
1730: ,x_msg_data => x_msg_data);
1731:
1732: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1734: ELSIF l_return_status = G_RET_STS_ERROR THEN
1735: RAISE OKL_API.G_EXCEPTION_ERROR;
1736: END IF;
1737:
1731:
1732: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1734: ELSIF l_return_status = G_RET_STS_ERROR THEN
1735: RAISE OKL_API.G_EXCEPTION_ERROR;
1736: END IF;
1737:
1738: -- i := i + 1;
1739: END IF;
1742: x_return_status := G_RET_STS_SUCCESS;
1743:
1744: EXCEPTION
1745:
1746: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1747:
1748: IF p_transaction_control = G_TRUE THEN
1749: ROLLBACK TO l_program_name;
1750: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1751: END IF;
1752:
1753: x_return_status := G_RET_STS_ERROR;
1754:
1755: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1756:
1757: IF p_transaction_control = G_TRUE THEN
1758: ROLLBACK TO l_program_name;
1759: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1762: x_return_status := G_RET_STS_UNEXP_ERROR;
1763:
1764: WHEN OTHERS THEN
1765:
1766: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1767: p_msg_name => G_DB_ERROR,
1768: p_token1 => G_PROG_NAME_TOKEN,
1769: p_token1_value => l_api_name,
1770: p_token2 => G_SQLCODE_TOKEN,
1810: ,x_return_status => x_return_status
1811: );
1812:
1813: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1815: ELSIF x_return_status = G_RET_STS_ERROR THEN
1816: RAISE OKL_API.G_EXCEPTION_ERROR;
1817: END IF;
1818:
1812:
1813: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1815: ELSIF x_return_status = G_RET_STS_ERROR THEN
1816: RAISE OKL_API.G_EXCEPTION_ERROR;
1817: END IF;
1818:
1819: DELETE FROM okl_cash_flow_levels WHERE caf_id IN
1820: (SELECT id FROM okl_cash_flows WHERE cfo_id IN
1836: x_return_status := G_RET_STS_SUCCESS;
1837:
1838: EXCEPTION
1839:
1840: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1841:
1842: IF p_transaction_control = G_TRUE THEN
1843: ROLLBACK TO l_program_name;
1844: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1845: END IF;
1846:
1847: x_return_status := G_RET_STS_ERROR;
1848:
1849: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1850:
1851: IF p_transaction_control = G_TRUE THEN
1852: ROLLBACK TO l_program_name;
1853: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1856: x_return_status := G_RET_STS_UNEXP_ERROR;
1857:
1858: WHEN OTHERS THEN
1859:
1860: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1861: p_msg_name => G_DB_ERROR,
1862: p_token1 => G_PROG_NAME_TOKEN,
1863: p_token1_value => l_api_name,
1864: p_token2 => G_SQLCODE_TOKEN,
1903: x_return_status := G_RET_STS_SUCCESS;
1904:
1905: EXCEPTION
1906:
1907: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1908:
1909: IF p_transaction_control = G_TRUE THEN
1910: ROLLBACK TO l_program_name;
1911: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1912: END IF;
1913:
1914: x_return_status := G_RET_STS_ERROR;
1915:
1916: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1917:
1918: IF p_transaction_control = G_TRUE THEN
1919: ROLLBACK TO l_program_name;
1920: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1923: x_return_status := G_RET_STS_UNEXP_ERROR;
1924:
1925: WHEN OTHERS THEN
1926:
1927: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1928: p_msg_name => G_DB_ERROR,
1929: p_token1 => G_PROG_NAME_TOKEN,
1930: p_token1_value => l_api_name,
1931: p_token2 => G_SQLCODE_TOKEN,
1966: x_return_status := G_RET_STS_SUCCESS;
1967:
1968: EXCEPTION
1969:
1970: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1971:
1972: IF p_transaction_control = G_TRUE THEN
1973: ROLLBACK TO l_program_name;
1974: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1975: END IF;
1976:
1977: x_return_status := G_RET_STS_ERROR;
1978:
1979: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1980:
1981: IF p_transaction_control = G_TRUE THEN
1982: ROLLBACK TO l_program_name;
1983: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1986: x_return_status := G_RET_STS_UNEXP_ERROR;
1987:
1988: WHEN OTHERS THEN
1989:
1990: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1991: p_msg_name => G_DB_ERROR,
1992: p_token1 => G_PROG_NAME_TOKEN,
1993: p_token1_value => l_api_name,
1994: p_token2 => G_SQLCODE_TOKEN,
2095: ,p_cflv_tbl => l_deleted_cf_level_tbl
2096: );
2097:
2098: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2100: ELSIF x_return_status = G_RET_STS_ERROR THEN
2101: RAISE OKL_API.G_EXCEPTION_ERROR;
2102: END IF;
2103:
2097:
2098: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2100: ELSIF x_return_status = G_RET_STS_ERROR THEN
2101: RAISE OKL_API.G_EXCEPTION_ERROR;
2102: END IF;
2103:
2104: END IF;
2105:
2116: ,p_cfov_rec => l_cfov_rec
2117: );
2118:
2119: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2121: ELSIF x_return_status = G_RET_STS_ERROR THEN
2122: RAISE OKL_API.G_EXCEPTION_ERROR;
2123: END IF;
2124:
2118:
2119: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2121: ELSIF x_return_status = G_RET_STS_ERROR THEN
2122: RAISE OKL_API.G_EXCEPTION_ERROR;
2123: END IF;
2124:
2125: END LOOP;
2126:
2137: ,p_cafv_rec => l_cafv_rec
2138: );
2139:
2140: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2142: ELSIF x_return_status = G_RET_STS_ERROR THEN
2143: RAISE OKL_API.G_EXCEPTION_ERROR;
2144: END IF;
2145:
2139:
2140: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2142: ELSIF x_return_status = G_RET_STS_ERROR THEN
2143: RAISE OKL_API.G_EXCEPTION_ERROR;
2144: END IF;
2145:
2146: END LOOP;
2147:
2167: ,p_cflv_tbl => l_sm_cashflow_levels_tbl
2168: ,x_cflv_tbl => x_sm_cashflow_levels_tbl
2169: );
2170: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF x_return_status = G_RET_STS_ERROR THEN
2173: RAISE OKL_API.G_EXCEPTION_ERROR;
2174: END IF;
2175:
2169: );
2170: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF x_return_status = G_RET_STS_ERROR THEN
2173: RAISE OKL_API.G_EXCEPTION_ERROR;
2174: END IF;
2175:
2176: END IF;
2177: ---------------------------------------------------
2233: ,x_msg_count => x_msg_count
2234: ,x_msg_data => x_msg_data);
2235:
2236: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2238: ELSIF x_return_status = G_RET_STS_ERROR THEN
2239: RAISE OKL_API.G_EXCEPTION_ERROR;
2240: END IF;
2241:
2235:
2236: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2238: ELSIF x_return_status = G_RET_STS_ERROR THEN
2239: RAISE OKL_API.G_EXCEPTION_ERROR;
2240: END IF;
2241:
2242: EXCEPTION
2243:
2240: END IF;
2241:
2242: EXCEPTION
2243:
2244: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2245: x_return_status := G_RET_STS_ERROR;
2246:
2247: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2248: x_return_status := G_RET_STS_UNEXP_ERROR;
2243:
2244: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2245: x_return_status := G_RET_STS_ERROR;
2246:
2247: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2248: x_return_status := G_RET_STS_UNEXP_ERROR;
2249:
2250: WHEN OTHERS THEN
2251: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2247: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2248: x_return_status := G_RET_STS_UNEXP_ERROR;
2249:
2250: WHEN OTHERS THEN
2251: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2252: p_msg_name => G_DB_ERROR,
2253: p_token1 => G_PROG_NAME_TOKEN,
2254: p_token1_value => l_api_name,
2255: p_token2 => G_SQLCODE_TOKEN,
2545: ,x_msg_count => x_msg_count
2546: ,x_msg_data => x_msg_data);
2547:
2548: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
2549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2550: ELSIF l_return_status = G_RET_STS_ERROR THEN
2551: RAISE OKL_API.G_EXCEPTION_ERROR;
2552: END IF;
2553:
2547:
2548: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
2549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2550: ELSIF l_return_status = G_RET_STS_ERROR THEN
2551: RAISE OKL_API.G_EXCEPTION_ERROR;
2552: END IF;
2553:
2554: i := i + 1;
2555:
2566: ,x_msg_count => x_msg_count
2567: ,x_msg_data => x_msg_data);
2568:
2569: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2571: ELSIF x_return_status = G_RET_STS_ERROR THEN
2572: RAISE OKL_API.G_EXCEPTION_ERROR;
2573: END IF;
2574:
2568:
2569: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2571: ELSIF x_return_status = G_RET_STS_ERROR THEN
2572: RAISE OKL_API.G_EXCEPTION_ERROR;
2573: END IF;
2574:
2575: END IF;
2576: x_return_status := G_RET_STS_SUCCESS;
2576: x_return_status := G_RET_STS_SUCCESS;
2577:
2578: EXCEPTION
2579:
2580: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2581:
2582: IF p_transaction_control = G_TRUE THEN
2583: ROLLBACK TO l_program_name;
2584: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2585: END IF;
2586:
2587: x_return_status := G_RET_STS_ERROR;
2588:
2589: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2590:
2591: IF p_transaction_control = G_TRUE THEN
2592: ROLLBACK TO l_program_name;
2593: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2596: x_return_status := G_RET_STS_UNEXP_ERROR;
2597:
2598: WHEN OTHERS THEN
2599:
2600: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2601: p_msg_name => G_DB_ERROR,
2602: p_token1 => G_PROG_NAME_TOKEN,
2603: p_token1_value => l_api_name,
2604: p_token2 => G_SQLCODE_TOKEN,