[Home] [Help]
756: p_pass IN NUMBER := 2
757: ) return BOOLEAN is
758: cursor l_check_objattr_csr is
759: select null
760: from AK_OBJECT_ATTRIBUTES
761: where database_object_name = p_database_object_name
762: and attribute_application_id = p_attribute_application_id
763: and attribute_code = p_attribute_code;
764: cursor l_check_datatype_csr is
1027: p_caller IN VARCHAR2
1028: ) return BOOLEAN is
1029: cursor l_check_objattr_csr is
1030: select null
1031: from AK_OBJECT_ATTRIBUTES
1032: where database_object_name = p_database_object_name
1033: and attribute_application_id = p_attribute_application_id
1034: and attribute_code = p_attribute_code;
1035: cursor l_check_datatype_csr is
1478: p_attribute_code IN VARCHAR2
1479: ) return BOOLEAN is
1480: cursor l_check_objattr_csr is
1481: select 1
1482: from AK_OBJECT_ATTRIBUTES
1483: where database_object_name = p_database_object_name
1484: and attribute_application_id = p_attribute_application_id
1485: and attribute_code = p_attribute_code;
1486: l_api_version_number CONSTANT number := 1.0;
2085: if l_get_attr_values_csr%found then
2086: close l_get_attr_values_csr;
2087: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
2088: FND_MESSAGE.SET_NAME('AK','AK_CANNOT_DELETE_REFERENCE');
2089: FND_MESSAGE.SET_TOKEN('OBJECT', 'AK_OBJECT_ATTRIBUTES',TRUE);
2090: FND_MESSAGE.SET_TOKEN('REF_OBJECT', 'AK_ATTRIBUTE_VALUE',TRUE);
2091: FND_MSG_PUB.Add;
2092: end if;
2093: raise FND_API.G_EXC_ERROR;
2117: if l_get_page_region_item_csr%found then
2118: close l_get_page_region_item_csr;
2119: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
2120: FND_MESSAGE.SET_NAME('AK','AK_CANNOT_DEL_REF_OA_PREGIM');
2121: FND_MESSAGE.SET_TOKEN('OBJECT', 'AK_OBJECT_ATTRIBUTES',TRUE);
2122: FND_MESSAGE.SET_TOKEN('REF_OBJECT', 'AK_REGION_ITEMS',TRUE);
2123: FND_MSG_PUB.Add;
2124: end if;
2125: raise FND_API.G_EXC_ERROR;
2261: --
2262: -- delete object attribute once we checked that there are no references
2263: -- to it, or all references have been deleted.
2264: --
2265: delete from ak_object_attributes
2266: where database_object_name = p_database_object_name
2267: and attribute_application_id = p_attribute_application_id
2268: and attribute_code = p_attribute_code;
2269:
2274: end if;
2275: raise FND_API.G_EXC_ERROR;
2276: end if;
2277:
2278: delete from ak_object_attributes_tl
2279: where database_object_name = p_database_object_name
2280: and attribute_application_id = p_attribute_application_id
2281: and attribute_code = p_attribute_code;
2282:
2886: p_delete_cascade IN VARCHAR2 := 'N'
2887: ) is
2888: cursor l_get_obj_attributes_csr is
2889: select ATTRIBUTE_APPLICATION_ID, ATTRIBUTE_CODE
2890: from AK_OBJECT_ATTRIBUTES
2891: where database_object_name = p_database_object_name;
2892: cursor l_get_foreign_keys_csr is
2893: select foreign_key_name
2894: from AK_FOREIGN_KEYS
2948: -- If we are not deleting any referencing records, we cannot
2949: -- delete the object if it is being referenced in any of
2950: -- following tables.
2951: --
2952: -- AK_OBJECT_ATTRIBUTES (parent-child relations)
2953: --
2954: open l_get_obj_attributes_csr;
2955: fetch l_get_obj_attributes_csr into
2956: l_attribute_application_id, l_attribute_code;
3011: -- Otherwise, delete all referencing rows in other tables, except
3012: -- for records that are referencing this object as an lov object,
3013: -- in which case these records will be updated with a null lov object.
3014: --
3015: -- AK_OBJECT_ATTRIBUTES (parent-child relations)
3016: --
3017: open l_get_obj_attributes_csr;
3018: loop
3019: fetch l_get_obj_attributes_csr into
4070:
4071: select userenv('LANG') into l_lang
4072: from dual;
4073:
4074: insert into AK_OBJECT_ATTRIBUTES (
4075: DATABASE_OBJECT_NAME,
4076: ATTRIBUTE_APPLICATION_ID,
4077: ATTRIBUTE_CODE,
4078: COLUMN_NAME,
4185: -- dbms_output.put_line(G_PKG_NAME || 'Error - First insert failed');
4186: raise FND_API.G_EXC_ERROR;
4187: end if;
4188:
4189: insert into AK_OBJECT_ATTRIBUTES_TL (
4190: DATABASE_OBJECT_NAME,
4191: ATTRIBUTE_APPLICATION_ID,
4192: ATTRIBUTE_CODE,
4193: LANGUAGE,
4215: from FND_LANGUAGES L
4216: where L.INSTALLED_FLAG in ('I', 'B')
4217: and not exists
4218: (select NULL
4219: from AK_OBJECT_ATTRIBUTES_TL T
4220: where T.DATABASE_OBJECT_NAME = p_database_object_name
4221: and T.ATTRIBUTE_APPLICATION_ID = p_attribute_application_id
4222: and T.ATTRIBUTE_CODE = p_attribute_code
4223: and T.LANGUAGE = L.LANGUAGE_CODE);