The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_row (X_ROW_ID IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
X_RESOURCE_LIST_ASSIGNMENT_ID NUMBER,
X_RESOURCE_LIST_ID NUMBER,
X_PROJECT_ID NUMBER,
X_RESOURCE_LIST_CHANGED_FLAG VARCHAR2,
X_LAST_UPDATED_BY NUMBER,
X_LAST_UPDATE_DATE DATE,
X_CREATION_DATE DATE,
X_CREATED_BY NUMBER,
X_LAST_UPDATE_LOGIN NUMBER ) IS
CURSOR RES_LIST_ASSGMT_CUR IS Select Rowid from PA_RESOURCE_LIST_ASSIGNMENTS
Where Resource_List_Assignment_Id = X_Resource_List_Assignment_Id;
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)
Values
(X_RESOURCE_LIST_ASSIGNMENT_ID,
X_RESOURCE_LIST_ID,
X_PROJECT_ID,
X_RESOURCE_LIST_CHANGED_FLAG,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_DATE,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_LOGIN);
END Insert_Row;
PROCEDURE Update_Row (X_ROW_ID IN VARCHAR2,
X_RESOURCE_LIST_CHANGED_FLAG VARCHAR2,
X_LAST_UPDATED_BY NUMBER,
X_LAST_UPDATE_DATE DATE,
X_LAST_UPDATE_LOGIN NUMBER ) Is
BEGIN
Update PA_RESOURCE_LIST_ASSIGNMENTS
SET
RESOURCE_LIST_CHANGED_FLAG = X_RESOURCE_LIST_CHANGED_FLAG,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
Where ROWID = X_ROW_ID;
END Update_Row;
Select * From PA_RESOURCE_LIST_ASSIGNMENTS WHERE ROWID = X_ROW_ID
For Update of RESOURCE_LIST_ASSIGNMENT_ID NOWAIT;
FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');
Procedure Delete_Row (X_ROW_ID IN VARCHAR2) Is
Begin
Delete from PA_RESOURCE_LIST_ASSIGNMENTS Where RowId = X_Row_Id;
End Delete_Row;