21: if n=b then return a; end if;
22: return n;
23: end;
24:
25: procedure rosetta_table_copy_in_p1(t out nocopy okl_qa_check_pub.msg_tbl_type, a0 JTF_VARCHAR2_TABLE_100
26: , a1 JTF_VARCHAR2_TABLE_200
27: , a2 JTF_VARCHAR2_TABLE_2000
28: , a3 JTF_VARCHAR2_TABLE_100
29: , a4 JTF_VARCHAR2_TABLE_100
24:
25: procedure rosetta_table_copy_in_p1(t out nocopy okl_qa_check_pub.msg_tbl_type, a0 JTF_VARCHAR2_TABLE_100
26: , a1 JTF_VARCHAR2_TABLE_200
27: , a2 JTF_VARCHAR2_TABLE_2000
28: , a3 JTF_VARCHAR2_TABLE_100
29: , a4 JTF_VARCHAR2_TABLE_100
30: , a5 JTF_VARCHAR2_TABLE_100
31: , a6 JTF_VARCHAR2_TABLE_2000
32: ) as
25: procedure rosetta_table_copy_in_p1(t out nocopy okl_qa_check_pub.msg_tbl_type, a0 JTF_VARCHAR2_TABLE_100
26: , a1 JTF_VARCHAR2_TABLE_200
27: , a2 JTF_VARCHAR2_TABLE_2000
28: , a3 JTF_VARCHAR2_TABLE_100
29: , a4 JTF_VARCHAR2_TABLE_100
30: , a5 JTF_VARCHAR2_TABLE_100
31: , a6 JTF_VARCHAR2_TABLE_2000
32: ) as
33: ddindx binary_integer; indx binary_integer;
26: , a1 JTF_VARCHAR2_TABLE_200
27: , a2 JTF_VARCHAR2_TABLE_2000
28: , a3 JTF_VARCHAR2_TABLE_100
29: , a4 JTF_VARCHAR2_TABLE_100
30: , a5 JTF_VARCHAR2_TABLE_100
31: , a6 JTF_VARCHAR2_TABLE_2000
32: ) as
33: ddindx binary_integer; indx binary_integer;
34: begin
52: end loop;
53: end if;
54: end if;
55: end rosetta_table_copy_in_p1;
56: procedure rosetta_table_copy_out_p1(t okl_qa_check_pub.msg_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
57: , a1 out nocopy JTF_VARCHAR2_TABLE_200
58: , a2 out nocopy JTF_VARCHAR2_TABLE_2000
59: , a3 out nocopy JTF_VARCHAR2_TABLE_100
60: , a4 out nocopy JTF_VARCHAR2_TABLE_100
55: end rosetta_table_copy_in_p1;
56: procedure rosetta_table_copy_out_p1(t okl_qa_check_pub.msg_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
57: , a1 out nocopy JTF_VARCHAR2_TABLE_200
58: , a2 out nocopy JTF_VARCHAR2_TABLE_2000
59: , a3 out nocopy JTF_VARCHAR2_TABLE_100
60: , a4 out nocopy JTF_VARCHAR2_TABLE_100
61: , a5 out nocopy JTF_VARCHAR2_TABLE_100
62: , a6 out nocopy JTF_VARCHAR2_TABLE_2000
63: ) as
56: procedure rosetta_table_copy_out_p1(t okl_qa_check_pub.msg_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
57: , a1 out nocopy JTF_VARCHAR2_TABLE_200
58: , a2 out nocopy JTF_VARCHAR2_TABLE_2000
59: , a3 out nocopy JTF_VARCHAR2_TABLE_100
60: , a4 out nocopy JTF_VARCHAR2_TABLE_100
61: , a5 out nocopy JTF_VARCHAR2_TABLE_100
62: , a6 out nocopy JTF_VARCHAR2_TABLE_2000
63: ) as
64: ddindx binary_integer; indx binary_integer;
57: , a1 out nocopy JTF_VARCHAR2_TABLE_200
58: , a2 out nocopy JTF_VARCHAR2_TABLE_2000
59: , a3 out nocopy JTF_VARCHAR2_TABLE_100
60: , a4 out nocopy JTF_VARCHAR2_TABLE_100
61: , a5 out nocopy JTF_VARCHAR2_TABLE_100
62: , a6 out nocopy JTF_VARCHAR2_TABLE_2000
63: ) as
64: ddindx binary_integer; indx binary_integer;
65: begin
63: ) as
64: ddindx binary_integer; indx binary_integer;
65: begin
66: if t is null or t.count = 0 then
67: a0 := JTF_VARCHAR2_TABLE_100();
68: a1 := JTF_VARCHAR2_TABLE_200();
69: a2 := JTF_VARCHAR2_TABLE_2000();
70: a3 := JTF_VARCHAR2_TABLE_100();
71: a4 := JTF_VARCHAR2_TABLE_100();
66: if t is null or t.count = 0 then
67: a0 := JTF_VARCHAR2_TABLE_100();
68: a1 := JTF_VARCHAR2_TABLE_200();
69: a2 := JTF_VARCHAR2_TABLE_2000();
70: a3 := JTF_VARCHAR2_TABLE_100();
71: a4 := JTF_VARCHAR2_TABLE_100();
72: a5 := JTF_VARCHAR2_TABLE_100();
73: a6 := JTF_VARCHAR2_TABLE_2000();
74: else
67: a0 := JTF_VARCHAR2_TABLE_100();
68: a1 := JTF_VARCHAR2_TABLE_200();
69: a2 := JTF_VARCHAR2_TABLE_2000();
70: a3 := JTF_VARCHAR2_TABLE_100();
71: a4 := JTF_VARCHAR2_TABLE_100();
72: a5 := JTF_VARCHAR2_TABLE_100();
73: a6 := JTF_VARCHAR2_TABLE_2000();
74: else
75: a0 := JTF_VARCHAR2_TABLE_100();
68: a1 := JTF_VARCHAR2_TABLE_200();
69: a2 := JTF_VARCHAR2_TABLE_2000();
70: a3 := JTF_VARCHAR2_TABLE_100();
71: a4 := JTF_VARCHAR2_TABLE_100();
72: a5 := JTF_VARCHAR2_TABLE_100();
73: a6 := JTF_VARCHAR2_TABLE_2000();
74: else
75: a0 := JTF_VARCHAR2_TABLE_100();
76: a1 := JTF_VARCHAR2_TABLE_200();
71: a4 := JTF_VARCHAR2_TABLE_100();
72: a5 := JTF_VARCHAR2_TABLE_100();
73: a6 := JTF_VARCHAR2_TABLE_2000();
74: else
75: a0 := JTF_VARCHAR2_TABLE_100();
76: a1 := JTF_VARCHAR2_TABLE_200();
77: a2 := JTF_VARCHAR2_TABLE_2000();
78: a3 := JTF_VARCHAR2_TABLE_100();
79: a4 := JTF_VARCHAR2_TABLE_100();
74: else
75: a0 := JTF_VARCHAR2_TABLE_100();
76: a1 := JTF_VARCHAR2_TABLE_200();
77: a2 := JTF_VARCHAR2_TABLE_2000();
78: a3 := JTF_VARCHAR2_TABLE_100();
79: a4 := JTF_VARCHAR2_TABLE_100();
80: a5 := JTF_VARCHAR2_TABLE_100();
81: a6 := JTF_VARCHAR2_TABLE_2000();
82: if t.count > 0 then
75: a0 := JTF_VARCHAR2_TABLE_100();
76: a1 := JTF_VARCHAR2_TABLE_200();
77: a2 := JTF_VARCHAR2_TABLE_2000();
78: a3 := JTF_VARCHAR2_TABLE_100();
79: a4 := JTF_VARCHAR2_TABLE_100();
80: a5 := JTF_VARCHAR2_TABLE_100();
81: a6 := JTF_VARCHAR2_TABLE_2000();
82: if t.count > 0 then
83: a0.extend(t.count);
76: a1 := JTF_VARCHAR2_TABLE_200();
77: a2 := JTF_VARCHAR2_TABLE_2000();
78: a3 := JTF_VARCHAR2_TABLE_100();
79: a4 := JTF_VARCHAR2_TABLE_100();
80: a5 := JTF_VARCHAR2_TABLE_100();
81: a6 := JTF_VARCHAR2_TABLE_2000();
82: if t.count > 0 then
83: a0.extend(t.count);
84: a1.extend(t.count);
113: , x_msg_count out nocopy NUMBER
114: , x_msg_data out nocopy VARCHAR2
115: , p_qcl_id NUMBER
116: , p_chr_id NUMBER
117: , p7_a0 out nocopy JTF_VARCHAR2_TABLE_100
118: , p7_a1 out nocopy JTF_VARCHAR2_TABLE_200
119: , p7_a2 out nocopy JTF_VARCHAR2_TABLE_2000
120: , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
121: , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
116: , p_chr_id NUMBER
117: , p7_a0 out nocopy JTF_VARCHAR2_TABLE_100
118: , p7_a1 out nocopy JTF_VARCHAR2_TABLE_200
119: , p7_a2 out nocopy JTF_VARCHAR2_TABLE_2000
120: , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
121: , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
122: , p7_a5 out nocopy JTF_VARCHAR2_TABLE_100
123: , p7_a6 out nocopy JTF_VARCHAR2_TABLE_2000
124: , p_call_mode VARCHAR2
117: , p7_a0 out nocopy JTF_VARCHAR2_TABLE_100
118: , p7_a1 out nocopy JTF_VARCHAR2_TABLE_200
119: , p7_a2 out nocopy JTF_VARCHAR2_TABLE_2000
120: , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
121: , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
122: , p7_a5 out nocopy JTF_VARCHAR2_TABLE_100
123: , p7_a6 out nocopy JTF_VARCHAR2_TABLE_2000
124: , p_call_mode VARCHAR2
125: )
118: , p7_a1 out nocopy JTF_VARCHAR2_TABLE_200
119: , p7_a2 out nocopy JTF_VARCHAR2_TABLE_2000
120: , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
121: , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
122: , p7_a5 out nocopy JTF_VARCHAR2_TABLE_100
123: , p7_a6 out nocopy JTF_VARCHAR2_TABLE_2000
124: , p_call_mode VARCHAR2
125: )
126: