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:
309: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_TAX_INTERFACE_PVT.calculate_tax.',
310: 'lx_doc_level_recalc_flag '||lx_doc_level_recalc_flag);
311: END IF;
312:
313: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
314: -- Tax Calculation Failed
315: OKL_API.set_message( p_app_name => 'OKL',
316: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
317: END IF;
311: END IF;
312:
313: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
314: -- Tax Calculation Failed
315: OKL_API.set_message( p_app_name => 'OKL',
316: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
317: END IF;
318: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
314: -- Tax Calculation Failed
315: OKL_API.set_message( p_app_name => 'OKL',
316: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
317: END IF;
318: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
320: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
321: RAISE OKL_API.G_EXCEPTION_ERROR;
322: END IF;
315: OKL_API.set_message( p_app_name => 'OKL',
316: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
317: END IF;
318: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
320: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
321: RAISE OKL_API.G_EXCEPTION_ERROR;
322: END IF;
323:
316: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
317: END IF;
318: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
320: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
321: RAISE OKL_API.G_EXCEPTION_ERROR;
322: END IF;
323:
324: x_return_status := l_return_status;
317: END IF;
318: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
320: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
321: RAISE OKL_API.G_EXCEPTION_ERROR;
322: END IF;
323:
324: x_return_status := l_return_status;
325:
327: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.calculate_tax ','End(-)');
328: END IF;
329:
330: EXCEPTION
331: WHEN OKL_API.G_EXCEPTION_ERROR THEN
332:
333: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
334: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
335: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
331: WHEN OKL_API.G_EXCEPTION_ERROR THEN
332:
333: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
334: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
335: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
336: END IF;
337:
338: x_return_status := OKL_API.G_RET_STS_ERROR;
339:
334: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
335: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
336: END IF;
337:
338: x_return_status := OKL_API.G_RET_STS_ERROR;
339:
340: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
341: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
336: END IF;
337:
338: x_return_status := OKL_API.G_RET_STS_ERROR;
339:
340: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
341: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
343: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
344: END IF;
339:
340: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
341: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
343: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
344: END IF;
345:
346: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
347: WHEN OTHERS THEN
342: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
343: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
344: END IF;
345:
346: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
347: WHEN OTHERS THEN
348:
349: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
350: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
350: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.calculate_tax ',
351: 'EXCEPTION :'||sqlerrm);
352: END IF;
353:
354: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
355: -- unexpected error
356: OKL_API.set_message(p_app_name => g_app_name,
357: p_msg_name => g_unexpected_error,
358: p_token1 => g_sqlcode_token,
352: END IF;
353:
354: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
355: -- unexpected error
356: OKL_API.set_message(p_app_name => g_app_name,
357: p_msg_name => g_unexpected_error,
358: p_token1 => g_sqlcode_token,
359: p_token1_value => sqlcode,
360: p_token2 => g_sqlerrm_token,
498: ,p_application_id => p_application_id
499: ,p_internal_organization_id => p_internal_organization_id);
500: END IF;
501:
502: x_return_status := OKL_API.G_RET_STS_SUCCESS;
503:
504: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
505: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.get_tax_classification_code ','End(-)');
506: END IF;
514: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.get_tax_classification_code ',
515: 'EXCEPTION :'||sqlerrm);
516: END IF;
517:
518: OKL_API.set_message(p_app_name => 'OKL',
519: p_msg_name => 'OKL_TX_TAX_CLASS_CODE_ERR'); --'Error getting Default Tax Classification Code.'
520: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
521: -- unexpected error
522: OKL_API.set_message(p_app_name => g_app_name,
516: END IF;
517:
518: OKL_API.set_message(p_app_name => 'OKL',
519: p_msg_name => 'OKL_TX_TAX_CLASS_CODE_ERR'); --'Error getting Default Tax Classification Code.'
520: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
521: -- unexpected error
522: OKL_API.set_message(p_app_name => g_app_name,
523: p_msg_name => g_unexpected_error,
524: p_token1 => g_sqlcode_token,
518: OKL_API.set_message(p_app_name => 'OKL',
519: p_msg_name => 'OKL_TX_TAX_CLASS_CODE_ERR'); --'Error getting Default Tax Classification Code.'
520: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
521: -- unexpected error
522: OKL_API.set_message(p_app_name => g_app_name,
523: p_msg_name => g_unexpected_error,
524: p_token1 => g_sqlcode_token,
525: p_token1_value => sqlcode,
526: p_token2 => g_sqlerrm_token,
569:
570: -- Local variables
571: l_api_version CONSTANT NUMBER := 1;
572: l_api_name CONSTANT VARCHAR2(30) := 'mark_reporting_flag';
573: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
574:
575: BEGIN
576: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
577: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag','Begin(+)');
608: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag.',
609: 'Return Status' || l_return_status);
610: END IF;
611:
612: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
613: -- mark reporting flag failed
614: OKL_API.set_message( p_app_name => 'OKL',
615: p_msg_name => 'OKL_TX_MARK_REPORT_FLAG_ERR');
616: END IF;
610: END IF;
611:
612: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
613: -- mark reporting flag failed
614: OKL_API.set_message( p_app_name => 'OKL',
615: p_msg_name => 'OKL_TX_MARK_REPORT_FLAG_ERR');
616: END IF;
617:
618: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
614: OKL_API.set_message( p_app_name => 'OKL',
615: p_msg_name => 'OKL_TX_MARK_REPORT_FLAG_ERR');
616: END IF;
617:
618: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
620: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
621: RAISE OKL_API.G_EXCEPTION_ERROR;
622: END IF;
615: p_msg_name => 'OKL_TX_MARK_REPORT_FLAG_ERR');
616: END IF;
617:
618: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
620: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
621: RAISE OKL_API.G_EXCEPTION_ERROR;
622: END IF;
623:
616: END IF;
617:
618: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
620: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
621: RAISE OKL_API.G_EXCEPTION_ERROR;
622: END IF;
623:
624: x_return_status := l_return_status;
617:
618: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
620: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
621: RAISE OKL_API.G_EXCEPTION_ERROR;
622: END IF;
623:
624: x_return_status := l_return_status;
625:
627: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ','End(-)');
628: END IF;
629:
630: EXCEPTION
631: WHEN OKL_API.G_EXCEPTION_ERROR THEN
632:
633: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
634: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
635: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
631: WHEN OKL_API.G_EXCEPTION_ERROR THEN
632:
633: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
634: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
635: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
636: END IF;
637:
638: x_return_status := OKL_API.G_RET_STS_ERROR;
639:
634: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
635: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
636: END IF;
637:
638: x_return_status := OKL_API.G_RET_STS_ERROR;
639:
640: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
641: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
642: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
636: END IF;
637:
638: x_return_status := OKL_API.G_RET_STS_ERROR;
639:
640: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
641: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
642: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
643: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
644: END IF;
639:
640: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
641: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
642: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
643: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
644: END IF;
645:
646: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
647:
642: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
643: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
644: END IF;
645:
646: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
647:
648: WHEN OTHERS THEN
649:
650: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
651: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.mark_reporting_flag ',
652: 'EXCEPTION :'||sqlerrm);
653: END IF;
654:
655: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
656: -- unexpected error
657: OKL_API.set_message(p_app_name => g_app_name,
658: p_msg_name => g_unexpected_error,
659: p_token1 => g_sqlcode_token,
653: END IF;
654:
655: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
656: -- unexpected error
657: OKL_API.set_message(p_app_name => g_app_name,
658: p_msg_name => g_unexpected_error,
659: p_token1 => g_sqlcode_token,
660: p_token1_value => sqlcode,
661: p_token2 => g_sqlerrm_token,
693: | 24-JAN-07 RRAVIKIR Created
694: *=======================================================================*/
695: PROCEDURE set_tax_security_context(
696: p_api_version IN NUMBER,
697: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
698: x_return_status OUT NOCOPY VARCHAR2,
699: x_msg_count OUT NOCOPY NUMBER,
700: x_msg_data OUT NOCOPY VARCHAR2,
701: p_internal_org_id IN NUMBER,
703: p_transaction_date IN DATE) IS
704:
705: l_api_version CONSTANT NUMBER := 1;
706: l_api_name CONSTANT VARCHAR2(30) := 'set_tax_security_context';
707: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
708:
709: x_effective_date DATE;
710:
711: BEGIN
751: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_TAX_INTERFACE_PVT.set_tax_security_context.',
752: 'Return Status' || l_return_status);
753: END IF;
754:
755: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
756: -- set tax security context failed
757: OKL_API.set_message( p_app_name => 'OKL',
758: p_msg_name => 'OKL_TX_SET_TAX_CNTXT_ERR');
759: END IF;
753: END IF;
754:
755: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
756: -- set tax security context failed
757: OKL_API.set_message( p_app_name => 'OKL',
758: p_msg_name => 'OKL_TX_SET_TAX_CNTXT_ERR');
759: END IF;
760:
761: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
757: OKL_API.set_message( p_app_name => 'OKL',
758: p_msg_name => 'OKL_TX_SET_TAX_CNTXT_ERR');
759: END IF;
760:
761: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
762: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
763: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
764: RAISE OKL_API.G_EXCEPTION_ERROR;
765: END IF;
758: p_msg_name => 'OKL_TX_SET_TAX_CNTXT_ERR');
759: END IF;
760:
761: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
762: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
763: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
764: RAISE OKL_API.G_EXCEPTION_ERROR;
765: END IF;
766:
759: END IF;
760:
761: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
762: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
763: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
764: RAISE OKL_API.G_EXCEPTION_ERROR;
765: END IF;
766:
767: x_return_status := l_return_status;
760:
761: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
762: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
763: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
764: RAISE OKL_API.G_EXCEPTION_ERROR;
765: END IF;
766:
767: x_return_status := l_return_status;
768:
770: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ','End(-)');
771: END IF;
772:
773: EXCEPTION
774: WHEN OKL_API.G_EXCEPTION_ERROR THEN
775:
776: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
777: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
778: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
774: WHEN OKL_API.G_EXCEPTION_ERROR THEN
775:
776: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
777: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
778: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
779: END IF;
780:
781: x_return_status := OKL_API.G_RET_STS_ERROR;
782:
777: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
778: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
779: END IF;
780:
781: x_return_status := OKL_API.G_RET_STS_ERROR;
782:
783: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
784: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
785: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
779: END IF;
780:
781: x_return_status := OKL_API.G_RET_STS_ERROR;
782:
783: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
784: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
785: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
786: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
787: END IF;
782:
783: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
784: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
785: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
786: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
787: END IF;
788:
789: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
790:
785: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
786: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
787: END IF;
788:
789: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
790:
791: WHEN OTHERS THEN
792:
793: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
794: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.set_tax_security_context ',
795: 'EXCEPTION :'||sqlerrm);
796: END IF;
797:
798: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
799: -- unexpected error
800: OKL_API.set_message(p_app_name => g_app_name,
801: p_msg_name => g_unexpected_error,
802: p_token1 => g_sqlcode_token,
796: END IF;
797:
798: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
799: -- unexpected error
800: OKL_API.set_message(p_app_name => g_app_name,
801: p_msg_name => g_unexpected_error,
802: p_token1 => g_sqlcode_token,
803: p_token1_value => sqlcode,
804: p_token2 => g_sqlerrm_token,
853: x_doc_level_recalc_flag OUT NOCOPY VARCHAR2) IS
854:
855: l_api_version CONSTANT NUMBER := 1;
856: l_api_name CONSTANT VARCHAR2(30) := 'process_tax_determ';
857: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
858:
859: x_effective_date DATE;
860: l_ledger_id NUMBER;
861: l_cust_trx_type_id NUMBER;
919: OPEN l_racusttrxtypes_csr;
920: FETCH l_racusttrxtypes_csr INTO l_cust_trx_type_id;
921: IF l_racusttrxtypes_csr%NOTFOUND THEN
922: -- AR Customer Account Trx Type is required
923: OKL_API.set_message( p_msg_name => G_REQUIRED_VALUE,
924: p_token1 => G_COL_NAME_TOKEN,
925: p_token1_value => 'CUST_TRX_TYPE_ID');
926: RAISE OKL_API.G_EXCEPTION_ERROR;
927: END IF;
922: -- AR Customer Account Trx Type is required
923: OKL_API.set_message( p_msg_name => G_REQUIRED_VALUE,
924: p_token1 => G_COL_NAME_TOKEN,
925: p_token1_value => 'CUST_TRX_TYPE_ID');
926: RAISE OKL_API.G_EXCEPTION_ERROR;
927: END IF;
928: CLOSE l_racusttrxtypes_csr;
929:
930: -- Retrieve Ledger Id
989: OPEN l_fndcurrency_csr(cp_currency_code => l_taxsources_rec.trx_currency_code);
990: FETCH l_fndcurrency_csr INTO l_fndcurrency_rec;
991:
992: IF l_fndcurrency_csr%NOTFOUND THEN
993: OKL_API.set_message( p_msg_name => G_REQUIRED_VALUE,
994: p_token1 => G_COL_NAME_TOKEN,
995: p_token1_value => 'CURRENCY_CODE');
996: RAISE OKL_API.G_EXCEPTION_ERROR;
997: END IF;
992: IF l_fndcurrency_csr%NOTFOUND THEN
993: OKL_API.set_message( p_msg_name => G_REQUIRED_VALUE,
994: p_token1 => G_COL_NAME_TOKEN,
995: p_token1_value => 'CURRENCY_CODE');
996: RAISE OKL_API.G_EXCEPTION_ERROR;
997: END IF;
998: CLOSE l_fndcurrency_csr;
999: -- End Populate Currency values
1000:
1029: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_TAX_INTERFACE_PVT.process_tax_determ_override.',
1030: 'Return Status' || l_return_status);
1031: END IF;
1032:
1033: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1034: -- Tax Calculation Failed
1035: OKL_API.set_message( p_app_name => 'OKL',
1036: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1037: END IF;
1031: END IF;
1032:
1033: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1034: -- Tax Calculation Failed
1035: OKL_API.set_message( p_app_name => 'OKL',
1036: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1037: END IF;
1038:
1039: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1035: OKL_API.set_message( p_app_name => 'OKL',
1036: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1037: END IF;
1038:
1039: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1040: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1041: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1042: RAISE OKL_API.G_EXCEPTION_ERROR;
1043: END IF;
1036: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1037: END IF;
1038:
1039: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1040: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1041: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1042: RAISE OKL_API.G_EXCEPTION_ERROR;
1043: END IF;
1044:
1037: END IF;
1038:
1039: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1040: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1041: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1042: RAISE OKL_API.G_EXCEPTION_ERROR;
1043: END IF;
1044:
1045: x_return_status := l_return_status;
1038:
1039: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1040: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1041: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1042: RAISE OKL_API.G_EXCEPTION_ERROR;
1043: END IF;
1044:
1045: x_return_status := l_return_status;
1046:
1048: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.process_tax_determ_override ','End(-)');
1049: END IF;
1050:
1051: EXCEPTION
1052: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1053:
1054: IF (l_taxsources_csr%ISOPEN) THEN
1055: CLOSE l_taxsources_csr;
1056: END IF;
1064: END IF;
1065:
1066: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1067: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_determ_override ',
1068: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1069: END IF;
1070:
1071: x_return_status := OKL_API.G_RET_STS_ERROR;
1072:
1067: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_determ_override ',
1068: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1069: END IF;
1070:
1071: x_return_status := OKL_API.G_RET_STS_ERROR;
1072:
1073: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1074:
1075: IF (l_taxsources_csr%ISOPEN) THEN
1069: END IF;
1070:
1071: x_return_status := OKL_API.G_RET_STS_ERROR;
1072:
1073: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1074:
1075: IF (l_taxsources_csr%ISOPEN) THEN
1076: CLOSE l_taxsources_csr;
1077: END IF;
1085: END IF;
1086:
1087: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1088: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_determ_override ',
1089: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1090: END IF;
1091:
1092: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1093:
1088: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_determ_override ',
1089: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1090: END IF;
1091:
1092: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1093:
1094: WHEN OTHERS THEN
1095:
1096: IF (l_taxsources_csr%ISOPEN) THEN
1109: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_determ_override ',
1110: 'EXCEPTION :'||sqlerrm);
1111: END IF;
1112:
1113: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1114: -- unexpected error
1115: OKL_API.set_message(p_app_name => g_app_name,
1116: p_msg_name => g_unexpected_error,
1117: p_token1 => g_sqlcode_token,
1111: END IF;
1112:
1113: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1114: -- unexpected error
1115: OKL_API.set_message(p_app_name => g_app_name,
1116: p_msg_name => g_unexpected_error,
1117: p_token1 => g_sqlcode_token,
1118: p_token1_value => sqlcode,
1119: p_token2 => g_sqlerrm_token,
1167: p_event_id IN NUMBER) IS
1168:
1169: l_api_version CONSTANT NUMBER := 1;
1170: l_api_name CONSTANT VARCHAR2(30) := 'process_tax_details';
1171: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1172:
1173: x_effective_date DATE;
1174:
1175: l_transaction_rec transaction_rec_type;
1214: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_TAX_INTERFACE_PVT.process_tax_details_override.',
1215: 'Return Status' || l_return_status);
1216: END IF;
1217:
1218: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1219: -- oevrride tax failed
1220: OKL_API.set_message( p_app_name => 'OKL',
1221: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1222: END IF;
1216: END IF;
1217:
1218: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1219: -- oevrride tax failed
1220: OKL_API.set_message( p_app_name => 'OKL',
1221: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1222: END IF;
1223:
1224: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1220: OKL_API.set_message( p_app_name => 'OKL',
1221: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1222: END IF;
1223:
1224: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1227: RAISE OKL_API.G_EXCEPTION_ERROR;
1228: END IF;
1221: p_msg_name => 'OKL_TX_TAX_ENGINE_ERR');
1222: END IF;
1223:
1224: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1227: RAISE OKL_API.G_EXCEPTION_ERROR;
1228: END IF;
1229:
1222: END IF;
1223:
1224: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1227: RAISE OKL_API.G_EXCEPTION_ERROR;
1228: END IF;
1229:
1230: x_return_status := l_return_status;
1223:
1224: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1227: RAISE OKL_API.G_EXCEPTION_ERROR;
1228: END IF;
1229:
1230: x_return_status := l_return_status;
1231:
1233: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ','End(-)');
1234: END IF;
1235:
1236: EXCEPTION
1237: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1238:
1239: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1240: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1241: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1237: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1238:
1239: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1240: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1241: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1242: END IF;
1243:
1244: x_return_status := OKL_API.G_RET_STS_ERROR;
1245:
1240: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1241: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1242: END IF;
1243:
1244: x_return_status := OKL_API.G_RET_STS_ERROR;
1245:
1246: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1247: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1248: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1242: END IF;
1243:
1244: x_return_status := OKL_API.G_RET_STS_ERROR;
1245:
1246: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1247: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1248: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1249: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1250: END IF;
1245:
1246: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1247: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1248: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1249: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1250: END IF;
1251:
1252: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1253:
1248: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1249: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1250: END IF;
1251:
1252: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1253:
1254: WHEN OTHERS THEN
1255:
1256: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1257: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.process_tax_details_override ',
1258: 'EXCEPTION :'||sqlerrm);
1259: END IF;
1260:
1261: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1262: -- unexpected error
1263: OKL_API.set_message(p_app_name => g_app_name,
1264: p_msg_name => g_unexpected_error,
1265: p_token1 => g_sqlcode_token,
1259: END IF;
1260:
1261: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1262: -- unexpected error
1263: OKL_API.set_message(p_app_name => g_app_name,
1264: p_msg_name => g_unexpected_error,
1265: p_token1 => g_sqlcode_token,
1266: p_token1_value => sqlcode,
1267: p_token2 => g_sqlerrm_token,
1302: |
1303: *=======================================================================*/
1304: PROCEDURE copy_global_tax_data (
1305: p_api_version IN NUMBER,
1306: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1307: x_return_status OUT NOCOPY VARCHAR2,
1308: x_msg_count OUT NOCOPY NUMBER,
1309: x_msg_data OUT NOCOPY VARCHAR2,
1310: p_trx_id IN NUMBER,
1511: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ','End(-)');
1512: END IF;
1513:
1514: EXCEPTION
1515: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1516:
1517: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1518: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1519: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1515: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1516:
1517: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1518: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1519: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1520: END IF;
1521:
1522: x_return_status := OKL_API.G_RET_STS_ERROR;
1523:
1518: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1519: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1520: END IF;
1521:
1522: x_return_status := OKL_API.G_RET_STS_ERROR;
1523:
1524: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1525: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1526: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1520: END IF;
1521:
1522: x_return_status := OKL_API.G_RET_STS_ERROR;
1523:
1524: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1525: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1526: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1527: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1528: END IF;
1523:
1524: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1525: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1526: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1527: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1528: END IF;
1529:
1530: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1531: WHEN OTHERS THEN
1526: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1527: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1528: END IF;
1529:
1530: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1531: WHEN OTHERS THEN
1532:
1533: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1534: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1534: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.copy_global_tax_data ',
1535: 'EXCEPTION :'||sqlerrm);
1536: END IF;
1537:
1538: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1539: -- unexpected error
1540: OKL_API.set_message(p_app_name => g_app_name,
1541: p_msg_name => g_unexpected_error,
1542: p_token1 => g_sqlcode_token,
1536: END IF;
1537:
1538: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1539: -- unexpected error
1540: OKL_API.set_message(p_app_name => g_app_name,
1541: p_msg_name => g_unexpected_error,
1542: p_token1 => g_sqlcode_token,
1543: p_token1_value => sqlcode,
1544: p_token2 => g_sqlerrm_token,
1575: |
1576: *=======================================================================*/
1577: PROCEDURE update_document (
1578: p_api_version IN NUMBER,
1579: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1580: x_return_status OUT NOCOPY VARCHAR2,
1581: x_msg_count OUT NOCOPY NUMBER,
1582: x_msg_data OUT NOCOPY VARCHAR2,
1583: p_transaction_rec transaction_rec_type) IS
1584:
1585: -- Local variables
1586: l_api_version CONSTANT NUMBER := 1;
1587: l_api_name CONSTANT VARCHAR2(30) := 'update_document';
1588: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1589:
1590: -- Local dats structure
1591: l_transaction_rec transaction_rec_type;
1592:
1621: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_TAX_INTERFACE_PVT.update_document.',
1622: 'Return Status' || l_return_status);
1623: END IF;
1624:
1625: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1626: -- update document failed
1627: OKL_API.set_message( p_app_name => 'OKL',
1628: p_msg_name => 'OKL_TX_CANCEL_TAX_ERR');
1629: END IF;
1623: END IF;
1624:
1625: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1626: -- update document failed
1627: OKL_API.set_message( p_app_name => 'OKL',
1628: p_msg_name => 'OKL_TX_CANCEL_TAX_ERR');
1629: END IF;
1630:
1631: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1627: OKL_API.set_message( p_app_name => 'OKL',
1628: p_msg_name => 'OKL_TX_CANCEL_TAX_ERR');
1629: END IF;
1630:
1631: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1632: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1633: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1634: RAISE OKL_API.G_EXCEPTION_ERROR;
1635: END IF;
1628: p_msg_name => 'OKL_TX_CANCEL_TAX_ERR');
1629: END IF;
1630:
1631: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1632: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1633: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1634: RAISE OKL_API.G_EXCEPTION_ERROR;
1635: END IF;
1636:
1629: END IF;
1630:
1631: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1632: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1633: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1634: RAISE OKL_API.G_EXCEPTION_ERROR;
1635: END IF;
1636:
1637: x_return_status := l_return_status;
1630:
1631: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1632: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1633: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1634: RAISE OKL_API.G_EXCEPTION_ERROR;
1635: END IF;
1636:
1637: x_return_status := l_return_status;
1638:
1640: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.update_document ','End(-)');
1641: END IF;
1642:
1643: EXCEPTION
1644: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1645:
1646: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1647: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1648: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1644: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1645:
1646: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1647: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1648: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1649: END IF;
1650:
1651: x_return_status := OKL_API.G_RET_STS_ERROR;
1652:
1647: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1648: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1649: END IF;
1650:
1651: x_return_status := OKL_API.G_RET_STS_ERROR;
1652:
1653: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1654: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1655: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1649: END IF;
1650:
1651: x_return_status := OKL_API.G_RET_STS_ERROR;
1652:
1653: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1654: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1655: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1656: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1657: END IF;
1652:
1653: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1654: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1655: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1656: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1657: END IF;
1658:
1659: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1660:
1655: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1656: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1657: END IF;
1658:
1659: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1660:
1661: WHEN OTHERS THEN
1662:
1663: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1664: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.update_document ',
1665: 'EXCEPTION :'||sqlerrm);
1666: END IF;
1667:
1668: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1669: -- unexpected error
1670: OKL_API.set_message(p_app_name => g_app_name,
1671: p_msg_name => g_unexpected_error,
1672: p_token1 => g_sqlcode_token,
1666: END IF;
1667:
1668: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1669: -- unexpected error
1670: OKL_API.set_message(p_app_name => g_app_name,
1671: p_msg_name => g_unexpected_error,
1672: p_token1 => g_sqlcode_token,
1673: p_token1_value => sqlcode,
1674: p_token2 => g_sqlerrm_token,
1706: |
1707: *=======================================================================*/
1708: PROCEDURE reverse_document (
1709: p_api_version IN NUMBER,
1710: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1711: x_return_status OUT NOCOPY VARCHAR2,
1712: x_msg_count OUT NOCOPY NUMBER,
1713: x_msg_data OUT NOCOPY VARCHAR2,
1714: p_rev_trx_hdr_rec IN line_params_rec_type,
1716:
1717: -- Local variables
1718: l_api_version CONSTANT NUMBER := 1;
1719: l_api_name CONSTANT VARCHAR2(30) := 'reverse_document';
1720: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1721:
1722: -- Local data structure
1723: l_rev_trx_lines_tbl zx_trx_lines_tbl_type;
1724: k NUMBER;
1818: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_TAX_INTERFACE_PVT.reverse_document.',
1819: 'Return Status' || l_return_status);
1820: END IF;
1821:
1822: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1823: -- reverse document failed
1824: OKL_API.set_message( p_app_name => 'OKL',
1825: p_msg_name => 'OKL_TX_REVERSE_DOC_ERR');
1826: END IF;
1820: END IF;
1821:
1822: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS ) THEN
1823: -- reverse document failed
1824: OKL_API.set_message( p_app_name => 'OKL',
1825: p_msg_name => 'OKL_TX_REVERSE_DOC_ERR');
1826: END IF;
1827:
1828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1824: OKL_API.set_message( p_app_name => 'OKL',
1825: p_msg_name => 'OKL_TX_REVERSE_DOC_ERR');
1826: END IF;
1827:
1828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1830: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1831: RAISE OKL_API.G_EXCEPTION_ERROR;
1832: END IF;
1825: p_msg_name => 'OKL_TX_REVERSE_DOC_ERR');
1826: END IF;
1827:
1828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1830: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1831: RAISE OKL_API.G_EXCEPTION_ERROR;
1832: END IF;
1833: -- call ZX reverse document api -- end
1826: END IF;
1827:
1828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1830: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1831: RAISE OKL_API.G_EXCEPTION_ERROR;
1832: END IF;
1833: -- call ZX reverse document api -- end
1834:
1827:
1828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1830: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1831: RAISE OKL_API.G_EXCEPTION_ERROR;
1832: END IF;
1833: -- call ZX reverse document api -- end
1834:
1835: x_return_status := l_return_status;
1838: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_TAX_INTERFACE_PVT.reverse_document ','End(-)');
1839: END IF;
1840:
1841: EXCEPTION
1842: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1843:
1844: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1845: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1846: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1842: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1843:
1844: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1845: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1846: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1847: END IF;
1848:
1849: x_return_status := OKL_API.G_RET_STS_ERROR;
1850:
1845: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1846: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1847: END IF;
1848:
1849: x_return_status := OKL_API.G_RET_STS_ERROR;
1850:
1851: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1852: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1853: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1847: END IF;
1848:
1849: x_return_status := OKL_API.G_RET_STS_ERROR;
1850:
1851: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1852: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1853: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1854: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1855: END IF;
1850:
1851: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1852: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1853: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1854: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1855: END IF;
1856:
1857: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1858:
1853: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1854: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1855: END IF;
1856:
1857: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1858:
1859: WHEN OTHERS THEN
1860:
1861: IF (G_DEBUG_LEVEL_EXCEPTION >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1862: FND_LOG.STRING(G_DEBUG_LEVEL_EXCEPTION,'OKL_TAX_INTERFACE_PVT.reverse_document ',
1863: 'EXCEPTION :'||sqlerrm);
1864: END IF;
1865:
1866: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1867: -- unexpected error
1868: OKL_API.set_message(p_app_name => g_app_name,
1869: p_msg_name => g_unexpected_error,
1870: p_token1 => g_sqlcode_token,
1864: END IF;
1865:
1866: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1867: -- unexpected error
1868: OKL_API.set_message(p_app_name => g_app_name,
1869: p_msg_name => g_unexpected_error,
1870: p_token1 => g_sqlcode_token,
1871: p_token1_value => sqlcode,
1872: p_token2 => g_sqlerrm_token,