The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT Project_Accum_Id,
Accum_Period
INTO
V_Accum_id,
V_prev_accum_period
FROM
PA_PROJECT_ACCUM_HEADERS
WHERE Project_id = X_project_id
AND Task_id = 0
AND Resource_List_id = 0
AND Resource_List_member_id = 0
AND Resource_id = 0 ;
SELECT PA_PROJECT_ACCUM_HEADERS_S.Nextval
INTO V_accum_id
FROM Dual;
INSERT INTO PA_PROJECT_ACCUM_HEADERS
(PROJECT_ACCUM_ID,
PROJECT_ID,
TASK_ID,
ACCUM_PERIOD,
RESOURCE_ID,
RESOURCE_LIST_ID,
RESOURCE_LIST_MEMBER_ID,
RESOURCE_LIST_ASSIGNMENT_ID,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
REQUEST_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN )
VALUES (V_Accum_id,
X_project_id,
0,
v_current_period,
0,
0,
0,
0,
trunc(sysdate),
pa_proj_accum_main.x_last_updated_by,
pa_proj_accum_main.x_request_id,
trunc(sysdate),
pa_proj_accum_main.x_created_by,
pa_proj_accum_main.x_last_update_login );
INSERT INTO PA_PROJECT_ACCUM_ACTUALS (
PROJECT_ACCUM_ID,RAW_COST_ITD,RAW_COST_YTD,RAW_COST_PP,RAW_COST_PTD,
BILLABLE_RAW_COST_ITD,BILLABLE_RAW_COST_YTD,BILLABLE_RAW_COST_PP,
BILLABLE_RAW_COST_PTD,BURDENED_COST_ITD,BURDENED_COST_YTD,
BURDENED_COST_PP,BURDENED_COST_PTD,BILLABLE_BURDENED_COST_ITD,
BILLABLE_BURDENED_COST_YTD,BILLABLE_BURDENED_COST_PP,
BILLABLE_BURDENED_COST_PTD,QUANTITY_ITD,QUANTITY_YTD,QUANTITY_PP,
QUANTITY_PTD,LABOR_HOURS_ITD,LABOR_HOURS_YTD,LABOR_HOURS_PP,
LABOR_HOURS_PTD,BILLABLE_QUANTITY_ITD,BILLABLE_QUANTITY_YTD,
BILLABLE_QUANTITY_PP,BILLABLE_QUANTITY_PTD,
BILLABLE_LABOR_HOURS_ITD,BILLABLE_LABOR_HOURS_YTD,
BILLABLE_LABOR_HOURS_PP,BILLABLE_LABOR_HOURS_PTD,REVENUE_ITD,
REVENUE_YTD,REVENUE_PP,REVENUE_PTD,TXN_UNIT_OF_MEASURE,
REQUEST_ID,LAST_UPDATED_BY,LAST_UPDATE_DATE,CREATION_DATE,CREATED_BY,
LAST_UPDATE_LOGIN) VALUES
(V_Accum_id,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,Null,pa_proj_accum_main.x_request_id,pa_proj_accum_main.x_last_updated_by,Trunc(sysdate),
Trunc(Sysdate),pa_proj_accum_main.x_created_by,pa_proj_accum_main.x_last_update_login);
INSERT INTO PA_PROJECT_ACCUM_COMMITMENTS (
PROJECT_ACCUM_ID,CMT_RAW_COST_ITD,CMT_RAW_COST_YTD,CMT_RAW_COST_PP,
CMT_RAW_COST_PTD,CMT_BURDENED_COST_ITD,CMT_BURDENED_COST_YTD,
CMT_BURDENED_COST_PP,CMT_BURDENED_COST_PTD,
CMT_QUANTITY_ITD,CMT_QUANTITY_YTD,CMT_QUANTITY_PP,CMT_QUANTITY_PTD,
REQUEST_ID,LAST_UPDATED_BY,LAST_UPDATE_DATE,CREATION_DATE,CREATED_BY,
LAST_UPDATE_LOGIN ) VALUES
(V_Accum_Id,0,0,0,0,0,0,0,0,0,0,0,0,pa_proj_accum_main.x_request_id,pa_proj_accum_main.x_last_updated_by,Trunc(Sysdate),
Trunc(Sysdate), pa_proj_accum_main.x_created_by,pa_proj_accum_main.x_last_update_login);
SELECT accumulation_period_type
INTO x_impl_option
FROM pa_implementations;
SELECT
period_name,
gl_period_name,
pa_start_date,
pa_end_date,
gl_start_date,
gl_end_date,
period_year
INTO
x_current_pa_period,
x_current_gl_period,
x_current_pa_start_date,
x_current_pa_end_date,
x_current_gl_start_date,
x_current_gl_end_date,
x_current_year
FROM pa_periods_v
WHERE
current_pa_period_flag = 'Y';
SELECT pap.period_name,
pap.gl_period_name,
pap.start_date,
pap.end_date,
glp.start_date,
glp.end_date,
glp.period_year
INTO
x_current_pa_period,
x_current_gl_period,
x_current_pa_start_date,
x_current_pa_end_date,
x_current_gl_start_date,
x_current_gl_end_date,
x_current_year
FROM PA_PERIODS PAP, GL_PERIOD_STATUSES GLP,
PA_IMPLEMENTATIONS PAIMP, PA_LOOKUPS PAL
WHERE PAP.GL_PERIOD_NAME = GLP.PERIOD_NAME
AND GLP.SET_OF_BOOKS_ID = PAIMP.SET_OF_BOOKS_ID
AND GLP.APPLICATION_ID = Pa_Period_Process_Pkg.Application_id
AND GLP.ADJUSTMENT_PERIOD_FLAG = 'N'
AND PAL.LOOKUP_TYPE = 'CLOSING STATUS'
AND PAL.LOOKUP_CODE = PAP.STATUS
AND PAP.current_pa_period_flag = 'Y';
SELECT
PERIOD_NAME,
PERIOD_YEAR,
PA_START_DATE,
PA_END_DATE
INTO
x_prev_pa_period,
x_prev_pa_year,
x_prev_pa_start_date,
x_prev_pa_end_date
FROM
PA_PERIODS_V
WHERE pa_start_date =
(SELECT max(start_date)
FROM
pa_periods
WHERE start_date < x_current_pa_start_date);
SELECT
DISTINCT gl_period_name,
period_year,
gl_start_date,
gl_end_date
INTO
x_prev_gl_period,
x_prev_gl_year,
x_prev_gl_start_date,
x_prev_gl_end_date
FROM
pa_periods_v
WHERE
gl_start_date =
(SELECT max(gl_start_date)
FROM pa_periods_v
WHERE
gl_start_date < x_current_gl_start_date);
Select PERIOD_YEAR,PA_START_DATE,PA_END_DATE
into x_prev_accum_year,x_prev_accum_start_date,
x_prev_accum_end_date from
PA_PERIODS_V WHERE Period_name = x_prev_accum_period;
Select Distinct PERIOD_YEAR,GL_START_DATE,GL_END_DATE
into x_prev_accum_year,x_prev_accum_start_date,
x_prev_accum_end_date from
PA_PERIODS_V WHERE Gl_Period_name = x_prev_accum_period;
SELECT DISTINCT
DECODE(x_impl_opt,'PA',PERIOD_NAME,'GL',GL_PERIOD_NAME,PERIOD_NAME)
INTO x_prev_prev_accum_period
FROM
pa_periods_v
WHERE
DECODE(x_impl_opt,
'PA',pa_start_date,'GL',gl_start_date,pa_start_date) =
(SELECT max(DECODE(
x_impl_opt,'PA',pa_start_date,
'GL',gl_start_date,pa_start_date))
FROM pa_periods_v
WHERE
DECODE(x_impl_opt,
'PA',pa_start_date,'GL',gl_start_date,pa_start_date)
< x_prev_accum_start_date);
SELECT
DISTINCT YEAR_START_DATE
INTO
x_period_yr_start_date
FROM
GL_PERIOD_STATUSES gps, pa_implementations imp
WHERE gps.application_id = pa_period_process_pkg.application_id
and gps.set_of_books_id = imp.set_of_books_id
and gps.period_name = x_current_gl_period;
Select Project_accum_id
FROM
PA_PROJECT_ACCUM_HEADERS PAH
WHERE Project_id = x_project_id
and TASK_ID = V_task_id
and RESOURCE_LIST_MEMBER_ID = x_resource_list_member_id
and not exists
(Select Project_accum_id
from
PA_PROJECT_ACCUM_ACTUALS paa
where paa.project_accum_id = pah.project_accum_id);
Insert into PA_PROJECT_ACCUM_ACTUALS (
PROJECT_ACCUM_ID,RAW_COST_ITD,RAW_COST_YTD,RAW_COST_PP,RAW_COST_PTD,
BILLABLE_RAW_COST_ITD,BILLABLE_RAW_COST_YTD,BILLABLE_RAW_COST_PP,
BILLABLE_RAW_COST_PTD,BURDENED_COST_ITD,BURDENED_COST_YTD,
BURDENED_COST_PP,BURDENED_COST_PTD,BILLABLE_BURDENED_COST_ITD,
BILLABLE_BURDENED_COST_YTD,BILLABLE_BURDENED_COST_PP,
BILLABLE_BURDENED_COST_PTD,QUANTITY_ITD,QUANTITY_YTD,QUANTITY_PP,
QUANTITY_PTD,LABOR_HOURS_ITD,LABOR_HOURS_YTD,LABOR_HOURS_PP,
LABOR_HOURS_PTD,BILLABLE_QUANTITY_ITD,BILLABLE_QUANTITY_YTD,
BILLABLE_QUANTITY_PP,BILLABLE_QUANTITY_PTD,
BILLABLE_LABOR_HOURS_ITD,BILLABLE_LABOR_HOURS_YTD,
BILLABLE_LABOR_HOURS_PP,BILLABLE_LABOR_HOURS_PTD,REVENUE_ITD,
REVENUE_YTD,REVENUE_PP,REVENUE_PTD,TXN_UNIT_OF_MEASURE,
REQUEST_ID,LAST_UPDATED_BY,LAST_UPDATE_DATE,CREATION_DATE,CREATED_BY,
LAST_UPDATE_LOGIN) Values
(V_Accum_id,0,0,0,0,
0,0,0,
0,0,0,
0,0,0,
0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,
0,0,0,0,
0,Null,pa_proj_accum_main.x_request_id,pa_proj_accum_main.x_last_updated_by,Trunc(sysdate),
Trunc(Sysdate),pa_proj_accum_main.x_created_by,pa_proj_accum_main.x_last_update_login);
Insert into PA_PROJECT_ACCUM_ACTUALS (
PROJECT_ACCUM_ID,RAW_COST_ITD,RAW_COST_YTD,RAW_COST_PP,RAW_COST_PTD,
BILLABLE_RAW_COST_ITD,BILLABLE_RAW_COST_YTD,BILLABLE_RAW_COST_PP,
BILLABLE_RAW_COST_PTD,BURDENED_COST_ITD,BURDENED_COST_YTD,
BURDENED_COST_PP,BURDENED_COST_PTD,BILLABLE_BURDENED_COST_ITD,
BILLABLE_BURDENED_COST_YTD,BILLABLE_BURDENED_COST_PP,
BILLABLE_BURDENED_COST_PTD,QUANTITY_ITD,QUANTITY_YTD,QUANTITY_PP,
QUANTITY_PTD,LABOR_HOURS_ITD,LABOR_HOURS_YTD,LABOR_HOURS_PP,
LABOR_HOURS_PTD,BILLABLE_QUANTITY_ITD,BILLABLE_QUANTITY_YTD,
BILLABLE_QUANTITY_PP,BILLABLE_QUANTITY_PTD,
BILLABLE_LABOR_HOURS_ITD,BILLABLE_LABOR_HOURS_YTD,
BILLABLE_LABOR_HOURS_PP,BILLABLE_LABOR_HOURS_PTD,REVENUE_ITD,
REVENUE_YTD,REVENUE_PP,REVENUE_PTD,TXN_UNIT_OF_MEASURE,
REQUEST_ID,LAST_UPDATED_BY,LAST_UPDATE_DATE,CREATION_DATE,CREATED_BY,
LAST_UPDATE_LOGIN)
Select PAH.PROJECT_ACCUM_ID,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,Null,pa_proj_accum_main.x_request_id,pa_proj_accum_main.x_last_updated_by,Trunc(sysdate),
Trunc(Sysdate),pa_proj_accum_main.x_created_by,pa_proj_accum_main.x_last_update_login
from
PA_PROJECT_ACCUM_HEADERS PAH
Where Project_Id = x_project_id
and Task_id = v_task_array(i)
and Resource_list_member_id = x_Resource_list_member_id
and Not Exists
(Select 'x'
from
PA_PROJECT_ACCUM_ACTUALS PAA
Where
PAH.PROJECT_ACCUM_ID = PAA.PROJECT_ACCUM_ID);
Select Project_accum_id
from
PA_PROJECT_ACCUM_HEADERS PAH
Where Project_id = x_project_id
and TASK_ID = V_task_id
and RESOURCE_LIST_MEMBER_ID = x_resource_list_member_id
and not exists
(Select Project_accum_id
from
PA_PROJECT_ACCUM_COMMITMENTS pac
where pac.project_accum_id = pah.project_accum_id);
Insert into PA_PROJECT_ACCUM_COMMITMENTS (
PROJECT_ACCUM_ID,CMT_RAW_COST_ITD,CMT_RAW_COST_YTD,CMT_RAW_COST_PP,
CMT_RAW_COST_PTD,
CMT_BURDENED_COST_ITD,CMT_BURDENED_COST_YTD,
CMT_BURDENED_COST_PP,CMT_BURDENED_COST_PTD,
CMT_QUANTITY_ITD,CMT_QUANTITY_YTD,
CMT_QUANTITY_PP,CMT_QUANTITY_PTD,
CMT_UNIT_OF_MEASURE,
REQUEST_ID,LAST_UPDATED_BY,LAST_UPDATE_DATE,CREATION_DATE,CREATED_BY,
LAST_UPDATE_LOGIN) Values
(v_Accum_id,0,0,0,0,
0,0,0,0,
0,0,0,0,
Null,pa_proj_accum_main.x_request_id,pa_proj_accum_main.x_last_updated_by,Trunc(sysdate),
Trunc(Sysdate),pa_proj_accum_main.x_created_by,pa_proj_accum_main.x_last_update_login);
Insert into PA_PROJECT_ACCUM_COMMITMENTS (
PROJECT_ACCUM_ID,CMT_RAW_COST_ITD,CMT_RAW_COST_YTD,CMT_RAW_COST_PP,
CMT_RAW_COST_PTD,
CMT_BURDENED_COST_ITD,CMT_BURDENED_COST_YTD,
CMT_BURDENED_COST_PP,CMT_BURDENED_COST_PTD,
CMT_QUANTITY_ITD,CMT_QUANTITY_YTD,
CMT_QUANTITY_PP,CMT_QUANTITY_PTD,
CMT_UNIT_OF_MEASURE,
REQUEST_ID,LAST_UPDATED_BY,LAST_UPDATE_DATE,CREATION_DATE,CREATED_BY,
LAST_UPDATE_LOGIN)
Select PROJECT_ACCUM_ID,0,0,0,0,0,0,0,0,0,0,0,0,
Null,pa_proj_accum_main.x_request_id,pa_proj_accum_main.x_last_updated_by,Trunc(sysdate),
Trunc(Sysdate),pa_proj_accum_main.x_created_by,pa_proj_accum_main.x_last_update_login
from PA_PROJECT_ACCUM_HEADERS PAH
Where Project_Id = x_project_id and Task_id = v_task_array(i) and
Resource_list_member_id = x_Resource_list_member_id and
Not Exists (Select 'x' from PA_PROJECT_ACCUM_COMMITMENTS PAC Where
PAH.PROJECT_ACCUM_ID = PAC.PROJECT_ACCUM_ID);
SELECT
Project_accum_id
FROM
PA_PROJECT_ACCUM_HEADERS PAH
WHERE Project_id = x_project_id
and TASK_ID = v_task_id
and RESOURCE_LIST_MEMBER_ID = x_resource_list_member_id
and not exists
(Select Project_accum_id
from
PA_PROJECT_ACCUM_BUDGETS pab
where pab.project_accum_id = pah.project_accum_id
and pab.Budget_Type_Code = x_Budget_Type_Code);
Insert into PA_PROJECT_ACCUM_BUDGETS (
PROJECT_ACCUM_ID,BUDGET_TYPE_CODE,BASE_RAW_COST_ITD,BASE_RAW_COST_YTD,
BASE_RAW_COST_PP, BASE_RAW_COST_PTD,
BASE_BURDENED_COST_ITD,BASE_BURDENED_COST_YTD,
BASE_BURDENED_COST_PP,BASE_BURDENED_COST_PTD,
ORIG_RAW_COST_ITD,ORIG_RAW_COST_YTD,
ORIG_RAW_COST_PP, ORIG_RAW_COST_PTD,
ORIG_BURDENED_COST_ITD,ORIG_BURDENED_COST_YTD,
ORIG_BURDENED_COST_PP,ORIG_BURDENED_COST_PTD,
BASE_QUANTITY_ITD,BASE_QUANTITY_YTD,BASE_QUANTITY_PP,
BASE_QUANTITY_PTD,
ORIG_QUANTITY_ITD,ORIG_QUANTITY_YTD,ORIG_QUANTITY_PP,
ORIG_QUANTITY_PTD,
BASE_LABOR_HOURS_ITD,BASE_LABOR_HOURS_YTD,BASE_LABOR_HOURS_PP,
BASE_LABOR_HOURS_PTD,
ORIG_LABOR_HOURS_ITD,ORIG_LABOR_HOURS_YTD,ORIG_LABOR_HOURS_PP,
ORIG_LABOR_HOURS_PTD,
BASE_REVENUE_ITD,BASE_REVENUE_YTD,BASE_REVENUE_PP,BASE_REVENUE_PTD,
ORIG_REVENUE_ITD,ORIG_REVENUE_YTD,ORIG_REVENUE_PP,ORIG_REVENUE_PTD,
BASE_UNIT_OF_MEASURE,ORIG_UNIT_OF_MEASURE,
BASE_RAW_COST_TOT,BASE_BURDENED_COST_TOT,ORIG_RAW_COST_TOT,
ORIG_BURDENED_COST_TOT,BASE_REVENUE_TOT,ORIG_REVENUE_TOT,
BASE_LABOR_HOURS_TOT,ORIG_LABOR_HOURS_TOT,BASE_QUANTITY_TOT,
ORIG_QUANTITY_TOT,
REQUEST_ID,LAST_UPDATED_BY,LAST_UPDATE_DATE,CREATION_DATE,CREATED_BY,
LAST_UPDATE_LOGIN) Values
(V_Accum_id,x_budget_type_code,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,NULL,NULL,0,0,0,0,0,0,0,0,0,0,
pa_proj_accum_main.x_request_id,pa_proj_accum_main.x_last_updated_by,Trunc(Sysdate),Trunc(Sysdate),pa_proj_accum_main.x_created_by,pa_proj_accum_main.x_last_update_login);
Insert into PA_PROJECT_ACCUM_BUDGETS (
PROJECT_ACCUM_ID,BUDGET_TYPE_CODE,BASE_RAW_COST_ITD,BASE_RAW_COST_YTD,
BASE_RAW_COST_PP, BASE_RAW_COST_PTD,
BASE_BURDENED_COST_ITD,BASE_BURDENED_COST_YTD,
BASE_BURDENED_COST_PP,BASE_BURDENED_COST_PTD,
ORIG_RAW_COST_ITD,ORIG_RAW_COST_YTD,
ORIG_RAW_COST_PP, ORIG_RAW_COST_PTD,
ORIG_BURDENED_COST_ITD,ORIG_BURDENED_COST_YTD,
ORIG_BURDENED_COST_PP,ORIG_BURDENED_COST_PTD,
BASE_QUANTITY_ITD,BASE_QUANTITY_YTD,BASE_QUANTITY_PP,
BASE_QUANTITY_PTD,
ORIG_QUANTITY_ITD,ORIG_QUANTITY_YTD,ORIG_QUANTITY_PP,
ORIG_QUANTITY_PTD,
BASE_LABOR_HOURS_ITD,BASE_LABOR_HOURS_YTD,BASE_LABOR_HOURS_PP,
BASE_LABOR_HOURS_PTD,
ORIG_LABOR_HOURS_ITD,ORIG_LABOR_HOURS_YTD,ORIG_LABOR_HOURS_PP,
ORIG_LABOR_HOURS_PTD,
BASE_REVENUE_ITD,BASE_REVENUE_YTD,BASE_REVENUE_PP,BASE_REVENUE_PTD,
ORIG_REVENUE_ITD,ORIG_REVENUE_YTD,ORIG_REVENUE_PP,ORIG_REVENUE_PTD,
BASE_UNIT_OF_MEASURE,ORIG_UNIT_OF_MEASURE,
BASE_RAW_COST_TOT,BASE_BURDENED_COST_TOT,ORIG_RAW_COST_TOT,
ORIG_BURDENED_COST_TOT,BASE_REVENUE_TOT,ORIG_REVENUE_TOT,
BASE_LABOR_HOURS_TOT,ORIG_LABOR_HOURS_TOT,BASE_QUANTITY_TOT,
ORIG_QUANTITY_TOT,
REQUEST_ID,LAST_UPDATED_BY,LAST_UPDATE_DATE,CREATION_DATE,CREATED_BY,
LAST_UPDATE_LOGIN)
Select PROJECT_ACCUM_ID,x_budget_type_code,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,NULL,NULL,0,0,0,0,0,0,0,0,0,0,
pa_proj_accum_main.x_request_id,pa_proj_accum_main.x_last_updated_by,Trunc(Sysdate),Trunc(Sysdate),pa_proj_accum_main.x_created_by,pa_proj_accum_main.x_last_update_login
from PA_PROJECT_ACCUM_HEADERS PAH
Where Project_Id = x_project_id and Task_id = v_task_array(i) and
Resource_list_member_id = x_Resource_list_member_id and
Not Exists (Select 'x' from PA_PROJECT_ACCUM_BUDGETS PAB Where
PAH.PROJECT_ACCUM_ID = PAB.PROJECT_ACCUM_ID
AND PAB.budget_type_code = x_budget_type_code);
Select Pt.project_type_class_code
from
pa_project_types Pt , pa_projects P
where P.project_id = x_project_id
and P.project_type = Pt.project_type ;
Select Accum_Flag
from
pa_accum_columns
where Project_Type_Class_code = v_project_type_class_code
and Accum_Category_Code = x_Accum_category_code
and Accum_Column_Code = x_Accum_column_code ;
x_err_stage := ' Select Project_Type_class_code ';
x_err_stage := ' Select Accum_Flag ';
Select task_id
from
pa_tasks pt
where project_id = x_project_id
and task_id <> x_task_id
and exists
(select 'x'
from
pa_project_accum_headers pah
where pah.project_id = x_project_id
and pah.task_id = pt.task_id
and pah.resource_list_member_id = x_resource_list_member_id)
start with task_id = x_task_id
connect by prior parent_task_id = task_id;
Procedure update_proj_accum_header (x_project_accum_id IN Number,
x_accum_period IN Varchar2,
x_err_stack IN OUT NOCOPY Varchar2, --File.Sql.39 bug 4440895
x_err_stage IN OUT NOCOPY Varchar2, --File.Sql.39 bug 4440895
x_err_code IN OUT NOCOPY Number ) IS --File.Sql.39 bug 4440895
V_old_stack Varchar2(630);
x_err_stack||'->PA_ACCUM_UTILS.update_proj_accum_header';
pa_debug.debug('update_proj_accum_header: ' || x_err_stack);
UPDATE pa_project_accum_headers
SET
accum_period = x_accum_period,
request_id = pa_proj_accum_main.x_request_id,
last_updated_by = pa_proj_accum_main.x_last_updated_by,
last_update_date = TRUNC(SYSDATE),
last_update_login = pa_proj_accum_main.x_last_update_login
WHERE project_accum_id = x_project_accum_id;
End update_proj_accum_header;
Procedure update_tasks_restructured_flag (x_project_accum_id IN Number,
x_tasks_restructured_flag IN Varchar2,
x_err_stack IN OUT NOCOPY Varchar2, --File.Sql.39 bug 4440895
x_err_stage IN OUT NOCOPY Varchar2, --File.Sql.39 bug 4440895
x_err_code IN OUT NOCOPY Number ) IS --File.Sql.39 bug 4440895
V_old_stack Varchar2(630);
x_err_stack||'->PA_ACCUM_UTILS.update_tasks_restructured_flag';
pa_debug.debug('update_tasks_restructured_flag: ' || x_err_stack);
UPDATE pa_project_accum_headers
SET
tasks_restructured_flag = x_tasks_restructured_flag,
request_id = pa_proj_accum_main.x_request_id,
last_updated_by = pa_proj_accum_main.x_last_updated_by,
last_update_date = TRUNC(SYSDATE),
last_update_login = pa_proj_accum_main.x_last_update_login
WHERE project_accum_id = x_project_accum_id;
End update_tasks_restructured_flag;
SELECT
NVL(tasks_restructured_flag,'N')
INTO
x_tasks_restructured_flag
FROM
pa_project_accum_headers
WHERE project_accum_id = x_project_accum_id;
SELECT DISTINCT
PTA.PA_PERIOD pa_period
,PAP.START_DATE pa_start_date
,PAP.END_DATE pa_end_date
,PTA.GL_PERIOD gl_period
,GLP.START_DATE gl_start_date
,GLP.END_DATE gl_end_date
,PTA.TOT_RAW_COST tot_raw_cost
,PTA.TOT_QUANTITY tot_quantity
,PTA.TOT_REVENUE tot_revenue
FROM PA_TXN_ACCUM PTA
, PA_RESOURCE_ACCUM_DETAILS PRAD
, PA_PERIODS PAP
, GL_PERIOD_STATUSES GLP
, PA_IMPLEMENTATIONS PAIMP
WHERE PRAD.PROJECT_ID = x_project_id
AND PRAD.RESOURCE_LIST_ID = x_resource_list_id
AND PRAD.TXN_ACCUM_ID = PTA.TXN_ACCUM_ID
AND PRAD.PROJECT_ID = PTA.PROJECT_ID
AND PTA.PA_PERIOD = PAP.PERIOD_NAME
AND PAP.GL_PERIOD_NAME = GLP.PERIOD_NAME
AND GLP.SET_OF_BOOKS_ID = PAIMP.SET_OF_BOOKS_ID
AND GLP.APPLICATION_ID = pa_period_process_pkg.application_id
AND GLP.ADJUSTMENT_PERIOD_FLAG = 'N'
ORDER BY DECODE(x_period_type,'P',PAP.START_DATE,'G',GLP.START_DATE,PAP.START_DATE);
SELECT DISTINCT
PTA.GL_PERIOD gl_period
,GLP.START_DATE gl_start_date
,GLP.END_DATE gl_end_date
,PTA.TOT_RAW_COST tot_raw_cost
,PTA.TOT_QUANTITY tot_quantity
,PTA.TOT_REVENUE tot_revenue
FROM PA_TXN_ACCUM PTA
, PA_RESOURCE_ACCUM_DETAILS PRAD
, GL_PERIOD_STATUSES GLP
, PA_IMPLEMENTATIONS PAIMP
WHERE PRAD.PROJECT_ID = x_project_id
AND PRAD.RESOURCE_LIST_ID = x_resource_list_id
AND PRAD.TXN_ACCUM_ID = PTA.TXN_ACCUM_ID
AND PRAD.PROJECT_ID = PTA.PROJECT_ID
AND PTA.GL_PERIOD = GLP.PERIOD_NAME
AND GLP.SET_OF_BOOKS_ID = PAIMP.SET_OF_BOOKS_ID
AND GLP.APPLICATION_ID = pa_period_process_pkg.application_id
AND GLP.ADJUSTMENT_PERIOD_FLAG = 'N'
ORDER BY GLP.START_DATE;
SELECT DISTINCT
PTA.PA_PERIOD pa_period
,PAP.START_DATE pa_start_date
,PAP.END_DATE pa_end_date
,PTA.TOT_RAW_COST tot_raw_cost
,PTA.TOT_QUANTITY tot_quantity
,PTA.TOT_REVENUE tot_revenue
FROM PA_TXN_ACCUM PTA
, PA_RESOURCE_ACCUM_DETAILS PRAD
, PA_PERIODS PAP
, GL_PERIOD_STATUSES GLP
, PA_IMPLEMENTATIONS PAIMP
WHERE PRAD.PROJECT_ID = x_project_id
AND PRAD.RESOURCE_LIST_ID = x_resource_list_id
AND PRAD.TXN_ACCUM_ID = PTA.TXN_ACCUM_ID
AND PRAD.PROJECT_ID = PTA.PROJECT_ID
AND PTA.PA_PERIOD = PAP.PERIOD_NAME
AND PAP.GL_PERIOD_NAME = GLP.PERIOD_NAME
AND GLP.SET_OF_BOOKS_ID = PAIMP.SET_OF_BOOKS_ID
AND GLP.APPLICATION_ID = pa_period_process_pkg.application_id
AND GLP.ADJUSTMENT_PERIOD_FLAG = 'N'
ORDER BY PAP.START_DATE;
select decode( pai.accumulation_period_type, 'PA', pav.pa_end_date,
'GL', pav.gl_end_date )
into lcl_end_date
from PA_PERIODS_V pav, pa_implementations pai
where period_name = x_period_name;
select decode(paimp.accumulation_period_type, 'PA', pap.end_date,
'GL', glp.end_date)
into lcl_end_date
FROM PA_PERIODS PAP, GL_PERIOD_STATUSES GLP,
PA_IMPLEMENTATIONS PAIMP, PA_LOOKUPS PAL
WHERE PAP.GL_PERIOD_NAME = GLP.PERIOD_NAME
AND GLP.SET_OF_BOOKS_ID = PAIMP.SET_OF_BOOKS_ID
AND GLP.APPLICATION_ID = Pa_Period_Process_Pkg.Application_id
AND GLP.ADJUSTMENT_PERIOD_FLAG = 'N'
AND PAL.LOOKUP_TYPE = 'CLOSING STATUS'
AND PAL.LOOKUP_CODE = PAP.STATUS
AND PAP.current_pa_period_flag = 'Y' ;
SELECT
period_name,
gl_period_name
INTO
g_current_pa_period,
g_current_gl_period
FROM pa_periods
WHERE
current_pa_period_flag = 'Y';
SELECT
period_name
INTO
l_current_pa_period
FROM pa_periods
WHERE
current_pa_period_flag = 'Y';
SELECT
gl_period_name
INTO
l_current_gl_period
FROM pa_periods
WHERE
current_pa_period_flag = 'Y';
SELECT
PERIOD_NAME,
PERIOD_YEAR,
PA_START_DATE,
PA_END_DATE
INTO
x_prev_pa_period,
x_prev_pa_year,
x_prev_pa_start_date,
x_prev_pa_end_date
FROM
PA_PERIODS_V
WHERE pa_start_date =
(SELECT max(start_date)
FROM
pa_periods
WHERE start_date < x_current_pa_start_date);
SELECT
DISTINCT gl_period_name,
period_year,
gl_start_date,
gl_end_date
INTO
x_prev_gl_period,
x_prev_gl_year,
x_prev_gl_start_date,
x_prev_gl_end_date
FROM
pa_periods_v
WHERE
gl_start_date =
(SELECT max(gl_start_date)
FROM pa_periods_v
WHERE
gl_start_date < x_current_gl_start_date);
Select PERIOD_YEAR,PA_START_DATE,PA_END_DATE
into x_prev_accum_year,x_prev_accum_start_date,
x_prev_accum_end_date from
PA_PERIODS_V WHERE Period_name = x_prev_accum_period;
Select Distinct PERIOD_YEAR,GL_START_DATE,GL_END_DATE
into x_prev_accum_year,x_prev_accum_start_date,
x_prev_accum_end_date from
PA_PERIODS_V WHERE Gl_Period_name = x_prev_accum_period;
SELECT DISTINCT PERIOD_NAME
INTO x_prev_prev_accum_period
FROM
pa_periods_v
WHERE
pa_start_date =
(SELECT max(pa_start_date)
FROM pa_periods_v
WHERE pa_start_date < x_prev_accum_start_date);
SELECT DISTINCT GL_PERIOD_NAME
INTO x_prev_prev_accum_period
FROM
pa_periods_v
WHERE gl_start_date =
(SELECT max(gl_start_date)
FROM pa_periods_v
WHERE gl_start_date < x_prev_accum_start_date);