[Home] [Help]
PACKAGE BODY: APPS.OKL_RULE_EXTRACT_PUB_W
Source
1 package body okl_rule_extract_pub_w as
2 /* $Header: OKLUREXB.pls 115.8 2003/10/14 18:51:35 ashariff 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
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure get_subclass_rgs(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p_chr_id VARCHAR2
28 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_100
29 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
30 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
31 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_300
32 )
33
34 as
35 ddx_sc_rg_tbl okl_rule_extract_pub.sc_rg_tbl_type;
36 ddindx binary_integer; indx binary_integer;
37 begin
38
39 -- copy data to the local IN or IN-OUT args, if any
40
41
42
43
44
45
46
47 -- here's the delegated call to the old PL/SQL routine
48 okl_rule_extract_pub.get_subclass_rgs(p_api_version,
49 p_init_msg_list,
50 x_return_status,
51 x_msg_count,
52 x_msg_data,
53 p_chr_id,
54 ddx_sc_rg_tbl);
55
56 -- copy data back from the local variables to OUT or IN-OUT args, if any
57
58
59
60
61
62
63 okl_rule_extract_pvt_w.rosetta_table_copy_out_p24(ddx_sc_rg_tbl, p6_a0
64 , p6_a1
65 , p6_a2
66 , p6_a3
67 );
68 end;
69
70 procedure get_rg_rules(p_api_version NUMBER
71 , p_init_msg_list VARCHAR2
72 , x_return_status out nocopy VARCHAR2
73 , x_msg_count out nocopy NUMBER
74 , x_msg_data out nocopy VARCHAR2
75 , p_rgd_code VARCHAR2
76 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_100
77 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
78 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
79 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
80 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
81 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
82 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
83 )
84
85 as
86 ddx_rg_rules_tbl okl_rule_extract_pub.rg_rules_tbl_type;
87 ddindx binary_integer; indx binary_integer;
88 begin
89
90 -- copy data to the local IN or IN-OUT args, if any
91
92
93
94
95
96
97
98 -- here's the delegated call to the old PL/SQL routine
99 okl_rule_extract_pub.get_rg_rules(p_api_version,
100 p_init_msg_list,
101 x_return_status,
102 x_msg_count,
103 x_msg_data,
104 p_rgd_code,
105 ddx_rg_rules_tbl);
106
107 -- copy data back from the local variables to OUT or IN-OUT args, if any
108
109
110
111
112
113
114 okl_rule_extract_pvt_w.rosetta_table_copy_out_p26(ddx_rg_rules_tbl, p6_a0
115 , p6_a1
116 , p6_a2
117 , p6_a3
118 , p6_a4
119 , p6_a5
120 , p6_a6
121 );
122 end;
123
124 procedure get_rule_def(p_api_version NUMBER
125 , p_init_msg_list VARCHAR2
126 , x_return_status out nocopy VARCHAR2
127 , x_msg_count out nocopy NUMBER
128 , x_msg_data out nocopy VARCHAR2
129 , p_rgd_code VARCHAR2
130 , p_rgs_code VARCHAR2
131 , p_buy_or_sell VARCHAR2
132 , p8_a0 out nocopy JTF_VARCHAR2_TABLE_100
133 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_100
134 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
135 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_100
136 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
137 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
138 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
139 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_100
140 , p8_a8 out nocopy JTF_VARCHAR2_TABLE_100
141 , p8_a9 out nocopy JTF_VARCHAR2_TABLE_100
142 , p8_a10 out nocopy JTF_VARCHAR2_TABLE_2000
143 , p8_a11 out nocopy JTF_VARCHAR2_TABLE_2000
144 , p8_a12 out nocopy JTF_VARCHAR2_TABLE_2000
145 , p8_a13 out nocopy JTF_VARCHAR2_TABLE_2000
146 , p8_a14 out nocopy JTF_VARCHAR2_TABLE_100
147 , p8_a15 out nocopy JTF_VARCHAR2_TABLE_100
148 , p8_a16 out nocopy JTF_VARCHAR2_TABLE_100
149 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_100
150 , p8_a18 out nocopy JTF_VARCHAR2_TABLE_100
151 , p8_a19 out nocopy JTF_VARCHAR2_TABLE_100
152 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_100
153 , p8_a21 out nocopy JTF_VARCHAR2_TABLE_100
154 , p8_a22 out nocopy JTF_VARCHAR2_TABLE_300
155 )
156
157 as
158 ddx_rule_segment_tbl okl_rule_extract_pub.rule_segment_tbl_type;
159 ddindx binary_integer; indx binary_integer;
160 begin
161
162 -- copy data to the local IN or IN-OUT args, if any
163
164
165
166
167
168
169
170
171
172 -- here's the delegated call to the old PL/SQL routine
173 okl_rule_extract_pub.get_rule_def(p_api_version,
174 p_init_msg_list,
175 x_return_status,
176 x_msg_count,
177 x_msg_data,
178 p_rgd_code,
179 p_rgs_code,
180 p_buy_or_sell,
181 ddx_rule_segment_tbl);
182
183 -- copy data back from the local variables to OUT or IN-OUT args, if any
184
185
186
187
188
189
190
191
192 okl_rule_extract_pvt_w.rosetta_table_copy_out_p28(ddx_rule_segment_tbl, p8_a0
193 , p8_a1
194 , p8_a2
195 , p8_a3
196 , p8_a4
197 , p8_a5
198 , p8_a6
199 , p8_a7
200 , p8_a8
201 , p8_a9
202 , p8_a10
203 , p8_a11
204 , p8_a12
205 , p8_a13
206 , p8_a14
207 , p8_a15
208 , p8_a16
209 , p8_a17
210 , p8_a18
211 , p8_a19
212 , p8_a20
213 , p8_a21
214 , p8_a22
215 );
216 end;
217
218 procedure get_rules_metadata(p_api_version NUMBER
219 , p_init_msg_list VARCHAR2
220 , x_return_status out nocopy VARCHAR2
221 , x_msg_count out nocopy NUMBER
222 , x_msg_data out nocopy VARCHAR2
223 , p_rgd_code VARCHAR2
224 , p_rgs_code VARCHAR2
225 , p_buy_or_sell VARCHAR2
226 , p_contract_id NUMBER
227 , p_line_id NUMBER
228 , p_party_id NUMBER
229 , p_template_table VARCHAR2
230 , p_rule_id_column VARCHAR2
231 , p_entity_column VARCHAR2
232 , p14_a0 out nocopy JTF_VARCHAR2_TABLE_100
233 , p14_a1 out nocopy JTF_VARCHAR2_TABLE_100
234 , p14_a2 out nocopy JTF_VARCHAR2_TABLE_100
235 , p14_a3 out nocopy JTF_VARCHAR2_TABLE_100
236 , p14_a4 out nocopy JTF_VARCHAR2_TABLE_100
237 , p14_a5 out nocopy JTF_VARCHAR2_TABLE_100
238 , p14_a6 out nocopy JTF_VARCHAR2_TABLE_100
239 , p14_a7 out nocopy JTF_VARCHAR2_TABLE_100
240 , p14_a8 out nocopy JTF_VARCHAR2_TABLE_100
241 , p14_a9 out nocopy JTF_VARCHAR2_TABLE_100
242 , p14_a10 out nocopy JTF_VARCHAR2_TABLE_2000
243 , p14_a11 out nocopy JTF_VARCHAR2_TABLE_2000
244 , p14_a12 out nocopy JTF_VARCHAR2_TABLE_2000
245 , p14_a13 out nocopy JTF_VARCHAR2_TABLE_2000
246 , p14_a14 out nocopy JTF_VARCHAR2_TABLE_100
247 , p14_a15 out nocopy JTF_VARCHAR2_TABLE_100
248 , p14_a16 out nocopy JTF_VARCHAR2_TABLE_100
249 , p14_a17 out nocopy JTF_VARCHAR2_TABLE_100
250 , p14_a18 out nocopy JTF_VARCHAR2_TABLE_100
251 , p14_a19 out nocopy JTF_VARCHAR2_TABLE_100
252 , p14_a20 out nocopy JTF_VARCHAR2_TABLE_100
253 , p14_a21 out nocopy JTF_VARCHAR2_TABLE_100
254 , p14_a22 out nocopy JTF_VARCHAR2_TABLE_300
255 , p14_a23 out nocopy JTF_VARCHAR2_TABLE_300
256 , p14_a24 out nocopy JTF_VARCHAR2_TABLE_300
257 , p14_a25 out nocopy JTF_VARCHAR2_TABLE_1000
258 , p14_a26 out nocopy JTF_VARCHAR2_TABLE_1000
259 , p14_a27 out nocopy JTF_VARCHAR2_TABLE_100
260 )
261
262 as
263 ddx_rule_segment_tbl okl_rule_extract_pub.rule_segment_tbl_type2;
264 ddindx binary_integer; indx binary_integer;
265 begin
266
267 -- copy data to the local IN or IN-OUT args, if any
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283 -- here's the delegated call to the old PL/SQL routine
284 okl_rule_extract_pub.get_rules_metadata(p_api_version,
285 p_init_msg_list,
286 x_return_status,
287 x_msg_count,
288 x_msg_data,
289 p_rgd_code,
290 p_rgs_code,
291 p_buy_or_sell,
292 p_contract_id,
293 p_line_id,
294 p_party_id,
295 p_template_table,
296 p_rule_id_column,
297 p_entity_column,
298 ddx_rule_segment_tbl);
299
300 -- copy data back from the local variables to OUT or IN-OUT args, if any
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315 okl_rule_extract_pvt_w.rosetta_table_copy_out_p30(ddx_rule_segment_tbl, p14_a0
316 , p14_a1
317 , p14_a2
318 , p14_a3
319 , p14_a4
320 , p14_a5
321 , p14_a6
322 , p14_a7
323 , p14_a8
324 , p14_a9
325 , p14_a10
326 , p14_a11
327 , p14_a12
328 , p14_a13
329 , p14_a14
330 , p14_a15
331 , p14_a16
332 , p14_a17
333 , p14_a18
334 , p14_a19
335 , p14_a20
336 , p14_a21
337 , p14_a22
338 , p14_a23
339 , p14_a24
340 , p14_a25
341 , p14_a26
342 , p14_a27
343 );
344 end;
345
346 end okl_rule_extract_pub_w;