46: | Local Variable Declarations and initializations |
47: +-----------------------------------------------------------------------*/
48: l_api_version CONSTANT NUMBER := 1;
49: l_api_name CONSTANT VARCHAR2(30) := 'calculate_tax';
50: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
51:
52: j NUMBER;
53: lx_doc_level_recalc_flag VARCHAR2(1);
54:
340: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_TAX_INTERFACE_PVT.calculate_tax.',
341: 'lx_doc_level_recalc_flag '||lx_doc_level_recalc_flag);
342: END IF;
343:
344: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
345: -- Tax Calculation Failed
346: OKL_API.set_message( p_app_name => 'OKL',
347: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
348: END IF;
342: END IF;
343:
344: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
345: -- Tax Calculation Failed
346: OKL_API.set_message( p_app_name => 'OKL',
347: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
348: END IF;
349: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
345: -- Tax Calculation Failed
346: OKL_API.set_message( p_app_name => 'OKL',
347: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
348: END IF;
349: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
352: RAISE OKL_API.G_EXCEPTION_ERROR;
353: END IF;
346: OKL_API.set_message( p_app_name => 'OKL',
347: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
348: END IF;
349: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
352: RAISE OKL_API.G_EXCEPTION_ERROR;
353: END IF;
354:
347: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
348: END IF;
349: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
352: RAISE OKL_API.G_EXCEPTION_ERROR;
353: END IF;
354:
355: x_return_status := l_return_status;
348: END IF;
349: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
352: RAISE OKL_API.G_EXCEPTION_ERROR;
353: END IF;
354:
355: x_return_status := l_return_status;
356:
358: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.calculate_tax ','End(-)');
359: END IF;
360:
361: EXCEPTION
362: WHEN OKL_API.G_EXCEPTION_ERROR THEN
363:
364: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
365: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
366: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
362: WHEN OKL_API.G_EXCEPTION_ERROR THEN
363:
364: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
365: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
366: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
367: END IF;
368:
369: x_return_status := OKL_API.G_RET_STS_ERROR;
370:
365: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
366: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
367: END IF;
368:
369: x_return_status := OKL_API.G_RET_STS_ERROR;
370:
371: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
372: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
373: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
367: END IF;
368:
369: x_return_status := OKL_API.G_RET_STS_ERROR;
370:
371: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
372: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
373: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
374: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
375: END IF;
370:
371: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
372: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
373: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
374: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
375: END IF;
376:
377: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
378: WHEN OTHERS THEN
373: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
374: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
375: END IF;
376:
377: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
378: WHEN OTHERS THEN
379:
380: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
381: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
381: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
382: 'EXCEPTION :'||sqlerrm);
383: END IF;
384:
385: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
386: -- unexpected error
387: OKL_API.set_message(p_app_name => g_app_name,
388: p_msg_name => g_unexpected_error,
389: p_token1 => g_sqlcode_token,
383: END IF;
384:
385: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
386: -- unexpected error
387: OKL_API.set_message(p_app_name => g_app_name,
388: p_msg_name => g_unexpected_error,
389: p_token1 => g_sqlcode_token,
390: p_token1_value => sqlcode,
391: p_token2 => g_sqlerrm_token,
529: ,p_application_id => p_application_id
530: ,p_internal_organization_id => p_internal_organization_id);
531: END IF;
532:
533: x_return_status := OKL_API.G_RET_STS_SUCCESS;
534:
535: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
536: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.get_tax_classification_code ','End(-)');
537: END IF;
545: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.get_tax_classification_code ',
546: 'EXCEPTION :'||sqlerrm);
547: END IF;
548:
549: OKL_API.set_message(p_app_name => 'OKL',
550: p_msg_name => 'OKL_TX_TAX_CLASS_CODE_ERR'); --'Error getting Default Tax Classification Code.'
551: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
552: -- unexpected error
553: OKL_API.set_message(p_app_name => g_app_name,
547: END IF;
548:
549: OKL_API.set_message(p_app_name => 'OKL',
550: p_msg_name => 'OKL_TX_TAX_CLASS_CODE_ERR'); --'Error getting Default Tax Classification Code.'
551: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
552: -- unexpected error
553: OKL_API.set_message(p_app_name => g_app_name,
554: p_msg_name => g_unexpected_error,
555: p_token1 => g_sqlcode_token,
549: OKL_API.set_message(p_app_name => 'OKL',
550: p_msg_name => 'OKL_TX_TAX_CLASS_CODE_ERR'); --'Error getting Default Tax Classification Code.'
551: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
552: -- unexpected error
553: OKL_API.set_message(p_app_name => g_app_name,
554: p_msg_name => g_unexpected_error,
555: p_token1 => g_sqlcode_token,
556: p_token1_value => sqlcode,
557: p_token2 => g_sqlerrm_token,
600:
601: -- Local variables
602: l_api_version CONSTANT NUMBER := 1;
603: l_api_name CONSTANT VARCHAR2(30) := 'mark_reporting_flag';
604: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
605:
606: BEGIN
607: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
608: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag','Begin(+)');
639: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag.',
640: 'Return Status' || l_return_status);
641: END IF;
642:
643: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
644: -- mark reporting flag failed
645: OKL_API.set_message( p_app_name => 'OKL',
646: p_msg_name => 'OKL_TX_MARK_REPORT_FLAG_ERR');
647: END IF;
641: END IF;
642:
643: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
644: -- mark reporting flag failed
645: OKL_API.set_message( p_app_name => 'OKL',
646: p_msg_name => 'OKL_TX_MARK_REPORT_FLAG_ERR');
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 => 'OKL',
646: p_msg_name => 'OKL_TX_MARK_REPORT_FLAG_ERR');
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_TX_MARK_REPORT_FLAG_ERR');
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: x_return_status := l_return_status;
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: x_return_status := l_return_status;
656:
658: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ','End(-)');
659: END IF;
660:
661: EXCEPTION
662: WHEN OKL_API.G_EXCEPTION_ERROR THEN
663:
664: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
665: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
666: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
662: WHEN OKL_API.G_EXCEPTION_ERROR THEN
663:
664: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
665: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
666: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
667: END IF;
668:
669: x_return_status := OKL_API.G_RET_STS_ERROR;
670:
665: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
666: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
667: END IF;
668:
669: x_return_status := OKL_API.G_RET_STS_ERROR;
670:
671: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
672: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
673: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
667: END IF;
668:
669: x_return_status := OKL_API.G_RET_STS_ERROR;
670:
671: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
672: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
673: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
674: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
675: END IF;
670:
671: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
672: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
673: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
674: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
675: END IF;
676:
677: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
678:
673: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
674: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
675: END IF;
676:
677: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
678:
679: WHEN OTHERS THEN
680:
681: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
682: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
683: 'EXCEPTION :'||sqlerrm);
684: END IF;
685:
686: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
687: -- unexpected error
688: OKL_API.set_message(p_app_name => g_app_name,
689: p_msg_name => g_unexpected_error,
690: p_token1 => g_sqlcode_token,
684: END IF;
685:
686: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
687: -- unexpected error
688: OKL_API.set_message(p_app_name => g_app_name,
689: p_msg_name => g_unexpected_error,
690: p_token1 => g_sqlcode_token,
691: p_token1_value => sqlcode,
692: p_token2 => g_sqlerrm_token,
724: | 24-JAN-07 RRAVIKIR Created
725: *=======================================================================*/
726: PROCEDURE set_tax_security_context(
727: p_api_version IN NUMBER,
728: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
729: x_return_status OUT NOCOPY VARCHAR2,
730: x_msg_count OUT NOCOPY NUMBER,
731: x_msg_data OUT NOCOPY VARCHAR2,
732: p_internal_org_id IN NUMBER,
734: p_transaction_date IN DATE) IS
735:
736: l_api_version CONSTANT NUMBER := 1;
737: l_api_name CONSTANT VARCHAR2(30) := 'set_tax_security_context';
738: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
739:
740: x_effective_date DATE;
741:
742: BEGIN
782: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_TAX_INTERFACE_PVT.set_tax_security_context.',
783: 'Return Status' || l_return_status);
784: END IF;
785:
786: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
787: -- set tax security context failed
788: OKL_API.set_message( p_app_name => 'OKL',
789: p_msg_name => 'OKL_TX_SET_TAX_CNTXT_ERR');
790: END IF;
784: END IF;
785:
786: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
787: -- set tax security context failed
788: OKL_API.set_message( p_app_name => 'OKL',
789: p_msg_name => 'OKL_TX_SET_TAX_CNTXT_ERR');
790: END IF;
791:
792: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
788: OKL_API.set_message( p_app_name => 'OKL',
789: p_msg_name => 'OKL_TX_SET_TAX_CNTXT_ERR');
790: END IF;
791:
792: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
794: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
795: RAISE OKL_API.G_EXCEPTION_ERROR;
796: END IF;
789: p_msg_name => 'OKL_TX_SET_TAX_CNTXT_ERR');
790: END IF;
791:
792: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
794: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
795: RAISE OKL_API.G_EXCEPTION_ERROR;
796: END IF;
797:
790: END IF;
791:
792: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
794: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
795: RAISE OKL_API.G_EXCEPTION_ERROR;
796: END IF;
797:
798: x_return_status := l_return_status;
791:
792: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
794: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
795: RAISE OKL_API.G_EXCEPTION_ERROR;
796: END IF;
797:
798: x_return_status := l_return_status;
799:
801: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ','End(-)');
802: END IF;
803:
804: EXCEPTION
805: WHEN OKL_API.G_EXCEPTION_ERROR THEN
806:
807: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
808: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
809: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
805: WHEN OKL_API.G_EXCEPTION_ERROR THEN
806:
807: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
808: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
809: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
810: END IF;
811:
812: x_return_status := OKL_API.G_RET_STS_ERROR;
813:
808: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
809: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
810: END IF;
811:
812: x_return_status := OKL_API.G_RET_STS_ERROR;
813:
814: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
815: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
816: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
810: END IF;
811:
812: x_return_status := OKL_API.G_RET_STS_ERROR;
813:
814: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
815: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
816: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
817: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
818: END IF;
813:
814: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
815: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
816: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
817: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
818: END IF;
819:
820: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
821:
816: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
817: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
818: END IF;
819:
820: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
821:
822: WHEN OTHERS THEN
823:
824: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
825: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
826: 'EXCEPTION :'||sqlerrm);
827: END IF;
828:
829: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
830: -- unexpected error
831: OKL_API.set_message(p_app_name => g_app_name,
832: p_msg_name => g_unexpected_error,
833: p_token1 => g_sqlcode_token,
827: END IF;
828:
829: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
830: -- unexpected error
831: OKL_API.set_message(p_app_name => g_app_name,
832: p_msg_name => g_unexpected_error,
833: p_token1 => g_sqlcode_token,
834: p_token1_value => sqlcode,
835: p_token2 => g_sqlerrm_token,
884: x_doc_level_recalc_flag OUT NOCOPY VARCHAR2) IS
885:
886: l_api_version CONSTANT NUMBER := 1;
887: l_api_name CONSTANT VARCHAR2(30) := 'process_tax_determ';
888: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
889:
890: x_effective_date DATE;
891: l_ledger_id NUMBER;
892: l_cust_trx_type_id NUMBER;
958: OPEN l_racusttrxtypes_csr;
959: FETCH l_racusttrxtypes_csr INTO l_cust_trx_type_id;
960: IF l_racusttrxtypes_csr%NOTFOUND THEN
961: -- AR Customer Account Trx Type is required
962: OKL_API.set_message( p_msg_name => G_REQUIRED_VALUE,
963: p_token1 => G_COL_NAME_TOKEN,
964: p_token1_value => 'CUST_TRX_TYPE_ID');
965: RAISE OKL_API.G_EXCEPTION_ERROR;
966: END IF;
961: -- AR Customer Account Trx Type is required
962: OKL_API.set_message( p_msg_name => G_REQUIRED_VALUE,
963: p_token1 => G_COL_NAME_TOKEN,
964: p_token1_value => 'CUST_TRX_TYPE_ID');
965: RAISE OKL_API.G_EXCEPTION_ERROR;
966: END IF;
967: CLOSE l_racusttrxtypes_csr;
968:
969: -- Retrieve Ledger Id
1042: OPEN l_fndcurrency_csr(cp_currency_code => l_taxsources_rec.trx_currency_code);
1043: FETCH l_fndcurrency_csr INTO l_fndcurrency_rec;
1044:
1045: IF l_fndcurrency_csr%NOTFOUND THEN
1046: OKL_API.set_message( p_msg_name => G_REQUIRED_VALUE,
1047: p_token1 => G_COL_NAME_TOKEN,
1048: p_token1_value => 'CURRENCY_CODE');
1049: RAISE OKL_API.G_EXCEPTION_ERROR;
1050: END IF;
1045: IF l_fndcurrency_csr%NOTFOUND THEN
1046: OKL_API.set_message( p_msg_name => G_REQUIRED_VALUE,
1047: p_token1 => G_COL_NAME_TOKEN,
1048: p_token1_value => 'CURRENCY_CODE');
1049: RAISE OKL_API.G_EXCEPTION_ERROR;
1050: END IF;
1051: CLOSE l_fndcurrency_csr;
1052: -- End Populate Currency values
1053:
1082: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_TAX_INTERFACE_PVT.process_tax_determ_override.',
1083: 'Return Status' || l_return_status);
1084: END IF;
1085:
1086: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1087: -- Tax Calculation Failed
1088: OKL_API.set_message( p_app_name => 'OKL',
1089: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1090: END IF;
1084: END IF;
1085:
1086: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1087: -- Tax Calculation Failed
1088: OKL_API.set_message( p_app_name => 'OKL',
1089: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1090: END IF;
1091:
1092: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1088: OKL_API.set_message( p_app_name => 'OKL',
1089: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1090: END IF;
1091:
1092: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1094: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1095: RAISE OKL_API.G_EXCEPTION_ERROR;
1096: END IF;
1089: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1090: END IF;
1091:
1092: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1094: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1095: RAISE OKL_API.G_EXCEPTION_ERROR;
1096: END IF;
1097:
1090: END IF;
1091:
1092: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1094: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1095: RAISE OKL_API.G_EXCEPTION_ERROR;
1096: END IF;
1097:
1098: x_return_status := l_return_status;
1091:
1092: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1094: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1095: RAISE OKL_API.G_EXCEPTION_ERROR;
1096: END IF;
1097:
1098: x_return_status := l_return_status;
1099:
1101: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.process_tax_determ_override ','End(-)');
1102: END IF;
1103:
1104: EXCEPTION
1105: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1106:
1107: IF (l_taxsources_csr%ISOPEN) THEN
1108: CLOSE l_taxsources_csr;
1109: END IF;
1117: END IF;
1118:
1119: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1120: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_determ_override ',
1121: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1122: END IF;
1123:
1124: x_return_status := OKL_API.G_RET_STS_ERROR;
1125:
1120: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_determ_override ',
1121: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1122: END IF;
1123:
1124: x_return_status := OKL_API.G_RET_STS_ERROR;
1125:
1126: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1127:
1128: IF (l_taxsources_csr%ISOPEN) THEN
1122: END IF;
1123:
1124: x_return_status := OKL_API.G_RET_STS_ERROR;
1125:
1126: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1127:
1128: IF (l_taxsources_csr%ISOPEN) THEN
1129: CLOSE l_taxsources_csr;
1130: END IF;
1138: END IF;
1139:
1140: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1141: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_determ_override ',
1142: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1143: END IF;
1144:
1145: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1146:
1141: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_determ_override ',
1142: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1143: END IF;
1144:
1145: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1146:
1147: WHEN OTHERS THEN
1148:
1149: IF (l_taxsources_csr%ISOPEN) THEN
1162: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_determ_override ',
1163: 'EXCEPTION :'||sqlerrm);
1164: END IF;
1165:
1166: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1167: -- unexpected error
1168: OKL_API.set_message(p_app_name => g_app_name,
1169: p_msg_name => g_unexpected_error,
1170: p_token1 => g_sqlcode_token,
1164: END IF;
1165:
1166: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1167: -- unexpected error
1168: OKL_API.set_message(p_app_name => g_app_name,
1169: p_msg_name => g_unexpected_error,
1170: p_token1 => g_sqlcode_token,
1171: p_token1_value => sqlcode,
1172: p_token2 => g_sqlerrm_token,
1220: p_event_id IN NUMBER) IS
1221:
1222: l_api_version CONSTANT NUMBER := 1;
1223: l_api_name CONSTANT VARCHAR2(30) := 'process_tax_details';
1224: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1225:
1226: x_effective_date DATE;
1227:
1228: l_transaction_rec transaction_rec_type;
1267: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_TAX_INTERFACE_PVT.process_tax_details_override.',
1268: 'Return Status' || l_return_status);
1269: END IF;
1270:
1271: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1272: -- oevrride tax failed
1273: OKL_API.set_message( p_app_name => 'OKL',
1274: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1275: END IF;
1269: END IF;
1270:
1271: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1272: -- oevrride tax failed
1273: OKL_API.set_message( p_app_name => 'OKL',
1274: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1275: END IF;
1276:
1277: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1273: OKL_API.set_message( p_app_name => 'OKL',
1274: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1275: END IF;
1276:
1277: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1280: RAISE OKL_API.G_EXCEPTION_ERROR;
1281: END IF;
1274: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1275: END IF;
1276:
1277: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1280: RAISE OKL_API.G_EXCEPTION_ERROR;
1281: END IF;
1282:
1275: END IF;
1276:
1277: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1280: RAISE OKL_API.G_EXCEPTION_ERROR;
1281: END IF;
1282:
1283: x_return_status := l_return_status;
1276:
1277: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1280: RAISE OKL_API.G_EXCEPTION_ERROR;
1281: END IF;
1282:
1283: x_return_status := l_return_status;
1284:
1286: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ','End(-)');
1287: END IF;
1288:
1289: EXCEPTION
1290: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1291:
1292: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1293: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1294: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1290: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1291:
1292: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1293: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1294: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1295: END IF;
1296:
1297: x_return_status := OKL_API.G_RET_STS_ERROR;
1298:
1293: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1294: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1295: END IF;
1296:
1297: x_return_status := OKL_API.G_RET_STS_ERROR;
1298:
1299: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1300: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1301: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1295: END IF;
1296:
1297: x_return_status := OKL_API.G_RET_STS_ERROR;
1298:
1299: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1300: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1301: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1302: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1303: END IF;
1298:
1299: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1300: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1301: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1302: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1303: END IF;
1304:
1305: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1306:
1301: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1302: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1303: END IF;
1304:
1305: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1306:
1307: WHEN OTHERS THEN
1308:
1309: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1310: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1311: 'EXCEPTION :'||sqlerrm);
1312: END IF;
1313:
1314: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1315: -- unexpected error
1316: OKL_API.set_message(p_app_name => g_app_name,
1317: p_msg_name => g_unexpected_error,
1318: p_token1 => g_sqlcode_token,
1312: END IF;
1313:
1314: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1315: -- unexpected error
1316: OKL_API.set_message(p_app_name => g_app_name,
1317: p_msg_name => g_unexpected_error,
1318: p_token1 => g_sqlcode_token,
1319: p_token1_value => sqlcode,
1320: p_token2 => g_sqlerrm_token,
1355: |
1356: *=======================================================================*/
1357: PROCEDURE copy_global_tax_data (
1358: p_api_version IN NUMBER,
1359: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1360: x_return_status OUT NOCOPY VARCHAR2,
1361: x_msg_count OUT NOCOPY NUMBER,
1362: x_msg_data OUT NOCOPY VARCHAR2,
1363: p_trx_id IN NUMBER,
1564: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ','End(-)');
1565: END IF;
1566:
1567: EXCEPTION
1568: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1569:
1570: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1571: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1572: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1568: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1569:
1570: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1571: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1572: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1573: END IF;
1574:
1575: x_return_status := OKL_API.G_RET_STS_ERROR;
1576:
1571: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1572: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1573: END IF;
1574:
1575: x_return_status := OKL_API.G_RET_STS_ERROR;
1576:
1577: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1578: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1579: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1573: END IF;
1574:
1575: x_return_status := OKL_API.G_RET_STS_ERROR;
1576:
1577: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1578: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1579: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1580: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1581: END IF;
1576:
1577: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1578: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1579: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1580: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1581: END IF;
1582:
1583: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1584: WHEN OTHERS THEN
1579: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1580: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1581: END IF;
1582:
1583: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1584: WHEN OTHERS THEN
1585:
1586: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1587: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1587: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1588: 'EXCEPTION :'||sqlerrm);
1589: END IF;
1590:
1591: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1592: -- unexpected error
1593: OKL_API.set_message(p_app_name => g_app_name,
1594: p_msg_name => g_unexpected_error,
1595: p_token1 => g_sqlcode_token,
1589: END IF;
1590:
1591: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1592: -- unexpected error
1593: OKL_API.set_message(p_app_name => g_app_name,
1594: p_msg_name => g_unexpected_error,
1595: p_token1 => g_sqlcode_token,
1596: p_token1_value => sqlcode,
1597: p_token2 => g_sqlerrm_token,
1628: |
1629: *=======================================================================*/
1630: PROCEDURE update_document (
1631: p_api_version IN NUMBER,
1632: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1633: x_return_status OUT NOCOPY VARCHAR2,
1634: x_msg_count OUT NOCOPY NUMBER,
1635: x_msg_data OUT NOCOPY VARCHAR2,
1636: p_transaction_rec transaction_rec_type) IS
1637:
1638: -- Local variables
1639: l_api_version CONSTANT NUMBER := 1;
1640: l_api_name CONSTANT VARCHAR2(30) := 'update_document';
1641: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1642:
1643: -- Local dats structure
1644: l_transaction_rec transaction_rec_type;
1645:
1674: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_TAX_INTERFACE_PVT.update_document.',
1675: 'Return Status' || l_return_status);
1676: END IF;
1677:
1678: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1679: -- update document failed
1680: OKL_API.set_message( p_app_name => 'OKL',
1681: p_msg_name => 'OKL_TX_CANCEL_TAX_ERR');
1682: END IF;
1676: END IF;
1677:
1678: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1679: -- update document failed
1680: OKL_API.set_message( p_app_name => 'OKL',
1681: p_msg_name => 'OKL_TX_CANCEL_TAX_ERR');
1682: END IF;
1683:
1684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1680: OKL_API.set_message( p_app_name => 'OKL',
1681: p_msg_name => 'OKL_TX_CANCEL_TAX_ERR');
1682: END IF;
1683:
1684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1687: RAISE OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1681: p_msg_name => 'OKL_TX_CANCEL_TAX_ERR');
1682: END IF;
1683:
1684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1687: RAISE OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1689:
1682: END IF;
1683:
1684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1687: RAISE OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1689:
1690: x_return_status := l_return_status;
1683:
1684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1687: RAISE OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1689:
1690: x_return_status := l_return_status;
1691:
1693: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.update_document ','End(-)');
1694: END IF;
1695:
1696: EXCEPTION
1697: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1698:
1699: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1700: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1701: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1697: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1698:
1699: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1700: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1701: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1702: END IF;
1703:
1704: x_return_status := OKL_API.G_RET_STS_ERROR;
1705:
1700: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1701: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1702: END IF;
1703:
1704: x_return_status := OKL_API.G_RET_STS_ERROR;
1705:
1706: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1707: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1708: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1702: END IF;
1703:
1704: x_return_status := OKL_API.G_RET_STS_ERROR;
1705:
1706: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1707: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1708: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1709: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1710: END IF;
1705:
1706: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1707: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1708: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1709: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1710: END IF;
1711:
1712: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1713:
1708: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1709: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1710: END IF;
1711:
1712: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1713:
1714: WHEN OTHERS THEN
1715:
1716: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1717: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1718: 'EXCEPTION :'||sqlerrm);
1719: END IF;
1720:
1721: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1722: -- unexpected error
1723: OKL_API.set_message(p_app_name => g_app_name,
1724: p_msg_name => g_unexpected_error,
1725: p_token1 => g_sqlcode_token,
1719: END IF;
1720:
1721: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1722: -- unexpected error
1723: OKL_API.set_message(p_app_name => g_app_name,
1724: p_msg_name => g_unexpected_error,
1725: p_token1 => g_sqlcode_token,
1726: p_token1_value => sqlcode,
1727: p_token2 => g_sqlerrm_token,
1759: |
1760: *=======================================================================*/
1761: PROCEDURE reverse_document (
1762: p_api_version IN NUMBER,
1763: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1764: x_return_status OUT NOCOPY VARCHAR2,
1765: x_msg_count OUT NOCOPY NUMBER,
1766: x_msg_data OUT NOCOPY VARCHAR2,
1767: p_rev_trx_hdr_rec IN line_params_rec_type,
1769:
1770: -- Local variables
1771: l_api_version CONSTANT NUMBER := 1;
1772: l_api_name CONSTANT VARCHAR2(30) := 'reverse_document';
1773: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1774:
1775: -- Local data structure
1776: l_rev_trx_lines_tbl zx_trx_lines_tbl_type;
1777: k NUMBER;
1871: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_TAX_INTERFACE_PVT.reverse_document.',
1872: 'Return Status' || l_return_status);
1873: END IF;
1874:
1875: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1876: -- reverse document failed
1877: OKL_API.set_message( p_app_name => 'OKL',
1878: p_msg_name => 'OKL_TX_REVERSE_DOC_ERR');
1879: END IF;
1873: END IF;
1874:
1875: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1876: -- reverse document failed
1877: OKL_API.set_message( p_app_name => 'OKL',
1878: p_msg_name => 'OKL_TX_REVERSE_DOC_ERR');
1879: END IF;
1880:
1881: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1877: OKL_API.set_message( p_app_name => 'OKL',
1878: p_msg_name => 'OKL_TX_REVERSE_DOC_ERR');
1879: END IF;
1880:
1881: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1883: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1884: RAISE OKL_API.G_EXCEPTION_ERROR;
1885: END IF;
1878: p_msg_name => 'OKL_TX_REVERSE_DOC_ERR');
1879: END IF;
1880:
1881: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1883: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1884: RAISE OKL_API.G_EXCEPTION_ERROR;
1885: END IF;
1886: -- call ZX reverse document api -- end
1879: END IF;
1880:
1881: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1883: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1884: RAISE OKL_API.G_EXCEPTION_ERROR;
1885: END IF;
1886: -- call ZX reverse document api -- end
1887:
1880:
1881: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1883: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1884: RAISE OKL_API.G_EXCEPTION_ERROR;
1885: END IF;
1886: -- call ZX reverse document api -- end
1887:
1888: x_return_status := l_return_status;
1891: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.reverse_document ','End(-)');
1892: END IF;
1893:
1894: EXCEPTION
1895: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1896:
1897: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1898: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1899: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1895: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1896:
1897: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1898: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1899: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1900: END IF;
1901:
1902: x_return_status := OKL_API.G_RET_STS_ERROR;
1903:
1898: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1899: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1900: END IF;
1901:
1902: x_return_status := OKL_API.G_RET_STS_ERROR;
1903:
1904: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1905: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1906: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1900: END IF;
1901:
1902: x_return_status := OKL_API.G_RET_STS_ERROR;
1903:
1904: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1905: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1906: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1907: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1908: END IF;
1903:
1904: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1905: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1906: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1907: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1908: END IF;
1909:
1910: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1911:
1906: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1907: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1908: END IF;
1909:
1910: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1911:
1912: WHEN OTHERS THEN
1913:
1914: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1915: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1916: 'EXCEPTION :'||sqlerrm);
1917: END IF;
1918:
1919: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1920: -- unexpected error
1921: OKL_API.set_message(p_app_name => g_app_name,
1922: p_msg_name => g_unexpected_error,
1923: p_token1 => g_sqlcode_token,
1917: END IF;
1918:
1919: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1920: -- unexpected error
1921: OKL_API.set_message(p_app_name => g_app_name,
1922: p_msg_name => g_unexpected_error,
1923: p_token1 => g_sqlcode_token,
1924: p_token1_value => sqlcode,
1925: p_token2 => g_sqlerrm_token,