[Home] [Help]
PACKAGE BODY: APPS.PA_RESOURCE_LIST_USES_PKG
Source
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,
8 X_DEFAULT_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_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,
24 LAST_UPDATE_DATE,
25 CREATION_DATE,
26 CREATED_BY,
27 LAST_UPDATE_LOGIN)
28 Values
29 (X_RESOURCE_LIST_ASSIGNMENT_ID,
30 X_USE_CODE,
31 X_DEFAULT_FLAG,
32 X_LAST_UPDATED_BY,
33 X_LAST_UPDATE_DATE,
34 X_CREATION_DATE,
35 X_CREATED_BY,
36 X_LAST_UPDATE_LOGIN);
37
38 Open RES_LIST_USES_CUR;
39 Fetch RES_LIST_USES_CUR Into X_Row_Id;
40 If (RES_LIST_USES_CUR%NOTFOUND) then
41 Close RES_LIST_USES_CUR;
42 Raise NO_DATA_FOUND;
43 End If;
44 Close RES_LIST_USES_CUR;
45 Exception
46 When Others Then
47 FND_MESSAGE.SET_NAME('PA' ,SQLERRM);
48 APP_EXCEPTION.RAISE_EXCEPTION;
49 END Insert_Row;
50
51
52 PROCEDURE Update_Row (X_ROW_ID IN VARCHAR2,
53 X_USE_CODE VARCHAR2,
54 X_DEFAULT_FLAG VARCHAR2,
55 X_LAST_UPDATED_BY NUMBER,
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,
65 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
66 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
67 Where ROWID = X_ROW_ID;
68 If SQL%NOTFOUND Then
69 Raise NO_DATA_FOUND;
70 End If;
71 END Update_Row;
72
73 Procedure Lock_Row (X_ROW_ID IN VARCHAR2,
74 X_RESOURCE_LIST_ASSIGNMENT_ID NUMBER,
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;
84 FETCH C INTO Recinfo;
85 If (C%NOTFOUND) THEN
86 Close C;
87 FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');
88 APP_EXCEPTION.RAISE_EXCEPTION;
89 END If;
90 CLOSE C;
91 IF (
92 (X_RESOURCE_LIST_ASSIGNMENT_ID = Recinfo.RESOURCE_LIST_ASSIGNMENT_ID) AND
93 (X_DEFAULT_FLAG = Recinfo.DEFAULT_FLAG) AND
94 (X_USE_CODE = Recinfo.USE_CODE ) )
95 Then
96 return;
97 Else
98 FND_MESSAGE.SET_NAME('FND','FORM_RECORD_CHANGED');
99 APP_EXCEPTION.RAISE_EXCEPTION;
100 END If;
101
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;
111 End PA_Resource_list_uses_Pkg;