18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p0(t out nocopy ams_list_purge_pvt.t_rec_table, a0 JTF_NUMBER_TABLE) as
23: ddindx binary_integer; indx binary_integer;
24: begin
25: if a0 is not null and a0.count > 0 then
26: if a0.count > 0 then
36: end loop;
37: end if;
38: end if;
39: end rosetta_table_copy_in_p0;
40: procedure rosetta_table_copy_out_p0(t ams_list_purge_pvt.t_rec_table, a0 out nocopy JTF_NUMBER_TABLE) as
41: ddindx binary_integer; indx binary_integer;
42: begin
43: if t is null or t.count = 0 then
44: a0 := JTF_NUMBER_TABLE();
40: procedure rosetta_table_copy_out_p0(t ams_list_purge_pvt.t_rec_table, a0 out nocopy JTF_NUMBER_TABLE) as
41: ddindx binary_integer; indx binary_integer;
42: begin
43: if t is null or t.count = 0 then
44: a0 := JTF_NUMBER_TABLE();
45: else
46: a0 := JTF_NUMBER_TABLE();
47: if t.count > 0 then
48: a0.extend(t.count);
42: begin
43: if t is null or t.count = 0 then
44: a0 := JTF_NUMBER_TABLE();
45: else
46: a0 := JTF_NUMBER_TABLE();
47: if t.count > 0 then
48: a0.extend(t.count);
49: ddindx := t.first;
50: indx := 1;
59: end if;
60: end if;
61: end rosetta_table_copy_out_p0;
62:
63: procedure rosetta_table_copy_in_p2(t out nocopy ams_list_purge_pvt.list_header_id_tbl, a0 JTF_NUMBER_TABLE
64: ) as
65: ddindx binary_integer; indx binary_integer;
66: begin
67: if a0 is not null and a0.count > 0 then
78: end loop;
79: end if;
80: end if;
81: end rosetta_table_copy_in_p2;
82: procedure rosetta_table_copy_out_p2(t ams_list_purge_pvt.list_header_id_tbl, a0 out nocopy JTF_NUMBER_TABLE
83: ) as
84: ddindx binary_integer; indx binary_integer;
85: begin
86: if t is null or t.count = 0 then
83: ) as
84: ddindx binary_integer; indx binary_integer;
85: begin
86: if t is null or t.count = 0 then
87: a0 := JTF_NUMBER_TABLE();
88: else
89: a0 := JTF_NUMBER_TABLE();
90: if t.count > 0 then
91: a0.extend(t.count);
85: begin
86: if t is null or t.count = 0 then
87: a0 := JTF_NUMBER_TABLE();
88: else
89: a0 := JTF_NUMBER_TABLE();
90: if t.count > 0 then
91: a0.extend(t.count);
92: ddindx := t.first;
93: indx := 1;
102: end if;
103: end if;
104: end rosetta_table_copy_out_p2;
105:
106: procedure delete_entries_soft(p0_a0 JTF_NUMBER_TABLE
107: , x_return_status out nocopy VARCHAR2
108: , x_msg_count out nocopy NUMBER
109: , x_msg_data out nocopy VARCHAR2
110: )
132:
133:
134: end;
135:
136: procedure delete_entries_online(p0_a0 JTF_NUMBER_TABLE
137: , x_return_status out nocopy VARCHAR2
138: , x_msg_count out nocopy NUMBER
139: , x_msg_data out nocopy VARCHAR2
140: )