1478:
1479: EXCEPTION
1480: WHEN OTHERS THEN
1481: IF (SQLCODE <> -20001) THEN
1482: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1483: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1484: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1485: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1486: 'Invoice_id = '|| to_char(p_invoice_id)
1479: EXCEPTION
1480: WHEN OTHERS THEN
1481: IF (SQLCODE <> -20001) THEN
1482: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1483: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1484: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1485: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1486: 'Invoice_id = '|| to_char(p_invoice_id)
1487: ||', Sys Xrate Gain Ccid = '|| to_char(p_sys_xrate_gain_ccid)
1480: WHEN OTHERS THEN
1481: IF (SQLCODE <> -20001) THEN
1482: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1483: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1484: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1485: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1486: 'Invoice_id = '|| to_char(p_invoice_id)
1487: ||', Sys Xrate Gain Ccid = '|| to_char(p_sys_xrate_gain_ccid)
1488: ||', Sys Xrate Loss Ccid = '|| to_char(p_sys_xrate_loss_ccid));
1481: IF (SQLCODE <> -20001) THEN
1482: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1483: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1484: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1485: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1486: 'Invoice_id = '|| to_char(p_invoice_id)
1487: ||', Sys Xrate Gain Ccid = '|| to_char(p_sys_xrate_gain_ccid)
1488: ||', Sys Xrate Loss Ccid = '|| to_char(p_sys_xrate_loss_ccid));
1489: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1485: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1486: 'Invoice_id = '|| to_char(p_invoice_id)
1487: ||', Sys Xrate Gain Ccid = '|| to_char(p_sys_xrate_gain_ccid)
1488: ||', Sys Xrate Loss Ccid = '|| to_char(p_sys_xrate_loss_ccid));
1489: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1490: END IF;
1491:
1492: IF ( Distribution_Cur%ISOPEN ) THEN
1493: CLOSE Distribution_Cur;
1763:
1764: EXCEPTION
1765: WHEN OTHERS THEN
1766: IF (SQLCODE <> -20001) THEN
1767: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1768: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1769: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1770: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1771: 'Invoice_id = '|| to_char(p_invoice_id) );
1764: EXCEPTION
1765: WHEN OTHERS THEN
1766: IF (SQLCODE <> -20001) THEN
1767: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1768: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1769: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1770: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1771: 'Invoice_id = '|| to_char(p_invoice_id) );
1772: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1765: WHEN OTHERS THEN
1766: IF (SQLCODE <> -20001) THEN
1767: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1768: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1769: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1770: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1771: 'Invoice_id = '|| to_char(p_invoice_id) );
1772: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1773: END IF;
1766: IF (SQLCODE <> -20001) THEN
1767: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1768: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1769: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1770: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1771: 'Invoice_id = '|| to_char(p_invoice_id) );
1772: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1773: END IF;
1774:
1768: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1769: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1770: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1771: 'Invoice_id = '|| to_char(p_invoice_id) );
1772: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1773: END IF;
1774:
1775: IF ( Distribution_Cur%ISOPEN ) THEN
1776: CLOSE Distribution_Cur;
2019:
2020: EXCEPTION
2021: WHEN OTHERS THEN
2022: IF (SQLCODE <> -20001) THEN
2023: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2024: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2025: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2026: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2027: 'Invoice_id = '|| to_char(p_invoice_id) );
2020: EXCEPTION
2021: WHEN OTHERS THEN
2022: IF (SQLCODE <> -20001) THEN
2023: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2024: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2025: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2026: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2027: 'Invoice_id = '|| to_char(p_invoice_id) );
2028: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2021: WHEN OTHERS THEN
2022: IF (SQLCODE <> -20001) THEN
2023: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2024: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2025: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2026: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2027: 'Invoice_id = '|| to_char(p_invoice_id) );
2028: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2029: END IF;
2022: IF (SQLCODE <> -20001) THEN
2023: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2024: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2025: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2026: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2027: 'Invoice_id = '|| to_char(p_invoice_id) );
2028: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2029: END IF;
2030:
2024: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2025: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2026: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2027: 'Invoice_id = '|| to_char(p_invoice_id) );
2028: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2029: END IF;
2030:
2031: IF ( Distribution_Cur%ISOPEN ) THEN
2032: CLOSE Distribution_Cur;
3726:
3727: EXCEPTION
3728: WHEN OTHERS THEN
3729: IF (SQLCODE <> -20001) THEN
3730: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3731: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3732: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3733: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3734: 'Invoice_id = '|| to_char(p_invoice_id)
3727: EXCEPTION
3728: WHEN OTHERS THEN
3729: IF (SQLCODE <> -20001) THEN
3730: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3731: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3732: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3733: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3734: 'Invoice_id = '|| to_char(p_invoice_id)
3735: ||', Dist_line_num = '|| to_char(p_price_tol)
3728: WHEN OTHERS THEN
3729: IF (SQLCODE <> -20001) THEN
3730: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3731: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3732: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3733: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3734: 'Invoice_id = '|| to_char(p_invoice_id)
3735: ||', Dist_line_num = '|| to_char(p_price_tol)
3736: ||', Packet_id = '|| to_char(p_qty_tol)
3729: IF (SQLCODE <> -20001) THEN
3730: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3731: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3732: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3733: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3734: 'Invoice_id = '|| to_char(p_invoice_id)
3735: ||', Dist_line_num = '|| to_char(p_price_tol)
3736: ||', Packet_id = '|| to_char(p_qty_tol)
3737: ||', Fundscheck mode = '|| to_char(p_qty_rec_tol)
3736: ||', Packet_id = '|| to_char(p_qty_tol)
3737: ||', Fundscheck mode = '|| to_char(p_qty_rec_tol)
3738: ||', Partial_reserv_flag = '|| to_char(p_max_qty_ord_tol)
3739: ||', Max QTY REC Tol = '|| to_char(p_max_qty_rec_tol));
3740: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3741: END IF;
3742: APP_EXCEPTION.RAISE_EXCEPTION;
3743: END Execute_Matched_Checks;
3744:
3781: p_po_closed_code := null;
3782: return;
3783: WHEN OTHERS THEN
3784: IF (SQLCODE <> -20001) THEN
3785: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3786: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3787: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3788: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3789: 'Invoice_id = '|| to_char(p_line_location_id));
3782: return;
3783: WHEN OTHERS THEN
3784: IF (SQLCODE <> -20001) THEN
3785: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3786: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3787: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3788: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3789: 'Invoice_id = '|| to_char(p_line_location_id));
3790: END IF;
3783: WHEN OTHERS THEN
3784: IF (SQLCODE <> -20001) THEN
3785: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3786: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3787: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3788: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3789: 'Invoice_id = '|| to_char(p_line_location_id));
3790: END IF;
3791: APP_EXCEPTION.RAISE_EXCEPTION;
3784: IF (SQLCODE <> -20001) THEN
3785: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3786: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3787: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3788: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3789: 'Invoice_id = '|| to_char(p_line_location_id));
3790: END IF;
3791: APP_EXCEPTION.RAISE_EXCEPTION;
3792: END Get_PO_Closed_Code;
3832: WHEN NO_DATA_FOUND THEN
3833: return(FALSE);
3834: WHEN OTHERS THEN
3835: IF (SQLCODE <> -20001) THEN
3836: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3837: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3838: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3839: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3840: 'Invoice_id = '|| to_char(p_invoice_id)
3833: return(FALSE);
3834: WHEN OTHERS THEN
3835: IF (SQLCODE <> -20001) THEN
3836: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3837: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3838: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3839: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3840: 'Invoice_id = '|| to_char(p_invoice_id)
3841: ||', Hold Code1 = '|| p_hold_code
3834: WHEN OTHERS THEN
3835: IF (SQLCODE <> -20001) THEN
3836: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3837: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3838: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3839: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3840: 'Invoice_id = '|| to_char(p_invoice_id)
3841: ||', Hold Code1 = '|| p_hold_code
3842: ||', Hold Code2 = '|| p_hold_code2);
3835: IF (SQLCODE <> -20001) THEN
3836: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3837: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3838: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3839: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3840: 'Invoice_id = '|| to_char(p_invoice_id)
3841: ||', Hold Code1 = '|| p_hold_code
3842: ||', Hold Code2 = '|| p_hold_code2);
3843: END IF;
3884: WHEN NO_DATA_FOUND THEN
3885: return(FALSE);
3886: WHEN OTHERS THEN
3887: IF (SQLCODE <> -20001) THEN
3888: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3889: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3890: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3891: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3892: 'Invoice_id = '|| to_char(p_invoice_id)
3885: return(FALSE);
3886: WHEN OTHERS THEN
3887: IF (SQLCODE <> -20001) THEN
3888: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3889: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3890: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3891: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3892: 'Invoice_id = '|| to_char(p_invoice_id)
3893: ||', Hold Code1 = '|| p_hold_code
3886: WHEN OTHERS THEN
3887: IF (SQLCODE <> -20001) THEN
3888: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3889: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3890: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3891: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3892: 'Invoice_id = '|| to_char(p_invoice_id)
3893: ||', Hold Code1 = '|| p_hold_code
3894: ||', Hold Code2 = '|| p_hold_code2);
3887: IF (SQLCODE <> -20001) THEN
3888: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3889: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3890: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3891: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3892: 'Invoice_id = '|| to_char(p_invoice_id)
3893: ||', Hold Code1 = '|| p_hold_code
3894: ||', Hold Code2 = '|| p_hold_code2);
3895: END IF;
3929: p_qty_delivered := NULL;
3930: return;
3931: WHEN OTHERS THEN
3932: IF (SQLCODE <> -20001) THEN
3933: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3934: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3935: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3936: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3937: 'Invoice_id = '|| to_char(p_line_location_id));
3930: return;
3931: WHEN OTHERS THEN
3932: IF (SQLCODE <> -20001) THEN
3933: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3934: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3935: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3936: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3937: 'Invoice_id = '|| to_char(p_line_location_id));
3938: END IF;
3931: WHEN OTHERS THEN
3932: IF (SQLCODE <> -20001) THEN
3933: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3934: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3935: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3936: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3937: 'Invoice_id = '|| to_char(p_line_location_id));
3938: END IF;
3939: APP_EXCEPTION.RAISE_EXCEPTION;
3932: IF (SQLCODE <> -20001) THEN
3933: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3934: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3935: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3936: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3937: 'Invoice_id = '|| to_char(p_line_location_id));
3938: END IF;
3939: APP_EXCEPTION.RAISE_EXCEPTION;
3940: END Get_Shipment_Qty_Delivered;
3977:
3978: EXCEPTION
3979: WHEN OTHERS THEN
3980: IF (SQLCODE <> -20001) THEN
3981: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3982: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3983: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3984: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3985: 'Invoice_id = '|| to_char(p_line_location_id));
3978: EXCEPTION
3979: WHEN OTHERS THEN
3980: IF (SQLCODE <> -20001) THEN
3981: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3982: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3983: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3984: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3985: 'Invoice_id = '|| to_char(p_line_location_id));
3986: END IF;
3979: WHEN OTHERS THEN
3980: IF (SQLCODE <> -20001) THEN
3981: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3982: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3983: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3984: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3985: 'Invoice_id = '|| to_char(p_line_location_id));
3986: END IF;
3987: APP_EXCEPTION.RAISE_EXCEPTION;
3980: IF (SQLCODE <> -20001) THEN
3981: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3982: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3983: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
3984: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3985: 'Invoice_id = '|| to_char(p_line_location_id));
3986: END IF;
3987: APP_EXCEPTION.RAISE_EXCEPTION;
3988: END Update_Final_Match_Flag;
4486: p_calling_sequence);
4487:
4488: EXCEPTION
4489: WHEN Error THEN
4490: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4491: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4492: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4493: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4494: 'Invoice_id = '|| to_char(p_invoice_id));
4487:
4488: EXCEPTION
4489: WHEN Error THEN
4490: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4491: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4492: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4493: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4494: 'Invoice_id = '|| to_char(p_invoice_id));
4495: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4488: EXCEPTION
4489: WHEN Error THEN
4490: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4491: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4492: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4493: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4494: 'Invoice_id = '|| to_char(p_invoice_id));
4495: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4496: APP_EXCEPTION.RAISE_EXCEPTION;
4489: WHEN Error THEN
4490: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4491: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4492: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4493: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4494: 'Invoice_id = '|| to_char(p_invoice_id));
4495: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4496: APP_EXCEPTION.RAISE_EXCEPTION;
4497: WHEN OTHERS THEN
4491: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4492: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4493: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4494: 'Invoice_id = '|| to_char(p_invoice_id));
4495: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4496: APP_EXCEPTION.RAISE_EXCEPTION;
4497: WHEN OTHERS THEN
4498: IF (SQLCODE <> -20001) THEN
4499: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4495: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4496: APP_EXCEPTION.RAISE_EXCEPTION;
4497: WHEN OTHERS THEN
4498: IF (SQLCODE <> -20001) THEN
4499: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4500: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4501: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4502: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4503: 'Invoice_id = '|| to_char(p_invoice_id));
4496: APP_EXCEPTION.RAISE_EXCEPTION;
4497: WHEN OTHERS THEN
4498: IF (SQLCODE <> -20001) THEN
4499: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4500: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4501: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4502: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4503: 'Invoice_id = '|| to_char(p_invoice_id));
4504: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4497: WHEN OTHERS THEN
4498: IF (SQLCODE <> -20001) THEN
4499: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4500: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4501: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4502: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4503: 'Invoice_id = '|| to_char(p_invoice_id));
4504: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4505: END IF;
4498: IF (SQLCODE <> -20001) THEN
4499: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4500: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4501: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4502: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4503: 'Invoice_id = '|| to_char(p_invoice_id));
4504: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4505: END IF;
4506: APP_EXCEPTION.RAISE_EXCEPTION;
4500: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4501: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4502: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4503: 'Invoice_id = '|| to_char(p_invoice_id));
4504: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4505: END IF;
4506: APP_EXCEPTION.RAISE_EXCEPTION;
4507: END Exec_PO_Final_Close;
4508:
4603:
4604: EXCEPTION
4605: WHEN OTHERS THEN
4606: IF (SQLCODE <> -20001) THEN
4607: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4608: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4609: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4610: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4611: 'Invoice_id = '|| to_char(p_invoice_id)
4604: EXCEPTION
4605: WHEN OTHERS THEN
4606: IF (SQLCODE <> -20001) THEN
4607: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4608: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4609: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4610: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4611: 'Invoice_id = '|| to_char(p_invoice_id)
4612: ||', Line Location Id = '|| to_char(p_line_location_id));
4605: WHEN OTHERS THEN
4606: IF (SQLCODE <> -20001) THEN
4607: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4608: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4609: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4610: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4611: 'Invoice_id = '|| to_char(p_invoice_id)
4612: ||', Line Location Id = '|| to_char(p_line_location_id));
4613: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4606: IF (SQLCODE <> -20001) THEN
4607: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4608: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4609: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4610: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4611: 'Invoice_id = '|| to_char(p_invoice_id)
4612: ||', Line Location Id = '|| to_char(p_line_location_id));
4613: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4614: END IF;
4609: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4610: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4611: 'Invoice_id = '|| to_char(p_invoice_id)
4612: ||', Line Location Id = '|| to_char(p_line_location_id));
4613: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4614: END IF;
4615: APP_EXCEPTION.RAISE_EXCEPTION;
4616: END Check_Receipt_Exception;
4617:
4794:
4795: EXCEPTION
4796: WHEN OTHERS THEN
4797: IF (SQLCODE <> -20001) THEN
4798: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4799: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4800: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4801: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4802: 'Invoice_id = '|| to_char(p_invoice_id)
4795: EXCEPTION
4796: WHEN OTHERS THEN
4797: IF (SQLCODE <> -20001) THEN
4798: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4799: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4800: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4801: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4802: 'Invoice_id = '|| to_char(p_invoice_id)
4803: ||', Line_Location_id = '|| to_char(p_line_location_id)
4796: WHEN OTHERS THEN
4797: IF (SQLCODE <> -20001) THEN
4798: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4799: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4800: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4801: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4802: 'Invoice_id = '|| to_char(p_invoice_id)
4803: ||', Line_Location_id = '|| to_char(p_line_location_id)
4804: ||', Inv_Currency_Code= '|| p_invoice_currency_code
4797: IF (SQLCODE <> -20001) THEN
4798: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4799: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4800: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4801: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4802: 'Invoice_id = '|| to_char(p_invoice_id)
4803: ||', Line_Location_id = '|| to_char(p_line_location_id)
4804: ||', Inv_Currency_Code= '|| p_invoice_currency_code
4805: ||', rcv_transaction_id = '|| to_char(p_rcv_transaction_id)
4804: ||', Inv_Currency_Code= '|| p_invoice_currency_code
4805: ||', rcv_transaction_id = '|| to_char(p_rcv_transaction_id)
4806: ||', PO_Unit_Price = '|| to_char(p_po_unit_price)
4807: ||', Price_Tolerance = '|| to_char(p_price_tolerance));
4808: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
4809: END IF;
4810:
4811: IF ( corrected_invoices%ISOPEN ) THEN
4812: CLOSE corrected_invoices;
4986:
4987: EXCEPTION
4988: WHEN OTHERS THEN
4989: IF (SQLCODE <> -20001) THEN
4990: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4991: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4992: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4993: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4994: 'Invoice_id = '|| to_char(p_invoice_id)
4987: EXCEPTION
4988: WHEN OTHERS THEN
4989: IF (SQLCODE <> -20001) THEN
4990: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4991: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4992: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4993: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4994: 'Invoice_id = '|| to_char(p_invoice_id)
4995: ||', Line_Location_id = '|| to_char(p_line_location_id)
4988: WHEN OTHERS THEN
4989: IF (SQLCODE <> -20001) THEN
4990: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4991: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4992: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4993: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4994: 'Invoice_id = '|| to_char(p_invoice_id)
4995: ||', Line_Location_id = '|| to_char(p_line_location_id)
4996: ||', Inv_Currency_Code= '|| p_invoice_currency_code
4989: IF (SQLCODE <> -20001) THEN
4990: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4991: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4992: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
4993: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4994: 'Invoice_id = '|| to_char(p_invoice_id)
4995: ||', Line_Location_id = '|| to_char(p_line_location_id)
4996: ||', Inv_Currency_Code= '|| p_invoice_currency_code
4997: ||', PO_Unit_Price = '|| to_char(p_po_unit_price)
4995: ||', Line_Location_id = '|| to_char(p_line_location_id)
4996: ||', Inv_Currency_Code= '|| p_invoice_currency_code
4997: ||', PO_Unit_Price = '|| to_char(p_po_unit_price)
4998: ||', Price_Tolerance = '|| to_char(p_price_tolerance));
4999: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5000: END IF;
5001: APP_EXCEPTION.RAISE_EXCEPTION;
5002:
5003: END CHECK_AVERAGE_PRICE;
5092:
5093: EXCEPTION
5094: WHEN OTHERS THEN
5095: IF (SQLCODE <> -20001) THEN
5096: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5097: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5098: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5099: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5100: 'Invoice_id = '|| to_char(p_invoice_id)
5093: EXCEPTION
5094: WHEN OTHERS THEN
5095: IF (SQLCODE <> -20001) THEN
5096: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5097: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5098: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5099: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5100: 'Invoice_id = '|| to_char(p_invoice_id)
5101: ||', Dist_line_num = '|| to_char(p_line_location_id));
5094: WHEN OTHERS THEN
5095: IF (SQLCODE <> -20001) THEN
5096: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5097: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5098: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5099: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5100: 'Invoice_id = '|| to_char(p_invoice_id)
5101: ||', Dist_line_num = '|| to_char(p_line_location_id));
5102: END IF;
5095: IF (SQLCODE <> -20001) THEN
5096: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5097: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5098: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5099: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5100: 'Invoice_id = '|| to_char(p_invoice_id)
5101: ||', Dist_line_num = '|| to_char(p_line_location_id));
5102: END IF;
5103: APP_EXCEPTION.RAISE_EXCEPTION;
5229:
5230: EXCEPTION
5231: WHEN OTHERS THEN
5232: IF (SQLCODE <> -20001) THEN
5233: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5234: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5235: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5236: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5237: 'Invoice_id = '|| to_char(p_invoice_id)
5230: EXCEPTION
5231: WHEN OTHERS THEN
5232: IF (SQLCODE <> -20001) THEN
5233: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5234: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5235: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5236: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5237: 'Invoice_id = '|| to_char(p_invoice_id)
5238: ||', po_line_location_id = '|| to_char(p_line_location_id));
5231: WHEN OTHERS THEN
5232: IF (SQLCODE <> -20001) THEN
5233: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5234: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5235: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5236: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5237: 'Invoice_id = '|| to_char(p_invoice_id)
5238: ||', po_line_location_id = '|| to_char(p_line_location_id));
5239: END IF;
5232: IF (SQLCODE <> -20001) THEN
5233: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5234: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5235: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5236: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5237: 'Invoice_id = '|| to_char(p_invoice_id)
5238: ||', po_line_location_id = '|| to_char(p_line_location_id));
5239: END IF;
5240: APP_EXCEPTION.RAISE_EXCEPTION;
5332:
5333: EXCEPTION
5334: WHEN OTHERS THEN
5335: IF (SQLCODE <> -20001) THEN
5336: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5337: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5338: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5339: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5340: 'Invoice_id = '|| to_char(p_invoice_id)
5333: EXCEPTION
5334: WHEN OTHERS THEN
5335: IF (SQLCODE <> -20001) THEN
5336: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5337: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5338: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5339: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5340: 'Invoice_id = '|| to_char(p_invoice_id)
5341: ||', Dist_line_num = '|| to_char(p_line_location_id));
5334: WHEN OTHERS THEN
5335: IF (SQLCODE <> -20001) THEN
5336: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5337: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5338: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5339: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5340: 'Invoice_id = '|| to_char(p_invoice_id)
5341: ||', Dist_line_num = '|| to_char(p_line_location_id));
5342: END IF;
5335: IF (SQLCODE <> -20001) THEN
5336: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5337: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5338: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5339: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5340: 'Invoice_id = '|| to_char(p_invoice_id)
5341: ||', Dist_line_num = '|| to_char(p_line_location_id));
5342: END IF;
5343: APP_EXCEPTION.RAISE_EXCEPTION;
5466:
5467: EXCEPTION
5468: WHEN OTHERS THEN
5469: IF (SQLCODE <> -20001) THEN
5470: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5471: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5472: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5473: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5474: 'Invoice_id = '|| to_char(p_invoice_id)
5467: EXCEPTION
5468: WHEN OTHERS THEN
5469: IF (SQLCODE <> -20001) THEN
5470: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5471: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5472: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5473: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5474: 'Invoice_id = '|| to_char(p_invoice_id)
5475: ||', po_line_location_id = '|| to_char(p_line_location_id));
5468: WHEN OTHERS THEN
5469: IF (SQLCODE <> -20001) THEN
5470: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5471: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5472: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5473: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5474: 'Invoice_id = '|| to_char(p_invoice_id)
5475: ||', po_line_location_id = '|| to_char(p_line_location_id));
5476: END IF;
5469: IF (SQLCODE <> -20001) THEN
5470: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5471: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5472: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5473: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5474: 'Invoice_id = '|| to_char(p_invoice_id)
5475: ||', po_line_location_id = '|| to_char(p_line_location_id));
5476: END IF;
5477: APP_EXCEPTION.RAISE_EXCEPTION;
5640:
5641: EXCEPTION
5642: WHEN OTHERS THEN
5643: IF (SQLCODE <> -20001) THEN
5644: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5645: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5646: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5647: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5648: 'Invoice_id = '|| to_char(p_invoice_id)
5641: EXCEPTION
5642: WHEN OTHERS THEN
5643: IF (SQLCODE <> -20001) THEN
5644: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5645: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5646: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5647: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5648: 'Invoice_id = '|| to_char(p_invoice_id)
5649: ||', Shipment_id = '|| to_char(p_line_location_id));
5642: WHEN OTHERS THEN
5643: IF (SQLCODE <> -20001) THEN
5644: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5645: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5646: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5647: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5648: 'Invoice_id = '|| to_char(p_invoice_id)
5649: ||', Shipment_id = '|| to_char(p_line_location_id));
5650: END IF;
5643: IF (SQLCODE <> -20001) THEN
5644: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5645: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5646: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5647: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5648: 'Invoice_id = '|| to_char(p_invoice_id)
5649: ||', Shipment_id = '|| to_char(p_line_location_id));
5650: END IF;
5651: APP_EXCEPTION.RAISE_EXCEPTION;
5788:
5789: EXCEPTION
5790: WHEN OTHERS THEN
5791: IF (SQLCODE <> -20001) THEN
5792: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5793: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5794: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5795: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5796: 'Invoice_id = '|| to_char(p_invoice_id)
5789: EXCEPTION
5790: WHEN OTHERS THEN
5791: IF (SQLCODE <> -20001) THEN
5792: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5793: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5794: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5795: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5796: 'Invoice_id = '|| to_char(p_invoice_id)
5797: ||', Shipment_id = '|| to_char(p_line_location_id));
5790: WHEN OTHERS THEN
5791: IF (SQLCODE <> -20001) THEN
5792: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5793: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5794: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5795: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5796: 'Invoice_id = '|| to_char(p_invoice_id)
5797: ||', Shipment_id = '|| to_char(p_line_location_id));
5798: END IF;
5791: IF (SQLCODE <> -20001) THEN
5792: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5793: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5794: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5795: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5796: 'Invoice_id = '|| to_char(p_invoice_id)
5797: ||', Shipment_id = '|| to_char(p_line_location_id));
5798: END IF;
5799: APP_EXCEPTION.RAISE_EXCEPTION;
5883:
5884: EXCEPTION
5885: WHEN OTHERS THEN
5886: IF (SQLCODE <> -20001) THEN
5887: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5888: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5889: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5890: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5891: 'Invoice_id = '|| to_char(p_invoice_id)
5884: EXCEPTION
5885: WHEN OTHERS THEN
5886: IF (SQLCODE <> -20001) THEN
5887: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5888: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5889: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5890: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5891: 'Invoice_id = '|| to_char(p_invoice_id)
5892: ||', Shipment_id = '|| to_char(p_line_location_id));
5885: WHEN OTHERS THEN
5886: IF (SQLCODE <> -20001) THEN
5887: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5888: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5889: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5890: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5891: 'Invoice_id = '|| to_char(p_invoice_id)
5892: ||', Shipment_id = '|| to_char(p_line_location_id));
5893: END IF;
5886: IF (SQLCODE <> -20001) THEN
5887: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5888: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5889: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5890: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5891: 'Invoice_id = '|| to_char(p_invoice_id)
5892: ||', Shipment_id = '|| to_char(p_line_location_id));
5893: END IF;
5894: APP_EXCEPTION.RAISE_EXCEPTION;
6113:
6114: EXCEPTION
6115: WHEN OTHERS THEN
6116: IF (SQLCODE <> -20001) THEN
6117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6120: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6121: 'Invoice_id = '|| to_char(p_invoice_id)
6114: EXCEPTION
6115: WHEN OTHERS THEN
6116: IF (SQLCODE <> -20001) THEN
6117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6120: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6121: 'Invoice_id = '|| to_char(p_invoice_id)
6122: ||', Shipment_id = '|| to_char(p_line_location_id));
6115: WHEN OTHERS THEN
6116: IF (SQLCODE <> -20001) THEN
6117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6120: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6121: 'Invoice_id = '|| to_char(p_invoice_id)
6122: ||', Shipment_id = '|| to_char(p_line_location_id));
6123: END IF;
6116: IF (SQLCODE <> -20001) THEN
6117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6120: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6121: 'Invoice_id = '|| to_char(p_invoice_id)
6122: ||', Shipment_id = '|| to_char(p_line_location_id));
6123: END IF;
6124: APP_EXCEPTION.RAISE_EXCEPTION;
6275:
6276: EXCEPTION
6277: WHEN OTHERS THEN
6278: IF (SQLCODE <> -20001) THEN
6279: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6280: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6281: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6282: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6283: 'Invoice_id = '|| to_char(p_invoice_id)
6276: EXCEPTION
6277: WHEN OTHERS THEN
6278: IF (SQLCODE <> -20001) THEN
6279: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6280: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6281: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6282: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6283: 'Invoice_id = '|| to_char(p_invoice_id)
6284: ||', Shipment_id = '|| to_char(p_line_location_id));
6277: WHEN OTHERS THEN
6278: IF (SQLCODE <> -20001) THEN
6279: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6280: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6281: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6282: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6283: 'Invoice_id = '|| to_char(p_invoice_id)
6284: ||', Shipment_id = '|| to_char(p_line_location_id));
6285: END IF;
6278: IF (SQLCODE <> -20001) THEN
6279: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6280: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6281: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6282: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6283: 'Invoice_id = '|| to_char(p_invoice_id)
6284: ||', Shipment_id = '|| to_char(p_line_location_id));
6285: END IF;
6286: APP_EXCEPTION.RAISE_EXCEPTION;
6320: -- l_check := 'Price Difference or Quantity Has Decimals'; .. bug8704810
6321: l_check := 'Price Difference'; -- bug8704810
6322: WHEN OTHERS THEN
6323: IF (SQLCODE <> -20001) THEN
6324: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6325: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6326: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6327: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6328: 'Invoice_id = '|| to_char(p_invoice_id));
6321: l_check := 'Price Difference'; -- bug8704810
6322: WHEN OTHERS THEN
6323: IF (SQLCODE <> -20001) THEN
6324: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6325: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6326: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6327: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6328: 'Invoice_id = '|| to_char(p_invoice_id));
6329: END IF;
6322: WHEN OTHERS THEN
6323: IF (SQLCODE <> -20001) THEN
6324: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6325: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6326: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6327: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6328: 'Invoice_id = '|| to_char(p_invoice_id));
6329: END IF;
6330: APP_EXCEPTION.RAISE_EXCEPTION;
6323: IF (SQLCODE <> -20001) THEN
6324: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6325: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6326: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6327: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6328: 'Invoice_id = '|| to_char(p_invoice_id));
6329: END IF;
6330: APP_EXCEPTION.RAISE_EXCEPTION;
6331: END;
6334:
6335: EXCEPTION
6336: WHEN OTHERS THEN
6337: IF (SQLCODE <> -20001) THEN
6338: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6339: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6340: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6341: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6342: 'Invoice_id = '|| to_char(p_invoice_id));
6335: EXCEPTION
6336: WHEN OTHERS THEN
6337: IF (SQLCODE <> -20001) THEN
6338: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6339: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6340: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6341: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6342: 'Invoice_id = '|| to_char(p_invoice_id));
6343: END IF;
6336: WHEN OTHERS THEN
6337: IF (SQLCODE <> -20001) THEN
6338: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6339: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6340: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6341: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6342: 'Invoice_id = '|| to_char(p_invoice_id));
6343: END IF;
6344: APP_EXCEPTION.RAISE_EXCEPTION;
6337: IF (SQLCODE <> -20001) THEN
6338: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6339: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6340: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
6341: FND_MESSAGE.SET_TOKEN('PARAMETERS',
6342: 'Invoice_id = '|| to_char(p_invoice_id));
6343: END IF;
6344: APP_EXCEPTION.RAISE_EXCEPTION;
6345: END Check_Milestone_Price_Qty;
6410:
6411: EXCEPTION
6412: WHEN OTHERS THEN
6413: IF (SQLCODE <> -20001) THEN
6414: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
6415: FND_MESSAGE.set_token('ERROR',SQLERRM);
6416: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
6417: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
6418: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
6411: EXCEPTION
6412: WHEN OTHERS THEN
6413: IF (SQLCODE <> -20001) THEN
6414: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
6415: FND_MESSAGE.set_token('ERROR',SQLERRM);
6416: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
6417: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
6418: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
6419: END IF;
6412: WHEN OTHERS THEN
6413: IF (SQLCODE <> -20001) THEN
6414: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
6415: FND_MESSAGE.set_token('ERROR',SQLERRM);
6416: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
6417: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
6418: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
6419: END IF;
6420:
6413: IF (SQLCODE <> -20001) THEN
6414: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
6415: FND_MESSAGE.set_token('ERROR',SQLERRM);
6416: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
6417: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
6418: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
6419: END IF;
6420:
6421: APP_EXCEPTION.raise_exception;
6414: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
6415: FND_MESSAGE.set_token('ERROR',SQLERRM);
6416: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
6417: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
6418: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
6419: END IF;
6420:
6421: APP_EXCEPTION.raise_exception;
6422:
6489:
6490: EXCEPTION
6491: WHEN OTHERS THEN
6492: IF (SQLCODE <> -20001) THEN
6493: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
6494: FND_MESSAGE.set_token('ERROR',SQLERRM);
6495: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
6496: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
6497: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
6490: EXCEPTION
6491: WHEN OTHERS THEN
6492: IF (SQLCODE <> -20001) THEN
6493: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
6494: FND_MESSAGE.set_token('ERROR',SQLERRM);
6495: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
6496: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
6497: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
6498: END IF;
6491: WHEN OTHERS THEN
6492: IF (SQLCODE <> -20001) THEN
6493: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
6494: FND_MESSAGE.set_token('ERROR',SQLERRM);
6495: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
6496: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
6497: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
6498: END IF;
6499:
6492: IF (SQLCODE <> -20001) THEN
6493: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
6494: FND_MESSAGE.set_token('ERROR',SQLERRM);
6495: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
6496: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
6497: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
6498: END IF;
6499:
6500: APP_EXCEPTION.raise_exception;
6493: FND_MESSAGE.set_name('SQLAP','AP_DEBUG');
6494: FND_MESSAGE.set_token('ERROR',SQLERRM);
6495: FND_MESSAGE.set_token('CALLING_SEQUENCE', l_curr_calling_sequence);
6496: FND_MESSAGE.set_token('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id) );
6497: FND_MESSAGE.set_token('DEBUG_INFO',l_debug_info);
6498: END IF;
6499:
6500: APP_EXCEPTION.raise_exception;
6501: