1: package body ams_scripting_pub_w as
2: /* $Header: amswscrb.pls 115.4 2002/12/27 15:48:06 mayjain 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:
9: if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10: return d;
11: end;
12:
13: procedure rosetta_table_copy_in_p2(t out nocopy ams_scripting_pub.ams_party_tbl_type, a0 JTF_VARCHAR2_TABLE_400
14: , a1 JTF_VARCHAR2_TABLE_100
15: , a2 JTF_VARCHAR2_TABLE_300
16: , a3 JTF_VARCHAR2_TABLE_300
17: , a4 JTF_VARCHAR2_TABLE_300
78: end loop;
79: end if;
80: end if;
81: end rosetta_table_copy_in_p2;
82: procedure rosetta_table_copy_out_p2(t ams_scripting_pub.ams_party_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_400
83: , a1 out nocopy JTF_VARCHAR2_TABLE_100
84: , a2 out nocopy JTF_VARCHAR2_TABLE_300
85: , a3 out nocopy JTF_VARCHAR2_TABLE_300
86: , a4 out nocopy JTF_VARCHAR2_TABLE_300
227: end if;
228: end if;
229: end rosetta_table_copy_out_p2;
230:
231: procedure rosetta_table_copy_in_p6(t out nocopy ams_scripting_pub.ams_person_profile_tbl_type, a0 JTF_DATE_TABLE
232: , a1 JTF_VARCHAR2_TABLE_100
233: , a2 JTF_VARCHAR2_TABLE_100
234: , a3 JTF_VARCHAR2_TABLE_100
235: , a4 JTF_DATE_TABLE
264: end loop;
265: end if;
266: end if;
267: end rosetta_table_copy_in_p6;
268: procedure rosetta_table_copy_out_p6(t ams_scripting_pub.ams_person_profile_tbl_type, a0 out nocopy JTF_DATE_TABLE
269: , a1 out nocopy JTF_VARCHAR2_TABLE_100
270: , a2 out nocopy JTF_VARCHAR2_TABLE_100
271: , a3 out nocopy JTF_VARCHAR2_TABLE_100
272: , a4 out nocopy JTF_DATE_TABLE
374: , p_component_name out nocopy VARCHAR2
375: )
376:
377: as
378: ddp_ams_party_rec ams_scripting_pub.ams_party_rec_type;
379: ddindx binary_integer; indx binary_integer;
380: begin
381:
382: -- copy data to the local IN or IN-OUT args, if any
419:
420:
421:
422: -- here's the delegated call to the old PL/SQL routine
423: ams_scripting_pub.create_customer(p_api_version_number,
424: p_init_msg_list,
425: p_commit,
426: p_validation_level,
427: x_return_status,
471: , p_party_object_version_number in out nocopy NUMBER
472: )
473:
474: as
475: ddp_person_profile_rec ams_scripting_pub.ams_person_profile_rec_type;
476: ddindx binary_integer; indx binary_integer;
477: begin
478:
479: -- copy data to the local IN or IN-OUT args, if any
498: ddp_person_profile_rec.rent_own_ind := p9_a9;
499:
500:
501: -- here's the delegated call to the old PL/SQL routine
502: ams_scripting_pub.update_person_profile(p_api_version_number,
503: p_init_msg_list,
504: p_commit,
505: p_validation_level,
506: x_return_status,
523:
524:
525: end;
526:
527: end ams_scripting_pub_w;