[Home] [Help]
1: package body ams_iba_pl_sites_pvt_w as
2: /* $Header: amswsitb.pls 120.1 2005/11/18 06:41 anskumar 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_p3(t out nocopy ams_iba_pl_sites_pvt.iba_pl_sites_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_VARCHAR2_TABLE_100
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_100
61: end loop;
62: end if;
63: end if;
64: end rosetta_table_copy_in_p3;
65: procedure rosetta_table_copy_out_p3(t ams_iba_pl_sites_pvt.iba_pl_sites_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
66: , a1 out nocopy JTF_VARCHAR2_TABLE_100
67: , a2 out nocopy JTF_VARCHAR2_TABLE_100
68: , a3 out nocopy JTF_NUMBER_TABLE
69: , a4 out nocopy JTF_VARCHAR2_TABLE_100
169: , p7_a12 VARCHAR2 := fnd_api.g_miss_char
170: )
171:
172: as
173: ddp_iba_pl_sites_rec ams_iba_pl_sites_pvt.iba_pl_sites_rec_type;
174: ddindx binary_integer; indx binary_integer;
175: begin
176:
177: -- copy data to the local IN or IN-OUT args, if any
197: ddp_iba_pl_sites_rec.description := p7_a12;
198:
199:
200: -- here's the delegated call to the old PL/SQL routine
201: ams_iba_pl_sites_pvt.create_iba_pl_sites(p_api_version_number,
202: p_init_msg_list,
203: p_commit,
204: p_validation_level,
205: x_return_status,
242: , p7_a12 VARCHAR2 := fnd_api.g_miss_char
243: )
244:
245: as
246: ddp_iba_pl_sites_rec ams_iba_pl_sites_pvt.iba_pl_sites_rec_type;
247: ddindx binary_integer; indx binary_integer;
248: begin
249:
250: -- copy data to the local IN or IN-OUT args, if any
270: ddp_iba_pl_sites_rec.description := p7_a12;
271:
272:
273: -- here's the delegated call to the old PL/SQL routine
274: ams_iba_pl_sites_pvt.update_iba_pl_sites(p_api_version_number,
275: p_init_msg_list,
276: p_commit,
277: p_validation_level,
278: x_return_status,
314: , p3_a12 VARCHAR2 := fnd_api.g_miss_char
315: )
316:
317: as
318: ddp_iba_pl_sites_rec ams_iba_pl_sites_pvt.iba_pl_sites_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
341:
342:
343:
344: -- here's the delegated call to the old PL/SQL routine
345: ams_iba_pl_sites_pvt.validate_iba_pl_sites(p_api_version_number,
346: p_init_msg_list,
347: p_validation_level,
348: ddp_iba_pl_sites_rec,
349: x_return_status,
378: , p0_a12 VARCHAR2 := fnd_api.g_miss_char
379: )
380:
381: as
382: ddp_iba_pl_sites_rec ams_iba_pl_sites_pvt.iba_pl_sites_rec_type;
383: ddindx binary_integer; indx binary_integer;
384: begin
385:
386: -- copy data to the local IN or IN-OUT args, if any
400:
401:
402:
403: -- here's the delegated call to the old PL/SQL routine
404: ams_iba_pl_sites_pvt.check_iba_pl_sites_items(ddp_iba_pl_sites_rec,
405: p_validation_mode,
406: x_return_status);
407:
408: -- copy data back from the local variables to OUT or IN-OUT args, if any
430: , p5_a12 VARCHAR2 := fnd_api.g_miss_char
431: )
432:
433: as
434: ddp_iba_pl_sites_rec ams_iba_pl_sites_pvt.iba_pl_sites_rec_type;
435: ddindx binary_integer; indx binary_integer;
436: begin
437:
438: -- copy data to the local IN or IN-OUT args, if any
455: ddp_iba_pl_sites_rec.name := p5_a11;
456: ddp_iba_pl_sites_rec.description := p5_a12;
457:
458: -- here's the delegated call to the old PL/SQL routine
459: ams_iba_pl_sites_pvt.validate_iba_pl_sites_rec(p_api_version_number,
460: p_init_msg_list,
461: x_return_status,
462: x_msg_count,
463: x_msg_data,
470:
471:
472: end;
473:
474: end ams_iba_pl_sites_pvt_w;