18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p1(t out nocopy okl_vp_jtf_party_name_pvt.party_tab_type, a0 JTF_VARCHAR2_TABLE_100
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_VARCHAR2_TABLE_200
25: , a3 JTF_VARCHAR2_TABLE_300
26: , a4 JTF_VARCHAR2_TABLE_300
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p1(t out nocopy okl_vp_jtf_party_name_pvt.party_tab_type, a0 JTF_VARCHAR2_TABLE_100
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_VARCHAR2_TABLE_200
25: , a3 JTF_VARCHAR2_TABLE_300
26: , a4 JTF_VARCHAR2_TABLE_300
27: , a5 JTF_VARCHAR2_TABLE_100
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_VARCHAR2_TABLE_200
25: , a3 JTF_VARCHAR2_TABLE_300
26: , a4 JTF_VARCHAR2_TABLE_300
27: , a5 JTF_VARCHAR2_TABLE_100
28: ) as
29: ddindx binary_integer; indx binary_integer;
30: begin
31: if a0 is not null and a0.count > 0 then
47: end loop;
48: end if;
49: end if;
50: end rosetta_table_copy_in_p1;
51: procedure rosetta_table_copy_out_p1(t okl_vp_jtf_party_name_pvt.party_tab_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
52: , a1 out nocopy JTF_VARCHAR2_TABLE_100
53: , a2 out nocopy JTF_VARCHAR2_TABLE_200
54: , a3 out nocopy JTF_VARCHAR2_TABLE_300
55: , a4 out nocopy JTF_VARCHAR2_TABLE_300
48: end if;
49: end if;
50: end rosetta_table_copy_in_p1;
51: procedure rosetta_table_copy_out_p1(t okl_vp_jtf_party_name_pvt.party_tab_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
52: , a1 out nocopy JTF_VARCHAR2_TABLE_100
53: , a2 out nocopy JTF_VARCHAR2_TABLE_200
54: , a3 out nocopy JTF_VARCHAR2_TABLE_300
55: , a4 out nocopy JTF_VARCHAR2_TABLE_300
56: , a5 out nocopy JTF_VARCHAR2_TABLE_100
52: , a1 out nocopy JTF_VARCHAR2_TABLE_100
53: , a2 out nocopy JTF_VARCHAR2_TABLE_200
54: , a3 out nocopy JTF_VARCHAR2_TABLE_300
55: , a4 out nocopy JTF_VARCHAR2_TABLE_300
56: , a5 out nocopy JTF_VARCHAR2_TABLE_100
57: ) as
58: ddindx binary_integer; indx binary_integer;
59: begin
60: if t is null or t.count = 0 then
57: ) as
58: ddindx binary_integer; indx binary_integer;
59: begin
60: if t is null or t.count = 0 then
61: a0 := JTF_VARCHAR2_TABLE_100();
62: a1 := JTF_VARCHAR2_TABLE_100();
63: a2 := JTF_VARCHAR2_TABLE_200();
64: a3 := JTF_VARCHAR2_TABLE_300();
65: a4 := JTF_VARCHAR2_TABLE_300();
58: ddindx binary_integer; indx binary_integer;
59: begin
60: if t is null or t.count = 0 then
61: a0 := JTF_VARCHAR2_TABLE_100();
62: a1 := JTF_VARCHAR2_TABLE_100();
63: a2 := JTF_VARCHAR2_TABLE_200();
64: a3 := JTF_VARCHAR2_TABLE_300();
65: a4 := JTF_VARCHAR2_TABLE_300();
66: a5 := JTF_VARCHAR2_TABLE_100();
62: a1 := JTF_VARCHAR2_TABLE_100();
63: a2 := JTF_VARCHAR2_TABLE_200();
64: a3 := JTF_VARCHAR2_TABLE_300();
65: a4 := JTF_VARCHAR2_TABLE_300();
66: a5 := JTF_VARCHAR2_TABLE_100();
67: else
68: a0 := JTF_VARCHAR2_TABLE_100();
69: a1 := JTF_VARCHAR2_TABLE_100();
70: a2 := JTF_VARCHAR2_TABLE_200();
64: a3 := JTF_VARCHAR2_TABLE_300();
65: a4 := JTF_VARCHAR2_TABLE_300();
66: a5 := JTF_VARCHAR2_TABLE_100();
67: else
68: a0 := JTF_VARCHAR2_TABLE_100();
69: a1 := JTF_VARCHAR2_TABLE_100();
70: a2 := JTF_VARCHAR2_TABLE_200();
71: a3 := JTF_VARCHAR2_TABLE_300();
72: a4 := JTF_VARCHAR2_TABLE_300();
65: a4 := JTF_VARCHAR2_TABLE_300();
66: a5 := JTF_VARCHAR2_TABLE_100();
67: else
68: a0 := JTF_VARCHAR2_TABLE_100();
69: a1 := JTF_VARCHAR2_TABLE_100();
70: a2 := JTF_VARCHAR2_TABLE_200();
71: a3 := JTF_VARCHAR2_TABLE_300();
72: a4 := JTF_VARCHAR2_TABLE_300();
73: a5 := JTF_VARCHAR2_TABLE_100();
69: a1 := JTF_VARCHAR2_TABLE_100();
70: a2 := JTF_VARCHAR2_TABLE_200();
71: a3 := JTF_VARCHAR2_TABLE_300();
72: a4 := JTF_VARCHAR2_TABLE_300();
73: a5 := JTF_VARCHAR2_TABLE_100();
74: if t.count > 0 then
75: a0.extend(t.count);
76: a1.extend(t.count);
77: a2.extend(t.count);
96: end if;
97: end if;
98: end rosetta_table_copy_out_p1;
99:
100: procedure rosetta_table_copy_in_p3(t out nocopy okl_vp_jtf_party_name_pvt.rle_code_tbl_type, a0 JTF_VARCHAR2_TABLE_100
101: , a1 JTF_VARCHAR2_TABLE_100
102: ) as
103: ddindx binary_integer; indx binary_integer;
104: begin
97: end if;
98: end rosetta_table_copy_out_p1;
99:
100: procedure rosetta_table_copy_in_p3(t out nocopy okl_vp_jtf_party_name_pvt.rle_code_tbl_type, a0 JTF_VARCHAR2_TABLE_100
101: , a1 JTF_VARCHAR2_TABLE_100
102: ) as
103: ddindx binary_integer; indx binary_integer;
104: begin
105: if a0 is not null and a0.count > 0 then
117: end loop;
118: end if;
119: end if;
120: end rosetta_table_copy_in_p3;
121: procedure rosetta_table_copy_out_p3(t okl_vp_jtf_party_name_pvt.rle_code_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
122: , a1 out nocopy JTF_VARCHAR2_TABLE_100
123: ) as
124: ddindx binary_integer; indx binary_integer;
125: begin
118: end if;
119: end if;
120: end rosetta_table_copy_in_p3;
121: procedure rosetta_table_copy_out_p3(t okl_vp_jtf_party_name_pvt.rle_code_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
122: , a1 out nocopy JTF_VARCHAR2_TABLE_100
123: ) as
124: ddindx binary_integer; indx binary_integer;
125: begin
126: if t is null or t.count = 0 then
123: ) as
124: ddindx binary_integer; indx binary_integer;
125: begin
126: if t is null or t.count = 0 then
127: a0 := JTF_VARCHAR2_TABLE_100();
128: a1 := JTF_VARCHAR2_TABLE_100();
129: else
130: a0 := JTF_VARCHAR2_TABLE_100();
131: a1 := JTF_VARCHAR2_TABLE_100();
124: ddindx binary_integer; indx binary_integer;
125: begin
126: if t is null or t.count = 0 then
127: a0 := JTF_VARCHAR2_TABLE_100();
128: a1 := JTF_VARCHAR2_TABLE_100();
129: else
130: a0 := JTF_VARCHAR2_TABLE_100();
131: a1 := JTF_VARCHAR2_TABLE_100();
132: if t.count > 0 then
126: if t is null or t.count = 0 then
127: a0 := JTF_VARCHAR2_TABLE_100();
128: a1 := JTF_VARCHAR2_TABLE_100();
129: else
130: a0 := JTF_VARCHAR2_TABLE_100();
131: a1 := JTF_VARCHAR2_TABLE_100();
132: if t.count > 0 then
133: a0.extend(t.count);
134: a1.extend(t.count);
127: a0 := JTF_VARCHAR2_TABLE_100();
128: a1 := JTF_VARCHAR2_TABLE_100();
129: else
130: a0 := JTF_VARCHAR2_TABLE_100();
131: a1 := JTF_VARCHAR2_TABLE_100();
132: if t.count > 0 then
133: a0.extend(t.count);
134: a1.extend(t.count);
135: ddindx := t.first;
146: end if;
147: end if;
148: end rosetta_table_copy_out_p3;
149:
150: procedure rosetta_table_copy_in_p9(t out nocopy okl_vp_jtf_party_name_pvt.contact_tab_type, a0 JTF_VARCHAR2_TABLE_100
151: , a1 JTF_VARCHAR2_TABLE_100
152: , a2 JTF_VARCHAR2_TABLE_200
153: , a3 JTF_VARCHAR2_TABLE_300
154: , a4 JTF_VARCHAR2_TABLE_300
147: end if;
148: end rosetta_table_copy_out_p3;
149:
150: procedure rosetta_table_copy_in_p9(t out nocopy okl_vp_jtf_party_name_pvt.contact_tab_type, a0 JTF_VARCHAR2_TABLE_100
151: , a1 JTF_VARCHAR2_TABLE_100
152: , a2 JTF_VARCHAR2_TABLE_200
153: , a3 JTF_VARCHAR2_TABLE_300
154: , a4 JTF_VARCHAR2_TABLE_300
155: , a5 JTF_VARCHAR2_TABLE_100
151: , a1 JTF_VARCHAR2_TABLE_100
152: , a2 JTF_VARCHAR2_TABLE_200
153: , a3 JTF_VARCHAR2_TABLE_300
154: , a4 JTF_VARCHAR2_TABLE_300
155: , a5 JTF_VARCHAR2_TABLE_100
156: ) as
157: ddindx binary_integer; indx binary_integer;
158: begin
159: if a0 is not null and a0.count > 0 then
175: end loop;
176: end if;
177: end if;
178: end rosetta_table_copy_in_p9;
179: procedure rosetta_table_copy_out_p9(t okl_vp_jtf_party_name_pvt.contact_tab_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
180: , a1 out nocopy JTF_VARCHAR2_TABLE_100
181: , a2 out nocopy JTF_VARCHAR2_TABLE_200
182: , a3 out nocopy JTF_VARCHAR2_TABLE_300
183: , a4 out nocopy JTF_VARCHAR2_TABLE_300
176: end if;
177: end if;
178: end rosetta_table_copy_in_p9;
179: procedure rosetta_table_copy_out_p9(t okl_vp_jtf_party_name_pvt.contact_tab_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
180: , a1 out nocopy JTF_VARCHAR2_TABLE_100
181: , a2 out nocopy JTF_VARCHAR2_TABLE_200
182: , a3 out nocopy JTF_VARCHAR2_TABLE_300
183: , a4 out nocopy JTF_VARCHAR2_TABLE_300
184: , a5 out nocopy JTF_VARCHAR2_TABLE_100
180: , a1 out nocopy JTF_VARCHAR2_TABLE_100
181: , a2 out nocopy JTF_VARCHAR2_TABLE_200
182: , a3 out nocopy JTF_VARCHAR2_TABLE_300
183: , a4 out nocopy JTF_VARCHAR2_TABLE_300
184: , a5 out nocopy JTF_VARCHAR2_TABLE_100
185: ) as
186: ddindx binary_integer; indx binary_integer;
187: begin
188: if t is null or t.count = 0 then
185: ) as
186: ddindx binary_integer; indx binary_integer;
187: begin
188: if t is null or t.count = 0 then
189: a0 := JTF_VARCHAR2_TABLE_100();
190: a1 := JTF_VARCHAR2_TABLE_100();
191: a2 := JTF_VARCHAR2_TABLE_200();
192: a3 := JTF_VARCHAR2_TABLE_300();
193: a4 := JTF_VARCHAR2_TABLE_300();
186: ddindx binary_integer; indx binary_integer;
187: begin
188: if t is null or t.count = 0 then
189: a0 := JTF_VARCHAR2_TABLE_100();
190: a1 := JTF_VARCHAR2_TABLE_100();
191: a2 := JTF_VARCHAR2_TABLE_200();
192: a3 := JTF_VARCHAR2_TABLE_300();
193: a4 := JTF_VARCHAR2_TABLE_300();
194: a5 := JTF_VARCHAR2_TABLE_100();
190: a1 := JTF_VARCHAR2_TABLE_100();
191: a2 := JTF_VARCHAR2_TABLE_200();
192: a3 := JTF_VARCHAR2_TABLE_300();
193: a4 := JTF_VARCHAR2_TABLE_300();
194: a5 := JTF_VARCHAR2_TABLE_100();
195: else
196: a0 := JTF_VARCHAR2_TABLE_100();
197: a1 := JTF_VARCHAR2_TABLE_100();
198: a2 := JTF_VARCHAR2_TABLE_200();
192: a3 := JTF_VARCHAR2_TABLE_300();
193: a4 := JTF_VARCHAR2_TABLE_300();
194: a5 := JTF_VARCHAR2_TABLE_100();
195: else
196: a0 := JTF_VARCHAR2_TABLE_100();
197: a1 := JTF_VARCHAR2_TABLE_100();
198: a2 := JTF_VARCHAR2_TABLE_200();
199: a3 := JTF_VARCHAR2_TABLE_300();
200: a4 := JTF_VARCHAR2_TABLE_300();
193: a4 := JTF_VARCHAR2_TABLE_300();
194: a5 := JTF_VARCHAR2_TABLE_100();
195: else
196: a0 := JTF_VARCHAR2_TABLE_100();
197: a1 := JTF_VARCHAR2_TABLE_100();
198: a2 := JTF_VARCHAR2_TABLE_200();
199: a3 := JTF_VARCHAR2_TABLE_300();
200: a4 := JTF_VARCHAR2_TABLE_300();
201: a5 := JTF_VARCHAR2_TABLE_100();
197: a1 := JTF_VARCHAR2_TABLE_100();
198: a2 := JTF_VARCHAR2_TABLE_200();
199: a3 := JTF_VARCHAR2_TABLE_300();
200: a4 := JTF_VARCHAR2_TABLE_300();
201: a5 := JTF_VARCHAR2_TABLE_100();
202: if t.count > 0 then
203: a0.extend(t.count);
204: a1.extend(t.count);
205: a2.extend(t.count);
233: , p_chr_id VARCHAR2
234: , p_cle_id VARCHAR2
235: , p_role_code VARCHAR2
236: , p_intent VARCHAR2
237: , p9_a0 out nocopy JTF_VARCHAR2_TABLE_100
238: , p9_a1 out nocopy JTF_VARCHAR2_TABLE_100
239: , p9_a2 out nocopy JTF_VARCHAR2_TABLE_200
240: , p9_a3 out nocopy JTF_VARCHAR2_TABLE_300
241: , p9_a4 out nocopy JTF_VARCHAR2_TABLE_300
234: , p_cle_id VARCHAR2
235: , p_role_code VARCHAR2
236: , p_intent VARCHAR2
237: , p9_a0 out nocopy JTF_VARCHAR2_TABLE_100
238: , p9_a1 out nocopy JTF_VARCHAR2_TABLE_100
239: , p9_a2 out nocopy JTF_VARCHAR2_TABLE_200
240: , p9_a3 out nocopy JTF_VARCHAR2_TABLE_300
241: , p9_a4 out nocopy JTF_VARCHAR2_TABLE_300
242: , p9_a5 out nocopy JTF_VARCHAR2_TABLE_100
238: , p9_a1 out nocopy JTF_VARCHAR2_TABLE_100
239: , p9_a2 out nocopy JTF_VARCHAR2_TABLE_200
240: , p9_a3 out nocopy JTF_VARCHAR2_TABLE_300
241: , p9_a4 out nocopy JTF_VARCHAR2_TABLE_300
242: , p9_a5 out nocopy JTF_VARCHAR2_TABLE_100
243: )
244:
245: as
246: ddx_party_tab okl_vp_jtf_party_name_pvt.party_tab_type;
289: );
290: end;
291:
292: procedure get_subclass_def_roles(p_scs_code VARCHAR2
293: , p1_a0 out nocopy JTF_VARCHAR2_TABLE_100
294: , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
295: )
296:
297: as
290: end;
291:
292: procedure get_subclass_def_roles(p_scs_code VARCHAR2
293: , p1_a0 out nocopy JTF_VARCHAR2_TABLE_100
294: , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
295: )
296:
297: as
298: ddx_rle_code_tbl okl_vp_jtf_party_name_pvt.rle_code_tbl_type;
313: );
314: end;
315:
316: procedure get_contract_def_roles(p_chr_id VARCHAR2
317: , p1_a0 out nocopy JTF_VARCHAR2_TABLE_100
318: , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
319: )
320:
321: as
314: end;
315:
316: procedure get_contract_def_roles(p_chr_id VARCHAR2
317: , p1_a0 out nocopy JTF_VARCHAR2_TABLE_100
318: , p1_a1 out nocopy JTF_VARCHAR2_TABLE_100
319: )
320:
321: as
322: ddx_rle_code_tbl okl_vp_jtf_party_name_pvt.rle_code_tbl_type;