18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p4(t out nocopy okl_cure_recon_pub.cure_amount_tbl, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_VARCHAR2_TABLE_100
25: ) as
26: ddindx binary_integer; indx binary_integer;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p4(t out nocopy okl_cure_recon_pub.cure_amount_tbl, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_VARCHAR2_TABLE_100
25: ) as
26: ddindx binary_integer; indx binary_integer;
27: begin
41: end loop;
42: end if;
43: end if;
44: end rosetta_table_copy_in_p4;
45: procedure rosetta_table_copy_out_p4(t okl_cure_recon_pub.cure_amount_tbl, a0 out nocopy JTF_NUMBER_TABLE
46: , a1 out nocopy JTF_NUMBER_TABLE
47: , a2 out nocopy JTF_VARCHAR2_TABLE_100
48: ) as
49: ddindx binary_integer; indx binary_integer;
42: end if;
43: end if;
44: end rosetta_table_copy_in_p4;
45: procedure rosetta_table_copy_out_p4(t okl_cure_recon_pub.cure_amount_tbl, a0 out nocopy JTF_NUMBER_TABLE
46: , a1 out nocopy JTF_NUMBER_TABLE
47: , a2 out nocopy JTF_VARCHAR2_TABLE_100
48: ) as
49: ddindx binary_integer; indx binary_integer;
50: begin
48: ) as
49: ddindx binary_integer; indx binary_integer;
50: begin
51: if t is null or t.count = 0 then
52: a0 := JTF_NUMBER_TABLE();
53: a1 := JTF_NUMBER_TABLE();
54: a2 := JTF_VARCHAR2_TABLE_100();
55: else
56: a0 := JTF_NUMBER_TABLE();
49: ddindx binary_integer; indx binary_integer;
50: begin
51: if t is null or t.count = 0 then
52: a0 := JTF_NUMBER_TABLE();
53: a1 := JTF_NUMBER_TABLE();
54: a2 := JTF_VARCHAR2_TABLE_100();
55: else
56: a0 := JTF_NUMBER_TABLE();
57: a1 := JTF_NUMBER_TABLE();
52: a0 := JTF_NUMBER_TABLE();
53: a1 := JTF_NUMBER_TABLE();
54: a2 := JTF_VARCHAR2_TABLE_100();
55: else
56: a0 := JTF_NUMBER_TABLE();
57: a1 := JTF_NUMBER_TABLE();
58: a2 := JTF_VARCHAR2_TABLE_100();
59: if t.count > 0 then
60: a0.extend(t.count);
53: a1 := JTF_NUMBER_TABLE();
54: a2 := JTF_VARCHAR2_TABLE_100();
55: else
56: a0 := JTF_NUMBER_TABLE();
57: a1 := JTF_NUMBER_TABLE();
58: a2 := JTF_VARCHAR2_TABLE_100();
59: if t.count > 0 then
60: a0.extend(t.count);
61: a1.extend(t.count);
80: , p_init_msg_list VARCHAR2
81: , p_commit VARCHAR2
82: , p_report_id NUMBER
83: , p_invoice_date date
84: , p5_a0 JTF_NUMBER_TABLE
85: , p5_a1 JTF_NUMBER_TABLE
86: , p5_a2 JTF_VARCHAR2_TABLE_100
87: , p_operation VARCHAR2
88: , x_return_status out nocopy VARCHAR2
81: , p_commit VARCHAR2
82: , p_report_id NUMBER
83: , p_invoice_date date
84: , p5_a0 JTF_NUMBER_TABLE
85: , p5_a1 JTF_NUMBER_TABLE
86: , p5_a2 JTF_VARCHAR2_TABLE_100
87: , p_operation VARCHAR2
88: , x_return_status out nocopy VARCHAR2
89: , x_msg_count out nocopy NUMBER