1: package body iby_routinginfo_pkg_wrap as
2: /*$Header: ibyrutwb.pls 115.11 2002/11/21 20:15:00 jleybovi ship $*/
3:
4: procedure createroutinginfo(i_rules_ruleid NUMBER,
5: i_rules_rulename VARCHAR2,
22: i_conditions_entry_seq JTF_NUMBER_TABLE,
23: i_conditions_object_version JTF_NUMBER_TABLE)
24:
25: is
26: ddi_rules iby_routinginfo_pkg.t_rulesrec;
27: ddi_conditions iby_routinginfo_pkg.t_condtrecvec;
28: ddindx binary_integer; indx binary_integer;
29: begin
30:
23: i_conditions_object_version JTF_NUMBER_TABLE)
24:
25: is
26: ddi_rules iby_routinginfo_pkg.t_rulesrec;
27: ddi_conditions iby_routinginfo_pkg.t_condtrecvec;
28: ddindx binary_integer; indx binary_integer;
29: begin
30:
31: -- copy data to the local IN or IN-OUT args, if any
64: end if;
65: end if;
66:
67: -- here's the delegated call to the old PL/SQL routine
68: iby_routinginfo_pkg.createroutinginfo(ddi_rules,
69: ddi_conditions);
70:
71: -- copy data back from the local OUT or IN-OUT args, if any
72:
93: i_conditions_entry_seq JTF_NUMBER_TABLE,
94: i_conditions_object_version JTF_NUMBER_TABLE)
95:
96: is
97: ddi_rules iby_routinginfo_pkg.t_rulesrec;
98: ddi_conditions iby_routinginfo_pkg.t_condtrecvec;
99: ddindx binary_integer; indx binary_integer;
100: begin
101:
94: i_conditions_object_version JTF_NUMBER_TABLE)
95:
96: is
97: ddi_rules iby_routinginfo_pkg.t_rulesrec;
98: ddi_conditions iby_routinginfo_pkg.t_condtrecvec;
99: ddindx binary_integer; indx binary_integer;
100: begin
101:
102: -- copy data to the local IN or IN-OUT args, if any
135: end if;
136: end if;
137:
138: -- here's the delegated call to the old PL/SQL routine
139: iby_routinginfo_pkg.modifyroutinginfo(ddi_rules,
140: ddi_conditions);
141:
142: -- copy data back from the local OUT or IN-OUT args, if any
143:
142: -- copy data back from the local OUT or IN-OUT args, if any
143:
144: end;
145:
146: end iby_routinginfo_pkg_wrap;