[Home] [Help]
PACKAGE BODY: APPS.OKL_RULE_APIS_PUB_W
Source
1 package body okl_rule_apis_pub_w as
2 /* $Header: OKLURAPB.pls 120.2 2005/08/03 05:50:33 asawanka 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_contract_rgs(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_chr_id NUMBER
25 , p_cle_id NUMBER
26 , p_rgd_code VARCHAR2
27 , x_return_status out nocopy VARCHAR2
28 , x_msg_count out nocopy NUMBER
29 , x_msg_data out nocopy VARCHAR2
30 , p8_a0 out nocopy JTF_NUMBER_TABLE
31 , p8_a1 out nocopy JTF_NUMBER_TABLE
32 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
33 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_100
34 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
35 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
36 , p8_a6 out nocopy JTF_NUMBER_TABLE
37 , p8_a7 out nocopy JTF_NUMBER_TABLE
38 , p8_a8 out nocopy JTF_NUMBER_TABLE
39 , p8_a9 out nocopy JTF_NUMBER_TABLE
40 , p8_a10 out nocopy JTF_VARCHAR2_TABLE_2000
41 , p8_a11 out nocopy JTF_VARCHAR2_TABLE_100
42 , p8_a12 out nocopy JTF_VARCHAR2_TABLE_500
43 , p8_a13 out nocopy JTF_VARCHAR2_TABLE_500
44 , p8_a14 out nocopy JTF_VARCHAR2_TABLE_500
45 , p8_a15 out nocopy JTF_VARCHAR2_TABLE_500
46 , p8_a16 out nocopy JTF_VARCHAR2_TABLE_500
47 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_500
48 , p8_a18 out nocopy JTF_VARCHAR2_TABLE_500
49 , p8_a19 out nocopy JTF_VARCHAR2_TABLE_500
50 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_500
51 , p8_a21 out nocopy JTF_VARCHAR2_TABLE_500
52 , p8_a22 out nocopy JTF_VARCHAR2_TABLE_500
53 , p8_a23 out nocopy JTF_VARCHAR2_TABLE_500
54 , p8_a24 out nocopy JTF_VARCHAR2_TABLE_500
55 , p8_a25 out nocopy JTF_VARCHAR2_TABLE_500
56 , p8_a26 out nocopy JTF_VARCHAR2_TABLE_500
57 , p8_a27 out nocopy JTF_NUMBER_TABLE
58 , p8_a28 out nocopy JTF_DATE_TABLE
59 , p8_a29 out nocopy JTF_NUMBER_TABLE
60 , p8_a30 out nocopy JTF_DATE_TABLE
61 , p8_a31 out nocopy JTF_NUMBER_TABLE
62 , x_rg_count out nocopy NUMBER
63 )
64
65 as
66 ddx_rgpv_tbl okl_rule_apis_pub.rgpv_tbl_type;
67 ddindx binary_integer; indx binary_integer;
68 begin
69
70 -- copy data to the local IN or IN-OUT args, if any
71
72
73
74
75
76
77
78
79
80
81 -- here's the delegated call to the old PL/SQL routine
82 okl_rule_apis_pub.get_contract_rgs(p_api_version,
83 p_init_msg_list,
84 p_chr_id,
85 p_cle_id,
86 p_rgd_code,
87 x_return_status,
88 x_msg_count,
89 x_msg_data,
90 ddx_rgpv_tbl,
91 x_rg_count);
92
93 -- copy data back from the local variables to OUT or IN-OUT args, if any
94
95
96
97
98
99
100
101
102 okl_okc_migration_pvt_w.rosetta_table_copy_out_p13(ddx_rgpv_tbl, p8_a0
103 , p8_a1
104 , p8_a2
105 , p8_a3
106 , p8_a4
107 , p8_a5
108 , p8_a6
109 , p8_a7
110 , p8_a8
111 , p8_a9
112 , p8_a10
113 , p8_a11
114 , p8_a12
115 , p8_a13
116 , p8_a14
117 , p8_a15
118 , p8_a16
119 , p8_a17
120 , p8_a18
121 , p8_a19
122 , p8_a20
123 , p8_a21
124 , p8_a22
125 , p8_a23
126 , p8_a24
127 , p8_a25
128 , p8_a26
129 , p8_a27
130 , p8_a28
131 , p8_a29
132 , p8_a30
133 , p8_a31
134 );
135
136 end;
137
138 procedure get_contract_rules(p_api_version NUMBER
139 , p_init_msg_list VARCHAR2
140 , p_rdf_code VARCHAR2
141 , x_return_status out nocopy VARCHAR2
142 , x_msg_count out nocopy NUMBER
143 , x_msg_data out nocopy VARCHAR2
144 , p7_a0 out nocopy JTF_NUMBER_TABLE
145 , p7_a1 out nocopy JTF_NUMBER_TABLE
146 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_100
147 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
148 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
149 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_100
150 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_200
151 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_200
152 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_200
153 , p7_a9 out nocopy JTF_VARCHAR2_TABLE_100
154 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_100
155 , p7_a11 out nocopy JTF_VARCHAR2_TABLE_100
156 , p7_a12 out nocopy JTF_NUMBER_TABLE
157 , p7_a13 out nocopy JTF_NUMBER_TABLE
158 , p7_a14 out nocopy JTF_NUMBER_TABLE
159 , p7_a15 out nocopy JTF_VARCHAR2_TABLE_100
160 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_2000
161 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_100
162 , p7_a18 out nocopy JTF_VARCHAR2_TABLE_100
163 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_500
164 , p7_a20 out nocopy JTF_VARCHAR2_TABLE_500
165 , p7_a21 out nocopy JTF_VARCHAR2_TABLE_500
166 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_500
167 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_500
168 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_500
169 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_500
170 , p7_a26 out nocopy JTF_VARCHAR2_TABLE_500
171 , p7_a27 out nocopy JTF_VARCHAR2_TABLE_500
172 , p7_a28 out nocopy JTF_VARCHAR2_TABLE_500
173 , p7_a29 out nocopy JTF_VARCHAR2_TABLE_500
174 , p7_a30 out nocopy JTF_VARCHAR2_TABLE_500
175 , p7_a31 out nocopy JTF_VARCHAR2_TABLE_500
176 , p7_a32 out nocopy JTF_VARCHAR2_TABLE_500
177 , p7_a33 out nocopy JTF_VARCHAR2_TABLE_500
178 , p7_a34 out nocopy JTF_NUMBER_TABLE
179 , p7_a35 out nocopy JTF_DATE_TABLE
180 , p7_a36 out nocopy JTF_NUMBER_TABLE
181 , p7_a37 out nocopy JTF_DATE_TABLE
182 , p7_a38 out nocopy JTF_NUMBER_TABLE
183 , p7_a39 out nocopy JTF_VARCHAR2_TABLE_100
184 , p7_a40 out nocopy JTF_VARCHAR2_TABLE_500
185 , p7_a41 out nocopy JTF_VARCHAR2_TABLE_500
186 , p7_a42 out nocopy JTF_VARCHAR2_TABLE_500
187 , p7_a43 out nocopy JTF_VARCHAR2_TABLE_500
188 , p7_a44 out nocopy JTF_VARCHAR2_TABLE_500
189 , p7_a45 out nocopy JTF_VARCHAR2_TABLE_500
190 , p7_a46 out nocopy JTF_VARCHAR2_TABLE_500
191 , p7_a47 out nocopy JTF_VARCHAR2_TABLE_500
192 , p7_a48 out nocopy JTF_VARCHAR2_TABLE_500
193 , p7_a49 out nocopy JTF_VARCHAR2_TABLE_500
194 , p7_a50 out nocopy JTF_VARCHAR2_TABLE_500
195 , p7_a51 out nocopy JTF_VARCHAR2_TABLE_500
196 , p7_a52 out nocopy JTF_VARCHAR2_TABLE_500
197 , p7_a53 out nocopy JTF_VARCHAR2_TABLE_500
198 , p7_a54 out nocopy JTF_VARCHAR2_TABLE_500
199 , p7_a55 out nocopy JTF_VARCHAR2_TABLE_100
200 , p7_a56 out nocopy JTF_VARCHAR2_TABLE_100
201 , p7_a57 out nocopy JTF_VARCHAR2_TABLE_100
202 , p7_a58 out nocopy JTF_VARCHAR2_TABLE_100
203 , p7_a59 out nocopy JTF_NUMBER_TABLE
204 , x_rule_count out nocopy NUMBER
205 , p2_a0 NUMBER := 0-1962.0724
206 , p2_a1 NUMBER := 0-1962.0724
207 , p2_a2 VARCHAR2 := fnd_api.g_miss_char
208 , p2_a3 VARCHAR2 := fnd_api.g_miss_char
209 , p2_a4 VARCHAR2 := fnd_api.g_miss_char
210 , p2_a5 VARCHAR2 := fnd_api.g_miss_char
211 , p2_a6 NUMBER := 0-1962.0724
212 , p2_a7 NUMBER := 0-1962.0724
213 , p2_a8 NUMBER := 0-1962.0724
214 , p2_a9 NUMBER := 0-1962.0724
215 , p2_a10 VARCHAR2 := fnd_api.g_miss_char
216 , p2_a11 VARCHAR2 := fnd_api.g_miss_char
217 , p2_a12 VARCHAR2 := fnd_api.g_miss_char
218 , p2_a13 VARCHAR2 := fnd_api.g_miss_char
219 , p2_a14 VARCHAR2 := fnd_api.g_miss_char
220 , p2_a15 VARCHAR2 := fnd_api.g_miss_char
221 , p2_a16 VARCHAR2 := fnd_api.g_miss_char
222 , p2_a17 VARCHAR2 := fnd_api.g_miss_char
223 , p2_a18 VARCHAR2 := fnd_api.g_miss_char
224 , p2_a19 VARCHAR2 := fnd_api.g_miss_char
225 , p2_a20 VARCHAR2 := fnd_api.g_miss_char
226 , p2_a21 VARCHAR2 := fnd_api.g_miss_char
227 , p2_a22 VARCHAR2 := fnd_api.g_miss_char
228 , p2_a23 VARCHAR2 := fnd_api.g_miss_char
229 , p2_a24 VARCHAR2 := fnd_api.g_miss_char
230 , p2_a25 VARCHAR2 := fnd_api.g_miss_char
231 , p2_a26 VARCHAR2 := fnd_api.g_miss_char
232 , p2_a27 NUMBER := 0-1962.0724
233 , p2_a28 DATE := fnd_api.g_miss_date
234 , p2_a29 NUMBER := 0-1962.0724
235 , p2_a30 DATE := fnd_api.g_miss_date
236 , p2_a31 NUMBER := 0-1962.0724
237 )
238
239 as
240 ddp_rgpv_rec okl_rule_apis_pub.rgpv_rec_type;
241 ddx_rulv_tbl okl_rule_apis_pub.rulv_tbl_type;
242 ddindx binary_integer; indx binary_integer;
243 begin
244
245 -- copy data to the local IN or IN-OUT args, if any
246
247
248 ddp_rgpv_rec.id := rosetta_g_miss_num_map(p2_a0);
249 ddp_rgpv_rec.object_version_number := rosetta_g_miss_num_map(p2_a1);
250 ddp_rgpv_rec.sfwt_flag := p2_a2;
251 ddp_rgpv_rec.rgd_code := p2_a3;
252 ddp_rgpv_rec.sat_code := p2_a4;
253 ddp_rgpv_rec.rgp_type := p2_a5;
254 ddp_rgpv_rec.cle_id := rosetta_g_miss_num_map(p2_a6);
255 ddp_rgpv_rec.chr_id := rosetta_g_miss_num_map(p2_a7);
256 ddp_rgpv_rec.dnz_chr_id := rosetta_g_miss_num_map(p2_a8);
257 ddp_rgpv_rec.parent_rgp_id := rosetta_g_miss_num_map(p2_a9);
258 ddp_rgpv_rec.comments := p2_a10;
259 ddp_rgpv_rec.attribute_category := p2_a11;
260 ddp_rgpv_rec.attribute1 := p2_a12;
261 ddp_rgpv_rec.attribute2 := p2_a13;
262 ddp_rgpv_rec.attribute3 := p2_a14;
263 ddp_rgpv_rec.attribute4 := p2_a15;
264 ddp_rgpv_rec.attribute5 := p2_a16;
265 ddp_rgpv_rec.attribute6 := p2_a17;
266 ddp_rgpv_rec.attribute7 := p2_a18;
267 ddp_rgpv_rec.attribute8 := p2_a19;
268 ddp_rgpv_rec.attribute9 := p2_a20;
269 ddp_rgpv_rec.attribute10 := p2_a21;
270 ddp_rgpv_rec.attribute11 := p2_a22;
271 ddp_rgpv_rec.attribute12 := p2_a23;
272 ddp_rgpv_rec.attribute13 := p2_a24;
273 ddp_rgpv_rec.attribute14 := p2_a25;
274 ddp_rgpv_rec.attribute15 := p2_a26;
275 ddp_rgpv_rec.created_by := rosetta_g_miss_num_map(p2_a27);
276 ddp_rgpv_rec.creation_date := rosetta_g_miss_date_in_map(p2_a28);
277 ddp_rgpv_rec.last_updated_by := rosetta_g_miss_num_map(p2_a29);
278 ddp_rgpv_rec.last_update_date := rosetta_g_miss_date_in_map(p2_a30);
279 ddp_rgpv_rec.last_update_login := rosetta_g_miss_num_map(p2_a31);
280
281
282
283
284
285
286
287 -- here's the delegated call to the old PL/SQL routine
288 okl_rule_apis_pub.get_contract_rules(p_api_version,
289 p_init_msg_list,
290 ddp_rgpv_rec,
291 p_rdf_code,
292 x_return_status,
293 x_msg_count,
294 x_msg_data,
295 ddx_rulv_tbl,
296 x_rule_count);
297
298 -- copy data back from the local variables to OUT or IN-OUT args, if any
299
300
301
302
303
304
305
306 okl_rule_pub_w.rosetta_table_copy_out_p2(ddx_rulv_tbl, p7_a0
307 , p7_a1
308 , p7_a2
309 , p7_a3
310 , p7_a4
311 , p7_a5
312 , p7_a6
313 , p7_a7
314 , p7_a8
315 , p7_a9
316 , p7_a10
317 , p7_a11
318 , p7_a12
319 , p7_a13
320 , p7_a14
321 , p7_a15
322 , p7_a16
323 , p7_a17
324 , p7_a18
325 , p7_a19
326 , p7_a20
327 , p7_a21
328 , p7_a22
329 , p7_a23
330 , p7_a24
331 , p7_a25
332 , p7_a26
333 , p7_a27
334 , p7_a28
335 , p7_a29
336 , p7_a30
337 , p7_a31
338 , p7_a32
339 , p7_a33
340 , p7_a34
341 , p7_a35
342 , p7_a36
343 , p7_a37
344 , p7_a38
345 , p7_a39
346 , p7_a40
347 , p7_a41
348 , p7_a42
349 , p7_a43
350 , p7_a44
351 , p7_a45
352 , p7_a46
353 , p7_a47
354 , p7_a48
355 , p7_a49
356 , p7_a50
357 , p7_a51
358 , p7_a52
359 , p7_a53
360 , p7_a54
361 , p7_a55
362 , p7_a56
363 , p7_a57
364 , p7_a58
365 , p7_a59
366 );
367
368 end;
369
370 procedure get_rule_disp_value(p_api_version NUMBER
371 , p_init_msg_list VARCHAR2
372 , x_return_status out nocopy VARCHAR2
373 , x_msg_count out nocopy NUMBER
374 , x_msg_data out nocopy VARCHAR2
375 , p6_a0 out nocopy NUMBER
376 , p6_a1 out nocopy VARCHAR2
377 , p6_a2 out nocopy VARCHAR2
378 , p6_a3 out nocopy VARCHAR2
379 , p6_a4 out nocopy VARCHAR2
380 , p6_a5 out nocopy DATE
381 , p6_a6 out nocopy DATE
382 , p6_a7 out nocopy NUMBER
383 , p6_a8 out nocopy NUMBER
384 , p6_a9 out nocopy VARCHAR2
385 , p6_a10 out nocopy VARCHAR2
386 , p6_a11 out nocopy VARCHAR2
387 , p6_a12 out nocopy VARCHAR2
388 , p6_a13 out nocopy VARCHAR2
389 , p6_a14 out nocopy DATE
390 , p6_a15 out nocopy DATE
391 , p6_a16 out nocopy NUMBER
392 , p6_a17 out nocopy NUMBER
393 , p6_a18 out nocopy VARCHAR2
394 , p6_a19 out nocopy VARCHAR2
395 , p6_a20 out nocopy VARCHAR2
396 , p6_a21 out nocopy VARCHAR2
397 , p6_a22 out nocopy VARCHAR2
398 , p6_a23 out nocopy DATE
399 , p6_a24 out nocopy DATE
400 , p6_a25 out nocopy NUMBER
401 , p6_a26 out nocopy NUMBER
402 , p6_a27 out nocopy VARCHAR2
403 , p6_a28 out nocopy VARCHAR2
404 , p6_a29 out nocopy VARCHAR2
405 , p6_a30 out nocopy VARCHAR2
406 , p6_a31 out nocopy VARCHAR2
407 , p6_a32 out nocopy VARCHAR2
408 , p6_a33 out nocopy VARCHAR2
409 , p6_a34 out nocopy VARCHAR2
410 , p6_a35 out nocopy VARCHAR2
411 , p6_a36 out nocopy VARCHAR2
412 , p6_a37 out nocopy VARCHAR2
413 , p6_a38 out nocopy VARCHAR2
414 , p6_a39 out nocopy VARCHAR2
415 , p6_a40 out nocopy VARCHAR2
416 , p6_a41 out nocopy VARCHAR2
417 , p6_a42 out nocopy VARCHAR2
418 , p6_a43 out nocopy VARCHAR2
419 , p6_a44 out nocopy VARCHAR2
420 , p6_a45 out nocopy VARCHAR2
421 , p6_a46 out nocopy VARCHAR2
422 , p6_a47 out nocopy VARCHAR2
423 , p6_a48 out nocopy VARCHAR2
424 , p6_a49 out nocopy VARCHAR2
425 , p6_a50 out nocopy VARCHAR2
426 , p6_a51 out nocopy VARCHAR2
427 , p6_a52 out nocopy VARCHAR2
428 , p6_a53 out nocopy VARCHAR2
429 , p6_a54 out nocopy VARCHAR2
430 , p6_a55 out nocopy VARCHAR2
431 , p6_a56 out nocopy VARCHAR2
432 , p6_a57 out nocopy VARCHAR2
433 , p6_a58 out nocopy VARCHAR2
434 , p2_a0 NUMBER := 0-1962.0724
435 , p2_a1 NUMBER := 0-1962.0724
436 , p2_a2 CHAR := fnd_api.g_miss_char
437 , p2_a3 VARCHAR2 := fnd_api.g_miss_char
438 , p2_a4 VARCHAR2 := fnd_api.g_miss_char
439 , p2_a5 VARCHAR2 := fnd_api.g_miss_char
440 , p2_a6 VARCHAR2 := fnd_api.g_miss_char
441 , p2_a7 VARCHAR2 := fnd_api.g_miss_char
442 , p2_a8 VARCHAR2 := fnd_api.g_miss_char
443 , p2_a9 VARCHAR2 := fnd_api.g_miss_char
444 , p2_a10 VARCHAR2 := fnd_api.g_miss_char
445 , p2_a11 VARCHAR2 := fnd_api.g_miss_char
446 , p2_a12 NUMBER := 0-1962.0724
447 , p2_a13 NUMBER := 0-1962.0724
448 , p2_a14 NUMBER := 0-1962.0724
449 , p2_a15 VARCHAR2 := fnd_api.g_miss_char
450 , p2_a16 VARCHAR2 := fnd_api.g_miss_char
451 , p2_a17 VARCHAR2 := fnd_api.g_miss_char
452 , p2_a18 VARCHAR2 := fnd_api.g_miss_char
453 , p2_a19 VARCHAR2 := fnd_api.g_miss_char
454 , p2_a20 VARCHAR2 := fnd_api.g_miss_char
455 , p2_a21 VARCHAR2 := fnd_api.g_miss_char
456 , p2_a22 VARCHAR2 := fnd_api.g_miss_char
457 , p2_a23 VARCHAR2 := fnd_api.g_miss_char
458 , p2_a24 VARCHAR2 := fnd_api.g_miss_char
459 , p2_a25 VARCHAR2 := fnd_api.g_miss_char
460 , p2_a26 VARCHAR2 := fnd_api.g_miss_char
461 , p2_a27 VARCHAR2 := fnd_api.g_miss_char
462 , p2_a28 VARCHAR2 := fnd_api.g_miss_char
463 , p2_a29 VARCHAR2 := fnd_api.g_miss_char
464 , p2_a30 VARCHAR2 := fnd_api.g_miss_char
465 , p2_a31 VARCHAR2 := fnd_api.g_miss_char
466 , p2_a32 VARCHAR2 := fnd_api.g_miss_char
467 , p2_a33 VARCHAR2 := fnd_api.g_miss_char
468 , p2_a34 NUMBER := 0-1962.0724
469 , p2_a35 DATE := fnd_api.g_miss_date
470 , p2_a36 NUMBER := 0-1962.0724
471 , p2_a37 DATE := fnd_api.g_miss_date
472 , p2_a38 NUMBER := 0-1962.0724
473 , p2_a39 VARCHAR2 := fnd_api.g_miss_char
474 , p2_a40 VARCHAR2 := fnd_api.g_miss_char
475 , p2_a41 VARCHAR2 := fnd_api.g_miss_char
476 , p2_a42 VARCHAR2 := fnd_api.g_miss_char
477 , p2_a43 VARCHAR2 := fnd_api.g_miss_char
478 , p2_a44 VARCHAR2 := fnd_api.g_miss_char
479 , p2_a45 VARCHAR2 := fnd_api.g_miss_char
480 , p2_a46 VARCHAR2 := fnd_api.g_miss_char
481 , p2_a47 VARCHAR2 := fnd_api.g_miss_char
482 , p2_a48 VARCHAR2 := fnd_api.g_miss_char
483 , p2_a49 VARCHAR2 := fnd_api.g_miss_char
484 , p2_a50 VARCHAR2 := fnd_api.g_miss_char
485 , p2_a51 VARCHAR2 := fnd_api.g_miss_char
486 , p2_a52 VARCHAR2 := fnd_api.g_miss_char
487 , p2_a53 VARCHAR2 := fnd_api.g_miss_char
488 , p2_a54 VARCHAR2 := fnd_api.g_miss_char
489 , p2_a55 VARCHAR2 := fnd_api.g_miss_char
490 , p2_a56 VARCHAR2 := fnd_api.g_miss_char
491 , p2_a57 VARCHAR2 := fnd_api.g_miss_char
492 , p2_a58 VARCHAR2 := fnd_api.g_miss_char
493 , p2_a59 NUMBER := 0-1962.0724
494 )
495
496 as
497 ddp_rulv_rec okl_rule_apis_pub.rulv_rec_type;
498 ddx_rulv_disp_rec okl_rule_apis_pub.rulv_disp_rec_type;
499 ddindx binary_integer; indx binary_integer;
500 begin
501
502 -- copy data to the local IN or IN-OUT args, if any
503
504
505 ddp_rulv_rec.id := rosetta_g_miss_num_map(p2_a0);
506 ddp_rulv_rec.object_version_number := rosetta_g_miss_num_map(p2_a1);
507 ddp_rulv_rec.sfwt_flag := p2_a2;
508 ddp_rulv_rec.object1_id1 := p2_a3;
509 ddp_rulv_rec.object2_id1 := p2_a4;
510 ddp_rulv_rec.object3_id1 := p2_a5;
511 ddp_rulv_rec.object1_id2 := p2_a6;
512 ddp_rulv_rec.object2_id2 := p2_a7;
513 ddp_rulv_rec.object3_id2 := p2_a8;
514 ddp_rulv_rec.jtot_object1_code := p2_a9;
515 ddp_rulv_rec.jtot_object2_code := p2_a10;
516 ddp_rulv_rec.jtot_object3_code := p2_a11;
517 ddp_rulv_rec.dnz_chr_id := rosetta_g_miss_num_map(p2_a12);
518 ddp_rulv_rec.rgp_id := rosetta_g_miss_num_map(p2_a13);
519 ddp_rulv_rec.priority := rosetta_g_miss_num_map(p2_a14);
520 ddp_rulv_rec.std_template_yn := p2_a15;
521 ddp_rulv_rec.comments := p2_a16;
522 ddp_rulv_rec.warn_yn := p2_a17;
523 ddp_rulv_rec.attribute_category := p2_a18;
524 ddp_rulv_rec.attribute1 := p2_a19;
525 ddp_rulv_rec.attribute2 := p2_a20;
526 ddp_rulv_rec.attribute3 := p2_a21;
527 ddp_rulv_rec.attribute4 := p2_a22;
528 ddp_rulv_rec.attribute5 := p2_a23;
529 ddp_rulv_rec.attribute6 := p2_a24;
530 ddp_rulv_rec.attribute7 := p2_a25;
531 ddp_rulv_rec.attribute8 := p2_a26;
532 ddp_rulv_rec.attribute9 := p2_a27;
533 ddp_rulv_rec.attribute10 := p2_a28;
534 ddp_rulv_rec.attribute11 := p2_a29;
535 ddp_rulv_rec.attribute12 := p2_a30;
536 ddp_rulv_rec.attribute13 := p2_a31;
537 ddp_rulv_rec.attribute14 := p2_a32;
538 ddp_rulv_rec.attribute15 := p2_a33;
539 ddp_rulv_rec.created_by := rosetta_g_miss_num_map(p2_a34);
540 ddp_rulv_rec.creation_date := rosetta_g_miss_date_in_map(p2_a35);
541 ddp_rulv_rec.last_updated_by := rosetta_g_miss_num_map(p2_a36);
542 ddp_rulv_rec.last_update_date := rosetta_g_miss_date_in_map(p2_a37);
543 ddp_rulv_rec.last_update_login := rosetta_g_miss_num_map(p2_a38);
544 ddp_rulv_rec.rule_information_category := p2_a39;
545 ddp_rulv_rec.rule_information1 := p2_a40;
546 ddp_rulv_rec.rule_information2 := p2_a41;
547 ddp_rulv_rec.rule_information3 := p2_a42;
548 ddp_rulv_rec.rule_information4 := p2_a43;
549 ddp_rulv_rec.rule_information5 := p2_a44;
550 ddp_rulv_rec.rule_information6 := p2_a45;
551 ddp_rulv_rec.rule_information7 := p2_a46;
552 ddp_rulv_rec.rule_information8 := p2_a47;
553 ddp_rulv_rec.rule_information9 := p2_a48;
554 ddp_rulv_rec.rule_information10 := p2_a49;
555 ddp_rulv_rec.rule_information11 := p2_a50;
556 ddp_rulv_rec.rule_information12 := p2_a51;
557 ddp_rulv_rec.rule_information13 := p2_a52;
558 ddp_rulv_rec.rule_information14 := p2_a53;
559 ddp_rulv_rec.rule_information15 := p2_a54;
560 ddp_rulv_rec.template_yn := p2_a55;
561 ddp_rulv_rec.ans_set_jtot_object_code := p2_a56;
562 ddp_rulv_rec.ans_set_jtot_object_id1 := p2_a57;
563 ddp_rulv_rec.ans_set_jtot_object_id2 := p2_a58;
564 ddp_rulv_rec.display_sequence := rosetta_g_miss_num_map(p2_a59);
565
566
567
568
569
570 -- here's the delegated call to the old PL/SQL routine
571 okl_rule_apis_pub.get_rule_disp_value(p_api_version,
572 p_init_msg_list,
573 ddp_rulv_rec,
574 x_return_status,
575 x_msg_count,
576 x_msg_data,
577 ddx_rulv_disp_rec);
578
579 -- copy data back from the local variables to OUT or IN-OUT args, if any
580
581
582
583
584
585
586 p6_a0 := rosetta_g_miss_num_map(ddx_rulv_disp_rec.id);
587 p6_a1 := ddx_rulv_disp_rec.rdf_code;
588 p6_a2 := ddx_rulv_disp_rec.obj1_name;
589 p6_a3 := ddx_rulv_disp_rec.obj1_descr;
590 p6_a4 := ddx_rulv_disp_rec.obj1_status;
591 p6_a5 := ddx_rulv_disp_rec.obj1_start_date;
592 p6_a6 := ddx_rulv_disp_rec.obj1_end_date;
593 p6_a7 := rosetta_g_miss_num_map(ddx_rulv_disp_rec.obj1_org_id);
594 p6_a8 := rosetta_g_miss_num_map(ddx_rulv_disp_rec.obj1_inv_org_id);
595 p6_a9 := ddx_rulv_disp_rec.obj1_book_type_code;
596 p6_a10 := ddx_rulv_disp_rec.obj1_select;
597 p6_a11 := ddx_rulv_disp_rec.obj2_name;
598 p6_a12 := ddx_rulv_disp_rec.obj2_descr;
599 p6_a13 := ddx_rulv_disp_rec.obj2_status;
600 p6_a14 := ddx_rulv_disp_rec.obj2_start_date;
601 p6_a15 := ddx_rulv_disp_rec.obj2_end_date;
602 p6_a16 := rosetta_g_miss_num_map(ddx_rulv_disp_rec.obj2_org_id);
603 p6_a17 := rosetta_g_miss_num_map(ddx_rulv_disp_rec.obj2_inv_org_id);
604 p6_a18 := ddx_rulv_disp_rec.obj2_book_type_code;
605 p6_a19 := ddx_rulv_disp_rec.obj2_select;
606 p6_a20 := ddx_rulv_disp_rec.obj3_name;
607 p6_a21 := ddx_rulv_disp_rec.obj3_descr;
608 p6_a22 := ddx_rulv_disp_rec.obj3_status;
609 p6_a23 := ddx_rulv_disp_rec.obj3_start_date;
610 p6_a24 := ddx_rulv_disp_rec.obj3_end_date;
611 p6_a25 := rosetta_g_miss_num_map(ddx_rulv_disp_rec.obj3_org_id);
612 p6_a26 := rosetta_g_miss_num_map(ddx_rulv_disp_rec.obj3_inv_org_id);
613 p6_a27 := ddx_rulv_disp_rec.obj3_book_type_code;
614 p6_a28 := ddx_rulv_disp_rec.obj3_select;
615 p6_a29 := ddx_rulv_disp_rec.rul_info1_name;
616 p6_a30 := ddx_rulv_disp_rec.rul_info1_select;
617 p6_a31 := ddx_rulv_disp_rec.rul_info2_name;
618 p6_a32 := ddx_rulv_disp_rec.rul_info2_select;
619 p6_a33 := ddx_rulv_disp_rec.rul_info3_name;
620 p6_a34 := ddx_rulv_disp_rec.rul_info3_select;
621 p6_a35 := ddx_rulv_disp_rec.rul_info4_name;
622 p6_a36 := ddx_rulv_disp_rec.rul_info4_select;
623 p6_a37 := ddx_rulv_disp_rec.rul_info5_name;
624 p6_a38 := ddx_rulv_disp_rec.rul_info5_select;
625 p6_a39 := ddx_rulv_disp_rec.rul_info6_name;
626 p6_a40 := ddx_rulv_disp_rec.rul_info6_select;
627 p6_a41 := ddx_rulv_disp_rec.rul_info7_name;
628 p6_a42 := ddx_rulv_disp_rec.rul_info7_select;
629 p6_a43 := ddx_rulv_disp_rec.rul_info8_name;
630 p6_a44 := ddx_rulv_disp_rec.rul_info8_select;
631 p6_a45 := ddx_rulv_disp_rec.rul_info9_name;
632 p6_a46 := ddx_rulv_disp_rec.rul_info9_select;
633 p6_a47 := ddx_rulv_disp_rec.rul_info10_name;
634 p6_a48 := ddx_rulv_disp_rec.rul_info10_select;
635 p6_a49 := ddx_rulv_disp_rec.rul_info11_name;
636 p6_a50 := ddx_rulv_disp_rec.rul_info11_select;
637 p6_a51 := ddx_rulv_disp_rec.rul_info12_name;
638 p6_a52 := ddx_rulv_disp_rec.rul_info12_select;
639 p6_a53 := ddx_rulv_disp_rec.rul_info13_name;
640 p6_a54 := ddx_rulv_disp_rec.rul_info13_select;
641 p6_a55 := ddx_rulv_disp_rec.rul_info14_name;
642 p6_a56 := ddx_rulv_disp_rec.rul_info14_select;
643 p6_a57 := ddx_rulv_disp_rec.rul_info15_name;
644 p6_a58 := ddx_rulv_disp_rec.rul_info15_select;
645 end;
646
647 end okl_rule_apis_pub_w;