[Home] [Help]
PACKAGE BODY: APPS.IBY_ROUTINGINFO_PKG_WRAP
Source
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,
6 i_rules_bepinstrtype VARCHAR2,
7 i_rules_priority NUMBER,
8 i_rules_bepid NUMBER,
9 i_rules_bepsuffix VARCHAR2,
10 i_rules_activestatus NUMBER,
11 i_rules_payeeid VARCHAR2,
12 i_rules_merchantaccount VARCHAR2,
13 i_rules_hitcounter NUMBER,
14 i_rules_object_version NUMBER,
15 i_conditions_rulename JTF_VARCHAR2_TABLE_100,
16 i_conditions_ruleid JTF_NUMBER_TABLE,
17 i_conditions_condition_name JTF_VARCHAR2_TABLE_100,
18 i_conditions_parameter JTF_VARCHAR2_TABLE_100,
19 i_conditions_operation JTF_VARCHAR2_TABLE_100,
20 i_conditions_value JTF_VARCHAR2_TABLE_100,
21 i_conditions_is_value_string JTF_VARCHAR2_TABLE_100,
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
31 -- copy data to the local IN or IN-OUT args, if any
32 ddi_rules.ruleid := i_rules_ruleid;
33 ddi_rules.rulename := i_rules_rulename;
34 ddi_rules.bepinstrtype := i_rules_bepinstrtype;
35 ddi_rules.priority := i_rules_priority;
36 ddi_rules.bepid := i_rules_bepid;
37 ddi_rules.bepsuffix := i_rules_bepsuffix;
38 ddi_rules.activestatus := i_rules_activestatus;
39 ddi_rules.hitcounter := i_rules_hitcounter;
40 ddi_rules.payeeid := i_rules_payeeid;
41 ddi_rules.merchantAccount := i_rules_merchantaccount;
42 ddi_rules.object_version := i_rules_object_version;
43
44 if i_conditions_rulename is not null and i_conditions_rulename.count > 0 then
45 if i_conditions_rulename.count > 0 then
46 indx := i_conditions_rulename.first;
47 ddindx := 1;
48 while true loop
49 ddi_conditions(ddindx).rulename := i_conditions_rulename(indx);
50 ddi_conditions(ddindx).ruleid := i_conditions_ruleid(indx);
51 ddi_conditions(ddindx).condition_name := i_conditions_condition_name(indx);
52 ddi_conditions(ddindx).parameter := i_conditions_parameter(indx);
53 ddi_conditions(ddindx).operation := i_conditions_operation(indx);
54 ddi_conditions(ddindx).value := i_conditions_value(indx);
55 ddi_conditions(ddindx).is_value_string := i_conditions_is_value_string(indx);
56 ddi_conditions(ddindx).entry_seq := i_conditions_entry_seq(indx);
57 ddi_conditions(ddindx).object_version := i_conditions_object_version(indx);
58 ddindx := ddindx+1;
59 if i_conditions_rulename.last =indx
60 then exit;
61 end if;
62 indx := i_conditions_rulename.next(indx);
63 end loop;
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
73 end;
74
75 procedure modifyroutinginfo(i_rules_ruleid NUMBER,
76 i_rules_rulename VARCHAR2,
77 i_rules_bepinstrtype VARCHAR2,
78 i_rules_priority NUMBER,
79 i_rules_bepid NUMBER,
80 i_rules_bepsuffix VARCHAR2,
81 i_rules_activestatus NUMBER,
82 i_rules_payeeid VARCHAR2,
83 i_rules_merchantaccount VARCHAR2,
84 i_rules_hitcounter NUMBER,
85 i_rules_object_version NUMBER,
86 i_conditions_rulename JTF_VARCHAR2_TABLE_100,
87 i_conditions_ruleid JTF_NUMBER_TABLE,
88 i_conditions_condition_name JTF_VARCHAR2_TABLE_100,
89 i_conditions_parameter JTF_VARCHAR2_TABLE_100,
90 i_conditions_operation JTF_VARCHAR2_TABLE_100,
91 i_conditions_value JTF_VARCHAR2_TABLE_100,
92 i_conditions_is_value_string JTF_VARCHAR2_TABLE_100,
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
102 -- copy data to the local IN or IN-OUT args, if any
103 ddi_rules.ruleid := i_rules_ruleid;
104 ddi_rules.rulename := i_rules_rulename;
105 ddi_rules.bepinstrtype := i_rules_bepinstrtype;
106 ddi_rules.priority := i_rules_priority;
107 ddi_rules.bepid := i_rules_bepid;
108 ddi_rules.bepsuffix := i_rules_bepsuffix;
109 ddi_rules.activestatus := i_rules_activestatus;
110 ddi_rules.payeeid := i_rules_payeeid;
111 ddi_rules.merchantAccount := i_rules_merchantaccount;
112 ddi_rules.hitcounter := i_rules_hitcounter;
113 ddi_rules.object_version := i_rules_object_version;
114
115 if i_conditions_rulename is not null and i_conditions_rulename.count > 0 then
116 if i_conditions_rulename.count > 0 then
117 indx := i_conditions_rulename.first;
118 ddindx := 1;
119 while true loop
120 ddi_conditions(ddindx).rulename := i_conditions_rulename(indx);
121 ddi_conditions(ddindx).ruleid := i_conditions_ruleid(indx);
122 ddi_conditions(ddindx).condition_name := i_conditions_condition_name(indx);
123 ddi_conditions(ddindx).parameter := i_conditions_parameter(indx);
124 ddi_conditions(ddindx).operation := i_conditions_operation(indx);
125 ddi_conditions(ddindx).value := i_conditions_value(indx);
126 ddi_conditions(ddindx).is_value_string := i_conditions_is_value_string(indx);
127 ddi_conditions(ddindx).entry_seq := i_conditions_entry_seq(indx);
128 ddi_conditions(ddindx).object_version := i_conditions_object_version(indx);
129 ddindx := ddindx+1;
130 if i_conditions_rulename.last =indx
131 then exit;
132 end if;
133 indx := i_conditions_rulename.next(indx);
134 end loop;
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
144 end;
145
146 end iby_routinginfo_pkg_wrap;