[Home] [Help]
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
1068: cont_flag := FND_API.g_true;
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:
1079: IF (cont_flag = FND_API.g_true) 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;
1091:
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
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)
1120: ELSIF (att_type = IBC_UTILITIES_PUB.G_DTC_NUMBER) THEN
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)
1128: ELSIF (att_type = IBC_UTILITIES_PUB.G_DTC_DATE) THEN
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
1136: ELSIF (att_type = IBC_UTILITIES_PUB.G_DTC_BOOLEAN) THEN
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
1144: ELSIF ( (att_type = IBC_UTILITIES_PUB.G_DTC_COMPONENT) OR (att_type = IBC_UTILITIES_PUB.G_DTC_ATTACHMENT) ) THEN
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:
1151: -- *********** TEMPORARILY STORING INFO IN TEMP LOB **********
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(
1244: p_tag => 'OUTPUT',
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:
1383: CLOSE c_old_item;
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
1421: Ibc_Utilities_Pvt.insert_attribute_bundle(
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(
1847: IBC_DEBUG_PVT.make_parameter_list(
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
1930: insert_data := FND_API.g_true;
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?
1943: IF (insert_data = FND_API.g_true) THEN
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
2119:
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:
2135: -- citem version ids
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:
2150: -- attribute type code
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:
2161: -- correct content_type?
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:
2172: -- Changed Default Value for non-updateable component?
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;
2187: END IF;
2188: END LOOP;
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;
2212:
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;
2395: END IF;
2396:
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:
2408: counter := counter + 1;
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');
2422: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2423: get_attribute_type_name(p_content_type_code, p_attribute_type_code, p_language), FALSE);
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
2429: IF ((p_maximum IS NOT NULL) AND (counter > p_maximum)) THEN
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');
2440: IF IBC_DEBUG_PVT.debug_enabled 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;
2678:
2679: -- do not check if the data type code is a component...
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');
2719: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2720: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
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:
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
2738: -- ** validate each column of attribute **
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');
2757: FND_MESSAGE.Set_Token('ATTRIBUTE_NAME',
2758: get_attribute_type_name(ctype_code, r_attribute.atc, p_language), FALSE);
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:
2764: -- maxi
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)
2775: FOR i IN 0..valid_element_count-1 LOOP
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:
2817: -- updateable
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;
2828:
2829: -- Validate against ValueSet
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;
2849:
2850: END LOOP; -- end for loop
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(
2875: IBC_DEBUG_PVT.make_parameter_list(
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;
3040:
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
3161: IBC_DEBUG_PVT.end_process(
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?
3276: IF (IBC_VALIDATE_PVT.isValidCitem(px_content_item_id) = FND_API.g_true) THEN
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
3293: --DBMS_OUTPUT.put_line('EX - content_item_id');
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
3301: -- NO --> Does this version exist?
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: --
3317: x_item_command := G_COMMAND_POST_APPROVAL_UPDATE;
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;
3334: END IF;
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:
3346: IF IBC_DEBUG_PVT.debug_enabled THEN
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(
3370: p_tag => 'OUTPUT',
3429: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
3430: --******************* BEGIN REQUIRED AREA ******************************
3431: SAVEPOINT svpt_approve_item; --|**|
3432: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
3433: FND_MSG_PUB.initialize; --|**|
3434: END IF; --|**|
3435: --|**|
3436: -- Standard call to check for call compatibility. --|**|
3437: IF NOT FND_API.Compatible_API_Call ( --|**|
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:
3477: -- getting content item id and base language
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**********************************
3503:
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:
3539: -- Can be approved if in case of having components they are already approved.
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;
3550:
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:
3563: -- CALLING ACTUAL APPROVAL ROUTINE
3579: COMMIT;
3580: END IF;
3581:
3582: -- Standard call to get message count and if count is 1, get message info.
3583: FND_MSG_PUB.Count_And_Get(
3584: p_count => x_msg_count,
3585: p_data => x_msg_data
3586: );
3587:
3605: --DBMS_OUTPUT.put_line('Expected Error');
3606: Ibc_Utilities_Pvt.handle_exceptions(
3607: p_api_name => L_API_NAME
3608: ,p_pkg_name => G_PKG_NAME
3609: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
3610: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
3611: ,p_sqlcode => SQLCODE
3612: ,p_sqlerrm => SQLERRM
3613: ,x_msg_count => x_msg_count
3632: --DBMS_OUTPUT.put_line('Unexpected error');
3633: Ibc_Utilities_Pvt.handle_exceptions(
3634: p_api_name => L_API_NAME
3635: ,p_pkg_name => G_PKG_NAME
3636: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
3637: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
3638: ,p_sqlcode => SQLCODE
3639: ,p_sqlerrm => SQLERRM
3640: ,x_msg_count => x_msg_count
3720: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
3721: --******************* BEGIN REQUIRED AREA ******************************
3722: SAVEPOINT svpt_archive_item; --|**|
3723: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
3724: FND_MSG_PUB.initialize; --|**|
3725: END IF; --|**|
3726: --|**|
3727: -- Standard call to check for call compatibility. --|**|
3728: IF NOT FND_API.Compatible_API_Call ( --|**|
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:
3768: -- Version Status validation
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:
3796: -- Item Sub Item Validation
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;
3807:
3808: -- If already archived then raise error
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:
3819:
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:
3830: -- If it is default stylesheet raise error
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:
3838: OPEN c_creator(p_content_item_id);
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:
3850: CLOSE c_creator;
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( --|*|
3862: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
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; --|*|
3877: -- ***************PERMISSION CHECK*********************************************************************
3915: COMMIT;
3916: END IF;
3917:
3918: -- Standard call to get message count and if count is 1, get message info.
3919: FND_MSG_PUB.Count_And_Get(
3920: p_count => x_msg_count,
3921: p_data => x_msg_data
3922: );
3923:
3942: --DBMS_OUTPUT.put_line('Expected Error');
3943: Ibc_Utilities_Pvt.handle_exceptions(
3944: p_api_name => L_API_NAME
3945: ,p_pkg_name => G_PKG_NAME
3946: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
3947: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
3948: ,p_sqlcode => SQLCODE
3949: ,p_sqlerrm => SQLERRM
3950: ,x_msg_count => x_msg_count
3969: --DBMS_OUTPUT.put_line('Unexpected error');
3970: Ibc_Utilities_Pvt.handle_exceptions(
3971: p_api_name => L_API_NAME
3972: ,p_pkg_name => G_PKG_NAME
3973: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
3974: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
3975: ,p_sqlcode => SQLCODE
3976: ,p_sqlerrm => SQLERRM
3977: ,x_msg_count => x_msg_count
4051: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
4052: --******************* BEGIN REQUIRED AREA ******************************
4053: SAVEPOINT svpt_change_status; --|**|
4054: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
4055: FND_MSG_PUB.initialize; --|**|
4056: END IF; --|**|
4057: --|**|
4058: -- Standard call to check for call compatibility. --|**|
4059: IF NOT FND_API.Compatible_API_Call ( --|**|
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
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:
4111: IF (IBC_VALIDATE_PVT.isApproved(p_citem_ver_id) = FND_API.g_true) THEN
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:
4118: content_item_id := getCitemId(p_citem_ver_id);
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( --|*|
4131: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
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; --|*|
4158: -- ***************PERMISSION CHECK*********************************************************************
4265: COMMIT;
4266: END IF;
4267:
4268: -- Standard call to get message count and if count is 1, get message info.
4269: FND_MSG_PUB.Count_And_Get(
4270: p_count => x_msg_count,
4271: p_data => x_msg_data
4272: );
4273:
4291: --DBMS_OUTPUT.put_line('Expected Error');
4292: Ibc_Utilities_Pvt.handle_exceptions(
4293: p_api_name => L_API_NAME
4294: ,p_pkg_name => G_PKG_NAME
4295: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
4296: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
4297: ,p_sqlcode => SQLCODE
4298: ,p_sqlerrm => SQLERRM
4299: ,x_msg_count => x_msg_count
4318: --DBMS_OUTPUT.put_line('Unexpected error');
4319: Ibc_Utilities_Pvt.handle_exceptions(
4320: p_api_name => L_API_NAME
4321: ,p_pkg_name => G_PKG_NAME
4322: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
4323: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
4324: ,p_sqlcode => SQLCODE
4325: ,p_sqlerrm => SQLERRM
4326: ,x_msg_count => x_msg_count
4475: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
4476: --******************* BEGIN REQUIRED AREA ******************************
4477: SAVEPOINT svpt_copy_item; --|**|
4478: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
4479: FND_MSG_PUB.initialize; --|**|
4480: END IF; --|**|
4481: --|**|
4482: -- Standard call to check for call compatibility. --|**|
4483: IF NOT FND_API.Compatible_API_Call ( --|**|
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
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);
4541: ELSE
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:
4555: OPEN 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:
4576: -- setting language variable
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*********************************************************************
4606:
4733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4734: END IF;
4735:
4736: -- Standard call to get message count and if count is 1, get message info.
4737: FND_MSG_PUB.Count_And_Get(
4738: p_count => x_msg_count,
4739: p_data => x_msg_data
4740: );
4741:
4761: --DBMS_OUTPUT.put_line('Expected Error');
4762: Ibc_Utilities_Pvt.handle_exceptions(
4763: p_api_name => L_API_NAME
4764: ,p_pkg_name => G_PKG_NAME
4765: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
4766: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
4767: ,p_sqlcode => SQLCODE
4768: ,p_sqlerrm => SQLERRM
4769: ,x_msg_count => x_msg_count
4790: --DBMS_OUTPUT.put_line('Unexpected error');
4791: Ibc_Utilities_Pvt.handle_exceptions(
4792: p_api_name => L_API_NAME
4793: ,p_pkg_name => G_PKG_NAME
4794: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
4795: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
4796: ,p_sqlcode => SQLCODE
4797: ,p_sqlerrm => SQLERRM
4798: ,x_msg_count => x_msg_count
4960: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
4961: --******************* BEGIN REQUIRED AREA ******************************
4962: SAVEPOINT svpt_copy_version; --|**|
4963: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
4964: FND_MSG_PUB.initialize; --|**|
4965: END IF; --|**|
4966: --|**|
4967: -- Standard call to check for call compatibility. --|**|
4968: IF NOT FND_API.Compatible_API_Call ( --|**|
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);
5012: END IF;
5046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5047: END IF;
5048:
5049: -- Standard call to get message count and if count is 1, get message info.
5050: FND_MSG_PUB.Count_And_Get(
5051: p_count => x_msg_count,
5052: p_data => x_msg_data
5053: );
5054:
5074: --DBMS_OUTPUT.put_line('Expected Error');
5075: Ibc_Utilities_Pvt.handle_exceptions(
5076: p_api_name => L_API_NAME
5077: ,p_pkg_name => G_PKG_NAME
5078: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
5079: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
5080: ,p_sqlcode => SQLCODE
5081: ,p_sqlerrm => SQLERRM
5082: ,x_msg_count => x_msg_count
5103: --DBMS_OUTPUT.put_line('Unexpected error');
5104: Ibc_Utilities_Pvt.handle_exceptions(
5105: p_api_name => L_API_NAME
5106: ,p_pkg_name => G_PKG_NAME
5107: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
5108: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
5109: ,p_sqlcode => SQLCODE
5110: ,p_sqlerrm => SQLERRM
5111: ,x_msg_count => x_msg_count
5191: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
5192: --******************* BEGIN REQUIRED AREA ******************************
5193: SAVEPOINT svpt_delete_component; --|**|
5194: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
5195: FND_MSG_PUB.initialize; --|**|
5196: END IF; --|**|
5197: --|**|
5198: -- Standard call to check for call compatibility. --|**|
5199: IF NOT FND_API.Compatible_API_Call ( --|**|
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
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:
5251: content_item_id := getCitemId(p_citem_ver_id);
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( --|*|
5264: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
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; --|*|
5279: -- ***************PERMISSION CHECK*********************************************************************
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);
5306: --***************************************************
5347: COMMIT;
5348: END IF;
5349:
5350: -- Standard call to get message count and if count is 1, get message info.
5351: FND_MSG_PUB.Count_And_Get(
5352: p_count => x_msg_count,
5353: p_data => x_msg_data
5354: );
5355:
5372: --DBMS_OUTPUT.put_line('Expected Error');
5373: Ibc_Utilities_Pvt.handle_exceptions(
5374: p_api_name => L_API_NAME
5375: ,p_pkg_name => G_PKG_NAME
5376: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
5377: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
5378: ,p_sqlcode => SQLCODE
5379: ,p_sqlerrm => SQLERRM
5380: ,x_msg_count => x_msg_count
5398: --DBMS_OUTPUT.put_line('Unexpected error');
5399: Ibc_Utilities_Pvt.handle_exceptions(
5400: p_api_name => L_API_NAME
5401: ,p_pkg_name => G_PKG_NAME
5402: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
5403: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
5404: ,p_sqlcode => SQLCODE
5405: ,p_sqlerrm => SQLERRM
5406: ,x_msg_count => x_msg_count
5494: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
5495: --******************* BEGIN REQUIRED AREA ******************************
5496: SAVEPOINT svpt_delete_association; --|**|
5497: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
5498: FND_MSG_PUB.initialize; --|**|
5499: END IF; --|**|
5500: --|**|
5501: -- Standard call to check for call compatibility. --|**|
5502: IF NOT FND_API.Compatible_API_Call ( --|**|
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:
5547: dir_id := getDirectoryNodeId(p_content_item_id);
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( --|*|
5558: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
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; --|*|
5573: -- ***************PERMISSION CHECK*********************************************************************
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:
5691: --DBMS_OUTPUT.put_line(counter||' association(s) deleted');
5695: COMMIT;
5696: END IF;
5697:
5698: -- Standard call to get message count and if count is 1, get message info.
5699: FND_MSG_PUB.Count_And_Get(
5700: p_count => x_msg_count,
5701: p_data => x_msg_data
5702: );
5703:
5720: --DBMS_OUTPUT.put_line('Expected Error');
5721: Ibc_Utilities_Pvt.handle_exceptions(
5722: p_api_name => L_API_NAME
5723: ,p_pkg_name => G_PKG_NAME
5724: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
5725: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
5726: ,p_sqlcode => SQLCODE
5727: ,p_sqlerrm => SQLERRM
5728: ,x_msg_count => x_msg_count
5746: --DBMS_OUTPUT.put_line('Unexpected error');
5747: Ibc_Utilities_Pvt.handle_exceptions(
5748: p_api_name => L_API_NAME
5749: ,p_pkg_name => G_PKG_NAME
5750: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
5751: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
5752: ,p_sqlcode => SQLCODE
5753: ,p_sqlerrm => SQLERRM
5754: ,x_msg_count => x_msg_count
5827: BEGIN
5828: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
5829: --******************* BEGIN REQUIRED AREA ******************************
5830: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
5831: FND_MSG_PUB.initialize; --|**|
5832: END IF; --|**|
5833: --|**|
5834: -- Standard call to check for call compatibility. --|**|
5835: IF NOT FND_API.Compatible_API_Call ( --|**|
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:
5873: attribute_fid := getAttribFID(p_citem_ver_id);
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;
5883:
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;
5902:
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:
5924: -- Standard call to get message count and if count is 1, get message info.
5921: RAISE FND_API.G_EXC_ERROR;
5922: END IF;
5923:
5924: -- Standard call to get message count and if count is 1, get message info.
5925: FND_MSG_PUB.Count_And_Get(
5926: p_count => x_msg_count,
5927: p_data => x_msg_data
5928: );
5929:
5948: --DBMS_OUTPUT.put_line('Expected Error');
5949: Ibc_Utilities_Pvt.handle_exceptions(
5950: p_api_name => L_API_NAME
5951: ,p_pkg_name => G_PKG_NAME
5952: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
5953: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
5954: ,p_sqlcode => SQLCODE
5955: ,p_sqlerrm => SQLERRM
5956: ,x_msg_count => x_msg_count
5976: --DBMS_OUTPUT.put_line('Unexpected error');
5977: Ibc_Utilities_Pvt.handle_exceptions(
5978: p_api_name => L_API_NAME
5979: ,p_pkg_name => G_PKG_NAME
5980: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
5981: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
5982: ,p_sqlcode => SQLCODE
5983: ,p_sqlerrm => SQLERRM
5984: ,x_msg_count => x_msg_count
6210: BEGIN
6211: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
6212: --******************* BEGIN REQUIRED AREA ******************************
6213: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
6214: FND_MSG_PUB.initialize; --|**|
6215: END IF; --|**|
6216: --|**|
6217: -- Standard call to check for call compatibility. --|**|
6218: IF NOT FND_API.Compatible_API_Call ( --|**|
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:
6259: IF (p_language IS NULL) 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:
6275: -- getting most items from a view
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; --|*|
6371:
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;
6394:
6498: x_keywords(l_index) := r_keyword.keyword;
6499: END LOOP;
6500:
6501: -- Standard call to get message count and if count is 1, get message info.
6502: FND_MSG_PUB.Count_And_Get(
6503: p_count => x_msg_count,
6504: p_data => x_msg_data
6505: );
6506:
6566: --DBMS_OUTPUT.put_line('Expected Error');
6567: Ibc_Utilities_Pvt.handle_exceptions(
6568: p_api_name => L_API_NAME
6569: ,p_pkg_name => G_PKG_NAME
6570: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
6571: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
6572: ,p_sqlcode => SQLCODE
6573: ,p_sqlerrm => SQLERRM
6574: ,x_msg_count => x_msg_count
6591: --DBMS_OUTPUT.put_line('Unexpected error');
6592: Ibc_Utilities_Pvt.handle_exceptions(
6593: p_api_name => L_API_NAME
6594: ,p_pkg_name => G_PKG_NAME
6595: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
6596: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
6597: ,p_sqlcode => SQLCODE
6598: ,p_sqlerrm => SQLERRM
6599: ,x_msg_count => x_msg_count
8059: SAVEPOINT svpt_insert_components;
8060: --******************* BEGIN REQUIRED AREA ******************************
8061: SAVEPOINT svpt_insert_components; --|**|
8062: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
8063: FND_MSG_PUB.initialize; --|**|
8064: END IF; --|**|
8065: --|**|
8066: -- Standard call to check for call compatibility. --|**|
8067: IF NOT FND_API.Compatible_API_Call ( --|**|
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:
8110: content_item_id := getCitemId(p_citem_ver_id);
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( --|*|
8122: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
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; --|*|
8137: -- ***************PERMISSION CHECK*********************************************************************
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:
8149: -- ACTUAL INSERTION OF COMPONENTS
8170: COMMIT;
8171: END IF;
8172:
8173: -- Standard call to get message count and if count is 1, get message info.
8174: FND_MSG_PUB.Count_And_Get(
8175: p_count => x_msg_count,
8176: p_data => x_msg_data
8177: );
8178:
8195: --DBMS_OUTPUT.put_line('Expected Error');
8196: Ibc_Utilities_Pvt.handle_exceptions(
8197: p_api_name => L_API_NAME
8198: ,p_pkg_name => G_PKG_NAME
8199: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
8200: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
8201: ,p_sqlcode => SQLCODE
8202: ,p_sqlerrm => SQLERRM
8203: ,x_msg_count => x_msg_count
8221: --DBMS_OUTPUT.put_line('Unexpected error');
8222: Ibc_Utilities_Pvt.handle_exceptions(
8223: p_api_name => L_API_NAME
8224: ,p_pkg_name => G_PKG_NAME
8225: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
8226: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
8227: ,p_sqlcode => SQLCODE
8228: ,p_sqlerrm => SQLERRM
8229: ,x_msg_count => x_msg_count
8379: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
8380: --******************* BEGIN REQUIRED AREA ******************************
8381: SAVEPOINT svpt_insert_associations; --|**|
8382: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
8383: FND_MSG_PUB.initialize; --|**|
8384: END IF; --|**|
8385: --|**|
8386: -- Standard call to check for call compatibility. --|**|
8387: IF NOT FND_API.Compatible_API_Call ( --|**|
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:
8433: IF (p_citem_version_id IS NOT NULL AND
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
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
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:
8464:
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( --|*|
8476: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
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; --|*|
8491: -- ***************PERMISSION CHECK*********************************************************************
8512: COMMIT;
8513: END IF;
8514:
8515: -- Standard call to get message count and if count is 1, get message info.
8516: FND_MSG_PUB.Count_And_Get(
8517: p_count => x_msg_count,
8518: p_data => x_msg_data
8519: );
8520:
8537: --DBMS_OUTPUT.put_line('Expected Error');
8538: Ibc_Utilities_Pvt.handle_exceptions(
8539: p_api_name => L_API_NAME
8540: ,p_pkg_name => G_PKG_NAME
8541: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
8542: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
8543: ,p_sqlcode => SQLCODE
8544: ,p_sqlerrm => SQLERRM
8545: ,x_msg_count => x_msg_count
8563: --DBMS_OUTPUT.put_line('Unexpected error');
8564: Ibc_Utilities_Pvt.handle_exceptions(
8565: p_api_name => L_API_NAME
8566: ,p_pkg_name => G_PKG_NAME
8567: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
8568: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
8569: ,p_sqlcode => SQLCODE
8570: ,p_sqlerrm => SQLERRM
8571: ,x_msg_count => x_msg_count
8648: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
8649: --******************* BEGIN REQUIRED AREA ******************************
8650: SAVEPOINT svpt_insert_minimum_item; --|**|
8651: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
8652: FND_MSG_PUB.initialize; --|**|
8653: END IF; --|**|
8654: --|**|
8655: -- Standard call to check for call compatibility. --|**|
8656: IF NOT FND_API.Compatible_API_Call ( --|**|
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
8706: --DBMS_OUTPUT.put_line('EX - citem name');
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
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
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
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
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!!
8751:
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( --|*|
8761: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
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; --|*|
8776: -- ***************PERMISSION CHECK*********************************************************************
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*********************************************************************
8799: current_version := 1;
8906: COMMIT;
8907: END IF;
8908:
8909: -- Standard call to get message count and if count is 1, get message info.
8910: FND_MSG_PUB.Count_And_Get(
8911: p_count => x_msg_count,
8912: p_data => x_msg_data
8913: );
8914:
8933: ROLLBACK TO svpt_insert_minimum_item;
8934: Ibc_Utilities_Pvt.handle_exceptions(
8935: p_api_name => L_API_NAME
8936: ,p_pkg_name => G_PKG_NAME
8937: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
8938: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
8939: ,p_sqlcode => SQLCODE
8940: ,p_sqlerrm => SQLERRM
8941: ,x_msg_count => x_msg_count
8959: ROLLBACK TO svpt_insert_minimum_item;
8960: Ibc_Utilities_Pvt.handle_exceptions(
8961: p_api_name => L_API_NAME
8962: ,p_pkg_name => G_PKG_NAME
8963: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
8964: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
8965: ,p_sqlcode => SQLCODE
8966: ,p_sqlerrm => SQLERRM
8967: ,x_msg_count => x_msg_count
9035: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
9036: --******************* BEGIN REQUIRED AREA ******************************
9037: SAVEPOINT svpt_lock_item; --|**|
9038: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
9039: FND_MSG_PUB.initialize; --|**|
9040: END IF; --|**|
9041: --|**|
9042: -- Standard call to check for call compatibility. --|**|
9043: IF NOT FND_API.Compatible_API_Call ( --|**|
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:
9082: dir_id := getDirectoryNodeId(p_content_item_id);
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( --|*|
9093: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
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; --|*|
9108: -- ***************PERMISSION CHECK*********************************************************************
9120: COMMIT;
9121: END IF;
9122:
9123: -- Standard call to get message count and if count is 1, get message info.
9124: FND_MSG_PUB.Count_And_Get(
9125: p_count => x_msg_count,
9126: p_data => x_msg_data
9127: );
9128:
9147: ROLLBACK TO svpt_lock_item;
9148: Ibc_Utilities_Pvt.handle_exceptions(
9149: p_api_name => L_API_NAME
9150: ,p_pkg_name => G_PKG_NAME
9151: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
9152: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
9153: ,p_sqlcode => SQLCODE
9154: ,p_sqlerrm => SQLERRM
9155: ,x_msg_count => x_msg_count
9173: ROLLBACK TO svpt_lock_item;
9174: Ibc_Utilities_Pvt.handle_exceptions(
9175: p_api_name => L_API_NAME
9176: ,p_pkg_name => G_PKG_NAME
9177: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
9178: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
9179: ,p_sqlcode => SQLCODE
9180: ,p_sqlerrm => SQLERRM
9181: ,x_msg_count => x_msg_count
9303: RAISE FND_API.G_EXC_ERROR;
9304: END IF;
9305:
9306: -- Standard call to get message count and if count is 1, get message info.
9307: FND_MSG_PUB.Count_And_Get(
9308: p_count => x_msg_count,
9309: p_data => x_msg_data
9310: );
9311:
9327: --DBMS_OUTPUT.put_line('Expected Error');
9328: Ibc_Utilities_Pvt.handle_exceptions(
9329: p_api_name => L_API_NAME
9330: ,p_pkg_name => G_PKG_NAME
9331: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
9332: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
9333: ,p_sqlcode => SQLCODE
9334: ,p_sqlerrm => SQLERRM
9335: ,x_msg_count => x_msg_count
9352: --DBMS_OUTPUT.put_line('Unexpected error');
9353: Ibc_Utilities_Pvt.handle_exceptions(
9354: p_api_name => L_API_NAME
9355: ,p_pkg_name => G_PKG_NAME
9356: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
9357: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
9358: ,p_sqlcode => SQLCODE
9359: ,p_sqlerrm => SQLERRM
9360: ,x_msg_count => x_msg_count
9438: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
9439: --******************* BEGIN REQUIRED AREA ******************************
9440: SAVEPOINT svpt_set_attribute_bundle; --|**|
9441: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
9442: FND_MSG_PUB.initialize; --|**|
9443: END IF; --|**|
9444: --|**|
9445: -- Standard call to check for call compatibility. --|**|
9446: IF NOT FND_API.Compatible_API_Call ( --|**|
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:
9490: IF (IBC_VALIDATE_PVT.isApproved(p_citem_ver_id) = FND_API.g_true) THEN
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:
9498: content_item_id := getCitemId(p_citem_ver_id);
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( --|*|
9511: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
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; --|*|
9526: -- ***************PERMISSION CHECK*********************************************************************
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
9567: Ibc_Citem_Versions_Pkg.update_row(
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:
9621: -- COMMIT?
9623: COMMIT;
9624: END IF;
9625:
9626: -- Standard call to get message count and if count is 1, get message info.
9627: FND_MSG_PUB.Count_And_Get(
9628: p_count => x_msg_count,
9629: p_data => x_msg_data
9630: );
9631:
9649: ROLLBACK TO svpt_set_attribute_bundle;
9650: Ibc_Utilities_Pvt.handle_exceptions(
9651: p_api_name => L_API_NAME
9652: ,p_pkg_name => G_PKG_NAME
9653: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
9654: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
9655: ,p_sqlcode => SQLCODE
9656: ,p_sqlerrm => SQLERRM
9657: ,x_msg_count => x_msg_count
9675: ROLLBACK TO svpt_set_attribute_bundle;
9676: Ibc_Utilities_Pvt.handle_exceptions(
9677: p_api_name => L_API_NAME
9678: ,p_pkg_name => G_PKG_NAME
9679: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
9680: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
9681: ,p_sqlcode => SQLCODE
9682: ,p_sqlerrm => SQLERRM
9683: ,x_msg_count => x_msg_count
9815: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
9816: --******************* BEGIN REQUIRED AREA ******************************
9817: SAVEPOINT svpt_set_attachment; --|**|
9818: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
9819: FND_MSG_PUB.initialize; --|**|
9820: END IF; --|**|
9821: --|**|
9822: -- Standard call to check for call compatibility. --|**|
9823: IF NOT FND_API.Compatible_API_Call ( --|**|
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
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
9885: IF (IBC_VALIDATE_PVT.isTranslationApproved(p_citem_ver_id,p_language) = FND_API.g_true) THEN
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;
9893:
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
9916: OPEN c_lob(p_attach_file_id);
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:
9931: -- Delete default rendition
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( --|*|
9960: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
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; --|*|
9975: -- ***************PERMISSION CHECK*********************************************************************
10034: COMMIT;
10035: END IF;
10036:
10037: -- Standard call to get message count and if count is 1, get message info.
10038: FND_MSG_PUB.Count_And_Get(
10039: p_count => x_msg_count,
10040: p_data => x_msg_data
10041: );
10042:
10060: ROLLBACK TO svpt_set_attachment;
10061: Ibc_Utilities_Pvt.handle_exceptions(
10062: p_api_name => L_API_NAME
10063: ,p_pkg_name => G_PKG_NAME
10064: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
10065: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
10066: ,p_sqlcode => SQLCODE
10067: ,p_sqlerrm => SQLERRM
10068: ,x_msg_count => x_msg_count
10086: ROLLBACK TO svpt_set_attachment;
10087: Ibc_Utilities_Pvt.handle_exceptions(
10088: p_api_name => L_API_NAME
10089: ,p_pkg_name => G_PKG_NAME
10090: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
10091: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
10092: ,p_sqlcode => SQLCODE
10093: ,p_sqlerrm => SQLERRM
10094: ,x_msg_count => x_msg_count
10170: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
10171: --******************* BEGIN REQUIRED AREA ******************************
10172: SAVEPOINT svpt_set_citem_meta; --|**|
10173: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
10174: FND_MSG_PUB.initialize; --|**|
10175: END IF; --|**|
10176: --|**|
10177: -- Standard call to check for call compatibility. --|**|
10178: IF NOT FND_API.Compatible_API_Call ( --|**|
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:
10225: IF (IBC_VALIDATE_PVT.isApprovedItem(p_content_item_id) = FND_API.g_true) THEN
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
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;
10243: END IF;
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
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
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
10276:
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:
10302:
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( --|*|
10312: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
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; --|*|
10327: -- ***************PERMISSION CHECK*********************************************************************
10360: COMMIT;
10361: END IF;
10362:
10363: -- Standard call to get message count and if count is 1, get message info.
10364: FND_MSG_PUB.Count_And_Get(
10365: p_count => x_msg_count,
10366: p_data => x_msg_data
10367: );
10368:
10386: ROLLBACK TO svpt_set_citem_meta;
10387: Ibc_Utilities_Pvt.handle_exceptions(
10388: p_api_name => L_API_NAME
10389: ,p_pkg_name => G_PKG_NAME
10390: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
10391: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
10392: ,p_sqlcode => SQLCODE
10393: ,p_sqlerrm => SQLERRM
10394: ,x_msg_count => x_msg_count
10412: ROLLBACK TO svpt_set_citem_meta;
10413: Ibc_Utilities_Pvt.handle_exceptions(
10414: p_api_name => L_API_NAME
10415: ,p_pkg_name => G_PKG_NAME
10416: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
10417: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
10418: ,p_sqlcode => SQLCODE
10419: ,p_sqlerrm => SQLERRM
10420: ,x_msg_count => x_msg_count
10504: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
10505: --******************* BEGIN REQUIRED AREA ******************************
10506: SAVEPOINT svpt_set_live_version; --|**|
10507: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
10508: FND_MSG_PUB.initialize; --|**|
10509: END IF; --|**|
10510: --|**|
10511: -- Standard call to check for call compatibility. --|**|
10512: IF NOT FND_API.Compatible_API_Call ( --|**|
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:
10553: IF (IBC_VALIDATE_PVT.isApprovedItem(p_content_item_id) = FND_API.g_false) THEN
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:
10561: IF (IBC_VALIDATE_PVT.isapproved(p_citem_ver_id) = FND_API.g_false) THEN
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:
10569: OPEN c_chk_citem(p_content_item_id, p_citem_ver_id);
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;
10580: END IF;
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( --|*|
10593: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
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; --|*|
10608: -- ***************PERMISSION CHECK*********************************************************************
10623: COMMIT;
10624: END IF;
10625:
10626: -- Standard call to get message count and if count is 1, get message info.
10627: FND_MSG_PUB.Count_And_Get(
10628: p_count => x_msg_count,
10629: p_data => x_msg_data
10630: );
10631:
10648: --DBMS_OUTPUT.put_line('Expected Error');
10649: Ibc_Utilities_Pvt.handle_exceptions(
10650: p_api_name => L_API_NAME
10651: ,p_pkg_name => G_PKG_NAME
10652: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
10653: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
10654: ,p_sqlcode => SQLCODE
10655: ,p_sqlerrm => SQLERRM
10656: ,x_msg_count => x_msg_count
10674: --DBMS_OUTPUT.put_line('Unexpected error');
10675: Ibc_Utilities_Pvt.handle_exceptions(
10676: p_api_name => L_API_NAME
10677: ,p_pkg_name => G_PKG_NAME
10678: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
10679: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
10680: ,p_sqlcode => SQLCODE
10681: ,p_sqlerrm => SQLERRM
10682: ,x_msg_count => x_msg_count
10754: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
10755: --******************* BEGIN REQUIRED AREA ******************************
10756: SAVEPOINT svpt_set_version_meta; --|**|
10757: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
10758: FND_MSG_PUB.initialize; --|**|
10759: END IF; --|**|
10760: --|**|
10761: -- Standard call to check for call compatibility. --|**|
10762: IF NOT FND_API.Compatible_API_Call ( --|**|
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:
10807: IF (IBC_VALIDATE_PVT.isApproved(p_citem_ver_id) = FND_API.g_true) THEN
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:
10815: content_item_id := getCitemId(p_citem_ver_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:
10826:
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
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( --|*|
10856: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
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; --|*|
10871: -- ***************PERMISSION CHECK*********************************************************************
10916: COMMIT;
10917: END IF;
10918:
10919: -- Standard call to get message count and if count is 1, get message info.
10920: FND_MSG_PUB.Count_And_Get(
10921: p_count => x_msg_count,
10922: p_data => x_msg_data
10923: );
10924:
10942: ROLLBACK TO svpt_set_version_meta;
10943: Ibc_Utilities_Pvt.handle_exceptions(
10944: p_api_name => L_API_NAME
10945: ,p_pkg_name => G_PKG_NAME
10946: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
10947: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
10948: ,p_sqlcode => SQLCODE
10949: ,p_sqlerrm => SQLERRM
10950: ,x_msg_count => x_msg_count
10968: ROLLBACK TO svpt_set_version_meta;
10969: Ibc_Utilities_Pvt.handle_exceptions(
10970: p_api_name => L_API_NAME
10971: ,p_pkg_name => G_PKG_NAME
10972: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
10973: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
10974: ,p_sqlcode => SQLCODE
10975: ,p_sqlerrm => SQLERRM
10976: ,x_msg_count => x_msg_count
11049: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
11050: --******************* BEGIN REQUIRED AREA ******************************
11051: SAVEPOINT svpt_unarchive_item; --|**|
11052: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
11053: FND_MSG_PUB.initialize; --|**|
11054: END IF; --|**|
11055: --|**|
11056: -- Standard call to check for call compatibility. --|**|
11057: IF NOT FND_API.Compatible_API_Call ( --|**|
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:
11106: -- getting information about the given content item
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( --|*|
11133: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
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; --|*|
11148: -- ***************PERMISSION CHECK*********************************************************************
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;
11175:
11203: COMMIT;
11204: END IF;
11205:
11206: -- Standard call to get message count and if count is 1, get message info.
11207: FND_MSG_PUB.Count_And_Get(
11208: p_count => x_msg_count,
11209: p_data => x_msg_data
11210: );
11211:
11229: ROLLBACK TO svpt_unarchive_item;
11230: Ibc_Utilities_Pvt.handle_exceptions(
11231: p_api_name => L_API_NAME
11232: ,p_pkg_name => G_PKG_NAME
11233: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
11234: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
11235: ,p_sqlcode => SQLCODE
11236: ,p_sqlerrm => SQLERRM
11237: ,x_msg_count => x_msg_count
11255: ROLLBACK TO svpt_unarchive_item;
11256: Ibc_Utilities_Pvt.handle_exceptions(
11257: p_api_name => L_API_NAME
11258: ,p_pkg_name => G_PKG_NAME
11259: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
11260: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
11261: ,p_sqlcode => SQLCODE
11262: ,p_sqlerrm => SQLERRM
11263: ,x_msg_count => x_msg_count
11329: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
11330: --******************* BEGIN REQUIRED AREA ******************************
11331: SAVEPOINT svpt_unlock_item; --|**|
11332: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
11333: FND_MSG_PUB.initialize; --|**|
11334: END IF; --|**|
11335: --|**|
11336: -- Standard call to check for call compatibility. --|**|
11337: IF NOT FND_API.Compatible_API_Call ( --|**|
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:
11376: dir_id := getDirectoryNodeId(p_content_item_id);
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( --|*|
11386: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
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; --|*|
11401: -- ***************PERMISSION CHECK*********************************************************************
11413: COMMIT;
11414: END IF;
11415:
11416: -- Standard call to get message count and if count is 1, get message info.
11417: FND_MSG_PUB.Count_And_Get(
11418: p_count => x_msg_count,
11419: p_data => x_msg_data
11420: );
11421:
11438: ROLLBACK TO svpt_unlock_item;
11439: Ibc_Utilities_Pvt.handle_exceptions(
11440: p_api_name => L_API_NAME
11441: ,p_pkg_name => G_PKG_NAME
11442: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
11443: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
11444: ,p_sqlcode => SQLCODE
11445: ,p_sqlerrm => SQLERRM
11446: ,x_msg_count => x_msg_count
11464: ROLLBACK TO svpt_unlock_item;
11465: Ibc_Utilities_Pvt.handle_exceptions(
11466: p_api_name => L_API_NAME
11467: ,p_pkg_name => G_PKG_NAME
11468: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
11469: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
11470: ,p_sqlcode => SQLCODE
11471: ,p_sqlerrm => SQLERRM
11472: ,x_msg_count => x_msg_count
11600: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
11601: --******************* BEGIN REQUIRED AREA ******************************
11602: SAVEPOINT svpt_upsert_item; --|**|
11603: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
11604: FND_MSG_PUB.initialize; --|**|
11605: END IF; --|**|
11606: --|**|
11607: -- Standard call to check for call compatibility. --|**|
11608: IF NOT FND_API.Compatible_API_Call ( --|**|
11720: --DBMS_OUTPUT.put_line('EX - citem_name');
11721: x_return_status := FND_API.G_RET_STS_ERROR;
11722: FND_MESSAGE.Set_Name('IBC', 'IBC_INPUT_REQUIRED');
11723: FND_MESSAGE.Set_Token('INPUT', 'p_citem_name', FALSE);
11724: FND_MSG_PUB.ADD;
11725: RAISE FND_API.G_EXC_ERROR;
11726: END IF;
11727: IF (LENGTH(p_citem_name) > 240) THEN
11728: --DBMS_OUTPUT.put_line('EX - citem_name');
11728: --DBMS_OUTPUT.put_line('EX - citem_name');
11729: x_return_status := FND_API.G_RET_STS_ERROR;
11730: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11731: FND_MESSAGE.Set_Token('INPUT', 'p_citem_name', FALSE);
11732: FND_MSG_PUB.ADD;
11733: RAISE FND_API.G_EXC_ERROR;
11734: END IF;
11735: -- directory nodes
11736: IF ( (p_dir_node_id <> Ibc_Utilities_Pub.G_COMMON_DIR_NODE) AND
11739: --DBMS_OUTPUT.put_line('EX - dir_node_id');
11740: x_return_status := FND_API.G_RET_STS_ERROR;
11741: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11742: FND_MESSAGE.Set_Token('INPUT', 'p_dir_node_id', FALSE);
11743: FND_MSG_PUB.ADD;
11744: RAISE FND_API.G_EXC_ERROR;
11745: END IF;
11746: -- p_status
11747: IF (IBC_VALIDATE_PVT.isValidStatus(p_status) = FND_API.g_false) THEN
11748: --DBMS_OUTPUT.put_line('EX - p_status');
11749: x_return_status := FND_API.G_RET_STS_ERROR;
11750: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11751: FND_MESSAGE.Set_Token('INPUT', 'p_status', FALSE);
11752: FND_MSG_PUB.ADD;
11753: RAISE FND_API.G_EXC_ERROR;
11754: END IF;
11755: -- content item description
11756: IF ( (p_citem_description IS NOT NULL) AND (p_citem_description <> FND_API.G_MISS_CHAR) AND (LENGTH(p_citem_description) > 2000) )THEN
11757: --DBMS_OUTPUT.put_line('EX - citem_description');
11758: x_return_status := FND_API.G_RET_STS_ERROR;
11759: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11760: FND_MESSAGE.Set_Token('INPUT', 'p_citem_description', FALSE);
11761: FND_MSG_PUB.ADD;
11762: RAISE FND_API.G_EXC_ERROR;
11763: END IF;
11764: -- reference code
11765: IF ( (p_reference_code <> FND_API.G_MISS_CHAR) AND (p_reference_code IS NOT NULL) AND (LENGTH(p_reference_code) > 100) )THEN
11766: --DBMS_OUTPUT.put_line('EX - reference_code');
11767: x_return_status := FND_API.G_RET_STS_ERROR;
11768: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11769: FND_MESSAGE.Set_Token('INPUT', 'p_reference_code', FALSE);
11770: FND_MSG_PUB.ADD;
11771: RAISE FND_API.G_EXC_ERROR;
11772: END IF;
11773: -- p_trans_required
11774: IF (IBC_VALIDATE_PVT.isBoolean(p_trans_required) = FND_API.g_false) THEN
11775: --DBMS_OUTPUT.put_line('EX - p_trans req');
11776: x_return_status := FND_API.G_RET_STS_ERROR;
11777: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11778: FND_MESSAGE.Set_Token('INPUT', 'p_trans_required', FALSE);
11779: FND_MSG_PUB.ADD;
11780: RAISE FND_API.G_EXC_ERROR;
11781: END IF;
11782: -- parent item id
11783: IF ( (p_parent_item_id <> FND_API.g_miss_num) AND (IBC_VALIDATE_PVT.isValidCitem(p_parent_item_id) = FND_API.g_false)) THEN
11784: --DBMS_OUTPUT.put_line('EX - parent item id');
11785: x_return_status := FND_API.G_RET_STS_ERROR;
11786: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11787: FND_MESSAGE.Set_Token('INPUT', 'p_parent_item_id', FALSE);
11788: FND_MSG_PUB.ADD;
11789: RAISE FND_API.G_EXC_ERROR;
11790: END IF;
11791: -- p_lock_flag
11792: IF (IBC_VALIDATE_PVT.isBoolean(p_lock_flag) = FND_API.g_false) THEN
11793: --DBMS_OUTPUT.put_line('EX - p_lock_flag');
11794: x_return_status := FND_API.G_RET_STS_ERROR;
11795: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11796: FND_MESSAGE.Set_Token('INPUT', 'p_lock_flag', FALSE);
11797: FND_MSG_PUB.ADD;
11798: RAISE FND_API.G_EXC_ERROR;
11799: END IF;
11800: -- p_wd_restricted
11801: IF (IBC_VALIDATE_PVT.isBoolean(p_wd_restricted) = FND_API.g_false) THEN
11802: --DBMS_OUTPUT.put_line('EX - p_wd_restricted');
11803: x_return_status := FND_API.G_RET_STS_ERROR;
11804: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11805: FND_MESSAGE.Set_Token('INPUT', 'p_wd_restricted', FALSE);
11806: FND_MSG_PUB.ADD;
11807: RAISE FND_API.G_EXC_ERROR;
11808: END IF;
11809: -- Validating uniqueness for item_reference_code
11810: IF exist_item_reference_code(p_reference_code, px_content_item_id) THEN
11809: -- Validating uniqueness for item_reference_code
11810: IF exist_item_reference_code(p_reference_code, px_content_item_id) THEN
11811: x_return_status := FND_API.G_RET_STS_ERROR;
11812: FND_MESSAGE.Set_Name('IBC', 'IBC_DUPLICATE_ITEM_REF_CODE');
11813: FND_MSG_PUB.ADD;
11814: RAISE FND_API.G_EXC_ERROR;
11815: END IF;
11816:
11817: -- resource id
11836: --DBMS_OUTPUT.put_line('EX - invalid resource id');
11837: x_return_status := FND_API.G_RET_STS_ERROR;
11838: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11839: FND_MESSAGE.Set_Token('INPUT', 'p_owner_resource_id/p_owner_resource_type<' || p_new_owner_resource_id||':'||p_new_owner_resource_type||'>', FALSE);
11840: FND_MSG_PUB.ADD;
11841: RAISE FND_API.G_EXC_ERROR;
11842: END IF;
11843:
11844:
11854: --DBMS_OUTPUT.put_line('EX - invalid default rendition');
11855: x_return_status := FND_API.G_RET_STS_ERROR;
11856: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
11857: FND_MESSAGE.Set_Token('INPUT', 'p_default_rendition', FALSE);
11858: FND_MSG_PUB.ADD;
11859: RAISE FND_API.G_EXC_ERROR;
11860: END IF;
11861:
11862: -- setting locked_by info
11886: ) THEN --|*|
11887: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
11888: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
11889: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
11890: FND_MSG_PUB.ADD; --|*|
11891: RAISE FND_API.G_EXC_ERROR; --|*|
11892: END IF; --|*|
11893: -- ***************PERMISSION CHECK*********************************************************************
11894:
11939: IF (hasPermission(px_content_item_id) = FND_API.g_false) THEN --|*|
11940: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
11941: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
11942: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
11943: FND_MSG_PUB.ADD; --|*|
11944: RAISE FND_API.G_EXC_ERROR; --|*| --|*|
11945: END IF; --|*|
11946: -- ***************PERMISSION CHECK*********************************************************************
11947:
12021: IF (IBC_VALIDATE_PVT.isValidAttachment(p_item_renditions(I)) = FND_API.g_false) THEN
12022: x_return_status := FND_API.G_RET_STS_ERROR;
12023: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
12024: FND_MESSAGE.Set_Token('INPUT', 'p_item_renditions', FALSE);
12025: FND_MSG_PUB.ADD;
12026: RAISE FND_API.G_EXC_ERROR;
12027: END IF;
12028:
12029: IF I = NVL(p_default_rendition, 1) THEN
12041: IF (IBC_VALIDATE_PVT.isValidAttachment(p_attach_file_id) = FND_API.g_false) THEN
12042: x_return_status := FND_API.G_RET_STS_ERROR;
12043: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
12044: FND_MESSAGE.Set_Token('INPUT', 'p_attach_file_id', FALSE);
12045: FND_MSG_PUB.ADD;
12046: RAISE FND_API.G_EXC_ERROR;
12047: END IF;
12048:
12049: attach_code := getAttachAttribCode(px_content_item_id);
12050: IF ( attach_code IS NULL) THEN
12051: --DBMS_OUTPUT.put_line('EX - attachment attribute code');
12052: x_return_status := FND_API.G_RET_STS_ERROR;
12053: FND_MESSAGE.Set_Name('IBC', 'INVALID_ATTACH_ATTR_TYPE');
12054: FND_MSG_PUB.ADD;
12055: RAISE FND_API.G_EXC_ERROR;
12056: END IF;
12057:
12058: OPEN c_lob(p_attach_file_id);
12094: --DBMS_OUTPUT.put_line('EX - inserting attribute bundle');
12095: x_return_status := FND_API.G_RET_STS_ERROR;
12096: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
12097: FND_MESSAGE.set_token('SITUATION', 'Insertion');
12098: FND_MSG_PUB.ADD;
12099: END IF;
12100: ELSE
12101: --DBMS_OUTPUT.put_line('EX - creating attribute bundle');
12102: x_return_status := FND_API.G_RET_STS_ERROR;
12101: --DBMS_OUTPUT.put_line('EX - creating attribute bundle');
12102: x_return_status := FND_API.G_RET_STS_ERROR;
12103: FND_MESSAGE.Set_Name('IBC', 'A_BUNDLE_ERROR');
12104: FND_MESSAGE.set_token('SITUATION', 'Creation');
12105: FND_MSG_PUB.ADD;
12106: END IF;
12107: -- no attributes given
12108: ELSE
12109: bundle_file_id := NULL;
12206: ) THEN --|*|
12207: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
12208: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
12209: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
12210: FND_MSG_PUB.ADD; --|*|
12211: RAISE FND_API.G_EXC_ERROR; --|*|
12212: END IF; --|*|
12213: END IF; --|*|
12214: -- ***************PERMISSION CHECK*********************************************************************
12290: IF ( perm_code(i) = 'CITEM_APPROVE') THEN --|*|
12291: FND_MESSAGE.Set_Name('IBC', 'NO_APPROVE_ITEM_PRIV'); --|*|
12292: END IF; --|*|
12293: --|*|
12294: FND_MSG_PUB.ADD; --|*|
12295: RAISE FND_API.G_EXC_ERROR; --|*|
12296: END IF; --|*|
12297: -- END IF; --|*|
12298: -- ***************PERMISSION CHECK*********************************************************************
12445: COMMIT;
12446: END IF;
12447:
12448: -- Standard call to get message count and if count is 1, get message info.
12449: FND_MSG_PUB.Count_And_Get(
12450: p_count => x_msg_count,
12451: p_data => x_msg_data
12452: );
12453:
12469: COMMIT;
12470: END IF;
12471:
12472: -- Standard call to get message count and if count is 1, get message info.
12473: FND_MSG_PUB.Count_And_Get(
12474: p_count => x_msg_count,
12475: p_data => x_msg_data
12476: );
12477:
12546: ROLLBACK TO svpt_upsert_item;
12547: Ibc_Utilities_Pvt.handle_exceptions(
12548: p_api_name => L_API_NAME
12549: ,p_pkg_name => G_PKG_NAME
12550: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
12551: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
12552: ,p_sqlcode => SQLCODE
12553: ,p_sqlerrm => SQLERRM
12554: ,x_msg_count => x_msg_count
12572: ROLLBACK TO svpt_upsert_item;
12573: Ibc_Utilities_Pvt.handle_exceptions(
12574: p_api_name => L_API_NAME
12575: ,p_pkg_name => G_PKG_NAME
12576: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
12577: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
12578: ,p_sqlcode => SQLCODE
12579: ,p_sqlerrm => SQLERRM
12580: ,x_msg_count => x_msg_count
13286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13287: END IF;
13288: -- Initialize message list if p_init_msg_list is set to TRUE.
13289: IF FND_API.to_Boolean( p_init_msg_list ) THEN
13290: FND_MSG_PUB.initialize;
13291: END IF;
13292:
13293: -- Initialize API return status to success
13294: x_return_status := FND_API.G_RET_STS_SUCCESS;
13315: OPEN Get_Item_Version_Detail;
13316: FETCH Get_Item_Version_Detail INTO l_citem_version_status, l_citem_version_attr_id;
13317: -- Check if content item version id is valid
13318: IF (Get_Item_Version_Detail%NOTFOUND) THEN
13319: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13320: FND_MESSAGE.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
13321: FND_MESSAGE.Set_token('CITEM_VERSION_ID', l_citem_version_id);
13322: FND_MSG_PUB.ADD;
13323: END IF;
13318: IF (Get_Item_Version_Detail%NOTFOUND) THEN
13319: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13320: FND_MESSAGE.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
13321: FND_MESSAGE.Set_token('CITEM_VERSION_ID', l_citem_version_id);
13322: FND_MSG_PUB.ADD;
13323: END IF;
13324: CLOSE Get_Item_Version_Detail;
13325: RAISE FND_API.G_EXC_ERROR;
13326: END IF;
13328:
13329: -- error checking
13330: IF ( (l_citem_version_status = IBC_UTILITIES_PUB.G_STV_APPROVED) OR
13331: (l_citem_version_status = IBC_UTILITIES_PUB.G_STV_SUBMIT_FOR_APPROVAL) ) THEN
13332: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13333: FND_MESSAGE.Set_Name('IBC', 'INVALID_HARD_DELETE');
13334: FND_MESSAGE.Set_token('CITEM_VERSION_ID', l_citem_version_id);
13335: FND_MSG_PUB.ADD;
13336: END IF;
13331: (l_citem_version_status = IBC_UTILITIES_PUB.G_STV_SUBMIT_FOR_APPROVAL) ) THEN
13332: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
13333: FND_MESSAGE.Set_Name('IBC', 'INVALID_HARD_DELETE');
13334: FND_MESSAGE.Set_token('CITEM_VERSION_ID', l_citem_version_id);
13335: FND_MSG_PUB.ADD;
13336: END IF;
13337: -- possibly: not raising exception here, and raising it at end so full list of problematic items is created???
13338: RAISE FND_API.G_EXC_ERROR;
13339: END IF;
13349: IF (hasPermission(l_content_item_id) = FND_API.g_false) THEN --|*|
13350: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
13351: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
13352: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
13353: FND_MSG_PUB.ADD; --|*|
13354: RAISE FND_API.G_EXC_ERROR; --|*|
13355: ELSIF(isItemAdmin(l_content_item_id) = FND_API.g_false) THEN --|*|
13356: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
13357: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
13364: ) THEN --|*|
13365: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
13366: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
13367: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
13368: FND_MSG_PUB.ADD; --|*|
13369: RAISE FND_API.G_EXC_ERROR; --|*|
13370: END IF; --|*|
13371: END IF; --|*|
13372: -- ***************PERMISSION CHECK*********************************************************************
13427: COMMIT;
13428: END IF;
13429:
13430: -- Standard call to get message count and if count is 1, get message info.
13431: FND_MSG_PUB.Count_And_Get(
13432: p_count => x_msg_count,
13433: p_data => x_msg_data
13434: );
13435:
13452: ROLLBACK TO HARD_DELETE_ITEM_VERSIONS_PT;
13453: Ibc_Utilities_Pvt.handle_exceptions(
13454: p_api_name => L_API_NAME
13455: ,p_pkg_name => G_PKG_NAME
13456: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
13457: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
13458: ,p_sqlcode => SQLCODE
13459: ,p_sqlerrm => SQLERRM
13460: ,x_msg_count => x_msg_count
13478: ROLLBACK TO HARD_DELETE_ITEM_VERSIONS_PT;
13479: Ibc_Utilities_Pvt.handle_exceptions(
13480: p_api_name => L_API_NAME
13481: ,p_pkg_name => G_PKG_NAME
13482: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
13483: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
13484: ,p_sqlcode => SQLCODE
13485: ,p_sqlerrm => SQLERRM
13486: ,x_msg_count => x_msg_count
13567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13568: END IF;
13569: -- Initialize message list if p_init_msg_list is set to TRUE.
13570: IF FND_API.to_Boolean( p_init_msg_list ) THEN
13571: FND_MSG_PUB.initialize;
13572: END IF;
13573:
13574: -- Initialize API return status to success
13575: x_return_status := FND_API.G_RET_STS_SUCCESS;
13597: IF IBC_VALIDATE_PVT.isvalidcitem(l_citem_id) = FND_API.g_false THEN
13598: x_return_status := FND_API.G_RET_STS_ERROR;
13599: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
13600: FND_MESSAGE.Set_Token('INPUT', 'content_item_id:[' || l_citem_id || ']', FALSE);
13601: FND_MSG_PUB.ADD;
13602: RAISE FND_API.G_EXC_ERROR;
13603: END IF;
13604:
13605:
13619: ) THEN --|*|
13620: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
13621: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
13622: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
13623: FND_MSG_PUB.ADD; --|*|
13624: -- possibly wait until end to raise exception so all errors can be loaded in message list???--|*|
13625: RAISE FND_API.G_EXC_ERROR; --|*|
13626: END IF; --|*|
13627: END IF; --|*|
13680: COMMIT;
13681: END IF;
13682:
13683: -- Standard call to get message count and if count is 1, get message info.
13684: FND_MSG_PUB.Count_And_Get(
13685: p_count => x_msg_count,
13686: p_data => x_msg_data
13687: );
13688:
13708: ROLLBACK TO HARD_DELETE_ITEMS_PT;
13709: Ibc_Utilities_Pvt.handle_exceptions(
13710: p_api_name => L_API_NAME
13711: ,p_pkg_name => G_PKG_NAME
13712: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
13713: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
13714: ,p_sqlcode => SQLCODE
13715: ,p_sqlerrm => SQLERRM
13716: ,x_msg_count => x_msg_count
13734: ROLLBACK TO HARD_DELETE_ITEMS_PT;
13735: Ibc_Utilities_Pvt.handle_exceptions(
13736: p_api_name => L_API_NAME
13737: ,p_pkg_name => G_PKG_NAME
13738: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
13739: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
13740: ,p_sqlcode => SQLCODE
13741: ,p_sqlerrm => SQLERRM
13742: ,x_msg_count => x_msg_count
13821: --DBMS_OUTPUT.put_line('----- ' || l_api_name || ' -----');
13822: --******************* BEGIN REQUIRED AREA ******************************
13823: SAVEPOINT svpt_change_status; --|**|
13824: IF (p_init_msg_list = FND_API.g_true) THEN --|**|
13825: FND_MSG_PUB.initialize; --|**|
13826: END IF; --|**|
13827: --|**|
13828: -- Standard call to check for call compatibility. --|**|
13829: IF NOT FND_API.Compatible_API_Call ( --|**|
13863: --DBMS_OUTPUT.put_line('EX - p_citem_ver_id');
13864: x_return_status := FND_API.G_RET_STS_ERROR;
13865: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
13866: FND_MESSAGE.Set_Token('INPUT', 'p_citem_ver_id', FALSE);
13867: FND_MSG_PUB.ADD;
13868: RAISE FND_API.G_EXC_ERROR;
13869: END IF;
13870:
13871: -- checking if valid status
13873: --DBMS_OUTPUT.put_line('EX - p_status');
13874: x_return_status := FND_API.G_RET_STS_ERROR;
13875: FND_MESSAGE.Set_Name('IBC', 'BAD_INPUT_VALUE');
13876: FND_MESSAGE.Set_Token('INPUT', 'p_status', FALSE);
13877: FND_MSG_PUB.ADD;
13878: RAISE FND_API.G_EXC_ERROR;
13879: END IF;
13880:
13881: /*
13881: /*
13882: IF (IBC_VALIDATE_PVT.isApproved(p_citem_ver_id) = FND_API.g_true) THEN
13883: x_return_status := FND_API.G_RET_STS_ERROR;
13884: FND_MESSAGE.Set_Name('IBC', 'UPDATE_APPROVED_ITEM_ERROR');
13885: FND_MSG_PUB.ADD;
13886: RAISE FND_API.G_EXC_ERROR;
13887: END IF;
13888: */
13889:
13891: ,p_language
13892: ) = FND_API.g_true) THEN
13893: x_return_status := FND_API.G_RET_STS_ERROR;
13894: FND_MESSAGE.Set_Name('IBC', 'IBC_TRANSLATION_UPDATE_ERROR');
13895: FND_MSG_PUB.ADD;
13896: RAISE FND_API.G_EXC_ERROR;
13897: END IF;
13898:
13899: content_item_id := getCitemId(p_citem_ver_id);
13904: IF (hasPermission(content_item_id) = FND_API.g_false) THEN --|*|
13905: --DBMS_OUTPUT.put_line('EX - no lock permissions'); --|*|
13906: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
13907: FND_MESSAGE.Set_Name('IBC', 'INVALID_LOCK_PERMISSION'); --|*|
13908: FND_MSG_PUB.ADD; --|*|
13909: RAISE FND_API.G_EXC_ERROR; --|*|
13910: ELSIF(isItemAdmin(content_item_id) = FND_API.g_false) THEN --|*|
13911: IF( IBC_DATA_SECURITY_PVT.has_permission( --|*|
13912: p_instance_object_id => IBC_DATA_SECURITY_PVT.get_object_id('IBC_CONTENT_ITEM') --|*|
13931: ) THEN --|*|
13932: --DBMS_OUTPUT.put_line('EX - no permissions'); --|*|
13933: x_return_status := FND_API.G_RET_STS_ERROR; --|*|
13934: FND_MESSAGE.Set_Name('IBC', 'INSUFFICIENT_PRIVILEGES'); --|*|
13935: FND_MSG_PUB.ADD; --|*|
13936: RAISE FND_API.G_EXC_ERROR; --|*|
13937: END IF; --|*|
13938: END IF; --|*|
13939: -- ***************PERMISSION CHECK*********************************************************************
14019: COMMIT;
14020: END IF;
14021:
14022: -- Standard call to get message count and if count is 1, get message info.
14023: FND_MSG_PUB.Count_And_Get(
14024: p_count => x_msg_count
14025: ,p_data => x_msg_data
14026: );
14027:
14045: --DBMS_OUTPUT.put_line('Expected Error');
14046: Ibc_Utilities_Pvt.handle_exceptions(
14047: p_api_name => L_API_NAME
14048: ,p_pkg_name => G_PKG_NAME
14049: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_ERROR
14050: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
14051: ,p_sqlcode => SQLCODE
14052: ,p_sqlerrm => SQLERRM
14053: ,x_msg_count => x_msg_count
14072: --DBMS_OUTPUT.put_line('Unexpected error');
14073: Ibc_Utilities_Pvt.handle_exceptions(
14074: p_api_name => L_API_NAME
14075: ,p_pkg_name => G_PKG_NAME
14076: ,p_exception_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
14077: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
14078: ,p_sqlcode => SQLCODE
14079: ,p_sqlerrm => SQLERRM
14080: ,x_msg_count => x_msg_count