1: package body ams_contact_point_pvt_w as
2: /* $Header: amswcptb.pls 115.3 2002/11/22 08:56:59 jieli 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:
84: , p12_a0 VARCHAR2 := fnd_api.g_miss_char
85: , p12_a1 VARCHAR2 := fnd_api.g_miss_char
86: )
87: as
88: ddp_ams_contact_point_rec ams_contact_point_pvt.contact_point_rec_type;
89: ddp_ams_edi_rec ams_contact_point_pvt.edi_rec_type;
90: ddp_ams_email_rec ams_contact_point_pvt.email_rec_type;
91: ddp_ams_phone_rec ams_contact_point_pvt.phone_rec_type;
92: ddp_ams_telex_rec ams_contact_point_pvt.telex_rec_type;
85: , p12_a1 VARCHAR2 := fnd_api.g_miss_char
86: )
87: as
88: ddp_ams_contact_point_rec ams_contact_point_pvt.contact_point_rec_type;
89: ddp_ams_edi_rec ams_contact_point_pvt.edi_rec_type;
90: ddp_ams_email_rec ams_contact_point_pvt.email_rec_type;
91: ddp_ams_phone_rec ams_contact_point_pvt.phone_rec_type;
92: ddp_ams_telex_rec ams_contact_point_pvt.telex_rec_type;
93: ddp_ams_web_rec ams_contact_point_pvt.web_rec_type;
86: )
87: as
88: ddp_ams_contact_point_rec ams_contact_point_pvt.contact_point_rec_type;
89: ddp_ams_edi_rec ams_contact_point_pvt.edi_rec_type;
90: ddp_ams_email_rec ams_contact_point_pvt.email_rec_type;
91: ddp_ams_phone_rec ams_contact_point_pvt.phone_rec_type;
92: ddp_ams_telex_rec ams_contact_point_pvt.telex_rec_type;
93: ddp_ams_web_rec ams_contact_point_pvt.web_rec_type;
94: ddindx binary_integer; indx binary_integer;
87: as
88: ddp_ams_contact_point_rec ams_contact_point_pvt.contact_point_rec_type;
89: ddp_ams_edi_rec ams_contact_point_pvt.edi_rec_type;
90: ddp_ams_email_rec ams_contact_point_pvt.email_rec_type;
91: ddp_ams_phone_rec ams_contact_point_pvt.phone_rec_type;
92: ddp_ams_telex_rec ams_contact_point_pvt.telex_rec_type;
93: ddp_ams_web_rec ams_contact_point_pvt.web_rec_type;
94: ddindx binary_integer; indx binary_integer;
95: begin
88: ddp_ams_contact_point_rec ams_contact_point_pvt.contact_point_rec_type;
89: ddp_ams_edi_rec ams_contact_point_pvt.edi_rec_type;
90: ddp_ams_email_rec ams_contact_point_pvt.email_rec_type;
91: ddp_ams_phone_rec ams_contact_point_pvt.phone_rec_type;
92: ddp_ams_telex_rec ams_contact_point_pvt.telex_rec_type;
93: ddp_ams_web_rec ams_contact_point_pvt.web_rec_type;
94: ddindx binary_integer; indx binary_integer;
95: begin
96:
89: ddp_ams_edi_rec ams_contact_point_pvt.edi_rec_type;
90: ddp_ams_email_rec ams_contact_point_pvt.email_rec_type;
91: ddp_ams_phone_rec ams_contact_point_pvt.phone_rec_type;
92: ddp_ams_telex_rec ams_contact_point_pvt.telex_rec_type;
93: ddp_ams_web_rec ams_contact_point_pvt.web_rec_type;
94: ddindx binary_integer; indx binary_integer;
95: begin
96:
97: -- copy data to the local IN or IN-OUT args, if any
165: ddp_ams_web_rec.url := p12_a1;
166:
167:
168: -- here's the delegated call to the old PL/SQL routine
169: ams_contact_point_pvt.create_contact_point(p_api_version_number,
170: p_init_msg_list,
171: p_commit,
172: p_validation_level,
173: x_return_status,
262: , p12_a0 VARCHAR2 := fnd_api.g_miss_char
263: , p12_a1 VARCHAR2 := fnd_api.g_miss_char
264: )
265: as
266: ddp_ams_contact_point_rec ams_contact_point_pvt.contact_point_rec_type;
267: ddp_ams_edi_rec ams_contact_point_pvt.edi_rec_type;
268: ddp_ams_email_rec ams_contact_point_pvt.email_rec_type;
269: ddp_ams_phone_rec ams_contact_point_pvt.phone_rec_type;
270: ddp_ams_telex_rec ams_contact_point_pvt.telex_rec_type;
263: , p12_a1 VARCHAR2 := fnd_api.g_miss_char
264: )
265: as
266: ddp_ams_contact_point_rec ams_contact_point_pvt.contact_point_rec_type;
267: ddp_ams_edi_rec ams_contact_point_pvt.edi_rec_type;
268: ddp_ams_email_rec ams_contact_point_pvt.email_rec_type;
269: ddp_ams_phone_rec ams_contact_point_pvt.phone_rec_type;
270: ddp_ams_telex_rec ams_contact_point_pvt.telex_rec_type;
271: ddp_ams_web_rec ams_contact_point_pvt.web_rec_type;
264: )
265: as
266: ddp_ams_contact_point_rec ams_contact_point_pvt.contact_point_rec_type;
267: ddp_ams_edi_rec ams_contact_point_pvt.edi_rec_type;
268: ddp_ams_email_rec ams_contact_point_pvt.email_rec_type;
269: ddp_ams_phone_rec ams_contact_point_pvt.phone_rec_type;
270: ddp_ams_telex_rec ams_contact_point_pvt.telex_rec_type;
271: ddp_ams_web_rec ams_contact_point_pvt.web_rec_type;
272: ddindx binary_integer; indx binary_integer;
265: as
266: ddp_ams_contact_point_rec ams_contact_point_pvt.contact_point_rec_type;
267: ddp_ams_edi_rec ams_contact_point_pvt.edi_rec_type;
268: ddp_ams_email_rec ams_contact_point_pvt.email_rec_type;
269: ddp_ams_phone_rec ams_contact_point_pvt.phone_rec_type;
270: ddp_ams_telex_rec ams_contact_point_pvt.telex_rec_type;
271: ddp_ams_web_rec ams_contact_point_pvt.web_rec_type;
272: ddindx binary_integer; indx binary_integer;
273: begin
266: ddp_ams_contact_point_rec ams_contact_point_pvt.contact_point_rec_type;
267: ddp_ams_edi_rec ams_contact_point_pvt.edi_rec_type;
268: ddp_ams_email_rec ams_contact_point_pvt.email_rec_type;
269: ddp_ams_phone_rec ams_contact_point_pvt.phone_rec_type;
270: ddp_ams_telex_rec ams_contact_point_pvt.telex_rec_type;
271: ddp_ams_web_rec ams_contact_point_pvt.web_rec_type;
272: ddindx binary_integer; indx binary_integer;
273: begin
274:
267: ddp_ams_edi_rec ams_contact_point_pvt.edi_rec_type;
268: ddp_ams_email_rec ams_contact_point_pvt.email_rec_type;
269: ddp_ams_phone_rec ams_contact_point_pvt.phone_rec_type;
270: ddp_ams_telex_rec ams_contact_point_pvt.telex_rec_type;
271: ddp_ams_web_rec ams_contact_point_pvt.web_rec_type;
272: ddindx binary_integer; indx binary_integer;
273: begin
274:
275: -- copy data to the local IN or IN-OUT args, if any
343: ddp_ams_web_rec.url := p12_a1;
344:
345:
346: -- here's the delegated call to the old PL/SQL routine
347: ams_contact_point_pvt.update_contact_point(p_api_version_number,
348: p_init_msg_list,
349: p_commit,
350: p_validation_level,
351: x_return_status,
374:
375:
376: end;
377:
378: end ams_contact_point_pvt_w;