1: package body okl_setupproducts_pub_w as
2: /* $Header: OKLUSPDB.pls 120.1 2005/10/07 05:46:33 dkagrawa 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:
90: , p0_a32 NUMBER := 0-1962.0724
91: )
92:
93: as
94: ddp_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
95: ddx_no_data_found boolean;
96: ddx_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
97: ddindx binary_integer; indx binary_integer;
98: begin
92:
93: as
94: ddp_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
95: ddx_no_data_found boolean;
96: ddx_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
97: ddindx binary_integer; indx binary_integer;
98: begin
99:
100: -- copy data to the local IN or IN-OUT args, if any
136:
137:
138:
139: -- here's the delegated call to the old PL/SQL routine
140: okl_setupproducts_pub.get_rec(ddp_pdtv_rec,
141: x_return_status,
142: x_msg_data,
143: ddx_no_data_found,
144: ddx_pdtv_rec);
264: )
265:
266: as
267: ddx_no_data_found boolean;
268: ddp_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
269: ddp_product_date date;
270: ddp_pdt_parameter_rec okl_setupproducts_pub.pdt_parameters_rec_type;
271: ddindx binary_integer; indx binary_integer;
272: begin
266: as
267: ddx_no_data_found boolean;
268: ddp_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
269: ddp_product_date date;
270: ddp_pdt_parameter_rec okl_setupproducts_pub.pdt_parameters_rec_type;
271: ddindx binary_integer; indx binary_integer;
272: begin
273:
274: -- copy data to the local IN or IN-OUT args, if any
315: ddp_product_date := rosetta_g_miss_date_in_map(p_product_date);
316:
317:
318: -- here's the delegated call to the old PL/SQL routine
319: okl_setupproducts_pub.getpdt_parameters(p_api_version,
320: p_init_msg_list,
321: x_return_status,
322: ddx_no_data_found,
323: x_msg_count,
448: , p5_a32 NUMBER := 0-1962.0724
449: )
450:
451: as
452: ddp_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
453: ddx_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
454: ddindx binary_integer; indx binary_integer;
455: begin
456:
449: )
450:
451: as
452: ddp_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
453: ddx_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
454: ddindx binary_integer; indx binary_integer;
455: begin
456:
457: -- copy data to the local IN or IN-OUT args, if any
495: ddp_pdtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a32);
496:
497:
498: -- here's the delegated call to the old PL/SQL routine
499: okl_setupproducts_pub.insert_products(p_api_version,
500: p_init_msg_list,
501: x_return_status,
502: x_msg_count,
503: x_msg_data,
619: , p5_a32 NUMBER := 0-1962.0724
620: )
621:
622: as
623: ddp_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
624: ddx_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
625: ddindx binary_integer; indx binary_integer;
626: begin
627:
620: )
621:
622: as
623: ddp_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
624: ddx_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
625: ddindx binary_integer; indx binary_integer;
626: begin
627:
628: -- copy data to the local IN or IN-OUT args, if any
666: ddp_pdtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a32);
667:
668:
669: -- here's the delegated call to the old PL/SQL routine
670: okl_setupproducts_pub.update_products(p_api_version,
671: p_init_msg_list,
672: x_return_status,
673: x_msg_count,
674: x_msg_data,
716: p6_a31 := ddx_pdtv_rec.last_update_date;
717: p6_a32 := rosetta_g_miss_num_map(ddx_pdtv_rec.last_update_login);
718: end;
719:
720: end okl_setupproducts_pub_w;