[Home] [Help]
PACKAGE BODY: APPS.QP_MODIFIER_LIST_LINE_PVT
Source
1 PACKAGE BODY QP_MODIFIER_LIST_LINE_PVT as
2 /* $Header: QPXVMLLB.pls 115.1 1999/11/16 16:52:08 pkm ship $ */
3
4 PROCEDURE Insert_Row(
5 X_LIST_LINE_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_LIST_HEADER_ID NUMBER
16 , X_LIST_LINE_TYPE_CODE VARCHAR2
17 , X_START_DATE_ACTIVE DATE
18 , X_END_DATE_ACTIVE DATE
19 , X_AUTOMATIC_FLAG VARCHAR2
20 , X_MODIFIER_LEVEL_CODE VARCHAR2
21 , X_LIST_PRICE NUMBER
22 , X_LIST_PRICE_UOM_CODE VARCHAR2
23 , X_PRIMARY_UOM_FLAG VARCHAR2
24 , X_INVENTORY_ITEM_ID NUMBER
25 , X_ORGANIZATION_ID NUMBER
26 , X_RELATED_ITEM_ID NUMBER
27 , X_RELATIONSHIP_TYPE_ID NUMBER
28 , X_SUBSTITUTION_CONTEXT VARCHAR2
29 , X_SUBSTITUTION_ATTRIBUTE VARCHAR2
30 , X_SUBSTITUTION_VALUE VARCHAR2
31 , X_REVISION VARCHAR2
32 , X_REVISION_DATE DATE
33 , X_REVISION_REASON_CODE VARCHAR2
34 , X_COMMENTS VARCHAR2
35 , X_CONTEXT VARCHAR2
36 , X_ATTRIBUTE1 VARCHAR2
37 , X_ATTRIBUTE2 VARCHAR2
38 , X_ATTRIBUTE3 VARCHAR2
39 , X_ATTRIBUTE4 VARCHAR2
40 , X_ATTRIBUTE5 VARCHAR2
41 , X_ATTRIBUTE6 VARCHAR2
42 , X_ATTRIBUTE7 VARCHAR2
43 , X_ATTRIBUTE8 VARCHAR2
44 , X_ATTRIBUTE9 VARCHAR2
45 , X_ATTRIBUTE10 VARCHAR2
46 , X_ATTRIBUTE11 VARCHAR2
47 , X_ATTRIBUTE12 VARCHAR2
48 , X_ATTRIBUTE13 VARCHAR2
49 , X_ATTRIBUTE14 VARCHAR2
50 , X_ATTRIBUTE15 VARCHAR2
51 ,X_PRICE_BREAK_TYPE_CODE VARCHAR2
52 , X_PERCENT_PRICE NUMBER
53 , X_PRICE_BY_FORMULA_ID NUMBER
54 , X_NUMBER_EFFECTIVE_PERIODS NUMBER
55 , X_EFFECTIVE_PERIOD_UOM VARCHAR2
56 , X_ARITHMETIC_OPERATOR VARCHAR2
57 , X_OPERAND NUMBER
58 , X_NEW_PRICE NUMBER
59 , X_OVERRIDE_FLAG VARCHAR2
60 , X_PRINT_ON_INVOICE_FLAG VARCHAR2
61 , X_GL_CLASS_ID NUMBER
62 , X_REBATE_TRANSACTION_TYPE_CODE VARCHAR2
63 , X_REBATE_SUBTYPE_CODE VARCHAR2
64 , X_BASE_QTY NUMBER
65 , X_BASE_UOM_CODE VARCHAR2
66 , X_ACCRUAL_TYPE_CODE VARCHAR2
67 , X_ACCRUAL_QTY NUMBER
68 , X_ACCRUAL_UOM_CODE VARCHAR2
69 , X_ESTIM_ACCRUAL_RATE NUMBER
70 , X_ACCUM_TO_ACCR_CONV_RATE NUMBER
71 , X_GENERATE_USING_FORMULA_ID NUMBER
72 ) IS
73
74
75
76 cursor C is select LIST_LINE_ID from QP_LIST_LINES
77 where LIST_LINE_ID = X_LIST_LINE_ID;
78
79 BEGIN
80
81
82 insert into QP_LIST_LINES
83 (LIST_LINE_ID
84 , CREATION_DATE
85 , CREATED_BY
86 , LAST_UPDATE_DATE
87 , LAST_UPDATED_BY
88 , LAST_UPDATE_LOGIN
89 , PROGRAM_APPLICATION_ID
90 , PROGRAM_ID
91 , PROGRAM_UPDATE_DATE
92 , REQUEST_ID
93 , LIST_HEADER_ID
94 , LIST_LINE_TYPE_CODE
95 , START_DATE_ACTIVE
96 , END_DATE_ACTIVE
97 , AUTOMATIC_FLAG
98 , MODIFIER_LEVEL_CODE
99 , LIST_PRICE
100 , LIST_PRICE_UOM_CODE
101 , PRIMARY_UOM_FLAG
102 , INVENTORY_ITEM_ID
103 , ORGANIZATION_ID
104 , RELATED_ITEM_ID
105 , RELATIONSHIP_TYPE_ID
106 , SUBSTITUTION_CONTEXT
107 , SUBSTITUTION_ATTRIBUTE
108 , SUBSTITUTION_VALUE
109 , REVISION
110 , REVISION_DATE
111 , REVISION_REASON_CODE
112 , COMMENTS
113 , CONTEXT
114 , ATTRIBUTE1
115 , ATTRIBUTE2
116 , ATTRIBUTE3
117 , ATTRIBUTE4
118 , ATTRIBUTE5
119 , ATTRIBUTE6
120 , ATTRIBUTE7
121 , ATTRIBUTE8
122 , ATTRIBUTE9
123 , ATTRIBUTE10
124 , ATTRIBUTE11
125 , ATTRIBUTE12
126 , ATTRIBUTE13
127 , ATTRIBUTE14
128 , ATTRIBUTE15
129 ,PRICE_BREAK_TYPE_CODE
130 ,PERCENT_PRICE
131 ,PRICE_BY_FORMULA_ID
132 ,NUMBER_EFFECTIVE_PERIODS
133 ,EFFECTIVE_PERIOD_UOM
134 ,ARITHMETIC_OPERATOR
135 ,OPERAND
136 --,NEW_PRICE
137 ,OVERRIDE_FLAG
138 ,PRINT_ON_INVOICE_FLAG
139 --,GL_CLASS_ID
140 ,REBATE_TRANSACTION_TYPE_CODE
141 --,REBATE_SUBTYPE_CODE
142 ,BASE_QTY
143 ,BASE_UOM_CODE
144 --,ACCRUAL_TYPE_CODE
145 ,ACCRUAL_QTY
146 ,ACCRUAL_UOM_CODE
147 ,ESTIM_ACCRUAL_RATE
148 --,ACCUM_TO_ACCR_CONV_RATE
149 ,GENERATE_USING_FORMULA_ID
150 )
151 values
152 (X_LIST_LINE_ID
153 , X_CREATION_DATE
154 , X_CREATED_BY
155 , X_LAST_UPDATE_DATE
156 , X_LAST_UPDATED_BY
157 , X_LAST_UPDATE_LOGIN
158 , X_PROGRAM_APPLICATION_ID
159 , X_PROGRAM_ID
160 , X_PROGRAM_UPDATE_DATE
161 , X_REQUEST_ID
162 , X_LIST_HEADER_ID
163 , X_LIST_LINE_TYPE_CODE
164 , X_START_DATE_ACTIVE
165 , X_END_DATE_ACTIVE
166 , X_AUTOMATIC_FLAG
167 , X_MODIFIER_LEVEL_CODE
168 , NULL
169 , NULL
170 , NULL
171 , NULL
172 , NULL
173 , NULL
174 , NULL
175 , NULL
176 , NULL
177 , NULL
178 , NULL
179 , NULL
180 , NULL
181 , NULL
182 , X_CONTEXT
183 , X_ATTRIBUTE1
184 , X_ATTRIBUTE2
185 , X_ATTRIBUTE3
186 , X_ATTRIBUTE4
187 , X_ATTRIBUTE5
188 , X_ATTRIBUTE6
189 , X_ATTRIBUTE7
190 , X_ATTRIBUTE8
191 , X_ATTRIBUTE9
192 , X_ATTRIBUTE10
193 , X_ATTRIBUTE11
194 , X_ATTRIBUTE12
195 , X_ATTRIBUTE13
196 , X_ATTRIBUTE14
197 , X_ATTRIBUTE15
198 ,X_PRICE_BREAK_TYPE_CODE
199 ,X_PERCENT_PRICE
200 ,X_PRICE_BY_FORMULA_ID
201 ,X_NUMBER_EFFECTIVE_PERIODS
202 ,X_EFFECTIVE_PERIOD_UOM
203 ,X_ARITHMETIC_OPERATOR
204 ,X_OPERAND
205 --,X_NEW_PRICE
206 ,X_OVERRIDE_FLAG
207 ,X_PRINT_ON_INVOICE_FLAG
208 --,X_GL_CLASS_ID
209 ,X_REBATE_TRANSACTION_TYPE_CODE
210 --,X_REBATE_SUBTYPE_CODE
211 ,X_BASE_QTY
212 ,X_BASE_UOM_CODE
213 --,X_ACCRUAL_TYPE_CODE
214 ,X_ACCRUAL_QTY
215 ,X_ACCRUAL_UOM_CODE
216 ,X_ESTIM_ACCRUAL_RATE
217 --,X_ACCUM_TO_ACCR_CONV_RATE
218 ,X_GENERATE_USING_FORMULA_ID
219 );
220
221
222
223 open C;
224
225 fetch C into X_LIST_LINE_ID;
226
227 if (C%notfound) then
228 close C;
229 raise NO_DATA_FOUND;
230 end if;
231 close C;
232
233 end Insert_Row;
234
235
236
237 PROCEDURE Lock_Row(
238 X_LIST_LINE_ID IN OUT NUMBER
239 , X_CREATION_DATE DATE
240 , X_CREATED_BY NUMBER
241 , X_LAST_UPDATE_DATE DATE
242 , X_LAST_UPDATED_BY NUMBER
243 , X_LAST_UPDATE_LOGIN NUMBER
244 , X_PROGRAM_APPLICATION_ID NUMBER
245 , X_PROGRAM_ID NUMBER
246 , X_PROGRAM_UPDATE_DATE DATE
247 , X_REQUEST_ID NUMBER
248 , X_LIST_HEADER_ID NUMBER
249 , X_LIST_LINE_TYPE_CODE VARCHAR2
250 , X_START_DATE_ACTIVE DATE
251 , X_END_DATE_ACTIVE DATE
252 , X_AUTOMATIC_FLAG VARCHAR2
253 , X_MODIFIER_LEVEL_CODE VARCHAR2
254 , X_LIST_PRICE NUMBER
255 , X_LIST_PRICE_UOM_CODE VARCHAR2
256 , X_PRIMARY_UOM_FLAG VARCHAR2
257 , X_INVENTORY_ITEM_ID NUMBER
258 , X_ORGANIZATION_ID NUMBER
259 , X_RELATED_ITEM_ID NUMBER
260 , X_RELATIONSHIP_TYPE_ID NUMBER
261 , X_SUBSTITUTION_CONTEXT VARCHAR2
262 , X_SUBSTITUTION_ATTRIBUTE VARCHAR2
263 , X_SUBSTITUTION_VALUE VARCHAR2
264 , X_REVISION VARCHAR2
265 , X_REVISION_DATE DATE
266 , X_REVISION_REASON_CODE VARCHAR2
267 , X_COMMENTS VARCHAR2
268 , X_CONTEXT VARCHAR2
269 , X_ATTRIBUTE1 VARCHAR2
270 , X_ATTRIBUTE2 VARCHAR2
271 , X_ATTRIBUTE3 VARCHAR2
272 , X_ATTRIBUTE4 VARCHAR2
273 , X_ATTRIBUTE5 VARCHAR2
274 , X_ATTRIBUTE6 VARCHAR2
275 , X_ATTRIBUTE7 VARCHAR2
276 , X_ATTRIBUTE8 VARCHAR2
277 , X_ATTRIBUTE9 VARCHAR2
278 , X_ATTRIBUTE10 VARCHAR2
279 , X_ATTRIBUTE11 VARCHAR2
280 , X_ATTRIBUTE12 VARCHAR2
281 , X_ATTRIBUTE13 VARCHAR2
282 , X_ATTRIBUTE14 VARCHAR2
283 , X_ATTRIBUTE15 VARCHAR2
284 ,X_PRICE_BREAK_TYPE_CODE VARCHAR2
285 , X_PERCENT_PRICE NUMBER
286 , X_PRICE_BY_FORMULA_ID NUMBER
287 , X_NUMBER_EFFECTIVE_PERIODS NUMBER
288 , X_EFFECTIVE_PERIOD_UOM VARCHAR2
289 , X_ARITHMETIC_OPERATOR VARCHAR2
290 , X_OPERAND NUMBER
291 , X_NEW_PRICE NUMBER
292 , X_OVERRIDE_FLAG VARCHAR2
293 , X_PRINT_ON_INVOICE_FLAG VARCHAR2
294 , X_GL_CLASS_ID NUMBER
295 , X_REBATE_TRANSACTION_TYPE_CODE VARCHAR2
296 , X_REBATE_SUBTYPE_CODE VARCHAR2
297 , X_BASE_QTY NUMBER
298 , X_BASE_UOM_CODE VARCHAR2
299 , X_ACCRUAL_TYPE_CODE VARCHAR2
300 , X_ACCRUAL_QTY NUMBER
301 , X_ACCRUAL_UOM_CODE VARCHAR2
302 , X_ESTIM_ACCRUAL_RATE NUMBER
303 , X_ACCUM_TO_ACCR_CONV_RATE NUMBER
304 , X_GENERATE_USING_FORMULA_ID NUMBER
305 ) IS
306
307
308 cursor C is select * from QP_LIST_LINES
309 where LIST_LINE_ID = X_LIST_LINE_ID
310 for update of LIST_LINE_ID nowait;
311 Recinfo C%ROWTYPE;
312
313
314 BEGIN
315
316 open C;
317
318 fetch C into Recinfo;
319
320 if (C%notfound) then
321
322 close C;
323 FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
324 APP_EXCEPTION.Raise_Exception;
325
326 end if;
327
328 close C;
329
330 if (
331 ( Recinfo.LIST_LINE_ID = X_LIST_LINE_ID)
332 AND ( Recinfo.LIST_HEADER_ID= X_LIST_HEADER_ID)
333
334 AND ( ( Recinfo.CREATION_DATE = X_CREATION_DATE )
335 OR ( (Recinfo.CREATION_DATE IS NULL)
336 AND (X_CREATION_DATE IS NULL)))
337
338 AND ( ( Recinfo.CREATED_BY = X_CREATED_BY)
339 OR ( (Recinfo.CREATED_BY IS NULL)
340 AND (X_CREATED_BY IS NULL)))
341
342 AND ( ( Recinfo.LAST_UPDATE_DATE = X_LAST_UPDATE_DATE)
343 OR ( (Recinfo.LAST_UPDATE_DATE IS NULL)
344 AND (X_LAST_UPDATE_DATE IS NULL)))
345
346 AND ( ( Recinfo.LAST_UPDATED_BY = X_LAST_UPDATED_BY)
347 OR ( (Recinfo.LAST_UPDATED_BY IS NULL)
348 AND (X_LAST_UPDATED_BY IS NULL)))
349
350 AND ( ( Recinfo.LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN)
351 OR ( (Recinfo.LAST_UPDATE_LOGIN IS NULL)
352 AND (X_LAST_UPDATE_LOGIN IS NULL)))
353
354 AND ( ( Recinfo.PROGRAM_APPLICATION_ID = X_PROGRAM_APPLICATION_ID)
355 OR ( (Recinfo.PROGRAM_APPLICATION_ID IS NULL)
356 AND (X_PROGRAM_APPLICATION_ID IS NULL)))
357
358 AND ( ( Recinfo.PROGRAM_ID = X_PROGRAM_ID)
359 OR ( (Recinfo.PROGRAM_ID IS NULL)
360 AND (X_PROGRAM_ID IS NULL)))
361
362 AND ( ( Recinfo.PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE)
363 OR ( (Recinfo.PROGRAM_UPDATE_DATE IS NULL)
364 AND (X_PROGRAM_UPDATE_DATE IS NULL)))
365
366 AND ( ( Recinfo.REQUEST_ID = X_REQUEST_ID )
367 OR ( (Recinfo.REQUEST_ID IS NULL)
368 AND (X_REQUEST_ID IS NULL)))
369
370 AND ( ( Recinfo.LIST_LINE_TYPE_CODE = X_LIST_LINE_TYPE_CODE )
371 OR ( (Recinfo.LIST_LINE_TYPE_CODE IS NULL)
372 AND (X_LIST_LINE_TYPE_CODE IS NULL)))
373
374 AND ( ( Recinfo.START_DATE_ACTIVE = X_START_DATE_ACTIVE )
375 OR ( (Recinfo.START_DATE_ACTIVE IS NULL)
376 AND (X_START_DATE_ACTIVE IS NULL)))
377
378 AND ( ( Recinfo.END_DATE_ACTIVE = X_END_DATE_ACTIVE )
379 OR ( (Recinfo.END_DATE_ACTIVE IS NULL)
380 AND (X_END_DATE_ACTIVE IS NULL)))
381
382 AND ( ( Recinfo.AUTOMATIC_FLAG = X_AUTOMATIC_FLAG )
383 OR ( (Recinfo.AUTOMATIC_FLAG IS NULL)
384 AND (X_AUTOMATIC_FLAG IS NULL)))
385
386 AND ( ( Recinfo.MODIFIER_LEVEL_CODE = X_MODIFIER_LEVEL_CODE )
387 OR ( (Recinfo.MODIFIER_LEVEL_CODE IS NULL)
388 AND (X_MODIFIER_LEVEL_CODE IS NULL)))
389
390 AND ( ( Recinfo.LIST_PRICE = X_LIST_PRICE )
391 OR ( (Recinfo.LIST_PRICE IS NULL)
392 AND (X_LIST_PRICE IS NULL)))
393
394 AND ( ( Recinfo.LIST_PRICE_UOM_CODE = X_LIST_PRICE_UOM_CODE )
395 OR ( (Recinfo.LIST_PRICE_UOM_CODE IS NULL)
396 AND (X_LIST_PRICE_UOM_CODE IS NULL)))
397
398 AND ( ( Recinfo.PRIMARY_UOM_FLAG= X_PRIMARY_UOM_FLAG )
399 OR ( (Recinfo.PRIMARY_UOM_FLAG IS NULL)
400 AND (X_PRIMARY_UOM_FLAG IS NULL)))
401
402 AND ( ( Recinfo.INVENTORY_ITEM_ID = X_INVENTORY_ITEM_ID )
403 OR ( (Recinfo.INVENTORY_ITEM_ID IS NULL)
404 AND (X_INVENTORY_ITEM_ID IS NULL)))
405
406 AND ( ( Recinfo.ORGANIZATION_ID = X_ORGANIZATION_ID )
407 OR ( (Recinfo.ORGANIZATION_ID IS NULL)
408 AND (X_ORGANIZATION_ID IS NULL)))
409
410 AND ( ( Recinfo.RELATED_ITEM_ID = X_RELATED_ITEM_ID )
411 OR ( (Recinfo.RELATED_ITEM_ID IS NULL)
412 AND (X_RELATED_ITEM_ID IS NULL)))
413
414 AND ( ( Recinfo.RELATIONSHIP_TYPE_ID = X_RELATIONSHIP_TYPE_ID )
415 OR ( (Recinfo.RELATIONSHIP_TYPE_ID IS NULL)
416 AND (X_RELATIONSHIP_TYPE_ID IS NULL)))
417
418 AND ( ( Recinfo.SUBSTITUTION_CONTEXT = X_SUBSTITUTION_CONTEXT )
419 OR ( (Recinfo.SUBSTITUTION_CONTEXT IS NULL)
420 AND (X_SUBSTITUTION_CONTEXT IS NULL)))
421
422 AND ( ( Recinfo.SUBSTITUTION_ATTRIBUTE = X_SUBSTITUTION_ATTRIBUTE )
423 OR ( (Recinfo.SUBSTITUTION_ATTRIBUTE IS NULL)
424 AND (X_SUBSTITUTION_ATTRIBUTE IS NULL)))
425
426 AND ( ( Recinfo.SUBSTITUTION_VALUE = X_SUBSTITUTION_VALUE )
427 OR ( (Recinfo.SUBSTITUTION_VALUE IS NULL)
428 AND (X_SUBSTITUTION_VALUE IS NULL)))
429
430 AND ( ( Recinfo.REVISION = X_REVISION )
431 OR ( (Recinfo.REVISION IS NULL)
432 AND (X_REVISION IS NULL)))
433
434 AND ( ( Recinfo.REVISION_DATE = X_REVISION_DATE )
435 OR ( (Recinfo.REVISION_DATE IS NULL)
436 AND (X_REVISION_DATE IS NULL)))
437
438 AND ( ( Recinfo.REVISION_REASON_CODE = X_REVISION_REASON_CODE )
439 OR ( (Recinfo.REVISION_REASON_CODE IS NULL)
440 AND (X_REVISION_REASON_CODE IS NULL)))
441
442 AND ( ( Recinfo.COMMENTS = X_COMMENTS )
443 OR ( (Recinfo.COMMENTS IS NULL)
444 AND (X_COMMENTS IS NULL)))
445
446 AND ( ( Recinfo.CONTEXT = X_CONTEXT )
447 OR ( (Recinfo.CONTEXT IS NULL)
448 AND (X_CONTEXT IS NULL)))
449
450 AND ( ( Recinfo.ATTRIBUTE1 = X_ATTRIBUTE1 )
451 OR ( (Recinfo.ATTRIBUTE1 IS NULL)
452 AND (X_ATTRIBUTE1 IS NULL)))
453
454 AND ( ( Recinfo.ATTRIBUTE2 = X_ATTRIBUTE2 )
455 OR ( (Recinfo.ATTRIBUTE2 IS NULL)
456 AND (X_ATTRIBUTE2 IS NULL)))
457
458 AND ( ( Recinfo.ATTRIBUTE3 = X_ATTRIBUTE3 )
459 OR ( (Recinfo.ATTRIBUTE3 IS NULL)
460 AND (X_ATTRIBUTE3 IS NULL)))
464 AND (X_ATTRIBUTE4 IS NULL)))
461
462 AND ( ( Recinfo.ATTRIBUTE4 = X_ATTRIBUTE4 )
463 OR ( (Recinfo.ATTRIBUTE4 IS NULL)
465
466 AND ( ( Recinfo.ATTRIBUTE5 = X_ATTRIBUTE5 )
467 OR ( (Recinfo.ATTRIBUTE5 IS NULL)
468 AND (X_ATTRIBUTE5 IS NULL)))
469
470 AND ( ( Recinfo.ATTRIBUTE6 = X_ATTRIBUTE6 )
471 OR ( (Recinfo.ATTRIBUTE6 IS NULL)
472 AND (X_ATTRIBUTE6 IS NULL)))
473
474 AND ( ( Recinfo.ATTRIBUTE7 = X_ATTRIBUTE7 )
475 OR ( (Recinfo.ATTRIBUTE7 IS NULL)
476 AND (X_ATTRIBUTE7 IS NULL)))
477
478 AND ( ( Recinfo.ATTRIBUTE8 = X_ATTRIBUTE8 )
479 OR ( (Recinfo.ATTRIBUTE8 IS NULL)
480 AND (X_ATTRIBUTE8 IS NULL)))
481
482 AND ( ( Recinfo.ATTRIBUTE9 = X_ATTRIBUTE9 )
483 OR ( (Recinfo.ATTRIBUTE9 IS NULL)
484 AND (X_ATTRIBUTE9 IS NULL)))
485
486 AND ( ( Recinfo.ATTRIBUTE10 = X_ATTRIBUTE10 )
487 OR ( (Recinfo.ATTRIBUTE10 IS NULL)
488 AND (X_ATTRIBUTE10 IS NULL)))
489
490 AND ( ( Recinfo.ATTRIBUTE11 = X_ATTRIBUTE11 )
491 OR ( (Recinfo.ATTRIBUTE11 IS NULL)
492 AND (X_ATTRIBUTE11 IS NULL)))
493
494 AND ( ( Recinfo.ATTRIBUTE12 = X_ATTRIBUTE12 )
495 OR ( (Recinfo.ATTRIBUTE12 IS NULL)
496 AND (X_ATTRIBUTE12 IS NULL)))
497
498 AND ( ( Recinfo.ATTRIBUTE13 = X_ATTRIBUTE13 )
499 OR ( (Recinfo.ATTRIBUTE13 IS NULL)
500 AND (X_ATTRIBUTE13 IS NULL)))
501
502 AND ( ( Recinfo.ATTRIBUTE14 = X_ATTRIBUTE14 )
503 OR ( (Recinfo.ATTRIBUTE14 IS NULL)
504 AND (X_ATTRIBUTE14 IS NULL)))
505
506 AND ( ( Recinfo.ATTRIBUTE15 = X_ATTRIBUTE15 )
507 OR ( (Recinfo.ATTRIBUTE15 IS NULL)
508 AND (X_ATTRIBUTE15 IS NULL)))
509
510 AND ( ( Recinfo.PRICE_BREAK_TYPE_CODE= X_PRICE_BREAK_TYPE_CODE)
511 OR ( (Recinfo.PRICE_BREAK_TYPE_CODE IS NULL)
512 AND (X_PRICE_BREAK_TYPE_CODE IS NULL)))
513
514 AND ( ( Recinfo.PERCENT_PRICE = X_PERCENT_PRICE )
515 OR ( (Recinfo.PERCENT_PRICE IS NULL)
516 AND (X_PERCENT_PRICE IS NULL)))
517
518 AND ( ( Recinfo.PRICE_BY_FORMULA_ID = X_PRICE_BY_FORMULA_ID )
519 OR ( (Recinfo.PRICE_BY_FORMULA_ID IS NULL)
520 AND (X_PRICE_BY_FORMULA_ID IS NULL)))
521
522 AND ( ( Recinfo.NUMBER_EFFECTIVE_PERIODS = X_NUMBER_EFFECTIVE_PERIODS )
523 OR ( (Recinfo.NUMBER_EFFECTIVE_PERIODS IS NULL)
524 AND (X_NUMBER_EFFECTIVE_PERIODS IS NULL)))
525
526 AND ( ( Recinfo.EFFECTIVE_PERIOD_UOM = X_EFFECTIVE_PERIOD_UOM )
527 OR ( (Recinfo.EFFECTIVE_PERIOD_UOM IS NULL)
528 AND (X_EFFECTIVE_PERIOD_UOM IS NULL)))
529
530 AND ( ( Recinfo.ARITHMETIC_OPERATOR = X_ARITHMETIC_OPERATOR )
531 OR ( (Recinfo.ARITHMETIC_OPERATOR IS NULL)
532 AND (X_ARITHMETIC_OPERATOR IS NULL)))
533
534 AND ( ( Recinfo.OPERAND = X_OPERAND )
535 OR ( (Recinfo.OPERAND IS NULL)
536 AND (X_OPERAND IS NULL)))
537 /*
538 AND ( ( Recinfo.NEW_PRICE = X_NEW_PRICE )
539 OR ( (Recinfo.NEW_PRICE IS NULL)
540 AND (X_NEW_PRICE IS NULL)))
541 */
542 AND ( ( Recinfo.OVERRIDE_FLAG = X_OVERRIDE_FLAG )
543 OR ( (Recinfo.OVERRIDE_FLAG IS NULL)
544 AND (X_OVERRIDE_FLAG IS NULL)))
545
546 AND ( ( Recinfo.PRINT_ON_INVOICE_FLAG = X_PRINT_ON_INVOICE_FLAG )
547 OR ( (Recinfo.PRINT_ON_INVOICE_FLAG IS NULL)
548 AND (X_PRINT_ON_INVOICE_FLAG IS NULL)))
549 /*
550 AND ( ( Recinfo.GL_CLASS_ID = X_GL_CLASS_ID )
551 OR ( (Recinfo.GL_CLASS_ID IS NULL)
552 AND (X_GL_CLASS_ID IS NULL)))
553 */
554 AND ( ( Recinfo.REBATE_TRANSACTION_TYPE_CODE = X_REBATE_TRANSACTION_TYPE_CODE)
555 OR ( (Recinfo.REBATE_TRANSACTION_TYPE_CODE IS NULL)
556 AND (X_REBATE_TRANSACTION_TYPE_CODE IS NULL)))
557 /*
558 AND ( ( Recinfo.REBATE_SUBTYPE_CODE = X_REBATE_SUBTYPE_CODE )
559 OR ( (Recinfo.REBATE_SUBTYPE_CODE IS NULL)
560 AND (X_REBATE_SUBTYPE_CODE IS NULL)))
561 */
562 AND ( ( Recinfo.BASE_QTY = X_BASE_QTY )
563 OR ( (Recinfo.BASE_QTY IS NULL)
564 AND (X_BASE_QTY IS NULL)))
565
566 AND ( ( Recinfo.BASE_UOM_CODE = X_BASE_UOM_CODE )
567 OR ( (Recinfo.BASE_UOM_CODE IS NULL)
568 AND (X_BASE_UOM_CODE IS NULL)))
569 /*
570 AND ( ( Recinfo.ACCRUAL_TYPE_CODE = X_ACCRUAL_TYPE_CODE )
571 OR ( (Recinfo.ACCRUAL_TYPE_CODE IS NULL)
572 AND (X_ACCRUAL_TYPE_CODE IS NULL)))
573 */
574 AND ( ( Recinfo.ACCRUAL_QTY = X_ACCRUAL_QTY )
575 OR ( (Recinfo.ACCRUAL_QTY IS NULL)
576 AND (X_ACCRUAL_QTY IS NULL)))
577
578 AND ( ( Recinfo.ACCRUAL_UOM_CODE = X_ACCRUAL_UOM_CODE )
579 OR ( (Recinfo.ACCRUAL_UOM_CODE IS NULL)
580 AND (X_ACCRUAL_UOM_CODE IS NULL)))
581
582 AND ( ( Recinfo.ESTIM_ACCRUAL_RATE = X_ESTIM_ACCRUAL_RATE )
583 OR ( (Recinfo.ESTIM_ACCRUAL_RATE IS NULL)
584 AND (X_ESTIM_ACCRUAL_RATE IS NULL)))
585 /*
586 AND ( ( Recinfo.ACCUM_TO_ACCR_CONV_RATE = X_ACCUM_TO_ACCR_CONV_RATE )
587 OR ( (Recinfo.ACCUM_TO_ACCR_CONV_RATE IS NULL)
588 AND (X_ACCUM_TO_ACCR_CONV_RATE IS NULL)))
589 */
590 AND ( ( Recinfo.GENERATE_USING_FORMULA_ID = X_GENERATE_USING_FORMULA_ID )
591 OR ( (Recinfo.GENERATE_USING_FORMULA_ID IS NULL)
592 AND (X_GENERATE_USING_FORMULA_ID IS NULL)))
593
594 ) then
595
596 return;
597
598 else
599
600 FND_MESSAGE.Set_Name('FND','FORM_RECORD_CHANGED');
601 APP_EXCEPTION.Raise_Exception;
602
603 end if;
604
605 end Lock_Row;
606
607
608 PROCEDURE Update_Row(
609 X_LIST_LINE_ID IN OUT NUMBER
610 , X_CREATION_DATE DATE
611 , X_CREATED_BY NUMBER
612 , X_LAST_UPDATE_DATE DATE
613 , X_LAST_UPDATED_BY NUMBER
614 , X_LAST_UPDATE_LOGIN NUMBER
615 , X_PROGRAM_APPLICATION_ID NUMBER
616 , X_PROGRAM_ID NUMBER
617 , X_PROGRAM_UPDATE_DATE DATE
618 , X_REQUEST_ID NUMBER
622 , X_END_DATE_ACTIVE DATE
619 , X_LIST_HEADER_ID NUMBER
620 , X_LIST_LINE_TYPE_CODE VARCHAR2
621 , X_START_DATE_ACTIVE DATE
623 , X_AUTOMATIC_FLAG VARCHAR2
624 , X_MODIFIER_LEVEL_CODE VARCHAR2
625 , X_LIST_PRICE NUMBER
626 , X_LIST_PRICE_UOM_CODE VARCHAR2
627 , X_PRIMARY_UOM_FLAG VARCHAR2
628 , X_INVENTORY_ITEM_ID NUMBER
629 , X_ORGANIZATION_ID NUMBER
630 , X_RELATED_ITEM_ID NUMBER
631 , X_RELATIONSHIP_TYPE_ID NUMBER
632 , X_SUBSTITUTION_CONTEXT VARCHAR2
633 , X_SUBSTITUTION_ATTRIBUTE VARCHAR2
634 , X_SUBSTITUTION_VALUE VARCHAR2
635 , X_REVISION VARCHAR2
636 , X_REVISION_DATE DATE
637 , X_REVISION_REASON_CODE VARCHAR2
638 , X_COMMENTS VARCHAR2
639 , X_CONTEXT VARCHAR2
640 , X_ATTRIBUTE1 VARCHAR2
641 , X_ATTRIBUTE2 VARCHAR2
642 , X_ATTRIBUTE3 VARCHAR2
643 , X_ATTRIBUTE4 VARCHAR2
644 , X_ATTRIBUTE5 VARCHAR2
645 , X_ATTRIBUTE6 VARCHAR2
646 , X_ATTRIBUTE7 VARCHAR2
647 , X_ATTRIBUTE8 VARCHAR2
648 , X_ATTRIBUTE9 VARCHAR2
649 , X_ATTRIBUTE10 VARCHAR2
650 , X_ATTRIBUTE11 VARCHAR2
651 , X_ATTRIBUTE12 VARCHAR2
652 , X_ATTRIBUTE13 VARCHAR2
653 , X_ATTRIBUTE14 VARCHAR2
654 , X_ATTRIBUTE15 VARCHAR2
655 ,X_PRICE_BREAK_TYPE_CODE VARCHAR2
656 ,X_PERCENT_PRICE NUMBER
657 , X_PRICE_BY_FORMULA_ID NUMBER
658 , X_NUMBER_EFFECTIVE_PERIODS NUMBER
659 , X_EFFECTIVE_PERIOD_UOM VARCHAR2
660 , X_ARITHMETIC_OPERATOR VARCHAR2
661 , X_OPERAND NUMBER
662 , X_NEW_PRICE NUMBER
663 , X_OVERRIDE_FLAG VARCHAR2
664 , X_PRINT_ON_INVOICE_FLAG VARCHAR2
665 , X_GL_CLASS_ID NUMBER
666 , X_REBATE_TRANSACTION_TYPE_CODE VARCHAR2
667 , X_REBATE_SUBTYPE_CODE VARCHAR2
668 , X_BASE_QTY NUMBER
669 , X_BASE_UOM_CODE VARCHAR2
670 , X_ACCRUAL_TYPE_CODE VARCHAR2
671 , X_ACCRUAL_QTY NUMBER
672 , X_ACCRUAL_UOM_CODE VARCHAR2
673 , X_ESTIM_ACCRUAL_RATE NUMBER
674 , X_ACCUM_TO_ACCR_CONV_RATE NUMBER
675 , X_GENERATE_USING_FORMULA_ID NUMBER
676 ) IS
677
678 begin
679
680 UPDATE QP_LIST_LINES
681 SET
682 LIST_LINE_ID = X_LIST_LINE_ID
683 ,CREATION_DATE = X_CREATION_DATE
684 ,CREATED_BY = X_CREATED_BY
685 ,LAST_UPDATE_DATE = X_LAST_UPDATE_DATE
686 ,LAST_UPDATED_BY = X_LAST_UPDATED_BY
687 ,LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
688 ,PROGRAM_APPLICATION_ID = X_PROGRAM_APPLICATION_ID
689 ,PROGRAM_ID = X_PROGRAM_ID
690 ,PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE
691 ,REQUEST_ID = X_REQUEST_ID
692 ,LIST_HEADER_ID = X_LIST_HEADER_ID
693 ,LIST_LINE_TYPE_CODE = X_LIST_LINE_TYPE_CODE
694 ,START_DATE_ACTIVE = X_START_DATE_ACTIVE
695 ,END_DATE_ACTIVE = X_END_DATE_ACTIVE
696 ,AUTOMATIC_FLAG = X_AUTOMATIC_FLAG
697 ,MODIFIER_LEVEL_CODE = X_MODIFIER_LEVEL_CODE
698 ,LIST_PRICE = X_LIST_PRICE
699 ,LIST_PRICE_UOM_CODE = X_LIST_PRICE_UOM_CODE
700 ,PRIMARY_UOM_FLAG = X_PRIMARY_UOM_FLAG
701 ,INVENTORY_ITEM_ID = X_INVENTORY_ITEM_ID
702 ,ORGANIZATION_ID = X_ORGANIZATION_ID
703 ,RELATED_ITEM_ID = X_RELATED_ITEM_ID
704 ,RELATIONSHIP_TYPE_ID = X_RELATIONSHIP_TYPE_ID
705 ,SUBSTITUTION_CONTEXT = X_SUBSTITUTION_CONTEXT
706 ,SUBSTITUTION_ATTRIBUTE = X_SUBSTITUTION_ATTRIBUTE
707 ,SUBSTITUTION_VALUE = X_SUBSTITUTION_VALUE
708 ,REVISION = NULL
709 ,REVISION_DATE = NULL
710 ,REVISION_REASON_CODE = NULL
711 ,COMMENTS = X_COMMENTS
712 ,CONTEXT = X_CONTEXT
713 ,ATTRIBUTE1 = X_ATTRIBUTE1
714 ,ATTRIBUTE2 = X_ATTRIBUTE2
715 ,ATTRIBUTE3 = X_ATTRIBUTE3
716 ,ATTRIBUTE4 = X_ATTRIBUTE4
717 ,ATTRIBUTE5 = X_ATTRIBUTE5
718 ,ATTRIBUTE6 = X_ATTRIBUTE6
719 ,ATTRIBUTE7 = X_ATTRIBUTE7
720 ,ATTRIBUTE8 = X_ATTRIBUTE8
721 ,ATTRIBUTE9 = X_ATTRIBUTE9
722 ,ATTRIBUTE10 = X_ATTRIBUTE10
723 ,ATTRIBUTE11 = X_ATTRIBUTE11
724 ,ATTRIBUTE12 = X_ATTRIBUTE12
725 ,ATTRIBUTE13 = X_ATTRIBUTE13
726 ,ATTRIBUTE14 = X_ATTRIBUTE14
727 ,ATTRIBUTE15 = X_ATTRIBUTE15
728 ,PRICE_BREAK_TYPE_CODE = X_PRICE_BREAK_TYPE_CODE
729 ,PERCENT_PRICE = X_PERCENT_PRICE
730 ,PRICE_BY_FORMULA_ID = X_PRICE_BY_FORMULA_ID
731 ,NUMBER_EFFECTIVE_PERIODS = X_NUMBER_EFFECTIVE_PERIODS
732 ,EFFECTIVE_PERIOD_UOM = X_EFFECTIVE_PERIOD_UOM
733 ,ARITHMETIC_OPERATOR = X_ARITHMETIC_OPERATOR
734 ,OPERAND = X_OPERAND
735 --,NEW_PRICE = X_NEW_PRICE
736 ,OVERRIDE_FLAG = X_OVERRIDE_FLAG
737 ,PRINT_ON_INVOICE_FLAG = X_PRINT_ON_INVOICE_FLAG
738 --,GL_CLASS_ID = X_GL_CLASS_ID
739 ,REBATE_TRANSACTION_TYPE_CODE = X_REBATE_TRANSACTION_TYPE_CODE
740 --,REBATE_SUBTYPE_CODE = X_REBATE_SUBTYPE_CODE
741 ,BASE_QTY = X_BASE_QTY
742 ,BASE_UOM_CODE = X_BASE_UOM_CODE
743 --,ACCRUAL_TYPE_CODE = X_ACCRUAL_TYPE_CODE
744 ,ACCRUAL_QTY = X_ACCRUAL_QTY
745 ,ACCRUAL_UOM_CODE = X_ACCRUAL_UOM_CODE
746 ,ESTIM_ACCRUAL_RATE = X_ESTIM_ACCRUAL_RATE
747 --,ACCUM_TO_ACCR_CONV_RATE = X_ACCUM_TO_ACCR_CONV_RATE
748 ,GENERATE_USING_FORMULA_ID = X_GENERATE_USING_FORMULA_ID
752 raise no_data_found;
749 WHERE LIST_LINE_ID = X_LIST_LINE_ID;
750
751 if (sql%notfound) then
753 end if;
754
755 END Update_Row;
756
757
758
759
760 PROCEDURE Delete_Row(
761 X_LIST_LINE_ID NUMBER
762 ) IS
763
764 begin
765
766 delete from QP_LIST_LINES
767 where LIST_LINE_ID = X_LIST_LINE_ID;
768
769 if (SQL%NOTFOUND) then
770 Raise NO_DATA_FOUND;
771 end if;
772
773
774 END Delete_Row;
775
776
777
778
779 END QP_MODIFIER_LIST_LINE_PVT;