1: package body okl_ecc_def_pvt_w as
2: /* $Header: OKLEECCB.pls 120.1 2005/10/30 04:58:22 appldev noship $ */
3: procedure create_ecc(p_api_version NUMBER
4: , p_init_msg_list VARCHAR2
5: , x_return_status out nocopy VARCHAR2
65: , p8_a9 out nocopy JTF_NUMBER_TABLE
66: )
67:
68: as
69: ddp_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
70: ddx_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
71: ddp_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
72: ddx_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
73: ddindx binary_integer; indx binary_integer;
66: )
67:
68: as
69: ddp_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
70: ddx_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
71: ddp_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
72: ddx_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
73: ddindx binary_integer; indx binary_integer;
74: begin
67:
68: as
69: ddp_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
70: ddx_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
71: ddp_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
72: ddx_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
73: ddindx binary_integer; indx binary_integer;
74: begin
75:
68: as
69: ddp_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
70: ddx_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
71: ddp_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
72: ddx_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
73: ddindx binary_integer; indx binary_integer;
74: begin
75:
76: -- copy data to the local IN or IN-OUT args, if any
113: );
114:
115:
116: -- here's the delegated call to the old PL/SQL routine
117: okl_ecc_def_pvt.create_ecc(p_api_version,
118: p_init_msg_list,
119: x_return_status,
120: x_msg_count,
121: x_msg_data,
230: , p8_a9 out nocopy JTF_NUMBER_TABLE
231: )
232:
233: as
234: ddp_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
235: ddx_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
236: ddp_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
237: ddx_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
238: ddindx binary_integer; indx binary_integer;
231: )
232:
233: as
234: ddp_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
235: ddx_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
236: ddp_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
237: ddx_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
238: ddindx binary_integer; indx binary_integer;
239: begin
232:
233: as
234: ddp_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
235: ddx_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
236: ddp_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
237: ddx_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
238: ddindx binary_integer; indx binary_integer;
239: begin
240:
233: as
234: ddp_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
235: ddx_eccv_rec okl_ecc_def_pvt.okl_eccv_rec;
236: ddp_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
237: ddx_eco_tbl okl_ecc_def_pvt.okl_eco_tbl;
238: ddindx binary_integer; indx binary_integer;
239: begin
240:
241: -- copy data to the local IN or IN-OUT args, if any
278: );
279:
280:
281: -- here's the delegated call to the old PL/SQL routine
282: okl_ecc_def_pvt.update_ecc(p_api_version,
283: p_init_msg_list,
284: x_return_status,
285: x_msg_count,
286: x_msg_data,
329: , p8_a9
330: );
331: end;
332:
333: end okl_ecc_def_pvt_w;