1: package body okl_service_integration_pvt_w as
2: /* $Header: OKLESRIB.pls 115.1 2003/10/20 18:56:00 dedey 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_p19(t out nocopy okl_service_integration_pvt.link_line_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: ) as
25: ddindx binary_integer; indx binary_integer;
26: begin
39: end loop;
40: end if;
41: end if;
42: end rosetta_table_copy_in_p19;
43: procedure rosetta_table_copy_out_p19(t okl_service_integration_pvt.link_line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
44: , a1 out nocopy JTF_NUMBER_TABLE
45: ) as
46: ddindx binary_integer; indx binary_integer;
47: begin
68: end if;
69: end if;
70: end rosetta_table_copy_out_p19;
71:
72: procedure rosetta_table_copy_in_p21(t out nocopy okl_service_integration_pvt.srv_cov_tbl_type, a0 JTF_NUMBER_TABLE
73: ) as
74: ddindx binary_integer; indx binary_integer;
75: begin
76: if a0 is not null and a0.count > 0 then
87: end loop;
88: end if;
89: end if;
90: end rosetta_table_copy_in_p21;
91: procedure rosetta_table_copy_out_p21(t okl_service_integration_pvt.srv_cov_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
92: ) as
93: ddindx binary_integer; indx binary_integer;
94: begin
95: if t is null or t.count = 0 then
308: , p6_a98 NUMBER := 0-1962.0724
309: )
310:
311: as
312: ddp_clev_rec okl_service_integration_pvt.clev_rec_type;
313: ddp_klev_rec okl_service_integration_pvt.klev_rec_type;
314: ddindx binary_integer; indx binary_integer;
315: begin
316:
309: )
310:
311: as
312: ddp_clev_rec okl_service_integration_pvt.clev_rec_type;
313: ddp_klev_rec okl_service_integration_pvt.klev_rec_type;
314: ddindx binary_integer; indx binary_integer;
315: begin
316:
317: -- copy data to the local IN or IN-OUT args, if any
511: ddp_klev_rec.pay_investor_event := p6_a97;
512: ddp_klev_rec.pay_investor_remittance_days := rosetta_g_miss_num_map(p6_a98);
513:
514: -- here's the delegated call to the old PL/SQL routine
515: okl_service_integration_pvt.delete_service_line(p_api_version,
516: p_init_msg_list,
517: x_return_status,
518: x_msg_count,
519: x_msg_data,
540: , x_service_contract_id out nocopy NUMBER
541: )
542:
543: as
544: ddx_link_line_tbl okl_service_integration_pvt.link_line_tbl_type;
545: ddindx binary_integer; indx binary_integer;
546: begin
547:
548: -- copy data to the local IN or IN-OUT args, if any
554:
555:
556:
557: -- here's the delegated call to the old PL/SQL routine
558: okl_service_integration_pvt.get_service_link_line(p_api_version,
559: p_init_msg_list,
560: x_return_status,
561: x_msg_count,
562: x_msg_data,
570:
571:
572:
573:
574: okl_service_integration_pvt_w.rosetta_table_copy_out_p19(ddx_link_line_tbl, p6_a0
575: , p6_a1
576: );
577:
578: end;
778: , p10_a98 NUMBER := 0-1962.0724
779: )
780:
781: as
782: ddp_clev_rec okl_service_integration_pvt.clev_rec_type;
783: ddp_klev_rec okl_service_integration_pvt.klev_rec_type;
784: ddindx binary_integer; indx binary_integer;
785: begin
786:
779: )
780:
781: as
782: ddp_clev_rec okl_service_integration_pvt.clev_rec_type;
783: ddp_klev_rec okl_service_integration_pvt.klev_rec_type;
784: ddindx binary_integer; indx binary_integer;
785: begin
786:
787: -- copy data to the local IN or IN-OUT args, if any
986: ddp_klev_rec.pay_investor_remittance_days := rosetta_g_miss_num_map(p10_a98);
987:
988:
989: -- here's the delegated call to the old PL/SQL routine
990: okl_service_integration_pvt.update_service_line(p_api_version,
991: p_init_msg_list,
992: x_return_status,
993: x_msg_count,
994: x_msg_data,
1440: , p11_a19 out nocopy JTF_NUMBER_TABLE
1441: )
1442:
1443: as
1444: ddp_clev_tbl okl_service_integration_pvt.clev_tbl_type;
1445: ddp_klev_tbl okl_service_integration_pvt.klev_tbl_type;
1446: ddp_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
1447: ddp_cov_tbl okl_service_integration_pvt.srv_cov_tbl_type;
1448: ddx_clev_tbl okl_service_integration_pvt.clev_tbl_type;
1441: )
1442:
1443: as
1444: ddp_clev_tbl okl_service_integration_pvt.clev_tbl_type;
1445: ddp_klev_tbl okl_service_integration_pvt.klev_tbl_type;
1446: ddp_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
1447: ddp_cov_tbl okl_service_integration_pvt.srv_cov_tbl_type;
1448: ddx_clev_tbl okl_service_integration_pvt.clev_tbl_type;
1449: ddx_klev_tbl okl_service_integration_pvt.klev_tbl_type;
1442:
1443: as
1444: ddp_clev_tbl okl_service_integration_pvt.clev_tbl_type;
1445: ddp_klev_tbl okl_service_integration_pvt.klev_tbl_type;
1446: ddp_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
1447: ddp_cov_tbl okl_service_integration_pvt.srv_cov_tbl_type;
1448: ddx_clev_tbl okl_service_integration_pvt.clev_tbl_type;
1449: ddx_klev_tbl okl_service_integration_pvt.klev_tbl_type;
1450: ddx_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
1443: as
1444: ddp_clev_tbl okl_service_integration_pvt.clev_tbl_type;
1445: ddp_klev_tbl okl_service_integration_pvt.klev_tbl_type;
1446: ddp_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
1447: ddp_cov_tbl okl_service_integration_pvt.srv_cov_tbl_type;
1448: ddx_clev_tbl okl_service_integration_pvt.clev_tbl_type;
1449: ddx_klev_tbl okl_service_integration_pvt.klev_tbl_type;
1450: ddx_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
1451: ddindx binary_integer; indx binary_integer;
1444: ddp_clev_tbl okl_service_integration_pvt.clev_tbl_type;
1445: ddp_klev_tbl okl_service_integration_pvt.klev_tbl_type;
1446: ddp_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
1447: ddp_cov_tbl okl_service_integration_pvt.srv_cov_tbl_type;
1448: ddx_clev_tbl okl_service_integration_pvt.clev_tbl_type;
1449: ddx_klev_tbl okl_service_integration_pvt.klev_tbl_type;
1450: ddx_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
1451: ddindx binary_integer; indx binary_integer;
1452: begin
1445: ddp_klev_tbl okl_service_integration_pvt.klev_tbl_type;
1446: ddp_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
1447: ddp_cov_tbl okl_service_integration_pvt.srv_cov_tbl_type;
1448: ddx_clev_tbl okl_service_integration_pvt.clev_tbl_type;
1449: ddx_klev_tbl okl_service_integration_pvt.klev_tbl_type;
1450: ddx_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
1451: ddindx binary_integer; indx binary_integer;
1452: begin
1453:
1446: ddp_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
1447: ddp_cov_tbl okl_service_integration_pvt.srv_cov_tbl_type;
1448: ddx_clev_tbl okl_service_integration_pvt.clev_tbl_type;
1449: ddx_klev_tbl okl_service_integration_pvt.klev_tbl_type;
1450: ddx_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
1451: ddindx binary_integer; indx binary_integer;
1452: begin
1453:
1454: -- copy data to the local IN or IN-OUT args, if any
1671: , p7_a18
1672: , p7_a19
1673: );
1674:
1675: okl_service_integration_pvt_w.rosetta_table_copy_in_p21(ddp_cov_tbl, p8_a0
1676: );
1677:
1678:
1679:
1678:
1679:
1680:
1681: -- here's the delegated call to the old PL/SQL routine
1682: okl_service_integration_pvt.create_cov_asset_line(p_api_version,
1683: p_init_msg_list,
1684: x_return_status,
1685: x_msg_count,
1686: x_msg_data,
2344: , p11_a19 out nocopy JTF_NUMBER_TABLE
2345: )
2346:
2347: as
2348: ddp_clev_tbl okl_service_integration_pvt.clev_tbl_type;
2349: ddp_klev_tbl okl_service_integration_pvt.klev_tbl_type;
2350: ddp_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
2351: ddp_cov_tbl okl_service_integration_pvt.srv_cov_tbl_type;
2352: ddx_clev_tbl okl_service_integration_pvt.clev_tbl_type;
2345: )
2346:
2347: as
2348: ddp_clev_tbl okl_service_integration_pvt.clev_tbl_type;
2349: ddp_klev_tbl okl_service_integration_pvt.klev_tbl_type;
2350: ddp_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
2351: ddp_cov_tbl okl_service_integration_pvt.srv_cov_tbl_type;
2352: ddx_clev_tbl okl_service_integration_pvt.clev_tbl_type;
2353: ddx_klev_tbl okl_service_integration_pvt.klev_tbl_type;
2346:
2347: as
2348: ddp_clev_tbl okl_service_integration_pvt.clev_tbl_type;
2349: ddp_klev_tbl okl_service_integration_pvt.klev_tbl_type;
2350: ddp_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
2351: ddp_cov_tbl okl_service_integration_pvt.srv_cov_tbl_type;
2352: ddx_clev_tbl okl_service_integration_pvt.clev_tbl_type;
2353: ddx_klev_tbl okl_service_integration_pvt.klev_tbl_type;
2354: ddx_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
2347: as
2348: ddp_clev_tbl okl_service_integration_pvt.clev_tbl_type;
2349: ddp_klev_tbl okl_service_integration_pvt.klev_tbl_type;
2350: ddp_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
2351: ddp_cov_tbl okl_service_integration_pvt.srv_cov_tbl_type;
2352: ddx_clev_tbl okl_service_integration_pvt.clev_tbl_type;
2353: ddx_klev_tbl okl_service_integration_pvt.klev_tbl_type;
2354: ddx_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
2355: ddindx binary_integer; indx binary_integer;
2348: ddp_clev_tbl okl_service_integration_pvt.clev_tbl_type;
2349: ddp_klev_tbl okl_service_integration_pvt.klev_tbl_type;
2350: ddp_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
2351: ddp_cov_tbl okl_service_integration_pvt.srv_cov_tbl_type;
2352: ddx_clev_tbl okl_service_integration_pvt.clev_tbl_type;
2353: ddx_klev_tbl okl_service_integration_pvt.klev_tbl_type;
2354: ddx_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
2355: ddindx binary_integer; indx binary_integer;
2356: begin
2349: ddp_klev_tbl okl_service_integration_pvt.klev_tbl_type;
2350: ddp_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
2351: ddp_cov_tbl okl_service_integration_pvt.srv_cov_tbl_type;
2352: ddx_clev_tbl okl_service_integration_pvt.clev_tbl_type;
2353: ddx_klev_tbl okl_service_integration_pvt.klev_tbl_type;
2354: ddx_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
2355: ddindx binary_integer; indx binary_integer;
2356: begin
2357:
2350: ddp_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
2351: ddp_cov_tbl okl_service_integration_pvt.srv_cov_tbl_type;
2352: ddx_clev_tbl okl_service_integration_pvt.clev_tbl_type;
2353: ddx_klev_tbl okl_service_integration_pvt.klev_tbl_type;
2354: ddx_cimv_tbl okl_service_integration_pvt.cimv_tbl_type;
2355: ddindx binary_integer; indx binary_integer;
2356: begin
2357:
2358: -- copy data to the local IN or IN-OUT args, if any
2575: , p7_a18
2576: , p7_a19
2577: );
2578:
2579: okl_service_integration_pvt_w.rosetta_table_copy_in_p21(ddp_cov_tbl, p8_a0
2580: );
2581:
2582:
2583:
2582:
2583:
2584:
2585: -- here's the delegated call to the old PL/SQL routine
2586: okl_service_integration_pvt.update_cov_asset_line(p_api_version,
2587: p_init_msg_list,
2588: x_return_status,
2589: x_msg_count,
2590: x_msg_data,
2821: , p11_a19
2822: );
2823: end;
2824:
2825: end okl_service_integration_pvt_w;