[Home] [Help]
1: package body ozf_offr_qual_pvt_w as
2: /* $Header: ozfwoqfb.pls 120.1 2005/09/22 16:02 rssharma 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_p2(t out nocopy ozf_offr_qual_pvt.ozf_offr_qual_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_DATE_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_DATE_TABLE
26: , a4 JTF_NUMBER_TABLE
99: end loop;
100: end if;
101: end if;
102: end rosetta_table_copy_in_p2;
103: procedure rosetta_table_copy_out_p2(t ozf_offr_qual_pvt.ozf_offr_qual_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
104: , a1 out nocopy JTF_DATE_TABLE
105: , a2 out nocopy JTF_NUMBER_TABLE
106: , a3 out nocopy JTF_DATE_TABLE
107: , a4 out nocopy JTF_NUMBER_TABLE
321: , p7_a31 NUMBER := 0-1962.0724
322: )
323:
324: as
325: ddp_ozf_offr_qual_rec ozf_offr_qual_pvt.ozf_offr_qual_rec_type;
326: ddindx binary_integer; indx binary_integer;
327: begin
328:
329: -- copy data to the local IN or IN-OUT args, if any
368: ddp_ozf_offr_qual_rec.object_version_number := rosetta_g_miss_num_map(p7_a31);
369:
370:
371: -- here's the delegated call to the old PL/SQL routine
372: ozf_offr_qual_pvt.create_offr_qual(p_api_version_number,
373: p_init_msg_list,
374: p_commit,
375: p_validation_level,
376: x_return_status,
431: , p7_a31 NUMBER := 0-1962.0724
432: )
433:
434: as
435: ddp_ozf_offr_qual_rec ozf_offr_qual_pvt.ozf_offr_qual_rec_type;
436: ddindx binary_integer; indx binary_integer;
437: begin
438:
439: -- copy data to the local IN or IN-OUT args, if any
477: ddp_ozf_offr_qual_rec.active_flag := p7_a30;
478: ddp_ozf_offr_qual_rec.object_version_number := rosetta_g_miss_num_map(p7_a31);
479:
480: -- here's the delegated call to the old PL/SQL routine
481: ozf_offr_qual_pvt.update_offr_qual(p_api_version_number,
482: p_init_msg_list,
483: p_commit,
484: p_validation_level,
485: x_return_status,
538: , p3_a31 NUMBER := 0-1962.0724
539: )
540:
541: as
542: ddp_ozf_offr_qual_rec ozf_offr_qual_pvt.ozf_offr_qual_rec_type;
543: ddindx binary_integer; indx binary_integer;
544: begin
545:
546: -- copy data to the local IN or IN-OUT args, if any
584:
585:
586:
587: -- here's the delegated call to the old PL/SQL routine
588: ozf_offr_qual_pvt.validate_offr_qual(p_api_version_number,
589: p_init_msg_list,
590: p_validation_level,
591: ddp_ozf_offr_qual_rec,
592: p_validation_mode,
640: , p0_a31 NUMBER := 0-1962.0724
641: )
642:
643: as
644: ddp_ozf_offr_qual_rec ozf_offr_qual_pvt.ozf_offr_qual_rec_type;
645: ddindx binary_integer; indx binary_integer;
646: begin
647:
648: -- copy data to the local IN or IN-OUT args, if any
681:
682:
683:
684: -- here's the delegated call to the old PL/SQL routine
685: ozf_offr_qual_pvt.check_ozf_offr_qual_items(ddp_ozf_offr_qual_rec,
686: p_validation_mode,
687: x_return_status);
688:
689: -- copy data back from the local variables to OUT or IN-OUT args, if any
730: , p5_a31 NUMBER := 0-1962.0724
731: )
732:
733: as
734: ddp_ozf_offr_qual_rec ozf_offr_qual_pvt.ozf_offr_qual_rec_type;
735: ddindx binary_integer; indx binary_integer;
736: begin
737:
738: -- copy data to the local IN or IN-OUT args, if any
774: ddp_ozf_offr_qual_rec.active_flag := p5_a30;
775: ddp_ozf_offr_qual_rec.object_version_number := rosetta_g_miss_num_map(p5_a31);
776:
777: -- here's the delegated call to the old PL/SQL routine
778: ozf_offr_qual_pvt.validate_ozf_offr_qual_rec(p_api_version_number,
779: p_init_msg_list,
780: x_return_status,
781: x_msg_count,
782: x_msg_data,
789:
790:
791: end;
792:
793: end ozf_offr_qual_pvt_w;