The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'X'
FROM pa_object_regions
WHERE object_id = p_object_id
AND object_type = p_object_type
AND placeholder_reg_code = p_placeholder_reg_code;
SELECT 'X'
FROM pa_page_layout_regions
WHERE
view_region_code = p_reg_code
OR nvl(edit_region_code,view_region_code) = p_reg_code;
PA_OBJECT_REGIONS_PKG.insert_row(
P_OBJECT_ID ,
P_OBJECT_TYPE ,
P_PLACEHOLDER_REG_CODE ,
P_REPLACEMENT_REG_CODE ,
sysdate ,
fnd_global.user_id ,
sysdate ,
fnd_global.user_id ,
fnd_global.user_id );
procedure update_object_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_OBJECT_ID IN NUMBER,
P_OBJECT_TYPE IN VARCHAR2,
P_PLACEHOLDER_REG_CODE IN VARCHAR2,
P_REPLACEMENT_REG_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
CURSOR check_object_page_region_exits
IS
SELECT 'X'
FROM pa_object_regions
WHERE object_id = p_object_id
AND object_type = p_object_type
AND placeholder_reg_code = p_placeholder_reg_code;
SELECT 'X'
FROM pa_page_layout_regions
WHERE
view_region_code = p_reg_code
OR nvl(edit_region_code,view_region_code) = p_reg_code;
SAVEPOINT update_object_page_region;
PA_OBJECT_REGIONS_PKG.DELETE_ROW (
P_OBJECT_ID ,
P_OBJECT_TYPE ,
P_PLACEHOLDER_REG_CODE );
PA_OBJECT_REGIONS_PKG.update_row(
P_OBJECT_ID ,
P_OBJECT_TYPE ,
P_PLACEHOLDER_REG_CODE ,
P_REPLACEMENT_REG_CODE ,
p_record_version_number ,
sysdate ,
fnd_global.user_id ,
fnd_global.user_id );
ROLLBACK TO update_object_page_region;
ROLLBACK TO update_object_page_region;
( p_pkg_name => 'PA_OBJECT_REGIONS_PVT.update_object_page_region'
,p_procedure_name => PA_DEBUG.G_Err_Stack );
End update_object_page_region;
procedure DELETE_object_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_OBJECT_ID IN NUMBER,
P_OBJECT_TYPE IN VARCHAR2,
P_PLACEHOLDER_REG_CODE 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
Begin
-- Initialize the Error Stack
PA_DEBUG.init_err_stack('PA_PAGE_LAYOUT_PVT.Create_Page_Layout');
SAVEPOINT update_object_page_region;
PA_OBJECT_REGIONS_PKG.delete_row(
P_OBJECT_ID ,
P_OBJECT_TYPE ,
P_PLACEHOLDER_REG_CODE );
ROLLBACK TO delete_object_page_region;
( p_pkg_name => 'PA_OBJECT_REGIONS_PVT.delete_object_page_region'
,p_procedure_name => PA_DEBUG.G_Err_Stack );
End DELETE_object_page_region;