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_jtot_contact_extract_pub.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_jtot_contact_extract_pub.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_jtot_contact_extract_pub.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_jtot_contact_extract_pub.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);
105: , p_chr_id VARCHAR2
106: , p_cle_id VARCHAR2
107: , p_role_code VARCHAR2
108: , p_intent VARCHAR2
109: , p9_a0 out nocopy JTF_VARCHAR2_TABLE_100
110: , p9_a1 out nocopy JTF_VARCHAR2_TABLE_100
111: , p9_a2 out nocopy JTF_VARCHAR2_TABLE_200
112: , p9_a3 out nocopy JTF_VARCHAR2_TABLE_300
113: , p9_a4 out nocopy JTF_VARCHAR2_TABLE_300
106: , p_cle_id VARCHAR2
107: , p_role_code VARCHAR2
108: , p_intent VARCHAR2
109: , p9_a0 out nocopy JTF_VARCHAR2_TABLE_100
110: , p9_a1 out nocopy JTF_VARCHAR2_TABLE_100
111: , p9_a2 out nocopy JTF_VARCHAR2_TABLE_200
112: , p9_a3 out nocopy JTF_VARCHAR2_TABLE_300
113: , p9_a4 out nocopy JTF_VARCHAR2_TABLE_300
114: , p9_a5 out nocopy JTF_VARCHAR2_TABLE_100
110: , p9_a1 out nocopy JTF_VARCHAR2_TABLE_100
111: , p9_a2 out nocopy JTF_VARCHAR2_TABLE_200
112: , p9_a3 out nocopy JTF_VARCHAR2_TABLE_300
113: , p9_a4 out nocopy JTF_VARCHAR2_TABLE_300
114: , p9_a5 out nocopy JTF_VARCHAR2_TABLE_100
115: )
116:
117: as
118: ddx_party_tab okl_jtot_contact_extract_pub.party_tab_type;