1: package body okl_setupdqualitys_pvt_w as
2: /* $Header: OKLESDQB.pls 120.2 2007/03/04 10:09:31 dcshanmu ship $ */
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: rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
48: , p0_a10 NUMBER := 0-1962.0724
49: )
50:
51: as
52: ddp_pdqv_rec okl_setupdqualitys_pvt.pdqv_rec_type;
53: ddx_no_data_found boolean;
54: ddx_pdqv_rec okl_setupdqualitys_pvt.pdqv_rec_type;
55: ddindx binary_integer; indx binary_integer;
56: begin
50:
51: as
52: ddp_pdqv_rec okl_setupdqualitys_pvt.pdqv_rec_type;
53: ddx_no_data_found boolean;
54: ddx_pdqv_rec okl_setupdqualitys_pvt.pdqv_rec_type;
55: ddindx binary_integer; indx binary_integer;
56: begin
57:
58: -- 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_setupdqualitys_pvt.get_rec(ddp_pdqv_rec,
76: ddx_no_data_found,
77: x_return_status,
78: ddx_pdqv_rec);
79:
141: , p6_a10 NUMBER := 0-1962.0724
142: )
143:
144: as
145: ddp_ptlv_rec okl_setupdqualitys_pvt.ptlv_rec_type;
146: ddp_pdqv_rec okl_setupdqualitys_pvt.pdqv_rec_type;
147: ddx_pdqv_rec okl_setupdqualitys_pvt.pdqv_rec_type;
148: ddindx binary_integer; indx binary_integer;
149: begin
142: )
143:
144: as
145: ddp_ptlv_rec okl_setupdqualitys_pvt.ptlv_rec_type;
146: ddp_pdqv_rec okl_setupdqualitys_pvt.pdqv_rec_type;
147: ddx_pdqv_rec okl_setupdqualitys_pvt.pdqv_rec_type;
148: ddindx binary_integer; indx binary_integer;
149: begin
150:
143:
144: as
145: ddp_ptlv_rec okl_setupdqualitys_pvt.ptlv_rec_type;
146: ddp_pdqv_rec okl_setupdqualitys_pvt.pdqv_rec_type;
147: ddx_pdqv_rec okl_setupdqualitys_pvt.pdqv_rec_type;
148: ddindx binary_integer; indx binary_integer;
149: begin
150:
151: -- copy data to the local IN or IN-OUT args, if any
180: ddp_pdqv_rec.last_update_login := rosetta_g_miss_num_map(p6_a10);
181:
182:
183: -- here's the delegated call to the old PL/SQL routine
184: okl_setupdqualitys_pvt.insert_dqualitys(p_api_version,
185: p_init_msg_list,
186: x_return_status,
187: x_msg_count,
188: x_msg_data,
252: , p5_a11 NUMBER := 0-1962.0724
253: )
254:
255: as
256: ddp_ptlv_rec okl_setupdqualitys_pvt.ptlv_rec_type;
257: ddp_pdqv_tbl okl_setupdqualitys_pvt.pdqv_tbl_type;
258: ddx_pdqv_tbl okl_setupdqualitys_pvt.pdqv_tbl_type;
259: ddindx binary_integer; indx binary_integer;
260: begin
253: )
254:
255: as
256: ddp_ptlv_rec okl_setupdqualitys_pvt.ptlv_rec_type;
257: ddp_pdqv_tbl okl_setupdqualitys_pvt.pdqv_tbl_type;
258: ddx_pdqv_tbl okl_setupdqualitys_pvt.pdqv_tbl_type;
259: ddindx binary_integer; indx binary_integer;
260: begin
261:
254:
255: as
256: ddp_ptlv_rec okl_setupdqualitys_pvt.ptlv_rec_type;
257: ddp_pdqv_tbl okl_setupdqualitys_pvt.pdqv_tbl_type;
258: ddx_pdqv_tbl okl_setupdqualitys_pvt.pdqv_tbl_type;
259: ddindx binary_integer; indx binary_integer;
260: begin
261:
262: -- copy data to the local IN or IN-OUT args, if any
292: );
293:
294:
295: -- here's the delegated call to the old PL/SQL routine
296: okl_setupdqualitys_pvt.insert_dqualitys(p_api_version,
297: p_init_msg_list,
298: x_return_status,
299: x_msg_count,
300: x_msg_data,
354: , p5_a11 NUMBER := 0-1962.0724
355: )
356:
357: as
358: ddp_ptlv_rec okl_setupdqualitys_pvt.ptlv_rec_type;
359: ddp_pdqv_tbl okl_setupdqualitys_pvt.pdqv_tbl_type;
360: ddindx binary_integer; indx binary_integer;
361: begin
362:
355: )
356:
357: as
358: ddp_ptlv_rec okl_setupdqualitys_pvt.ptlv_rec_type;
359: ddp_pdqv_tbl okl_setupdqualitys_pvt.pdqv_tbl_type;
360: ddindx binary_integer; indx binary_integer;
361: begin
362:
363: -- copy data to the local IN or IN-OUT args, if any
392: , p6_a10
393: );
394:
395: -- here's the delegated call to the old PL/SQL routine
396: okl_setupdqualitys_pvt.delete_dqualitys(p_api_version,
397: p_init_msg_list,
398: x_return_status,
399: x_msg_count,
400: x_msg_data,
409:
410:
411: end;
412:
413: end okl_setupdqualitys_pvt_w;