1: package body pv_enty_attr_value_pub_w as
2: /* $Header: pvxwavpb.pls 120.2 2005/11/11 15:27 amaram noship $ */
3: rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4: rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p2(t out nocopy pv_enty_attr_value_pub.attr_value_tbl_type, a0 JTF_VARCHAR2_TABLE_2000
23: , a1 JTF_VARCHAR2_TABLE_4000
24: ) as
25: ddindx binary_integer; indx binary_integer;
26: begin
39: end loop;
40: end if;
41: end if;
42: end rosetta_table_copy_in_p2;
43: procedure rosetta_table_copy_out_p2(t pv_enty_attr_value_pub.attr_value_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_2000
44: , a1 out nocopy JTF_VARCHAR2_TABLE_4000
45: ) as
46: ddindx binary_integer; indx binary_integer;
47: begin
68: end if;
69: end if;
70: end rosetta_table_copy_out_p2;
71:
72: procedure rosetta_table_copy_in_p4(t out nocopy pv_enty_attr_value_pub.number_table, a0 JTF_NUMBER_TABLE) as
73: ddindx binary_integer; indx binary_integer;
74: begin
75: if a0 is null then
76: t := null;
74: begin
75: if a0 is null then
76: t := null;
77: elsif a0.count = 0 then
78: t := pv_enty_attr_value_pub.number_table();
79: else
80: if a0.count > 0 then
81: t := pv_enty_attr_value_pub.number_table();
82: t.extend(a0.count);
77: elsif a0.count = 0 then
78: t := pv_enty_attr_value_pub.number_table();
79: else
80: if a0.count > 0 then
81: t := pv_enty_attr_value_pub.number_table();
82: t.extend(a0.count);
83: indx := a0.first;
84: ddindx := 1;
85: while true loop
92: end loop;
93: end if;
94: end if;
95: end rosetta_table_copy_in_p4;
96: procedure rosetta_table_copy_out_p4(t pv_enty_attr_value_pub.number_table, a0 out nocopy JTF_NUMBER_TABLE) as
97: ddindx binary_integer; indx binary_integer;
98: begin
99: if t is null then
100: a0 := null;
133: , p11_a1 JTF_VARCHAR2_TABLE_4000
134: )
135:
136: as
137: ddp_attr_val_tbl pv_enty_attr_value_pub.attr_value_tbl_type;
138: ddindx binary_integer; indx binary_integer;
139: begin
140:
141: -- copy data to the local IN or IN-OUT args, if any
149:
150:
151:
152:
153: pv_enty_attr_value_pub_w.rosetta_table_copy_in_p2(ddp_attr_val_tbl, p11_a0
154: , p11_a1
155: );
156:
157: -- here's the delegated call to the old PL/SQL routine
154: , p11_a1
155: );
156:
157: -- here's the delegated call to the old PL/SQL routine
158: pv_enty_attr_value_pub.upsert_attr_value(p_api_version_number,
159: p_init_msg_list,
160: p_commit,
161: p_validation_level,
162: x_return_status,
195: , p_partner_id NUMBER
196: )
197:
198: as
199: ddp_attr_id_tbl pv_enty_attr_value_pub.number_table;
200: ddindx binary_integer; indx binary_integer;
201: begin
202:
203: -- copy data to the local IN or IN-OUT args, if any
207:
208:
209:
210:
211: pv_enty_attr_value_pub_w.rosetta_table_copy_in_p4(ddp_attr_id_tbl, p_attr_id_tbl);
212:
213:
214:
215:
213:
214:
215:
216: -- here's the delegated call to the old PL/SQL routine
217: pv_enty_attr_value_pub.copy_partner_attr_values(p_api_version_number,
218: p_init_msg_list,
219: p_commit,
220: p_validation_level,
221: x_return_status,
252: , p9_a1 JTF_VARCHAR2_TABLE_4000
253: )
254:
255: as
256: ddp_attr_val_tbl pv_enty_attr_value_pub.attr_value_tbl_type;
257: ddindx binary_integer; indx binary_integer;
258: begin
259:
260: -- copy data to the local IN or IN-OUT args, if any
266:
267:
268:
269:
270: pv_enty_attr_value_pub_w.rosetta_table_copy_in_p2(ddp_attr_val_tbl, p9_a0
271: , p9_a1
272: );
273:
274: -- here's the delegated call to the old PL/SQL routine
271: , p9_a1
272: );
273:
274: -- here's the delegated call to the old PL/SQL routine
275: pv_enty_attr_value_pub.upsert_partner_types(p_api_version_number,
276: p_init_msg_list,
277: p_commit,
278: p_validation_level,
279: x_return_status,
294:
295:
296: end;
297:
298: end pv_enty_attr_value_pub_w;