531:
532: EXCEPTION
533: WHEN OTHERS THEN
534: IF (SQLCODE <> -20001) THEN
535: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
536: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
537: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
538: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
539: X_Vendor_Site_Id);
532: EXCEPTION
533: WHEN OTHERS THEN
534: IF (SQLCODE <> -20001) THEN
535: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
536: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
537: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
538: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
539: X_Vendor_Site_Id);
540: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
533: WHEN OTHERS THEN
534: IF (SQLCODE <> -20001) THEN
535: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
536: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
537: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
538: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
539: X_Vendor_Site_Id);
540: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
541: END IF;
534: IF (SQLCODE <> -20001) THEN
535: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
536: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
537: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
538: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
539: X_Vendor_Site_Id);
540: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
541: END IF;
542: APP_EXCEPTION.RAISE_EXCEPTION;
536: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
537: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
538: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
539: X_Vendor_Site_Id);
540: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
541: END IF;
542: APP_EXCEPTION.RAISE_EXCEPTION;
543:
544: END Insert_Row;
865:
866: EXCEPTION
867: WHEN OTHERS THEN
868: IF (SQLCODE <> -20001) THEN
869: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
870: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
871: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
872: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
873: x_Vendor_Site_Id);
866: EXCEPTION
867: WHEN OTHERS THEN
868: IF (SQLCODE <> -20001) THEN
869: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
870: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
871: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
872: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
873: x_Vendor_Site_Id);
874: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
867: WHEN OTHERS THEN
868: IF (SQLCODE <> -20001) THEN
869: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
870: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
871: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
872: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
873: x_Vendor_Site_Id);
874: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
875: END IF;
868: IF (SQLCODE <> -20001) THEN
869: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
870: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
871: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
872: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
873: x_Vendor_Site_Id);
874: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
875: END IF;
876: APP_EXCEPTION.RAISE_EXCEPTION;
870: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
871: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
872: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
873: x_Vendor_Site_Id);
874: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
875: END IF;
876: APP_EXCEPTION.RAISE_EXCEPTION;
877:
878: END Insert_Row;
1037: FETCH C INTO Recinfo;
1038: if (C%NOTFOUND) then
1039: debug_info := 'Close cursor C - NOTFOUND';
1040: CLOSE C;
1041: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
1042: APP_EXCEPTION.Raise_Exception;
1043: end if;
1044: debug_info := 'Close cursor C';
1045: CLOSE C;
1212:
1213: then
1214: null;
1215: else
1216: FND_MESSAGE.Set_Name('FND','FORM_RECORD_CHANGED');
1217: APP_EXCEPTION.Raise_Exception;
1218: end if;
1219: --
1220: if (
1348: )
1349: then
1350: null;
1351: else
1352: FND_MESSAGE.Set_Name('FND','FORM_RECORD_CHANGED');
1353: APP_EXCEPTION.Raise_Exception;
1354: end if;
1355: --
1356: if (
1425: AND (X_Country_of_Origin_Code IS NULL)))
1426: ) then
1427: return;
1428: else
1429: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1430: APP_EXCEPTION.Raise_Exception;
1431: end if;
1432:
1433: begin
1443: if ( ( X_Shipping_Location_id = l_shipping_location_id )
1444: OR ( X_Shipping_Location_id is null and l_shipping_location_id is null) ) then
1445: null;
1446: else
1447: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1448: APP_EXCEPTION.Raise_Exception;
1449: end if;
1450:
1451: EXCEPTION
1452:
1453: WHEN OTHERS THEN
1454: IF (SQLCODE <> -20001) THEN
1455: IF (SQLCODE = -54) THEN
1456: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1457: ELSE
1458: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1459: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1460: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1454: IF (SQLCODE <> -20001) THEN
1455: IF (SQLCODE = -54) THEN
1456: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1457: ELSE
1458: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1459: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1460: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1461: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1462: X_Vendor_Site_Id ||
1455: IF (SQLCODE = -54) THEN
1456: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1457: ELSE
1458: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1459: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1460: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1461: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1462: X_Vendor_Site_Id ||
1463: ', ROWID = ' || X_Rowid );
1456: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1457: ELSE
1458: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1459: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1460: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1461: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1462: X_Vendor_Site_Id ||
1463: ', ROWID = ' || X_Rowid );
1464: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1457: ELSE
1458: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1459: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1460: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1461: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1462: X_Vendor_Site_Id ||
1463: ', ROWID = ' || X_Rowid );
1464: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1465: END IF;
1460: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1461: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1462: X_Vendor_Site_Id ||
1463: ', ROWID = ' || X_Rowid );
1464: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1465: END IF;
1466: END IF;
1467: APP_EXCEPTION.RAISE_EXCEPTION;
1468:
1639: from po_vendor_sites_all
1640: where vendor_site_id = X_vendor_site_id;
1641:
1642: if ( total_sites > 1 and ( vendor_site_old <> X_vendor_site_code)) then
1643: fnd_message.set_name('SQLAP','AP_SHARED_SITE');
1644: app_exception.raise_exception;
1645: end if; */
1646:
1647: Check_duplicate_vendor_site (x_vendor_id, x_vendor_site_code,
1799:
1800: EXCEPTION
1801: WHEN OTHERS THEN
1802: IF (SQLCODE <> -20001) THEN
1803: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1804: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1805: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1806: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1807: X_Vendor_Site_Id ||
1800: EXCEPTION
1801: WHEN OTHERS THEN
1802: IF (SQLCODE <> -20001) THEN
1803: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1804: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1805: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1806: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1807: X_Vendor_Site_Id ||
1808: ', ROWID = ' || X_Rowid);
1801: WHEN OTHERS THEN
1802: IF (SQLCODE <> -20001) THEN
1803: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1804: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1805: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1806: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1807: X_Vendor_Site_Id ||
1808: ', ROWID = ' || X_Rowid);
1809: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1802: IF (SQLCODE <> -20001) THEN
1803: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1804: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1805: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1806: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1807: X_Vendor_Site_Id ||
1808: ', ROWID = ' || X_Rowid);
1809: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1810: END IF;
1805: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1806: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1807: X_Vendor_Site_Id ||
1808: ', ROWID = ' || X_Rowid);
1809: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1810: END IF;
1811: APP_EXCEPTION.RAISE_EXCEPTION;
1812:
1813: END Update_Row;
1990:
1991: EXCEPTION
1992: WHEN OTHERS THEN
1993: IF (SQLCODE <> -20001) THEN
1994: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1995: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1996: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1997: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1998: p_Vendor_Site_Id );
1991: EXCEPTION
1992: WHEN OTHERS THEN
1993: IF (SQLCODE <> -20001) THEN
1994: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1995: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1996: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1997: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1998: p_Vendor_Site_Id );
1999: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1992: WHEN OTHERS THEN
1993: IF (SQLCODE <> -20001) THEN
1994: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1995: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1996: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1997: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1998: p_Vendor_Site_Id );
1999: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2000: END IF;
1993: IF (SQLCODE <> -20001) THEN
1994: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1995: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1996: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1997: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1998: p_Vendor_Site_Id );
1999: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2000: END IF;
2001: APP_EXCEPTION.RAISE_EXCEPTION;
1995: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1996: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1997: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1998: p_Vendor_Site_Id );
1999: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2000: END IF;
2001: APP_EXCEPTION.RAISE_EXCEPTION;
2002:
2003: END Update_Row;
2023: WHERE vendor_id = x_vendor_id
2024: AND nvl(offset_tax_flag, 'N') <> 'N';
2025: --
2026: if (l_offset_count > 0 ) then
2027: fnd_message.set_name('SQLAP','AP_CLEAR_SITE_OFFSET');
2028: app_exception.raise_exception;
2029: end if;
2030: EXCEPTION
2031: WHEN OTHERS THEN
2029: end if;
2030: EXCEPTION
2031: WHEN OTHERS THEN
2032: IF (SQLCODE <> -20001) THEN
2033: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2034: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2035: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence)
2036: ;
2037: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||
2030: EXCEPTION
2031: WHEN OTHERS THEN
2032: IF (SQLCODE <> -20001) THEN
2033: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2034: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2035: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence)
2036: ;
2037: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||
2038: X_Vendor_Id);
2031: WHEN OTHERS THEN
2032: IF (SQLCODE <> -20001) THEN
2033: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2034: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2035: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence)
2036: ;
2037: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||
2038: X_Vendor_Id);
2039: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2033: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2034: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2035: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence)
2036: ;
2037: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||
2038: X_Vendor_Id);
2039: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2040: END IF;
2041: APP_EXCEPTION.RAISE_EXCEPTION;
2035: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence)
2036: ;
2037: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||
2038: X_Vendor_Id);
2039: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2040: END IF;
2041: APP_EXCEPTION.RAISE_EXCEPTION;
2042:
2043: END CHECK_VENDOR_OFFSETS;
2069: AND UPPER(vendor_site_code) = UPPER(x_vendor_site_code)
2070: AND nvl(org_id,-99) = nvl(x_org_id,-99); --MO Access Control
2071:
2072: if (L_duplicate_count > 0 ) then
2073: fnd_message.set_name('SQLAP','AP_VEN_DUPLICATE_VEN_SITE');
2074: app_exception.raise_exception;
2075: end if;
2076: EXCEPTION
2077: WHEN OTHERS THEN
2075: end if;
2076: EXCEPTION
2077: WHEN OTHERS THEN
2078: IF (SQLCODE <> -20001) THEN
2079: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2080: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2081: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2082: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2083: ', VENDOR_SITE_CODE = ' || x_vendor_site_code ||
2076: EXCEPTION
2077: WHEN OTHERS THEN
2078: IF (SQLCODE <> -20001) THEN
2079: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2080: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2081: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2082: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2083: ', VENDOR_SITE_CODE = ' || x_vendor_site_code ||
2084: ', ROWID = ' || x_rowid);
2077: WHEN OTHERS THEN
2078: IF (SQLCODE <> -20001) THEN
2079: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2080: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2081: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2082: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2083: ', VENDOR_SITE_CODE = ' || x_vendor_site_code ||
2084: ', ROWID = ' || x_rowid);
2085: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2078: IF (SQLCODE <> -20001) THEN
2079: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2080: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2081: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2082: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2083: ', VENDOR_SITE_CODE = ' || x_vendor_site_code ||
2084: ', ROWID = ' || x_rowid);
2085: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2086: END IF;
2081: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2082: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2083: ', VENDOR_SITE_CODE = ' || x_vendor_site_code ||
2084: ', ROWID = ' || x_rowid);
2085: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2086: END IF;
2087: APP_EXCEPTION.RAISE_EXCEPTION;
2088:
2089: end Check_duplicate_vendor_site;
2112: AND vendor_site_id <> nvl(x_vendor_site_id,-999)
2113: AND nvl(org_id,-99) = nvl(x_org_id,-99); --MO Access Control
2114:
2115: if (L_multiple_count > 0 ) then
2116: fnd_message.set_name('SQLAP','AP_VEN_ERROR_TAX_SITE');
2117: app_exception.raise_exception;
2118: end if;
2119: EXCEPTION
2120: WHEN OTHERS THEN
2118: end if;
2119: EXCEPTION
2120: WHEN OTHERS THEN
2121: IF (SQLCODE <> -20001) THEN
2122: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2123: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2124: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2125: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
2126: X_Vendor_Site_Id ||
2119: EXCEPTION
2120: WHEN OTHERS THEN
2121: IF (SQLCODE <> -20001) THEN
2122: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2123: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2124: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2125: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
2126: X_Vendor_Site_Id ||
2127: ', VENDOR_ID = ' || x_vendor_id);
2120: WHEN OTHERS THEN
2121: IF (SQLCODE <> -20001) THEN
2122: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2123: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2124: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2125: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
2126: X_Vendor_Site_Id ||
2127: ', VENDOR_ID = ' || x_vendor_id);
2128: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2121: IF (SQLCODE <> -20001) THEN
2122: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2123: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2124: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2125: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
2126: X_Vendor_Site_Id ||
2127: ', VENDOR_ID = ' || x_vendor_id);
2128: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2129: END IF;
2124: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2125: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
2126: X_Vendor_Site_Id ||
2127: ', VENDOR_ID = ' || x_vendor_id);
2128: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2129: END IF;
2130: APP_EXCEPTION.RAISE_EXCEPTION;
2131:
2132: end Check_Multiple_Tax_sites;
2152: AND (invoice_currency_code <> x_Base_Currency_Code
2153: OR invoice_currency_code IS NULL);
2154:
2155: if (L_overlap_count > 0 ) then
2156: fnd_message.set_name('SQLAP','AP_AWT_SITES_NOT_BASE');
2157: app_exception.raise_exception;
2158: end if;
2159: EXCEPTION
2160: WHEN OTHERS THEN
2158: end if;
2159: EXCEPTION
2160: WHEN OTHERS THEN
2161: IF (SQLCODE <> -20001) THEN
2162: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2163: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2164: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2165: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || X_Vendor_Id ||
2166: ', BASE_CURRENCY_CODE = ' ||
2159: EXCEPTION
2160: WHEN OTHERS THEN
2161: IF (SQLCODE <> -20001) THEN
2162: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2163: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2164: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2165: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || X_Vendor_Id ||
2166: ', BASE_CURRENCY_CODE = ' ||
2167: x_base_currency_code);
2160: WHEN OTHERS THEN
2161: IF (SQLCODE <> -20001) THEN
2162: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2163: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2164: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2165: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || X_Vendor_Id ||
2166: ', BASE_CURRENCY_CODE = ' ||
2167: x_base_currency_code);
2168: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2161: IF (SQLCODE <> -20001) THEN
2162: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2163: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2164: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2165: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || X_Vendor_Id ||
2166: ', BASE_CURRENCY_CODE = ' ||
2167: x_base_currency_code);
2168: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2169: END IF;
2164: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2165: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || X_Vendor_Id ||
2166: ', BASE_CURRENCY_CODE = ' ||
2167: x_base_currency_code);
2168: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2169: END IF;
2170: APP_EXCEPTION.RAISE_EXCEPTION;
2171:
2172: end Check_Site_Currencies;
2203: WHEN NO_DATA_FOUND THEN
2204: x_vendor_site_code := '';
2205: WHEN OTHERS THEN
2206: IF (SQLCODE <> -20001) THEN
2207: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2208: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2209: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2210: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id);
2211: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2204: x_vendor_site_code := '';
2205: WHEN OTHERS THEN
2206: IF (SQLCODE <> -20001) THEN
2207: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2208: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2209: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2210: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id);
2211: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2212: END IF;
2205: WHEN OTHERS THEN
2206: IF (SQLCODE <> -20001) THEN
2207: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2208: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2209: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2210: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id);
2211: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2212: END IF;
2213: APP_EXCEPTION.RAISE_EXCEPTION;
2206: IF (SQLCODE <> -20001) THEN
2207: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2208: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2209: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2210: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id);
2211: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2212: END IF;
2213: APP_EXCEPTION.RAISE_EXCEPTION;
2214:
2207: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2208: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2209: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2210: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id);
2211: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2212: END IF;
2213: APP_EXCEPTION.RAISE_EXCEPTION;
2214:
2215: end get_tax_Site;
2236: AND country = 'US'
2237: AND nvl(state,'99') not in (SELECT region_short_name
2238: FROM AP_income_tax_regions);
2239: if (L_Return_count > 0 ) then
2240: fnd_message.set_name('SQLAP','AP_VEN_WARN_INV_STATE');
2241: app_exception.raise_exception;
2242: end if;
2243:
2244: EXCEPTION
2243:
2244: EXCEPTION
2245: WHEN OTHERS THEN
2246: IF (SQLCODE <> -20001) THEN
2247: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2248: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2249: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2250: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||X_Vendor_Id);
2251: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2244: EXCEPTION
2245: WHEN OTHERS THEN
2246: IF (SQLCODE <> -20001) THEN
2247: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2248: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2249: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2250: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||X_Vendor_Id);
2251: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2252: END IF;
2245: WHEN OTHERS THEN
2246: IF (SQLCODE <> -20001) THEN
2247: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2248: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2249: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2250: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||X_Vendor_Id);
2251: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2252: END IF;
2253: APP_EXCEPTION.RAISE_EXCEPTION;
2246: IF (SQLCODE <> -20001) THEN
2247: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2248: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2249: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2250: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||X_Vendor_Id);
2251: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2252: END IF;
2253: APP_EXCEPTION.RAISE_EXCEPTION;
2254:
2247: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2248: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2249: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2250: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||X_Vendor_Id);
2251: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2252: END IF;
2253: APP_EXCEPTION.RAISE_EXCEPTION;
2254:
2255: end Check_State_Codes;
2281: --MO Access Control
2282: AND nvl(org_id,-99) = nvl(x_org_id,-99);
2283:
2284: if (L_duplicate_count > 0 ) then
2285: fnd_message.set_name('SQLAP','AP_VEN_DUPLICATE_ECE_CODE');
2286: app_exception.raise_exception;
2287: end if;
2288: EXCEPTION
2289: WHEN OTHERS THEN
2287: end if;
2288: EXCEPTION
2289: WHEN OTHERS THEN
2290: IF (SQLCODE <> -20001) THEN
2291: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2292: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2293: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2294: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2295: ', ECE_TP_LOCATION_CODE = ' || x_ece_tp_location_code ||
2288: EXCEPTION
2289: WHEN OTHERS THEN
2290: IF (SQLCODE <> -20001) THEN
2291: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2292: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2293: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2294: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2295: ', ECE_TP_LOCATION_CODE = ' || x_ece_tp_location_code ||
2296: ', ROWID = ' || x_rowid);
2289: WHEN OTHERS THEN
2290: IF (SQLCODE <> -20001) THEN
2291: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2292: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2293: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2294: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2295: ', ECE_TP_LOCATION_CODE = ' || x_ece_tp_location_code ||
2296: ', ROWID = ' || x_rowid);
2297: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2290: IF (SQLCODE <> -20001) THEN
2291: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2292: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2293: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2294: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2295: ', ECE_TP_LOCATION_CODE = ' || x_ece_tp_location_code ||
2296: ', ROWID = ' || x_rowid);
2297: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2298: END IF;
2293: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2294: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2295: ', ECE_TP_LOCATION_CODE = ' || x_ece_tp_location_code ||
2296: ', ROWID = ' || x_rowid);
2297: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2298: END IF;
2299: APP_EXCEPTION.RAISE_EXCEPTION;
2300:
2301: end Check_duplicate_ece_code;