1264:
1265: EXCEPTION
1266: WHEN OTHERS THEN
1267: IF (SQLCODE <> -20001) THEN
1268: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1269: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1270: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1271: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1272: 'Invoice_id = '|| to_char(p_invoice_id)
1265: EXCEPTION
1266: WHEN OTHERS THEN
1267: IF (SQLCODE <> -20001) THEN
1268: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1269: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1270: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1271: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1272: 'Invoice_id = '|| to_char(p_invoice_id)
1273: ||', Sys Xrate Gain Ccid = '|| to_char(p_sys_xrate_gain_ccid)
1266: WHEN OTHERS THEN
1267: IF (SQLCODE <> -20001) THEN
1268: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1269: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1270: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1271: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1272: 'Invoice_id = '|| to_char(p_invoice_id)
1273: ||', Sys Xrate Gain Ccid = '|| to_char(p_sys_xrate_gain_ccid)
1274: ||', Sys Xrate Loss Ccid = '|| to_char(p_sys_xrate_loss_ccid));
1267: IF (SQLCODE <> -20001) THEN
1268: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1269: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1270: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1271: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1272: 'Invoice_id = '|| to_char(p_invoice_id)
1273: ||', Sys Xrate Gain Ccid = '|| to_char(p_sys_xrate_gain_ccid)
1274: ||', Sys Xrate Loss Ccid = '|| to_char(p_sys_xrate_loss_ccid));
1275: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1271: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1272: 'Invoice_id = '|| to_char(p_invoice_id)
1273: ||', Sys Xrate Gain Ccid = '|| to_char(p_sys_xrate_gain_ccid)
1274: ||', Sys Xrate Loss Ccid = '|| to_char(p_sys_xrate_loss_ccid));
1275: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1276: END IF;
1277:
1278: IF ( Distribution_Cur%ISOPEN ) THEN
1279: CLOSE Distribution_Cur;
1535:
1536: EXCEPTION
1537: WHEN OTHERS THEN
1538: IF (SQLCODE <> -20001) THEN
1539: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1540: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1541: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1542: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1543: 'Invoice_id = '|| to_char(p_invoice_id) );
1536: EXCEPTION
1537: WHEN OTHERS THEN
1538: IF (SQLCODE <> -20001) THEN
1539: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1540: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1541: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1542: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1543: 'Invoice_id = '|| to_char(p_invoice_id) );
1544: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1537: WHEN OTHERS THEN
1538: IF (SQLCODE <> -20001) THEN
1539: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1540: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1541: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1542: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1543: 'Invoice_id = '|| to_char(p_invoice_id) );
1544: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1545: END IF;
1538: IF (SQLCODE <> -20001) THEN
1539: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1540: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1541: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1542: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1543: 'Invoice_id = '|| to_char(p_invoice_id) );
1544: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1545: END IF;
1546:
1540: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1541: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1542: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1543: 'Invoice_id = '|| to_char(p_invoice_id) );
1544: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1545: END IF;
1546:
1547: IF ( Distribution_Cur%ISOPEN ) THEN
1548: CLOSE Distribution_Cur;
1791:
1792: EXCEPTION
1793: WHEN OTHERS THEN
1794: IF (SQLCODE <> -20001) THEN
1795: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1796: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1797: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1798: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1799: 'Invoice_id = '|| to_char(p_invoice_id) );
1792: EXCEPTION
1793: WHEN OTHERS THEN
1794: IF (SQLCODE <> -20001) THEN
1795: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1796: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1797: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1798: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1799: 'Invoice_id = '|| to_char(p_invoice_id) );
1800: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1793: WHEN OTHERS THEN
1794: IF (SQLCODE <> -20001) THEN
1795: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1796: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1797: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1798: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1799: 'Invoice_id = '|| to_char(p_invoice_id) );
1800: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1801: END IF;
1794: IF (SQLCODE <> -20001) THEN
1795: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1796: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1797: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1798: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1799: 'Invoice_id = '|| to_char(p_invoice_id) );
1800: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1801: END IF;
1802:
1796: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1797: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1798: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1799: 'Invoice_id = '|| to_char(p_invoice_id) );
1800: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1801: END IF;
1802:
1803: IF ( Distribution_Cur%ISOPEN ) THEN
1804: CLOSE Distribution_Cur;
3283:
3284: EXCEPTION
3285: WHEN OTHERS THEN
3286: IF (SQLCODE <> -20001) THEN
3287: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3288: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3289: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3290: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3291: 'Invoice_id = '|| to_char(p_invoice_id)
3284: EXCEPTION
3285: WHEN OTHERS THEN
3286: IF (SQLCODE <> -20001) THEN
3287: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3288: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3289: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3290: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3291: 'Invoice_id = '|| to_char(p_invoice_id)
3292: ||', Dist_line_num = '|| to_char(p_price_tol)
3285: WHEN OTHERS THEN
3286: IF (SQLCODE <> -20001) THEN
3287: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3288: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3289: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3290: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3291: 'Invoice_id = '|| to_char(p_invoice_id)
3292: ||', Dist_line_num = '|| to_char(p_price_tol)
3293: ||', Packet_id = '|| to_char(p_qty_tol)
3286: IF (SQLCODE <> -20001) THEN
3287: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3288: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3289: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3290: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3291: 'Invoice_id = '|| to_char(p_invoice_id)
3292: ||', Dist_line_num = '|| to_char(p_price_tol)
3293: ||', Packet_id = '|| to_char(p_qty_tol)
3294: ||', Fundscheck mode = '|| to_char(p_qty_rec_tol)
3293: ||', Packet_id = '|| to_char(p_qty_tol)
3294: ||', Fundscheck mode = '|| to_char(p_qty_rec_tol)
3295: ||', Partial_reserv_flag = '|| to_char(p_max_qty_ord_tol)
3296: ||', Max QTY REC Tol = '|| to_char(p_max_qty_rec_tol));
3297: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3298: END IF;
3299: APP_EXCEPTION.RAISE_EXCEPTION;
3300: END Execute_Matched_Checks;
3301:
3338: p_po_closed_code := null;
3339: return;
3340: WHEN OTHERS THEN
3341: IF (SQLCODE <> -20001) THEN
3342: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3343: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3344: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3345: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3346: 'Invoice_id = '|| to_char(p_line_location_id));
3339: return;
3340: WHEN OTHERS THEN
3341: IF (SQLCODE <> -20001) THEN
3342: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3343: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3344: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3345: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3346: 'Invoice_id = '|| to_char(p_line_location_id));
3347: END IF;
3340: WHEN OTHERS THEN
3341: IF (SQLCODE <> -20001) THEN
3342: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3343: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3344: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3345: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3346: 'Invoice_id = '|| to_char(p_line_location_id));
3347: END IF;
3348: APP_EXCEPTION.RAISE_EXCEPTION;
3341: IF (SQLCODE <> -20001) THEN
3342: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3343: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3344: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3345: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3346: 'Invoice_id = '|| to_char(p_line_location_id));
3347: END IF;
3348: APP_EXCEPTION.RAISE_EXCEPTION;
3349: END Get_PO_Closed_Code;
3389: WHEN NO_DATA_FOUND THEN
3390: return(FALSE);
3391: WHEN OTHERS THEN
3392: IF (SQLCODE <> -20001) THEN
3393: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3394: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3395: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3396: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3397: 'Invoice_id = '|| to_char(p_invoice_id)
3390: return(FALSE);
3391: WHEN OTHERS THEN
3392: IF (SQLCODE <> -20001) THEN
3393: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3394: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3395: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3396: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3397: 'Invoice_id = '|| to_char(p_invoice_id)
3398: ||', Hold Code1 = '|| p_hold_code
3391: WHEN OTHERS THEN
3392: IF (SQLCODE <> -20001) THEN
3393: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3394: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3395: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3396: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3397: 'Invoice_id = '|| to_char(p_invoice_id)
3398: ||', Hold Code1 = '|| p_hold_code
3399: ||', Hold Code2 = '|| p_hold_code2);
3392: IF (SQLCODE <> -20001) THEN
3393: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3394: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3395: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3396: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3397: 'Invoice_id = '|| to_char(p_invoice_id)
3398: ||', Hold Code1 = '|| p_hold_code
3399: ||', Hold Code2 = '|| p_hold_code2);
3400: END IF;
3441: WHEN NO_DATA_FOUND THEN
3442: return(FALSE);
3443: WHEN OTHERS THEN
3444: IF (SQLCODE <> -20001) THEN
3445: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3446: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3447: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3448: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3449: 'Invoice_id = '|| to_char(p_invoice_id)
3442: return(FALSE);
3443: WHEN OTHERS THEN
3444: IF (SQLCODE <> -20001) THEN
3445: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3446: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3447: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3448: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3449: 'Invoice_id = '|| to_char(p_invoice_id)
3450: ||', Hold Code1 = '|| p_hold_code
3443: WHEN OTHERS THEN
3444: IF (SQLCODE <> -20001) THEN
3445: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3446: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3447: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3448: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3449: 'Invoice_id = '|| to_char(p_invoice_id)
3450: ||', Hold Code1 = '|| p_hold_code
3451: ||', Hold Code2 = '|| p_hold_code2);
3444: IF (SQLCODE <> -20001) THEN
3445: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3446: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3447: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3448: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3449: 'Invoice_id = '|| to_char(p_invoice_id)
3450: ||', Hold Code1 = '|| p_hold_code
3451: ||', Hold Code2 = '|| p_hold_code2);
3452: END IF;
3486: p_qty_delivered := NULL;
3487: return;
3488: WHEN OTHERS THEN
3489: IF (SQLCODE <> -20001) THEN
3490: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3491: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3492: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3493: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3494: 'Invoice_id = '|| to_char(p_line_location_id));
3487: return;
3488: WHEN OTHERS THEN
3489: IF (SQLCODE <> -20001) THEN
3490: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3491: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3492: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3493: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3494: 'Invoice_id = '|| to_char(p_line_location_id));
3495: END IF;
3488: WHEN OTHERS THEN
3489: IF (SQLCODE <> -20001) THEN
3490: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3491: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3492: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3493: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3494: 'Invoice_id = '|| to_char(p_line_location_id));
3495: END IF;
3496: APP_EXCEPTION.RAISE_EXCEPTION;
3489: IF (SQLCODE <> -20001) THEN
3490: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3491: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3492: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3493: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3494: 'Invoice_id = '|| to_char(p_line_location_id));
3495: END IF;
3496: APP_EXCEPTION.RAISE_EXCEPTION;
3497: END Get_Shipment_Qty_Delivered;
3534:
3535: EXCEPTION
3536: WHEN OTHERS THEN
3537: IF (SQLCODE <> -20001) THEN
3538: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3539: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3540: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3541: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3542: 'Invoice_id = '|| to_char(p_line_location_id));
3535: EXCEPTION
3536: WHEN OTHERS THEN
3537: IF (SQLCODE <> -20001) THEN
3538: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3539: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3540: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3541: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3542: 'Invoice_id = '|| to_char(p_line_location_id));
3543: END IF;
3536: WHEN OTHERS THEN
3537: IF (SQLCODE <> -20001) THEN
3538: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3539: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3540: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3541: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3542: 'Invoice_id = '|| to_char(p_line_location_id));
3543: END IF;
3544: APP_EXCEPTION.RAISE_EXCEPTION;
3537: IF (SQLCODE <> -20001) THEN
3538: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3539: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3540: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3541: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3542: 'Invoice_id = '|| to_char(p_line_location_id));
3543: END IF;
3544: APP_EXCEPTION.RAISE_EXCEPTION;
3545: END Update_Final_Match_Flag;
4043: p_calling_sequence);
4044:
4045: EXCEPTION
4046: WHEN Error THEN
4047: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4048: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4049: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4050: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4051: 'Invoice_id = '|| to_char(p_invoice_id));
4044:
4045: EXCEPTION
4046: WHEN Error THEN
4047: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4048: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4049: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4050: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4051: 'Invoice_id = '|| to_char(p_invoice_id));
4052: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4045: EXCEPTION
4046: WHEN Error THEN
4047: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4048: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4049: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4050: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4051: 'Invoice_id = '|| to_char(p_invoice_id));
4052: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4053: APP_EXCEPTION.RAISE_EXCEPTION;
4046: WHEN Error THEN
4047: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4048: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4049: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4050: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4051: 'Invoice_id = '|| to_char(p_invoice_id));
4052: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4053: APP_EXCEPTION.RAISE_EXCEPTION;
4054: WHEN OTHERS THEN
4048: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4049: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4050: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4051: 'Invoice_id = '|| to_char(p_invoice_id));
4052: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4053: APP_EXCEPTION.RAISE_EXCEPTION;
4054: WHEN OTHERS THEN
4055: IF (SQLCODE <> -20001) THEN
4056: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4052: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4053: APP_EXCEPTION.RAISE_EXCEPTION;
4054: WHEN OTHERS THEN
4055: IF (SQLCODE <> -20001) THEN
4056: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4057: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4058: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4059: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4060: 'Invoice_id = '|| to_char(p_invoice_id));
4053: APP_EXCEPTION.RAISE_EXCEPTION;
4054: WHEN OTHERS THEN
4055: IF (SQLCODE <> -20001) THEN
4056: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4057: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4058: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4059: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4060: 'Invoice_id = '|| to_char(p_invoice_id));
4061: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4054: WHEN OTHERS THEN
4055: IF (SQLCODE <> -20001) THEN
4056: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4057: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4058: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4059: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4060: 'Invoice_id = '|| to_char(p_invoice_id));
4061: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4062: END IF;
4055: IF (SQLCODE <> -20001) THEN
4056: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4057: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4058: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4059: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4060: 'Invoice_id = '|| to_char(p_invoice_id));
4061: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4062: END IF;
4063: APP_EXCEPTION.RAISE_EXCEPTION;
4057: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4058: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4059: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4060: 'Invoice_id = '|| to_char(p_invoice_id));
4061: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4062: END IF;
4063: APP_EXCEPTION.RAISE_EXCEPTION;
4064: END Exec_PO_Final_Close;
4065:
4160:
4161: EXCEPTION
4162: WHEN OTHERS THEN
4163: IF (SQLCODE <> -20001) THEN
4164: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4165: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4166: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4167: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4168: 'Invoice_id = '|| to_char(p_invoice_id)
4161: EXCEPTION
4162: WHEN OTHERS THEN
4163: IF (SQLCODE <> -20001) THEN
4164: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4165: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4166: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4167: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4168: 'Invoice_id = '|| to_char(p_invoice_id)
4169: ||', Line Location Id = '|| to_char(p_line_location_id));
4162: WHEN OTHERS THEN
4163: IF (SQLCODE <> -20001) THEN
4164: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4165: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4166: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4167: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4168: 'Invoice_id = '|| to_char(p_invoice_id)
4169: ||', Line Location Id = '|| to_char(p_line_location_id));
4170: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4163: IF (SQLCODE <> -20001) THEN
4164: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4165: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4166: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4167: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4168: 'Invoice_id = '|| to_char(p_invoice_id)
4169: ||', Line Location Id = '|| to_char(p_line_location_id));
4170: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4171: END IF;
4166: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4167: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4168: 'Invoice_id = '|| to_char(p_invoice_id)
4169: ||', Line Location Id = '|| to_char(p_line_location_id));
4170: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4171: END IF;
4172: APP_EXCEPTION.RAISE_EXCEPTION;
4173: END Check_Receipt_Exception;
4174:
4351:
4352: EXCEPTION
4353: WHEN OTHERS THEN
4354: IF (SQLCODE <> -20001) THEN
4355: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4356: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4357: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4358: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4359: 'Invoice_id = '|| to_char(p_invoice_id)
4352: EXCEPTION
4353: WHEN OTHERS THEN
4354: IF (SQLCODE <> -20001) THEN
4355: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4356: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4357: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4358: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4359: 'Invoice_id = '|| to_char(p_invoice_id)
4360: ||', Line_Location_id = '|| to_char(p_line_location_id)
4353: WHEN OTHERS THEN
4354: IF (SQLCODE <> -20001) THEN
4355: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4356: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4357: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4358: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4359: 'Invoice_id = '|| to_char(p_invoice_id)
4360: ||', Line_Location_id = '|| to_char(p_line_location_id)
4361: ||', Inv_Currency_Code= '|| p_invoice_currency_code
4354: IF (SQLCODE <> -20001) THEN
4355: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4356: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4357: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4358: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4359: 'Invoice_id = '|| to_char(p_invoice_id)
4360: ||', Line_Location_id = '|| to_char(p_line_location_id)
4361: ||', Inv_Currency_Code= '|| p_invoice_currency_code
4362: ||', rcv_transaction_id = '|| to_char(p_rcv_transaction_id)
4361: ||', Inv_Currency_Code= '|| p_invoice_currency_code
4362: ||', rcv_transaction_id = '|| to_char(p_rcv_transaction_id)
4363: ||', PO_Unit_Price = '|| to_char(p_po_unit_price)
4364: ||', Price_Tolerance = '|| to_char(p_price_tolerance));
4365: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4366: END IF;
4367:
4368: IF ( corrected_invoices%ISOPEN ) THEN
4369: CLOSE corrected_invoices;
4565:
4566: EXCEPTION
4567: WHEN OTHERS THEN
4568: IF (SQLCODE <> -20001) THEN
4569: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4570: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4571: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4572: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4573: 'Invoice_id = '|| to_char(p_invoice_id)
4566: EXCEPTION
4567: WHEN OTHERS THEN
4568: IF (SQLCODE <> -20001) THEN
4569: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4570: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4571: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4572: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4573: 'Invoice_id = '|| to_char(p_invoice_id)
4574: ||', Line_Location_id = '|| to_char(p_line_location_id)
4567: WHEN OTHERS THEN
4568: IF (SQLCODE <> -20001) THEN
4569: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4570: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4571: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4572: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4573: 'Invoice_id = '|| to_char(p_invoice_id)
4574: ||', Line_Location_id = '|| to_char(p_line_location_id)
4575: ||', Inv_Currency_Code= '|| p_invoice_currency_code
4568: IF (SQLCODE <> -20001) THEN
4569: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4570: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4571: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4572: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4573: 'Invoice_id = '|| to_char(p_invoice_id)
4574: ||', Line_Location_id = '|| to_char(p_line_location_id)
4575: ||', Inv_Currency_Code= '|| p_invoice_currency_code
4576: ||', PO_Unit_Price = '|| to_char(p_po_unit_price)
4574: ||', Line_Location_id = '|| to_char(p_line_location_id)
4575: ||', Inv_Currency_Code= '|| p_invoice_currency_code
4576: ||', PO_Unit_Price = '|| to_char(p_po_unit_price)
4577: ||', Price_Tolerance = '|| to_char(p_price_tolerance));
4578: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4579: END IF;
4580: APP_EXCEPTION.RAISE_EXCEPTION;
4581:
4582: END CHECK_AVERAGE_PRICE;
4670:
4671: EXCEPTION
4672: WHEN OTHERS THEN
4673: IF (SQLCODE <> -20001) THEN
4674: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4675: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4676: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4677: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4678: 'Invoice_id = '|| to_char(p_invoice_id)
4671: EXCEPTION
4672: WHEN OTHERS THEN
4673: IF (SQLCODE <> -20001) THEN
4674: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4675: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4676: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4677: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4678: 'Invoice_id = '|| to_char(p_invoice_id)
4679: ||', Dist_line_num = '|| to_char(p_line_location_id));
4672: WHEN OTHERS THEN
4673: IF (SQLCODE <> -20001) THEN
4674: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4675: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4676: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4677: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4678: 'Invoice_id = '|| to_char(p_invoice_id)
4679: ||', Dist_line_num = '|| to_char(p_line_location_id));
4680: END IF;
4673: IF (SQLCODE <> -20001) THEN
4674: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4675: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4676: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4677: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4678: 'Invoice_id = '|| to_char(p_invoice_id)
4679: ||', Dist_line_num = '|| to_char(p_line_location_id));
4680: END IF;
4681: APP_EXCEPTION.RAISE_EXCEPTION;
4807:
4808: EXCEPTION
4809: WHEN OTHERS THEN
4810: IF (SQLCODE <> -20001) THEN
4811: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4812: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4813: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4814: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4815: 'Invoice_id = '|| to_char(p_invoice_id)
4808: EXCEPTION
4809: WHEN OTHERS THEN
4810: IF (SQLCODE <> -20001) THEN
4811: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4812: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4813: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4814: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4815: 'Invoice_id = '|| to_char(p_invoice_id)
4816: ||', po_line_location_id = '|| to_char(p_line_location_id));
4809: WHEN OTHERS THEN
4810: IF (SQLCODE <> -20001) THEN
4811: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4812: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4813: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4814: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4815: 'Invoice_id = '|| to_char(p_invoice_id)
4816: ||', po_line_location_id = '|| to_char(p_line_location_id));
4817: END IF;
4810: IF (SQLCODE <> -20001) THEN
4811: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4812: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4813: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4814: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4815: 'Invoice_id = '|| to_char(p_invoice_id)
4816: ||', po_line_location_id = '|| to_char(p_line_location_id));
4817: END IF;
4818: APP_EXCEPTION.RAISE_EXCEPTION;
4910:
4911: EXCEPTION
4912: WHEN OTHERS THEN
4913: IF (SQLCODE <> -20001) THEN
4914: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4915: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4916: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4917: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4918: 'Invoice_id = '|| to_char(p_invoice_id)
4911: EXCEPTION
4912: WHEN OTHERS THEN
4913: IF (SQLCODE <> -20001) THEN
4914: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4915: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4916: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4917: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4918: 'Invoice_id = '|| to_char(p_invoice_id)
4919: ||', Dist_line_num = '|| to_char(p_line_location_id));
4912: WHEN OTHERS THEN
4913: IF (SQLCODE <> -20001) THEN
4914: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4915: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4916: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4917: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4918: 'Invoice_id = '|| to_char(p_invoice_id)
4919: ||', Dist_line_num = '|| to_char(p_line_location_id));
4920: END IF;
4913: IF (SQLCODE <> -20001) THEN
4914: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4915: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4916: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4917: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4918: 'Invoice_id = '|| to_char(p_invoice_id)
4919: ||', Dist_line_num = '|| to_char(p_line_location_id));
4920: END IF;
4921: APP_EXCEPTION.RAISE_EXCEPTION;
5044:
5045: EXCEPTION
5046: WHEN OTHERS THEN
5047: IF (SQLCODE <> -20001) THEN
5048: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5049: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5050: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5051: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5052: 'Invoice_id = '|| to_char(p_invoice_id)
5045: EXCEPTION
5046: WHEN OTHERS THEN
5047: IF (SQLCODE <> -20001) THEN
5048: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5049: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5050: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5051: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5052: 'Invoice_id = '|| to_char(p_invoice_id)
5053: ||', po_line_location_id = '|| to_char(p_line_location_id));
5046: WHEN OTHERS THEN
5047: IF (SQLCODE <> -20001) THEN
5048: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5049: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5050: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5051: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5052: 'Invoice_id = '|| to_char(p_invoice_id)
5053: ||', po_line_location_id = '|| to_char(p_line_location_id));
5054: END IF;
5047: IF (SQLCODE <> -20001) THEN
5048: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5049: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5050: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5051: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5052: 'Invoice_id = '|| to_char(p_invoice_id)
5053: ||', po_line_location_id = '|| to_char(p_line_location_id));
5054: END IF;
5055: APP_EXCEPTION.RAISE_EXCEPTION;
5218:
5219: EXCEPTION
5220: WHEN OTHERS THEN
5221: IF (SQLCODE <> -20001) THEN
5222: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5223: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5224: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5225: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5226: 'Invoice_id = '|| to_char(p_invoice_id)
5219: EXCEPTION
5220: WHEN OTHERS THEN
5221: IF (SQLCODE <> -20001) THEN
5222: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5223: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5224: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5225: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5226: 'Invoice_id = '|| to_char(p_invoice_id)
5227: ||', Shipment_id = '|| to_char(p_line_location_id));
5220: WHEN OTHERS THEN
5221: IF (SQLCODE <> -20001) THEN
5222: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5223: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5224: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5225: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5226: 'Invoice_id = '|| to_char(p_invoice_id)
5227: ||', Shipment_id = '|| to_char(p_line_location_id));
5228: END IF;
5221: IF (SQLCODE <> -20001) THEN
5222: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5223: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5224: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5225: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5226: 'Invoice_id = '|| to_char(p_invoice_id)
5227: ||', Shipment_id = '|| to_char(p_line_location_id));
5228: END IF;
5229: APP_EXCEPTION.RAISE_EXCEPTION;
5366:
5367: EXCEPTION
5368: WHEN OTHERS THEN
5369: IF (SQLCODE <> -20001) THEN
5370: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5371: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5372: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5373: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5374: 'Invoice_id = '|| to_char(p_invoice_id)
5367: EXCEPTION
5368: WHEN OTHERS THEN
5369: IF (SQLCODE <> -20001) THEN
5370: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5371: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5372: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5373: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5374: 'Invoice_id = '|| to_char(p_invoice_id)
5375: ||', Shipment_id = '|| to_char(p_line_location_id));
5368: WHEN OTHERS THEN
5369: IF (SQLCODE <> -20001) THEN
5370: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5371: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5372: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5373: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5374: 'Invoice_id = '|| to_char(p_invoice_id)
5375: ||', Shipment_id = '|| to_char(p_line_location_id));
5376: END IF;
5369: IF (SQLCODE <> -20001) THEN
5370: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5371: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5372: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5373: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5374: 'Invoice_id = '|| to_char(p_invoice_id)
5375: ||', Shipment_id = '|| to_char(p_line_location_id));
5376: END IF;
5377: APP_EXCEPTION.RAISE_EXCEPTION;
5461:
5462: EXCEPTION
5463: WHEN OTHERS THEN
5464: IF (SQLCODE <> -20001) THEN
5465: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5466: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5467: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5468: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5469: 'Invoice_id = '|| to_char(p_invoice_id)
5462: EXCEPTION
5463: WHEN OTHERS THEN
5464: IF (SQLCODE <> -20001) THEN
5465: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5466: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5467: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5468: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5469: 'Invoice_id = '|| to_char(p_invoice_id)
5470: ||', Shipment_id = '|| to_char(p_line_location_id));
5463: WHEN OTHERS THEN
5464: IF (SQLCODE <> -20001) THEN
5465: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5466: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5467: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5468: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5469: 'Invoice_id = '|| to_char(p_invoice_id)
5470: ||', Shipment_id = '|| to_char(p_line_location_id));
5471: END IF;
5464: IF (SQLCODE <> -20001) THEN
5465: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5466: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5467: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5468: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5469: 'Invoice_id = '|| to_char(p_invoice_id)
5470: ||', Shipment_id = '|| to_char(p_line_location_id));
5471: END IF;
5472: APP_EXCEPTION.RAISE_EXCEPTION;
5618:
5619: EXCEPTION
5620: WHEN OTHERS THEN
5621: IF (SQLCODE <> -20001) THEN
5622: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5623: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5624: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5625: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5626: 'Invoice_id = '|| to_char(p_invoice_id)
5619: EXCEPTION
5620: WHEN OTHERS THEN
5621: IF (SQLCODE <> -20001) THEN
5622: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5623: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5624: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5625: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5626: 'Invoice_id = '|| to_char(p_invoice_id)
5627: ||', Shipment_id = '|| to_char(p_line_location_id));
5620: WHEN OTHERS THEN
5621: IF (SQLCODE <> -20001) THEN
5622: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5623: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5624: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5625: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5626: 'Invoice_id = '|| to_char(p_invoice_id)
5627: ||', Shipment_id = '|| to_char(p_line_location_id));
5628: END IF;
5621: IF (SQLCODE <> -20001) THEN
5622: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5623: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5624: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5625: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5626: 'Invoice_id = '|| to_char(p_invoice_id)
5627: ||', Shipment_id = '|| to_char(p_line_location_id));
5628: END IF;
5629: APP_EXCEPTION.RAISE_EXCEPTION;
5779:
5780: EXCEPTION
5781: WHEN OTHERS THEN
5782: IF (SQLCODE <> -20001) THEN
5783: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5784: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5785: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5786: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5787: 'Invoice_id = '|| to_char(p_invoice_id)
5780: EXCEPTION
5781: WHEN OTHERS THEN
5782: IF (SQLCODE <> -20001) THEN
5783: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5784: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5785: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5786: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5787: 'Invoice_id = '|| to_char(p_invoice_id)
5788: ||', Shipment_id = '|| to_char(p_line_location_id));
5781: WHEN OTHERS THEN
5782: IF (SQLCODE <> -20001) THEN
5783: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5784: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5785: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5786: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5787: 'Invoice_id = '|| to_char(p_invoice_id)
5788: ||', Shipment_id = '|| to_char(p_line_location_id));
5789: END IF;
5782: IF (SQLCODE <> -20001) THEN
5783: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5784: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5785: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5786: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5787: 'Invoice_id = '|| to_char(p_invoice_id)
5788: ||', Shipment_id = '|| to_char(p_line_location_id));
5789: END IF;
5790: APP_EXCEPTION.RAISE_EXCEPTION;
5821: WHEN TOO_MANY_ROWS THEN
5822: l_check := 'Price Difference or Quantity Has Decimals';
5823: WHEN OTHERS THEN
5824: IF (SQLCODE <> -20001) THEN
5825: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5826: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5827: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5828: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5829: 'Invoice_id = '|| to_char(p_invoice_id));
5822: l_check := 'Price Difference or Quantity Has Decimals';
5823: WHEN OTHERS THEN
5824: IF (SQLCODE <> -20001) THEN
5825: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5826: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5827: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5828: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5829: 'Invoice_id = '|| to_char(p_invoice_id));
5830: END IF;
5823: WHEN OTHERS THEN
5824: IF (SQLCODE <> -20001) THEN
5825: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5826: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5827: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5828: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5829: 'Invoice_id = '|| to_char(p_invoice_id));
5830: END IF;
5831: APP_EXCEPTION.RAISE_EXCEPTION;
5824: IF (SQLCODE <> -20001) THEN
5825: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5826: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5827: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5828: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5829: 'Invoice_id = '|| to_char(p_invoice_id));
5830: END IF;
5831: APP_EXCEPTION.RAISE_EXCEPTION;
5832: END;
5835:
5836: EXCEPTION
5837: WHEN OTHERS THEN
5838: IF (SQLCODE <> -20001) THEN
5839: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5840: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5841: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5842: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5843: 'Invoice_id = '|| to_char(p_invoice_id));
5836: EXCEPTION
5837: WHEN OTHERS THEN
5838: IF (SQLCODE <> -20001) THEN
5839: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5840: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5841: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5842: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5843: 'Invoice_id = '|| to_char(p_invoice_id));
5844: END IF;
5837: WHEN OTHERS THEN
5838: IF (SQLCODE <> -20001) THEN
5839: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5840: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5841: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5842: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5843: 'Invoice_id = '|| to_char(p_invoice_id));
5844: END IF;
5845: APP_EXCEPTION.RAISE_EXCEPTION;
5838: IF (SQLCODE <> -20001) THEN
5839: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5840: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5841: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5842: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5843: 'Invoice_id = '|| to_char(p_invoice_id));
5844: END IF;
5845: APP_EXCEPTION.RAISE_EXCEPTION;
5846: END Check_Milestone_Price_Qty;
5911:
5912: EXCEPTION
5913: WHEN OTHERS THEN
5914: IF (SQLCODE <> -20001) THEN
5915: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
5916: FND_MESSAGE.set_token('ERROR',SQLERRM);
5917: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
5918: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
5919: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
5912: EXCEPTION
5913: WHEN OTHERS THEN
5914: IF (SQLCODE <> -20001) THEN
5915: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
5916: FND_MESSAGE.set_token('ERROR',SQLERRM);
5917: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
5918: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
5919: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
5920: END IF;
5913: WHEN OTHERS THEN
5914: IF (SQLCODE <> -20001) THEN
5915: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
5916: FND_MESSAGE.set_token('ERROR',SQLERRM);
5917: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
5918: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
5919: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
5920: END IF;
5921:
5914: IF (SQLCODE <> -20001) THEN
5915: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
5916: FND_MESSAGE.set_token('ERROR',SQLERRM);
5917: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
5918: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
5919: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
5920: END IF;
5921:
5922: APP_EXCEPTION.raise_exception;
5915: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
5916: FND_MESSAGE.set_token('ERROR',SQLERRM);
5917: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
5918: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
5919: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
5920: END IF;
5921:
5922: APP_EXCEPTION.raise_exception;
5923:
5990:
5991: EXCEPTION
5992: WHEN OTHERS THEN
5993: IF (SQLCODE <> -20001) THEN
5994: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
5995: FND_MESSAGE.set_token('ERROR',SQLERRM);
5996: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
5997: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
5998: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
5991: EXCEPTION
5992: WHEN OTHERS THEN
5993: IF (SQLCODE <> -20001) THEN
5994: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
5995: FND_MESSAGE.set_token('ERROR',SQLERRM);
5996: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
5997: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
5998: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
5999: END IF;
5992: WHEN OTHERS THEN
5993: IF (SQLCODE <> -20001) THEN
5994: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
5995: FND_MESSAGE.set_token('ERROR',SQLERRM);
5996: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
5997: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
5998: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
5999: END IF;
6000:
5993: IF (SQLCODE <> -20001) THEN
5994: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
5995: FND_MESSAGE.set_token('ERROR',SQLERRM);
5996: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
5997: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
5998: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
5999: END IF;
6000:
6001: APP_EXCEPTION.raise_exception;
5994: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
5995: FND_MESSAGE.set_token('ERROR',SQLERRM);
5996: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
5997: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
5998: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
5999: END IF;
6000:
6001: APP_EXCEPTION.raise_exception;
6002: