1: package body jts_configuration_pvt_w as
2: /* $Header: jtswcfgb.pls 115.4 2002/03/22 19:07:52 pkm 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 d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19: return d;
20: end;
21:
22: procedure rosetta_table_copy_in_p5(t out jts_configuration_pvt.config_rec_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_VARCHAR2_TABLE_300
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_100
99: end loop;
100: end if;
101: end if;
102: end rosetta_table_copy_in_p5;
103: procedure rosetta_table_copy_out_p5(t jts_configuration_pvt.config_rec_tbl_type, a0 out JTF_NUMBER_TABLE
104: , a1 out JTF_VARCHAR2_TABLE_100
105: , a2 out JTF_VARCHAR2_TABLE_300
106: , a3 out JTF_NUMBER_TABLE
107: , a4 out JTF_VARCHAR2_TABLE_100
318: , p1_a31 VARCHAR2 := fnd_api.g_miss_char
319: )
320:
321: as
322: ddp_configuration_rec jts_configuration_pvt.config_rec_type;
323: ddindx binary_integer; indx binary_integer;
324: begin
325:
326: -- copy data to the local IN or IN-OUT args, if any
362:
363:
364:
365: -- here's the delegated call to the old PL/SQL routine
366: jts_configuration_pvt.create_configuration(p_api_version,
367: ddp_configuration_rec,
368: x_config_id,
369: x_return_status,
370: x_msg_count,
418: , x_msg_data out VARCHAR2
419: )
420:
421: as
422: ddx_configuration_rec jts_configuration_pvt.config_rec_type;
423: ddindx binary_integer; indx binary_integer;
424: begin
425:
426: -- copy data to the local IN or IN-OUT args, if any
431:
432:
433:
434: -- here's the delegated call to the old PL/SQL routine
435: jts_configuration_pvt.get_configuration(p_api_version,
436: p_init_msg_list,
437: p_config_id,
438: ddx_configuration_rec,
439: x_return_status,
522: , x_msg_data out VARCHAR2
523: )
524:
525: as
526: ddx_configuration_tbl jts_configuration_pvt.config_rec_tbl_type;
527: ddindx binary_integer; indx binary_integer;
528: begin
529:
530: -- copy data to the local IN or IN-OUT args, if any
536:
537:
538:
539: -- here's the delegated call to the old PL/SQL routine
540: jts_configuration_pvt.get_configurations(p_api_version,
541: p_where_clause,
542: p_order_by,
543: p_how_to_order,
544: ddx_configuration_tbl,
550:
551:
552:
553:
554: jts_configuration_pvt_w.rosetta_table_copy_out_p5(ddx_configuration_tbl, p4_a0
555: , p4_a1
556: , p4_a2
557: , p4_a3
558: , p4_a4
588:
589:
590: end;
591:
592: end jts_configuration_pvt_w;