The following lines contain the word 'select', 'insert', 'update' or 'delete':
Select Project_Id from Pa_Projects_all -- changed for bug 6743458
where Project_id = X_Project_Id;
Select End_Date_Active from PA_RESOURCE_LISTS
where Resource_list_Id = X_Resource_List_id;
x_err_stage := 'Select Project_id from Pa_Projects '||
To_Char(X_project_id);
x_err_stage := 'Select End_date_Active from Pa_Resource_lists '||
To_Char(X_resource_list_id);
x_err_stage := 'Select pa_resource_list_assignments_s.nextval';
Select Pa_Resource_list_Assignments_s.nextval into W_num
from Dual;
x_err_stage := 'Insert into Pa_Resource_list_assignments ';
Insert into Pa_Resource_list_Assignments
(RESOURCE_LIST_ASSIGNMENT_ID,RESOURCE_LIST_ID,PROJECT_ID,
RESOURCE_LIST_CHANGED_FLAG,LAST_UPDATED_BY,LAST_UPDATE_DATE,
CREATION_DATE,CREATED_BY,LAST_UPDATE_LOGIN,
RESOURCE_LIST_ACCUMULATED_FLAG) Values
(W_Num,X_Resource_list_id,X_project_id,'N',Nvl(W_user_id,-1),
Trunc(Sysdate),Trunc(Sysdate),
Nvl(W_user_id ,-1),Nvl(W_login_id,-1),'N');
Select Resource_list_Assignment_Id from PA_RESOURCE_LIST_ASSIGNMENTS
where Resource_list_Id = X_Resource_List_id and
Project_id = X_Project_id;
x_err_stage := ' Select Resource_List_Assignment_id from '||
' PA_RESOURCE_LIST_ASSIGNMENTS '||
To_Char(X_Resource_List_Id);
W_insert_Flag Char(1) := 'N';
W_Update_Flag Char(1) := 'N';
Select Project_id,Resource_list_Id from
PA_RESOURCE_LIST_ASSIGNMENTS
Where Resource_list_Assignment_Id = X_Resource_list_Assgmt_id;
Select Budget_Type_Yn from PA_RESOURCE_LIST_USE_CODES_V where
List_Use_Code = X_Use_Code;
Select Row_id,Resource_List_Id
from Pa_Resource_list_uses_v where Project_id = X_Project_id and
Use_Code = X_Use_Code ;
x_err_stage := 'Select Project_id,Resource_list_Id '||
' from Pa_Resource_list_Assignments '||
To_Char(X_Resource_list_Assgmt_id);
x_err_stage := 'Select Budget_Type_Yn from '||
' PA_RESOURCE_LIST_USE_CODES_V '||
To_Char(W_Asgmt_Res_list_id);
x_err_stage := ' Select Row_id,Resource_List_id from '||
' PA_RESOURCE_LIST_ASSIGNMENTS '||
To_Char(X_Project_Id);
W_insert_flag := 'Y';
x_err_stage := ' Update Pa_Resource_List_Uses ';
Update Pa_Resource_List_uses
Set Resource_list_Assignment_id =
X_Resource_list_Assgmt_id
Where RowId = W_Row_Id;
W_Insert_Flag := 'Y';
If W_Insert_Flag = 'Y' Then
x_err_stage := ' Insert into Pa_Resource_List_Uses ';
Insert into Pa_Resource_list_uses
(RESOURCE_LIST_ASSIGNMENT_ID,USE_CODE,DEFAULT_FLAG,
LAST_UPDATED_BY,LAST_UPDATE_DATE,
CREATION_DATE,CREATED_BY,LAST_UPDATE_LOGIN) Values
(X_Resource_list_Assgmt_id,X_Use_Code,'N',
Nvl(W_user_id,-1), Trunc(Sysdate),
Trunc(Sysdate),Nvl(W_user_id,-1),Nvl(W_login_id,-1));
Procedure Delete_Rl_Uses (X_Resource_list_Assgmt_id In Number,
X_Use_Code IN Varchar2,
X_err_code IN Out NOCOPY Number, --File.Sql.39 bug 4440895
X_err_stage IN Out NOCOPY Varchar2, --File.Sql.39 bug 4440895
x_err_stack IN Out NOCOPY Varchar2 ) Is --File.Sql.39 bug 4440895
W_Assgmt_Id Number := 0;
Select Resource_list_Assignment_Id from PA_RESOURCE_LIST_USES_V
where Resource_list_Assignment_id = X_Resource_list_Assgmt_id;
X_err_stack := X_err_stack ||'->PA_RES_LIST_ASSIGNMENTS.Delete_Rl_Uses';
x_err_stage := ' Delete from PA_RESOURCE_LIST_USES';
Delete from PA_RESOURCE_LIST_USES Where
Resource_List_Assignment_id = X_Resource_list_Assgmt_id and
Use_Code = X_Use_Code;
' Select Resource_list_Assignment_Id from PA_RESOURCE_LIST_USES_V '
|| To_Char(X_Resource_list_Assgmt_id);
x_err_stage := 'Delete from Pa_Resource_list_assignments ';
Delete from PA_RESOURCE_LIST_ASSIGNMENTS where
RESOURCE_LIST_ASSIGNMENT_ID = X_Resource_list_Assgmt_id;
Procedure Delete_Rl_Assgmt(X_Resource_list_Assgmt_id In Number,
X_err_code IN Out NOCOPY Number, --File.Sql.39 bug 4440895
X_err_stage IN Out NOCOPY Varchar2, --File.Sql.39 bug 4440895
x_err_stack IN Out NOCOPY Varchar2 ) Is --File.Sql.39 bug 4440895
W_Assgmt_Id Number := 0;
Select Resource_list_Assignment_Id from PA_RESOURCE_LIST_USES
where Resource_list_Assignment_id = X_Resource_list_Assgmt_id;
X_err_stack := X_err_stack ||'->PA_RES_LIST_ASSIGNMENTS.Delete_Rl_Asgmt';
' Select Resource_list_Assignment_Id from PA_RESOURCE_LIST_USES '
|| To_Char(X_Resource_list_Assgmt_id);
x_err_stage := 'Delete from Pa_Resource_list_assignments ';
Delete from PA_RESOURCE_LIST_ASSIGNMENTS where
RESOURCE_LIST_ASSIGNMENT_ID = X_Resource_list_Assgmt_id;