The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT meaning FROM pa_lookups pl
WHERE lookup_type = 'PA_PAGE_TYPES'
AND lookup_code = p_page_type;
select 'Y' from dual
where exists(
select 'Required'
from pa_lookups l
where l.lookup_type = 'PA_PAGE_TYPES'
and l.lookup_code = p_page_type
AND L.attribute2 = 'Y'
);
SELECT MENU_ID
FROM FND_MENUS_VL
where user_menu_name = p_shortcut_menu_name;
select page_id
from pa_page_layouts
where page_name = p_page_name and
page_type_code = p_page_type;
pa_page_layout_pkg.Insert_page_layout_Row
(
p_page_name => p_page_name,
p_page_type => p_page_type,
p_description => p_description,
p_start_date => p_start_date,
p_end_date => p_end_date,
p_shortcut_menu_id => l_menu_id,
p_function_name => p_function_name,
x_page_id => x_page_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
PROCEDURE Update_Page_Layout
(
p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
p_commit IN VARCHAR2 := FND_API.g_false,
p_validate_only IN VARCHAR2 := FND_API.g_true,
p_max_msg_count IN NUMBER := FND_API.g_miss_num,
p_page_id IN number,
p_page_name IN VARCHAR2 := FND_API.g_miss_char,
-- p_page_type IN VARCHAR2 := FND_API.g_miss_char,
p_description IN VARCHAR2 := FND_API.g_miss_char,
p_start_date IN date,
p_end_date IN date,
p_shortcut_menu_id IN number,
p_shortcut_menu_name IN VARCHAR2,
p_record_version_number IN NUMBER,
p_function_name IN VARCHAR2,
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_name_exists VARCHAR(20) := 'N';
select 'Y' from dual
where exists(
select 'Required'
from pa_lookups l, pa_page_layouts ppl
where l.lookup_type = 'PA_PAGE_TYPES'
and l.lookup_code = ppl.page_type_code
AND L.attribute2 = 'Y'
and ppl.page_id = p_page_id
);
SELECT MENU_ID
FROM FND_MENUS_VL
where user_menu_name = p_shortcut_menu_name;
SELECT ROWID
FROM pa_page_layouts
WHERE page_id = p_page_id
AND record_version_number = p_record_version_number;
SELECT meaning FROM pa_lookups pl, pa_page_layouts ppl
WHERE pl.lookup_type = 'PA_PAGE_TYPES'
AND pl.lookup_code = ppl.PAGE_TYPE_CODE
AND ppl.page_id = p_page_id;
SAVEPOINT PAGE_LAYOUT_PVT_UPDATE;
pa_page_layout_pkg.Update_page_layout_Row
(
p_page_id => p_page_id,
p_page_name => p_page_name,
p_page_type => null,
p_description => p_description,
p_start_date => p_start_date,
p_end_date => p_end_date,
p_shortcut_menu_id => l_menu_id,
P_RECORD_VERSION_NUMBER => p_record_version_number,
p_function_name => p_function_name,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
ROLLBACK TO PAGE_LAYOUT_PVT_UPDATE;
FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PAGE_LAYOUT_PVT.Update_Page_Layout'
,p_procedure_name => PA_DEBUG.G_Err_Stack );
END update_page_layout;
PROCEDURE Delete_Page_Layout
(
p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
p_commit IN VARCHAR2 := FND_API.g_false,
p_validate_only IN VARCHAR2 := FND_API.g_true,
p_max_msg_count IN NUMBER := FND_API.g_miss_num,
p_page_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
CURSOR check_page_layout IS
SELECT page_id
FROM pa_page_layouts
WHERE (page_id = p_page_id AND p_page_id IS NOT NULL
AND record_version_number = Nvl(p_record_version_number, record_version_number));
SELECT page_id
FROM pa_object_page_layouts
WHERE (page_id = p_page_id AND p_page_id IS NOT NULL);
SELECT meaning FROM pa_lookups pl, pa_page_layouts ppl
WHERE pl.lookup_type = 'PA_PAGE_TYPES'
AND pl.lookup_code = ppl.page_type_code
AND ppl.page_id = p_page_id;
SELECT page_type_code from pa_page_layouts
WHERE page_id = p_page_id;
PA_DEBUG.init_err_stack('PA_PAGE_LAYOUT_PVT.Delete_Page_Layout');
SAVEPOINT PAGE_LAYOUT_PVT_DELETE;
-- we can delete if this page is not used yet
CLOSE check_object_page_versions;
--debug_msg('before delete 4');
PA_PAGE_LAYOUT_PKG.Delete_page_layout_Row
(
p_page_id => p_page_id
,p_record_version_number => p_record_version_number
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
DELETE FROM pa_page_layout_regions
WHERE page_id = p_page_id;
PA_PAGE_LAYOUT_PKG.Delete_page_layout_Row
(
p_page_id => p_page_id
,p_record_version_number => p_record_version_number
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
DELETE FROM pa_page_layout_regions
WHERE page_id = p_page_id;
ROLLBACK TO PAGE_LAYOUT_PVT_DELETE;
FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PAGE_LAYOUT_PVT.Delete_Page_Layout'
,p_procedure_name => PA_DEBUG.G_Err_Stack );
END delete_page_layout;
SELECT view_region_code, edit_region_code
FROM pa_page_type_regions pptr, pa_page_layouts ppl
WHERE pptr.page_type_code = ppl.page_type_code
AND ppl.page_id = p_page_id
AND pptr.region_source_type = P_REGION_SOURCE_TYPE
AND pptr.view_region_code = P_VIEW_REGION_CODE;
SELECT meaning FROM pa_lookups pl, pa_page_layouts ppl
WHERE pl.lookup_type = 'PA_PAGE_TYPES'
AND pl.lookup_code = ppl.page_type_code
AND ppl.page_id = p_page_id;
pa_page_layout_pkg.Insert_page_region_Row
(
p_page_id => p_page_id,
p_region_source_type => p_region_source_type,
p_region_source_code => p_region_source_code,
p_view_region_code => p_view_region_code,
p_edit_region_code => l_edit_region_code,
p_region_style => p_region_style,
p_display_order => p_display_order,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
PROCEDURE Delete_Page_Region
(
p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
p_commit IN VARCHAR2 := FND_API.g_false,
p_validate_only IN VARCHAR2 := FND_API.g_true,
p_max_msg_count IN NUMBER := FND_API.g_miss_num,
p_page_id IN number,
p_region_source_type IN VARCHAR2,
p_region_source_code IN VARCHAR2,
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_row_id ROWID;
SELECT rowid
FROM pa_page_layout_regions
WHERE (page_id = p_page_id
AND region_source_type = p_region_source_type
AND region_source_code = p_region_source_code
AND record_version_number = Nvl(p_record_version_number, record_version_number));
PA_DEBUG.init_err_stack('PA_PAGE_LAYOUT_PVT.Delete_Page_Region');
SAVEPOINT PVT_DELETE_PAGE_REGION;
PA_PAGE_LAYOUT_PKG.Delete_page_region_Row
(
p_page_id => p_page_id
,p_region_source_type => p_region_source_type
,p_region_source_code => p_region_source_code
,p_record_version_number => p_record_version_number
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
ROLLBACK TO PVT_DELETE_PAGE_REGION;
FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PAGE_LAYOUT_PVT.Delete_Page_Region'
,p_procedure_name => PA_DEBUG.G_Err_Stack );
END delete_page_region;
PROCEDURE Delete_All_Page_Region
(
p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
p_commit IN VARCHAR2 := FND_API.g_false,
p_validate_only IN VARCHAR2 := FND_API.g_true,
p_max_msg_count IN NUMBER := FND_API.g_miss_num,
p_page_id IN NUMBER := null,
p_region_position IN VARCHAR2 := null,
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
CURSOR get_region IS
SELECT distinct pplr.page_id
, pplr.region_source_type
, pplr.region_source_code
, pplr.record_version_number
FROM pa_page_layout_regions pplr
, pa_page_layouts ppl
, pa_page_type_regions pptr
WHERE pplr.page_id = p_page_id
and ppl.page_id = pplr.page_id
and ppl.page_type_code = pptr.page_type_code
and pplr.region_source_type = pptr.region_source_type
and pplr.view_region_code = pptr.view_region_code
and nvl(pptr.default_region_position, 'L')
= nvl('L', nvl(pptr.default_region_position, 'L'))
AND Nvl(pplr.region_style, 'N') <> 'LINK';
PA_DEBUG.init_err_stack('PA_PAGE_LAYOUT_PUB.Delete_Page_Region');
PA_PAGE_LAYOUT_PKG.DELETE_PAGE_REGION_ROW
(
p_page_id => p_page_id,
p_region_source_type => reg_rec.region_source_type,
p_region_source_code => reg_rec.region_source_code,
p_record_version_number => reg_rec.record_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PAGE_LAYOUT_PUB.Delete_Page_Region'
,p_procedure_name => PA_DEBUG.G_Err_Stack );
END delete_all_page_region;
PROCEDURE Delete_All_link_Page_Region
(
p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
p_commit IN VARCHAR2 := FND_API.g_false,
p_validate_only IN VARCHAR2 := FND_API.g_true,
p_max_msg_count IN NUMBER := FND_API.g_miss_num,
p_page_id IN NUMBER := null,
p_region_position IN VARCHAR2 := null,
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
CURSOR get_region is
SELECT distinct pplr.page_id
, pplr.region_source_type
, pplr.region_source_code
, pplr.record_version_number
FROM pa_page_layout_regions pplr
WHERE pplr.page_id = p_page_id
AND Nvl(pplr.region_style, 'N') = 'LINK';
PA_DEBUG.init_err_stack('PA_PAGE_LAYOUT_PUB.Delete_All_link_Page_Region');
PA_PAGE_LAYOUT_PKG.DELETE_PAGE_REGION_ROW
(
p_page_id => p_page_id,
p_region_source_type => reg_rec.region_source_type,
p_region_source_code => reg_rec.region_source_code,
p_record_version_number => reg_rec.record_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PAGE_LAYOUT_PUB.Delete_All_link_Page_Region'
,p_procedure_name => PA_DEBUG.G_Err_Stack );
END delete_all_link_page_region;
FUNCTION IS_REGION_DELETE_OK(p_region_source_type in varchar2,
p_region_source_code in varchar2) return varchar2 IS
l_ret varchar2(1) := 'N';
select 'N'
into l_ret
from pa_page_layout_regions
where region_source_type = p_region_source_type
and region_source_code = p_region_source_code;
END IS_REGION_DELETE_OK;