479:
480: EXCEPTION
481: WHEN OTHERS THEN
482: IF (SQLCODE <> -20001) THEN
483: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
484: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
485: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
486: FND_MESSAGE.SET_TOKEN('PARAMETERS',
487: ' P_invoice_id = ' || P_invoice_id );
480: EXCEPTION
481: WHEN OTHERS THEN
482: IF (SQLCODE <> -20001) THEN
483: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
484: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
485: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
486: FND_MESSAGE.SET_TOKEN('PARAMETERS',
487: ' P_invoice_id = ' || P_invoice_id );
488: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
481: WHEN OTHERS THEN
482: IF (SQLCODE <> -20001) THEN
483: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
484: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
485: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
486: FND_MESSAGE.SET_TOKEN('PARAMETERS',
487: ' P_invoice_id = ' || P_invoice_id );
488: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
489: END IF;
482: IF (SQLCODE <> -20001) THEN
483: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
484: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
485: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
486: FND_MESSAGE.SET_TOKEN('PARAMETERS',
487: ' P_invoice_id = ' || P_invoice_id );
488: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
489: END IF;
490:
484: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
485: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
486: FND_MESSAGE.SET_TOKEN('PARAMETERS',
487: ' P_invoice_id = ' || P_invoice_id );
488: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
489: END IF;
490:
491: IF (qty_per_dist_negtive_count_cur%ISOPEN ) THEN
492: CLOSE qty_per_dist_negtive_count_cur;
976: P_CALLING_MODE => 'CANCEL',
977: P_CALLING_SEQUENCE => l_curr_calling_sequence,
978: P_COMMIT => 'N');
979:
980: l_approval_return_message := FND_MESSAGE.GET;
981:
982: ----7264524 STARTS
983:
984: l_debug_info := 'Check for INSUFFICIENT HOLDS and CANT FUNDS CHECK Holds';
1291: APP_EXCEPTION.RAISE_EXCEPTION;
1292: RETURN FALSE;
1293: WHEN OTHERS THEN
1294: IF (SQLCODE <> -20001) THEN
1295: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1296: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1297: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1298: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1299: ' P_invoice_id = ' || P_invoice_id
1292: RETURN FALSE;
1293: WHEN OTHERS THEN
1294: IF (SQLCODE <> -20001) THEN
1295: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1296: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1297: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1298: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1299: ' P_invoice_id = ' || P_invoice_id
1300: ||' P_last_updated_by = ' || P_last_updated_by
1293: WHEN OTHERS THEN
1294: IF (SQLCODE <> -20001) THEN
1295: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1296: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1297: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1298: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1299: ' P_invoice_id = ' || P_invoice_id
1300: ||' P_last_updated_by = ' || P_last_updated_by
1301: ||' P_last_update_login = ' || P_last_update_login
1294: IF (SQLCODE <> -20001) THEN
1295: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1296: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1297: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1298: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1299: ' P_invoice_id = ' || P_invoice_id
1300: ||' P_last_updated_by = ' || P_last_updated_by
1301: ||' P_last_update_login = ' || P_last_update_login
1302: ||' P_accounting_date = ' || P_accounting_date);
1299: ' P_invoice_id = ' || P_invoice_id
1300: ||' P_last_updated_by = ' || P_last_updated_by
1301: ||' P_last_update_login = ' || P_last_update_login
1302: ||' P_accounting_date = ' || P_accounting_date);
1303: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1304: END IF;
1305:
1306: IF ( Invoice_Lines_Cur%ISOPEN ) THEN
1307: CLOSE Invoice_Lines_Cur;
1448:
1449: EXCEPTION
1450: WHEN OTHERS THEN
1451: IF (SQLCODE <> -20001) THEN
1452: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1453: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1454: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1455: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1456: ' P_check_id = ' || P_check_id
1449: EXCEPTION
1450: WHEN OTHERS THEN
1451: IF (SQLCODE <> -20001) THEN
1452: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1453: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1454: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1455: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1456: ' P_check_id = ' || P_check_id
1457: ||' P_last_updated_by = ' || P_last_updated_by
1450: WHEN OTHERS THEN
1451: IF (SQLCODE <> -20001) THEN
1452: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1453: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1454: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1455: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1456: ' P_check_id = ' || P_check_id
1457: ||' P_last_updated_by = ' || P_last_updated_by
1458: ||' P_last_update_login = ' || P_last_update_login
1451: IF (SQLCODE <> -20001) THEN
1452: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1453: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1454: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1455: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1456: ' P_check_id = ' || P_check_id
1457: ||' P_last_updated_by = ' || P_last_updated_by
1458: ||' P_last_update_login = ' || P_last_update_login
1459: ||' P_accounting_date = ' || P_accounting_date);
1456: ' P_check_id = ' || P_check_id
1457: ||' P_last_updated_by = ' || P_last_updated_by
1458: ||' P_last_update_login = ' || P_last_update_login
1459: ||' P_accounting_date = ' || P_accounting_date);
1460: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1461: END IF;
1462:
1463: IF ( invoices_cursor%ISOPEN ) THEN
1464: CLOSE invoices_cursor;
1536: EXCEPTION
1537:
1538: WHEN OTHERS THEN
1539: IF (SQLCODE <> -20001) THEN
1540: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1541: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1542: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1543: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = ' || to_char(P_Invoice_ID));
1544: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1537:
1538: WHEN OTHERS THEN
1539: IF (SQLCODE <> -20001) THEN
1540: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1541: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1542: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1543: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = ' || to_char(P_Invoice_ID));
1544: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1545: END IF;
1538: WHEN OTHERS THEN
1539: IF (SQLCODE <> -20001) THEN
1540: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1541: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1542: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1543: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = ' || to_char(P_Invoice_ID));
1544: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1545: END IF;
1546: APP_EXCEPTION.RAISE_EXCEPTION;
1539: IF (SQLCODE <> -20001) THEN
1540: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1541: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1542: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1543: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = ' || to_char(P_Invoice_ID));
1544: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1545: END IF;
1546: APP_EXCEPTION.RAISE_EXCEPTION;
1547:
1540: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1541: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1542: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1543: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_id = ' || to_char(P_Invoice_ID));
1544: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1545: END IF;
1546: APP_EXCEPTION.RAISE_EXCEPTION;
1547:
1548: END Subscribe_To_Cancel_Event;