DBA Data[Home] [Help]

PACKAGE BODY: APPS.OZF_RESALE_ADJUSTMENTS_PKG

Source


1 PACKAGE BODY OZF_RESALE_ADJUSTMENTS_PKG as
2 /* $Header: ozftrsab.pls 120.1.12000000.2 2007/05/28 10:24:37 ateotia ship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 --          OZF_RESALE_ADJUSTMENTS_PKG
7 -- Purpose
8 --
9 -- History
10 -- Anuj Teotia              28/05/2007       bug # 5997978 fixed
11 --
12 -- NOTE
13 --
14 -- End of Comments
15 -- ===============================================================
16 
17 
18 G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_RESALE_ADJUSTMENTS_PKG';
19 G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozftrsab.pls';
20 
21 
22 ----------------------------------------------------------
23 ----          MEDIA           ----
24 ----------------------------------------------------------
25 
26 --  ========================================================
27 --
28 --  NAME
29 --  createInsertBody
30 --
31 --  PURPOSE
32 --
33 --  NOTES
34 --
35 --  HISTORY
36 --
37 --  ========================================================
38 PROCEDURE Insert_Row(
39           px_resale_adjustment_id   IN OUT  NOCOPY NUMBER,
40           px_object_version_number   IN OUT  NOCOPY NUMBER,
41           p_last_update_date    DATE,
42           p_last_updated_by    NUMBER,
43           p_creation_date    DATE,
44           p_request_id    NUMBER,
45           p_created_by    NUMBER,
46           p_created_from    VARCHAR2,
47           p_last_update_login    NUMBER,
48           p_program_application_id    NUMBER,
49           p_program_update_date    DATE,
50           p_program_id    NUMBER,
51           p_resale_line_id    NUMBER,
52           p_resale_batch_id    NUMBER,
53 	  p_orig_system_agreement_uom	varchar2,
54           p_ORIG_SYSTEM_AGREEMENT_name  varchar2,
55           p_orig_system_agreement_type      VARCHAR2,
56           p_orig_system_agreement_status    VARCHAR2,
57           p_orig_system_agreement_curr       VARCHAR2,
58           p_orig_system_agreement_price     NUMBER,
59           p_orig_system_agreement_quant  NUMBER,
60           p_agreement_id    NUMBER,
61           p_agreement_type    VARCHAR2,
62           p_agreement_name    VARCHAR2,
63           p_agreement_price    NUMBER,
64           p_agreement_uom_code    VARCHAR2,
65           p_corrected_agreement_id    NUMBER,
66           p_corrected_agreement_name    VARCHAR2,
67 	  p_credit_code       varchar2,
68 	  p_credit_advice_date   DATE,
69           p_allowed_amount    NUMBER,
70           p_total_allowed_amount    NUMBER,
71           p_accepted_amount    NUMBER,
72           p_total_accepted_amount    NUMBER,
73           p_claimed_amount    NUMBER,
74           p_total_claimed_amount    NUMBER,
75 	  p_calculated_price             NUMBER,
76           p_acctd_calculated_price       NUMBER,
77           p_calculated_amount            NUMBER,
78 	  p_line_agreement_flag       varchar2,
79           p_tolerance_flag    VARCHAR2,
80           p_line_tolerance_amount    NUMBER,
81           p_operand    NUMBER,
82           p_operand_calculation_code    VARCHAR2,
83           p_priced_quantity    NUMBER,
84           p_priced_uom_code    VARCHAR2,
85           p_priced_unit_price    NUMBER,
86           p_list_header_id    NUMBER,
87           p_list_line_id    NUMBER,
88           p_status_code    VARCHAR2,
89           px_org_id   IN OUT  NOCOPY NUMBER)
90 
91  IS
92    x_rowid    VARCHAR2(30);
93    l_batch_org_id NUMBER; -- bug # 5997978 fixed
94 
95 BEGIN
96 
97    -- Start: bug # 5997978 fixed
98    IF px_org_id IS NULL THEN
99       OPEN OZF_RESALE_COMMON_PVT.g_resale_batch_org_id_csr(p_resale_batch_id);
100       FETCH OZF_RESALE_COMMON_PVT.g_resale_batch_org_id_csr INTO l_batch_org_id;
101       CLOSE OZF_RESALE_COMMON_PVT.g_resale_batch_org_id_csr;
102       px_org_id := MO_GLOBAL.get_valid_org(l_batch_org_id);
103       IF (l_batch_org_id IS NULL OR px_org_id IS NULL) THEN
104          OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_ORG_ID_NOTFOUND');
105          RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
106       END IF;
107       /*IF (px_org_id IS NULL OR px_org_id = FND_API.G_MISS_NUM) THEN
108        SELECT NVL(SUBSTRB(USERENV('CLIENT_INFO'),1,10),-99)
109        INTO px_org_id
110        FROM DUAL; */
111    END IF;
112    -- End: bug # 5997978 fixed
113 
114 
115    px_object_version_number := 1;
116 
117 
118    INSERT INTO OZF_RESALE_ADJUSTMENTS_ALL(
119            resale_adjustment_id,
120            object_version_number,
121            last_update_date,
122            last_updated_by,
123            creation_date,
124            request_id,
125            created_by,
126            created_from,
127            last_update_login,
128            program_application_id,
129            program_update_date,
130            program_id,
131            resale_line_id,
132            resale_batch_id,
133            orig_system_agreement_uom,
134            ORIG_SYSTEM_AGREEMENT_name,
135            orig_system_agreement_type,
136            orig_system_agreement_status ,
137            orig_system_agreement_curr,
138            orig_system_agreement_price,
139            orig_system_agreement_quantity,
140            agreement_id,
141            agreement_type,
142            agreement_name,
143 	   agreement_price,
144 	   agreement_uom_code,
145            corrected_agreement_id,
146            corrected_agreement_name,
147            credit_code,
148            credit_advice_date,
149 	   allowed_amount,
150            total_allowed_amount,
151            accepted_amount,
152            total_accepted_amount,
153            claimed_amount,
154            total_claimed_amount,
155 	   calculated_price,
156            acctd_calculated_price,
157            calculated_amount,
158 	   line_agreement_flag,
159            tolerance_flag,
160            line_tolerance_amount,
161            operand,
162            operand_calculation_code,
163            priced_quantity,
164            priced_uom_code,
165            priced_unit_price,
166            list_header_id,
167            list_line_id,
168            status_code,
169            org_id
170    ) VALUES (
171            px_resale_adjustment_id,
172            px_object_version_number,
173            p_last_update_date,
174            p_last_updated_by,
175            p_creation_date,
176            p_request_id,
177            p_created_by,
178            p_created_from,
179            p_last_update_login,
180            p_program_application_id,
181            p_program_update_date,
182            p_program_id,
183            p_resale_line_id,
184            p_resale_batch_id,
185            p_orig_system_agreement_uom,
186            p_ORIG_SYSTEM_AGREEMENT_name,
187            p_orig_system_agreement_type,
188            p_orig_system_agreement_status ,
189            p_orig_system_agreement_curr,
190            p_orig_system_agreement_price,
191            p_orig_system_agreement_quant,
192            p_agreement_id,
193            p_agreement_type,
194            p_agreement_name,
195            p_agreement_price,
196            p_agreement_uom_code,
197 	   p_corrected_agreement_id,
198            p_corrected_agreement_name,
199            p_credit_code,
200 	   p_credit_advice_date,
201            p_allowed_amount,
202            p_total_allowed_amount,
203            p_accepted_amount,
204            p_total_accepted_amount,
205            p_claimed_amount,
206            p_total_claimed_amount,
207 	   p_calculated_price,
208            p_acctd_calculated_price,
209            p_calculated_amount,
210 	   p_line_agreement_flag,
211 	   p_tolerance_flag,
212            p_line_tolerance_amount,
213            p_operand,
214            p_operand_calculation_code,
215            p_priced_quantity,
216            p_priced_uom_code,
217            p_priced_unit_price,
218            p_list_header_id,
219            p_list_line_id,
220            p_status_code,
221            px_org_id);
222 END Insert_Row;
223 
224 
225 ----------------------------------------------------------
226 ----          MEDIA           ----
227 ----------------------------------------------------------
228 
229 --  ========================================================
230 --
231 --  NAME
232 --  createUpdateBody
233 --
234 --  PURPOSE
235 --
236 --  NOTES
237 --
238 --  HISTORY
239 --
240 --  ========================================================
241 PROCEDURE Update_Row(
242           p_resale_adjustment_id    NUMBER,
243           p_object_version_number    NUMBER,
244           p_last_update_date    DATE,
245           p_last_updated_by    NUMBER,
246           p_request_id    NUMBER,
247           p_created_from    VARCHAR2,
248           p_last_update_login    NUMBER,
249           p_program_application_id    NUMBER,
250           p_program_update_date    DATE,
251           p_program_id    NUMBER,
252           p_resale_line_id    NUMBER,
253           p_resale_batch_id    NUMBER,
254 	  p_orig_system_agreement_uom	varchar2,
255           p_ORIG_SYSTEM_AGREEMENT_name  varchar2,
256           p_orig_system_agreement_type      VARCHAR2,
257           p_orig_system_agreement_status    VARCHAR2,
258           p_orig_system_agreement_curr       VARCHAR2,
259           p_orig_system_agreement_price     NUMBER,
260           p_orig_system_agreement_quant  NUMBER,
261           p_agreement_id    NUMBER,
262           p_agreement_type    VARCHAR2,
263           p_agreement_name    VARCHAR2,
264           p_agreement_price    NUMBER,
265           p_agreement_uom_code    VARCHAR2,
266           p_corrected_agreement_id    NUMBER,
267           p_corrected_agreement_name    VARCHAR2,
268 	  p_credit_code       varchar2,
269 	  p_credit_advice_date   DATE,
270           p_allowed_amount    NUMBER,
271           p_total_allowed_amount    NUMBER,
272           p_accepted_amount    NUMBER,
273           p_total_accepted_amount    NUMBER,
274           p_claimed_amount    NUMBER,
275           p_total_claimed_amount    NUMBER,
276 	  p_calculated_price             NUMBER,
277           p_acctd_calculated_price       NUMBER,
278           p_calculated_amount            NUMBER,
279 	  p_line_agreement_flag       varchar2,
280           p_tolerance_flag    VARCHAR2,
281           p_line_tolerance_amount    NUMBER,
282           p_operand    NUMBER,
283           p_operand_calculation_code    VARCHAR2,
284           p_priced_quantity    NUMBER,
285           p_priced_uom_code    VARCHAR2,
286           p_priced_unit_price    NUMBER,
287           p_list_header_id    NUMBER,
288           p_list_line_id    NUMBER,
289           p_status_code    VARCHAR2,
290           p_org_id    NUMBER)
291 
292  IS
293  BEGIN
294     Update OZF_RESALE_ADJUSTMENTS_ALL
295     SET
296               resale_adjustment_id = p_resale_adjustment_id,
297               object_version_number = p_object_version_number,
298               last_update_date = p_last_update_date,
299               last_updated_by = p_last_updated_by,
300               request_id = p_request_id,
301               created_from = p_created_from,
302               last_update_login = p_last_update_login,
303               program_application_id = p_program_application_id,
304               program_update_date = p_program_update_date,
305               program_id = p_program_id,
306               resale_line_id = p_resale_line_id,
307               resale_batch_id = p_resale_batch_id,
308               orig_system_agreement_uom = p_orig_system_agreement_uom,
309               ORIG_SYSTEM_AGREEMENT_name = p_ORIG_SYSTEM_AGREEMENT_name,
310 	      orig_system_agreement_type = p_orig_system_agreement_type,
311               orig_system_agreement_status = p_orig_system_agreement_status,
312 	      orig_system_agreement_curr = p_orig_system_agreement_curr,
313               orig_system_agreement_price = p_orig_system_agreement_price,
314               orig_system_agreement_quantity = p_orig_system_agreement_quant,
315               agreement_id = p_agreement_id,
316               agreement_type = p_agreement_type,
317               agreement_name = p_agreement_name,
318 	      agreement_price = p_agreement_price,
319               agreement_uom_code = p_agreement_uom_code,
320               corrected_agreement_id = p_corrected_agreement_id,
321               corrected_agreement_name = p_corrected_agreement_name,
322 	      credit_code = p_credit_code,
323 	      credit_advice_date = p_credit_advice_date,
324               allowed_amount = p_allowed_amount,
325               total_allowed_amount = p_total_allowed_amount,
326               accepted_amount = p_accepted_amount,
327               total_accepted_amount = p_total_accepted_amount,
328               claimed_amount = p_claimed_amount,
329               total_claimed_amount = p_total_claimed_amount,
330               calculated_price = p_calculated_price,
331               acctd_calculated_price = p_acctd_calculated_price,
332               calculated_amount = p_calculated_amount,
333 	      line_agreement_flag = p_line_agreement_flag,
334 	      tolerance_flag = p_tolerance_flag,
335               line_tolerance_amount = p_line_tolerance_amount,
336               operand = p_operand,
337               operand_calculation_code = p_operand_calculation_code,
338               priced_quantity = p_priced_quantity,
339               priced_uom_code = p_priced_uom_code,
340               priced_unit_price = p_priced_unit_price,
341               list_header_id = p_list_header_id,
342               list_line_id = p_list_line_id,
343               status_code = p_status_code,
344               org_id = p_org_id
345    WHERE RESALE_ADJUSTMENT_ID = p_RESALE_ADJUSTMENT_ID
346    AND   object_version_number = p_object_version_number;
347 
348    IF (SQL%NOTFOUND) THEN
349 RAISE  FND_API.G_EXC_UNEXPECTED_ERROR;
350    END IF;
351 END Update_Row;
352 
353 
354 ----------------------------------------------------------
355 ----          MEDIA           ----
356 ----------------------------------------------------------
357 
358 --  ========================================================
359 --
360 --  NAME
361 --  createDeleteBody
362 --
363 --  PURPOSE
364 --
365 --  NOTES
366 --
367 --  HISTORY
368 --
369 --  ========================================================
370 PROCEDURE Delete_Row(
371     p_RESALE_ADJUSTMENT_ID  NUMBER)
372  IS
373  BEGIN
377 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
374    DELETE FROM OZF_RESALE_ADJUSTMENTS_ALL
375     WHERE RESALE_ADJUSTMENT_ID = p_RESALE_ADJUSTMENT_ID;
376    If (SQL%NOTFOUND) then
378    End If;
379  END Delete_Row ;
380 
381 
382 
383 ----------------------------------------------------------
384 ----          MEDIA           ----
385 ----------------------------------------------------------
386 
387 --  ========================================================
388 --
389 --  NAME
390 --  createLockBody
391 --
392 --  PURPOSE
393 --
394 --  NOTES
395 --
396 --  HISTORY
397 --
398 --  ========================================================
399 PROCEDURE Lock_Row(
400           p_resale_adjustment_id    NUMBER,
401           p_object_version_number    NUMBER,
402           p_last_update_date    DATE,
403           p_last_updated_by    NUMBER,
404           p_creation_date    DATE,
405           p_request_id    NUMBER,
406           p_created_by    NUMBER,
407           p_created_from    VARCHAR2,
408           p_last_update_login    NUMBER,
409           p_program_application_id    NUMBER,
410           p_program_update_date    DATE,
411           p_program_id    NUMBER,
412           p_resale_line_id    NUMBER,
413           p_resale_batch_id    NUMBER,
414           p_orig_system_agreement_uom	varchar2,
415           p_ORIG_SYSTEM_AGREEMENT_name  varchar2,
416           p_orig_system_agreement_type      VARCHAR2,
417           p_orig_system_agreement_status    VARCHAR2,
418           p_orig_system_agreement_curr       VARCHAR2,
419           p_orig_system_agreement_price     NUMBER,
420           p_orig_system_agreement_quant  NUMBER,
421           p_agreement_id    NUMBER,
422           p_agreement_type    VARCHAR2,
423           p_agreement_name    VARCHAR2,
424           p_agreement_price    NUMBER,
425           p_agreement_uom_code    VARCHAR2,
426           p_corrected_agreement_id    NUMBER,
427           p_corrected_agreement_name    VARCHAR2,
428 	  p_credit_code       varchar2,
429 	  p_credit_advice_date   DATE,
430           p_allowed_amount    NUMBER,
431           p_total_allowed_amount    NUMBER,
432           p_accepted_amount    NUMBER,
433           p_total_accepted_amount    NUMBER,
434           p_claimed_amount    NUMBER,
435           p_total_claimed_amount    NUMBER,
436 	  p_calculated_price             NUMBER,
437           p_acctd_calculated_price       NUMBER,
438           p_calculated_amount            NUMBER,
439 	  p_line_agreement_flag       varchar2,
440           p_tolerance_flag    VARCHAR2,
441           p_line_tolerance_amount    NUMBER,
442           p_operand    NUMBER,
443           p_operand_calculation_code    VARCHAR2,
444           p_priced_quantity    NUMBER,
445           p_priced_uom_code    VARCHAR2,
446           p_priced_unit_price    NUMBER,
447           p_list_header_id    NUMBER,
448           p_list_line_id    NUMBER,
449           p_status_code    VARCHAR2,
450           p_org_id    NUMBER)
451 
452  IS
453    CURSOR C IS
454         SELECT *
455          FROM OZF_RESALE_ADJUSTMENTS_ALL
456         WHERE RESALE_ADJUSTMENT_ID =  p_RESALE_ADJUSTMENT_ID
457         FOR UPDATE of RESALE_ADJUSTMENT_ID NOWAIT;
458    Recinfo C%ROWTYPE;
459  BEGIN
460     OPEN c;
461     FETCH c INTO Recinfo;
462     If (c%NOTFOUND) then
463         CLOSE c;
464         FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
465         APP_EXCEPTION.RAISE_EXCEPTION;
466     END IF;
467     CLOSE C;
468     IF (
469            (      Recinfo.resale_adjustment_id = p_resale_adjustment_id)
470        AND (    ( Recinfo.object_version_number = p_object_version_number)
471             OR (    ( Recinfo.object_version_number IS NULL )
472                 AND (  p_object_version_number IS NULL )))
473        AND (    ( Recinfo.last_update_date = p_last_update_date)
474             OR (    ( Recinfo.last_update_date IS NULL )
475                 AND (  p_last_update_date IS NULL )))
476        AND (    ( Recinfo.last_updated_by = p_last_updated_by)
477             OR (    ( Recinfo.last_updated_by IS NULL )
478                 AND (  p_last_updated_by IS NULL )))
479        AND (    ( Recinfo.creation_date = p_creation_date)
480             OR (    ( Recinfo.creation_date IS NULL )
481                 AND (  p_creation_date IS NULL )))
482        AND (    ( Recinfo.request_id = p_request_id)
483             OR (    ( Recinfo.request_id IS NULL )
484                 AND (  p_request_id IS NULL )))
485        AND (    ( Recinfo.created_by = p_created_by)
486             OR (    ( Recinfo.created_by IS NULL )
487                 AND (  p_created_by IS NULL )))
488        AND (    ( Recinfo.created_from = p_created_from)
489             OR (    ( Recinfo.created_from IS NULL )
490                 AND (  p_created_from IS NULL )))
491        AND (    ( Recinfo.last_update_login = p_last_update_login)
492             OR (    ( Recinfo.last_update_login IS NULL )
493                 AND (  p_last_update_login IS NULL )))
494        AND (    ( Recinfo.program_application_id = p_program_application_id)
495             OR (    ( Recinfo.program_application_id IS NULL )
496                 AND (  p_program_application_id IS NULL )))
497        AND (    ( Recinfo.program_update_date = p_program_update_date)
501             OR (    ( Recinfo.program_id IS NULL )
498             OR (    ( Recinfo.program_update_date IS NULL )
499                 AND (  p_program_update_date IS NULL )))
500        AND (    ( Recinfo.program_id = p_program_id)
502                 AND (  p_program_id IS NULL )))
503        AND (    ( Recinfo.resale_line_id = p_resale_line_id)
504             OR (    ( Recinfo.resale_line_id IS NULL )
505                 AND (  p_resale_line_id IS NULL )))
506        AND (    ( Recinfo.resale_batch_id = p_resale_batch_id)
507             OR (    ( Recinfo.resale_batch_id IS NULL )
508                 AND (  p_resale_batch_id IS NULL )))
509        AND (    ( Recinfo.orig_system_agreement_uom = p_orig_system_agreement_uom)
510             OR (    ( Recinfo.orig_system_agreement_uom IS NULL )
511                 AND (  p_orig_system_agreement_uom IS NULL )))
512        AND (    ( Recinfo.ORIG_SYSTEM_AGREEMENT_name = p_ORIG_SYSTEM_AGREEMENT_name)
513             OR (    ( Recinfo.ORIG_SYSTEM_AGREEMENT_name IS NULL )
514                 AND (  p_ORIG_SYSTEM_AGREEMENT_name IS NULL )))
515        AND (    ( Recinfo.orig_system_agreement_type = p_orig_system_agreement_type)
516             OR (    ( Recinfo.orig_system_agreement_type IS NULL )
517                 AND (  p_orig_system_agreement_type IS NULL )))
518        AND (    ( Recinfo.orig_system_agreement_status = p_orig_system_agreement_status)
519             OR (    ( Recinfo.orig_system_agreement_status IS NULL )
520                 AND (  p_orig_system_agreement_status IS NULL )))
521       AND (    ( Recinfo.orig_system_agreement_curr = p_orig_system_agreement_curr)
522             OR (    ( Recinfo.orig_system_agreement_curr IS NULL )
523                 AND (  p_orig_system_agreement_curr IS NULL )))
524        AND (    ( Recinfo.orig_system_agreement_price = p_orig_system_agreement_price)
525             OR (    ( Recinfo.orig_system_agreement_price IS NULL )
526                 AND (  p_orig_system_agreement_price IS NULL )))
527        AND (    ( Recinfo.orig_system_agreement_quantity = p_orig_system_agreement_quant)
528             OR (    ( Recinfo.orig_system_agreement_quantity IS NULL )
529                 AND (  p_orig_system_agreement_quant IS NULL )))
530        AND (    ( Recinfo.agreement_id = p_agreement_id)
531             OR (    ( Recinfo.agreement_id IS NULL )
532                 AND (  p_agreement_id IS NULL )))
533        AND (    ( Recinfo.agreement_type = p_agreement_type)
534             OR (    ( Recinfo.agreement_type IS NULL )
535                 AND (  p_agreement_type IS NULL )))
536        AND (    ( Recinfo.agreement_name = p_agreement_name)
537             OR (    ( Recinfo.agreement_name IS NULL )
538                 AND (  p_agreement_name IS NULL )))
539        AND (    ( Recinfo.agreement_price = p_agreement_price)
540             OR (    ( Recinfo.agreement_price IS NULL )
541                 AND (  p_agreement_price IS NULL )))
542        AND (    ( Recinfo.agreement_uom_code = p_agreement_uom_code)
543             OR (    ( Recinfo.agreement_uom_code IS NULL )
544                 AND (  p_agreement_uom_code IS NULL )))
545        AND (    ( Recinfo.corrected_agreement_id = p_corrected_agreement_id)
546             OR (    ( Recinfo.corrected_agreement_id IS NULL )
547                 AND (  p_corrected_agreement_id IS NULL )))
548        AND (    ( Recinfo.corrected_agreement_name = p_corrected_agreement_name)
549             OR (    ( Recinfo.corrected_agreement_name IS NULL )
550                 AND (  p_corrected_agreement_name IS NULL )))
551        AND (    ( Recinfo.credit_code = p_credit_code)
552             OR (    ( Recinfo.credit_code IS NULL )
553                 AND (  p_credit_code IS NULL )))
554        AND (    ( Recinfo.credit_advice_date = p_credit_advice_date)
555             OR (    ( Recinfo.credit_advice_date IS NULL )
556                 AND (  p_credit_advice_date IS NULL )))
557        AND (    ( Recinfo.allowed_amount = p_allowed_amount)
558             OR (    ( Recinfo.allowed_amount IS NULL )
559                 AND (  p_allowed_amount IS NULL )))
560        AND (    ( Recinfo.total_allowed_amount = p_total_allowed_amount)
561             OR (    ( Recinfo.total_allowed_amount IS NULL )
562                 AND (  p_total_allowed_amount IS NULL )))
563        AND (    ( Recinfo.accepted_amount = p_accepted_amount)
564             OR (    ( Recinfo.accepted_amount IS NULL )
565                 AND (  p_accepted_amount IS NULL )))
566        AND (    ( Recinfo.total_accepted_amount = p_total_accepted_amount)
567             OR (    ( Recinfo.total_accepted_amount IS NULL )
568                 AND (  p_total_accepted_amount IS NULL )))
569        AND (    ( Recinfo.claimed_amount = p_claimed_amount)
570             OR (    ( Recinfo.claimed_amount IS NULL )
571                 AND (  p_claimed_amount IS NULL )))
572        AND (    ( Recinfo.total_claimed_amount = p_total_claimed_amount)
573             OR (    ( Recinfo.total_claimed_amount IS NULL )
574                 AND (  p_total_claimed_amount IS NULL )))
575        AND (    ( Recinfo.calculated_price = p_calculated_price)
576             OR (    ( Recinfo.calculated_price IS NULL )
577                 AND (  p_calculated_price IS NULL )))
578        AND (    ( Recinfo.acctd_calculated_price = p_acctd_calculated_price)
579             OR (    ( Recinfo.acctd_calculated_price IS NULL )
580                 AND (  p_acctd_calculated_price IS NULL )))
581        AND (    ( Recinfo.calculated_amount = p_calculated_amount)
582             OR (    ( Recinfo.calculated_amount IS NULL )
583                 AND (  p_calculated_amount IS NULL )))
584        AND (    ( Recinfo.line_agreement_flag = p_line_agreement_flag)
585             OR (    ( Recinfo.line_agreement_flag IS NULL )
586                 AND (  p_line_agreement_flag IS NULL )))
587        AND (    ( Recinfo.tolerance_flag = p_tolerance_flag)
588             OR (    ( Recinfo.tolerance_flag IS NULL )
589                 AND (  p_tolerance_flag IS NULL )))
590        AND (    ( Recinfo.line_tolerance_amount = p_line_tolerance_amount)
591             OR (    ( Recinfo.line_tolerance_amount IS NULL )
592                 AND (  p_line_tolerance_amount IS NULL )))
593        AND (    ( Recinfo.operand = p_operand)
594             OR (    ( Recinfo.operand IS NULL )
595                 AND (  p_operand IS NULL )))
596        AND (    ( Recinfo.operand_calculation_code = p_operand_calculation_code)
597             OR (    ( Recinfo.operand_calculation_code IS NULL )
598                 AND (  p_operand_calculation_code IS NULL )))
599        AND (    ( Recinfo.priced_quantity = p_priced_quantity)
600             OR (    ( Recinfo.priced_quantity IS NULL )
601                 AND (  p_priced_quantity IS NULL )))
602        AND (    ( Recinfo.priced_uom_code = p_priced_uom_code)
603             OR (    ( Recinfo.priced_uom_code IS NULL )
604                 AND (  p_priced_uom_code IS NULL )))
605        AND (    ( Recinfo.priced_unit_price = p_priced_unit_price)
606             OR (    ( Recinfo.priced_unit_price IS NULL )
607                 AND (  p_priced_unit_price IS NULL )))
608        AND (    ( Recinfo.list_header_id = p_list_header_id)
609             OR (    ( Recinfo.list_header_id IS NULL )
610                 AND (  p_list_header_id IS NULL )))
611        AND (    ( Recinfo.list_line_id = p_list_line_id)
612             OR (    ( Recinfo.list_line_id IS NULL )
613                 AND (  p_list_line_id IS NULL )))
614        AND (    ( Recinfo.status_code = p_status_code)
615             OR (    ( Recinfo.status_code IS NULL )
616                 AND (  p_status_code IS NULL )))
617        AND (    ( Recinfo.org_id = p_org_id)
618             OR (    ( Recinfo.org_id IS NULL )
619                 AND (  p_org_id IS NULL )))
620        ) THEN
621        RETURN;
622    ELSE
623        FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
624        APP_EXCEPTION.RAISE_EXCEPTION;
625    END IF;
626 END Lock_Row;
627 
628 END OZF_RESALE_ADJUSTMENTS_PKG;