621:
622:
623: BEGIN
624:
625: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
626: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_PAYMENT_PVT.CREATE_PAYMENTS','Begin(+)');
627: END IF;
628:
629: --Print Input Variables
622:
623: BEGIN
624:
625: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
626: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_PAYMENT_PVT.CREATE_PAYMENTS','Begin(+)');
627: END IF;
628:
629: --Print Input Variables
630: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
626: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_PAYMENT_PVT.CREATE_PAYMENTS','Begin(+)');
627: END IF;
628:
629: --Print Input Variables
630: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
631:
632: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
633: 'p_receipt_rec.p_currency_code :'||p_receipt_rec.currency_code);
634:
628:
629: --Print Input Variables
630: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
631:
632: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
633: 'p_receipt_rec.p_currency_code :'||p_receipt_rec.currency_code);
634:
635: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
636: 'p_currency_conv_type :'||p_receipt_rec.currency_conv_type);
631:
632: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
633: 'p_receipt_rec.p_currency_code :'||p_receipt_rec.currency_code);
634:
635: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
636: 'p_currency_conv_type :'||p_receipt_rec.currency_conv_type);
637:
638: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
639: 'p_currency_conv_date :'||p_receipt_rec.currency_conv_date);
634:
635: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
636: 'p_currency_conv_type :'||p_receipt_rec.currency_conv_type);
637:
638: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
639: 'p_currency_conv_date :'||p_receipt_rec.currency_conv_date);
640:
641: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
642: 'p_currency_conv_rate :'||p_receipt_rec.currency_conv_rate);
637:
638: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
639: 'p_currency_conv_date :'||p_receipt_rec.currency_conv_date);
640:
641: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
642: 'p_currency_conv_rate :'||p_receipt_rec.currency_conv_rate);
643:
644: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
645: 'p_irm_id :'||p_receipt_rec.irm_id);
640:
641: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
642: 'p_currency_conv_rate :'||p_receipt_rec.currency_conv_rate);
643:
644: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
645: 'p_irm_id :'||p_receipt_rec.irm_id);
646:
647: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
648: 'p_contract_id :'||p_receipt_rec.contract_id);
643:
644: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
645: 'p_irm_id :'||p_receipt_rec.irm_id);
646:
647: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
648: 'p_contract_id :'||p_receipt_rec.contract_id);
649:
650: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
651: 'p_contract_num :'||p_receipt_rec.contract_num);
646:
647: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
648: 'p_contract_id :'||p_receipt_rec.contract_id);
649:
650: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
651: 'p_contract_num :'||p_receipt_rec.contract_num);
652:
653: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
654: 'p_customer_id :'||p_receipt_rec.cust_acct_id);
649:
650: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
651: 'p_contract_num :'||p_receipt_rec.contract_num);
652:
653: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
654: 'p_customer_id :'||p_receipt_rec.cust_acct_id);
655:
656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
657: 'p_customer_num :'||p_receipt_rec.customer_num);
652:
653: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
654: 'p_customer_id :'||p_receipt_rec.cust_acct_id);
655:
656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
657: 'p_customer_num :'||p_receipt_rec.customer_num);
658:
659: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
660: 'p_gl_date :'||p_receipt_rec.gl_date);
655:
656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
657: 'p_customer_num :'||p_receipt_rec.customer_num);
658:
659: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
660: 'p_gl_date :'||p_receipt_rec.gl_date);
661:
662: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
663: 'p_payment_date :'||p_receipt_rec.payment_date);
658:
659: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
660: 'p_gl_date :'||p_receipt_rec.gl_date);
661:
662: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
663: 'p_payment_date :'||p_receipt_rec.payment_date);
664:
665: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
666: 'p_customer_site_use_id :'||p_receipt_rec.customer_site_use_id);
661:
662: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
663: 'p_payment_date :'||p_receipt_rec.payment_date);
664:
665: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
666: 'p_customer_site_use_id :'||p_receipt_rec.customer_site_use_id);
667:
668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
669: 'p_expiration_date :'||p_receipt_rec.expiration_date);
664:
665: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
666: 'p_customer_site_use_id :'||p_receipt_rec.customer_site_use_id);
667:
668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_PAYMENT_PVT.CREATE_PAYMENTS.',
669: 'p_expiration_date :'||p_receipt_rec.expiration_date);
670:
671: END IF;
672:
826: x_payment_ref_number := l_payment_ref_number;
827: x_cash_receipt_id := l_cash_receipt_id;
828: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
829:
830: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
831: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_PAYMENT_PVT.CREATE_PAYMENTS','end(-)');
832: END IF;
833:
834: EXCEPTION
827: x_cash_receipt_id := l_cash_receipt_id;
828: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
829:
830: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
831: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_PAYMENT_PVT.CREATE_PAYMENTS','end(-)');
832: END IF;
833:
834: EXCEPTION
835:
836: WHEN G_EXCEPTION_HALT_VALIDATION THEN
837: x_return_status := OKC_API.G_RET_STS_ERROR;
838:
839: WHEN OKL_API.G_EXCEPTION_ERROR THEN
840: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
841: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_PAYMENT.CREATE_PAYMENTS ',
842: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
843: END IF;
844:
837: x_return_status := OKC_API.G_RET_STS_ERROR;
838:
839: WHEN OKL_API.G_EXCEPTION_ERROR THEN
840: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
841: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_PAYMENT.CREATE_PAYMENTS ',
842: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
843: END IF;
844:
845: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
850: x_msg_data,
851: '_PVT');
852:
853: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
854: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
855: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_PAYMENT.CREATE_PAYMENTS ',
856: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
857: END IF;
858:
851: '_PVT');
852:
853: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
854: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
855: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_PAYMENT.CREATE_PAYMENTS ',
856: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
857: END IF;
858:
859: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
865: '_PVT');
866:
867: WHEN OTHERS THEN
868:
869: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
870: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_PAYMENT.CREATE_PAYMENTS ',
871: 'EXCEPTION :'||sqlerrm);
872: END IF;
873:
866:
867: WHEN OTHERS THEN
868:
869: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
870: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_PAYMENT.CREATE_PAYMENTS ',
871: 'EXCEPTION :'||sqlerrm);
872: END IF;
873:
874: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(