[Home] [Help]
1: package body ams_iba_plcmnt_pvt_w as
2: /* $Header: amswplcb.pls 115.5 2003/05/09 10:52:38 sikalyan 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 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_plcmnt_pvt.iba_plcmnt_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_VARCHAR2_TABLE_100
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_100
81: end loop;
82: end if;
83: end if;
84: end rosetta_table_copy_in_p3;
85: procedure rosetta_table_copy_out_p3(t ams_iba_plcmnt_pvt.iba_plcmnt_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
86: , a1 out nocopy JTF_NUMBER_TABLE
87: , a2 out nocopy JTF_VARCHAR2_TABLE_100
88: , a3 out nocopy JTF_NUMBER_TABLE
89: , a4 out nocopy JTF_VARCHAR2_TABLE_100
249: , p7_a22 VARCHAR2 := fnd_api.g_miss_char
250: )
251:
252: as
253: ddp_iba_plcmnt_rec ams_iba_plcmnt_pvt.iba_plcmnt_rec_type;
254: ddindx binary_integer; indx binary_integer;
255: begin
256:
257: -- copy data to the local IN or IN-OUT args, if any
287: ddp_iba_plcmnt_rec.description := p7_a22;
288:
289:
290: -- here's the delegated call to the old PL/SQL routine
291: ams_iba_plcmnt_pvt.create_iba_plcmnt(p_api_version_number,
292: p_init_msg_list,
293: p_commit,
294: p_validation_level,
295: x_return_status,
342: , p7_a22 VARCHAR2 := fnd_api.g_miss_char
343: )
344:
345: as
346: ddp_iba_plcmnt_rec ams_iba_plcmnt_pvt.iba_plcmnt_rec_type;
347: ddindx binary_integer; indx binary_integer;
348: begin
349:
350: -- copy data to the local IN or IN-OUT args, if any
380: ddp_iba_plcmnt_rec.description := p7_a22;
381:
382:
383: -- here's the delegated call to the old PL/SQL routine
384: ams_iba_plcmnt_pvt.update_iba_plcmnt(p_api_version_number,
385: p_init_msg_list,
386: p_commit,
387: p_validation_level,
388: x_return_status,
434: , p3_a22 VARCHAR2 := fnd_api.g_miss_char
435: )
436:
437: as
438: ddp_iba_plcmnt_rec ams_iba_plcmnt_pvt.iba_plcmnt_rec_type;
439: ddindx binary_integer; indx binary_integer;
440: begin
441:
442: -- copy data to the local IN or IN-OUT args, if any
471:
472:
473:
474: -- here's the delegated call to the old PL/SQL routine
475: ams_iba_plcmnt_pvt.validate_iba_plcmnt(p_api_version_number,
476: p_init_msg_list,
477: p_validation_level,
478: ddp_iba_plcmnt_rec,
479: x_return_status,
518: , p0_a22 VARCHAR2 := fnd_api.g_miss_char
519: )
520:
521: as
522: ddp_iba_plcmnt_rec ams_iba_plcmnt_pvt.iba_plcmnt_rec_type;
523: ddindx binary_integer; indx binary_integer;
524: begin
525:
526: -- copy data to the local IN or IN-OUT args, if any
550:
551:
552:
553: -- here's the delegated call to the old PL/SQL routine
554: ams_iba_plcmnt_pvt.check_iba_plcmnt_items(ddp_iba_plcmnt_rec,
555: p_validation_mode,
556: x_return_status);
557:
558: -- copy data back from the local variables to OUT or IN-OUT args, if any
590: , p5_a22 VARCHAR2 := fnd_api.g_miss_char
591: )
592:
593: as
594: ddp_iba_plcmnt_rec ams_iba_plcmnt_pvt.iba_plcmnt_rec_type;
595: ddindx binary_integer; indx binary_integer;
596: begin
597:
598: -- copy data to the local IN or IN-OUT args, if any
625: ddp_iba_plcmnt_rec.name := p5_a21;
626: ddp_iba_plcmnt_rec.description := p5_a22;
627:
628: -- here's the delegated call to the old PL/SQL routine
629: ams_iba_plcmnt_pvt.validate_iba_plcmnt_rec(p_api_version_number,
630: p_init_msg_list,
631: x_return_status,
632: x_msg_count,
633: x_msg_data,
640:
641:
642: end;
643:
644: end ams_iba_plcmnt_pvt_w;