1: package body as_sales_lead_owner_w as
2: /* $Header: asxwslnb.pls 120.1 2005/06/23 15:45 appldev 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_p1(t out nocopy as_sales_lead_owner.lead_owner_rec_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_VARCHAR2_TABLE_100
25: , a3 JTF_VARCHAR2_TABLE_100
26: , a4 JTF_VARCHAR2_TABLE_100
40: ) as
41: ddindx binary_integer; indx binary_integer;
42: begin
43: if a0 is not null and a0.count=0 then
44: t := as_sales_lead_owner.lead_owner_rec_tbl_type();
45: elsif a0 is not null and a0.count > 0 then
46: if a0.count > 0 then
47: t := as_sales_lead_owner.lead_owner_rec_tbl_type();
48: t.extend(a0.count);
43: if a0 is not null and a0.count=0 then
44: t := as_sales_lead_owner.lead_owner_rec_tbl_type();
45: elsif a0 is not null and a0.count > 0 then
46: if a0.count > 0 then
47: t := as_sales_lead_owner.lead_owner_rec_tbl_type();
48: t.extend(a0.count);
49: indx := a0.first;
50: ddindx := 1;
51: while true loop
75: end loop;
76: end if;
77: end if;
78: end rosetta_table_copy_in_p1;
79: procedure rosetta_table_copy_out_p1(t as_sales_lead_owner.lead_owner_rec_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
80: , a1 out nocopy JTF_VARCHAR2_TABLE_100
81: , a2 out nocopy JTF_VARCHAR2_TABLE_100
82: , a3 out nocopy JTF_VARCHAR2_TABLE_100
83: , a4 out nocopy JTF_VARCHAR2_TABLE_100
232: , p7_a17 DATE := fnd_api.g_miss_date
233: )
234:
235: as
236: ddp_lead_owner_rec as_sales_lead_owner.lead_owner_rec_type;
237: ddindx binary_integer; indx binary_integer;
238: begin
239:
240: -- copy data to the local IN or IN-OUT args, if any
265: ddp_lead_owner_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a17);
266:
267:
268: -- here's the delegated call to the old PL/SQL routine
269: as_sales_lead_owner.create_lead_owner(p_api_version,
270: p_init_msg_list,
271: p_commit,
272: p_validation_level,
273: x_return_status,
314: , p7_a17 DATE := fnd_api.g_miss_date
315: )
316:
317: as
318: ddp_lead_owner_rec as_sales_lead_owner.lead_owner_rec_type;
319: ddindx binary_integer; indx binary_integer;
320: begin
321:
322: -- copy data to the local IN or IN-OUT args, if any
346: ddp_lead_owner_rec.program_id := rosetta_g_miss_num_map(p7_a16);
347: ddp_lead_owner_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a17);
348:
349: -- here's the delegated call to the old PL/SQL routine
350: as_sales_lead_owner.update_lead_owner(p_api_version,
351: p_init_msg_list,
352: p_commit,
353: p_validation_level,
354: x_return_status,
394: , x_msg_data out nocopy VARCHAR2
395: )
396:
397: as
398: ddx_salesreps_tbl as_sales_lead_owner.lead_owner_rec_tbl_type;
399: ddindx binary_integer; indx binary_integer;
400: begin
401:
402: -- copy data to the local IN or IN-OUT args, if any
409:
410:
411:
412: -- here's the delegated call to the old PL/SQL routine
413: as_sales_lead_owner.get_salesreps(p_api_version,
414: p_init_msg_list,
415: p_commit,
416: p_validation_level,
417: p_sales_lead_id,
425:
426:
427:
428:
429: as_sales_lead_owner_w.rosetta_table_copy_out_p1(ddx_salesreps_tbl, p5_a0
430: , p5_a1
431: , p5_a2
432: , p5_a3
433: , p5_a4
449:
450:
451: end;
452:
453: end as_sales_lead_owner_w;