[Home] [Help]
PACKAGE BODY: APPS.OKL_CREDIT_CHECKLIST_PVT_W
Source
1 package body okl_credit_checklist_pvt_w as
2 /* $Header: OKLECLCB.pls 120.2 2005/05/27 17:10:17 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_p21(t out nocopy okl_credit_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_p21;
83 procedure rosetta_table_copy_out_p21(t okl_credit_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_p21;
211
212 procedure create_credit_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_credit_checklist_pvt.rulv_tbl_type;
265 ddx_rulv_tbl okl_credit_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_credit_checklist_pvt_w.rosetta_table_copy_in_p21(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_credit_checklist_pvt.create_credit_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_credit_checklist_pvt_w.rosetta_table_copy_out_p21(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_credit_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_credit_checklist_pvt.rulv_tbl_type;
394 ddx_rulv_tbl okl_credit_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_credit_checklist_pvt_w.rosetta_table_copy_in_p21(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_credit_checklist_pvt.update_credit_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_credit_checklist_pvt_w.rosetta_table_copy_out_p21(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_credit_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_credit_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_credit_checklist_pvt_w.rosetta_table_copy_in_p21(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_credit_checklist_pvt.delete_credit_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_credit_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_credit_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_credit_checklist_pvt.approve_credit_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 procedure update_fund_chklst_tpl_hdr(p_api_version NUMBER
630 , p_init_msg_list VARCHAR2
631 , x_return_status out nocopy VARCHAR2
632 , x_msg_count out nocopy NUMBER
633 , x_msg_data out nocopy VARCHAR2
634 , p5_a0 JTF_NUMBER_TABLE
635 , p5_a1 JTF_VARCHAR2_TABLE_100
636 , p5_a2 JTF_VARCHAR2_TABLE_200
637 , p5_a3 JTF_NUMBER_TABLE
638 , p5_a4 JTF_NUMBER_TABLE
639 , p5_a5 JTF_VARCHAR2_TABLE_100
640 , p5_a6 JTF_VARCHAR2_TABLE_500
641 , p5_a7 JTF_VARCHAR2_TABLE_500
642 , p5_a8 JTF_VARCHAR2_TABLE_500
643 , p5_a9 JTF_VARCHAR2_TABLE_500
644 , p5_a10 JTF_VARCHAR2_TABLE_500
645 , p5_a11 JTF_VARCHAR2_TABLE_500
646 , p5_a12 JTF_VARCHAR2_TABLE_500
647 , p5_a13 JTF_VARCHAR2_TABLE_500
648 , p5_a14 JTF_VARCHAR2_TABLE_500
649 , p5_a15 JTF_VARCHAR2_TABLE_500
650 , p5_a16 JTF_VARCHAR2_TABLE_500
651 , p5_a17 JTF_VARCHAR2_TABLE_500
652 , p5_a18 JTF_VARCHAR2_TABLE_500
653 , p5_a19 JTF_VARCHAR2_TABLE_500
654 , p5_a20 JTF_VARCHAR2_TABLE_500
655 , p5_a21 JTF_NUMBER_TABLE
656 , p6_a0 out nocopy JTF_NUMBER_TABLE
657 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
658 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_200
659 , p6_a3 out nocopy JTF_NUMBER_TABLE
660 , p6_a4 out nocopy JTF_NUMBER_TABLE
661 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
662 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_500
663 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
664 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
665 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
666 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
667 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
668 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
669 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
670 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
671 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
672 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
673 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
674 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
675 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
676 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
677 , p6_a21 out nocopy JTF_NUMBER_TABLE
678 )
679
680 as
681 ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
682 ddx_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
683 ddindx binary_integer; indx binary_integer;
684 begin
685
686 -- copy data to the local IN or IN-OUT args, if any
687
688
689
690
691
692 okl_credit_checklist_pvt_w.rosetta_table_copy_in_p21(ddp_rulv_tbl, p5_a0
693 , p5_a1
694 , p5_a2
695 , p5_a3
696 , p5_a4
697 , p5_a5
698 , p5_a6
699 , p5_a7
700 , p5_a8
701 , p5_a9
702 , p5_a10
703 , p5_a11
704 , p5_a12
705 , p5_a13
706 , p5_a14
707 , p5_a15
708 , p5_a16
709 , p5_a17
710 , p5_a18
711 , p5_a19
712 , p5_a20
713 , p5_a21
714 );
715
716
717 -- here's the delegated call to the old PL/SQL routine
718 okl_credit_checklist_pvt.update_fund_chklst_tpl_hdr(p_api_version,
719 p_init_msg_list,
720 x_return_status,
721 x_msg_count,
722 x_msg_data,
723 ddp_rulv_tbl,
724 ddx_rulv_tbl);
725
726 -- copy data back from the local variables to OUT or IN-OUT args, if any
727
728
729
730
731
732
733 okl_credit_checklist_pvt_w.rosetta_table_copy_out_p21(ddx_rulv_tbl, p6_a0
734 , p6_a1
735 , p6_a2
736 , p6_a3
737 , p6_a4
738 , p6_a5
739 , p6_a6
740 , p6_a7
741 , p6_a8
742 , p6_a9
743 , p6_a10
744 , p6_a11
745 , p6_a12
746 , p6_a13
747 , p6_a14
748 , p6_a15
749 , p6_a16
750 , p6_a17
751 , p6_a18
752 , p6_a19
753 , p6_a20
754 , p6_a21
755 );
756 end;
757
758 procedure update_fund_chklst_tpl_hdr(p_api_version NUMBER
759 , p_init_msg_list VARCHAR2
760 , x_return_status out nocopy VARCHAR2
761 , x_msg_count out nocopy NUMBER
762 , x_msg_data out nocopy VARCHAR2
763 , p6_a0 out nocopy NUMBER
764 , p6_a1 out nocopy VARCHAR2
765 , p6_a2 out nocopy VARCHAR2
766 , p6_a3 out nocopy NUMBER
767 , p6_a4 out nocopy NUMBER
768 , p6_a5 out nocopy VARCHAR2
769 , p6_a6 out nocopy VARCHAR2
770 , p6_a7 out nocopy VARCHAR2
771 , p6_a8 out nocopy VARCHAR2
772 , p6_a9 out nocopy VARCHAR2
773 , p6_a10 out nocopy VARCHAR2
774 , p6_a11 out nocopy VARCHAR2
775 , p6_a12 out nocopy VARCHAR2
776 , p6_a13 out nocopy VARCHAR2
777 , p6_a14 out nocopy VARCHAR2
778 , p6_a15 out nocopy VARCHAR2
779 , p6_a16 out nocopy VARCHAR2
780 , p6_a17 out nocopy VARCHAR2
781 , p6_a18 out nocopy VARCHAR2
782 , p6_a19 out nocopy VARCHAR2
783 , p6_a20 out nocopy VARCHAR2
784 , p6_a21 out nocopy NUMBER
785 , p5_a0 NUMBER := 0-1962.0724
786 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
787 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
788 , p5_a3 NUMBER := 0-1962.0724
789 , p5_a4 NUMBER := 0-1962.0724
790 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
791 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
792 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
793 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
794 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
795 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
796 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
797 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
798 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
799 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
800 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
801 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
802 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
803 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
804 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
805 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
806 , p5_a21 NUMBER := 0-1962.0724
807 )
808
809 as
810 ddp_rulv_rec okl_credit_checklist_pvt.rulv_rec_type;
811 ddx_rulv_rec okl_credit_checklist_pvt.rulv_rec_type;
812 ddindx binary_integer; indx binary_integer;
813 begin
814
815 -- copy data to the local IN or IN-OUT args, if any
816
817
818
819
820
821 ddp_rulv_rec.id := rosetta_g_miss_num_map(p5_a0);
822 ddp_rulv_rec.object1_id1 := p5_a1;
823 ddp_rulv_rec.object1_id2 := p5_a2;
824 ddp_rulv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a3);
825 ddp_rulv_rec.rgp_id := rosetta_g_miss_num_map(p5_a4);
826 ddp_rulv_rec.rule_information_category := p5_a5;
827 ddp_rulv_rec.rule_information1 := p5_a6;
828 ddp_rulv_rec.rule_information2 := p5_a7;
829 ddp_rulv_rec.rule_information3 := p5_a8;
830 ddp_rulv_rec.rule_information4 := p5_a9;
831 ddp_rulv_rec.rule_information5 := p5_a10;
832 ddp_rulv_rec.rule_information6 := p5_a11;
833 ddp_rulv_rec.rule_information7 := p5_a12;
834 ddp_rulv_rec.rule_information8 := p5_a13;
835 ddp_rulv_rec.rule_information9 := p5_a14;
836 ddp_rulv_rec.rule_information10 := p5_a15;
837 ddp_rulv_rec.rule_information11 := p5_a16;
838 ddp_rulv_rec.rule_information12 := p5_a17;
839 ddp_rulv_rec.rule_information13 := p5_a18;
840 ddp_rulv_rec.rule_information14 := p5_a19;
841 ddp_rulv_rec.rule_information15 := p5_a20;
842 ddp_rulv_rec.display_sequence := rosetta_g_miss_num_map(p5_a21);
843
844
845 -- here's the delegated call to the old PL/SQL routine
846 okl_credit_checklist_pvt.update_fund_chklst_tpl_hdr(p_api_version,
847 p_init_msg_list,
848 x_return_status,
849 x_msg_count,
850 x_msg_data,
851 ddp_rulv_rec,
852 ddx_rulv_rec);
853
854 -- copy data back from the local variables to OUT or IN-OUT args, if any
855
856
857
858
859
860
861 p6_a0 := rosetta_g_miss_num_map(ddx_rulv_rec.id);
862 p6_a1 := ddx_rulv_rec.object1_id1;
863 p6_a2 := ddx_rulv_rec.object1_id2;
864 p6_a3 := rosetta_g_miss_num_map(ddx_rulv_rec.dnz_chr_id);
865 p6_a4 := rosetta_g_miss_num_map(ddx_rulv_rec.rgp_id);
866 p6_a5 := ddx_rulv_rec.rule_information_category;
867 p6_a6 := ddx_rulv_rec.rule_information1;
868 p6_a7 := ddx_rulv_rec.rule_information2;
869 p6_a8 := ddx_rulv_rec.rule_information3;
870 p6_a9 := ddx_rulv_rec.rule_information4;
871 p6_a10 := ddx_rulv_rec.rule_information5;
872 p6_a11 := ddx_rulv_rec.rule_information6;
873 p6_a12 := ddx_rulv_rec.rule_information7;
874 p6_a13 := ddx_rulv_rec.rule_information8;
875 p6_a14 := ddx_rulv_rec.rule_information9;
876 p6_a15 := ddx_rulv_rec.rule_information10;
877 p6_a16 := ddx_rulv_rec.rule_information11;
878 p6_a17 := ddx_rulv_rec.rule_information12;
879 p6_a18 := ddx_rulv_rec.rule_information13;
880 p6_a19 := ddx_rulv_rec.rule_information14;
881 p6_a20 := ddx_rulv_rec.rule_information15;
882 p6_a21 := rosetta_g_miss_num_map(ddx_rulv_rec.display_sequence);
883 end;
884
885 procedure update_funding_chklst_tpl(p_api_version NUMBER
886 , p_init_msg_list VARCHAR2
887 , x_return_status out nocopy VARCHAR2
888 , x_msg_count out nocopy NUMBER
889 , x_msg_data out nocopy VARCHAR2
890 , p5_a0 JTF_NUMBER_TABLE
891 , p5_a1 JTF_VARCHAR2_TABLE_100
892 , p5_a2 JTF_VARCHAR2_TABLE_200
893 , p5_a3 JTF_NUMBER_TABLE
894 , p5_a4 JTF_NUMBER_TABLE
895 , p5_a5 JTF_VARCHAR2_TABLE_100
896 , p5_a6 JTF_VARCHAR2_TABLE_500
897 , p5_a7 JTF_VARCHAR2_TABLE_500
898 , p5_a8 JTF_VARCHAR2_TABLE_500
899 , p5_a9 JTF_VARCHAR2_TABLE_500
900 , p5_a10 JTF_VARCHAR2_TABLE_500
901 , p5_a11 JTF_VARCHAR2_TABLE_500
902 , p5_a12 JTF_VARCHAR2_TABLE_500
903 , p5_a13 JTF_VARCHAR2_TABLE_500
904 , p5_a14 JTF_VARCHAR2_TABLE_500
905 , p5_a15 JTF_VARCHAR2_TABLE_500
906 , p5_a16 JTF_VARCHAR2_TABLE_500
907 , p5_a17 JTF_VARCHAR2_TABLE_500
908 , p5_a18 JTF_VARCHAR2_TABLE_500
909 , p5_a19 JTF_VARCHAR2_TABLE_500
910 , p5_a20 JTF_VARCHAR2_TABLE_500
911 , p5_a21 JTF_NUMBER_TABLE
912 , p6_a0 out nocopy JTF_NUMBER_TABLE
913 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
914 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_200
915 , p6_a3 out nocopy JTF_NUMBER_TABLE
916 , p6_a4 out nocopy JTF_NUMBER_TABLE
917 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
918 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_500
919 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
920 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
921 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
922 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
923 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
924 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
925 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
926 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
927 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
928 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
929 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
930 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
931 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
932 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
933 , p6_a21 out nocopy JTF_NUMBER_TABLE
934 )
935
936 as
937 ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
938 ddx_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
939 ddindx binary_integer; indx binary_integer;
940 begin
941
942 -- copy data to the local IN or IN-OUT args, if any
943
944
945
946
947
948 okl_credit_checklist_pvt_w.rosetta_table_copy_in_p21(ddp_rulv_tbl, p5_a0
949 , p5_a1
950 , p5_a2
951 , p5_a3
952 , p5_a4
953 , p5_a5
954 , p5_a6
955 , p5_a7
956 , p5_a8
957 , p5_a9
958 , p5_a10
959 , p5_a11
960 , p5_a12
961 , p5_a13
962 , p5_a14
963 , p5_a15
964 , p5_a16
965 , p5_a17
966 , p5_a18
967 , p5_a19
968 , p5_a20
969 , p5_a21
970 );
971
972
973 -- here's the delegated call to the old PL/SQL routine
974 okl_credit_checklist_pvt.update_funding_chklst_tpl(p_api_version,
975 p_init_msg_list,
976 x_return_status,
977 x_msg_count,
978 x_msg_data,
979 ddp_rulv_tbl,
980 ddx_rulv_tbl);
981
982 -- copy data back from the local variables to OUT or IN-OUT args, if any
983
984
985
986
987
988
989 okl_credit_checklist_pvt_w.rosetta_table_copy_out_p21(ddx_rulv_tbl, p6_a0
990 , p6_a1
991 , p6_a2
992 , p6_a3
993 , p6_a4
994 , p6_a5
995 , p6_a6
996 , p6_a7
997 , p6_a8
998 , p6_a9
999 , p6_a10
1000 , p6_a11
1001 , p6_a12
1002 , p6_a13
1003 , p6_a14
1004 , p6_a15
1005 , p6_a16
1006 , p6_a17
1007 , p6_a18
1008 , p6_a19
1009 , p6_a20
1010 , p6_a21
1011 );
1012 end;
1013
1014 procedure approve_funding_chklst_tpl(p_api_version NUMBER
1015 , p_init_msg_list VARCHAR2
1016 , x_return_status out nocopy VARCHAR2
1017 , x_msg_count out nocopy NUMBER
1018 , x_msg_data out nocopy VARCHAR2
1019 , p5_a0 NUMBER := 0-1962.0724
1020 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1021 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1022 , p5_a3 NUMBER := 0-1962.0724
1023 , p5_a4 NUMBER := 0-1962.0724
1024 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1025 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1026 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1027 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1028 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1029 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1030 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1031 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1032 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1033 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1034 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1035 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1036 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1037 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1038 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1039 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1040 , p5_a21 NUMBER := 0-1962.0724
1041 )
1042
1043 as
1044 ddp_rulv_rec okl_credit_checklist_pvt.rulv_rec_type;
1045 ddindx binary_integer; indx binary_integer;
1046 begin
1047
1048 -- copy data to the local IN or IN-OUT args, if any
1049
1050
1051
1052
1053
1054 ddp_rulv_rec.id := rosetta_g_miss_num_map(p5_a0);
1055 ddp_rulv_rec.object1_id1 := p5_a1;
1056 ddp_rulv_rec.object1_id2 := p5_a2;
1057 ddp_rulv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a3);
1058 ddp_rulv_rec.rgp_id := rosetta_g_miss_num_map(p5_a4);
1059 ddp_rulv_rec.rule_information_category := p5_a5;
1060 ddp_rulv_rec.rule_information1 := p5_a6;
1061 ddp_rulv_rec.rule_information2 := p5_a7;
1062 ddp_rulv_rec.rule_information3 := p5_a8;
1063 ddp_rulv_rec.rule_information4 := p5_a9;
1064 ddp_rulv_rec.rule_information5 := p5_a10;
1065 ddp_rulv_rec.rule_information6 := p5_a11;
1066 ddp_rulv_rec.rule_information7 := p5_a12;
1067 ddp_rulv_rec.rule_information8 := p5_a13;
1068 ddp_rulv_rec.rule_information9 := p5_a14;
1069 ddp_rulv_rec.rule_information10 := p5_a15;
1070 ddp_rulv_rec.rule_information11 := p5_a16;
1071 ddp_rulv_rec.rule_information12 := p5_a17;
1072 ddp_rulv_rec.rule_information13 := p5_a18;
1073 ddp_rulv_rec.rule_information14 := p5_a19;
1074 ddp_rulv_rec.rule_information15 := p5_a20;
1075 ddp_rulv_rec.display_sequence := rosetta_g_miss_num_map(p5_a21);
1076
1077 -- here's the delegated call to the old PL/SQL routine
1078 okl_credit_checklist_pvt.approve_funding_chklst_tpl(p_api_version,
1079 p_init_msg_list,
1080 x_return_status,
1081 x_msg_count,
1082 x_msg_data,
1083 ddp_rulv_rec);
1084
1085 -- copy data back from the local variables to OUT or IN-OUT args, if any
1086
1087
1088
1089
1090
1091 end;
1092
1093 procedure create_funding_chklst_tpl(p_api_version NUMBER
1094 , p_init_msg_list VARCHAR2
1095 , x_return_status out nocopy VARCHAR2
1096 , x_msg_count out nocopy NUMBER
1097 , x_msg_data out nocopy VARCHAR2
1098 , p5_a0 JTF_NUMBER_TABLE
1099 , p5_a1 JTF_VARCHAR2_TABLE_100
1100 , p5_a2 JTF_VARCHAR2_TABLE_200
1101 , p5_a3 JTF_NUMBER_TABLE
1102 , p5_a4 JTF_NUMBER_TABLE
1103 , p5_a5 JTF_VARCHAR2_TABLE_100
1104 , p5_a6 JTF_VARCHAR2_TABLE_500
1105 , p5_a7 JTF_VARCHAR2_TABLE_500
1106 , p5_a8 JTF_VARCHAR2_TABLE_500
1107 , p5_a9 JTF_VARCHAR2_TABLE_500
1108 , p5_a10 JTF_VARCHAR2_TABLE_500
1109 , p5_a11 JTF_VARCHAR2_TABLE_500
1110 , p5_a12 JTF_VARCHAR2_TABLE_500
1111 , p5_a13 JTF_VARCHAR2_TABLE_500
1112 , p5_a14 JTF_VARCHAR2_TABLE_500
1113 , p5_a15 JTF_VARCHAR2_TABLE_500
1114 , p5_a16 JTF_VARCHAR2_TABLE_500
1115 , p5_a17 JTF_VARCHAR2_TABLE_500
1116 , p5_a18 JTF_VARCHAR2_TABLE_500
1117 , p5_a19 JTF_VARCHAR2_TABLE_500
1118 , p5_a20 JTF_VARCHAR2_TABLE_500
1119 , p5_a21 JTF_NUMBER_TABLE
1120 , p6_a0 out nocopy JTF_NUMBER_TABLE
1121 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
1122 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_200
1123 , p6_a3 out nocopy JTF_NUMBER_TABLE
1124 , p6_a4 out nocopy JTF_NUMBER_TABLE
1125 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
1126 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_500
1127 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
1128 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
1129 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
1130 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
1131 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
1132 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
1133 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1134 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1135 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1136 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1137 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1138 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1139 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1140 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1141 , p6_a21 out nocopy JTF_NUMBER_TABLE
1142 )
1143
1144 as
1145 ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
1146 ddx_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
1147 ddindx binary_integer; indx binary_integer;
1148 begin
1149
1150 -- copy data to the local IN or IN-OUT args, if any
1151
1152
1153
1154
1155
1156 okl_credit_checklist_pvt_w.rosetta_table_copy_in_p21(ddp_rulv_tbl, p5_a0
1157 , p5_a1
1158 , p5_a2
1159 , p5_a3
1160 , p5_a4
1161 , p5_a5
1162 , p5_a6
1163 , p5_a7
1164 , p5_a8
1165 , p5_a9
1166 , p5_a10
1167 , p5_a11
1168 , p5_a12
1169 , p5_a13
1170 , p5_a14
1171 , p5_a15
1172 , p5_a16
1173 , p5_a17
1174 , p5_a18
1175 , p5_a19
1176 , p5_a20
1177 , p5_a21
1178 );
1179
1180
1181 -- here's the delegated call to the old PL/SQL routine
1182 okl_credit_checklist_pvt.create_funding_chklst_tpl(p_api_version,
1183 p_init_msg_list,
1184 x_return_status,
1185 x_msg_count,
1186 x_msg_data,
1187 ddp_rulv_tbl,
1188 ddx_rulv_tbl);
1189
1190 -- copy data back from the local variables to OUT or IN-OUT args, if any
1191
1192
1193
1194
1195
1196
1197 okl_credit_checklist_pvt_w.rosetta_table_copy_out_p21(ddx_rulv_tbl, p6_a0
1198 , p6_a1
1199 , p6_a2
1200 , p6_a3
1201 , p6_a4
1202 , p6_a5
1203 , p6_a6
1204 , p6_a7
1205 , p6_a8
1206 , p6_a9
1207 , p6_a10
1208 , p6_a11
1209 , p6_a12
1210 , p6_a13
1211 , p6_a14
1212 , p6_a15
1213 , p6_a16
1214 , p6_a17
1215 , p6_a18
1216 , p6_a19
1217 , p6_a20
1218 , p6_a21
1219 );
1220 end;
1221
1222 procedure delete_funding_chklst_tpl(p_api_version NUMBER
1223 , p_init_msg_list VARCHAR2
1224 , x_return_status out nocopy VARCHAR2
1225 , x_msg_count out nocopy NUMBER
1226 , x_msg_data out nocopy VARCHAR2
1227 , p5_a0 JTF_NUMBER_TABLE
1228 , p5_a1 JTF_VARCHAR2_TABLE_100
1229 , p5_a2 JTF_VARCHAR2_TABLE_200
1230 , p5_a3 JTF_NUMBER_TABLE
1231 , p5_a4 JTF_NUMBER_TABLE
1232 , p5_a5 JTF_VARCHAR2_TABLE_100
1233 , p5_a6 JTF_VARCHAR2_TABLE_500
1234 , p5_a7 JTF_VARCHAR2_TABLE_500
1235 , p5_a8 JTF_VARCHAR2_TABLE_500
1236 , p5_a9 JTF_VARCHAR2_TABLE_500
1237 , p5_a10 JTF_VARCHAR2_TABLE_500
1238 , p5_a11 JTF_VARCHAR2_TABLE_500
1239 , p5_a12 JTF_VARCHAR2_TABLE_500
1240 , p5_a13 JTF_VARCHAR2_TABLE_500
1241 , p5_a14 JTF_VARCHAR2_TABLE_500
1242 , p5_a15 JTF_VARCHAR2_TABLE_500
1243 , p5_a16 JTF_VARCHAR2_TABLE_500
1244 , p5_a17 JTF_VARCHAR2_TABLE_500
1245 , p5_a18 JTF_VARCHAR2_TABLE_500
1246 , p5_a19 JTF_VARCHAR2_TABLE_500
1247 , p5_a20 JTF_VARCHAR2_TABLE_500
1248 , p5_a21 JTF_NUMBER_TABLE
1249 )
1250
1251 as
1252 ddp_rulv_tbl okl_credit_checklist_pvt.rulv_tbl_type;
1253 ddindx binary_integer; indx binary_integer;
1254 begin
1255
1256 -- copy data to the local IN or IN-OUT args, if any
1257
1258
1259
1260
1261
1262 okl_credit_checklist_pvt_w.rosetta_table_copy_in_p21(ddp_rulv_tbl, p5_a0
1263 , p5_a1
1264 , p5_a2
1265 , p5_a3
1266 , p5_a4
1267 , p5_a5
1268 , p5_a6
1269 , p5_a7
1270 , p5_a8
1271 , p5_a9
1272 , p5_a10
1273 , p5_a11
1274 , p5_a12
1275 , p5_a13
1276 , p5_a14
1277 , p5_a15
1278 , p5_a16
1279 , p5_a17
1280 , p5_a18
1281 , p5_a19
1282 , p5_a20
1283 , p5_a21
1284 );
1285
1286 -- here's the delegated call to the old PL/SQL routine
1287 okl_credit_checklist_pvt.delete_funding_chklst_tpl(p_api_version,
1288 p_init_msg_list,
1289 x_return_status,
1290 x_msg_count,
1291 x_msg_data,
1292 ddp_rulv_tbl);
1293
1294 -- copy data back from the local variables to OUT or IN-OUT args, if any
1295
1296
1297
1298
1299
1300 end;
1301
1302 end okl_credit_checklist_pvt_w;