[Home] [Help]
PACKAGE BODY: APPS.PA_ROLE_LISTS_PKG
Source
1 package body PA_ROLE_LISTS_PKG as
2 /*$Header: PAROLSTB.pls 120.2 2005/08/22 02:50:56 raluthra noship $*/
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
6 X_ROLE_LIST_ID NUMBER,
7 X_NAME VARCHAR2,
8 X_START_DATE_ACTIVE DATE,
9 X_END_DATE_ACTIVE DATE,
10 X_DESCRIPTION VARCHAR2,
11 X_ATTRIBUTE_CATEGORY VARCHAR2,
12 X_ATTRIBUTE1 VARCHAR2,
13 X_ATTRIBUTE2 VARCHAR2,
14 X_ATTRIBUTE3 VARCHAR2,
15 X_ATTRIBUTE4 VARCHAR2,
16 X_ATTRIBUTE5 VARCHAR2,
17 X_ATTRIBUTE6 VARCHAR2,
18 X_ATTRIBUTE7 VARCHAR2,
19 X_ATTRIBUTE8 VARCHAR2,
20 X_ATTRIBUTE9 VARCHAR2,
21 X_ATTRIBUTE10 VARCHAR2,
22 X_ATTRIBUTE11 VARCHAR2,
23 X_ATTRIBUTE12 VARCHAR2,
24 X_ATTRIBUTE13 VARCHAR2,
25 X_ATTRIBUTE14 VARCHAR2,
26 X_ATTRIBUTE15 VARCHAR2,
27 X_CREATION_DATE DATE,
28 X_CREATED_BY NUMBER,
29 X_LAST_UPDATE_DATE DATE,
30 X_LAST_UPDATED_BY NUMBER,
31 X_LAST_UPDATE_LOGin NUMBER
32 ) is
33 cursor C is select ROWID from PA_ROLE_LISTS
34 where ROLE_LIST_ID = X_ROLE_LIST_ID
35 ;
36
37 l_rowid ROWID; -- Bug 4565156. Added for Manual NOCOPY Fix.
38 begin
39 l_rowid := X_ROWID; -- Bug 456156. Storing original value that was passed in.
40
41 insert into PA_ROLE_LISTS (
42 ROLE_LIST_ID,
43 NAME,
44 START_DATE_ACTIVE,
45 END_DATE_ACTIVE,
46 DESCRIPTION,
47 ATTRIBUTE_CATEGORY,
48 ATTRIBUTE1,
49 ATTRIBUTE2,
50 ATTRIBUTE3,
51 ATTRIBUTE4,
52 ATTRIBUTE5,
53 ATTRIBUTE6,
54 ATTRIBUTE7,
55 ATTRIBUTE8,
56 ATTRIBUTE9,
57 ATTRIBUTE10,
58 ATTRIBUTE11,
59 ATTRIBUTE12,
60 ATTRIBUTE13,
61 ATTRIBUTE14,
62 ATTRIBUTE15,
63 CREATION_DATE,
64 CREATED_BY,
65 LAST_UPDATE_DATE,
66 LAST_UPDATED_BY,
67 LAST_UPDATE_LOGIN,
68 RECORD_VERSION_NUMBER
69 )VALUES (
70 X_ROLE_LIST_ID,
71 X_NAME,
72 X_START_DATE_ACTIVE,
73 X_END_DATE_ACTIVE,
74 X_DESCRIPTION,
75 X_ATTRIBUTE_CATEGORY,
76 X_ATTRIBUTE1,
77 X_ATTRIBUTE2,
78 X_ATTRIBUTE3,
79 X_ATTRIBUTE4,
80 X_ATTRIBUTE5,
81 X_ATTRIBUTE6,
82 X_ATTRIBUTE7,
83 X_ATTRIBUTE8,
84 X_ATTRIBUTE9,
85 X_ATTRIBUTE10,
86 X_ATTRIBUTE11,
87 X_ATTRIBUTE12,
88 X_ATTRIBUTE13,
89 X_ATTRIBUTE14,
90 X_ATTRIBUTE15,
91 X_CREATION_DATE,
92 X_CREATED_BY,
93 X_LAST_UPDATE_DATE,
94 X_LAST_UPDATED_BY,
95 X_LAST_UPDATE_LOGIN,
96 1
97 );
98
99 open c;
100 fetch c into X_ROWID;
101 if (c%notfound) then
102 close c;
103 X_ROWID := l_rowid; -- Bug 4565156. Resetting to original value since NO_DATA_FOUND Exception.
104 raise no_data_found;
105 end if;
106 close c;
107 end INSERT_ROW;
108
109
110 procedure LOCK_ROW (
111 X_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
112 X_RECORD_VERSION_NUMBER NUMBER
113 ) is
114 cursor c is
115 select *
116 from PA_ROLE_LISTS
117 where ROWID = X_ROWID
118 for update of ROLE_LIST_ID nowait;
119
120 tlinfo c%rowtype;
121 begin
122 Open c;
123 Fetch c into tlinfo;
124 if (c%notfound) then
125 close c;
126 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
127 app_exception.raise_exception;
128 end if;
129 close c;
130
131 if ((tlinfo.RECORD_VERSION_NUMBER = X_RECORD_VERSION_NUMBER)
132 OR ((tlinfo.RECORD_VERSION_NUMBER is null)
133 AND (X_RECORD_VERSION_NUMBER is null))
134 ) then
135 null;
136 else
137 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
138 app_exception.raise_exception;
139 end if;
140 end LOCK_ROW;
141
142
143 procedure UPDATE_ROW (
144 X_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
145 X_ROLE_LIST_ID NUMBER,
146 X_NAME VARCHAR2,
147 X_START_DATE_ACTIVE DATE,
148 X_END_DATE_ACTIVE DATE,
149 X_DESCRIPTION VARCHAR2,
150 X_ATTRIBUTE_CATEGORY VARCHAR2,
151 X_ATTRIBUTE1 VARCHAR2,
152 X_ATTRIBUTE2 VARCHAR2,
153 X_ATTRIBUTE3 VARCHAR2,
154 X_ATTRIBUTE4 VARCHAR2,
155 X_ATTRIBUTE5 VARCHAR2,
156 X_ATTRIBUTE6 VARCHAR2,
157 X_ATTRIBUTE7 VARCHAR2,
158 X_ATTRIBUTE8 VARCHAR2,
159 X_ATTRIBUTE9 VARCHAR2,
160 X_ATTRIBUTE10 VARCHAR2,
161 X_ATTRIBUTE11 VARCHAR2,
162 X_ATTRIBUTE12 VARCHAR2,
163 X_ATTRIBUTE13 VARCHAR2,
164 X_ATTRIBUTE14 VARCHAR2,
165 X_ATTRIBUTE15 VARCHAR2,
166 X_CREATION_DATE DATE,
167 X_CREATED_BY NUMBER,
168 X_LAST_UPDATE_DATE DATE,
169 X_LAST_UPDATED_BY NUMBER,
170 X_LAST_UPDATE_LOGIN NUMBER
171 ) is
172 begin
173 update PA_ROLE_LISTS set
174 ROLE_LIST_ID = X_ROLE_LIST_ID,
175 NAME = X_NAME,
176 START_DATE_ACTIVE = X_START_DATE_ACTIVE,
177 END_DATE_ACTIVE = X_END_DATE_ACTIVE,
178 DESCRIPTION = X_DESCRIPTION,
179 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
180 ATTRIBUTE1 = X_ATTRIBUTE1,
181 ATTRIBUTE2 = X_ATTRIBUTE2,
182 ATTRIBUTE3 = X_ATTRIBUTE3,
183 ATTRIBUTE4 = X_ATTRIBUTE4,
184 ATTRIBUTE5 = X_ATTRIBUTE5,
185 ATTRIBUTE6 = X_ATTRIBUTE6,
186 ATTRIBUTE7 = X_ATTRIBUTE7,
187 ATTRIBUTE8 = X_ATTRIBUTE8,
188 ATTRIBUTE9 = X_ATTRIBUTE9,
189 ATTRIBUTE10 = X_ATTRIBUTE10,
190 ATTRIBUTE11 = X_ATTRIBUTE11,
191 ATTRIBUTE12 = X_ATTRIBUTE12,
192 ATTRIBUTE13 = X_ATTRIBUTE13,
193 ATTRIBUTE14 = X_ATTRIBUTE14,
194 ATTRIBUTE15 = X_ATTRIBUTE15,
195 CREATION_DATE = X_CREATION_DATE,
196 CREATED_BY = X_CREATED_BY,
197 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
198 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
199 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
200 RECORD_VERSION_NUMBER = RECORD_VERSION_NUMBER + 1
201 where ROWID = X_ROWID;
202
203 if (sql%notfound) then
204 raise no_data_found;
205 end if;
206 end UPDATE_ROW;
207
208
209 procedure DELETE_ROW (
210 X_ROWID VARCHAR2
211 ) is
212 begin
213 delete from PA_ROLE_LISTS
214 where ROWID = X_ROWID;
215
216 if (sql%notfound) then
217 raise no_data_found;
218 end if;
219 end DELETE_ROW;
220
221 end PA_ROLE_LISTS_PKG;