[Home] [Help]
PACKAGE BODY: APPS.QP_RLTD_MODIFIER_PVT
Source
1 PACKAGE BODY QP_RLTD_MODIFIER_PVT as
2 /* $Header: QPXVRMDB.pls 120.1 2005/06/16 00:29:56 appldev $ */
3
4 PROCEDURE Insert_Row(
5 X_RLTD_MODIFIER_ID IN OUT NOCOPY /* file.sql.39 change */ NUMBER
6 , X_CREATION_DATE DATE
7 , X_CREATED_BY NUMBER
8 , X_LAST_UPDATE_DATE DATE
9 , X_LAST_UPDATED_BY NUMBER
10 , X_LAST_UPDATE_LOGIN NUMBER
11 , X_RLTD_MODIFIER_GRP_NO NUMBER
12 , X_FROM_RLTD_MODIFIER_ID NUMBER
13 , X_TO_RLTD_MODIFIER_ID NUMBER
14 , X_RLTD_MODIFIER_GRP_TYPE VARCHAR2
15 , X_CONTEXT VARCHAR2
16 , X_ATTRIBUTE1 VARCHAR2
17 , X_ATTRIBUTE2 VARCHAR2
18 , X_ATTRIBUTE3 VARCHAR2
19 , X_ATTRIBUTE4 VARCHAR2
20 , X_ATTRIBUTE5 VARCHAR2
21 , X_ATTRIBUTE6 VARCHAR2
22 , X_ATTRIBUTE7 VARCHAR2
23 , X_ATTRIBUTE8 VARCHAR2
24 , X_ATTRIBUTE9 VARCHAR2
25 , X_ATTRIBUTE10 VARCHAR2
26 , X_ATTRIBUTE11 VARCHAR2
27 , X_ATTRIBUTE12 VARCHAR2
28 , X_ATTRIBUTE13 VARCHAR2
29 , X_ATTRIBUTE14 VARCHAR2
30 , X_ATTRIBUTE15 VARCHAR2
31 ) IS
32
33 cursor C is select RLTD_MODIFIER_ID from QP_RLTD_MODIFIERS
34 where RLTD_MODIFIER_ID = X_RLTD_MODIFIER_ID;
35
36
37
38 BEGIN
39
40
41 insert into QP_RLTD_MODIFIERS
42 (
43 RLTD_MODIFIER_ID
44 , CREATION_DATE
45 , CREATED_BY
46 , LAST_UPDATE_DATE
47 , LAST_UPDATED_BY
48 , LAST_UPDATE_LOGIN
49 , RLTD_MODIFIER_GRP_NO
50 , FROM_RLTD_MODIFIER_ID
51 , TO_RLTD_MODIFIER_ID
52 , RLTD_MODIFIER_GRP_TYPE
53 , CONTEXT
54 , ATTRIBUTE1
55 , ATTRIBUTE2
56 , ATTRIBUTE3
57 , ATTRIBUTE4
58 , ATTRIBUTE5
59 , ATTRIBUTE6
60 , ATTRIBUTE7
61 , ATTRIBUTE8
62 , ATTRIBUTE9
63 , ATTRIBUTE10
64 , ATTRIBUTE11
65 , ATTRIBUTE12
66 , ATTRIBUTE13
67 , ATTRIBUTE14
68 , ATTRIBUTE15
69 )
70 values
71 (
72 X_RLTD_MODIFIER_ID
73 , X_CREATION_DATE
74 , X_CREATED_BY
75 , X_LAST_UPDATE_DATE
76 , X_LAST_UPDATED_BY
77 , X_LAST_UPDATE_LOGIN
78 , X_RLTD_MODIFIER_GRP_NO
79 , X_FROM_RLTD_MODIFIER_ID
80 , X_TO_RLTD_MODIFIER_ID
81 , X_RLTD_MODIFIER_GRP_TYPE
82 , X_CONTEXT
83 , X_ATTRIBUTE1
84 , X_ATTRIBUTE2
85 , X_ATTRIBUTE3
86 , X_ATTRIBUTE4
87 , X_ATTRIBUTE5
88 , X_ATTRIBUTE6
89 , X_ATTRIBUTE7
90 , X_ATTRIBUTE8
91 , X_ATTRIBUTE9
92 , X_ATTRIBUTE10
93 , X_ATTRIBUTE11
94 , X_ATTRIBUTE12
95 , X_ATTRIBUTE13
96 , X_ATTRIBUTE14
97 , X_ATTRIBUTE15
98 );
99
100 open C;
101
102 fetch C into X_RLTD_MODIFIER_ID;
103 if (C%notfound) then
104 close C;
105 raise NO_DATA_FOUND;
106 end if;
107 close C;
108 end Insert_Row;
109
110 PROCEDURE Lock_Row(
111 X_RLTD_MODIFIER_ID IN OUT NOCOPY /* file.sql.39 change */ NUMBER
112 , X_CREATION_DATE DATE
113 , X_CREATED_BY NUMBER
114 , X_LAST_UPDATE_DATE DATE
115 , X_LAST_UPDATED_BY NUMBER
116 , X_LAST_UPDATE_LOGIN NUMBER
117 , X_RLTD_MODIFIER_GRP_NO NUMBER
118 , X_FROM_RLTD_MODIFIER_ID NUMBER
119 , X_TO_RLTD_MODIFIER_ID NUMBER
120 , X_RLTD_MODIFIER_GRP_TYPE VARCHAR2
121 , X_CONTEXT VARCHAR2
122 , X_ATTRIBUTE1 VARCHAR2
123 , X_ATTRIBUTE2 VARCHAR2
124 , X_ATTRIBUTE3 VARCHAR2
125 , X_ATTRIBUTE4 VARCHAR2
126 , X_ATTRIBUTE5 VARCHAR2
127 , X_ATTRIBUTE6 VARCHAR2
128 , X_ATTRIBUTE7 VARCHAR2
129 , X_ATTRIBUTE8 VARCHAR2
130 , X_ATTRIBUTE9 VARCHAR2
131 , X_ATTRIBUTE10 VARCHAR2
132 , X_ATTRIBUTE11 VARCHAR2
133 , X_ATTRIBUTE12 VARCHAR2
134 , X_ATTRIBUTE13 VARCHAR2
135 , X_ATTRIBUTE14 VARCHAR2
136 , X_ATTRIBUTE15 VARCHAR2
137 ) IS
138
139
140 cursor C is select * from QP_RLTD_MODIFIERS
141 where RLTD_MODIFIER_ID = X_RLTD_MODIFIER_ID
142 for update of RLTD_MODIFIER_ID nowait;
143 Recinfo C%ROWTYPE;
144
145
146 BEGIN
147
148 open C;
149
150 fetch C into Recinfo;
151
152 if (C%notfound) then
153
154 close C;
155 FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
156 APP_EXCEPTION.Raise_Exception;
157
158 end if;
159
160 close C;
161
162 if (
163 ( Recinfo.RLTD_MODIFIER_ID = X_RLTD_MODIFIER_ID )
164
165 AND ( ( Recinfo.CREATION_DATE = X_CREATION_DATE )
166 OR ( (Recinfo.CREATION_DATE IS NULL)
167 AND (X_CREATION_DATE IS NULL)))
168
169 AND ( ( Recinfo.CREATED_BY = X_CREATED_BY)
170 OR ( (Recinfo.CREATED_BY IS NULL)
171 AND (X_CREATED_BY IS NULL)))
172
173 AND ( ( Recinfo.LAST_UPDATE_DATE = X_LAST_UPDATE_DATE)
174 OR ( (Recinfo.LAST_UPDATE_DATE IS NULL)
175 AND (X_LAST_UPDATE_DATE IS NULL)))
176
177 AND ( ( Recinfo.LAST_UPDATED_BY = X_LAST_UPDATED_BY)
178 OR ( (Recinfo.LAST_UPDATED_BY IS NULL)
179 AND (X_LAST_UPDATED_BY IS NULL)))
180
181 AND ( ( Recinfo.LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN)
182 OR ( (Recinfo.LAST_UPDATE_LOGIN IS NULL)
183 AND (X_LAST_UPDATE_LOGIN IS NULL)))
184
185 AND ( ( Recinfo.RLTD_MODIFIER_GRP_NO = X_RLTD_MODIFIER_GRP_NO )
186 OR ( (Recinfo.RLTD_MODIFIER_GRP_NO IS NULL)
187 AND (X_RLTD_MODIFIER_GRP_NO IS NULL)))
188
189 AND ( ( Recinfo.FROM_RLTD_MODIFIER_ID = X_FROM_RLTD_MODIFIER_ID )
190 OR ( (Recinfo.FROM_RLTD_MODIFIER_ID IS NULL)
191 AND (X_FROM_RLTD_MODIFIER_ID IS NULL)))
192
193 AND ( ( Recinfo.TO_RLTD_MODIFIER_ID = X_TO_RLTD_MODIFIER_ID )
194 OR ( (Recinfo.TO_RLTD_MODIFIER_ID IS NULL)
195 AND (X_TO_RLTD_MODIFIER_ID IS NULL)))
196
197 AND ( ( Recinfo.RLTD_MODIFIER_GRP_TYPE = X_RLTD_MODIFIER_GRP_TYPE )
198 OR ( (Recinfo.RLTD_MODIFIER_GRP_TYPE IS NULL)
199 AND (X_RLTD_MODIFIER_GRP_TYPE IS NULL)))
200
201 AND ( ( Recinfo.CONTEXT = X_CONTEXT )
202 OR ( (Recinfo.CONTEXT IS NULL)
203 AND (X_CONTEXT IS NULL)))
204
205 AND ( ( Recinfo.ATTRIBUTE1 = X_ATTRIBUTE1 )
206 OR ( (Recinfo.ATTRIBUTE1 IS NULL)
207 AND (X_ATTRIBUTE1 IS NULL)))
208
209 AND ( ( Recinfo.ATTRIBUTE2 = X_ATTRIBUTE2 )
210 OR ( (Recinfo.ATTRIBUTE2 IS NULL)
211 AND (X_ATTRIBUTE2 IS NULL)))
212
213 AND ( ( Recinfo.ATTRIBUTE3 = X_ATTRIBUTE3 )
214 OR ( (Recinfo.ATTRIBUTE3 IS NULL)
215 AND (X_ATTRIBUTE3 IS NULL)))
216
217 AND ( ( Recinfo.ATTRIBUTE4 = X_ATTRIBUTE4 )
218 OR ( (Recinfo.ATTRIBUTE4 IS NULL)
219 AND (X_ATTRIBUTE4 IS NULL)))
220
221 AND ( ( Recinfo.ATTRIBUTE5 = X_ATTRIBUTE5 )
222 OR ( (Recinfo.ATTRIBUTE5 IS NULL)
223 AND (X_ATTRIBUTE5 IS NULL)))
224
225 AND ( ( Recinfo.ATTRIBUTE6 = X_ATTRIBUTE6 )
226 OR ( (Recinfo.ATTRIBUTE6 IS NULL)
227 AND (X_ATTRIBUTE6 IS NULL)))
228
229 AND ( ( Recinfo.ATTRIBUTE7 = X_ATTRIBUTE7 )
230 OR ( (Recinfo.ATTRIBUTE7 IS NULL)
231 AND (X_ATTRIBUTE7 IS NULL)))
232
233 AND ( ( Recinfo.ATTRIBUTE8 = X_ATTRIBUTE8 )
234 OR ( (Recinfo.ATTRIBUTE8 IS NULL)
235 AND (X_ATTRIBUTE8 IS NULL)))
236
237 AND ( ( Recinfo.ATTRIBUTE9 = X_ATTRIBUTE9 )
238 OR ( (Recinfo.ATTRIBUTE9 IS NULL)
239 AND (X_ATTRIBUTE9 IS NULL)))
240
241 AND ( ( Recinfo.ATTRIBUTE10 = X_ATTRIBUTE10 )
242 OR ( (Recinfo.ATTRIBUTE10 IS NULL)
243 AND (X_ATTRIBUTE10 IS NULL)))
244
245 AND ( ( Recinfo.ATTRIBUTE11 = X_ATTRIBUTE11 )
246 OR ( (Recinfo.ATTRIBUTE11 IS NULL)
247 AND (X_ATTRIBUTE11 IS NULL)))
248
249 AND ( ( Recinfo.ATTRIBUTE12 = X_ATTRIBUTE12 )
250 OR ( (Recinfo.ATTRIBUTE12 IS NULL)
251 AND (X_ATTRIBUTE12 IS NULL)))
252
253 AND ( ( Recinfo.ATTRIBUTE13 = X_ATTRIBUTE13 )
254 OR ( (Recinfo.ATTRIBUTE13 IS NULL)
255 AND (X_ATTRIBUTE13 IS NULL)))
256
257 AND ( ( Recinfo.ATTRIBUTE14 = X_ATTRIBUTE14 )
258 OR ( (Recinfo.ATTRIBUTE14 IS NULL)
259 AND (X_ATTRIBUTE14 IS NULL)))
260
261 AND ( ( Recinfo.ATTRIBUTE15 = X_ATTRIBUTE15 )
262 OR ( (Recinfo.ATTRIBUTE15 IS NULL)
263 AND (X_ATTRIBUTE15 IS NULL)))
264
265 ) then
266
267 return;
268
269 else
270
271 FND_MESSAGE.Set_Name('FND','FORM_RECORD_CHANGED');
272 APP_EXCEPTION.Raise_Exception;
273
274 end if;
275
276 end Lock_Row;
277
278
279 PROCEDURE Update_Row(
280 X_RLTD_MODIFIER_ID IN OUT NOCOPY /* file.sql.39 change */ NUMBER
281 , X_CREATION_DATE DATE
282 , X_CREATED_BY NUMBER
283 , X_LAST_UPDATE_DATE DATE
284 , X_LAST_UPDATED_BY NUMBER
285 , X_LAST_UPDATE_LOGIN NUMBER
286 , X_RLTD_MODIFIER_GRP_NO NUMBER
287 , X_FROM_RLTD_MODIFIER_ID NUMBER
288 , X_TO_RLTD_MODIFIER_ID NUMBER
289 , X_RLTD_MODIFIER_GRP_TYPE VARCHAR2
290 , X_CONTEXT VARCHAR2
291 , X_ATTRIBUTE1 VARCHAR2
292 , X_ATTRIBUTE2 VARCHAR2
293 , X_ATTRIBUTE3 VARCHAR2
294 , X_ATTRIBUTE4 VARCHAR2
295 , X_ATTRIBUTE5 VARCHAR2
296 , X_ATTRIBUTE6 VARCHAR2
297 , X_ATTRIBUTE7 VARCHAR2
298 , X_ATTRIBUTE8 VARCHAR2
299 , X_ATTRIBUTE9 VARCHAR2
300 , X_ATTRIBUTE10 VARCHAR2
301 , X_ATTRIBUTE11 VARCHAR2
302 , X_ATTRIBUTE12 VARCHAR2
303 , X_ATTRIBUTE13 VARCHAR2
304 , X_ATTRIBUTE14 VARCHAR2
305 , X_ATTRIBUTE15 VARCHAR2
306 ) IS
307 begin
308
309 UPDATE QP_RLTD_MODIFIERS
310 SET
311 RLTD_MODIFIER_ID = X_RLTD_MODIFIER_ID
312 , CREATION_DATE = X_CREATION_DATE
313 , CREATED_BY = X_CREATED_BY
314 , LAST_UPDATE_DATE = X_LAST_UPDATE_DATE
315 , LAST_UPDATED_BY = X_LAST_UPDATED_BY
316 , LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
317 , RLTD_MODIFIER_GRP_NO = X_RLTD_MODIFIER_GRP_NO
318 , FROM_RLTD_MODIFIER_ID = X_FROM_RLTD_MODIFIER_ID
319 , TO_RLTD_MODIFIER_ID = X_TO_RLTD_MODIFIER_ID
320 , RLTD_MODIFIER_GRP_TYPE = X_RLTD_MODIFIER_GRP_TYPE
321 , ATTRIBUTE3 = X_ATTRIBUTE3
322 , ATTRIBUTE4 = X_ATTRIBUTE4
323 , ATTRIBUTE5 = X_ATTRIBUTE5
324 , ATTRIBUTE6 = X_ATTRIBUTE6
325 , ATTRIBUTE7 = X_ATTRIBUTE7
326 , ATTRIBUTE8 = X_ATTRIBUTE8
327 , ATTRIBUTE9 = X_ATTRIBUTE9
328 , ATTRIBUTE10 = X_ATTRIBUTE10
329 , ATTRIBUTE11 = X_ATTRIBUTE11
330 , ATTRIBUTE12 = X_ATTRIBUTE12
331 , ATTRIBUTE13 = X_ATTRIBUTE13
332 , ATTRIBUTE14 = X_ATTRIBUTE14
333 , ATTRIBUTE15 = X_ATTRIBUTE15
334 WHERE RLTD_MODIFIER_ID = X_RLTD_MODIFIER_ID;
335
336 if (sql%notfound) then
337 raise no_data_found;
338 end if;
339
340 END Update_Row;
341
342
343
344
345 PROCEDURE Delete_Row(
346 X_TO_RLTD_MODIFIER_ID NUMBER
347 ) IS
348 begin
349
350 delete from QP_RLTD_MODIFIERS
351 where TO_RLTD_MODIFIER_ID= X_TO_RLTD_MODIFIER_ID;
352
353 if (SQL%NOTFOUND) then
354 Raise NO_DATA_FOUND;
355 end if;
356
357
358 END Delete_Row;
359
360
361
362
363 END QP_RLTD_MODIFIER_PVT;