1: package body okl_setuptqyvalues_pvt_w as
2: /* $Header: OKLESEVB.pls 115.2 2002/12/24 04:01:13 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:
47: , p0_a11 NUMBER := 0-1962.0724
48: )
49:
50: as
51: ddp_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
52: ddx_no_data_found boolean;
53: ddx_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
54: ddindx binary_integer; indx binary_integer;
55: begin
49:
50: as
51: ddp_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
52: ddx_no_data_found boolean;
53: ddx_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
54: ddindx binary_integer; indx binary_integer;
55: begin
56:
57: -- copy data to the local IN or IN-OUT args, if any
71:
72:
73:
74: -- here's the delegated call to the old PL/SQL routine
75: okl_setuptqyvalues_pvt.get_rec(ddp_ptvv_rec,
76: ddx_no_data_found,
77: x_return_status,
78: ddx_ptvv_rec);
79:
143: , p6_a11 NUMBER := 0-1962.0724
144: )
145:
146: as
147: ddp_ptqv_rec okl_setuptqyvalues_pvt.ptqv_rec_type;
148: ddp_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
149: ddx_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
150: ddindx binary_integer; indx binary_integer;
151: begin
144: )
145:
146: as
147: ddp_ptqv_rec okl_setuptqyvalues_pvt.ptqv_rec_type;
148: ddp_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
149: ddx_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
150: ddindx binary_integer; indx binary_integer;
151: begin
152:
145:
146: as
147: ddp_ptqv_rec okl_setuptqyvalues_pvt.ptqv_rec_type;
148: ddp_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
149: ddx_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
150: ddindx binary_integer; indx binary_integer;
151: begin
152:
153: -- copy data to the local IN or IN-OUT args, if any
182: ddp_ptvv_rec.last_update_login := rosetta_g_miss_num_map(p6_a11);
183:
184:
185: -- here's the delegated call to the old PL/SQL routine
186: okl_setuptqyvalues_pvt.insert_tqyvalues(p_api_version,
187: p_init_msg_list,
188: x_return_status,
189: x_msg_count,
190: x_msg_data,
256: , p6_a11 NUMBER := 0-1962.0724
257: )
258:
259: as
260: ddp_ptqv_rec okl_setuptqyvalues_pvt.ptqv_rec_type;
261: ddp_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
262: ddx_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
263: ddindx binary_integer; indx binary_integer;
264: begin
257: )
258:
259: as
260: ddp_ptqv_rec okl_setuptqyvalues_pvt.ptqv_rec_type;
261: ddp_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
262: ddx_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
263: ddindx binary_integer; indx binary_integer;
264: begin
265:
258:
259: as
260: ddp_ptqv_rec okl_setuptqyvalues_pvt.ptqv_rec_type;
261: ddp_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
262: ddx_ptvv_rec okl_setuptqyvalues_pvt.ptvv_rec_type;
263: ddindx binary_integer; indx binary_integer;
264: begin
265:
266: -- copy data to the local IN or IN-OUT args, if any
295: ddp_ptvv_rec.last_update_login := rosetta_g_miss_num_map(p6_a11);
296:
297:
298: -- here's the delegated call to the old PL/SQL routine
299: okl_setuptqyvalues_pvt.update_tqyvalues(p_api_version,
300: p_init_msg_list,
301: x_return_status,
302: x_msg_count,
303: x_msg_data,
326: p7_a10 := ddx_ptvv_rec.last_update_date;
327: p7_a11 := rosetta_g_miss_num_map(ddx_ptvv_rec.last_update_login);
328: end;
329:
330: end okl_setuptqyvalues_pvt_w;