[Home] [Help]
PACKAGE BODY: APPS.OKL_RGRP_RULES_PROCESS_PUB_W
Source
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
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 process_rule_group_rules(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 NUMBER
28 , p_line_id NUMBER
29 , p_cpl_id NUMBER
30 , p_rrd_id NUMBER
31 , p9_a0 JTF_VARCHAR2_TABLE_100
32 , p9_a1 JTF_NUMBER_TABLE
33 , p9_a2 JTF_NUMBER_TABLE
34 , p9_a3 JTF_VARCHAR2_TABLE_100
35 , p9_a4 JTF_VARCHAR2_TABLE_100
36 , p9_a5 JTF_VARCHAR2_TABLE_100
37 , p9_a6 JTF_VARCHAR2_TABLE_100
38 , p9_a7 JTF_VARCHAR2_TABLE_200
39 , p9_a8 JTF_VARCHAR2_TABLE_200
40 , p9_a9 JTF_VARCHAR2_TABLE_200
41 , p9_a10 JTF_VARCHAR2_TABLE_100
42 , p9_a11 JTF_VARCHAR2_TABLE_100
43 , p9_a12 JTF_VARCHAR2_TABLE_100
44 , p9_a13 JTF_NUMBER_TABLE
45 , p9_a14 JTF_NUMBER_TABLE
46 , p9_a15 JTF_NUMBER_TABLE
47 , p9_a16 JTF_VARCHAR2_TABLE_100
48 , p9_a17 JTF_VARCHAR2_TABLE_2000
49 , p9_a18 JTF_VARCHAR2_TABLE_100
50 , p9_a19 JTF_VARCHAR2_TABLE_100
51 , p9_a20 JTF_VARCHAR2_TABLE_500
52 , p9_a21 JTF_VARCHAR2_TABLE_500
53 , p9_a22 JTF_VARCHAR2_TABLE_500
54 , p9_a23 JTF_VARCHAR2_TABLE_500
55 , p9_a24 JTF_VARCHAR2_TABLE_500
56 , p9_a25 JTF_VARCHAR2_TABLE_500
57 , p9_a26 JTF_VARCHAR2_TABLE_500
58 , p9_a27 JTF_VARCHAR2_TABLE_500
59 , p9_a28 JTF_VARCHAR2_TABLE_500
60 , p9_a29 JTF_VARCHAR2_TABLE_500
61 , p9_a30 JTF_VARCHAR2_TABLE_500
62 , p9_a31 JTF_VARCHAR2_TABLE_500
63 , p9_a32 JTF_VARCHAR2_TABLE_500
64 , p9_a33 JTF_VARCHAR2_TABLE_500
65 , p9_a34 JTF_VARCHAR2_TABLE_500
66 , p9_a35 JTF_NUMBER_TABLE
67 , p9_a36 JTF_DATE_TABLE
68 , p9_a37 JTF_NUMBER_TABLE
69 , p9_a38 JTF_DATE_TABLE
70 , p9_a39 JTF_NUMBER_TABLE
71 , p9_a40 JTF_VARCHAR2_TABLE_100
72 , p9_a41 JTF_VARCHAR2_TABLE_500
73 , p9_a42 JTF_VARCHAR2_TABLE_500
74 , p9_a43 JTF_VARCHAR2_TABLE_500
75 , p9_a44 JTF_VARCHAR2_TABLE_500
76 , p9_a45 JTF_VARCHAR2_TABLE_500
77 , p9_a46 JTF_VARCHAR2_TABLE_500
78 , p9_a47 JTF_VARCHAR2_TABLE_500
79 , p9_a48 JTF_VARCHAR2_TABLE_500
80 , p9_a49 JTF_VARCHAR2_TABLE_500
81 , p9_a50 JTF_VARCHAR2_TABLE_500
82 , p9_a51 JTF_VARCHAR2_TABLE_500
83 , p9_a52 JTF_VARCHAR2_TABLE_500
84 , p9_a53 JTF_VARCHAR2_TABLE_500
85 , p9_a54 JTF_VARCHAR2_TABLE_500
86 , p9_a55 JTF_VARCHAR2_TABLE_500
87 , p9_a56 JTF_VARCHAR2_TABLE_100
88 , p9_a57 JTF_VARCHAR2_TABLE_100
89 , p9_a58 JTF_VARCHAR2_TABLE_100
90 , p9_a59 JTF_VARCHAR2_TABLE_100
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
100
101
102
103
104
105
106
107
108
109 okl_rgrp_rules_process_pvt_w.rosetta_table_copy_in_p2(ddp_rgr_tbl, p9_a0
110 , p9_a1
111 , p9_a2
112 , p9_a3
113 , p9_a4
114 , p9_a5
115 , p9_a6
116 , p9_a7
117 , p9_a8
118 , p9_a9
119 , p9_a10
120 , p9_a11
121 , p9_a12
122 , p9_a13
123 , p9_a14
124 , p9_a15
125 , p9_a16
126 , p9_a17
127 , p9_a18
128 , p9_a19
129 , p9_a20
130 , p9_a21
131 , p9_a22
132 , p9_a23
133 , p9_a24
134 , p9_a25
135 , p9_a26
136 , p9_a27
137 , p9_a28
138 , p9_a29
139 , p9_a30
140 , p9_a31
141 , p9_a32
142 , p9_a33
143 , p9_a34
144 , p9_a35
145 , p9_a36
146 , p9_a37
147 , p9_a38
148 , p9_a39
149 , p9_a40
150 , p9_a41
151 , p9_a42
152 , p9_a43
153 , p9_a44
154 , p9_a45
155 , p9_a46
156 , p9_a47
157 , p9_a48
158 , p9_a49
159 , p9_a50
160 , p9_a51
161 , p9_a52
162 , p9_a53
163 , p9_a54
164 , p9_a55
165 , p9_a56
166 , p9_a57
167 , p9_a58
168 , p9_a59
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,
178 p_chr_id,
179 p_line_id,
180 p_cpl_id,
181 p_rrd_id,
182 ddp_rgr_tbl);
183
184 -- copy data back from the local variables to OUT or IN-OUT args, if any
185
186
187
188
189
190
191
192
193
194 end;
195
196 procedure process_template_rules(p_api_version NUMBER
197 , p_init_msg_list VARCHAR2
198 , x_return_status out nocopy VARCHAR2
199 , x_msg_count out nocopy NUMBER
200 , x_msg_data out nocopy VARCHAR2
201 , p_id NUMBER
202 , p6_a0 JTF_VARCHAR2_TABLE_100
203 , p6_a1 JTF_NUMBER_TABLE
204 , p6_a2 JTF_NUMBER_TABLE
205 , p6_a3 JTF_VARCHAR2_TABLE_100
206 , p6_a4 JTF_VARCHAR2_TABLE_100
207 , p6_a5 JTF_VARCHAR2_TABLE_100
208 , p6_a6 JTF_VARCHAR2_TABLE_100
209 , p6_a7 JTF_VARCHAR2_TABLE_200
210 , p6_a8 JTF_VARCHAR2_TABLE_200
211 , p6_a9 JTF_VARCHAR2_TABLE_200
212 , p6_a10 JTF_VARCHAR2_TABLE_100
213 , p6_a11 JTF_VARCHAR2_TABLE_100
214 , p6_a12 JTF_VARCHAR2_TABLE_100
215 , p6_a13 JTF_NUMBER_TABLE
216 , p6_a14 JTF_NUMBER_TABLE
217 , p6_a15 JTF_NUMBER_TABLE
218 , p6_a16 JTF_VARCHAR2_TABLE_100
219 , p6_a17 JTF_VARCHAR2_TABLE_2000
220 , p6_a18 JTF_VARCHAR2_TABLE_100
221 , p6_a19 JTF_VARCHAR2_TABLE_100
222 , p6_a20 JTF_VARCHAR2_TABLE_500
223 , p6_a21 JTF_VARCHAR2_TABLE_500
224 , p6_a22 JTF_VARCHAR2_TABLE_500
225 , p6_a23 JTF_VARCHAR2_TABLE_500
226 , p6_a24 JTF_VARCHAR2_TABLE_500
227 , p6_a25 JTF_VARCHAR2_TABLE_500
228 , p6_a26 JTF_VARCHAR2_TABLE_500
229 , p6_a27 JTF_VARCHAR2_TABLE_500
230 , p6_a28 JTF_VARCHAR2_TABLE_500
231 , p6_a29 JTF_VARCHAR2_TABLE_500
232 , p6_a30 JTF_VARCHAR2_TABLE_500
233 , p6_a31 JTF_VARCHAR2_TABLE_500
234 , p6_a32 JTF_VARCHAR2_TABLE_500
235 , p6_a33 JTF_VARCHAR2_TABLE_500
236 , p6_a34 JTF_VARCHAR2_TABLE_500
237 , p6_a35 JTF_NUMBER_TABLE
238 , p6_a36 JTF_DATE_TABLE
239 , p6_a37 JTF_NUMBER_TABLE
240 , p6_a38 JTF_DATE_TABLE
241 , p6_a39 JTF_NUMBER_TABLE
242 , p6_a40 JTF_VARCHAR2_TABLE_100
243 , p6_a41 JTF_VARCHAR2_TABLE_500
244 , p6_a42 JTF_VARCHAR2_TABLE_500
245 , p6_a43 JTF_VARCHAR2_TABLE_500
246 , p6_a44 JTF_VARCHAR2_TABLE_500
247 , p6_a45 JTF_VARCHAR2_TABLE_500
248 , p6_a46 JTF_VARCHAR2_TABLE_500
249 , p6_a47 JTF_VARCHAR2_TABLE_500
250 , p6_a48 JTF_VARCHAR2_TABLE_500
251 , p6_a49 JTF_VARCHAR2_TABLE_500
252 , p6_a50 JTF_VARCHAR2_TABLE_500
253 , p6_a51 JTF_VARCHAR2_TABLE_500
254 , p6_a52 JTF_VARCHAR2_TABLE_500
255 , p6_a53 JTF_VARCHAR2_TABLE_500
256 , p6_a54 JTF_VARCHAR2_TABLE_500
257 , p6_a55 JTF_VARCHAR2_TABLE_500
258 , p6_a56 JTF_VARCHAR2_TABLE_100
259 , p6_a57 JTF_VARCHAR2_TABLE_100
260 , p6_a58 JTF_VARCHAR2_TABLE_100
261 , p6_a59 JTF_VARCHAR2_TABLE_100
262 , p6_a60 JTF_NUMBER_TABLE
263 , p7_a0 out nocopy JTF_NUMBER_TABLE
264 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_100
265 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_100
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
275 -- copy data to the local IN or IN-OUT args, if any
276
277
278
279
280
281
282 okl_rgrp_rules_process_pvt_w.rosetta_table_copy_in_p2(ddp_rgr_tbl, p6_a0
283 , p6_a1
284 , p6_a2
285 , p6_a3
286 , p6_a4
287 , p6_a5
288 , p6_a6
289 , p6_a7
290 , p6_a8
291 , p6_a9
292 , p6_a10
293 , p6_a11
294 , p6_a12
295 , p6_a13
296 , p6_a14
297 , p6_a15
298 , p6_a16
299 , p6_a17
300 , p6_a18
301 , p6_a19
302 , p6_a20
303 , p6_a21
304 , p6_a22
305 , p6_a23
306 , p6_a24
307 , p6_a25
308 , p6_a26
309 , p6_a27
310 , p6_a28
311 , p6_a29
312 , p6_a30
313 , p6_a31
314 , p6_a32
315 , p6_a33
316 , p6_a34
317 , p6_a35
318 , p6_a36
319 , p6_a37
320 , p6_a38
321 , p6_a39
322 , p6_a40
323 , p6_a41
324 , p6_a42
325 , p6_a43
326 , p6_a44
327 , p6_a45
328 , p6_a46
329 , p6_a47
330 , p6_a48
331 , p6_a49
332 , p6_a50
333 , p6_a51
334 , p6_a52
335 , p6_a53
336 , p6_a54
337 , p6_a55
338 , p6_a56
339 , p6_a57
340 , p6_a58
341 , p6_a59
342 , p6_a60
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,
352 p_id,
353 ddp_rgr_tbl,
354 ddx_rgr_tbl);
355
356 -- copy data back from the local variables to OUT or IN-OUT args, if any
357
358
359
360
361
362
363
364 okl_rgrp_rules_process_pvt_w.rosetta_table_copy_out_p3(ddx_rgr_tbl, p7_a0
365 , p7_a1
366 , p7_a2
367 , p7_a3
368 );
369 end;
370
371 end okl_rgrp_rules_process_pub_w;