492:
493: EXCEPTION
494: WHEN OTHERS THEN
495: IF (SQLCODE <> -20001) THEN
496: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
497: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
498: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
499: FND_MESSAGE.SET_TOKEN('PARAMETERS',
500: ' P_invoice_id = ' || P_invoice_id );
493: EXCEPTION
494: WHEN OTHERS THEN
495: IF (SQLCODE <> -20001) THEN
496: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
497: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
498: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
499: FND_MESSAGE.SET_TOKEN('PARAMETERS',
500: ' P_invoice_id = ' || P_invoice_id );
501: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
494: WHEN OTHERS THEN
495: IF (SQLCODE <> -20001) THEN
496: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
497: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
498: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
499: FND_MESSAGE.SET_TOKEN('PARAMETERS',
500: ' P_invoice_id = ' || P_invoice_id );
501: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
502: END IF;
495: IF (SQLCODE <> -20001) THEN
496: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
497: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
498: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
499: FND_MESSAGE.SET_TOKEN('PARAMETERS',
500: ' P_invoice_id = ' || P_invoice_id );
501: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
502: END IF;
503:
497: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
498: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
499: FND_MESSAGE.SET_TOKEN('PARAMETERS',
500: ' P_invoice_id = ' || P_invoice_id );
501: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
502: END IF;
503:
504: IF (qty_per_dist_negtive_count_cur%ISOPEN ) THEN
505: CLOSE qty_per_dist_negtive_count_cur;
1153: P_CALLING_MODE => 'CANCEL',
1154: P_CALLING_SEQUENCE => l_curr_calling_sequence,
1155: P_COMMIT => 'N');
1156:
1157: l_approval_return_message := FND_MESSAGE.GET;
1158:
1159: -- Bug Fixes for 7264524, 7428195 and 9465105 have been relocated
1160: -- to apaprvlb.pls for the bug9553683
1161: --
1451: APP_EXCEPTION.RAISE_EXCEPTION;
1452: RETURN FALSE;
1453: WHEN OTHERS THEN
1454: IF (SQLCODE <> -20001) THEN
1455: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1456: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1457: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1458: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1459: ' P_invoice_id = ' || P_invoice_id
1452: RETURN FALSE;
1453: WHEN OTHERS THEN
1454: IF (SQLCODE <> -20001) THEN
1455: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1456: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1457: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1458: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1459: ' P_invoice_id = ' || P_invoice_id
1460: ||' P_last_updated_by = ' || P_last_updated_by
1453: WHEN OTHERS THEN
1454: IF (SQLCODE <> -20001) THEN
1455: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1456: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1457: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1458: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1459: ' P_invoice_id = ' || P_invoice_id
1460: ||' P_last_updated_by = ' || P_last_updated_by
1461: ||' P_last_update_login = ' || P_last_update_login
1454: IF (SQLCODE <> -20001) THEN
1455: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1456: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1457: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1458: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1459: ' P_invoice_id = ' || P_invoice_id
1460: ||' P_last_updated_by = ' || P_last_updated_by
1461: ||' P_last_update_login = ' || P_last_update_login
1462: ||' P_accounting_date = ' || P_accounting_date);
1459: ' P_invoice_id = ' || P_invoice_id
1460: ||' P_last_updated_by = ' || P_last_updated_by
1461: ||' P_last_update_login = ' || P_last_update_login
1462: ||' P_accounting_date = ' || P_accounting_date);
1463: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1464: END IF;
1465:
1466: IF ( Invoice_Lines_Cur%ISOPEN ) THEN
1467: CLOSE Invoice_Lines_Cur;
1610:
1611: EXCEPTION
1612: WHEN OTHERS THEN
1613: IF (SQLCODE <> -20001) THEN
1614: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1615: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1616: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1617: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1618: ' P_check_id = ' || P_check_id
1611: EXCEPTION
1612: WHEN OTHERS THEN
1613: IF (SQLCODE <> -20001) THEN
1614: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1615: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1616: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1617: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1618: ' P_check_id = ' || P_check_id
1619: ||' P_last_updated_by = ' || P_last_updated_by
1612: WHEN OTHERS THEN
1613: IF (SQLCODE <> -20001) THEN
1614: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1615: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1616: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1617: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1618: ' P_check_id = ' || P_check_id
1619: ||' P_last_updated_by = ' || P_last_updated_by
1620: ||' P_last_update_login = ' || P_last_update_login
1613: IF (SQLCODE <> -20001) THEN
1614: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1615: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1616: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1617: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1618: ' P_check_id = ' || P_check_id
1619: ||' P_last_updated_by = ' || P_last_updated_by
1620: ||' P_last_update_login = ' || P_last_update_login
1621: ||' P_accounting_date = ' || P_accounting_date);
1618: ' P_check_id = ' || P_check_id
1619: ||' P_last_updated_by = ' || P_last_updated_by
1620: ||' P_last_update_login = ' || P_last_update_login
1621: ||' P_accounting_date = ' || P_accounting_date);
1622: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1623: END IF;
1624:
1625: IF ( invoices_cursor%ISOPEN ) THEN
1626: CLOSE invoices_cursor;
1698: EXCEPTION
1699:
1700: WHEN OTHERS THEN
1701: IF (SQLCODE <> -20001) THEN
1702: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1703: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1704: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1705: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = ' || to_char(P_Invoice_ID));
1706: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1699:
1700: WHEN OTHERS THEN
1701: IF (SQLCODE <> -20001) THEN
1702: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1703: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1704: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1705: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = ' || to_char(P_Invoice_ID));
1706: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1707: END IF;
1700: WHEN OTHERS THEN
1701: IF (SQLCODE <> -20001) THEN
1702: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1703: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1704: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1705: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = ' || to_char(P_Invoice_ID));
1706: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1707: END IF;
1708: APP_EXCEPTION.RAISE_EXCEPTION;
1701: IF (SQLCODE <> -20001) THEN
1702: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1703: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1704: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1705: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = ' || to_char(P_Invoice_ID));
1706: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1707: END IF;
1708: APP_EXCEPTION.RAISE_EXCEPTION;
1709:
1702: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1703: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1704: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1705: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = ' || to_char(P_Invoice_ID));
1706: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1707: END IF;
1708: APP_EXCEPTION.RAISE_EXCEPTION;
1709:
1710: END Subscribe_To_Cancel_Event;