[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';
2985: -- If amount passes is Zero or Amount got from formula is zero then a
2986: -- message should be displayed.
2987:
2988: IF (l_amount = 0) THEN
2989: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2990: p_msg_name => 'OKL_FRML_RET_ZERO_AMT',
2991: p_token1 => 'TEMPLATE_NAME',
2992: p_token1_value => tmpl_rec.NAME);
2993:
2991: p_token1 => 'TEMPLATE_NAME',
2992: p_token1_value => tmpl_rec.NAME);
2993:
2994: -- Santonyr on 14-Jul-2003 Fixed bug 3048686
2995: -- RAISE OKL_API.G_EXCEPTION_ERROR;
2996:
2997: END IF;
2998:
2999: x_template_tbl(j) := tmpl_rec;
3017: p_gen_table => p_acc_gen_primary_key_tbl,
3018: x_return_status => l_return_status,
3019: x_tabv_tbl => l_tabv_tbl_out);
3020:
3021: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3022: RAISE OKL_API.G_EXCEPTION_ERROR;
3023: END IF;
3024:
3025: ELSIF (l_account_derivation = 'AMB') THEN
3018: x_return_status => l_return_status,
3019: x_tabv_tbl => l_tabv_tbl_out);
3020:
3021: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3022: RAISE OKL_API.G_EXCEPTION_ERROR;
3023: END IF;
3024:
3025: ELSIF (l_account_derivation = 'AMB') THEN
3026: CREATE_DIST_RECS(--Bug 6127326 dpsingh start
3031: p_amount => l_amount,
3032: x_return_status => l_return_status,
3033: x_tabv_tbl => l_tabv_tbl_out);
3034:
3035: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3036: RAISE OKL_API.G_EXCEPTION_ERROR;
3037: END IF;
3038: END IF;
3039: END IF; -- End If for (l_amount <> 0)
3032: x_return_status => l_return_status,
3033: x_tabv_tbl => l_tabv_tbl_out);
3034:
3035: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3036: RAISE OKL_API.G_EXCEPTION_ERROR;
3037: END IF;
3038: END IF;
3039: END IF; -- End If for (l_amount <> 0)
3040:
3072: p_source_id => p_dist_info_rec.source_id,
3073: p_source_table => p_dist_info_rec.source_table,
3074: x_return_status => l_return_status);
3075:
3076: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3077: RAISE OKL_API.G_EXCEPTION_ERROR;
3078: END IF;
3079:
3080: --The accounting event needs to be created only for the OKL transaction types
3073: p_source_table => p_dist_info_rec.source_table,
3074: x_return_status => l_return_status);
3075:
3076: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3077: RAISE OKL_API.G_EXCEPTION_ERROR;
3078: END IF;
3079:
3080: --The accounting event needs to be created only for the OKL transaction types
3081: IF l_try_name IN ('RECEIPT_APPLICATION','PRINCIPAL_ADJUSTMENT','UPFRONT_TAX','BOOKING','TERMINATION',
3104: ,x_msg_count => l_msg_count
3105: ,x_msg_data => l_msg_data
3106: );
3107:
3108: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3109: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3110: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3105: ,x_msg_data => l_msg_data
3106: );
3107:
3108: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3109: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3110: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3113: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3107:
3108: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3109: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3110: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3113: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3114: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3115: RAISE OKL_API.G_EXCEPTION_ERROR;
3108: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3109: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3110: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3113: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3114: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3115: RAISE OKL_API.G_EXCEPTION_ERROR;
3116: END IF;
3109: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3110: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3113: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3114: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3115: RAISE OKL_API.G_EXCEPTION_ERROR;
3116: END IF;
3117:
3111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3113: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3114: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3115: RAISE OKL_API.G_EXCEPTION_ERROR;
3116: END IF;
3117:
3118: ELSIF l_try_name IN ('BILLING','CREDIT_MEMO','ROLLOVER_BILLING','ROLLOVER_CREDITMEMO',
3119: 'RELEASE_BILLING','RELEASE_CREDITMEMO') THEN
3137: ,x_msg_count => l_msg_count
3138: ,x_msg_data => l_msg_data
3139: );
3140:
3141: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3142: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3143: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3144: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3145: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3138: ,x_msg_data => l_msg_data
3139: );
3140:
3141: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3142: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3143: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3144: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3145: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3146: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3140:
3141: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3142: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3143: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3144: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3145: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3146: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3147: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3148: RAISE OKL_API.G_EXCEPTION_ERROR;
3141: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3142: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3143: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3144: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3145: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3146: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3147: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3148: RAISE OKL_API.G_EXCEPTION_ERROR;
3149: END IF;
3142: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3143: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3144: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3145: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3146: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3147: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3148: RAISE OKL_API.G_EXCEPTION_ERROR;
3149: END IF;
3150:
3144: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3145: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3146: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3147: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3148: RAISE OKL_API.G_EXCEPTION_ERROR;
3149: END IF;
3150:
3151: --Bug 6316320 dpsingh start
3152: ELSIF l_try_name IN ('BALANCE_WRITE_OFF' ,'ADJUSTMENTS') THEN
3170: ,x_msg_count => l_msg_count
3171: ,x_msg_data => l_msg_data
3172: );
3173:
3174: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3175: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3176: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3178: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3171: ,x_msg_data => l_msg_data
3172: );
3173:
3174: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3175: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3176: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3178: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3179: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3173:
3174: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3175: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3176: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3178: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3179: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3180: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3181: RAISE OKL_API.G_EXCEPTION_ERROR;
3174: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3175: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3176: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3178: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3179: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3180: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3181: RAISE OKL_API.G_EXCEPTION_ERROR;
3182: END IF;
3175: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3176: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3178: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3179: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3180: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3181: RAISE OKL_API.G_EXCEPTION_ERROR;
3182: END IF;
3183: --Bug 6316320 dpsingh end
3177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3178: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3179: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3180: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3181: RAISE OKL_API.G_EXCEPTION_ERROR;
3182: END IF;
3183: --Bug 6316320 dpsingh end
3184: --Checking for AP transaction Types
3185: ELSIF l_try_name IN ('DISBURSEMENT','FUNDING','DEBIT_NOTE') THEN
3203: ,x_msg_count => l_msg_count
3204: ,x_msg_data => l_msg_data
3205: );
3206:
3207: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3208: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3209: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3211: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3204: ,x_msg_data => l_msg_data
3205: );
3206:
3207: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3208: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3209: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3211: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3212: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3206:
3207: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3208: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3209: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3211: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3212: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3213: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3214: RAISE OKL_API.G_EXCEPTION_ERROR;
3207: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3208: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3209: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3211: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3212: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3213: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3214: RAISE OKL_API.G_EXCEPTION_ERROR;
3215: END IF;
3208: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3209: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3211: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3212: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3213: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3214: RAISE OKL_API.G_EXCEPTION_ERROR;
3215: END IF;
3216: END IF;-- Check for transaction type
3210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3211: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3212: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3213: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
3214: RAISE OKL_API.G_EXCEPTION_ERROR;
3215: END IF;
3216: END IF;-- Check for transaction type
3217: END IF;
3218:
3216: END IF;-- Check for transaction type
3217: END IF;
3218:
3219: IF (l_check_status = 2) THEN
3220: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3221: p_msg_name => 'OKL_AE_GONE_TO_SLA');
3222: RAISE OKL_API.G_EXCEPTION_ERROR;
3223: END IF;
3224:
3218:
3219: IF (l_check_status = 2) THEN
3220: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3221: p_msg_name => 'OKL_AE_GONE_TO_SLA');
3222: RAISE OKL_API.G_EXCEPTION_ERROR;
3223: END IF;
3224:
3225: --Create the distribution
3226: CREATE_DIST_RECS(p_tmpl_identify_rec => p_tmpl_identify_rec,
3232: --As there is only one distribution being created when account derivation is AMB,
3233: --the amount is being assigned to x_amount_tbl(0)
3234: x_amount_tbl(0) := l_amount;
3235:
3236: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3237: RAISE OKL_API.G_EXCEPTION_ERROR;
3238: END IF;
3239:
3240: --In the case of AMB, there is only one iteration. However, the l_tabv_tbl_final needs to be populated
3233: --the amount is being assigned to x_amount_tbl(0)
3234: x_amount_tbl(0) := l_amount;
3235:
3236: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3237: RAISE OKL_API.G_EXCEPTION_ERROR;
3238: END IF;
3239:
3240: --In the case of AMB, there is only one iteration. However, the l_tabv_tbl_final needs to be populated
3241: -- in this case as well
3278: l_gl_short_name := g_ledger_tbl(g_ledger_id).rep_code;
3279:
3280: IF l_gl_short_name IS NULL
3281: THEN
3282: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3283: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3284: RAISE OKL_API.G_EXCEPTION_ERROR;
3285: END IF;
3286:
3280: IF l_gl_short_name IS NULL
3281: THEN
3282: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3283: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3284: RAISE OKL_API.G_EXCEPTION_ERROR;
3285: END IF;
3286:
3287: --Making the call to populate_Acct_sources to retreive the l_asev_rec to be passed to
3288: --populate_tcn_sources and populate_tcl_sources
3296: p_dist_info_rec => p_dist_info_rec,
3297: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3298: x_asev_rec => l_asev_rec);
3299:
3300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3301: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3302: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3304: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3297: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3298: x_asev_rec => l_asev_rec);
3299:
3300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3301: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3302: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3304: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3305: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3299:
3300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3301: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3302: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3304: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3305: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3306: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3307: RAISE OKL_API.G_EXCEPTION_ERROR;
3300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3301: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3302: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3304: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3305: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3306: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3307: RAISE OKL_API.G_EXCEPTION_ERROR;
3308: END IF;
3301: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3302: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3304: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3305: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3306: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3307: RAISE OKL_API.G_EXCEPTION_ERROR;
3308: END IF;
3309:
3303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3304: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3305: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3306: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3307: RAISE OKL_API.G_EXCEPTION_ERROR;
3308: END IF;
3309:
3310: OPEN get_tcn_id_csr(p_dist_info_rec.source_id);
3311: FETCH get_tcn_id_csr INTO l_tcn_id;
3320: ,p_action_type => 'CREATE'
3321: ,x_event_id => l_event_id
3322: ,x_event_date => l_event_date);
3323:
3324: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_ERROR;
3328: END IF;
3321: ,x_event_id => l_event_id
3322: ,x_event_date => l_event_date);
3323:
3324: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_ERROR;
3328: END IF;
3329:
3322: ,x_event_date => l_event_date);
3323:
3324: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_ERROR;
3328: END IF;
3329:
3330: IF l_event_id is null THEN
3323:
3324: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_ERROR;
3328: END IF;
3329:
3330: IF l_event_id is null THEN
3331:
3339: ,p_action_type => 'CREATE'
3340: ,p_representation_code => l_gl_short_name
3341: );
3342:
3343: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3344: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3345: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3340: ,p_representation_code => l_gl_short_name
3341: );
3342:
3343: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3344: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3345: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3348: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3342:
3343: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3344: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3345: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3348: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3349: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3350: RAISE OKL_API.G_EXCEPTION_ERROR;
3343: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3344: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3345: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3348: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3349: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3350: RAISE OKL_API.G_EXCEPTION_ERROR;
3351: END IF;
3344: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3345: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3348: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3349: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3350: RAISE OKL_API.G_EXCEPTION_ERROR;
3351: END IF;
3352:
3346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3347: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3348: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3349: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
3350: RAISE OKL_API.G_EXCEPTION_ERROR;
3351: END IF;
3352:
3353: l_tcnv_rec.source_id := l_tcn_id;
3354: l_tcnv_rec.source_table := 'OKL_TRX_CONTRACTS';
3362: ,x_msg_count => l_msg_count
3363: ,x_msg_data => l_msg_data
3364: );
3365:
3366: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3367: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3368: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3370: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3363: ,x_msg_data => l_msg_data
3364: );
3365:
3366: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3367: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3368: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3370: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3371: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3365:
3366: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3367: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3368: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3370: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3371: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3372: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3373: RAISE OKL_API.G_EXCEPTION_ERROR;
3366: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3367: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3368: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3370: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3371: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3372: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3373: RAISE OKL_API.G_EXCEPTION_ERROR;
3374: END IF;
3367: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3368: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3370: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3371: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3372: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3373: RAISE OKL_API.G_EXCEPTION_ERROR;
3374: END IF;
3375:
3369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3370: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3371: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3372: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3373: RAISE OKL_API.G_EXCEPTION_ERROR;
3374: END IF;
3375:
3376: END IF;
3377:
3393: ,p_tabv_tbl => l_tabv_tbl
3394: ,x_tabv_tbl => x_tabv_tbl
3395: );
3396:
3397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3398: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3399: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3401: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3394: ,x_tabv_tbl => x_tabv_tbl
3395: );
3396:
3397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3398: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3399: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3401: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3402: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3396:
3397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3398: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3399: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3401: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3402: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3403: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3404: RAISE OKL_API.G_EXCEPTION_ERROR;
3397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3398: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3399: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3401: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3402: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3403: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3404: RAISE OKL_API.G_EXCEPTION_ERROR;
3405: END IF;
3398: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3399: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3401: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3402: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3403: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3404: RAISE OKL_API.G_EXCEPTION_ERROR;
3405: END IF;
3406:
3400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3401: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3402: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3403: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
3404: RAISE OKL_API.G_EXCEPTION_ERROR;
3405: END IF;
3406:
3407: --Before making the call to capture line sources, check the following
3408: --If l_check_status = 1, then the transaction line is in update mode and existing sources have been deleted
3422: ,x_msg_count => l_msg_count
3423: ,x_msg_data => l_msg_data
3424: );
3425:
3426: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3427: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3428: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3430: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3423: ,x_msg_data => l_msg_data
3424: );
3425:
3426: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3427: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3428: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3430: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3431: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3425:
3426: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3427: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3428: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3430: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3431: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3432: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3433: RAISE OKL_API.G_EXCEPTION_ERROR;
3426: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3427: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3428: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3430: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3431: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3432: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3433: RAISE OKL_API.G_EXCEPTION_ERROR;
3434: END IF;
3427: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3428: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3430: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3431: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3432: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3433: RAISE OKL_API.G_EXCEPTION_ERROR;
3434: END IF;
3435:
3429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3430: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3431: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3432: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3433: RAISE OKL_API.G_EXCEPTION_ERROR;
3434: END IF;
3435:
3436: --Making the call to populate line sources
3437: FOR i in l_tclv_tbl.FIRST..l_tclv_tbl.LAST
3450: ,x_msg_count => l_msg_count
3451: ,x_msg_data => l_msg_data
3452: );
3453:
3454: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3455: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3456: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3451: ,x_msg_data => l_msg_data
3452: );
3453:
3454: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3455: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3456: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3459: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3453:
3454: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3455: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3456: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3459: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3460: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3461: RAISE OKL_API.G_EXCEPTION_ERROR;
3454: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3455: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3456: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3459: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3460: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3461: RAISE OKL_API.G_EXCEPTION_ERROR;
3462: END IF;
3455: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3456: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3459: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3460: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3461: RAISE OKL_API.G_EXCEPTION_ERROR;
3462: END IF;
3463: END LOOP;
3457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3459: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3460: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3461: RAISE OKL_API.G_EXCEPTION_ERROR;
3462: END IF;
3463: END LOOP;
3464: END IF;
3465: --Line sources need to be captured for the current line
3482: ,x_msg_count => l_msg_count
3483: ,x_msg_data => l_msg_data
3484: );
3485:
3486: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3487: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3488: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3490: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3483: ,x_msg_data => l_msg_data
3484: );
3485:
3486: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3487: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3488: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3490: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3491: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3485:
3486: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3487: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3488: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3490: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3491: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3492: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3493: RAISE OKL_API.G_EXCEPTION_ERROR;
3486: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3487: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3488: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3490: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3491: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3492: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3493: RAISE OKL_API.G_EXCEPTION_ERROR;
3494: END IF;
3487: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3488: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3490: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3491: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3492: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3493: RAISE OKL_API.G_EXCEPTION_ERROR;
3494: END IF;
3495: --If the transaction is an AR transaction, then sources should be captured if the transaction line amount
3489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3490: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3491: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3492: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3493: RAISE OKL_API.G_EXCEPTION_ERROR;
3494: END IF;
3495: --If the transaction is an AR transaction, then sources should be captured if the transaction line amount
3496: --is non-zero. However event creation for the transaction is not done from OKL
3497:
3507: l_gl_short_name := g_ledger_tbl(g_ledger_id).rep_code;
3508:
3509: IF l_gl_short_name IS NULL
3510: THEN
3511: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3512: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3513: RAISE OKL_API.G_EXCEPTION_ERROR;
3514: END IF;
3515:
3509: IF l_gl_short_name IS NULL
3510: THEN
3511: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3512: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3513: RAISE OKL_API.G_EXCEPTION_ERROR;
3514: END IF;
3515:
3516: --Making the call to populate_Acct_sources to retreive the l_asev_rec to be passed to
3517: --populate_tcn_sources and populate_tcl_sources
3525: p_dist_info_rec => p_dist_info_rec,
3526: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3527: x_asev_rec => l_asev_rec);
3528:
3529: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3530: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3531: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3532: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3533: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3526: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3527: x_asev_rec => l_asev_rec);
3528:
3529: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3530: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3531: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3532: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3533: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3534: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3528:
3529: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3530: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3531: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3532: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3533: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3534: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3535: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3536: RAISE OKL_API.G_EXCEPTION_ERROR;
3529: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3530: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3531: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3532: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3533: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3534: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3535: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3536: RAISE OKL_API.G_EXCEPTION_ERROR;
3537: END IF;
3530: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3531: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3532: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3533: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3534: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3535: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3536: RAISE OKL_API.G_EXCEPTION_ERROR;
3537: END IF;
3538:
3532: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3533: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3534: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3535: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3536: RAISE OKL_API.G_EXCEPTION_ERROR;
3537: END IF;
3538:
3539: OPEN get_tai_details_csr(p_dist_info_rec.source_id);
3540: FETCH get_tai_details_csr INTO get_tai_details_rec;
3571: ,x_msg_count => l_msg_count
3572: ,x_msg_data => l_msg_data
3573: );
3574:
3575: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3576: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3577: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3579: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3572: ,x_msg_data => l_msg_data
3573: );
3574:
3575: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3576: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3577: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3579: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3580: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3574:
3575: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3576: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3577: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3579: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3580: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3581: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3582: RAISE OKL_API.G_EXCEPTION_ERROR;
3575: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3576: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3577: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3579: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3580: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3581: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3582: RAISE OKL_API.G_EXCEPTION_ERROR;
3583: END IF;
3576: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3577: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3579: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3580: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3581: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3582: RAISE OKL_API.G_EXCEPTION_ERROR;
3583: END IF;
3584: END LOOP;
3578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3579: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3580: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3581: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3582: RAISE OKL_API.G_EXCEPTION_ERROR;
3583: END IF;
3584: END LOOP;
3585: END IF;
3586: --Line sources need to be captured for the current line
3602: ,x_msg_count => l_msg_count
3603: ,x_msg_data => l_msg_data
3604: );
3605:
3606: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3607: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3608: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3603: ,x_msg_data => l_msg_data
3604: );
3605:
3606: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3607: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3608: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3611: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3605:
3606: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3607: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3608: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3611: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3612: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3613: RAISE OKL_API.G_EXCEPTION_ERROR;
3606: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3607: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3608: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3611: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3612: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3613: RAISE OKL_API.G_EXCEPTION_ERROR;
3614: END IF;
3607: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3608: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3611: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3612: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3613: RAISE OKL_API.G_EXCEPTION_ERROR;
3614: END IF;
3615:
3609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3611: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3612: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3613: RAISE OKL_API.G_EXCEPTION_ERROR;
3614: END IF;
3615:
3616: --Bug 6316320 dpsingh start
3617: ELSIF l_try_name IN ('BALANCE_WRITE_OFF' ,'ADJUSTMENTS') AND (l_line_amount >0)
3625: l_gl_short_name := g_ledger_tbl(g_ledger_id).rep_code;
3626:
3627: IF l_gl_short_name IS NULL
3628: THEN
3629: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3630: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3631: RAISE OKL_API.G_EXCEPTION_ERROR;
3632: END IF;
3633:
3627: IF l_gl_short_name IS NULL
3628: THEN
3629: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3630: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3631: RAISE OKL_API.G_EXCEPTION_ERROR;
3632: END IF;
3633:
3634: --Making the call to populate_Acct_sources to retreive the l_asev_rec to be passed to
3635: --populate_tcn_sources and populate_tcl_sources
3643: p_dist_info_rec => p_dist_info_rec,
3644: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3645: x_asev_rec => l_asev_rec);
3646:
3647: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3648: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3649: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3644: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3645: x_asev_rec => l_asev_rec);
3646:
3647: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3648: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3649: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3652: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3646:
3647: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3648: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3649: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3652: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3653: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3654: RAISE OKL_API.G_EXCEPTION_ERROR;
3647: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3648: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3649: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3652: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3653: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3654: RAISE OKL_API.G_EXCEPTION_ERROR;
3655: END IF;
3648: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3649: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3652: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3653: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3654: RAISE OKL_API.G_EXCEPTION_ERROR;
3655: END IF;
3656:
3650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3652: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3653: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3654: RAISE OKL_API.G_EXCEPTION_ERROR;
3655: END IF;
3656:
3657: OPEN get_adj_details_csr(p_dist_info_rec.source_id);
3658: FETCH get_adj_details_csr INTO get_adj_details_rec;
3688: ,x_msg_count => l_msg_count
3689: ,x_msg_data => l_msg_data
3690: );
3691:
3692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3693: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3694: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3696: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3689: ,x_msg_data => l_msg_data
3690: );
3691:
3692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3693: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3694: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3696: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3697: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3691:
3692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3693: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3694: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3696: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3697: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3698: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3699: RAISE OKL_API.G_EXCEPTION_ERROR;
3692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3693: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3694: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3696: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3697: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3698: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3699: RAISE OKL_API.G_EXCEPTION_ERROR;
3700: END IF;
3693: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3694: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3696: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3697: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3698: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3699: RAISE OKL_API.G_EXCEPTION_ERROR;
3700: END IF;
3701: END LOOP;
3695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3696: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3697: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3698: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3699: RAISE OKL_API.G_EXCEPTION_ERROR;
3700: END IF;
3701: END LOOP;
3702: END IF;
3703: --Line sources need to be captured for the current line
3718: ,x_msg_count => l_msg_count
3719: ,x_msg_data => l_msg_data
3720: );
3721:
3722: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3723: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3724: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3725: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3726: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3719: ,x_msg_data => l_msg_data
3720: );
3721:
3722: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3723: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3724: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3725: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3726: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3727: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3721:
3722: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3723: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3724: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3725: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3726: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3727: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3728: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3729: RAISE OKL_API.G_EXCEPTION_ERROR;
3722: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3723: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3724: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3725: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3726: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3727: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3728: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3729: RAISE OKL_API.G_EXCEPTION_ERROR;
3730: END IF;
3723: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3724: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3725: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3726: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3727: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3728: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3729: RAISE OKL_API.G_EXCEPTION_ERROR;
3730: END IF;
3731: --Bug 6316320 dpsingh end
3725: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3726: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3727: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3728: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3729: RAISE OKL_API.G_EXCEPTION_ERROR;
3730: END IF;
3731: --Bug 6316320 dpsingh end
3732: --Processing for AP Transactions
3733: ELSIF l_try_name IN ('DISBURSEMENT','FUNDING','DEBIT_NOTE') AND (l_line_amount >0)
3741: l_gl_short_name := g_ledger_tbl(g_ledger_id).rep_code;
3742:
3743: IF l_gl_short_name IS NULL
3744: THEN
3745: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3746: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3747: RAISE OKL_API.G_EXCEPTION_ERROR;
3748: END IF;
3749:
3743: IF l_gl_short_name IS NULL
3744: THEN
3745: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3746: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
3747: RAISE OKL_API.G_EXCEPTION_ERROR;
3748: END IF;
3749:
3750: --Making the call to populate_Acct_sources to retreive the l_asev_rec to be passed to
3751: --populate_tcn_sources and populate_tcl_sources
3759: p_dist_info_rec => p_dist_info_rec,
3760: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3761: x_asev_rec => l_asev_rec);
3762:
3763: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3764: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3765: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3760: p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
3761: x_asev_rec => l_asev_rec);
3762:
3763: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3764: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3765: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3768: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3762:
3763: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3764: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3765: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3768: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3769: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3770: RAISE OKL_API.G_EXCEPTION_ERROR;
3763: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3764: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3765: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3768: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3769: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3770: RAISE OKL_API.G_EXCEPTION_ERROR;
3771: END IF;
3764: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3765: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3768: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3769: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3770: RAISE OKL_API.G_EXCEPTION_ERROR;
3771: END IF;
3772:
3766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3768: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3769: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3770: RAISE OKL_API.G_EXCEPTION_ERROR;
3771: END IF;
3772:
3773: OPEN get_tap_details_csr(p_dist_info_rec.source_id);
3774: FETCH get_tap_details_csr INTO get_tap_details_rec;
3806: ,x_msg_count => l_msg_count
3807: ,x_msg_data => l_msg_data
3808: );
3809:
3810: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3811: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3812: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3814: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3807: ,x_msg_data => l_msg_data
3808: );
3809:
3810: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3811: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3812: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3814: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3815: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3809:
3810: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3811: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3812: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3814: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3815: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3816: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3817: RAISE OKL_API.G_EXCEPTION_ERROR;
3810: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3811: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3812: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3814: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3815: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3816: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3817: RAISE OKL_API.G_EXCEPTION_ERROR;
3818: END IF;
3811: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3812: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3814: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3815: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3816: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3817: RAISE OKL_API.G_EXCEPTION_ERROR;
3818: END IF;
3819: END LOOP;
3813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3814: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3815: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3816: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3817: RAISE OKL_API.G_EXCEPTION_ERROR;
3818: END IF;
3819: END LOOP;
3820: END IF;
3821: --Line sources need to be captured for the current line
3837: ,x_msg_count => l_msg_count
3838: ,x_msg_data => l_msg_data
3839: );
3840:
3841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3842: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3843: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3845: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3838: ,x_msg_data => l_msg_data
3839: );
3840:
3841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3842: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3843: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3845: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3846: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3840:
3841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3842: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3843: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3845: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3846: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3847: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3848: RAISE OKL_API.G_EXCEPTION_ERROR;
3841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3842: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3843: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3845: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3846: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3847: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3848: RAISE OKL_API.G_EXCEPTION_ERROR;
3849: END IF;
3842: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3843: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3845: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3846: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3847: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3848: RAISE OKL_API.G_EXCEPTION_ERROR;
3849: END IF;
3850: END IF;
3844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3845: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3846: OKL_API.SET_MESSAGE(p_app_name => g_app_name
3847: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3848: RAISE OKL_API.G_EXCEPTION_ERROR;
3849: END IF;
3850: END IF;
3851: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3852:
3847: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
3848: RAISE OKL_API.G_EXCEPTION_ERROR;
3849: END IF;
3850: END IF;
3851: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3852:
3853: EXCEPTION
3854:
3855: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3851: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3852:
3853: EXCEPTION
3854:
3855: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3856: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3857: ( l_api_name,
3858: G_PKG_NAME,
3859: 'OKL_API.G_RET_STS_ERROR',
3852:
3853: EXCEPTION
3854:
3855: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3856: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3857: ( l_api_name,
3858: G_PKG_NAME,
3859: 'OKL_API.G_RET_STS_ERROR',
3860: x_msg_count,
3855: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3856: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3857: ( l_api_name,
3858: G_PKG_NAME,
3859: 'OKL_API.G_RET_STS_ERROR',
3860: x_msg_count,
3861: x_msg_data,
3862: '_PVT'
3863: );
3860: x_msg_count,
3861: x_msg_data,
3862: '_PVT'
3863: );
3864: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3865: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3866: ( l_api_name,
3867: G_PKG_NAME,
3868: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3861: x_msg_data,
3862: '_PVT'
3863: );
3864: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3865: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3866: ( l_api_name,
3867: G_PKG_NAME,
3868: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3869: x_msg_count,
3864: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3865: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3866: ( l_api_name,
3867: G_PKG_NAME,
3868: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3869: x_msg_count,
3870: x_msg_data,
3871: '_PVT'
3872: );
3870: x_msg_data,
3871: '_PVT'
3872: );
3873: WHEN OTHERS THEN
3874: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3875: ( l_api_name,
3876: G_PKG_NAME,
3877: 'OTHERS',
3878: x_msg_count,
3911: tmpl_rec AVLV_REC_TYPE;
3912: l_tmpl_tbl avlv_tbl_type;
3913: l_formula_name OKL_FORMULAE_V.NAME%TYPE;
3914: l_functional_curr OKL_TRNS_ACC_DSTRS.CURRENCY_CODE%TYPE;
3915: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3916:
3917: l_api_name VARCHAR2(30) := 'CREATE_ACCOUNTING_DIST';
3918: l_api_version NUMBER := 1.0;
3919:
3964: --Added by kthiruva on 06-Feb-2007 for SLA Uptake
3965: --Bug 5707866 - Start of Changes
3966: l_account_derivation OKL_SYS_ACCT_OPTS.ACCOUNT_DERIVATION%TYPE;
3967: l_tcn_id NUMBER;
3968: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
3969: l_msg_count NUMBER := 0;
3970: l_msg_data VARCHAR2(2000);
3971: l_event_id NUMBER;
3972: l_event_date DATE;
4004: BEGIN
4005: IF (G_DEBUG_ENABLED = 'Y') THEN
4006: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4007: END IF;
4008: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4009:
4010: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4011: G_PKG_NAME,
4012: p_init_msg_list,
4006: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4007: END IF;
4008: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4009:
4010: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4011: G_PKG_NAME,
4012: p_init_msg_list,
4013: l_api_version,
4014: p_api_version,
4013: l_api_version,
4014: p_api_version,
4015: '_PVT',
4016: x_return_status);
4017: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4019: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4020: RAISE OKL_API.G_EXCEPTION_ERROR;
4021: END IF;
4014: p_api_version,
4015: '_PVT',
4016: x_return_status);
4017: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4019: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4020: RAISE OKL_API.G_EXCEPTION_ERROR;
4021: END IF;
4022:
4015: '_PVT',
4016: x_return_status);
4017: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4019: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4020: RAISE OKL_API.G_EXCEPTION_ERROR;
4021: END IF;
4022:
4023: -- get the ledger attributes .. racheruv
4016: x_return_status);
4017: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4019: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4020: RAISE OKL_API.G_EXCEPTION_ERROR;
4021: END IF;
4022:
4023: -- get the ledger attributes .. racheruv
4024: get_rep_attributes;
4064: END IF;
4065:
4066:
4067:
4068: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4069: RAISE OKL_API.G_EXCEPTION_ERROR;
4070: END IF;
4071:
4072: -- Get the Templates from the given parameters
4065:
4066:
4067:
4068: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4069: RAISE OKL_API.G_EXCEPTION_ERROR;
4070: END IF;
4071:
4072: -- Get the Templates from the given parameters
4073:
4082: FETCH get_acct_derivation_csr INTO l_account_derivation;
4083: CLOSE get_acct_derivation_csr;
4084:
4085: IF l_account_derivation IS NULL THEN
4086: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4087: ,p_msg_name => 'OKL_ACCT_DER_NOT_SET');
4088: RAISE OKL_API.G_EXCEPTION_ERROR;
4089: END IF;
4090:
4084:
4085: IF l_account_derivation IS NULL THEN
4086: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4087: ,p_msg_name => 'OKL_ACCT_DER_NOT_SET');
4088: RAISE OKL_API.G_EXCEPTION_ERROR;
4089: END IF;
4090:
4091: --Deriving the functional currency to be passed in the call to validate_params
4092: --l_functional_curr := Okl_Accounting_Util.GET_FUNC_CURR_CODE; -- redundant code
4096: --Only when the account derivation option is 'ATS'
4097: --Or if the account derivation option is 'AMB' and the transaction amount is not known
4098: --should the template information be fetched
4099: IF (l_account_derivation = 'ATS') OR
4100: ((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)))
4101: THEN
4102: IF (l_first_rec = TRUE)
4103: THEN
4104: GET_TEMPLATE_INFO(p_api_version => l_api_version,
4109: p_tmpl_identify_rec => p_tmpl_identify_rec,
4110: x_template_tbl => l_tmpl_tbl,
4111: p_validity_date => G_GL_DATE);
4112:
4113: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4114: RAISE OKL_API.G_EXCEPTION_ERROR;
4115: END IF;
4116:
4117: --Setting l_first_rec to FALSE, so that GET_TEMPLATE_INFO need not be called every time in the loop
4110: x_template_tbl => l_tmpl_tbl,
4111: p_validity_date => G_GL_DATE);
4112:
4113: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4114: RAISE OKL_API.G_EXCEPTION_ERROR;
4115: END IF;
4116:
4117: --Setting l_first_rec to FALSE, so that GET_TEMPLATE_INFO need not be called every time in the loop
4118: l_first_rec := FALSE;
4135: FOR sty_type_rec IN sty_type_csr (p_tmpl_identify_rec.stream_type_id) LOOP
4136: l_sty_type_name := sty_type_rec.name;
4137: END LOOP;
4138:
4139: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4140: ,p_msg_name => 'OKL_TMPL_NOT_FOUND'
4141: ,p_token1 => 'PRODUCT'
4142: ,p_token1_value => l_product_name
4143: ,p_token2 => 'TRANSACTION_TYPE'
4147: ,p_token4 => 'ACCOUNTING_DATE'
4148: ,p_token4_value => G_GL_DATE);
4149:
4150:
4151: RAISE OKL_API.G_EXCEPTION_ERROR;
4152: END IF;
4153: END IF;
4154:
4155: -- Check the Distribution Status and take appropriate Action
4166: p_source_id => l_dist_info_tbl(i).source_id,
4167: p_source_table => l_dist_info_tbl(i).source_table,
4168: x_return_status => l_return_status);
4169:
4170: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4171: RAISE OKL_API.G_EXCEPTION_ERROR;
4172: END IF;
4173:
4174: END IF;
4167: p_source_table => l_dist_info_tbl(i).source_table,
4168: x_return_status => l_return_status);
4169:
4170: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4171: RAISE OKL_API.G_EXCEPTION_ERROR;
4172: END IF;
4173:
4174: END IF;
4175:
4173:
4174: END IF;
4175:
4176: IF (l_check_status = 2) THEN
4177: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4178: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4179: RAISE OKL_API.G_EXCEPTION_ERROR;
4180: END IF;
4181:
4175:
4176: IF (l_check_status = 2) THEN
4177: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4178: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4179: RAISE OKL_API.G_EXCEPTION_ERROR;
4180: END IF;
4181:
4182: FOR j IN 1..l_tmpl_tbl.COUNT
4183: LOOP
4190: l_template_amount_tbl(l_tmp_amt_tbl_count).parent_index_number := i;
4191:
4192:
4193: IF (l_dist_info_tbl(i).AMOUNT IS NULL) OR
4194: (l_dist_info_tbl(i).AMOUNT = OKL_API.G_MISS_NUM) THEN
4195:
4196: -- If the amount is null calculate the amount using formula engine
4197: IF (tmpl_rec.FMA_ID IS NULL) OR
4198: (tmpl_rec.FMA_ID = OKL_API.G_MISS_NUM) THEN
4194: (l_dist_info_tbl(i).AMOUNT = OKL_API.G_MISS_NUM) THEN
4195:
4196: -- If the amount is null calculate the amount using formula engine
4197: IF (tmpl_rec.FMA_ID IS NULL) OR
4198: (tmpl_rec.FMA_ID = OKL_API.G_MISS_NUM) THEN
4199: -- If the formula is not found associated with template
4200: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4201: p_msg_name => 'OKL_FMA_NOT_PRESENT',
4202: p_token1 => 'TEMPLATE_NAME',
4196: -- If the amount is null calculate the amount using formula engine
4197: IF (tmpl_rec.FMA_ID IS NULL) OR
4198: (tmpl_rec.FMA_ID = OKL_API.G_MISS_NUM) THEN
4199: -- If the formula is not found associated with template
4200: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4201: p_msg_name => 'OKL_FMA_NOT_PRESENT',
4202: p_token1 => 'TEMPLATE_NAME',
4203: p_token1_value => tmpl_rec.NAME);
4204: RAISE OKL_API.G_EXCEPTION_ERROR;
4200: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4201: p_msg_name => 'OKL_FMA_NOT_PRESENT',
4202: p_token1 => 'TEMPLATE_NAME',
4203: p_token1_value => tmpl_rec.NAME);
4204: RAISE OKL_API.G_EXCEPTION_ERROR;
4205: END IF;
4206:
4207: OPEN frml_csr(tmpl_rec.fma_id);
4208: FETCH frml_csr INTO l_formula_name;
4221: p_ctxt_val_tbl => p_ctxt_val_tbl,
4222: x_return_status => l_return_status,
4223: x_amount => l_amount );
4224:
4225: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4226: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4227: p_msg_name => 'OKL_FRML_EXE_FAILED',
4228: p_token1 => 'FORMULA_NAME',
4229: p_token1_value => l_formula_name);
4222: x_return_status => l_return_status,
4223: x_amount => l_amount );
4224:
4225: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4226: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4227: p_msg_name => 'OKL_FRML_EXE_FAILED',
4228: p_token1 => 'FORMULA_NAME',
4229: p_token1_value => l_formula_name);
4230:
4234: IF g_representation_type = 'SECONDARY' THEN
4235: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
4236: END IF;
4237:
4238: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4240: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_ERROR;
4242: END IF;
4235: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
4236: END IF;
4237:
4238: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4240: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_ERROR;
4242: END IF;
4243:
4236: END IF;
4237:
4238: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4240: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_ERROR;
4242: END IF;
4243:
4244: -- Added by Santonyr on 12-Jul-2440 for the bug 3761026
4237:
4238: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4240: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_ERROR;
4242: END IF;
4243:
4244: -- Added by Santonyr on 12-Jul-2440 for the bug 3761026
4245: l_template_amount_tbl(l_tmp_amt_tbl_count).formula_used := 'Y';
4255: -- If amount passes is Zero or Amount got from formula is zero then a
4256: -- message should be displayed.
4257:
4258: IF (l_amount = 0) THEN
4259: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4260: p_msg_name => 'OKL_FRML_RET_ZERO_AMT',
4261: p_token1 => 'TEMPLATE_NAME',
4262: p_token1_value => tmpl_rec.NAME);
4263:
4261: p_token1 => 'TEMPLATE_NAME',
4262: p_token1_value => tmpl_rec.NAME);
4263:
4264: -- Santonyr on 14-Jul-2003 Fixed bug 3048686
4265: -- RAISE OKL_API.G_EXCEPTION_ERROR;
4266:
4267: END IF;
4268:
4269: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4274: x_template_rec => x_template_tbl(j),
4275: x_return_status => l_return_status);
4276:
4277:
4278: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4281: RAISE OKL_API.G_EXCEPTION_ERROR;
4282: END IF;
4275: x_return_status => l_return_status);
4276:
4277:
4278: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4281: RAISE OKL_API.G_EXCEPTION_ERROR;
4282: END IF;
4283:
4276:
4277:
4278: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4281: RAISE OKL_API.G_EXCEPTION_ERROR;
4282: END IF;
4283:
4284: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4277:
4278: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4281: RAISE OKL_API.G_EXCEPTION_ERROR;
4282: END IF;
4283:
4284: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4285: 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);
4307: p_gen_table => p_acc_gen_tbl_ret,
4308: x_return_status => l_return_status,
4309: x_tabv_tbl => l_tabv_tbl_out);
4310:
4311: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4312: RAISE OKL_API.G_EXCEPTION_ERROR;
4313: END IF;
4314: ELSIF (l_account_derivation = 'AMB')
4315: THEN
4308: x_return_status => l_return_status,
4309: x_tabv_tbl => l_tabv_tbl_out);
4310:
4311: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4312: RAISE OKL_API.G_EXCEPTION_ERROR;
4313: END IF;
4314: ELSIF (l_account_derivation = 'AMB')
4315: THEN
4316: CREATE_DIST_RECS(--Bug 6127326 dpsingh start
4321: p_amount => l_amount,
4322: x_return_status => l_return_status,
4323: x_tabv_tbl => l_tabv_tbl_out);
4324:
4325: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4326: RAISE OKL_API.G_EXCEPTION_ERROR;
4327: END IF;
4328: END IF;
4329: END IF; -- End If for (l_amount <> 0)
4322: x_return_status => l_return_status,
4323: x_tabv_tbl => l_tabv_tbl_out);
4324:
4325: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4326: RAISE OKL_API.G_EXCEPTION_ERROR;
4327: END IF;
4328: END IF;
4329: END IF; -- End If for (l_amount <> 0)
4330:
4367: p_source_id => l_dist_info_tbl(i).source_id,
4368: p_source_table => l_dist_info_tbl(i).source_table,
4369: x_return_status => l_return_status);
4370:
4371: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4372: RAISE OKL_API.G_EXCEPTION_ERROR;
4373: END IF;
4374:
4375: END IF;
4368: p_source_table => l_dist_info_tbl(i).source_table,
4369: x_return_status => l_return_status);
4370:
4371: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4372: RAISE OKL_API.G_EXCEPTION_ERROR;
4373: END IF;
4374:
4375: END IF;
4376:
4374:
4375: END IF;
4376:
4377: IF (l_check_status = 2) THEN
4378: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4379: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4380: RAISE OKL_API.G_EXCEPTION_ERROR;
4381: END IF;
4382:
4376:
4377: IF (l_check_status = 2) THEN
4378: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4379: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4380: RAISE OKL_API.G_EXCEPTION_ERROR;
4381: END IF;
4382:
4383: l_template_amount_tbl(l_tmp_amt_tbl_count).amount := x_amount_tbl(l_tmp_amt_tbl_count).amount;
4384:
4391: p_amount => l_amount,
4392: x_return_status => l_return_status,
4393: x_tabv_tbl => l_tabv_tbl_out);
4394:
4395: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4396: RAISE OKL_API.G_EXCEPTION_ERROR;
4397: END IF;
4398: END IF; -- End If for (l_amount <> 0)
4399:
4392: x_return_status => l_return_status,
4393: x_tabv_tbl => l_tabv_tbl_out);
4394:
4395: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4396: RAISE OKL_API.G_EXCEPTION_ERROR;
4397: END IF;
4398: END IF; -- End If for (l_amount <> 0)
4399:
4400: x_amount_tbl(l_tmp_amt_tbl_count).amount := Okl_Accounting_Util.ROUND_AMOUNT(p_amount => l_amount,
4436: ,p_action_type => 'CREATE'
4437: ,x_event_id => l_event_id
4438: ,x_event_date => l_event_date);
4439:
4440: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4441: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4442: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4443: RAISE OKL_API.G_EXCEPTION_ERROR;
4444: END IF;
4437: ,x_event_id => l_event_id
4438: ,x_event_date => l_event_date);
4439:
4440: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4441: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4442: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4443: RAISE OKL_API.G_EXCEPTION_ERROR;
4444: END IF;
4445:
4438: ,x_event_date => l_event_date);
4439:
4440: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4441: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4442: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4443: RAISE OKL_API.G_EXCEPTION_ERROR;
4444: END IF;
4445:
4446: --If an event is already found , do nothing, else Capture account sources for the header
4439:
4440: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4441: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4442: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4443: RAISE OKL_API.G_EXCEPTION_ERROR;
4444: END IF;
4445:
4446: --If an event is already found , do nothing, else Capture account sources for the header
4447: IF l_event_id IS NULL
4455: l_gl_short_name := g_ledger_tbl(g_ledger_id).rep_code;
4456:
4457: IF l_gl_short_name IS NULL
4458: THEN
4459: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4460: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
4461: RAISE OKL_API.G_EXCEPTION_ERROR;
4462: END IF;
4463:
4457: IF l_gl_short_name IS NULL
4458: THEN
4459: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4460: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
4461: RAISE OKL_API.G_EXCEPTION_ERROR;
4462: END IF;
4463:
4464: l_event_id := OKL_XLA_EVENTS_PVT.create_event(p_api_version => l_api_version
4465: ,p_init_msg_list => l_init_msg_list
4471: ,p_action_type => 'CREATE'
4472: ,p_representation_code => l_gl_short_name
4473: );
4474:
4475: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4477: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4478: RAISE OKL_API.G_EXCEPTION_ERROR;
4479: END IF;
4472: ,p_representation_code => l_gl_short_name
4473: );
4474:
4475: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4477: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4478: RAISE OKL_API.G_EXCEPTION_ERROR;
4479: END IF;
4480:
4473: );
4474:
4475: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4477: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4478: RAISE OKL_API.G_EXCEPTION_ERROR;
4479: END IF;
4480:
4481: END IF;
4474:
4475: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4477: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4478: RAISE OKL_API.G_EXCEPTION_ERROR;
4479: END IF;
4480:
4481: END IF;
4482:
4496: ,p_tabv_tbl => l_Tabv_tbl_final
4497: ,x_tabv_tbl => x_tabv_tbl
4498: );
4499:
4500: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4501:
4502: EXCEPTION
4503:
4504: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4500: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4501:
4502: EXCEPTION
4503:
4504: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4505: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4506: ( l_api_name,
4507: G_PKG_NAME,
4508: 'OKL_API.G_RET_STS_ERROR',
4501:
4502: EXCEPTION
4503:
4504: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4505: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4506: ( l_api_name,
4507: G_PKG_NAME,
4508: 'OKL_API.G_RET_STS_ERROR',
4509: x_msg_count,
4504: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4505: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4506: ( l_api_name,
4507: G_PKG_NAME,
4508: 'OKL_API.G_RET_STS_ERROR',
4509: x_msg_count,
4510: x_msg_data,
4511: '_PVT'
4512: );
4509: x_msg_count,
4510: x_msg_data,
4511: '_PVT'
4512: );
4513: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4514: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4515: ( l_api_name,
4516: G_PKG_NAME,
4517: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4510: x_msg_data,
4511: '_PVT'
4512: );
4513: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4514: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4515: ( l_api_name,
4516: G_PKG_NAME,
4517: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4518: x_msg_count,
4513: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4514: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4515: ( l_api_name,
4516: G_PKG_NAME,
4517: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4518: x_msg_count,
4519: x_msg_data,
4520: '_PVT'
4521: );
4519: x_msg_data,
4520: '_PVT'
4521: );
4522: WHEN OTHERS THEN
4523: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4524: ( l_api_name,
4525: G_PKG_NAME,
4526: 'OTHERS',
4527: x_msg_count,
4554: tmpl_rec AVLV_REC_TYPE;
4555: l_tmpl_tbl avlv_tbl_type;
4556: l_formula_name OKL_FORMULAE_V.NAME%TYPE;
4557: l_functional_curr OKL_TRNS_ACC_DSTRS.CURRENCY_CODE%TYPE;
4558: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4559:
4560: l_api_name VARCHAR2(30) := 'CREATE_ACCOUNTING_DIST';
4561: l_api_version NUMBER := 1.0;
4562:
4602: --Bug 5707866 - Start of Changes
4603: l_ctxt_val_tbl CTXT_VAL_TBL_TYPE;
4604: l_account_derivation OKL_SYS_ACCT_OPTS.ACCOUNT_DERIVATION%TYPE;
4605: l_tcn_id NUMBER;
4606: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
4607: l_msg_count NUMBER := 0;
4608: l_msg_data VARCHAR2(2000);
4609: l_event_id NUMBER;
4610: l_event_date DATE;
4620: BEGIN
4621: IF (G_DEBUG_ENABLED = 'Y') THEN
4622: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4623: END IF;
4624: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4625:
4626: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4627: G_PKG_NAME,
4628: p_init_msg_list,
4622: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4623: END IF;
4624: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4625:
4626: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4627: G_PKG_NAME,
4628: p_init_msg_list,
4629: l_api_version,
4630: p_api_version,
4629: l_api_version,
4630: p_api_version,
4631: '_PVT',
4632: x_return_status);
4633: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4634: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4635: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4636: RAISE OKL_API.G_EXCEPTION_ERROR;
4637: END IF;
4630: p_api_version,
4631: '_PVT',
4632: x_return_status);
4633: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4634: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4635: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4636: RAISE OKL_API.G_EXCEPTION_ERROR;
4637: END IF;
4638:
4631: '_PVT',
4632: x_return_status);
4633: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4634: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4635: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4636: RAISE OKL_API.G_EXCEPTION_ERROR;
4637: END IF;
4638:
4639: -- Get the functional currency, based on the representation
4632: x_return_status);
4633: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4634: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4635: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4636: RAISE OKL_API.G_EXCEPTION_ERROR;
4637: END IF;
4638:
4639: -- Get the functional currency, based on the representation
4640: IF g_representation_type = 'PRIMARY' THEN
4656: VALIDATE_PARAMS(p_dist_info_tbl => l_dist_info_tbl,
4657: p_functional_curr => l_functional_curr,
4658: x_return_status => l_return_status);
4659:
4660: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4661: RAISE OKL_API.G_EXCEPTION_ERROR;
4662: END IF;
4663:
4664: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4657: p_functional_curr => l_functional_curr,
4658: x_return_status => l_return_status);
4659:
4660: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4661: RAISE OKL_API.G_EXCEPTION_ERROR;
4662: END IF;
4663:
4664: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4665: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After the call to VALIDATE_PARAMS, the return status is :'||l_return_status);
4678: FETCH get_acct_derivation_csr INTO l_account_derivation;
4679: CLOSE get_acct_derivation_csr;
4680:
4681: IF l_account_derivation IS NULL THEN
4682: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4683: ,p_msg_name => 'OKL_ACCT_DER_NOT_SET');
4684: RAISE OKL_API.G_EXCEPTION_ERROR;
4685: END IF;
4686:
4680:
4681: IF l_account_derivation IS NULL THEN
4682: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4683: ,p_msg_name => 'OKL_ACCT_DER_NOT_SET');
4684: RAISE OKL_API.G_EXCEPTION_ERROR;
4685: END IF;
4686:
4687: --Deriving the functional currency to be passed in the call to validate_params
4688: --l_functional_curr := Okl_Accounting_Util.GET_FUNC_CURR_CODE; --redundant code.
4692: --Only when the account derivation option is 'ATS'
4693: --Or if the account derivation option is 'AMB' and the transaction amount is not known
4694: --should the template information be fetched
4695: IF (l_account_derivation = 'ATS') OR
4696: ((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)))
4697: THEN
4698: IF (l_first_rec = TRUE)
4699: THEN
4700: GET_TEMPLATE_INFO(p_api_version => l_api_version,
4705: p_tmpl_identify_rec => p_tmpl_identify_rec,
4706: x_template_tbl => l_tmpl_tbl,
4707: p_validity_date => G_GL_DATE);
4708:
4709: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4710: RAISE OKL_API.G_EXCEPTION_ERROR;
4711: END IF;
4712:
4713: --Setting l_first_rec to FALSE, so that GET_TEMPLATE_INFO need not be called every time in the loop
4706: x_template_tbl => l_tmpl_tbl,
4707: p_validity_date => G_GL_DATE);
4708:
4709: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4710: RAISE OKL_API.G_EXCEPTION_ERROR;
4711: END IF;
4712:
4713: --Setting l_first_rec to FALSE, so that GET_TEMPLATE_INFO need not be called every time in the loop
4714: l_first_rec := FALSE;
4731: FOR sty_type_rec IN sty_type_csr (p_tmpl_identify_rec.stream_type_id) LOOP
4732: l_sty_type_name := sty_type_rec.name;
4733: END LOOP;
4734:
4735: OKL_API.SET_MESSAGE(p_app_name => g_app_name
4736: ,p_msg_name => 'OKL_TMPL_NOT_FOUND'
4737: ,p_token1 => 'PRODUCT'
4738: ,p_token1_value => l_product_name
4739: ,p_token2 => 'TRANSACTION_TYPE'
4743: ,p_token4 => 'ACCOUNTING_DATE'
4744: ,p_token4_value => G_GL_DATE);
4745:
4746:
4747: RAISE OKL_API.G_EXCEPTION_ERROR;
4748: END IF;
4749: END IF;
4750:
4751: -- Check the Distribution Status and take appropriate Action
4761: p_source_id => l_dist_info_tbl(i).source_id,
4762: p_source_table => l_dist_info_tbl(i).source_table,
4763: x_return_status => l_return_status);
4764:
4765: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4766: RAISE OKL_API.G_EXCEPTION_ERROR;
4767: END IF;
4768:
4769: END IF;
4762: p_source_table => l_dist_info_tbl(i).source_table,
4763: x_return_status => l_return_status);
4764:
4765: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4766: RAISE OKL_API.G_EXCEPTION_ERROR;
4767: END IF;
4768:
4769: END IF;
4770:
4768:
4769: END IF;
4770:
4771: IF (l_check_status = 2) THEN
4772: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4773: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4774: RAISE OKL_API.G_EXCEPTION_ERROR;
4775: END IF;
4776:
4770:
4771: IF (l_check_status = 2) THEN
4772: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4773: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4774: RAISE OKL_API.G_EXCEPTION_ERROR;
4775: END IF;
4776:
4777: FOR j IN 1..l_tmpl_tbl.COUNT
4778: LOOP
4778: LOOP
4779: tmpl_rec := l_tmpl_tbl(j);
4780:
4781: IF (l_dist_info_tbl(i).AMOUNT IS NULL) OR
4782: (l_dist_info_tbl(i).AMOUNT = OKL_API.G_MISS_NUM) THEN
4783:
4784: -- If the amount is null calculate the amount using formula engine
4785: IF (tmpl_rec.FMA_ID IS NULL) OR
4786: (tmpl_rec.FMA_ID = OKL_API.G_MISS_NUM) THEN
4782: (l_dist_info_tbl(i).AMOUNT = OKL_API.G_MISS_NUM) THEN
4783:
4784: -- If the amount is null calculate the amount using formula engine
4785: IF (tmpl_rec.FMA_ID IS NULL) OR
4786: (tmpl_rec.FMA_ID = OKL_API.G_MISS_NUM) THEN
4787: -- If the formula is not found associated with template
4788: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4789: p_msg_name => 'OKL_FMA_NOT_PRESENT',
4790: p_token1 => 'TEMPLATE_NAME',
4784: -- If the amount is null calculate the amount using formula engine
4785: IF (tmpl_rec.FMA_ID IS NULL) OR
4786: (tmpl_rec.FMA_ID = OKL_API.G_MISS_NUM) THEN
4787: -- If the formula is not found associated with template
4788: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4789: p_msg_name => 'OKL_FMA_NOT_PRESENT',
4790: p_token1 => 'TEMPLATE_NAME',
4791: p_token1_value => tmpl_rec.NAME);
4792: RAISE OKL_API.G_EXCEPTION_ERROR;
4788: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4789: p_msg_name => 'OKL_FMA_NOT_PRESENT',
4790: p_token1 => 'TEMPLATE_NAME',
4791: p_token1_value => tmpl_rec.NAME);
4792: RAISE OKL_API.G_EXCEPTION_ERROR;
4793: END IF;
4794:
4795: OPEN frml_csr(tmpl_rec.fma_id);
4796: FETCH frml_csr INTO l_formula_name;
4814: p_ctxt_val_tbl => l_ctxt_val_tbl,
4815: x_return_status => l_return_status,
4816: x_amount => l_amount );
4817:
4818: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4819: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4820: p_msg_name => 'OKL_FRML_EXE_FAILED',
4821: p_token1 => 'FORMULA_NAME',
4822: p_token1_value => l_formula_name);
4815: x_return_status => l_return_status,
4816: x_amount => l_amount );
4817:
4818: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4819: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4820: p_msg_name => 'OKL_FRML_EXE_FAILED',
4821: p_token1 => 'FORMULA_NAME',
4822: p_token1_value => l_formula_name);
4823:
4827: IF g_representation_type = 'SECONDARY' THEN
4828: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
4829: END IF;
4830:
4831: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4833: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4834: RAISE OKL_API.G_EXCEPTION_ERROR;
4835: END IF;
4828: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
4829: END IF;
4830:
4831: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4833: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4834: RAISE OKL_API.G_EXCEPTION_ERROR;
4835: END IF;
4836: ELSE -- If the amount is passed from the caller (amount is not null).
4829: END IF;
4830:
4831: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4833: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4834: RAISE OKL_API.G_EXCEPTION_ERROR;
4835: END IF;
4836: ELSE -- If the amount is passed from the caller (amount is not null).
4837: l_amount := l_dist_info_tbl(i).AMOUNT;
4830:
4831: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4833: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4834: RAISE OKL_API.G_EXCEPTION_ERROR;
4835: END IF;
4836: ELSE -- If the amount is passed from the caller (amount is not null).
4837: l_amount := l_dist_info_tbl(i).AMOUNT;
4838: END IF; -- End If for (p_dist_info_rec.AMOUNT IS NULL)
4840: -- If amount passes is Zero or Amount got from formula is zero then a
4841: -- message should be displayed.
4842:
4843: IF (l_amount = 0) THEN
4844: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4845: p_msg_name => 'OKL_FRML_RET_ZERO_AMT',
4846: p_token1 => 'TEMPLATE_NAME',
4847: p_token1_value => tmpl_rec.NAME);
4848: -- Santonyr on 14-Jul-2003 Fixed bug 3048686
4845: p_msg_name => 'OKL_FRML_RET_ZERO_AMT',
4846: p_token1 => 'TEMPLATE_NAME',
4847: p_token1_value => tmpl_rec.NAME);
4848: -- Santonyr on 14-Jul-2003 Fixed bug 3048686
4849: -- RAISE OKL_API.G_EXCEPTION_ERROR;
4850: END IF;
4851:
4852: --Building a reference between the dist_info rec and x_template_tbl
4853: x_template_tbl(i).template_tbl(j) := tmpl_rec;
4871: p_gen_table => p_acc_gen_tbl_ret,
4872: x_return_status => l_return_status,
4873: x_tabv_tbl => l_tabv_tbl_out);
4874:
4875: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4876: RAISE OKL_API.G_EXCEPTION_ERROR;
4877: END IF;
4878: ELSIF (l_account_derivation = 'AMB')
4879: THEN
4872: x_return_status => l_return_status,
4873: x_tabv_tbl => l_tabv_tbl_out);
4874:
4875: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4876: RAISE OKL_API.G_EXCEPTION_ERROR;
4877: END IF;
4878: ELSIF (l_account_derivation = 'AMB')
4879: THEN
4880: CREATE_DIST_RECS(--Bug 6127326 dpsingh start
4885: p_amount => l_amount,
4886: x_return_status => l_return_status,
4887: x_tabv_tbl => l_tabv_tbl_out);
4888:
4889: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4890: RAISE OKL_API.G_EXCEPTION_ERROR;
4891: END IF;
4892: END IF;
4893: END IF; -- End If for (l_amount <> 0)
4886: x_return_status => l_return_status,
4887: x_tabv_tbl => l_tabv_tbl_out);
4888:
4889: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4890: RAISE OKL_API.G_EXCEPTION_ERROR;
4891: END IF;
4892: END IF;
4893: END IF; -- End If for (l_amount <> 0)
4894:
4930: p_source_id => l_dist_info_tbl(i).source_id,
4931: p_source_table => l_dist_info_tbl(i).source_table,
4932: x_return_status => l_return_status);
4933:
4934: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4935: RAISE OKL_API.G_EXCEPTION_ERROR;
4936: END IF;
4937:
4938: END IF;
4931: p_source_table => l_dist_info_tbl(i).source_table,
4932: x_return_status => l_return_status);
4933:
4934: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4935: RAISE OKL_API.G_EXCEPTION_ERROR;
4936: END IF;
4937:
4938: END IF;
4939:
4937:
4938: END IF;
4939:
4940: IF (l_check_status = 2) THEN
4941: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4942: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4943: RAISE OKL_API.G_EXCEPTION_ERROR;
4944: END IF;
4945:
4939:
4940: IF (l_check_status = 2) THEN
4941: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4942: p_msg_name => 'OKL_AE_GONE_TO_SLA');
4943: RAISE OKL_API.G_EXCEPTION_ERROR;
4944: END IF;
4945:
4946: l_amount := l_dist_info_tbl(i).amount;
4947:
4952: p_amount => l_amount,
4953: x_return_status => l_return_status,
4954: x_tabv_tbl => l_tabv_tbl_out);
4955:
4956: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4957: RAISE OKL_API.G_EXCEPTION_ERROR;
4958: END IF;
4959: END IF; -- End If for (l_amount <> 0)
4960:
4953: x_return_status => l_return_status,
4954: x_tabv_tbl => l_tabv_tbl_out);
4955:
4956: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4957: RAISE OKL_API.G_EXCEPTION_ERROR;
4958: END IF;
4959: END IF; -- End If for (l_amount <> 0)
4960:
4961: x_amount_tbl(i).amount_tbl(0) := Okl_Accounting_Util.ROUND_AMOUNT(p_amount => l_amount,
4978: END IF;
4979: END IF;
4980: x_tabv_tbl := l_tabv_tbl_final;
4981: END LOOP; --End loop for (l_dist_info_tbl.count)
4982: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4983:
4984: EXCEPTION
4985:
4986: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4982: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4983:
4984: EXCEPTION
4985:
4986: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4987: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4988: ( l_api_name,
4989: G_PKG_NAME,
4990: 'OKL_API.G_RET_STS_ERROR',
4983:
4984: EXCEPTION
4985:
4986: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4987: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4988: ( l_api_name,
4989: G_PKG_NAME,
4990: 'OKL_API.G_RET_STS_ERROR',
4991: x_msg_count,
4986: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4987: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4988: ( l_api_name,
4989: G_PKG_NAME,
4990: 'OKL_API.G_RET_STS_ERROR',
4991: x_msg_count,
4992: x_msg_data,
4993: '_PVT'
4994: );
4991: x_msg_count,
4992: x_msg_data,
4993: '_PVT'
4994: );
4995: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4996: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4997: ( l_api_name,
4998: G_PKG_NAME,
4999: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4992: x_msg_data,
4993: '_PVT'
4994: );
4995: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4996: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4997: ( l_api_name,
4998: G_PKG_NAME,
4999: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5000: x_msg_count,
4995: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4996: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4997: ( l_api_name,
4998: G_PKG_NAME,
4999: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5000: x_msg_count,
5001: x_msg_data,
5002: '_PVT'
5003: );
5001: x_msg_data,
5002: '_PVT'
5003: );
5004: WHEN OTHERS THEN
5005: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5006: ( l_api_name,
5007: G_PKG_NAME,
5008: 'OTHERS',
5009: x_msg_count,
5036: tmpl_rec AVLV_REC_TYPE;
5037: l_tmpl_tbl avlv_tbl_type;
5038: l_formula_name OKL_FORMULAE_V.NAME%TYPE;
5039: l_functional_curr OKL_TRNS_ACC_DSTRS.CURRENCY_CODE%TYPE;
5040: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5041:
5042: l_api_name VARCHAR2(30) := 'CREATE_ACCOUNTING_DIST';
5043: l_api_version NUMBER := 1.0;
5044:
5078: --Added by kthiruva on 06-Feb-2007 for SLA Uptake
5079: --Bug 5707866 - Start of Changes
5080: l_account_derivation OKL_SYS_ACCT_OPTS.ACCOUNT_DERIVATION%TYPE;
5081: l_tcn_id NUMBER := p_trx_header_id;
5082: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
5083: l_msg_count NUMBER := 0;
5084: l_msg_data VARCHAR2(2000);
5085: l_event_id NUMBER;
5086: l_event_date DATE;
5175: l_sources_exist VARCHAR2(1);
5176: --Bug 5707866 - End of Changes
5177:
5178: BEGIN
5179: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5180:
5181: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5182: G_PKG_NAME,
5183: p_init_msg_list,
5177:
5178: BEGIN
5179: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5180:
5181: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5182: G_PKG_NAME,
5183: p_init_msg_list,
5184: l_api_version,
5185: p_api_version,
5184: l_api_version,
5185: p_api_version,
5186: '_PVT',
5187: x_return_status);
5188: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5190: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5191: RAISE OKL_API.G_EXCEPTION_ERROR;
5192: END IF;
5185: p_api_version,
5186: '_PVT',
5187: x_return_status);
5188: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5190: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5191: RAISE OKL_API.G_EXCEPTION_ERROR;
5192: END IF;
5193:
5186: '_PVT',
5187: x_return_status);
5188: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5190: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5191: RAISE OKL_API.G_EXCEPTION_ERROR;
5192: END IF;
5193:
5194: VALIDATE_IN_PARAMS(p_dist_info_tbl => p_dist_info_tbl
5187: x_return_status);
5188: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5190: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5191: RAISE OKL_API.G_EXCEPTION_ERROR;
5192: END IF;
5193:
5194: VALIDATE_IN_PARAMS(p_dist_info_tbl => p_dist_info_tbl
5195: ,p_tmpl_identify_tbl => p_tmpl_identify_tbl
5197: ,p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl
5198: ,x_return_status => l_return_status
5199: );
5200:
5201: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5202: RAISE OKL_API.G_EXCEPTION_ERROR;
5203: END IF;
5204:
5205: -- get the representation attributes.. MG uptake
5198: ,x_return_status => l_return_status
5199: );
5200:
5201: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5202: RAISE OKL_API.G_EXCEPTION_ERROR;
5203: END IF;
5204:
5205: -- get the representation attributes.. MG uptake
5206: get_rep_attributes;
5253: x_template_tbl => x_template_temp_tbl,
5254: x_amount_tbl => x_amount_temp_tbl,
5255: x_tabv_tbl => x_tabv_temp_tbl);
5256:
5257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5260: RAISE OKL_API.G_EXCEPTION_ERROR;
5261: END IF;
5254: x_amount_tbl => x_amount_temp_tbl,
5255: x_tabv_tbl => x_tabv_temp_tbl);
5256:
5257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5260: RAISE OKL_API.G_EXCEPTION_ERROR;
5261: END IF;
5262:
5255: x_tabv_tbl => x_tabv_temp_tbl);
5256:
5257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5260: RAISE OKL_API.G_EXCEPTION_ERROR;
5261: END IF;
5262:
5263: --The out parameters from each call are consolidated and built
5256:
5257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5260: RAISE OKL_API.G_EXCEPTION_ERROR;
5261: END IF;
5262:
5263: --The out parameters from each call are consolidated and built
5264: GET_FINAL_TEMPLATE_TBL(p_template_tbl => x_template_temp_tbl,
5299: x_template_tbl => x_template_temp_tbl,
5300: x_amount_tbl => x_amount_temp_tbl,
5301: x_tabv_tbl => x_tabv_temp_tbl);
5302:
5303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5306: RAISE OKL_API.G_EXCEPTION_ERROR;
5307: END IF;
5300: x_amount_tbl => x_amount_temp_tbl,
5301: x_tabv_tbl => x_tabv_temp_tbl);
5302:
5303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5306: RAISE OKL_API.G_EXCEPTION_ERROR;
5307: END IF;
5308:
5301: x_tabv_tbl => x_tabv_temp_tbl);
5302:
5303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5306: RAISE OKL_API.G_EXCEPTION_ERROR;
5307: END IF;
5308:
5309: --The out parameters from each call are consolidated and built
5302:
5303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5306: RAISE OKL_API.G_EXCEPTION_ERROR;
5307: END IF;
5308:
5309: --The out parameters from each call are consolidated and built
5310: GET_FINAL_TEMPLATE_TBL(p_template_tbl => x_template_temp_tbl,
5353: ,x_msg_count => l_msg_count
5354: ,x_msg_data => l_msg_data
5355: );
5356:
5357: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5358: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5359: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5361: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5354: ,x_msg_data => l_msg_data
5355: );
5356:
5357: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5358: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5359: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5361: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5362: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5356:
5357: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5358: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5359: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5361: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5357: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5358: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5359: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5361: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5365: END IF;
5358: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5359: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5361: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5365: END IF;
5366: --As event_id is not found, we create a new event
5360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5361: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5365: END IF;
5366: --As event_id is not found, we create a new event
5367: ELSE
5368: --The below code is not required after MG uptake.. racheruv
5375: l_gl_short_name := g_ledger_tbl(g_ledger_id).rep_code;
5376:
5377: IF l_gl_short_name IS NULL
5378: THEN
5379: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5380: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
5381: RAISE OKL_API.G_EXCEPTION_ERROR;
5382: END IF;
5383:
5377: IF l_gl_short_name IS NULL
5378: THEN
5379: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5380: ,p_msg_name => 'OKL_GL_NOT_SET_FOR_ORG');
5381: RAISE OKL_API.G_EXCEPTION_ERROR;
5382: END IF;
5383:
5384: l_event_id := OKL_XLA_EVENTS_PVT.create_event(p_api_version => l_api_version
5385: ,p_init_msg_list => l_init_msg_list
5391: ,p_action_type => 'CREATE'
5392: ,p_representation_code => l_gl_short_name
5393: );
5394:
5395: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5396: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5397: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
5398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5399: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5392: ,p_representation_code => l_gl_short_name
5393: );
5394:
5395: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5396: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5397: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
5398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5399: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5400: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5394:
5395: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5396: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5397: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
5398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5399: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5395: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5396: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5397: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
5398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5399: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5403: END IF;
5396: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5397: ,p_msg_name => 'OKL_CREATE_EVENT_FAILED');
5398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5399: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5403: END IF;
5404: END IF;--(IF l_event_id is null)
5398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5399: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5403: END IF;
5404: END IF;--(IF l_event_id is null)
5405:
5406: IF (l_tabv_tbl_out.count > 0) THEN
5422: ,p_tabv_tbl => l_tabv_tbl
5423: ,x_tabv_tbl => x_tabv_tbl
5424: );
5425:
5426: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5427: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5428: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
5429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5430: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5423: ,x_tabv_tbl => x_tabv_tbl
5424: );
5425:
5426: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5427: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5428: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
5429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5430: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5431: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5425:
5426: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5427: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5428: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
5429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5430: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5426: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5427: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5428: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
5429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5430: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5434: END IF;
5427: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5428: ,p_msg_name => 'OKL_UPD_DIST_FAILED');
5429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5430: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5434: END IF;
5435: END IF;
5429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5430: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5434: END IF;
5435: END IF;
5436:
5437: IF p_dist_info_tbl.count = l_line_tbl.count THEN
5482: p_dist_info_rec => p_dist_info_tbl(i),
5483: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5484: x_asev_rec => l_asev_rec);
5485:
5486: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5487: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5488: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5490: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5483: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5484: x_asev_rec => l_asev_rec);
5485:
5486: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5487: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5488: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5490: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5491: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5485:
5486: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5487: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5488: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5490: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5486: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5487: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5488: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5490: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5494: END IF;
5487: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5488: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5490: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5494: END IF;
5495:
5489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5490: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5494: END IF;
5495:
5496: --Building the line table that needs to be sent to the populate sources_call
5497: l_tclv_tbl(l_asev_count).source_id := p_dist_info_tbl(i).source_id;
5513: ,x_msg_count => l_msg_count
5514: ,x_msg_data => l_msg_data);
5515:
5516:
5517: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5518: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5519: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5521: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5514: ,x_msg_data => l_msg_data);
5515:
5516:
5517: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5518: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5519: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5521: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5522: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5516:
5517: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5518: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5519: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5521: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5517: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5518: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5519: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5521: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5525: END IF;
5518: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5519: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5521: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5525: END IF;
5526: --If the accounting engine call is being made for a billing transaction , then sources need to be
5520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5521: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5525: END IF;
5526: --If the accounting engine call is being made for a billing transaction , then sources need to be
5527: --captured at the header and line level. However, for AR transactions, events are not created by OKL
5528: ELSIF l_try_name IN ('BILLING','CREDIT_MEMO','ROLLOVER_BILLING','ROLLOVER_CREDITMEMO',
5532: l_rxhv_rec.source_id := p_trx_header_id;
5533: --For AR And AP transactions, p_trx_header_table needs to be passed always.
5534: --Its optional only for OKL Transactions
5535: IF p_trx_header_table IS NULL THEN
5536: Okl_Api.set_message(G_APP_NAME,
5537: G_INVALID_VALUE,
5538: G_COL_NAME_TOKEN,
5539: 'SOURCE_TABLE');
5540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5536: Okl_Api.set_message(G_APP_NAME,
5537: G_INVALID_VALUE,
5538: G_COL_NAME_TOKEN,
5539: 'SOURCE_TABLE');
5540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5541: END IF;
5542: l_rxhv_rec.source_table := p_trx_header_table;
5543:
5544: --Cursor to check if sources already exist for the transaction. IF so , the transaction is being updated
5556: ,x_msg_count => l_msg_count
5557: ,x_msg_data => l_msg_data
5558: );
5559:
5560: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5561: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5562: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5564: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5557: ,x_msg_data => l_msg_data
5558: );
5559:
5560: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5561: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5562: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5564: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5565: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5559:
5560: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5561: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5562: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5564: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5560: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5561: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5562: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5564: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5568: END IF;
5561: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5562: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5564: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5568: END IF;
5569: END IF;--(IF l_event_id is null)
5563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5564: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5568: END IF;
5569: END IF;--(IF l_event_id is null)
5570: CLOSE check_sources_csr;
5571:
5617: p_dist_info_rec => p_dist_info_tbl(i),
5618: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5619: x_asev_rec => l_asev_rec);
5620:
5621: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5622: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5623: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5618: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5619: x_asev_rec => l_asev_rec);
5620:
5621: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5622: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5623: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5626: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5620:
5621: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5622: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5623: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5625: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5621: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5622: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5623: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5625: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5629: END IF;
5622: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5623: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5625: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5629: END IF;
5630:
5624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5625: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5629: END IF;
5630:
5631: --Building the line table that needs to be sent to the populate sources_call
5632: l_rxlv_tbl(l_asev_count).source_id := p_dist_info_tbl(i).source_id;
5648: ,x_msg_count => l_msg_count
5649: ,x_msg_data => l_msg_data);
5650:
5651:
5652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5653: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5654: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5656: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5649: ,x_msg_data => l_msg_data);
5650:
5651:
5652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5653: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5654: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5656: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5657: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5651:
5652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5653: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5654: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5656: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5653: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5654: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5656: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5660: END IF;
5653: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5654: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5656: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5660: END IF;
5661:
5655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5656: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5660: END IF;
5661:
5662: --Bug 6316320 dpsingh start
5663: --If the accounting engine call is being made for a adjustment transaction , then sources need to be
5668: l_rxhv_adj_rec.source_id := p_trx_header_id;
5669: --For AR And AP transactions, p_trx_header_table needs to be passed always.
5670: --Its optional only for OKL Transactions
5671: IF p_trx_header_table IS NULL THEN
5672: Okl_Api.set_message(G_APP_NAME,
5673: G_INVALID_VALUE,
5674: G_COL_NAME_TOKEN,
5675: 'SOURCE_TABLE');
5676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5672: Okl_Api.set_message(G_APP_NAME,
5673: G_INVALID_VALUE,
5674: G_COL_NAME_TOKEN,
5675: 'SOURCE_TABLE');
5676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5677: END IF;
5678: l_rxhv_adj_rec.source_table := p_trx_header_table;
5679:
5680: --Cursor to check if sources already exist for the transaction. IF so , the transaction is being updated
5692: ,x_msg_count => l_msg_count
5693: ,x_msg_data => l_msg_data
5694: );
5695:
5696: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5697: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5698: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5700: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5693: ,x_msg_data => l_msg_data
5694: );
5695:
5696: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5697: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5698: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5700: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5701: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5695:
5696: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5697: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5698: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5700: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5696: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5697: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5698: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5700: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5704: END IF;
5697: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5698: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5700: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5704: END IF;
5705: END IF;--(IF l_event_id is null)
5699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5700: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5704: END IF;
5705: END IF;--(IF l_event_id is null)
5706: CLOSE check_sources_csr;
5707:
5753: p_dist_info_rec => p_dist_info_tbl(i),
5754: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5755: x_asev_rec => l_asev_rec);
5756:
5757: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5758: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5759: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5761: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5754: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5755: x_asev_rec => l_asev_rec);
5756:
5757: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5758: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5759: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5761: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5762: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5756:
5757: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5758: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5759: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5761: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5757: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5758: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5759: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5761: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5765: END IF;
5758: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5759: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5761: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5765: END IF;
5766:
5760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5761: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5765: END IF;
5766:
5767: --Building the line table that needs to be sent to the populate sources_call
5768: l_rxlv_adj_tbl(l_asev_count).source_id := p_dist_info_tbl(i).source_id;
5783: ,x_return_status => l_return_status
5784: ,x_msg_count => l_msg_count
5785: ,x_msg_data => l_msg_data);
5786:
5787: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5788: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5789: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5791: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5784: ,x_msg_count => l_msg_count
5785: ,x_msg_data => l_msg_data);
5786:
5787: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5788: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5789: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5791: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5792: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5786:
5787: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5788: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5789: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5791: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5787: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5788: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5789: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5791: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5795: END IF;
5788: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5789: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5791: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5795: END IF;
5796: --Bug 6316320 dpsingh end
5790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5791: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5795: END IF;
5796: --Bug 6316320 dpsingh end
5797: --If the accounting engine call is being made for an AP transaction , then sources need to be
5798: --captured at the header and line level. However, for AP transactions, events are not created by OKL
5802: l_pxhv_rec.source_id := p_trx_header_id;
5803: --For AR And AP transactions, p_trx_header_table needs to be passed always.
5804: --Its optional only for OKL Transactions
5805: IF p_trx_header_table IS NULL THEN
5806: Okl_Api.set_message(G_APP_NAME,
5807: G_INVALID_VALUE,
5808: G_COL_NAME_TOKEN,
5809: 'SOURCE_TABLE');
5810: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5806: Okl_Api.set_message(G_APP_NAME,
5807: G_INVALID_VALUE,
5808: G_COL_NAME_TOKEN,
5809: 'SOURCE_TABLE');
5810: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5811: END IF;
5812: l_pxhv_rec.source_table := p_trx_header_table;
5813:
5814: --Cursor to check if sources already exist for the transaction. IF so , the transaction is being updated
5826: ,x_msg_count => l_msg_count
5827: ,x_msg_data => l_msg_data
5828: );
5829:
5830: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5831: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5832: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5833: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5834: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5827: ,x_msg_data => l_msg_data
5828: );
5829:
5830: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5831: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5832: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5833: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5834: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5835: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5829:
5830: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5831: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5832: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5833: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5834: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5830: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5831: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5832: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5833: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5834: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5838: END IF;
5831: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5832: ,p_msg_name => 'OKL_DEL_SOURCES_FAILED');
5833: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5834: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5838: END IF;
5839: END IF;
5833: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5834: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5838: END IF;
5839: END IF;
5840: CLOSE check_ap_sources_csr;
5841:
5887: p_dist_info_rec => p_dist_info_tbl(i),
5888: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5889: x_asev_rec => l_asev_rec);
5890:
5891: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5892: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5893: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5888: p_acc_gen_primary_key_tbl => l_acc_gen_key_tbl,
5889: x_asev_rec => l_asev_rec);
5890:
5891: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5892: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5893: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5896: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5890:
5891: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5892: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5893: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5891: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5892: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5893: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5899: END IF;
5892: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5893: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5899: END IF;
5900:
5894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5899: END IF;
5900:
5901: --Building the line table that needs to be sent to the populate sources_call
5902: l_pxlv_tbl(l_asev_count).source_id := p_dist_info_tbl(i).source_id;
5918: ,x_msg_count => l_msg_count
5919: ,x_msg_data => l_msg_data);
5920:
5921:
5922: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5923: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5924: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5926: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5919: ,x_msg_data => l_msg_data);
5920:
5921:
5922: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5923: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5924: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5926: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5927: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5921:
5922: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5923: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5924: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5926: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5922: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5923: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5924: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5926: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5930: END IF;
5923: OKL_API.SET_MESSAGE(p_app_name => g_app_name
5924: ,p_msg_name => 'OKL_SLA_SOURCES_FAILED');
5925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5926: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5930: END IF;
5931: END IF;
5925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5926: ELSIF (l_return_status = OKL_API.G_RET_STS_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_ERROR;
5930: END IF;
5931: END IF;
5932:
5933: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5929: RAISE OKL_API.G_EXCEPTION_ERROR;
5930: END IF;
5931: END IF;
5932:
5933: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5934:
5935: EXCEPTION
5936:
5937: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5933: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5934:
5935: EXCEPTION
5936:
5937: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5938: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5939: ( l_api_name,
5940: G_PKG_NAME,
5941: 'OKL_API.G_RET_STS_ERROR',
5934:
5935: EXCEPTION
5936:
5937: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5938: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5939: ( l_api_name,
5940: G_PKG_NAME,
5941: 'OKL_API.G_RET_STS_ERROR',
5942: x_msg_count,
5937: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5938: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5939: ( l_api_name,
5940: G_PKG_NAME,
5941: 'OKL_API.G_RET_STS_ERROR',
5942: x_msg_count,
5943: x_msg_data,
5944: '_PVT'
5945: );
5942: x_msg_count,
5943: x_msg_data,
5944: '_PVT'
5945: );
5946: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5947: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5948: ( l_api_name,
5949: G_PKG_NAME,
5950: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5943: x_msg_data,
5944: '_PVT'
5945: );
5946: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5947: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5948: ( l_api_name,
5949: G_PKG_NAME,
5950: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5951: x_msg_count,
5946: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5947: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5948: ( l_api_name,
5949: G_PKG_NAME,
5950: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5951: x_msg_count,
5952: x_msg_data,
5953: '_PVT'
5954: );
5952: x_msg_data,
5953: '_PVT'
5954: );
5955: WHEN OTHERS THEN
5956: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5957: ( l_api_name,
5958: G_PKG_NAME,
5959: 'OTHERS',
5960: x_msg_count,
6017: IS
6018:
6019:
6020:
6021: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6022: l_api_name VARCHAR2(30) := 'DELETE_ACCT_ENTRIES';
6023: l_api_version NUMBER := 1.0;
6024: l_check_Status NUMBER := 0;
6025:
6025:
6026:
6027: BEGIN
6028:
6029: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6030:
6031: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
6032: G_PKG_NAME,
6033: p_init_msg_list,
6027: BEGIN
6028:
6029: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6030:
6031: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
6032: G_PKG_NAME,
6033: p_init_msg_list,
6034: l_api_version,
6035: p_api_version,
6034: l_api_version,
6035: p_api_version,
6036: '_PVT',
6037: x_return_status);
6038: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6040: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6041: RAISE OKL_API.G_EXCEPTION_ERROR;
6042: END IF;
6035: p_api_version,
6036: '_PVT',
6037: x_return_status);
6038: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6040: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6041: RAISE OKL_API.G_EXCEPTION_ERROR;
6042: END IF;
6043:
6036: '_PVT',
6037: x_return_status);
6038: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6040: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6041: RAISE OKL_API.G_EXCEPTION_ERROR;
6042: END IF;
6043:
6044: -- Check the Distribution Status and take appropriate Action
6037: x_return_status);
6038: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6040: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6041: RAISE OKL_API.G_EXCEPTION_ERROR;
6042: END IF;
6043:
6044: -- Check the Distribution Status and take appropriate Action
6045: l_check_status := CHECK_JOURNAL(p_source_id => p_source_id,
6055: p_source_id => p_source_id,
6056: p_source_table => p_source_table,
6057: x_return_status => l_return_status);
6058:
6059: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6060: RAISE OKL_API.G_EXCEPTION_ERROR;
6061: END IF;
6062: END IF;
6063:
6056: p_source_table => p_source_table,
6057: x_return_status => l_return_status);
6058:
6059: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6060: RAISE OKL_API.G_EXCEPTION_ERROR;
6061: END IF;
6062: END IF;
6063:
6064: IF (l_check_status = 2) THEN
6061: END IF;
6062: END IF;
6063:
6064: IF (l_check_status = 2) THEN
6065: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6066: p_msg_name => 'OKL_AE_GONE_TO_SLA');
6067: RAISE OKL_API.G_EXCEPTION_ERROR;
6068: END IF;
6069:
6063:
6064: IF (l_check_status = 2) THEN
6065: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6066: p_msg_name => 'OKL_AE_GONE_TO_SLA');
6067: RAISE OKL_API.G_EXCEPTION_ERROR;
6068: END IF;
6069:
6070:
6071: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6067: RAISE OKL_API.G_EXCEPTION_ERROR;
6068: END IF;
6069:
6070:
6071: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6072:
6073: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6074:
6075: EXCEPTION
6069:
6070:
6071: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6072:
6073: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6074:
6075: EXCEPTION
6076:
6077: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6073: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6074:
6075: EXCEPTION
6076:
6077: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6078: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6079: ( l_api_name,
6080: G_PKG_NAME,
6081: 'OKL_API.G_RET_STS_ERROR',
6074:
6075: EXCEPTION
6076:
6077: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6078: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6079: ( l_api_name,
6080: G_PKG_NAME,
6081: 'OKL_API.G_RET_STS_ERROR',
6082: x_msg_count,
6077: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6078: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6079: ( l_api_name,
6080: G_PKG_NAME,
6081: 'OKL_API.G_RET_STS_ERROR',
6082: x_msg_count,
6083: x_msg_data,
6084: '_PVT'
6085: );
6082: x_msg_count,
6083: x_msg_data,
6084: '_PVT'
6085: );
6086: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6087: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6088: ( l_api_name,
6089: G_PKG_NAME,
6090: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6083: x_msg_data,
6084: '_PVT'
6085: );
6086: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6087: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6088: ( l_api_name,
6089: G_PKG_NAME,
6090: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6091: x_msg_count,
6086: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6087: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6088: ( l_api_name,
6089: G_PKG_NAME,
6090: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6091: x_msg_count,
6092: x_msg_data,
6093: '_PVT'
6094: );
6092: x_msg_data,
6093: '_PVT'
6094: );
6095: WHEN OTHERS THEN
6096: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6097: ( l_api_name,
6098: G_PKG_NAME,
6099: 'OTHERS',
6100: x_msg_count,
6148: p_acc_gen_primary_key_tbl IN acc_gen_primary_key,
6149: p_template_amount_tbl IN template_amount_tbl_type)
6150: IS
6151:
6152: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6153: l_api_name VARCHAR2(30) := 'POPULATE_ACCT_SOURCES';
6154: l_api_version NUMBER := 1.0;
6155:
6156: l_init_msg_list VARCHAR2(1) := Okl_Api.G_FALSE;
6152: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6153: l_api_name VARCHAR2(30) := 'POPULATE_ACCT_SOURCES';
6154: l_api_version NUMBER := 1.0;
6155:
6156: l_init_msg_list VARCHAR2(1) := Okl_Api.G_FALSE;
6157: l_msg_count NUMBER := 0;
6158: l_msg_data VARCHAR2(2000);
6159:
6160:
6173: x_asev_tbl asev_tbl_type;
6174:
6175: BEGIN
6176:
6177: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6178:
6179: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
6180: G_PKG_NAME,
6181: p_init_msg_list,
6175: BEGIN
6176:
6177: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6178:
6179: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
6180: G_PKG_NAME,
6181: p_init_msg_list,
6182: l_api_version,
6183: p_api_version,
6182: l_api_version,
6183: p_api_version,
6184: '_PVT',
6185: x_return_status);
6186: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6187: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6188: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6189: RAISE Okl_Api.G_EXCEPTION_ERROR;
6190: END IF;
6183: p_api_version,
6184: '_PVT',
6185: x_return_status);
6186: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6187: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6188: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6189: RAISE Okl_Api.G_EXCEPTION_ERROR;
6190: END IF;
6191:
6184: '_PVT',
6185: x_return_status);
6186: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6187: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6188: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6189: RAISE Okl_Api.G_EXCEPTION_ERROR;
6190: END IF;
6191:
6192:
6185: x_return_status);
6186: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6187: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6188: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6189: RAISE Okl_Api.G_EXCEPTION_ERROR;
6190: END IF;
6191:
6192:
6193: -- Extract the account generator sources from account generator primary key table.
6295: ,x_msg_data => l_msg_data
6296: ,p_asev_tbl => l_asev_tbl
6297: ,x_asev_tbl => x_asev_tbl);
6298:
6299: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6300: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6301: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6302: RAISE Okl_Api.G_EXCEPTION_ERROR;
6303: END IF;
6296: ,p_asev_tbl => l_asev_tbl
6297: ,x_asev_tbl => x_asev_tbl);
6298:
6299: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6300: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6301: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6302: RAISE Okl_Api.G_EXCEPTION_ERROR;
6303: END IF;
6304:
6297: ,x_asev_tbl => x_asev_tbl);
6298:
6299: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6300: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6301: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6302: RAISE Okl_Api.G_EXCEPTION_ERROR;
6303: END IF;
6304:
6305:
6298:
6299: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6300: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6301: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6302: RAISE Okl_Api.G_EXCEPTION_ERROR;
6303: END IF;
6304:
6305:
6306: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6302: RAISE Okl_Api.G_EXCEPTION_ERROR;
6303: END IF;
6304:
6305:
6306: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6307:
6308: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6309:
6310: EXCEPTION
6304:
6305:
6306: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6307:
6308: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6309:
6310: EXCEPTION
6311:
6312: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6308: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6309:
6310: EXCEPTION
6311:
6312: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6313: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6314: ( l_api_name,
6315: G_PKG_NAME,
6316: 'OKL_API.G_RET_STS_ERROR',
6309:
6310: EXCEPTION
6311:
6312: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6313: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6314: ( l_api_name,
6315: G_PKG_NAME,
6316: 'OKL_API.G_RET_STS_ERROR',
6317: x_msg_count,
6312: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6313: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6314: ( l_api_name,
6315: G_PKG_NAME,
6316: 'OKL_API.G_RET_STS_ERROR',
6317: x_msg_count,
6318: x_msg_data,
6319: '_PVT'
6320: );
6317: x_msg_count,
6318: x_msg_data,
6319: '_PVT'
6320: );
6321: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6322: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6323: ( l_api_name,
6324: G_PKG_NAME,
6325: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6318: x_msg_data,
6319: '_PVT'
6320: );
6321: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6322: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6323: ( l_api_name,
6324: G_PKG_NAME,
6325: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6326: x_msg_count,
6321: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6322: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6323: ( l_api_name,
6324: G_PKG_NAME,
6325: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6326: x_msg_count,
6327: x_msg_data,
6328: '_PVT'
6329: );
6327: x_msg_data,
6328: '_PVT'
6329: );
6330: WHEN OTHERS THEN
6331: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6332: ( l_api_name,
6333: G_PKG_NAME,
6334: 'OTHERS',
6335: x_msg_count,
6352: p_acc_gen_primary_key_tbl IN acc_gen_tbl,
6353: p_template_amount_tbl IN tmp_bulk_amount_tbl_type)
6354: IS
6355:
6356: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6357: l_api_name VARCHAR2(30) := 'POPULATE_ACCT_SOURCES';
6358: l_api_version NUMBER := 1.0;
6359:
6360: l_init_msg_list VARCHAR2(1) := Okl_Api.G_FALSE;
6356: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6357: l_api_name VARCHAR2(30) := 'POPULATE_ACCT_SOURCES';
6358: l_api_version NUMBER := 1.0;
6359:
6360: l_init_msg_list VARCHAR2(1) := Okl_Api.G_FALSE;
6361: l_msg_count NUMBER := 0;
6362: l_msg_data VARCHAR2(2000);
6363:
6364:
6387: l_tmp_amt_last_index NUMBER := 0;
6388:
6389: BEGIN
6390:
6391: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6392:
6393: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
6394: G_PKG_NAME,
6395: p_init_msg_list,
6389: BEGIN
6390:
6391: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6392:
6393: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
6394: G_PKG_NAME,
6395: p_init_msg_list,
6396: l_api_version,
6397: p_api_version,
6396: l_api_version,
6397: p_api_version,
6398: '_PVT',
6399: x_return_status);
6400: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6401: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6402: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6403: RAISE Okl_Api.G_EXCEPTION_ERROR;
6404: END IF;
6397: p_api_version,
6398: '_PVT',
6399: x_return_status);
6400: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6401: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6402: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6403: RAISE Okl_Api.G_EXCEPTION_ERROR;
6404: END IF;
6405:
6398: '_PVT',
6399: x_return_status);
6400: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6401: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6402: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6403: RAISE Okl_Api.G_EXCEPTION_ERROR;
6404: END IF;
6405:
6406:
6399: x_return_status);
6400: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6401: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6402: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6403: RAISE Okl_Api.G_EXCEPTION_ERROR;
6404: END IF;
6405:
6406:
6407: FOR i IN l_dist_info_tbl.FIRST..l_dist_info_tbl.LAST LOOP
6519: ,x_msg_data => l_msg_data
6520: ,p_asev_tbl => l_asev_full_tbl
6521: ,x_asev_tbl => x_asev_tbl);
6522:
6523: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6525: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6526: RAISE Okl_Api.G_EXCEPTION_ERROR;
6527: END IF;
6520: ,p_asev_tbl => l_asev_full_tbl
6521: ,x_asev_tbl => x_asev_tbl);
6522:
6523: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6525: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6526: RAISE Okl_Api.G_EXCEPTION_ERROR;
6527: END IF;
6528:
6521: ,x_asev_tbl => x_asev_tbl);
6522:
6523: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6525: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6526: RAISE Okl_Api.G_EXCEPTION_ERROR;
6527: END IF;
6528:
6529:
6522:
6523: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6525: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6526: RAISE Okl_Api.G_EXCEPTION_ERROR;
6527: END IF;
6528:
6529:
6530: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6526: RAISE Okl_Api.G_EXCEPTION_ERROR;
6527: END IF;
6528:
6529:
6530: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6531:
6532: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6533:
6534: EXCEPTION
6528:
6529:
6530: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6531:
6532: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6533:
6534: EXCEPTION
6535:
6536: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6532: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6533:
6534: EXCEPTION
6535:
6536: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6537: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6538: ( l_api_name,
6539: G_PKG_NAME,
6540: 'OKL_API.G_RET_STS_ERROR',
6533:
6534: EXCEPTION
6535:
6536: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6537: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6538: ( l_api_name,
6539: G_PKG_NAME,
6540: 'OKL_API.G_RET_STS_ERROR',
6541: x_msg_count,
6536: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6537: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6538: ( l_api_name,
6539: G_PKG_NAME,
6540: 'OKL_API.G_RET_STS_ERROR',
6541: x_msg_count,
6542: x_msg_data,
6543: '_PVT'
6544: );
6541: x_msg_count,
6542: x_msg_data,
6543: '_PVT'
6544: );
6545: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6546: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6547: ( l_api_name,
6548: G_PKG_NAME,
6549: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6542: x_msg_data,
6543: '_PVT'
6544: );
6545: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6546: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6547: ( l_api_name,
6548: G_PKG_NAME,
6549: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6550: x_msg_count,
6545: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6546: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6547: ( l_api_name,
6548: G_PKG_NAME,
6549: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6550: x_msg_count,
6551: x_msg_data,
6552: '_PVT'
6553: );
6551: x_msg_data,
6552: '_PVT'
6553: );
6554: WHEN OTHERS THEN
6555: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6556: ( l_api_name,
6557: G_PKG_NAME,
6558: 'OTHERS',
6559: x_msg_count,