1: package body okl_vp_rule_pvt_w as
2: /* $Header: OKLERLGB.pls 120.6 2005/10/20 18:48:08 smereddy noship $ */
3: procedure rosetta_table_copy_in_p3(t out nocopy okl_vp_rule_pvt.vrs_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_VARCHAR2_TABLE_100
5: , a2 JTF_VARCHAR2_TABLE_100
1: package body okl_vp_rule_pvt_w as
2: /* $Header: OKLERLGB.pls 120.6 2005/10/20 18:48:08 smereddy noship $ */
3: procedure rosetta_table_copy_in_p3(t out nocopy okl_vp_rule_pvt.vrs_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_VARCHAR2_TABLE_100
5: , a2 JTF_VARCHAR2_TABLE_100
6: , a3 JTF_VARCHAR2_TABLE_500
7: , a4 JTF_VARCHAR2_TABLE_500
28: end loop;
29: end if;
30: end if;
31: end rosetta_table_copy_in_p3;
32: procedure rosetta_table_copy_out_p3(t okl_vp_rule_pvt.vrs_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
33: , a1 out nocopy JTF_VARCHAR2_TABLE_100
34: , a2 out nocopy JTF_VARCHAR2_TABLE_100
35: , a3 out nocopy JTF_VARCHAR2_TABLE_500
36: , a4 out nocopy JTF_VARCHAR2_TABLE_500
149: , p6_a31 out nocopy NUMBER
150: )
151:
152: as
153: ddp_rgpv_rec okl_vp_rule_pvt.rgpv_rec_type;
154: ddx_rgpv_rec okl_vp_rule_pvt.rgpv_rec_type;
155: ddindx binary_integer; indx binary_integer;
156: begin
157:
150: )
151:
152: as
153: ddp_rgpv_rec okl_vp_rule_pvt.rgpv_rec_type;
154: ddx_rgpv_rec okl_vp_rule_pvt.rgpv_rec_type;
155: ddindx binary_integer; indx binary_integer;
156: begin
157:
158: -- copy data to the local IN or IN-OUT args, if any
195: ddp_rgpv_rec.last_update_login := p5_a31;
196:
197:
198: -- here's the delegated call to the old PL/SQL routine
199: okl_vp_rule_pvt.create_rule_group(p_api_version,
200: p_init_msg_list,
201: x_return_status,
202: x_msg_count,
203: x_msg_data,
316: , p6_a31 out nocopy NUMBER
317: )
318:
319: as
320: ddp_rgpv_rec okl_vp_rule_pvt.rgpv_rec_type;
321: ddx_rgpv_rec okl_vp_rule_pvt.rgpv_rec_type;
322: ddindx binary_integer; indx binary_integer;
323: begin
324:
317: )
318:
319: as
320: ddp_rgpv_rec okl_vp_rule_pvt.rgpv_rec_type;
321: ddx_rgpv_rec okl_vp_rule_pvt.rgpv_rec_type;
322: ddindx binary_integer; indx binary_integer;
323: begin
324:
325: -- copy data to the local IN or IN-OUT args, if any
362: ddp_rgpv_rec.last_update_login := p5_a31;
363:
364:
365: -- here's the delegated call to the old PL/SQL routine
366: okl_vp_rule_pvt.update_rule_group(p_api_version,
367: p_init_msg_list,
368: x_return_status,
369: x_msg_count,
370: x_msg_data,
451: , p5_a31 NUMBER
452: )
453:
454: as
455: ddp_rgpv_rec okl_vp_rule_pvt.rgpv_rec_type;
456: ddindx binary_integer; indx binary_integer;
457: begin
458:
459: -- copy data to the local IN or IN-OUT args, if any
495: ddp_rgpv_rec.last_update_date := p5_a30;
496: ddp_rgpv_rec.last_update_login := p5_a31;
497:
498: -- here's the delegated call to the old PL/SQL routine
499: okl_vp_rule_pvt.delete_rule_group(p_api_version,
500: p_init_msg_list,
501: x_return_status,
502: x_msg_count,
503: x_msg_data,
526: , p7_a5 JTF_VARCHAR2_TABLE_100
527: )
528:
529: as
530: ddp_vrs_tbl okl_vp_rule_pvt.vrs_tbl_type;
531: ddindx binary_integer; indx binary_integer;
532: begin
533:
534: -- copy data to the local IN or IN-OUT args, if any
538:
539:
540:
541:
542: okl_vp_rule_pvt_w.rosetta_table_copy_in_p3(ddp_vrs_tbl, p7_a0
543: , p7_a1
544: , p7_a2
545: , p7_a3
546: , p7_a4
547: , p7_a5
548: );
549:
550: -- here's the delegated call to the old PL/SQL routine
551: okl_vp_rule_pvt.process_vrs_rules(p_api_version,
552: p_init_msg_list,
553: x_return_status,
554: x_msg_count,
555: x_msg_data,
566:
567:
568: end;
569:
570: end okl_vp_rule_pvt_w;