1: package body okl_rgrp_rules_process_pub_w as
2: /* $Header: OKLURGRB.pls 120.1 2005/07/18 15:58:11 viselvar 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:
91: , p9_a60 JTF_NUMBER_TABLE
92: )
93:
94: as
95: ddp_rgr_tbl okl_rgrp_rules_process_pub.rgr_tbl_type;
96: ddindx binary_integer; indx binary_integer;
97: begin
98:
99: -- copy data to the local IN or IN-OUT args, if any
169: , p9_a60
170: );
171:
172: -- here's the delegated call to the old PL/SQL routine
173: okl_rgrp_rules_process_pub.process_rule_group_rules(p_api_version,
174: p_init_msg_list,
175: x_return_status,
176: x_msg_count,
177: x_msg_data,
266: , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
267: )
268:
269: as
270: ddp_rgr_tbl okl_rgrp_rules_process_pub.rgr_tbl_type;
271: ddx_rgr_tbl okl_rgrp_rules_process_pub.rgr_out_tbl_type;
272: ddindx binary_integer; indx binary_integer;
273: begin
274:
267: )
268:
269: as
270: ddp_rgr_tbl okl_rgrp_rules_process_pub.rgr_tbl_type;
271: ddx_rgr_tbl okl_rgrp_rules_process_pub.rgr_out_tbl_type;
272: ddindx binary_integer; indx binary_integer;
273: begin
274:
275: -- copy data to the local IN or IN-OUT args, if any
343: );
344:
345:
346: -- here's the delegated call to the old PL/SQL routine
347: okl_rgrp_rules_process_pub.process_template_rules(p_api_version,
348: p_init_msg_list,
349: x_return_status,
350: x_msg_count,
351: x_msg_data,
367: , p7_a3
368: );
369: end;
370:
371: end okl_rgrp_rules_process_pub_w;