1: package body okl_setup_disb_rules_pvt_w as
2: /* $Header: OKLESDRB.pls 120.0 2007/04/27 09:16:03 gkhuntet 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');
161: , p5_a37 NUMBER := 0-1962.0724
162: )
163:
164: as
165: ddp_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
166: ddp_drs_tbl okl_setup_disb_rules_pvt.drs_tbl_type;
167: ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
168: ddx_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
169: ddindx binary_integer; indx binary_integer;
162: )
163:
164: as
165: ddp_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
166: ddp_drs_tbl okl_setup_disb_rules_pvt.drs_tbl_type;
167: ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
168: ddx_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
169: ddindx binary_integer; indx binary_integer;
170: begin
163:
164: as
165: ddp_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
166: ddp_drs_tbl okl_setup_disb_rules_pvt.drs_tbl_type;
167: ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
168: ddx_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
169: ddindx binary_integer; indx binary_integer;
170: begin
171:
164: as
165: ddp_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
166: ddp_drs_tbl okl_setup_disb_rules_pvt.drs_tbl_type;
167: ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
168: ddx_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
169: ddindx binary_integer; indx binary_integer;
170: begin
171:
172: -- copy data to the local IN or IN-OUT args, if any
275: );
276:
277:
278: -- here's the delegated call to the old PL/SQL routine
279: okl_setup_disb_rules_pvt.create_disbursement_rule(p_api_version,
280: p_init_msg_list,
281: x_return_status,
282: x_msg_count,
283: x_msg_data,
474: , p5_a37 NUMBER := 0-1962.0724
475: )
476:
477: as
478: ddp_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
479: ddp_drs_tbl okl_setup_disb_rules_pvt.drs_tbl_type;
480: ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
481: ddx_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
482: ddindx binary_integer; indx binary_integer;
475: )
476:
477: as
478: ddp_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
479: ddp_drs_tbl okl_setup_disb_rules_pvt.drs_tbl_type;
480: ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
481: ddx_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
482: ddindx binary_integer; indx binary_integer;
483: begin
476:
477: as
478: ddp_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
479: ddp_drs_tbl okl_setup_disb_rules_pvt.drs_tbl_type;
480: ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
481: ddx_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
482: ddindx binary_integer; indx binary_integer;
483: begin
484:
477: as
478: ddp_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
479: ddp_drs_tbl okl_setup_disb_rules_pvt.drs_tbl_type;
480: ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
481: ddx_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
482: ddindx binary_integer; indx binary_integer;
483: begin
484:
485: -- copy data to the local IN or IN-OUT args, if any
588: );
589:
590:
591: -- here's the delegated call to the old PL/SQL routine
592: okl_setup_disb_rules_pvt.update_disbursement_rule(p_api_version,
593: p_init_msg_list,
594: x_return_status,
595: x_msg_count,
596: x_msg_data,
749: , p5_a37 NUMBER := 0-1962.0724
750: )
751:
752: as
753: ddp_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
754: ddp_drs_tbl okl_setup_disb_rules_pvt.drs_tbl_type;
755: ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
756: ddindx binary_integer; indx binary_integer;
757: begin
750: )
751:
752: as
753: ddp_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
754: ddp_drs_tbl okl_setup_disb_rules_pvt.drs_tbl_type;
755: ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
756: ddindx binary_integer; indx binary_integer;
757: begin
758:
751:
752: as
753: ddp_drav_rec okl_setup_disb_rules_pvt.drav_rec_type;
754: ddp_drs_tbl okl_setup_disb_rules_pvt.drs_tbl_type;
755: ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
756: ddindx binary_integer; indx binary_integer;
757: begin
758:
759: -- copy data to the local IN or IN-OUT args, if any
861: , p7_a30
862: );
863:
864: -- here's the delegated call to the old PL/SQL routine
865: okl_setup_disb_rules_pvt.validate_disbursement_rule(p_api_version,
866: p_init_msg_list,
867: x_return_status,
868: x_msg_count,
869: x_msg_data,
950: , p6_a30 out nocopy JTF_NUMBER_TABLE
951: )
952:
953: as
954: ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
955: ddx_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
956: ddindx binary_integer; indx binary_integer;
957: begin
958:
951: )
952:
953: as
954: ddp_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
955: ddx_drv_tbl okl_setup_disb_rules_pvt.drv_tbl_type;
956: ddindx binary_integer; indx binary_integer;
957: begin
958:
959: -- copy data to the local IN or IN-OUT args, if any
996: );
997:
998:
999: -- here's the delegated call to the old PL/SQL routine
1000: okl_setup_disb_rules_pvt.create_v_disbursement_rule(p_api_version,
1001: p_init_msg_list,
1002: x_return_status,
1003: x_msg_count,
1004: x_msg_data,
1045: , p6_a30
1046: );
1047: end;
1048:
1049: end okl_setup_disb_rules_pvt_w;