The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
p_commit IN VARCHAR2:=FND_API.G_FALSE,
p_debug_mode in varchar2 default 'N',
P_ROLE_STATUS_MENU_ID OUT NOCOPY NUMBER,
P_ROLE_ID IN NUMBER,
P_STATUS_TYPE IN VARCHAR2,
P_STATUS_CODE IN VARCHAR2,
P_MENU_ID IN NUMBER,
P_OBJECT_VERSION_NUMBER OUT NOCOPY NUMBER,
P_LAST_UPDATE_DATE IN DATE,
P_LAST_UPDATED_BY IN NUMBER,
P_CREATION_DATE IN DATE,
P_CREATED_BY IN NUMBER,
P_LAST_UPDATE_LOGIN IN NUMBER,
p_return_status OUT NOCOPY varchar2,
p_msg_count out NOCOPY number,
p_msg_data out NOCOPY varchar2
) IS
l_sqlcode varchar2(30);
pa_role_status_menu_pkg.insert_row(
-- P_ROWID => P_ROWID,
P_ROLE_STATUS_MENU_ID => P_ROLE_STATUS_MENU_ID,
P_ROLE_ID => P_ROLE_ID,
P_STATUS_TYPE => P_STATUS_TYPE,
P_STATUS_CODE => P_STATUS_CODE,
P_MENU_ID => P_MENU_ID,
P_OBJECT_VERSION_NUMBER => P_OBJECT_VERSION_NUMBER,
P_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
P_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
P_CREATION_DATE => P_CREATION_DATE,
P_CREATED_BY => P_CREATED_BY,
P_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN
);
select count(*)
into l_count
from pa_project_parties
where project_role_id = p_role_id;
select nvl(status_level, 'SYSTEM')
into l_status_level
from pa_project_role_types_b
where project_role_id = p_role_id;
select menu_name
into l_menu_name
from fnd_menus_vl
where menu_id = p_menu_id;
pa_security_pvt.update_status_based_sec
(p_commit => FND_API.G_FALSE,
p_project_role_id => p_role_id,
p_status_level => l_status_level,
p_new_status_code_tbl => l_new_status_code_tbl,
p_new_status_type_tbl => l_new_status_type_tbl,
p_new_menu_name_tbl => l_new_menu_name_tbl,
p_new_role_sts_menu_id_tbl => l_new_role_sts_menu_id_tbl,
p_mod_status_code_tbl => l_mod_status_code_tbl,
p_mod_status_type_tbl => l_mod_status_type_tbl,
p_mod_menu_id_tbl => l_mod_menu_id_tbl,
p_mod_role_sts_menu_id_tbl => l_mod_role_sts_menu_id_tbl,
p_del_status_code_tbl => l_del_status_code_tbl,
p_del_status_type_tbl => l_del_status_type_tbl,
p_del_role_sts_menu_id_tbl => l_del_role_sts_menu_id_tbl,
x_return_status => p_return_status,
x_msg_count => p_msg_count,
x_msg_data => p_msg_data
);
p_procedure_name => 'INSERT_ROW',
p_error_text => l_sqlcode);
procedure UPDATE_ROW (
p_commit IN VARCHAR2:=FND_API.G_FALSE,
p_debug_mode in varchar2 default 'N',
-- P_ROWID IN OUT NOCOPY VARCHAR2,
P_ROLE_STATUS_MENU_ID IN NUMBER,
P_ROLE_ID IN NUMBER,
P_STATUS_TYPE IN VARCHAR2,
P_STATUS_CODE IN VARCHAR2,
P_MENU_ID IN NUMBER,
P_OBJECT_VERSION_NUMBER IN OUT NOCOPY NUMBER,
P_LAST_UPDATE_DATE IN DATE,
P_LAST_UPDATED_BY IN NUMBER,
P_CREATION_DATE IN DATE,
P_CREATED_BY IN NUMBER,
P_LAST_UPDATE_LOGIN IN NUMBER,
p_return_status OUT NOCOPY varchar2,
p_msg_count out NOCOPY number,
p_msg_data out NOCOPY varchar2
) is
l_new_status_code_tbl SYSTEM.pa_varchar2_30_tbl_type := SYSTEM.pa_varchar2_30_tbl_type();
select status_code
into l_status_code
from pa_role_status_menu_map
where role_status_menu_id = p_role_status_menu_id;
pa_role_status_menu_pkg.update_row(
-- P_ROWID => P_ROWID,
P_ROLE_STATUS_MENU_ID => P_ROLE_STATUS_MENU_ID,
P_ROLE_ID => P_ROLE_ID,
P_STATUS_TYPE => P_STATUS_TYPE,
P_STATUS_CODE => P_STATUS_CODE,
P_MENU_ID => P_MENU_ID,
P_OBJECT_VERSION_NUMBER => P_OBJECT_VERSION_NUMBER,
P_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
P_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
P_CREATION_DATE => P_CREATION_DATE,
P_CREATED_BY => P_CREATED_BY,
P_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN
);
select count(*)
into l_count
from pa_project_parties
where project_role_id = p_role_id;
select nvl(status_level, 'SYSTEM')
into l_status_level
from pa_project_role_types_b
where project_role_id = p_role_id;
pa_security_pvt.update_status_based_sec
(p_commit => FND_API.G_FALSE,
p_project_role_id => p_role_id,
p_status_level => l_status_level,
p_new_status_code_tbl => l_new_status_code_tbl,
p_new_status_type_tbl => l_new_status_type_tbl,
p_new_menu_name_tbl => l_new_menu_name_tbl,
p_new_role_sts_menu_id_tbl => l_new_role_sts_menu_id_tbl,
p_mod_status_code_tbl => l_mod_status_code_tbl,
p_mod_status_type_tbl => l_mod_status_type_tbl,
p_mod_menu_id_tbl => l_mod_menu_id_tbl,
p_mod_role_sts_menu_id_tbl => l_mod_role_sts_menu_id_tbl,
p_del_status_code_tbl => l_del_status_code_tbl,
p_del_status_type_tbl => l_del_status_type_tbl,
p_del_role_sts_menu_id_tbl => l_del_role_sts_menu_id_tbl,
x_return_status => p_return_status,
x_msg_count => p_msg_count,
x_msg_data => p_msg_data
);
p_procedure_name => 'UPDATE_ROW',
p_error_text => l_sqlcode);
procedure DELETE_ROW (
p_commit in VARCHAR2 := FND_API.G_FALSE,
p_debug_mode in varchar2 default 'N',
P_ROLE_STATUS_MENU_ID IN NUMBER,
P_OBJECT_VERSION_NUMBER IN NUMBER,
p_return_status out NOCOPY varchar2,
p_msg_count out NOCOPY number,
p_msg_data out NOCOPY varchar2
) is
l_new_status_code_tbl SYSTEM.pa_varchar2_30_tbl_type := SYSTEM.pa_varchar2_30_tbl_type();
select role_id, status_code, status_type
into l_role_id, l_status_code, l_status_type
from pa_role_status_menu_map
where role_status_menu_id = p_role_status_menu_id;
select count(*)
into l_count
from pa_project_parties
where project_role_id = l_role_id;
select nvl(status_level, 'SYSTEM')
into l_status_level
from pa_project_role_types_b
where project_role_id = l_role_id;
pa_role_status_menu_pkg.delete_row(
P_ROLE_STATUS_MENU_ID => P_ROLE_STATUS_MENU_ID,
P_OBJECT_VERSION_NUMBER => P_OBJECT_VERSION_NUMBER
);
pa_security_pvt.update_status_based_sec
(p_commit => FND_API.G_FALSE,
p_project_role_id => l_role_id,
p_status_level => l_status_level,
p_new_status_code_tbl => l_new_status_code_tbl,
p_new_status_type_tbl => l_new_status_type_tbl,
p_new_menu_name_tbl => l_new_menu_name_tbl,
p_new_role_sts_menu_id_tbl => l_new_role_sts_menu_id_tbl,
p_mod_status_code_tbl => l_mod_status_code_tbl,
p_mod_status_type_tbl => l_mod_status_type_tbl,
p_mod_menu_id_tbl => l_mod_menu_id_tbl,
p_mod_role_sts_menu_id_tbl => l_mod_role_sts_menu_id_tbl,
p_del_status_code_tbl => l_del_status_code_tbl,
p_del_status_type_tbl => l_del_status_type_tbl,
p_del_role_sts_menu_id_tbl => l_del_role_sts_menu_id_tbl,
x_return_status => p_return_status,
x_msg_count => p_msg_count,
x_msg_data => p_msg_data
);
p_procedure_name => 'DELETE_ROW',
p_error_text => l_sqlcode);