The following lines contain the word 'select', 'insert', 'update' or 'delete':
select 'Y'
into l_dummy
from pa_report_types
where upper(name) = upper(p_name);
pa_report_types_pkg.Insert_Row
(
p_name => p_name,
p_page_id => l_page_id,
p_override_page_layout => p_override_page_layout,
p_description => p_description,
p_generation_method => p_generation_method,
p_start_date_active => p_start_date_active,
p_end_date_active => p_end_date_active,
x_report_type_id => x_report_type_id,
p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
p_CREATED_BY => FND_GLOBAL.USER_ID,
p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID
);
PROCEDURE Update_Report_Type
(
p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := 'T',
p_commit IN VARCHAR2 := 'F',
p_validate_only IN VARCHAR2 := 'T',
p_max_msg_count IN NUMBER := 100,
P_REPORT_TYPE_ID IN NUMBER,
P_NAME IN VARCHAR2 := '^',
P_PAGE_ID IN NUMBER := -99,
P_PAGE_LAYOUT IN VARCHAR2 := '^',
P_OVERRIDE_PAGE_LAYOUT IN VARCHAR2 := '^',
P_DESCRIPTION IN VARCHAR2 := '^',
P_GENERATION_METHOD IN VARCHAR2 := '',
P_START_DATE_ACTIVE IN DATE := TO_DATE('01/01/4712','DD/MM/YYYY'),
P_END_DATE_ACTIVE IN DATE := TO_DATE('01/01/4712','DD/MM/YYYY'),
P_RECORD_VERSION_NUMBER IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
) IS
l_page_id number;
PA_DEBUG.init_err_stack('PA_REPORT_TYPES_PUB.Update_Report_Type');
SAVEPOINT UPDATE_REPORT_TYPE;
select created_by
into l_created_by
from pa_report_Types
where report_Type_id = p_report_type_id;
select 'Y'
into l_dummy
from pa_report_types
where upper(name) = upper(p_name)
and report_type_id <> p_report_type_id;
pa_report_types_pkg.Update_Row
(
p_name => p_name,
p_page_id => l_page_id,
p_override_page_layout => p_override_page_layout,
p_description => p_description,
p_generation_method => p_generation_method,
p_start_date_active => l_start_date_active,
p_end_date_active => l_end_date_active,
p_report_type_id => p_report_type_id,
p_record_version_number => p_record_version_number,
p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
p_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID,
x_return_status => x_return_status
);
ROLLBACK TO UPDATE_REPORT_TYPE;
END update_report_type;
PROCEDURE Delete_Report_Type
(
p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := 'T',
p_commit IN VARCHAR2 := 'F',
p_validate_only IN VARCHAR2 := 'T',
p_max_msg_count IN NUMBER := 100,
p_report_type_id IN NUMBER,
p_record_version_number IN NUMBER ,
x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
) IS
l_dummy varchar2(1) := 'N';
PA_DEBUG.init_err_stack('PA_REPORT_TYPES_PUB.Delete_Report_Type');
SAVEPOINT DELETE_REPORT_TYPE;
select created_by
into l_created_by
from pa_report_Types
where report_Type_id = p_report_type_id;
select 'Y'
into l_dummy
from pa_object_page_layouts ----pa_progress_report_vers
where report_type_id = p_report_type_id;
pa_report_Types_pkg.delete_row(P_REPORT_TYPE_ID => p_report_Type_id,
P_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER,
x_return_status => x_return_status);
ROLLBACK TO DELETE_REPORT_TYPE;
END delete_report_type;