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;
715:
716: BEGIN
717:
718: IF (g_fnd_debug = 'Y') THEN
719: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
720: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin','Inside CANCEL_ASBN_INVOICES procedure');
721: END IF;
722: END IF;
723: -- Get invoice_id and call AP package to cancel invoice
716: BEGIN
717:
718: IF (g_fnd_debug = 'Y') THEN
719: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
720: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin','Inside CANCEL_ASBN_INVOICES procedure');
721: END IF;
722: END IF;
723: -- Get invoice_id and call AP package to cancel invoice
724: if (p_invoice_num is not null) then
728: EXIT WHEN l_invoice_id_csr%NOTFOUND;
729:
730: if (l_invoice_id is not null) then
731: IF (g_fnd_debug = 'Y') THEN
732: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
733: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin', 'Call CANCEL_ASBN_INVOICES_LINE procedure');
734: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name , 'Call CANCEL_ASBN_INVOICES_LINE with invoice_id: '|| l_invoice_id);
735: END IF;
736: END IF;
729:
730: if (l_invoice_id is not null) then
731: IF (g_fnd_debug = 'Y') THEN
732: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
733: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin', 'Call CANCEL_ASBN_INVOICES_LINE procedure');
734: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name , 'Call CANCEL_ASBN_INVOICES_LINE with invoice_id: '|| l_invoice_id);
735: END IF;
736: END IF;
737: cancel_asbn_invoices_line(l_invoice_id);
730: if (l_invoice_id is not null) then
731: IF (g_fnd_debug = 'Y') THEN
732: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
733: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin', 'Call CANCEL_ASBN_INVOICES_LINE procedure');
734: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name , 'Call CANCEL_ASBN_INVOICES_LINE with invoice_id: '|| l_invoice_id);
735: END IF;
736: END IF;
737: cancel_asbn_invoices_line(l_invoice_id);
738: end if;
741: CLOSE l_invoice_id_csr;
742: end if;
743:
744: IF (g_fnd_debug = 'Y') THEN
745: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
746: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin', 'CANCEL_ASBN_INVOICES procedure Ends');
747: END IF;
748: END IF;
749:
742: end if;
743:
744: IF (g_fnd_debug = 'Y') THEN
745: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
746: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || l_api_name || '.begin', 'CANCEL_ASBN_INVOICES procedure Ends');
747: END IF;
748: END IF;
749:
750: EXCEPTION
749:
750: EXCEPTION
751: WHEN OTHERS THEN
752: IF (g_fnd_debug = 'Y') THEN
753: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
754: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, g_log_head || l_api_name ||'.EXCEPTION', 'CANCEL_ASBN_INVOICES: Inside exception :'|| sqlcode);
755: END IF;
756: END IF;
757: raise;
750: EXCEPTION
751: WHEN OTHERS THEN
752: IF (g_fnd_debug = 'Y') THEN
753: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
754: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, g_log_head || l_api_name ||'.EXCEPTION', 'CANCEL_ASBN_INVOICES: Inside exception :'|| sqlcode);
755: END IF;
756: END IF;
757: raise;
758: