1: package body ozf_approval_pvt_oaw as
2: /* $Header: ozfaappb.pls 115.1 2003/12/10 16:03:42 feliu noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy ozf_approval_pvt.action_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
6: , a3 JTF_VARCHAR2_TABLE_100
7: , a4 JTF_NUMBER_TABLE
8: ) as
3: procedure rosetta_table_copy_in_p1(t out nocopy ozf_approval_pvt.action_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
6: , a3 JTF_VARCHAR2_TABLE_100
7: , a4 JTF_NUMBER_TABLE
8: ) as
9: ddindx binary_integer; indx binary_integer;
10: begin
11: if a0 is not null and a0.count=0 then
31: end if;
32: end if;
33: end rosetta_table_copy_in_p1;
34: procedure rosetta_table_copy_out_p1(t ozf_approval_pvt.action_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
35: , a1 out nocopy JTF_NUMBER_TABLE
36: , a2 out nocopy JTF_VARCHAR2_TABLE_100
37: , a3 out nocopy JTF_VARCHAR2_TABLE_100
38: , a4 out nocopy JTF_NUMBER_TABLE
39: ) as
34: procedure rosetta_table_copy_out_p1(t ozf_approval_pvt.action_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
35: , a1 out nocopy JTF_NUMBER_TABLE
36: , a2 out nocopy JTF_VARCHAR2_TABLE_100
37: , a3 out nocopy JTF_VARCHAR2_TABLE_100
38: , a4 out nocopy JTF_NUMBER_TABLE
39: ) as
40: ddindx binary_integer; indx binary_integer;
41: begin
42: if t is null then
46: a3 := null;
47: a4 := null;
48: elsif t.count = 0 then
49: a0 := JTF_VARCHAR2_TABLE_100();
50: a1 := JTF_NUMBER_TABLE();
51: a2 := JTF_VARCHAR2_TABLE_100();
52: a3 := JTF_VARCHAR2_TABLE_100();
53: a4 := JTF_NUMBER_TABLE();
54: else
49: a0 := JTF_VARCHAR2_TABLE_100();
50: a1 := JTF_NUMBER_TABLE();
51: a2 := JTF_VARCHAR2_TABLE_100();
52: a3 := JTF_VARCHAR2_TABLE_100();
53: a4 := JTF_NUMBER_TABLE();
54: else
55: a0 := JTF_VARCHAR2_TABLE_100();
56: a1 := JTF_NUMBER_TABLE();
57: a2 := JTF_VARCHAR2_TABLE_100();
52: a3 := JTF_VARCHAR2_TABLE_100();
53: a4 := JTF_NUMBER_TABLE();
54: else
55: a0 := JTF_VARCHAR2_TABLE_100();
56: a1 := JTF_NUMBER_TABLE();
57: a2 := JTF_VARCHAR2_TABLE_100();
58: a3 := JTF_VARCHAR2_TABLE_100();
59: a4 := JTF_NUMBER_TABLE();
60: if t.count > 0 then
55: a0 := JTF_VARCHAR2_TABLE_100();
56: a1 := JTF_NUMBER_TABLE();
57: a2 := JTF_VARCHAR2_TABLE_100();
58: a3 := JTF_VARCHAR2_TABLE_100();
59: a4 := JTF_NUMBER_TABLE();
60: if t.count > 0 then
61: a0.extend(t.count);
62: a1.extend(t.count);
63: a2.extend(t.count);
81: end if;
82: end rosetta_table_copy_out_p1;
83:
84: procedure rosetta_table_copy_in_p3(t out nocopy ozf_approval_pvt.approvers_tbl_type, a0 JTF_VARCHAR2_TABLE_100
85: , a1 JTF_NUMBER_TABLE
86: , a2 JTF_NUMBER_TABLE
87: ) as
88: ddindx binary_integer; indx binary_integer;
89: begin
82: end rosetta_table_copy_out_p1;
83:
84: procedure rosetta_table_copy_in_p3(t out nocopy ozf_approval_pvt.approvers_tbl_type, a0 JTF_VARCHAR2_TABLE_100
85: , a1 JTF_NUMBER_TABLE
86: , a2 JTF_NUMBER_TABLE
87: ) as
88: ddindx binary_integer; indx binary_integer;
89: begin
90: if a0 is not null and a0.count=0 then
108: end if;
109: end if;
110: end rosetta_table_copy_in_p3;
111: procedure rosetta_table_copy_out_p3(t ozf_approval_pvt.approvers_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
112: , a1 out nocopy JTF_NUMBER_TABLE
113: , a2 out nocopy JTF_NUMBER_TABLE
114: ) as
115: ddindx binary_integer; indx binary_integer;
116: begin
109: end if;
110: end rosetta_table_copy_in_p3;
111: procedure rosetta_table_copy_out_p3(t ozf_approval_pvt.approvers_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
112: , a1 out nocopy JTF_NUMBER_TABLE
113: , a2 out nocopy JTF_NUMBER_TABLE
114: ) as
115: ddindx binary_integer; indx binary_integer;
116: begin
117: if t is null then
119: a1 := null;
120: a2 := null;
121: elsif t.count = 0 then
122: a0 := JTF_VARCHAR2_TABLE_100();
123: a1 := JTF_NUMBER_TABLE();
124: a2 := JTF_NUMBER_TABLE();
125: else
126: a0 := JTF_VARCHAR2_TABLE_100();
127: a1 := JTF_NUMBER_TABLE();
120: a2 := null;
121: elsif t.count = 0 then
122: a0 := JTF_VARCHAR2_TABLE_100();
123: a1 := JTF_NUMBER_TABLE();
124: a2 := JTF_NUMBER_TABLE();
125: else
126: a0 := JTF_VARCHAR2_TABLE_100();
127: a1 := JTF_NUMBER_TABLE();
128: a2 := JTF_NUMBER_TABLE();
123: a1 := JTF_NUMBER_TABLE();
124: a2 := JTF_NUMBER_TABLE();
125: else
126: a0 := JTF_VARCHAR2_TABLE_100();
127: a1 := JTF_NUMBER_TABLE();
128: a2 := JTF_NUMBER_TABLE();
129: if t.count > 0 then
130: a0.extend(t.count);
131: a1.extend(t.count);
124: a2 := JTF_NUMBER_TABLE();
125: else
126: a0 := JTF_VARCHAR2_TABLE_100();
127: a1 := JTF_NUMBER_TABLE();
128: a2 := JTF_NUMBER_TABLE();
129: if t.count > 0 then
130: a0.extend(t.count);
131: a1.extend(t.count);
132: a2.extend(t.count);
206: , p6_a2 VARCHAR2
207: , p6_a3 VARCHAR2
208: , p6_a4 NUMBER
209: , p7_a0 out nocopy JTF_VARCHAR2_TABLE_100
210: , p7_a1 out nocopy JTF_NUMBER_TABLE
211: , p7_a2 out nocopy JTF_NUMBER_TABLE
212: , x_final_approval_flag out nocopy VARCHAR2
213: )
214:
207: , p6_a3 VARCHAR2
208: , p6_a4 NUMBER
209: , p7_a0 out nocopy JTF_VARCHAR2_TABLE_100
210: , p7_a1 out nocopy JTF_NUMBER_TABLE
211: , p7_a2 out nocopy JTF_NUMBER_TABLE
212: , x_final_approval_flag out nocopy VARCHAR2
213: )
214:
215: as
271: , p7_a2 VARCHAR2
272: , p7_a3 VARCHAR2
273: , p7_a4 NUMBER
274: , p8_a0 JTF_VARCHAR2_TABLE_100
275: , p8_a1 JTF_NUMBER_TABLE
276: , p8_a2 JTF_NUMBER_TABLE
277: )
278:
279: as
272: , p7_a3 VARCHAR2
273: , p7_a4 NUMBER
274: , p8_a0 JTF_VARCHAR2_TABLE_100
275: , p8_a1 JTF_NUMBER_TABLE
276: , p8_a2 JTF_NUMBER_TABLE
277: )
278:
279: as
280: ddp_approval_rec ozf_approval_pvt.approval_rec_type;