[Home] [Help]
1: package body ams_approval_details_pvt_w as
2: /* $Header: amswapdb.pls 115.7 2002/12/29 08:28:52 vmodur 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:
17: if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
18: return d;
19: end;
20:
21: procedure rosetta_table_copy_in_p1(t OUT NOCOPY ams_approval_details_pvt.t_approval_id_table, a0 JTF_NUMBER_TABLE) as
22: ddindx binary_integer; indx binary_integer;
23: begin
24: if a0 is not null and a0.count > 0 then
25: if a0.count > 0 then
35: end loop;
36: end if;
37: end if;
38: end rosetta_table_copy_in_p1;
39: procedure rosetta_table_copy_out_p1(t ams_approval_details_pvt.t_approval_id_table, a0 OUT NOCOPY JTF_NUMBER_TABLE) as
40: ddindx binary_integer; indx binary_integer;
41: begin
42: if t is null or t.count = 0 then
43: a0 := JTF_NUMBER_TABLE();
95: , x_approval_detail_id OUT NOCOPY NUMBER
96: )
97:
98: as
99: ddp_approval_details_rec ams_approval_details_pvt.approval_details_rec_type;
100: ddindx binary_integer; indx binary_integer;
101: begin
102:
103: -- copy data to the local IN or IN-OUT args, if any
136: ddp_approval_details_rec.description := p7_a25;
137:
138:
139: -- here's the delegated call to the old PL/SQL routine
140: ams_approval_details_pvt.create_approval_details(p_api_version,
141: p_init_msg_list,
142: p_commit,
143: p_validation_level,
144: x_return_status,
193: , p7_a25 VARCHAR2
194: )
195:
196: as
197: ddp_approval_details_rec ams_approval_details_pvt.approval_details_rec_type;
198: ddindx binary_integer; indx binary_integer;
199: begin
200:
201: -- copy data to the local IN or IN-OUT args, if any
233: ddp_approval_details_rec.name := p7_a24;
234: ddp_approval_details_rec.description := p7_a25;
235:
236: -- here's the delegated call to the old PL/SQL routine
237: ams_approval_details_pvt.update_approval_details(p_api_version,
238: p_init_msg_list,
239: p_commit,
240: p_validation_level,
241: x_return_status,
288: , p7_a25 VARCHAR2
289: )
290:
291: as
292: ddp_approval_details_rec ams_approval_details_pvt.approval_details_rec_type;
293: ddindx binary_integer; indx binary_integer;
294: begin
295:
296: -- copy data to the local IN or IN-OUT args, if any
328: ddp_approval_details_rec.name := p7_a24;
329: ddp_approval_details_rec.description := p7_a25;
330:
331: -- here's the delegated call to the old PL/SQL routine
332: ams_approval_details_pvt.validate_approval_details(p_api_version,
333: p_init_msg_list,
334: p_commit,
335: p_validation_level,
336: x_return_status,
378: , x_return_status OUT NOCOPY VARCHAR2
379: )
380:
381: as
382: ddp_approval_details_rec ams_approval_details_pvt.approval_details_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
413:
414:
415:
416: -- here's the delegated call to the old PL/SQL routine
417: ams_approval_details_pvt.check_approval_details_items(ddp_approval_details_rec,
418: p_validation_mode,
419: x_return_status);
420:
421: -- copy data back from the local variables to OUT or IN-OUT args, if any
478: , x_return_status OUT NOCOPY VARCHAR2
479: )
480:
481: as
482: ddp_approval_details_rec ams_approval_details_pvt.approval_details_rec_type;
483: ddp_complete_rec ams_approval_details_pvt.approval_details_rec_type;
484: ddindx binary_integer; indx binary_integer;
485: begin
486:
479: )
480:
481: as
482: ddp_approval_details_rec ams_approval_details_pvt.approval_details_rec_type;
483: ddp_complete_rec ams_approval_details_pvt.approval_details_rec_type;
484: ddindx binary_integer; indx binary_integer;
485: begin
486:
487: -- copy data to the local IN or IN-OUT args, if any
540: ddp_complete_rec.description := p1_a25;
541:
542:
543: -- here's the delegated call to the old PL/SQL routine
544: ams_approval_details_pvt.check_approval_details_record(ddp_approval_details_rec,
545: ddp_complete_rec,
546: x_return_status);
547:
548: -- copy data back from the local variables to OUT or IN-OUT args, if any
578: , p0_a25 OUT NOCOPY VARCHAR2
579: )
580:
581: as
582: ddx_approval_details_rec ams_approval_details_pvt.approval_details_rec_type;
583: ddindx binary_integer; indx binary_integer;
584: begin
585:
586: -- copy data to the local IN or IN-OUT args, if any
585:
586: -- copy data to the local IN or IN-OUT args, if any
587:
588: -- here's the delegated call to the old PL/SQL routine
589: ams_approval_details_pvt.init_approval_details_rec(ddx_approval_details_rec);
590:
591: -- copy data back from the local variables to OUT or IN-OUT args, if any
592: p0_a0 := ddx_approval_details_rec.start_date_active;
593: p0_a1 := ddx_approval_details_rec.end_date_active;
671: , p1_a25 OUT NOCOPY VARCHAR2
672: )
673:
674: as
675: ddp_approval_details_rec ams_approval_details_pvt.approval_details_rec_type;
676: ddx_complete_rec ams_approval_details_pvt.approval_details_rec_type;
677: ddindx binary_integer; indx binary_integer;
678: begin
679:
672: )
673:
674: as
675: ddp_approval_details_rec ams_approval_details_pvt.approval_details_rec_type;
676: ddx_complete_rec ams_approval_details_pvt.approval_details_rec_type;
677: ddindx binary_integer; indx binary_integer;
678: begin
679:
680: -- copy data to the local IN or IN-OUT args, if any
706: ddp_approval_details_rec.description := p0_a25;
707:
708:
709: -- here's the delegated call to the old PL/SQL routine
710: ams_approval_details_pvt.complete_approval_details_rec(ddp_approval_details_rec,
711: ddx_complete_rec);
712:
713: -- copy data back from the local variables to OUT or IN-OUT args, if any
714:
739: p1_a24 := ddx_complete_rec.name;
740: p1_a25 := ddx_complete_rec.description;
741: end;
742:
743: end ams_approval_details_pvt_w;