1: package body okl_fee_pvt_w as
2: /* $Header: OKLIFEEB.pls 120.2 2006/03/16 10:09:43 asawanka noship $ */
3: procedure rosetta_table_copy_in_p23(t out nocopy okl_fee_pvt.feev_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
1: package body okl_fee_pvt_w as
2: /* $Header: OKLIFEEB.pls 120.2 2006/03/16 10:09:43 asawanka noship $ */
3: procedure rosetta_table_copy_in_p23(t out nocopy okl_fee_pvt.feev_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
6: , a3 JTF_VARCHAR2_TABLE_500
7: , a4 JTF_VARCHAR2_TABLE_500
94: end loop;
95: end if;
96: end if;
97: end rosetta_table_copy_in_p23;
98: procedure rosetta_table_copy_out_p23(t okl_fee_pvt.feev_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
99: , a1 out nocopy JTF_NUMBER_TABLE
100: , a2 out nocopy JTF_VARCHAR2_TABLE_100
101: , a3 out nocopy JTF_VARCHAR2_TABLE_500
102: , a4 out nocopy JTF_VARCHAR2_TABLE_500
394: , p6_a38 out nocopy JTF_NUMBER_TABLE
395: )
396:
397: as
398: ddp_feev_tbl okl_fee_pvt.feev_tbl_type;
399: ddx_feev_tbl okl_fee_pvt.feev_tbl_type;
400: ddindx binary_integer; indx binary_integer;
401: begin
402:
395: )
396:
397: as
398: ddp_feev_tbl okl_fee_pvt.feev_tbl_type;
399: ddx_feev_tbl okl_fee_pvt.feev_tbl_type;
400: ddindx binary_integer; indx binary_integer;
401: begin
402:
403: -- copy data to the local IN or IN-OUT args, if any
405:
406:
407:
408:
409: okl_fee_pvt_w.rosetta_table_copy_in_p23(ddp_feev_tbl, p5_a0
410: , p5_a1
411: , p5_a2
412: , p5_a3
413: , p5_a4
448: );
449:
450:
451: -- here's the delegated call to the old PL/SQL routine
452: okl_fee_pvt.insert_row(p_api_version,
453: p_init_msg_list,
454: x_return_status,
455: x_msg_count,
456: x_msg_data,
463:
464:
465:
466:
467: okl_fee_pvt_w.rosetta_table_copy_out_p23(ddx_feev_tbl, p6_a0
468: , p6_a1
469: , p6_a2
470: , p6_a3
471: , p6_a4
591: , p6_a38 out nocopy JTF_NUMBER_TABLE
592: )
593:
594: as
595: ddp_feev_tbl okl_fee_pvt.feev_tbl_type;
596: ddx_feev_tbl okl_fee_pvt.feev_tbl_type;
597: ddindx binary_integer; indx binary_integer;
598: begin
599:
592: )
593:
594: as
595: ddp_feev_tbl okl_fee_pvt.feev_tbl_type;
596: ddx_feev_tbl okl_fee_pvt.feev_tbl_type;
597: ddindx binary_integer; indx binary_integer;
598: begin
599:
600: -- copy data to the local IN or IN-OUT args, if any
602:
603:
604:
605:
606: okl_fee_pvt_w.rosetta_table_copy_in_p23(ddp_feev_tbl, p5_a0
607: , p5_a1
608: , p5_a2
609: , p5_a3
610: , p5_a4
645: );
646:
647:
648: -- here's the delegated call to the old PL/SQL routine
649: okl_fee_pvt.update_row(p_api_version,
650: p_init_msg_list,
651: x_return_status,
652: x_msg_count,
653: x_msg_data,
660:
661:
662:
663:
664: okl_fee_pvt_w.rosetta_table_copy_out_p23(ddx_feev_tbl, p6_a0
665: , p6_a1
666: , p6_a2
667: , p6_a3
668: , p6_a4
749: , p5_a38 JTF_NUMBER_TABLE
750: )
751:
752: as
753: ddp_feev_tbl okl_fee_pvt.feev_tbl_type;
754: ddindx binary_integer; indx binary_integer;
755: begin
756:
757: -- copy data to the local IN or IN-OUT args, if any
759:
760:
761:
762:
763: okl_fee_pvt_w.rosetta_table_copy_in_p23(ddp_feev_tbl, p5_a0
764: , p5_a1
765: , p5_a2
766: , p5_a3
767: , p5_a4
801: , p5_a38
802: );
803:
804: -- here's the delegated call to the old PL/SQL routine
805: okl_fee_pvt.delete_row(p_api_version,
806: p_init_msg_list,
807: x_return_status,
808: x_msg_count,
809: x_msg_data,
902: , p6_a38 out nocopy NUMBER
903: )
904:
905: as
906: ddp_feev_rec okl_fee_pvt.feev_rec_type;
907: ddx_feev_rec okl_fee_pvt.feev_rec_type;
908: ddindx binary_integer; indx binary_integer;
909: begin
910:
903: )
904:
905: as
906: ddp_feev_rec okl_fee_pvt.feev_rec_type;
907: ddx_feev_rec okl_fee_pvt.feev_rec_type;
908: ddindx binary_integer; indx binary_integer;
909: begin
910:
911: -- copy data to the local IN or IN-OUT args, if any
955: ddp_feev_rec.payment_type_id := p5_a38;
956:
957:
958: -- here's the delegated call to the old PL/SQL routine
959: okl_fee_pvt.insert_row(p_api_version,
960: p_init_msg_list,
961: x_return_status,
962: x_msg_count,
963: x_msg_data,
1097: , p6_a38 out nocopy NUMBER
1098: )
1099:
1100: as
1101: ddp_feev_rec okl_fee_pvt.feev_rec_type;
1102: ddx_feev_rec okl_fee_pvt.feev_rec_type;
1103: ddindx binary_integer; indx binary_integer;
1104: begin
1105:
1098: )
1099:
1100: as
1101: ddp_feev_rec okl_fee_pvt.feev_rec_type;
1102: ddx_feev_rec okl_fee_pvt.feev_rec_type;
1103: ddindx binary_integer; indx binary_integer;
1104: begin
1105:
1106: -- copy data to the local IN or IN-OUT args, if any
1150: ddp_feev_rec.payment_type_id := p5_a38;
1151:
1152:
1153: -- here's the delegated call to the old PL/SQL routine
1154: okl_fee_pvt.update_row(p_api_version,
1155: p_init_msg_list,
1156: x_return_status,
1157: x_msg_count,
1158: x_msg_data,
1253: , p5_a38 NUMBER
1254: )
1255:
1256: as
1257: ddp_feev_rec okl_fee_pvt.feev_rec_type;
1258: ddindx binary_integer; indx binary_integer;
1259: begin
1260:
1261: -- copy data to the local IN or IN-OUT args, if any
1304: ddp_feev_rec.comments := p5_a37;
1305: ddp_feev_rec.payment_type_id := p5_a38;
1306:
1307: -- here's the delegated call to the old PL/SQL routine
1308: okl_fee_pvt.delete_row(p_api_version,
1309: p_init_msg_list,
1310: x_return_status,
1311: x_msg_count,
1312: x_msg_data,
1319:
1320:
1321: end;
1322:
1323: end okl_fee_pvt_w;