[Home] [Help]
617:
618: BEGIN
619:
620: IF (g_fnd_debug = 'Y') THEN
621: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
622: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin','Inside CANCEL_ASBN_INVOICES_LINE procedure');
623: END IF;
624: END IF;
625:
618: BEGIN
619:
620: IF (g_fnd_debug = 'Y') THEN
621: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
622: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin','Inside CANCEL_ASBN_INVOICES_LINE procedure');
623: END IF;
624: END IF;
625:
626:
659: END IF;
660: END IF; --AP Call ends
661:
662: IF (g_fnd_debug = 'Y') THEN
663: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
664: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin', 'CANCEL_ASBN_INVOICES_LINE procedure Ends');
665: END IF;
666: END IF;
667:
660: END IF; --AP Call ends
661:
662: IF (g_fnd_debug = 'Y') THEN
663: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
664: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin', 'CANCEL_ASBN_INVOICES_LINE procedure Ends');
665: END IF;
666: END IF;
667:
668: EXCEPTION
667:
668: EXCEPTION
669: WHEN OTHERS THEN
670: IF (g_fnd_debug = 'Y') THEN
671: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
672: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, g_log_head || l_api_name ||'.EXCEPTION', 'CANCEL_ASBN_INVOICES_LINE: Inside exception :'|| sqlcode);
673: END IF;
674: END IF;
675: RAISE; --Raise the Exception
668: EXCEPTION
669: WHEN OTHERS THEN
670: IF (g_fnd_debug = 'Y') THEN
671: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
672: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, g_log_head || l_api_name ||'.EXCEPTION', 'CANCEL_ASBN_INVOICES_LINE: Inside exception :'|| sqlcode);
673: END IF;
674: END IF;
675: RAISE; --Raise the Exception
676: END cancel_asbn_invoices_line;
713:
714: BEGIN
715:
716: IF (g_fnd_debug = 'Y') THEN
717: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
718: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin','Inside CANCEL_ASBN_INVOICES procedure');
719: END IF;
720: END IF;
721: -- Get invoice_id and call AP package to cancel invoice
714: BEGIN
715:
716: IF (g_fnd_debug = 'Y') THEN
717: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
718: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin','Inside CANCEL_ASBN_INVOICES procedure');
719: END IF;
720: END IF;
721: -- Get invoice_id and call AP package to cancel invoice
722: if (p_invoice_num is not null) then
726: EXIT WHEN l_invoice_id_csr%NOTFOUND;
727:
728: if (l_invoice_id is not null) then
729: IF (g_fnd_debug = 'Y') THEN
730: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
731: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin', 'Call CANCEL_ASBN_INVOICES_LINE procedure');
732: END IF;
733: END IF;
734: cancel_asbn_invoices_line(l_invoice_id);
727:
728: if (l_invoice_id is not null) then
729: IF (g_fnd_debug = 'Y') THEN
730: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
731: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin', 'Call CANCEL_ASBN_INVOICES_LINE procedure');
732: END IF;
733: END IF;
734: cancel_asbn_invoices_line(l_invoice_id);
735: end if;
738: CLOSE l_invoice_id_csr;
739: end if;
740:
741: IF (g_fnd_debug = 'Y') THEN
742: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
743: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin', 'CANCEL_ASBN_INVOICES procedure Ends');
744: END IF;
745: END IF;
746:
739: end if;
740:
741: IF (g_fnd_debug = 'Y') THEN
742: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
743: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin', 'CANCEL_ASBN_INVOICES procedure Ends');
744: END IF;
745: END IF;
746:
747: EXCEPTION
746:
747: EXCEPTION
748: WHEN OTHERS THEN
749: IF (g_fnd_debug = 'Y') THEN
750: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
751: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, g_log_head || l_api_name ||'.EXCEPTION', 'CANCEL_ASBN_INVOICES: Inside exception :'|| sqlcode);
752: END IF;
753: END IF;
754: raise;
747: EXCEPTION
748: WHEN OTHERS THEN
749: IF (g_fnd_debug = 'Y') THEN
750: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
751: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, g_log_head || l_api_name ||'.EXCEPTION', 'CANCEL_ASBN_INVOICES: Inside exception :'|| sqlcode);
752: END IF;
753: END IF;
754: raise;
755: