1: package body okl_setupoverules_pvt_w as
2: /* $Header: OKLESODB.pls 115.3 2002/12/24 04:01:54 sgorantl 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:
53: , p0_a14 NUMBER := 0-1962.0724
54: )
55:
56: as
57: ddp_ovdv_rec okl_setupoverules_pvt.ovdv_rec_type;
58: ddx_no_data_found boolean;
59: ddx_ovdv_rec okl_setupoverules_pvt.ovdv_rec_type;
60: ddindx binary_integer; indx binary_integer;
61: begin
55:
56: as
57: ddp_ovdv_rec okl_setupoverules_pvt.ovdv_rec_type;
58: ddx_no_data_found boolean;
59: ddx_ovdv_rec okl_setupoverules_pvt.ovdv_rec_type;
60: ddindx binary_integer; indx binary_integer;
61: begin
62:
63: -- copy data to the local IN or IN-OUT args, if any
80:
81:
82:
83: -- here's the delegated call to the old PL/SQL routine
84: okl_setupoverules_pvt.get_rec(ddp_ovdv_rec,
85: x_return_status,
86: ddx_no_data_found,
87: ddx_ovdv_rec);
88:
189: , p7_a14 NUMBER := 0-1962.0724
190: )
191:
192: as
193: ddp_optv_rec okl_setupoverules_pvt.optv_rec_type;
194: ddp_ovev_rec okl_setupoverules_pvt.ovev_rec_type;
195: ddp_ovdv_rec okl_setupoverules_pvt.ovdv_rec_type;
196: ddx_ovdv_rec okl_setupoverules_pvt.ovdv_rec_type;
197: ddindx binary_integer; indx binary_integer;
190: )
191:
192: as
193: ddp_optv_rec okl_setupoverules_pvt.optv_rec_type;
194: ddp_ovev_rec okl_setupoverules_pvt.ovev_rec_type;
195: ddp_ovdv_rec okl_setupoverules_pvt.ovdv_rec_type;
196: ddx_ovdv_rec okl_setupoverules_pvt.ovdv_rec_type;
197: ddindx binary_integer; indx binary_integer;
198: begin
191:
192: as
193: ddp_optv_rec okl_setupoverules_pvt.optv_rec_type;
194: ddp_ovev_rec okl_setupoverules_pvt.ovev_rec_type;
195: ddp_ovdv_rec okl_setupoverules_pvt.ovdv_rec_type;
196: ddx_ovdv_rec okl_setupoverules_pvt.ovdv_rec_type;
197: ddindx binary_integer; indx binary_integer;
198: begin
199:
192: as
193: ddp_optv_rec okl_setupoverules_pvt.optv_rec_type;
194: ddp_ovev_rec okl_setupoverules_pvt.ovev_rec_type;
195: ddp_ovdv_rec okl_setupoverules_pvt.ovdv_rec_type;
196: ddx_ovdv_rec okl_setupoverules_pvt.ovdv_rec_type;
197: ddindx binary_integer; indx binary_integer;
198: begin
199:
200: -- copy data to the local IN or IN-OUT args, if any
261: ddp_ovdv_rec.last_update_login := rosetta_g_miss_num_map(p7_a14);
262:
263:
264: -- here's the delegated call to the old PL/SQL routine
265: okl_setupoverules_pvt.insert_overules(p_api_version,
266: p_init_msg_list,
267: x_return_status,
268: x_msg_count,
269: x_msg_data,
359: , p6_a11 NUMBER := 0-1962.0724
360: )
361:
362: as
363: ddp_optv_rec okl_setupoverules_pvt.optv_rec_type;
364: ddp_ovev_rec okl_setupoverules_pvt.ovev_rec_type;
365: ddp_ovdv_tbl okl_setupoverules_pvt.ovdv_tbl_type;
366: ddindx binary_integer; indx binary_integer;
367: begin
360: )
361:
362: as
363: ddp_optv_rec okl_setupoverules_pvt.optv_rec_type;
364: ddp_ovev_rec okl_setupoverules_pvt.ovev_rec_type;
365: ddp_ovdv_tbl okl_setupoverules_pvt.ovdv_tbl_type;
366: ddindx binary_integer; indx binary_integer;
367: begin
368:
361:
362: as
363: ddp_optv_rec okl_setupoverules_pvt.optv_rec_type;
364: ddp_ovev_rec okl_setupoverules_pvt.ovev_rec_type;
365: ddp_ovdv_tbl okl_setupoverules_pvt.ovdv_tbl_type;
366: ddindx binary_integer; indx binary_integer;
367: begin
368:
369: -- copy data to the local IN or IN-OUT args, if any
430: , p7_a14
431: );
432:
433: -- here's the delegated call to the old PL/SQL routine
434: okl_setupoverules_pvt.delete_overules(p_api_version,
435: p_init_msg_list,
436: x_return_status,
437: x_msg_count,
438: x_msg_data,
449:
450:
451: end;
452:
453: end okl_setupoverules_pvt_w;