1 PACKAGE BODY JMF_GTA_TRX_LINES_ALL_PKG AS
2 --$Header: JMFUGLAB.pls 120.2 2005/10/20 10:25:30 yawang noship $
3 --+=======================================================================+
4 --| Copyright (c) 1998 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| JMFUGLAB.pls |
10 --| |
11 --| DESCRIPTION |
12 --| This package provides table handers for |
13 --| table JMF_GTA_TRX_LINES_ALL,these handlers |
14 --| will be called by 'Golden Tax Workbench' form and 'Golden Tax |
15 --| invoie import' program to operate data in table |
16 --| JMF_GTA_TRX_LINES_ALL |
17 --| |
18 --| PROCEDURE LIST |
19 --| PROCEDURE Insert_Row |
20 --| PROCEDURE Update_Row |
21 --| PROCEDURE Lock_Row |
22 --| PROCEDURE Delete_Row |
23 --| |
24 --| HISTORY |
25 --| 05/17/05 Donghai Wang Created |
26 --| 10/19/05 Donghai Wang Update the procedure Lock_Row |
27 --+======================================================================*/
28
29 --==========================================================================
30 -- PROCEDURE NAME:
31 --
32 -- Insert_Row Public
33 --
34 -- DESCRIPTION:
35 --
36 -- This procedure is to insert data that are passed in by parameters into
37 -- table JMF_GTA_TRX_LINES_ALL to create a new record
38 --
39 -- PARAMETERS:
40 -- In: p_org_id Identifier of operating unit
41 -- p_gta_trx_header_id Identifier of GTA invoice header
42 -- p_gta_trx_line_id Identifier of GTA invoice line
43 -- p_matched_flag A flag to identify if a GT line
44 -- can match GTA line
45 -- p_line_number Line number
46 -- p_ar_trx_line_id Identifier of AR transaction lines
47 -- p_inventory_item_id Identifier of Item
48 -- p_item_number Item number
49 -- p_item_description Item description
50 -- p_item_model Item Model
51 -- p_item_tax_denomination Tax denomination for a item
52 -- p_tax_rate Tax rate
53 -- p_uom Unit of measure
54 -- p_uom_name Name for unit of measure
55 -- p_quantity Quantity
56 -- p_price_flag Flag to identify if unit procie with tax
57 -- p_unit_price Unit price without tax
58 -- p_unit_tax_price Unit price with tax
59 -- p_amount Amount without tax
60 -- p_original_currency_amount Amount without tax in original
61 -- curency code of invoice
62 -- p_tax_amount Amount with tax
63 -- p_discount_flag A flag to identify amount of
64 -- invoice line with discount or not
65 -- p_enabled_flag A flag to indicate if the line should
66 -- be imported to GT system
67 -- p_request_id Conc request id
68 -- p_program_application_id Program application id
69 -- p_program_id Program id
70 -- p_program_update_date Program update date
71 -- p_attribute_category Attribute category of
72 -- descriptive flexfield
73 -- p_attribute1 Attribute1
74 -- p_attribute2 Attribute2
75 -- p_attribute3 Attribute3
76 -- p_attribute4 Attribute4
77 -- p_attribute5 Attribute5
78 -- p_attribute6 Attribute6
79 -- p_attribute7 Attribute7
80 -- p_attribute8 Attribute8
81 -- p_attribute9 Attribute9
82 -- p_attribute10 Attribute10
83 -- p_attribute11 Attribute11
84 -- p_attribute12 Attribute12
85 -- p_attribute13 Attribute13
86 -- p_attribute14 Attribute14
87 -- p_attribute15 Attribute15
88 -- p_creation_date Creation date
89 -- p_created_by Identifier of user that creates
90 -- the record
91 -- p_last_update_date Last update date of the record
92 -- p_last_updated_by Last update by
93 -- p_last_update_login Last update login
94 --
95 -- In Out: p_row_id Row id of a table record
96 --
97 --
98 -- DESIGN REFERENCES:
99 -- GTA_Workbench_Form_TD.doc
100 --
101 -- CHANGE HISTORY:
102 --
103 -- 17-MAY-2005 Donghai Wang created
104 --
105 --===========================================================================
106 PROCEDURE Insert_Row
107 (p_rowid IN OUT NOCOPY VARCHAR2
108 ,p_org_id IN NUMBER
109 ,p_gta_trx_header_id IN NUMBER
110 ,p_gta_trx_line_id IN NUMBER
111 ,p_matched_flag IN VARCHAR2
112 ,p_line_number IN VARCHAR2
113 ,p_ar_trx_line_id IN NUMBER
114 ,p_inventory_item_id IN NUMBER
115 ,p_item_number IN VARCHAR2
116 ,p_item_description IN VARCHAR2
117 ,p_item_model IN VARCHAR2
118 ,p_item_tax_denomination IN VARCHAR2
119 ,p_tax_rate IN NUMBER
120 ,p_uom IN VARCHAR2
121 ,p_uom_name IN VARCHAR2
122 ,p_quantity IN NUMBER
123 ,p_price_flag IN VARCHAR2
124 ,p_unit_price IN NUMBER
125 ,p_unit_tax_price IN NUMBER
126 ,p_amount IN NUMBER
127 ,p_original_currency_amount IN NUMBER
128 ,p_tax_amount IN NUMBER
129 ,p_discount_flag IN VARCHAR2
130 ,p_enabled_flag IN VARCHAR2
131 ,p_request_id IN NUMBER
132 ,p_program_application_id IN NUMBER
133 ,p_program_id IN NUMBER
134 ,p_program_update_date IN DATE
135 ,p_attribute_category IN VARCHAR2
136 ,p_attribute1 IN VARCHAR2
137 ,p_attribute2 IN VARCHAR2
138 ,p_attribute3 IN VARCHAR2
139 ,p_attribute4 IN VARCHAR2
140 ,p_attribute5 IN VARCHAR2
141 ,p_attribute6 IN VARCHAR2
142 ,p_attribute7 IN VARCHAR2
143 ,p_attribute8 IN VARCHAR2
144 ,p_attribute9 IN VARCHAR2
145 ,p_attribute10 IN VARCHAR2
146 ,p_attribute11 IN VARCHAR2
147 ,p_attribute12 IN VARCHAR2
148 ,p_attribute13 IN VARCHAR2
149 ,p_attribute14 IN VARCHAR2
150 ,p_attribute15 IN VARCHAR2
151 ,p_creation_date IN DATE
152 ,p_created_by IN NUMBER
153 ,p_last_update_date IN DATE
154 ,p_last_updated_by IN NUMBER
155 ,p_last_update_login IN NUMBER
156 )
157 IS
158 l_procedure_name VARCHAR2(100) :='Insert_Row';
159 l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
160 l_proc_level NUMBER :=FND_LOG.Level_Procedure;
161 CURSOR C IS
162 SELECT
163 ROWID
164 FROM
165 jmf_gta_trx_lines_all
166 WHERE gta_trx_line_id=p_gta_trx_line_id;
167
168 BEGIN
169
170 --log for debug
171 IF( l_proc_level >= l_dbg_level)
172 THEN
173
174 FND_LOG.String(l_proc_level
175 ,G_MODULE_PREFIX||'.'||l_procedure_name||'.begin'
176 ,'Enter procedure'
177 );
178
179 END IF; --( l_proc_level >= l_dbg_level)
180
181 --Insert data into table JMF_GTA_TRX_LINES_ALL
182 INSERT INTO jmf_gta_trx_lines_all(
183 org_id
184 ,gta_trx_header_id
185 ,gta_trx_line_id
186 ,matched_flag
187 ,line_number
188 ,ar_trx_line_id
189 ,inventory_item_id
190 ,item_number
191 ,item_description
192 ,item_model
193 ,item_tax_denomination
194 ,tax_rate
195 ,uom
196 ,uom_name
197 ,quantity
198 ,price_flag
199 ,unit_price
200 ,unit_tax_price
201 ,amount
202 ,original_currency_amount
203 ,tax_amount
204 ,discount_flag
205 ,enabled_flag
206 ,request_id
207 ,program_application_id
208 ,program_id
209 ,program_update_date
210 ,attribute_category
211 ,attribute1
212 ,attribute2
213 ,attribute3
214 ,attribute4
215 ,attribute5
216 ,attribute6
217 ,attribute7
218 ,attribute8
219 ,attribute9
220 ,attribute10
221 ,attribute11
222 ,attribute12
223 ,attribute13
224 ,attribute14
225 ,attribute15
226 ,creation_date
227 ,created_by
228 ,last_update_date
229 ,last_updated_by
230 ,last_update_login
231 )
232 VALUES(
233 p_org_id
234 ,p_gta_trx_header_id
235 ,p_gta_trx_line_id
236 ,p_matched_flag
237 ,p_line_number
238 ,p_ar_trx_line_id
239 ,p_inventory_item_id
240 ,p_item_number
241 ,p_item_description
242 ,p_item_model
243 ,p_item_tax_denomination
244 ,p_tax_rate
245 ,p_uom
246 ,p_uom_name
247 ,p_quantity
248 ,p_price_flag
249 ,p_unit_price
250 ,p_unit_tax_price
251 ,p_amount
252 ,p_original_currency_amount
253 ,p_tax_amount
254 ,p_discount_flag
255 ,p_enabled_flag
256 ,p_request_id
257 ,p_program_application_id
258 ,p_program_id
259 ,p_program_update_date
260 ,p_attribute_category
261 ,p_attribute1
262 ,p_attribute2
263 ,p_attribute3
264 ,p_attribute4
265 ,p_attribute5
266 ,p_attribute6
267 ,p_attribute7
268 ,p_attribute8
269 ,p_attribute9
270 ,p_attribute10
271 ,p_attribute11
272 ,p_attribute12
273 ,p_attribute13
274 ,p_attribute14
275 ,p_attribute15
276 ,p_creation_date
277 ,p_created_by
278 ,p_last_update_date
279 ,p_last_updated_by
280 ,p_last_update_login
281 );
282
283 --In case of insert failed, raise error
284 OPEN c;
285 FETCH c INTO p_rowid;
286 IF (c%NOTFOUND)
287 THEN
288 CLOSE c;
289 RAISE NO_DATA_FOUND;
290 END IF; --(c%NOTFOUND)
291 CLOSE C;
292
293 --log for debug
294 IF( l_proc_level >= l_dbg_level)
295 THEN
296
297 FND_LOG.String(l_proc_level
298 ,G_MODULE_PREFIX||'.'||l_procedure_name||'.end'
299 ,'Exit procedure'
300 );
301
302 END IF; --( l_proc_level >= l_dbg_level)
303 END Insert_Row;
304
305
306 --==========================================================================
307 -- PROCEDURE NAME:
308 --
309 -- Update_Row Public
310 --
311 -- DESCRIPTION:
312 --
313 -- This procedure is used to update data in table JMF_GTA_TRX_LINES_ALL
314 -- according to parameters passed in
315 --
316 -- PARAMETERS:
317 -- In: p_org_id Identifier of operating unit
318 -- p_gta_trx_header_id Identifier of GTA invoice header
319 -- p_gta_trx_line_id Identifier of GTA invoice line
320 -- p_line_number Line number
321 -- p_item_number Item number
322 -- p_item_description Item description
323 -- p_item_model Item Model
324 -- p_item_tax_denomination Tax denomination for a item
325 -- p_tax_rate Tax rate
326 -- p_uom_name Name for unit of measure
327 -- p_quantity Quantity
328 -- p_unit_price Unit price without tax
329 -- p_amount Amount without tax
330 -- p_original_currency_amount Amount without tax in original
331 -- curency code of invoice
332 -- p_enabled_flag A flag to indicate if the line should
333 -- be imported to GT system
334 -- p_request_id Conc request id
335 -- p_program_application_id Program application id
336 -- p_program_id Program id
337 -- p_program_update_date Program update date
338 -- p_attribute_category Attribute category of
339 -- descriptive flexfield
340 -- p_attribute1 Attribute1
341 -- p_attribute2 Attribute2
342 -- p_attribute3 Attribute3
343 -- p_attribute4 Attribute4
344 -- p_attribute5 Attribute5
345 -- p_attribute6 Attribute6
346 -- p_attribute7 Attribute7
347 -- p_attribute8 Attribute8
348 -- p_attribute9 Attribute9
349 -- p_attribute10 Attribute10
350 -- p_attribute11 Attribute11
351 -- p_attribute12 Attribute12
352 -- p_attribute13 Attribute13
353 -- p_attribute14 Attribute14
354 -- p_attribute15 Attribute15
355 -- p_creation_date Creation date
356 -- p_created_by Identifier of user that creates
357 -- the record
358 -- p_last_update_date Last update date of the record
359 -- p_last_updated_by Last update by
360 -- p_last_update_login Last update login
361 --
362 -- In Out: p_row_id Row id of a table record
363 --
364 --
365 -- DESIGN REFERENCES:
366 -- GTA_Workbench_Form_TD.doc
367 --
368 -- CHANGE HISTORY:
369 --
370 -- 17-MAY-2005 Donghai Wang created
371 --
372 --===========================================================================
373 PROCEDURE Update_Row
374 (p_rowid IN OUT NOCOPY VARCHAR2
375 ,p_org_id IN NUMBER
376 ,p_gta_trx_header_id IN NUMBER
377 ,p_gta_trx_line_id IN NUMBER
378 ,p_line_number IN VARCHAR2
379 ,p_item_number IN VARCHAR2
380 ,p_item_description IN VARCHAR2
381 ,p_item_model IN VARCHAR2
382 ,p_item_tax_denomination IN VARCHAR2
383 ,p_tax_rate IN NUMBER
384 ,p_uom_name IN VARCHAR2
385 ,p_quantity IN NUMBER
386 ,p_unit_price IN NUMBER
387 ,p_amount IN NUMBER
388 ,p_original_currency_amount IN NUMBER
389 ,p_enabled_flag IN VARCHAR2
390 ,p_request_id IN NUMBER
391 ,p_program_application_id IN NUMBER
392 ,p_program_id IN NUMBER
393 ,p_program_update_date IN DATE
394 ,p_attribute_category IN VARCHAR2
395 ,p_attribute1 IN VARCHAR2
396 ,p_attribute2 IN VARCHAR2
397 ,p_attribute3 IN VARCHAR2
398 ,p_attribute4 IN VARCHAR2
399 ,p_attribute5 IN VARCHAR2
403 ,p_attribute9 IN VARCHAR2
400 ,p_attribute6 IN VARCHAR2
401 ,p_attribute7 IN VARCHAR2
402 ,p_attribute8 IN VARCHAR2
404 ,p_attribute10 IN VARCHAR2
405 ,p_attribute11 IN VARCHAR2
406 ,p_attribute12 IN VARCHAR2
407 ,p_attribute13 IN VARCHAR2
408 ,p_attribute14 IN VARCHAR2
409 ,p_attribute15 IN VARCHAR2
410 ,p_creation_date IN DATE
411 ,p_created_by IN NUMBER
412 ,p_last_update_date IN DATE
413 ,p_last_updated_by IN NUMBER
414 ,p_last_update_login IN NUMBER
415 )
416 IS
417 l_procedure_name VARCHAR2(100) :='Update_Row';
418 l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
419 l_proc_level NUMBER :=FND_LOG.Level_Procedure;
420 BEGIN
421
422 --log for debug
423 IF( l_proc_level >= l_dbg_level)
424 THEN
425
426 FND_LOG.String(l_proc_level
427 ,G_MODULE_PREFIX||'.'||l_procedure_name||'.begin'
428 ,'Enter procedure'
429 );
430
431 END IF; --( l_proc_level >= l_dbg_level)
432
433 --Update data on table JMF_GTA_TRX_LINES_ALL
434 UPDATE jmf_gta_trx_lines_all
435 SET
436 org_id = p_org_id
437 ,gta_trx_header_id = p_gta_trx_header_id
438 ,gta_trx_line_id = p_gta_trx_line_id
439 ,line_number = p_line_number
440 ,item_number = p_item_number
441 ,item_description = p_item_description
442 ,item_model = p_item_model
443 ,item_tax_denomination = p_item_tax_denomination
444 ,tax_rate = p_tax_rate
445 ,uom_name = p_uom_name
446 ,quantity = p_quantity
447 ,unit_price = p_unit_price
448 ,amount = p_amount
449 ,original_currency_amount = p_original_currency_amount
450 ,enabled_flag = p_enabled_flag
451 ,request_id = p_request_id
452 ,program_application_id = p_program_application_id
453 ,program_id = p_program_id
454 ,program_update_date = p_program_update_date
455 ,attribute_category = p_attribute_category
456 ,attribute1 = p_attribute1
457 ,attribute2 = p_attribute2
458 ,attribute3 = p_attribute3
459 ,attribute4 = p_attribute4
460 ,attribute5 = p_attribute5
461 ,attribute6 = p_attribute6
462 ,attribute7 = p_attribute7
463 ,attribute8 = p_attribute8
464 ,attribute9 = p_attribute9
465 ,attribute10 = p_attribute10
466 ,attribute11 = p_attribute11
467 ,attribute12 = p_attribute12
468 ,attribute13 = p_attribute13
469 ,attribute14 = p_attribute14
470 ,attribute15 = p_attribute15
471 ,creation_date = p_creation_date
472 ,created_by = p_created_by
473 ,last_update_date = p_last_update_date
474 ,last_updated_by = p_last_updated_by
475 ,last_update_login = p_last_update_login
476 WHERE ROWID=p_rowid;
477
478 --In case of update failed, raise error
479 IF (SQL%NOTFOUND)
480 THEN
481 RAISE NO_DATA_FOUND;
482 END IF; --(SQL%NOTFOUND)
483
484 --log for debug
485 IF( l_proc_level >= l_dbg_level)
486 THEN
487
488 FND_LOG.String(l_proc_level
489 ,G_MODULE_PREFIX||'.'||l_procedure_name||'.end'
490 ,'Exit procedure'
491 );
492
493 END IF; --( l_proc_level >= l_dbg_level)
494 END Update_Row;
495
496 --==========================================================================
497 -- PROCEDURE NAME:
498 --
499 -- Lock_Row Public
500 --
501 -- DESCRIPTION:
502 --
503 -- This procedure is used to update implement lock on row level on table
504 -- JMF_GTA_TRX_LINES_ALL
505 --
506 -- PARAMETERS:
507 -- In: p_org_id Identifier of operating unit
508 -- p_gta_trx_header_id Identifier of GTA invoice header
509 -- p_gta_trx_line_id Identifier of GTA invoice line
510 -- p_line_number Line number
511 -- p_item_number Item number
512 -- p_item_description Item description
513 -- p_item_model Item Model
514 -- p_item_tax_denomination Tax denomination for a item
515 -- p_tax_rate Tax rate
516 -- p_uom_name Name for unit of measure
517 -- p_quantity Quantity
518 -- p_unit_price Unit price without tax
519 -- p_amount Amount without tax
520 -- p_original_currency_amount Amount without tax in original
521 -- curency code of invoice
522 -- p_enabled_flag A flag to indicate if the line should
523 -- be imported to GT system
524 -- p_request_id Conc request id
525 -- p_program_application_id Program application id
526 -- p_program_id Program id
530 -- p_attribute1 Attribute1
527 -- p_program_update_date Program update date
528 -- p_attribute_category Attribute category of
529 -- descriptive flexfield
531 -- p_attribute2 Attribute2
532 -- p_attribute3 Attribute3
533 -- p_attribute4 Attribute4
534 -- p_attribute5 Attribute5
535 -- p_attribute6 Attribute6
536 -- p_attribute7 Attribute7
537 -- p_attribute8 Attribute8
538 -- p_attribute9 Attribute9
539 -- p_attribute10 Attribute10
540 -- p_attribute11 Attribute11
541 -- p_attribute12 Attribute12
542 -- p_attribute13 Attribute13
543 -- p_attribute14 Attribute14
544 -- p_attribute15 Attribute15
545 -- p_creation_date Creation date
546 -- p_created_by Identifier of user that creates
547 -- the record
548 -- p_last_update_date Last update date of the record
549 -- p_last_updated_by Last update by
550 -- p_last_update_login Last update login
551 --
552 -- In Out: p_row_id Row id of a table record
553 --
554 --
555 -- DESIGN REFERENCES:
556 -- GTA_Workbench_Form_TD.doc
557 --
558 -- CHANGE HISTORY:
559 --
560 -- 17-MAY-2005 Donghai Wang created
561 -- 19-OCT-2005 Donghai Wang call SQL function 'RTRIM' for columns with
562 -- Varchar2 data datatype to truncate
563 -- tail null character
564 --
565 --=========================================================================
566 PROCEDURE Lock_Row
567 (p_rowid IN OUT NOCOPY VARCHAR2
568 ,p_org_id IN NUMBER
569 ,p_gta_trx_header_id IN NUMBER
570 ,p_gta_trx_line_id IN NUMBER
571 ,p_line_number IN VARCHAR2
572 ,p_item_number IN VARCHAR2
573 ,p_item_description IN VARCHAR2
574 ,p_item_model IN VARCHAR2
575 ,p_item_tax_denomination IN VARCHAR2
576 ,p_tax_rate IN NUMBER
577 ,p_uom_name IN VARCHAR2
578 ,p_quantity IN NUMBER
579 ,p_unit_price IN NUMBER
580 ,p_amount IN NUMBER
581 ,p_original_currency_amount IN NUMBER
582 ,p_enabled_flag IN VARCHAR2
583 ,p_request_id IN NUMBER
584 ,p_program_application_id IN NUMBER
585 ,p_program_id IN NUMBER
586 ,p_program_update_date IN DATE
587 ,p_attribute_category IN VARCHAR2
588 ,p_attribute1 IN VARCHAR2
589 ,p_attribute2 IN VARCHAR2
590 ,p_attribute3 IN VARCHAR2
591 ,p_attribute4 IN VARCHAR2
592 ,p_attribute5 IN VARCHAR2
593 ,p_attribute6 IN VARCHAR2
594 ,p_attribute7 IN VARCHAR2
595 ,p_attribute8 IN VARCHAR2
596 ,p_attribute9 IN VARCHAR2
597 ,p_attribute10 IN VARCHAR2
598 ,p_attribute11 IN VARCHAR2
599 ,p_attribute12 IN VARCHAR2
600 ,p_attribute13 IN VARCHAR2
601 ,p_attribute14 IN VARCHAR2
602 ,p_attribute15 IN VARCHAR2
603 ,p_creation_date IN DATE
604 ,p_created_by IN NUMBER
605 ,p_last_update_date IN DATE
606 ,p_last_updated_by IN NUMBER
607 ,p_last_update_login IN NUMBER
608 )
609 IS
610 l_procedure_name VARCHAR2(100) :='Lock_Row';
611 l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
612 l_proc_level NUMBER :=FND_LOG.Level_Procedure;
613
614 CURSOR c IS
615 SELECT
616 *
617 FROM
618 jmf_gta_trx_lines_all
619 WHERE ROWID=p_rowid
620 FOR UPDATE OF gta_trx_line_id NOWAIT;
621
622 recinfo c%ROWTYPE;
623 BEGIN
624
625 --log for debug
626 IF( l_proc_level >= l_dbg_level)
627 THEN
628
629 FND_LOG.String(l_proc_level
630 ,G_MODULE_PREFIX||'.'||l_procedure_name||'.begin'
631 ,'Begin procedure'
632 );
633
634 END IF; --( l_proc_level >= l_dbg_level)
635
636 --If a record has been deleted as form tries to excute dml operation
637 --on that record,then raise error to form
638 OPEN c;
639 FETCH c INTO recinfo;
640
641 IF (c%NOTFOUND)
642 THEN
643 CLOSE c;
644 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
645 APP_EXCEPTION.Raise_Exception;
646 END IF; --(c%NOTFOUND)
647
648 CLOSE c;
649
650
651 IF (
652 (recinfo.org_id=p_org_id)
653 AND
654 (recinfo.gta_trx_header_id=p_gta_trx_header_id)
655 AND
656 (recinfo.gta_trx_line_id=p_gta_trx_line_id)
657 AND
658 (rtrim(recinfo.line_number)=p_line_number)
659 AND
660 (
661 (rtrim(recinfo.item_number)=p_item_number)
662 OR
663 (
664 (rtrim(recinfo.item_number) IS NULL)
665 AND
666 (p_item_number IS NULL)
667 )
668 )
669 AND
670 (rtrim(recinfo.item_description)=p_item_description)
671 AND
672 (
673 (rtrim(recinfo.item_model)=p_item_model)
674 OR
675 (
676 (rtrim(recinfo.item_model) IS NULL)
680 )
677 AND
678 (p_item_model IS NULL)
679 )
681 AND
682 (rtrim(recinfo.item_tax_denomination)=p_item_tax_denomination)
683 AND
684 (recinfo.tax_rate=p_tax_rate)
685 AND
686 (
687 (rtrim(recinfo.uom_name)=p_uom_name)
688 OR
689 (
690 (rtrim(recinfo.uom_name) IS NULL)
691 AND
692 (p_uom_name IS NULL)
693 )
694 )
695 AND
696 (recinfo.quantity=p_quantity)
697 AND
698 (
699 (recinfo.unit_price=p_unit_price)
700 OR
701 (
702 (recinfo.unit_price IS NULL)
703 AND
704 (p_unit_price IS NULL)
705 )
706 )
707 AND
708 (
709 (recinfo.amount=p_amount)
710 OR
711 (
712 (recinfo.amount IS NULL)
713 AND
714 (p_amount IS NULL)
715 )
716 )
717 AND
718 (
719 (recinfo.original_currency_amount=p_original_currency_amount)
720 OR
721 (
722 (recinfo.original_currency_amount IS NULL)
723 AND
724 (p_original_currency_amount IS NULL)
725 )
726 )
727 AND
728 (
729 (rtrim(recinfo.enabled_flag)=p_enabled_flag)
730 OR
731 (
732 (rtrim(recinfo.enabled_flag) IS NULL)
733 AND
734 (p_enabled_flag IS NULL)
735 )
736 )
737 AND
738 (recinfo.created_by=p_created_by)
739 AND
740 (recinfo.creation_date=p_creation_date)
741 AND
742 (recinfo.last_update_date=p_last_update_date)
743 AND
744 (recinfo.last_updated_by=p_last_updated_by)
745 AND
746 (
747 (recinfo.last_update_login=p_last_update_login)
748 OR
749 (
750 (recinfo.last_update_login IS NULL)
751 AND
752 (p_last_update_login IS NULL)
753 )
754 )
755 AND
756 (
757 (recinfo.request_id=p_request_id)
758 OR
759 (
760 (recinfo.request_id IS NULL)
761 AND
762 (p_request_id IS NULL)
763 )
764 )
765 AND
766 (
767 (recinfo.program_application_id=p_program_application_id)
768 OR
769 (
770 (recinfo.program_application_id IS NULL)
771 AND
772 (p_program_application_id IS NULL)
773 )
774 )
775 AND
776 (
777 (recinfo.program_id=p_program_id)
778 OR
779 (
780 (recinfo.program_id IS NULL)
781 AND
782 (p_program_id IS NULL)
783 )
784 )
785 AND
786 (
787 (recinfo.program_update_date=p_program_update_date)
788 OR
789 (
790 (recinfo.program_update_date IS NULL)
791 AND
792 (p_program_update_date IS NULL)
793 )
794 )
795 AND
796 (
797 (recinfo.attribute_category=p_attribute_category)
798 OR
799 (
800 (recinfo.attribute_category IS NULL)
801 AND
802 (p_attribute_category IS NULL)
803 )
804 )
805 AND
806 (
807 (recinfo.attribute1=p_attribute1)
808 OR
809 (
810 (recinfo.attribute1 IS NULL)
811 AND
812 (p_attribute1 IS NULL)
813 )
814 )
815 AND
816 (
817 (recinfo.attribute2=p_attribute2)
818 OR
819 (
820 (recinfo.attribute2 IS NULL)
821 AND
822 (p_attribute2 IS NULL)
823 )
824 )
825 AND
826 (
827 (recinfo.attribute3=p_attribute3)
828 OR
829 (
830 (recinfo.attribute3 IS NULL)
831 AND
832 (p_attribute3 IS NULL)
833 )
834 )
835 AND
836 (
837 (recinfo.attribute4=p_attribute4)
838 OR
839 (
840 (recinfo.attribute4 IS NULL)
841 AND
842 (p_attribute4 IS NULL)
843 )
844 )
845 AND
846 (
847 (recinfo.attribute5=p_attribute5)
848 OR
849 (
850 (recinfo.attribute5 IS NULL)
851 AND
852 (p_attribute5 IS NULL)
853 )
854 )
855 AND
856 (
857 (recinfo.attribute6=p_attribute6)
858 OR
859 (
860 (recinfo.attribute6 IS NULL)
861 AND
862 (p_attribute6 IS NULL)
863 )
864 )
865 AND
866 (
867 (recinfo.attribute7=p_attribute7)
868 OR
869 (
870 (recinfo.attribute7 IS NULL)
871 AND
872 (p_attribute7 IS NULL)
873 )
874 )
875 AND
876 (
877 (recinfo.attribute8=p_attribute8)
878 OR
879 (
880 (recinfo.attribute8 IS NULL)
881 AND
882 (p_attribute8 IS NULL)
886 (
883 )
884 )
885 AND
887 (recinfo.attribute9=p_attribute9)
888 OR
889 (
890 (recinfo.attribute9 IS NULL)
891 AND
892 (p_attribute9 IS NULL)
893 )
894 )
895 AND
896 (
897 (recinfo.attribute10=p_attribute10)
898 OR
899 (
900 (recinfo.attribute10 IS NULL)
901 AND
902 (p_attribute10 IS NULL)
903 )
904 )
905 AND
906 (
907 (recinfo.attribute11=p_attribute11)
908 OR
909 (
910 (recinfo.attribute11 IS NULL)
911 AND
912 (p_attribute11 IS NULL)
913 )
914 )
915 AND
916 (
917 (recinfo.attribute12=p_attribute12)
918 OR
919 (
920 (recinfo.attribute12 IS NULL)
921 AND
922 (p_attribute12 IS NULL)
923 )
924 )
925 AND
926 (
927 (recinfo.attribute13=p_attribute13)
928 OR
929 (
930 (recinfo.attribute13 IS NULL)
931 AND
932 (p_attribute13 IS NULL)
933 )
934 )
935 AND
936 (
937 (recinfo.attribute14=p_attribute14)
938 OR
939 (
940 (recinfo.attribute14 IS NULL)
941 AND
942 (p_attribute14 IS NULL)
943 )
944 )
945 AND
946 (
947 (recinfo.attribute15=p_attribute15)
948 OR
949 (
950 (recinfo.attribute15 IS NULL)
951 AND
952 (p_attribute15 IS NULL)
953 )
954 )
955 )
956
957 THEN
958 RETURN;
959 ELSE
960 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
961 APP_EXCEPTION.Raise_Exception;
962 END IF; --((recinfo.org_id=p_org_id)...
963
964 --log for debug
965 IF( l_proc_level >= l_dbg_level)
966 THEN
967
968 FND_LOG.String(l_proc_level
969 ,G_MODULE_PREFIX||'.'||l_procedure_name||'.end'
970 ,'Exit procedure'
971 );
972
973 END IF; --( l_proc_level >= l_dbg_level)
974 END Lock_Row;
975
976
977 --==========================================================================
978 -- PROCEDURE NAME:
979 --
980 -- Delete_Row Public
981 --
982 -- DESCRIPTION:
983 --
984 -- This procedure is used to delete record from table
985 -- JMF_GTA_TRX_LINES_ALL
986 --
987 -- PARAMETERS:
988 --
989 -- In Out: p_row_id Row id of a table record
990 --
991 --
992 -- DESIGN REFERENCES:
993 -- GTA_Workbench_Form_TD.doc
994 --
995 -- CHANGE HISTORY:
996 --
997 -- 17-MAY-2005 Donghai Wang created
998 --
999 --===========================================================================
1000 PROCEDURE Delete_Row
1001 (p_rowid IN OUT NOCOPY VARCHAR2
1002 )
1003 IS
1004 l_procedure_name VARCHAR2(100) :='Delete_Row';
1005 l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
1006 l_proc_level NUMBER :=FND_LOG.Level_Procedure;
1007 BEGIN
1008
1009 --log for debug
1010 IF( l_proc_level >= l_dbg_level)
1011 THEN
1012
1013 FND_LOG.String(l_proc_level
1014 ,G_MODULE_PREFIX||'.'||l_procedure_name||'.begin'
1015 ,'Begin procedure'
1016 );
1017
1018 END IF; --( l_proc_level >= l_dbg_level)
1019
1020 --Delete row from table JMF_GTA_TRX_LINES_ALL
1021 DELETE
1022 FROM JMF_GTA_TRX_LINES_ALL
1023 WHERE ROWID = p_rowid;
1024
1025 --In case of delete failed,raise error
1026 IF (SQL%NOTFOUND) THEN
1027 RAISE NO_DATA_FOUND;
1028 END IF; --(SQL%NOTFOUND)
1029
1030 --log for debug
1031 IF( l_proc_level >= l_dbg_level)
1032 THEN
1033
1034 FND_LOG.String(l_proc_level
1035 ,G_MODULE_PREFIX||'.'||l_procedure_name||'.end'
1036 ,'Exit procedure'
1037 );
1038
1039 END IF; --( l_proc_level >= l_dbg_level)
1040 END Delete_Row;
1041
1042 END JMF_GTA_TRX_LINES_ALL_PKG;
1043