[Home] [Help]
1: PACKAGE BODY PA_Res_list_Assignment_Pkg AS
2: /* $Header: PARLASTB.pls 120.2 2005/08/31 11:46:55 ramurthy noship $ */
3: -- Standard Table Handler procedures for PA_RESOURCE_LIST_ASSIGNMENTS table
4: PROCEDURE Insert_row (X_ROW_ID IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
5: X_RESOURCE_LIST_ASSIGNMENT_ID NUMBER,
6: X_RESOURCE_LIST_ID NUMBER,
7: X_PROJECT_ID NUMBER,
11: X_CREATION_DATE DATE,
12: X_CREATED_BY NUMBER,
13: X_LAST_UPDATE_LOGIN NUMBER ) IS
14:
15: CURSOR RES_LIST_ASSGMT_CUR IS Select Rowid from PA_RESOURCE_LIST_ASSIGNMENTS
16: Where Resource_List_Assignment_Id = X_Resource_List_Assignment_Id;
17: BEGIN
18: Insert into PA_RESOURCE_LIST_ASSIGNMENTS (
19: RESOURCE_LIST_ASSIGNMENT_ID,
14:
15: CURSOR RES_LIST_ASSGMT_CUR IS Select Rowid from PA_RESOURCE_LIST_ASSIGNMENTS
16: Where Resource_List_Assignment_Id = X_Resource_List_Assignment_Id;
17: BEGIN
18: Insert into PA_RESOURCE_LIST_ASSIGNMENTS (
19: RESOURCE_LIST_ASSIGNMENT_ID,
20: RESOURCE_LIST_ID,
21: PROJECT_ID,
22: RESOURCE_LIST_CHANGED_FLAG,
55: X_LAST_UPDATE_LOGIN NUMBER ) Is
56:
57: BEGIN
58:
59: Update PA_RESOURCE_LIST_ASSIGNMENTS
60: SET
61: RESOURCE_LIST_CHANGED_FLAG = X_RESOURCE_LIST_CHANGED_FLAG,
62: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
63: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
73: X_RESOURCE_LIST_ID NUMBER,
74: X_RESOURCE_LIST_CHANGED_FLAG VARCHAR2 ) Is
75:
76: CURSOR C Is
77: Select * From PA_RESOURCE_LIST_ASSIGNMENTS WHERE ROWID = X_ROW_ID
78: For Update of RESOURCE_LIST_ASSIGNMENT_ID NOWAIT;
79: Recinfo C%ROWTYPE;
80: Begin
81: OPEN C;
99: End Lock_Row;
100:
101: Procedure Delete_Row (X_ROW_ID IN VARCHAR2) Is
102: Begin
103: Delete from PA_RESOURCE_LIST_ASSIGNMENTS Where RowId = X_Row_Id;
104: If SQL%NOTFOUND Then
105: Raise NO_DATA_FOUND;
106: End If;
107: End Delete_Row;