40: end if;
41: end if;
42: end rosetta_table_copy_out_p0;
43:
44: procedure rosetta_table_copy_in_p1(t out nocopy okc_cdrl_pvt.deliverable_tbl_type, a0 JTF_NUMBER_TABLE) as
45: ddindx binary_integer; indx binary_integer;
46: begin
47: if a0 is not null and a0.count > 0 then
48: if a0.count > 0 then
58: end loop;
59: end if;
60: end if;
61: end rosetta_table_copy_in_p1;
62: procedure rosetta_table_copy_out_p1(t okc_cdrl_pvt.deliverable_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
63: ddindx binary_integer; indx binary_integer;
64: begin
65: if t is null or t.count = 0 then
66: a0 := JTF_NUMBER_TABLE();
62: procedure rosetta_table_copy_out_p1(t okc_cdrl_pvt.deliverable_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
63: ddindx binary_integer; indx binary_integer;
64: begin
65: if t is null or t.count = 0 then
66: a0 := JTF_NUMBER_TABLE();
67: else
68: a0 := JTF_NUMBER_TABLE();
69: if t.count > 0 then
70: a0.extend(t.count);
64: begin
65: if t is null or t.count = 0 then
66: a0 := JTF_NUMBER_TABLE();
67: else
68: a0 := JTF_NUMBER_TABLE();
69: if t.count > 0 then
70: a0.extend(t.count);
71: ddindx := t.first;
72: indx := 1;
84:
85: procedure specify_exhibits_for_cdrls(p_api_version NUMBER
86: , p_init_msg_list VARCHAR2
87: , p_commit VARCHAR2
88: , p_cdrl_tbl JTF_NUMBER_TABLE
89: , p_exhibit_code VARCHAR2
90: , p_doc_class VARCHAR2
91: , p_doc_type VARCHAR2
92: , p_doc_id NUMBER