The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE DELETE_OIP_AK_PAGE
( p_region_page IN VARCHAR2
, p_region_style IN VARCHAR2
) is
cursor ak_region_pages (x_region_page in varchar2,
x_region_style in varchar2) is
select region_code
from AK_REGIONS
where REGION_APPLICATION_ID = 660
and REGION_CODE = x_region_page
and REGION_STYLE =x_region_style;
select REGION_APPLICATION_ID,
REGION_CODE,
ATTRIBUTE_APPLICATION_ID,
ATTRIBUTE_CODE,
LOV_REGION_APPL_ID,
LOV_REGION_CODE,
LOV_ATTRIBUTE_APPL_ID,
LOV_ATTRIBUTE_CODE,
BASE_ATTRIBUTE_APPL_ID,
BASE_ATTRIBUTE_CODE,
DIRECTION_FLAG
from AK_REGION_LOV_RELATIONS
where REGION_APPLICATION_ID = 660
and REGION_CODE = x_region_name
and ATTRIBUTE_CODE = x_attribute_code;
select level b,
a.region_application_id b2,
a.region_code b3,
attribute_application_id c1,
a.attribute_code c
from ak_region_items a
where a.region_application_id =660
start with a.region_code = x_region_name
connect by a.region_code = PRIOR a.nested_region_code
order by level desc;
select count(*)
into mycount
from AK_REGION_LOV_RELATIONS
where REGION_APPLICATION_ID = 660
and REGION_CODE = p_region_code
and ATTRIBUTE_CODE = p_attribute_code;
/* for each region item, loop through its lov rel. Delete its lov rel */
/* before we delete region item */
/* */
OPEN ak_region_lov_rel (p_region_code, p_attribute_code);
AK_LOV_RELATIONS_PKG.DELETE_ROW (
X_REGION_APPLICATION_ID => P_REGION_APPLICATION_ID,
X_REGION_CODE => P_REGION_CODE,
X_ATTRIBUTE_APPLICATION_ID => P_ATTRIBUTE_APPLICATION_ID,
X_ATTRIBUTE_CODE => P_ATTRIBUTE_CODE ,
X_LOV_REGION_APPL_ID => P_LOV_REGION_APPL_ID,
X_LOV_REGION_CODE => P_LOV_REGION_CODE,
X_LOV_ATTRIBUTE_APPL_ID => P_LOV_ATTRIBUTE_APPL_ID,
X_LOV_ATTRIBUTE_CODE => P_LOV_ATTRIBUTE_CODE,
X_BASE_ATTRIBUTE_APPL_ID => P_BASE_ATTRIBUTE_APPL_ID,
X_BASE_ATTRIBUTE_CODE =>P_BASE_ATTRIBUTE_CODE,
X_DIRECTION_FLAG => P_DIRECTION_FLAG);
print_msg('REGION_ITEM = ' || p_region_code || '.' || p_attribute_code || ' will be deleted');
select count(*)
into mycount1
from AK_REGION_ITEMS
where REGION_APPLICATION_ID = 660
and REGION_CODE = p_region_code
and ATTRIBUTE_CODE = p_attribute_code;
/* real code to delete ak region items */
AK_REGION_ITEMS_PKG.DELETE_ROW(
X_REGION_APPLICATION_ID => p_region_appl_id,
X_REGION_CODE => p_region_code,
X_ATTRIBUTE_APPLICATION_ID => p_attr_appl_id,
X_ATTRIBUTE_CODE => p_attribute_code);
print_msg('REGION_ITEM = ' || p_region_code || '.' || p_attribute_code || ' has been deleted');
p_style_name || ')' || ' will be deleted');
select count(*)
into mycount2
from AK_REGIONS
where REGION_APPLICATION_ID = 660
and REGION_CODE = p_region_page_1;
/* real code to delete regions */
AK_REGIONS_PKG.DELETE_ROW(
X_REGION_APPLICATION_ID =>660,
X_REGION_CODE => p_region_page_1);
p_style_name || ')' || ' has be deleted');
print_msg('ak entries are deleted');
END DELETE_OIP_AK_PAGE;