18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p11(t out nocopy okl_transaction_pvt.rev_tbl_type, a0 JTF_NUMBER_TABLE
23: ) as
24: ddindx binary_integer; indx binary_integer;
25: begin
26: if a0 is not null and a0.count > 0 then
37: end loop;
38: end if;
39: end if;
40: end rosetta_table_copy_in_p11;
41: procedure rosetta_table_copy_out_p11(t okl_transaction_pvt.rev_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
42: ) as
43: ddindx binary_integer; indx binary_integer;
44: begin
45: if t is null or t.count = 0 then
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: else
48: a0 := JTF_NUMBER_TABLE();
49: if t.count > 0 then
50: a0.extend(t.count);
44: begin
45: if t is null or t.count = 0 then
46: a0 := JTF_NUMBER_TABLE();
47: else
48: a0 := JTF_NUMBER_TABLE();
49: if t.count > 0 then
50: a0.extend(t.count);
51: ddindx := t.first;
52: indx := 1;
502: , p_init_msg_list VARCHAR2
503: , x_return_status out nocopy VARCHAR2
504: , x_msg_count out nocopy NUMBER
505: , x_msg_data out nocopy VARCHAR2
506: , p5_a0 JTF_NUMBER_TABLE
507: , p_contract_status VARCHAR2
508: , p_tsu_code VARCHAR2
509: )
510: