18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p36(t out nocopy okl_trans_pricing_params_pvt.tpp_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_500
24: ) as
25: ddindx binary_integer; indx binary_integer;
26: begin
39: end loop;
40: end if;
41: end if;
42: end rosetta_table_copy_in_p36;
43: procedure rosetta_table_copy_out_p36(t okl_trans_pricing_params_pvt.tpp_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
44: , a1 out nocopy JTF_VARCHAR2_TABLE_500
45: ) as
46: ddindx binary_integer; indx binary_integer;
47: begin
45: ) as
46: ddindx binary_integer; indx binary_integer;
47: begin
48: if t is null or t.count = 0 then
49: a0 := JTF_NUMBER_TABLE();
50: a1 := JTF_VARCHAR2_TABLE_500();
51: else
52: a0 := JTF_NUMBER_TABLE();
53: a1 := JTF_VARCHAR2_TABLE_500();
48: if t is null or t.count = 0 then
49: a0 := JTF_NUMBER_TABLE();
50: a1 := JTF_VARCHAR2_TABLE_500();
51: else
52: a0 := JTF_NUMBER_TABLE();
53: a1 := JTF_VARCHAR2_TABLE_500();
54: if t.count > 0 then
55: a0.extend(t.count);
56: a1.extend(t.count);
124: , p_init_msg_list VARCHAR2
125: , x_return_status out nocopy VARCHAR2
126: , x_msg_count out nocopy NUMBER
127: , x_msg_data out nocopy VARCHAR2
128: , p5_a0 JTF_NUMBER_TABLE
129: , p5_a1 JTF_VARCHAR2_TABLE_500
130: , p_chr_id NUMBER
131: , p_gts_id NUMBER
132: , p_sif_id NUMBER