[Home] [Help]
PACKAGE BODY: APPS.QP_QUALIFIER_PVT
Source
1 PACKAGE BODY QP_QUALIFIER_PVT as
2 /* $Header: QPXVQFRB.pls 115.0 99/10/14 18:54:42 porting ship $ */
3
4 PROCEDURE Insert_Row(
5 X_QUALIFIER_ID IN OUT 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_PROGRAM_APPLICATION_ID NUMBER
12 , X_PROGRAM_ID NUMBER
13 , X_PROGRAM_UPDATE_DATE DATE
14 , X_REQUEST_ID NUMBER
15 , X_EXCLUDER_FLAG VARCHAR2
16 , X_COMPARISON_OPERATOR_CODE VARCHAR2
17 , X_QUALIFIER_CONTEXT VARCHAR2
18 , X_QUALIFIER_ATTRIBUTE VARCHAR2
19 , X_QUALIFIER_RULE_ID NUMBER
20 , X_QUALIFIER_GROUPING_NO NUMBER
21 , X_QUALIFIER_ATTR_VALUE VARCHAR2
22 , X_LIST_HEADER_ID NUMBER
23 , X_LIST_LINE_ID NUMBER
24 , X_CREATED_FROM_RULE_ID NUMBER
25 , X_START_DATE_ACTIVE DATE
26 , X_END_DATE_ACTIVE DATE
27 , X_CONTEXT VARCHAR2
28 , X_ATTRIBUTE1 VARCHAR2
29 , X_ATTRIBUTE2 VARCHAR2
30 , X_ATTRIBUTE3 VARCHAR2
31 , X_ATTRIBUTE4 VARCHAR2
32 , X_ATTRIBUTE5 VARCHAR2
33 , X_ATTRIBUTE6 VARCHAR2
34 , X_ATTRIBUTE7 VARCHAR2
35 , X_ATTRIBUTE8 VARCHAR2
36 , X_ATTRIBUTE9 VARCHAR2
37 , X_ATTRIBUTE10 VARCHAR2
38 , X_ATTRIBUTE11 VARCHAR2
39 , X_ATTRIBUTE12 VARCHAR2
40 , X_ATTRIBUTE13 VARCHAR2
41 , X_ATTRIBUTE14 VARCHAR2
42 , X_ATTRIBUTE15 VARCHAR2
43 ) IS
44
45 cursor C is select QUALIFIER_ID from QP_QUALIFIERS
46 where QUALIFIER_ID = X_QUALIFIER_ID;
47
48
49
50 BEGIN
51
52
53 insert into QP_QUALIFIERS
54 (
55 QUALIFIER_ID
56 , CREATION_DATE
57 , CREATED_BY
58 , LAST_UPDATE_DATE
59 , LAST_UPDATED_BY
60 , LAST_UPDATE_LOGIN
61 , PROGRAM_APPLICATION_ID
62 , PROGRAM_ID
63 , PROGRAM_UPDATE_DATE
64 , REQUEST_ID
65 , EXCLUDER_FLAG
66 , COMPARISON_OPERATOR_CODE
67 , QUALIFIER_CONTEXT
68 , QUALIFIER_ATTRIBUTE
69 , QUALIFIER_RULE_ID
70 , QUALIFIER_GROUPING_NO
71 , QUALIFIER_ATTR_VALUE
72 , LIST_HEADER_ID
73 , LIST_LINE_ID
74 , CREATED_FROM_RULE_ID
75 , START_DATE_ACTIVE
76 , END_DATE_ACTIVE
77 , CONTEXT
78 , ATTRIBUTE1
79 , ATTRIBUTE2
80 , ATTRIBUTE3
81 , ATTRIBUTE4
82 , ATTRIBUTE5
83 , ATTRIBUTE6
84 , ATTRIBUTE7
85 , ATTRIBUTE8
86 , ATTRIBUTE9
87 , ATTRIBUTE10
88 , ATTRIBUTE11
89 , ATTRIBUTE12
90 , ATTRIBUTE13
91 , ATTRIBUTE14
92 , ATTRIBUTE15
93 )
94 values
95 (
96 X_QUALIFIER_ID
97 , X_CREATION_DATE
98 , X_CREATED_BY
99 , X_LAST_UPDATE_DATE
100 , X_LAST_UPDATED_BY
101 , X_LAST_UPDATE_LOGIN
102 , X_PROGRAM_APPLICATION_ID
103 , X_PROGRAM_ID
104 , X_PROGRAM_UPDATE_DATE
105 , X_REQUEST_ID
106 , X_EXCLUDER_FLAG
107 , X_COMPARISON_OPERATOR_CODE
108 , X_QUALIFIER_CONTEXT
109 , X_QUALIFIER_ATTRIBUTE
110 , X_QUALIFIER_RULE_ID
111 , X_QUALIFIER_GROUPING_NO
112 , X_QUALIFIER_ATTR_VALUE
113 , X_LIST_HEADER_ID
114 , X_LIST_LINE_ID
115 , X_CREATED_FROM_RULE_ID
116 , X_START_DATE_ACTIVE
117 , X_END_DATE_ACTIVE
118 , X_CONTEXT
119 , X_ATTRIBUTE1
120 , X_ATTRIBUTE2
121 , X_ATTRIBUTE3
122 , X_ATTRIBUTE4
123 , X_ATTRIBUTE5
124 , X_ATTRIBUTE6
125 , X_ATTRIBUTE7
126 , X_ATTRIBUTE8
127 , X_ATTRIBUTE9
128 , X_ATTRIBUTE10
129 , X_ATTRIBUTE11
130 , X_ATTRIBUTE12
131 , X_ATTRIBUTE13
132 , X_ATTRIBUTE14
133 , X_ATTRIBUTE15
134 );
135
136 open C;
137
138 fetch C into X_QUALIFIER_ID;
139 if (C%notfound) then
140 close C;
141 raise NO_DATA_FOUND;
142 end if;
143 close C;
144 end Insert_Row;
145
146 PROCEDURE Lock_Row(
147 X_QUALIFIER_ID IN OUT NUMBER
148 , X_CREATION_DATE DATE
149 , X_CREATED_BY NUMBER
150 , X_LAST_UPDATE_DATE DATE
151 , X_LAST_UPDATED_BY NUMBER
152 , X_LAST_UPDATE_LOGIN NUMBER
153 , X_PROGRAM_APPLICATION_ID NUMBER
154 , X_PROGRAM_ID NUMBER
155 , X_PROGRAM_UPDATE_DATE DATE
156 , X_REQUEST_ID NUMBER
157 , X_EXCLUDER_FLAG VARCHAR2
158 , X_COMPARISON_OPERATOR_CODE VARCHAR2
159 , X_QUALIFIER_CONTEXT VARCHAR2
160 , X_QUALIFIER_ATTRIBUTE VARCHAR2
161 , X_QUALIFIER_RULE_ID NUMBER
162 , X_QUALIFIER_GROUPING_NO NUMBER
163 , X_QUALIFIER_ATTR_VALUE VARCHAR2
164 , X_LIST_HEADER_ID NUMBER
165 , X_LIST_LINE_ID NUMBER
166 , X_CREATED_FROM_RULE_ID NUMBER
167 , X_START_DATE_ACTIVE DATE
168 , X_END_DATE_ACTIVE DATE
169 , X_CONTEXT VARCHAR2
170 , X_ATTRIBUTE1 VARCHAR2
171 , X_ATTRIBUTE2 VARCHAR2
172 , X_ATTRIBUTE3 VARCHAR2
173 , X_ATTRIBUTE4 VARCHAR2
174 , X_ATTRIBUTE5 VARCHAR2
175 , X_ATTRIBUTE6 VARCHAR2
176 , X_ATTRIBUTE7 VARCHAR2
177 , X_ATTRIBUTE8 VARCHAR2
178 , X_ATTRIBUTE9 VARCHAR2
179 , X_ATTRIBUTE10 VARCHAR2
180 , X_ATTRIBUTE11 VARCHAR2
181 , X_ATTRIBUTE12 VARCHAR2
182 , X_ATTRIBUTE13 VARCHAR2
183 , X_ATTRIBUTE14 VARCHAR2
184 , X_ATTRIBUTE15 VARCHAR2
185 ) IS
186
187
188 cursor C is select * from QP_QUALIFIERS
189 where QUALIFIER_ID = X_QUALIFIER_ID
190 for update of QUALIFIER_ID nowait;
191 Recinfo C%ROWTYPE;
192
193
194 BEGIN
195
196 open C;
197
198 fetch C into Recinfo;
199
200 if (C%notfound) then
201
202 close C;
203 FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
204 APP_EXCEPTION.Raise_Exception;
205
206 end if;
207
208 close C;
209
210 if (
211 ( Recinfo.QUALIFIER_ID = X_QUALIFIER_ID )
212 AND ( Recinfo.LIST_HEADER_ID = X_LIST_HEADER_ID )
213
214 AND ( ( Recinfo.CREATION_DATE = X_CREATION_DATE )
215 OR ( (Recinfo.CREATION_DATE IS NULL)
216 AND (X_CREATION_DATE IS NULL)))
217
218 AND ( ( Recinfo.CREATED_BY = X_CREATED_BY)
219 OR ( (Recinfo.CREATED_BY IS NULL)
220 AND (X_CREATED_BY IS NULL)))
221
222 AND ( ( Recinfo.LAST_UPDATE_DATE = X_LAST_UPDATE_DATE)
223 OR ( (Recinfo.LAST_UPDATE_DATE IS NULL)
224 AND (X_LAST_UPDATE_DATE IS NULL)))
225
226 AND ( ( Recinfo.LAST_UPDATED_BY = X_LAST_UPDATED_BY)
227 OR ( (Recinfo.LAST_UPDATED_BY IS NULL)
228 AND (X_LAST_UPDATED_BY IS NULL)))
229
230 AND ( ( Recinfo.LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN)
231 OR ( (Recinfo.LAST_UPDATE_LOGIN IS NULL)
232 AND (X_LAST_UPDATE_LOGIN IS NULL)))
233
234 AND ( ( Recinfo.PROGRAM_APPLICATION_ID = X_PROGRAM_APPLICATION_ID)
235 OR ( (Recinfo.PROGRAM_APPLICATION_ID IS NULL)
236 AND (X_PROGRAM_APPLICATION_ID IS NULL)))
237
238 AND ( ( Recinfo.PROGRAM_ID = X_PROGRAM_ID)
239 OR ( (Recinfo.PROGRAM_ID IS NULL)
240 AND (X_PROGRAM_ID IS NULL)))
241
242 AND ( ( Recinfo.PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE)
243 OR ( (Recinfo.PROGRAM_UPDATE_DATE IS NULL)
244 AND (X_PROGRAM_UPDATE_DATE IS NULL)))
245
246 AND ( ( Recinfo.REQUEST_ID = X_REQUEST_ID )
247 OR ( (Recinfo.REQUEST_ID IS NULL)
248 AND (X_REQUEST_ID IS NULL)))
249
250 AND ( ( Recinfo.EXCLUDER_FLAG = X_EXCLUDER_FLAG)
251 OR ( (Recinfo.EXCLUDER_FLAG IS NULL)
252 AND (X_EXCLUDER_FLAG IS NULL)))
253
254 AND ( ( Recinfo.COMPARISON_OPERATOR_CODE = X_COMPARISON_OPERATOR_CODE )
255 OR ( (Recinfo.COMPARISON_OPERATOR_CODE IS NULL)
256 AND (X_COMPARISON_OPERATOR_CODE IS NULL)))
257
258 AND ( ( Recinfo.QUALIFIER_CONTEXT = X_QUALIFIER_CONTEXT )
259 OR ( (Recinfo.QUALIFIER_CONTEXT IS NULL)
260 AND (X_QUALIFIER_CONTEXT IS NULL)))
261
262 AND ( ( Recinfo.QUALIFIER_ATTRIBUTE = X_QUALIFIER_ATTRIBUTE )
263 OR ( (Recinfo.QUALIFIER_ATTRIBUTE IS NULL)
264 AND (X_QUALIFIER_ATTRIBUTE IS NULL)))
265
266 AND ( ( Recinfo.QUALIFIER_RULE_ID = X_QUALIFIER_RULE_ID )
267 OR ( (Recinfo.QUALIFIER_RULE_ID IS NULL)
268 AND (X_QUALIFIER_RULE_ID IS NULL)))
269
270 AND ( ( Recinfo.QUALIFIER_GROUPING_NO = X_QUALIFIER_GROUPING_NO )
271 OR ( (Recinfo.QUALIFIER_GROUPING_NO IS NULL)
272 AND (X_QUALIFIER_GROUPING_NO IS NULL)))
273
274 AND ( ( Recinfo.QUALIFIER_ATTR_VALUE = X_QUALIFIER_ATTR_VALUE )
275 OR ( (Recinfo.QUALIFIER_ATTR_VALUE IS NULL)
276 AND (X_QUALIFIER_ATTR_VALUE IS NULL)))
277
278 AND ( ( Recinfo.LIST_LINE_ID = X_LIST_LINE_ID )
279 OR ( (Recinfo.LIST_LINE_ID IS NULL)
280 AND (X_LIST_LINE_ID IS NULL)))
281
282 AND ( ( Recinfo.CREATED_FROM_RULE_ID = X_CREATED_FROM_RULE_ID )
283 OR ( (Recinfo.CREATED_FROM_RULE_ID IS NULL)
284 AND (X_CREATED_FROM_RULE_ID IS NULL)))
285
286 AND ( ( Recinfo.START_DATE_ACTIVE = X_START_DATE_ACTIVE )
287 OR ( (Recinfo.START_DATE_ACTIVE IS NULL)
288 AND (X_START_DATE_ACTIVE IS NULL)))
289
290 AND ( ( Recinfo.END_DATE_ACTIVE = X_END_DATE_ACTIVE )
291 OR ( (Recinfo.END_DATE_ACTIVE IS NULL)
292 AND (X_END_DATE_ACTIVE IS NULL)))
293
294 AND ( ( Recinfo.CONTEXT = X_CONTEXT )
295 OR ( (Recinfo.CONTEXT IS NULL)
296 AND (X_CONTEXT IS NULL)))
297
298 AND ( ( Recinfo.ATTRIBUTE1 = X_ATTRIBUTE1 )
299 OR ( (Recinfo.ATTRIBUTE1 IS NULL)
300 AND (X_ATTRIBUTE1 IS NULL)))
301
302 AND ( ( Recinfo.ATTRIBUTE2 = X_ATTRIBUTE2 )
303 OR ( (Recinfo.ATTRIBUTE2 IS NULL)
304 AND (X_ATTRIBUTE2 IS NULL)))
305
306 AND ( ( Recinfo.ATTRIBUTE3 = X_ATTRIBUTE3 )
307 OR ( (Recinfo.ATTRIBUTE3 IS NULL)
308 AND (X_ATTRIBUTE3 IS NULL)))
309
310 AND ( ( Recinfo.ATTRIBUTE4 = X_ATTRIBUTE4 )
311 OR ( (Recinfo.ATTRIBUTE4 IS NULL)
312 AND (X_ATTRIBUTE4 IS NULL)))
313
314 AND ( ( Recinfo.ATTRIBUTE5 = X_ATTRIBUTE5 )
315 OR ( (Recinfo.ATTRIBUTE5 IS NULL)
316 AND (X_ATTRIBUTE5 IS NULL)))
317
318 AND ( ( Recinfo.ATTRIBUTE6 = X_ATTRIBUTE6 )
319 OR ( (Recinfo.ATTRIBUTE6 IS NULL)
320 AND (X_ATTRIBUTE6 IS NULL)))
321
322 AND ( ( Recinfo.ATTRIBUTE7 = X_ATTRIBUTE7 )
323 OR ( (Recinfo.ATTRIBUTE7 IS NULL)
324 AND (X_ATTRIBUTE7 IS NULL)))
325
326 AND ( ( Recinfo.ATTRIBUTE8 = X_ATTRIBUTE8 )
327 OR ( (Recinfo.ATTRIBUTE8 IS NULL)
328 AND (X_ATTRIBUTE8 IS NULL)))
329
330 AND ( ( Recinfo.ATTRIBUTE9 = X_ATTRIBUTE9 )
331 OR ( (Recinfo.ATTRIBUTE9 IS NULL)
332 AND (X_ATTRIBUTE9 IS NULL)))
333
334 AND ( ( Recinfo.ATTRIBUTE10 = X_ATTRIBUTE10 )
335 OR ( (Recinfo.ATTRIBUTE10 IS NULL)
336 AND (X_ATTRIBUTE10 IS NULL)))
337
338 AND ( ( Recinfo.ATTRIBUTE11 = X_ATTRIBUTE11 )
339 OR ( (Recinfo.ATTRIBUTE11 IS NULL)
340 AND (X_ATTRIBUTE11 IS NULL)))
341
342 AND ( ( Recinfo.ATTRIBUTE12 = X_ATTRIBUTE12 )
343 OR ( (Recinfo.ATTRIBUTE12 IS NULL)
344 AND (X_ATTRIBUTE12 IS NULL)))
345
346 AND ( ( Recinfo.ATTRIBUTE13 = X_ATTRIBUTE13 )
347 OR ( (Recinfo.ATTRIBUTE13 IS NULL)
348 AND (X_ATTRIBUTE13 IS NULL)))
349
350 AND ( ( Recinfo.ATTRIBUTE14 = X_ATTRIBUTE14 )
351 OR ( (Recinfo.ATTRIBUTE14 IS NULL)
352 AND (X_ATTRIBUTE14 IS NULL)))
353
354 AND ( ( Recinfo.ATTRIBUTE15 = X_ATTRIBUTE15 )
355 OR ( (Recinfo.ATTRIBUTE15 IS NULL)
356 AND (X_ATTRIBUTE15 IS NULL)))
357
358 ) then
359
360 return;
361
362 else
363
364 FND_MESSAGE.Set_Name('FND','FORM_RECORD_CHANGED');
365 APP_EXCEPTION.Raise_Exception;
366
367 end if;
368
369 end Lock_Row;
370
371
372 PROCEDURE Update_Row(
373 X_QUALIFIER_ID IN OUT NUMBER
374 , X_CREATION_DATE DATE
375 , X_CREATED_BY NUMBER
376 , X_LAST_UPDATE_DATE DATE
377 , X_LAST_UPDATED_BY NUMBER
378 , X_LAST_UPDATE_LOGIN NUMBER
379 , X_PROGRAM_APPLICATION_ID NUMBER
380 , X_PROGRAM_ID NUMBER
381 , X_PROGRAM_UPDATE_DATE DATE
382 , X_REQUEST_ID NUMBER
383 , X_EXCLUDER_FLAG VARCHAR2
384 , X_COMPARISON_OPERATOR_CODE VARCHAR2
385 , X_QUALIFIER_CONTEXT VARCHAR2
386 , X_QUALIFIER_ATTRIBUTE VARCHAR2
387 , X_QUALIFIER_RULE_ID NUMBER
388 , X_QUALIFIER_GROUPING_NO NUMBER
389 , X_QUALIFIER_ATTR_VALUE VARCHAR2
390 , X_LIST_HEADER_ID NUMBER
391 , X_LIST_LINE_ID NUMBER
392 , X_CREATED_FROM_RULE_ID NUMBER
393 , X_START_DATE_ACTIVE DATE
394 , X_END_DATE_ACTIVE DATE
395 , X_CONTEXT VARCHAR2
396 , X_ATTRIBUTE1 VARCHAR2
397 , X_ATTRIBUTE2 VARCHAR2
398 , X_ATTRIBUTE3 VARCHAR2
399 , X_ATTRIBUTE4 VARCHAR2
400 , X_ATTRIBUTE5 VARCHAR2
401 , X_ATTRIBUTE6 VARCHAR2
402 , X_ATTRIBUTE7 VARCHAR2
403 , X_ATTRIBUTE8 VARCHAR2
404 , X_ATTRIBUTE9 VARCHAR2
405 , X_ATTRIBUTE10 VARCHAR2
406 , X_ATTRIBUTE11 VARCHAR2
407 , X_ATTRIBUTE12 VARCHAR2
408 , X_ATTRIBUTE13 VARCHAR2
409 , X_ATTRIBUTE14 VARCHAR2
410 , X_ATTRIBUTE15 VARCHAR2
411 ) IS
412
413 begin
414
415 UPDATE QP_QUALIFIERS
416 SET
417 QUALIFIER_ID = X_QUALIFIER_ID
418 , CREATION_DATE = X_CREATION_DATE
419 , CREATED_BY = X_CREATED_BY
420 , LAST_UPDATE_DATE = X_LAST_UPDATE_DATE
421 , LAST_UPDATED_BY = X_LAST_UPDATED_BY
422 , LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
423 , PROGRAM_APPLICATION_ID = X_PROGRAM_APPLICATION_ID
424 , PROGRAM_ID = X_PROGRAM_ID
425 , PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE
426 , REQUEST_ID = X_REQUEST_ID
427 , EXCLUDER_FLAG = X_EXCLUDER_FLAG
428 , COMPARISON_OPERATOR_CODE = X_COMPARISON_OPERATOR_CODE
429 , QUALIFIER_CONTEXT = X_QUALIFIER_CONTEXT
430 , QUALIFIER_ATTRIBUTE = X_QUALIFIER_ATTRIBUTE
431 , QUALIFIER_RULE_ID = X_QUALIFIER_RULE_ID
432 , QUALIFIER_GROUPING_NO = X_QUALIFIER_GROUPING_NO
433 , QUALIFIER_ATTR_VALUE = X_QUALIFIER_ATTR_VALUE
434 , LIST_HEADER_ID = X_LIST_HEADER_ID
435 , LIST_LINE_ID = X_LIST_LINE_ID
436 , CREATED_FROM_RULE_ID = X_CREATED_FROM_RULE_ID
437 , START_DATE_ACTIVE = X_START_DATE_ACTIVE
438 , END_DATE_ACTIVE = X_END_DATE_ACTIVE
439 , CONTEXT = X_CONTEXT
440 , ATTRIBUTE1 = X_ATTRIBUTE1
441 , ATTRIBUTE2 = X_ATTRIBUTE2
442 , ATTRIBUTE3 = X_ATTRIBUTE3
443 , ATTRIBUTE4 = X_ATTRIBUTE4
444 , ATTRIBUTE5 = X_ATTRIBUTE5
445 , ATTRIBUTE6 = X_ATTRIBUTE6
446 , ATTRIBUTE7 = X_ATTRIBUTE7
447 , ATTRIBUTE8 = X_ATTRIBUTE8
448 , ATTRIBUTE9 = X_ATTRIBUTE9
449 , ATTRIBUTE10 = X_ATTRIBUTE10
450 , ATTRIBUTE11 = X_ATTRIBUTE11
451 , ATTRIBUTE12 = X_ATTRIBUTE12
452 , ATTRIBUTE13 = X_ATTRIBUTE13
453 , ATTRIBUTE14 = X_ATTRIBUTE14
454 , ATTRIBUTE15 = X_ATTRIBUTE15
455 WHERE QUALIFIER_ID = X_QUALIFIER_ID;
456
457 if (sql%notfound) then
458 raise no_data_found;
459 end if;
460
461 END Update_Row;
462
463
464
465
466 PROCEDURE Delete_Row(
467 X_ID NUMBER
468 , X_HEADER_LINE_FLAG VARCHAR2
469 ) IS
470 begin
471
472 if (X_HEADER_LINE_FLAG = 'H') then
473 delete from QP_QUALIFIERS
474 where LIST_HEADER_ID = X_ID;
475 else
476 delete from QP_QUALIFIERS
477 where LIST_LINE_ID = X_ID;
478 end if;
479
480 if (SQL%NOTFOUND) then
481 Raise NO_DATA_FOUND;
482 end if;
483
484
485 END Delete_Row;
486
487
488
489
490 END QP_QUALIFIER_PVT;