The following lines contain the word 'select', 'insert', 'update' or 'delete':
elsif p_obj_location = 'DELETE' then
-- Lock for Delete Screen.
Tab_Delete_Lock( p_obj_id
,x_return_status
,x_msg_count
,x_msg_data);
elsif p_obj_location = 'SELECT' then
-- Lock for Select Scorecard Item Screen.
Tab_Select_Items_Lock( p_obj_id
,x_return_status
,x_msg_count
,x_msg_data);
select last_update_date
into l_time_stamp
from BSC_TABS_B
where tab_id = p_obj_id;
select last_update_date
into l_time_stamp
from BSC_KPIS_B
where indicator = p_obj_id;
select last_update_date
into l_time_stamp
from BSC_SYS_INIT
where property_code = p_property_code;
select name
into l_dummy1
from BSC_TABS_TL
where tab_id = p_obj_id
and rownum < 2
for update nowait;
procedure Tab_Delete_Lock(
p_obj_id number
,x_return_status OUT NOCOPY varchar2
,x_msg_count OUT NOCOPY number
,x_msg_data OUT NOCOPY varchar2
) is
-- This procedure locks tab_id for a given Tab.
-- We lock tab_id from BSC_TABS_B to prevent "Delete" and "Select Scorecard Items"
-- sessions to access the screen.
-- We lock name from BSC_TABS_B to lock out NOCOPY "Details".
l_dummy1 number;
select name
into l_dummy2
from BSC_TABS_TL
where tab_id = p_obj_id
and rownum < 2
for update nowait;
select tab_id
into l_dummy1
from BSC_TABS_B
where tab_id = p_obj_id
for update nowait;
end Tab_Delete_Lock;
procedure Tab_Select_Items_Lock(
p_obj_id IN number
,x_return_status OUT NOCOPY varchar2
,x_msg_count OUT NOCOPY number
,x_msg_data OUT NOCOPY varchar2
) is
-- This procedure locks tab_id for a given Tab.
-- We lock tab_id from BSC_TABS_B to lock other "Select Scorecard Items"
-- sessions and to lock out NOCOPY "Delete".
l_dummy1 number;
select tab_id
into l_dummy1
from BSC_TABS_B
where tab_id = p_obj_id
for update nowait;
end Tab_Select_Items_Lock;
select indicator, property_code
into l_dummy1, l_dummy2
from bsc_kpi_properties
where property_code = 'LOCK_INDICATOR'
and indicator = p_obj_id
for update nowait;
select indicator
into l_dummy1
from BSC_KPIS_B
where indicator = p_obj_id
for update nowait;
select indicator, property_code
into l_dummy1, l_dummy2
from bsc_kpi_properties
where property_code = 'LOCK_INDICATOR'
and indicator = p_obj_id
for update nowait;
select name
into l_dummy1
from BSC_KPI_ANALYSIS_OPTIONS_TL
where indicator = p_obj_id
and option_id = p_obj_id2
and analysis_group_id = p_obj_id3
for update nowait;
select DIM_LEVEL_ID
into l_dummy
from BSC_SYS_DIM_LEVELS_B
where DIM_LEVEL_ID = p_obj_id
for update nowait;
select DIM_LEVEL_ID
into l_dummy
from BSC_SYS_DIM_LEVELS_B
where upper(SHORT_NAME) = upper(p_obj_shortName)
for update nowait;