[Home] [Help]
763: p_pass IN NUMBER := 2
764: ) return BOOLEAN is
765: cursor l_check_objattr_csr is
766: select null
767: from AK_OBJECT_ATTRIBUTES
768: where database_object_name = p_database_object_name
769: and attribute_application_id = p_attribute_application_id
770: and attribute_code = p_attribute_code;
771: cursor l_check_datatype_csr is
1034: p_caller IN VARCHAR2
1035: ) return BOOLEAN is
1036: cursor l_check_objattr_csr is
1037: select null
1038: from AK_OBJECT_ATTRIBUTES
1039: where database_object_name = p_database_object_name
1040: and attribute_application_id = p_attribute_application_id
1041: and attribute_code = p_attribute_code;
1042: cursor l_check_datatype_csr is
1485: p_attribute_code IN VARCHAR2
1486: ) return BOOLEAN is
1487: cursor l_check_objattr_csr is
1488: select 1
1489: from AK_OBJECT_ATTRIBUTES
1490: where database_object_name = p_database_object_name
1491: and attribute_application_id = p_attribute_application_id
1492: and attribute_code = p_attribute_code;
1493: l_api_version_number CONSTANT number := 1.0;
2092: if l_get_attr_values_csr%found then
2093: close l_get_attr_values_csr;
2094: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
2095: FND_MESSAGE.SET_NAME('AK','AK_CANNOT_DELETE_REFERENCE');
2096: FND_MESSAGE.SET_TOKEN('OBJECT', 'AK_OBJECT_ATTRIBUTES',TRUE);
2097: FND_MESSAGE.SET_TOKEN('REF_OBJECT', 'AK_ATTRIBUTE_VALUE',TRUE);
2098: FND_MSG_PUB.Add;
2099: end if;
2100: raise FND_API.G_EXC_ERROR;
2124: if l_get_page_region_item_csr%found then
2125: close l_get_page_region_item_csr;
2126: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
2127: FND_MESSAGE.SET_NAME('AK','AK_CANNOT_DEL_REF_OA_PREGIM');
2128: FND_MESSAGE.SET_TOKEN('OBJECT', 'AK_OBJECT_ATTRIBUTES',TRUE);
2129: FND_MESSAGE.SET_TOKEN('REF_OBJECT', 'AK_REGION_ITEMS',TRUE);
2130: FND_MSG_PUB.Add;
2131: end if;
2132: raise FND_API.G_EXC_ERROR;
2268: --
2269: -- delete object attribute once we checked that there are no references
2270: -- to it, or all references have been deleted.
2271: --
2272: delete from ak_object_attributes
2273: where database_object_name = p_database_object_name
2274: and attribute_application_id = p_attribute_application_id
2275: and attribute_code = p_attribute_code;
2276:
2281: end if;
2282: raise FND_API.G_EXC_ERROR;
2283: end if;
2284:
2285: delete from ak_object_attributes_tl
2286: where database_object_name = p_database_object_name
2287: and attribute_application_id = p_attribute_application_id
2288: and attribute_code = p_attribute_code;
2289:
2893: p_delete_cascade IN VARCHAR2 := 'N'
2894: ) is
2895: cursor l_get_obj_attributes_csr is
2896: select ATTRIBUTE_APPLICATION_ID, ATTRIBUTE_CODE
2897: from AK_OBJECT_ATTRIBUTES
2898: where database_object_name = p_database_object_name;
2899: cursor l_get_foreign_keys_csr is
2900: select foreign_key_name
2901: from AK_FOREIGN_KEYS
2955: -- If we are not deleting any referencing records, we cannot
2956: -- delete the object if it is being referenced in any of
2957: -- following tables.
2958: --
2959: -- AK_OBJECT_ATTRIBUTES (parent-child relations)
2960: --
2961: open l_get_obj_attributes_csr;
2962: fetch l_get_obj_attributes_csr into
2963: l_attribute_application_id, l_attribute_code;
3018: -- Otherwise, delete all referencing rows in other tables, except
3019: -- for records that are referencing this object as an lov object,
3020: -- in which case these records will be updated with a null lov object.
3021: --
3022: -- AK_OBJECT_ATTRIBUTES (parent-child relations)
3023: --
3024: open l_get_obj_attributes_csr;
3025: loop
3026: fetch l_get_obj_attributes_csr into
4077:
4078: select userenv('LANG') into l_lang
4079: from dual;
4080:
4081: insert into AK_OBJECT_ATTRIBUTES (
4082: DATABASE_OBJECT_NAME,
4083: ATTRIBUTE_APPLICATION_ID,
4084: ATTRIBUTE_CODE,
4085: COLUMN_NAME,
4192: -- dbms_output.put_line(G_PKG_NAME || 'Error - First insert failed');
4193: raise FND_API.G_EXC_ERROR;
4194: end if;
4195:
4196: insert into AK_OBJECT_ATTRIBUTES_TL (
4197: DATABASE_OBJECT_NAME,
4198: ATTRIBUTE_APPLICATION_ID,
4199: ATTRIBUTE_CODE,
4200: LANGUAGE,
4222: from FND_LANGUAGES L
4223: where L.INSTALLED_FLAG in ('I', 'B')
4224: and not exists
4225: (select NULL
4226: from AK_OBJECT_ATTRIBUTES_TL T
4227: where T.DATABASE_OBJECT_NAME = p_database_object_name
4228: and T.ATTRIBUTE_APPLICATION_ID = p_attribute_application_id
4229: and T.ATTRIBUTE_CODE = p_attribute_code
4230: and T.LANGUAGE = L.LANGUAGE_CODE);