1: package body okl_sec_investor_pvt_w as
2: /* $Header: OKLUSZIB.pls 115.2 2003/10/22 23:15:46 ashariff 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_p1(t out nocopy okl_sec_investor_pvt.inv_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_100
113: end loop;
114: end if;
115: end if;
116: end rosetta_table_copy_in_p1;
117: procedure rosetta_table_copy_out_p1(t okl_sec_investor_pvt.inv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
118: , a1 out nocopy JTF_NUMBER_TABLE
119: , a2 out nocopy JTF_NUMBER_TABLE
120: , a3 out nocopy JTF_NUMBER_TABLE
121: , a4 out nocopy JTF_VARCHAR2_TABLE_100
413: , p6_a38 out nocopy JTF_NUMBER_TABLE
414: )
415:
416: as
417: ddp_inv_tbl okl_sec_investor_pvt.inv_tbl_type;
418: ddx_inv_tbl okl_sec_investor_pvt.inv_tbl_type;
419: ddindx binary_integer; indx binary_integer;
420: begin
421:
414: )
415:
416: as
417: ddp_inv_tbl okl_sec_investor_pvt.inv_tbl_type;
418: ddx_inv_tbl okl_sec_investor_pvt.inv_tbl_type;
419: ddindx binary_integer; indx binary_integer;
420: begin
421:
422: -- copy data to the local IN or IN-OUT args, if any
424:
425:
426:
427:
428: okl_sec_investor_pvt_w.rosetta_table_copy_in_p1(ddp_inv_tbl, p5_a0
429: , p5_a1
430: , p5_a2
431: , p5_a3
432: , p5_a4
467: );
468:
469:
470: -- here's the delegated call to the old PL/SQL routine
471: okl_sec_investor_pvt.create_investor(p_api_version,
472: p_init_msg_list,
473: x_return_status,
474: x_msg_count,
475: x_msg_data,
482:
483:
484:
485:
486: okl_sec_investor_pvt_w.rosetta_table_copy_out_p1(ddx_inv_tbl, p6_a0
487: , p6_a1
488: , p6_a2
489: , p6_a3
490: , p6_a4
610: , p6_a38 out nocopy JTF_NUMBER_TABLE
611: )
612:
613: as
614: ddp_inv_tbl okl_sec_investor_pvt.inv_tbl_type;
615: ddx_inv_tbl okl_sec_investor_pvt.inv_tbl_type;
616: ddindx binary_integer; indx binary_integer;
617: begin
618:
611: )
612:
613: as
614: ddp_inv_tbl okl_sec_investor_pvt.inv_tbl_type;
615: ddx_inv_tbl okl_sec_investor_pvt.inv_tbl_type;
616: ddindx binary_integer; indx binary_integer;
617: begin
618:
619: -- copy data to the local IN or IN-OUT args, if any
621:
622:
623:
624:
625: okl_sec_investor_pvt_w.rosetta_table_copy_in_p1(ddp_inv_tbl, p5_a0
626: , p5_a1
627: , p5_a2
628: , p5_a3
629: , p5_a4
664: );
665:
666:
667: -- here's the delegated call to the old PL/SQL routine
668: okl_sec_investor_pvt.update_investor(p_api_version,
669: p_init_msg_list,
670: x_return_status,
671: x_msg_count,
672: x_msg_data,
679:
680:
681:
682:
683: okl_sec_investor_pvt_w.rosetta_table_copy_out_p1(ddx_inv_tbl, p6_a0
684: , p6_a1
685: , p6_a2
686: , p6_a3
687: , p6_a4
768: , p5_a38 JTF_NUMBER_TABLE
769: )
770:
771: as
772: ddp_inv_tbl okl_sec_investor_pvt.inv_tbl_type;
773: ddindx binary_integer; indx binary_integer;
774: begin
775:
776: -- copy data to the local IN or IN-OUT args, if any
778:
779:
780:
781:
782: okl_sec_investor_pvt_w.rosetta_table_copy_in_p1(ddp_inv_tbl, p5_a0
783: , p5_a1
784: , p5_a2
785: , p5_a3
786: , p5_a4
820: , p5_a38
821: );
822:
823: -- here's the delegated call to the old PL/SQL routine
824: okl_sec_investor_pvt.delete_investor(p_api_version,
825: p_init_msg_list,
826: x_return_status,
827: x_msg_count,
828: x_msg_data,
835:
836:
837: end;
838:
839: end okl_sec_investor_pvt_w;