1: PACKAGE BODY PA_Resource_list_uses_Pkg AS
2: /* $Header: PARLUSTB.pls 120.2 2005/08/31 11:47:15 ramurthy noship $ */
3: -- Standard Table Handler procedures for PA_RESOURCE_LIST_USES table
4:
5: PROCEDURE Insert_row (X_ROW_ID IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
1: PACKAGE BODY PA_Resource_list_uses_Pkg AS
2: /* $Header: PARLUSTB.pls 120.2 2005/08/31 11:47:15 ramurthy noship $ */
3: -- Standard Table Handler procedures for PA_RESOURCE_LIST_USES table
4:
5: PROCEDURE Insert_row (X_ROW_ID IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
6: X_RESOURCE_LIST_ASSIGNMENT_ID NUMBER,
7: X_USE_CODE VARCHAR2,
11: X_CREATION_DATE DATE,
12: X_CREATED_BY NUMBER,
13: X_LAST_UPDATE_LOGIN NUMBER ) Is
14:
15: CURSOR RES_LIST_USES_CUR IS Select Rowid from PA_RESOURCE_LIST_USES
16: Where Resource_List_Assignment_Id = X_Resource_List_Assignment_Id And
17: Use_Code = X_Use_Code;
18: BEGIN
19: Insert into PA_RESOURCE_LIST_USES (
15: CURSOR RES_LIST_USES_CUR IS Select Rowid from PA_RESOURCE_LIST_USES
16: Where Resource_List_Assignment_Id = X_Resource_List_Assignment_Id And
17: Use_Code = X_Use_Code;
18: BEGIN
19: Insert into PA_RESOURCE_LIST_USES (
20: RESOURCE_LIST_ASSIGNMENT_ID,
21: USE_CODE,
22: DEFAULT_FLAG,
23: LAST_UPDATED_BY,
56: X_LAST_UPDATE_DATE DATE,
57: X_LAST_UPDATE_LOGIN NUMBER ) IS
58: BEGIN
59:
60: Update PA_RESOURCE_LIST_USES
61: SET
62: USE_CODE = X_USE_CODE,
63: DEFAULT_FLAG = X_DEFAULT_FLAG,
64: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
75: X_USE_CODE VARCHAR2,
76: X_DEFAULT_FLAG VARCHAR2) Is
77:
78: CURSOR C Is
79: Select * From PA_RESOURCE_LIST_USES WHERE ROWID = X_ROW_ID
80: For Update of RESOURCE_LIST_ASSIGNMENT_ID NOWAIT;
81: Recinfo C%ROWTYPE;
82: Begin
83: OPEN C;
102: End Lock_Row;
103:
104: Procedure Delete_Row (X_ROW_ID IN VARCHAR2) Is
105: Begin
106: Delete from PA_RESOURCE_LIST_USES Where RowId = X_Row_Id;
107: If SQL%NOTFOUND Then
108: Raise NO_DATA_FOUND;
109: End If;
110: End Delete_Row;
107: If SQL%NOTFOUND Then
108: Raise NO_DATA_FOUND;
109: End If;
110: End Delete_Row;
111: End PA_Resource_list_uses_Pkg;