1: package body okl_lop_pvt_w as
2: /* $Header: OKLILOPB.pls 120.1 2007/03/20 23:13:46 rravikir noship $ */
3: procedure rosetta_table_copy_in_p23(t out nocopy okl_lop_pvt.lopv_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
1: package body okl_lop_pvt_w as
2: /* $Header: OKLILOPB.pls 120.1 2007/03/20 23:13:46 rravikir noship $ */
3: procedure rosetta_table_copy_in_p23(t out nocopy okl_lop_pvt.lopv_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
122: end loop;
123: end if;
124: end if;
125: end rosetta_table_copy_in_p23;
126: procedure rosetta_table_copy_out_p23(t okl_lop_pvt.lopv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
127: , a1 out nocopy JTF_NUMBER_TABLE
128: , a2 out nocopy JTF_VARCHAR2_TABLE_100
129: , a3 out nocopy JTF_VARCHAR2_TABLE_500
130: , a4 out nocopy JTF_VARCHAR2_TABLE_500
520: , p6_a52 out nocopy JTF_VARCHAR2_TABLE_2000
521: )
522:
523: as
524: ddp_lopv_tbl okl_lop_pvt.lopv_tbl_type;
525: ddx_lopv_tbl okl_lop_pvt.lopv_tbl_type;
526: ddindx binary_integer; indx binary_integer;
527: begin
528:
521: )
522:
523: as
524: ddp_lopv_tbl okl_lop_pvt.lopv_tbl_type;
525: ddx_lopv_tbl okl_lop_pvt.lopv_tbl_type;
526: ddindx binary_integer; indx binary_integer;
527: begin
528:
529: -- copy data to the local IN or IN-OUT args, if any
531:
532:
533:
534:
535: okl_lop_pvt_w.rosetta_table_copy_in_p23(ddp_lopv_tbl, p5_a0
536: , p5_a1
537: , p5_a2
538: , p5_a3
539: , p5_a4
588: );
589:
590:
591: -- here's the delegated call to the old PL/SQL routine
592: okl_lop_pvt.insert_row(p_api_version,
593: p_init_msg_list,
594: x_return_status,
595: x_msg_count,
596: x_msg_data,
603:
604:
605:
606:
607: okl_lop_pvt_w.rosetta_table_copy_out_p23(ddx_lopv_tbl, p6_a0
608: , p6_a1
609: , p6_a2
610: , p6_a3
611: , p6_a4
773: , p6_a52 out nocopy JTF_VARCHAR2_TABLE_2000
774: )
775:
776: as
777: ddp_lopv_tbl okl_lop_pvt.lopv_tbl_type;
778: ddx_lopv_tbl okl_lop_pvt.lopv_tbl_type;
779: ddindx binary_integer; indx binary_integer;
780: begin
781:
774: )
775:
776: as
777: ddp_lopv_tbl okl_lop_pvt.lopv_tbl_type;
778: ddx_lopv_tbl okl_lop_pvt.lopv_tbl_type;
779: ddindx binary_integer; indx binary_integer;
780: begin
781:
782: -- copy data to the local IN or IN-OUT args, if any
784:
785:
786:
787:
788: okl_lop_pvt_w.rosetta_table_copy_in_p23(ddp_lopv_tbl, p5_a0
789: , p5_a1
790: , p5_a2
791: , p5_a3
792: , p5_a4
841: );
842:
843:
844: -- here's the delegated call to the old PL/SQL routine
845: okl_lop_pvt.update_row(p_api_version,
846: p_init_msg_list,
847: x_return_status,
848: x_msg_count,
849: x_msg_data,
856:
857:
858:
859:
860: okl_lop_pvt_w.rosetta_table_copy_out_p23(ddx_lopv_tbl, p6_a0
861: , p6_a1
862: , p6_a2
863: , p6_a3
864: , p6_a4
973: , p5_a52 JTF_VARCHAR2_TABLE_2000
974: )
975:
976: as
977: ddp_lopv_tbl okl_lop_pvt.lopv_tbl_type;
978: ddindx binary_integer; indx binary_integer;
979: begin
980:
981: -- copy data to the local IN or IN-OUT args, if any
983:
984:
985:
986:
987: okl_lop_pvt_w.rosetta_table_copy_in_p23(ddp_lopv_tbl, p5_a0
988: , p5_a1
989: , p5_a2
990: , p5_a3
991: , p5_a4
1039: , p5_a52
1040: );
1041:
1042: -- here's the delegated call to the old PL/SQL routine
1043: okl_lop_pvt.delete_row(p_api_version,
1044: p_init_msg_list,
1045: x_return_status,
1046: x_msg_count,
1047: x_msg_data,
1168: , p6_a52 out nocopy VARCHAR2
1169: )
1170:
1171: as
1172: ddp_lopv_rec okl_lop_pvt.lopv_rec_type;
1173: ddx_lopv_rec okl_lop_pvt.lopv_rec_type;
1174: ddindx binary_integer; indx binary_integer;
1175: begin
1176:
1169: )
1170:
1171: as
1172: ddp_lopv_rec okl_lop_pvt.lopv_rec_type;
1173: ddx_lopv_rec okl_lop_pvt.lopv_rec_type;
1174: ddindx binary_integer; indx binary_integer;
1175: begin
1176:
1177: -- copy data to the local IN or IN-OUT args, if any
1235: ddp_lopv_rec.comments := p5_a52;
1236:
1237:
1238: -- here's the delegated call to the old PL/SQL routine
1239: okl_lop_pvt.insert_row(p_api_version,
1240: p_init_msg_list,
1241: x_return_status,
1242: x_msg_count,
1243: x_msg_data,
1419: , p6_a52 out nocopy VARCHAR2
1420: )
1421:
1422: as
1423: ddp_lopv_rec okl_lop_pvt.lopv_rec_type;
1424: ddx_lopv_rec okl_lop_pvt.lopv_rec_type;
1425: ddindx binary_integer; indx binary_integer;
1426: begin
1427:
1420: )
1421:
1422: as
1423: ddp_lopv_rec okl_lop_pvt.lopv_rec_type;
1424: ddx_lopv_rec okl_lop_pvt.lopv_rec_type;
1425: ddindx binary_integer; indx binary_integer;
1426: begin
1427:
1428: -- copy data to the local IN or IN-OUT args, if any
1486: ddp_lopv_rec.comments := p5_a52;
1487:
1488:
1489: -- here's the delegated call to the old PL/SQL routine
1490: okl_lop_pvt.update_row(p_api_version,
1491: p_init_msg_list,
1492: x_return_status,
1493: x_msg_count,
1494: x_msg_data,
1617: , p5_a52 VARCHAR2
1618: )
1619:
1620: as
1621: ddp_lopv_rec okl_lop_pvt.lopv_rec_type;
1622: ddindx binary_integer; indx binary_integer;
1623: begin
1624:
1625: -- copy data to the local IN or IN-OUT args, if any
1682: ddp_lopv_rec.description := p5_a51;
1683: ddp_lopv_rec.comments := p5_a52;
1684:
1685: -- here's the delegated call to the old PL/SQL routine
1686: okl_lop_pvt.delete_row(p_api_version,
1687: p_init_msg_list,
1688: x_return_status,
1689: x_msg_count,
1690: x_msg_data,
1697:
1698:
1699: end;
1700:
1701: end okl_lop_pvt_w;