[Home] [Help]
PACKAGE BODY: APPS.PA_RES_LIST_ASSIGNMENT_PKG
Source
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,
8 X_RESOURCE_LIST_CHANGED_FLAG VARCHAR2,
9 X_LAST_UPDATED_BY NUMBER,
10 X_LAST_UPDATE_DATE DATE,
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,
20 RESOURCE_LIST_ID,
21 PROJECT_ID,
22 RESOURCE_LIST_CHANGED_FLAG,
23 LAST_UPDATED_BY,
24 LAST_UPDATE_DATE,
25 CREATION_DATE,
26 CREATED_BY,
27 LAST_UPDATE_LOGIN)
28 Values
29 (X_RESOURCE_LIST_ASSIGNMENT_ID,
30 X_RESOURCE_LIST_ID,
31 X_PROJECT_ID,
32 X_RESOURCE_LIST_CHANGED_FLAG,
33 X_LAST_UPDATED_BY,
34 X_LAST_UPDATE_DATE,
35 X_CREATION_DATE,
36 X_CREATED_BY,
37 X_LAST_UPDATE_LOGIN);
38
39 Open RES_LIST_ASSGMT_CUR;
40 Fetch RES_LIST_ASSGMT_CUR Into X_Row_Id;
41 If (RES_LIST_ASSGMT_CUR%NOTFOUND) then
42 Close RES_LIST_ASSGMT_CUR;
43 Raise NO_DATA_FOUND;
44 End If;
45 Close RES_LIST_ASSGMT_CUR;
46 Exception
47 When Others Then
48 FND_MESSAGE.SET_NAME('PA' ,SQLERRM);
49 APP_EXCEPTION.RAISE_EXCEPTION;
50 END Insert_Row;
51 PROCEDURE Update_Row (X_ROW_ID IN VARCHAR2,
52 X_RESOURCE_LIST_CHANGED_FLAG VARCHAR2,
53 X_LAST_UPDATED_BY NUMBER,
54 X_LAST_UPDATE_DATE DATE,
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,
64 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
65 Where ROWID = X_ROW_ID;
66 If SQL%NOTFOUND Then
67 Raise NO_DATA_FOUND;
68 End If;
69 END Update_Row;
70
71 Procedure Lock_Row (X_ROW_ID IN VARCHAR2,
72 X_RESOURCE_LIST_ASSIGNMENT_ID NUMBER,
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;
82 FETCH C INTO Recinfo;
83 If (C%NOTFOUND) THEN
84 Close C;
85 FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');
86 APP_EXCEPTION.RAISE_EXCEPTION;
87 END If;
88 CLOSE C;
89 IF (
90 (X_RESOURCE_LIST_ID = Recinfo.RESOURCE_LIST_ID) AND
91 (X_RESOURCE_LIST_CHANGED_FLAG = Recinfo.RESOURCE_LIST_CHANGED_FLAG) )
92 Then
93 Return;
94 Else
95 FND_MESSAGE.SET_NAME('FND','FORM_RECORD_CHANGED');
96 APP_EXCEPTION.RAISE_EXCEPTION;
97 END If;
98
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;
108 End PA_Res_list_Assignment_Pkg;