1: package body okl_setuptqualitys_pvt_w as
2: /* $Header: OKLESTQB.pls 115.2 2002/12/24 04:04:48 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:
45: , p0_a10 NUMBER := 0-1962.0724
46: )
47:
48: as
49: ddp_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
50: ddx_no_data_found boolean;
51: ddx_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
52: ddindx binary_integer; indx binary_integer;
53: begin
47:
48: as
49: ddp_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
50: ddx_no_data_found boolean;
51: ddx_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
52: ddindx binary_integer; indx binary_integer;
53: begin
54:
55: -- copy data to the local IN or IN-OUT args, if any
68:
69:
70:
71: -- here's the delegated call to the old PL/SQL routine
72: okl_setuptqualitys_pvt.get_rec(ddp_ptqv_rec,
73: ddx_no_data_found,
74: x_return_status,
75: ddx_ptqv_rec);
76:
126: , p5_a10 NUMBER := 0-1962.0724
127: )
128:
129: as
130: ddp_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
131: ddx_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
132: ddindx binary_integer; indx binary_integer;
133: begin
134:
127: )
128:
129: as
130: ddp_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
131: ddx_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
132: ddindx binary_integer; indx binary_integer;
133: begin
134:
135: -- copy data to the local IN or IN-OUT args, if any
151: ddp_ptqv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
152:
153:
154: -- here's the delegated call to the old PL/SQL routine
155: okl_setuptqualitys_pvt.insert_tqualitys(p_api_version,
156: p_init_msg_list,
157: x_return_status,
158: x_msg_count,
159: x_msg_data,
209: , p5_a10 NUMBER := 0-1962.0724
210: )
211:
212: as
213: ddp_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
214: ddx_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
215: ddindx binary_integer; indx binary_integer;
216: begin
217:
210: )
211:
212: as
213: ddp_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
214: ddx_ptqv_rec okl_setuptqualitys_pvt.ptqv_rec_type;
215: ddindx binary_integer; indx binary_integer;
216: begin
217:
218: -- copy data to the local IN or IN-OUT args, if any
234: ddp_ptqv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
235:
236:
237: -- here's the delegated call to the old PL/SQL routine
238: okl_setuptqualitys_pvt.update_tqualitys(p_api_version,
239: p_init_msg_list,
240: x_return_status,
241: x_msg_count,
242: x_msg_data,
262: p6_a9 := ddx_ptqv_rec.last_update_date;
263: p6_a10 := rosetta_g_miss_num_map(ddx_ptqv_rec.last_update_login);
264: end;
265:
266: end okl_setuptqualitys_pvt_w;