[Home] [Help]
1: package body csp_requirement_lines_pvt_w as
2: /* $Header: csprqlpvtwb.pls 120.1 2010/12/07 06:21:36 hhaugeru 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: rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
12: if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13: return d;
14: end;
15:
16: procedure rosetta_table_copy_in_p3(t out nocopy csp_requirement_lines_pvt.requirement_line_tbl_type, a0 JTF_NUMBER_TABLE
17: , a1 JTF_NUMBER_TABLE
18: , a2 JTF_DATE_TABLE
19: , a3 JTF_NUMBER_TABLE
20: , a4 JTF_DATE_TABLE
109: end loop;
110: end if;
111: end if;
112: end rosetta_table_copy_in_p3;
113: procedure rosetta_table_copy_out_p3(t csp_requirement_lines_pvt.requirement_line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
114: , a1 out nocopy JTF_NUMBER_TABLE
115: , a2 out nocopy JTF_DATE_TABLE
116: , a3 out nocopy JTF_NUMBER_TABLE
117: , a4 out nocopy JTF_DATE_TABLE
418: , x_msg_data out nocopy VARCHAR2
419: )
420:
421: as
422: ddp_requirement_line_tbl csp_requirement_lines_pvt.requirement_line_tbl_type;
423: ddx_requirement_line_tbl csp_requirement_lines_pvt.requirement_line_tbl_type;
424: ddindx binary_integer; indx binary_integer;
425: begin
426:
419: )
420:
421: as
422: ddp_requirement_line_tbl csp_requirement_lines_pvt.requirement_line_tbl_type;
423: ddx_requirement_line_tbl csp_requirement_lines_pvt.requirement_line_tbl_type;
424: ddindx binary_integer; indx binary_integer;
425: begin
426:
427: -- copy data to the local IN or IN-OUT args, if any
428:
429:
430:
431:
432: csp_requirement_lines_pvt_w.rosetta_table_copy_in_p3(ddp_requirement_line_tbl, p4_a0
433: , p4_a1
434: , p4_a2
435: , p4_a3
436: , p4_a4
475:
476:
477:
478: -- here's the delegated call to the old PL/SQL routine
479: csp_requirement_lines_pvt.create_requirement_lines(p_api_version_number,
480: p_init_msg_list,
481: p_commit,
482: p_validation_level,
483: ddp_requirement_line_tbl,
491:
492:
493:
494:
495: csp_requirement_lines_pvt_w.rosetta_table_copy_out_p3(ddx_requirement_line_tbl, p5_a0
496: , p5_a1
497: , p5_a2
498: , p5_a3
499: , p5_a4
587: , x_msg_data out nocopy VARCHAR2
588: )
589:
590: as
591: ddp_requirement_line_tbl csp_requirement_lines_pvt.requirement_line_tbl_type;
592: ddindx binary_integer; indx binary_integer;
593: begin
594:
595: -- copy data to the local IN or IN-OUT args, if any
596:
597:
598:
599:
600: csp_requirement_lines_pvt_w.rosetta_table_copy_in_p3(ddp_requirement_line_tbl, p4_a0
601: , p4_a1
602: , p4_a2
603: , p4_a3
604: , p4_a4
642:
643:
644:
645: -- here's the delegated call to the old PL/SQL routine
646: csp_requirement_lines_pvt.update_requirement_lines(p_api_version_number,
647: p_init_msg_list,
648: p_commit,
649: p_validation_level,
650: ddp_requirement_line_tbl,
711: , x_msg_data out nocopy VARCHAR2
712: )
713:
714: as
715: ddp_requirement_line_tbl csp_requirement_lines_pvt.requirement_line_tbl_type;
716: ddindx binary_integer; indx binary_integer;
717: begin
718:
719: -- copy data to the local IN or IN-OUT args, if any
720:
721:
722:
723:
724: csp_requirement_lines_pvt_w.rosetta_table_copy_in_p3(ddp_requirement_line_tbl, p4_a0
725: , p4_a1
726: , p4_a2
727: , p4_a3
728: , p4_a4
766:
767:
768:
769: -- here's the delegated call to the old PL/SQL routine
770: csp_requirement_lines_pvt.delete_requirement_lines(p_api_version_number,
771: p_init_msg_list,
772: p_commit,
773: p_validation_level,
774: ddp_requirement_line_tbl,
785:
786:
787: end;
788:
789: end csp_requirement_lines_pvt_w;