25: | 18-Jul-2006 dkagrawa Bug 5378114 MOAC changes |
26: +===========================================================================*/
27:
28: PROCEDURE create_adjustments ( p_api_version IN NUMBER
29: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
30: ,x_return_status OUT NOCOPY VARCHAR2
31: ,x_msg_count OUT NOCOPY NUMBER
32: ,x_msg_data OUT NOCOPY VARCHAR2
33: )IS
139: ,p_msg_name =>'OKL_BPD_RECV_ACTVTY_NOT_SET'
140: );
141:
142: --RAISE G_EXCEPTION_HALT_VALIDATION; --bug 6727171
143: RAISE OKL_API.G_EXCEPTION_ERROR; -- bug 6727171
144: END IF;
145:
146: OPEN c_get_adjustments;
147: LOOP
225: OPEN c_get_cont_num(l_payment_schedule_id);
226: FETCH c_get_cont_num INTO l_contract_number;
227: CLOSE c_get_cont_num;
228:
229: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) OR
230: (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
231:
232: OKC_API.set_message( p_app_name => G_APP_NAME
233: ,p_msg_name => 'OKL_BPD_NO_ADJUST_CREATED'
226: FETCH c_get_cont_num INTO l_contract_number;
227: CLOSE c_get_cont_num;
228:
229: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) OR
230: (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
231:
232: OKC_API.set_message( p_app_name => G_APP_NAME
233: ,p_msg_name => 'OKL_BPD_NO_ADJUST_CREATED'
234: ,p_token1 => 'CONTRACT_NUMBER'
277: END;
278: END IF;
279: -- End of wraper code generated automatically by Debug code generator for OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS
280:
281: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
283: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
284: RAISE OKL_API.G_EXCEPTION_ERROR;
285: END IF;
278: END IF;
279: -- End of wraper code generated automatically by Debug code generator for OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS
280:
281: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
283: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
284: RAISE OKL_API.G_EXCEPTION_ERROR;
285: END IF;
286:
279: -- End of wraper code generated automatically by Debug code generator for OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS
280:
281: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
283: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
284: RAISE OKL_API.G_EXCEPTION_ERROR;
285: END IF;
286:
287: EXIT;
280:
281: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
283: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
284: RAISE OKL_API.G_EXCEPTION_ERROR;
285: END IF;
286:
287: EXIT;
288:
295:
296: EXCEPTION
297:
298: WHEN OTHERS THEN
299: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
300: x_msg_count := l_msg_count ;
301: x_msg_data := l_msg_data ;
302:
303: END create_adjustments;
335: +===========================================================================*/
336:
337:
338: PROCEDURE iex_create_adjustments ( p_api_version IN NUMBER
339: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
340: ,p_commit_flag IN VARCHAR2 DEFAULT OKL_API.G_TRUE
341: ,p_psl_id IN NUMBER
342: ,p_chk_approval_limits IN VARCHAR2 DEFAULT OKL_API.G_TRUE
343: ,x_new_adj_id OUT NOCOPY NUMBER
336:
337:
338: PROCEDURE iex_create_adjustments ( p_api_version IN NUMBER
339: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
340: ,p_commit_flag IN VARCHAR2 DEFAULT OKL_API.G_TRUE
341: ,p_psl_id IN NUMBER
342: ,p_chk_approval_limits IN VARCHAR2 DEFAULT OKL_API.G_TRUE
343: ,x_new_adj_id OUT NOCOPY NUMBER
344: ,x_return_status OUT NOCOPY VARCHAR2
338: PROCEDURE iex_create_adjustments ( p_api_version IN NUMBER
339: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
340: ,p_commit_flag IN VARCHAR2 DEFAULT OKL_API.G_TRUE
341: ,p_psl_id IN NUMBER
342: ,p_chk_approval_limits IN VARCHAR2 DEFAULT OKL_API.G_TRUE
343: ,x_new_adj_id OUT NOCOPY NUMBER
344: ,x_return_status OUT NOCOPY VARCHAR2
345: ,x_msg_count OUT NOCOPY NUMBER
346: ,x_msg_data OUT NOCOPY VARCHAR2
600: ,p_msg_name =>'OKL_BPD_RECV_ACTVTY_NOT_SET'
601: );
602:
603: --RAISE G_EXCEPTION_HALT_VALIDATION; -- bug 6727171
604: RAISE OKL_API.G_EXCEPTION_ERROR; -- bug 6727171
605: END IF;
606:
607: -- 19-Sep-05 varao bug 4505226 Start
608: -- Get the payment schedule details
623: FETCH c_try_id INTO l_try_id;
624: CLOSE c_try_id;
625:
626: IF l_try_id IS NULL THEN
627: OKL_API.set_message(p_app_name => G_APP_NAME,
628: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
629: p_token1 => 'TRY_NAME',
630: p_token1_value => 'Adjustments');
631: RAISE OKL_API.G_EXCEPTION_ERROR;
627: OKL_API.set_message(p_app_name => G_APP_NAME,
628: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
629: p_token1 => 'TRY_NAME',
630: p_token1_value => 'Adjustments');
631: RAISE OKL_API.G_EXCEPTION_ERROR;
632: END IF;
633: l_adjv_rec.try_id :=l_try_id;
634: --Bug 6316320 dpsingh end
635: okl_trx_ar_adjsts_pub.insert_trx_ar_adjsts(
640: ,x_msg_data => l_msg_data
641: ,p_adjv_rec => l_adjv_rec
642: ,x_adjv_rec => x_adjv_rec);
643:
644: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
645: OKL_API.set_message( p_app_name => G_APP_NAME,
646: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
647: END IF;
648:
641: ,p_adjv_rec => l_adjv_rec
642: ,x_adjv_rec => x_adjv_rec);
643:
644: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
645: OKL_API.set_message( p_app_name => G_APP_NAME,
646: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
647: END IF;
648:
649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
645: OKL_API.set_message( p_app_name => G_APP_NAME,
646: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
647: END IF;
648:
649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
652: RAISE OKL_API.G_EXCEPTION_ERROR;
653: END IF;
646: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
647: END IF;
648:
649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
652: RAISE OKL_API.G_EXCEPTION_ERROR;
653: END IF;
654:
647: END IF;
648:
649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
652: RAISE OKL_API.G_EXCEPTION_ERROR;
653: END IF;
654:
655: -- Create adjusment line record in okl_txl_adjsts_lns_b
648:
649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
652: RAISE OKL_API.G_EXCEPTION_ERROR;
653: END IF;
654:
655: -- Create adjusment line record in okl_txl_adjsts_lns_b
656: l_ajlv_rec.adj_id := x_adjv_rec.id;
659: l_ajlv_rec.til_id := c_pmnt_schedule_dtls_rec.til_id;
660:
661: IF c_pmnt_schedule_dtls_rec.tld_id <> -999
662: AND c_pmnt_schedule_dtls_rec.tld_id IS NOT NULL
663: AND c_pmnt_schedule_dtls_rec.tld_id <> OKL_API.G_MISS_NUM THEN
664: l_ajlv_rec.tld_id := c_pmnt_schedule_dtls_rec.tld_id;
665: END IF;
666:
667: -- Bug 7138249 start
675: l_trans_meaning := OKL_AM_UTIL_PVT.get_lookup_meaning(
676: p_lookup_type => 'OKL_ACCOUNTING_EVENT_TYPE',
677: p_lookup_code=> 'ADJUSTMENTS',
678: p_validate_yn => 'Y');
679: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
680: OKL_API.set_message(
681: p_app_name => G_APP_NAME,
682: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
683: p_token1 => 'TRY_NAME',
676: p_lookup_type => 'OKL_ACCOUNTING_EVENT_TYPE',
677: p_lookup_code=> 'ADJUSTMENTS',
678: p_validate_yn => 'Y');
679: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
680: OKL_API.set_message(
681: p_app_name => G_APP_NAME,
682: p_msg_name => 'OKL_AM_NO_TRX_TYPE_FOUND',
683: p_token1 => 'TRY_NAME',
684: p_token1_value => l_trans_meaning);
701: x_currency_conversion_type => l_currency_conversion_type,
702: x_currency_conversion_rate => l_currency_conversion_rate,
703: x_currency_conversion_date => l_currency_conversion_date,
704: x_converted_amount => l_converted_amount);
705: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
706: OKL_API.set_message(
707: p_app_name => G_APP_NAME,
708: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
709: p_token1 => 'TRX_TYPE',
702: x_currency_conversion_rate => l_currency_conversion_rate,
703: x_currency_conversion_date => l_currency_conversion_date,
704: x_converted_amount => l_converted_amount);
705: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
706: OKL_API.set_message(
707: p_app_name => G_APP_NAME,
708: p_msg_name => 'OKL_AM_ERR_ACC_ENT',
709: p_token1 => 'TRX_TYPE',
710: p_token1_value => l_trans_meaning);
714: 'OKL_CREATE_ADJST_PVT.write_off_balances.',
715: 'currency_conv_error = '||l_return_status );
716: END IF;
717:
718: RAISE OKL_API.G_EXCEPTION_ERROR;
719:
720: END IF;
721:
722: -- Bug 7138249 end
734: ,x_msg_data => l_msg_data
735: ,p_ajlv_rec => l_ajlv_rec
736: ,x_ajlv_rec => x_ajlv_rec);
737:
738: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
739: OKL_API.set_message( p_app_name => G_APP_NAME,
740: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
741: END IF;
742:
735: ,p_ajlv_rec => l_ajlv_rec
736: ,x_ajlv_rec => x_ajlv_rec);
737:
738: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
739: OKL_API.set_message( p_app_name => G_APP_NAME,
740: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
741: END IF;
742:
743: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
739: OKL_API.set_message( p_app_name => G_APP_NAME,
740: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
741: END IF;
742:
743: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
744: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
745: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
746: RAISE OKL_API.G_EXCEPTION_ERROR;
747: END IF;
740: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
741: END IF;
742:
743: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
744: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
745: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
746: RAISE OKL_API.G_EXCEPTION_ERROR;
747: END IF;
748:
741: END IF;
742:
743: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
744: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
745: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
746: RAISE OKL_API.G_EXCEPTION_ERROR;
747: END IF;
748:
749: -- Get the product id
742:
743: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
744: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
745: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
746: RAISE OKL_API.G_EXCEPTION_ERROR;
747: END IF;
748:
749: -- Get the product id
750: OPEN c_prod_id(c_pmnt_schedule_dtls_rec.contract_id);
753:
754: l_contract_number := c_pmnt_schedule_dtls_rec.contract_number;
755:
756: IF l_pdt_id IS NULL OR l_pdt_id = 0 THEN
757: OKL_API.set_message(p_app_name => G_APP_NAME,
758: p_msg_name => 'OKL_AM_PRODUCT_ID_ERROR',
759: p_token1 => 'CONTRACT_NUMBER',
760: p_token1_value => l_contract_number);
761: RAISE OKL_API.G_EXCEPTION_ERROR;
757: OKL_API.set_message(p_app_name => G_APP_NAME,
758: p_msg_name => 'OKL_AM_PRODUCT_ID_ERROR',
759: p_token1 => 'CONTRACT_NUMBER',
760: p_token1_value => l_contract_number);
761: RAISE OKL_API.G_EXCEPTION_ERROR;
762: END IF;
763:
764: -- Do accounting entries to get code_combination_id
765: -- Set the tmpl_identify_rec in parameter
792: p_contract_line_id => NULL,
793: x_acc_gen_tbl => l_acc_gen_primary_key_tbl,
794: x_return_status => l_return_status);
795:
796: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
798: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
799: RAISE OKL_API.G_EXCEPTION_ERROR;
800: END IF;
793: x_acc_gen_tbl => l_acc_gen_primary_key_tbl,
794: x_return_status => l_return_status);
795:
796: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
798: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
799: RAISE OKL_API.G_EXCEPTION_ERROR;
800: END IF;
801:
794: x_return_status => l_return_status);
795:
796: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
798: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
799: RAISE OKL_API.G_EXCEPTION_ERROR;
800: END IF;
801:
802: l_acc_gen_tbl(1).acc_gen_key_tbl := l_acc_gen_primary_key_tbl;
795:
796: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
798: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
799: RAISE OKL_API.G_EXCEPTION_ERROR;
800: END IF;
801:
802: l_acc_gen_tbl(1).acc_gen_key_tbl := l_acc_gen_primary_key_tbl;
803: l_acc_gen_tbl(1).source_id := x_ajlv_rec.id;
814: ,p_trx_date => sysdate
815: ,x_fact_synd_code => l_tmpl_identify_tbl(1).FACTORING_SYND_FLAG
816: ,x_inv_acct_code => l_tmpl_identify_tbl(1).INVESTOR_CODE);
817:
818: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
820: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
821: RAISE OKL_API.G_EXCEPTION_ERROR;
822: END IF;
815: ,x_fact_synd_code => l_tmpl_identify_tbl(1).FACTORING_SYND_FLAG
816: ,x_inv_acct_code => l_tmpl_identify_tbl(1).INVESTOR_CODE);
817:
818: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
820: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
821: RAISE OKL_API.G_EXCEPTION_ERROR;
822: END IF;
823: -- 19-Sep-05 varao bug 4622198 End
816: ,x_inv_acct_code => l_tmpl_identify_tbl(1).INVESTOR_CODE);
817:
818: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
820: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
821: RAISE OKL_API.G_EXCEPTION_ERROR;
822: END IF;
823: -- 19-Sep-05 varao bug 4622198 End
824:
817:
818: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
820: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
821: RAISE OKL_API.G_EXCEPTION_ERROR;
822: END IF;
823: -- 19-Sep-05 varao bug 4622198 End
824:
825: -- Call accounting engine
838: x_amount_tbl => l_amount_out_tbl,
839: p_trx_header_id => x_adjv_rec.id,
840: p_trx_header_table =>'OKL_TRX_AR_ADJSTS_B');
841:
842: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
843: OKL_API.set_message( p_app_name => G_APP_NAME,
844: p_msg_name => 'OKL_AM_ERR_ACC_ENT_MSG',
845: p_token1 => 'TRX_TYPE',
846: p_token1_value => 'Adjustments',
839: p_trx_header_id => x_adjv_rec.id,
840: p_trx_header_table =>'OKL_TRX_AR_ADJSTS_B');
841:
842: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
843: OKL_API.set_message( p_app_name => G_APP_NAME,
844: p_msg_name => 'OKL_AM_ERR_ACC_ENT_MSG',
845: p_token1 => 'TRX_TYPE',
846: p_token1_value => 'Adjustments',
847: p_token2 => 'STREAM_TYPE',
847: p_token2 => 'STREAM_TYPE',
848: p_token2_value => c_pmnt_schedule_dtls_rec.stream_name);
849: END IF;
850:
851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
854: RAISE OKL_API.G_EXCEPTION_ERROR;
855: END IF;
848: p_token2_value => c_pmnt_schedule_dtls_rec.stream_name);
849: END IF;
850:
851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
854: RAISE OKL_API.G_EXCEPTION_ERROR;
855: END IF;
856:
849: END IF;
850:
851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
854: RAISE OKL_API.G_EXCEPTION_ERROR;
855: END IF;
856:
857: OPEN get_account_derivation_meth;
850:
851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
854: RAISE OKL_API.G_EXCEPTION_ERROR;
855: END IF;
856:
857: OPEN get_account_derivation_meth;
858: FETCH get_account_derivation_meth INTO l_account_derivation;
864: FETCH c_code_combination_id INTO l_code_combination_id;
865: CLOSE c_code_combination_id;
866:
867: IF l_code_combination_id = -1 OR l_code_combination_id IS NULL THEN
868: OKL_API.set_message( p_app_name => G_APP_NAME,
869: p_msg_name => 'OKL_AM_CODE_CMB_ERROR',
870: p_token1 => 'CONTRACT_NUMBER',
871: p_token1_value => l_contract_number);
872: RAISE OKL_API.G_EXCEPTION_ERROR;
868: OKL_API.set_message( p_app_name => G_APP_NAME,
869: p_msg_name => 'OKL_AM_CODE_CMB_ERROR',
870: p_token1 => 'CONTRACT_NUMBER',
871: p_token1_value => l_contract_number);
872: RAISE OKL_API.G_EXCEPTION_ERROR;
873: END IF;
874:
875: -- Update adjusment line record in okl_txl_adjsts_lns_b with CCID
876: l_ajlv_rec := l_ajlv_new_rec; -- Empty the rec
889: x_msg_data => l_msg_data,
890: p_ajlv_rec => l_ajlv_rec,
891: x_ajlv_rec => x_ajlv_rec);
892:
893: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
894: OKL_API.set_message( p_app_name => G_APP_NAME,
895: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
896: END IF;
897:
890: p_ajlv_rec => l_ajlv_rec,
891: x_ajlv_rec => x_ajlv_rec);
892:
893: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
894: OKL_API.set_message( p_app_name => G_APP_NAME,
895: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
896: END IF;
897:
898: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
894: OKL_API.set_message( p_app_name => G_APP_NAME,
895: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
896: END IF;
897:
898: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
900: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
901: RAISE OKL_API.G_EXCEPTION_ERROR;
902: END IF;
895: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
896: END IF;
897:
898: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
900: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
901: RAISE OKL_API.G_EXCEPTION_ERROR;
902: END IF;
903: END IF;
896: END IF;
897:
898: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
900: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
901: RAISE OKL_API.G_EXCEPTION_ERROR;
902: END IF;
903: END IF;
904: -- 19-Sep-05 varao bug 4505226 End
897:
898: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
900: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
901: RAISE OKL_API.G_EXCEPTION_ERROR;
902: END IF;
903: END IF;
904: -- 19-Sep-05 varao bug 4505226 End
905:
992: FETCH c_get_cont_num INTO l_contract_number;
993: CLOSE c_get_cont_num;
994: */
995:
996: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) OR
997: (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
998:
999: OKC_API.set_message( p_app_name => G_APP_NAME
1000: ,p_msg_name => 'OKL_BPD_NO_ADJUST_CREATED'
993: CLOSE c_get_cont_num;
994: */
995:
996: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) OR
997: (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
998:
999: OKC_API.set_message( p_app_name => G_APP_NAME
1000: ,p_msg_name => 'OKL_BPD_NO_ADJUST_CREATED'
1001: ,p_token1 => 'CONTRACT_NUMBER'
1003: ,p_token2 => 'AMOUNT'
1004: ,p_token2_value => l_amount
1005: );
1006:
1007: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1009: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_ERROR;
1011: END IF;
1004: ,p_token2_value => l_amount
1005: );
1006:
1007: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1009: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_ERROR;
1011: END IF;
1012:
1005: );
1006:
1007: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1009: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_ERROR;
1011: END IF;
1012:
1013: EXIT;
1006:
1007: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1009: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_ERROR;
1011: END IF;
1012:
1013: EXIT;
1014:
1052: END;
1053: END IF;
1054: -- End of wraper code generated automatically by Debug code generator for OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS
1055:
1056: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1057: OKL_API.set_message( p_app_name => G_APP_NAME,
1058: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
1059: END IF;
1060:
1053: END IF;
1054: -- End of wraper code generated automatically by Debug code generator for OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS
1055:
1056: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1057: OKL_API.set_message( p_app_name => G_APP_NAME,
1058: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
1059: END IF;
1060:
1061: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1057: OKL_API.set_message( p_app_name => G_APP_NAME,
1058: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
1059: END IF;
1060:
1061: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1063: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1064: RAISE OKL_API.G_EXCEPTION_ERROR;
1065: END IF;
1058: p_msg_name => 'OKL_AM_ERR_ADJST_BAL');
1059: END IF;
1060:
1061: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1063: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1064: RAISE OKL_API.G_EXCEPTION_ERROR;
1065: END IF;
1066:
1059: END IF;
1060:
1061: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1063: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1064: RAISE OKL_API.G_EXCEPTION_ERROR;
1065: END IF;
1066:
1067: EXIT;
1060:
1061: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1063: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1064: RAISE OKL_API.G_EXCEPTION_ERROR;
1065: END IF;
1066:
1067: EXIT;
1068:
1074: x_return_status := l_return_status;
1075:
1076: ELSE
1077:
1078: Okl_api.set_message( p_app_name => g_app_name
1079: , p_msg_name => 'OKL_NO_RECORD' ) ;
1080: RAISE OKL_API.G_EXCEPTION_ERROR;
1081:
1082: END IF;
1076: ELSE
1077:
1078: Okl_api.set_message( p_app_name => g_app_name
1079: , p_msg_name => 'OKL_NO_RECORD' ) ;
1080: RAISE OKL_API.G_EXCEPTION_ERROR;
1081:
1082: END IF;
1083:
1084: EXCEPTION
1083:
1084: EXCEPTION
1085:
1086: --Added snizam
1087: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1088: x_return_status := Okl_Api.G_RET_STS_ERROR;
1089: x_msg_count := l_msg_count ;
1090: x_msg_data := l_msg_data ;
1091:
1084: EXCEPTION
1085:
1086: --Added snizam
1087: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1088: x_return_status := Okl_Api.G_RET_STS_ERROR;
1089: x_msg_count := l_msg_count ;
1090: x_msg_data := l_msg_data ;
1091:
1092: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1088: x_return_status := Okl_Api.G_RET_STS_ERROR;
1089: x_msg_count := l_msg_count ;
1090: x_msg_data := l_msg_data ;
1091:
1092: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1093: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1094: x_msg_count := l_msg_count ;
1095: x_msg_data := l_msg_data ;
1096: --End snizam
1089: x_msg_count := l_msg_count ;
1090: x_msg_data := l_msg_data ;
1091:
1092: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1093: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1094: x_msg_count := l_msg_count ;
1095: x_msg_data := l_msg_data ;
1096: --End snizam
1097:
1095: x_msg_data := l_msg_data ;
1096: --End snizam
1097:
1098: WHEN OTHERS THEN
1099: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1100: x_msg_count := l_msg_count ;
1101: x_msg_data := l_msg_data ;
1102:
1103: END iex_create_adjustments;