1: package body okl_mass_rebook_pub_w as
2: /* $Header: OKLUMRPB.pls 115.2 2004/02/27 19:05:11 dedey 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:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p16(t out nocopy okl_mass_rebook_pub.crit_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_VARCHAR2_TABLE_200
25: , a3 JTF_VARCHAR2_TABLE_200
26: , a4 JTF_VARCHAR2_TABLE_200
47: end loop;
48: end if;
49: end if;
50: end rosetta_table_copy_in_p16;
51: procedure rosetta_table_copy_out_p16(t okl_mass_rebook_pub.crit_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
52: , a1 out nocopy JTF_VARCHAR2_TABLE_100
53: , a2 out nocopy JTF_VARCHAR2_TABLE_200
54: , a3 out nocopy JTF_VARCHAR2_TABLE_200
55: , a4 out nocopy JTF_VARCHAR2_TABLE_200
169: , x_rbk_count out nocopy NUMBER
170: )
171:
172: as
173: ddp_mrbv_tbl okl_mass_rebook_pub.mrbv_tbl_type;
174: ddx_mstv_tbl okl_mass_rebook_pub.mstv_tbl_type;
175: ddindx binary_integer; indx binary_integer;
176: begin
177:
170: )
171:
172: as
173: ddp_mrbv_tbl okl_mass_rebook_pub.mrbv_tbl_type;
174: ddx_mstv_tbl okl_mass_rebook_pub.mstv_tbl_type;
175: ddindx binary_integer; indx binary_integer;
176: begin
177:
178: -- copy data to the local IN or IN-OUT args, if any
218:
219:
220:
221: -- here's the delegated call to the old PL/SQL routine
222: okl_mass_rebook_pub.build_and_get_contracts(p_api_version,
223: p_init_msg_list,
224: x_return_status,
225: x_msg_count,
226: x_msg_data,
316: , p12_a26 JTF_VARCHAR2_TABLE_100
317: )
318:
319: as
320: ddp_rbk_tbl okl_mass_rebook_pub.rbk_tbl_type;
321: ddp_in_service_date date;
322: ddp_strm_lalevl_tbl okl_mass_rebook_pub.strm_lalevl_tbl_type;
323: ddindx binary_integer; indx binary_integer;
324: begin
318:
319: as
320: ddp_rbk_tbl okl_mass_rebook_pub.rbk_tbl_type;
321: ddp_in_service_date date;
322: ddp_strm_lalevl_tbl okl_mass_rebook_pub.strm_lalevl_tbl_type;
323: ddindx binary_integer; indx binary_integer;
324: begin
325:
326: -- copy data to the local IN or IN-OUT args, if any
371: , p12_a26
372: );
373:
374: -- here's the delegated call to the old PL/SQL routine
375: okl_mass_rebook_pub.apply_mass_rebook(p_api_version,
376: p_init_msg_list,
377: x_return_status,
378: x_msg_count,
379: x_msg_data,
470: , p6_a30 out nocopy JTF_DATE_TABLE
471: )
472:
473: as
474: ddp_mstv_tbl okl_mass_rebook_pub.mstv_tbl_type;
475: ddx_mstv_tbl okl_mass_rebook_pub.mstv_tbl_type;
476: ddindx binary_integer; indx binary_integer;
477: begin
478:
471: )
472:
473: as
474: ddp_mstv_tbl okl_mass_rebook_pub.mstv_tbl_type;
475: ddx_mstv_tbl okl_mass_rebook_pub.mstv_tbl_type;
476: ddindx binary_integer; indx binary_integer;
477: begin
478:
479: -- copy data to the local IN or IN-OUT args, if any
516: );
517:
518:
519: -- here's the delegated call to the old PL/SQL routine
520: okl_mass_rebook_pub.update_mass_rbk_contract(p_api_version,
521: p_init_msg_list,
522: x_return_status,
523: x_msg_count,
524: x_msg_data,
565: , p6_a30
566: );
567: end;
568:
569: end okl_mass_rebook_pub_w;