The following lines contain the word 'select', 'insert', 'update' or 'delete':
fnd_msg_pub.delete_msg();
select to_char(sysdate, 'yyyy/mm/dd') into l_temp_date from dual;
if (r_mode = 'update' ) then
EXECUTE IMMEDIATE 'select not_valid_flag from ieu_uwqm_work_sources_b '||
' where ws_id =:1'
into l_ws_not_valid_flag
using p_ws_id;
IF (r_mode = 'update') then
IEU_UWQM_WORK_SOURCES_PKG.update_row(
p_ws_id,
p_ws_type,
p_ws_dis_to,
p_ws_dis_from,
p_ws_dis_func,
p_ws_not_valid_flag,
p_ws_object_code,
p_ws_name,
p_ws_desc,
p_ws_profile_id,
p_ws_application_id);
EXECUTE IMMEDIATE 'select ws_association_prop_id from ieu_uwqm_ws_assct_props '||
' where parent_ws_id = :1 and child_ws_id = :2 and ws_id = :3'
into l_ws_assoc_prop_id
USING p_ws_parent_id, p_ws_child_id, p_ws_id;
IEU_UWQM_WS_ASSCT_PROPS_PKG.update_row(
p_ws_association_prop_id =>l_ws_assoc_prop_id,
p_parent_ws_id => p_ws_parent_id,
p_child_ws_id =>p_ws_child_id ,
p_dist_st_based_on_parent_flag => p_ws_dis_parent_flag,
p_ws_id => p_ws_id,
p_tasks_rules_function => p_ws_task_rule_func);
sql_stmt := 'update FND_PROFILE_OPTIONS ' ||
' set end_date_active= :1 '||
' , last_updated_by = :2 '||
' , last_update_login = :3 '||
', last_update_date = :4 '||
' where profile_option_name = :5 ';
sql_stmt := 'update FND_PROFILE_OPTIONS ' ||
' set end_date_active= :1 '||
' , last_updated_by = :2 '||
' , last_update_login = :3 '||
', last_update_date = :4 '||
' where profile_option_name = :5 ';
EXECUTE IMMEDIATE 'select application_short_name from fnd_application where application_id = :1 '
into l_appl_short_name
using p_ws_application_id;
x_site_update_allowed_flag => l_yes,
x_app_enabled_flag => l_yes,
x_app_update_allowed_flag => l_yes,
x_resp_enabled_flag => l_yes,
x_resp_update_allowed_flag => l_yes,
x_user_enabled_flag => l_yes,
x_user_update_allowed_flag => l_yes,
x_start_date_active => l_temp_date,
x_end_date_active => null,
x_sql_validation => p_sqlValidation);
select IEU_UWQM_WORK_SOURCES_B_S1.NEXTVAL into l_ws_id from sys.dual;
select IEU_UWQM_WS_ASSCT_PROPS_S1.NEXTVAL into l_ws_assoc_prop_id from sys.dual;
IEU_UWQM_WS_ASSCT_PROPS_PKG.insert_row(
x_rowid => x_rowid,
p_ws_association_prop_id =>l_ws_assoc_prop_id,
p_parent_ws_id => p_ws_parent_id,
p_child_ws_id =>p_ws_child_id ,
p_dist_st_based_on_parent_flag => p_ws_dis_parent_flag,
p_ws_id => l_ws_id,
p_tasks_rules_function => p_ws_task_rule_func);
fnd_msg_pub.delete_msg();
EXECUTE IMMEDIATE ' select count(*) from ieu_uwqm_work_sources_b where upper(ws_code) = upper(:1) and not_valid_flag=:2 '
INTO l_count USING p_ws_code, l_not_valid_flag ;
EXECUTE IMMEDIATE ' select count(*) from ieu_uwqm_work_sources_b b, ieu_uwqm_work_sources_tl tl '||
' where upper(tl.ws_name) = upper(:1) and b.not_valid_flag=:2 ' ||
' and b.ws_id = tl.ws_id and tl.language = :3 '
INTO l_count USING p_ws_name, l_not_valid_flag, FND_GLOBAL.CURRENT_LANGUAGE ;
EXECUTE IMMEDIATE ' select count(*) from ieu_uwqm_ws_assct_props where parent_ws_id = :1 and child_ws_id = :2 '
INTO l_count USING p_ws_parent_id, p_ws_child_id;