[Home] [Help]
1059: -- basic table/array validation (making sure that they are truly parallel)
1060: IF (qty_codes <> p_attributes.COUNT) THEN
1061: --DBMS_OUTPUT.put_line('EX - uneven attribute arrays');
1062: x_return_status := FND_API.G_RET_STS_ERROR;
1063: FND_MESSAGE.Set_Name('IBC', 'ATTRIBUTE_ARRAY_ERROR');
1064: FND_MSG_PUB.ADD;
1065: ELSE
1066: -- loop for each record in the arrays
1067: LOOP
1069:
1070: IF( (UPPER(p_attribute_type_codes(counter)) = 'NAME') OR (UPPER(p_attribute_type_codes(counter)) = 'DESCRIPTION') ) THEN
1071: --DBMS_OUTPUT.put_line('EX - reserved type code');
1072: cont_flag := FND_API.g_false;
1073: FND_MESSAGE.Set_Name('IBC', 'RESERVED_TYPE_CODE_ERROR');
1074: FND_MESSAGE.Set_Token('CODE', p_attribute_type_codes(counter), FALSE);
1075: FND_MSG_PUB.ADD;
1076: x_return_status := FND_API.G_RET_STS_ERROR;
1077: END IF;
1070: IF( (UPPER(p_attribute_type_codes(counter)) = 'NAME') OR (UPPER(p_attribute_type_codes(counter)) = 'DESCRIPTION') ) THEN
1071: --DBMS_OUTPUT.put_line('EX - reserved type code');
1072: cont_flag := FND_API.g_false;
1073: FND_MESSAGE.Set_Name('IBC', 'RESERVED_TYPE_CODE_ERROR');
1074: FND_MESSAGE.Set_Token('CODE', p_attribute_type_codes(counter), FALSE);
1075: FND_MSG_PUB.ADD;
1076: x_return_status := FND_API.G_RET_STS_ERROR;
1077: END IF;
1078:
1081: FETCH c_attribute_type INTO att_type, att_size, required;
1082: IF c_attribute_type%NOTFOUND THEN
1083: cont_flag := FND_API.g_false;
1084: x_return_status := FND_API.G_RET_STS_ERROR;
1085: FND_MESSAGE.Set_Name('IBC', 'INVALID_ATT_TYPE');
1086: FND_MESSAGE.Set_Token('TYPE_CODE', p_attribute_type_codes(counter));
1087: FND_MSG_PUB.ADD;
1088: END IF;
1089: CLOSE c_attribute_type;
1082: IF c_attribute_type%NOTFOUND THEN
1083: cont_flag := FND_API.g_false;
1084: x_return_status := FND_API.G_RET_STS_ERROR;
1085: FND_MESSAGE.Set_Name('IBC', 'INVALID_ATT_TYPE');
1086: FND_MESSAGE.Set_Token('TYPE_CODE', p_attribute_type_codes(counter));
1087: FND_MSG_PUB.ADD;
1088: END IF;
1089: CLOSE c_attribute_type;
1090: END IF;
1101: -- Checking primitive types only!
1102: -- null allowed?
1103: IF (temp_attribute IS NULL) THEN
1104: IF (required > 0) THEN
1105: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_REQUIRED');
1106: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME', get_Attribute_type_name(p_ctype_code, p_attribute_type_codes(counter)), FALSE);
1107: FND_MSG_PUB.ADD;
1108: x_return_status := FND_API.G_RET_STS_ERROR;
1109: END IF;
1102: -- null allowed?
1103: IF (temp_attribute IS NULL) THEN
1104: IF (required > 0) THEN
1105: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_REQUIRED');
1106: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME', get_Attribute_type_name(p_ctype_code, p_attribute_type_codes(counter)), FALSE);
1107: FND_MSG_PUB.ADD;
1108: x_return_status := FND_API.G_RET_STS_ERROR;
1109: END IF;
1110: -- string length
1109: END IF;
1110: -- string length
1111: ELSIF (att_type = IBC_UTILITIES_PUB.G_DTC_TEXT) THEN
1112: IF (LENGTH(temp_attribute) > att_size) THEN
1113: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_DATA_LENGTH');
1114: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME', get_Attribute_type_name(p_ctype_code, p_attribute_type_codes(counter)), FALSE);
1115: FND_MESSAGE.Set_Token('DATA_LENGTH', att_size);
1116: FND_MSG_PUB.ADD;
1117: x_return_status := FND_API.G_RET_STS_ERROR;
1110: -- string length
1111: ELSIF (att_type = IBC_UTILITIES_PUB.G_DTC_TEXT) THEN
1112: IF (LENGTH(temp_attribute) > att_size) THEN
1113: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_DATA_LENGTH');
1114: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME', get_Attribute_type_name(p_ctype_code, p_attribute_type_codes(counter)), FALSE);
1115: FND_MESSAGE.Set_Token('DATA_LENGTH', att_size);
1116: FND_MSG_PUB.ADD;
1117: x_return_status := FND_API.G_RET_STS_ERROR;
1118: END IF;
1111: ELSIF (att_type = IBC_UTILITIES_PUB.G_DTC_TEXT) THEN
1112: IF (LENGTH(temp_attribute) > att_size) THEN
1113: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_DATA_LENGTH');
1114: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME', get_Attribute_type_name(p_ctype_code, p_attribute_type_codes(counter)), FALSE);
1115: FND_MESSAGE.Set_Token('DATA_LENGTH', att_size);
1116: FND_MSG_PUB.ADD;
1117: x_return_status := FND_API.G_RET_STS_ERROR;
1118: END IF;
1119: -- number (decimal)
1118: END IF;
1119: -- number (decimal)
1120: ELSIF (att_type = IBC_UTILITIES_PUB.G_DTC_NUMBER) THEN
1121: IF (IBC_VALIDATE_PVT.isNumber(temp_attribute) = FND_API.g_false) THEN
1122: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_INVALID_NUMBER');
1123: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME', get_Attribute_type_name(p_ctype_code, p_attribute_type_codes(counter)), FALSE);
1124: FND_MSG_PUB.ADD;
1125: x_return_status := FND_API.G_RET_STS_ERROR;
1126: END IF;
1119: -- number (decimal)
1120: ELSIF (att_type = IBC_UTILITIES_PUB.G_DTC_NUMBER) THEN
1121: IF (IBC_VALIDATE_PVT.isNumber(temp_attribute) = FND_API.g_false) THEN
1122: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_INVALID_NUMBER');
1123: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME', get_Attribute_type_name(p_ctype_code, p_attribute_type_codes(counter)), FALSE);
1124: FND_MSG_PUB.ADD;
1125: x_return_status := FND_API.G_RET_STS_ERROR;
1126: END IF;
1127: -- date (datetime)
1126: END IF;
1127: -- date (datetime)
1128: ELSIF (att_type = IBC_UTILITIES_PUB.G_DTC_DATE) THEN
1129: IF (IBC_VALIDATE_PVT.isDate(temp_attribute) = FND_API.g_false) THEN
1130: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_INVALID_DATE');
1131: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME', get_Attribute_type_name(p_ctype_code, p_attribute_type_codes(counter)), FALSE);
1132: FND_MSG_PUB.ADD;
1133: x_return_status := FND_API.G_RET_STS_ERROR;
1134: END IF;
1127: -- date (datetime)
1128: ELSIF (att_type = IBC_UTILITIES_PUB.G_DTC_DATE) THEN
1129: IF (IBC_VALIDATE_PVT.isDate(temp_attribute) = FND_API.g_false) THEN
1130: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_INVALID_DATE');
1131: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME', get_Attribute_type_name(p_ctype_code, p_attribute_type_codes(counter)), FALSE);
1132: FND_MSG_PUB.ADD;
1133: x_return_status := FND_API.G_RET_STS_ERROR;
1134: END IF;
1135: -- boolean
1134: END IF;
1135: -- boolean
1136: ELSIF (att_type = IBC_UTILITIES_PUB.G_DTC_BOOLEAN) THEN
1137: IF (IBC_VALIDATE_PVT.isBoolean(temp_attribute) = FND_API.g_false) THEN
1138: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_INVALID_BOOLEAN');
1139: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME', get_Attribute_type_name(p_ctype_code, p_attribute_type_codes(counter)), FALSE);
1140: FND_MSG_PUB.ADD;
1141: x_return_status := FND_API.G_RET_STS_ERROR;
1142: END IF;
1135: -- boolean
1136: ELSIF (att_type = IBC_UTILITIES_PUB.G_DTC_BOOLEAN) THEN
1137: IF (IBC_VALIDATE_PVT.isBoolean(temp_attribute) = FND_API.g_false) THEN
1138: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_INVALID_BOOLEAN');
1139: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME', get_Attribute_type_name(p_ctype_code, p_attribute_type_codes(counter)), FALSE);
1140: FND_MSG_PUB.ADD;
1141: x_return_status := FND_API.G_RET_STS_ERROR;
1142: END IF;
1143: -- boolean
1142: END IF;
1143: -- boolean
1144: ELSIF ( (att_type = IBC_UTILITIES_PUB.G_DTC_COMPONENT) OR (att_type = IBC_UTILITIES_PUB.G_DTC_ATTACHMENT) ) THEN
1145: --DBMS_OUTPUT.put_line('EX - non primitive code');
1146: FND_MESSAGE.Set_Name('IBC', 'NON_PRIM_ATTRIB_ERROR');
1147: FND_MSG_PUB.ADD;
1148: x_return_status := FND_API.G_RET_STS_ERROR;
1149: END IF;
1150:
1234: EXCEPTION
1235: WHEN OTHERS THEN
1236: --DBMS_OUTPUT.put_line('EX - CREATE ATTRIBUTE BUNDLE ERROR');
1237: x_return_status := FND_API.G_RET_STS_ERROR;
1238: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
1239: FND_MESSAGE.set_token('SITUATION', 'CREATION');
1240: FND_MSG_PUB.ADD;
1241: IF IBC_DEBUG_PVT.debug_enabled THEN
1242: IBC_DEBUG_PVT.end_process(
1235: WHEN OTHERS THEN
1236: --DBMS_OUTPUT.put_line('EX - CREATE ATTRIBUTE BUNDLE ERROR');
1237: x_return_status := FND_API.G_RET_STS_ERROR;
1238: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
1239: FND_MESSAGE.set_token('SITUATION', 'CREATION');
1240: FND_MSG_PUB.ADD;
1241: IF IBC_DEBUG_PVT.debug_enabled THEN
1242: IBC_DEBUG_PVT.end_process(
1243: IBC_DEBUG_PVT.make_parameter_list(
1373:
1374: IF (c_old_item%NOTFOUND) THEN
1375: CLOSE c_old_item;
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1377: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
1378: FND_MESSAGE.Set_Token('INPUT', 'content_item_version_id/language combination', FALSE);
1379: FND_MSG_PUB.ADD;
1380: RAISE FND_API.G_EXC_ERROR;
1381: END IF;
1374: IF (c_old_item%NOTFOUND) THEN
1375: CLOSE c_old_item;
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1377: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
1378: FND_MESSAGE.Set_Token('INPUT', 'content_item_version_id/language combination', FALSE);
1379: FND_MSG_PUB.ADD;
1380: RAISE FND_API.G_EXC_ERROR;
1381: END IF;
1382:
1411: IF (c_abundle%NOTFOUND) THEN
1412: CLOSE c_abundle;
1413: --DBMS_OUTPUT.put_line('EX - old attribute bundle not found');
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415: FND_MESSAGE.Set_Name('IBC', 'INVALID_ATT_FILE_POINTER');
1416: FND_MESSAGE.Set_Token('CIVL',px_citem_ver_id, FALSE);
1417: FND_MSG_PUB.ADD;
1418: RAISE FND_API.G_EXC_ERROR;
1419: ELSE
1412: CLOSE c_abundle;
1413: --DBMS_OUTPUT.put_line('EX - old attribute bundle not found');
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415: FND_MESSAGE.Set_Name('IBC', 'INVALID_ATT_FILE_POINTER');
1416: FND_MESSAGE.Set_Token('CIVL',px_citem_ver_id, FALSE);
1417: FND_MSG_PUB.ADD;
1418: RAISE FND_API.G_EXC_ERROR;
1419: ELSE
1420: -- adding data to fnd_lobs
1837: EXCEPTION
1838: WHEN OTHERS THEN
1839: --DBMS_OUTPUT.put_line('EX - GET ATTRIBUTE BUNDLE INT ERROR');
1840: x_return_status := FND_API.G_RET_STS_ERROR;
1841: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
1842: FND_MESSAGE.set_token('SITUATION', 'CREATION');
1843: FND_MSG_PUB.ADD;
1844:
1845: IF IBC_DEBUG_PVT.debug_enabled THEN
1838: WHEN OTHERS THEN
1839: --DBMS_OUTPUT.put_line('EX - GET ATTRIBUTE BUNDLE INT ERROR');
1840: x_return_status := FND_API.G_RET_STS_ERROR;
1841: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
1842: FND_MESSAGE.set_token('SITUATION', 'CREATION');
1843: FND_MSG_PUB.ADD;
1844:
1845: IF IBC_DEBUG_PVT.debug_enabled THEN
1846: IBC_DEBUG_PVT.end_process(
1921: ( (p_assoc_objects4 IS NOT NULL) AND (p_assoc_objects4.COUNT <> qty_codes) ) OR
1922: ( (p_assoc_objects5 IS NOT NULL) AND (p_assoc_objects5.COUNT <> qty_codes) ) ) THEN
1923: --DBMS_OUTPUT.put_line('EX - improper (non-parallel) array');
1924: x_return_status := FND_API.G_RET_STS_ERROR;
1925: FND_MESSAGE.Set_Name('IBC', 'IMPROPER_ARRAY');
1926: FND_MSG_PUB.ADD;
1927: ELSE
1928: LOOP
1929: -- setting insert flag to true to start
1933: IF (IBC_VALIDATE_PVT.isValidAssocType(p_assoc_type_codes(counter)) = FND_API.g_false ) THEN
1934: --DBMS_OUTPUT.put_line('EX - assoc type');
1935: insert_data := FND_API.g_false;
1936: x_return_status := FND_API.G_RET_STS_ERROR;
1937: FND_MESSAGE.Set_Name('IBC', 'INVALID_ASSOC_TYPE_CODE');
1938: FND_MESSAGE.Set_Token('ASSOC_TYPE_CODE', p_assoc_type_codes(counter), FALSE);
1939: FND_MSG_PUB.ADD;
1940: END IF;
1941:
1934: --DBMS_OUTPUT.put_line('EX - assoc type');
1935: insert_data := FND_API.g_false;
1936: x_return_status := FND_API.G_RET_STS_ERROR;
1937: FND_MESSAGE.Set_Name('IBC', 'INVALID_ASSOC_TYPE_CODE');
1938: FND_MESSAGE.Set_Token('ASSOC_TYPE_CODE', p_assoc_type_codes(counter), FALSE);
1939: FND_MSG_PUB.ADD;
1940: END IF;
1941:
1942: -- is insert flag still true?
2110: -- basic table/array validation
2111: IF ( (qty_codes <> p_content_item_ids.COUNT) OR ((p_sort_order IS NOT NULL) AND (qty_codes <> p_sort_order.COUNT)) ) THEN
2112: --DBMS_OUTPUT.put_line('EX - array count');
2113: x_return_status := FND_API.G_RET_STS_ERROR;
2114: FND_MESSAGE.Set_Name('IBC', 'COMPONENT_ARRAY_ERROR');
2115: FND_MSG_PUB.ADD;
2116: RAISE FND_API.G_EXC_ERROR;
2117: ELSE
2118: -- loop for each record
2125: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_ids(counter)) = FND_API.g_false) THEN
2126: --DBMS_OUTPUT.put_line('EX - content_item_id -- '||p_content_item_ids(counter) );
2127: insert_data := FND_API.g_false;
2128: x_return_status := FND_API.G_RET_STS_ERROR;
2129: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
2130: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
2131: FND_MSG_PUB.ADD;
2132: RAISE FND_API.G_EXC_ERROR;
2133: END IF;
2126: --DBMS_OUTPUT.put_line('EX - content_item_id -- '||p_content_item_ids(counter) );
2127: insert_data := FND_API.g_false;
2128: x_return_status := FND_API.G_RET_STS_ERROR;
2129: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
2130: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
2131: FND_MSG_PUB.ADD;
2132: RAISE FND_API.G_EXC_ERROR;
2133: END IF;
2134:
2140: IBC_VALIDATE_PVT.isValidCitemVerForCitem(p_content_item_ids(counter), p_citem_ver_ids(counter)) = FND_API.g_false)
2141: THEN
2142: insert_data := FND_API.g_false;
2143: x_return_status := FND_API.G_RET_STS_ERROR;
2144: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
2145: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
2146: FND_MSG_PUB.ADD;
2147: RAISE FND_API.G_EXC_ERROR;
2148: END IF;
2141: THEN
2142: insert_data := FND_API.g_false;
2143: x_return_status := FND_API.G_RET_STS_ERROR;
2144: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
2145: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
2146: FND_MSG_PUB.ADD;
2147: RAISE FND_API.G_EXC_ERROR;
2148: END IF;
2149:
2151: IF ( (insert_data = FND_API.g_true) AND (IBC_VALIDATE_PVT.isValidAttrCode(p_attribute_type_codes(counter),p_ctype_code) = FND_API.g_false) ) THEN
2152: --DBMS_OUTPUT.put_line('EX - attribute type');
2153: insert_data := FND_API.g_false;
2154: x_return_status := FND_API.G_RET_STS_ERROR;
2155: FND_MESSAGE.Set_Name('IBC', 'INVALID_ATT_TYPE');
2156: FND_MESSAGE.Set_Token('TYPE_CODE', p_attribute_type_codes(counter), FALSE);
2157: FND_MSG_PUB.ADD;
2158: RAISE FND_API.G_EXC_ERROR;
2159: END IF;
2152: --DBMS_OUTPUT.put_line('EX - attribute type');
2153: insert_data := FND_API.g_false;
2154: x_return_status := FND_API.G_RET_STS_ERROR;
2155: FND_MESSAGE.Set_Name('IBC', 'INVALID_ATT_TYPE');
2156: FND_MESSAGE.Set_Token('TYPE_CODE', p_attribute_type_codes(counter), FALSE);
2157: FND_MSG_PUB.ADD;
2158: RAISE FND_API.G_EXC_ERROR;
2159: END IF;
2160:
2162: IF (isCorrectContentType(p_content_item_id, getContentType(p_content_item_ids(counter)),p_attribute_type_codes(counter)) = FND_API.g_false) THEN
2163: --DBMS_OUTPUT.put_line('EX - invalid content type for attribute');
2164: insert_data := FND_API.g_false;
2165: x_return_status := FND_API.G_RET_STS_ERROR;
2166: FND_MESSAGE.Set_Name('IBC', 'INVALID_ATT_TYPE');
2167: FND_MESSAGE.Set_Token('TYPE_CODE', p_attribute_type_codes(counter), FALSE);
2168: FND_MSG_PUB.ADD;
2169: RAISE FND_API.G_EXC_ERROR;
2170: END IF;
2163: --DBMS_OUTPUT.put_line('EX - invalid content type for attribute');
2164: insert_data := FND_API.g_false;
2165: x_return_status := FND_API.G_RET_STS_ERROR;
2166: FND_MESSAGE.Set_Name('IBC', 'INVALID_ATT_TYPE');
2167: FND_MESSAGE.Set_Token('TYPE_CODE', p_attribute_type_codes(counter), FALSE);
2168: FND_MSG_PUB.ADD;
2169: RAISE FND_API.G_EXC_ERROR;
2170: END IF;
2171:
2177: TO_CHAR(p_content_item_ids(counter)) <> r_comp_info.default_value
2178: THEN
2179: insert_data := FND_API.g_false;
2180: x_return_status := FND_API.G_RET_STS_ERROR;
2181: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_NU_DEFAULT_VALUE');
2182: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2183: get_attribute_type_name(p_ctype_code, p_attribute_type_codes(counter), USERENV('lang')), FALSE);
2184: FND_MSG_PUB.ADD;
2185: RAISE FND_API.G_EXC_ERROR;
2178: THEN
2179: insert_data := FND_API.g_false;
2180: x_return_status := FND_API.G_RET_STS_ERROR;
2181: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_NU_DEFAULT_VALUE');
2182: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2183: get_attribute_type_name(p_ctype_code, p_attribute_type_codes(counter), USERENV('lang')), FALSE);
2184: FND_MSG_PUB.ADD;
2185: RAISE FND_API.G_EXC_ERROR;
2186: END IF;
2202: IF( (temp IS NOT NULL) AND (temp <> p_content_item_id) ) THEN
2203: --DBMS_OUTPUT.put_line('EX - parent item id');
2204: insert_data := FND_API.g_false;
2205: x_return_status := FND_API.G_RET_STS_ERROR;
2206: FND_MESSAGE.Set_Name('IBC', 'UNUSABLE_COMPONENT');
2207: FND_MESSAGE.Set_Token('COMPONENT',p_content_item_ids(counter), FALSE);
2208: FND_MSG_PUB.ADD;
2209: RAISE FND_API.G_EXC_ERROR;
2210: END IF;
2203: --DBMS_OUTPUT.put_line('EX - parent item id');
2204: insert_data := FND_API.g_false;
2205: x_return_status := FND_API.G_RET_STS_ERROR;
2206: FND_MESSAGE.Set_Name('IBC', 'UNUSABLE_COMPONENT');
2207: FND_MESSAGE.Set_Token('COMPONENT',p_content_item_ids(counter), FALSE);
2208: FND_MSG_PUB.ADD;
2209: RAISE FND_API.G_EXC_ERROR;
2210: END IF;
2211: END IF;
2385: IF (p_default_value IS NOT NULL) THEN
2386: IF(TO_CHAR(citem_id) <> p_default_value) THEN
2387: --DBMS_OUTPUT.put_line('EX - component default value');
2388: x_return_status := FND_API.G_RET_STS_ERROR;
2389: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_NU_DEFAULT_VALUE');
2390: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2391: get_attribute_type_name(p_content_type_code, p_attribute_type_code, p_language), FALSE);
2392: FND_MSG_PUB.ADD;
2393: END IF;
2386: IF(TO_CHAR(citem_id) <> p_default_value) THEN
2387: --DBMS_OUTPUT.put_line('EX - component default value');
2388: x_return_status := FND_API.G_RET_STS_ERROR;
2389: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_NU_DEFAULT_VALUE');
2390: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2391: get_attribute_type_name(p_content_type_code, p_attribute_type_code, p_language), FALSE);
2392: FND_MSG_PUB.ADD;
2393: END IF;
2394: END IF;
2398: IF(p_minimum > 0) THEN
2399: IF (getContentItemStatus(citem_id) <> IBC_UTILITIES_PUB.G_STI_APPROVED) THEN
2400: --DBMS_OUTPUT.put_line('EX - component not approved');
2401: x_return_status := FND_API.G_RET_STS_ERROR;
2402: FND_MESSAGE.Set_Name('IBC', 'COMPONENT_APPROVAL_REQUIRED');
2403: FND_MESSAGE.Set_Token('CONTENT_ITEM_ID', citem_id, FALSE);
2404: FND_MSG_PUB.ADD;
2405: END IF;
2406: END IF;
2399: IF (getContentItemStatus(citem_id) <> IBC_UTILITIES_PUB.G_STI_APPROVED) THEN
2400: --DBMS_OUTPUT.put_line('EX - component not approved');
2401: x_return_status := FND_API.G_RET_STS_ERROR;
2402: FND_MESSAGE.Set_Name('IBC', 'COMPONENT_APPROVAL_REQUIRED');
2403: FND_MESSAGE.Set_Token('CONTENT_ITEM_ID', citem_id, FALSE);
2404: FND_MSG_PUB.ADD;
2405: END IF;
2406: END IF;
2407:
2412:
2413: IF (counter < p_minimum) THEN
2414: x_return_status := FND_API.G_RET_STS_ERROR;
2415: IF p_minimum = 1 THEN
2416: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_REQUIRED');
2417: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2418: get_attribute_type_name(p_content_type_code, p_attribute_type_code, p_language), FALSE);
2419: FND_MSG_PUB.ADD;
2420: ELSE
2413: IF (counter < p_minimum) THEN
2414: x_return_status := FND_API.G_RET_STS_ERROR;
2415: IF p_minimum = 1 THEN
2416: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_REQUIRED');
2417: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2418: get_attribute_type_name(p_content_type_code, p_attribute_type_code, p_language), FALSE);
2419: FND_MSG_PUB.ADD;
2420: ELSE
2421: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MIN_INSTANCES');
2417: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2418: get_attribute_type_name(p_content_type_code, p_attribute_type_code, p_language), FALSE);
2419: FND_MSG_PUB.ADD;
2420: ELSE
2421: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MIN_INSTANCES');
2422: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2423: get_attribute_type_name(p_content_type_code, p_attribute_type_code, p_language), FALSE);
2424: FND_MESSAGE.Set_Token('MIN_INSTANCES', TO_CHAR(p_minimum), FALSE);
2425: FND_MSG_PUB.ADD;
2418: get_attribute_type_name(p_content_type_code, p_attribute_type_code, p_language), FALSE);
2419: FND_MSG_PUB.ADD;
2420: ELSE
2421: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MIN_INSTANCES');
2422: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2423: get_attribute_type_name(p_content_type_code, p_attribute_type_code, p_language), FALSE);
2424: FND_MESSAGE.Set_Token('MIN_INSTANCES', TO_CHAR(p_minimum), FALSE);
2425: FND_MSG_PUB.ADD;
2426: END IF;
2420: ELSE
2421: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MIN_INSTANCES');
2422: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2423: get_attribute_type_name(p_content_type_code, p_attribute_type_code, p_language), FALSE);
2424: FND_MESSAGE.Set_Token('MIN_INSTANCES', TO_CHAR(p_minimum), FALSE);
2425: FND_MSG_PUB.ADD;
2426: END IF;
2427: END IF;
2428: -- maxi
2428: -- maxi
2429: IF ((p_maximum IS NOT NULL) AND (counter > p_maximum)) THEN
2430: --DBMS_OUTPUT.put_line('EX - component maximum');
2431: x_return_status := FND_API.G_RET_STS_ERROR;
2432: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MAX_INSTANCES');
2433: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2434: get_attribute_type_name(p_content_type_code, p_attribute_type_code, p_language), FALSE);
2435: FND_MESSAGE.Set_Token('MAX_INSTANCES', TO_CHAR(p_maximum), FALSE);
2436: FND_MSG_PUB.ADD;
2429: IF ((p_maximum IS NOT NULL) AND (counter > p_maximum)) THEN
2430: --DBMS_OUTPUT.put_line('EX - component maximum');
2431: x_return_status := FND_API.G_RET_STS_ERROR;
2432: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MAX_INSTANCES');
2433: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2434: get_attribute_type_name(p_content_type_code, p_attribute_type_code, p_language), FALSE);
2435: FND_MESSAGE.Set_Token('MAX_INSTANCES', TO_CHAR(p_maximum), FALSE);
2436: FND_MSG_PUB.ADD;
2437: END IF;
2431: x_return_status := FND_API.G_RET_STS_ERROR;
2432: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MAX_INSTANCES');
2433: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2434: get_attribute_type_name(p_content_type_code, p_attribute_type_code, p_language), FALSE);
2435: FND_MESSAGE.Set_Token('MAX_INSTANCES', TO_CHAR(p_maximum), FALSE);
2436: FND_MSG_PUB.ADD;
2437: END IF;
2438:
2439: --DBMS_OUTPUT.put_line('END OF COMPONENT VALIDATION');
2668: LANGUAGE = p_language;
2669:
2670: IF (temp_desc IS NULL) THEN
2671: x_return_status := FND_API.G_RET_STS_ERROR;
2672: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_REQUIRED');
2673: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2674: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2675: FND_MSG_PUB.ADD;
2676: END IF;
2669:
2670: IF (temp_desc IS NULL) THEN
2671: x_return_status := FND_API.G_RET_STS_ERROR;
2672: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_REQUIRED');
2673: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2674: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2675: FND_MSG_PUB.ADD;
2676: END IF;
2677: END IF;
2709: -- mini
2710: IF (valid_element_count < r_attribute.mini) THEN
2711: x_return_status := FND_API.G_RET_STS_ERROR;
2712: IF r_attribute.mini = 1 THEN
2713: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_REQUIRED');
2714: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2715: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2716: FND_MSG_PUB.ADD;
2717: ELSE
2710: IF (valid_element_count < r_attribute.mini) THEN
2711: x_return_status := FND_API.G_RET_STS_ERROR;
2712: IF r_attribute.mini = 1 THEN
2713: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_REQUIRED');
2714: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2715: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2716: FND_MSG_PUB.ADD;
2717: ELSE
2718: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MIN_INSTANCES');
2714: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2715: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2716: FND_MSG_PUB.ADD;
2717: ELSE
2718: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MIN_INSTANCES');
2719: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2720: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2721: FND_MESSAGE.Set_Token('MIN_INSTANCES', TO_CHAR(r_attribute.mini), FALSE);
2722: FND_MSG_PUB.ADD;
2715: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2716: FND_MSG_PUB.ADD;
2717: ELSE
2718: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MIN_INSTANCES');
2719: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2720: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2721: FND_MESSAGE.Set_Token('MIN_INSTANCES', TO_CHAR(r_attribute.mini), FALSE);
2722: FND_MSG_PUB.ADD;
2723: END IF;
2717: ELSE
2718: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MIN_INSTANCES');
2719: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2720: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2721: FND_MESSAGE.Set_Token('MIN_INSTANCES', TO_CHAR(r_attribute.mini), FALSE);
2722: FND_MSG_PUB.ADD;
2723: END IF;
2724: END IF;
2725:
2726:
2727: -- maxi
2728: IF (valid_element_count > r_attribute.maxi) THEN
2729: x_return_status := FND_API.G_RET_STS_ERROR;
2730: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MAX_INSTANCES');
2731: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2732: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2733: FND_MESSAGE.Set_Token('MAX_INSTANCES', TO_CHAR(r_attribute.maxi), FALSE);
2734: FND_MSG_PUB.ADD;
2727: -- maxi
2728: IF (valid_element_count > r_attribute.maxi) THEN
2729: x_return_status := FND_API.G_RET_STS_ERROR;
2730: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MAX_INSTANCES');
2731: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2732: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2733: FND_MESSAGE.Set_Token('MAX_INSTANCES', TO_CHAR(r_attribute.maxi), FALSE);
2734: FND_MSG_PUB.ADD;
2735: END IF;
2729: x_return_status := FND_API.G_RET_STS_ERROR;
2730: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MAX_INSTANCES');
2731: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2732: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2733: FND_MESSAGE.Set_Token('MAX_INSTANCES', TO_CHAR(r_attribute.maxi), FALSE);
2734: FND_MSG_PUB.ADD;
2735: END IF;
2736:
2737: ELSE
2747: -- mini
2748: IF (valid_element_count < r_attribute.mini) THEN
2749: x_return_status := FND_API.G_RET_STS_ERROR;
2750: IF r_attribute.mini = 1 THEN
2751: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_REQUIRED');
2752: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2753: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2754: FND_MSG_PUB.ADD;
2755: ELSE
2748: IF (valid_element_count < r_attribute.mini) THEN
2749: x_return_status := FND_API.G_RET_STS_ERROR;
2750: IF r_attribute.mini = 1 THEN
2751: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_REQUIRED');
2752: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2753: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2754: FND_MSG_PUB.ADD;
2755: ELSE
2756: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MIN_INSTANCES');
2752: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2753: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2754: FND_MSG_PUB.ADD;
2755: ELSE
2756: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MIN_INSTANCES');
2757: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2758: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2759: FND_MESSAGE.Set_Token('MIN_INSTANCES', TO_CHAR(r_attribute.mini), FALSE);
2760: FND_MSG_PUB.ADD;
2753: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2754: FND_MSG_PUB.ADD;
2755: ELSE
2756: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MIN_INSTANCES');
2757: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2758: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2759: FND_MESSAGE.Set_Token('MIN_INSTANCES', TO_CHAR(r_attribute.mini), FALSE);
2760: FND_MSG_PUB.ADD;
2761: END IF;
2755: ELSE
2756: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MIN_INSTANCES');
2757: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2758: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2759: FND_MESSAGE.Set_Token('MIN_INSTANCES', TO_CHAR(r_attribute.mini), FALSE);
2760: FND_MSG_PUB.ADD;
2761: END IF;
2762: END IF;
2763:
2763:
2764: -- maxi
2765: IF ((r_attribute.maxi IS NOT NULL) AND (valid_element_count > r_attribute.maxi)) THEN
2766: x_return_status := FND_API.G_RET_STS_ERROR;
2767: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MAX_INSTANCES');
2768: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2769: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2770: FND_MESSAGE.Set_Token('MAX_INSTANCES', TO_CHAR(r_attribute.maxi), FALSE);
2771: FND_MSG_PUB.ADD;
2764: -- maxi
2765: IF ((r_attribute.maxi IS NOT NULL) AND (valid_element_count > r_attribute.maxi)) THEN
2766: x_return_status := FND_API.G_RET_STS_ERROR;
2767: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MAX_INSTANCES');
2768: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2769: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2770: FND_MESSAGE.Set_Token('MAX_INSTANCES', TO_CHAR(r_attribute.maxi), FALSE);
2771: FND_MSG_PUB.ADD;
2772: END IF;
2766: x_return_status := FND_API.G_RET_STS_ERROR;
2767: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_MAX_INSTANCES');
2768: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2769: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2770: FND_MESSAGE.Set_Token('MAX_INSTANCES', TO_CHAR(r_attribute.maxi), FALSE);
2771: FND_MSG_PUB.ADD;
2772: END IF;
2773:
2774: -- looping through all elements this type to check size and value (vs. default)
2805: -- size
2806: IF (r_attribute.dtc = 'string') THEN
2807: IF(LENGTH(node_value) > NVL(r_attribute.dl, 32767)) THEN
2808: x_return_status := FND_API.G_RET_STS_ERROR;
2809: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_DATA_LENGTH');
2810: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2811: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2812: FND_MESSAGE.Set_Token('DATA_LENGTH', TO_CHAR(NVL(r_attribute.dl, 32767)), FALSE);
2813: FND_MSG_PUB.ADD;
2806: IF (r_attribute.dtc = 'string') THEN
2807: IF(LENGTH(node_value) > NVL(r_attribute.dl, 32767)) THEN
2808: x_return_status := FND_API.G_RET_STS_ERROR;
2809: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_DATA_LENGTH');
2810: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2811: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2812: FND_MESSAGE.Set_Token('DATA_LENGTH', TO_CHAR(NVL(r_attribute.dl, 32767)), FALSE);
2813: FND_MSG_PUB.ADD;
2814: END IF;
2808: x_return_status := FND_API.G_RET_STS_ERROR;
2809: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_DATA_LENGTH');
2810: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2811: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2812: FND_MESSAGE.Set_Token('DATA_LENGTH', TO_CHAR(NVL(r_attribute.dl, 32767)), FALSE);
2813: FND_MSG_PUB.ADD;
2814: END IF;
2815: END IF;
2816:
2818: IF (r_attribute.upd = FND_API.g_false) THEN
2819: -- checking to see if value is the same as the default value
2820: IF (r_attribute.dv <> node_value) THEN
2821: x_return_status := FND_API.G_RET_STS_ERROR;
2822: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_NU_DEFAULT_VALUE');
2823: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2824: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2825: FND_MSG_PUB.ADD;
2826: END IF;
2819: -- checking to see if value is the same as the default value
2820: IF (r_attribute.dv <> node_value) THEN
2821: x_return_status := FND_API.G_RET_STS_ERROR;
2822: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_NU_DEFAULT_VALUE');
2823: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2824: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2825: FND_MSG_PUB.ADD;
2826: END IF;
2827: END IF;
2839: ,X_Msg_Data => l_msg_data
2840: );
2841: IF l_exists = FND_API.g_false THEN
2842: x_return_status := FND_API.G_RET_STS_ERROR;
2843: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_NOT_IN_VSET');
2844: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2845: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2846: FND_MSG_PUB.ADD;
2847: END IF;
2840: );
2841: IF l_exists = FND_API.g_false THEN
2842: x_return_status := FND_API.G_RET_STS_ERROR;
2843: FND_MESSAGE.Set_Name('IBC', 'IBC_VALATTR_NOT_IN_VSET');
2844: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2845: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
2846: FND_MSG_PUB.ADD;
2847: END IF;
2848: END IF;
2865: EXCEPTION
2866: WHEN OTHERS THEN
2867: --DBMS_OUTPUT.put_line('EX - bundle validation --others--');
2868: x_return_status := FND_API.G_RET_STS_ERROR;
2869: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
2870: FND_MESSAGE.set_token('SITUATION', 'VALIDATION');
2871: FND_MSG_PUB.ADD;
2872:
2873: IF IBC_DEBUG_PVT.debug_enabled THEN
2866: WHEN OTHERS THEN
2867: --DBMS_OUTPUT.put_line('EX - bundle validation --others--');
2868: x_return_status := FND_API.G_RET_STS_ERROR;
2869: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
2870: FND_MESSAGE.set_token('SITUATION', 'VALIDATION');
2871: FND_MSG_PUB.ADD;
2872:
2873: IF IBC_DEBUG_PVT.debug_enabled THEN
2874: IBC_DEBUG_PVT.end_process(
3031:
3032: IF(info%NOTFOUND) THEN
3033: --DBMS_OUTPUT.put_line('EX - NO DATA FOUND FOR CREATED ITEM!');
3034: x_return_status := FND_API.G_RET_STS_ERROR;
3035: FND_MESSAGE.Set_Name('IBC', 'GENERL_ERROR');
3036: FND_MSG_PUB.ADD;
3037: END IF;
3038:
3039: CLOSE info;
3152:
3153: ELSE
3154: --DBMS_OUTPUT.put_line('EX - Approval error');
3155: x_return_status := FND_API.G_RET_STS_ERROR;
3156: FND_MESSAGE.Set_Name('IBC', 'APPROVAL_ERROR');
3157: FND_MSG_PUB.ADD;
3158: END IF;
3159:
3160: IF IBC_DEBUG_PVT.debug_enabled THEN
3266: ELSE
3267: -- NO --> ERROR... ITEM MUST BE CREATED WITH VALID CONTENT TYPE
3268: --DBMS_OUTPUT.put_line('EX - ctype_code');
3269: x_return_status := FND_API.G_RET_STS_ERROR;
3270: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
3271: FND_MESSAGE.Set_Token('INPUT', 'p_ctype_code', FALSE);
3272: FND_MSG_PUB.ADD;
3273: END IF;
3274: ELSE
3267: -- NO --> ERROR... ITEM MUST BE CREATED WITH VALID CONTENT TYPE
3268: --DBMS_OUTPUT.put_line('EX - ctype_code');
3269: x_return_status := FND_API.G_RET_STS_ERROR;
3270: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
3271: FND_MESSAGE.Set_Token('INPUT', 'p_ctype_code', FALSE);
3272: FND_MSG_PUB.ADD;
3273: END IF;
3274: ELSE
3275: -- NO --> Content Item exist?
3284: ELSE
3285: -- NO --> ERROR... CANNOT TRANSLATE ITEM WITHOUT VERSION ID **
3286: --DBMS_OUTPUT.put_line('EX - translation without version id');
3287: x_return_status := FND_API.G_RET_STS_ERROR;
3288: FND_MESSAGE.Set_Name('IBC', 'TRANS_WITHOUT_VERSION_ID');
3289: FND_MSG_PUB.ADD;
3290: END IF;
3291: ELSE
3292: -- NO --> ERROR... CANNOT CREATE FROM NON-EXISTING ITEM
3291: ELSE
3292: -- NO --> ERROR... CANNOT CREATE FROM NON-EXISTING ITEM
3293: --DBMS_OUTPUT.put_line('EX - content_item_id');
3294: x_return_status := FND_API.G_RET_STS_ERROR;
3295: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
3296: FND_MESSAGE.Set_Token('INPUT', 'px_content_item_id', FALSE);
3297: FND_MSG_PUB.ADD;
3298: END IF;
3299: END IF;
3292: -- NO --> ERROR... CANNOT CREATE FROM NON-EXISTING ITEM
3293: --DBMS_OUTPUT.put_line('EX - content_item_id');
3294: x_return_status := FND_API.G_RET_STS_ERROR;
3295: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
3296: FND_MESSAGE.Set_Token('INPUT', 'px_content_item_id', FALSE);
3297: FND_MSG_PUB.ADD;
3298: END IF;
3299: END IF;
3300: ELSE
3308: -- YES --> Is it the same language?
3309: IF (x_base_lang = p_language) THEN
3310: -- DBMS_OUTPUT.put_line('EX - content_item_id');
3311: -- x_return_status := FND_API.G_RET_STS_ERROR;
3312: -- FND_MESSAGE.Set_Name('IBC', 'UPDATE_APPROVED_ITEM_ERROR');
3313: -- FND_MSG_PUB.ADD;
3314: -- In R12 some of the metadata of an Item can be updated
3315: -- post-approval
3316: --
3325: ELSE
3326: IF (x_base_lang <> p_language) THEN
3327: --DBMS_OUTPUT.put_line('EX - trans of non approved item');
3328: x_return_status := FND_API.G_RET_STS_ERROR;
3329: FND_MESSAGE.Set_Name('IBC', 'TRANS_NON_APPROVED_ITEM');
3330: FND_MSG_PUB.ADD;
3331: ELSE
3332: x_item_command := G_COMMAND_UPDATE;
3333: x_version_command := G_COMMAND_UPDATE;
3336: ELSE
3337: -- NO --> ERROR... CANNOT RESOLVE CONTENT ITEM VERSION ID! **
3338: --DBMS_OUTPUT.put_line('EX - content_item_id');
3339: x_return_status := FND_API.G_RET_STS_ERROR;
3340: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
3341: FND_MESSAGE.Set_Token('INPUT', 'px_content_item_id', FALSE);
3342: FND_MSG_PUB.ADD;
3343: END IF;
3344: END IF;
3337: -- NO --> ERROR... CANNOT RESOLVE CONTENT ITEM VERSION ID! **
3338: --DBMS_OUTPUT.put_line('EX - content_item_id');
3339: x_return_status := FND_API.G_RET_STS_ERROR;
3340: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
3341: FND_MESSAGE.Set_Token('INPUT', 'px_content_item_id', FALSE);
3342: FND_MSG_PUB.ADD;
3343: END IF;
3344: END IF;
3345:
3361: EXCEPTION
3362: WHEN OTHERS THEN
3363: --DBMS_OUTPUT.put_line('EX - version engine general error');
3364: x_return_status := FND_API.G_RET_STS_ERROR;
3365: FND_MESSAGE.Set_Name('IBC', 'VERSION_ENGINE_ERROR');
3366: FND_MSG_PUB.ADD;
3367: IF IBC_DEBUG_PVT.debug_enabled THEN
3368: IBC_DEBUG_PVT.end_process(
3369: IBC_DEBUG_PVT.make_parameter_list(
3467: -- checking version id
3468: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
3469: --DBMS_OUTPUT.put_line('EX - p_citem_ver_id');
3470: x_return_status := FND_API.G_RET_STS_ERROR;
3471: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
3472: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
3473: FND_MSG_PUB.ADD;
3474: RAISE FND_API.G_EXC_ERROR;
3475: END IF;
3468: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
3469: --DBMS_OUTPUT.put_line('EX - p_citem_ver_id');
3470: x_return_status := FND_API.G_RET_STS_ERROR;
3471: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
3472: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
3473: FND_MSG_PUB.ADD;
3474: RAISE FND_API.G_EXC_ERROR;
3475: END IF;
3476:
3494: -- ***************PERMISSION CHECK**********************************
3495: IF (hasPermission(content_item_id) = FND_API.g_false) THEN
3496: --DBMS_OUTPUT.put_line('EX - no lock permissions');
3497: x_return_status := FND_API.G_RET_STS_ERROR;
3498: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION');
3499: FND_MSG_PUB.ADD;
3500: RAISE FND_API.G_EXC_ERROR;
3501: END IF;
3502: -- ***************/PERMISSION CHECK**********************************
3529:
3530: IF (temp IS NULL) THEN
3531: --DBMS_OUTPUT.put_line('EX - version cannot be approved');
3532: x_return_status := FND_API.G_RET_STS_ERROR;
3533: FND_MESSAGE.Set_Name('IBC', 'APPROVAL_NOT_ALLOWED');
3534: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
3535: FND_MSG_PUB.ADD;
3536: RAISE FND_API.G_EXC_ERROR;
3537: END IF;
3530: IF (temp IS NULL) THEN
3531: --DBMS_OUTPUT.put_line('EX - version cannot be approved');
3532: x_return_status := FND_API.G_RET_STS_ERROR;
3533: FND_MESSAGE.Set_Name('IBC', 'APPROVAL_NOT_ALLOWED');
3534: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
3535: FND_MSG_PUB.ADD;
3536: RAISE FND_API.G_EXC_ERROR;
3537: END IF;
3538:
3541: FETCH c_component_not_status INTO l_dummy;
3542: IF (c_component_not_status%FOUND) THEN
3543: CLOSE c_component_not_status;
3544: x_return_status := FND_API.G_RET_STS_ERROR;
3545: FND_MESSAGE.Set_Name('IBC', 'COMPONENT_APPROVAL_REQUIRED');
3546: FND_MSG_PUB.ADD;
3547: RAISE FND_API.G_EXC_ERROR;
3548: END IF;
3549: CLOSE c_component_not_status;
3553: -- version id
3554: IF (p_citem_ver_id IS NULL) THEN
3555: --DBMS_OUTPUT.put_line('EX - citem_ver_id');
3556: x_return_status := FND_API.G_RET_STS_ERROR;
3557: FND_MESSAGE.Set_Name('IBC', 'IBC_INPUT_REQUIRED');
3558: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
3559: FND_MSG_PUB.ADD;
3560: RAISE FND_API.G_EXC_ERROR;
3561: END IF;
3554: IF (p_citem_ver_id IS NULL) THEN
3555: --DBMS_OUTPUT.put_line('EX - citem_ver_id');
3556: x_return_status := FND_API.G_RET_STS_ERROR;
3557: FND_MESSAGE.Set_Name('IBC', 'IBC_INPUT_REQUIRED');
3558: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
3559: FND_MSG_PUB.ADD;
3560: RAISE FND_API.G_EXC_ERROR;
3561: END IF;
3562:
3758: -- citem validation
3759: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false ) THEN
3760: --DBMS_OUTPUT.put_line('EX - content_item_id');
3761: x_return_status := FND_API.G_RET_STS_ERROR;
3762: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
3763: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
3764: FND_MSG_PUB.ADD;
3765: RAISE FND_API.G_EXC_ERROR;
3766: END IF;
3759: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false ) THEN
3760: --DBMS_OUTPUT.put_line('EX - content_item_id');
3761: x_return_status := FND_API.G_RET_STS_ERROR;
3762: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
3763: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
3764: FND_MSG_PUB.ADD;
3765: RAISE FND_API.G_EXC_ERROR;
3766: END IF;
3767:
3769: -- If any content item version is in a submitted status then the Content Item
3770: -- cannot be archived
3771: IF (isCitemVerInPassedStatus(p_content_item_id,IBC_UTILITIES_PUB.G_STV_SUBMIT_FOR_APPROVAL))THEN
3772: x_return_status := FND_API.G_RET_STS_ERROR;
3773: FND_MESSAGE.Set_Name('IBC', 'IBC_ITEM_INVALID_FOR_ARCHIVE');
3774: FND_MSG_PUB.ADD;
3775: RAISE FND_API.G_EXC_ERROR;
3776: END IF;
3777:
3778: -- Item Locking Validation
3779: -- If the content item is not locked by the Current User then it cannot be archived
3780: IF NOT (isItemLockedByCurrentUser(p_content_item_id))THEN
3781: x_return_status := FND_API.G_RET_STS_ERROR;
3782: FND_MESSAGE.Set_Name('IBC', 'IBC_UNLOCK_NOT_ALLOW_MSG');
3783: FND_MSG_PUB.ADD;
3784: RAISE FND_API.G_EXC_ERROR;
3785: END IF;
3786:
3787: -- If it has associations it will raise an error
3788: IF (Has_Associations(p_content_item_id) = FND_API.g_true) THEN
3789: --DBMS_OUTPUT.put_line('EX - content_item_id');
3790: x_return_status := FND_API.G_RET_STS_ERROR;
3791: FND_MESSAGE.Set_Name('IBC', 'IBC_NOARCHIVE_ASSOC_EXIST');
3792: FND_MSG_PUB.ADD;
3793: RAISE FND_API.G_EXC_ERROR;
3794: END IF;
3795:
3798: -- srrangar made this change to Fix Bug#3346690
3799: --
3800: IF (isItemaSubItem(p_content_item_id))THEN
3801: x_return_status := FND_API.G_RET_STS_ERROR;
3802: FND_MESSAGE.Set_Name('IBC', 'IBC_SUBITEM_INVALID_TO_ARCHIVE');
3803:
3804: FND_MSG_PUB.ADD;
3805: RAISE FND_API.G_EXC_ERROR;
3806: END IF;
3810: IN (Ibc_Utilities_Pub.G_STI_ARCHIVED, Ibc_Utilities_Pub.G_STI_ARCHIVED_CASCADE))
3811: THEN
3812: --DBMS_OUTPUT.put_line('EX - content_item_id');
3813: x_return_status := FND_API.G_RET_STS_ERROR;
3814: FND_MESSAGE.Set_Name('IBC', 'IBC_CITEM_ALREADY_ARCHIVED');
3815: FND_MSG_PUB.ADD;
3816: RAISE FND_API.G_EXC_ERROR;
3817: END IF;
3818:
3821: -- If it has categories it will raise an error
3822: IF (Has_Categories(p_content_item_id) = FND_API.g_true) THEN
3823: --DBMS_OUTPUT.put_line('EX - content_item_id');
3824: x_return_status := FND_API.G_RET_STS_ERROR;
3825: FND_MESSAGE.Set_Name('IBC', 'IBC_NOARCHIVE_CATEGORIES_EXIST');
3826: FND_MSG_PUB.ADD;
3827: RAISE FND_API.G_EXC_ERROR;
3828: END IF;
3829:
3829:
3830: -- If it is default stylesheet raise error
3831: IF (Is_A_Default_Stylesheet(p_content_item_id) = FND_API.g_true) THEN
3832: x_return_status := FND_API.G_RET_STS_ERROR;
3833: FND_MESSAGE.Set_Name('IBC', 'IBC_NOARCHIVE_DFLT_STYLESHEET');
3834: FND_MSG_PUB.ADD;
3835: RAISE FND_API.G_EXC_ERROR;
3836: END IF;
3837:
3841: -- It is a Seeded Item it cannot be archived (Fix for bug# 3614353)
3842: IF (l_created_by = 1) THEN
3843: CLOSE c_creator;
3844: x_return_status := FND_API.G_RET_STS_ERROR;
3845: FND_MESSAGE.Set_Name('IBC', 'IBC_NOARCHIVE_SEED_ITEM');
3846: FND_MSG_PUB.ADD;
3847: RAISE FND_API.G_EXC_ERROR;
3848: END IF;
3849:
3853: -- ***************PERMISSION CHECK*********************************************************************
3854: IF (hasPermission(p_content_item_id) = FND_API.g_false) THEN --|*|
3855: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
3856: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
3857: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
3858: FND_MSG_PUB.ADD; --|*|
3859: RAISE FND_API.G_EXC_ERROR; --|*|
3860: ELSIF(isItemAdmin(p_content_item_id) = FND_API.g_false) THEN --|*|
3861: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
3868: ) = FND_API.g_false --|*|
3869: ) THEN --|*|
3870: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
3871: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
3872: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
3873: FND_MSG_PUB.ADD; --|*|
3874: RAISE FND_API.G_EXC_ERROR; --|*|
3875: END IF; --|*|
3876: END IF; --|*|
4091: -- checking version id
4092: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
4093: --DBMS_OUTPUT.put_line('EX - p_citem_ver_id');
4094: x_return_status := FND_API.G_RET_STS_ERROR;
4095: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
4096: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
4097: FND_MSG_PUB.ADD;
4098: RAISE FND_API.G_EXC_ERROR;
4099: END IF;
4092: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
4093: --DBMS_OUTPUT.put_line('EX - p_citem_ver_id');
4094: x_return_status := FND_API.G_RET_STS_ERROR;
4095: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
4096: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
4097: FND_MSG_PUB.ADD;
4098: RAISE FND_API.G_EXC_ERROR;
4099: END IF;
4100:
4101: -- checking if valid status
4102: IF (IBC_VALIDATE_PVT.isValidStatus(p_new_status) = FND_API.g_false) THEN
4103: --DBMS_OUTPUT.put_line('EX - p_status');
4104: x_return_status := FND_API.G_RET_STS_ERROR;
4105: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
4106: FND_MESSAGE.Set_Token('INPUT', 'p_status', FALSE);
4107: FND_MSG_PUB.ADD;
4108: RAISE FND_API.G_EXC_ERROR;
4109: END IF;
4102: IF (IBC_VALIDATE_PVT.isValidStatus(p_new_status) = FND_API.g_false) THEN
4103: --DBMS_OUTPUT.put_line('EX - p_status');
4104: x_return_status := FND_API.G_RET_STS_ERROR;
4105: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
4106: FND_MESSAGE.Set_Token('INPUT', 'p_status', FALSE);
4107: FND_MSG_PUB.ADD;
4108: RAISE FND_API.G_EXC_ERROR;
4109: END IF;
4110:
4109: END IF;
4110:
4111: IF (IBC_VALIDATE_PVT.isApproved(p_citem_ver_id) = FND_API.g_true) THEN
4112: x_return_status := FND_API.G_RET_STS_ERROR;
4113: FND_MESSAGE.Set_Name('IBC', 'UPDATE_APPROVED_ITEM_ERROR');
4114: FND_MSG_PUB.ADD;
4115: RAISE FND_API.G_EXC_ERROR;
4116: END IF;
4117:
4122: -- ***************PERMISSION CHECK*********************************************************************
4123: IF (hasPermission(content_item_id) = FND_API.g_false) THEN --|*|
4124: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
4125: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
4126: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
4127: FND_MSG_PUB.ADD; --|*|
4128: RAISE FND_API.G_EXC_ERROR; --|*|
4129: ELSIF(isItemAdmin(content_item_id) = FND_API.g_false) THEN --|*|
4130: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
4149: )
4150: ) THEN --|*|
4151: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
4152: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
4153: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
4154: FND_MSG_PUB.ADD; --|*|
4155: RAISE FND_API.G_EXC_ERROR; --|*|
4156: END IF; --|*|
4157: END IF; --|*|
4522: IF ( (px_citem_ver_id IS NULL) OR (IBC_VALIDATE_PVT.isValidCitemVer(px_citem_ver_id) = FND_API.g_false) ) THEN
4523: IF (px_content_item_id IS NULL) THEN
4524: --DBMS_OUTPUT.put_line('EX - content_item_id');
4525: x_return_status := FND_API.G_RET_STS_ERROR;
4526: FND_MESSAGE.Set_Name('IBC', 'IBC_INPUT_REQUIRED');
4527: FND_MESSAGE.Set_Token('INPUT', 'px_content_item_id', FALSE);
4528: FND_MSG_PUB.ADD;
4529: RAISE FND_API.G_EXC_ERROR;
4530: END IF;
4523: IF (px_content_item_id IS NULL) THEN
4524: --DBMS_OUTPUT.put_line('EX - content_item_id');
4525: x_return_status := FND_API.G_RET_STS_ERROR;
4526: FND_MESSAGE.Set_Name('IBC', 'IBC_INPUT_REQUIRED');
4527: FND_MESSAGE.Set_Token('INPUT', 'px_content_item_id', FALSE);
4528: FND_MSG_PUB.ADD;
4529: RAISE FND_API.G_EXC_ERROR;
4530: END IF;
4531: -- getting item that needs to be copied
4531: -- getting item that needs to be copied
4532: IF (IBC_VALIDATE_PVT.isValidCitem(px_content_item_id) = FND_API.g_false) THEN
4533: --DBMS_OUTPUT.put_line('EX - content_item_id');
4534: x_return_status := FND_API.G_RET_STS_ERROR;
4535: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
4536: FND_MESSAGE.Set_Token('INPUT', 'px_content_item_id', FALSE);
4537: FND_MSG_PUB.ADD;
4538: RAISE FND_API.G_EXC_ERROR;
4539: END IF;
4532: IF (IBC_VALIDATE_PVT.isValidCitem(px_content_item_id) = FND_API.g_false) THEN
4533: --DBMS_OUTPUT.put_line('EX - content_item_id');
4534: x_return_status := FND_API.G_RET_STS_ERROR;
4535: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
4536: FND_MESSAGE.Set_Token('INPUT', 'px_content_item_id', FALSE);
4537: FND_MSG_PUB.ADD;
4538: RAISE FND_API.G_EXC_ERROR;
4539: END IF;
4540: px_citem_ver_id := getMaxVersionId(px_content_item_id);
4546:
4547: -- Validating uniqueness for item_reference_code
4548: IF exist_item_reference_code(p_item_reference_code, NULL) THEN
4549: x_return_status := FND_API.G_RET_STS_ERROR;
4550: FND_MESSAGE.Set_Name('IBC', 'IBC_DUPLICATE_ITEM_REF_CODE');
4551: FND_MSG_PUB.ADD;
4552: RAISE FND_API.G_EXC_ERROR;
4553: END IF;
4554:
4566: IF(c_old_item%NOTFOUND) THEN
4567: CLOSE c_old_item;
4568: --DBMS_OUTPUT.put_line('EX - content_item_id');
4569: x_return_status := FND_API.G_RET_STS_ERROR;
4570: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
4571: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
4572: FND_MSG_PUB.ADD;
4573: RAISE FND_API.G_EXC_ERROR;
4574: END IF;
4567: CLOSE c_old_item;
4568: --DBMS_OUTPUT.put_line('EX - content_item_id');
4569: x_return_status := FND_API.G_RET_STS_ERROR;
4570: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
4571: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
4572: FND_MSG_PUB.ADD;
4573: RAISE FND_API.G_EXC_ERROR;
4574: END IF;
4575:
4597: ) = FND_API.g_false --|*|
4598: ) THEN --|*|
4599: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
4600: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
4601: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
4602: FND_MSG_PUB.ADD; --|*|
4603: RAISE FND_API.G_EXC_ERROR; --|*|
4604: END IF; --|*|
4605: -- ***************PERMISSION CHECK*********************************************************************
5002: -- getting item that needs to be copied
5003: IF ( (px_content_item_id IS NULL) OR (IBC_VALIDATE_PVT.isValidCitem(px_content_item_id) = FND_API.g_false) ) THEN
5004: --DBMS_OUTPUT.put_line('EX - content_item_id');
5005: x_return_status := FND_API.G_RET_STS_ERROR;
5006: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
5007: FND_MESSAGE.Set_Token('INPUT', 'px_content_item_id/px_citem_ver_id combination', FALSE);
5008: FND_MSG_PUB.ADD;
5009: RAISE FND_API.G_EXC_ERROR;
5010: ELSE
5003: IF ( (px_content_item_id IS NULL) OR (IBC_VALIDATE_PVT.isValidCitem(px_content_item_id) = FND_API.g_false) ) THEN
5004: --DBMS_OUTPUT.put_line('EX - content_item_id');
5005: x_return_status := FND_API.G_RET_STS_ERROR;
5006: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
5007: FND_MESSAGE.Set_Token('INPUT', 'px_content_item_id/px_citem_ver_id combination', FALSE);
5008: FND_MSG_PUB.ADD;
5009: RAISE FND_API.G_EXC_ERROR;
5010: ELSE
5011: px_citem_ver_id := getMaxVersionId(px_content_item_id);
5231: -- version id
5232: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
5233: --DBMS_OUTPUT.put_line('EX - citem_ver_id');
5234: x_return_status := FND_API.G_RET_STS_ERROR;
5235: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
5236: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
5237: FND_MSG_PUB.ADD;
5238: RAISE FND_API.G_EXC_ERROR;
5239: END IF;
5232: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
5233: --DBMS_OUTPUT.put_line('EX - citem_ver_id');
5234: x_return_status := FND_API.G_RET_STS_ERROR;
5235: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
5236: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
5237: FND_MSG_PUB.ADD;
5238: RAISE FND_API.G_EXC_ERROR;
5239: END IF;
5240:
5241: -- citem
5242: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false ) THEN
5243: --DBMS_OUTPUT.put_line('EX - content_item_id');
5244: x_return_status := FND_API.G_RET_STS_ERROR;
5245: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
5246: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
5247: FND_MSG_PUB.ADD;
5248: RAISE FND_API.G_EXC_ERROR;
5249: END IF;
5242: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false ) THEN
5243: --DBMS_OUTPUT.put_line('EX - content_item_id');
5244: x_return_status := FND_API.G_RET_STS_ERROR;
5245: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
5246: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
5247: FND_MSG_PUB.ADD;
5248: RAISE FND_API.G_EXC_ERROR;
5249: END IF;
5250:
5255: -- ***************PERMISSION CHECK*********************************************************************
5256: IF (hasPermission(content_item_id) = FND_API.g_false) THEN --|*|
5257: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
5258: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
5259: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
5260: FND_MSG_PUB.ADD; --|*|
5261: RAISE FND_API.G_EXC_ERROR; --|*|
5262: ELSIF(isItemAdmin(p_content_item_id) = FND_API.g_false) THEN --|*|
5263: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
5270: ) = FND_API.g_false --|*|
5271: ) THEN --|*|
5272: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
5273: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
5274: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
5275: FND_MSG_PUB.ADD; --|*|
5276: RAISE FND_API.G_EXC_ERROR; --|*|
5277: END IF; --|*|
5278: END IF; --|*|
5297:
5298: IF (temp IS NULL) THEN
5299: --DBMS_OUTPUT.put_line('EX - unable to find compound relationship');
5300: x_return_status := FND_API.G_RET_STS_ERROR;
5301: FND_MESSAGE.Set_Name('IBC', 'INVALID_COMPOUND_RELATIONSHIP');
5302: FND_MSG_PUB.ADD;
5303: RAISE FND_API.G_EXC_ERROR;
5304: ELSE
5305: Ibc_Compound_Relations_Pkg.delete_row(temp);
5537: -- citem validation
5538: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false ) THEN
5539: --DBMS_OUTPUT.put_line('EX - content_item_id');
5540: x_return_status := FND_API.G_RET_STS_ERROR;
5541: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
5542: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
5543: FND_MSG_PUB.ADD;
5544: RAISE FND_API.G_EXC_ERROR;
5545: END IF;
5538: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false ) THEN
5539: --DBMS_OUTPUT.put_line('EX - content_item_id');
5540: x_return_status := FND_API.G_RET_STS_ERROR;
5541: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
5542: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
5543: FND_MSG_PUB.ADD;
5544: RAISE FND_API.G_EXC_ERROR;
5545: END IF;
5546:
5549: -- ***************PERMISSION CHECK*********************************************************************
5550: IF (hasPermission(p_content_item_id) = FND_API.g_false) THEN --|*|
5551: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
5552: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
5553: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
5554: FND_MSG_PUB.ADD; --|*|
5555: RAISE FND_API.G_EXC_ERROR; --|*|
5556: ELSIF(isItemAdmin(p_content_item_id) = FND_API.g_false) THEN --|*|
5557: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
5564: ) = FND_API.g_false --|*|
5565: ) THEN --|*|
5566: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
5567: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
5568: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
5569: FND_MSG_PUB.ADD; --|*|
5570: RAISE FND_API.G_EXC_ERROR; --|*|
5571: END IF; --|*|
5572: END IF; --|*|
5682:
5683: IF (counter = 0) THEN
5684: --DBMS_OUTPUT.put_line('EX - no association found to delete');
5685: x_return_status := FND_API.G_RET_STS_ERROR;
5686: FND_MESSAGE.Set_Name('IBC', 'NO_ASSOCIATION_FOUND');
5687: FND_MSG_PUB.ADD;
5688: RAISE FND_API.G_EXC_ERROR;
5689: END IF;
5690:
5863: -- checking for valid inputs and throwing exception if invalid
5864: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
5865: --DBMS_OUTPUT.put_line('EX - CITEM_VER_ID');
5866: x_return_status := FND_API.G_RET_STS_ERROR;
5867: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
5868: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
5869: FND_MSG_PUB.ADD;
5870: RAISE FND_API.G_EXC_ERROR;
5871: END IF;
5864: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
5865: --DBMS_OUTPUT.put_line('EX - CITEM_VER_ID');
5866: x_return_status := FND_API.G_RET_STS_ERROR;
5867: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
5868: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
5869: FND_MSG_PUB.ADD;
5870: RAISE FND_API.G_EXC_ERROR;
5871: END IF;
5872:
5874: -- if there is no attribute bundle
5875: IF (attribute_fid IS NULL) THEN
5876: --DBMS_OUTPUT.put_line('EX - no attribute');
5877: x_return_status := FND_API.G_RET_STS_ERROR;
5878: FND_MESSAGE.Set_Name('IBC', 'IBC_BUNDLE_NOT_EXISTING');
5879: FND_MSG_PUB.ADD;
5880: x_return_status := FND_API.G_RET_STS_ERROR;
5881: RAISE FND_API.G_EXC_ERROR;
5882: END IF;
5893: -- if there is no content type code
5894: IF (ctype_code IS NULL) THEN
5895: --DBMS_OUTPUT.put_line('EX - getContentTypeV');
5896: x_return_status := FND_API.G_RET_STS_ERROR;
5897: FND_MESSAGE.Set_Name('IBC', 'UNABLE_TO_IDENTIFY_CTYPE');
5898: FND_MSG_PUB.ADD;
5899: x_return_status := FND_API.G_RET_STS_ERROR;
5900: RAISE FND_API.G_EXC_ERROR;
5901: END IF;
5914:
5915: IF(x_return_status = FND_API.G_RET_STS_ERROR) THEN
5916: --DBMS_OUTPUT.put_line('EX - get_attribute_bundle_int');
5917: x_return_status := FND_API.G_RET_STS_ERROR;
5918: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
5919: FND_MESSAGE.Set_Token('SITUATION', 'get_attribute_bundle_int', FALSE);
5920: FND_MSG_PUB.ADD;
5921: RAISE FND_API.G_EXC_ERROR;
5922: END IF;
5915: IF(x_return_status = FND_API.G_RET_STS_ERROR) THEN
5916: --DBMS_OUTPUT.put_line('EX - get_attribute_bundle_int');
5917: x_return_status := FND_API.G_RET_STS_ERROR;
5918: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
5919: FND_MESSAGE.Set_Token('SITUATION', 'get_attribute_bundle_int', FALSE);
5920: FND_MSG_PUB.ADD;
5921: RAISE FND_API.G_EXC_ERROR;
5922: END IF;
5923:
6249: -- validating item information
6250: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
6251: --DBMS_OUTPUT.put_line('EX - CITEM_VER_ID');
6252: x_return_status := FND_API.G_RET_STS_ERROR;
6253: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
6254: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
6255: FND_MSG_PUB.ADD;
6256: RAISE FND_API.G_EXC_ERROR;
6257: END IF;
6250: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
6251: --DBMS_OUTPUT.put_line('EX - CITEM_VER_ID');
6252: x_return_status := FND_API.G_RET_STS_ERROR;
6253: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
6254: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
6255: FND_MSG_PUB.ADD;
6256: RAISE FND_API.G_EXC_ERROR;
6257: END IF;
6258:
6265: -- validating language
6266: IF (IBC_VALIDATE_PVT.isValidLanguage(lang) = FND_API.g_false) THEN
6267: --DBMS_OUTPUT.put_line('EX - LANGUAGE');
6268: x_return_status := FND_API.G_RET_STS_ERROR;
6269: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
6270: FND_MESSAGE.Set_Token('INPUT', 'p_language', FALSE);
6271: FND_MSG_PUB.ADD;
6272: RAISE FND_API.G_EXC_ERROR;
6273: END IF;
6266: IF (IBC_VALIDATE_PVT.isValidLanguage(lang) = FND_API.g_false) THEN
6267: --DBMS_OUTPUT.put_line('EX - LANGUAGE');
6268: x_return_status := FND_API.G_RET_STS_ERROR;
6269: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
6270: FND_MESSAGE.Set_Token('INPUT', 'p_language', FALSE);
6271: FND_MSG_PUB.ADD;
6272: RAISE FND_API.G_EXC_ERROR;
6273: END IF;
6274:
6362: p_current_user_id => FND_GLOBAL.user_id ) = FND_API.g_false THEN
6363:
6364: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
6365: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
6366: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
6367: FND_MSG_PUB.ADD; --|*|
6368: RAISE FND_API.G_EXC_ERROR; --|*|
6369: END IF; --|*|
6370: END IF; --|*|
6384: -- checking to see if there was an error
6385: IF(return_status = FND_API.G_RET_STS_ERROR) THEN
6386: --DBMS_OUTPUT.put_line('EX - get_attribute_bundle_int');
6387: x_return_status := FND_API.G_RET_STS_ERROR;
6388: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
6389: FND_MESSAGE.Set_Token('SITUATION', 'get_attribute_bundle_int', FALSE);
6390: FND_MSG_PUB.ADD;
6391: RAISE FND_API.G_EXC_ERROR;
6392: END IF;
6385: IF(return_status = FND_API.G_RET_STS_ERROR) THEN
6386: --DBMS_OUTPUT.put_line('EX - get_attribute_bundle_int');
6387: x_return_status := FND_API.G_RET_STS_ERROR;
6388: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
6389: FND_MESSAGE.Set_Token('SITUATION', 'get_attribute_bundle_int', FALSE);
6390: FND_MSG_PUB.ADD;
6391: RAISE FND_API.G_EXC_ERROR;
6392: END IF;
6393: END IF;
8100: -- version id
8101: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
8102: --DBMS_OUTPUT.put_line('EX - citem_ver_id');
8103: x_return_status := FND_API.G_RET_STS_ERROR;
8104: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8105: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
8106: FND_MSG_PUB.ADD;
8107: RAISE FND_API.G_EXC_ERROR;
8108: END IF;
8101: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
8102: --DBMS_OUTPUT.put_line('EX - citem_ver_id');
8103: x_return_status := FND_API.G_RET_STS_ERROR;
8104: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8105: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
8106: FND_MSG_PUB.ADD;
8107: RAISE FND_API.G_EXC_ERROR;
8108: END IF;
8109:
8113: -- ***************PERMISSION CHECK*********************************************************************
8114: IF (hasPermission(content_item_id) = FND_API.g_false) THEN --|*|
8115: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
8116: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
8117: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
8118: FND_MSG_PUB.ADD; --|*|
8119: RAISE FND_API.G_EXC_ERROR; --|*|
8120: ELSIF(isItemAdmin(content_item_id) = FND_API.g_false) THEN --|*|
8121: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
8128: ) = FND_API.g_false --|*|
8129: ) THEN --|*|
8130: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
8131: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
8132: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
8133: FND_MSG_PUB.ADD; --|*|
8134: RAISE FND_API.G_EXC_ERROR; --|*|
8135: END IF; --|*|
8136: END IF; --|*|
8140: -- if there is no content type code
8141: IF (ctype_code IS NULL) THEN
8142: --DBMS_OUTPUT.put_line('EX - getContentTypeV');
8143: x_return_status := FND_API.G_RET_STS_ERROR;
8144: FND_MESSAGE.Set_Name('IBC', 'UNABLE_TO_IDENTIFY_CTYPE');
8145: FND_MSG_PUB.ADD;
8146: x_return_status := FND_API.G_RET_STS_ERROR;
8147: END IF;
8148:
8423: -- citem
8424: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false ) THEN
8425: --DBMS_OUTPUT.put_line('EX - content_item_id');
8426: x_return_status := FND_API.G_RET_STS_ERROR;
8427: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8428: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
8429: FND_MSG_PUB.ADD;
8430: RAISE FND_API.G_EXC_ERROR;
8431: END IF;
8424: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false ) THEN
8425: --DBMS_OUTPUT.put_line('EX - content_item_id');
8426: x_return_status := FND_API.G_RET_STS_ERROR;
8427: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8428: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
8429: FND_MSG_PUB.ADD;
8430: RAISE FND_API.G_EXC_ERROR;
8431: END IF;
8432:
8434: IBC_VALIDATE_PVT.isValidCitemVerForCitem(p_content_item_id, p_citem_version_id) = FND_API.g_false)
8435: THEN
8436: --DBMS_OUTPUT.put_line('EX - content_item_id');
8437: x_return_status := FND_API.G_RET_STS_ERROR;
8438: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8439: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id/p_citem_version_id', FALSE);
8440: FND_MSG_PUB.ADD;
8441: RAISE FND_API.G_EXC_ERROR;
8442: END IF;
8435: THEN
8436: --DBMS_OUTPUT.put_line('EX - content_item_id');
8437: x_return_status := FND_API.G_RET_STS_ERROR;
8438: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8439: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id/p_citem_version_id', FALSE);
8440: FND_MSG_PUB.ADD;
8441: RAISE FND_API.G_EXC_ERROR;
8442: END IF;
8443:
8444: -- assoc type
8445: IF (p_assoc_type_codes IS NULL) THEN
8446: --DBMS_OUTPUT.put_line('EX - assoc type');
8447: x_return_status := FND_API.G_RET_STS_ERROR;
8448: FND_MESSAGE.Set_Name('IBC', 'IBC_INPUT_REQUIRED');
8449: FND_MESSAGE.Set_Token('INPUT', 'p_assoc_type_code', FALSE);
8450: FND_MSG_PUB.ADD;
8451: RAISE FND_API.G_EXC_ERROR;
8452: END IF;
8445: IF (p_assoc_type_codes IS NULL) THEN
8446: --DBMS_OUTPUT.put_line('EX - assoc type');
8447: x_return_status := FND_API.G_RET_STS_ERROR;
8448: FND_MESSAGE.Set_Name('IBC', 'IBC_INPUT_REQUIRED');
8449: FND_MESSAGE.Set_Token('INPUT', 'p_assoc_type_code', FALSE);
8450: FND_MSG_PUB.ADD;
8451: RAISE FND_API.G_EXC_ERROR;
8452: END IF;
8453:
8454: -- associated object 1
8455: IF (p_assoc_objects1 IS NULL) THEN
8456: --DBMS_OUTPUT.put_line('EX - p_assoc_object1');
8457: x_return_status := FND_API.G_RET_STS_ERROR;
8458: FND_MESSAGE.Set_Name('IBC', 'IBC_INPUT_REQUIRED');
8459: FND_MESSAGE.Set_Token('INPUT', 'p_assoc_object1', FALSE);
8460: FND_MSG_PUB.ADD;
8461: RAISE FND_API.G_EXC_ERROR;
8462: END IF;
8455: IF (p_assoc_objects1 IS NULL) THEN
8456: --DBMS_OUTPUT.put_line('EX - p_assoc_object1');
8457: x_return_status := FND_API.G_RET_STS_ERROR;
8458: FND_MESSAGE.Set_Name('IBC', 'IBC_INPUT_REQUIRED');
8459: FND_MESSAGE.Set_Token('INPUT', 'p_assoc_object1', FALSE);
8460: FND_MSG_PUB.ADD;
8461: RAISE FND_API.G_EXC_ERROR;
8462: END IF;
8463:
8467: -- ***************PERMISSION CHECK*********************************************************************
8468: IF (hasPermission(p_content_item_id) = FND_API.g_false) THEN --|*|
8469: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
8470: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
8471: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
8472: FND_MSG_PUB.ADD; --|*|
8473: RAISE FND_API.G_EXC_ERROR; --|*|
8474: ELSIF(isItemAdmin(p_content_item_id) = FND_API.g_false) THEN --|*|
8475: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
8482: ) = FND_API.g_false --|*|
8483: ) THEN --|*|
8484: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
8485: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
8486: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
8487: FND_MSG_PUB.ADD; --|*|
8488: RAISE FND_API.G_EXC_ERROR; --|*|
8489: END IF; --|*|
8490: END IF; --|*|
8696: -- content item name
8697: IF (p_citem_name IS NULL) THEN
8698: --DBMS_OUTPUT.put_line('EX - citem name');
8699: x_return_status := FND_API.G_RET_STS_ERROR;
8700: FND_MESSAGE.Set_Name('IBC', 'IBC_INPUT_REQUIRED');
8701: FND_MESSAGE.Set_Token('INPUT', 'p_citem_name', FALSE);
8702: FND_MSG_PUB.ADD;
8703: RAISE FND_API.G_EXC_ERROR;
8704: END IF;
8697: IF (p_citem_name IS NULL) THEN
8698: --DBMS_OUTPUT.put_line('EX - citem name');
8699: x_return_status := FND_API.G_RET_STS_ERROR;
8700: FND_MESSAGE.Set_Name('IBC', 'IBC_INPUT_REQUIRED');
8701: FND_MESSAGE.Set_Token('INPUT', 'p_citem_name', FALSE);
8702: FND_MSG_PUB.ADD;
8703: RAISE FND_API.G_EXC_ERROR;
8704: END IF;
8705: IF (LENGTH(p_citem_name) > 240) THEN
8704: END IF;
8705: IF (LENGTH(p_citem_name) > 240) THEN
8706: --DBMS_OUTPUT.put_line('EX - citem name');
8707: x_return_status := FND_API.G_RET_STS_ERROR;
8708: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8709: FND_MESSAGE.Set_Token('INPUT', 'p_citem_name', FALSE);
8710: FND_MSG_PUB.ADD;
8711: RAISE FND_API.G_EXC_ERROR;
8712: END IF;
8705: IF (LENGTH(p_citem_name) > 240) THEN
8706: --DBMS_OUTPUT.put_line('EX - citem name');
8707: x_return_status := FND_API.G_RET_STS_ERROR;
8708: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8709: FND_MESSAGE.Set_Token('INPUT', 'p_citem_name', FALSE);
8710: FND_MSG_PUB.ADD;
8711: RAISE FND_API.G_EXC_ERROR;
8712: END IF;
8713: -- content item description
8713: -- content item description
8714: IF ( (p_citem_description IS NOT NULL) AND (LENGTH(p_citem_description) > 2000) )THEN
8715: --DBMS_OUTPUT.put_line('EX - citem description');
8716: x_return_status := FND_API.G_RET_STS_ERROR;
8717: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8718: FND_MESSAGE.Set_Token('INPUT', 'p_citem_description', FALSE);
8719: FND_MSG_PUB.ADD;
8720: RAISE FND_API.G_EXC_ERROR;
8721: END IF;
8714: IF ( (p_citem_description IS NOT NULL) AND (LENGTH(p_citem_description) > 2000) )THEN
8715: --DBMS_OUTPUT.put_line('EX - citem description');
8716: x_return_status := FND_API.G_RET_STS_ERROR;
8717: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8718: FND_MESSAGE.Set_Token('INPUT', 'p_citem_description', FALSE);
8719: FND_MSG_PUB.ADD;
8720: RAISE FND_API.G_EXC_ERROR;
8721: END IF;
8722: -- content type
8722: -- content type
8723: IF (IBC_VALIDATE_PVT.isValidCType(p_ctype_code) = FND_API.g_false) THEN
8724: --DBMS_OUTPUT.put_line('EX - ctype code');
8725: x_return_status := FND_API.G_RET_STS_ERROR;
8726: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8727: FND_MESSAGE.Set_Token('INPUT', 'p_ctype_code', FALSE);
8728: FND_MSG_PUB.ADD;
8729: RAISE FND_API.G_EXC_ERROR;
8730: END IF;
8723: IF (IBC_VALIDATE_PVT.isValidCType(p_ctype_code) = FND_API.g_false) THEN
8724: --DBMS_OUTPUT.put_line('EX - ctype code');
8725: x_return_status := FND_API.G_RET_STS_ERROR;
8726: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8727: FND_MESSAGE.Set_Token('INPUT', 'p_ctype_code', FALSE);
8728: FND_MSG_PUB.ADD;
8729: RAISE FND_API.G_EXC_ERROR;
8730: END IF;
8731: -- directory nodes
8731: -- directory nodes
8732: IF ( (p_dir_node_id <> Ibc_Utilities_Pub.G_COMMON_DIR_NODE) AND (IBC_VALIDATE_PVT.isValidDirNode(p_dir_node_id) = FND_API.g_false) ) THEN
8733: --DBMS_OUTPUT.put_line('EX - dir_node_id');
8734: x_return_status := FND_API.G_RET_STS_ERROR;
8735: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8736: FND_MESSAGE.Set_Token('INPUT', 'p_dir_node_id', FALSE);
8737: FND_MSG_PUB.ADD;
8738: RAISE FND_API.G_EXC_ERROR;
8739: END IF;
8732: IF ( (p_dir_node_id <> Ibc_Utilities_Pub.G_COMMON_DIR_NODE) AND (IBC_VALIDATE_PVT.isValidDirNode(p_dir_node_id) = FND_API.g_false) ) THEN
8733: --DBMS_OUTPUT.put_line('EX - dir_node_id');
8734: x_return_status := FND_API.G_RET_STS_ERROR;
8735: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8736: FND_MESSAGE.Set_Token('INPUT', 'p_dir_node_id', FALSE);
8737: FND_MSG_PUB.ADD;
8738: RAISE FND_API.G_EXC_ERROR;
8739: END IF;
8740: -- checking if versioning is necessary
8741: IF (px_content_item_id IS NOT NULL) THEN
8742: IF (IBC_VALIDATE_PVT.isValidCitem(px_content_item_id) = FND_API.g_false) THEN
8743: --DBMS_OUTPUT.put_line('EX - content_item_id');
8744: x_return_status := FND_API.G_RET_STS_ERROR;
8745: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8746: FND_MESSAGE.Set_Token('INPUT', 'px_content_item_id', FALSE);
8747: FND_MSG_PUB.ADD;
8748: RAISE FND_API.G_EXC_ERROR;
8749: ELSE
8742: IF (IBC_VALIDATE_PVT.isValidCitem(px_content_item_id) = FND_API.g_false) THEN
8743: --DBMS_OUTPUT.put_line('EX - content_item_id');
8744: x_return_status := FND_API.G_RET_STS_ERROR;
8745: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
8746: FND_MESSAGE.Set_Token('INPUT', 'px_content_item_id', FALSE);
8747: FND_MSG_PUB.ADD;
8748: RAISE FND_API.G_EXC_ERROR;
8749: ELSE
8750: -- NEW VERSION NEEDS TO BE CREATED!!
8752: -- ***************PERMISSION CHECK*********************************************************************
8753: IF (hasPermission(px_content_item_id) = FND_API.g_false) THEN --|*|
8754: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
8755: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
8756: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
8757: FND_MSG_PUB.ADD; --|*|
8758: RAISE FND_API.G_EXC_ERROR; --|*|
8759: ELSIF(isItemAdmin(px_content_item_id) = FND_API.g_false) THEN --|*|
8760: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
8767: ) = FND_API.g_false --|*|
8768: ) THEN --|*|
8769: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
8770: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
8771: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
8772: FND_MSG_PUB.ADD; --|*|
8773: RAISE FND_API.G_EXC_ERROR; --|*|
8774: END IF; --|*|
8775: END IF; --|*|
8790: ) = FND_API.g_false --|*|
8791: ) THEN --|*|
8792: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
8793: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
8794: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
8795: FND_MSG_PUB.ADD; --|*|
8796: RAISE FND_API.G_EXC_ERROR; --|*|
8797: END IF; --|*|
8798: -- ***************PERMISSION CHECK*********************************************************************
9072: -- citem validation
9073: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false ) THEN
9074: --DBMS_OUTPUT.put_line('EX - content_item_id');
9075: x_return_status := FND_API.G_RET_STS_ERROR;
9076: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
9077: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
9078: FND_MSG_PUB.ADD;
9079: RAISE FND_API.G_EXC_ERROR;
9080: END IF;
9073: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false ) THEN
9074: --DBMS_OUTPUT.put_line('EX - content_item_id');
9075: x_return_status := FND_API.G_RET_STS_ERROR;
9076: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
9077: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
9078: FND_MSG_PUB.ADD;
9079: RAISE FND_API.G_EXC_ERROR;
9080: END IF;
9081:
9084: -- ***************PERMISSION CHECK*********************************************************************
9085: IF (hasPermission(p_content_item_id) = FND_API.g_false) THEN --|*|
9086: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
9087: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
9088: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
9089: FND_MSG_PUB.ADD; --|*|
9090: RAISE FND_API.G_EXC_ERROR; --|*|
9091: ELSIF(isItemAdmin(p_content_item_id) = FND_API.g_false) THEN --|*|
9092: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
9099: ) = FND_API.g_false --|*|
9100: ) THEN --|*|
9101: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
9102: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
9103: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
9104: FND_MSG_PUB.ADD; --|*|
9105: RAISE FND_API.G_EXC_ERROR; --|*|
9106: END IF; --|*|
9107: END IF; --|*|
9480: -- validating item information
9481: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
9482: --DBMS_OUTPUT.put_line('EX - citem_ver_id');
9483: x_return_status := FND_API.G_RET_STS_ERROR;
9484: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
9485: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
9486: FND_MSG_PUB.ADD;
9487: RAISE FND_API.G_EXC_ERROR;
9488: END IF;
9481: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
9482: --DBMS_OUTPUT.put_line('EX - citem_ver_id');
9483: x_return_status := FND_API.G_RET_STS_ERROR;
9484: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
9485: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
9486: FND_MSG_PUB.ADD;
9487: RAISE FND_API.G_EXC_ERROR;
9488: END IF;
9489:
9489:
9490: IF (IBC_VALIDATE_PVT.isApproved(p_citem_ver_id) = FND_API.g_true) THEN
9491: --DBMS_OUTPUT.put_line('EX - updating approved');
9492: x_return_status := FND_API.G_RET_STS_ERROR;
9493: FND_MESSAGE.Set_Name('IBC', 'UPDATE_APPROVED_ITEM_ERROR');
9494: FND_MSG_PUB.ADD;
9495: RAISE FND_API.G_EXC_ERROR;
9496: END IF;
9497:
9502: -- ***************PERMISSION CHECK*********************************************************************
9503: IF (hasPermission(content_item_id) = FND_API.g_false) THEN --|*|
9504: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
9505: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
9506: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
9507: FND_MSG_PUB.ADD; --|*|
9508: RAISE FND_API.G_EXC_ERROR; --|*|
9509: ELSIF(isItemAdmin(content_item_id) = FND_API.g_false) THEN --|*|
9510: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
9517: ) = FND_API.g_false --|*|
9518: ) THEN --|*|
9519: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
9520: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
9521: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
9522: FND_MSG_PUB.ADD; --|*|
9523: RAISE FND_API.G_EXC_ERROR; --|*|
9524: END IF; --|*|
9525: END IF; --|*|
9558: -- raise exception if error occured while in utilities procedure
9559: IF (return_status = FND_API.G_RET_STS_ERROR) THEN
9560: --DBMS_OUTPUT.put_line('EX - inserting attribute bundle');
9561: x_return_status := FND_API.G_RET_STS_ERROR;
9562: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_INSERT_ERROR');
9563: FND_MSG_PUB.ADD;
9564: RAISE FND_API.G_EXC_ERROR;
9565: ELSE
9566: -- adding attribute bundle file id to citem version if bundle went in correctly
9612: END IF;
9613: ELSE
9614: --DBMS_OUTPUT.put_line('EX - creating attribute bundle');
9615: x_return_status := FND_API.G_RET_STS_ERROR;
9616: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_CREATION_ERROR');
9617: FND_MSG_PUB.ADD;
9618: RAISE FND_API.G_EXC_ERROR;
9619: END IF;
9620:
9856: -- version id
9857: IF ( (p_citem_ver_id IS NULL) OR (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) ) THEN
9858: --DBMS_OUTPUT.put_line('EX - citem_ver_id');
9859: x_return_status := FND_API.G_RET_STS_ERROR;
9860: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
9861: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
9862: FND_MSG_PUB.ADD;
9863: RAISE FND_API.G_EXC_ERROR;
9864: END IF;
9857: IF ( (p_citem_ver_id IS NULL) OR (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) ) THEN
9858: --DBMS_OUTPUT.put_line('EX - citem_ver_id');
9859: x_return_status := FND_API.G_RET_STS_ERROR;
9860: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
9861: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
9862: FND_MSG_PUB.ADD;
9863: RAISE FND_API.G_EXC_ERROR;
9864: END IF;
9865:
9866: -- validating language
9867: IF (IBC_VALIDATE_PVT.isValidLanguage(p_language) = FND_API.g_false) THEN
9868: --DBMS_OUTPUT.put_line('EX - LANGUAGE');
9869: x_return_status := FND_API.G_RET_STS_ERROR;
9870: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
9871: FND_MESSAGE.Set_Token('INPUT', 'p_language', FALSE);
9872: FND_MSG_PUB.ADD;
9873: RAISE FND_API.G_EXC_ERROR;
9874: END IF;
9867: IF (IBC_VALIDATE_PVT.isValidLanguage(p_language) = FND_API.g_false) THEN
9868: --DBMS_OUTPUT.put_line('EX - LANGUAGE');
9869: x_return_status := FND_API.G_RET_STS_ERROR;
9870: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
9871: FND_MESSAGE.Set_Token('INPUT', 'p_language', FALSE);
9872: FND_MSG_PUB.ADD;
9873: RAISE FND_API.G_EXC_ERROR;
9874: END IF;
9875:
9876: IF ((IBC_VALIDATE_PVT.getItemBaseLanguage(getCitemId(p_citem_ver_id))) = p_language) THEN
9877: IF (IBC_VALIDATE_PVT.isApproved(p_citem_ver_id) = FND_API.g_true) THEN
9878: --DBMS_OUTPUT.put_line('EX - updating approved');
9879: x_return_status := FND_API.G_RET_STS_ERROR;
9880: FND_MESSAGE.Set_Name('IBC', 'UPDATE_APPROVED_ITEM_ERROR');
9881: FND_MSG_PUB.ADD;
9882: RAISE FND_API.G_EXC_ERROR;
9883: END IF;
9884: ELSE
9884: ELSE
9885: IF (IBC_VALIDATE_PVT.isTranslationApproved(p_citem_ver_id,p_language) = FND_API.g_true) THEN
9886: --DBMS_OUTPUT.put_line('EX - updating approved translation');
9887: x_return_status := FND_API.G_RET_STS_ERROR;
9888: FND_MESSAGE.Set_Name('IBC', 'UPDATE_APPROVED_ITEM_ERROR');
9889: FND_MSG_PUB.ADD;
9890: RAISE FND_API.G_EXC_ERROR;
9891: END IF;
9892: END IF;
9906: -- check to see if attachment is valid
9907: IF (IBC_VALIDATE_PVT.isValidAttachment(p_attach_file_id) = FND_API.g_false) THEN
9908: --DBMS_OUTPUT.put_line('EX - p_attach_file_id');
9909: x_return_status := FND_API.G_RET_STS_ERROR;
9910: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
9911: FND_MESSAGE.Set_Token('INPUT', 'p_attach_file_id', FALSE);
9912: FND_MSG_PUB.ADD;
9913: RAISE FND_API.G_EXC_ERROR;
9914: -- if valid then get additional attachment info
9907: IF (IBC_VALIDATE_PVT.isValidAttachment(p_attach_file_id) = FND_API.g_false) THEN
9908: --DBMS_OUTPUT.put_line('EX - p_attach_file_id');
9909: x_return_status := FND_API.G_RET_STS_ERROR;
9910: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
9911: FND_MESSAGE.Set_Token('INPUT', 'p_attach_file_id', FALSE);
9912: FND_MSG_PUB.ADD;
9913: RAISE FND_API.G_EXC_ERROR;
9914: -- if valid then get additional attachment info
9915: ELSE
9922: -- check to see if code is valid since it is required for runtime
9923: IF(att_type_code IS NULL) THEN
9924: --DBMS_OUTPUT.put_line('EX - attachment attcode does not exist');
9925: x_return_status := FND_API.G_RET_STS_ERROR;
9926: FND_MESSAGE.Set_Name('IBC', 'INVALID_ATTACH_ATTR_TYPE');
9927: FND_MSG_PUB.ADD;
9928: RAISE FND_API.G_EXC_ERROR;
9929: END IF;
9930:
9951: -- ***************PERMISSION CHECK*********************************************************************
9952: IF (hasPermission(content_item_id) = FND_API.g_false) THEN --|*|
9953: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
9954: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
9955: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
9956: FND_MSG_PUB.ADD; --|*|
9957: RAISE FND_API.G_EXC_ERROR; --|*|
9958: ELSIF(isItemAdmin(content_item_id) = FND_API.g_false) THEN --|*|
9959: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
9966: ) = FND_API.g_false --|*|
9967: ) THEN --|*|
9968: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
9969: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
9970: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
9971: FND_MSG_PUB.ADD; --|*|
9972: RAISE FND_API.G_EXC_ERROR; --|*|
9973: END IF; --|*|
9974: END IF; --|*|
10215: -- item id
10216: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false) THEN
10217: --DBMS_OUTPUT.put_line('EX - citem_id');
10218: x_return_status := FND_API.G_RET_STS_ERROR;
10219: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10220: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
10221: FND_MSG_PUB.ADD;
10222: RAISE FND_API.G_EXC_ERROR;
10223: END IF;
10216: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false) THEN
10217: --DBMS_OUTPUT.put_line('EX - citem_id');
10218: x_return_status := FND_API.G_RET_STS_ERROR;
10219: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10220: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
10221: FND_MSG_PUB.ADD;
10222: RAISE FND_API.G_EXC_ERROR;
10223: END IF;
10224:
10224:
10225: IF (IBC_VALIDATE_PVT.isApprovedItem(p_content_item_id) = FND_API.g_true) THEN
10226: --DBMS_OUTPUT.put_line('EX - updating approved');
10227: x_return_status := FND_API.G_RET_STS_ERROR;
10228: FND_MESSAGE.Set_Name('IBC', 'UPDATE_APPROVED_ITEM_ERROR');
10229: FND_MSG_PUB.ADD;
10230: RAISE FND_API.G_EXC_ERROR;
10231: END IF;
10232:
10233: IF (p_dir_node_id IS NOT NULL) THEN
10234: IF ( (p_dir_node_id <> FND_API.g_miss_num) AND (IBC_VALIDATE_PVT.isValidDirNode(p_dir_node_id) = FND_API.g_false) ) THEN
10235: --DBMS_OUTPUT.put_line('EX - dir_node_id');
10236: x_return_status := FND_API.G_RET_STS_ERROR;
10237: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10238: FND_MESSAGE.Set_Token('INPUT', 'p_dir_node_id', FALSE);
10239: FND_MSG_PUB.ADD;
10240: RAISE FND_API.G_EXC_ERROR;
10241: ELSE
10234: IF ( (p_dir_node_id <> FND_API.g_miss_num) AND (IBC_VALIDATE_PVT.isValidDirNode(p_dir_node_id) = FND_API.g_false) ) THEN
10235: --DBMS_OUTPUT.put_line('EX - dir_node_id');
10236: x_return_status := FND_API.G_RET_STS_ERROR;
10237: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10238: FND_MESSAGE.Set_Token('INPUT', 'p_dir_node_id', FALSE);
10239: FND_MSG_PUB.ADD;
10240: RAISE FND_API.G_EXC_ERROR;
10241: ELSE
10242: directory_node := p_dir_node_id;
10248: -- trans required
10249: IF ( (p_trans_required <> FND_API.g_false) AND (p_trans_required <> FND_API.g_true) AND (p_trans_required <> FND_API.g_miss_char) ) THEN
10250: --DBMS_OUTPUT.put_line('EX - trans_required');
10251: x_return_status := FND_API.G_RET_STS_ERROR;
10252: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10253: FND_MESSAGE.Set_Token('INPUT', 'p_trans_required', FALSE);
10254: FND_MSG_PUB.ADD;
10255: RAISE FND_API.G_EXC_ERROR;
10256: END IF;
10249: IF ( (p_trans_required <> FND_API.g_false) AND (p_trans_required <> FND_API.g_true) AND (p_trans_required <> FND_API.g_miss_char) ) THEN
10250: --DBMS_OUTPUT.put_line('EX - trans_required');
10251: x_return_status := FND_API.G_RET_STS_ERROR;
10252: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10253: FND_MESSAGE.Set_Token('INPUT', 'p_trans_required', FALSE);
10254: FND_MSG_PUB.ADD;
10255: RAISE FND_API.G_EXC_ERROR;
10256: END IF;
10257: -- parent item id
10257: -- parent item id
10258: IF ( (p_parent_item_id <> FND_API.g_miss_num) AND (IBC_VALIDATE_PVT.isValidCitem(p_parent_item_id) = FND_API.g_false)) THEN
10259: --DBMS_OUTPUT.put_line('EX - parent item id');
10260: x_return_status := FND_API.G_RET_STS_ERROR;
10261: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10262: FND_MESSAGE.Set_Token('INPUT', 'p_parent_item_id', FALSE);
10263: FND_MSG_PUB.ADD;
10264: RAISE FND_API.G_EXC_ERROR;
10265: END IF;
10258: IF ( (p_parent_item_id <> FND_API.g_miss_num) AND (IBC_VALIDATE_PVT.isValidCitem(p_parent_item_id) = FND_API.g_false)) THEN
10259: --DBMS_OUTPUT.put_line('EX - parent item id');
10260: x_return_status := FND_API.G_RET_STS_ERROR;
10261: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10262: FND_MESSAGE.Set_Token('INPUT', 'p_parent_item_id', FALSE);
10263: FND_MSG_PUB.ADD;
10264: RAISE FND_API.G_EXC_ERROR;
10265: END IF;
10266: -- wd restricted
10266: -- wd restricted
10267: IF ( (p_wd_restricted <> FND_API.g_miss_char) AND (IBC_VALIDATE_PVT.isBoolean(p_wd_restricted) = FND_API.g_false) ) THEN
10268: --DBMS_OUTPUT.put_line('EX - wd_restricted');
10269: x_return_status := FND_API.G_RET_STS_ERROR;
10270: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10271: FND_MESSAGE.Set_Token('INPUT', 'p_wd_restricted', FALSE);
10272: FND_MSG_PUB.ADD;
10273: RAISE FND_API.G_EXC_ERROR;
10274: END IF;
10267: IF ( (p_wd_restricted <> FND_API.g_miss_char) AND (IBC_VALIDATE_PVT.isBoolean(p_wd_restricted) = FND_API.g_false) ) THEN
10268: --DBMS_OUTPUT.put_line('EX - wd_restricted');
10269: x_return_status := FND_API.G_RET_STS_ERROR;
10270: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10271: FND_MESSAGE.Set_Token('INPUT', 'p_wd_restricted', FALSE);
10272: FND_MSG_PUB.ADD;
10273: RAISE FND_API.G_EXC_ERROR;
10274: END IF;
10275: -- resource id
10292:
10293:
10294: IF (IBC_VALIDATE_PVT.isValidResource(p_new_owner_resource_id,p_new_owner_resource_type) = FND_API.g_false) THEN
10295: x_return_status := FND_API.G_RET_STS_ERROR;
10296: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10297: FND_MESSAGE.Set_Token('INPUT', 'p_owner_resource_id/p_owner_resource_type<' || p_new_owner_resource_id||':'||p_new_owner_resource_type||'>', FALSE);
10298: FND_MSG_PUB.ADD;
10299: RAISE FND_API.G_EXC_ERROR;
10300: END IF;
10293:
10294: IF (IBC_VALIDATE_PVT.isValidResource(p_new_owner_resource_id,p_new_owner_resource_type) = FND_API.g_false) THEN
10295: x_return_status := FND_API.G_RET_STS_ERROR;
10296: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10297: FND_MESSAGE.Set_Token('INPUT', 'p_owner_resource_id/p_owner_resource_type<' || p_new_owner_resource_id||':'||p_new_owner_resource_type||'>', FALSE);
10298: FND_MSG_PUB.ADD;
10299: RAISE FND_API.G_EXC_ERROR;
10300: END IF;
10301:
10303: -- ***************PERMISSION CHECK*********************************************************************
10304: IF (hasPermission(p_content_item_id) = FND_API.g_false) THEN --|*|
10305: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
10306: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
10307: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
10308: FND_MSG_PUB.ADD; --|*|
10309: RAISE FND_API.G_EXC_ERROR; --|*|
10310: ELSIF(isItemAdmin(p_content_item_id) = FND_API.g_false) THEN --|*|
10311: IF (IBC_DATA_SECURITY_PVT.has_permission( --|*|
10318: ) = FND_API.g_false --|*|
10319: ) THEN --|*|
10320: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
10321: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
10322: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
10323: FND_MSG_PUB.ADD; --|*|
10324: RAISE FND_API.G_EXC_ERROR; --|*|
10325: END IF; --|*|
10326: END IF; --|*|
10543:
10544: -- content item id
10545: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false) THEN
10546: x_return_status := FND_API.G_RET_STS_ERROR;
10547: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10548: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
10549: FND_MSG_PUB.ADD;
10550: RAISE FND_API.G_EXC_ERROR;
10551: END IF;
10544: -- content item id
10545: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false) THEN
10546: x_return_status := FND_API.G_RET_STS_ERROR;
10547: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10548: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
10549: FND_MSG_PUB.ADD;
10550: RAISE FND_API.G_EXC_ERROR;
10551: END IF;
10552:
10551: END IF;
10552:
10553: IF (IBC_VALIDATE_PVT.isApprovedItem(p_content_item_id) = FND_API.g_false) THEN
10554: x_return_status := FND_API.G_RET_STS_ERROR;
10555: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10556: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
10557: FND_MSG_PUB.ADD;
10558: RAISE FND_API.G_EXC_ERROR;
10559: END IF;
10552:
10553: IF (IBC_VALIDATE_PVT.isApprovedItem(p_content_item_id) = FND_API.g_false) THEN
10554: x_return_status := FND_API.G_RET_STS_ERROR;
10555: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10556: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
10557: FND_MSG_PUB.ADD;
10558: RAISE FND_API.G_EXC_ERROR;
10559: END IF;
10560:
10559: END IF;
10560:
10561: IF (IBC_VALIDATE_PVT.isapproved(p_citem_ver_id) = FND_API.g_false) THEN
10562: x_return_status := FND_API.G_RET_STS_ERROR;
10563: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10564: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
10565: FND_MSG_PUB.ADD;
10566: RAISE FND_API.G_EXC_ERROR;
10567: END IF;
10560:
10561: IF (IBC_VALIDATE_PVT.isapproved(p_citem_ver_id) = FND_API.g_false) THEN
10562: x_return_status := FND_API.G_RET_STS_ERROR;
10563: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10564: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
10565: FND_MSG_PUB.ADD;
10566: RAISE FND_API.G_EXC_ERROR;
10567: END IF;
10568:
10570: FETCH c_chk_citem INTO l_dummy;
10571: IF c_chk_citem%NOTFOUND THEN
10572: CLOSE c_chk_citem;
10573: x_return_status := FND_API.G_RET_STS_ERROR;
10574: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10575: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
10576: FND_MSG_PUB.ADD;
10577: RAISE FND_API.G_EXC_ERROR;
10578: ELSE
10571: IF c_chk_citem%NOTFOUND THEN
10572: CLOSE c_chk_citem;
10573: x_return_status := FND_API.G_RET_STS_ERROR;
10574: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10575: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
10576: FND_MSG_PUB.ADD;
10577: RAISE FND_API.G_EXC_ERROR;
10578: ELSE
10579: CLOSE c_chk_citem;
10584: -- ***************PERMISSION CHECK*********************************************************************
10585: IF (hasPermission(p_content_item_id) = FND_API.g_false) THEN --|*|
10586: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
10587: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
10588: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
10589: FND_MSG_PUB.ADD; --|*|
10590: RAISE FND_API.G_EXC_ERROR; --|*|
10591: ELSIF(isItemAdmin(p_content_item_id) = FND_API.g_false) THEN --|*|
10592: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
10599: ) = FND_API.g_false --|*|
10600: ) THEN --|*|
10601: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
10602: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
10603: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
10604: FND_MSG_PUB.ADD; --|*|
10605: RAISE FND_API.G_EXC_ERROR; --|*|
10606: END IF; --|*|
10607: END IF; --|*|
10797: -- item id
10798: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
10799: --DBMS_OUTPUT.put_line('EX - citem_ver_id');
10800: x_return_status := FND_API.G_RET_STS_ERROR;
10801: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10802: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
10803: FND_MSG_PUB.ADD;
10804: RAISE FND_API.G_EXC_ERROR;
10805: END IF;
10798: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
10799: --DBMS_OUTPUT.put_line('EX - citem_ver_id');
10800: x_return_status := FND_API.G_RET_STS_ERROR;
10801: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10802: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
10803: FND_MSG_PUB.ADD;
10804: RAISE FND_API.G_EXC_ERROR;
10805: END IF;
10806:
10806:
10807: IF (IBC_VALIDATE_PVT.isApproved(p_citem_ver_id) = FND_API.g_true) THEN
10808: --DBMS_OUTPUT.put_line('EX - updating approved');
10809: x_return_status := FND_API.G_RET_STS_ERROR;
10810: FND_MESSAGE.Set_Name('IBC', 'UPDATE_APPROVED_ITEM_ERROR');
10811: FND_MSG_PUB.ADD;
10812: RAISE FND_API.G_EXC_ERROR;
10813: END IF;
10814:
10817: -- validating content item id
10818: IF (content_item_id IS NULL) THEN
10819: --DBMS_OUTPUT.put_line('EX - content_item_id');
10820: x_return_status := FND_API.G_RET_STS_ERROR;
10821: FND_MESSAGE.Set_Name('IBC', 'CONTENT_ITEM_NOT_FOUND');
10822: FND_MSG_PUB.ADD;
10823: RAISE FND_API.G_EXC_ERROR;
10824: END IF;
10825:
10828: -- content item name
10829: IF ( (p_citem_name IS NULL) OR (LENGTH(p_citem_name) > 240) )THEN
10830: --DBMS_OUTPUT.put_line('EX - citem name');
10831: x_return_status := FND_API.G_RET_STS_ERROR;
10832: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10833: FND_MESSAGE.Set_Token('INPUT', 'p_citem_name', FALSE);
10834: FND_MSG_PUB.ADD;
10835: RAISE FND_API.G_EXC_ERROR;
10836: END IF;
10829: IF ( (p_citem_name IS NULL) OR (LENGTH(p_citem_name) > 240) )THEN
10830: --DBMS_OUTPUT.put_line('EX - citem name');
10831: x_return_status := FND_API.G_RET_STS_ERROR;
10832: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10833: FND_MESSAGE.Set_Token('INPUT', 'p_citem_name', FALSE);
10834: FND_MSG_PUB.ADD;
10835: RAISE FND_API.G_EXC_ERROR;
10836: END IF;
10837: -- content item description
10837: -- content item description
10838: IF ( (p_citem_description IS NOT NULL) AND (p_citem_description <> FND_API.G_MISS_CHAR) AND (LENGTH(p_citem_description) > 2000) )THEN
10839: --DBMS_OUTPUT.put_line('EX - citem description');
10840: x_return_status := FND_API.G_RET_STS_ERROR;
10841: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10842: FND_MESSAGE.Set_Token('INPUT', 'p_citem_description', FALSE);
10843: FND_MSG_PUB.ADD;
10844: RAISE FND_API.G_EXC_ERROR;
10845: END IF;
10838: IF ( (p_citem_description IS NOT NULL) AND (p_citem_description <> FND_API.G_MISS_CHAR) AND (LENGTH(p_citem_description) > 2000) )THEN
10839: --DBMS_OUTPUT.put_line('EX - citem description');
10840: x_return_status := FND_API.G_RET_STS_ERROR;
10841: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
10842: FND_MESSAGE.Set_Token('INPUT', 'p_citem_description', FALSE);
10843: FND_MSG_PUB.ADD;
10844: RAISE FND_API.G_EXC_ERROR;
10845: END IF;
10846:
10847: -- ***************PERMISSION CHECK*********************************************************************
10848: IF (hasPermission(content_item_id) = FND_API.g_false) THEN --|*|
10849: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
10850: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
10851: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
10852: FND_MSG_PUB.ADD; --|*|
10853: RAISE FND_API.G_EXC_ERROR; --|*|
10854: ELSIF(isItemAdmin(content_item_id) = FND_API.g_false) THEN --|*|
10855: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
10862: ) = FND_API.g_false --|*|
10863: ) THEN --|*|
10864: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
10865: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
10866: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
10867: FND_MSG_PUB.ADD; --|*|
10868: RAISE FND_API.G_EXC_ERROR; --|*|
10869: END IF; --|*|
10870: END IF; --|*|
11087: -- citem validation
11088: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false ) THEN
11089: --DBMS_OUTPUT.put_line('EX - content_item_id');
11090: x_return_status := FND_API.G_RET_STS_ERROR;
11091: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11092: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
11093: FND_MSG_PUB.ADD;
11094: RAISE FND_API.G_EXC_ERROR;
11095: END IF;
11088: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false ) THEN
11089: --DBMS_OUTPUT.put_line('EX - content_item_id');
11090: x_return_status := FND_API.G_RET_STS_ERROR;
11091: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11092: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
11093: FND_MSG_PUB.ADD;
11094: RAISE FND_API.G_EXC_ERROR;
11095: END IF;
11096:
11097: IF (getContentItemStatus(p_content_item_id)
11098: NOT IN (IBC_UTILITIES_PUB.G_STI_ARCHIVED, IBC_UTILITIES_PUB.G_STI_ARCHIVED_CASCADE))
11099: THEN
11100: x_return_status := FND_API.G_RET_STS_ERROR;
11101: FND_MESSAGE.Set_Name('IBC', 'IBC_CITEM_NOT_ARCHIVED');
11102: FND_MSG_PUB.ADD;
11103: RAISE FND_API.G_EXC_ERROR;
11104: END IF;
11105:
11124: -- ***************PERMISSION CHECK*********************************************************************
11125: IF (hasPermission(p_content_item_id) = FND_API.g_false) THEN --|*|
11126: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
11127: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
11128: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
11129: FND_MSG_PUB.ADD; --|*|
11130: RAISE FND_API.G_EXC_ERROR; --|*|
11131: ELSIF(isItemAdmin(p_content_item_id) = FND_API.g_false) THEN --|*|
11132: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
11139: ) = FND_API.g_false --|*|
11140: ) THEN --|*|
11141: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
11142: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
11143: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
11144: FND_MSG_PUB.ADD; --|*|
11145: RAISE FND_API.G_EXC_ERROR; --|*|
11146: END IF; --|*|
11147: END IF; --|*|
11166:
11167: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11168: --DBMS_OUTPUT.put_line('EX - no permissions');
11169: x_return_status := FND_API.G_RET_STS_ERROR;
11170: FND_MESSAGE.Set_Name('IBC', 'CANNOT_REVERT_STATUS');
11171: FND_MSG_PUB.ADD;
11172: RAISE FND_API.G_EXC_ERROR;
11173: END IF;
11174: END IF;
11366: -- citem validation
11367: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false ) THEN
11368: --DBMS_OUTPUT.put_line('EX - content_item_id');
11369: x_return_status := FND_API.G_RET_STS_ERROR;
11370: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11371: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
11372: FND_MSG_PUB.ADD;
11373: RAISE FND_API.G_EXC_ERROR;
11374: END IF;
11367: IF (IBC_VALIDATE_PVT.isValidCitem(p_content_item_id) = FND_API.g_false ) THEN
11368: --DBMS_OUTPUT.put_line('EX - content_item_id');
11369: x_return_status := FND_API.G_RET_STS_ERROR;
11370: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11371: FND_MESSAGE.Set_Token('INPUT', 'p_content_item_id', FALSE);
11372: FND_MSG_PUB.ADD;
11373: RAISE FND_API.G_EXC_ERROR;
11374: END IF;
11375:
11377: -- ***************PERMISSION CHECK*********************************************************************
11378: IF (hasPermission(p_content_item_id) = FND_API.g_false) THEN --|*|
11379: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
11380: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
11381: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
11382: FND_MSG_PUB.ADD; --|*|
11383: RAISE FND_API.G_EXC_ERROR; --|*|
11384: ELSIF(isItemAdmin(p_content_item_id) = FND_API.g_false) THEN --|*|
11385: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
11392: ) = FND_API.g_false --|*|
11393: ) THEN --|*|
11394: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
11395: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
11396: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
11397: FND_MSG_PUB.ADD; --|*|
11398: RAISE FND_API.G_EXC_ERROR; --|*|
11399: END IF; --|*|
11400: END IF; --|*|
11717: -- content item name
11718: IF (p_citem_name IS NULL) THEN
11719: --DBMS_OUTPUT.put_line('EX - citem_name');
11720: x_return_status := FND_API.G_RET_STS_ERROR;
11721: FND_MESSAGE.Set_Name('IBC', 'IBC_INPUT_REQUIRED');
11722: FND_MESSAGE.Set_Token('INPUT', 'p_citem_name', FALSE);
11723: FND_MSG_PUB.ADD;
11724: RAISE FND_API.G_EXC_ERROR;
11725: END IF;
11718: IF (p_citem_name IS NULL) THEN
11719: --DBMS_OUTPUT.put_line('EX - citem_name');
11720: x_return_status := FND_API.G_RET_STS_ERROR;
11721: FND_MESSAGE.Set_Name('IBC', 'IBC_INPUT_REQUIRED');
11722: FND_MESSAGE.Set_Token('INPUT', 'p_citem_name', FALSE);
11723: FND_MSG_PUB.ADD;
11724: RAISE FND_API.G_EXC_ERROR;
11725: END IF;
11726: IF (LENGTH(p_citem_name) > 240) THEN
11725: END IF;
11726: IF (LENGTH(p_citem_name) > 240) THEN
11727: --DBMS_OUTPUT.put_line('EX - citem_name');
11728: x_return_status := FND_API.G_RET_STS_ERROR;
11729: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11730: FND_MESSAGE.Set_Token('INPUT', 'p_citem_name', FALSE);
11731: FND_MSG_PUB.ADD;
11732: RAISE FND_API.G_EXC_ERROR;
11733: END IF;
11726: IF (LENGTH(p_citem_name) > 240) THEN
11727: --DBMS_OUTPUT.put_line('EX - citem_name');
11728: x_return_status := FND_API.G_RET_STS_ERROR;
11729: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11730: FND_MESSAGE.Set_Token('INPUT', 'p_citem_name', FALSE);
11731: FND_MSG_PUB.ADD;
11732: RAISE FND_API.G_EXC_ERROR;
11733: END IF;
11734: -- directory nodes
11736: (p_dir_node_id <> FND_API.G_MISS_NUM) AND
11737: (IBC_VALIDATE_PVT.isValidDirNode(p_dir_node_id) = FND_API.g_false) ) THEN
11738: --DBMS_OUTPUT.put_line('EX - dir_node_id');
11739: x_return_status := FND_API.G_RET_STS_ERROR;
11740: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11741: FND_MESSAGE.Set_Token('INPUT', 'p_dir_node_id', FALSE);
11742: FND_MSG_PUB.ADD;
11743: RAISE FND_API.G_EXC_ERROR;
11744: END IF;
11737: (IBC_VALIDATE_PVT.isValidDirNode(p_dir_node_id) = FND_API.g_false) ) THEN
11738: --DBMS_OUTPUT.put_line('EX - dir_node_id');
11739: x_return_status := FND_API.G_RET_STS_ERROR;
11740: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11741: FND_MESSAGE.Set_Token('INPUT', 'p_dir_node_id', FALSE);
11742: FND_MSG_PUB.ADD;
11743: RAISE FND_API.G_EXC_ERROR;
11744: END IF;
11745: -- p_status
11745: -- p_status
11746: IF (IBC_VALIDATE_PVT.isValidStatus(p_status) = FND_API.g_false) THEN
11747: --DBMS_OUTPUT.put_line('EX - p_status');
11748: x_return_status := FND_API.G_RET_STS_ERROR;
11749: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11750: FND_MESSAGE.Set_Token('INPUT', 'p_status', FALSE);
11751: FND_MSG_PUB.ADD;
11752: RAISE FND_API.G_EXC_ERROR;
11753: END IF;
11746: IF (IBC_VALIDATE_PVT.isValidStatus(p_status) = FND_API.g_false) THEN
11747: --DBMS_OUTPUT.put_line('EX - p_status');
11748: x_return_status := FND_API.G_RET_STS_ERROR;
11749: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11750: FND_MESSAGE.Set_Token('INPUT', 'p_status', FALSE);
11751: FND_MSG_PUB.ADD;
11752: RAISE FND_API.G_EXC_ERROR;
11753: END IF;
11754: -- content item description
11754: -- content item description
11755: IF ( (p_citem_description IS NOT NULL) AND (p_citem_description <> FND_API.G_MISS_CHAR) AND (LENGTH(p_citem_description) > 2000) )THEN
11756: --DBMS_OUTPUT.put_line('EX - citem_description');
11757: x_return_status := FND_API.G_RET_STS_ERROR;
11758: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11759: FND_MESSAGE.Set_Token('INPUT', 'p_citem_description', FALSE);
11760: FND_MSG_PUB.ADD;
11761: RAISE FND_API.G_EXC_ERROR;
11762: END IF;
11755: IF ( (p_citem_description IS NOT NULL) AND (p_citem_description <> FND_API.G_MISS_CHAR) AND (LENGTH(p_citem_description) > 2000) )THEN
11756: --DBMS_OUTPUT.put_line('EX - citem_description');
11757: x_return_status := FND_API.G_RET_STS_ERROR;
11758: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11759: FND_MESSAGE.Set_Token('INPUT', 'p_citem_description', FALSE);
11760: FND_MSG_PUB.ADD;
11761: RAISE FND_API.G_EXC_ERROR;
11762: END IF;
11763: -- reference code
11763: -- reference code
11764: IF ( (p_reference_code <> FND_API.G_MISS_CHAR) AND (p_reference_code IS NOT NULL) AND (LENGTH(p_reference_code) > 100) )THEN
11765: --DBMS_OUTPUT.put_line('EX - reference_code');
11766: x_return_status := FND_API.G_RET_STS_ERROR;
11767: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11768: FND_MESSAGE.Set_Token('INPUT', 'p_reference_code', FALSE);
11769: FND_MSG_PUB.ADD;
11770: RAISE FND_API.G_EXC_ERROR;
11771: END IF;
11764: IF ( (p_reference_code <> FND_API.G_MISS_CHAR) AND (p_reference_code IS NOT NULL) AND (LENGTH(p_reference_code) > 100) )THEN
11765: --DBMS_OUTPUT.put_line('EX - reference_code');
11766: x_return_status := FND_API.G_RET_STS_ERROR;
11767: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11768: FND_MESSAGE.Set_Token('INPUT', 'p_reference_code', FALSE);
11769: FND_MSG_PUB.ADD;
11770: RAISE FND_API.G_EXC_ERROR;
11771: END IF;
11772: -- p_trans_required
11772: -- p_trans_required
11773: IF (IBC_VALIDATE_PVT.isBoolean(p_trans_required) = FND_API.g_false) THEN
11774: --DBMS_OUTPUT.put_line('EX - p_trans req');
11775: x_return_status := FND_API.G_RET_STS_ERROR;
11776: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11777: FND_MESSAGE.Set_Token('INPUT', 'p_trans_required', FALSE);
11778: FND_MSG_PUB.ADD;
11779: RAISE FND_API.G_EXC_ERROR;
11780: END IF;
11773: IF (IBC_VALIDATE_PVT.isBoolean(p_trans_required) = FND_API.g_false) THEN
11774: --DBMS_OUTPUT.put_line('EX - p_trans req');
11775: x_return_status := FND_API.G_RET_STS_ERROR;
11776: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11777: FND_MESSAGE.Set_Token('INPUT', 'p_trans_required', FALSE);
11778: FND_MSG_PUB.ADD;
11779: RAISE FND_API.G_EXC_ERROR;
11780: END IF;
11781: -- parent item id
11781: -- parent item id
11782: IF ( (p_parent_item_id <> FND_API.g_miss_num) AND (IBC_VALIDATE_PVT.isValidCitem(p_parent_item_id) = FND_API.g_false)) THEN
11783: --DBMS_OUTPUT.put_line('EX - parent item id');
11784: x_return_status := FND_API.G_RET_STS_ERROR;
11785: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11786: FND_MESSAGE.Set_Token('INPUT', 'p_parent_item_id', FALSE);
11787: FND_MSG_PUB.ADD;
11788: RAISE FND_API.G_EXC_ERROR;
11789: END IF;
11782: IF ( (p_parent_item_id <> FND_API.g_miss_num) AND (IBC_VALIDATE_PVT.isValidCitem(p_parent_item_id) = FND_API.g_false)) THEN
11783: --DBMS_OUTPUT.put_line('EX - parent item id');
11784: x_return_status := FND_API.G_RET_STS_ERROR;
11785: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11786: FND_MESSAGE.Set_Token('INPUT', 'p_parent_item_id', FALSE);
11787: FND_MSG_PUB.ADD;
11788: RAISE FND_API.G_EXC_ERROR;
11789: END IF;
11790: -- p_lock_flag
11790: -- p_lock_flag
11791: IF (IBC_VALIDATE_PVT.isBoolean(p_lock_flag) = FND_API.g_false) THEN
11792: --DBMS_OUTPUT.put_line('EX - p_lock_flag');
11793: x_return_status := FND_API.G_RET_STS_ERROR;
11794: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11795: FND_MESSAGE.Set_Token('INPUT', 'p_lock_flag', FALSE);
11796: FND_MSG_PUB.ADD;
11797: RAISE FND_API.G_EXC_ERROR;
11798: END IF;
11791: IF (IBC_VALIDATE_PVT.isBoolean(p_lock_flag) = FND_API.g_false) THEN
11792: --DBMS_OUTPUT.put_line('EX - p_lock_flag');
11793: x_return_status := FND_API.G_RET_STS_ERROR;
11794: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11795: FND_MESSAGE.Set_Token('INPUT', 'p_lock_flag', FALSE);
11796: FND_MSG_PUB.ADD;
11797: RAISE FND_API.G_EXC_ERROR;
11798: END IF;
11799: -- p_wd_restricted
11799: -- p_wd_restricted
11800: IF (IBC_VALIDATE_PVT.isBoolean(p_wd_restricted) = FND_API.g_false) THEN
11801: --DBMS_OUTPUT.put_line('EX - p_wd_restricted');
11802: x_return_status := FND_API.G_RET_STS_ERROR;
11803: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11804: FND_MESSAGE.Set_Token('INPUT', 'p_wd_restricted', FALSE);
11805: FND_MSG_PUB.ADD;
11806: RAISE FND_API.G_EXC_ERROR;
11807: END IF;
11800: IF (IBC_VALIDATE_PVT.isBoolean(p_wd_restricted) = FND_API.g_false) THEN
11801: --DBMS_OUTPUT.put_line('EX - p_wd_restricted');
11802: x_return_status := FND_API.G_RET_STS_ERROR;
11803: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11804: FND_MESSAGE.Set_Token('INPUT', 'p_wd_restricted', FALSE);
11805: FND_MSG_PUB.ADD;
11806: RAISE FND_API.G_EXC_ERROR;
11807: END IF;
11808: -- Validating uniqueness for item_reference_code
11807: END IF;
11808: -- Validating uniqueness for item_reference_code
11809: IF exist_item_reference_code(p_reference_code, px_content_item_id) THEN
11810: x_return_status := FND_API.G_RET_STS_ERROR;
11811: FND_MESSAGE.Set_Name('IBC', 'IBC_DUPLICATE_ITEM_REF_CODE');
11812: FND_MSG_PUB.ADD;
11813: RAISE FND_API.G_EXC_ERROR;
11814: END IF;
11815:
11833:
11834: IF (IBC_VALIDATE_PVT.isValidResource(p_new_owner_resource_id,p_new_owner_resource_type) = FND_API.g_false) THEN
11835: --DBMS_OUTPUT.put_line('EX - invalid resource id');
11836: x_return_status := FND_API.G_RET_STS_ERROR;
11837: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11838: FND_MESSAGE.Set_Token('INPUT', 'p_owner_resource_id/p_owner_resource_type<' || p_new_owner_resource_id||':'||p_new_owner_resource_type||'>', FALSE);
11839: FND_MSG_PUB.ADD;
11840: RAISE FND_API.G_EXC_ERROR;
11841: END IF;
11834: IF (IBC_VALIDATE_PVT.isValidResource(p_new_owner_resource_id,p_new_owner_resource_type) = FND_API.g_false) THEN
11835: --DBMS_OUTPUT.put_line('EX - invalid resource id');
11836: x_return_status := FND_API.G_RET_STS_ERROR;
11837: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11838: FND_MESSAGE.Set_Token('INPUT', 'p_owner_resource_id/p_owner_resource_type<' || p_new_owner_resource_id||':'||p_new_owner_resource_type||'>', FALSE);
11839: FND_MSG_PUB.ADD;
11840: RAISE FND_API.G_EXC_ERROR;
11841: END IF;
11842:
11851: p_default_rendition < 1)
11852: THEN
11853: --DBMS_OUTPUT.put_line('EX - invalid default rendition');
11854: x_return_status := FND_API.G_RET_STS_ERROR;
11855: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11856: FND_MESSAGE.Set_Token('INPUT', 'p_default_rendition', FALSE);
11857: FND_MSG_PUB.ADD;
11858: RAISE FND_API.G_EXC_ERROR;
11859: END IF;
11852: THEN
11853: --DBMS_OUTPUT.put_line('EX - invalid default rendition');
11854: x_return_status := FND_API.G_RET_STS_ERROR;
11855: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11856: FND_MESSAGE.Set_Token('INPUT', 'p_default_rendition', FALSE);
11857: FND_MSG_PUB.ADD;
11858: RAISE FND_API.G_EXC_ERROR;
11859: END IF;
11860:
11884: ) = FND_API.g_false --|*|
11885: ) THEN --|*|
11886: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
11887: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
11888: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
11889: FND_MSG_PUB.ADD; --|*|
11890: RAISE FND_API.G_EXC_ERROR; --|*|
11891: END IF; --|*|
11892: -- ***************PERMISSION CHECK*********************************************************************
11937: -- ***************PERMISSION CHECK*********************************************************************
11938: IF (hasPermission(px_content_item_id) = FND_API.g_false) THEN --|*|
11939: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
11940: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
11941: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
11942: FND_MSG_PUB.ADD; --|*|
11943: RAISE FND_API.G_EXC_ERROR; --|*| --|*|
11944: END IF; --|*|
11945: -- ***************PERMISSION CHECK*********************************************************************
12018:
12019: FOR I IN 1..p_item_renditions.COUNT LOOP
12020: IF (IBC_VALIDATE_PVT.isValidAttachment(p_item_renditions(I)) = FND_API.g_false) THEN
12021: x_return_status := FND_API.G_RET_STS_ERROR;
12022: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
12023: FND_MESSAGE.Set_Token('INPUT', 'p_item_renditions', FALSE);
12024: FND_MSG_PUB.ADD;
12025: RAISE FND_API.G_EXC_ERROR;
12026: END IF;
12019: FOR I IN 1..p_item_renditions.COUNT LOOP
12020: IF (IBC_VALIDATE_PVT.isValidAttachment(p_item_renditions(I)) = FND_API.g_false) THEN
12021: x_return_status := FND_API.G_RET_STS_ERROR;
12022: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
12023: FND_MESSAGE.Set_Token('INPUT', 'p_item_renditions', FALSE);
12024: FND_MSG_PUB.ADD;
12025: RAISE FND_API.G_EXC_ERROR;
12026: END IF;
12027:
12038: (do_version <> G_COMMAND_POST_APPROVAL_UPDATE)) THEN
12039:
12040: IF (IBC_VALIDATE_PVT.isValidAttachment(p_attach_file_id) = FND_API.g_false) THEN
12041: x_return_status := FND_API.G_RET_STS_ERROR;
12042: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
12043: FND_MESSAGE.Set_Token('INPUT', 'p_attach_file_id', FALSE);
12044: FND_MSG_PUB.ADD;
12045: RAISE FND_API.G_EXC_ERROR;
12046: END IF;
12039:
12040: IF (IBC_VALIDATE_PVT.isValidAttachment(p_attach_file_id) = FND_API.g_false) THEN
12041: x_return_status := FND_API.G_RET_STS_ERROR;
12042: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
12043: FND_MESSAGE.Set_Token('INPUT', 'p_attach_file_id', FALSE);
12044: FND_MSG_PUB.ADD;
12045: RAISE FND_API.G_EXC_ERROR;
12046: END IF;
12047:
12048: attach_code := getAttachAttribCode(px_content_item_id);
12049: IF ( attach_code IS NULL) THEN
12050: --DBMS_OUTPUT.put_line('EX - attachment attribute code');
12051: x_return_status := FND_API.G_RET_STS_ERROR;
12052: FND_MESSAGE.Set_Name('IBC', 'INVALID_ATTACH_ATTR_TYPE');
12053: FND_MSG_PUB.ADD;
12054: RAISE FND_API.G_EXC_ERROR;
12055: END IF;
12056:
12091: -- raise exception if error occured while in utilities procedure
12092: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
12093: --DBMS_OUTPUT.put_line('EX - inserting attribute bundle');
12094: x_return_status := FND_API.G_RET_STS_ERROR;
12095: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
12096: FND_MESSAGE.set_token('SITUATION', 'Insertion');
12097: FND_MSG_PUB.ADD;
12098: END IF;
12099: ELSE
12092: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
12093: --DBMS_OUTPUT.put_line('EX - inserting attribute bundle');
12094: x_return_status := FND_API.G_RET_STS_ERROR;
12095: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
12096: FND_MESSAGE.set_token('SITUATION', 'Insertion');
12097: FND_MSG_PUB.ADD;
12098: END IF;
12099: ELSE
12100: --DBMS_OUTPUT.put_line('EX - creating attribute bundle');
12098: END IF;
12099: ELSE
12100: --DBMS_OUTPUT.put_line('EX - creating attribute bundle');
12101: x_return_status := FND_API.G_RET_STS_ERROR;
12102: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
12103: FND_MESSAGE.set_token('SITUATION', 'Creation');
12104: FND_MSG_PUB.ADD;
12105: END IF;
12106: -- no attributes given
12099: ELSE
12100: --DBMS_OUTPUT.put_line('EX - creating attribute bundle');
12101: x_return_status := FND_API.G_RET_STS_ERROR;
12102: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
12103: FND_MESSAGE.set_token('SITUATION', 'Creation');
12104: FND_MSG_PUB.ADD;
12105: END IF;
12106: -- no attributes given
12107: ELSE
12204: ) = FND_API.g_false --|*|
12205: ) THEN --|*|
12206: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
12207: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
12208: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
12209: FND_MSG_PUB.ADD; --|*|
12210: RAISE FND_API.G_EXC_ERROR; --|*|
12211: END IF; --|*|
12212: END IF; --|*|
12283: ) THEN --|*|
12284: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
12285: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
12286: IF ( perm_code(i) = 'CITEM_EDIT') THEN --|*|
12287: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
12288: END IF; --|*|
12289: IF ( perm_code(i) = 'CITEM_APPROVE') THEN --|*|
12290: FND_MESSAGE.Set_Name('IBC', 'NO_APPROVE_ITEM_PRIV'); --|*|
12291: END IF; --|*|
12286: IF ( perm_code(i) = 'CITEM_EDIT') THEN --|*|
12287: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
12288: END IF; --|*|
12289: IF ( perm_code(i) = 'CITEM_APPROVE') THEN --|*|
12290: FND_MESSAGE.Set_Name('IBC', 'NO_APPROVE_ITEM_PRIV'); --|*|
12291: END IF; --|*|
12292: --|*|
12293: FND_MSG_PUB.ADD; --|*|
12294: RAISE FND_API.G_EXC_ERROR; --|*|
13315: FETCH Get_Item_Version_Detail INTO l_citem_version_status, l_citem_version_attr_id;
13316: -- Check if content item version id is valid
13317: IF (Get_Item_Version_Detail%NOTFOUND) THEN
13318: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13319: FND_MESSAGE.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
13320: FND_MESSAGE.Set_token('CITEM_VERSION_ID', l_citem_version_id);
13321: FND_MSG_PUB.ADD;
13322: END IF;
13323: CLOSE Get_Item_Version_Detail;
13316: -- Check if content item version id is valid
13317: IF (Get_Item_Version_Detail%NOTFOUND) THEN
13318: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13319: FND_MESSAGE.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
13320: FND_MESSAGE.Set_token('CITEM_VERSION_ID', l_citem_version_id);
13321: FND_MSG_PUB.ADD;
13322: END IF;
13323: CLOSE Get_Item_Version_Detail;
13324: RAISE FND_API.G_EXC_ERROR;
13328: -- error checking
13329: IF ( (l_citem_version_status = IBC_UTILITIES_PUB.G_STV_APPROVED) OR
13330: (l_citem_version_status = IBC_UTILITIES_PUB.G_STV_SUBMIT_FOR_APPROVAL) ) THEN
13331: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13332: FND_MESSAGE.Set_Name('IBC', 'INVALID_HARD_DELETE');
13333: FND_MESSAGE.Set_token('CITEM_VERSION_ID', l_citem_version_id);
13334: FND_MSG_PUB.ADD;
13335: END IF;
13336: -- possibly: not raising exception here, and raising it at end so full list of problematic items is created???
13329: IF ( (l_citem_version_status = IBC_UTILITIES_PUB.G_STV_APPROVED) OR
13330: (l_citem_version_status = IBC_UTILITIES_PUB.G_STV_SUBMIT_FOR_APPROVAL) ) THEN
13331: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13332: FND_MESSAGE.Set_Name('IBC', 'INVALID_HARD_DELETE');
13333: FND_MESSAGE.Set_token('CITEM_VERSION_ID', l_citem_version_id);
13334: FND_MSG_PUB.ADD;
13335: END IF;
13336: -- possibly: not raising exception here, and raising it at end so full list of problematic items is created???
13337: RAISE FND_API.G_EXC_ERROR;
13347: -- ***************PERMISSION CHECK*********************************************************************
13348: IF (hasPermission(l_content_item_id) = FND_API.g_false) THEN --|*|
13349: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
13350: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
13351: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
13352: FND_MSG_PUB.ADD; --|*|
13353: RAISE FND_API.G_EXC_ERROR; --|*|
13354: ELSIF(isItemAdmin(l_content_item_id) = FND_API.g_false) THEN --|*|
13355: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
13362: ) = FND_API.g_false --|*|
13363: ) THEN --|*|
13364: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
13365: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
13366: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
13367: FND_MSG_PUB.ADD; --|*|
13368: RAISE FND_API.G_EXC_ERROR; --|*|
13369: END IF; --|*|
13370: END IF; --|*|
13594: l_citem_id := p_content_item_ids(i);
13595:
13596: IF IBC_VALIDATE_PVT.isvalidcitem(l_citem_id) = FND_API.g_false THEN
13597: x_return_status := FND_API.G_RET_STS_ERROR;
13598: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
13599: FND_MESSAGE.Set_Token('INPUT', 'content_item_id:[' || l_citem_id || ']', FALSE);
13600: FND_MSG_PUB.ADD;
13601: RAISE FND_API.G_EXC_ERROR;
13602: END IF;
13595:
13596: IF IBC_VALIDATE_PVT.isvalidcitem(l_citem_id) = FND_API.g_false THEN
13597: x_return_status := FND_API.G_RET_STS_ERROR;
13598: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
13599: FND_MESSAGE.Set_Token('INPUT', 'content_item_id:[' || l_citem_id || ']', FALSE);
13600: FND_MSG_PUB.ADD;
13601: RAISE FND_API.G_EXC_ERROR;
13602: END IF;
13603:
13617: ) = FND_API.g_false --|*|
13618: ) THEN --|*|
13619: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
13620: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
13621: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
13622: FND_MSG_PUB.ADD; --|*|
13623: -- possibly wait until end to raise exception so all errors can be loaded in message list???--|*|
13624: RAISE FND_API.G_EXC_ERROR; --|*|
13625: END IF; --|*|
13860: -- checking version id
13861: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
13862: --DBMS_OUTPUT.put_line('EX - p_citem_ver_id');
13863: x_return_status := FND_API.G_RET_STS_ERROR;
13864: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
13865: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
13866: FND_MSG_PUB.ADD;
13867: RAISE FND_API.G_EXC_ERROR;
13868: END IF;
13861: IF (IBC_VALIDATE_PVT.isValidCitemVer(p_citem_ver_id) = FND_API.g_false) THEN
13862: --DBMS_OUTPUT.put_line('EX - p_citem_ver_id');
13863: x_return_status := FND_API.G_RET_STS_ERROR;
13864: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
13865: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
13866: FND_MSG_PUB.ADD;
13867: RAISE FND_API.G_EXC_ERROR;
13868: END IF;
13869:
13870: -- checking if valid status
13871: IF (IBC_VALIDATE_PVT.isValidStatus(p_new_status) = FND_API.g_false) THEN
13872: --DBMS_OUTPUT.put_line('EX - p_status');
13873: x_return_status := FND_API.G_RET_STS_ERROR;
13874: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
13875: FND_MESSAGE.Set_Token('INPUT', 'p_status', FALSE);
13876: FND_MSG_PUB.ADD;
13877: RAISE FND_API.G_EXC_ERROR;
13878: END IF;
13871: IF (IBC_VALIDATE_PVT.isValidStatus(p_new_status) = FND_API.g_false) THEN
13872: --DBMS_OUTPUT.put_line('EX - p_status');
13873: x_return_status := FND_API.G_RET_STS_ERROR;
13874: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
13875: FND_MESSAGE.Set_Token('INPUT', 'p_status', FALSE);
13876: FND_MSG_PUB.ADD;
13877: RAISE FND_API.G_EXC_ERROR;
13878: END IF;
13879:
13879:
13880: /*
13881: IF (IBC_VALIDATE_PVT.isApproved(p_citem_ver_id) = FND_API.g_true) THEN
13882: x_return_status := FND_API.G_RET_STS_ERROR;
13883: FND_MESSAGE.Set_Name('IBC', 'UPDATE_APPROVED_ITEM_ERROR');
13884: FND_MSG_PUB.ADD;
13885: RAISE FND_API.G_EXC_ERROR;
13886: END IF;
13887: */
13889: IF (IBC_VALIDATE_PVT.isTranslationApproved(p_citem_ver_id
13890: ,p_language
13891: ) = FND_API.g_true) THEN
13892: x_return_status := FND_API.G_RET_STS_ERROR;
13893: FND_MESSAGE.Set_Name('IBC', 'IBC_TRANSLATION_UPDATE_ERROR');
13894: FND_MSG_PUB.ADD;
13895: RAISE FND_API.G_EXC_ERROR;
13896: END IF;
13897:
13902: -- ***************PERMISSION CHECK*********************************************************************
13903: IF (hasPermission(content_item_id) = FND_API.g_false) THEN --|*|
13904: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
13905: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
13906: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
13907: FND_MSG_PUB.ADD; --|*|
13908: RAISE FND_API.G_EXC_ERROR; --|*|
13909: ELSIF(isItemAdmin(content_item_id) = FND_API.g_false) THEN --|*|
13910: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
13929: ) --|*|
13930: ) THEN --|*|
13931: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
13932: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
13933: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
13934: FND_MSG_PUB.ADD; --|*|
13935: RAISE FND_API.G_EXC_ERROR; --|*|
13936: END IF; --|*|
13937: END IF; --|*|