62: end if;
63: end if;
64: end rosetta_table_copy_out_p0;
65:
66: procedure rosetta_table_copy_in_p1(t out nocopy okl_accounting_util.seg_array_type, a0 JTF_VARCHAR2_TABLE_100) as
67: ddindx binary_integer; indx binary_integer;
68: begin
69: if a0 is not null and a0.count > 0 then
70: if a0.count > 0 then
80: end loop;
81: end if;
82: end if;
83: end rosetta_table_copy_in_p1;
84: procedure rosetta_table_copy_out_p1(t okl_accounting_util.seg_array_type, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
85: ddindx binary_integer; indx binary_integer;
86: begin
87: if t is null or t.count = 0 then
88: a0 := JTF_VARCHAR2_TABLE_100();
84: procedure rosetta_table_copy_out_p1(t okl_accounting_util.seg_array_type, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
85: ddindx binary_integer; indx binary_integer;
86: begin
87: if t is null or t.count = 0 then
88: a0 := JTF_VARCHAR2_TABLE_100();
89: else
90: a0 := JTF_VARCHAR2_TABLE_100();
91: if t.count > 0 then
92: a0.extend(t.count);
86: begin
87: if t is null or t.count = 0 then
88: a0 := JTF_VARCHAR2_TABLE_100();
89: else
90: a0 := JTF_VARCHAR2_TABLE_100();
91: if t.count > 0 then
92: a0.extend(t.count);
93: ddindx := t.first;
94: indx := 1;
103: end if;
104: end if;
105: end rosetta_table_copy_out_p1;
106:
107: procedure rosetta_table_copy_in_p2(t out nocopy okl_accounting_util.seg_desc_array_type, a0 JTF_VARCHAR2_TABLE_100) as
108: ddindx binary_integer; indx binary_integer;
109: begin
110: if a0 is not null and a0.count > 0 then
111: if a0.count > 0 then
121: end loop;
122: end if;
123: end if;
124: end rosetta_table_copy_in_p2;
125: procedure rosetta_table_copy_out_p2(t okl_accounting_util.seg_desc_array_type, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
126: ddindx binary_integer; indx binary_integer;
127: begin
128: if t is null or t.count = 0 then
129: a0 := JTF_VARCHAR2_TABLE_100();
125: procedure rosetta_table_copy_out_p2(t okl_accounting_util.seg_desc_array_type, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
126: ddindx binary_integer; indx binary_integer;
127: begin
128: if t is null or t.count = 0 then
129: a0 := JTF_VARCHAR2_TABLE_100();
130: else
131: a0 := JTF_VARCHAR2_TABLE_100();
132: if t.count > 0 then
133: a0.extend(t.count);
127: begin
128: if t is null or t.count = 0 then
129: a0 := JTF_VARCHAR2_TABLE_100();
130: else
131: a0 := JTF_VARCHAR2_TABLE_100();
132: if t.count > 0 then
133: a0.extend(t.count);
134: ddindx := t.first;
135: indx := 1;
185: end if;
186: end if;
187: end rosetta_table_copy_out_p3;
188:
189: procedure rosetta_table_copy_in_p26(t out nocopy okl_accounting_util.overlap_attrib_tbl_type, a0 JTF_VARCHAR2_TABLE_100
190: , a1 JTF_VARCHAR2_TABLE_100
191: , a2 JTF_VARCHAR2_TABLE_200
192: ) as
193: ddindx binary_integer; indx binary_integer;
186: end if;
187: end rosetta_table_copy_out_p3;
188:
189: procedure rosetta_table_copy_in_p26(t out nocopy okl_accounting_util.overlap_attrib_tbl_type, a0 JTF_VARCHAR2_TABLE_100
190: , a1 JTF_VARCHAR2_TABLE_100
191: , a2 JTF_VARCHAR2_TABLE_200
192: ) as
193: ddindx binary_integer; indx binary_integer;
194: begin
208: end loop;
209: end if;
210: end if;
211: end rosetta_table_copy_in_p26;
212: procedure rosetta_table_copy_out_p26(t okl_accounting_util.overlap_attrib_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
213: , a1 out nocopy JTF_VARCHAR2_TABLE_100
214: , a2 out nocopy JTF_VARCHAR2_TABLE_200
215: ) as
216: ddindx binary_integer; indx binary_integer;
209: end if;
210: end if;
211: end rosetta_table_copy_in_p26;
212: procedure rosetta_table_copy_out_p26(t okl_accounting_util.overlap_attrib_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
213: , a1 out nocopy JTF_VARCHAR2_TABLE_100
214: , a2 out nocopy JTF_VARCHAR2_TABLE_200
215: ) as
216: ddindx binary_integer; indx binary_integer;
217: begin
215: ) as
216: ddindx binary_integer; indx binary_integer;
217: begin
218: if t is null or t.count = 0 then
219: a0 := JTF_VARCHAR2_TABLE_100();
220: a1 := JTF_VARCHAR2_TABLE_100();
221: a2 := JTF_VARCHAR2_TABLE_200();
222: else
223: a0 := JTF_VARCHAR2_TABLE_100();
216: ddindx binary_integer; indx binary_integer;
217: begin
218: if t is null or t.count = 0 then
219: a0 := JTF_VARCHAR2_TABLE_100();
220: a1 := JTF_VARCHAR2_TABLE_100();
221: a2 := JTF_VARCHAR2_TABLE_200();
222: else
223: a0 := JTF_VARCHAR2_TABLE_100();
224: a1 := JTF_VARCHAR2_TABLE_100();
219: a0 := JTF_VARCHAR2_TABLE_100();
220: a1 := JTF_VARCHAR2_TABLE_100();
221: a2 := JTF_VARCHAR2_TABLE_200();
222: else
223: a0 := JTF_VARCHAR2_TABLE_100();
224: a1 := JTF_VARCHAR2_TABLE_100();
225: a2 := JTF_VARCHAR2_TABLE_200();
226: if t.count > 0 then
227: a0.extend(t.count);
220: a1 := JTF_VARCHAR2_TABLE_100();
221: a2 := JTF_VARCHAR2_TABLE_200();
222: else
223: a0 := JTF_VARCHAR2_TABLE_100();
224: a1 := JTF_VARCHAR2_TABLE_100();
225: a2 := JTF_VARCHAR2_TABLE_200();
226: if t.count > 0 then
227: a0.extend(t.count);
228: a1.extend(t.count);
244: end rosetta_table_copy_out_p26;
245:
246: procedure get_segment_array(p_concate_segments VARCHAR2
247: , p_delimiter VARCHAR2
248: , p_seg_array_type out nocopy JTF_VARCHAR2_TABLE_100
249: )
250:
251: as
252: ddp_seg_array_type okl_accounting_util.seg_array_type;
387:
388: end;
389:
390: procedure get_accounting_segment(p0_a0 out nocopy JTF_NUMBER_TABLE
391: , p0_a1 out nocopy JTF_VARCHAR2_TABLE_100
392: , p0_a2 out nocopy JTF_VARCHAR2_TABLE_100
393: )
394:
395: as
388: end;
389:
390: procedure get_accounting_segment(p0_a0 out nocopy JTF_NUMBER_TABLE
391: , p0_a1 out nocopy JTF_VARCHAR2_TABLE_100
392: , p0_a2 out nocopy JTF_VARCHAR2_TABLE_100
393: )
394:
395: as
396: ddp_segment_array okl_accounting_util.seg_num_name_type;
441:
442: end;
443:
444: procedure check_overlaps(p_id NUMBER
445: , p1_a0 JTF_VARCHAR2_TABLE_100
446: , p1_a1 JTF_VARCHAR2_TABLE_100
447: , p1_a2 JTF_VARCHAR2_TABLE_200
448: , p_start_date_attribute_name VARCHAR2
449: , p_start_date date
442: end;
443:
444: procedure check_overlaps(p_id NUMBER
445: , p1_a0 JTF_VARCHAR2_TABLE_100
446: , p1_a1 JTF_VARCHAR2_TABLE_100
447: , p1_a2 JTF_VARCHAR2_TABLE_200
448: , p_start_date_attribute_name VARCHAR2
449: , p_start_date date
450: , p_end_date_attribute_name VARCHAR2
505: else x_valid := 0;
506: end if;
507: end;
508:
509: procedure get_version(p0_a0 JTF_VARCHAR2_TABLE_100
510: , p0_a1 JTF_VARCHAR2_TABLE_100
511: , p0_a2 JTF_VARCHAR2_TABLE_200
512: , p_cur_version VARCHAR2
513: , p_end_date_attribute_name VARCHAR2
506: end if;
507: end;
508:
509: procedure get_version(p0_a0 JTF_VARCHAR2_TABLE_100
510: , p0_a1 JTF_VARCHAR2_TABLE_100
511: , p0_a2 JTF_VARCHAR2_TABLE_200
512: , p_cur_version VARCHAR2
513: , p_end_date_attribute_name VARCHAR2
514: , p_end_date date