1: package body okl_lease_opportunity_pvt_w as
2: /* $Header: OKLELOPB.pls 120.5 2007/03/20 22:38:36 rravikir noship $ */
3: procedure create_lease_opp(p_api_version NUMBER
4: , p_init_msg_list VARCHAR2
5: , p_transaction_control VARCHAR2
115: , x_msg_data out nocopy VARCHAR2
116: )
117:
118: as
119: ddp_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
120: ddx_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
121: ddindx binary_integer; indx binary_integer;
122: begin
123:
116: )
117:
118: as
119: ddp_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
120: ddx_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
121: ddindx binary_integer; indx binary_integer;
122: begin
123:
124: -- copy data to the local IN or IN-OUT args, if any
184:
185:
186:
187: -- here's the delegated call to the old PL/SQL routine
188: okl_lease_opportunity_pvt.create_lease_opp(p_api_version,
189: p_init_msg_list,
190: p_transaction_control,
191: ddp_lease_opp_rec,
192: p_quick_quote_id,
373: , x_msg_data out nocopy VARCHAR2
374: )
375:
376: as
377: ddp_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
378: ddx_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
379: ddindx binary_integer; indx binary_integer;
380: begin
381:
374: )
375:
376: as
377: ddp_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
378: ddx_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
379: ddindx binary_integer; indx binary_integer;
380: begin
381:
382: -- copy data to the local IN or IN-OUT args, if any
441:
442:
443:
444: -- here's the delegated call to the old PL/SQL routine
445: okl_lease_opportunity_pvt.update_lease_opp(p_api_version,
446: p_init_msg_list,
447: p_transaction_control,
448: ddp_lease_opp_rec,
449: ddx_lease_opp_rec,
631: , x_msg_data out nocopy VARCHAR2
632: )
633:
634: as
635: ddp_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
636: ddx_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
637: ddindx binary_integer; indx binary_integer;
638: begin
639:
632: )
633:
634: as
635: ddp_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
636: ddx_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
637: ddindx binary_integer; indx binary_integer;
638: begin
639:
640: -- copy data to the local IN or IN-OUT args, if any
702:
703:
704:
705: -- here's the delegated call to the old PL/SQL routine
706: okl_lease_opportunity_pvt.defaults_for_lease_opp(p_api_version,
707: p_init_msg_list,
708: p_transaction_control,
709: ddp_lease_opp_rec,
710: p_user_id,
896: , x_msg_data out nocopy VARCHAR2
897: )
898:
899: as
900: ddp_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
901: ddx_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
902: ddindx binary_integer; indx binary_integer;
903: begin
904:
897: )
898:
899: as
900: ddp_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
901: ddx_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
902: ddindx binary_integer; indx binary_integer;
903: begin
904:
905: -- copy data to the local IN or IN-OUT args, if any
965:
966:
967:
968: -- here's the delegated call to the old PL/SQL routine
969: okl_lease_opportunity_pvt.duplicate_lease_opp(p_api_version,
970: p_init_msg_list,
971: p_transaction_control,
972: p_source_leaseopp_id,
973: ddp_lease_opp_rec,
1039:
1040:
1041: end;
1042:
1043: end okl_lease_opportunity_pvt_w;