532:
533: EXCEPTION
534: WHEN OTHERS THEN
535: IF (SQLCODE <> -20001) THEN
536: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
537: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
538: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
539: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
540: X_Vendor_Site_Id);
533: EXCEPTION
534: WHEN OTHERS THEN
535: IF (SQLCODE <> -20001) THEN
536: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
537: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
538: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
539: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
540: X_Vendor_Site_Id);
541: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
534: WHEN OTHERS THEN
535: IF (SQLCODE <> -20001) THEN
536: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
537: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
538: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
539: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
540: X_Vendor_Site_Id);
541: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
542: END IF;
535: IF (SQLCODE <> -20001) THEN
536: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
537: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
538: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
539: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
540: X_Vendor_Site_Id);
541: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
542: END IF;
543: APP_EXCEPTION.RAISE_EXCEPTION;
537: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
538: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
539: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
540: X_Vendor_Site_Id);
541: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
542: END IF;
543: APP_EXCEPTION.RAISE_EXCEPTION;
544:
545: END Insert_Row;
906:
907: EXCEPTION
908: WHEN OTHERS THEN
909: IF (SQLCODE <> -20001) THEN
910: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
911: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
912: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
913: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
914: x_Vendor_Site_Id);
907: EXCEPTION
908: WHEN OTHERS THEN
909: IF (SQLCODE <> -20001) THEN
910: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
911: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
912: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
913: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
914: x_Vendor_Site_Id);
915: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
908: WHEN OTHERS THEN
909: IF (SQLCODE <> -20001) THEN
910: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
911: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
912: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
913: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
914: x_Vendor_Site_Id);
915: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
916: END IF;
909: IF (SQLCODE <> -20001) THEN
910: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
911: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
912: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
913: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
914: x_Vendor_Site_Id);
915: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
916: END IF;
917: APP_EXCEPTION.RAISE_EXCEPTION;
911: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
912: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
913: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
914: x_Vendor_Site_Id);
915: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
916: END IF;
917: APP_EXCEPTION.RAISE_EXCEPTION;
918:
919: END Insert_Row;
1078: FETCH C INTO Recinfo;
1079: if (C%NOTFOUND) then
1080: debug_info := 'Close cursor C - NOTFOUND';
1081: CLOSE C;
1082: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
1083: APP_EXCEPTION.Raise_Exception;
1084: end if;
1085: debug_info := 'Close cursor C';
1086: CLOSE C;
1253:
1254: then
1255: null;
1256: else
1257: FND_MESSAGE.Set_Name('FND','FORM_RECORD_CHANGED');
1258: APP_EXCEPTION.Raise_Exception;
1259: end if;
1260: --
1261: if (
1389: )
1390: then
1391: null;
1392: else
1393: FND_MESSAGE.Set_Name('FND','FORM_RECORD_CHANGED');
1394: APP_EXCEPTION.Raise_Exception;
1395: end if;
1396: --
1397: if (
1466: AND (X_Country_of_Origin_Code IS NULL)))
1467: ) then
1468: return;
1469: else
1470: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1471: APP_EXCEPTION.Raise_Exception;
1472: end if;
1473:
1474: begin
1484: if ( ( X_Shipping_Location_id = l_shipping_location_id )
1485: OR ( X_Shipping_Location_id is null and l_shipping_location_id is null) ) then
1486: null;
1487: else
1488: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1489: APP_EXCEPTION.Raise_Exception;
1490: end if;
1491:
1492: EXCEPTION
1493:
1494: WHEN OTHERS THEN
1495: IF (SQLCODE <> -20001) THEN
1496: IF (SQLCODE = -54) THEN
1497: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1498: ELSE
1499: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1500: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1501: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1495: IF (SQLCODE <> -20001) THEN
1496: IF (SQLCODE = -54) THEN
1497: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1498: ELSE
1499: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1500: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1501: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1502: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1503: X_Vendor_Site_Id ||
1496: IF (SQLCODE = -54) THEN
1497: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1498: ELSE
1499: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1500: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1501: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1502: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1503: X_Vendor_Site_Id ||
1504: ', ROWID = ' || X_Rowid );
1497: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1498: ELSE
1499: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1500: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1501: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1502: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1503: X_Vendor_Site_Id ||
1504: ', ROWID = ' || X_Rowid );
1505: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1498: ELSE
1499: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1500: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1501: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1502: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1503: X_Vendor_Site_Id ||
1504: ', ROWID = ' || X_Rowid );
1505: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1506: END IF;
1501: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1502: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1503: X_Vendor_Site_Id ||
1504: ', ROWID = ' || X_Rowid );
1505: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1506: END IF;
1507: END IF;
1508: APP_EXCEPTION.RAISE_EXCEPTION;
1509:
1681: from po_vendor_sites_all
1682: where vendor_site_id = X_vendor_site_id;
1683:
1684: if ( total_sites > 1 and ( vendor_site_old <> X_vendor_site_code)) then
1685: fnd_message.set_name('SQLAP','AP_SHARED_SITE');
1686: app_exception.raise_exception;
1687: end if; */
1688:
1689: Check_duplicate_vendor_site (x_vendor_id, x_vendor_site_code,
1852:
1853: EXCEPTION
1854: WHEN OTHERS THEN
1855: IF (SQLCODE <> -20001) THEN
1856: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1857: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1858: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1859: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1860: X_Vendor_Site_Id ||
1853: EXCEPTION
1854: WHEN OTHERS THEN
1855: IF (SQLCODE <> -20001) THEN
1856: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1857: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1858: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1859: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1860: X_Vendor_Site_Id ||
1861: ', ROWID = ' || X_Rowid);
1854: WHEN OTHERS THEN
1855: IF (SQLCODE <> -20001) THEN
1856: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1857: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1858: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1859: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1860: X_Vendor_Site_Id ||
1861: ', ROWID = ' || X_Rowid);
1862: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1855: IF (SQLCODE <> -20001) THEN
1856: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1857: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1858: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1859: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1860: X_Vendor_Site_Id ||
1861: ', ROWID = ' || X_Rowid);
1862: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1863: END IF;
1858: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1859: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
1860: X_Vendor_Site_Id ||
1861: ', ROWID = ' || X_Rowid);
1862: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1863: END IF;
1864: APP_EXCEPTION.RAISE_EXCEPTION;
1865:
1866: END Update_Row;
2074:
2075: EXCEPTION
2076: WHEN OTHERS THEN
2077: IF (SQLCODE <> -20001) THEN
2078: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2079: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2080: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2081: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
2082: p_Vendor_Site_Id );
2075: EXCEPTION
2076: WHEN OTHERS THEN
2077: IF (SQLCODE <> -20001) THEN
2078: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2079: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2080: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2081: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
2082: p_Vendor_Site_Id );
2083: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2076: WHEN OTHERS THEN
2077: IF (SQLCODE <> -20001) THEN
2078: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2079: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2080: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2081: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
2082: p_Vendor_Site_Id );
2083: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2084: END IF;
2077: IF (SQLCODE <> -20001) THEN
2078: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2079: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2080: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2081: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
2082: p_Vendor_Site_Id );
2083: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2084: END IF;
2085: APP_EXCEPTION.RAISE_EXCEPTION;
2079: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2080: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2081: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
2082: p_Vendor_Site_Id );
2083: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2084: END IF;
2085: APP_EXCEPTION.RAISE_EXCEPTION;
2086:
2087: END Update_Row;
2107: WHERE vendor_id = x_vendor_id
2108: AND nvl(offset_tax_flag, 'N') <> 'N';
2109: --
2110: if (l_offset_count > 0 ) then
2111: fnd_message.set_name('SQLAP','AP_CLEAR_SITE_OFFSET');
2112: app_exception.raise_exception;
2113: end if;
2114: EXCEPTION
2115: WHEN OTHERS THEN
2113: end if;
2114: EXCEPTION
2115: WHEN OTHERS THEN
2116: IF (SQLCODE <> -20001) THEN
2117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence)
2120: ;
2121: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||
2114: EXCEPTION
2115: WHEN OTHERS THEN
2116: IF (SQLCODE <> -20001) THEN
2117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence)
2120: ;
2121: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||
2122: X_Vendor_Id);
2115: WHEN OTHERS THEN
2116: IF (SQLCODE <> -20001) THEN
2117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence)
2120: ;
2121: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||
2122: X_Vendor_Id);
2123: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence)
2120: ;
2121: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||
2122: X_Vendor_Id);
2123: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2124: END IF;
2125: APP_EXCEPTION.RAISE_EXCEPTION;
2119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence)
2120: ;
2121: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||
2122: X_Vendor_Id);
2123: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2124: END IF;
2125: APP_EXCEPTION.RAISE_EXCEPTION;
2126:
2127: END CHECK_VENDOR_OFFSETS;
2153: AND UPPER(vendor_site_code) = UPPER(x_vendor_site_code)
2154: AND nvl(org_id,-99) = nvl(x_org_id,-99); --MO Access Control
2155:
2156: if (L_duplicate_count > 0 ) then
2157: fnd_message.set_name('SQLAP','AP_VEN_DUPLICATE_VEN_SITE');
2158: app_exception.raise_exception;
2159: end if;
2160: EXCEPTION
2161: WHEN OTHERS THEN
2159: end if;
2160: EXCEPTION
2161: WHEN OTHERS THEN
2162: IF (SQLCODE <> -20001) THEN
2163: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2164: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2165: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2166: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2167: ', VENDOR_SITE_CODE = ' || x_vendor_site_code ||
2160: EXCEPTION
2161: WHEN OTHERS THEN
2162: IF (SQLCODE <> -20001) THEN
2163: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2164: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2165: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2166: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2167: ', VENDOR_SITE_CODE = ' || x_vendor_site_code ||
2168: ', ROWID = ' || x_rowid);
2161: WHEN OTHERS THEN
2162: IF (SQLCODE <> -20001) THEN
2163: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2164: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2165: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2166: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2167: ', VENDOR_SITE_CODE = ' || x_vendor_site_code ||
2168: ', ROWID = ' || x_rowid);
2169: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2162: IF (SQLCODE <> -20001) THEN
2163: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2164: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2165: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2166: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2167: ', VENDOR_SITE_CODE = ' || x_vendor_site_code ||
2168: ', ROWID = ' || x_rowid);
2169: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2170: END IF;
2165: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2166: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2167: ', VENDOR_SITE_CODE = ' || x_vendor_site_code ||
2168: ', ROWID = ' || x_rowid);
2169: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2170: END IF;
2171: APP_EXCEPTION.RAISE_EXCEPTION;
2172:
2173: end Check_duplicate_vendor_site;
2196: AND vendor_site_id <> nvl(x_vendor_site_id,-999)
2197: AND nvl(org_id,-99) = nvl(x_org_id,-99); --MO Access Control
2198:
2199: if (L_multiple_count > 0 ) then
2200: fnd_message.set_name('SQLAP','AP_VEN_ERROR_TAX_SITE');
2201: app_exception.raise_exception;
2202: end if;
2203: EXCEPTION
2204: WHEN OTHERS THEN
2202: end if;
2203: EXCEPTION
2204: WHEN OTHERS THEN
2205: IF (SQLCODE <> -20001) THEN
2206: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2207: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2208: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2209: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
2210: X_Vendor_Site_Id ||
2203: EXCEPTION
2204: WHEN OTHERS THEN
2205: IF (SQLCODE <> -20001) THEN
2206: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2207: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2208: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2209: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
2210: X_Vendor_Site_Id ||
2211: ', VENDOR_ID = ' || x_vendor_id);
2204: WHEN OTHERS THEN
2205: IF (SQLCODE <> -20001) THEN
2206: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2207: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2208: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2209: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
2210: X_Vendor_Site_Id ||
2211: ', VENDOR_ID = ' || x_vendor_id);
2212: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2205: IF (SQLCODE <> -20001) THEN
2206: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2207: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2208: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2209: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
2210: X_Vendor_Site_Id ||
2211: ', VENDOR_ID = ' || x_vendor_id);
2212: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2213: END IF;
2208: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2209: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_SITE_ID = ' ||
2210: X_Vendor_Site_Id ||
2211: ', VENDOR_ID = ' || x_vendor_id);
2212: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2213: END IF;
2214: APP_EXCEPTION.RAISE_EXCEPTION;
2215:
2216: end Check_Multiple_Tax_sites;
2236: AND (invoice_currency_code <> x_Base_Currency_Code
2237: OR invoice_currency_code IS NULL);
2238:
2239: if (L_overlap_count > 0 ) then
2240: fnd_message.set_name('SQLAP','AP_AWT_SITES_NOT_BASE');
2241: app_exception.raise_exception;
2242: end if;
2243: EXCEPTION
2244: WHEN OTHERS THEN
2242: end if;
2243: EXCEPTION
2244: WHEN OTHERS THEN
2245: IF (SQLCODE <> -20001) THEN
2246: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2247: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2248: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2249: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || X_Vendor_Id ||
2250: ', BASE_CURRENCY_CODE = ' ||
2243: EXCEPTION
2244: WHEN OTHERS THEN
2245: IF (SQLCODE <> -20001) THEN
2246: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2247: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2248: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2249: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || X_Vendor_Id ||
2250: ', BASE_CURRENCY_CODE = ' ||
2251: x_base_currency_code);
2244: WHEN OTHERS THEN
2245: IF (SQLCODE <> -20001) THEN
2246: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2247: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2248: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2249: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || X_Vendor_Id ||
2250: ', BASE_CURRENCY_CODE = ' ||
2251: x_base_currency_code);
2252: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2245: IF (SQLCODE <> -20001) THEN
2246: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2247: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2248: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2249: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || X_Vendor_Id ||
2250: ', BASE_CURRENCY_CODE = ' ||
2251: x_base_currency_code);
2252: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2253: END IF;
2248: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2249: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || X_Vendor_Id ||
2250: ', BASE_CURRENCY_CODE = ' ||
2251: x_base_currency_code);
2252: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2253: END IF;
2254: APP_EXCEPTION.RAISE_EXCEPTION;
2255:
2256: end Check_Site_Currencies;
2287: WHEN NO_DATA_FOUND THEN
2288: x_vendor_site_code := '';
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: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2288: x_vendor_site_code := '';
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: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2296: END IF;
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: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2296: END IF;
2297: APP_EXCEPTION.RAISE_EXCEPTION;
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: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2296: END IF;
2297: APP_EXCEPTION.RAISE_EXCEPTION;
2298:
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: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2296: END IF;
2297: APP_EXCEPTION.RAISE_EXCEPTION;
2298:
2299: end get_tax_Site;
2320: AND country = 'US'
2321: AND nvl(state,'99') not in (SELECT region_short_name
2322: FROM AP_income_tax_regions);
2323: if (L_Return_count > 0 ) then
2324: fnd_message.set_name('SQLAP','AP_VEN_WARN_INV_STATE');
2325: app_exception.raise_exception;
2326: end if;
2327:
2328: EXCEPTION
2327:
2328: EXCEPTION
2329: WHEN OTHERS THEN
2330: IF (SQLCODE <> -20001) THEN
2331: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2332: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2333: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2334: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||X_Vendor_Id);
2335: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2328: EXCEPTION
2329: WHEN OTHERS THEN
2330: IF (SQLCODE <> -20001) THEN
2331: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2332: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2333: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2334: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||X_Vendor_Id);
2335: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2336: END IF;
2329: WHEN OTHERS THEN
2330: IF (SQLCODE <> -20001) THEN
2331: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2332: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2333: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2334: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||X_Vendor_Id);
2335: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2336: END IF;
2337: APP_EXCEPTION.RAISE_EXCEPTION;
2330: IF (SQLCODE <> -20001) THEN
2331: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2332: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2333: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2334: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||X_Vendor_Id);
2335: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2336: END IF;
2337: APP_EXCEPTION.RAISE_EXCEPTION;
2338:
2331: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2332: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2333: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2334: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' ||X_Vendor_Id);
2335: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2336: END IF;
2337: APP_EXCEPTION.RAISE_EXCEPTION;
2338:
2339: end Check_State_Codes;
2365: --MO Access Control
2366: AND nvl(org_id,-99) = nvl(x_org_id,-99);
2367:
2368: if (L_duplicate_count > 0 ) then
2369: fnd_message.set_name('SQLAP','AP_VEN_DUPLICATE_ECE_CODE');
2370: app_exception.raise_exception;
2371: end if;
2372: EXCEPTION
2373: WHEN OTHERS THEN
2371: end if;
2372: EXCEPTION
2373: WHEN OTHERS THEN
2374: IF (SQLCODE <> -20001) THEN
2375: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2376: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2377: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2378: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2379: ', ECE_TP_LOCATION_CODE = ' || x_ece_tp_location_code ||
2372: EXCEPTION
2373: WHEN OTHERS THEN
2374: IF (SQLCODE <> -20001) THEN
2375: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2376: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2377: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2378: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2379: ', ECE_TP_LOCATION_CODE = ' || x_ece_tp_location_code ||
2380: ', ROWID = ' || x_rowid);
2373: WHEN OTHERS THEN
2374: IF (SQLCODE <> -20001) THEN
2375: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2376: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2377: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2378: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2379: ', ECE_TP_LOCATION_CODE = ' || x_ece_tp_location_code ||
2380: ', ROWID = ' || x_rowid);
2381: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2374: IF (SQLCODE <> -20001) THEN
2375: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2376: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2377: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2378: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2379: ', ECE_TP_LOCATION_CODE = ' || x_ece_tp_location_code ||
2380: ', ROWID = ' || x_rowid);
2381: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2382: END IF;
2377: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2378: FND_MESSAGE.SET_TOKEN('PARAMETERS','VENDOR_ID = ' || x_vendor_id ||
2379: ', ECE_TP_LOCATION_CODE = ' || x_ece_tp_location_code ||
2380: ', ROWID = ' || x_rowid);
2381: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2382: END IF;
2383: APP_EXCEPTION.RAISE_EXCEPTION;
2384:
2385: end Check_duplicate_ece_code;