[Home] [Help]
PACKAGE BODY: APPS.OKL_FUNDING_CHECKLIST_PVT_W
Source
1 package body okl_funding_checklist_pvt_w as
2 /* $Header: OKLECLFB.pls 115.1 2003/02/27 00:56:21 cklee 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 rosetta_table_copy_in_p14(t out nocopy okl_funding_checklist_pvt.rulv_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_VARCHAR2_TABLE_100
24 , a2 JTF_VARCHAR2_TABLE_200
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_VARCHAR2_TABLE_100
28 , a6 JTF_VARCHAR2_TABLE_500
29 , a7 JTF_VARCHAR2_TABLE_500
30 , a8 JTF_VARCHAR2_TABLE_500
31 , a9 JTF_VARCHAR2_TABLE_500
32 , a10 JTF_VARCHAR2_TABLE_500
33 , a11 JTF_VARCHAR2_TABLE_500
34 , a12 JTF_VARCHAR2_TABLE_500
35 , a13 JTF_VARCHAR2_TABLE_500
36 , a14 JTF_VARCHAR2_TABLE_500
37 , a15 JTF_VARCHAR2_TABLE_500
38 , a16 JTF_VARCHAR2_TABLE_500
39 , a17 JTF_VARCHAR2_TABLE_500
40 , a18 JTF_VARCHAR2_TABLE_500
41 , a19 JTF_VARCHAR2_TABLE_500
42 , a20 JTF_VARCHAR2_TABLE_500
43 , a21 JTF_NUMBER_TABLE
44 ) as
45 ddindx binary_integer; indx binary_integer;
46 begin
47 if a0 is not null and a0.count > 0 then
48 if a0.count > 0 then
49 indx := a0.first;
50 ddindx := 1;
51 while true loop
52 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
53 t(ddindx).object1_id1 := a1(indx);
54 t(ddindx).object1_id2 := a2(indx);
55 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a3(indx));
56 t(ddindx).rgp_id := rosetta_g_miss_num_map(a4(indx));
57 t(ddindx).rule_information_category := a5(indx);
58 t(ddindx).rule_information1 := a6(indx);
59 t(ddindx).rule_information2 := a7(indx);
60 t(ddindx).rule_information3 := a8(indx);
61 t(ddindx).rule_information4 := a9(indx);
62 t(ddindx).rule_information5 := a10(indx);
63 t(ddindx).rule_information6 := a11(indx);
64 t(ddindx).rule_information7 := a12(indx);
65 t(ddindx).rule_information8 := a13(indx);
66 t(ddindx).rule_information9 := a14(indx);
67 t(ddindx).rule_information10 := a15(indx);
68 t(ddindx).rule_information11 := a16(indx);
69 t(ddindx).rule_information12 := a17(indx);
70 t(ddindx).rule_information13 := a18(indx);
71 t(ddindx).rule_information14 := a19(indx);
72 t(ddindx).rule_information15 := a20(indx);
73 t(ddindx).display_sequence := rosetta_g_miss_num_map(a21(indx));
74 ddindx := ddindx+1;
75 if a0.last =indx
76 then exit;
77 end if;
78 indx := a0.next(indx);
79 end loop;
80 end if;
81 end if;
82 end rosetta_table_copy_in_p14;
83 procedure rosetta_table_copy_out_p14(t okl_funding_checklist_pvt.rulv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
84 , a1 out nocopy JTF_VARCHAR2_TABLE_100
85 , a2 out nocopy JTF_VARCHAR2_TABLE_200
86 , a3 out nocopy JTF_NUMBER_TABLE
87 , a4 out nocopy JTF_NUMBER_TABLE
88 , a5 out nocopy JTF_VARCHAR2_TABLE_100
89 , a6 out nocopy JTF_VARCHAR2_TABLE_500
90 , a7 out nocopy JTF_VARCHAR2_TABLE_500
91 , a8 out nocopy JTF_VARCHAR2_TABLE_500
92 , a9 out nocopy JTF_VARCHAR2_TABLE_500
93 , a10 out nocopy JTF_VARCHAR2_TABLE_500
94 , a11 out nocopy JTF_VARCHAR2_TABLE_500
95 , a12 out nocopy JTF_VARCHAR2_TABLE_500
96 , a13 out nocopy JTF_VARCHAR2_TABLE_500
97 , a14 out nocopy JTF_VARCHAR2_TABLE_500
98 , a15 out nocopy JTF_VARCHAR2_TABLE_500
99 , a16 out nocopy JTF_VARCHAR2_TABLE_500
100 , a17 out nocopy JTF_VARCHAR2_TABLE_500
101 , a18 out nocopy JTF_VARCHAR2_TABLE_500
102 , a19 out nocopy JTF_VARCHAR2_TABLE_500
103 , a20 out nocopy JTF_VARCHAR2_TABLE_500
104 , a21 out nocopy JTF_NUMBER_TABLE
105 ) as
106 ddindx binary_integer; indx binary_integer;
107 begin
108 if t is null or t.count = 0 then
109 a0 := JTF_NUMBER_TABLE();
110 a1 := JTF_VARCHAR2_TABLE_100();
111 a2 := JTF_VARCHAR2_TABLE_200();
112 a3 := JTF_NUMBER_TABLE();
113 a4 := JTF_NUMBER_TABLE();
114 a5 := JTF_VARCHAR2_TABLE_100();
115 a6 := JTF_VARCHAR2_TABLE_500();
116 a7 := JTF_VARCHAR2_TABLE_500();
117 a8 := JTF_VARCHAR2_TABLE_500();
118 a9 := JTF_VARCHAR2_TABLE_500();
119 a10 := JTF_VARCHAR2_TABLE_500();
120 a11 := JTF_VARCHAR2_TABLE_500();
121 a12 := JTF_VARCHAR2_TABLE_500();
122 a13 := JTF_VARCHAR2_TABLE_500();
123 a14 := JTF_VARCHAR2_TABLE_500();
124 a15 := JTF_VARCHAR2_TABLE_500();
125 a16 := JTF_VARCHAR2_TABLE_500();
126 a17 := JTF_VARCHAR2_TABLE_500();
127 a18 := JTF_VARCHAR2_TABLE_500();
128 a19 := JTF_VARCHAR2_TABLE_500();
129 a20 := JTF_VARCHAR2_TABLE_500();
130 a21 := JTF_NUMBER_TABLE();
131 else
132 a0 := JTF_NUMBER_TABLE();
133 a1 := JTF_VARCHAR2_TABLE_100();
134 a2 := JTF_VARCHAR2_TABLE_200();
135 a3 := JTF_NUMBER_TABLE();
136 a4 := JTF_NUMBER_TABLE();
137 a5 := JTF_VARCHAR2_TABLE_100();
138 a6 := JTF_VARCHAR2_TABLE_500();
139 a7 := JTF_VARCHAR2_TABLE_500();
140 a8 := JTF_VARCHAR2_TABLE_500();
141 a9 := JTF_VARCHAR2_TABLE_500();
142 a10 := JTF_VARCHAR2_TABLE_500();
143 a11 := JTF_VARCHAR2_TABLE_500();
144 a12 := JTF_VARCHAR2_TABLE_500();
145 a13 := JTF_VARCHAR2_TABLE_500();
146 a14 := JTF_VARCHAR2_TABLE_500();
147 a15 := JTF_VARCHAR2_TABLE_500();
148 a16 := JTF_VARCHAR2_TABLE_500();
149 a17 := JTF_VARCHAR2_TABLE_500();
150 a18 := JTF_VARCHAR2_TABLE_500();
151 a19 := JTF_VARCHAR2_TABLE_500();
152 a20 := JTF_VARCHAR2_TABLE_500();
153 a21 := JTF_NUMBER_TABLE();
154 if t.count > 0 then
155 a0.extend(t.count);
156 a1.extend(t.count);
157 a2.extend(t.count);
158 a3.extend(t.count);
159 a4.extend(t.count);
160 a5.extend(t.count);
161 a6.extend(t.count);
162 a7.extend(t.count);
163 a8.extend(t.count);
164 a9.extend(t.count);
165 a10.extend(t.count);
166 a11.extend(t.count);
167 a12.extend(t.count);
168 a13.extend(t.count);
169 a14.extend(t.count);
170 a15.extend(t.count);
171 a16.extend(t.count);
172 a17.extend(t.count);
173 a18.extend(t.count);
174 a19.extend(t.count);
175 a20.extend(t.count);
176 a21.extend(t.count);
177 ddindx := t.first;
178 indx := 1;
179 while true loop
180 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
181 a1(indx) := t(ddindx).object1_id1;
182 a2(indx) := t(ddindx).object1_id2;
183 a3(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
184 a4(indx) := rosetta_g_miss_num_map(t(ddindx).rgp_id);
185 a5(indx) := t(ddindx).rule_information_category;
186 a6(indx) := t(ddindx).rule_information1;
187 a7(indx) := t(ddindx).rule_information2;
188 a8(indx) := t(ddindx).rule_information3;
189 a9(indx) := t(ddindx).rule_information4;
190 a10(indx) := t(ddindx).rule_information5;
191 a11(indx) := t(ddindx).rule_information6;
192 a12(indx) := t(ddindx).rule_information7;
193 a13(indx) := t(ddindx).rule_information8;
194 a14(indx) := t(ddindx).rule_information9;
195 a15(indx) := t(ddindx).rule_information10;
196 a16(indx) := t(ddindx).rule_information11;
197 a17(indx) := t(ddindx).rule_information12;
198 a18(indx) := t(ddindx).rule_information13;
199 a19(indx) := t(ddindx).rule_information14;
200 a20(indx) := t(ddindx).rule_information15;
201 a21(indx) := rosetta_g_miss_num_map(t(ddindx).display_sequence);
202 indx := indx+1;
203 if t.last =ddindx
204 then exit;
205 end if;
206 ddindx := t.next(ddindx);
207 end loop;
208 end if;
209 end if;
210 end rosetta_table_copy_out_p14;
211
212 procedure create_funding_chklst(p_api_version NUMBER
213 , p_init_msg_list VARCHAR2
214 , x_return_status out nocopy VARCHAR2
215 , x_msg_count out nocopy NUMBER
216 , x_msg_data out nocopy VARCHAR2
217 , p5_a0 JTF_NUMBER_TABLE
218 , p5_a1 JTF_VARCHAR2_TABLE_100
219 , p5_a2 JTF_VARCHAR2_TABLE_200
220 , p5_a3 JTF_NUMBER_TABLE
221 , p5_a4 JTF_NUMBER_TABLE
222 , p5_a5 JTF_VARCHAR2_TABLE_100
223 , p5_a6 JTF_VARCHAR2_TABLE_500
224 , p5_a7 JTF_VARCHAR2_TABLE_500
225 , p5_a8 JTF_VARCHAR2_TABLE_500
226 , p5_a9 JTF_VARCHAR2_TABLE_500
227 , p5_a10 JTF_VARCHAR2_TABLE_500
228 , p5_a11 JTF_VARCHAR2_TABLE_500
229 , p5_a12 JTF_VARCHAR2_TABLE_500
230 , p5_a13 JTF_VARCHAR2_TABLE_500
231 , p5_a14 JTF_VARCHAR2_TABLE_500
232 , p5_a15 JTF_VARCHAR2_TABLE_500
233 , p5_a16 JTF_VARCHAR2_TABLE_500
234 , p5_a17 JTF_VARCHAR2_TABLE_500
235 , p5_a18 JTF_VARCHAR2_TABLE_500
236 , p5_a19 JTF_VARCHAR2_TABLE_500
237 , p5_a20 JTF_VARCHAR2_TABLE_500
238 , p5_a21 JTF_NUMBER_TABLE
239 , p6_a0 out nocopy JTF_NUMBER_TABLE
240 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
241 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_200
242 , p6_a3 out nocopy JTF_NUMBER_TABLE
243 , p6_a4 out nocopy JTF_NUMBER_TABLE
244 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
245 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_500
246 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
247 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
248 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
249 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
250 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
251 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
252 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
253 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
254 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
255 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
256 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
257 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
258 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
259 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
260 , p6_a21 out nocopy JTF_NUMBER_TABLE
261 )
262
263 as
264 ddp_rulv_tbl okl_funding_checklist_pvt.rulv_tbl_type;
265 ddx_rulv_tbl okl_funding_checklist_pvt.rulv_tbl_type;
266 ddindx binary_integer; indx binary_integer;
267 begin
268
269 -- copy data to the local IN or IN-OUT args, if any
270
271
272
273
274
275 okl_funding_checklist_pvt_w.rosetta_table_copy_in_p14(ddp_rulv_tbl, p5_a0
276 , p5_a1
277 , p5_a2
278 , p5_a3
279 , p5_a4
280 , p5_a5
281 , p5_a6
282 , p5_a7
283 , p5_a8
284 , p5_a9
285 , p5_a10
286 , p5_a11
287 , p5_a12
288 , p5_a13
289 , p5_a14
290 , p5_a15
291 , p5_a16
292 , p5_a17
293 , p5_a18
294 , p5_a19
295 , p5_a20
296 , p5_a21
297 );
298
299
300 -- here's the delegated call to the old PL/SQL routine
301 okl_funding_checklist_pvt.create_funding_chklst(p_api_version,
302 p_init_msg_list,
303 x_return_status,
304 x_msg_count,
305 x_msg_data,
306 ddp_rulv_tbl,
307 ddx_rulv_tbl);
308
309 -- copy data back from the local variables to OUT or IN-OUT args, if any
310
311
312
313
314
315
316 okl_funding_checklist_pvt_w.rosetta_table_copy_out_p14(ddx_rulv_tbl, p6_a0
317 , p6_a1
318 , p6_a2
319 , p6_a3
320 , p6_a4
321 , p6_a5
322 , p6_a6
323 , p6_a7
324 , p6_a8
325 , p6_a9
326 , p6_a10
327 , p6_a11
328 , p6_a12
329 , p6_a13
330 , p6_a14
331 , p6_a15
332 , p6_a16
333 , p6_a17
334 , p6_a18
335 , p6_a19
336 , p6_a20
337 , p6_a21
338 );
339 end;
340
341 procedure update_funding_chklst(p_api_version NUMBER
342 , p_init_msg_list VARCHAR2
343 , x_return_status out nocopy VARCHAR2
344 , x_msg_count out nocopy NUMBER
345 , x_msg_data out nocopy VARCHAR2
346 , p5_a0 JTF_NUMBER_TABLE
347 , p5_a1 JTF_VARCHAR2_TABLE_100
348 , p5_a2 JTF_VARCHAR2_TABLE_200
349 , p5_a3 JTF_NUMBER_TABLE
350 , p5_a4 JTF_NUMBER_TABLE
351 , p5_a5 JTF_VARCHAR2_TABLE_100
352 , p5_a6 JTF_VARCHAR2_TABLE_500
353 , p5_a7 JTF_VARCHAR2_TABLE_500
354 , p5_a8 JTF_VARCHAR2_TABLE_500
355 , p5_a9 JTF_VARCHAR2_TABLE_500
356 , p5_a10 JTF_VARCHAR2_TABLE_500
357 , p5_a11 JTF_VARCHAR2_TABLE_500
358 , p5_a12 JTF_VARCHAR2_TABLE_500
359 , p5_a13 JTF_VARCHAR2_TABLE_500
360 , p5_a14 JTF_VARCHAR2_TABLE_500
361 , p5_a15 JTF_VARCHAR2_TABLE_500
362 , p5_a16 JTF_VARCHAR2_TABLE_500
363 , p5_a17 JTF_VARCHAR2_TABLE_500
364 , p5_a18 JTF_VARCHAR2_TABLE_500
365 , p5_a19 JTF_VARCHAR2_TABLE_500
366 , p5_a20 JTF_VARCHAR2_TABLE_500
367 , p5_a21 JTF_NUMBER_TABLE
368 , p6_a0 out nocopy JTF_NUMBER_TABLE
369 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
370 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_200
371 , p6_a3 out nocopy JTF_NUMBER_TABLE
372 , p6_a4 out nocopy JTF_NUMBER_TABLE
373 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
374 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_500
375 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
376 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
377 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
378 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
379 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
380 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
381 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
382 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
383 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
384 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
385 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
386 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
387 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
388 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
389 , p6_a21 out nocopy JTF_NUMBER_TABLE
390 )
391
392 as
393 ddp_rulv_tbl okl_funding_checklist_pvt.rulv_tbl_type;
394 ddx_rulv_tbl okl_funding_checklist_pvt.rulv_tbl_type;
395 ddindx binary_integer; indx binary_integer;
396 begin
397
398 -- copy data to the local IN or IN-OUT args, if any
399
400
401
402
403
404 okl_funding_checklist_pvt_w.rosetta_table_copy_in_p14(ddp_rulv_tbl, p5_a0
405 , p5_a1
406 , p5_a2
407 , p5_a3
408 , p5_a4
409 , p5_a5
410 , p5_a6
411 , p5_a7
412 , p5_a8
413 , p5_a9
414 , p5_a10
415 , p5_a11
416 , p5_a12
417 , p5_a13
418 , p5_a14
419 , p5_a15
420 , p5_a16
421 , p5_a17
422 , p5_a18
423 , p5_a19
424 , p5_a20
425 , p5_a21
426 );
427
428
429 -- here's the delegated call to the old PL/SQL routine
430 okl_funding_checklist_pvt.update_funding_chklst(p_api_version,
431 p_init_msg_list,
432 x_return_status,
433 x_msg_count,
434 x_msg_data,
435 ddp_rulv_tbl,
436 ddx_rulv_tbl);
437
438 -- copy data back from the local variables to OUT or IN-OUT args, if any
439
440
441
442
443
444
445 okl_funding_checklist_pvt_w.rosetta_table_copy_out_p14(ddx_rulv_tbl, p6_a0
446 , p6_a1
447 , p6_a2
448 , p6_a3
449 , p6_a4
450 , p6_a5
451 , p6_a6
452 , p6_a7
453 , p6_a8
454 , p6_a9
455 , p6_a10
456 , p6_a11
457 , p6_a12
458 , p6_a13
459 , p6_a14
460 , p6_a15
461 , p6_a16
462 , p6_a17
463 , p6_a18
464 , p6_a19
465 , p6_a20
466 , p6_a21
467 );
468 end;
469
470 procedure delete_funding_chklst(p_api_version NUMBER
471 , p_init_msg_list VARCHAR2
472 , x_return_status out nocopy VARCHAR2
473 , x_msg_count out nocopy NUMBER
474 , x_msg_data out nocopy VARCHAR2
475 , p5_a0 JTF_NUMBER_TABLE
476 , p5_a1 JTF_VARCHAR2_TABLE_100
477 , p5_a2 JTF_VARCHAR2_TABLE_200
478 , p5_a3 JTF_NUMBER_TABLE
479 , p5_a4 JTF_NUMBER_TABLE
480 , p5_a5 JTF_VARCHAR2_TABLE_100
481 , p5_a6 JTF_VARCHAR2_TABLE_500
482 , p5_a7 JTF_VARCHAR2_TABLE_500
483 , p5_a8 JTF_VARCHAR2_TABLE_500
484 , p5_a9 JTF_VARCHAR2_TABLE_500
485 , p5_a10 JTF_VARCHAR2_TABLE_500
486 , p5_a11 JTF_VARCHAR2_TABLE_500
487 , p5_a12 JTF_VARCHAR2_TABLE_500
488 , p5_a13 JTF_VARCHAR2_TABLE_500
489 , p5_a14 JTF_VARCHAR2_TABLE_500
490 , p5_a15 JTF_VARCHAR2_TABLE_500
491 , p5_a16 JTF_VARCHAR2_TABLE_500
492 , p5_a17 JTF_VARCHAR2_TABLE_500
493 , p5_a18 JTF_VARCHAR2_TABLE_500
494 , p5_a19 JTF_VARCHAR2_TABLE_500
495 , p5_a20 JTF_VARCHAR2_TABLE_500
496 , p5_a21 JTF_NUMBER_TABLE
497 )
498
499 as
500 ddp_rulv_tbl okl_funding_checklist_pvt.rulv_tbl_type;
501 ddindx binary_integer; indx binary_integer;
502 begin
503
504 -- copy data to the local IN or IN-OUT args, if any
505
506
507
508
509
510 okl_funding_checklist_pvt_w.rosetta_table_copy_in_p14(ddp_rulv_tbl, p5_a0
511 , p5_a1
512 , p5_a2
513 , p5_a3
514 , p5_a4
515 , p5_a5
516 , p5_a6
517 , p5_a7
518 , p5_a8
519 , p5_a9
520 , p5_a10
521 , p5_a11
522 , p5_a12
523 , p5_a13
524 , p5_a14
525 , p5_a15
526 , p5_a16
527 , p5_a17
528 , p5_a18
529 , p5_a19
530 , p5_a20
531 , p5_a21
532 );
533
534 -- here's the delegated call to the old PL/SQL routine
535 okl_funding_checklist_pvt.delete_funding_chklst(p_api_version,
536 p_init_msg_list,
537 x_return_status,
538 x_msg_count,
539 x_msg_data,
540 ddp_rulv_tbl);
541
542 -- copy data back from the local variables to OUT or IN-OUT args, if any
543
544
545
546
547
548 end;
549
550 procedure approve_funding_chklst(p_api_version NUMBER
551 , p_init_msg_list VARCHAR2
552 , x_return_status out nocopy VARCHAR2
553 , x_msg_count out nocopy NUMBER
554 , x_msg_data out nocopy VARCHAR2
555 , p5_a0 NUMBER := 0-1962.0724
556 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
557 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
558 , p5_a3 NUMBER := 0-1962.0724
559 , p5_a4 NUMBER := 0-1962.0724
560 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
561 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
562 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
563 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
564 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
565 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
566 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
567 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
568 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
569 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
570 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
571 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
572 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
573 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
574 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
575 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
576 , p5_a21 NUMBER := 0-1962.0724
577 )
578
579 as
580 ddp_rulv_rec okl_funding_checklist_pvt.rulv_rec_type;
581 ddindx binary_integer; indx binary_integer;
582 begin
583
584 -- copy data to the local IN or IN-OUT args, if any
585
586
587
588
589
590 ddp_rulv_rec.id := rosetta_g_miss_num_map(p5_a0);
591 ddp_rulv_rec.object1_id1 := p5_a1;
592 ddp_rulv_rec.object1_id2 := p5_a2;
593 ddp_rulv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a3);
594 ddp_rulv_rec.rgp_id := rosetta_g_miss_num_map(p5_a4);
595 ddp_rulv_rec.rule_information_category := p5_a5;
596 ddp_rulv_rec.rule_information1 := p5_a6;
597 ddp_rulv_rec.rule_information2 := p5_a7;
598 ddp_rulv_rec.rule_information3 := p5_a8;
599 ddp_rulv_rec.rule_information4 := p5_a9;
600 ddp_rulv_rec.rule_information5 := p5_a10;
601 ddp_rulv_rec.rule_information6 := p5_a11;
602 ddp_rulv_rec.rule_information7 := p5_a12;
603 ddp_rulv_rec.rule_information8 := p5_a13;
604 ddp_rulv_rec.rule_information9 := p5_a14;
605 ddp_rulv_rec.rule_information10 := p5_a15;
606 ddp_rulv_rec.rule_information11 := p5_a16;
607 ddp_rulv_rec.rule_information12 := p5_a17;
608 ddp_rulv_rec.rule_information13 := p5_a18;
609 ddp_rulv_rec.rule_information14 := p5_a19;
610 ddp_rulv_rec.rule_information15 := p5_a20;
611 ddp_rulv_rec.display_sequence := rosetta_g_miss_num_map(p5_a21);
612
613 -- here's the delegated call to the old PL/SQL routine
614 okl_funding_checklist_pvt.approve_funding_chklst(p_api_version,
615 p_init_msg_list,
616 x_return_status,
617 x_msg_count,
618 x_msg_data,
619 ddp_rulv_rec);
620
621 -- copy data back from the local variables to OUT or IN-OUT args, if any
622
623
624
625
626
627 end;
628
629 end okl_funding_checklist_pvt_w;