The following lines contain the word 'select', 'insert', 'update' or 'delete':
select (MAX(Report_End_Date))
FROM PA_PROGRESS_REPORT_VERS
WHERE Object_Id = P_Object_Id
AND Object_Type = P_Object_Type
AND Report_Status_Code = decode(Publish_Report_Flag,'Y','PROGRESS_REPORT_PUBLISHED',Report_Status_Code);
select (MAX(Report_End_Date))
FROM PA_PROGRESS_REPORT_VERS
WHERE Object_Id = P_Object_Id
AND Object_Type = P_Object_Type
AND report_type_id = p_report_type_id
AND Report_Status_Code = decode(Publish_Report_Flag,'Y','PROGRESS_REPORT_PUBLISHED',Report_Status_Code);
select NVL(Start_date, Creation_date)
INTO l_Project_Start_Date
FROM PA_PROJECTS_ALL
WHERE Project_Id = Object_Id;
Select project_system_status_code
from pa_project_statuses
where project_status_code = p_current_rep_status;
Select nvl(approval_required,'N') approval_required
-- ,nvl(auto_publish,'N') auto_publish
from pa_object_page_layouts pop
,pa_progress_report_vers prv
where pop.object_type = prv.object_type
and pop.object_id = prv.object_id
and pop.report_type_id = prv.report_type_id ---report_type_id will be there for PPR
and pop.page_type_code = prv.page_type_code
and prv.version_id = p_version_id;
is select page_type_code
from pa_object_page_layouts
where page_id = p_page_id;
SELECT page_type_code
FROM pa_page_layouts
WHERE page_id = p_page_id;
CURSOR check_update_report_ok
IS SELECT 'N' FROM
dual
WHERE exists
(SELECT * FROM
pa_progress_report_vers
WHERE page_id = p_page_id
AND (report_status_code = 'PROGRESS_REPORT_PUBLISHED' OR
report_status_code = 'PROGRESS_REPORT_SUBMITTED' OR
report_status_code = 'PROGRESS_REPORT_APPROVED'));
l_ok_to_delete VARCHAR2(1):= 'Y';
l_ok_to_delete := 'N';
l_ok_to_delete := 'Y';
OPEN check_update_report_ok;
FETCH check_update_report_ok INTO l_dummy;
IF (check_update_report_ok%found) THEN
l_ok_to_delete := 'N';
CLOSE check_update_report_ok;
l_ok_to_delete := 'N';
l_ok_to_delete := 'N';
IF (l_ok_to_delete = 'N') then
PA_UTILS.Add_Message( p_app_short_name => 'PA'
,p_msg_name => 'PA_EDIT_TEMPLATE_INV');
PROCEDURE update_perccomplete
(
p_object_id NUMBER,
p_object_type VARCHAR2,
p_percent_complete NUMBER,
p_asof_date DATE,
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_project_id NUMBER;
SELECT project_id FROM pa_tasks
WHERE task_id = l_task_id;
PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_UTILS.update_perccomplete');
SAVEPOINT update_perccomplete;
pa_percent_complete_pkg.insert_row
(
l_project_id,
l_task_id,
p_percent_complete,
p_asof_date,
NULL,
Sysdate,
fnd_global.user_id,
Sysdate,
fnd_global.user_id,
fnd_global.user_id,
x_return_status,
x_msg_data
);
ROLLBACK TO update_perccomplete;
ROLLBACK TO update_perccomplete;
FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_Progress_Report_Utils.update_perccomplete'
,p_procedure_name => PA_DEBUG.G_Err_Stack );
END update_perccomplete;
IS SELECT 'Y'
FROM dual
WHERE exists(
SELECT version_id
FROM pa_progress_report_vers
WHERE object_id = p_object_id
AND object_type = p_object_type
);
IS SELECT 'Y'
FROM dual
WHERE exists(
SELECT page_id
FROM pa_object_page_layouts
WHERE object_id = p_object_id
AND object_type = p_object_type
);
IS SELECT 'Y'
FROM dual
WHERE exists(
SELECT placeholder_reg_code
FROM pa_object_regions
WHERE object_id = p_object_id
AND object_type = p_object_type
);
pa_progress_report_pkg.delete_object_page_layouts
(
p_object_id,
p_object_type,
x_return_status,
x_msg_count,
x_msg_data
);
select page_id from pa_object_page_layouts
where page_type_code = p_page_type_code
and object_type = p_object_type
and object_id = p_object_id;
select page_id from pa_object_page_layouts
where object_id = p_object_id
and object_type = p_object_type
and report_type_id = p_report_Type_id
and page_type_code = p_page_type_code;
select to_number(attribute3)
from pa_lookups
where lookup_type = 'PA_PAGE_TYPES'
and lookup_code = p_page_type_code;
select task_progress_entry_page_id
from pa_proj_elements ppe
where ppe.proj_element_id = p_object_id
and ppe.object_type = 'PA_TASKS';
select ptt.task_progress_entry_page_id
from pa_proj_elements ppe,
pa_task_types ptt
where ppe.type_id = ptt.task_type_id
and ppe.proj_element_id = p_object_id
and ppe.object_type = 'PA_TASKS';
select substr(l_page_id_tmp,1,4) into l_model from dual;
select substr(l_page_id_tmp,6) into l_page_id_s from dual;
select replacement_reg_code
from pa_object_regions
where object_type = p_object_type
and object_id = p_object_id
and placeholder_reg_code = p_placeholder_reg_code;
FUNCTION is_delete_page_layout_ok(
p_page_type_code IN varchar2,
p_object_type IN varchar2,
p_object_id IN NUMBER,
p_report_type_id IN NUMBER
)
RETURN VARCHAR2 is
-- can not delere the ppr pagelayout when there is any report
-- which is not published nor cancelled
CURSOR get_ppr_pagelayout_delete_ok IS
select 'N'
from dual
where exists
(
select version_id
FROM PA_PROGRESS_REPORT_VERS
WHERE Object_Id = p_object_id
AND Object_Type = p_object_type
AND report_Type_id = p_report_Type_id ); --- report_Type_id will be there
OPEN get_ppr_pagelayout_delete_ok;
FETCH get_ppr_pagelayout_delete_ok INTO l_return;
IF get_ppr_pagelayout_delete_ok%notfound THEN
l_return := 'Y';
CLOSE get_ppr_pagelayout_delete_ok;
END is_delete_page_layout_ok;
select 'N'
from dual
where exists
(
select version_id
FROM PA_PROGRESS_REPORT_VERS
WHERE Object_Id = p_object_id
AND Object_Type = p_object_type
AND report_Type_id = p_report_Type_id
AND Report_Status_Code <> 'PROGRESS_REPORT_PUBLISHED'
and Report_Status_Code <> 'PROGRESS_REPORT_CANCELED');
select object_page_layout_id
into l_object_page_layout_id
from pa_object_page_layouts
where object_id = p_object_id and
object_type = p_object_type and
report_Type_id = p_report_Type_id;
select object_page_layout_id
into l_object_page_layout_id
from pa_object_page_layouts
where object_id = p_object_id and
object_type = p_object_type and
report_Type_id = p_report_Type_id;
Function is_cycle_ok_to_delete(p_reporting_cycle_id IN NUMBER) return varchar2
IS
cursor rep_cycle is
select 'N'
from pa_object_page_layouts
where reporting_cycle_id = p_reporting_cycle_id;
End is_cycle_ok_to_delete;
select version_id
into l_version_id
from pa_progress_report_vers
where object_id = p_object_id
and object_Type = p_object_Type
and report_Type_id = p_report_Type_id
and report_status_code = 'PROGRESS_REPORT_WORKING'
and (report_end_date, last_update_date) = (select max(report_end_Date), max(last_update_date)
from pa_progress_report_vers
where object_id = p_object_id
and object_Type = p_object_Type
and report_Type_id = p_report_Type_id
and report_status_code = 'PROGRESS_REPORT_WORKING');
SELECT menu_name
INTO l_menu_name
FROM fnd_menus m, pa_object_page_layouts o
WHERE m.menu_id=o.page_id
AND o.page_type_code='TAB_MENU'
AND o.object_type='PA_PROJECTS'
AND o.object_id=p_project_id;