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;
546:
547: PROCEDURE Insert_Row(
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;
920:
921: PROCEDURE Lock_Row(X_Rowid VARCHAR2,
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;
1087:
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 (
1262:
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 (
1398: ( (Recinfo.global_attribute_category = X_global_attribute_category)
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
1475: select 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:
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:
1510: END Lock_Row;
1511:
1512:
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,
1690: x_org_id, --MO Access Control
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;
1867:
1868: PROCEDURE update_row(
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;
2088:
2089: --
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
2116: IF (SQLCODE <> -20001) THEN
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;
2128:
2129: --
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
2162: IF (SQLCODE <> -20001) THEN
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;
2174: --
2175: --
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
2205: IF (SQLCODE <> -20001) THEN
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;
2217: --
2218: --
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
2245: IF (SQLCODE <> -20001) THEN
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;
2257: --
2258: --
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;
2300:
2301:
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
2329: WHEN OTHERS THEN
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;
2340: --
2341: --
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
2374: IF (SQLCODE <> -20001) THEN
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;
2386:
2387: