[Home] [Help]
82: p_acc_gen_primary_key_tbl IN acc_gen_primary_key,
83: x_asev_rec OUT NOCOPY asev_rec_type)
84: IS
85:
86: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
87: l_api_name VARCHAR2(30) := 'POPULATE_ACCT_SOURCES';
88: l_api_version NUMBER := 1.0;
89:
90: l_init_msg_list VARCHAR2(1) := Okl_Api.G_FALSE;
86: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
87: l_api_name VARCHAR2(30) := 'POPULATE_ACCT_SOURCES';
88: l_api_version NUMBER := 1.0;
89:
90: l_init_msg_list VARCHAR2(1) := Okl_Api.G_FALSE;
91: l_msg_count NUMBER := 0;
92: l_msg_data VARCHAR2(2000);
93:
94:
106: l_asev_rec asev_rec_type;
107:
108: BEGIN
109:
110: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
111:
112: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
113: G_PKG_NAME,
114: p_init_msg_list,
108: BEGIN
109:
110: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
111:
112: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
113: G_PKG_NAME,
114: p_init_msg_list,
115: l_api_version,
116: p_api_version,
115: l_api_version,
116: p_api_version,
117: '_PVT',
118: x_return_status);
119: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
120: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
121: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
122: RAISE Okl_Api.G_EXCEPTION_ERROR;
123: END IF;
116: p_api_version,
117: '_PVT',
118: x_return_status);
119: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
120: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
121: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
122: RAISE Okl_Api.G_EXCEPTION_ERROR;
123: END IF;
124:
117: '_PVT',
118: x_return_status);
119: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
120: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
121: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
122: RAISE Okl_Api.G_EXCEPTION_ERROR;
123: END IF;
124:
125: -- Extract the account generator sources from account generator primary key table.
118: x_return_status);
119: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
120: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
121: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
122: RAISE Okl_Api.G_EXCEPTION_ERROR;
123: END IF;
124:
125: -- Extract the account generator sources from account generator primary key table.
126: IF p_acc_gen_primary_key_tbl.COUNT > 0 THEN
182: l_asev_rec.rec_trx_types_pk := l_rec_trx_types_pk; --rec_trx_types_pk,
183:
184:
185: x_asev_rec := l_asev_rec;
186: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
187:
188: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
189:
190: EXCEPTION
184:
185: x_asev_rec := l_asev_rec;
186: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
187:
188: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
189:
190: EXCEPTION
191:
192: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
188: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
189:
190: EXCEPTION
191:
192: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
193: x_return_status := OKL_API.HANDLE_EXCEPTIONS
194: ( l_api_name,
195: G_PKG_NAME,
196: 'OKL_API.G_RET_STS_ERROR',
189:
190: EXCEPTION
191:
192: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
193: x_return_status := OKL_API.HANDLE_EXCEPTIONS
194: ( l_api_name,
195: G_PKG_NAME,
196: 'OKL_API.G_RET_STS_ERROR',
197: x_msg_count,
192: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
193: x_return_status := OKL_API.HANDLE_EXCEPTIONS
194: ( l_api_name,
195: G_PKG_NAME,
196: 'OKL_API.G_RET_STS_ERROR',
197: x_msg_count,
198: x_msg_data,
199: '_PVT'
200: );
197: x_msg_count,
198: x_msg_data,
199: '_PVT'
200: );
201: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
202: x_return_status := OKL_API.HANDLE_EXCEPTIONS
203: ( l_api_name,
204: G_PKG_NAME,
205: 'OKL_API.G_RET_STS_UNEXP_ERROR',
198: x_msg_data,
199: '_PVT'
200: );
201: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
202: x_return_status := OKL_API.HANDLE_EXCEPTIONS
203: ( l_api_name,
204: G_PKG_NAME,
205: 'OKL_API.G_RET_STS_UNEXP_ERROR',
206: x_msg_count,
201: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
202: x_return_status := OKL_API.HANDLE_EXCEPTIONS
203: ( l_api_name,
204: G_PKG_NAME,
205: 'OKL_API.G_RET_STS_UNEXP_ERROR',
206: x_msg_count,
207: x_msg_data,
208: '_PVT'
209: );
207: x_msg_data,
208: '_PVT'
209: );
210: WHEN OTHERS THEN
211: x_return_status := OKL_API.HANDLE_EXCEPTIONS
212: ( l_api_name,
213: G_PKG_NAME,
214: 'OTHERS',
215: x_msg_count,
238: i NUMBER := 0;
239:
240: BEGIN
241:
242: x_return_status := OKL_API.G_RET_STS_SUCCESS;
243:
244: OPEN tmpl_csr FOR p_stmt;
245: LOOP
246: FETCH tmpl_csr INTO
300:
301: IF tmpl_csr%ISOPEN THEN
302: CLOSE tmpl_csr;
303: END IF;
304: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
305: OKL_API.SET_MESSAGE(p_app_name => g_app_name
306: ,p_msg_name => g_unexpected_error
307: ,p_token1 => g_sqlcode_token
308: ,p_token1_value => SQLCODE
301: IF tmpl_csr%ISOPEN THEN
302: CLOSE tmpl_csr;
303: END IF;
304: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
305: OKL_API.SET_MESSAGE(p_app_name => g_app_name
306: ,p_msg_name => g_unexpected_error
307: ,p_token1 => g_sqlcode_token
308: ,p_token1_value => SQLCODE
309: ,p_token2 => g_sqlerrm_token
355: l_investor_code OKL_AE_TEMPLATES.INV_CODE%TYPE
356: := P_TMPL_IDENTIFY_REC.INVESTOR_CODE;
357: l_memo_yn OKL_AE_TEMPLATES.MEMO_YN%TYPE := P_TMPL_IDENTIFY_REC.MEMO_YN;
358: l_prior_year_yn OKL_AE_TEMPLATES.PRIOR_YEAR_YN%TYPE := P_TMPL_IDENTIFY_REC.PRIOR_YEAR_YN;
359: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
360:
361: -- Bug 3948354
362:
363: l_rev_rec_flag VARCHAR2(1) := NVL(P_TMPL_IDENTIFY_REC.REV_REC_FLAG, 'N');
371: IF (G_DEBUG_ENABLED = 'Y') THEN
372: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
373: END IF;
374:
375: x_return_status := OKL_API.G_RET_STS_SUCCESS;
376:
377: -- Check if the Product ID is null
378: IF (p_tmpl_identify_rec.PRODUCT_ID = OKL_API.G_MISS_NUM) OR
379: (p_tmpl_identify_rec.PRODUCT_ID IS NULL) THEN
374:
375: x_return_status := OKL_API.G_RET_STS_SUCCESS;
376:
377: -- Check if the Product ID is null
378: IF (p_tmpl_identify_rec.PRODUCT_ID = OKL_API.G_MISS_NUM) OR
379: (p_tmpl_identify_rec.PRODUCT_ID IS NULL) THEN
380: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Product ID');
381: RAISE OKL_API.G_EXCEPTION_ERROR;
382: END IF;
376:
377: -- Check if the Product ID is null
378: IF (p_tmpl_identify_rec.PRODUCT_ID = OKL_API.G_MISS_NUM) OR
379: (p_tmpl_identify_rec.PRODUCT_ID IS NULL) THEN
380: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Product ID');
381: RAISE OKL_API.G_EXCEPTION_ERROR;
382: END IF;
383:
384: -- Check if the Transaction type is null
377: -- Check if the Product ID is null
378: IF (p_tmpl_identify_rec.PRODUCT_ID = OKL_API.G_MISS_NUM) OR
379: (p_tmpl_identify_rec.PRODUCT_ID IS NULL) THEN
380: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Product ID');
381: RAISE OKL_API.G_EXCEPTION_ERROR;
382: END IF;
383:
384: -- Check if the Transaction type is null
385: IF (p_tmpl_identify_rec.TRANSACTION_TYPE_ID = OKL_API.G_MISS_NUM) OR
381: RAISE OKL_API.G_EXCEPTION_ERROR;
382: END IF;
383:
384: -- Check if the Transaction type is null
385: IF (p_tmpl_identify_rec.TRANSACTION_TYPE_ID = OKL_API.G_MISS_NUM) OR
386: (p_tmpl_identify_rec.TRANSACTION_TYPE_ID IS NULL) THEN
387: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Transaction Type ID');
388: RAISE OKL_API.G_EXCEPTION_ERROR;
389: END IF;
383:
384: -- Check if the Transaction type is null
385: IF (p_tmpl_identify_rec.TRANSACTION_TYPE_ID = OKL_API.G_MISS_NUM) OR
386: (p_tmpl_identify_rec.TRANSACTION_TYPE_ID IS NULL) THEN
387: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Transaction Type ID');
388: RAISE OKL_API.G_EXCEPTION_ERROR;
389: END IF;
390:
391:
384: -- Check if the Transaction type is null
385: IF (p_tmpl_identify_rec.TRANSACTION_TYPE_ID = OKL_API.G_MISS_NUM) OR
386: (p_tmpl_identify_rec.TRANSACTION_TYPE_ID IS NULL) THEN
387: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Transaction Type ID');
388: RAISE OKL_API.G_EXCEPTION_ERROR;
389: END IF;
390:
391:
392: -- Form the select statement to query the template info
448: END IF;
449:
450: -- Add l_stream_type_id to the where condition if l_stream_type_id is not null
451: IF (l_stream_type_id IS NOT NULL) AND
452: (l_stream_type_id <> OKL_API.G_MISS_NUM) THEN
453: l_where := l_where || ' AND sty_id = ' || l_stream_type_id || ' ';
454: END IF;
455:
456: -- Add l_transaction_type_id to the where condition if l_transaction_type_id is not null
454: END IF;
455:
456: -- Add l_transaction_type_id to the where condition if l_transaction_type_id is not null
457: IF (l_transaction_type_id IS NOT NULL) AND
458: (l_transaction_type_id <> OKL_API.G_MISS_NUM) THEN
459: l_where := l_where || ' AND try_id = ' || l_transaction_type_id || ' ';
460: END IF;
461:
462: -- Following lines commented by Kanti. Bug 2467318
461:
462: -- Following lines commented by Kanti. Bug 2467318
463:
464: -- IF (l_advance_arrears IS NOT NULL) AND
465: -- (l_advance_arrears <> OKL_API.G_MISS_CHAR) THEN
466: -- l_where := l_where || ' AND advance_arrears = ' || '''' || l_advance_arrears || '''' || ' ';
467: -- ELSIF (l_advance_arrears IS NULL) THEN
468: -- l_where := l_where || ' AND advance_arrears IS NULL ';
469: -- END IF;
469: -- END IF;
470:
471: -- Following lines commented by Kanti. Bug 2467318
472: -- IF (l_prior_year_yn IS NOT NULL) AND
473: -- (l_prior_year_yn <> OKL_API.G_MISS_CHAR) THEN
474: -- l_where := l_where || ' AND prior_year_yn = ' || '''' || l_prior_year_yn || '''' || ' ';
475: -- END IF;
476:
477:
485: -- If the memo_yn field is NULL or G_MISS_CHAR then the value passed is 'N' else the actual
486: -- value is passed to the where clause to identify the templates.
487:
488: IF (l_memo_yn IS NULL) OR
489: (l_memo_yn = OKL_API.G_MISS_CHAR) THEN
490: l_memo_yn := 'N';
491: l_where_memo_yn := l_where_memo_yn || ' AND memo_yn = ' || '''' || l_memo_yn || '''' || ' ';
492: ELSE
493: l_where_memo_yn := l_where_memo_yn || ' AND memo_yn = ' || '''' || l_memo_yn || '''' || ' ';
506: l_where := l_where || ' OR end_date IS NULL )' ;
507:
508:
509: IF (l_factoring_synd_flag IS NOT NULL) AND
510: (l_factoring_synd_flag <> OKL_API.G_MISS_CHAR) THEN
511: l_where_flag_code := l_where_flag_code || ' AND factoring_synd_flag = '
512: || '''' || l_factoring_synd_flag || '''' || ' ';
513: ELSIF (l_factoring_synd_flag IS NULL) THEN
514: l_where_flag_code := l_where_flag_code || ' AND factoring_synd_flag IS NULL ';
516:
517:
518: -- Add l_syndication_code to the where condition if l_syndication_code is not null
519: IF (l_syndication_code IS NOT NULL) AND
520: (l_syndication_code <> OKL_API.G_MISS_CHAR) THEN
521: l_where_flag_code := l_where_flag_code || ' AND syt_code = '
522: || '''' || l_syndication_code || '''' || ' ';
523: ELSIF (l_syndication_code IS NULL) THEN
524: l_where_flag_code := l_where_flag_code || ' AND syt_code IS NULL ';
525: END IF;
526:
527: -- Add l_factoring_code to the where condition if l_factoring_code is not null
528: IF (l_factoring_code IS NOT NULL) AND
529: (l_factoring_code <> OKL_API.G_MISS_CHAR) THEN
530: l_where_flag_code := l_where_flag_code || ' AND fac_code = '
531: || '''' || l_factoring_code || '''' || ' ';
532: ELSIF (l_factoring_code IS NULL) THEN
533: l_where_flag_code := l_where_flag_code || ' AND fac_code IS NULL ';
534: END IF;
535:
536: -- Add l_factoring_code to the where condition if l_factoring_code is not null
537: IF (l_investor_code IS NOT NULL) AND
538: (l_investor_code <> OKL_API.G_MISS_CHAR) THEN
539: l_where_flag_code := l_where_flag_code || ' AND inv_code = '
540: || '''' || l_investor_code || '''' || ' ';
541: ELSIF (l_investor_code IS NULL) THEN
542: l_where_flag_code := l_where_flag_code || ' AND inv_code IS NULL ';
552: execute_tmpl_query(p_stmt => l_stmt_exe,
553: x_return_status => l_return_status,
554: x_template_tbl => x_template_tbl);
555:
556: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
558: END IF;
559:
560:
553: x_return_status => l_return_status,
554: x_template_tbl => x_template_tbl);
555:
556: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
558: END IF;
559:
560:
561: IF (l_factoring_synd_flag IS NOT NULL) AND
558: END IF;
559:
560:
561: IF (l_factoring_synd_flag IS NOT NULL) AND
562: (l_factoring_synd_flag <> OKL_API.G_MISS_CHAR) THEN
563: l_where_flag := l_where_flag || ' AND factoring_synd_flag = '
564: || '''' || l_factoring_synd_flag || '''' || ' ';
565: l_where_flag := l_where_flag || ' AND syt_code IS NULL AND fac_code '
566: || ' IS NULL AND inv_code IS NULL ';
579: x_return_status => l_return_status,
580: x_template_tbl => x_template_tbl);
581: END IF;
582:
583: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
585: END IF;
586:
587: l_where_no_flag := ' AND factoring_synd_flag IS NULL AND syt_code IS NULL AND fac_code '
580: x_template_tbl => x_template_tbl);
581: END IF;
582:
583: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
585: END IF;
586:
587: l_where_no_flag := ' AND factoring_synd_flag IS NULL AND syt_code IS NULL AND fac_code '
588: || ' IS NULL AND inv_code IS NULL ';
601: x_return_status => l_return_status,
602: x_template_tbl => x_template_tbl);
603: END IF;
604:
605: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
607: END IF;
608:
609:
602: x_template_tbl => x_template_tbl);
603: END IF;
604:
605: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
607: END IF;
608:
609:
610: -- Bug 3948354
634: execute_tmpl_query(p_stmt => l_stmt_exe,
635: x_return_status => l_return_status,
636: x_template_tbl => x_template_tbl);
637:
638: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
640: END IF;
641:
642: -- Execute the select statement with syndication flag only
635: x_return_status => l_return_status,
636: x_template_tbl => x_template_tbl);
637:
638: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
640: END IF;
641:
642: -- Execute the select statement with syndication flag only
643:
652: x_return_status => l_return_status,
653: x_template_tbl => x_template_tbl);
654: END IF;
655:
656: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
658: END IF;
659:
660: -- Execute the select statement with out syndication flag and code
653: x_template_tbl => x_template_tbl);
654: END IF;
655:
656: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
658: END IF;
659:
660: -- Execute the select statement with out syndication flag and code
661:
670: x_return_status => l_return_status,
671: x_template_tbl => x_template_tbl);
672: END IF;
673:
674: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: END IF;
677:
678: END IF;
671: x_template_tbl => x_template_tbl);
672: END IF;
673:
674: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: END IF;
677:
678: END IF;
679: END IF;
681:
682:
683: EXCEPTION
684:
685: WHEN OKL_API.G_EXCEPTION_ERROR THEN
686: x_return_status := OKL_API.G_RET_STS_ERROR;
687:
688: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
689: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
682:
683: EXCEPTION
684:
685: WHEN OKL_API.G_EXCEPTION_ERROR THEN
686: x_return_status := OKL_API.G_RET_STS_ERROR;
687:
688: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
689: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
690:
684:
685: WHEN OKL_API.G_EXCEPTION_ERROR THEN
686: x_return_status := OKL_API.G_RET_STS_ERROR;
687:
688: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
689: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
690:
691: WHEN OTHERS THEN
692: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
685: WHEN OKL_API.G_EXCEPTION_ERROR THEN
686: x_return_status := OKL_API.G_RET_STS_ERROR;
687:
688: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
689: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
690:
691: WHEN OTHERS THEN
692: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
693: OKL_API.SET_MESSAGE(p_app_name => g_app_name
688: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
689: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
690:
691: WHEN OTHERS THEN
692: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
693: OKL_API.SET_MESSAGE(p_app_name => g_app_name
694: ,p_msg_name => g_unexpected_error
695: ,p_token1 => g_sqlcode_token
696: ,p_token1_value => SQLCODE
689: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
690:
691: WHEN OTHERS THEN
692: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
693: OKL_API.SET_MESSAGE(p_app_name => g_app_name
694: ,p_msg_name => g_unexpected_error
695: ,p_token1 => g_sqlcode_token
696: ,p_token1_value => SQLCODE
697: ,p_token2 => g_sqlerrm_token
709: x_return_status OUT NOCOPY VARCHAR2,
710: x_amount OUT NOCOPY NUMBER)
711: IS
712:
713: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
714: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
715: l_msg_count NUMBER := 0;
716: l_msg_data VARCHAR2(2000);
717: l_formula_name OKL_FORMULAE_V.NAME%TYPE;
710: x_amount OUT NOCOPY NUMBER)
711: IS
712:
713: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
714: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
715: l_msg_count NUMBER := 0;
716: l_msg_data VARCHAR2(2000);
717: l_formula_name OKL_FORMULAE_V.NAME%TYPE;
718:
766:
767: EXCEPTION
768:
769: WHEN OTHERS THEN
770: OKL_API.SET_MESSAGE(p_app_name => g_app_name
771: ,p_msg_name => g_unexpected_error
772: ,p_token1 => g_sqlcode_token
773: ,p_token1_value => SQLCODE
774: ,p_token2 => g_sqlerrm_token
773: ,p_token1_value => SQLCODE
774: ,p_token2 => g_sqlerrm_token
775: ,p_token2_value => SQLERRM);
776:
777: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
778:
779: END EXECUTE_FORMULA;
780:
781:
950: l_acc_cr_total NUMBER := 0;
951:
952: l_slice_amount NUMBER := 0;
953: --Added by dpsingh for Bug:5082565(H)
954: l_highest_amount_cr NUMBER := OKL_API.G_MISS_NUM;
955: l_highest_amount_dr NUMBER := OKL_API.G_MISS_NUM;
956: --end dpsingh
957: l_lowest_amount_cr NUMBER := OKL_API.G_MISS_NUM;
958: l_lowest_amount_dr NUMBER := OKL_API.G_MISS_NUM;
951:
952: l_slice_amount NUMBER := 0;
953: --Added by dpsingh for Bug:5082565(H)
954: l_highest_amount_cr NUMBER := OKL_API.G_MISS_NUM;
955: l_highest_amount_dr NUMBER := OKL_API.G_MISS_NUM;
956: --end dpsingh
957: l_lowest_amount_cr NUMBER := OKL_API.G_MISS_NUM;
958: l_lowest_amount_dr NUMBER := OKL_API.G_MISS_NUM;
959: l_lowest_index_cr NUMBER := 0;
953: --Added by dpsingh for Bug:5082565(H)
954: l_highest_amount_cr NUMBER := OKL_API.G_MISS_NUM;
955: l_highest_amount_dr NUMBER := OKL_API.G_MISS_NUM;
956: --end dpsingh
957: l_lowest_amount_cr NUMBER := OKL_API.G_MISS_NUM;
958: l_lowest_amount_dr NUMBER := OKL_API.G_MISS_NUM;
959: l_lowest_index_cr NUMBER := 0;
960: l_lowest_index_dr NUMBER := 0;
961: l_highest_index_cr NUMBER := 0;
954: l_highest_amount_cr NUMBER := OKL_API.G_MISS_NUM;
955: l_highest_amount_dr NUMBER := OKL_API.G_MISS_NUM;
956: --end dpsingh
957: l_lowest_amount_cr NUMBER := OKL_API.G_MISS_NUM;
958: l_lowest_amount_dr NUMBER := OKL_API.G_MISS_NUM;
959: l_lowest_index_cr NUMBER := 0;
960: l_lowest_index_dr NUMBER := 0;
961: l_highest_index_cr NUMBER := 0;
962: l_highest_index_dr NUMBER := 0;
967: l_cc_apply_rounding_diff OKL_SYS_ACCT_OPTS.CC_APPLY_ROUNDING_DIFFERENCE%TYPE;
968: l_ael_apply_rounding_diff OKL_SYS_ACCT_OPTS.AEL_APPLY_ROUNDING_DIFFERENCE%TYPE;
969:
970: l_api_version NUMBER := 1.0;
971: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
972: l_msg_count NUMBER := 0;
973: l_msg_data VARCHAR2(2000);
974: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
975: l_set_of_books_id NUMBER;
970: l_api_version NUMBER := 1.0;
971: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
972: l_msg_count NUMBER := 0;
973: l_msg_data VARCHAR2(2000);
974: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
975: l_set_of_books_id NUMBER;
976: l_acc_gen_wf_sources_rec acc_gen_wf_sources_rec;
977:
978: BEGIN
1024: p_to_curr_code => l_functional_curr,
1025: p_con_date => p_dist_info_rec.currency_conversion_date,
1026: p_con_type => p_dist_info_rec.currency_conversion_type);
1027: IF (l_rate = 0) THEN
1028: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1029: p_msg_name => 'OKL_CONV_RATE_NOT_FOUND');
1030: x_return_status := OKL_API.G_RET_STS_ERROR;
1031: RAISE OKL_API.G_EXCEPTION_ERROR;
1032: END IF;
1026: p_con_type => p_dist_info_rec.currency_conversion_type);
1027: IF (l_rate = 0) THEN
1028: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1029: p_msg_name => 'OKL_CONV_RATE_NOT_FOUND');
1030: x_return_status := OKL_API.G_RET_STS_ERROR;
1031: RAISE OKL_API.G_EXCEPTION_ERROR;
1032: END IF;
1033: ELSE
1034: l_rate := 1;
1027: IF (l_rate = 0) THEN
1028: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1029: p_msg_name => 'OKL_CONV_RATE_NOT_FOUND');
1030: x_return_status := OKL_API.G_RET_STS_ERROR;
1031: RAISE OKL_API.G_EXCEPTION_ERROR;
1032: END IF;
1033: ELSE
1034: l_rate := 1;
1035: END IF;
1039: -- Multi Currency Changes
1040: -- Accounting Engine assumes the transaction is on functional currency if not passed
1041:
1042: IF (p_dist_info_rec.currency_code IS NOT NULL) AND
1043: (p_dist_info_rec.currency_code <> OKL_API.G_MISS_CHAR) THEN
1044: l_passed_curr := p_dist_info_rec.currency_code;
1045: ELSE
1046: l_passed_curr := l_functional_curr;
1047: END IF;
1080: END LOOP;
1081: CLOSE atl_csr;
1082:
1083: IF (l_rowcount < 2) THEN
1084: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1085: p_msg_name => 'OKL_LT2_LINE_IN_TMPL',
1086: p_token1 => 'TEMPLATE',
1087: p_token1_value => p_avlv_rec.NAME,
1088: p_token2 => 'COUNT',
1086: p_token1 => 'TEMPLATE',
1087: p_token1_value => p_avlv_rec.NAME,
1088: p_token2 => 'COUNT',
1089: p_token2_value => l_rowcount);
1090: x_return_status := OKL_API.G_RET_STS_ERROR;
1091: RAISE OKL_API.G_EXCEPTION_ERROR;
1092:
1093: END IF;
1094:
1087: p_token1_value => p_avlv_rec.NAME,
1088: p_token2 => 'COUNT',
1089: p_token2_value => l_rowcount);
1090: x_return_status := OKL_API.G_RET_STS_ERROR;
1091: RAISE OKL_API.G_EXCEPTION_ERROR;
1092:
1093: END IF;
1094:
1095:
1144: p_ae_line_type => atl_rec.ae_line_type,
1145: p_primary_key_tbl => p_gen_table,
1146: p_ae_tmpt_line_id => atl_rec.id);
1147:
1148: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1149: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1150: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error encountered while fetching the CCID using the Account Generator Rules');
1151: END IF;
1152: x_return_status := l_return_status;
1149: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1150: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error encountered while fetching the CCID using the Account Generator Rules');
1151: END IF;
1152: x_return_status := l_return_status;
1153: RAISE OKL_API.G_EXCEPTION_ERROR;
1154: END IF;
1155: ELSE
1156: -- 07-FEB-06.SGIYER. Bug 5013588
1157: -- Defaulting template line account as per line level accrual solution
1154: END IF;
1155: ELSE
1156: -- 07-FEB-06.SGIYER. Bug 5013588
1157: -- Defaulting template line account as per line level accrual solution
1158: IF (atl_rec.code_combination_id IS NULL) OR (atl_rec.code_combination_id = OKL_API.G_MISS_NUM) THEN
1159: Okl_Api.set_message(p_app_name => g_app_name,
1160: p_msg_name => 'OKL_TMPT_LN_CCID_REQD');
1161: x_return_status := OKL_API.G_RET_STS_ERROR;
1162: RAISE OKL_API.G_EXCEPTION_ERROR;
1155: ELSE
1156: -- 07-FEB-06.SGIYER. Bug 5013588
1157: -- Defaulting template line account as per line level accrual solution
1158: IF (atl_rec.code_combination_id IS NULL) OR (atl_rec.code_combination_id = OKL_API.G_MISS_NUM) THEN
1159: Okl_Api.set_message(p_app_name => g_app_name,
1160: p_msg_name => 'OKL_TMPT_LN_CCID_REQD');
1161: x_return_status := OKL_API.G_RET_STS_ERROR;
1162: RAISE OKL_API.G_EXCEPTION_ERROR;
1163: END IF;
1157: -- Defaulting template line account as per line level accrual solution
1158: IF (atl_rec.code_combination_id IS NULL) OR (atl_rec.code_combination_id = OKL_API.G_MISS_NUM) THEN
1159: Okl_Api.set_message(p_app_name => g_app_name,
1160: p_msg_name => 'OKL_TMPT_LN_CCID_REQD');
1161: x_return_status := OKL_API.G_RET_STS_ERROR;
1162: RAISE OKL_API.G_EXCEPTION_ERROR;
1163: END IF;
1164: l_tabv_tbl(i).CODE_COMBINATION_ID := atl_rec.code_combination_id;
1165: END IF;
1158: IF (atl_rec.code_combination_id IS NULL) OR (atl_rec.code_combination_id = OKL_API.G_MISS_NUM) THEN
1159: Okl_Api.set_message(p_app_name => g_app_name,
1160: p_msg_name => 'OKL_TMPT_LN_CCID_REQD');
1161: x_return_status := OKL_API.G_RET_STS_ERROR;
1162: RAISE OKL_API.G_EXCEPTION_ERROR;
1163: END IF;
1164: l_tabv_tbl(i).CODE_COMBINATION_ID := atl_rec.code_combination_id;
1165: END IF;
1166:
1216:
1217: IF (atl_rec.crd_code = 'D') THEN
1218: l_dr_total := NVL(l_dr_total,0) + l_amount;
1219: l_acc_dr_total := NVL(l_acc_dr_total,0) + l_acc_amount;
1220: -- Added OKL_API.G_MISS_NUM condition by dpsingh for bug 5082565(H)
1221: IF (l_highest_amount_dr = OKL_API.G_MISS_NUM OR l_highest_amount_dr <= l_amount) THEN
1222: l_highest_amount_dr := l_amount;
1223: l_highest_index_dr := i;
1224: END IF;
1217: IF (atl_rec.crd_code = 'D') THEN
1218: l_dr_total := NVL(l_dr_total,0) + l_amount;
1219: l_acc_dr_total := NVL(l_acc_dr_total,0) + l_acc_amount;
1220: -- Added OKL_API.G_MISS_NUM condition by dpsingh for bug 5082565(H)
1221: IF (l_highest_amount_dr = OKL_API.G_MISS_NUM OR l_highest_amount_dr <= l_amount) THEN
1222: l_highest_amount_dr := l_amount;
1223: l_highest_index_dr := i;
1224: END IF;
1225: IF (l_lowest_amount_dr > l_amount) THEN
1230:
1231: IF (atl_rec.crd_code = 'C') THEN
1232: l_cr_total := NVL(l_cr_total,0) + l_amount;
1233: l_acc_cr_total := NVL(l_acc_cr_total,0) + l_acc_amount;
1234: -- Added OKL_API.G_MISS_NUM condition by dpsingh for bug 5082565(H)
1235: IF (l_highest_amount_cr = OKL_API.G_MISS_NUM OR l_highest_amount_cr <= l_amount) THEN
1236: l_highest_amount_cr := l_amount;
1237: l_highest_index_cr := i;
1238: END IF;
1231: IF (atl_rec.crd_code = 'C') THEN
1232: l_cr_total := NVL(l_cr_total,0) + l_amount;
1233: l_acc_cr_total := NVL(l_acc_cr_total,0) + l_acc_amount;
1234: -- Added OKL_API.G_MISS_NUM condition by dpsingh for bug 5082565(H)
1235: IF (l_highest_amount_cr = OKL_API.G_MISS_NUM OR l_highest_amount_cr <= l_amount) THEN
1236: l_highest_amount_cr := l_amount;
1237: l_highest_index_cr := i;
1238: END IF;
1239: IF (l_lowest_amount_cr > l_amount) THEN
1442: x_tabv_tbl := l_tabv_tbl_out;
1443:
1444: EXCEPTION
1445:
1446: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1447: NULL;
1448: WHEN others then
1449: OKL_API.SET_MESSAGE(p_app_name => g_app_name
1450: ,p_msg_name => g_unexpected_error
1445:
1446: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1447: NULL;
1448: WHEN others then
1449: OKL_API.SET_MESSAGE(p_app_name => g_app_name
1450: ,p_msg_name => g_unexpected_error
1451: ,p_token1 => g_sqlcode_token
1452: ,p_token1_value => SQLCODE
1453: ,p_token2 => g_sqlerrm_token
1452: ,p_token1_value => SQLCODE
1453: ,p_token2 => g_sqlerrm_token
1454: ,p_token2_value => SQLERRM);
1455:
1456: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1457:
1458: END CREATE_DIST_RECS;
1459:
1460: --Added by kthiruva on 06-Feb-2007 for SLA Uptake
1496: l_ael_apply_rounding_diff OKL_SYS_ACCT_OPTS.AEL_APPLY_ROUNDING_DIFFERENCE%TYPE;
1497:
1498:
1499: l_api_version NUMBER := 1.0;
1500: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
1501: l_msg_count NUMBER := 0;
1502: l_msg_data VARCHAR2(2000);
1503: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1504: l_set_of_books_id NUMBER;
1499: l_api_version NUMBER := 1.0;
1500: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
1501: l_msg_count NUMBER := 0;
1502: l_msg_data VARCHAR2(2000);
1503: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1504: l_set_of_books_id NUMBER;
1505:
1506:
1507: --Added by kthiruva on 06-Feb-2006 for SLA Uptake
1551: -- Multi Currency Changes
1552: -- Accounting Engine assumes the transaction is on functional currency if not passed
1553:
1554: IF (p_dist_info_rec.currency_code IS NOT NULL) AND
1555: (p_dist_info_rec.currency_code <> OKL_API.G_MISS_CHAR) THEN
1556: l_passed_curr := p_dist_info_rec.currency_code;
1557: ELSE
1558: l_passed_curr := l_functional_curr;
1559: END IF;
1652: x_tabv_tbl := l_tabv_tbl_out;
1653:
1654: EXCEPTION
1655:
1656: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1657: NULL;
1658: WHEN others then
1659: OKL_API.SET_MESSAGE(p_app_name => g_app_name
1660: ,p_msg_name => g_unexpected_error
1655:
1656: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1657: NULL;
1658: WHEN others then
1659: OKL_API.SET_MESSAGE(p_app_name => g_app_name
1660: ,p_msg_name => g_unexpected_error
1661: ,p_token1 => g_sqlcode_token
1662: ,p_token1_value => SQLCODE
1663: ,p_token2 => g_sqlerrm_token
1662: ,p_token1_value => SQLCODE
1663: ,p_token2 => g_sqlerrm_token
1664: ,p_token2_value => SQLERRM);
1665:
1666: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1667:
1668: END CREATE_DIST_RECS;
1669: --Bug 5707866 - End of Changes
1670:
1695:
1696:
1697: BEGIN
1698:
1699: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1700:
1701: FOR dist_rec IN dist_csr
1702:
1703: LOOP
1734: END IF;
1735: -- End of wraper code generated automatically by Debug code generator for Okl_Trns_Acc_Dstrs_Pub.update_trns_acc_dstrs
1736: ELSE
1737:
1738: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1739: p_msg_name => 'OKL_DIST_NOT_FOUND');
1740:
1741: x_return_status := OKL_API.G_RET_STS_ERROR;
1742:
1737:
1738: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1739: p_msg_name => 'OKL_DIST_NOT_FOUND');
1740:
1741: x_return_status := OKL_API.G_RET_STS_ERROR;
1742:
1743:
1744: END IF;
1745:
1747: EXCEPTION
1748:
1749: WHEN OTHERS THEN
1750:
1751: OKL_API.SET_MESSAGE(p_app_name => g_app_name
1752: ,p_msg_name => g_unexpected_error
1753: ,p_token1 => g_sqlcode_token
1754: ,p_token1_value => SQLCODE
1755: ,p_token2 => g_sqlerrm_token
1754: ,p_token1_value => SQLCODE
1755: ,p_token2 => g_sqlerrm_token
1756: ,p_token2_value => SQLERRM);
1757:
1758: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1759:
1760:
1761: END UPDATE_POST_TO_GL;
1762:
1780: l_dist_tbl TABV_TBL_TYPE;
1781: i NUMBER := 0;
1782: j NUMBER := 0;
1783: l_api_version NUMBER := 1.0;
1784: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
1785: l_msg_count NUMBER := 0;
1786: l_msg_data VARCHAR2(2000);
1787: l_id NUMBER;
1788:
1788:
1789:
1790: BEGIN
1791:
1792: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1793:
1794: IF (p_flag = 'DIST') THEN
1795:
1796: OPEN dist_csr(p_source_id, p_source_table);
1842: --SELECT currency_code
1843: --FROM GL_LEDGERS_PUBLIC_V
1844: --WHERE LEDGER_ID = Okl_Accounting_Util.get_set_of_books_id;
1845:
1846: l_validate_holder VARCHAR2(1) := OKL_API.G_MISS_CHAR;
1847: l_functional_curr OKL_TRNS_ACC_DSTRS.CURRENCY_CODE%TYPE;
1848: l_gl_date DATE;
1849:
1850:
1849:
1850:
1851: BEGIN
1852:
1853: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1854:
1855: -- get the functional currency based on the representation. MG uptake
1856: IF nvl(g_representation_type, 'PRIMARY') = 'PRIMARY' THEN
1857: l_functional_curr := Okl_Accounting_Util.GET_FUNC_CURR_CODE;
1859: l_functional_curr := Okl_Accounting_Util.GET_FUNC_CURR_CODE(g_ledger_id);
1860: END IF;
1861:
1862: -- Check if the source ID is null
1863: IF (P_dist_info_REC.SOURCE_ID = OKL_API.G_MISS_NUM) OR
1864: (P_dist_info_REC.SOURCE_ID IS NULL) THEN
1865: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SOURCE_ID');
1866: RAISE OKL_API.G_EXCEPTION_ERROR;
1867: END IF;
1861:
1862: -- Check if the source ID is null
1863: IF (P_dist_info_REC.SOURCE_ID = OKL_API.G_MISS_NUM) OR
1864: (P_dist_info_REC.SOURCE_ID IS NULL) THEN
1865: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SOURCE_ID');
1866: RAISE OKL_API.G_EXCEPTION_ERROR;
1867: END IF;
1868:
1869: -- Check if the source table is null
1862: -- Check if the source ID is null
1863: IF (P_dist_info_REC.SOURCE_ID = OKL_API.G_MISS_NUM) OR
1864: (P_dist_info_REC.SOURCE_ID IS NULL) THEN
1865: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SOURCE_ID');
1866: RAISE OKL_API.G_EXCEPTION_ERROR;
1867: END IF;
1868:
1869: -- Check if the source table is null
1870: IF (P_dist_info_REC.SOURCE_TABLE = OKL_API.G_MISS_CHAR) OR
1866: RAISE OKL_API.G_EXCEPTION_ERROR;
1867: END IF;
1868:
1869: -- Check if the source table is null
1870: IF (P_dist_info_REC.SOURCE_TABLE = OKL_API.G_MISS_CHAR) OR
1871: (P_dist_info_REC.SOURCE_TABLE IS NULL) THEN
1872: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SOURCE_TABLE');
1873: RAISE OKL_API.G_EXCEPTION_ERROR;
1874: END IF;
1868:
1869: -- Check if the source table is null
1870: IF (P_dist_info_REC.SOURCE_TABLE = OKL_API.G_MISS_CHAR) OR
1871: (P_dist_info_REC.SOURCE_TABLE IS NULL) THEN
1872: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SOURCE_TABLE');
1873: RAISE OKL_API.G_EXCEPTION_ERROR;
1874: END IF;
1875:
1876:
1869: -- Check if the source table is null
1870: IF (P_dist_info_REC.SOURCE_TABLE = OKL_API.G_MISS_CHAR) OR
1871: (P_dist_info_REC.SOURCE_TABLE IS NULL) THEN
1872: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SOURCE_TABLE');
1873: RAISE OKL_API.G_EXCEPTION_ERROR;
1874: END IF;
1875:
1876:
1877: -- Fixed bug 2815972 by Santonyr on 04-Aug-2003
1878:
1879: /*
1880: -- Negative Amounts are not Allowed.
1881: IF (P_dist_info_REC.AMOUNT < 0) THEN
1882: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1883: p_msg_name => 'OKL_INVALID_AMOUNT');
1884: RAISE OKL_API.G_EXCEPTION_ERROR;
1885: END IF;
1886: */
1880: -- Negative Amounts are not Allowed.
1881: IF (P_dist_info_REC.AMOUNT < 0) THEN
1882: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1883: p_msg_name => 'OKL_INVALID_AMOUNT');
1884: RAISE OKL_API.G_EXCEPTION_ERROR;
1885: END IF;
1886: */
1887:
1888:
1890: l_validate_holder :=
1891: Okl_Accounting_Util.VALIDATE_SOURCE_ID_TABLE(p_source_id => P_dist_info_REC.source_id,
1892: p_source_table => P_dist_info_REC.source_table);
1893:
1894: IF (l_validate_holder = OKL_API.G_FALSE) THEN
1895: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1896: p_msg_name => 'OKL_INVALID_SOURCE_TBL_ID');
1897: RAISE OKL_API.G_EXCEPTION_ERROR;
1898: END IF;
1891: Okl_Accounting_Util.VALIDATE_SOURCE_ID_TABLE(p_source_id => P_dist_info_REC.source_id,
1892: p_source_table => P_dist_info_REC.source_table);
1893:
1894: IF (l_validate_holder = OKL_API.G_FALSE) THEN
1895: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1896: p_msg_name => 'OKL_INVALID_SOURCE_TBL_ID');
1897: RAISE OKL_API.G_EXCEPTION_ERROR;
1898: END IF;
1899:
1893:
1894: IF (l_validate_holder = OKL_API.G_FALSE) THEN
1895: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1896: p_msg_name => 'OKL_INVALID_SOURCE_TBL_ID');
1897: RAISE OKL_API.G_EXCEPTION_ERROR;
1898: END IF;
1899:
1900: -- Check if the accounting date is null
1901: IF (P_dist_info_REC.ACCOUNTING_DATE = OKL_API.G_MISS_DATE) OR
1897: RAISE OKL_API.G_EXCEPTION_ERROR;
1898: END IF;
1899:
1900: -- Check if the accounting date is null
1901: IF (P_dist_info_REC.ACCOUNTING_DATE = OKL_API.G_MISS_DATE) OR
1902: (P_dist_info_REC.ACCOUNTING_DATE IS NULL) THEN
1903: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ACCOUNTING_DATE');
1904: RAISE OKL_API.G_EXCEPTION_ERROR;
1905:
1899:
1900: -- Check if the accounting date is null
1901: IF (P_dist_info_REC.ACCOUNTING_DATE = OKL_API.G_MISS_DATE) OR
1902: (P_dist_info_REC.ACCOUNTING_DATE IS NULL) THEN
1903: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ACCOUNTING_DATE');
1904: RAISE OKL_API.G_EXCEPTION_ERROR;
1905:
1906: ELSE
1907: -- Bug 7560071.
1900: -- Check if the accounting date is null
1901: IF (P_dist_info_REC.ACCOUNTING_DATE = OKL_API.G_MISS_DATE) OR
1902: (P_dist_info_REC.ACCOUNTING_DATE IS NULL) THEN
1903: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ACCOUNTING_DATE');
1904: RAISE OKL_API.G_EXCEPTION_ERROR;
1905:
1906: ELSE
1907: -- Bug 7560071.
1908: -- Get the accounting date .. based on representation. MG uptake
1912: l_gl_date := OKL_ACCOUNTING_UTIL.get_valid_gl_date(P_dist_info_REC.ACCOUNTING_DATE, g_ledger_id);
1913: END IF;
1914:
1915: IF l_gl_date IS NULL THEN
1916: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1917: p_msg_name => 'OKL_INVALID_GL_DATE');
1918: RAISE OKL_API.G_EXCEPTION_ERROR;
1919: END IF;
1920:
1914:
1915: IF l_gl_date IS NULL THEN
1916: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1917: p_msg_name => 'OKL_INVALID_GL_DATE');
1918: RAISE OKL_API.G_EXCEPTION_ERROR;
1919: END IF;
1920:
1921: G_gl_date := l_gl_date;
1922:
1922:
1923: END IF;
1924:
1925: -- Check if the reversal flag is null
1926: IF (P_dist_info_REC.GL_REVERSAL_FLAG = OKL_API.G_MISS_CHAR) OR
1927: (P_dist_info_REC.GL_REVERSAL_FLAG IS NULL) THEN
1928: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'REVERSAL_FLAG');
1929: RAISE OKL_API.G_EXCEPTION_ERROR;
1930: END IF;
1924:
1925: -- Check if the reversal flag is null
1926: IF (P_dist_info_REC.GL_REVERSAL_FLAG = OKL_API.G_MISS_CHAR) OR
1927: (P_dist_info_REC.GL_REVERSAL_FLAG IS NULL) THEN
1928: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'REVERSAL_FLAG');
1929: RAISE OKL_API.G_EXCEPTION_ERROR;
1930: END IF;
1931:
1932: -- Check if the post to gl flag is null
1925: -- Check if the reversal flag is null
1926: IF (P_dist_info_REC.GL_REVERSAL_FLAG = OKL_API.G_MISS_CHAR) OR
1927: (P_dist_info_REC.GL_REVERSAL_FLAG IS NULL) THEN
1928: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'REVERSAL_FLAG');
1929: RAISE OKL_API.G_EXCEPTION_ERROR;
1930: END IF;
1931:
1932: -- Check if the post to gl flag is null
1933: IF (P_dist_info_REC.POST_TO_GL = OKL_API.G_MISS_CHAR) OR
1929: RAISE OKL_API.G_EXCEPTION_ERROR;
1930: END IF;
1931:
1932: -- Check if the post to gl flag is null
1933: IF (P_dist_info_REC.POST_TO_GL = OKL_API.G_MISS_CHAR) OR
1934: (P_dist_info_REC.POST_TO_GL IS NULL) THEN
1935: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'POST_TO_GL');
1936: RAISE OKL_API.G_EXCEPTION_ERROR;
1937: END IF;
1931:
1932: -- Check if the post to gl flag is null
1933: IF (P_dist_info_REC.POST_TO_GL = OKL_API.G_MISS_CHAR) OR
1934: (P_dist_info_REC.POST_TO_GL IS NULL) THEN
1935: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'POST_TO_GL');
1936: RAISE OKL_API.G_EXCEPTION_ERROR;
1937: END IF;
1938:
1939: -- Check if the currency conversion factors are null if the trx currency and
1932: -- Check if the post to gl flag is null
1933: IF (P_dist_info_REC.POST_TO_GL = OKL_API.G_MISS_CHAR) OR
1934: (P_dist_info_REC.POST_TO_GL IS NULL) THEN
1935: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'POST_TO_GL');
1936: RAISE OKL_API.G_EXCEPTION_ERROR;
1937: END IF;
1938:
1939: -- Check if the currency conversion factors are null if the trx currency and
1940: -- functional currency are not same.
1939: -- Check if the currency conversion factors are null if the trx currency and
1940: -- functional currency are not same.
1941:
1942: IF (p_dist_info_Rec.currency_code IS NOT NULL) AND
1943: (p_dist_info_rec.currency_code <> OKL_API.G_MISS_CHAR) THEN
1944:
1945: IF (p_dist_info_rec.currency_code <> l_functional_curr) THEN
1946:
1947: IF (P_dist_info_REC.currency_conversion_type = OKL_API.G_MISS_CHAR) OR
1943: (p_dist_info_rec.currency_code <> OKL_API.G_MISS_CHAR) THEN
1944:
1945: IF (p_dist_info_rec.currency_code <> l_functional_curr) THEN
1946:
1947: IF (P_dist_info_REC.currency_conversion_type = OKL_API.G_MISS_CHAR) OR
1948: (P_dist_info_REC.currency_conversion_type IS NULL) THEN
1949: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
1950: G_COL_NAME_TOKEN,'Currency Conversion Type');
1951: RAISE OKL_API.G_EXCEPTION_ERROR;
1945: IF (p_dist_info_rec.currency_code <> l_functional_curr) THEN
1946:
1947: IF (P_dist_info_REC.currency_conversion_type = OKL_API.G_MISS_CHAR) OR
1948: (P_dist_info_REC.currency_conversion_type IS NULL) THEN
1949: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
1950: G_COL_NAME_TOKEN,'Currency Conversion Type');
1951: RAISE OKL_API.G_EXCEPTION_ERROR;
1952: END IF;
1953:
1947: IF (P_dist_info_REC.currency_conversion_type = OKL_API.G_MISS_CHAR) OR
1948: (P_dist_info_REC.currency_conversion_type IS NULL) THEN
1949: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
1950: G_COL_NAME_TOKEN,'Currency Conversion Type');
1951: RAISE OKL_API.G_EXCEPTION_ERROR;
1952: END IF;
1953:
1954: IF (P_dist_info_REC.currency_conversion_date = OKL_API.G_MISS_DATE) OR
1955: (P_dist_info_REC.currency_conversion_DATE IS NULL) THEN
1950: G_COL_NAME_TOKEN,'Currency Conversion Type');
1951: RAISE OKL_API.G_EXCEPTION_ERROR;
1952: END IF;
1953:
1954: IF (P_dist_info_REC.currency_conversion_date = OKL_API.G_MISS_DATE) OR
1955: (P_dist_info_REC.currency_conversion_DATE IS NULL) THEN
1956: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
1957: G_COL_NAME_TOKEN,'Currency Conversion Date');
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1952: END IF;
1953:
1954: IF (P_dist_info_REC.currency_conversion_date = OKL_API.G_MISS_DATE) OR
1955: (P_dist_info_REC.currency_conversion_DATE IS NULL) THEN
1956: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
1957: G_COL_NAME_TOKEN,'Currency Conversion Date');
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1960:
1954: IF (P_dist_info_REC.currency_conversion_date = OKL_API.G_MISS_DATE) OR
1955: (P_dist_info_REC.currency_conversion_DATE IS NULL) THEN
1956: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
1957: G_COL_NAME_TOKEN,'Currency Conversion Date');
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1960:
1961: -- Added by Santonyr on 19-Nov-2002
1962: -- Made currency rate mandatory for Multi-Currency
1960:
1961: -- Added by Santonyr on 19-Nov-2002
1962: -- Made currency rate mandatory for Multi-Currency
1963:
1964: IF (P_dist_info_rec.currency_conversion_rate = OKL_API.G_MISS_NUM) OR
1965: (P_dist_info_rec.currency_conversion_rate IS NULL) THEN
1966: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
1967: G_COL_NAME_TOKEN,'Currency Conversion Rate');
1968: RAISE OKL_API.G_EXCEPTION_ERROR;
1962: -- Made currency rate mandatory for Multi-Currency
1963:
1964: IF (P_dist_info_rec.currency_conversion_rate = OKL_API.G_MISS_NUM) OR
1965: (P_dist_info_rec.currency_conversion_rate IS NULL) THEN
1966: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
1967: G_COL_NAME_TOKEN,'Currency Conversion Rate');
1968: RAISE OKL_API.G_EXCEPTION_ERROR;
1969: END IF;
1970: END IF;
1964: IF (P_dist_info_rec.currency_conversion_rate = OKL_API.G_MISS_NUM) OR
1965: (P_dist_info_rec.currency_conversion_rate IS NULL) THEN
1966: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
1967: G_COL_NAME_TOKEN,'Currency Conversion Rate');
1968: RAISE OKL_API.G_EXCEPTION_ERROR;
1969: END IF;
1970: END IF;
1971: END IF;
1972:
1971: END IF;
1972:
1973: EXCEPTION
1974:
1975: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1976: x_return_status := OKL_API.G_RET_STS_ERROR;
1977:
1978: -- gboomina Bug 4662173 start
1979: WHEN OTHERS THEN
1972:
1973: EXCEPTION
1974:
1975: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1976: x_return_status := OKL_API.G_RET_STS_ERROR;
1977:
1978: -- gboomina Bug 4662173 start
1979: WHEN OTHERS THEN
1980: x_return_status := OKL_API.G_RET_STS_ERROR;
1976: x_return_status := OKL_API.G_RET_STS_ERROR;
1977:
1978: -- gboomina Bug 4662173 start
1979: WHEN OTHERS THEN
1980: x_return_status := OKL_API.G_RET_STS_ERROR;
1981:
1982: END VALIDATE_PARAMS;
1983:
1984:
1988: p_functional_curr IN OKL_TRNS_ACC_DSTRS.CURRENCY_CODE%TYPE,
1989: x_return_status OUT NOCOPY VARCHAR2)
1990: IS
1991:
1992: l_validate_holder VARCHAR2(1) := OKL_API.G_MISS_CHAR;
1993: l_functional_curr OKL_TRNS_ACC_DSTRS.CURRENCY_CODE%TYPE := p_functional_curr;
1994: l_gl_date DATE;
1995: l_date DATE;
1996: l_first_rec CHAR := 'T';
1995: l_date DATE;
1996: l_first_rec CHAR := 'T';
1997: BEGIN
1998:
1999: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2000:
2001: FOR i in p_dist_info_tbl.FIRST .. p_dist_info_tbl.LAST LOOP
2002: -- Check if the source ID is null
2003: IF (P_dist_info_tbl(i).SOURCE_ID = OKL_API.G_MISS_NUM) OR
1999: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2000:
2001: FOR i in p_dist_info_tbl.FIRST .. p_dist_info_tbl.LAST LOOP
2002: -- Check if the source ID is null
2003: IF (P_dist_info_tbl(i).SOURCE_ID = OKL_API.G_MISS_NUM) OR
2004: (P_dist_info_tbl(i).SOURCE_ID IS NULL) THEN
2005: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SOURCE_ID');
2006: RAISE OKL_API.G_EXCEPTION_ERROR;
2007: END IF;
2001: FOR i in p_dist_info_tbl.FIRST .. p_dist_info_tbl.LAST LOOP
2002: -- Check if the source ID is null
2003: IF (P_dist_info_tbl(i).SOURCE_ID = OKL_API.G_MISS_NUM) OR
2004: (P_dist_info_tbl(i).SOURCE_ID IS NULL) THEN
2005: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SOURCE_ID');
2006: RAISE OKL_API.G_EXCEPTION_ERROR;
2007: END IF;
2008:
2009: -- Check if the source table is null
2002: -- Check if the source ID is null
2003: IF (P_dist_info_tbl(i).SOURCE_ID = OKL_API.G_MISS_NUM) OR
2004: (P_dist_info_tbl(i).SOURCE_ID IS NULL) THEN
2005: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SOURCE_ID');
2006: RAISE OKL_API.G_EXCEPTION_ERROR;
2007: END IF;
2008:
2009: -- Check if the source table is null
2010: IF (p_dist_info_tbl(i).SOURCE_TABLE = OKL_API.G_MISS_CHAR) OR
2006: RAISE OKL_API.G_EXCEPTION_ERROR;
2007: END IF;
2008:
2009: -- Check if the source table is null
2010: IF (p_dist_info_tbl(i).SOURCE_TABLE = OKL_API.G_MISS_CHAR) OR
2011: (p_dist_info_tbl(i).SOURCE_TABLE IS NULL) THEN
2012: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SOURCE_TABLE');
2013: RAISE OKL_API.G_EXCEPTION_ERROR;
2014: END IF;
2008:
2009: -- Check if the source table is null
2010: IF (p_dist_info_tbl(i).SOURCE_TABLE = OKL_API.G_MISS_CHAR) OR
2011: (p_dist_info_tbl(i).SOURCE_TABLE IS NULL) THEN
2012: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SOURCE_TABLE');
2013: RAISE OKL_API.G_EXCEPTION_ERROR;
2014: END IF;
2015:
2016: -- Check if the accounting date is null
2009: -- Check if the source table is null
2010: IF (p_dist_info_tbl(i).SOURCE_TABLE = OKL_API.G_MISS_CHAR) OR
2011: (p_dist_info_tbl(i).SOURCE_TABLE IS NULL) THEN
2012: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SOURCE_TABLE');
2013: RAISE OKL_API.G_EXCEPTION_ERROR;
2014: END IF;
2015:
2016: -- Check if the accounting date is null
2017: IF (p_dist_info_tbl(i).ACCOUNTING_DATE = OKL_API.G_MISS_DATE) OR
2013: RAISE OKL_API.G_EXCEPTION_ERROR;
2014: END IF;
2015:
2016: -- Check if the accounting date is null
2017: IF (p_dist_info_tbl(i).ACCOUNTING_DATE = OKL_API.G_MISS_DATE) OR
2018: (p_dist_info_tbl(i).ACCOUNTING_DATE IS NULL) THEN
2019: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ACCOUNTING_DATE');
2020: RAISE OKL_API.G_EXCEPTION_ERROR;
2021: ELSE
2015:
2016: -- Check if the accounting date is null
2017: IF (p_dist_info_tbl(i).ACCOUNTING_DATE = OKL_API.G_MISS_DATE) OR
2018: (p_dist_info_tbl(i).ACCOUNTING_DATE IS NULL) THEN
2019: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ACCOUNTING_DATE');
2020: RAISE OKL_API.G_EXCEPTION_ERROR;
2021: ELSE
2022: -- get the valida gl date based on the representation .. MG Uptake.bug 7560071
2023: --IF (l_first_rec = 'T') THEN -- bug 7560071
2016: -- Check if the accounting date is null
2017: IF (p_dist_info_tbl(i).ACCOUNTING_DATE = OKL_API.G_MISS_DATE) OR
2018: (p_dist_info_tbl(i).ACCOUNTING_DATE IS NULL) THEN
2019: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ACCOUNTING_DATE');
2020: RAISE OKL_API.G_EXCEPTION_ERROR;
2021: ELSE
2022: -- get the valida gl date based on the representation .. MG Uptake.bug 7560071
2023: --IF (l_first_rec = 'T') THEN -- bug 7560071
2024: IF i = p_dist_info_tbl.FIRST then
2024: IF i = p_dist_info_tbl.FIRST then
2025: l_date := P_dist_info_tbl(i).ACCOUNTING_DATE;
2026: l_gl_date := OKL_ACCOUNTING_UTIL.get_valid_gl_date(p_dist_info_tbl(i).ACCOUNTING_DATE, g_ledger_id);
2027: IF l_gl_date IS NULL THEN
2028: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2029: p_msg_name => 'OKL_INVALID_GL_DATE');
2030: RAISE OKL_API.G_EXCEPTION_ERROR;
2031: END IF;
2032: --l_first_rec := 'F'; -- bug 7560071
2026: l_gl_date := OKL_ACCOUNTING_UTIL.get_valid_gl_date(p_dist_info_tbl(i).ACCOUNTING_DATE, g_ledger_id);
2027: IF l_gl_date IS NULL THEN
2028: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2029: p_msg_name => 'OKL_INVALID_GL_DATE');
2030: RAISE OKL_API.G_EXCEPTION_ERROR;
2031: END IF;
2032: --l_first_rec := 'F'; -- bug 7560071
2033: END IF;
2034:
2035: IF (l_date <> p_dist_info_tbl(i).ACCOUNTING_DATE) THEN
2036: l_gl_date := OKL_ACCOUNTING_UTIL.get_valid_gl_date(p_dist_info_tbl(i).ACCOUNTING_DATE, g_ledger_id);
2037:
2038: IF l_gl_date IS NULL THEN
2039: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2040: p_msg_name => 'OKL_INVALID_GL_DATE');
2041: RAISE OKL_API.G_EXCEPTION_ERROR;
2042: END IF;
2043: END IF;
2037:
2038: IF l_gl_date IS NULL THEN
2039: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2040: p_msg_name => 'OKL_INVALID_GL_DATE');
2041: RAISE OKL_API.G_EXCEPTION_ERROR;
2042: END IF;
2043: END IF;
2044:
2045: G_gl_date := l_gl_date;
2046:
2047: END IF;
2048:
2049: -- Check if the reversal flag is null
2050: IF (p_dist_info_tbl(i).GL_REVERSAL_FLAG = OKL_API.G_MISS_CHAR) OR
2051: (p_dist_info_tbl(i).GL_REVERSAL_FLAG IS NULL) THEN
2052: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'REVERSAL_FLAG');
2053: RAISE OKL_API.G_EXCEPTION_ERROR;
2054: END IF;
2048:
2049: -- Check if the reversal flag is null
2050: IF (p_dist_info_tbl(i).GL_REVERSAL_FLAG = OKL_API.G_MISS_CHAR) OR
2051: (p_dist_info_tbl(i).GL_REVERSAL_FLAG IS NULL) THEN
2052: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'REVERSAL_FLAG');
2053: RAISE OKL_API.G_EXCEPTION_ERROR;
2054: END IF;
2055:
2056: -- Check if the post to gl flag is null
2049: -- Check if the reversal flag is null
2050: IF (p_dist_info_tbl(i).GL_REVERSAL_FLAG = OKL_API.G_MISS_CHAR) OR
2051: (p_dist_info_tbl(i).GL_REVERSAL_FLAG IS NULL) THEN
2052: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'REVERSAL_FLAG');
2053: RAISE OKL_API.G_EXCEPTION_ERROR;
2054: END IF;
2055:
2056: -- Check if the post to gl flag is null
2057: IF (p_dist_info_tbl(i).POST_TO_GL = OKL_API.G_MISS_CHAR) OR
2053: RAISE OKL_API.G_EXCEPTION_ERROR;
2054: END IF;
2055:
2056: -- Check if the post to gl flag is null
2057: IF (p_dist_info_tbl(i).POST_TO_GL = OKL_API.G_MISS_CHAR) OR
2058: (p_dist_info_tbl(i).POST_TO_GL IS NULL) THEN
2059: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'POST_TO_GL');
2060: RAISE OKL_API.G_EXCEPTION_ERROR;
2061: END IF;
2055:
2056: -- Check if the post to gl flag is null
2057: IF (p_dist_info_tbl(i).POST_TO_GL = OKL_API.G_MISS_CHAR) OR
2058: (p_dist_info_tbl(i).POST_TO_GL IS NULL) THEN
2059: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'POST_TO_GL');
2060: RAISE OKL_API.G_EXCEPTION_ERROR;
2061: END IF;
2062:
2063: -- Check if the currency conversion factors are null if the trx currency and
2056: -- Check if the post to gl flag is null
2057: IF (p_dist_info_tbl(i).POST_TO_GL = OKL_API.G_MISS_CHAR) OR
2058: (p_dist_info_tbl(i).POST_TO_GL IS NULL) THEN
2059: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'POST_TO_GL');
2060: RAISE OKL_API.G_EXCEPTION_ERROR;
2061: END IF;
2062:
2063: -- Check if the currency conversion factors are null if the trx currency and
2064: -- functional currency are not same.
2063: -- Check if the currency conversion factors are null if the trx currency and
2064: -- functional currency are not same.
2065:
2066: IF (p_dist_info_tbl(i).currency_code IS NOT NULL) AND
2067: (p_dist_info_tbl(i).currency_code <> OKL_API.G_MISS_CHAR) THEN
2068:
2069: IF (p_dist_info_tbl(i).currency_code <> l_functional_curr) THEN
2070:
2071: IF (p_dist_info_tbl(i).currency_conversion_type = OKL_API.G_MISS_CHAR) OR
2067: (p_dist_info_tbl(i).currency_code <> OKL_API.G_MISS_CHAR) THEN
2068:
2069: IF (p_dist_info_tbl(i).currency_code <> l_functional_curr) THEN
2070:
2071: IF (p_dist_info_tbl(i).currency_conversion_type = OKL_API.G_MISS_CHAR) OR
2072: (p_dist_info_tbl(i).currency_conversion_type IS NULL) THEN
2073: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
2074: G_COL_NAME_TOKEN,'Currency Conversion Type');
2075: RAISE OKL_API.G_EXCEPTION_ERROR;
2069: IF (p_dist_info_tbl(i).currency_code <> l_functional_curr) THEN
2070:
2071: IF (p_dist_info_tbl(i).currency_conversion_type = OKL_API.G_MISS_CHAR) OR
2072: (p_dist_info_tbl(i).currency_conversion_type IS NULL) THEN
2073: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
2074: G_COL_NAME_TOKEN,'Currency Conversion Type');
2075: RAISE OKL_API.G_EXCEPTION_ERROR;
2076: END IF;
2077:
2071: IF (p_dist_info_tbl(i).currency_conversion_type = OKL_API.G_MISS_CHAR) OR
2072: (p_dist_info_tbl(i).currency_conversion_type IS NULL) THEN
2073: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
2074: G_COL_NAME_TOKEN,'Currency Conversion Type');
2075: RAISE OKL_API.G_EXCEPTION_ERROR;
2076: END IF;
2077:
2078: IF (p_dist_info_tbl(i).currency_conversion_date = OKL_API.G_MISS_DATE) OR
2079: (p_dist_info_tbl(i).currency_conversion_DATE IS NULL) THEN
2074: G_COL_NAME_TOKEN,'Currency Conversion Type');
2075: RAISE OKL_API.G_EXCEPTION_ERROR;
2076: END IF;
2077:
2078: IF (p_dist_info_tbl(i).currency_conversion_date = OKL_API.G_MISS_DATE) OR
2079: (p_dist_info_tbl(i).currency_conversion_DATE IS NULL) THEN
2080: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
2081: G_COL_NAME_TOKEN,'Currency Conversion Date');
2082: RAISE OKL_API.G_EXCEPTION_ERROR;
2076: END IF;
2077:
2078: IF (p_dist_info_tbl(i).currency_conversion_date = OKL_API.G_MISS_DATE) OR
2079: (p_dist_info_tbl(i).currency_conversion_DATE IS NULL) THEN
2080: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
2081: G_COL_NAME_TOKEN,'Currency Conversion Date');
2082: RAISE OKL_API.G_EXCEPTION_ERROR;
2083: END IF;
2084:
2078: IF (p_dist_info_tbl(i).currency_conversion_date = OKL_API.G_MISS_DATE) OR
2079: (p_dist_info_tbl(i).currency_conversion_DATE IS NULL) THEN
2080: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
2081: G_COL_NAME_TOKEN,'Currency Conversion Date');
2082: RAISE OKL_API.G_EXCEPTION_ERROR;
2083: END IF;
2084:
2085: -- Added by Santonyr on 19-Nov-2002
2086: -- Made currency rate mandatory for Multi-Currency
2084:
2085: -- Added by Santonyr on 19-Nov-2002
2086: -- Made currency rate mandatory for Multi-Currency
2087:
2088: IF (p_dist_info_tbl(i).currency_conversion_rate = OKL_API.G_MISS_NUM) OR
2089: (p_dist_info_tbl(i).currency_conversion_rate IS NULL) THEN
2090: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
2091: G_COL_NAME_TOKEN,'Currency Conversion Rate');
2092: RAISE OKL_API.G_EXCEPTION_ERROR;
2086: -- Made currency rate mandatory for Multi-Currency
2087:
2088: IF (p_dist_info_tbl(i).currency_conversion_rate = OKL_API.G_MISS_NUM) OR
2089: (p_dist_info_tbl(i).currency_conversion_rate IS NULL) THEN
2090: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
2091: G_COL_NAME_TOKEN,'Currency Conversion Rate');
2092: RAISE OKL_API.G_EXCEPTION_ERROR;
2093: END IF;
2094: END IF;
2088: IF (p_dist_info_tbl(i).currency_conversion_rate = OKL_API.G_MISS_NUM) OR
2089: (p_dist_info_tbl(i).currency_conversion_rate IS NULL) THEN
2090: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,
2091: G_COL_NAME_TOKEN,'Currency Conversion Rate');
2092: RAISE OKL_API.G_EXCEPTION_ERROR;
2093: END IF;
2094: END IF;
2095: END IF;
2096: END LOOP;
2096: END LOOP;
2097:
2098: EXCEPTION
2099:
2100: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2101: x_return_status := OKL_API.G_RET_STS_ERROR;
2102:
2103: -- gboomina Bug 4662173 end
2104:
2097:
2098: EXCEPTION
2099:
2100: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2101: x_return_status := OKL_API.G_RET_STS_ERROR;
2102:
2103: -- gboomina Bug 4662173 end
2104:
2105: END VALIDATE_PARAMS;
2110: x_return_status OUT NOCOPY VARCHAR2)
2111: IS
2112:
2113: BEGIN
2114: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2115: x_template_rec.id := p_temp_rec.id;
2116: x_template_rec.object_version_number := p_temp_rec.object_version_number;
2117: x_template_rec.try_id := p_temp_rec.try_id;
2118: x_template_rec.aes_id := p_temp_rec.aes_id;
2156: x_template_rec.last_update_login := p_temp_rec.last_update_login;
2157: x_template_rec.inv_code := p_temp_rec.inv_code;
2158: EXCEPTION
2159: WHEN OTHERS THEN
2160: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2161: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2162: ,p_msg_name => g_unexpected_error
2163: ,p_token1 => g_sqlcode_token
2164: ,p_token1_value => SQLCODE
2157: x_template_rec.inv_code := p_temp_rec.inv_code;
2158: EXCEPTION
2159: WHEN OTHERS THEN
2160: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2161: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2162: ,p_msg_name => g_unexpected_error
2163: ,p_token1 => g_sqlcode_token
2164: ,p_token1_value => SQLCODE
2165: ,p_token2 => g_sqlerrm_token
2240: l_asev_tbl_count NUMBER;
2241: l_return_status VARCHAR2(1);
2242: BEGIN
2243: -- Intialize the return status
2244: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2245: IF (x_asev_full_tbl.COUNT > 0) THEN
2246: l_asev_tbl_count := x_asev_full_tbl.LAST + 1;
2247: ELSE
2248: l_asev_tbl_count := 1;
2358: ,x_return_status OUT NOCOPY VARCHAR2)
2359: IS
2360: l_validate BOOLEAN;
2361: BEGIN
2362: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2363: IF(p_dist_info_tbl.count <> p_tmpl_identify_tbl.count) THEN
2364: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2365: ,p_msg_name => 'OKL_AE_INCORRECT_PARAMS'
2366: ,p_token1 => 'PARAMETER'
2360: l_validate BOOLEAN;
2361: BEGIN
2362: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2363: IF(p_dist_info_tbl.count <> p_tmpl_identify_tbl.count) THEN
2364: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2365: ,p_msg_name => 'OKL_AE_INCORRECT_PARAMS'
2366: ,p_token1 => 'PARAMETER'
2367: ,p_token1_value => 'p_tmpl_identify_tbl'
2368: ,p_token2 => 'COUNT'
2366: ,p_token1 => 'PARAMETER'
2367: ,p_token1_value => 'p_tmpl_identify_tbl'
2368: ,p_token2 => 'COUNT'
2369: ,p_token2_value => p_dist_info_tbl.count);
2370: RAISE OKL_API.G_EXCEPTION_ERROR;
2371: END IF;
2372: IF (p_dist_info_tbl.count <> p_acc_gen_primary_key_tbl.count) THEN
2373: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2374: ,p_msg_name => 'OKL_AE_INCORRECT_PARAMS'
2369: ,p_token2_value => p_dist_info_tbl.count);
2370: RAISE OKL_API.G_EXCEPTION_ERROR;
2371: END IF;
2372: IF (p_dist_info_tbl.count <> p_acc_gen_primary_key_tbl.count) THEN
2373: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2374: ,p_msg_name => 'OKL_AE_INCORRECT_PARAMS'
2375: ,p_token1 => 'PARAMETER'
2376: ,p_token1_value => 'p_acc_gen_primary_key_tbl'
2377: ,p_token2 => 'COUNT'
2375: ,p_token1 => 'PARAMETER'
2376: ,p_token1_value => 'p_acc_gen_primary_key_tbl'
2377: ,p_token2 => 'COUNT'
2378: ,p_token2_value => p_dist_info_tbl.count);
2379: RAISE OKL_API.G_EXCEPTION_ERROR;
2380: END IF;
2381: IF not ((p_dist_info_tbl.count = p_ctxt_val_tbl.count) OR p_ctxt_val_tbl.count = 0) THEN
2382: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2383: ,p_msg_name => 'OKL_AE_INCORRECT_PARAMS_CTX'
2378: ,p_token2_value => p_dist_info_tbl.count);
2379: RAISE OKL_API.G_EXCEPTION_ERROR;
2380: END IF;
2381: IF not ((p_dist_info_tbl.count = p_ctxt_val_tbl.count) OR p_ctxt_val_tbl.count = 0) THEN
2382: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2383: ,p_msg_name => 'OKL_AE_INCORRECT_PARAMS_CTX'
2384: ,p_token1 => 'PARAMETER'
2385: ,p_token1_value => 'p_ctxt_val_tbl'
2386: ,p_token2 => 'COUNT'
2384: ,p_token1 => 'PARAMETER'
2385: ,p_token1_value => 'p_ctxt_val_tbl'
2386: ,p_token2 => 'COUNT'
2387: ,p_token2_value => p_dist_info_tbl.count);
2388: RAISE OKL_API.G_EXCEPTION_ERROR;
2389: END IF;
2390:
2391: EXCEPTION
2392: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2388: RAISE OKL_API.G_EXCEPTION_ERROR;
2389: END IF;
2390:
2391: EXCEPTION
2392: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2393: x_return_status := OKL_API.G_RET_STS_ERROR;
2394: -- gboomina Bug 4662173 start
2395: WHEN OTHERS THEN
2396: x_return_status := OKL_API.G_RET_STS_ERROR;
2389: END IF;
2390:
2391: EXCEPTION
2392: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2393: x_return_status := OKL_API.G_RET_STS_ERROR;
2394: -- gboomina Bug 4662173 start
2395: WHEN OTHERS THEN
2396: x_return_status := OKL_API.G_RET_STS_ERROR;
2397: END VALIDATE_IN_PARAMS;
2392: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2393: x_return_status := OKL_API.G_RET_STS_ERROR;
2394: -- gboomina Bug 4662173 start
2395: WHEN OTHERS THEN
2396: x_return_status := OKL_API.G_RET_STS_ERROR;
2397: END VALIDATE_IN_PARAMS;
2398: --Bug 5707866 - End of Changes
2399:
2400: PROCEDURE CREATE_ACCOUNTING_DIST(p_api_version IN NUMBER,
2419: tmpl_rec AVLV_REC_TYPE;
2420: l_tmpl_tbl avlv_tbl_type;
2421: l_formula_name OKL_FORMULAE_V.NAME%TYPE;
2422: l_functional_curr OKL_TRNS_ACC_DSTRS.CURRENCY_CODE%TYPE;
2423: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2424:
2425: l_api_name VARCHAR2(30) := 'CREATE_ACCOUNTING_DIST';
2426: l_api_version NUMBER := 1.0;
2427:
2462: --Added by kthiruva on 06-Feb-2007 for SLA Uptake
2463: --Bug 5707866 - Start of Changes
2464: l_account_derivation OKL_SYS_ACCT_OPTS.ACCOUNT_DERIVATION%TYPE;
2465: l_tcn_id NUMBER;
2466: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
2467: l_msg_count NUMBER := 0;
2468: l_msg_data VARCHAR2(2000);
2469: l_event_id NUMBER;
2470: l_event_date DATE;
2618:
2619: l_ledger_id NUMBER;
2620:
2621: BEGIN
2622: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2623:
2624: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2625: G_PKG_NAME,
2626: p_init_msg_list,
2620:
2621: BEGIN
2622: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2623:
2624: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2625: G_PKG_NAME,
2626: p_init_msg_list,
2627: l_api_version,
2628: p_api_version,
2627: l_api_version,
2628: p_api_version,
2629: '_PVT',
2630: x_return_status);
2631: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2632: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2633: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2634: RAISE OKL_API.G_EXCEPTION_ERROR;
2635: END IF;
2628: p_api_version,
2629: '_PVT',
2630: x_return_status);
2631: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2632: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2633: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2634: RAISE OKL_API.G_EXCEPTION_ERROR;
2635: END IF;
2636:
2629: '_PVT',
2630: x_return_status);
2631: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2632: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2633: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2634: RAISE OKL_API.G_EXCEPTION_ERROR;
2635: END IF;
2636:
2637: -- get the representation attributes .. MG uptake
2630: x_return_status);
2631: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2632: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2633: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2634: RAISE OKL_API.G_EXCEPTION_ERROR;
2635: END IF;
2636:
2637: -- get the representation attributes .. MG uptake
2638: get_rep_attributes;
2672: VALIDATE_PARAMS(p_dist_info_rec => p_dist_info_rec,
2673: x_return_status => l_return_status);
2674:
2675:
2676: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2677: RAISE OKL_API.G_EXCEPTION_ERROR;
2678: END IF;
2679:
2680: -- Get the Templates from the given parameters
2673: x_return_status => l_return_status);
2674:
2675:
2676: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2677: RAISE OKL_API.G_EXCEPTION_ERROR;
2678: END IF;
2679:
2680: -- Get the Templates from the given parameters
2681:
2688: CLOSE get_acct_derivation_csr;
2689:
2690: --If account derivation is not found then raise an error and halt processing
2691: IF l_account_derivation IS NULL THEN
2692: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2693: ,p_msg_name => 'OKL_ACCT_DER_NOT_SET');
2694: RAISE OKL_API.G_EXCEPTION_ERROR;
2695: END IF;
2696:
2690: --If account derivation is not found then raise an error and halt processing
2691: IF l_account_derivation IS NULL THEN
2692: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2693: ,p_msg_name => 'OKL_ACCT_DER_NOT_SET');
2694: RAISE OKL_API.G_EXCEPTION_ERROR;
2695: END IF;
2696:
2697: --Fetching the trasaction type.
2698: --For Drop 2, sources capture, event creation is being done only for OKL transaction types
2703: --Only when the account derivation option is 'ATS'
2704: --Or if the account derivation option is 'AMB' and the transaction amount is not known
2705: --should the template information be fetched
2706: IF (l_account_derivation = 'ATS') OR
2707: ((l_account_derivation = 'AMB') AND ((p_dist_info_rec.AMOUNT IS NULL) OR (p_dist_info_rec.AMOUNT = OKL_API.G_MISS_NUM)))
2708: THEN
2709: GET_TEMPLATE_INFO(p_api_version => l_api_version,
2710: p_init_msg_list => p_init_msg_list,
2711: x_return_status => l_return_status,
2714: p_tmpl_identify_rec => p_tmpl_identify_rec,
2715: x_template_tbl => l_tmpl_tbl,
2716: p_validity_date => G_GL_DATE);
2717:
2718: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2719: RAISE OKL_API.G_EXCEPTION_ERROR;
2720: END IF;
2721:
2722: -- Raise an error if template is not found.
2715: x_template_tbl => l_tmpl_tbl,
2716: p_validity_date => G_GL_DATE);
2717:
2718: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2719: RAISE OKL_API.G_EXCEPTION_ERROR;
2720: END IF;
2721:
2722: -- Raise an error if template is not found.
2723:
2736: FOR sty_type_rec IN sty_type_csr (p_tmpl_identify_rec.stream_type_id) LOOP
2737: l_sty_type_name := sty_type_rec.name;
2738: END LOOP;
2739:
2740: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2741: ,p_msg_name => 'OKL_TMPL_NOT_FOUND'
2742: ,p_token1 => 'PRODUCT'
2743: ,p_token1_value => l_product_name
2744: ,p_token2 => 'TRANSACTION_TYPE'
2748: ,p_token4 => 'ACCOUNTING_DATE'
2749: ,p_token4_value => G_GL_DATE);
2750:
2751:
2752: RAISE OKL_API.G_EXCEPTION_ERROR;
2753: END IF;
2754:
2755:
2756: -- Check the Distribution Status and take appropriate Action
2767: p_source_id => p_dist_info_rec.source_id,
2768: p_source_table => p_dist_info_rec.source_table,
2769: x_return_status => l_return_status);
2770:
2771: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2772: RAISE OKL_API.G_EXCEPTION_ERROR;
2773: END IF;
2774:
2775: --The accounting event needs to be created only for the OKL transaction types
2768: p_source_table => p_dist_info_rec.source_table,
2769: x_return_status => l_return_status);
2770:
2771: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2772: RAISE OKL_API.G_EXCEPTION_ERROR;
2773: END IF;
2774:
2775: --The accounting event needs to be created only for the OKL transaction types
2776: IF l_try_name IN ('RECEIPT_APPLICATION','PRINCIPAL_ADJUSTMENT','UPFRONT_TAX','BOOKING','TERMINATION',
2798: ,x_msg_count => l_msg_count
2799: ,x_msg_data => l_msg_data
2800: );
2801:
2802: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2803: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2804: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2806: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2799: ,x_msg_data => l_msg_data
2800: );
2801:
2802: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2803: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2804: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2806: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2807: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2801:
2802: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2803: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2804: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2806: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2807: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2808: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2809: RAISE OKL_API.G_EXCEPTION_ERROR;
2802: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2803: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2804: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2806: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2807: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2808: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2809: RAISE OKL_API.G_EXCEPTION_ERROR;
2810: END IF;
2803: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2804: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2806: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2807: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2808: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2809: RAISE OKL_API.G_EXCEPTION_ERROR;
2810: END IF;
2811:
2805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2806: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2807: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2808: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2809: RAISE OKL_API.G_EXCEPTION_ERROR;
2810: END IF;
2811:
2812: ELSIF l_try_name IN ('BILLING','CREDIT_MEMO','ROLLOVER_BILLING','ROLLOVER_CREDITMEMO',
2813: 'RELEASE_BILLING','RELEASE_CREDITMEMO') THEN
2831: ,x_msg_count => l_msg_count
2832: ,x_msg_data => l_msg_data
2833: );
2834:
2835: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2836: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2837: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2838: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2839: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2832: ,x_msg_data => l_msg_data
2833: );
2834:
2835: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2836: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2837: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2838: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2839: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2840: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2834:
2835: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2836: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2837: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2838: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2839: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2840: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2841: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2842: RAISE OKL_API.G_EXCEPTION_ERROR;
2835: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2836: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2837: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2838: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2839: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2840: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2841: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2842: RAISE OKL_API.G_EXCEPTION_ERROR;
2843: END IF;
2836: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2837: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2838: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2839: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2840: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2841: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2842: RAISE OKL_API.G_EXCEPTION_ERROR;
2843: END IF;
2844: --Bug 6316320 dpsingh start
2838: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2839: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2840: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2841: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2842: RAISE OKL_API.G_EXCEPTION_ERROR;
2843: END IF;
2844: --Bug 6316320 dpsingh start
2845: ELSIF l_try_name IN ('BALANCE_WRITE_OFF' ,'ADJUSTMENTS') THEN
2846: --This accounting engine call has been made in an update mode i.e. the transaction line already existed
2863: ,x_msg_count => l_msg_count
2864: ,x_msg_data => l_msg_data
2865: );
2866:
2867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2868: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2869: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2871: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2864: ,x_msg_data => l_msg_data
2865: );
2866:
2867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2868: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2869: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2871: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2872: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2866:
2867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2868: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2869: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2871: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2872: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2873: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2874: RAISE OKL_API.G_EXCEPTION_ERROR;
2867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2868: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2869: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2871: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2872: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2873: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2874: RAISE OKL_API.G_EXCEPTION_ERROR;
2875: END IF;
2868: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2869: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2871: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2872: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2873: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2874: RAISE OKL_API.G_EXCEPTION_ERROR;
2875: END IF;
2876: --Bug 6316320 dpsingh end
2870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2871: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2872: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2873: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2874: RAISE OKL_API.G_EXCEPTION_ERROR;
2875: END IF;
2876: --Bug 6316320 dpsingh end
2877: --Checking for AP transaction Types
2878: ELSIF l_try_name IN ('DISBURSEMENT','FUNDING','DEBIT_NOTE') THEN
2896: ,x_msg_count => l_msg_count
2897: ,x_msg_data => l_msg_data
2898: );
2899:
2900: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2901: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2902: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2904: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2897: ,x_msg_data => l_msg_data
2898: );
2899:
2900: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2901: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2902: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2904: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2905: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2899:
2900: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2901: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2902: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2904: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2905: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2906: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2907: RAISE OKL_API.G_EXCEPTION_ERROR;
2900: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2901: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2902: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2904: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2905: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2906: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2907: RAISE OKL_API.G_EXCEPTION_ERROR;
2908: END IF;
2901: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2902: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2904: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2905: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2906: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2907: RAISE OKL_API.G_EXCEPTION_ERROR;
2908: END IF;
2909:
2903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2904: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2905: OKL_API.SET_MESSAGE(p_app_name => g_app_name
2906: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
2907: RAISE OKL_API.G_EXCEPTION_ERROR;
2908: END IF;
2909:
2910: END IF;-- Check for transaction type
2911: END IF;
2910: END IF;-- Check for transaction type
2911: END IF;
2912:
2913: IF (l_check_status = 2) THEN
2914: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2915: p_msg_name => 'OKL_AE_GONE_TO_SLA');
2916: RAISE OKL_API.G_EXCEPTION_ERROR;
2917: END IF;
2918:
2912:
2913: IF (l_check_status = 2) THEN
2914: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2915: p_msg_name => 'OKL_AE_GONE_TO_SLA');
2916: RAISE OKL_API.G_EXCEPTION_ERROR;
2917: END IF;
2918:
2919:
2920: FOR j IN 1..l_tmpl_tbl.COUNT
2928: l_template_amount_tbl(j).stream_type_id := tmpl_rec.sty_id;
2929:
2930:
2931: IF (p_dist_info_rec.AMOUNT IS NULL) OR
2932: (p_dist_info_rec.AMOUNT = OKL_API.G_MISS_NUM) THEN
2933:
2934: -- If the amount is null calculate the amount using formula engine
2935:
2936: IF (tmpl_rec.FMA_ID IS NULL) OR
2933:
2934: -- If the amount is null calculate the amount using formula engine
2935:
2936: IF (tmpl_rec.FMA_ID IS NULL) OR
2937: (tmpl_rec.FMA_ID = OKL_API.G_MISS_NUM) THEN
2938: -- If the formula is not found associated with template
2939: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2940: p_msg_name => 'OKL_FMA_NOT_PRESENT',
2941: p_token1 => 'TEMPLATE_NAME',
2935:
2936: IF (tmpl_rec.FMA_ID IS NULL) OR
2937: (tmpl_rec.FMA_ID = OKL_API.G_MISS_NUM) THEN
2938: -- If the formula is not found associated with template
2939: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2940: p_msg_name => 'OKL_FMA_NOT_PRESENT',
2941: p_token1 => 'TEMPLATE_NAME',
2942: p_token1_value => tmpl_rec.NAME);
2943: RAISE OKL_API.G_EXCEPTION_ERROR;
2939: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2940: p_msg_name => 'OKL_FMA_NOT_PRESENT',
2941: p_token1 => 'TEMPLATE_NAME',
2942: p_token1_value => tmpl_rec.NAME);
2943: RAISE OKL_API.G_EXCEPTION_ERROR;
2944: END IF;
2945:
2946: OPEN frml_csr(tmpl_rec.fma_id);
2947: FETCH frml_csr INTO l_formula_name;
2955: p_ctxt_val_tbl => p_ctxt_val_tbl,
2956: x_return_status => l_return_status,
2957: x_amount => l_amount );
2958:
2959: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2960: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2961: p_msg_name => 'OKL_FRML_EXE_FAILED',
2962: p_token1 => 'FORMULA_NAME',
2963: p_token1_value => l_formula_name);
2956: x_return_status => l_return_status,
2957: x_amount => l_amount );
2958:
2959: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2960: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2961: p_msg_name => 'OKL_FRML_EXE_FAILED',
2962: p_token1 => 'FORMULA_NAME',
2963: p_token1_value => l_formula_name);
2964:
2963: p_token1_value => l_formula_name);
2964:
2965: END IF;
2966:
2967: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2969: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2970: RAISE OKL_API.G_EXCEPTION_ERROR;
2971: END IF;
2964:
2965: END IF;
2966:
2967: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2969: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2970: RAISE OKL_API.G_EXCEPTION_ERROR;
2971: END IF;
2972:
2965: END IF;
2966:
2967: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2969: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2970: RAISE OKL_API.G_EXCEPTION_ERROR;
2971: END IF;
2972:
2973: -- Added by Santonyr on 12-Jul-2440 for the bug 3761026
2966:
2967: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2969: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2970: RAISE OKL_API.G_EXCEPTION_ERROR;
2971: END IF;
2972:
2973: -- Added by Santonyr on 12-Jul-2440 for the bug 3761026
2974: l_template_amount_tbl(j).formula_used := 'Y';
2986: -- message should be displayed.
2987:
2988: /* commenting this part as zero amount is not an error condition. racheruv bug 15881611
2989: IF (l_amount = 0) THEN
2990: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2991: p_msg_name => 'OKL_FRML_RET_ZERO_AMT',
2992: p_token1 => 'TEMPLATE_NAME',
2993: p_token1_value => tmpl_rec.NAME);
2994:
2992: p_token1 => 'TEMPLATE_NAME',
2993: p_token1_value => tmpl_rec.NAME);
2994:
2995: -- Santonyr on 14-Jul-2003 Fixed bug 3048686
2996: -- RAISE OKL_API.G_EXCEPTION_ERROR;
2997:
2998: END IF;
2999: */
3000:
3019: p_gen_table => p_acc_gen_primary_key_tbl,
3020: x_return_status => l_return_status,
3021: x_tabv_tbl => l_tabv_tbl_out);
3022:
3023: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3024: RAISE OKL_API.G_EXCEPTION_ERROR;
3025: END IF;
3026:
3027: ELSIF (l_account_derivation = 'AMB') THEN
3020: x_return_status => l_return_status,
3021: x_tabv_tbl => l_tabv_tbl_out);
3022:
3023: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3024: RAISE OKL_API.G_EXCEPTION_ERROR;
3025: END IF;
3026:
3027: ELSIF (l_account_derivation = 'AMB') THEN
3028: CREATE_DIST_RECS(--Bug 6127326 dpsingh start
3033: p_amount => l_amount,
3034: x_return_status => l_return_status,
3035: x_tabv_tbl => l_tabv_tbl_out);
3036:
3037: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3038: RAISE OKL_API.G_EXCEPTION_ERROR;
3039: END IF;
3040: END IF;
3041: END IF; -- End If for (l_amount <> 0)
3034: x_return_status => l_return_status,
3035: x_tabv_tbl => l_tabv_tbl_out);
3036:
3037: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3038: RAISE OKL_API.G_EXCEPTION_ERROR;
3039: END IF;
3040: END IF;
3041: END IF; -- End If for (l_amount <> 0)
3042:
3074: p_source_id => p_dist_info_rec.source_id,
3075: p_source_table => p_dist_info_rec.source_table,
3076: x_return_status => l_return_status);
3077:
3078: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3079: RAISE OKL_API.G_EXCEPTION_ERROR;
3080: END IF;
3081:
3082: --The accounting event needs to be created only for the OKL transaction types
3075: p_source_table => p_dist_info_rec.source_table,
3076: x_return_status => l_return_status);
3077:
3078: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3079: RAISE OKL_API.G_EXCEPTION_ERROR;
3080: END IF;
3081:
3082: --The accounting event needs to be created only for the OKL transaction types
3083: IF l_try_name IN ('RECEIPT_APPLICATION','PRINCIPAL_ADJUSTMENT','UPFRONT_TAX','BOOKING','TERMINATION',
3106: ,x_msg_count => l_msg_count
3107: ,x_msg_data => l_msg_data
3108: );
3109:
3110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3111: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3112: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3114: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3107: ,x_msg_data => l_msg_data
3108: );
3109:
3110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3111: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3112: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3114: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3115: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3109:
3110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3111: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3112: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3114: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3115: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3116: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3117: RAISE OKL_API.G_EXCEPTION_ERROR;
3110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3111: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3112: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3114: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3115: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3116: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3117: RAISE OKL_API.G_EXCEPTION_ERROR;
3118: END IF;
3111: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3112: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3114: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3115: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3116: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3117: RAISE OKL_API.G_EXCEPTION_ERROR;
3118: END IF;
3119:
3113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3114: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3115: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3116: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3117: RAISE OKL_API.G_EXCEPTION_ERROR;
3118: END IF;
3119:
3120: ELSIF l_try_name IN ('BILLING','CREDIT_MEMO','ROLLOVER_BILLING','ROLLOVER_CREDITMEMO',
3121: 'RELEASE_BILLING','RELEASE_CREDITMEMO') THEN
3139: ,x_msg_count => l_msg_count
3140: ,x_msg_data => l_msg_data
3141: );
3142:
3143: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3144: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3145: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3140: ,x_msg_data => l_msg_data
3141: );
3142:
3143: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3144: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3145: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3148: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3142:
3143: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3144: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3145: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3148: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3149: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3150: RAISE OKL_API.G_EXCEPTION_ERROR;
3143: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3144: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3145: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3148: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3149: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3150: RAISE OKL_API.G_EXCEPTION_ERROR;
3151: END IF;
3144: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3145: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3148: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3149: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3150: RAISE OKL_API.G_EXCEPTION_ERROR;
3151: END IF;
3152:
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3148: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3149: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3150: RAISE OKL_API.G_EXCEPTION_ERROR;
3151: END IF;
3152:
3153: --Bug 6316320 dpsingh start
3154: ELSIF l_try_name IN ('BALANCE_WRITE_OFF' ,'ADJUSTMENTS') THEN
3172: ,x_msg_count => l_msg_count
3173: ,x_msg_data => l_msg_data
3174: );
3175:
3176: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3177: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3178: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3173: ,x_msg_data => l_msg_data
3174: );
3175:
3176: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3177: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3178: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3181: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3175:
3176: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3177: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3178: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3181: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3182: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3183: RAISE OKL_API.G_EXCEPTION_ERROR;
3176: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3177: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3178: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3181: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3182: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3183: RAISE OKL_API.G_EXCEPTION_ERROR;
3184: END IF;
3177: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3178: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3181: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3182: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3183: RAISE OKL_API.G_EXCEPTION_ERROR;
3184: END IF;
3185: --Bug 6316320 dpsingh end
3179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3181: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3182: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3183: RAISE OKL_API.G_EXCEPTION_ERROR;
3184: END IF;
3185: --Bug 6316320 dpsingh end
3186: --Checking for AP transaction Types
3187: ELSIF l_try_name IN ('DISBURSEMENT','FUNDING','DEBIT_NOTE') THEN
3205: ,x_msg_count => l_msg_count
3206: ,x_msg_data => l_msg_data
3207: );
3208:
3209: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3210: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3211: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3213: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3206: ,x_msg_data => l_msg_data
3207: );
3208:
3209: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3210: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3211: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3213: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3214: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3208:
3209: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3210: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3211: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3213: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3214: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3215: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3216: RAISE OKL_API.G_EXCEPTION_ERROR;
3209: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3210: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3211: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3213: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3214: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3215: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3216: RAISE OKL_API.G_EXCEPTION_ERROR;
3217: END IF;
3210: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3211: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3213: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3214: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3215: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3216: RAISE OKL_API.G_EXCEPTION_ERROR;
3217: END IF;
3218: END IF;-- Check for transaction type
3212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3213: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3214: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3215: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3216: RAISE OKL_API.G_EXCEPTION_ERROR;
3217: END IF;
3218: END IF;-- Check for transaction type
3219: END IF;
3220:
3218: END IF;-- Check for transaction type
3219: END IF;
3220:
3221: IF (l_check_status = 2) THEN
3222: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3223: p_msg_name => 'OKL_AE_GONE_TO_SLA');
3224: RAISE OKL_API.G_EXCEPTION_ERROR;
3225: END IF;
3226:
3220:
3221: IF (l_check_status = 2) THEN
3222: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3223: p_msg_name => 'OKL_AE_GONE_TO_SLA');
3224: RAISE OKL_API.G_EXCEPTION_ERROR;
3225: END IF;
3226:
3227: --Create the distribution
3228: CREATE_DIST_RECS(p_tmpl_identify_rec => p_tmpl_identify_rec,
3234: --As there is only one distribution being created when account derivation is AMB,
3235: --the amount is being assigned to x_amount_tbl(0)
3236: x_amount_tbl(0) := l_amount;
3237:
3238: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3239: RAISE OKL_API.G_EXCEPTION_ERROR;
3240: END IF;
3241:
3242: --In the case of AMB, there is only one iteration. However, the l_tabv_tbl_final needs to be populated
3235: --the amount is being assigned to x_amount_tbl(0)
3236: x_amount_tbl(0) := l_amount;
3237:
3238: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3239: RAISE OKL_API.G_EXCEPTION_ERROR;
3240: END IF;
3241:
3242: --In the case of AMB, there is only one iteration. However, the l_tabv_tbl_final needs to be populated
3243: -- in this case as well
3280: l_gl_short_name := g_ledger_tbl(g_ledger_id).rep_code;
3281:
3282: IF l_gl_short_name IS NULL
3283: THEN
3284: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3285: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3286: RAISE OKL_API.G_EXCEPTION_ERROR;
3287: END IF;
3288:
3282: IF l_gl_short_name IS NULL
3283: THEN
3284: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3285: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3286: RAISE OKL_API.G_EXCEPTION_ERROR;
3287: END IF;
3288:
3289: --Making the call to populate_Acct_sources to retreive the l_asev_rec to be passed to
3290: --populate_tcn_sources and populate_tcl_sources
3298: p_dist_info_rec => p_dist_info_rec,
3299: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3300: x_asev_rec => l_asev_rec);
3301:
3302: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3303: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3304: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3306: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3299: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3300: x_asev_rec => l_asev_rec);
3301:
3302: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3303: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3304: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3306: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3307: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3301:
3302: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3303: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3304: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3306: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3307: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3308: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3309: RAISE OKL_API.G_EXCEPTION_ERROR;
3302: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3303: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3304: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3306: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3307: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3308: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3309: RAISE OKL_API.G_EXCEPTION_ERROR;
3310: END IF;
3303: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3304: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3306: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3307: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3308: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3309: RAISE OKL_API.G_EXCEPTION_ERROR;
3310: END IF;
3311:
3305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3306: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3307: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3308: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3309: RAISE OKL_API.G_EXCEPTION_ERROR;
3310: END IF;
3311:
3312: OPEN get_tcn_id_csr(p_dist_info_rec.source_id);
3313: FETCH get_tcn_id_csr INTO l_tcn_id;
3322: ,p_action_type => 'CREATE'
3323: ,x_event_id => l_event_id
3324: ,x_event_date => l_event_date);
3325:
3326: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3328: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3329: RAISE OKL_API.G_EXCEPTION_ERROR;
3330: END IF;
3323: ,x_event_id => l_event_id
3324: ,x_event_date => l_event_date);
3325:
3326: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3328: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3329: RAISE OKL_API.G_EXCEPTION_ERROR;
3330: END IF;
3331:
3324: ,x_event_date => l_event_date);
3325:
3326: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3328: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3329: RAISE OKL_API.G_EXCEPTION_ERROR;
3330: END IF;
3331:
3332: IF l_event_id is null THEN
3325:
3326: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3328: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3329: RAISE OKL_API.G_EXCEPTION_ERROR;
3330: END IF;
3331:
3332: IF l_event_id is null THEN
3333:
3341: ,p_action_type => 'CREATE'
3342: ,p_representation_code => l_gl_short_name
3343: );
3344:
3345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3346: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3347: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3348: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3349: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3342: ,p_representation_code => l_gl_short_name
3343: );
3344:
3345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3346: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3347: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3348: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3349: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3350: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3344:
3345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3346: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3347: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3348: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3349: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3350: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3351: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3352: RAISE OKL_API.G_EXCEPTION_ERROR;
3345: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3346: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3347: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3348: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3349: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3350: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3351: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3352: RAISE OKL_API.G_EXCEPTION_ERROR;
3353: END IF;
3346: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3347: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3348: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3349: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3350: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3351: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3352: RAISE OKL_API.G_EXCEPTION_ERROR;
3353: END IF;
3354:
3348: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3349: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3350: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3351: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3352: RAISE OKL_API.G_EXCEPTION_ERROR;
3353: END IF;
3354:
3355: l_tcnv_rec.source_id := l_tcn_id;
3356: l_tcnv_rec.source_table := 'OKL_TRX_CONTRACTS';
3364: ,x_msg_count => l_msg_count
3365: ,x_msg_data => l_msg_data
3366: );
3367:
3368: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3369: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3370: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3372: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3365: ,x_msg_data => l_msg_data
3366: );
3367:
3368: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3369: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3370: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3372: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3373: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3367:
3368: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3369: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3370: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3372: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3373: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3374: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3375: RAISE OKL_API.G_EXCEPTION_ERROR;
3368: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3369: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3370: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3372: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3373: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3374: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3375: RAISE OKL_API.G_EXCEPTION_ERROR;
3376: END IF;
3369: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3370: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3372: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3373: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3374: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3375: RAISE OKL_API.G_EXCEPTION_ERROR;
3376: END IF;
3377:
3371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3372: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3373: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3374: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3375: RAISE OKL_API.G_EXCEPTION_ERROR;
3376: END IF;
3377:
3378: END IF;
3379:
3395: ,p_tabv_tbl => l_tabv_tbl
3396: ,x_tabv_tbl => x_tabv_tbl
3397: );
3398:
3399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3400: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3401: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3396: ,x_tabv_tbl => x_tabv_tbl
3397: );
3398:
3399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3400: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3401: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3404: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3398:
3399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3400: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3401: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3404: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3405: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3406: RAISE OKL_API.G_EXCEPTION_ERROR;
3399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3400: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3401: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3404: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3405: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3406: RAISE OKL_API.G_EXCEPTION_ERROR;
3407: END IF;
3400: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3401: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3404: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3405: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3406: RAISE OKL_API.G_EXCEPTION_ERROR;
3407: END IF;
3408:
3402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3404: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3405: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3406: RAISE OKL_API.G_EXCEPTION_ERROR;
3407: END IF;
3408:
3409: --Before making the call to capture line sources, check the following
3410: --If l_check_status = 1, then the transaction line is in update mode and existing sources have been deleted
3424: ,x_msg_count => l_msg_count
3425: ,x_msg_data => l_msg_data
3426: );
3427:
3428: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3429: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3430: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3432: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3425: ,x_msg_data => l_msg_data
3426: );
3427:
3428: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3429: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3430: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3432: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3433: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3427:
3428: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3429: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3430: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3432: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3433: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3434: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3435: RAISE OKL_API.G_EXCEPTION_ERROR;
3428: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3429: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3430: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3432: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3433: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3434: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3435: RAISE OKL_API.G_EXCEPTION_ERROR;
3436: END IF;
3429: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3430: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3432: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3433: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3434: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3435: RAISE OKL_API.G_EXCEPTION_ERROR;
3436: END IF;
3437:
3431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3432: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3433: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3434: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3435: RAISE OKL_API.G_EXCEPTION_ERROR;
3436: END IF;
3437:
3438: --Making the call to populate line sources
3439: FOR i in l_tclv_tbl.FIRST..l_tclv_tbl.LAST
3452: ,x_msg_count => l_msg_count
3453: ,x_msg_data => l_msg_data
3454: );
3455:
3456: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3457: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3458: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3460: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3453: ,x_msg_data => l_msg_data
3454: );
3455:
3456: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3457: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3458: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3460: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3461: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3455:
3456: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3457: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3458: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3460: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3461: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3462: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3463: RAISE OKL_API.G_EXCEPTION_ERROR;
3456: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3457: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3458: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3460: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3461: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3462: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3463: RAISE OKL_API.G_EXCEPTION_ERROR;
3464: END IF;
3457: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3458: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3460: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3461: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3462: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3463: RAISE OKL_API.G_EXCEPTION_ERROR;
3464: END IF;
3465: END LOOP;
3459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3460: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3461: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3462: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3463: RAISE OKL_API.G_EXCEPTION_ERROR;
3464: END IF;
3465: END LOOP;
3466: END IF;
3467: --Line sources need to be captured for the current line
3484: ,x_msg_count => l_msg_count
3485: ,x_msg_data => l_msg_data
3486: );
3487:
3488: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3489: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3490: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3492: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3485: ,x_msg_data => l_msg_data
3486: );
3487:
3488: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3489: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3490: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3492: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3493: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3487:
3488: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3489: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3490: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3492: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3493: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3494: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3495: RAISE OKL_API.G_EXCEPTION_ERROR;
3488: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3489: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3490: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3492: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3493: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3494: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3495: RAISE OKL_API.G_EXCEPTION_ERROR;
3496: END IF;
3489: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3490: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3492: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3493: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3494: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3495: RAISE OKL_API.G_EXCEPTION_ERROR;
3496: END IF;
3497: --If the transaction is an AR transaction, then sources should be captured if the transaction line amount
3491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3492: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3493: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3494: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3495: RAISE OKL_API.G_EXCEPTION_ERROR;
3496: END IF;
3497: --If the transaction is an AR transaction, then sources should be captured if the transaction line amount
3498: --is non-zero. However event creation for the transaction is not done from OKL
3499:
3509: l_gl_short_name := g_ledger_tbl(g_ledger_id).rep_code;
3510:
3511: IF l_gl_short_name IS NULL
3512: THEN
3513: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3514: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3515: RAISE OKL_API.G_EXCEPTION_ERROR;
3516: END IF;
3517:
3511: IF l_gl_short_name IS NULL
3512: THEN
3513: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3514: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3515: RAISE OKL_API.G_EXCEPTION_ERROR;
3516: END IF;
3517:
3518: --Making the call to populate_Acct_sources to retreive the l_asev_rec to be passed to
3519: --populate_tcn_sources and populate_tcl_sources
3527: p_dist_info_rec => p_dist_info_rec,
3528: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3529: x_asev_rec => l_asev_rec);
3530:
3531: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3532: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3533: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3535: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3528: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3529: x_asev_rec => l_asev_rec);
3530:
3531: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3532: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3533: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3535: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3536: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3530:
3531: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3532: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3533: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3535: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3536: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3537: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3538: RAISE OKL_API.G_EXCEPTION_ERROR;
3531: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3532: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3533: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3535: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3536: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3537: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3538: RAISE OKL_API.G_EXCEPTION_ERROR;
3539: END IF;
3532: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3533: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3535: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3536: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3537: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3538: RAISE OKL_API.G_EXCEPTION_ERROR;
3539: END IF;
3540:
3534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3535: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3536: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3537: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3538: RAISE OKL_API.G_EXCEPTION_ERROR;
3539: END IF;
3540:
3541: OPEN get_tai_details_csr(p_dist_info_rec.source_id);
3542: FETCH get_tai_details_csr INTO get_tai_details_rec;
3573: ,x_msg_count => l_msg_count
3574: ,x_msg_data => l_msg_data
3575: );
3576:
3577: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3578: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3579: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3581: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3574: ,x_msg_data => l_msg_data
3575: );
3576:
3577: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3578: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3579: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3581: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3582: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3576:
3577: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3578: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3579: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3581: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3582: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3583: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3584: RAISE OKL_API.G_EXCEPTION_ERROR;
3577: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3578: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3579: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3581: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3582: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3583: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3584: RAISE OKL_API.G_EXCEPTION_ERROR;
3585: END IF;
3578: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3579: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3581: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3582: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3583: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3584: RAISE OKL_API.G_EXCEPTION_ERROR;
3585: END IF;
3586: END LOOP;
3580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3581: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3582: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3583: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3584: RAISE OKL_API.G_EXCEPTION_ERROR;
3585: END IF;
3586: END LOOP;
3587: END IF;
3588: --Line sources need to be captured for the current line
3604: ,x_msg_count => l_msg_count
3605: ,x_msg_data => l_msg_data
3606: );
3607:
3608: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3609: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3610: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3611: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3612: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3605: ,x_msg_data => l_msg_data
3606: );
3607:
3608: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3609: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3610: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3611: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3612: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3613: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3607:
3608: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3609: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3610: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3611: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3612: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3613: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3614: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3615: RAISE OKL_API.G_EXCEPTION_ERROR;
3608: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3609: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3610: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3611: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3612: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3613: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3614: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3615: RAISE OKL_API.G_EXCEPTION_ERROR;
3616: END IF;
3609: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3610: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3611: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3612: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3613: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3614: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3615: RAISE OKL_API.G_EXCEPTION_ERROR;
3616: END IF;
3617:
3611: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3612: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3613: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3614: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3615: RAISE OKL_API.G_EXCEPTION_ERROR;
3616: END IF;
3617:
3618: --Bug 6316320 dpsingh start
3619: ELSIF l_try_name IN ('BALANCE_WRITE_OFF' ,'ADJUSTMENTS') AND (l_line_amount >0)
3627: l_gl_short_name := g_ledger_tbl(g_ledger_id).rep_code;
3628:
3629: IF l_gl_short_name IS NULL
3630: THEN
3631: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3632: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3633: RAISE OKL_API.G_EXCEPTION_ERROR;
3634: END IF;
3635:
3629: IF l_gl_short_name IS NULL
3630: THEN
3631: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3632: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3633: RAISE OKL_API.G_EXCEPTION_ERROR;
3634: END IF;
3635:
3636: --Making the call to populate_Acct_sources to retreive the l_asev_rec to be passed to
3637: --populate_tcn_sources and populate_tcl_sources
3645: p_dist_info_rec => p_dist_info_rec,
3646: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3647: x_asev_rec => l_asev_rec);
3648:
3649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3650: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3651: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3652: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3653: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3646: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3647: x_asev_rec => l_asev_rec);
3648:
3649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3650: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3651: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3652: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3653: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3654: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3648:
3649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3650: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3651: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3652: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3653: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3654: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3655: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3656: RAISE OKL_API.G_EXCEPTION_ERROR;
3649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3650: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3651: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3652: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3653: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3654: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3655: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3656: RAISE OKL_API.G_EXCEPTION_ERROR;
3657: END IF;
3650: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3651: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3652: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3653: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3654: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3655: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3656: RAISE OKL_API.G_EXCEPTION_ERROR;
3657: END IF;
3658:
3652: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3653: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3654: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3655: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3656: RAISE OKL_API.G_EXCEPTION_ERROR;
3657: END IF;
3658:
3659: OPEN get_adj_details_csr(p_dist_info_rec.source_id);
3660: FETCH get_adj_details_csr INTO get_adj_details_rec;
3690: ,x_msg_count => l_msg_count
3691: ,x_msg_data => l_msg_data
3692: );
3693:
3694: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3695: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3696: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3698: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3691: ,x_msg_data => l_msg_data
3692: );
3693:
3694: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3695: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3696: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3698: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3699: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3693:
3694: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3695: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3696: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3698: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3699: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3700: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3701: RAISE OKL_API.G_EXCEPTION_ERROR;
3694: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3695: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3696: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3698: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3699: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3700: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3701: RAISE OKL_API.G_EXCEPTION_ERROR;
3702: END IF;
3695: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3696: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3698: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3699: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3700: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3701: RAISE OKL_API.G_EXCEPTION_ERROR;
3702: END IF;
3703: END LOOP;
3697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3698: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3699: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3700: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3701: RAISE OKL_API.G_EXCEPTION_ERROR;
3702: END IF;
3703: END LOOP;
3704: END IF;
3705: --Line sources need to be captured for the current line
3720: ,x_msg_count => l_msg_count
3721: ,x_msg_data => l_msg_data
3722: );
3723:
3724: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3725: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3726: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3728: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3721: ,x_msg_data => l_msg_data
3722: );
3723:
3724: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3725: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3726: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3728: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3729: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3723:
3724: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3725: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3726: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3728: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3729: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3730: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3731: RAISE OKL_API.G_EXCEPTION_ERROR;
3724: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3725: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3726: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3728: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3729: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3730: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3731: RAISE OKL_API.G_EXCEPTION_ERROR;
3732: END IF;
3725: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3726: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3728: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3729: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3730: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3731: RAISE OKL_API.G_EXCEPTION_ERROR;
3732: END IF;
3733: --Bug 6316320 dpsingh end
3727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3728: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3729: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3730: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3731: RAISE OKL_API.G_EXCEPTION_ERROR;
3732: END IF;
3733: --Bug 6316320 dpsingh end
3734: --Processing for AP Transactions
3735: ELSIF l_try_name IN ('DISBURSEMENT','FUNDING','DEBIT_NOTE') AND (l_line_amount >0)
3743: l_gl_short_name := g_ledger_tbl(g_ledger_id).rep_code;
3744:
3745: IF l_gl_short_name IS NULL
3746: THEN
3747: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3748: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3749: RAISE OKL_API.G_EXCEPTION_ERROR;
3750: END IF;
3751:
3745: IF l_gl_short_name IS NULL
3746: THEN
3747: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3748: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3749: RAISE OKL_API.G_EXCEPTION_ERROR;
3750: END IF;
3751:
3752: --Making the call to populate_Acct_sources to retreive the l_asev_rec to be passed to
3753: --populate_tcn_sources and populate_tcl_sources
3761: p_dist_info_rec => p_dist_info_rec,
3762: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3763: x_asev_rec => l_asev_rec);
3764:
3765: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3766: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3767: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3769: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3762: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3763: x_asev_rec => l_asev_rec);
3764:
3765: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3766: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3767: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3769: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3770: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3764:
3765: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3766: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3767: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3769: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3770: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3771: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3772: RAISE OKL_API.G_EXCEPTION_ERROR;
3765: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3766: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3767: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3769: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3770: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3771: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3772: RAISE OKL_API.G_EXCEPTION_ERROR;
3773: END IF;
3766: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3767: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3769: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3770: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3771: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3772: RAISE OKL_API.G_EXCEPTION_ERROR;
3773: END IF;
3774:
3768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3769: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3770: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3771: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3772: RAISE OKL_API.G_EXCEPTION_ERROR;
3773: END IF;
3774:
3775: OPEN get_tap_details_csr(p_dist_info_rec.source_id);
3776: FETCH get_tap_details_csr INTO get_tap_details_rec;
3808: ,x_msg_count => l_msg_count
3809: ,x_msg_data => l_msg_data
3810: );
3811:
3812: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3813: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3814: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3816: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3809: ,x_msg_data => l_msg_data
3810: );
3811:
3812: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3813: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3814: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3816: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3817: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3811:
3812: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3813: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3814: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3816: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3817: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3818: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3819: RAISE OKL_API.G_EXCEPTION_ERROR;
3812: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3813: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3814: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3816: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3817: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3818: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3819: RAISE OKL_API.G_EXCEPTION_ERROR;
3820: END IF;
3813: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3814: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3816: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3817: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3818: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3819: RAISE OKL_API.G_EXCEPTION_ERROR;
3820: END IF;
3821: END LOOP;
3815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3816: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3817: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3818: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3819: RAISE OKL_API.G_EXCEPTION_ERROR;
3820: END IF;
3821: END LOOP;
3822: END IF;
3823: --Line sources need to be captured for the current line
3839: ,x_msg_count => l_msg_count
3840: ,x_msg_data => l_msg_data
3841: );
3842:
3843: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3844: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3845: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3847: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3840: ,x_msg_data => l_msg_data
3841: );
3842:
3843: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3844: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3845: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3847: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3848: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3842:
3843: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3844: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3845: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3847: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3848: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3849: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3850: RAISE OKL_API.G_EXCEPTION_ERROR;
3843: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3844: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3845: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3847: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3848: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3849: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3850: RAISE OKL_API.G_EXCEPTION_ERROR;
3851: END IF;
3844: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3845: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3847: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3848: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3849: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3850: RAISE OKL_API.G_EXCEPTION_ERROR;
3851: END IF;
3852: END IF;
3846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3847: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3848: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3849: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3850: RAISE OKL_API.G_EXCEPTION_ERROR;
3851: END IF;
3852: END IF;
3853: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3854:
3849: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3850: RAISE OKL_API.G_EXCEPTION_ERROR;
3851: END IF;
3852: END IF;
3853: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3854:
3855: EXCEPTION
3856:
3857: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3853: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3854:
3855: EXCEPTION
3856:
3857: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3858: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3859: ( l_api_name,
3860: G_PKG_NAME,
3861: 'OKL_API.G_RET_STS_ERROR',
3854:
3855: EXCEPTION
3856:
3857: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3858: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3859: ( l_api_name,
3860: G_PKG_NAME,
3861: 'OKL_API.G_RET_STS_ERROR',
3862: x_msg_count,
3857: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3858: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3859: ( l_api_name,
3860: G_PKG_NAME,
3861: 'OKL_API.G_RET_STS_ERROR',
3862: x_msg_count,
3863: x_msg_data,
3864: '_PVT'
3865: );
3862: x_msg_count,
3863: x_msg_data,
3864: '_PVT'
3865: );
3866: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3867: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3868: ( l_api_name,
3869: G_PKG_NAME,
3870: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3863: x_msg_data,
3864: '_PVT'
3865: );
3866: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3867: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3868: ( l_api_name,
3869: G_PKG_NAME,
3870: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3871: x_msg_count,
3866: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3867: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3868: ( l_api_name,
3869: G_PKG_NAME,
3870: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3871: x_msg_count,
3872: x_msg_data,
3873: '_PVT'
3874: );
3872: x_msg_data,
3873: '_PVT'
3874: );
3875: WHEN OTHERS THEN
3876: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3877: ( l_api_name,
3878: G_PKG_NAME,
3879: 'OTHERS',
3880: x_msg_count,
3913: tmpl_rec AVLV_REC_TYPE;
3914: l_tmpl_tbl avlv_tbl_type;
3915: l_formula_name OKL_FORMULAE_V.NAME%TYPE;
3916: l_functional_curr OKL_TRNS_ACC_DSTRS.CURRENCY_CODE%TYPE;
3917: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3918:
3919: l_api_name VARCHAR2(30) := 'CREATE_ACCOUNTING_DIST';
3920: l_api_version NUMBER := 1.0;
3921:
3966: --Added by kthiruva on 06-Feb-2007 for SLA Uptake
3967: --Bug 5707866 - Start of Changes
3968: l_account_derivation OKL_SYS_ACCT_OPTS.ACCOUNT_DERIVATION%TYPE;
3969: l_tcn_id NUMBER;
3970: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
3971: l_msg_count NUMBER := 0;
3972: l_msg_data VARCHAR2(2000);
3973: l_event_id NUMBER;
3974: l_event_date DATE;
4006: BEGIN
4007: IF (G_DEBUG_ENABLED = 'Y') THEN
4008: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4009: END IF;
4010: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4011:
4012: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4013: G_PKG_NAME,
4014: p_init_msg_list,
4008: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4009: END IF;
4010: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4011:
4012: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4013: G_PKG_NAME,
4014: p_init_msg_list,
4015: l_api_version,
4016: p_api_version,
4015: l_api_version,
4016: p_api_version,
4017: '_PVT',
4018: x_return_status);
4019: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4021: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4022: RAISE OKL_API.G_EXCEPTION_ERROR;
4023: END IF;
4016: p_api_version,
4017: '_PVT',
4018: x_return_status);
4019: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4021: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4022: RAISE OKL_API.G_EXCEPTION_ERROR;
4023: END IF;
4024:
4017: '_PVT',
4018: x_return_status);
4019: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4021: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4022: RAISE OKL_API.G_EXCEPTION_ERROR;
4023: END IF;
4024:
4025: -- get the ledger attributes .. racheruv
4018: x_return_status);
4019: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4021: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4022: RAISE OKL_API.G_EXCEPTION_ERROR;
4023: END IF;
4024:
4025: -- get the ledger attributes .. racheruv
4026: get_rep_attributes;
4066: END IF;
4067:
4068:
4069:
4070: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4071: RAISE OKL_API.G_EXCEPTION_ERROR;
4072: END IF;
4073:
4074: -- Get the Templates from the given parameters
4067:
4068:
4069:
4070: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4071: RAISE OKL_API.G_EXCEPTION_ERROR;
4072: END IF;
4073:
4074: -- Get the Templates from the given parameters
4075:
4084: FETCH get_acct_derivation_csr INTO l_account_derivation;
4085: CLOSE get_acct_derivation_csr;
4086:
4087: IF l_account_derivation IS NULL THEN
4088: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4089: ,p_msg_name => 'OKL_ACCT_DER_NOT_SET');
4090: RAISE OKL_API.G_EXCEPTION_ERROR;
4091: END IF;
4092:
4086:
4087: IF l_account_derivation IS NULL THEN
4088: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4089: ,p_msg_name => 'OKL_ACCT_DER_NOT_SET');
4090: RAISE OKL_API.G_EXCEPTION_ERROR;
4091: END IF;
4092:
4093: --Deriving the functional currency to be passed in the call to validate_params
4094: --l_functional_curr := Okl_Accounting_Util.GET_FUNC_CURR_CODE; -- redundant code
4098: --Only when the account derivation option is 'ATS'
4099: --Or if the account derivation option is 'AMB' and the transaction amount is not known
4100: --should the template information be fetched
4101: IF (l_account_derivation = 'ATS') OR
4102: ((l_account_derivation = 'AMB') AND ((l_dist_info_tbl(i).AMOUNT IS NULL) OR (l_dist_info_tbl(i).AMOUNT = OKL_API.G_MISS_NUM)))
4103: THEN
4104: IF (l_first_rec = TRUE)
4105: THEN
4106: GET_TEMPLATE_INFO(p_api_version => l_api_version,
4111: p_tmpl_identify_rec => p_tmpl_identify_rec,
4112: x_template_tbl => l_tmpl_tbl,
4113: p_validity_date => G_GL_DATE);
4114:
4115: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4116: RAISE OKL_API.G_EXCEPTION_ERROR;
4117: END IF;
4118:
4119: --Setting l_first_rec to FALSE, so that GET_TEMPLATE_INFO need not be called every time in the loop
4112: x_template_tbl => l_tmpl_tbl,
4113: p_validity_date => G_GL_DATE);
4114:
4115: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4116: RAISE OKL_API.G_EXCEPTION_ERROR;
4117: END IF;
4118:
4119: --Setting l_first_rec to FALSE, so that GET_TEMPLATE_INFO need not be called every time in the loop
4120: l_first_rec := FALSE;
4137: FOR sty_type_rec IN sty_type_csr (p_tmpl_identify_rec.stream_type_id) LOOP
4138: l_sty_type_name := sty_type_rec.name;
4139: END LOOP;
4140:
4141: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4142: ,p_msg_name => 'OKL_TMPL_NOT_FOUND'
4143: ,p_token1 => 'PRODUCT'
4144: ,p_token1_value => l_product_name
4145: ,p_token2 => 'TRANSACTION_TYPE'
4149: ,p_token4 => 'ACCOUNTING_DATE'
4150: ,p_token4_value => G_GL_DATE);
4151:
4152:
4153: RAISE OKL_API.G_EXCEPTION_ERROR;
4154: END IF;
4155: END IF;
4156:
4157: -- Check the Distribution Status and take appropriate Action
4168: p_source_id => l_dist_info_tbl(i).source_id,
4169: p_source_table => l_dist_info_tbl(i).source_table,
4170: x_return_status => l_return_status);
4171:
4172: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4173: RAISE OKL_API.G_EXCEPTION_ERROR;
4174: END IF;
4175:
4176: END IF;
4169: p_source_table => l_dist_info_tbl(i).source_table,
4170: x_return_status => l_return_status);
4171:
4172: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4173: RAISE OKL_API.G_EXCEPTION_ERROR;
4174: END IF;
4175:
4176: END IF;
4177:
4175:
4176: END IF;
4177:
4178: IF (l_check_status = 2) THEN
4179: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4180: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4181: RAISE OKL_API.G_EXCEPTION_ERROR;
4182: END IF;
4183:
4177:
4178: IF (l_check_status = 2) THEN
4179: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4180: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4181: RAISE OKL_API.G_EXCEPTION_ERROR;
4182: END IF;
4183:
4184: FOR j IN 1..l_tmpl_tbl.COUNT
4185: LOOP
4192: l_template_amount_tbl(l_tmp_amt_tbl_count).parent_index_number := i;
4193:
4194:
4195: IF (l_dist_info_tbl(i).AMOUNT IS NULL) OR
4196: (l_dist_info_tbl(i).AMOUNT = OKL_API.G_MISS_NUM) THEN
4197:
4198: -- If the amount is null calculate the amount using formula engine
4199: IF (tmpl_rec.FMA_ID IS NULL) OR
4200: (tmpl_rec.FMA_ID = OKL_API.G_MISS_NUM) THEN
4196: (l_dist_info_tbl(i).AMOUNT = OKL_API.G_MISS_NUM) THEN
4197:
4198: -- If the amount is null calculate the amount using formula engine
4199: IF (tmpl_rec.FMA_ID IS NULL) OR
4200: (tmpl_rec.FMA_ID = OKL_API.G_MISS_NUM) THEN
4201: -- If the formula is not found associated with template
4202: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4203: p_msg_name => 'OKL_FMA_NOT_PRESENT',
4204: p_token1 => 'TEMPLATE_NAME',
4198: -- If the amount is null calculate the amount using formula engine
4199: IF (tmpl_rec.FMA_ID IS NULL) OR
4200: (tmpl_rec.FMA_ID = OKL_API.G_MISS_NUM) THEN
4201: -- If the formula is not found associated with template
4202: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4203: p_msg_name => 'OKL_FMA_NOT_PRESENT',
4204: p_token1 => 'TEMPLATE_NAME',
4205: p_token1_value => tmpl_rec.NAME);
4206: RAISE OKL_API.G_EXCEPTION_ERROR;
4202: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4203: p_msg_name => 'OKL_FMA_NOT_PRESENT',
4204: p_token1 => 'TEMPLATE_NAME',
4205: p_token1_value => tmpl_rec.NAME);
4206: RAISE OKL_API.G_EXCEPTION_ERROR;
4207: END IF;
4208:
4209: OPEN frml_csr(tmpl_rec.fma_id);
4210: FETCH frml_csr INTO l_formula_name;
4223: p_ctxt_val_tbl => p_ctxt_val_tbl,
4224: x_return_status => l_return_status,
4225: x_amount => l_amount );
4226:
4227: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4228: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4229: p_msg_name => 'OKL_FRML_EXE_FAILED',
4230: p_token1 => 'FORMULA_NAME',
4231: p_token1_value => l_formula_name);
4224: x_return_status => l_return_status,
4225: x_amount => l_amount );
4226:
4227: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4228: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4229: p_msg_name => 'OKL_FRML_EXE_FAILED',
4230: p_token1 => 'FORMULA_NAME',
4231: p_token1_value => l_formula_name);
4232:
4236: IF g_representation_type = 'SECONDARY' THEN
4237: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
4238: END IF;
4239:
4240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4243: RAISE OKL_API.G_EXCEPTION_ERROR;
4244: END IF;
4237: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
4238: END IF;
4239:
4240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4243: RAISE OKL_API.G_EXCEPTION_ERROR;
4244: END IF;
4245:
4238: END IF;
4239:
4240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4243: RAISE OKL_API.G_EXCEPTION_ERROR;
4244: END IF;
4245:
4246: -- Added by Santonyr on 12-Jul-2440 for the bug 3761026
4239:
4240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4243: RAISE OKL_API.G_EXCEPTION_ERROR;
4244: END IF;
4245:
4246: -- Added by Santonyr on 12-Jul-2440 for the bug 3761026
4247: l_template_amount_tbl(l_tmp_amt_tbl_count).formula_used := 'Y';
4258: -- message should be displayed.
4259:
4260: /* commenting this part as zero amount is not an error condition. racheruv 15881611
4261: IF (l_amount = 0) THEN
4262: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4263: p_msg_name => 'OKL_FRML_RET_ZERO_AMT',
4264: p_token1 => 'TEMPLATE_NAME',
4265: p_token1_value => tmpl_rec.NAME);
4266:
4264: p_token1 => 'TEMPLATE_NAME',
4265: p_token1_value => tmpl_rec.NAME);
4266:
4267: -- Santonyr on 14-Jul-2003 Fixed bug 3048686
4268: -- RAISE OKL_API.G_EXCEPTION_ERROR;
4269:
4270: END IF;
4271: */
4272:
4278: x_template_rec => x_template_tbl(j),
4279: x_return_status => l_return_status);
4280:
4281:
4282: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4284: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4285: RAISE OKL_API.G_EXCEPTION_ERROR;
4286: END IF;
4279: x_return_status => l_return_status);
4280:
4281:
4282: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4284: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4285: RAISE OKL_API.G_EXCEPTION_ERROR;
4286: END IF;
4287:
4280:
4281:
4282: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4284: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4285: RAISE OKL_API.G_EXCEPTION_ERROR;
4286: END IF;
4287:
4288: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4281:
4282: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4284: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4285: RAISE OKL_API.G_EXCEPTION_ERROR;
4286: END IF;
4287:
4288: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4289: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After the call to COPY_TEMPLATE_TBL, the return status is '||l_return_status);
4311: p_gen_table => p_acc_gen_tbl_ret,
4312: x_return_status => l_return_status,
4313: x_tabv_tbl => l_tabv_tbl_out);
4314:
4315: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4316: RAISE OKL_API.G_EXCEPTION_ERROR;
4317: END IF;
4318: ELSIF (l_account_derivation = 'AMB')
4319: THEN
4312: x_return_status => l_return_status,
4313: x_tabv_tbl => l_tabv_tbl_out);
4314:
4315: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4316: RAISE OKL_API.G_EXCEPTION_ERROR;
4317: END IF;
4318: ELSIF (l_account_derivation = 'AMB')
4319: THEN
4320: CREATE_DIST_RECS(--Bug 6127326 dpsingh start
4325: p_amount => l_amount,
4326: x_return_status => l_return_status,
4327: x_tabv_tbl => l_tabv_tbl_out);
4328:
4329: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4330: RAISE OKL_API.G_EXCEPTION_ERROR;
4331: END IF;
4332: END IF;
4333: END IF; -- End If for (l_amount <> 0)
4326: x_return_status => l_return_status,
4327: x_tabv_tbl => l_tabv_tbl_out);
4328:
4329: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4330: RAISE OKL_API.G_EXCEPTION_ERROR;
4331: END IF;
4332: END IF;
4333: END IF; -- End If for (l_amount <> 0)
4334:
4371: p_source_id => l_dist_info_tbl(i).source_id,
4372: p_source_table => l_dist_info_tbl(i).source_table,
4373: x_return_status => l_return_status);
4374:
4375: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4376: RAISE OKL_API.G_EXCEPTION_ERROR;
4377: END IF;
4378:
4379: END IF;
4372: p_source_table => l_dist_info_tbl(i).source_table,
4373: x_return_status => l_return_status);
4374:
4375: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4376: RAISE OKL_API.G_EXCEPTION_ERROR;
4377: END IF;
4378:
4379: END IF;
4380:
4378:
4379: END IF;
4380:
4381: IF (l_check_status = 2) THEN
4382: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4383: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4384: RAISE OKL_API.G_EXCEPTION_ERROR;
4385: END IF;
4386:
4380:
4381: IF (l_check_status = 2) THEN
4382: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4383: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4384: RAISE OKL_API.G_EXCEPTION_ERROR;
4385: END IF;
4386:
4387: l_template_amount_tbl(l_tmp_amt_tbl_count).amount := x_amount_tbl(l_tmp_amt_tbl_count).amount;
4388:
4395: p_amount => l_amount,
4396: x_return_status => l_return_status,
4397: x_tabv_tbl => l_tabv_tbl_out);
4398:
4399: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4400: RAISE OKL_API.G_EXCEPTION_ERROR;
4401: END IF;
4402: END IF; -- End If for (l_amount <> 0)
4403:
4396: x_return_status => l_return_status,
4397: x_tabv_tbl => l_tabv_tbl_out);
4398:
4399: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4400: RAISE OKL_API.G_EXCEPTION_ERROR;
4401: END IF;
4402: END IF; -- End If for (l_amount <> 0)
4403:
4404: x_amount_tbl(l_tmp_amt_tbl_count).amount := Okl_Accounting_Util.ROUND_AMOUNT(p_amount => l_amount,
4440: ,p_action_type => 'CREATE'
4441: ,x_event_id => l_event_id
4442: ,x_event_date => l_event_date);
4443:
4444: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4446: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4447: RAISE OKL_API.G_EXCEPTION_ERROR;
4448: END IF;
4441: ,x_event_id => l_event_id
4442: ,x_event_date => l_event_date);
4443:
4444: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4446: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4447: RAISE OKL_API.G_EXCEPTION_ERROR;
4448: END IF;
4449:
4442: ,x_event_date => l_event_date);
4443:
4444: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4446: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4447: RAISE OKL_API.G_EXCEPTION_ERROR;
4448: END IF;
4449:
4450: --If an event is already found , do nothing, else Capture account sources for the header
4443:
4444: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4446: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4447: RAISE OKL_API.G_EXCEPTION_ERROR;
4448: END IF;
4449:
4450: --If an event is already found , do nothing, else Capture account sources for the header
4451: IF l_event_id IS NULL
4459: l_gl_short_name := g_ledger_tbl(g_ledger_id).rep_code;
4460:
4461: IF l_gl_short_name IS NULL
4462: THEN
4463: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4464: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
4465: RAISE OKL_API.G_EXCEPTION_ERROR;
4466: END IF;
4467:
4461: IF l_gl_short_name IS NULL
4462: THEN
4463: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4464: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
4465: RAISE OKL_API.G_EXCEPTION_ERROR;
4466: END IF;
4467:
4468: l_event_id := OKL_XLA_EVENTS_PVT.create_event(p_api_version => l_api_version
4469: ,p_init_msg_list => l_init_msg_list
4475: ,p_action_type => 'CREATE'
4476: ,p_representation_code => l_gl_short_name
4477: );
4478:
4479: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4481: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4482: RAISE OKL_API.G_EXCEPTION_ERROR;
4483: END IF;
4476: ,p_representation_code => l_gl_short_name
4477: );
4478:
4479: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4481: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4482: RAISE OKL_API.G_EXCEPTION_ERROR;
4483: END IF;
4484:
4477: );
4478:
4479: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4481: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4482: RAISE OKL_API.G_EXCEPTION_ERROR;
4483: END IF;
4484:
4485: END IF;
4478:
4479: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4481: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4482: RAISE OKL_API.G_EXCEPTION_ERROR;
4483: END IF;
4484:
4485: END IF;
4486:
4500: ,p_tabv_tbl => l_Tabv_tbl_final
4501: ,x_tabv_tbl => x_tabv_tbl
4502: );
4503:
4504: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4505:
4506: EXCEPTION
4507:
4508: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4504: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4505:
4506: EXCEPTION
4507:
4508: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4509: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4510: ( l_api_name,
4511: G_PKG_NAME,
4512: 'OKL_API.G_RET_STS_ERROR',
4505:
4506: EXCEPTION
4507:
4508: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4509: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4510: ( l_api_name,
4511: G_PKG_NAME,
4512: 'OKL_API.G_RET_STS_ERROR',
4513: x_msg_count,
4508: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4509: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4510: ( l_api_name,
4511: G_PKG_NAME,
4512: 'OKL_API.G_RET_STS_ERROR',
4513: x_msg_count,
4514: x_msg_data,
4515: '_PVT'
4516: );
4513: x_msg_count,
4514: x_msg_data,
4515: '_PVT'
4516: );
4517: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4518: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4519: ( l_api_name,
4520: G_PKG_NAME,
4521: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4514: x_msg_data,
4515: '_PVT'
4516: );
4517: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4518: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4519: ( l_api_name,
4520: G_PKG_NAME,
4521: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4522: x_msg_count,
4517: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4518: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4519: ( l_api_name,
4520: G_PKG_NAME,
4521: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4522: x_msg_count,
4523: x_msg_data,
4524: '_PVT'
4525: );
4523: x_msg_data,
4524: '_PVT'
4525: );
4526: WHEN OTHERS THEN
4527: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4528: ( l_api_name,
4529: G_PKG_NAME,
4530: 'OTHERS',
4531: x_msg_count,
4558: tmpl_rec AVLV_REC_TYPE;
4559: l_tmpl_tbl avlv_tbl_type;
4560: l_formula_name OKL_FORMULAE_V.NAME%TYPE;
4561: l_functional_curr OKL_TRNS_ACC_DSTRS.CURRENCY_CODE%TYPE;
4562: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4563:
4564: l_api_name VARCHAR2(30) := 'CREATE_ACCOUNTING_DIST';
4565: l_api_version NUMBER := 1.0;
4566:
4606: --Bug 5707866 - Start of Changes
4607: l_ctxt_val_tbl CTXT_VAL_TBL_TYPE;
4608: l_account_derivation OKL_SYS_ACCT_OPTS.ACCOUNT_DERIVATION%TYPE;
4609: l_tcn_id NUMBER;
4610: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
4611: l_msg_count NUMBER := 0;
4612: l_msg_data VARCHAR2(2000);
4613: l_event_id NUMBER;
4614: l_event_date DATE;
4624: BEGIN
4625: IF (G_DEBUG_ENABLED = 'Y') THEN
4626: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4627: END IF;
4628: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4629:
4630: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4631: G_PKG_NAME,
4632: p_init_msg_list,
4626: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4627: END IF;
4628: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4629:
4630: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4631: G_PKG_NAME,
4632: p_init_msg_list,
4633: l_api_version,
4634: p_api_version,
4633: l_api_version,
4634: p_api_version,
4635: '_PVT',
4636: x_return_status);
4637: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4639: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4640: RAISE OKL_API.G_EXCEPTION_ERROR;
4641: END IF;
4634: p_api_version,
4635: '_PVT',
4636: x_return_status);
4637: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4639: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4640: RAISE OKL_API.G_EXCEPTION_ERROR;
4641: END IF;
4642:
4635: '_PVT',
4636: x_return_status);
4637: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4639: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4640: RAISE OKL_API.G_EXCEPTION_ERROR;
4641: END IF;
4642:
4643: -- Get the functional currency, based on the representation
4636: x_return_status);
4637: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4639: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4640: RAISE OKL_API.G_EXCEPTION_ERROR;
4641: END IF;
4642:
4643: -- Get the functional currency, based on the representation
4644: IF g_representation_type = 'PRIMARY' THEN
4660: VALIDATE_PARAMS(p_dist_info_tbl => l_dist_info_tbl,
4661: p_functional_curr => l_functional_curr,
4662: x_return_status => l_return_status);
4663:
4664: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4665: RAISE OKL_API.G_EXCEPTION_ERROR;
4666: END IF;
4667:
4668: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4661: p_functional_curr => l_functional_curr,
4662: x_return_status => l_return_status);
4663:
4664: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4665: RAISE OKL_API.G_EXCEPTION_ERROR;
4666: END IF;
4667:
4668: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After the call to VALIDATE_PARAMS, the return status is :'||l_return_status);
4682: FETCH get_acct_derivation_csr INTO l_account_derivation;
4683: CLOSE get_acct_derivation_csr;
4684:
4685: IF l_account_derivation IS NULL THEN
4686: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4687: ,p_msg_name => 'OKL_ACCT_DER_NOT_SET');
4688: RAISE OKL_API.G_EXCEPTION_ERROR;
4689: END IF;
4690:
4684:
4685: IF l_account_derivation IS NULL THEN
4686: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4687: ,p_msg_name => 'OKL_ACCT_DER_NOT_SET');
4688: RAISE OKL_API.G_EXCEPTION_ERROR;
4689: END IF;
4690:
4691: --Deriving the functional currency to be passed in the call to validate_params
4692: --l_functional_curr := Okl_Accounting_Util.GET_FUNC_CURR_CODE; --redundant code.
4696: --Only when the account derivation option is 'ATS'
4697: --Or if the account derivation option is 'AMB' and the transaction amount is not known
4698: --should the template information be fetched
4699: IF (l_account_derivation = 'ATS') OR
4700: ((l_account_derivation = 'AMB') AND ((l_dist_info_tbl(i).AMOUNT IS NULL) OR (l_dist_info_tbl(i).AMOUNT = OKL_API.G_MISS_NUM)))
4701: THEN
4702: IF (l_first_rec = TRUE)
4703: THEN
4704: GET_TEMPLATE_INFO(p_api_version => l_api_version,
4709: p_tmpl_identify_rec => p_tmpl_identify_rec,
4710: x_template_tbl => l_tmpl_tbl,
4711: p_validity_date => G_GL_DATE);
4712:
4713: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4714: RAISE OKL_API.G_EXCEPTION_ERROR;
4715: END IF;
4716:
4717: --Setting l_first_rec to FALSE, so that GET_TEMPLATE_INFO need not be called every time in the loop
4710: x_template_tbl => l_tmpl_tbl,
4711: p_validity_date => G_GL_DATE);
4712:
4713: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4714: RAISE OKL_API.G_EXCEPTION_ERROR;
4715: END IF;
4716:
4717: --Setting l_first_rec to FALSE, so that GET_TEMPLATE_INFO need not be called every time in the loop
4718: l_first_rec := FALSE;
4735: FOR sty_type_rec IN sty_type_csr (p_tmpl_identify_rec.stream_type_id) LOOP
4736: l_sty_type_name := sty_type_rec.name;
4737: END LOOP;
4738:
4739: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4740: ,p_msg_name => 'OKL_TMPL_NOT_FOUND'
4741: ,p_token1 => 'PRODUCT'
4742: ,p_token1_value => l_product_name
4743: ,p_token2 => 'TRANSACTION_TYPE'
4747: ,p_token4 => 'ACCOUNTING_DATE'
4748: ,p_token4_value => G_GL_DATE);
4749:
4750:
4751: RAISE OKL_API.G_EXCEPTION_ERROR;
4752: END IF;
4753: END IF;
4754:
4755: -- Check the Distribution Status and take appropriate Action
4765: p_source_id => l_dist_info_tbl(i).source_id,
4766: p_source_table => l_dist_info_tbl(i).source_table,
4767: x_return_status => l_return_status);
4768:
4769: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4770: RAISE OKL_API.G_EXCEPTION_ERROR;
4771: END IF;
4772:
4773: END IF;
4766: p_source_table => l_dist_info_tbl(i).source_table,
4767: x_return_status => l_return_status);
4768:
4769: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4770: RAISE OKL_API.G_EXCEPTION_ERROR;
4771: END IF;
4772:
4773: END IF;
4774:
4772:
4773: END IF;
4774:
4775: IF (l_check_status = 2) THEN
4776: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4777: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4778: RAISE OKL_API.G_EXCEPTION_ERROR;
4779: END IF;
4780:
4774:
4775: IF (l_check_status = 2) THEN
4776: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4777: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4778: RAISE OKL_API.G_EXCEPTION_ERROR;
4779: END IF;
4780:
4781: FOR j IN 1..l_tmpl_tbl.COUNT
4782: LOOP
4782: LOOP
4783: tmpl_rec := l_tmpl_tbl(j);
4784:
4785: IF (l_dist_info_tbl(i).AMOUNT IS NULL) OR
4786: (l_dist_info_tbl(i).AMOUNT = OKL_API.G_MISS_NUM) THEN
4787:
4788: -- If the amount is null calculate the amount using formula engine
4789: IF (tmpl_rec.FMA_ID IS NULL) OR
4790: (tmpl_rec.FMA_ID = OKL_API.G_MISS_NUM) THEN
4786: (l_dist_info_tbl(i).AMOUNT = OKL_API.G_MISS_NUM) THEN
4787:
4788: -- If the amount is null calculate the amount using formula engine
4789: IF (tmpl_rec.FMA_ID IS NULL) OR
4790: (tmpl_rec.FMA_ID = OKL_API.G_MISS_NUM) THEN
4791: -- If the formula is not found associated with template
4792: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4793: p_msg_name => 'OKL_FMA_NOT_PRESENT',
4794: p_token1 => 'TEMPLATE_NAME',
4788: -- If the amount is null calculate the amount using formula engine
4789: IF (tmpl_rec.FMA_ID IS NULL) OR
4790: (tmpl_rec.FMA_ID = OKL_API.G_MISS_NUM) THEN
4791: -- If the formula is not found associated with template
4792: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4793: p_msg_name => 'OKL_FMA_NOT_PRESENT',
4794: p_token1 => 'TEMPLATE_NAME',
4795: p_token1_value => tmpl_rec.NAME);
4796: RAISE OKL_API.G_EXCEPTION_ERROR;
4792: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4793: p_msg_name => 'OKL_FMA_NOT_PRESENT',
4794: p_token1 => 'TEMPLATE_NAME',
4795: p_token1_value => tmpl_rec.NAME);
4796: RAISE OKL_API.G_EXCEPTION_ERROR;
4797: END IF;
4798:
4799: OPEN frml_csr(tmpl_rec.fma_id);
4800: FETCH frml_csr INTO l_formula_name;
4818: p_ctxt_val_tbl => l_ctxt_val_tbl,
4819: x_return_status => l_return_status,
4820: x_amount => l_amount );
4821:
4822: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4823: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4824: p_msg_name => 'OKL_FRML_EXE_FAILED',
4825: p_token1 => 'FORMULA_NAME',
4826: p_token1_value => l_formula_name);
4819: x_return_status => l_return_status,
4820: x_amount => l_amount );
4821:
4822: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4823: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4824: p_msg_name => 'OKL_FRML_EXE_FAILED',
4825: p_token1 => 'FORMULA_NAME',
4826: p_token1_value => l_formula_name);
4827:
4831: IF g_representation_type = 'SECONDARY' THEN
4832: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
4833: END IF;
4834:
4835: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4837: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4838: RAISE OKL_API.G_EXCEPTION_ERROR;
4839: END IF;
4832: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
4833: END IF;
4834:
4835: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4837: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4838: RAISE OKL_API.G_EXCEPTION_ERROR;
4839: END IF;
4840: ELSE -- If the amount is passed from the caller (amount is not null).
4833: END IF;
4834:
4835: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4837: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4838: RAISE OKL_API.G_EXCEPTION_ERROR;
4839: END IF;
4840: ELSE -- If the amount is passed from the caller (amount is not null).
4841: l_amount := l_dist_info_tbl(i).AMOUNT;
4834:
4835: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4837: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4838: RAISE OKL_API.G_EXCEPTION_ERROR;
4839: END IF;
4840: ELSE -- If the amount is passed from the caller (amount is not null).
4841: l_amount := l_dist_info_tbl(i).AMOUNT;
4842: END IF; -- End If for (p_dist_info_rec.AMOUNT IS NULL)
4844: -- If amount passes is Zero or Amount got from formula is zero then a
4845: -- message should be displayed.
4846:
4847: IF (l_amount = 0) THEN
4848: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4849: p_msg_name => 'OKL_FRML_RET_ZERO_AMT',
4850: p_token1 => 'TEMPLATE_NAME',
4851: p_token1_value => tmpl_rec.NAME);
4852: -- Santonyr on 14-Jul-2003 Fixed bug 3048686
4849: p_msg_name => 'OKL_FRML_RET_ZERO_AMT',
4850: p_token1 => 'TEMPLATE_NAME',
4851: p_token1_value => tmpl_rec.NAME);
4852: -- Santonyr on 14-Jul-2003 Fixed bug 3048686
4853: -- RAISE OKL_API.G_EXCEPTION_ERROR;
4854: END IF;
4855:
4856: --Building a reference between the dist_info rec and x_template_tbl
4857: x_template_tbl(i).template_tbl(j) := tmpl_rec;
4875: p_gen_table => p_acc_gen_tbl_ret,
4876: x_return_status => l_return_status,
4877: x_tabv_tbl => l_tabv_tbl_out);
4878:
4879: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4880: RAISE OKL_API.G_EXCEPTION_ERROR;
4881: END IF;
4882: ELSIF (l_account_derivation = 'AMB')
4883: THEN
4876: x_return_status => l_return_status,
4877: x_tabv_tbl => l_tabv_tbl_out);
4878:
4879: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4880: RAISE OKL_API.G_EXCEPTION_ERROR;
4881: END IF;
4882: ELSIF (l_account_derivation = 'AMB')
4883: THEN
4884: CREATE_DIST_RECS(--Bug 6127326 dpsingh start
4889: p_amount => l_amount,
4890: x_return_status => l_return_status,
4891: x_tabv_tbl => l_tabv_tbl_out);
4892:
4893: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4894: RAISE OKL_API.G_EXCEPTION_ERROR;
4895: END IF;
4896: END IF;
4897: END IF; -- End If for (l_amount <> 0)
4890: x_return_status => l_return_status,
4891: x_tabv_tbl => l_tabv_tbl_out);
4892:
4893: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4894: RAISE OKL_API.G_EXCEPTION_ERROR;
4895: END IF;
4896: END IF;
4897: END IF; -- End If for (l_amount <> 0)
4898:
4934: p_source_id => l_dist_info_tbl(i).source_id,
4935: p_source_table => l_dist_info_tbl(i).source_table,
4936: x_return_status => l_return_status);
4937:
4938: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4939: RAISE OKL_API.G_EXCEPTION_ERROR;
4940: END IF;
4941:
4942: END IF;
4935: p_source_table => l_dist_info_tbl(i).source_table,
4936: x_return_status => l_return_status);
4937:
4938: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4939: RAISE OKL_API.G_EXCEPTION_ERROR;
4940: END IF;
4941:
4942: END IF;
4943:
4941:
4942: END IF;
4943:
4944: IF (l_check_status = 2) THEN
4945: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4946: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4947: RAISE OKL_API.G_EXCEPTION_ERROR;
4948: END IF;
4949:
4943:
4944: IF (l_check_status = 2) THEN
4945: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4946: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4947: RAISE OKL_API.G_EXCEPTION_ERROR;
4948: END IF;
4949:
4950: l_amount := l_dist_info_tbl(i).amount;
4951:
4956: p_amount => l_amount,
4957: x_return_status => l_return_status,
4958: x_tabv_tbl => l_tabv_tbl_out);
4959:
4960: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4961: RAISE OKL_API.G_EXCEPTION_ERROR;
4962: END IF;
4963: END IF; -- End If for (l_amount <> 0)
4964:
4957: x_return_status => l_return_status,
4958: x_tabv_tbl => l_tabv_tbl_out);
4959:
4960: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4961: RAISE OKL_API.G_EXCEPTION_ERROR;
4962: END IF;
4963: END IF; -- End If for (l_amount <> 0)
4964:
4965: x_amount_tbl(i).amount_tbl(0) := Okl_Accounting_Util.ROUND_AMOUNT(p_amount => l_amount,
4982: END IF;
4983: END IF;
4984: x_tabv_tbl := l_tabv_tbl_final;
4985: END LOOP; --End loop for (l_dist_info_tbl.count)
4986: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4987:
4988: EXCEPTION
4989:
4990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4986: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4987:
4988: EXCEPTION
4989:
4990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4991: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4992: ( l_api_name,
4993: G_PKG_NAME,
4994: 'OKL_API.G_RET_STS_ERROR',
4987:
4988: EXCEPTION
4989:
4990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4991: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4992: ( l_api_name,
4993: G_PKG_NAME,
4994: 'OKL_API.G_RET_STS_ERROR',
4995: x_msg_count,
4990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4991: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4992: ( l_api_name,
4993: G_PKG_NAME,
4994: 'OKL_API.G_RET_STS_ERROR',
4995: x_msg_count,
4996: x_msg_data,
4997: '_PVT'
4998: );
4995: x_msg_count,
4996: x_msg_data,
4997: '_PVT'
4998: );
4999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5000: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5001: ( l_api_name,
5002: G_PKG_NAME,
5003: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4996: x_msg_data,
4997: '_PVT'
4998: );
4999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5000: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5001: ( l_api_name,
5002: G_PKG_NAME,
5003: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5004: x_msg_count,
4999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5000: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5001: ( l_api_name,
5002: G_PKG_NAME,
5003: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5004: x_msg_count,
5005: x_msg_data,
5006: '_PVT'
5007: );
5005: x_msg_data,
5006: '_PVT'
5007: );
5008: WHEN OTHERS THEN
5009: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5010: ( l_api_name,
5011: G_PKG_NAME,
5012: 'OTHERS',
5013: x_msg_count,
5040: tmpl_rec AVLV_REC_TYPE;
5041: l_tmpl_tbl avlv_tbl_type;
5042: l_formula_name OKL_FORMULAE_V.NAME%TYPE;
5043: l_functional_curr OKL_TRNS_ACC_DSTRS.CURRENCY_CODE%TYPE;
5044: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5045:
5046: l_api_name VARCHAR2(30) := 'CREATE_ACCOUNTING_DIST';
5047: l_api_version NUMBER := 1.0;
5048:
5082: --Added by kthiruva on 06-Feb-2007 for SLA Uptake
5083: --Bug 5707866 - Start of Changes
5084: l_account_derivation OKL_SYS_ACCT_OPTS.ACCOUNT_DERIVATION%TYPE;
5085: l_tcn_id NUMBER := p_trx_header_id;
5086: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
5087: l_msg_count NUMBER := 0;
5088: l_msg_data VARCHAR2(2000);
5089: l_event_id NUMBER;
5090: l_event_date DATE;
5179: l_sources_exist VARCHAR2(1);
5180: --Bug 5707866 - End of Changes
5181:
5182: BEGIN
5183: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5184:
5185: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5186: G_PKG_NAME,
5187: p_init_msg_list,
5181:
5182: BEGIN
5183: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5184:
5185: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5186: G_PKG_NAME,
5187: p_init_msg_list,
5188: l_api_version,
5189: p_api_version,
5188: l_api_version,
5189: p_api_version,
5190: '_PVT',
5191: x_return_status);
5192: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5194: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5195: RAISE OKL_API.G_EXCEPTION_ERROR;
5196: END IF;
5189: p_api_version,
5190: '_PVT',
5191: x_return_status);
5192: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5194: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5195: RAISE OKL_API.G_EXCEPTION_ERROR;
5196: END IF;
5197:
5190: '_PVT',
5191: x_return_status);
5192: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5194: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5195: RAISE OKL_API.G_EXCEPTION_ERROR;
5196: END IF;
5197:
5198: VALIDATE_IN_PARAMS(p_dist_info_tbl => p_dist_info_tbl
5191: x_return_status);
5192: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5194: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5195: RAISE OKL_API.G_EXCEPTION_ERROR;
5196: END IF;
5197:
5198: VALIDATE_IN_PARAMS(p_dist_info_tbl => p_dist_info_tbl
5199: ,p_tmpl_identify_tbl => p_tmpl_identify_tbl
5201: ,p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl
5202: ,x_return_status => l_return_status
5203: );
5204:
5205: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5206: RAISE OKL_API.G_EXCEPTION_ERROR;
5207: END IF;
5208:
5209: -- get the representation attributes.. MG uptake
5202: ,x_return_status => l_return_status
5203: );
5204:
5205: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5206: RAISE OKL_API.G_EXCEPTION_ERROR;
5207: END IF;
5208:
5209: -- get the representation attributes.. MG uptake
5210: get_rep_attributes;
5257: x_template_tbl => x_template_temp_tbl,
5258: x_amount_tbl => x_amount_temp_tbl,
5259: x_tabv_tbl => x_tabv_temp_tbl);
5260:
5261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5263: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5264: RAISE OKL_API.G_EXCEPTION_ERROR;
5265: END IF;
5258: x_amount_tbl => x_amount_temp_tbl,
5259: x_tabv_tbl => x_tabv_temp_tbl);
5260:
5261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5263: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5264: RAISE OKL_API.G_EXCEPTION_ERROR;
5265: END IF;
5266:
5259: x_tabv_tbl => x_tabv_temp_tbl);
5260:
5261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5263: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5264: RAISE OKL_API.G_EXCEPTION_ERROR;
5265: END IF;
5266:
5267: --The out parameters from each call are consolidated and built
5260:
5261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5263: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5264: RAISE OKL_API.G_EXCEPTION_ERROR;
5265: END IF;
5266:
5267: --The out parameters from each call are consolidated and built
5268: GET_FINAL_TEMPLATE_TBL(p_template_tbl => x_template_temp_tbl,
5303: x_template_tbl => x_template_temp_tbl,
5304: x_amount_tbl => x_amount_temp_tbl,
5305: x_tabv_tbl => x_tabv_temp_tbl);
5306:
5307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5310: RAISE OKL_API.G_EXCEPTION_ERROR;
5311: END IF;
5304: x_amount_tbl => x_amount_temp_tbl,
5305: x_tabv_tbl => x_tabv_temp_tbl);
5306:
5307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5310: RAISE OKL_API.G_EXCEPTION_ERROR;
5311: END IF;
5312:
5305: x_tabv_tbl => x_tabv_temp_tbl);
5306:
5307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5310: RAISE OKL_API.G_EXCEPTION_ERROR;
5311: END IF;
5312:
5313: --The out parameters from each call are consolidated and built
5306:
5307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5310: RAISE OKL_API.G_EXCEPTION_ERROR;
5311: END IF;
5312:
5313: --The out parameters from each call are consolidated and built
5314: GET_FINAL_TEMPLATE_TBL(p_template_tbl => x_template_temp_tbl,
5357: ,x_msg_count => l_msg_count
5358: ,x_msg_data => l_msg_data
5359: );
5360:
5361: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5362: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5363: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5365: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5358: ,x_msg_data => l_msg_data
5359: );
5360:
5361: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5362: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5363: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5365: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5366: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5360:
5361: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5362: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5363: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5365: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5366: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5367: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5368: RAISE OKL_API.G_EXCEPTION_ERROR;
5361: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5362: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5363: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5365: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5366: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5367: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5368: RAISE OKL_API.G_EXCEPTION_ERROR;
5369: END IF;
5362: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5363: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5365: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5366: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5367: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5368: RAISE OKL_API.G_EXCEPTION_ERROR;
5369: END IF;
5370: --As event_id is not found, we create a new event
5364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5365: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5366: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5367: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5368: RAISE OKL_API.G_EXCEPTION_ERROR;
5369: END IF;
5370: --As event_id is not found, we create a new event
5371: ELSE
5372: --The below code is not required after MG uptake.. racheruv
5379: l_gl_short_name := g_ledger_tbl(g_ledger_id).rep_code;
5380:
5381: IF l_gl_short_name IS NULL
5382: THEN
5383: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5384: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
5385: RAISE OKL_API.G_EXCEPTION_ERROR;
5386: END IF;
5387:
5381: IF l_gl_short_name IS NULL
5382: THEN
5383: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5384: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
5385: RAISE OKL_API.G_EXCEPTION_ERROR;
5386: END IF;
5387:
5388: l_event_id := OKL_XLA_EVENTS_PVT.create_event(p_api_version => l_api_version
5389: ,p_init_msg_list => l_init_msg_list
5395: ,p_action_type => 'CREATE'
5396: ,p_representation_code => l_gl_short_name
5397: );
5398:
5399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5400: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5401: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
5402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5396: ,p_representation_code => l_gl_short_name
5397: );
5398:
5399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5400: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5401: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
5402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5404: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5398:
5399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5400: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5401: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
5402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5404: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5405: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
5406: RAISE OKL_API.G_EXCEPTION_ERROR;
5399: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5400: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5401: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
5402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5404: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5405: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
5406: RAISE OKL_API.G_EXCEPTION_ERROR;
5407: END IF;
5400: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5401: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
5402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5404: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5405: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
5406: RAISE OKL_API.G_EXCEPTION_ERROR;
5407: END IF;
5408: END IF;--(IF l_event_id is null)
5402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5403: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5404: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5405: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
5406: RAISE OKL_API.G_EXCEPTION_ERROR;
5407: END IF;
5408: END IF;--(IF l_event_id is null)
5409:
5410: IF (l_tabv_tbl_out.count > 0) THEN
5426: ,p_tabv_tbl => l_tabv_tbl
5427: ,x_tabv_tbl => x_tabv_tbl
5428: );
5429:
5430: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5431: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5432: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
5433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5434: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5427: ,x_tabv_tbl => x_tabv_tbl
5428: );
5429:
5430: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5431: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5432: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
5433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5434: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5435: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5429:
5430: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5431: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5432: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
5433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5434: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5435: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5436: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
5437: RAISE OKL_API.G_EXCEPTION_ERROR;
5430: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5431: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5432: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
5433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5434: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5435: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5436: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
5437: RAISE OKL_API.G_EXCEPTION_ERROR;
5438: END IF;
5431: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5432: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
5433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5434: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5435: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5436: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
5437: RAISE OKL_API.G_EXCEPTION_ERROR;
5438: END IF;
5439: END IF;
5433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5434: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5435: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5436: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
5437: RAISE OKL_API.G_EXCEPTION_ERROR;
5438: END IF;
5439: END IF;
5440:
5441: IF p_dist_info_tbl.count = l_line_tbl.count THEN
5486: p_dist_info_rec => p_dist_info_tbl(i),
5487: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5488: x_asev_rec => l_asev_rec);
5489:
5490: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5491: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5492: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5494: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5487: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5488: x_asev_rec => l_asev_rec);
5489:
5490: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5491: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5492: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5494: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5495: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5489:
5490: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5491: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5492: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5494: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5495: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5496: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5497: RAISE OKL_API.G_EXCEPTION_ERROR;
5490: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5491: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5492: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5494: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5495: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5496: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5497: RAISE OKL_API.G_EXCEPTION_ERROR;
5498: END IF;
5491: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5492: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5494: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5495: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5496: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5497: RAISE OKL_API.G_EXCEPTION_ERROR;
5498: END IF;
5499:
5493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5494: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5495: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5496: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5497: RAISE OKL_API.G_EXCEPTION_ERROR;
5498: END IF;
5499:
5500: --Building the line table that needs to be sent to the populate sources_call
5501: l_tclv_tbl(l_asev_count).source_id := p_dist_info_tbl(i).source_id;
5517: ,x_msg_count => l_msg_count
5518: ,x_msg_data => l_msg_data);
5519:
5520:
5521: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5522: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5523: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5518: ,x_msg_data => l_msg_data);
5519:
5520:
5521: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5522: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5523: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5526: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5520:
5521: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5522: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5523: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5526: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5527: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5528: RAISE OKL_API.G_EXCEPTION_ERROR;
5521: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5522: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5523: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5526: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5527: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5528: RAISE OKL_API.G_EXCEPTION_ERROR;
5529: END IF;
5522: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5523: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5526: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5527: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5528: RAISE OKL_API.G_EXCEPTION_ERROR;
5529: END IF;
5530: --If the accounting engine call is being made for a billing transaction , then sources need to be
5524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5526: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5527: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5528: RAISE OKL_API.G_EXCEPTION_ERROR;
5529: END IF;
5530: --If the accounting engine call is being made for a billing transaction , then sources need to be
5531: --captured at the header and line level. However, for AR transactions, events are not created by OKL
5532: ELSIF l_try_name IN ('BILLING','CREDIT_MEMO','ROLLOVER_BILLING','ROLLOVER_CREDITMEMO',
5536: l_rxhv_rec.source_id := p_trx_header_id;
5537: --For AR And AP transactions, p_trx_header_table needs to be passed always.
5538: --Its optional only for OKL Transactions
5539: IF p_trx_header_table IS NULL THEN
5540: Okl_Api.set_message(G_APP_NAME,
5541: G_INVALID_VALUE,
5542: G_COL_NAME_TOKEN,
5543: 'SOURCE_TABLE');
5544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5540: Okl_Api.set_message(G_APP_NAME,
5541: G_INVALID_VALUE,
5542: G_COL_NAME_TOKEN,
5543: 'SOURCE_TABLE');
5544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5545: END IF;
5546: l_rxhv_rec.source_table := p_trx_header_table;
5547:
5548: --Cursor to check if sources already exist for the transaction. IF so , the transaction is being updated
5560: ,x_msg_count => l_msg_count
5561: ,x_msg_data => l_msg_data
5562: );
5563:
5564: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5565: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5566: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5561: ,x_msg_data => l_msg_data
5562: );
5563:
5564: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5565: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5566: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5569: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5563:
5564: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5565: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5566: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5569: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5570: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5571: RAISE OKL_API.G_EXCEPTION_ERROR;
5564: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5565: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5566: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5569: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5570: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5571: RAISE OKL_API.G_EXCEPTION_ERROR;
5572: END IF;
5565: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5566: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5569: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5570: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5571: RAISE OKL_API.G_EXCEPTION_ERROR;
5572: END IF;
5573: END IF;--(IF l_event_id is null)
5567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5569: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5570: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5571: RAISE OKL_API.G_EXCEPTION_ERROR;
5572: END IF;
5573: END IF;--(IF l_event_id is null)
5574: CLOSE check_sources_csr;
5575:
5621: p_dist_info_rec => p_dist_info_tbl(i),
5622: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5623: x_asev_rec => l_asev_rec);
5624:
5625: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5626: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5627: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5622: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5623: x_asev_rec => l_asev_rec);
5624:
5625: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5626: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5627: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5630: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5624:
5625: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5626: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5627: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5630: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5631: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5632: RAISE OKL_API.G_EXCEPTION_ERROR;
5625: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5626: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5627: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5630: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5631: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5632: RAISE OKL_API.G_EXCEPTION_ERROR;
5633: END IF;
5626: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5627: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5630: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5631: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5632: RAISE OKL_API.G_EXCEPTION_ERROR;
5633: END IF;
5634:
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5630: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5631: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5632: RAISE OKL_API.G_EXCEPTION_ERROR;
5633: END IF;
5634:
5635: --Building the line table that needs to be sent to the populate sources_call
5636: l_rxlv_tbl(l_asev_count).source_id := p_dist_info_tbl(i).source_id;
5652: ,x_msg_count => l_msg_count
5653: ,x_msg_data => l_msg_data);
5654:
5655:
5656: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5657: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5658: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5660: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5653: ,x_msg_data => l_msg_data);
5654:
5655:
5656: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5657: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5658: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5660: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5661: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5655:
5656: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5657: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5658: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5660: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5661: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5662: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5663: RAISE OKL_API.G_EXCEPTION_ERROR;
5656: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5657: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5658: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5660: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5661: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5662: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5663: RAISE OKL_API.G_EXCEPTION_ERROR;
5664: END IF;
5657: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5658: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5660: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5661: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5662: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5663: RAISE OKL_API.G_EXCEPTION_ERROR;
5664: END IF;
5665:
5659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5660: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5661: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5662: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5663: RAISE OKL_API.G_EXCEPTION_ERROR;
5664: END IF;
5665:
5666: --Bug 6316320 dpsingh start
5667: --If the accounting engine call is being made for a adjustment transaction , then sources need to be
5672: l_rxhv_adj_rec.source_id := p_trx_header_id;
5673: --For AR And AP transactions, p_trx_header_table needs to be passed always.
5674: --Its optional only for OKL Transactions
5675: IF p_trx_header_table IS NULL THEN
5676: Okl_Api.set_message(G_APP_NAME,
5677: G_INVALID_VALUE,
5678: G_COL_NAME_TOKEN,
5679: 'SOURCE_TABLE');
5680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5676: Okl_Api.set_message(G_APP_NAME,
5677: G_INVALID_VALUE,
5678: G_COL_NAME_TOKEN,
5679: 'SOURCE_TABLE');
5680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5681: END IF;
5682: l_rxhv_adj_rec.source_table := p_trx_header_table;
5683:
5684: --Cursor to check if sources already exist for the transaction. IF so , the transaction is being updated
5696: ,x_msg_count => l_msg_count
5697: ,x_msg_data => l_msg_data
5698: );
5699:
5700: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5701: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5702: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5703: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5704: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5697: ,x_msg_data => l_msg_data
5698: );
5699:
5700: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5701: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5702: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5703: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5704: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5705: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5699:
5700: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5701: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5702: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5703: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5704: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5705: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5706: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5707: RAISE OKL_API.G_EXCEPTION_ERROR;
5700: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5701: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5702: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5703: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5704: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5705: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5706: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5707: RAISE OKL_API.G_EXCEPTION_ERROR;
5708: END IF;
5701: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5702: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5703: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5704: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5705: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5706: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5707: RAISE OKL_API.G_EXCEPTION_ERROR;
5708: END IF;
5709: END IF;--(IF l_event_id is null)
5703: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5704: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5705: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5706: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5707: RAISE OKL_API.G_EXCEPTION_ERROR;
5708: END IF;
5709: END IF;--(IF l_event_id is null)
5710: CLOSE check_sources_csr;
5711:
5757: p_dist_info_rec => p_dist_info_tbl(i),
5758: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5759: x_asev_rec => l_asev_rec);
5760:
5761: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5762: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5763: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5765: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5758: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5759: x_asev_rec => l_asev_rec);
5760:
5761: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5762: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5763: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5765: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5766: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5760:
5761: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5762: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5763: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5765: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5766: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5767: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5768: RAISE OKL_API.G_EXCEPTION_ERROR;
5761: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5762: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5763: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5765: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5766: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5767: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5768: RAISE OKL_API.G_EXCEPTION_ERROR;
5769: END IF;
5762: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5763: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5765: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5766: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5767: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5768: RAISE OKL_API.G_EXCEPTION_ERROR;
5769: END IF;
5770:
5764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5765: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5766: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5767: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5768: RAISE OKL_API.G_EXCEPTION_ERROR;
5769: END IF;
5770:
5771: --Building the line table that needs to be sent to the populate sources_call
5772: l_rxlv_adj_tbl(l_asev_count).source_id := p_dist_info_tbl(i).source_id;
5787: ,x_return_status => l_return_status
5788: ,x_msg_count => l_msg_count
5789: ,x_msg_data => l_msg_data);
5790:
5791: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5792: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5793: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5788: ,x_msg_count => l_msg_count
5789: ,x_msg_data => l_msg_data);
5790:
5791: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5792: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5793: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5796: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5790:
5791: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5792: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5793: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5796: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5797: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5798: RAISE OKL_API.G_EXCEPTION_ERROR;
5791: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5792: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5793: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5796: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5797: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5798: RAISE OKL_API.G_EXCEPTION_ERROR;
5799: END IF;
5792: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5793: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5796: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5797: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5798: RAISE OKL_API.G_EXCEPTION_ERROR;
5799: END IF;
5800: --Bug 6316320 dpsingh end
5794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5796: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5797: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5798: RAISE OKL_API.G_EXCEPTION_ERROR;
5799: END IF;
5800: --Bug 6316320 dpsingh end
5801: --If the accounting engine call is being made for an AP transaction , then sources need to be
5802: --captured at the header and line level. However, for AP transactions, events are not created by OKL
5806: l_pxhv_rec.source_id := p_trx_header_id;
5807: --For AR And AP transactions, p_trx_header_table needs to be passed always.
5808: --Its optional only for OKL Transactions
5809: IF p_trx_header_table IS NULL THEN
5810: Okl_Api.set_message(G_APP_NAME,
5811: G_INVALID_VALUE,
5812: G_COL_NAME_TOKEN,
5813: 'SOURCE_TABLE');
5814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5810: Okl_Api.set_message(G_APP_NAME,
5811: G_INVALID_VALUE,
5812: G_COL_NAME_TOKEN,
5813: 'SOURCE_TABLE');
5814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5815: END IF;
5816: l_pxhv_rec.source_table := p_trx_header_table;
5817:
5818: --Cursor to check if sources already exist for the transaction. IF so , the transaction is being updated
5830: ,x_msg_count => l_msg_count
5831: ,x_msg_data => l_msg_data
5832: );
5833:
5834: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5835: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5836: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5837: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5838: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5831: ,x_msg_data => l_msg_data
5832: );
5833:
5834: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5835: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5836: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5837: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5838: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5839: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5833:
5834: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5835: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5836: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5837: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5838: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5839: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5840: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5841: RAISE OKL_API.G_EXCEPTION_ERROR;
5834: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5835: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5836: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5837: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5838: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5839: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5840: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5841: RAISE OKL_API.G_EXCEPTION_ERROR;
5842: END IF;
5835: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5836: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5837: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5838: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5839: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5840: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5841: RAISE OKL_API.G_EXCEPTION_ERROR;
5842: END IF;
5843: END IF;
5837: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5838: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5839: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5840: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5841: RAISE OKL_API.G_EXCEPTION_ERROR;
5842: END IF;
5843: END IF;
5844: CLOSE check_ap_sources_csr;
5845:
5891: p_dist_info_rec => p_dist_info_tbl(i),
5892: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5893: x_asev_rec => l_asev_rec);
5894:
5895: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5896: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5897: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5892: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5893: x_asev_rec => l_asev_rec);
5894:
5895: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5896: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5897: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5900: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5894:
5895: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5896: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5897: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5900: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5901: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5902: RAISE OKL_API.G_EXCEPTION_ERROR;
5895: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5896: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5897: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5900: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5901: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5902: RAISE OKL_API.G_EXCEPTION_ERROR;
5903: END IF;
5896: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5897: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5900: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5901: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5902: RAISE OKL_API.G_EXCEPTION_ERROR;
5903: END IF;
5904:
5898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5900: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5901: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5902: RAISE OKL_API.G_EXCEPTION_ERROR;
5903: END IF;
5904:
5905: --Building the line table that needs to be sent to the populate sources_call
5906: l_pxlv_tbl(l_asev_count).source_id := p_dist_info_tbl(i).source_id;
5922: ,x_msg_count => l_msg_count
5923: ,x_msg_data => l_msg_data);
5924:
5925:
5926: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5927: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5928: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5930: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5923: ,x_msg_data => l_msg_data);
5924:
5925:
5926: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5927: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5928: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5930: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5931: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5925:
5926: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5927: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5928: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5930: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5931: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5932: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5933: RAISE OKL_API.G_EXCEPTION_ERROR;
5926: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5927: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5928: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5930: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5931: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5932: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5933: RAISE OKL_API.G_EXCEPTION_ERROR;
5934: END IF;
5927: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5928: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5930: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5931: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5932: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5933: RAISE OKL_API.G_EXCEPTION_ERROR;
5934: END IF;
5935: END IF;
5929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5930: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5931: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5932: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5933: RAISE OKL_API.G_EXCEPTION_ERROR;
5934: END IF;
5935: END IF;
5936:
5937: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5933: RAISE OKL_API.G_EXCEPTION_ERROR;
5934: END IF;
5935: END IF;
5936:
5937: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5938:
5939: EXCEPTION
5940:
5941: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5937: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5938:
5939: EXCEPTION
5940:
5941: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5942: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5943: ( l_api_name,
5944: G_PKG_NAME,
5945: 'OKL_API.G_RET_STS_ERROR',
5938:
5939: EXCEPTION
5940:
5941: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5942: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5943: ( l_api_name,
5944: G_PKG_NAME,
5945: 'OKL_API.G_RET_STS_ERROR',
5946: x_msg_count,
5941: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5942: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5943: ( l_api_name,
5944: G_PKG_NAME,
5945: 'OKL_API.G_RET_STS_ERROR',
5946: x_msg_count,
5947: x_msg_data,
5948: '_PVT'
5949: );
5946: x_msg_count,
5947: x_msg_data,
5948: '_PVT'
5949: );
5950: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5951: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5952: ( l_api_name,
5953: G_PKG_NAME,
5954: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5947: x_msg_data,
5948: '_PVT'
5949: );
5950: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5951: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5952: ( l_api_name,
5953: G_PKG_NAME,
5954: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5955: x_msg_count,
5950: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5951: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5952: ( l_api_name,
5953: G_PKG_NAME,
5954: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5955: x_msg_count,
5956: x_msg_data,
5957: '_PVT'
5958: );
5956: x_msg_data,
5957: '_PVT'
5958: );
5959: WHEN OTHERS THEN
5960: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5961: ( l_api_name,
5962: G_PKG_NAME,
5963: 'OTHERS',
5964: x_msg_count,
6021: IS
6022:
6023:
6024:
6025: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6026: l_api_name VARCHAR2(30) := 'DELETE_ACCT_ENTRIES';
6027: l_api_version NUMBER := 1.0;
6028: l_check_Status NUMBER := 0;
6029:
6029:
6030:
6031: BEGIN
6032:
6033: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6034:
6035: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
6036: G_PKG_NAME,
6037: p_init_msg_list,
6031: BEGIN
6032:
6033: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6034:
6035: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
6036: G_PKG_NAME,
6037: p_init_msg_list,
6038: l_api_version,
6039: p_api_version,
6038: l_api_version,
6039: p_api_version,
6040: '_PVT',
6041: x_return_status);
6042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6045: RAISE OKL_API.G_EXCEPTION_ERROR;
6046: END IF;
6039: p_api_version,
6040: '_PVT',
6041: x_return_status);
6042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6045: RAISE OKL_API.G_EXCEPTION_ERROR;
6046: END IF;
6047:
6040: '_PVT',
6041: x_return_status);
6042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6045: RAISE OKL_API.G_EXCEPTION_ERROR;
6046: END IF;
6047:
6048: -- Check the Distribution Status and take appropriate Action
6041: x_return_status);
6042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6045: RAISE OKL_API.G_EXCEPTION_ERROR;
6046: END IF;
6047:
6048: -- Check the Distribution Status and take appropriate Action
6049: l_check_status := CHECK_JOURNAL(p_source_id => p_source_id,
6059: p_source_id => p_source_id,
6060: p_source_table => p_source_table,
6061: x_return_status => l_return_status);
6062:
6063: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6064: RAISE OKL_API.G_EXCEPTION_ERROR;
6065: END IF;
6066: END IF;
6067:
6060: p_source_table => p_source_table,
6061: x_return_status => l_return_status);
6062:
6063: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6064: RAISE OKL_API.G_EXCEPTION_ERROR;
6065: END IF;
6066: END IF;
6067:
6068: IF (l_check_status = 2) THEN
6065: END IF;
6066: END IF;
6067:
6068: IF (l_check_status = 2) THEN
6069: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6070: p_msg_name => 'OKL_AE_GONE_TO_SLA');
6071: RAISE OKL_API.G_EXCEPTION_ERROR;
6072: END IF;
6073:
6067:
6068: IF (l_check_status = 2) THEN
6069: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6070: p_msg_name => 'OKL_AE_GONE_TO_SLA');
6071: RAISE OKL_API.G_EXCEPTION_ERROR;
6072: END IF;
6073:
6074:
6075: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6071: RAISE OKL_API.G_EXCEPTION_ERROR;
6072: END IF;
6073:
6074:
6075: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6076:
6077: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6078:
6079: EXCEPTION
6073:
6074:
6075: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6076:
6077: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6078:
6079: EXCEPTION
6080:
6081: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6077: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6078:
6079: EXCEPTION
6080:
6081: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6082: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6083: ( l_api_name,
6084: G_PKG_NAME,
6085: 'OKL_API.G_RET_STS_ERROR',
6078:
6079: EXCEPTION
6080:
6081: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6082: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6083: ( l_api_name,
6084: G_PKG_NAME,
6085: 'OKL_API.G_RET_STS_ERROR',
6086: x_msg_count,
6081: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6082: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6083: ( l_api_name,
6084: G_PKG_NAME,
6085: 'OKL_API.G_RET_STS_ERROR',
6086: x_msg_count,
6087: x_msg_data,
6088: '_PVT'
6089: );
6086: x_msg_count,
6087: x_msg_data,
6088: '_PVT'
6089: );
6090: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6091: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6092: ( l_api_name,
6093: G_PKG_NAME,
6094: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6087: x_msg_data,
6088: '_PVT'
6089: );
6090: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6091: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6092: ( l_api_name,
6093: G_PKG_NAME,
6094: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6095: x_msg_count,
6090: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6091: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6092: ( l_api_name,
6093: G_PKG_NAME,
6094: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6095: x_msg_count,
6096: x_msg_data,
6097: '_PVT'
6098: );
6096: x_msg_data,
6097: '_PVT'
6098: );
6099: WHEN OTHERS THEN
6100: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6101: ( l_api_name,
6102: G_PKG_NAME,
6103: 'OTHERS',
6104: x_msg_count,
6152: p_acc_gen_primary_key_tbl IN acc_gen_primary_key,
6153: p_template_amount_tbl IN template_amount_tbl_type)
6154: IS
6155:
6156: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6157: l_api_name VARCHAR2(30) := 'POPULATE_ACCT_SOURCES';
6158: l_api_version NUMBER := 1.0;
6159:
6160: l_init_msg_list VARCHAR2(1) := Okl_Api.G_FALSE;
6156: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6157: l_api_name VARCHAR2(30) := 'POPULATE_ACCT_SOURCES';
6158: l_api_version NUMBER := 1.0;
6159:
6160: l_init_msg_list VARCHAR2(1) := Okl_Api.G_FALSE;
6161: l_msg_count NUMBER := 0;
6162: l_msg_data VARCHAR2(2000);
6163:
6164:
6177: x_asev_tbl asev_tbl_type;
6178:
6179: BEGIN
6180:
6181: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6182:
6183: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
6184: G_PKG_NAME,
6185: p_init_msg_list,
6179: BEGIN
6180:
6181: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6182:
6183: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
6184: G_PKG_NAME,
6185: p_init_msg_list,
6186: l_api_version,
6187: p_api_version,
6186: l_api_version,
6187: p_api_version,
6188: '_PVT',
6189: x_return_status);
6190: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6191: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6192: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6193: RAISE Okl_Api.G_EXCEPTION_ERROR;
6194: END IF;
6187: p_api_version,
6188: '_PVT',
6189: x_return_status);
6190: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6191: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6192: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6193: RAISE Okl_Api.G_EXCEPTION_ERROR;
6194: END IF;
6195:
6188: '_PVT',
6189: x_return_status);
6190: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6191: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6192: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6193: RAISE Okl_Api.G_EXCEPTION_ERROR;
6194: END IF;
6195:
6196:
6189: x_return_status);
6190: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6191: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6192: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6193: RAISE Okl_Api.G_EXCEPTION_ERROR;
6194: END IF;
6195:
6196:
6197: -- Extract the account generator sources from account generator primary key table.
6299: ,x_msg_data => l_msg_data
6300: ,p_asev_tbl => l_asev_tbl
6301: ,x_asev_tbl => x_asev_tbl);
6302:
6303: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6304: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6305: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6306: RAISE Okl_Api.G_EXCEPTION_ERROR;
6307: END IF;
6300: ,p_asev_tbl => l_asev_tbl
6301: ,x_asev_tbl => x_asev_tbl);
6302:
6303: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6304: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6305: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6306: RAISE Okl_Api.G_EXCEPTION_ERROR;
6307: END IF;
6308:
6301: ,x_asev_tbl => x_asev_tbl);
6302:
6303: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6304: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6305: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6306: RAISE Okl_Api.G_EXCEPTION_ERROR;
6307: END IF;
6308:
6309:
6302:
6303: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6304: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6305: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6306: RAISE Okl_Api.G_EXCEPTION_ERROR;
6307: END IF;
6308:
6309:
6310: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6306: RAISE Okl_Api.G_EXCEPTION_ERROR;
6307: END IF;
6308:
6309:
6310: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6311:
6312: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6313:
6314: EXCEPTION
6308:
6309:
6310: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6311:
6312: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6313:
6314: EXCEPTION
6315:
6316: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6312: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6313:
6314: EXCEPTION
6315:
6316: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6317: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6318: ( l_api_name,
6319: G_PKG_NAME,
6320: 'OKL_API.G_RET_STS_ERROR',
6313:
6314: EXCEPTION
6315:
6316: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6317: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6318: ( l_api_name,
6319: G_PKG_NAME,
6320: 'OKL_API.G_RET_STS_ERROR',
6321: x_msg_count,
6316: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6317: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6318: ( l_api_name,
6319: G_PKG_NAME,
6320: 'OKL_API.G_RET_STS_ERROR',
6321: x_msg_count,
6322: x_msg_data,
6323: '_PVT'
6324: );
6321: x_msg_count,
6322: x_msg_data,
6323: '_PVT'
6324: );
6325: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6326: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6327: ( l_api_name,
6328: G_PKG_NAME,
6329: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6322: x_msg_data,
6323: '_PVT'
6324: );
6325: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6326: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6327: ( l_api_name,
6328: G_PKG_NAME,
6329: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6330: x_msg_count,
6325: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6326: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6327: ( l_api_name,
6328: G_PKG_NAME,
6329: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6330: x_msg_count,
6331: x_msg_data,
6332: '_PVT'
6333: );
6331: x_msg_data,
6332: '_PVT'
6333: );
6334: WHEN OTHERS THEN
6335: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6336: ( l_api_name,
6337: G_PKG_NAME,
6338: 'OTHERS',
6339: x_msg_count,
6356: p_acc_gen_primary_key_tbl IN acc_gen_tbl,
6357: p_template_amount_tbl IN tmp_bulk_amount_tbl_type)
6358: IS
6359:
6360: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6361: l_api_name VARCHAR2(30) := 'POPULATE_ACCT_SOURCES';
6362: l_api_version NUMBER := 1.0;
6363:
6364: l_init_msg_list VARCHAR2(1) := Okl_Api.G_FALSE;
6360: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6361: l_api_name VARCHAR2(30) := 'POPULATE_ACCT_SOURCES';
6362: l_api_version NUMBER := 1.0;
6363:
6364: l_init_msg_list VARCHAR2(1) := Okl_Api.G_FALSE;
6365: l_msg_count NUMBER := 0;
6366: l_msg_data VARCHAR2(2000);
6367:
6368:
6391: l_tmp_amt_last_index NUMBER := 0;
6392:
6393: BEGIN
6394:
6395: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6396:
6397: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
6398: G_PKG_NAME,
6399: p_init_msg_list,
6393: BEGIN
6394:
6395: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6396:
6397: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
6398: G_PKG_NAME,
6399: p_init_msg_list,
6400: l_api_version,
6401: p_api_version,
6400: l_api_version,
6401: p_api_version,
6402: '_PVT',
6403: x_return_status);
6404: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6405: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6406: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6407: RAISE Okl_Api.G_EXCEPTION_ERROR;
6408: END IF;
6401: p_api_version,
6402: '_PVT',
6403: x_return_status);
6404: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6405: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6406: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6407: RAISE Okl_Api.G_EXCEPTION_ERROR;
6408: END IF;
6409:
6402: '_PVT',
6403: x_return_status);
6404: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6405: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6406: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6407: RAISE Okl_Api.G_EXCEPTION_ERROR;
6408: END IF;
6409:
6410:
6403: x_return_status);
6404: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6405: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6406: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6407: RAISE Okl_Api.G_EXCEPTION_ERROR;
6408: END IF;
6409:
6410:
6411: FOR i IN l_dist_info_tbl.FIRST..l_dist_info_tbl.LAST LOOP
6523: ,x_msg_data => l_msg_data
6524: ,p_asev_tbl => l_asev_full_tbl
6525: ,x_asev_tbl => x_asev_tbl);
6526:
6527: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6528: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6529: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6530: RAISE Okl_Api.G_EXCEPTION_ERROR;
6531: END IF;
6524: ,p_asev_tbl => l_asev_full_tbl
6525: ,x_asev_tbl => x_asev_tbl);
6526:
6527: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6528: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6529: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6530: RAISE Okl_Api.G_EXCEPTION_ERROR;
6531: END IF;
6532:
6525: ,x_asev_tbl => x_asev_tbl);
6526:
6527: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6528: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6529: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6530: RAISE Okl_Api.G_EXCEPTION_ERROR;
6531: END IF;
6532:
6533:
6526:
6527: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6528: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6529: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6530: RAISE Okl_Api.G_EXCEPTION_ERROR;
6531: END IF;
6532:
6533:
6534: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6530: RAISE Okl_Api.G_EXCEPTION_ERROR;
6531: END IF;
6532:
6533:
6534: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6535:
6536: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6537:
6538: EXCEPTION
6532:
6533:
6534: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6535:
6536: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6537:
6538: EXCEPTION
6539:
6540: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6536: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6537:
6538: EXCEPTION
6539:
6540: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6541: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6542: ( l_api_name,
6543: G_PKG_NAME,
6544: 'OKL_API.G_RET_STS_ERROR',
6537:
6538: EXCEPTION
6539:
6540: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6541: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6542: ( l_api_name,
6543: G_PKG_NAME,
6544: 'OKL_API.G_RET_STS_ERROR',
6545: x_msg_count,
6540: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6541: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6542: ( l_api_name,
6543: G_PKG_NAME,
6544: 'OKL_API.G_RET_STS_ERROR',
6545: x_msg_count,
6546: x_msg_data,
6547: '_PVT'
6548: );
6545: x_msg_count,
6546: x_msg_data,
6547: '_PVT'
6548: );
6549: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6550: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6551: ( l_api_name,
6552: G_PKG_NAME,
6553: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6546: x_msg_data,
6547: '_PVT'
6548: );
6549: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6550: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6551: ( l_api_name,
6552: G_PKG_NAME,
6553: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6554: x_msg_count,
6549: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6550: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6551: ( l_api_name,
6552: G_PKG_NAME,
6553: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6554: x_msg_count,
6555: x_msg_data,
6556: '_PVT'
6557: );
6555: x_msg_data,
6556: '_PVT'
6557: );
6558: WHEN OTHERS THEN
6559: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6560: ( l_api_name,
6561: G_PKG_NAME,
6562: 'OTHERS',
6563: x_msg_count,