12: if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13: return d;
14: end;
15:
16: procedure rosetta_table_copy_in_p1(t out nocopy cs_sr_dup_chk_pvt.cs_extended_attr_tbl, a0 JTF_NUMBER_TABLE
17: , a1 JTF_VARCHAR2_TABLE_100
18: , a2 JTF_VARCHAR2_TABLE_100
19: ) as
20: ddindx binary_integer; indx binary_integer;
35: end loop;
36: end if;
37: end if;
38: end rosetta_table_copy_in_p1;
39: procedure rosetta_table_copy_out_p1(t cs_sr_dup_chk_pvt.cs_extended_attr_tbl, a0 out nocopy JTF_NUMBER_TABLE
40: , a1 out nocopy JTF_VARCHAR2_TABLE_100
41: , a2 out nocopy JTF_VARCHAR2_TABLE_100
42: ) as
43: ddindx binary_integer; indx binary_integer;
42: ) as
43: ddindx binary_integer; indx binary_integer;
44: begin
45: if t is null or t.count = 0 then
46: a0 := JTF_NUMBER_TABLE();
47: a1 := JTF_VARCHAR2_TABLE_100();
48: a2 := JTF_VARCHAR2_TABLE_100();
49: else
50: a0 := JTF_NUMBER_TABLE();
46: a0 := JTF_NUMBER_TABLE();
47: a1 := JTF_VARCHAR2_TABLE_100();
48: a2 := JTF_VARCHAR2_TABLE_100();
49: else
50: a0 := JTF_NUMBER_TABLE();
51: a1 := JTF_VARCHAR2_TABLE_100();
52: a2 := JTF_VARCHAR2_TABLE_100();
53: if t.count > 0 then
54: a0.extend(t.count);
69: end if;
70: end if;
71: end rosetta_table_copy_out_p1;
72:
73: procedure rosetta_table_copy_in_p3(t out nocopy cs_sr_dup_chk_pvt.sr_dupl_tbl, a0 JTF_NUMBER_TABLE
74: , a1 JTF_VARCHAR2_TABLE_2000
75: ) as
76: ddindx binary_integer; indx binary_integer;
77: begin
90: end loop;
91: end if;
92: end if;
93: end rosetta_table_copy_in_p3;
94: procedure rosetta_table_copy_out_p3(t cs_sr_dup_chk_pvt.sr_dupl_tbl, a0 out nocopy JTF_NUMBER_TABLE
95: , a1 out nocopy JTF_VARCHAR2_TABLE_2000
96: ) as
97: ddindx binary_integer; indx binary_integer;
98: begin
96: ) as
97: ddindx binary_integer; indx binary_integer;
98: begin
99: if t is null or t.count = 0 then
100: a0 := JTF_NUMBER_TABLE();
101: a1 := JTF_VARCHAR2_TABLE_2000();
102: else
103: a0 := JTF_NUMBER_TABLE();
104: a1 := JTF_VARCHAR2_TABLE_2000();
99: if t is null or t.count = 0 then
100: a0 := JTF_NUMBER_TABLE();
101: a1 := JTF_VARCHAR2_TABLE_2000();
102: else
103: a0 := JTF_NUMBER_TABLE();
104: a1 := JTF_VARCHAR2_TABLE_2000();
105: if t.count > 0 then
106: a0.extend(t.count);
107: a1.extend(t.count);
119: end if;
120: end if;
121: end rosetta_table_copy_out_p3;
122:
123: procedure rosetta_table_copy_in_p5(t out nocopy cs_sr_dup_chk_pvt.sr_dupl_link_tbl, a0 JTF_NUMBER_TABLE
124: , a1 JTF_NUMBER_TABLE
125: , a2 JTF_NUMBER_TABLE
126: , a3 JTF_VARCHAR2_TABLE_2000
127: ) as
120: end if;
121: end rosetta_table_copy_out_p3;
122:
123: procedure rosetta_table_copy_in_p5(t out nocopy cs_sr_dup_chk_pvt.sr_dupl_link_tbl, a0 JTF_NUMBER_TABLE
124: , a1 JTF_NUMBER_TABLE
125: , a2 JTF_NUMBER_TABLE
126: , a3 JTF_VARCHAR2_TABLE_2000
127: ) as
128: ddindx binary_integer; indx binary_integer;
121: end rosetta_table_copy_out_p3;
122:
123: procedure rosetta_table_copy_in_p5(t out nocopy cs_sr_dup_chk_pvt.sr_dupl_link_tbl, a0 JTF_NUMBER_TABLE
124: , a1 JTF_NUMBER_TABLE
125: , a2 JTF_NUMBER_TABLE
126: , a3 JTF_VARCHAR2_TABLE_2000
127: ) as
128: ddindx binary_integer; indx binary_integer;
129: begin
144: end loop;
145: end if;
146: end if;
147: end rosetta_table_copy_in_p5;
148: procedure rosetta_table_copy_out_p5(t cs_sr_dup_chk_pvt.sr_dupl_link_tbl, a0 out nocopy JTF_NUMBER_TABLE
149: , a1 out nocopy JTF_NUMBER_TABLE
150: , a2 out nocopy JTF_NUMBER_TABLE
151: , a3 out nocopy JTF_VARCHAR2_TABLE_2000
152: ) as
145: end if;
146: end if;
147: end rosetta_table_copy_in_p5;
148: procedure rosetta_table_copy_out_p5(t cs_sr_dup_chk_pvt.sr_dupl_link_tbl, a0 out nocopy JTF_NUMBER_TABLE
149: , a1 out nocopy JTF_NUMBER_TABLE
150: , a2 out nocopy JTF_NUMBER_TABLE
151: , a3 out nocopy JTF_VARCHAR2_TABLE_2000
152: ) as
153: ddindx binary_integer; indx binary_integer;
146: end if;
147: end rosetta_table_copy_in_p5;
148: procedure rosetta_table_copy_out_p5(t cs_sr_dup_chk_pvt.sr_dupl_link_tbl, a0 out nocopy JTF_NUMBER_TABLE
149: , a1 out nocopy JTF_NUMBER_TABLE
150: , a2 out nocopy JTF_NUMBER_TABLE
151: , a3 out nocopy JTF_VARCHAR2_TABLE_2000
152: ) as
153: ddindx binary_integer; indx binary_integer;
154: begin
152: ) as
153: ddindx binary_integer; indx binary_integer;
154: begin
155: if t is null or t.count = 0 then
156: a0 := JTF_NUMBER_TABLE();
157: a1 := JTF_NUMBER_TABLE();
158: a2 := JTF_NUMBER_TABLE();
159: a3 := JTF_VARCHAR2_TABLE_2000();
160: else
153: ddindx binary_integer; indx binary_integer;
154: begin
155: if t is null or t.count = 0 then
156: a0 := JTF_NUMBER_TABLE();
157: a1 := JTF_NUMBER_TABLE();
158: a2 := JTF_NUMBER_TABLE();
159: a3 := JTF_VARCHAR2_TABLE_2000();
160: else
161: a0 := JTF_NUMBER_TABLE();
154: begin
155: if t is null or t.count = 0 then
156: a0 := JTF_NUMBER_TABLE();
157: a1 := JTF_NUMBER_TABLE();
158: a2 := JTF_NUMBER_TABLE();
159: a3 := JTF_VARCHAR2_TABLE_2000();
160: else
161: a0 := JTF_NUMBER_TABLE();
162: a1 := JTF_NUMBER_TABLE();
157: a1 := JTF_NUMBER_TABLE();
158: a2 := JTF_NUMBER_TABLE();
159: a3 := JTF_VARCHAR2_TABLE_2000();
160: else
161: a0 := JTF_NUMBER_TABLE();
162: a1 := JTF_NUMBER_TABLE();
163: a2 := JTF_NUMBER_TABLE();
164: a3 := JTF_VARCHAR2_TABLE_2000();
165: if t.count > 0 then
158: a2 := JTF_NUMBER_TABLE();
159: a3 := JTF_VARCHAR2_TABLE_2000();
160: else
161: a0 := JTF_NUMBER_TABLE();
162: a1 := JTF_NUMBER_TABLE();
163: a2 := JTF_NUMBER_TABLE();
164: a3 := JTF_VARCHAR2_TABLE_2000();
165: if t.count > 0 then
166: a0.extend(t.count);
159: a3 := JTF_VARCHAR2_TABLE_2000();
160: else
161: a0 := JTF_NUMBER_TABLE();
162: a1 := JTF_NUMBER_TABLE();
163: a2 := JTF_NUMBER_TABLE();
164: a3 := JTF_VARCHAR2_TABLE_2000();
165: if t.count > 0 then
166: a0.extend(t.count);
167: a1.extend(t.count);
195: , p_current_serial_number VARCHAR2
196: , p_inv_item_serial_number VARCHAR2
197: , p_customer_id NUMBER
198: , p_inventory_item_id NUMBER
199: , p12_a0 JTF_NUMBER_TABLE
200: , p12_a1 JTF_VARCHAR2_TABLE_100
201: , p12_a2 JTF_VARCHAR2_TABLE_100
202: , p13_a0 VARCHAR2
203: , p13_a1 VARCHAR2
206: , p13_a4 VARCHAR2
207: , p13_a5 VARCHAR2
208: , p13_a6 VARCHAR2
209: , x_duplicate_flag out nocopy VARCHAR2
210: , p15_a0 out nocopy JTF_NUMBER_TABLE
211: , p15_a1 out nocopy JTF_VARCHAR2_TABLE_2000
212: , x_dup_found_at out nocopy VARCHAR2
213: , x_return_status out nocopy VARCHAR2
214: , x_msg_count out nocopy NUMBER
302: end;
303:
304: procedure check_ea_duplicate_setup(p_incident_id NUMBER
305: , p_incident_type_id NUMBER
306: , p2_a0 JTF_NUMBER_TABLE
307: , p2_a1 JTF_VARCHAR2_TABLE_100
308: , p2_a2 JTF_VARCHAR2_TABLE_100
309: , p3_a0 VARCHAR2
310: , p3_a1 VARCHAR2
313: , p3_a4 VARCHAR2
314: , p3_a5 VARCHAR2
315: , p3_a6 VARCHAR2
316: , p_ea_attr_dup_flag in out nocopy VARCHAR2
317: , p5_a0 out nocopy JTF_NUMBER_TABLE
318: , p5_a1 out nocopy JTF_VARCHAR2_TABLE_2000
319: , p_ea_ia_dup out nocopy VARCHAR2
320: , p_ea_ea_dup out nocopy VARCHAR2
321: , p_return_status out nocopy VARCHAR2
375: end;
376:
377: procedure perform_ea_duplicate(p_incident_id NUMBER
378: , p_incident_type_id NUMBER
379: , p2_a0 JTF_NUMBER_TABLE
380: , p2_a1 JTF_VARCHAR2_TABLE_100
381: , p2_a2 JTF_VARCHAR2_TABLE_100
382: , p3_a0 VARCHAR2
383: , p3_a1 VARCHAR2
386: , p3_a4 VARCHAR2
387: , p3_a5 VARCHAR2
388: , p3_a6 VARCHAR2
389: , p_ea_attr_dup_flag in out nocopy VARCHAR2
390: , p5_a0 out nocopy JTF_NUMBER_TABLE
391: , p5_a1 out nocopy JTF_VARCHAR2_TABLE_2000
392: , p_ea_ia_dup out nocopy VARCHAR2
393: , p_ea_ea_dup out nocopy VARCHAR2
394: , p_return_status out nocopy VARCHAR2
453: , p_instance_serial_number VARCHAR2
454: , p_current_serial_number VARCHAR2
455: , p_inv_item_serial_number VARCHAR2
456: , p_incident_id NUMBER
457: , p7_a0 in out nocopy JTF_NUMBER_TABLE
458: , p7_a1 in out nocopy JTF_VARCHAR2_TABLE_2000
459: , p_cs_sr_dup_flag in out nocopy VARCHAR2
460: , p_dup_from in out nocopy NUMBER
461: , p_return_status out nocopy VARCHAR2
511: end;
512:
513: procedure check_sr_instance_dup(p_customer_product_id NUMBER
514: , p_incident_id NUMBER
515: , p2_a0 in out nocopy JTF_NUMBER_TABLE
516: , p2_a1 in out nocopy JTF_NUMBER_TABLE
517: , p2_a2 in out nocopy JTF_NUMBER_TABLE
518: , p2_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
519: , p_cs_sr_dup_flag in out nocopy VARCHAR2
512:
513: procedure check_sr_instance_dup(p_customer_product_id NUMBER
514: , p_incident_id NUMBER
515: , p2_a0 in out nocopy JTF_NUMBER_TABLE
516: , p2_a1 in out nocopy JTF_NUMBER_TABLE
517: , p2_a2 in out nocopy JTF_NUMBER_TABLE
518: , p2_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
519: , p_cs_sr_dup_flag in out nocopy VARCHAR2
520: , p_return_status out nocopy VARCHAR2
513: procedure check_sr_instance_dup(p_customer_product_id NUMBER
514: , p_incident_id NUMBER
515: , p2_a0 in out nocopy JTF_NUMBER_TABLE
516: , p2_a1 in out nocopy JTF_NUMBER_TABLE
517: , p2_a2 in out nocopy JTF_NUMBER_TABLE
518: , p2_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
519: , p_cs_sr_dup_flag in out nocopy VARCHAR2
520: , p_return_status out nocopy VARCHAR2
521: )
558: procedure check_sr_serialnum_dup(p_instance_serial_number VARCHAR2
559: , p_current_serial_number VARCHAR2
560: , p_inv_item_serial_number VARCHAR2
561: , p_incident_id NUMBER
562: , p4_a0 in out nocopy JTF_NUMBER_TABLE
563: , p4_a1 in out nocopy JTF_NUMBER_TABLE
564: , p4_a2 in out nocopy JTF_NUMBER_TABLE
565: , p4_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
566: , p_cs_sr_dup_flag in out nocopy VARCHAR2
559: , p_current_serial_number VARCHAR2
560: , p_inv_item_serial_number VARCHAR2
561: , p_incident_id NUMBER
562: , p4_a0 in out nocopy JTF_NUMBER_TABLE
563: , p4_a1 in out nocopy JTF_NUMBER_TABLE
564: , p4_a2 in out nocopy JTF_NUMBER_TABLE
565: , p4_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
566: , p_cs_sr_dup_flag in out nocopy VARCHAR2
567: , p_return_status out nocopy VARCHAR2
560: , p_inv_item_serial_number VARCHAR2
561: , p_incident_id NUMBER
562: , p4_a0 in out nocopy JTF_NUMBER_TABLE
563: , p4_a1 in out nocopy JTF_NUMBER_TABLE
564: , p4_a2 in out nocopy JTF_NUMBER_TABLE
565: , p4_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
566: , p_cs_sr_dup_flag in out nocopy VARCHAR2
567: , p_return_status out nocopy VARCHAR2
568: )
610:
611: procedure check_sr_custprod_dup(p_customer_id NUMBER
612: , p_inventory_item_id NUMBER
613: , p_incident_id NUMBER
614: , p3_a0 in out nocopy JTF_NUMBER_TABLE
615: , p3_a1 in out nocopy JTF_NUMBER_TABLE
616: , p3_a2 in out nocopy JTF_NUMBER_TABLE
617: , p3_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
618: , p_cs_sr_dup_flag in out nocopy VARCHAR2
611: procedure check_sr_custprod_dup(p_customer_id NUMBER
612: , p_inventory_item_id NUMBER
613: , p_incident_id NUMBER
614: , p3_a0 in out nocopy JTF_NUMBER_TABLE
615: , p3_a1 in out nocopy JTF_NUMBER_TABLE
616: , p3_a2 in out nocopy JTF_NUMBER_TABLE
617: , p3_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
618: , p_cs_sr_dup_flag in out nocopy VARCHAR2
619: , p_return_status out nocopy VARCHAR2
612: , p_inventory_item_id NUMBER
613: , p_incident_id NUMBER
614: , p3_a0 in out nocopy JTF_NUMBER_TABLE
615: , p3_a1 in out nocopy JTF_NUMBER_TABLE
616: , p3_a2 in out nocopy JTF_NUMBER_TABLE
617: , p3_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
618: , p_cs_sr_dup_flag in out nocopy VARCHAR2
619: , p_return_status out nocopy VARCHAR2
620: )
662: , p_instance_serial_number VARCHAR2
663: , p_current_serial_number VARCHAR2
664: , p_inv_item_serial_number VARCHAR2
665: , p_incident_id NUMBER
666: , p6_a0 in out nocopy JTF_NUMBER_TABLE
667: , p6_a1 in out nocopy JTF_NUMBER_TABLE
668: , p6_a2 in out nocopy JTF_NUMBER_TABLE
669: , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
670: , p_cs_sr_dup_flag in out nocopy VARCHAR2
663: , p_current_serial_number VARCHAR2
664: , p_inv_item_serial_number VARCHAR2
665: , p_incident_id NUMBER
666: , p6_a0 in out nocopy JTF_NUMBER_TABLE
667: , p6_a1 in out nocopy JTF_NUMBER_TABLE
668: , p6_a2 in out nocopy JTF_NUMBER_TABLE
669: , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
670: , p_cs_sr_dup_flag in out nocopy VARCHAR2
671: , p_return_status out nocopy VARCHAR2
664: , p_inv_item_serial_number VARCHAR2
665: , p_incident_id NUMBER
666: , p6_a0 in out nocopy JTF_NUMBER_TABLE
667: , p6_a1 in out nocopy JTF_NUMBER_TABLE
668: , p6_a2 in out nocopy JTF_NUMBER_TABLE
669: , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
670: , p_cs_sr_dup_flag in out nocopy VARCHAR2
671: , p_return_status out nocopy VARCHAR2
672: )
717:
718:
719: end;
720:
721: procedure construct_unique_list_dup_sr(p0_a0 JTF_NUMBER_TABLE
722: , p0_a1 JTF_VARCHAR2_TABLE_2000
723: , p_ea_attr_dup_flag VARCHAR2
724: , p2_a0 JTF_NUMBER_TABLE
725: , p2_a1 JTF_VARCHAR2_TABLE_2000
720:
721: procedure construct_unique_list_dup_sr(p0_a0 JTF_NUMBER_TABLE
722: , p0_a1 JTF_VARCHAR2_TABLE_2000
723: , p_ea_attr_dup_flag VARCHAR2
724: , p2_a0 JTF_NUMBER_TABLE
725: , p2_a1 JTF_VARCHAR2_TABLE_2000
726: , p_cs_sr_dup_flag VARCHAR2
727: , p_dup_from NUMBER
728: , p_ea_ea_dup VARCHAR2
726: , p_cs_sr_dup_flag VARCHAR2
727: , p_dup_from NUMBER
728: , p_ea_ea_dup VARCHAR2
729: , p_ea_ia_dup VARCHAR2
730: , p7_a0 in out nocopy JTF_NUMBER_TABLE
731: , p7_a1 in out nocopy JTF_VARCHAR2_TABLE_2000
732: , p_duplicate_flag in out nocopy VARCHAR2
733: , p_return_status out nocopy VARCHAR2
734: )
786:
787:
788: end;
789:
790: procedure check_dup_sr_link(p0_a0 JTF_NUMBER_TABLE
791: , p0_a1 JTF_NUMBER_TABLE
792: , p0_a2 JTF_NUMBER_TABLE
793: , p0_a3 JTF_VARCHAR2_TABLE_2000
794: , p1_a0 in out nocopy JTF_NUMBER_TABLE
787:
788: end;
789:
790: procedure check_dup_sr_link(p0_a0 JTF_NUMBER_TABLE
791: , p0_a1 JTF_NUMBER_TABLE
792: , p0_a2 JTF_NUMBER_TABLE
793: , p0_a3 JTF_VARCHAR2_TABLE_2000
794: , p1_a0 in out nocopy JTF_NUMBER_TABLE
795: , p1_a1 in out nocopy JTF_VARCHAR2_TABLE_2000
788: end;
789:
790: procedure check_dup_sr_link(p0_a0 JTF_NUMBER_TABLE
791: , p0_a1 JTF_NUMBER_TABLE
792: , p0_a2 JTF_NUMBER_TABLE
793: , p0_a3 JTF_VARCHAR2_TABLE_2000
794: , p1_a0 in out nocopy JTF_NUMBER_TABLE
795: , p1_a1 in out nocopy JTF_VARCHAR2_TABLE_2000
796: , p_return_status out nocopy VARCHAR2
790: procedure check_dup_sr_link(p0_a0 JTF_NUMBER_TABLE
791: , p0_a1 JTF_NUMBER_TABLE
792: , p0_a2 JTF_NUMBER_TABLE
793: , p0_a3 JTF_VARCHAR2_TABLE_2000
794: , p1_a0 in out nocopy JTF_NUMBER_TABLE
795: , p1_a1 in out nocopy JTF_VARCHAR2_TABLE_2000
796: , p_return_status out nocopy VARCHAR2
797: )
798:
826: );
827:
828: end;
829:
830: function check_if_already_in_list(p0_a0 JTF_NUMBER_TABLE
831: , p0_a1 JTF_VARCHAR2_TABLE_2000
832: , p_sr_link_id NUMBER
833: ) return varchar2
834: