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_USE_CODE VARCHAR2,
X_DEFAULT_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_USES_CUR IS Select Rowid from PA_RESOURCE_LIST_USES
Where Resource_List_Assignment_Id = X_Resource_List_Assignment_Id And
Use_Code = X_Use_Code;
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_ASSIGNMENT_ID,
X_USE_CODE,
X_DEFAULT_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_USE_CODE VARCHAR2,
X_DEFAULT_FLAG VARCHAR2,
X_LAST_UPDATED_BY NUMBER,
X_LAST_UPDATE_DATE DATE,
X_LAST_UPDATE_LOGIN NUMBER ) IS
BEGIN
Update PA_RESOURCE_LIST_USES
SET
USE_CODE = X_USE_CODE,
DEFAULT_FLAG = X_DEFAULT_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_USES 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_USES Where RowId = X_Row_Id;
End Delete_Row;