1: package body pv_attribute_code_pvt_w as
2: /* $Header: pvxwatcb.pls 120.1 2005/07/05 14:37 appldev ship $ */
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_attribute_code_pvt.attribute_code_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_DATE_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_DATE_TABLE
57: end loop;
58: end if;
59: end if;
60: end rosetta_table_copy_in_p2;
61: procedure rosetta_table_copy_out_p2(t pv_attribute_code_pvt.attribute_code_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
62: , a1 out nocopy JTF_VARCHAR2_TABLE_100
63: , a2 out nocopy JTF_DATE_TABLE
64: , a3 out nocopy JTF_NUMBER_TABLE
65: , a4 out nocopy JTF_DATE_TABLE
153: , p7_a10 VARCHAR2 := fnd_api.g_miss_char
154: )
155:
156: as
157: ddp_attribute_code_rec pv_attribute_code_pvt.attribute_code_rec_type;
158: ddindx binary_integer; indx binary_integer;
159: begin
160:
161: -- copy data to the local IN or IN-OUT args, if any
179: ddp_attribute_code_rec.description := p7_a10;
180:
181:
182: -- here's the delegated call to the old PL/SQL routine
183: pv_attribute_code_pvt.create_attribute_code(p_api_version_number,
184: p_init_msg_list,
185: p_commit,
186: p_validation_level,
187: x_return_status,
222: , p7_a10 VARCHAR2 := fnd_api.g_miss_char
223: )
224:
225: as
226: ddp_attribute_code_rec pv_attribute_code_pvt.attribute_code_rec_type;
227: ddindx binary_integer; indx binary_integer;
228: begin
229:
230: -- copy data to the local IN or IN-OUT args, if any
248: ddp_attribute_code_rec.description := p7_a10;
249:
250:
251: -- here's the delegated call to the old PL/SQL routine
252: pv_attribute_code_pvt.update_attribute_code(p_api_version_number,
253: p_init_msg_list,
254: p_commit,
255: p_validation_level,
256: x_return_status,
290: , p4_a10 VARCHAR2 := fnd_api.g_miss_char
291: )
292:
293: as
294: ddp_attribute_code_rec pv_attribute_code_pvt.attribute_code_rec_type;
295: ddindx binary_integer; indx binary_integer;
296: begin
297:
298: -- copy data to the local IN or IN-OUT args, if any
315:
316:
317:
318: -- here's the delegated call to the old PL/SQL routine
319: pv_attribute_code_pvt.validate_attribute_code(p_api_version_number,
320: p_init_msg_list,
321: p_validation_level,
322: p_validation_mode,
323: ddp_attribute_code_rec,
350: , p0_a10 VARCHAR2 := fnd_api.g_miss_char
351: )
352:
353: as
354: ddp_attribute_code_rec pv_attribute_code_pvt.attribute_code_rec_type;
355: ddindx binary_integer; indx binary_integer;
356: begin
357:
358: -- copy data to the local IN or IN-OUT args, if any
370:
371:
372:
373: -- here's the delegated call to the old PL/SQL routine
374: pv_attribute_code_pvt.check_attr_code_items(ddp_attribute_code_rec,
375: p_validation_mode,
376: x_return_status);
377:
378: -- copy data back from the local variables to OUT or IN-OUT args, if any
399: , p5_a10 VARCHAR2 := fnd_api.g_miss_char
400: )
401:
402: as
403: ddp_attribute_code_rec pv_attribute_code_pvt.attribute_code_rec_type;
404: ddindx binary_integer; indx binary_integer;
405: begin
406:
407: -- copy data to the local IN or IN-OUT args, if any
423: ddp_attribute_code_rec.description := p5_a10;
424:
425:
426: -- here's the delegated call to the old PL/SQL routine
427: pv_attribute_code_pvt.validate_attr_code_rec(p_api_version_number,
428: p_init_msg_list,
429: x_return_status,
430: x_msg_count,
431: x_msg_data,
440:
441:
442: end;
443:
444: end pv_attribute_code_pvt_w;