[Home] [Help]
PACKAGE BODY: APPS.OKL_CREDIT_PUB_W
Source
1 package body okl_credit_pub_w as
2 /* $Header: OKLUCRDB.pls 115.7 2003/08/29 22:46:01 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_p5(t out nocopy okl_credit_pub.clev_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_VARCHAR2_TABLE_200
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_VARCHAR2_TABLE_2000
30 , a8 JTF_VARCHAR2_TABLE_100
31 , a9 JTF_DATE_TABLE
32 ) as
33 ddindx binary_integer; indx binary_integer;
34 begin
35 if a0 is not null and a0.count > 0 then
36 if a0.count > 0 then
37 indx := a0.first;
38 ddindx := 1;
39 while true loop
40 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
41 t(ddindx).chr_id := rosetta_g_miss_num_map(a1(indx));
42 t(ddindx).lse_id := rosetta_g_miss_num_map(a2(indx));
43 t(ddindx).line_number := a3(indx);
44 t(ddindx).sts_code := a4(indx);
45 t(ddindx).display_sequence := rosetta_g_miss_num_map(a5(indx));
46 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a6(indx));
47 t(ddindx).item_description := a7(indx);
48 t(ddindx).exception_yn := a8(indx);
49 t(ddindx).start_date := rosetta_g_miss_date_in_map(a9(indx));
50 ddindx := ddindx+1;
51 if a0.last =indx
52 then exit;
53 end if;
54 indx := a0.next(indx);
55 end loop;
56 end if;
57 end if;
58 end rosetta_table_copy_in_p5;
59 procedure rosetta_table_copy_out_p5(t okl_credit_pub.clev_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
60 , a1 out nocopy JTF_NUMBER_TABLE
61 , a2 out nocopy JTF_NUMBER_TABLE
62 , a3 out nocopy JTF_VARCHAR2_TABLE_200
63 , a4 out nocopy JTF_VARCHAR2_TABLE_100
64 , a5 out nocopy JTF_NUMBER_TABLE
65 , a6 out nocopy JTF_NUMBER_TABLE
66 , a7 out nocopy JTF_VARCHAR2_TABLE_2000
67 , a8 out nocopy JTF_VARCHAR2_TABLE_100
68 , a9 out nocopy JTF_DATE_TABLE
69 ) as
70 ddindx binary_integer; indx binary_integer;
71 begin
72 if t is null or t.count = 0 then
73 a0 := JTF_NUMBER_TABLE();
74 a1 := JTF_NUMBER_TABLE();
75 a2 := JTF_NUMBER_TABLE();
76 a3 := JTF_VARCHAR2_TABLE_200();
77 a4 := JTF_VARCHAR2_TABLE_100();
78 a5 := JTF_NUMBER_TABLE();
79 a6 := JTF_NUMBER_TABLE();
80 a7 := JTF_VARCHAR2_TABLE_2000();
81 a8 := JTF_VARCHAR2_TABLE_100();
82 a9 := JTF_DATE_TABLE();
83 else
84 a0 := JTF_NUMBER_TABLE();
85 a1 := JTF_NUMBER_TABLE();
86 a2 := JTF_NUMBER_TABLE();
87 a3 := JTF_VARCHAR2_TABLE_200();
88 a4 := JTF_VARCHAR2_TABLE_100();
89 a5 := JTF_NUMBER_TABLE();
90 a6 := JTF_NUMBER_TABLE();
91 a7 := JTF_VARCHAR2_TABLE_2000();
92 a8 := JTF_VARCHAR2_TABLE_100();
93 a9 := JTF_DATE_TABLE();
94 if t.count > 0 then
95 a0.extend(t.count);
96 a1.extend(t.count);
97 a2.extend(t.count);
98 a3.extend(t.count);
99 a4.extend(t.count);
100 a5.extend(t.count);
101 a6.extend(t.count);
102 a7.extend(t.count);
103 a8.extend(t.count);
104 a9.extend(t.count);
105 ddindx := t.first;
106 indx := 1;
107 while true loop
108 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
109 a1(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
110 a2(indx) := rosetta_g_miss_num_map(t(ddindx).lse_id);
111 a3(indx) := t(ddindx).line_number;
112 a4(indx) := t(ddindx).sts_code;
113 a5(indx) := rosetta_g_miss_num_map(t(ddindx).display_sequence);
114 a6(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
115 a7(indx) := t(ddindx).item_description;
116 a8(indx) := t(ddindx).exception_yn;
117 a9(indx) := t(ddindx).start_date;
118 indx := indx+1;
119 if t.last =ddindx
120 then exit;
121 end if;
122 ddindx := t.next(ddindx);
123 end loop;
124 end if;
125 end if;
126 end rosetta_table_copy_out_p5;
127
128 procedure create_credit(p_api_version NUMBER
129 , p_init_msg_list VARCHAR2
130 , x_return_status out nocopy VARCHAR2
131 , x_msg_count out nocopy NUMBER
132 , x_msg_data out nocopy VARCHAR2
133 , p_contract_number VARCHAR2
134 , p_description VARCHAR2
135 , p_customer_id1 VARCHAR2
136 , p_customer_id2 VARCHAR2
137 , p_customer_code VARCHAR2
138 , p_customer_name VARCHAR2
139 , p_effective_from date
140 , p_effective_to date
141 , p_currency_code VARCHAR2
142 , p_currency_conv_type VARCHAR2
143 , p_currency_conv_rate NUMBER
144 , p_currency_conv_date date
145 , p_revolving_credit_yn VARCHAR2
146 , p_sts_code VARCHAR2
147 , p_credit_ckl_id NUMBER
148 , p_funding_ckl_id NUMBER
149 , p_cust_acct_id NUMBER
150 , p_cust_acct_number VARCHAR2
151
152
153
154
155
156 , p_org_id NUMBER
157 , p_organization_id NUMBER
158 , p_source_chr_id NUMBER
159 , x_chr_id out nocopy NUMBER
160 )
161
162 as
163 ddp_effective_from date;
164 ddp_effective_to date;
165 ddp_currency_conv_date date;
166 ddindx binary_integer; indx binary_integer;
167 begin
168
169 -- copy data to the local IN or IN-OUT args, if any
170
171
172
173
174
175
176
177
178
179
180
181 ddp_effective_from := rosetta_g_miss_date_in_map(p_effective_from);
182
183 ddp_effective_to := rosetta_g_miss_date_in_map(p_effective_to);
184
185
186
187
188 ddp_currency_conv_date := rosetta_g_miss_date_in_map(p_currency_conv_date);
189
190
191
192
193
194
195
196
197
198
199
200 -- here's the delegated call to the old PL/SQL routine
201 okl_credit_pub.create_credit(p_api_version,
202 p_init_msg_list,
203 x_return_status,
204 x_msg_count,
205 x_msg_data,
206 p_contract_number,
207 p_description,
208 p_customer_id1,
209 p_customer_id2,
210 p_customer_code,
211 p_customer_name,
212 ddp_effective_from,
213 ddp_effective_to,
214 p_currency_code,
215 p_currency_conv_type,
216 p_currency_conv_rate,
217 ddp_currency_conv_date,
218 p_revolving_credit_yn,
219 p_sts_code,
220 p_credit_ckl_id,
221 p_funding_ckl_id,
222 p_cust_acct_id,
223 p_cust_acct_number,
224 p_org_id,
225 p_organization_id,
226 p_source_chr_id,
227 x_chr_id);
228
229 -- copy data back from the local variables to OUT or IN-OUT args, if any
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256 end;
257
258 procedure create_credit_header(p_api_version NUMBER
259 , p_init_msg_list VARCHAR2
260 , x_return_status out nocopy VARCHAR2
261 , x_msg_count out nocopy NUMBER
262 , x_msg_data out nocopy VARCHAR2
263 , p_credit_ckl_id NUMBER
264 , p_funding_ckl_id NUMBER
265 , p9_a0 out nocopy NUMBER
266 , p9_a1 out nocopy NUMBER
267 , p9_a2 out nocopy VARCHAR2
268 , p9_a3 out nocopy NUMBER
269 , p9_a4 out nocopy NUMBER
270 , p9_a5 out nocopy NUMBER
271 , p9_a6 out nocopy NUMBER
272 , p9_a7 out nocopy VARCHAR2
273 , p9_a8 out nocopy NUMBER
274 , p9_a9 out nocopy VARCHAR2
275 , p9_a10 out nocopy VARCHAR2
276 , p9_a11 out nocopy VARCHAR2
277 , p9_a12 out nocopy VARCHAR2
278 , p9_a13 out nocopy VARCHAR2
279 , p9_a14 out nocopy VARCHAR2
280 , p9_a15 out nocopy VARCHAR2
281 , p9_a16 out nocopy VARCHAR2
282 , p9_a17 out nocopy VARCHAR2
283 , p9_a18 out nocopy VARCHAR2
284 , p9_a19 out nocopy VARCHAR2
285 , p9_a20 out nocopy VARCHAR2
286 , p9_a21 out nocopy VARCHAR2
287 , p9_a22 out nocopy VARCHAR2
288 , p9_a23 out nocopy VARCHAR2
289 , p9_a24 out nocopy VARCHAR2
290 , p9_a25 out nocopy DATE
291 , p9_a26 out nocopy DATE
292 , p9_a27 out nocopy NUMBER
293 , p9_a28 out nocopy DATE
294 , p9_a29 out nocopy DATE
295 , p9_a30 out nocopy VARCHAR2
296 , p9_a31 out nocopy VARCHAR2
297 , p9_a32 out nocopy VARCHAR2
298 , p9_a33 out nocopy VARCHAR2
299 , p9_a34 out nocopy VARCHAR2
300 , p9_a35 out nocopy VARCHAR2
301 , p9_a36 out nocopy NUMBER
302 , p9_a37 out nocopy NUMBER
303 , p9_a38 out nocopy DATE
304 , p9_a39 out nocopy DATE
305 , p9_a40 out nocopy DATE
306 , p9_a41 out nocopy DATE
307 , p9_a42 out nocopy DATE
308 , p9_a43 out nocopy VARCHAR2
309 , p9_a44 out nocopy DATE
310 , p9_a45 out nocopy DATE
311 , p9_a46 out nocopy NUMBER
312 , p9_a47 out nocopy VARCHAR2
313 , p9_a48 out nocopy VARCHAR2
314 , p9_a49 out nocopy NUMBER
315 , p9_a50 out nocopy NUMBER
316 , p9_a51 out nocopy NUMBER
317 , p9_a52 out nocopy VARCHAR2
318 , p9_a53 out nocopy VARCHAR2
319 , p9_a54 out nocopy NUMBER
320 , p9_a55 out nocopy NUMBER
321 , p9_a56 out nocopy VARCHAR2
322 , p9_a57 out nocopy NUMBER
323 , p9_a58 out nocopy VARCHAR2
324 , p9_a59 out nocopy NUMBER
325 , p9_a60 out nocopy NUMBER
326 , p9_a61 out nocopy NUMBER
327 , p9_a62 out nocopy DATE
328 , p9_a63 out nocopy DATE
329 , p9_a64 out nocopy DATE
330 , p9_a65 out nocopy NUMBER
331 , p9_a66 out nocopy NUMBER
332 , p9_a67 out nocopy NUMBER
333 , p9_a68 out nocopy VARCHAR2
334 , p9_a69 out nocopy VARCHAR2
335 , p9_a70 out nocopy VARCHAR2
336 , p9_a71 out nocopy VARCHAR2
337 , p9_a72 out nocopy VARCHAR2
338 , p9_a73 out nocopy VARCHAR2
339 , p9_a74 out nocopy VARCHAR2
340 , p9_a75 out nocopy VARCHAR2
341 , p9_a76 out nocopy VARCHAR2
342 , p9_a77 out nocopy VARCHAR2
343 , p9_a78 out nocopy VARCHAR2
344 , p9_a79 out nocopy VARCHAR2
345 , p9_a80 out nocopy VARCHAR2
346 , p9_a81 out nocopy VARCHAR2
347 , p9_a82 out nocopy VARCHAR2
348 , p9_a83 out nocopy VARCHAR2
349 , p9_a84 out nocopy NUMBER
350 , p9_a85 out nocopy DATE
351 , p9_a86 out nocopy NUMBER
352 , p9_a87 out nocopy DATE
353 , p9_a88 out nocopy NUMBER
354 , p9_a89 out nocopy VARCHAR2
355 , p9_a90 out nocopy VARCHAR2
356 , p9_a91 out nocopy VARCHAR2
357 , p9_a92 out nocopy VARCHAR2
358 , p9_a93 out nocopy VARCHAR2
359 , p9_a94 out nocopy NUMBER
360 , p9_a95 out nocopy DATE
361 , p9_a96 out nocopy NUMBER
362 , p9_a97 out nocopy NUMBER
363 , p9_a98 out nocopy NUMBER
364 , p9_a99 out nocopy NUMBER
365 , p9_a100 out nocopy VARCHAR2
366 , p9_a101 out nocopy NUMBER
367 , p9_a102 out nocopy DATE
368 , p9_a103 out nocopy NUMBER
369 , p9_a104 out nocopy NUMBER
370 , p10_a0 out nocopy NUMBER
371 , p10_a1 out nocopy NUMBER
372 , p10_a2 out nocopy NUMBER
373 , p10_a3 out nocopy NUMBER
374 , p10_a4 out nocopy NUMBER
375 , p10_a5 out nocopy VARCHAR2
376 , p10_a6 out nocopy DATE
377 , p10_a7 out nocopy VARCHAR2
378 , p10_a8 out nocopy VARCHAR2
379 , p10_a9 out nocopy DATE
380 , p10_a10 out nocopy VARCHAR2
381 , p10_a11 out nocopy NUMBER
382 , p10_a12 out nocopy VARCHAR2
383 , p10_a13 out nocopy DATE
384 , p10_a14 out nocopy VARCHAR2
385 , p10_a15 out nocopy VARCHAR2
386 , p10_a16 out nocopy DATE
387 , p10_a17 out nocopy DATE
388 , p10_a18 out nocopy DATE
389 , p10_a19 out nocopy DATE
390 , p10_a20 out nocopy VARCHAR2
391 , p10_a21 out nocopy VARCHAR2
392 , p10_a22 out nocopy VARCHAR2
393 , p10_a23 out nocopy VARCHAR2
394 , p10_a24 out nocopy VARCHAR2
395 , p10_a25 out nocopy VARCHAR2
396 , p10_a26 out nocopy VARCHAR2
397 , p10_a27 out nocopy VARCHAR2
398 , p10_a28 out nocopy VARCHAR2
399 , p10_a29 out nocopy VARCHAR2
400 , p10_a30 out nocopy VARCHAR2
401 , p10_a31 out nocopy VARCHAR2
402 , p10_a32 out nocopy VARCHAR2
403 , p10_a33 out nocopy VARCHAR2
404 , p10_a34 out nocopy VARCHAR2
405 , p10_a35 out nocopy VARCHAR2
406 , p10_a36 out nocopy NUMBER
407 , p10_a37 out nocopy DATE
408 , p10_a38 out nocopy NUMBER
409 , p10_a39 out nocopy DATE
410 , p10_a40 out nocopy NUMBER
411 , p10_a41 out nocopy NUMBER
412 , p10_a42 out nocopy NUMBER
413 , p10_a43 out nocopy NUMBER
414 , p10_a44 out nocopy NUMBER
415 , p10_a45 out nocopy NUMBER
416 , p10_a46 out nocopy NUMBER
417 , p10_a47 out nocopy NUMBER
418 , p10_a48 out nocopy NUMBER
419 , p10_a49 out nocopy DATE
420 , p10_a50 out nocopy VARCHAR2
421 , p10_a51 out nocopy NUMBER
422 , p10_a52 out nocopy NUMBER
423 , p10_a53 out nocopy DATE
424 , p10_a54 out nocopy DATE
425 , p10_a55 out nocopy VARCHAR2
426 , p10_a56 out nocopy VARCHAR2
427 , p10_a57 out nocopy VARCHAR2
428 , p10_a58 out nocopy NUMBER
429 , p10_a59 out nocopy DATE
430 , p10_a60 out nocopy VARCHAR2
431 , p10_a61 out nocopy VARCHAR2
432 , p10_a62 out nocopy VARCHAR2
433 , p10_a63 out nocopy VARCHAR2
434 , p10_a64 out nocopy VARCHAR2
435 , p10_a65 out nocopy VARCHAR2
436 , p7_a0 NUMBER := 0-1962.0724
437 , p7_a1 NUMBER := 0-1962.0724
438 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
439 , p7_a3 NUMBER := 0-1962.0724
440 , p7_a4 NUMBER := 0-1962.0724
441 , p7_a5 NUMBER := 0-1962.0724
442 , p7_a6 NUMBER := 0-1962.0724
443 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
444 , p7_a8 NUMBER := 0-1962.0724
445 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
446 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
447 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
448 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
449 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
450 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
451 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
452 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
453 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
454 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
455 , p7_a19 VARCHAR2 := fnd_api.g_miss_char
456 , p7_a20 VARCHAR2 := fnd_api.g_miss_char
457 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
458 , p7_a22 VARCHAR2 := fnd_api.g_miss_char
459 , p7_a23 VARCHAR2 := fnd_api.g_miss_char
460 , p7_a24 VARCHAR2 := fnd_api.g_miss_char
461 , p7_a25 DATE := fnd_api.g_miss_date
462 , p7_a26 DATE := fnd_api.g_miss_date
463 , p7_a27 NUMBER := 0-1962.0724
464 , p7_a28 DATE := fnd_api.g_miss_date
465 , p7_a29 DATE := fnd_api.g_miss_date
466 , p7_a30 VARCHAR2 := fnd_api.g_miss_char
467 , p7_a31 VARCHAR2 := fnd_api.g_miss_char
468 , p7_a32 VARCHAR2 := fnd_api.g_miss_char
469 , p7_a33 VARCHAR2 := fnd_api.g_miss_char
470 , p7_a34 VARCHAR2 := fnd_api.g_miss_char
471 , p7_a35 VARCHAR2 := fnd_api.g_miss_char
472 , p7_a36 NUMBER := 0-1962.0724
473 , p7_a37 NUMBER := 0-1962.0724
474 , p7_a38 DATE := fnd_api.g_miss_date
475 , p7_a39 DATE := fnd_api.g_miss_date
476 , p7_a40 DATE := fnd_api.g_miss_date
477 , p7_a41 DATE := fnd_api.g_miss_date
478 , p7_a42 DATE := fnd_api.g_miss_date
479 , p7_a43 VARCHAR2 := fnd_api.g_miss_char
480 , p7_a44 DATE := fnd_api.g_miss_date
481 , p7_a45 DATE := fnd_api.g_miss_date
482 , p7_a46 NUMBER := 0-1962.0724
483 , p7_a47 VARCHAR2 := fnd_api.g_miss_char
484 , p7_a48 VARCHAR2 := fnd_api.g_miss_char
485 , p7_a49 NUMBER := 0-1962.0724
486 , p7_a50 NUMBER := 0-1962.0724
487 , p7_a51 NUMBER := 0-1962.0724
488 , p7_a52 VARCHAR2 := fnd_api.g_miss_char
489 , p7_a53 VARCHAR2 := fnd_api.g_miss_char
490 , p7_a54 NUMBER := 0-1962.0724
491 , p7_a55 NUMBER := 0-1962.0724
492 , p7_a56 VARCHAR2 := fnd_api.g_miss_char
493 , p7_a57 NUMBER := 0-1962.0724
494 , p7_a58 VARCHAR2 := fnd_api.g_miss_char
495 , p7_a59 NUMBER := 0-1962.0724
496 , p7_a60 NUMBER := 0-1962.0724
497 , p7_a61 NUMBER := 0-1962.0724
498 , p7_a62 DATE := fnd_api.g_miss_date
499 , p7_a63 DATE := fnd_api.g_miss_date
500 , p7_a64 DATE := fnd_api.g_miss_date
501 , p7_a65 NUMBER := 0-1962.0724
502 , p7_a66 NUMBER := 0-1962.0724
503 , p7_a67 NUMBER := 0-1962.0724
504 , p7_a68 VARCHAR2 := fnd_api.g_miss_char
505 , p7_a69 VARCHAR2 := fnd_api.g_miss_char
506 , p7_a70 VARCHAR2 := fnd_api.g_miss_char
507 , p7_a71 VARCHAR2 := fnd_api.g_miss_char
508 , p7_a72 VARCHAR2 := fnd_api.g_miss_char
509 , p7_a73 VARCHAR2 := fnd_api.g_miss_char
510 , p7_a74 VARCHAR2 := fnd_api.g_miss_char
511 , p7_a75 VARCHAR2 := fnd_api.g_miss_char
512 , p7_a76 VARCHAR2 := fnd_api.g_miss_char
513 , p7_a77 VARCHAR2 := fnd_api.g_miss_char
514 , p7_a78 VARCHAR2 := fnd_api.g_miss_char
515 , p7_a79 VARCHAR2 := fnd_api.g_miss_char
516 , p7_a80 VARCHAR2 := fnd_api.g_miss_char
517 , p7_a81 VARCHAR2 := fnd_api.g_miss_char
518 , p7_a82 VARCHAR2 := fnd_api.g_miss_char
519 , p7_a83 VARCHAR2 := fnd_api.g_miss_char
520 , p7_a84 NUMBER := 0-1962.0724
521 , p7_a85 DATE := fnd_api.g_miss_date
522 , p7_a86 NUMBER := 0-1962.0724
523 , p7_a87 DATE := fnd_api.g_miss_date
524 , p7_a88 NUMBER := 0-1962.0724
525 , p7_a89 VARCHAR2 := fnd_api.g_miss_char
526 , p7_a90 VARCHAR2 := fnd_api.g_miss_char
527 , p7_a91 VARCHAR2 := fnd_api.g_miss_char
528 , p7_a92 VARCHAR2 := fnd_api.g_miss_char
529 , p7_a93 VARCHAR2 := fnd_api.g_miss_char
530 , p7_a94 NUMBER := 0-1962.0724
531 , p7_a95 DATE := fnd_api.g_miss_date
532 , p7_a96 NUMBER := 0-1962.0724
533 , p7_a97 NUMBER := 0-1962.0724
534 , p7_a98 NUMBER := 0-1962.0724
535 , p7_a99 NUMBER := 0-1962.0724
536 , p7_a100 VARCHAR2 := fnd_api.g_miss_char
537 , p7_a101 NUMBER := 0-1962.0724
538 , p7_a102 DATE := fnd_api.g_miss_date
539 , p7_a103 NUMBER := 0-1962.0724
540 , p7_a104 NUMBER := 0-1962.0724
541 , p8_a0 NUMBER := 0-1962.0724
542 , p8_a1 NUMBER := 0-1962.0724
543 , p8_a2 NUMBER := 0-1962.0724
544 , p8_a3 NUMBER := 0-1962.0724
545 , p8_a4 NUMBER := 0-1962.0724
546 , p8_a5 VARCHAR2 := fnd_api.g_miss_char
547 , p8_a6 DATE := fnd_api.g_miss_date
548 , p8_a7 VARCHAR2 := fnd_api.g_miss_char
549 , p8_a8 VARCHAR2 := fnd_api.g_miss_char
550 , p8_a9 DATE := fnd_api.g_miss_date
551 , p8_a10 VARCHAR2 := fnd_api.g_miss_char
552 , p8_a11 NUMBER := 0-1962.0724
553 , p8_a12 VARCHAR2 := fnd_api.g_miss_char
554 , p8_a13 DATE := fnd_api.g_miss_date
555 , p8_a14 VARCHAR2 := fnd_api.g_miss_char
556 , p8_a15 VARCHAR2 := fnd_api.g_miss_char
557 , p8_a16 DATE := fnd_api.g_miss_date
558 , p8_a17 DATE := fnd_api.g_miss_date
559 , p8_a18 DATE := fnd_api.g_miss_date
560 , p8_a19 DATE := fnd_api.g_miss_date
561 , p8_a20 VARCHAR2 := fnd_api.g_miss_char
562 , p8_a21 VARCHAR2 := fnd_api.g_miss_char
563 , p8_a22 VARCHAR2 := fnd_api.g_miss_char
564 , p8_a23 VARCHAR2 := fnd_api.g_miss_char
565 , p8_a24 VARCHAR2 := fnd_api.g_miss_char
566 , p8_a25 VARCHAR2 := fnd_api.g_miss_char
567 , p8_a26 VARCHAR2 := fnd_api.g_miss_char
568 , p8_a27 VARCHAR2 := fnd_api.g_miss_char
569 , p8_a28 VARCHAR2 := fnd_api.g_miss_char
570 , p8_a29 VARCHAR2 := fnd_api.g_miss_char
571 , p8_a30 VARCHAR2 := fnd_api.g_miss_char
572 , p8_a31 VARCHAR2 := fnd_api.g_miss_char
573 , p8_a32 VARCHAR2 := fnd_api.g_miss_char
574 , p8_a33 VARCHAR2 := fnd_api.g_miss_char
575 , p8_a34 VARCHAR2 := fnd_api.g_miss_char
576 , p8_a35 VARCHAR2 := fnd_api.g_miss_char
577 , p8_a36 NUMBER := 0-1962.0724
578 , p8_a37 DATE := fnd_api.g_miss_date
579 , p8_a38 NUMBER := 0-1962.0724
580 , p8_a39 DATE := fnd_api.g_miss_date
581 , p8_a40 NUMBER := 0-1962.0724
582 , p8_a41 NUMBER := 0-1962.0724
583 , p8_a42 NUMBER := 0-1962.0724
584 , p8_a43 NUMBER := 0-1962.0724
585 , p8_a44 NUMBER := 0-1962.0724
586 , p8_a45 NUMBER := 0-1962.0724
587 , p8_a46 NUMBER := 0-1962.0724
588 , p8_a47 NUMBER := 0-1962.0724
589 , p8_a48 NUMBER := 0-1962.0724
590 , p8_a49 DATE := fnd_api.g_miss_date
591 , p8_a50 VARCHAR2 := fnd_api.g_miss_char
592 , p8_a51 NUMBER := 0-1962.0724
593 , p8_a52 NUMBER := 0-1962.0724
594 , p8_a53 DATE := fnd_api.g_miss_date
595 , p8_a54 DATE := fnd_api.g_miss_date
596 , p8_a55 VARCHAR2 := fnd_api.g_miss_char
597 , p8_a56 VARCHAR2 := fnd_api.g_miss_char
598 , p8_a57 VARCHAR2 := fnd_api.g_miss_char
599 , p8_a58 NUMBER := 0-1962.0724
600 , p8_a59 DATE := fnd_api.g_miss_date
601 , p8_a60 VARCHAR2 := fnd_api.g_miss_char
602 , p8_a61 VARCHAR2 := fnd_api.g_miss_char
603 , p8_a62 VARCHAR2 := fnd_api.g_miss_char
604 , p8_a63 VARCHAR2 := fnd_api.g_miss_char
605 , p8_a64 VARCHAR2 := fnd_api.g_miss_char
606 , p8_a65 VARCHAR2 := fnd_api.g_miss_char
607 )
608
609 as
610 ddp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
611 ddp_khrv_rec okl_credit_pub.khrv_rec_type;
612 ddx_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
613 ddx_khrv_rec okl_credit_pub.khrv_rec_type;
614 ddindx binary_integer; indx binary_integer;
615 begin
616
617 -- copy data to the local IN or IN-OUT args, if any
618
619
620
621
622
623
624
625 ddp_chrv_rec.id := rosetta_g_miss_num_map(p7_a0);
626 ddp_chrv_rec.object_version_number := rosetta_g_miss_num_map(p7_a1);
627 ddp_chrv_rec.sfwt_flag := p7_a2;
628 ddp_chrv_rec.chr_id_response := rosetta_g_miss_num_map(p7_a3);
629 ddp_chrv_rec.chr_id_award := rosetta_g_miss_num_map(p7_a4);
630 ddp_chrv_rec.chr_id_renewed := rosetta_g_miss_num_map(p7_a5);
631 ddp_chrv_rec.inv_organization_id := rosetta_g_miss_num_map(p7_a6);
632 ddp_chrv_rec.sts_code := p7_a7;
633 ddp_chrv_rec.qcl_id := rosetta_g_miss_num_map(p7_a8);
634 ddp_chrv_rec.scs_code := p7_a9;
635 ddp_chrv_rec.contract_number := p7_a10;
636 ddp_chrv_rec.currency_code := p7_a11;
637 ddp_chrv_rec.contract_number_modifier := p7_a12;
638 ddp_chrv_rec.archived_yn := p7_a13;
639 ddp_chrv_rec.deleted_yn := p7_a14;
640 ddp_chrv_rec.cust_po_number_req_yn := p7_a15;
641 ddp_chrv_rec.pre_pay_req_yn := p7_a16;
642 ddp_chrv_rec.cust_po_number := p7_a17;
643 ddp_chrv_rec.short_description := p7_a18;
644 ddp_chrv_rec.comments := p7_a19;
645 ddp_chrv_rec.description := p7_a20;
646 ddp_chrv_rec.dpas_rating := p7_a21;
647 ddp_chrv_rec.cognomen := p7_a22;
648 ddp_chrv_rec.template_yn := p7_a23;
649 ddp_chrv_rec.template_used := p7_a24;
650 ddp_chrv_rec.date_approved := rosetta_g_miss_date_in_map(p7_a25);
651 ddp_chrv_rec.datetime_cancelled := rosetta_g_miss_date_in_map(p7_a26);
652 ddp_chrv_rec.auto_renew_days := rosetta_g_miss_num_map(p7_a27);
653 ddp_chrv_rec.date_issued := rosetta_g_miss_date_in_map(p7_a28);
654 ddp_chrv_rec.datetime_responded := rosetta_g_miss_date_in_map(p7_a29);
655 ddp_chrv_rec.non_response_reason := p7_a30;
656 ddp_chrv_rec.non_response_explain := p7_a31;
657 ddp_chrv_rec.rfp_type := p7_a32;
658 ddp_chrv_rec.chr_type := p7_a33;
659 ddp_chrv_rec.keep_on_mail_list := p7_a34;
660 ddp_chrv_rec.set_aside_reason := p7_a35;
661 ddp_chrv_rec.set_aside_percent := rosetta_g_miss_num_map(p7_a36);
662 ddp_chrv_rec.response_copies_req := rosetta_g_miss_num_map(p7_a37);
663 ddp_chrv_rec.date_close_projected := rosetta_g_miss_date_in_map(p7_a38);
664 ddp_chrv_rec.datetime_proposed := rosetta_g_miss_date_in_map(p7_a39);
665 ddp_chrv_rec.date_signed := rosetta_g_miss_date_in_map(p7_a40);
666 ddp_chrv_rec.date_terminated := rosetta_g_miss_date_in_map(p7_a41);
667 ddp_chrv_rec.date_renewed := rosetta_g_miss_date_in_map(p7_a42);
668 ddp_chrv_rec.trn_code := p7_a43;
669 ddp_chrv_rec.start_date := rosetta_g_miss_date_in_map(p7_a44);
670 ddp_chrv_rec.end_date := rosetta_g_miss_date_in_map(p7_a45);
671 ddp_chrv_rec.authoring_org_id := rosetta_g_miss_num_map(p7_a46);
672 ddp_chrv_rec.buy_or_sell := p7_a47;
673 ddp_chrv_rec.issue_or_receive := p7_a48;
674 ddp_chrv_rec.estimated_amount := rosetta_g_miss_num_map(p7_a49);
675 ddp_chrv_rec.chr_id_renewed_to := rosetta_g_miss_num_map(p7_a50);
676 ddp_chrv_rec.estimated_amount_renewed := rosetta_g_miss_num_map(p7_a51);
677 ddp_chrv_rec.currency_code_renewed := p7_a52;
678 ddp_chrv_rec.upg_orig_system_ref := p7_a53;
679 ddp_chrv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p7_a54);
680 ddp_chrv_rec.application_id := rosetta_g_miss_num_map(p7_a55);
681 ddp_chrv_rec.orig_system_source_code := p7_a56;
682 ddp_chrv_rec.orig_system_id1 := rosetta_g_miss_num_map(p7_a57);
683 ddp_chrv_rec.orig_system_reference1 := p7_a58;
684 ddp_chrv_rec.program_id := rosetta_g_miss_num_map(p7_a59);
685 ddp_chrv_rec.request_id := rosetta_g_miss_num_map(p7_a60);
686 ddp_chrv_rec.price_list_id := rosetta_g_miss_num_map(p7_a61);
687 ddp_chrv_rec.pricing_date := rosetta_g_miss_date_in_map(p7_a62);
688 ddp_chrv_rec.sign_by_date := rosetta_g_miss_date_in_map(p7_a63);
689 ddp_chrv_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a64);
690 ddp_chrv_rec.total_line_list_price := rosetta_g_miss_num_map(p7_a65);
691 ddp_chrv_rec.program_application_id := rosetta_g_miss_num_map(p7_a66);
692 ddp_chrv_rec.user_estimated_amount := rosetta_g_miss_num_map(p7_a67);
693 ddp_chrv_rec.attribute_category := p7_a68;
694 ddp_chrv_rec.attribute1 := p7_a69;
695 ddp_chrv_rec.attribute2 := p7_a70;
696 ddp_chrv_rec.attribute3 := p7_a71;
697 ddp_chrv_rec.attribute4 := p7_a72;
698 ddp_chrv_rec.attribute5 := p7_a73;
699 ddp_chrv_rec.attribute6 := p7_a74;
700 ddp_chrv_rec.attribute7 := p7_a75;
701 ddp_chrv_rec.attribute8 := p7_a76;
702 ddp_chrv_rec.attribute9 := p7_a77;
703 ddp_chrv_rec.attribute10 := p7_a78;
704 ddp_chrv_rec.attribute11 := p7_a79;
705 ddp_chrv_rec.attribute12 := p7_a80;
706 ddp_chrv_rec.attribute13 := p7_a81;
707 ddp_chrv_rec.attribute14 := p7_a82;
708 ddp_chrv_rec.attribute15 := p7_a83;
709 ddp_chrv_rec.created_by := rosetta_g_miss_num_map(p7_a84);
710 ddp_chrv_rec.creation_date := rosetta_g_miss_date_in_map(p7_a85);
711 ddp_chrv_rec.last_updated_by := rosetta_g_miss_num_map(p7_a86);
712 ddp_chrv_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a87);
713 ddp_chrv_rec.last_update_login := rosetta_g_miss_num_map(p7_a88);
714 ddp_chrv_rec.old_sts_code := p7_a89;
715 ddp_chrv_rec.new_sts_code := p7_a90;
716 ddp_chrv_rec.old_ste_code := p7_a91;
717 ddp_chrv_rec.new_ste_code := p7_a92;
718 ddp_chrv_rec.conversion_type := p7_a93;
719 ddp_chrv_rec.conversion_rate := rosetta_g_miss_num_map(p7_a94);
720 ddp_chrv_rec.conversion_rate_date := rosetta_g_miss_date_in_map(p7_a95);
721 ddp_chrv_rec.conversion_euro_rate := rosetta_g_miss_num_map(p7_a96);
722 ddp_chrv_rec.cust_acct_id := rosetta_g_miss_num_map(p7_a97);
723 ddp_chrv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p7_a98);
724 ddp_chrv_rec.inv_rule_id := rosetta_g_miss_num_map(p7_a99);
725 ddp_chrv_rec.renewal_type_code := p7_a100;
726 ddp_chrv_rec.renewal_notify_to := rosetta_g_miss_num_map(p7_a101);
727 ddp_chrv_rec.renewal_end_date := rosetta_g_miss_date_in_map(p7_a102);
728 ddp_chrv_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p7_a103);
729 ddp_chrv_rec.payment_term_id := rosetta_g_miss_num_map(p7_a104);
730
731 ddp_khrv_rec.id := rosetta_g_miss_num_map(p8_a0);
732 ddp_khrv_rec.object_version_number := rosetta_g_miss_num_map(p8_a1);
733 ddp_khrv_rec.isg_id := rosetta_g_miss_num_map(p8_a2);
734 ddp_khrv_rec.khr_id := rosetta_g_miss_num_map(p8_a3);
735 ddp_khrv_rec.pdt_id := rosetta_g_miss_num_map(p8_a4);
736 ddp_khrv_rec.amd_code := p8_a5;
737 ddp_khrv_rec.date_first_activity := rosetta_g_miss_date_in_map(p8_a6);
738 ddp_khrv_rec.generate_accrual_yn := p8_a7;
739 ddp_khrv_rec.generate_accrual_override_yn := p8_a8;
740 ddp_khrv_rec.date_refinanced := rosetta_g_miss_date_in_map(p8_a9);
741 ddp_khrv_rec.credit_act_yn := p8_a10;
742 ddp_khrv_rec.term_duration := rosetta_g_miss_num_map(p8_a11);
743 ddp_khrv_rec.converted_account_yn := p8_a12;
744 ddp_khrv_rec.date_conversion_effective := rosetta_g_miss_date_in_map(p8_a13);
745 ddp_khrv_rec.syndicatable_yn := p8_a14;
746 ddp_khrv_rec.salestype_yn := p8_a15;
747 ddp_khrv_rec.date_deal_transferred := rosetta_g_miss_date_in_map(p8_a16);
748 ddp_khrv_rec.datetime_proposal_effective := rosetta_g_miss_date_in_map(p8_a17);
749 ddp_khrv_rec.datetime_proposal_ineffective := rosetta_g_miss_date_in_map(p8_a18);
750 ddp_khrv_rec.date_proposal_accepted := rosetta_g_miss_date_in_map(p8_a19);
751 ddp_khrv_rec.attribute_category := p8_a20;
752 ddp_khrv_rec.attribute1 := p8_a21;
753 ddp_khrv_rec.attribute2 := p8_a22;
754 ddp_khrv_rec.attribute3 := p8_a23;
755 ddp_khrv_rec.attribute4 := p8_a24;
756 ddp_khrv_rec.attribute5 := p8_a25;
757 ddp_khrv_rec.attribute6 := p8_a26;
758 ddp_khrv_rec.attribute7 := p8_a27;
759 ddp_khrv_rec.attribute8 := p8_a28;
760 ddp_khrv_rec.attribute9 := p8_a29;
761 ddp_khrv_rec.attribute10 := p8_a30;
762 ddp_khrv_rec.attribute11 := p8_a31;
763 ddp_khrv_rec.attribute12 := p8_a32;
764 ddp_khrv_rec.attribute13 := p8_a33;
765 ddp_khrv_rec.attribute14 := p8_a34;
766 ddp_khrv_rec.attribute15 := p8_a35;
767 ddp_khrv_rec.created_by := rosetta_g_miss_num_map(p8_a36);
768 ddp_khrv_rec.creation_date := rosetta_g_miss_date_in_map(p8_a37);
769 ddp_khrv_rec.last_updated_by := rosetta_g_miss_num_map(p8_a38);
770 ddp_khrv_rec.last_update_date := rosetta_g_miss_date_in_map(p8_a39);
771 ddp_khrv_rec.last_update_login := rosetta_g_miss_num_map(p8_a40);
772 ddp_khrv_rec.pre_tax_yield := rosetta_g_miss_num_map(p8_a41);
773 ddp_khrv_rec.after_tax_yield := rosetta_g_miss_num_map(p8_a42);
774 ddp_khrv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p8_a43);
775 ddp_khrv_rec.implicit_non_idc_interest_rate := rosetta_g_miss_num_map(p8_a44);
776 ddp_khrv_rec.target_pre_tax_yield := rosetta_g_miss_num_map(p8_a45);
777 ddp_khrv_rec.target_after_tax_yield := rosetta_g_miss_num_map(p8_a46);
778 ddp_khrv_rec.target_implicit_interest_rate := rosetta_g_miss_num_map(p8_a47);
779 ddp_khrv_rec.target_implicit_nonidc_intrate := rosetta_g_miss_num_map(p8_a48);
780 ddp_khrv_rec.date_last_interim_interest_cal := rosetta_g_miss_date_in_map(p8_a49);
781 ddp_khrv_rec.deal_type := p8_a50;
782 ddp_khrv_rec.pre_tax_irr := rosetta_g_miss_num_map(p8_a51);
783 ddp_khrv_rec.after_tax_irr := rosetta_g_miss_num_map(p8_a52);
784 ddp_khrv_rec.expected_delivery_date := rosetta_g_miss_date_in_map(p8_a53);
785 ddp_khrv_rec.accepted_date := rosetta_g_miss_date_in_map(p8_a54);
786 ddp_khrv_rec.prefunding_eligible_yn := p8_a55;
787
788 ddp_khrv_rec.revolving_credit_yn := p8_a56;
789 ddp_khrv_rec.currency_conversion_type := p8_a57;
790 ddp_khrv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p8_a58);
791 ddp_khrv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p8_a59);
792 ddp_khrv_rec.multi_gaap_yn := p8_a60;
793 ddp_khrv_rec.recourse_code := p8_a61;
794 ddp_khrv_rec.lessor_serv_org_code := p8_a62;
795 ddp_khrv_rec.assignable_yn := p8_a63;
796 ddp_khrv_rec.securitized_code := p8_a64;
797 ddp_khrv_rec.securitization_type := p8_a65;
798
799
800
801 -- here's the delegated call to the old PL/SQL routine
802 okl_credit_pub.create_credit_header(p_api_version,
803 p_init_msg_list,
804 x_return_status,
805 x_msg_count,
806 x_msg_data,
807 p_credit_ckl_id,
808 p_funding_ckl_id,
809 ddp_chrv_rec,
810 ddp_khrv_rec,
811 ddx_chrv_rec,
812 ddx_khrv_rec);
813
814 -- copy data back from the local variables to OUT or IN-OUT args, if any
815
816
817
818
819
820
821
822
823
824 p9_a0 := rosetta_g_miss_num_map(ddx_chrv_rec.id);
825 p9_a1 := rosetta_g_miss_num_map(ddx_chrv_rec.object_version_number);
826 p9_a2 := ddx_chrv_rec.sfwt_flag;
827 p9_a3 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_response);
828 p9_a4 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_award);
829 p9_a5 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_renewed);
830 p9_a6 := rosetta_g_miss_num_map(ddx_chrv_rec.inv_organization_id);
831 p9_a7 := ddx_chrv_rec.sts_code;
832 p9_a8 := rosetta_g_miss_num_map(ddx_chrv_rec.qcl_id);
833 p9_a9 := ddx_chrv_rec.scs_code;
834 p9_a10 := ddx_chrv_rec.contract_number;
835 p9_a11 := ddx_chrv_rec.currency_code;
836 p9_a12 := ddx_chrv_rec.contract_number_modifier;
837 p9_a13 := ddx_chrv_rec.archived_yn;
838 p9_a14 := ddx_chrv_rec.deleted_yn;
839 p9_a15 := ddx_chrv_rec.cust_po_number_req_yn;
840 p9_a16 := ddx_chrv_rec.pre_pay_req_yn;
841 p9_a17 := ddx_chrv_rec.cust_po_number;
842 p9_a18 := ddx_chrv_rec.short_description;
843 p9_a19 := ddx_chrv_rec.comments;
844 p9_a20 := ddx_chrv_rec.description;
845 p9_a21 := ddx_chrv_rec.dpas_rating;
846 p9_a22 := ddx_chrv_rec.cognomen;
847 p9_a23 := ddx_chrv_rec.template_yn;
848 p9_a24 := ddx_chrv_rec.template_used;
849 p9_a25 := ddx_chrv_rec.date_approved;
850 p9_a26 := ddx_chrv_rec.datetime_cancelled;
851 p9_a27 := rosetta_g_miss_num_map(ddx_chrv_rec.auto_renew_days);
852 p9_a28 := ddx_chrv_rec.date_issued;
853 p9_a29 := ddx_chrv_rec.datetime_responded;
854 p9_a30 := ddx_chrv_rec.non_response_reason;
855 p9_a31 := ddx_chrv_rec.non_response_explain;
856 p9_a32 := ddx_chrv_rec.rfp_type;
857 p9_a33 := ddx_chrv_rec.chr_type;
858 p9_a34 := ddx_chrv_rec.keep_on_mail_list;
859 p9_a35 := ddx_chrv_rec.set_aside_reason;
860 p9_a36 := rosetta_g_miss_num_map(ddx_chrv_rec.set_aside_percent);
861 p9_a37 := rosetta_g_miss_num_map(ddx_chrv_rec.response_copies_req);
862 p9_a38 := ddx_chrv_rec.date_close_projected;
863 p9_a39 := ddx_chrv_rec.datetime_proposed;
864 p9_a40 := ddx_chrv_rec.date_signed;
865 p9_a41 := ddx_chrv_rec.date_terminated;
866 p9_a42 := ddx_chrv_rec.date_renewed;
867 p9_a43 := ddx_chrv_rec.trn_code;
868 p9_a44 := ddx_chrv_rec.start_date;
869 p9_a45 := ddx_chrv_rec.end_date;
870 p9_a46 := rosetta_g_miss_num_map(ddx_chrv_rec.authoring_org_id);
871 p9_a47 := ddx_chrv_rec.buy_or_sell;
872 p9_a48 := ddx_chrv_rec.issue_or_receive;
873 p9_a49 := rosetta_g_miss_num_map(ddx_chrv_rec.estimated_amount);
874 p9_a50 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_renewed_to);
875 p9_a51 := rosetta_g_miss_num_map(ddx_chrv_rec.estimated_amount_renewed);
876 p9_a52 := ddx_chrv_rec.currency_code_renewed;
877 p9_a53 := ddx_chrv_rec.upg_orig_system_ref;
878 p9_a54 := rosetta_g_miss_num_map(ddx_chrv_rec.upg_orig_system_ref_id);
879 p9_a55 := rosetta_g_miss_num_map(ddx_chrv_rec.application_id);
880 p9_a56 := ddx_chrv_rec.orig_system_source_code;
881 p9_a57 := rosetta_g_miss_num_map(ddx_chrv_rec.orig_system_id1);
882 p9_a58 := ddx_chrv_rec.orig_system_reference1;
883 p9_a59 := rosetta_g_miss_num_map(ddx_chrv_rec.program_id);
884 p9_a60 := rosetta_g_miss_num_map(ddx_chrv_rec.request_id);
885 p9_a61 := rosetta_g_miss_num_map(ddx_chrv_rec.price_list_id);
886 p9_a62 := ddx_chrv_rec.pricing_date;
887 p9_a63 := ddx_chrv_rec.sign_by_date;
888 p9_a64 := ddx_chrv_rec.program_update_date;
889 p9_a65 := rosetta_g_miss_num_map(ddx_chrv_rec.total_line_list_price);
890 p9_a66 := rosetta_g_miss_num_map(ddx_chrv_rec.program_application_id);
891 p9_a67 := rosetta_g_miss_num_map(ddx_chrv_rec.user_estimated_amount);
892 p9_a68 := ddx_chrv_rec.attribute_category;
893 p9_a69 := ddx_chrv_rec.attribute1;
894 p9_a70 := ddx_chrv_rec.attribute2;
895 p9_a71 := ddx_chrv_rec.attribute3;
896 p9_a72 := ddx_chrv_rec.attribute4;
897 p9_a73 := ddx_chrv_rec.attribute5;
898 p9_a74 := ddx_chrv_rec.attribute6;
899 p9_a75 := ddx_chrv_rec.attribute7;
900 p9_a76 := ddx_chrv_rec.attribute8;
901 p9_a77 := ddx_chrv_rec.attribute9;
902 p9_a78 := ddx_chrv_rec.attribute10;
903 p9_a79 := ddx_chrv_rec.attribute11;
904 p9_a80 := ddx_chrv_rec.attribute12;
905 p9_a81 := ddx_chrv_rec.attribute13;
906 p9_a82 := ddx_chrv_rec.attribute14;
907 p9_a83 := ddx_chrv_rec.attribute15;
908 p9_a84 := rosetta_g_miss_num_map(ddx_chrv_rec.created_by);
909 p9_a85 := ddx_chrv_rec.creation_date;
910 p9_a86 := rosetta_g_miss_num_map(ddx_chrv_rec.last_updated_by);
911 p9_a87 := ddx_chrv_rec.last_update_date;
912 p9_a88 := rosetta_g_miss_num_map(ddx_chrv_rec.last_update_login);
913 p9_a89 := ddx_chrv_rec.old_sts_code;
914 p9_a90 := ddx_chrv_rec.new_sts_code;
915 p9_a91 := ddx_chrv_rec.old_ste_code;
916 p9_a92 := ddx_chrv_rec.new_ste_code;
917 p9_a93 := ddx_chrv_rec.conversion_type;
918 p9_a94 := rosetta_g_miss_num_map(ddx_chrv_rec.conversion_rate);
919 p9_a95 := ddx_chrv_rec.conversion_rate_date;
920 p9_a96 := rosetta_g_miss_num_map(ddx_chrv_rec.conversion_euro_rate);
921 p9_a97 := rosetta_g_miss_num_map(ddx_chrv_rec.cust_acct_id);
922 p9_a98 := rosetta_g_miss_num_map(ddx_chrv_rec.bill_to_site_use_id);
923 p9_a99 := rosetta_g_miss_num_map(ddx_chrv_rec.inv_rule_id);
924 p9_a100 := ddx_chrv_rec.renewal_type_code;
925 p9_a101 := rosetta_g_miss_num_map(ddx_chrv_rec.renewal_notify_to);
926 p9_a102 := ddx_chrv_rec.renewal_end_date;
927 p9_a103 := rosetta_g_miss_num_map(ddx_chrv_rec.ship_to_site_use_id);
928 p9_a104 := rosetta_g_miss_num_map(ddx_chrv_rec.payment_term_id);
929
930 p10_a0 := rosetta_g_miss_num_map(ddx_khrv_rec.id);
931 p10_a1 := rosetta_g_miss_num_map(ddx_khrv_rec.object_version_number);
932 p10_a2 := rosetta_g_miss_num_map(ddx_khrv_rec.isg_id);
933 p10_a3 := rosetta_g_miss_num_map(ddx_khrv_rec.khr_id);
934 p10_a4 := rosetta_g_miss_num_map(ddx_khrv_rec.pdt_id);
935 p10_a5 := ddx_khrv_rec.amd_code;
936 p10_a6 := ddx_khrv_rec.date_first_activity;
937 p10_a7 := ddx_khrv_rec.generate_accrual_yn;
938 p10_a8 := ddx_khrv_rec.generate_accrual_override_yn;
939 p10_a9 := ddx_khrv_rec.date_refinanced;
940 p10_a10 := ddx_khrv_rec.credit_act_yn;
941 p10_a11 := rosetta_g_miss_num_map(ddx_khrv_rec.term_duration);
942 p10_a12 := ddx_khrv_rec.converted_account_yn;
943 p10_a13 := ddx_khrv_rec.date_conversion_effective;
944 p10_a14 := ddx_khrv_rec.syndicatable_yn;
945 p10_a15 := ddx_khrv_rec.salestype_yn;
946 p10_a16 := ddx_khrv_rec.date_deal_transferred;
947 p10_a17 := ddx_khrv_rec.datetime_proposal_effective;
948 p10_a18 := ddx_khrv_rec.datetime_proposal_ineffective;
949 p10_a19 := ddx_khrv_rec.date_proposal_accepted;
950 p10_a20 := ddx_khrv_rec.attribute_category;
951 p10_a21 := ddx_khrv_rec.attribute1;
952 p10_a22 := ddx_khrv_rec.attribute2;
953 p10_a23 := ddx_khrv_rec.attribute3;
954 p10_a24 := ddx_khrv_rec.attribute4;
955 p10_a25 := ddx_khrv_rec.attribute5;
956 p10_a26 := ddx_khrv_rec.attribute6;
957 p10_a27 := ddx_khrv_rec.attribute7;
958 p10_a28 := ddx_khrv_rec.attribute8;
959 p10_a29 := ddx_khrv_rec.attribute9;
960 p10_a30 := ddx_khrv_rec.attribute10;
961 p10_a31 := ddx_khrv_rec.attribute11;
962 p10_a32 := ddx_khrv_rec.attribute12;
963 p10_a33 := ddx_khrv_rec.attribute13;
964 p10_a34 := ddx_khrv_rec.attribute14;
965 p10_a35 := ddx_khrv_rec.attribute15;
966 p10_a36 := rosetta_g_miss_num_map(ddx_khrv_rec.created_by);
967 p10_a37 := ddx_khrv_rec.creation_date;
968 p10_a38 := rosetta_g_miss_num_map(ddx_khrv_rec.last_updated_by);
969 p10_a39 := ddx_khrv_rec.last_update_date;
970 p10_a40 := rosetta_g_miss_num_map(ddx_khrv_rec.last_update_login);
971 p10_a41 := rosetta_g_miss_num_map(ddx_khrv_rec.pre_tax_yield);
972 p10_a42 := rosetta_g_miss_num_map(ddx_khrv_rec.after_tax_yield);
973 p10_a43 := rosetta_g_miss_num_map(ddx_khrv_rec.implicit_interest_rate);
974 p10_a44 := rosetta_g_miss_num_map(ddx_khrv_rec.implicit_non_idc_interest_rate);
975 p10_a45 := rosetta_g_miss_num_map(ddx_khrv_rec.target_pre_tax_yield);
976 p10_a46 := rosetta_g_miss_num_map(ddx_khrv_rec.target_after_tax_yield);
977 p10_a47 := rosetta_g_miss_num_map(ddx_khrv_rec.target_implicit_interest_rate);
978 p10_a48 := rosetta_g_miss_num_map(ddx_khrv_rec.target_implicit_nonidc_intrate);
979 p10_a49 := ddx_khrv_rec.date_last_interim_interest_cal;
980 p10_a50 := ddx_khrv_rec.deal_type;
981 p10_a51 := rosetta_g_miss_num_map(ddx_khrv_rec.pre_tax_irr);
982 p10_a52 := rosetta_g_miss_num_map(ddx_khrv_rec.after_tax_irr);
983 p10_a53 := ddx_khrv_rec.expected_delivery_date;
984 p10_a54 := ddx_khrv_rec.accepted_date;
985 p10_a55 := ddx_khrv_rec.prefunding_eligible_yn;
986 p10_a56 := ddx_khrv_rec.revolving_credit_yn;
987 p10_a57 := ddx_khrv_rec.currency_conversion_type;
988 p10_a58 := rosetta_g_miss_num_map(ddx_khrv_rec.currency_conversion_rate);
989 p10_a59 := ddx_khrv_rec.currency_conversion_date;
990 p10_a60 := ddx_khrv_rec.multi_gaap_yn;
991 p10_a61 := ddx_khrv_rec.recourse_code;
992 p10_a62 := ddx_khrv_rec.lessor_serv_org_code;
993 p10_a63 := ddx_khrv_rec.assignable_yn;
994 p10_a64 := ddx_khrv_rec.securitized_code;
995 p10_a65 := ddx_khrv_rec.securitization_type;
996 end;
997
998 procedure update_credit_header(p_api_version NUMBER
999 , p_init_msg_list VARCHAR2
1000 , x_return_status out nocopy VARCHAR2
1001 , x_msg_count out nocopy NUMBER
1002 , x_msg_data out nocopy VARCHAR2
1003 , p_restricted_update VARCHAR2
1004 , p_chklst_tpl_rgp_id NUMBER
1005 , p_chklst_tpl_rule_id NUMBER
1006 , p_credit_ckl_id NUMBER
1007 , p_funding_ckl_id NUMBER
1008 , p12_a0 out nocopy NUMBER
1009 , p12_a1 out nocopy NUMBER
1010 , p12_a2 out nocopy VARCHAR2
1011 , p12_a3 out nocopy NUMBER
1012 , p12_a4 out nocopy NUMBER
1013 , p12_a5 out nocopy NUMBER
1014 , p12_a6 out nocopy NUMBER
1015 , p12_a7 out nocopy VARCHAR2
1016 , p12_a8 out nocopy NUMBER
1017 , p12_a9 out nocopy VARCHAR2
1018 , p12_a10 out nocopy VARCHAR2
1019 , p12_a11 out nocopy VARCHAR2
1020 , p12_a12 out nocopy VARCHAR2
1021 , p12_a13 out nocopy VARCHAR2
1022 , p12_a14 out nocopy VARCHAR2
1023 , p12_a15 out nocopy VARCHAR2
1024 , p12_a16 out nocopy VARCHAR2
1025 , p12_a17 out nocopy VARCHAR2
1026 , p12_a18 out nocopy VARCHAR2
1027 , p12_a19 out nocopy VARCHAR2
1028 , p12_a20 out nocopy VARCHAR2
1029 , p12_a21 out nocopy VARCHAR2
1030 , p12_a22 out nocopy VARCHAR2
1031 , p12_a23 out nocopy VARCHAR2
1032 , p12_a24 out nocopy VARCHAR2
1033 , p12_a25 out nocopy DATE
1034 , p12_a26 out nocopy DATE
1035 , p12_a27 out nocopy NUMBER
1036 , p12_a28 out nocopy DATE
1037 , p12_a29 out nocopy DATE
1038 , p12_a30 out nocopy VARCHAR2
1039 , p12_a31 out nocopy VARCHAR2
1040 , p12_a32 out nocopy VARCHAR2
1041 , p12_a33 out nocopy VARCHAR2
1042 , p12_a34 out nocopy VARCHAR2
1043 , p12_a35 out nocopy VARCHAR2
1044 , p12_a36 out nocopy NUMBER
1045 , p12_a37 out nocopy NUMBER
1046 , p12_a38 out nocopy DATE
1047 , p12_a39 out nocopy DATE
1048 , p12_a40 out nocopy DATE
1049 , p12_a41 out nocopy DATE
1050 , p12_a42 out nocopy DATE
1051 , p12_a43 out nocopy VARCHAR2
1052 , p12_a44 out nocopy DATE
1053 , p12_a45 out nocopy DATE
1054 , p12_a46 out nocopy NUMBER
1055 , p12_a47 out nocopy VARCHAR2
1056 , p12_a48 out nocopy VARCHAR2
1057 , p12_a49 out nocopy NUMBER
1058 , p12_a50 out nocopy NUMBER
1059 , p12_a51 out nocopy NUMBER
1060 , p12_a52 out nocopy VARCHAR2
1061 , p12_a53 out nocopy VARCHAR2
1062 , p12_a54 out nocopy NUMBER
1063 , p12_a55 out nocopy NUMBER
1064 , p12_a56 out nocopy VARCHAR2
1065 , p12_a57 out nocopy NUMBER
1066 , p12_a58 out nocopy VARCHAR2
1067 , p12_a59 out nocopy NUMBER
1068 , p12_a60 out nocopy NUMBER
1069 , p12_a61 out nocopy NUMBER
1070 , p12_a62 out nocopy DATE
1071 , p12_a63 out nocopy DATE
1072 , p12_a64 out nocopy DATE
1073 , p12_a65 out nocopy NUMBER
1074 , p12_a66 out nocopy NUMBER
1075 , p12_a67 out nocopy NUMBER
1076 , p12_a68 out nocopy VARCHAR2
1077 , p12_a69 out nocopy VARCHAR2
1078 , p12_a70 out nocopy VARCHAR2
1079 , p12_a71 out nocopy VARCHAR2
1080 , p12_a72 out nocopy VARCHAR2
1081 , p12_a73 out nocopy VARCHAR2
1082 , p12_a74 out nocopy VARCHAR2
1083 , p12_a75 out nocopy VARCHAR2
1084 , p12_a76 out nocopy VARCHAR2
1085 , p12_a77 out nocopy VARCHAR2
1086 , p12_a78 out nocopy VARCHAR2
1087 , p12_a79 out nocopy VARCHAR2
1088 , p12_a80 out nocopy VARCHAR2
1089 , p12_a81 out nocopy VARCHAR2
1090 , p12_a82 out nocopy VARCHAR2
1091 , p12_a83 out nocopy VARCHAR2
1092 , p12_a84 out nocopy NUMBER
1093 , p12_a85 out nocopy DATE
1094 , p12_a86 out nocopy NUMBER
1095 , p12_a87 out nocopy DATE
1096 , p12_a88 out nocopy NUMBER
1097 , p12_a89 out nocopy VARCHAR2
1098 , p12_a90 out nocopy VARCHAR2
1099 , p12_a91 out nocopy VARCHAR2
1100 , p12_a92 out nocopy VARCHAR2
1101 , p12_a93 out nocopy VARCHAR2
1102 , p12_a94 out nocopy NUMBER
1103 , p12_a95 out nocopy DATE
1104 , p12_a96 out nocopy NUMBER
1105 , p12_a97 out nocopy NUMBER
1106 , p12_a98 out nocopy NUMBER
1107 , p12_a99 out nocopy NUMBER
1108 , p12_a100 out nocopy VARCHAR2
1109 , p12_a101 out nocopy NUMBER
1110 , p12_a102 out nocopy DATE
1111 , p12_a103 out nocopy NUMBER
1112 , p12_a104 out nocopy NUMBER
1113 , p13_a0 out nocopy NUMBER
1114 , p13_a1 out nocopy NUMBER
1115 , p13_a2 out nocopy NUMBER
1116 , p13_a3 out nocopy NUMBER
1117 , p13_a4 out nocopy NUMBER
1118 , p13_a5 out nocopy VARCHAR2
1119 , p13_a6 out nocopy DATE
1120 , p13_a7 out nocopy VARCHAR2
1121 , p13_a8 out nocopy VARCHAR2
1122 , p13_a9 out nocopy DATE
1123 , p13_a10 out nocopy VARCHAR2
1124 , p13_a11 out nocopy NUMBER
1125 , p13_a12 out nocopy VARCHAR2
1126 , p13_a13 out nocopy DATE
1127 , p13_a14 out nocopy VARCHAR2
1128 , p13_a15 out nocopy VARCHAR2
1129 , p13_a16 out nocopy DATE
1130 , p13_a17 out nocopy DATE
1131 , p13_a18 out nocopy DATE
1132 , p13_a19 out nocopy DATE
1133 , p13_a20 out nocopy VARCHAR2
1134 , p13_a21 out nocopy VARCHAR2
1135 , p13_a22 out nocopy VARCHAR2
1136 , p13_a23 out nocopy VARCHAR2
1137 , p13_a24 out nocopy VARCHAR2
1138 , p13_a25 out nocopy VARCHAR2
1139 , p13_a26 out nocopy VARCHAR2
1140 , p13_a27 out nocopy VARCHAR2
1141 , p13_a28 out nocopy VARCHAR2
1142 , p13_a29 out nocopy VARCHAR2
1143 , p13_a30 out nocopy VARCHAR2
1144 , p13_a31 out nocopy VARCHAR2
1145 , p13_a32 out nocopy VARCHAR2
1146 , p13_a33 out nocopy VARCHAR2
1147 , p13_a34 out nocopy VARCHAR2
1148 , p13_a35 out nocopy VARCHAR2
1149 , p13_a36 out nocopy NUMBER
1150 , p13_a37 out nocopy DATE
1151 , p13_a38 out nocopy NUMBER
1152 , p13_a39 out nocopy DATE
1153 , p13_a40 out nocopy NUMBER
1154 , p13_a41 out nocopy NUMBER
1155 , p13_a42 out nocopy NUMBER
1156 , p13_a43 out nocopy NUMBER
1157 , p13_a44 out nocopy NUMBER
1158 , p13_a45 out nocopy NUMBER
1159 , p13_a46 out nocopy NUMBER
1160 , p13_a47 out nocopy NUMBER
1161 , p13_a48 out nocopy NUMBER
1162 , p13_a49 out nocopy DATE
1163 , p13_a50 out nocopy VARCHAR2
1164 , p13_a51 out nocopy NUMBER
1165 , p13_a52 out nocopy NUMBER
1166 , p13_a53 out nocopy DATE
1167 , p13_a54 out nocopy DATE
1168 , p13_a55 out nocopy VARCHAR2
1169 , p13_a56 out nocopy VARCHAR2
1170 , p13_a57 out nocopy VARCHAR2
1171 , p13_a58 out nocopy NUMBER
1172 , p13_a59 out nocopy DATE
1173 , p13_a60 out nocopy VARCHAR2
1174 , p13_a61 out nocopy VARCHAR2
1175 , p13_a62 out nocopy VARCHAR2
1176 , p13_a63 out nocopy VARCHAR2
1177 , p13_a64 out nocopy VARCHAR2
1178 , p13_a65 out nocopy VARCHAR2
1179 , p10_a0 NUMBER := 0-1962.0724
1180 , p10_a1 NUMBER := 0-1962.0724
1181 , p10_a2 VARCHAR2 := fnd_api.g_miss_char
1182 , p10_a3 NUMBER := 0-1962.0724
1183 , p10_a4 NUMBER := 0-1962.0724
1184 , p10_a5 NUMBER := 0-1962.0724
1185 , p10_a6 NUMBER := 0-1962.0724
1186 , p10_a7 VARCHAR2 := fnd_api.g_miss_char
1187 , p10_a8 NUMBER := 0-1962.0724
1188 , p10_a9 VARCHAR2 := fnd_api.g_miss_char
1189 , p10_a10 VARCHAR2 := fnd_api.g_miss_char
1190 , p10_a11 VARCHAR2 := fnd_api.g_miss_char
1191 , p10_a12 VARCHAR2 := fnd_api.g_miss_char
1192 , p10_a13 VARCHAR2 := fnd_api.g_miss_char
1193 , p10_a14 VARCHAR2 := fnd_api.g_miss_char
1194 , p10_a15 VARCHAR2 := fnd_api.g_miss_char
1195 , p10_a16 VARCHAR2 := fnd_api.g_miss_char
1196 , p10_a17 VARCHAR2 := fnd_api.g_miss_char
1197 , p10_a18 VARCHAR2 := fnd_api.g_miss_char
1198 , p10_a19 VARCHAR2 := fnd_api.g_miss_char
1199 , p10_a20 VARCHAR2 := fnd_api.g_miss_char
1200 , p10_a21 VARCHAR2 := fnd_api.g_miss_char
1201 , p10_a22 VARCHAR2 := fnd_api.g_miss_char
1202 , p10_a23 VARCHAR2 := fnd_api.g_miss_char
1203 , p10_a24 VARCHAR2 := fnd_api.g_miss_char
1204 , p10_a25 DATE := fnd_api.g_miss_date
1205 , p10_a26 DATE := fnd_api.g_miss_date
1206 , p10_a27 NUMBER := 0-1962.0724
1207 , p10_a28 DATE := fnd_api.g_miss_date
1208 , p10_a29 DATE := fnd_api.g_miss_date
1209 , p10_a30 VARCHAR2 := fnd_api.g_miss_char
1210 , p10_a31 VARCHAR2 := fnd_api.g_miss_char
1211 , p10_a32 VARCHAR2 := fnd_api.g_miss_char
1212 , p10_a33 VARCHAR2 := fnd_api.g_miss_char
1213 , p10_a34 VARCHAR2 := fnd_api.g_miss_char
1214 , p10_a35 VARCHAR2 := fnd_api.g_miss_char
1215 , p10_a36 NUMBER := 0-1962.0724
1216 , p10_a37 NUMBER := 0-1962.0724
1217 , p10_a38 DATE := fnd_api.g_miss_date
1218 , p10_a39 DATE := fnd_api.g_miss_date
1219 , p10_a40 DATE := fnd_api.g_miss_date
1220 , p10_a41 DATE := fnd_api.g_miss_date
1221 , p10_a42 DATE := fnd_api.g_miss_date
1222 , p10_a43 VARCHAR2 := fnd_api.g_miss_char
1223 , p10_a44 DATE := fnd_api.g_miss_date
1224 , p10_a45 DATE := fnd_api.g_miss_date
1225 , p10_a46 NUMBER := 0-1962.0724
1226 , p10_a47 VARCHAR2 := fnd_api.g_miss_char
1227 , p10_a48 VARCHAR2 := fnd_api.g_miss_char
1228 , p10_a49 NUMBER := 0-1962.0724
1229 , p10_a50 NUMBER := 0-1962.0724
1230 , p10_a51 NUMBER := 0-1962.0724
1231 , p10_a52 VARCHAR2 := fnd_api.g_miss_char
1232 , p10_a53 VARCHAR2 := fnd_api.g_miss_char
1233 , p10_a54 NUMBER := 0-1962.0724
1234 , p10_a55 NUMBER := 0-1962.0724
1235 , p10_a56 VARCHAR2 := fnd_api.g_miss_char
1236 , p10_a57 NUMBER := 0-1962.0724
1237 , p10_a58 VARCHAR2 := fnd_api.g_miss_char
1238 , p10_a59 NUMBER := 0-1962.0724
1239 , p10_a60 NUMBER := 0-1962.0724
1240 , p10_a61 NUMBER := 0-1962.0724
1241 , p10_a62 DATE := fnd_api.g_miss_date
1242 , p10_a63 DATE := fnd_api.g_miss_date
1243 , p10_a64 DATE := fnd_api.g_miss_date
1244 , p10_a65 NUMBER := 0-1962.0724
1245 , p10_a66 NUMBER := 0-1962.0724
1246 , p10_a67 NUMBER := 0-1962.0724
1247 , p10_a68 VARCHAR2 := fnd_api.g_miss_char
1248 , p10_a69 VARCHAR2 := fnd_api.g_miss_char
1249 , p10_a70 VARCHAR2 := fnd_api.g_miss_char
1250 , p10_a71 VARCHAR2 := fnd_api.g_miss_char
1251 , p10_a72 VARCHAR2 := fnd_api.g_miss_char
1252 , p10_a73 VARCHAR2 := fnd_api.g_miss_char
1253 , p10_a74 VARCHAR2 := fnd_api.g_miss_char
1254 , p10_a75 VARCHAR2 := fnd_api.g_miss_char
1255 , p10_a76 VARCHAR2 := fnd_api.g_miss_char
1256 , p10_a77 VARCHAR2 := fnd_api.g_miss_char
1257 , p10_a78 VARCHAR2 := fnd_api.g_miss_char
1258 , p10_a79 VARCHAR2 := fnd_api.g_miss_char
1259 , p10_a80 VARCHAR2 := fnd_api.g_miss_char
1260 , p10_a81 VARCHAR2 := fnd_api.g_miss_char
1261 , p10_a82 VARCHAR2 := fnd_api.g_miss_char
1262 , p10_a83 VARCHAR2 := fnd_api.g_miss_char
1263 , p10_a84 NUMBER := 0-1962.0724
1264 , p10_a85 DATE := fnd_api.g_miss_date
1265 , p10_a86 NUMBER := 0-1962.0724
1266 , p10_a87 DATE := fnd_api.g_miss_date
1267 , p10_a88 NUMBER := 0-1962.0724
1268 , p10_a89 VARCHAR2 := fnd_api.g_miss_char
1269 , p10_a90 VARCHAR2 := fnd_api.g_miss_char
1270 , p10_a91 VARCHAR2 := fnd_api.g_miss_char
1271 , p10_a92 VARCHAR2 := fnd_api.g_miss_char
1272 , p10_a93 VARCHAR2 := fnd_api.g_miss_char
1273 , p10_a94 NUMBER := 0-1962.0724
1274 , p10_a95 DATE := fnd_api.g_miss_date
1275 , p10_a96 NUMBER := 0-1962.0724
1276 , p10_a97 NUMBER := 0-1962.0724
1277 , p10_a98 NUMBER := 0-1962.0724
1278 , p10_a99 NUMBER := 0-1962.0724
1279 , p10_a100 VARCHAR2 := fnd_api.g_miss_char
1280 , p10_a101 NUMBER := 0-1962.0724
1281 , p10_a102 DATE := fnd_api.g_miss_date
1282 , p10_a103 NUMBER := 0-1962.0724
1283 , p10_a104 NUMBER := 0-1962.0724
1284 , p11_a0 NUMBER := 0-1962.0724
1285 , p11_a1 NUMBER := 0-1962.0724
1286 , p11_a2 NUMBER := 0-1962.0724
1287 , p11_a3 NUMBER := 0-1962.0724
1288 , p11_a4 NUMBER := 0-1962.0724
1289 , p11_a5 VARCHAR2 := fnd_api.g_miss_char
1290 , p11_a6 DATE := fnd_api.g_miss_date
1291 , p11_a7 VARCHAR2 := fnd_api.g_miss_char
1292 , p11_a8 VARCHAR2 := fnd_api.g_miss_char
1293 , p11_a9 DATE := fnd_api.g_miss_date
1294 , p11_a10 VARCHAR2 := fnd_api.g_miss_char
1295 , p11_a11 NUMBER := 0-1962.0724
1296 , p11_a12 VARCHAR2 := fnd_api.g_miss_char
1297 , p11_a13 DATE := fnd_api.g_miss_date
1298 , p11_a14 VARCHAR2 := fnd_api.g_miss_char
1299 , p11_a15 VARCHAR2 := fnd_api.g_miss_char
1300 , p11_a16 DATE := fnd_api.g_miss_date
1301 , p11_a17 DATE := fnd_api.g_miss_date
1302 , p11_a18 DATE := fnd_api.g_miss_date
1303 , p11_a19 DATE := fnd_api.g_miss_date
1304 , p11_a20 VARCHAR2 := fnd_api.g_miss_char
1305 , p11_a21 VARCHAR2 := fnd_api.g_miss_char
1306 , p11_a22 VARCHAR2 := fnd_api.g_miss_char
1307 , p11_a23 VARCHAR2 := fnd_api.g_miss_char
1308 , p11_a24 VARCHAR2 := fnd_api.g_miss_char
1309 , p11_a25 VARCHAR2 := fnd_api.g_miss_char
1310 , p11_a26 VARCHAR2 := fnd_api.g_miss_char
1311 , p11_a27 VARCHAR2 := fnd_api.g_miss_char
1312 , p11_a28 VARCHAR2 := fnd_api.g_miss_char
1313 , p11_a29 VARCHAR2 := fnd_api.g_miss_char
1314 , p11_a30 VARCHAR2 := fnd_api.g_miss_char
1315 , p11_a31 VARCHAR2 := fnd_api.g_miss_char
1316 , p11_a32 VARCHAR2 := fnd_api.g_miss_char
1317 , p11_a33 VARCHAR2 := fnd_api.g_miss_char
1318 , p11_a34 VARCHAR2 := fnd_api.g_miss_char
1319 , p11_a35 VARCHAR2 := fnd_api.g_miss_char
1320 , p11_a36 NUMBER := 0-1962.0724
1321 , p11_a37 DATE := fnd_api.g_miss_date
1322 , p11_a38 NUMBER := 0-1962.0724
1323 , p11_a39 DATE := fnd_api.g_miss_date
1324 , p11_a40 NUMBER := 0-1962.0724
1325 , p11_a41 NUMBER := 0-1962.0724
1326 , p11_a42 NUMBER := 0-1962.0724
1327 , p11_a43 NUMBER := 0-1962.0724
1328 , p11_a44 NUMBER := 0-1962.0724
1329 , p11_a45 NUMBER := 0-1962.0724
1330 , p11_a46 NUMBER := 0-1962.0724
1331 , p11_a47 NUMBER := 0-1962.0724
1332 , p11_a48 NUMBER := 0-1962.0724
1333 , p11_a49 DATE := fnd_api.g_miss_date
1334 , p11_a50 VARCHAR2 := fnd_api.g_miss_char
1335 , p11_a51 NUMBER := 0-1962.0724
1336 , p11_a52 NUMBER := 0-1962.0724
1337 , p11_a53 DATE := fnd_api.g_miss_date
1338 , p11_a54 DATE := fnd_api.g_miss_date
1339 , p11_a55 VARCHAR2 := fnd_api.g_miss_char
1340 , p11_a56 VARCHAR2 := fnd_api.g_miss_char
1341 , p11_a57 VARCHAR2 := fnd_api.g_miss_char
1342 , p11_a58 NUMBER := 0-1962.0724
1343 , p11_a59 DATE := fnd_api.g_miss_date
1344 , p11_a60 VARCHAR2 := fnd_api.g_miss_char
1345 , p11_a61 VARCHAR2 := fnd_api.g_miss_char
1346 , p11_a62 VARCHAR2 := fnd_api.g_miss_char
1347 , p11_a63 VARCHAR2 := fnd_api.g_miss_char
1348 , p11_a64 VARCHAR2 := fnd_api.g_miss_char
1349 , p11_a65 VARCHAR2 := fnd_api.g_miss_char
1350 )
1351
1352 as
1353 ddp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
1354 ddp_khrv_rec okl_credit_pub.khrv_rec_type;
1355 ddx_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
1356 ddx_khrv_rec okl_credit_pub.khrv_rec_type;
1357 ddindx binary_integer; indx binary_integer;
1358 begin
1359
1360 -- copy data to the local IN or IN-OUT args, if any
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371 ddp_chrv_rec.id := rosetta_g_miss_num_map(p10_a0);
1372 ddp_chrv_rec.object_version_number := rosetta_g_miss_num_map(p10_a1);
1373 ddp_chrv_rec.sfwt_flag := p10_a2;
1374 ddp_chrv_rec.chr_id_response := rosetta_g_miss_num_map(p10_a3);
1375 ddp_chrv_rec.chr_id_award := rosetta_g_miss_num_map(p10_a4);
1376 ddp_chrv_rec.chr_id_renewed := rosetta_g_miss_num_map(p10_a5);
1377 ddp_chrv_rec.inv_organization_id := rosetta_g_miss_num_map(p10_a6);
1378 ddp_chrv_rec.sts_code := p10_a7;
1379 ddp_chrv_rec.qcl_id := rosetta_g_miss_num_map(p10_a8);
1380 ddp_chrv_rec.scs_code := p10_a9;
1381 ddp_chrv_rec.contract_number := p10_a10;
1382 ddp_chrv_rec.currency_code := p10_a11;
1383 ddp_chrv_rec.contract_number_modifier := p10_a12;
1384 ddp_chrv_rec.archived_yn := p10_a13;
1385 ddp_chrv_rec.deleted_yn := p10_a14;
1386 ddp_chrv_rec.cust_po_number_req_yn := p10_a15;
1387 ddp_chrv_rec.pre_pay_req_yn := p10_a16;
1388 ddp_chrv_rec.cust_po_number := p10_a17;
1389 ddp_chrv_rec.short_description := p10_a18;
1390 ddp_chrv_rec.comments := p10_a19;
1391 ddp_chrv_rec.description := p10_a20;
1392 ddp_chrv_rec.dpas_rating := p10_a21;
1393 ddp_chrv_rec.cognomen := p10_a22;
1394 ddp_chrv_rec.template_yn := p10_a23;
1395 ddp_chrv_rec.template_used := p10_a24;
1396 ddp_chrv_rec.date_approved := rosetta_g_miss_date_in_map(p10_a25);
1397 ddp_chrv_rec.datetime_cancelled := rosetta_g_miss_date_in_map(p10_a26);
1398 ddp_chrv_rec.auto_renew_days := rosetta_g_miss_num_map(p10_a27);
1399 ddp_chrv_rec.date_issued := rosetta_g_miss_date_in_map(p10_a28);
1400 ddp_chrv_rec.datetime_responded := rosetta_g_miss_date_in_map(p10_a29);
1401 ddp_chrv_rec.non_response_reason := p10_a30;
1402 ddp_chrv_rec.non_response_explain := p10_a31;
1403 ddp_chrv_rec.rfp_type := p10_a32;
1404 ddp_chrv_rec.chr_type := p10_a33;
1405 ddp_chrv_rec.keep_on_mail_list := p10_a34;
1406 ddp_chrv_rec.set_aside_reason := p10_a35;
1407 ddp_chrv_rec.set_aside_percent := rosetta_g_miss_num_map(p10_a36);
1408 ddp_chrv_rec.response_copies_req := rosetta_g_miss_num_map(p10_a37);
1409 ddp_chrv_rec.date_close_projected := rosetta_g_miss_date_in_map(p10_a38);
1410 ddp_chrv_rec.datetime_proposed := rosetta_g_miss_date_in_map(p10_a39);
1411 ddp_chrv_rec.date_signed := rosetta_g_miss_date_in_map(p10_a40);
1412 ddp_chrv_rec.date_terminated := rosetta_g_miss_date_in_map(p10_a41);
1413 ddp_chrv_rec.date_renewed := rosetta_g_miss_date_in_map(p10_a42);
1414 ddp_chrv_rec.trn_code := p10_a43;
1415 ddp_chrv_rec.start_date := rosetta_g_miss_date_in_map(p10_a44);
1416 ddp_chrv_rec.end_date := rosetta_g_miss_date_in_map(p10_a45);
1417 ddp_chrv_rec.authoring_org_id := rosetta_g_miss_num_map(p10_a46);
1418 ddp_chrv_rec.buy_or_sell := p10_a47;
1419 ddp_chrv_rec.issue_or_receive := p10_a48;
1420 ddp_chrv_rec.estimated_amount := rosetta_g_miss_num_map(p10_a49);
1421 ddp_chrv_rec.chr_id_renewed_to := rosetta_g_miss_num_map(p10_a50);
1422 ddp_chrv_rec.estimated_amount_renewed := rosetta_g_miss_num_map(p10_a51);
1423 ddp_chrv_rec.currency_code_renewed := p10_a52;
1424 ddp_chrv_rec.upg_orig_system_ref := p10_a53;
1425 ddp_chrv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p10_a54);
1426 ddp_chrv_rec.application_id := rosetta_g_miss_num_map(p10_a55);
1427 ddp_chrv_rec.orig_system_source_code := p10_a56;
1428 ddp_chrv_rec.orig_system_id1 := rosetta_g_miss_num_map(p10_a57);
1429 ddp_chrv_rec.orig_system_reference1 := p10_a58;
1430 ddp_chrv_rec.program_id := rosetta_g_miss_num_map(p10_a59);
1431 ddp_chrv_rec.request_id := rosetta_g_miss_num_map(p10_a60);
1432 ddp_chrv_rec.price_list_id := rosetta_g_miss_num_map(p10_a61);
1433 ddp_chrv_rec.pricing_date := rosetta_g_miss_date_in_map(p10_a62);
1434 ddp_chrv_rec.sign_by_date := rosetta_g_miss_date_in_map(p10_a63);
1435 ddp_chrv_rec.program_update_date := rosetta_g_miss_date_in_map(p10_a64);
1436 ddp_chrv_rec.total_line_list_price := rosetta_g_miss_num_map(p10_a65);
1437 ddp_chrv_rec.program_application_id := rosetta_g_miss_num_map(p10_a66);
1438 ddp_chrv_rec.user_estimated_amount := rosetta_g_miss_num_map(p10_a67);
1439 ddp_chrv_rec.attribute_category := p10_a68;
1440 ddp_chrv_rec.attribute1 := p10_a69;
1441 ddp_chrv_rec.attribute2 := p10_a70;
1442 ddp_chrv_rec.attribute3 := p10_a71;
1443 ddp_chrv_rec.attribute4 := p10_a72;
1444 ddp_chrv_rec.attribute5 := p10_a73;
1445 ddp_chrv_rec.attribute6 := p10_a74;
1446 ddp_chrv_rec.attribute7 := p10_a75;
1447 ddp_chrv_rec.attribute8 := p10_a76;
1448 ddp_chrv_rec.attribute9 := p10_a77;
1449 ddp_chrv_rec.attribute10 := p10_a78;
1450
1451 ddp_chrv_rec.attribute11 := p10_a79;
1452 ddp_chrv_rec.attribute12 := p10_a80;
1453 ddp_chrv_rec.attribute13 := p10_a81;
1454 ddp_chrv_rec.attribute14 := p10_a82;
1455 ddp_chrv_rec.attribute15 := p10_a83;
1456 ddp_chrv_rec.created_by := rosetta_g_miss_num_map(p10_a84);
1457 ddp_chrv_rec.creation_date := rosetta_g_miss_date_in_map(p10_a85);
1458 ddp_chrv_rec.last_updated_by := rosetta_g_miss_num_map(p10_a86);
1459 ddp_chrv_rec.last_update_date := rosetta_g_miss_date_in_map(p10_a87);
1460 ddp_chrv_rec.last_update_login := rosetta_g_miss_num_map(p10_a88);
1461 ddp_chrv_rec.old_sts_code := p10_a89;
1462 ddp_chrv_rec.new_sts_code := p10_a90;
1463 ddp_chrv_rec.old_ste_code := p10_a91;
1464 ddp_chrv_rec.new_ste_code := p10_a92;
1465 ddp_chrv_rec.conversion_type := p10_a93;
1466 ddp_chrv_rec.conversion_rate := rosetta_g_miss_num_map(p10_a94);
1467 ddp_chrv_rec.conversion_rate_date := rosetta_g_miss_date_in_map(p10_a95);
1468 ddp_chrv_rec.conversion_euro_rate := rosetta_g_miss_num_map(p10_a96);
1469 ddp_chrv_rec.cust_acct_id := rosetta_g_miss_num_map(p10_a97);
1470 ddp_chrv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p10_a98);
1471 ddp_chrv_rec.inv_rule_id := rosetta_g_miss_num_map(p10_a99);
1472 ddp_chrv_rec.renewal_type_code := p10_a100;
1473 ddp_chrv_rec.renewal_notify_to := rosetta_g_miss_num_map(p10_a101);
1474 ddp_chrv_rec.renewal_end_date := rosetta_g_miss_date_in_map(p10_a102);
1475 ddp_chrv_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p10_a103);
1476 ddp_chrv_rec.payment_term_id := rosetta_g_miss_num_map(p10_a104);
1477
1478 ddp_khrv_rec.id := rosetta_g_miss_num_map(p11_a0);
1479 ddp_khrv_rec.object_version_number := rosetta_g_miss_num_map(p11_a1);
1480 ddp_khrv_rec.isg_id := rosetta_g_miss_num_map(p11_a2);
1481 ddp_khrv_rec.khr_id := rosetta_g_miss_num_map(p11_a3);
1482 ddp_khrv_rec.pdt_id := rosetta_g_miss_num_map(p11_a4);
1483 ddp_khrv_rec.amd_code := p11_a5;
1484 ddp_khrv_rec.date_first_activity := rosetta_g_miss_date_in_map(p11_a6);
1485 ddp_khrv_rec.generate_accrual_yn := p11_a7;
1486 ddp_khrv_rec.generate_accrual_override_yn := p11_a8;
1487 ddp_khrv_rec.date_refinanced := rosetta_g_miss_date_in_map(p11_a9);
1488 ddp_khrv_rec.credit_act_yn := p11_a10;
1489 ddp_khrv_rec.term_duration := rosetta_g_miss_num_map(p11_a11);
1490 ddp_khrv_rec.converted_account_yn := p11_a12;
1491 ddp_khrv_rec.date_conversion_effective := rosetta_g_miss_date_in_map(p11_a13);
1492 ddp_khrv_rec.syndicatable_yn := p11_a14;
1493 ddp_khrv_rec.salestype_yn := p11_a15;
1494 ddp_khrv_rec.date_deal_transferred := rosetta_g_miss_date_in_map(p11_a16);
1495 ddp_khrv_rec.datetime_proposal_effective := rosetta_g_miss_date_in_map(p11_a17);
1496 ddp_khrv_rec.datetime_proposal_ineffective := rosetta_g_miss_date_in_map(p11_a18);
1497 ddp_khrv_rec.date_proposal_accepted := rosetta_g_miss_date_in_map(p11_a19);
1498 ddp_khrv_rec.attribute_category := p11_a20;
1499 ddp_khrv_rec.attribute1 := p11_a21;
1500 ddp_khrv_rec.attribute2 := p11_a22;
1501 ddp_khrv_rec.attribute3 := p11_a23;
1502 ddp_khrv_rec.attribute4 := p11_a24;
1503 ddp_khrv_rec.attribute5 := p11_a25;
1504 ddp_khrv_rec.attribute6 := p11_a26;
1505 ddp_khrv_rec.attribute7 := p11_a27;
1506 ddp_khrv_rec.attribute8 := p11_a28;
1507 ddp_khrv_rec.attribute9 := p11_a29;
1508 ddp_khrv_rec.attribute10 := p11_a30;
1509 ddp_khrv_rec.attribute11 := p11_a31;
1510 ddp_khrv_rec.attribute12 := p11_a32;
1511 ddp_khrv_rec.attribute13 := p11_a33;
1512 ddp_khrv_rec.attribute14 := p11_a34;
1513 ddp_khrv_rec.attribute15 := p11_a35;
1514 ddp_khrv_rec.created_by := rosetta_g_miss_num_map(p11_a36);
1515 ddp_khrv_rec.creation_date := rosetta_g_miss_date_in_map(p11_a37);
1516 ddp_khrv_rec.last_updated_by := rosetta_g_miss_num_map(p11_a38);
1517 ddp_khrv_rec.last_update_date := rosetta_g_miss_date_in_map(p11_a39);
1518 ddp_khrv_rec.last_update_login := rosetta_g_miss_num_map(p11_a40);
1519 ddp_khrv_rec.pre_tax_yield := rosetta_g_miss_num_map(p11_a41);
1520 ddp_khrv_rec.after_tax_yield := rosetta_g_miss_num_map(p11_a42);
1521 ddp_khrv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p11_a43);
1522 ddp_khrv_rec.implicit_non_idc_interest_rate := rosetta_g_miss_num_map(p11_a44);
1523 ddp_khrv_rec.target_pre_tax_yield := rosetta_g_miss_num_map(p11_a45);
1524 ddp_khrv_rec.target_after_tax_yield := rosetta_g_miss_num_map(p11_a46);
1525 ddp_khrv_rec.target_implicit_interest_rate := rosetta_g_miss_num_map(p11_a47);
1526 ddp_khrv_rec.target_implicit_nonidc_intrate := rosetta_g_miss_num_map(p11_a48);
1527 ddp_khrv_rec.date_last_interim_interest_cal := rosetta_g_miss_date_in_map(p11_a49);
1528 ddp_khrv_rec.deal_type := p11_a50;
1529 ddp_khrv_rec.pre_tax_irr := rosetta_g_miss_num_map(p11_a51);
1530 ddp_khrv_rec.after_tax_irr := rosetta_g_miss_num_map(p11_a52);
1531 ddp_khrv_rec.expected_delivery_date := rosetta_g_miss_date_in_map(p11_a53);
1532 ddp_khrv_rec.accepted_date := rosetta_g_miss_date_in_map(p11_a54);
1533 ddp_khrv_rec.prefunding_eligible_yn := p11_a55;
1534 ddp_khrv_rec.revolving_credit_yn := p11_a56;
1535 ddp_khrv_rec.currency_conversion_type := p11_a57;
1536 ddp_khrv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p11_a58);
1537 ddp_khrv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p11_a59);
1538 ddp_khrv_rec.multi_gaap_yn := p11_a60;
1539 ddp_khrv_rec.recourse_code := p11_a61;
1540 ddp_khrv_rec.lessor_serv_org_code := p11_a62;
1541 ddp_khrv_rec.assignable_yn := p11_a63;
1542 ddp_khrv_rec.securitized_code := p11_a64;
1543 ddp_khrv_rec.securitization_type := p11_a65;
1544
1545
1546
1547 -- here's the delegated call to the old PL/SQL routine
1548 okl_credit_pub.update_credit_header(p_api_version,
1549 p_init_msg_list,
1550 x_return_status,
1551 x_msg_count,
1552 x_msg_data,
1553 p_restricted_update,
1554 p_chklst_tpl_rgp_id,
1555 p_chklst_tpl_rule_id,
1556 p_credit_ckl_id,
1557 p_funding_ckl_id,
1558 ddp_chrv_rec,
1559 ddp_khrv_rec,
1560 ddx_chrv_rec,
1561 ddx_khrv_rec);
1562
1563 -- copy data back from the local variables to OUT or IN-OUT args, if any
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576 p12_a0 := rosetta_g_miss_num_map(ddx_chrv_rec.id);
1577 p12_a1 := rosetta_g_miss_num_map(ddx_chrv_rec.object_version_number);
1578 p12_a2 := ddx_chrv_rec.sfwt_flag;
1579 p12_a3 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_response);
1580 p12_a4 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_award);
1581 p12_a5 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_renewed);
1582 p12_a6 := rosetta_g_miss_num_map(ddx_chrv_rec.inv_organization_id);
1583 p12_a7 := ddx_chrv_rec.sts_code;
1584 p12_a8 := rosetta_g_miss_num_map(ddx_chrv_rec.qcl_id);
1585 p12_a9 := ddx_chrv_rec.scs_code;
1586 p12_a10 := ddx_chrv_rec.contract_number;
1587 p12_a11 := ddx_chrv_rec.currency_code;
1588 p12_a12 := ddx_chrv_rec.contract_number_modifier;
1589 p12_a13 := ddx_chrv_rec.archived_yn;
1590 p12_a14 := ddx_chrv_rec.deleted_yn;
1591 p12_a15 := ddx_chrv_rec.cust_po_number_req_yn;
1592 p12_a16 := ddx_chrv_rec.pre_pay_req_yn;
1593 p12_a17 := ddx_chrv_rec.cust_po_number;
1594 p12_a18 := ddx_chrv_rec.short_description;
1595 p12_a19 := ddx_chrv_rec.comments;
1596 p12_a20 := ddx_chrv_rec.description;
1597 p12_a21 := ddx_chrv_rec.dpas_rating;
1598 p12_a22 := ddx_chrv_rec.cognomen;
1599 p12_a23 := ddx_chrv_rec.template_yn;
1600 p12_a24 := ddx_chrv_rec.template_used;
1601 p12_a25 := ddx_chrv_rec.date_approved;
1602 p12_a26 := ddx_chrv_rec.datetime_cancelled;
1603 p12_a27 := rosetta_g_miss_num_map(ddx_chrv_rec.auto_renew_days);
1604 p12_a28 := ddx_chrv_rec.date_issued;
1605 p12_a29 := ddx_chrv_rec.datetime_responded;
1606 p12_a30 := ddx_chrv_rec.non_response_reason;
1607 p12_a31 := ddx_chrv_rec.non_response_explain;
1608 p12_a32 := ddx_chrv_rec.rfp_type;
1609 p12_a33 := ddx_chrv_rec.chr_type;
1610 p12_a34 := ddx_chrv_rec.keep_on_mail_list;
1611 p12_a35 := ddx_chrv_rec.set_aside_reason;
1612 p12_a36 := rosetta_g_miss_num_map(ddx_chrv_rec.set_aside_percent);
1613 p12_a37 := rosetta_g_miss_num_map(ddx_chrv_rec.response_copies_req);
1614 p12_a38 := ddx_chrv_rec.date_close_projected;
1615 p12_a39 := ddx_chrv_rec.datetime_proposed;
1616 p12_a40 := ddx_chrv_rec.date_signed;
1617 p12_a41 := ddx_chrv_rec.date_terminated;
1618 p12_a42 := ddx_chrv_rec.date_renewed;
1619 p12_a43 := ddx_chrv_rec.trn_code;
1620 p12_a44 := ddx_chrv_rec.start_date;
1621 p12_a45 := ddx_chrv_rec.end_date;
1622 p12_a46 := rosetta_g_miss_num_map(ddx_chrv_rec.authoring_org_id);
1623 p12_a47 := ddx_chrv_rec.buy_or_sell;
1624 p12_a48 := ddx_chrv_rec.issue_or_receive;
1625 p12_a49 := rosetta_g_miss_num_map(ddx_chrv_rec.estimated_amount);
1626 p12_a50 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_renewed_to);
1627 p12_a51 := rosetta_g_miss_num_map(ddx_chrv_rec.estimated_amount_renewed);
1628 p12_a52 := ddx_chrv_rec.currency_code_renewed;
1629 p12_a53 := ddx_chrv_rec.upg_orig_system_ref;
1630 p12_a54 := rosetta_g_miss_num_map(ddx_chrv_rec.upg_orig_system_ref_id);
1631 p12_a55 := rosetta_g_miss_num_map(ddx_chrv_rec.application_id);
1632 p12_a56 := ddx_chrv_rec.orig_system_source_code;
1633 p12_a57 := rosetta_g_miss_num_map(ddx_chrv_rec.orig_system_id1);
1634 p12_a58 := ddx_chrv_rec.orig_system_reference1;
1635 p12_a59 := rosetta_g_miss_num_map(ddx_chrv_rec.program_id);
1636 p12_a60 := rosetta_g_miss_num_map(ddx_chrv_rec.request_id);
1637 p12_a61 := rosetta_g_miss_num_map(ddx_chrv_rec.price_list_id);
1638 p12_a62 := ddx_chrv_rec.pricing_date;
1639 p12_a63 := ddx_chrv_rec.sign_by_date;
1640 p12_a64 := ddx_chrv_rec.program_update_date;
1641 p12_a65 := rosetta_g_miss_num_map(ddx_chrv_rec.total_line_list_price);
1642 p12_a66 := rosetta_g_miss_num_map(ddx_chrv_rec.program_application_id);
1643 p12_a67 := rosetta_g_miss_num_map(ddx_chrv_rec.user_estimated_amount);
1644 p12_a68 := ddx_chrv_rec.attribute_category;
1645 p12_a69 := ddx_chrv_rec.attribute1;
1646 p12_a70 := ddx_chrv_rec.attribute2;
1647 p12_a71 := ddx_chrv_rec.attribute3;
1648 p12_a72 := ddx_chrv_rec.attribute4;
1649 p12_a73 := ddx_chrv_rec.attribute5;
1650 p12_a74 := ddx_chrv_rec.attribute6;
1651 p12_a75 := ddx_chrv_rec.attribute7;
1652 p12_a76 := ddx_chrv_rec.attribute8;
1653 p12_a77 := ddx_chrv_rec.attribute9;
1654 p12_a78 := ddx_chrv_rec.attribute10;
1655 p12_a79 := ddx_chrv_rec.attribute11;
1656 p12_a80 := ddx_chrv_rec.attribute12;
1657 p12_a81 := ddx_chrv_rec.attribute13;
1658 p12_a82 := ddx_chrv_rec.attribute14;
1659 p12_a83 := ddx_chrv_rec.attribute15;
1660 p12_a84 := rosetta_g_miss_num_map(ddx_chrv_rec.created_by);
1661 p12_a85 := ddx_chrv_rec.creation_date;
1662 p12_a86 := rosetta_g_miss_num_map(ddx_chrv_rec.last_updated_by);
1663 p12_a87 := ddx_chrv_rec.last_update_date;
1664 p12_a88 := rosetta_g_miss_num_map(ddx_chrv_rec.last_update_login);
1665 p12_a89 := ddx_chrv_rec.old_sts_code;
1666 p12_a90 := ddx_chrv_rec.new_sts_code;
1667 p12_a91 := ddx_chrv_rec.old_ste_code;
1668 p12_a92 := ddx_chrv_rec.new_ste_code;
1669 p12_a93 := ddx_chrv_rec.conversion_type;
1670 p12_a94 := rosetta_g_miss_num_map(ddx_chrv_rec.conversion_rate);
1671 p12_a95 := ddx_chrv_rec.conversion_rate_date;
1672 p12_a96 := rosetta_g_miss_num_map(ddx_chrv_rec.conversion_euro_rate);
1673 p12_a97 := rosetta_g_miss_num_map(ddx_chrv_rec.cust_acct_id);
1674 p12_a98 := rosetta_g_miss_num_map(ddx_chrv_rec.bill_to_site_use_id);
1675 p12_a99 := rosetta_g_miss_num_map(ddx_chrv_rec.inv_rule_id);
1676 p12_a100 := ddx_chrv_rec.renewal_type_code;
1677 p12_a101 := rosetta_g_miss_num_map(ddx_chrv_rec.renewal_notify_to);
1678 p12_a102 := ddx_chrv_rec.renewal_end_date;
1679 p12_a103 := rosetta_g_miss_num_map(ddx_chrv_rec.ship_to_site_use_id);
1680 p12_a104 := rosetta_g_miss_num_map(ddx_chrv_rec.payment_term_id);
1681
1682 p13_a0 := rosetta_g_miss_num_map(ddx_khrv_rec.id);
1683 p13_a1 := rosetta_g_miss_num_map(ddx_khrv_rec.object_version_number);
1684 p13_a2 := rosetta_g_miss_num_map(ddx_khrv_rec.isg_id);
1685 p13_a3 := rosetta_g_miss_num_map(ddx_khrv_rec.khr_id);
1686 p13_a4 := rosetta_g_miss_num_map(ddx_khrv_rec.pdt_id);
1687 p13_a5 := ddx_khrv_rec.amd_code;
1688 p13_a6 := ddx_khrv_rec.date_first_activity;
1689 p13_a7 := ddx_khrv_rec.generate_accrual_yn;
1690 p13_a8 := ddx_khrv_rec.generate_accrual_override_yn;
1691 p13_a9 := ddx_khrv_rec.date_refinanced;
1692 p13_a10 := ddx_khrv_rec.credit_act_yn;
1693 p13_a11 := rosetta_g_miss_num_map(ddx_khrv_rec.term_duration);
1694 p13_a12 := ddx_khrv_rec.converted_account_yn;
1695
1696 p13_a13 := ddx_khrv_rec.date_conversion_effective;
1697 p13_a14 := ddx_khrv_rec.syndicatable_yn;
1698 p13_a15 := ddx_khrv_rec.salestype_yn;
1699 p13_a16 := ddx_khrv_rec.date_deal_transferred;
1700 p13_a17 := ddx_khrv_rec.datetime_proposal_effective;
1701 p13_a18 := ddx_khrv_rec.datetime_proposal_ineffective;
1702 p13_a19 := ddx_khrv_rec.date_proposal_accepted;
1703 p13_a20 := ddx_khrv_rec.attribute_category;
1704 p13_a21 := ddx_khrv_rec.attribute1;
1705 p13_a22 := ddx_khrv_rec.attribute2;
1706 p13_a23 := ddx_khrv_rec.attribute3;
1707 p13_a24 := ddx_khrv_rec.attribute4;
1708 p13_a25 := ddx_khrv_rec.attribute5;
1709 p13_a26 := ddx_khrv_rec.attribute6;
1710 p13_a27 := ddx_khrv_rec.attribute7;
1711 p13_a28 := ddx_khrv_rec.attribute8;
1712 p13_a29 := ddx_khrv_rec.attribute9;
1713 p13_a30 := ddx_khrv_rec.attribute10;
1714 p13_a31 := ddx_khrv_rec.attribute11;
1715 p13_a32 := ddx_khrv_rec.attribute12;
1716 p13_a33 := ddx_khrv_rec.attribute13;
1717 p13_a34 := ddx_khrv_rec.attribute14;
1718 p13_a35 := ddx_khrv_rec.attribute15;
1719 p13_a36 := rosetta_g_miss_num_map(ddx_khrv_rec.created_by);
1720 p13_a37 := ddx_khrv_rec.creation_date;
1721 p13_a38 := rosetta_g_miss_num_map(ddx_khrv_rec.last_updated_by);
1722 p13_a39 := ddx_khrv_rec.last_update_date;
1723 p13_a40 := rosetta_g_miss_num_map(ddx_khrv_rec.last_update_login);
1724 p13_a41 := rosetta_g_miss_num_map(ddx_khrv_rec.pre_tax_yield);
1725 p13_a42 := rosetta_g_miss_num_map(ddx_khrv_rec.after_tax_yield);
1726 p13_a43 := rosetta_g_miss_num_map(ddx_khrv_rec.implicit_interest_rate);
1727 p13_a44 := rosetta_g_miss_num_map(ddx_khrv_rec.implicit_non_idc_interest_rate);
1728 p13_a45 := rosetta_g_miss_num_map(ddx_khrv_rec.target_pre_tax_yield);
1729 p13_a46 := rosetta_g_miss_num_map(ddx_khrv_rec.target_after_tax_yield);
1730 p13_a47 := rosetta_g_miss_num_map(ddx_khrv_rec.target_implicit_interest_rate);
1731 p13_a48 := rosetta_g_miss_num_map(ddx_khrv_rec.target_implicit_nonidc_intrate);
1732 p13_a49 := ddx_khrv_rec.date_last_interim_interest_cal;
1733 p13_a50 := ddx_khrv_rec.deal_type;
1734 p13_a51 := rosetta_g_miss_num_map(ddx_khrv_rec.pre_tax_irr);
1735 p13_a52 := rosetta_g_miss_num_map(ddx_khrv_rec.after_tax_irr);
1736 p13_a53 := ddx_khrv_rec.expected_delivery_date;
1737 p13_a54 := ddx_khrv_rec.accepted_date;
1738 p13_a55 := ddx_khrv_rec.prefunding_eligible_yn;
1739 p13_a56 := ddx_khrv_rec.revolving_credit_yn;
1740 p13_a57 := ddx_khrv_rec.currency_conversion_type;
1741 p13_a58 := rosetta_g_miss_num_map(ddx_khrv_rec.currency_conversion_rate);
1742 p13_a59 := ddx_khrv_rec.currency_conversion_date;
1743 p13_a60 := ddx_khrv_rec.multi_gaap_yn;
1744 p13_a61 := ddx_khrv_rec.recourse_code;
1745 p13_a62 := ddx_khrv_rec.lessor_serv_org_code;
1746 p13_a63 := ddx_khrv_rec.assignable_yn;
1747 p13_a64 := ddx_khrv_rec.securitized_code;
1748 p13_a65 := ddx_khrv_rec.securitization_type;
1749 end;
1750
1751 procedure validate_credit(p_api_version NUMBER
1752 , p_init_msg_list VARCHAR2
1753 , x_return_status out nocopy VARCHAR2
1754 , x_msg_count out nocopy NUMBER
1755 , x_msg_data out nocopy VARCHAR2
1756 , p_chr_id NUMBER
1757 , p_contract_number VARCHAR2
1758 , p_description VARCHAR2
1759 , p_customer_id1 VARCHAR2
1760 , p_customer_id2 VARCHAR2
1761 , p_customer_code VARCHAR2
1762 , p_customer_name VARCHAR2
1763 , p_effective_from date
1764 , p_effective_to date
1765 , p_currency_code VARCHAR2
1766 , p_currency_conv_type VARCHAR2
1767 , p_currency_conv_rate NUMBER
1768 , p_currency_conv_date date
1769 , p_credit_ckl_id NUMBER
1770 , p_funding_ckl_id NUMBER
1771 , p_cust_acct_id NUMBER
1772 , p_cust_acct_number VARCHAR2
1773 , p_sts_code VARCHAR2
1774 )
1775
1776 as
1777 ddp_effective_from date;
1778 ddp_effective_to date;
1779 ddp_currency_conv_date date;
1780 ddindx binary_integer; indx binary_integer;
1781 begin
1782
1783 -- copy data to the local IN or IN-OUT args, if any
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796 ddp_effective_from := rosetta_g_miss_date_in_map(p_effective_from);
1797
1798 ddp_effective_to := rosetta_g_miss_date_in_map(p_effective_to);
1799
1800
1801
1802
1803 ddp_currency_conv_date := rosetta_g_miss_date_in_map(p_currency_conv_date);
1804
1805
1806
1807
1808
1809
1810 -- here's the delegated call to the old PL/SQL routine
1811 okl_credit_pub.validate_credit(p_api_version,
1812 p_init_msg_list,
1813 x_return_status,
1814 x_msg_count,
1815 x_msg_data,
1816 p_chr_id,
1817 p_contract_number,
1818 p_description,
1819 p_customer_id1,
1820 p_customer_id2,
1821 p_customer_code,
1822 p_customer_name,
1823 ddp_effective_from,
1824 ddp_effective_to,
1825 p_currency_code,
1826 p_currency_conv_type,
1827 p_currency_conv_rate,
1828 ddp_currency_conv_date,
1829 p_credit_ckl_id,
1830 p_funding_ckl_id,
1831 p_cust_acct_id,
1832 p_cust_acct_number,
1833 p_sts_code);
1834
1835 -- copy data back from the local variables to OUT or IN-OUT args, if any
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858 end;
1859
1860 procedure validate_credit_limit(p_api_version NUMBER
1861 , p_init_msg_list VARCHAR2
1862 , x_return_status out nocopy VARCHAR2
1863 , x_msg_count out nocopy NUMBER
1864 , x_msg_data out nocopy VARCHAR2
1865 , p_mode VARCHAR2
1866 , p_chr_id NUMBER
1867 , p_cle_id NUMBER
1868 , p_cle_start_date date
1869 , p_description VARCHAR2
1870 , p_credit_nature VARCHAR2
1871 , p_amount NUMBER
1872 )
1873
1874 as
1875 ddp_cle_start_date date;
1876 ddindx binary_integer; indx binary_integer;
1877 begin
1878
1879 -- copy data to the local IN or IN-OUT args, if any
1880
1881
1882
1883
1884
1885
1886
1887
1888 ddp_cle_start_date := rosetta_g_miss_date_in_map(p_cle_start_date);
1889
1890
1891
1892
1893 -- here's the delegated call to the old PL/SQL routine
1894 okl_credit_pub.validate_credit_limit(p_api_version,
1895 p_init_msg_list,
1896 x_return_status,
1897 x_msg_count,
1898 x_msg_data,
1899 p_mode,
1900 p_chr_id,
1901 p_cle_id,
1902 ddp_cle_start_date,
1903 p_description,
1904 p_credit_nature,
1905 p_amount);
1906
1907 -- copy data back from the local variables to OUT or IN-OUT args, if any
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919 end;
1920
1921 procedure validate_credit_limit(p_api_version NUMBER
1922 , p_init_msg_list VARCHAR2
1923 , x_return_status out nocopy VARCHAR2
1924 , x_msg_count out nocopy NUMBER
1925 , x_msg_data out nocopy VARCHAR2
1926 , p_mode VARCHAR2
1927 , p6_a0 NUMBER := 0-1962.0724
1928 , p6_a1 NUMBER := 0-1962.0724
1929 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
1930 , p6_a3 NUMBER := 0-1962.0724
1931 , p6_a4 NUMBER := 0-1962.0724
1932 , p6_a5 NUMBER := 0-1962.0724
1933 , p6_a6 NUMBER := 0-1962.0724
1934 , p6_a7 NUMBER := 0-1962.0724
1935 , p6_a8 VARCHAR2 := fnd_api.g_miss_char
1936 , p6_a9 VARCHAR2 := fnd_api.g_miss_char
1937 , p6_a10 NUMBER := 0-1962.0724
1938 , p6_a11 VARCHAR2 := fnd_api.g_miss_char
1939 , p6_a12 NUMBER := 0-1962.0724
1940 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
1941 , p6_a14 VARCHAR2 := fnd_api.g_miss_char
1942 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
1943 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
1944 , p6_a17 VARCHAR2 := fnd_api.g_miss_char
1945 , p6_a18 NUMBER := 0-1962.0724
1946 , p6_a19 NUMBER := 0-1962.0724
1947 , p6_a20 NUMBER := 0-1962.0724
1948 , p6_a21 NUMBER := 0-1962.0724
1949 , p6_a22 VARCHAR2 := fnd_api.g_miss_char
1950 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
1951 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
1952 , p6_a25 VARCHAR2 := fnd_api.g_miss_char
1953 , p6_a26 VARCHAR2 := fnd_api.g_miss_char
1954 , p6_a27 VARCHAR2 := fnd_api.g_miss_char
1955 , p6_a28 DATE := fnd_api.g_miss_date
1956 , p6_a29 VARCHAR2 := fnd_api.g_miss_char
1957 , p6_a30 DATE := fnd_api.g_miss_date
1958 , p6_a31 DATE := fnd_api.g_miss_date
1959 , p6_a32 DATE := fnd_api.g_miss_date
1960 , p6_a33 VARCHAR2 := fnd_api.g_miss_char
1961 , p6_a34 NUMBER := 0-1962.0724
1962 , p6_a35 VARCHAR2 := fnd_api.g_miss_char
1963 , p6_a36 NUMBER := 0-1962.0724
1964 , p6_a37 VARCHAR2 := fnd_api.g_miss_char
1965 , p6_a38 VARCHAR2 := fnd_api.g_miss_char
1966 , p6_a39 VARCHAR2 := fnd_api.g_miss_char
1967 , p6_a40 VARCHAR2 := fnd_api.g_miss_char
1968 , p6_a41 VARCHAR2 := fnd_api.g_miss_char
1969 , p6_a42 VARCHAR2 := fnd_api.g_miss_char
1970 , p6_a43 VARCHAR2 := fnd_api.g_miss_char
1971 , p6_a44 VARCHAR2 := fnd_api.g_miss_char
1972 , p6_a45 VARCHAR2 := fnd_api.g_miss_char
1973 , p6_a46 VARCHAR2 := fnd_api.g_miss_char
1974 , p6_a47 VARCHAR2 := fnd_api.g_miss_char
1975 , p6_a48 VARCHAR2 := fnd_api.g_miss_char
1976 , p6_a49 VARCHAR2 := fnd_api.g_miss_char
1977 , p6_a50 VARCHAR2 := fnd_api.g_miss_char
1978 , p6_a51 VARCHAR2 := fnd_api.g_miss_char
1979 , p6_a52 VARCHAR2 := fnd_api.g_miss_char
1980 , p6_a53 VARCHAR2 := fnd_api.g_miss_char
1981 , p6_a54 NUMBER := 0-1962.0724
1982 , p6_a55 DATE := fnd_api.g_miss_date
1983 , p6_a56 NUMBER := 0-1962.0724
1984 , p6_a57 DATE := fnd_api.g_miss_date
1985 , p6_a58 VARCHAR2 := fnd_api.g_miss_char
1986 , p6_a59 VARCHAR2 := fnd_api.g_miss_char
1987 , p6_a60 VARCHAR2 := fnd_api.g_miss_char
1988 , p6_a61 NUMBER := 0-1962.0724
1989 , p6_a62 VARCHAR2 := fnd_api.g_miss_char
1990 , p6_a63 VARCHAR2 := fnd_api.g_miss_char
1991 , p6_a64 VARCHAR2 := fnd_api.g_miss_char
1992 , p6_a65 VARCHAR2 := fnd_api.g_miss_char
1993 , p6_a66 VARCHAR2 := fnd_api.g_miss_char
1994 , p6_a67 NUMBER := 0-1962.0724
1995 , p6_a68 NUMBER := 0-1962.0724
1996 , p6_a69 NUMBER := 0-1962.0724
1997 , p6_a70 DATE := fnd_api.g_miss_date
1998 , p6_a71 NUMBER := 0-1962.0724
1999 , p6_a72 DATE := fnd_api.g_miss_date
2000 , p6_a73 NUMBER := 0-1962.0724
2001 , p6_a74 NUMBER := 0-1962.0724
2002 , p6_a75 VARCHAR2 := fnd_api.g_miss_char
2003 , p6_a76 VARCHAR2 := fnd_api.g_miss_char
2004 , p6_a77 NUMBER := 0-1962.0724
2005 , p6_a78 NUMBER := 0-1962.0724
2006 , p6_a79 VARCHAR2 := fnd_api.g_miss_char
2007 , p6_a80 VARCHAR2 := fnd_api.g_miss_char
2008 , p6_a81 NUMBER := 0-1962.0724
2009 , p6_a82 VARCHAR2 := fnd_api.g_miss_char
2010 , p6_a83 NUMBER := 0-1962.0724
2011 , p6_a84 NUMBER := 0-1962.0724
2012 , p6_a85 NUMBER := 0-1962.0724
2013 , p6_a86 NUMBER := 0-1962.0724
2014 , p6_a87 VARCHAR2 := fnd_api.g_miss_char
2015 , p6_a88 NUMBER := 0-1962.0724
2016 , p6_a89 NUMBER := 0-1962.0724
2017 , p7_a0 NUMBER := 0-1962.0724
2018 , p7_a1 NUMBER := 0-1962.0724
2019 , p7_a2 NUMBER := 0-1962.0724
2020
2021 , p7_a3 NUMBER := 0-1962.0724
2022 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
2023 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
2024 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
2025 , p7_a7 NUMBER := 0-1962.0724
2026 , p7_a8 NUMBER := 0-1962.0724
2027 , p7_a9 DATE := fnd_api.g_miss_date
2028 , p7_a10 NUMBER := 0-1962.0724
2029 , p7_a11 NUMBER := 0-1962.0724
2030 , p7_a12 NUMBER := 0-1962.0724
2031 , p7_a13 NUMBER := 0-1962.0724
2032 , p7_a14 NUMBER := 0-1962.0724
2033 , p7_a15 NUMBER := 0-1962.0724
2034 , p7_a16 NUMBER := 0-1962.0724
2035 , p7_a17 NUMBER := 0-1962.0724
2036 , p7_a18 NUMBER := 0-1962.0724
2037 , p7_a19 NUMBER := 0-1962.0724
2038 , p7_a20 DATE := fnd_api.g_miss_date
2039 , p7_a21 DATE := fnd_api.g_miss_date
2040 , p7_a22 NUMBER := 0-1962.0724
2041 , p7_a23 NUMBER := 0-1962.0724
2042 , p7_a24 DATE := fnd_api.g_miss_date
2043 , p7_a25 DATE := fnd_api.g_miss_date
2044 , p7_a26 DATE := fnd_api.g_miss_date
2045 , p7_a27 NUMBER := 0-1962.0724
2046 , p7_a28 NUMBER := 0-1962.0724
2047 , p7_a29 NUMBER := 0-1962.0724
2048 , p7_a30 NUMBER := 0-1962.0724
2049 , p7_a31 NUMBER := 0-1962.0724
2050 , p7_a32 NUMBER := 0-1962.0724
2051 , p7_a33 NUMBER := 0-1962.0724
2052 , p7_a34 DATE := fnd_api.g_miss_date
2053 , p7_a35 VARCHAR2 := fnd_api.g_miss_char
2054 , p7_a36 DATE := fnd_api.g_miss_date
2055 , p7_a37 VARCHAR2 := fnd_api.g_miss_char
2056 , p7_a38 NUMBER := 0-1962.0724
2057 , p7_a39 NUMBER := 0-1962.0724
2058 , p7_a40 NUMBER := 0-1962.0724
2059 , p7_a41 VARCHAR2 := fnd_api.g_miss_char
2060 , p7_a42 DATE := fnd_api.g_miss_date
2061 , p7_a43 NUMBER := 0-1962.0724
2062 , p7_a44 NUMBER := 0-1962.0724
2063 , p7_a45 DATE := fnd_api.g_miss_date
2064 , p7_a46 NUMBER := 0-1962.0724
2065 , p7_a47 DATE := fnd_api.g_miss_date
2066 , p7_a48 DATE := fnd_api.g_miss_date
2067 , p7_a49 DATE := fnd_api.g_miss_date
2068 , p7_a50 NUMBER := 0-1962.0724
2069 , p7_a51 NUMBER := 0-1962.0724
2070 , p7_a52 VARCHAR2 := fnd_api.g_miss_char
2071 , p7_a53 NUMBER := 0-1962.0724
2072 , p7_a54 NUMBER := 0-1962.0724
2073 , p7_a55 VARCHAR2 := fnd_api.g_miss_char
2074 , p7_a56 VARCHAR2 := fnd_api.g_miss_char
2075 , p7_a57 NUMBER := 0-1962.0724
2076 , p7_a58 DATE := fnd_api.g_miss_date
2077 , p7_a59 NUMBER := 0-1962.0724
2078 , p7_a60 VARCHAR2 := fnd_api.g_miss_char
2079 , p7_a61 VARCHAR2 := fnd_api.g_miss_char
2080 , p7_a62 VARCHAR2 := fnd_api.g_miss_char
2081 , p7_a63 VARCHAR2 := fnd_api.g_miss_char
2082 , p7_a64 VARCHAR2 := fnd_api.g_miss_char
2083 , p7_a65 VARCHAR2 := fnd_api.g_miss_char
2084 , p7_a66 VARCHAR2 := fnd_api.g_miss_char
2085 , p7_a67 VARCHAR2 := fnd_api.g_miss_char
2086 , p7_a68 VARCHAR2 := fnd_api.g_miss_char
2087 , p7_a69 VARCHAR2 := fnd_api.g_miss_char
2088 , p7_a70 VARCHAR2 := fnd_api.g_miss_char
2089 , p7_a71 VARCHAR2 := fnd_api.g_miss_char
2090 , p7_a72 VARCHAR2 := fnd_api.g_miss_char
2091 , p7_a73 VARCHAR2 := fnd_api.g_miss_char
2092 , p7_a74 VARCHAR2 := fnd_api.g_miss_char
2093 , p7_a75 VARCHAR2 := fnd_api.g_miss_char
2094 , p7_a76 NUMBER := 0-1962.0724
2095 , p7_a77 NUMBER := 0-1962.0724
2096 , p7_a78 NUMBER := 0-1962.0724
2097 , p7_a79 DATE := fnd_api.g_miss_date
2098 , p7_a80 NUMBER := 0-1962.0724
2099 , p7_a81 DATE := fnd_api.g_miss_date
2100 , p7_a82 NUMBER := 0-1962.0724
2101 , p7_a83 DATE := fnd_api.g_miss_date
2102 , p7_a84 DATE := fnd_api.g_miss_date
2103 , p7_a85 DATE := fnd_api.g_miss_date
2104 , p7_a86 DATE := fnd_api.g_miss_date
2105 , p7_a87 NUMBER := 0-1962.0724
2106 , p7_a88 NUMBER := 0-1962.0724
2107 , p7_a89 NUMBER := 0-1962.0724
2108 , p7_a90 VARCHAR2 := fnd_api.g_miss_char
2109 , p7_a91 NUMBER := 0-1962.0724
2110 , p7_a92 VARCHAR2 := fnd_api.g_miss_char
2111 , p7_a93 NUMBER := 0-1962.0724
2112 , p7_a94 NUMBER := 0-1962.0724
2113 , p7_a95 DATE := fnd_api.g_miss_date
2114 , p7_a96 VARCHAR2 := fnd_api.g_miss_char
2115 , p7_a97 VARCHAR2 := fnd_api.g_miss_char
2116 , p7_a98 NUMBER := 0-1962.0724
2117 )
2118
2119 as
2120 ddp_clev_rec okl_okc_migration_pvt.clev_rec_type;
2121 ddp_klev_rec okl_credit_pub.klev_rec_type;
2122 ddindx binary_integer; indx binary_integer;
2123 begin
2124
2125 -- copy data to the local IN or IN-OUT args, if any
2126
2127
2128
2129
2130
2131
2132 ddp_clev_rec.id := rosetta_g_miss_num_map(p6_a0);
2133 ddp_clev_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
2134 ddp_clev_rec.sfwt_flag := p6_a2;
2135 ddp_clev_rec.chr_id := rosetta_g_miss_num_map(p6_a3);
2136 ddp_clev_rec.cle_id := rosetta_g_miss_num_map(p6_a4);
2137 ddp_clev_rec.cle_id_renewed := rosetta_g_miss_num_map(p6_a5);
2138 ddp_clev_rec.cle_id_renewed_to := rosetta_g_miss_num_map(p6_a6);
2139 ddp_clev_rec.lse_id := rosetta_g_miss_num_map(p6_a7);
2140 ddp_clev_rec.line_number := p6_a8;
2141 ddp_clev_rec.sts_code := p6_a9;
2142 ddp_clev_rec.display_sequence := rosetta_g_miss_num_map(p6_a10);
2143 ddp_clev_rec.trn_code := p6_a11;
2144 ddp_clev_rec.dnz_chr_id := rosetta_g_miss_num_map(p6_a12);
2145 ddp_clev_rec.comments := p6_a13;
2146 ddp_clev_rec.item_description := p6_a14;
2147 ddp_clev_rec.oke_boe_description := p6_a15;
2148 ddp_clev_rec.cognomen := p6_a16;
2149 ddp_clev_rec.hidden_ind := p6_a17;
2150 ddp_clev_rec.price_unit := rosetta_g_miss_num_map(p6_a18);
2151 ddp_clev_rec.price_unit_percent := rosetta_g_miss_num_map(p6_a19);
2152 ddp_clev_rec.price_negotiated := rosetta_g_miss_num_map(p6_a20);
2153 ddp_clev_rec.price_negotiated_renewed := rosetta_g_miss_num_map(p6_a21);
2154 ddp_clev_rec.price_level_ind := p6_a22;
2155 ddp_clev_rec.invoice_line_level_ind := p6_a23;
2156 ddp_clev_rec.dpas_rating := p6_a24;
2157 ddp_clev_rec.block23text := p6_a25;
2158 ddp_clev_rec.exception_yn := p6_a26;
2159 ddp_clev_rec.template_used := p6_a27;
2160 ddp_clev_rec.date_terminated := rosetta_g_miss_date_in_map(p6_a28);
2161 ddp_clev_rec.name := p6_a29;
2162 ddp_clev_rec.start_date := rosetta_g_miss_date_in_map(p6_a30);
2163 ddp_clev_rec.end_date := rosetta_g_miss_date_in_map(p6_a31);
2164 ddp_clev_rec.date_renewed := rosetta_g_miss_date_in_map(p6_a32);
2165 ddp_clev_rec.upg_orig_system_ref := p6_a33;
2166 ddp_clev_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p6_a34);
2167 ddp_clev_rec.orig_system_source_code := p6_a35;
2168 ddp_clev_rec.orig_system_id1 := rosetta_g_miss_num_map(p6_a36);
2169 ddp_clev_rec.orig_system_reference1 := p6_a37;
2170 ddp_clev_rec.attribute_category := p6_a38;
2171 ddp_clev_rec.attribute1 := p6_a39;
2172 ddp_clev_rec.attribute2 := p6_a40;
2173 ddp_clev_rec.attribute3 := p6_a41;
2174 ddp_clev_rec.attribute4 := p6_a42;
2175 ddp_clev_rec.attribute5 := p6_a43;
2176 ddp_clev_rec.attribute6 := p6_a44;
2177 ddp_clev_rec.attribute7 := p6_a45;
2178 ddp_clev_rec.attribute8 := p6_a46;
2179 ddp_clev_rec.attribute9 := p6_a47;
2180 ddp_clev_rec.attribute10 := p6_a48;
2181 ddp_clev_rec.attribute11 := p6_a49;
2182 ddp_clev_rec.attribute12 := p6_a50;
2183 ddp_clev_rec.attribute13 := p6_a51;
2184 ddp_clev_rec.attribute14 := p6_a52;
2185 ddp_clev_rec.attribute15 := p6_a53;
2186 ddp_clev_rec.created_by := rosetta_g_miss_num_map(p6_a54);
2187 ddp_clev_rec.creation_date := rosetta_g_miss_date_in_map(p6_a55);
2188 ddp_clev_rec.last_updated_by := rosetta_g_miss_num_map(p6_a56);
2189 ddp_clev_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a57);
2190 ddp_clev_rec.price_type := p6_a58;
2191 ddp_clev_rec.currency_code := p6_a59;
2192 ddp_clev_rec.currency_code_renewed := p6_a60;
2193 ddp_clev_rec.last_update_login := rosetta_g_miss_num_map(p6_a61);
2194 ddp_clev_rec.old_sts_code := p6_a62;
2195 ddp_clev_rec.new_sts_code := p6_a63;
2196 ddp_clev_rec.old_ste_code := p6_a64;
2197 ddp_clev_rec.new_ste_code := p6_a65;
2198 ddp_clev_rec.call_action_asmblr := p6_a66;
2199 ddp_clev_rec.request_id := rosetta_g_miss_num_map(p6_a67);
2200 ddp_clev_rec.program_application_id := rosetta_g_miss_num_map(p6_a68);
2201 ddp_clev_rec.program_id := rosetta_g_miss_num_map(p6_a69);
2202 ddp_clev_rec.program_update_date := rosetta_g_miss_date_in_map(p6_a70);
2203 ddp_clev_rec.price_list_id := rosetta_g_miss_num_map(p6_a71);
2204 ddp_clev_rec.pricing_date := rosetta_g_miss_date_in_map(p6_a72);
2205 ddp_clev_rec.price_list_line_id := rosetta_g_miss_num_map(p6_a73);
2206 ddp_clev_rec.line_list_price := rosetta_g_miss_num_map(p6_a74);
2207 ddp_clev_rec.item_to_price_yn := p6_a75;
2208 ddp_clev_rec.price_basis_yn := p6_a76;
2209 ddp_clev_rec.config_header_id := rosetta_g_miss_num_map(p6_a77);
2210 ddp_clev_rec.config_revision_number := rosetta_g_miss_num_map(p6_a78);
2211 ddp_clev_rec.config_complete_yn := p6_a79;
2212 ddp_clev_rec.config_valid_yn := p6_a80;
2213 ddp_clev_rec.config_top_model_line_id := rosetta_g_miss_num_map(p6_a81);
2214 ddp_clev_rec.config_item_type := p6_a82;
2215 ddp_clev_rec.config_item_id := rosetta_g_miss_num_map(p6_a83);
2216 ddp_clev_rec.cust_acct_id := rosetta_g_miss_num_map(p6_a84);
2217 ddp_clev_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p6_a85);
2218 ddp_clev_rec.inv_rule_id := rosetta_g_miss_num_map(p6_a86);
2219 ddp_clev_rec.line_renewal_type_code := p6_a87;
2220 ddp_clev_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p6_a88);
2221 ddp_clev_rec.payment_term_id := rosetta_g_miss_num_map(p6_a89);
2222
2223 ddp_klev_rec.id := rosetta_g_miss_num_map(p7_a0);
2224 ddp_klev_rec.object_version_number := rosetta_g_miss_num_map(p7_a1);
2225 ddp_klev_rec.kle_id := rosetta_g_miss_num_map(p7_a2);
2226 ddp_klev_rec.sty_id := rosetta_g_miss_num_map(p7_a3);
2227 ddp_klev_rec.prc_code := p7_a4;
2228 ddp_klev_rec.fcg_code := p7_a5;
2229 ddp_klev_rec.nty_code := p7_a6;
2230 ddp_klev_rec.estimated_oec := rosetta_g_miss_num_map(p7_a7);
2231 ddp_klev_rec.lao_amount := rosetta_g_miss_num_map(p7_a8);
2232 ddp_klev_rec.title_date := rosetta_g_miss_date_in_map(p7_a9);
2233 ddp_klev_rec.fee_charge := rosetta_g_miss_num_map(p7_a10);
2234 ddp_klev_rec.lrs_percent := rosetta_g_miss_num_map(p7_a11);
2235 ddp_klev_rec.initial_direct_cost := rosetta_g_miss_num_map(p7_a12);
2236 ddp_klev_rec.percent_stake := rosetta_g_miss_num_map(p7_a13);
2237 ddp_klev_rec.percent := rosetta_g_miss_num_map(p7_a14);
2238 ddp_klev_rec.evergreen_percent := rosetta_g_miss_num_map(p7_a15);
2239 ddp_klev_rec.amount_stake := rosetta_g_miss_num_map(p7_a16);
2240 ddp_klev_rec.occupancy := rosetta_g_miss_num_map(p7_a17);
2241 ddp_klev_rec.coverage := rosetta_g_miss_num_map(p7_a18);
2242 ddp_klev_rec.residual_percentage := rosetta_g_miss_num_map(p7_a19);
2243 ddp_klev_rec.date_last_inspection := rosetta_g_miss_date_in_map(p7_a20);
2244 ddp_klev_rec.date_sold := rosetta_g_miss_date_in_map(p7_a21);
2245 ddp_klev_rec.lrv_amount := rosetta_g_miss_num_map(p7_a22);
2246 ddp_klev_rec.capital_reduction := rosetta_g_miss_num_map(p7_a23);
2247 ddp_klev_rec.date_next_inspection_due := rosetta_g_miss_date_in_map(p7_a24);
2248 ddp_klev_rec.date_residual_last_review := rosetta_g_miss_date_in_map(p7_a25);
2249 ddp_klev_rec.date_last_reamortisation := rosetta_g_miss_date_in_map(p7_a26);
2250 ddp_klev_rec.vendor_advance_paid := rosetta_g_miss_num_map(p7_a27);
2251 ddp_klev_rec.weighted_average_life := rosetta_g_miss_num_map(p7_a28);
2252 ddp_klev_rec.tradein_amount := rosetta_g_miss_num_map(p7_a29);
2253 ddp_klev_rec.bond_equivalent_yield := rosetta_g_miss_num_map(p7_a30);
2254 ddp_klev_rec.termination_purchase_amount := rosetta_g_miss_num_map(p7_a31);
2255 ddp_klev_rec.refinance_amount := rosetta_g_miss_num_map(p7_a32);
2256 ddp_klev_rec.year_built := rosetta_g_miss_num_map(p7_a33);
2257 ddp_klev_rec.delivered_date := rosetta_g_miss_date_in_map(p7_a34);
2258 ddp_klev_rec.credit_tenant_yn := p7_a35;
2259 ddp_klev_rec.date_last_cleanup := rosetta_g_miss_date_in_map(p7_a36);
2260 ddp_klev_rec.year_of_manufacture := p7_a37;
2261 ddp_klev_rec.coverage_ratio := rosetta_g_miss_num_map(p7_a38);
2262 ddp_klev_rec.remarketed_amount := rosetta_g_miss_num_map(p7_a39);
2263 ddp_klev_rec.gross_square_footage := rosetta_g_miss_num_map(p7_a40);
2264 ddp_klev_rec.prescribed_asset_yn := p7_a41;
2265 ddp_klev_rec.date_remarketed := rosetta_g_miss_date_in_map(p7_a42);
2266 ddp_klev_rec.net_rentable := rosetta_g_miss_num_map(p7_a43);
2267 ddp_klev_rec.remarket_margin := rosetta_g_miss_num_map(p7_a44);
2268 ddp_klev_rec.date_letter_acceptance := rosetta_g_miss_date_in_map(p7_a45);
2269 ddp_klev_rec.repurchased_amount := rosetta_g_miss_num_map(p7_a46);
2270 ddp_klev_rec.date_commitment_expiration := rosetta_g_miss_date_in_map(p7_a47);
2271 ddp_klev_rec.date_repurchased := rosetta_g_miss_date_in_map(p7_a48);
2272 ddp_klev_rec.date_appraisal := rosetta_g_miss_date_in_map(p7_a49);
2273 ddp_klev_rec.residual_value := rosetta_g_miss_num_map(p7_a50);
2274 ddp_klev_rec.appraisal_value := rosetta_g_miss_num_map(p7_a51);
2275 ddp_klev_rec.secured_deal_yn := p7_a52;
2276 ddp_klev_rec.gain_loss := rosetta_g_miss_num_map(p7_a53);
2277 ddp_klev_rec.floor_amount := rosetta_g_miss_num_map(p7_a54);
2278 ddp_klev_rec.re_lease_yn := p7_a55;
2279 ddp_klev_rec.previous_contract := p7_a56;
2280 ddp_klev_rec.tracked_residual := rosetta_g_miss_num_map(p7_a57);
2281 ddp_klev_rec.date_title_received := rosetta_g_miss_date_in_map(p7_a58);
2282 ddp_klev_rec.amount := rosetta_g_miss_num_map(p7_a59);
2283 ddp_klev_rec.attribute_category := p7_a60;
2284 ddp_klev_rec.attribute1 := p7_a61;
2285 ddp_klev_rec.attribute2 := p7_a62;
2286 ddp_klev_rec.attribute3 := p7_a63;
2287 ddp_klev_rec.attribute4 := p7_a64;
2288 ddp_klev_rec.attribute5 := p7_a65;
2289 ddp_klev_rec.attribute6 := p7_a66;
2290 ddp_klev_rec.attribute7 := p7_a67;
2291 ddp_klev_rec.attribute8 := p7_a68;
2292 ddp_klev_rec.attribute9 := p7_a69;
2293 ddp_klev_rec.attribute10 := p7_a70;
2294 ddp_klev_rec.attribute11 := p7_a71;
2295 ddp_klev_rec.attribute12 := p7_a72;
2296 ddp_klev_rec.attribute13 := p7_a73;
2297 ddp_klev_rec.attribute14 := p7_a74;
2298 ddp_klev_rec.attribute15 := p7_a75;
2299 ddp_klev_rec.sty_id_for := rosetta_g_miss_num_map(p7_a76);
2300 ddp_klev_rec.clg_id := rosetta_g_miss_num_map(p7_a77);
2301 ddp_klev_rec.created_by := rosetta_g_miss_num_map(p7_a78);
2302 ddp_klev_rec.creation_date := rosetta_g_miss_date_in_map(p7_a79);
2303 ddp_klev_rec.last_updated_by := rosetta_g_miss_num_map(p7_a80);
2304 ddp_klev_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a81);
2305 ddp_klev_rec.last_update_login := rosetta_g_miss_num_map(p7_a82);
2306 ddp_klev_rec.date_funding := rosetta_g_miss_date_in_map(p7_a83);
2307 ddp_klev_rec.date_funding_required := rosetta_g_miss_date_in_map(p7_a84);
2308 ddp_klev_rec.date_accepted := rosetta_g_miss_date_in_map(p7_a85);
2309 ddp_klev_rec.date_delivery_expected := rosetta_g_miss_date_in_map(p7_a86);
2310 ddp_klev_rec.oec := rosetta_g_miss_num_map(p7_a87);
2311 ddp_klev_rec.capital_amount := rosetta_g_miss_num_map(p7_a88);
2312 ddp_klev_rec.residual_grnty_amount := rosetta_g_miss_num_map(p7_a89);
2313 ddp_klev_rec.residual_code := p7_a90;
2314 ddp_klev_rec.rvi_premium := rosetta_g_miss_num_map(p7_a91);
2315 ddp_klev_rec.credit_nature := p7_a92;
2316 ddp_klev_rec.capitalized_interest := rosetta_g_miss_num_map(p7_a93);
2317 ddp_klev_rec.capital_reduction_percent := rosetta_g_miss_num_map(p7_a94);
2318 ddp_klev_rec.date_pay_investor_start := rosetta_g_miss_date_in_map(p7_a95);
2319 ddp_klev_rec.pay_investor_frequency := p7_a96;
2320 ddp_klev_rec.pay_investor_event := p7_a97;
2321 ddp_klev_rec.pay_investor_remittance_days := rosetta_g_miss_num_map(p7_a98);
2322
2323 -- here's the delegated call to the old PL/SQL routine
2324 okl_credit_pub.validate_credit_limit(p_api_version,
2325 p_init_msg_list,
2326 x_return_status,
2327 x_msg_count,
2328 x_msg_data,
2329 p_mode,
2330 ddp_clev_rec,
2331 ddp_klev_rec);
2332
2333 -- copy data back from the local variables to OUT or IN-OUT args, if any
2334
2335
2336
2337
2338
2339
2340
2341 end;
2342
2343 procedure validate_credit_limit(p_api_version NUMBER
2344 , p_init_msg_list VARCHAR2
2345 , x_return_status out nocopy VARCHAR2
2346 , x_msg_count out nocopy NUMBER
2347 , x_msg_data out nocopy VARCHAR2
2348 , p_mode VARCHAR2
2349 , p6_a0 JTF_NUMBER_TABLE
2350 , p6_a1 JTF_NUMBER_TABLE
2351 , p6_a2 JTF_VARCHAR2_TABLE_100
2352 , p6_a3 JTF_NUMBER_TABLE
2353 , p6_a4 JTF_NUMBER_TABLE
2354 , p6_a5 JTF_NUMBER_TABLE
2355 , p6_a6 JTF_NUMBER_TABLE
2356 , p6_a7 JTF_NUMBER_TABLE
2357 , p6_a8 JTF_VARCHAR2_TABLE_200
2358 , p6_a9 JTF_VARCHAR2_TABLE_100
2359 , p6_a10 JTF_NUMBER_TABLE
2360 , p6_a11 JTF_VARCHAR2_TABLE_100
2361 , p6_a12 JTF_NUMBER_TABLE
2362 , p6_a13 JTF_VARCHAR2_TABLE_2000
2363 , p6_a14 JTF_VARCHAR2_TABLE_2000
2364 , p6_a15 JTF_VARCHAR2_TABLE_2000
2365 , p6_a16 JTF_VARCHAR2_TABLE_300
2366 , p6_a17 JTF_VARCHAR2_TABLE_100
2367 , p6_a18 JTF_NUMBER_TABLE
2368 , p6_a19 JTF_NUMBER_TABLE
2369 , p6_a20 JTF_NUMBER_TABLE
2370 , p6_a21 JTF_NUMBER_TABLE
2371 , p6_a22 JTF_VARCHAR2_TABLE_100
2372 , p6_a23 JTF_VARCHAR2_TABLE_100
2373 , p6_a24 JTF_VARCHAR2_TABLE_100
2374 , p6_a25 JTF_VARCHAR2_TABLE_2000
2375 , p6_a26 JTF_VARCHAR2_TABLE_100
2376 , p6_a27 JTF_VARCHAR2_TABLE_200
2377 , p6_a28 JTF_DATE_TABLE
2378 , p6_a29 JTF_VARCHAR2_TABLE_200
2379 , p6_a30 JTF_DATE_TABLE
2380 , p6_a31 JTF_DATE_TABLE
2381 , p6_a32 JTF_DATE_TABLE
2382 , p6_a33 JTF_VARCHAR2_TABLE_100
2383 , p6_a34 JTF_NUMBER_TABLE
2384 , p6_a35 JTF_VARCHAR2_TABLE_100
2385 , p6_a36 JTF_NUMBER_TABLE
2386 , p6_a37 JTF_VARCHAR2_TABLE_100
2387 , p6_a38 JTF_VARCHAR2_TABLE_100
2388 , p6_a39 JTF_VARCHAR2_TABLE_500
2389 , p6_a40 JTF_VARCHAR2_TABLE_500
2390 , p6_a41 JTF_VARCHAR2_TABLE_500
2391 , p6_a42 JTF_VARCHAR2_TABLE_500
2392 , p6_a43 JTF_VARCHAR2_TABLE_500
2393 , p6_a44 JTF_VARCHAR2_TABLE_500
2394 , p6_a45 JTF_VARCHAR2_TABLE_500
2395 , p6_a46 JTF_VARCHAR2_TABLE_500
2396 , p6_a47 JTF_VARCHAR2_TABLE_500
2397 , p6_a48 JTF_VARCHAR2_TABLE_500
2398 , p6_a49 JTF_VARCHAR2_TABLE_500
2399 , p6_a50 JTF_VARCHAR2_TABLE_500
2400 , p6_a51 JTF_VARCHAR2_TABLE_500
2401 , p6_a52 JTF_VARCHAR2_TABLE_500
2402 , p6_a53 JTF_VARCHAR2_TABLE_500
2403 , p6_a54 JTF_NUMBER_TABLE
2404 , p6_a55 JTF_DATE_TABLE
2405 , p6_a56 JTF_NUMBER_TABLE
2406 , p6_a57 JTF_DATE_TABLE
2407 , p6_a58 JTF_VARCHAR2_TABLE_100
2408 , p6_a59 JTF_VARCHAR2_TABLE_100
2409 , p6_a60 JTF_VARCHAR2_TABLE_100
2410 , p6_a61 JTF_NUMBER_TABLE
2411 , p6_a62 JTF_VARCHAR2_TABLE_100
2412 , p6_a63 JTF_VARCHAR2_TABLE_100
2413 , p6_a64 JTF_VARCHAR2_TABLE_100
2414 , p6_a65 JTF_VARCHAR2_TABLE_100
2415 , p6_a66 JTF_VARCHAR2_TABLE_100
2416 , p6_a67 JTF_NUMBER_TABLE
2417 , p6_a68 JTF_NUMBER_TABLE
2418 , p6_a69 JTF_NUMBER_TABLE
2419 , p6_a70 JTF_DATE_TABLE
2420 , p6_a71 JTF_NUMBER_TABLE
2421 , p6_a72 JTF_DATE_TABLE
2422 , p6_a73 JTF_NUMBER_TABLE
2423 , p6_a74 JTF_NUMBER_TABLE
2424 , p6_a75 JTF_VARCHAR2_TABLE_100
2425 , p6_a76 JTF_VARCHAR2_TABLE_100
2426 , p6_a77 JTF_NUMBER_TABLE
2427 , p6_a78 JTF_NUMBER_TABLE
2428 , p6_a79 JTF_VARCHAR2_TABLE_100
2429 , p6_a80 JTF_VARCHAR2_TABLE_100
2430 , p6_a81 JTF_NUMBER_TABLE
2431 , p6_a82 JTF_VARCHAR2_TABLE_100
2432 , p6_a83 JTF_NUMBER_TABLE
2433 , p6_a84 JTF_NUMBER_TABLE
2434 , p6_a85 JTF_NUMBER_TABLE
2435 , p6_a86 JTF_NUMBER_TABLE
2436 , p6_a87 JTF_VARCHAR2_TABLE_100
2437 , p6_a88 JTF_NUMBER_TABLE
2438 , p6_a89 JTF_NUMBER_TABLE
2439 , p7_a0 JTF_NUMBER_TABLE
2440 , p7_a1 JTF_NUMBER_TABLE
2441 , p7_a2 JTF_NUMBER_TABLE
2442 , p7_a3 JTF_NUMBER_TABLE
2443 , p7_a4 JTF_VARCHAR2_TABLE_100
2444 , p7_a5 JTF_VARCHAR2_TABLE_100
2445 , p7_a6 JTF_VARCHAR2_TABLE_100
2446 , p7_a7 JTF_NUMBER_TABLE
2447 , p7_a8 JTF_NUMBER_TABLE
2448 , p7_a9 JTF_DATE_TABLE
2449 , p7_a10 JTF_NUMBER_TABLE
2450 , p7_a11 JTF_NUMBER_TABLE
2451 , p7_a12 JTF_NUMBER_TABLE
2452 , p7_a13 JTF_NUMBER_TABLE
2453 , p7_a14 JTF_NUMBER_TABLE
2454 , p7_a15 JTF_NUMBER_TABLE
2455 , p7_a16 JTF_NUMBER_TABLE
2456 , p7_a17 JTF_NUMBER_TABLE
2457 , p7_a18 JTF_NUMBER_TABLE
2458 , p7_a19 JTF_NUMBER_TABLE
2459 , p7_a20 JTF_DATE_TABLE
2460 , p7_a21 JTF_DATE_TABLE
2461 , p7_a22 JTF_NUMBER_TABLE
2462 , p7_a23 JTF_NUMBER_TABLE
2463 , p7_a24 JTF_DATE_TABLE
2464 , p7_a25 JTF_DATE_TABLE
2465 , p7_a26 JTF_DATE_TABLE
2466 , p7_a27 JTF_NUMBER_TABLE
2467 , p7_a28 JTF_NUMBER_TABLE
2468 , p7_a29 JTF_NUMBER_TABLE
2469 , p7_a30 JTF_NUMBER_TABLE
2470 , p7_a31 JTF_NUMBER_TABLE
2471 , p7_a32 JTF_NUMBER_TABLE
2472 , p7_a33 JTF_NUMBER_TABLE
2473 , p7_a34 JTF_DATE_TABLE
2474 , p7_a35 JTF_VARCHAR2_TABLE_100
2475 , p7_a36 JTF_DATE_TABLE
2476 , p7_a37 JTF_VARCHAR2_TABLE_300
2477 , p7_a38 JTF_NUMBER_TABLE
2478 , p7_a39 JTF_NUMBER_TABLE
2479 , p7_a40 JTF_NUMBER_TABLE
2480 , p7_a41 JTF_VARCHAR2_TABLE_100
2481 , p7_a42 JTF_DATE_TABLE
2482 , p7_a43 JTF_NUMBER_TABLE
2483 , p7_a44 JTF_NUMBER_TABLE
2484 , p7_a45 JTF_DATE_TABLE
2485 , p7_a46 JTF_NUMBER_TABLE
2486 , p7_a47 JTF_DATE_TABLE
2487 , p7_a48 JTF_DATE_TABLE
2488 , p7_a49 JTF_DATE_TABLE
2489 , p7_a50 JTF_NUMBER_TABLE
2490 , p7_a51 JTF_NUMBER_TABLE
2491 , p7_a52 JTF_VARCHAR2_TABLE_100
2492 , p7_a53 JTF_NUMBER_TABLE
2493 , p7_a54 JTF_NUMBER_TABLE
2494 , p7_a55 JTF_VARCHAR2_TABLE_100
2495 , p7_a56 JTF_VARCHAR2_TABLE_100
2496 , p7_a57 JTF_NUMBER_TABLE
2497 , p7_a58 JTF_DATE_TABLE
2498 , p7_a59 JTF_NUMBER_TABLE
2499 , p7_a60 JTF_VARCHAR2_TABLE_100
2500 , p7_a61 JTF_VARCHAR2_TABLE_500
2501 , p7_a62 JTF_VARCHAR2_TABLE_500
2502 , p7_a63 JTF_VARCHAR2_TABLE_500
2503 , p7_a64 JTF_VARCHAR2_TABLE_500
2504 , p7_a65 JTF_VARCHAR2_TABLE_500
2505 , p7_a66 JTF_VARCHAR2_TABLE_500
2506 , p7_a67 JTF_VARCHAR2_TABLE_500
2507 , p7_a68 JTF_VARCHAR2_TABLE_500
2508 , p7_a69 JTF_VARCHAR2_TABLE_500
2509 , p7_a70 JTF_VARCHAR2_TABLE_500
2510 , p7_a71 JTF_VARCHAR2_TABLE_500
2511 , p7_a72 JTF_VARCHAR2_TABLE_500
2512 , p7_a73 JTF_VARCHAR2_TABLE_500
2513 , p7_a74 JTF_VARCHAR2_TABLE_500
2514 , p7_a75 JTF_VARCHAR2_TABLE_500
2515 , p7_a76 JTF_NUMBER_TABLE
2516 , p7_a77 JTF_NUMBER_TABLE
2517 , p7_a78 JTF_NUMBER_TABLE
2518 , p7_a79 JTF_DATE_TABLE
2519 , p7_a80 JTF_NUMBER_TABLE
2520 , p7_a81 JTF_DATE_TABLE
2521 , p7_a82 JTF_NUMBER_TABLE
2522 , p7_a83 JTF_DATE_TABLE
2523 , p7_a84 JTF_DATE_TABLE
2524 , p7_a85 JTF_DATE_TABLE
2525 , p7_a86 JTF_DATE_TABLE
2526 , p7_a87 JTF_NUMBER_TABLE
2527 , p7_a88 JTF_NUMBER_TABLE
2528 , p7_a89 JTF_NUMBER_TABLE
2529 , p7_a90 JTF_VARCHAR2_TABLE_100
2530 , p7_a91 JTF_NUMBER_TABLE
2531 , p7_a92 JTF_VARCHAR2_TABLE_100
2532 , p7_a93 JTF_NUMBER_TABLE
2533 , p7_a94 JTF_NUMBER_TABLE
2534 , p7_a95 JTF_DATE_TABLE
2535 , p7_a96 JTF_VARCHAR2_TABLE_100
2536 , p7_a97 JTF_VARCHAR2_TABLE_100
2537 , p7_a98 JTF_NUMBER_TABLE
2538 )
2539
2540 as
2541 ddp_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
2542 ddp_klev_tbl okl_credit_pub.klev_tbl_type;
2543 ddindx binary_integer; indx binary_integer;
2544 begin
2545
2546 -- copy data to the local IN or IN-OUT args, if any
2547
2548
2549
2550
2551
2552
2553 okl_okc_migration_pvt_w.rosetta_table_copy_in_p5(ddp_clev_tbl, p6_a0
2554 , p6_a1
2555 , p6_a2
2556 , p6_a3
2557 , p6_a4
2558 , p6_a5
2559 , p6_a6
2560 , p6_a7
2561 , p6_a8
2562 , p6_a9
2563 , p6_a10
2564 , p6_a11
2565 , p6_a12
2566 , p6_a13
2567 , p6_a14
2568 , p6_a15
2569 , p6_a16
2570 , p6_a17
2571 , p6_a18
2572 , p6_a19
2573 , p6_a20
2574 , p6_a21
2575 , p6_a22
2576 , p6_a23
2577 , p6_a24
2578 , p6_a25
2579 , p6_a26
2580 , p6_a27
2581 , p6_a28
2582 , p6_a29
2583 , p6_a30
2584 , p6_a31
2585 , p6_a32
2586 , p6_a33
2587 , p6_a34
2588 , p6_a35
2589 , p6_a36
2590 , p6_a37
2591 , p6_a38
2592 , p6_a39
2593 , p6_a40
2594 , p6_a41
2595 , p6_a42
2596 , p6_a43
2597 , p6_a44
2598 , p6_a45
2599 , p6_a46
2600 , p6_a47
2601 , p6_a48
2602 , p6_a49
2603 , p6_a50
2604 , p6_a51
2605 , p6_a52
2606 , p6_a53
2607 , p6_a54
2608 , p6_a55
2609 , p6_a56
2610 , p6_a57
2611 , p6_a58
2612 , p6_a59
2613 , p6_a60
2614 , p6_a61
2615 , p6_a62
2616 , p6_a63
2617 , p6_a64
2618 , p6_a65
2619 , p6_a66
2620 , p6_a67
2621 , p6_a68
2622 , p6_a69
2623 , p6_a70
2624 , p6_a71
2625 , p6_a72
2626 , p6_a73
2627 , p6_a74
2628 , p6_a75
2629 , p6_a76
2630 , p6_a77
2631 , p6_a78
2632 , p6_a79
2633 , p6_a80
2634 , p6_a81
2635 , p6_a82
2636 , p6_a83
2637 , p6_a84
2638 , p6_a85
2639 , p6_a86
2640 , p6_a87
2641 , p6_a88
2642 , p6_a89
2643 );
2644
2645 okl_kle_pvt_w.rosetta_table_copy_in_p8(ddp_klev_tbl, p7_a0
2646 , p7_a1
2647 , p7_a2
2648 , p7_a3
2649 , p7_a4
2650 , p7_a5
2651 , p7_a6
2652 , p7_a7
2653 , p7_a8
2654 , p7_a9
2655 , p7_a10
2656 , p7_a11
2657 , p7_a12
2658 , p7_a13
2659 , p7_a14
2660 , p7_a15
2661 , p7_a16
2662 , p7_a17
2663 , p7_a18
2664 , p7_a19
2665 , p7_a20
2666 , p7_a21
2667 , p7_a22
2668 , p7_a23
2669 , p7_a24
2670 , p7_a25
2671 , p7_a26
2672 , p7_a27
2673 , p7_a28
2674 , p7_a29
2675 , p7_a30
2676 , p7_a31
2677 , p7_a32
2678 , p7_a33
2679 , p7_a34
2680 , p7_a35
2681 , p7_a36
2682 , p7_a37
2683 , p7_a38
2684 , p7_a39
2685 , p7_a40
2686 , p7_a41
2687 , p7_a42
2688 , p7_a43
2689 , p7_a44
2690 , p7_a45
2691 , p7_a46
2692 , p7_a47
2693 , p7_a48
2694 , p7_a49
2695 , p7_a50
2696 , p7_a51
2697 , p7_a52
2698 , p7_a53
2699 , p7_a54
2700 , p7_a55
2701 , p7_a56
2702 , p7_a57
2703 , p7_a58
2704 , p7_a59
2705 , p7_a60
2706 , p7_a61
2707 , p7_a62
2708 , p7_a63
2709 , p7_a64
2710 , p7_a65
2711 , p7_a66
2712 , p7_a67
2713 , p7_a68
2714 , p7_a69
2715 , p7_a70
2716 , p7_a71
2717 , p7_a72
2718 , p7_a73
2719 , p7_a74
2720 , p7_a75
2721 , p7_a76
2722 , p7_a77
2723 , p7_a78
2724 , p7_a79
2725 , p7_a80
2726 , p7_a81
2727 , p7_a82
2728 , p7_a83
2729 , p7_a84
2730 , p7_a85
2731 , p7_a86
2732 , p7_a87
2733 , p7_a88
2734 , p7_a89
2735 , p7_a90
2736 , p7_a91
2737 , p7_a92
2738 , p7_a93
2739 , p7_a94
2740 , p7_a95
2741 , p7_a96
2742 , p7_a97
2743 , p7_a98
2744 );
2745
2746 -- here's the delegated call to the old PL/SQL routine
2747 okl_credit_pub.validate_credit_limit(p_api_version,
2748 p_init_msg_list,
2749 x_return_status,
2750 x_msg_count,
2751 x_msg_data,
2752 p_mode,
2753 ddp_clev_tbl,
2754 ddp_klev_tbl);
2755
2756 -- copy data back from the local variables to OUT or IN-OUT args, if any
2757
2758
2759
2760
2761
2762
2763
2764 end;
2765
2766 procedure create_credit_limit(p_api_version NUMBER
2767 , p_init_msg_list VARCHAR2
2768 , x_return_status out nocopy VARCHAR2
2769 , x_msg_count out nocopy NUMBER
2770 , x_msg_data out nocopy VARCHAR2
2771 , p5_a0 JTF_NUMBER_TABLE
2772 , p5_a1 JTF_NUMBER_TABLE
2773 , p5_a2 JTF_NUMBER_TABLE
2774 , p5_a3 JTF_VARCHAR2_TABLE_200
2775 , p5_a4 JTF_VARCHAR2_TABLE_100
2776 , p5_a5 JTF_NUMBER_TABLE
2777 , p5_a6 JTF_NUMBER_TABLE
2778 , p5_a7 JTF_VARCHAR2_TABLE_2000
2779 , p5_a8 JTF_VARCHAR2_TABLE_100
2780 , p5_a9 JTF_DATE_TABLE
2781 , p6_a0 JTF_NUMBER_TABLE
2782 , p6_a1 JTF_NUMBER_TABLE
2783 , p6_a2 JTF_NUMBER_TABLE
2784 , p6_a3 JTF_NUMBER_TABLE
2785 , p6_a4 JTF_VARCHAR2_TABLE_100
2786 , p6_a5 JTF_VARCHAR2_TABLE_100
2787 , p6_a6 JTF_VARCHAR2_TABLE_100
2788 , p6_a7 JTF_NUMBER_TABLE
2789 , p6_a8 JTF_NUMBER_TABLE
2790 , p6_a9 JTF_DATE_TABLE
2791 , p6_a10 JTF_NUMBER_TABLE
2792 , p6_a11 JTF_NUMBER_TABLE
2793 , p6_a12 JTF_NUMBER_TABLE
2794 , p6_a13 JTF_NUMBER_TABLE
2795 , p6_a14 JTF_NUMBER_TABLE
2796 , p6_a15 JTF_NUMBER_TABLE
2797 , p6_a16 JTF_NUMBER_TABLE
2798 , p6_a17 JTF_NUMBER_TABLE
2799 , p6_a18 JTF_NUMBER_TABLE
2800 , p6_a19 JTF_NUMBER_TABLE
2801 , p6_a20 JTF_DATE_TABLE
2802 , p6_a21 JTF_DATE_TABLE
2803 , p6_a22 JTF_NUMBER_TABLE
2804 , p6_a23 JTF_NUMBER_TABLE
2805 , p6_a24 JTF_DATE_TABLE
2806 , p6_a25 JTF_DATE_TABLE
2807 , p6_a26 JTF_DATE_TABLE
2808 , p6_a27 JTF_NUMBER_TABLE
2809 , p6_a28 JTF_NUMBER_TABLE
2810 , p6_a29 JTF_NUMBER_TABLE
2811 , p6_a30 JTF_NUMBER_TABLE
2812 , p6_a31 JTF_NUMBER_TABLE
2813 , p6_a32 JTF_NUMBER_TABLE
2814 , p6_a33 JTF_NUMBER_TABLE
2815 , p6_a34 JTF_DATE_TABLE
2816 , p6_a35 JTF_VARCHAR2_TABLE_100
2817 , p6_a36 JTF_DATE_TABLE
2818 , p6_a37 JTF_VARCHAR2_TABLE_300
2819 , p6_a38 JTF_NUMBER_TABLE
2820 , p6_a39 JTF_NUMBER_TABLE
2821 , p6_a40 JTF_NUMBER_TABLE
2822 , p6_a41 JTF_VARCHAR2_TABLE_100
2823 , p6_a42 JTF_DATE_TABLE
2824 , p6_a43 JTF_NUMBER_TABLE
2825 , p6_a44 JTF_NUMBER_TABLE
2826 , p6_a45 JTF_DATE_TABLE
2827 , p6_a46 JTF_NUMBER_TABLE
2828 , p6_a47 JTF_DATE_TABLE
2829 , p6_a48 JTF_DATE_TABLE
2830 , p6_a49 JTF_DATE_TABLE
2831 , p6_a50 JTF_NUMBER_TABLE
2832 , p6_a51 JTF_NUMBER_TABLE
2833 , p6_a52 JTF_VARCHAR2_TABLE_100
2834 , p6_a53 JTF_NUMBER_TABLE
2835 , p6_a54 JTF_NUMBER_TABLE
2836 , p6_a55 JTF_VARCHAR2_TABLE_100
2837 , p6_a56 JTF_VARCHAR2_TABLE_100
2838 , p6_a57 JTF_NUMBER_TABLE
2839 , p6_a58 JTF_DATE_TABLE
2840 , p6_a59 JTF_NUMBER_TABLE
2841 , p6_a60 JTF_VARCHAR2_TABLE_100
2842 , p6_a61 JTF_VARCHAR2_TABLE_500
2843 , p6_a62 JTF_VARCHAR2_TABLE_500
2844 , p6_a63 JTF_VARCHAR2_TABLE_500
2845 , p6_a64 JTF_VARCHAR2_TABLE_500
2846 , p6_a65 JTF_VARCHAR2_TABLE_500
2847 , p6_a66 JTF_VARCHAR2_TABLE_500
2848 , p6_a67 JTF_VARCHAR2_TABLE_500
2849 , p6_a68 JTF_VARCHAR2_TABLE_500
2850 , p6_a69 JTF_VARCHAR2_TABLE_500
2851 , p6_a70 JTF_VARCHAR2_TABLE_500
2852 , p6_a71 JTF_VARCHAR2_TABLE_500
2853 , p6_a72 JTF_VARCHAR2_TABLE_500
2854 , p6_a73 JTF_VARCHAR2_TABLE_500
2855 , p6_a74 JTF_VARCHAR2_TABLE_500
2856 , p6_a75 JTF_VARCHAR2_TABLE_500
2857 , p6_a76 JTF_NUMBER_TABLE
2858 , p6_a77 JTF_NUMBER_TABLE
2859 , p6_a78 JTF_NUMBER_TABLE
2860 , p6_a79 JTF_DATE_TABLE
2861 , p6_a80 JTF_NUMBER_TABLE
2862 , p6_a81 JTF_DATE_TABLE
2863 , p6_a82 JTF_NUMBER_TABLE
2864 , p6_a83 JTF_DATE_TABLE
2865 , p6_a84 JTF_DATE_TABLE
2866 , p6_a85 JTF_DATE_TABLE
2867 , p6_a86 JTF_DATE_TABLE
2868 , p6_a87 JTF_NUMBER_TABLE
2869 , p6_a88 JTF_NUMBER_TABLE
2870 , p6_a89 JTF_NUMBER_TABLE
2871 , p6_a90 JTF_VARCHAR2_TABLE_100
2872 , p6_a91 JTF_NUMBER_TABLE
2873 , p6_a92 JTF_VARCHAR2_TABLE_100
2874 , p6_a93 JTF_NUMBER_TABLE
2875 , p6_a94 JTF_NUMBER_TABLE
2876 , p6_a95 JTF_DATE_TABLE
2877 , p6_a96 JTF_VARCHAR2_TABLE_100
2878 , p6_a97 JTF_VARCHAR2_TABLE_100
2879 , p6_a98 JTF_NUMBER_TABLE
2880 , p7_a0 out nocopy JTF_NUMBER_TABLE
2881 , p7_a1 out nocopy JTF_NUMBER_TABLE
2882 , p7_a2 out nocopy JTF_NUMBER_TABLE
2883 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_200
2884 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
2885 , p7_a5 out nocopy JTF_NUMBER_TABLE
2886 , p7_a6 out nocopy JTF_NUMBER_TABLE
2887 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_2000
2888 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_100
2889 , p7_a9 out nocopy JTF_DATE_TABLE
2890 , p8_a0 out nocopy JTF_NUMBER_TABLE
2891 , p8_a1 out nocopy JTF_NUMBER_TABLE
2892 , p8_a2 out nocopy JTF_NUMBER_TABLE
2893 , p8_a3 out nocopy JTF_NUMBER_TABLE
2894 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
2895 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
2896 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
2897 , p8_a7 out nocopy JTF_NUMBER_TABLE
2898 , p8_a8 out nocopy JTF_NUMBER_TABLE
2899 , p8_a9 out nocopy JTF_DATE_TABLE
2900 , p8_a10 out nocopy JTF_NUMBER_TABLE
2901 , p8_a11 out nocopy JTF_NUMBER_TABLE
2902 , p8_a12 out nocopy JTF_NUMBER_TABLE
2903 , p8_a13 out nocopy JTF_NUMBER_TABLE
2904 , p8_a14 out nocopy JTF_NUMBER_TABLE
2905 , p8_a15 out nocopy JTF_NUMBER_TABLE
2906
2907 , p8_a16 out nocopy JTF_NUMBER_TABLE
2908 , p8_a17 out nocopy JTF_NUMBER_TABLE
2909 , p8_a18 out nocopy JTF_NUMBER_TABLE
2910 , p8_a19 out nocopy JTF_NUMBER_TABLE
2911 , p8_a20 out nocopy JTF_DATE_TABLE
2912 , p8_a21 out nocopy JTF_DATE_TABLE
2913 , p8_a22 out nocopy JTF_NUMBER_TABLE
2914 , p8_a23 out nocopy JTF_NUMBER_TABLE
2915 , p8_a24 out nocopy JTF_DATE_TABLE
2916 , p8_a25 out nocopy JTF_DATE_TABLE
2917 , p8_a26 out nocopy JTF_DATE_TABLE
2918 , p8_a27 out nocopy JTF_NUMBER_TABLE
2919 , p8_a28 out nocopy JTF_NUMBER_TABLE
2920 , p8_a29 out nocopy JTF_NUMBER_TABLE
2921 , p8_a30 out nocopy JTF_NUMBER_TABLE
2922 , p8_a31 out nocopy JTF_NUMBER_TABLE
2923 , p8_a32 out nocopy JTF_NUMBER_TABLE
2924 , p8_a33 out nocopy JTF_NUMBER_TABLE
2925 , p8_a34 out nocopy JTF_DATE_TABLE
2926 , p8_a35 out nocopy JTF_VARCHAR2_TABLE_100
2927 , p8_a36 out nocopy JTF_DATE_TABLE
2928 , p8_a37 out nocopy JTF_VARCHAR2_TABLE_300
2929 , p8_a38 out nocopy JTF_NUMBER_TABLE
2930 , p8_a39 out nocopy JTF_NUMBER_TABLE
2931 , p8_a40 out nocopy JTF_NUMBER_TABLE
2932 , p8_a41 out nocopy JTF_VARCHAR2_TABLE_100
2933 , p8_a42 out nocopy JTF_DATE_TABLE
2934 , p8_a43 out nocopy JTF_NUMBER_TABLE
2935 , p8_a44 out nocopy JTF_NUMBER_TABLE
2936 , p8_a45 out nocopy JTF_DATE_TABLE
2937 , p8_a46 out nocopy JTF_NUMBER_TABLE
2938 , p8_a47 out nocopy JTF_DATE_TABLE
2939 , p8_a48 out nocopy JTF_DATE_TABLE
2940 , p8_a49 out nocopy JTF_DATE_TABLE
2941 , p8_a50 out nocopy JTF_NUMBER_TABLE
2942 , p8_a51 out nocopy JTF_NUMBER_TABLE
2943 , p8_a52 out nocopy JTF_VARCHAR2_TABLE_100
2944 , p8_a53 out nocopy JTF_NUMBER_TABLE
2945 , p8_a54 out nocopy JTF_NUMBER_TABLE
2946 , p8_a55 out nocopy JTF_VARCHAR2_TABLE_100
2947 , p8_a56 out nocopy JTF_VARCHAR2_TABLE_100
2948 , p8_a57 out nocopy JTF_NUMBER_TABLE
2949 , p8_a58 out nocopy JTF_DATE_TABLE
2950 , p8_a59 out nocopy JTF_NUMBER_TABLE
2951 , p8_a60 out nocopy JTF_VARCHAR2_TABLE_100
2952 , p8_a61 out nocopy JTF_VARCHAR2_TABLE_500
2953 , p8_a62 out nocopy JTF_VARCHAR2_TABLE_500
2954 , p8_a63 out nocopy JTF_VARCHAR2_TABLE_500
2955 , p8_a64 out nocopy JTF_VARCHAR2_TABLE_500
2956 , p8_a65 out nocopy JTF_VARCHAR2_TABLE_500
2957 , p8_a66 out nocopy JTF_VARCHAR2_TABLE_500
2958 , p8_a67 out nocopy JTF_VARCHAR2_TABLE_500
2959 , p8_a68 out nocopy JTF_VARCHAR2_TABLE_500
2960 , p8_a69 out nocopy JTF_VARCHAR2_TABLE_500
2961 , p8_a70 out nocopy JTF_VARCHAR2_TABLE_500
2962 , p8_a71 out nocopy JTF_VARCHAR2_TABLE_500
2963 , p8_a72 out nocopy JTF_VARCHAR2_TABLE_500
2964 , p8_a73 out nocopy JTF_VARCHAR2_TABLE_500
2965 , p8_a74 out nocopy JTF_VARCHAR2_TABLE_500
2966 , p8_a75 out nocopy JTF_VARCHAR2_TABLE_500
2967 , p8_a76 out nocopy JTF_NUMBER_TABLE
2968 , p8_a77 out nocopy JTF_NUMBER_TABLE
2969 , p8_a78 out nocopy JTF_NUMBER_TABLE
2970 , p8_a79 out nocopy JTF_DATE_TABLE
2971 , p8_a80 out nocopy JTF_NUMBER_TABLE
2972 , p8_a81 out nocopy JTF_DATE_TABLE
2973 , p8_a82 out nocopy JTF_NUMBER_TABLE
2974 , p8_a83 out nocopy JTF_DATE_TABLE
2975 , p8_a84 out nocopy JTF_DATE_TABLE
2976 , p8_a85 out nocopy JTF_DATE_TABLE
2977 , p8_a86 out nocopy JTF_DATE_TABLE
2978 , p8_a87 out nocopy JTF_NUMBER_TABLE
2979 , p8_a88 out nocopy JTF_NUMBER_TABLE
2980 , p8_a89 out nocopy JTF_NUMBER_TABLE
2981 , p8_a90 out nocopy JTF_VARCHAR2_TABLE_100
2982 , p8_a91 out nocopy JTF_NUMBER_TABLE
2983 , p8_a92 out nocopy JTF_VARCHAR2_TABLE_100
2984 , p8_a93 out nocopy JTF_NUMBER_TABLE
2985 , p8_a94 out nocopy JTF_NUMBER_TABLE
2986 , p8_a95 out nocopy JTF_DATE_TABLE
2987 , p8_a96 out nocopy JTF_VARCHAR2_TABLE_100
2988 , p8_a97 out nocopy JTF_VARCHAR2_TABLE_100
2989 , p8_a98 out nocopy JTF_NUMBER_TABLE
2990 )
2991
2992 as
2993 ddp_clev_tbl okl_credit_pub.clev_tbl_type;
2994 ddp_klev_tbl okl_credit_pub.klev_tbl_type;
2995 ddx_clev_tbl okl_credit_pub.clev_tbl_type;
2996 ddx_klev_tbl okl_credit_pub.klev_tbl_type;
2997 ddindx binary_integer; indx binary_integer;
2998 begin
2999
3000 -- copy data to the local IN or IN-OUT args, if any
3001
3002
3003
3004
3005
3006 okl_credit_pub_w.rosetta_table_copy_in_p5(ddp_clev_tbl, p5_a0
3007 , p5_a1
3008 , p5_a2
3009 , p5_a3
3010 , p5_a4
3011 , p5_a5
3012 , p5_a6
3013 , p5_a7
3014 , p5_a8
3015 , p5_a9
3016 );
3017
3018 okl_kle_pvt_w.rosetta_table_copy_in_p8(ddp_klev_tbl, p6_a0
3019 , p6_a1
3020 , p6_a2
3021 , p6_a3
3022 , p6_a4
3023 , p6_a5
3024 , p6_a6
3025 , p6_a7
3026 , p6_a8
3027 , p6_a9
3028 , p6_a10
3029 , p6_a11
3030 , p6_a12
3031 , p6_a13
3032 , p6_a14
3033 , p6_a15
3034 , p6_a16
3035 , p6_a17
3036 , p6_a18
3037 , p6_a19
3038 , p6_a20
3039 , p6_a21
3040 , p6_a22
3041 , p6_a23
3042 , p6_a24
3043 , p6_a25
3044 , p6_a26
3045 , p6_a27
3046 , p6_a28
3047 , p6_a29
3048 , p6_a30
3049 , p6_a31
3050 , p6_a32
3051 , p6_a33
3052 , p6_a34
3053 , p6_a35
3054 , p6_a36
3055 , p6_a37
3056 , p6_a38
3057 , p6_a39
3058 , p6_a40
3059 , p6_a41
3060 , p6_a42
3061 , p6_a43
3062 , p6_a44
3063 , p6_a45
3064 , p6_a46
3065 , p6_a47
3066 , p6_a48
3067 , p6_a49
3068 , p6_a50
3069 , p6_a51
3070 , p6_a52
3071 , p6_a53
3072 , p6_a54
3073 , p6_a55
3074 , p6_a56
3075 , p6_a57
3076 , p6_a58
3077 , p6_a59
3078 , p6_a60
3079 , p6_a61
3080 , p6_a62
3081 , p6_a63
3082 , p6_a64
3083 , p6_a65
3084 , p6_a66
3085 , p6_a67
3086 , p6_a68
3087 , p6_a69
3088 , p6_a70
3089 , p6_a71
3090 , p6_a72
3091 , p6_a73
3092 , p6_a74
3093 , p6_a75
3094 , p6_a76
3095 , p6_a77
3096 , p6_a78
3097 , p6_a79
3098 , p6_a80
3099 , p6_a81
3100 , p6_a82
3101 , p6_a83
3102 , p6_a84
3103 , p6_a85
3104 , p6_a86
3105 , p6_a87
3106 , p6_a88
3107 , p6_a89
3108 , p6_a90
3109 , p6_a91
3110 , p6_a92
3111 , p6_a93
3112 , p6_a94
3113 , p6_a95
3114 , p6_a96
3115 , p6_a97
3116 , p6_a98
3117 );
3118
3119
3120
3121 -- here's the delegated call to the old PL/SQL routine
3122 okl_credit_pub.create_credit_limit(p_api_version,
3123 p_init_msg_list,
3124 x_return_status,
3125 x_msg_count,
3126 x_msg_data,
3127 ddp_clev_tbl,
3128 ddp_klev_tbl,
3129 ddx_clev_tbl,
3130 ddx_klev_tbl);
3131
3132 -- copy data back from the local variables to OUT or IN-OUT args, if any
3133
3134
3135
3136
3137
3138
3139
3140 okl_credit_pub_w.rosetta_table_copy_out_p5(ddx_clev_tbl, p7_a0
3141 , p7_a1
3142 , p7_a2
3143 , p7_a3
3144 , p7_a4
3145 , p7_a5
3146 , p7_a6
3147 , p7_a7
3148 , p7_a8
3149 , p7_a9
3150 );
3151
3152 okl_kle_pvt_w.rosetta_table_copy_out_p8(ddx_klev_tbl, p8_a0
3153 , p8_a1
3154 , p8_a2
3155 , p8_a3
3156 , p8_a4
3157 , p8_a5
3158 , p8_a6
3159 , p8_a7
3160 , p8_a8
3161 , p8_a9
3162 , p8_a10
3163 , p8_a11
3164 , p8_a12
3165 , p8_a13
3166 , p8_a14
3167 , p8_a15
3168 , p8_a16
3169 , p8_a17
3170 , p8_a18
3171 , p8_a19
3172 , p8_a20
3173 , p8_a21
3174 , p8_a22
3175 , p8_a23
3176 , p8_a24
3177 , p8_a25
3178 , p8_a26
3179 , p8_a27
3180 , p8_a28
3181 , p8_a29
3182 , p8_a30
3183 , p8_a31
3184 , p8_a32
3185 , p8_a33
3186 , p8_a34
3187 , p8_a35
3188 , p8_a36
3189 , p8_a37
3190 , p8_a38
3191 , p8_a39
3192 , p8_a40
3193 , p8_a41
3194 , p8_a42
3195 , p8_a43
3196 , p8_a44
3197 , p8_a45
3198 , p8_a46
3199 , p8_a47
3200 , p8_a48
3201 , p8_a49
3202 , p8_a50
3203 , p8_a51
3204 , p8_a52
3205 , p8_a53
3206 , p8_a54
3207 , p8_a55
3208 , p8_a56
3209 , p8_a57
3210 , p8_a58
3211 , p8_a59
3212 , p8_a60
3213 , p8_a61
3214 , p8_a62
3215 , p8_a63
3216 , p8_a64
3217 , p8_a65
3218 , p8_a66
3219 , p8_a67
3220 , p8_a68
3221 , p8_a69
3222 , p8_a70
3223 , p8_a71
3224 , p8_a72
3225 , p8_a73
3226 , p8_a74
3227 , p8_a75
3228 , p8_a76
3229 , p8_a77
3230 , p8_a78
3231 , p8_a79
3232 , p8_a80
3233 , p8_a81
3234 , p8_a82
3235 , p8_a83
3236 , p8_a84
3237 , p8_a85
3238 , p8_a86
3239 , p8_a87
3240 , p8_a88
3241 , p8_a89
3242 , p8_a90
3243 , p8_a91
3244 , p8_a92
3245 , p8_a93
3246 , p8_a94
3247 , p8_a95
3248 , p8_a96
3249 , p8_a97
3250 , p8_a98
3251 );
3252 end;
3253
3254 procedure update_credit_limit(p_api_version NUMBER
3255 , p_init_msg_list VARCHAR2
3256 , x_return_status out nocopy VARCHAR2
3257 , x_msg_count out nocopy NUMBER
3258 , x_msg_data out nocopy VARCHAR2
3259 , p5_a0 JTF_NUMBER_TABLE
3260 , p5_a1 JTF_NUMBER_TABLE
3261 , p5_a2 JTF_NUMBER_TABLE
3262 , p5_a3 JTF_VARCHAR2_TABLE_200
3263 , p5_a4 JTF_VARCHAR2_TABLE_100
3264 , p5_a5 JTF_NUMBER_TABLE
3265 , p5_a6 JTF_NUMBER_TABLE
3266 , p5_a7 JTF_VARCHAR2_TABLE_2000
3267 , p5_a8 JTF_VARCHAR2_TABLE_100
3268 , p5_a9 JTF_DATE_TABLE
3269 , p6_a0 JTF_NUMBER_TABLE
3270 , p6_a1 JTF_NUMBER_TABLE
3271 , p6_a2 JTF_NUMBER_TABLE
3272 , p6_a3 JTF_NUMBER_TABLE
3273 , p6_a4 JTF_VARCHAR2_TABLE_100
3274 , p6_a5 JTF_VARCHAR2_TABLE_100
3275 , p6_a6 JTF_VARCHAR2_TABLE_100
3276 , p6_a7 JTF_NUMBER_TABLE
3277 , p6_a8 JTF_NUMBER_TABLE
3278 , p6_a9 JTF_DATE_TABLE
3279 , p6_a10 JTF_NUMBER_TABLE
3280 , p6_a11 JTF_NUMBER_TABLE
3281 , p6_a12 JTF_NUMBER_TABLE
3282 , p6_a13 JTF_NUMBER_TABLE
3283 , p6_a14 JTF_NUMBER_TABLE
3284 , p6_a15 JTF_NUMBER_TABLE
3285 , p6_a16 JTF_NUMBER_TABLE
3286 , p6_a17 JTF_NUMBER_TABLE
3287 , p6_a18 JTF_NUMBER_TABLE
3288 , p6_a19 JTF_NUMBER_TABLE
3289 , p6_a20 JTF_DATE_TABLE
3290 , p6_a21 JTF_DATE_TABLE
3291 , p6_a22 JTF_NUMBER_TABLE
3292 , p6_a23 JTF_NUMBER_TABLE
3293 , p6_a24 JTF_DATE_TABLE
3294 , p6_a25 JTF_DATE_TABLE
3295 , p6_a26 JTF_DATE_TABLE
3296 , p6_a27 JTF_NUMBER_TABLE
3297 , p6_a28 JTF_NUMBER_TABLE
3298 , p6_a29 JTF_NUMBER_TABLE
3299 , p6_a30 JTF_NUMBER_TABLE
3300 , p6_a31 JTF_NUMBER_TABLE
3301 , p6_a32 JTF_NUMBER_TABLE
3302 , p6_a33 JTF_NUMBER_TABLE
3303 , p6_a34 JTF_DATE_TABLE
3304 , p6_a35 JTF_VARCHAR2_TABLE_100
3305 , p6_a36 JTF_DATE_TABLE
3306 , p6_a37 JTF_VARCHAR2_TABLE_300
3307 , p6_a38 JTF_NUMBER_TABLE
3308 , p6_a39 JTF_NUMBER_TABLE
3309 , p6_a40 JTF_NUMBER_TABLE
3310 , p6_a41 JTF_VARCHAR2_TABLE_100
3311 , p6_a42 JTF_DATE_TABLE
3312 , p6_a43 JTF_NUMBER_TABLE
3313 , p6_a44 JTF_NUMBER_TABLE
3314 , p6_a45 JTF_DATE_TABLE
3315 , p6_a46 JTF_NUMBER_TABLE
3316 , p6_a47 JTF_DATE_TABLE
3317 , p6_a48 JTF_DATE_TABLE
3318 , p6_a49 JTF_DATE_TABLE
3319 , p6_a50 JTF_NUMBER_TABLE
3320 , p6_a51 JTF_NUMBER_TABLE
3321 , p6_a52 JTF_VARCHAR2_TABLE_100
3322 , p6_a53 JTF_NUMBER_TABLE
3323 , p6_a54 JTF_NUMBER_TABLE
3324 , p6_a55 JTF_VARCHAR2_TABLE_100
3325 , p6_a56 JTF_VARCHAR2_TABLE_100
3326 , p6_a57 JTF_NUMBER_TABLE
3327 , p6_a58 JTF_DATE_TABLE
3328 , p6_a59 JTF_NUMBER_TABLE
3329 , p6_a60 JTF_VARCHAR2_TABLE_100
3330 , p6_a61 JTF_VARCHAR2_TABLE_500
3331 , p6_a62 JTF_VARCHAR2_TABLE_500
3332 , p6_a63 JTF_VARCHAR2_TABLE_500
3333 , p6_a64 JTF_VARCHAR2_TABLE_500
3334 , p6_a65 JTF_VARCHAR2_TABLE_500
3335 , p6_a66 JTF_VARCHAR2_TABLE_500
3336 , p6_a67 JTF_VARCHAR2_TABLE_500
3337 , p6_a68 JTF_VARCHAR2_TABLE_500
3338 , p6_a69 JTF_VARCHAR2_TABLE_500
3339 , p6_a70 JTF_VARCHAR2_TABLE_500
3340 , p6_a71 JTF_VARCHAR2_TABLE_500
3341 , p6_a72 JTF_VARCHAR2_TABLE_500
3342 , p6_a73 JTF_VARCHAR2_TABLE_500
3343 , p6_a74 JTF_VARCHAR2_TABLE_500
3344 , p6_a75 JTF_VARCHAR2_TABLE_500
3345 , p6_a76 JTF_NUMBER_TABLE
3346 , p6_a77 JTF_NUMBER_TABLE
3347 , p6_a78 JTF_NUMBER_TABLE
3348 , p6_a79 JTF_DATE_TABLE
3349 , p6_a80 JTF_NUMBER_TABLE
3350 , p6_a81 JTF_DATE_TABLE
3351 , p6_a82 JTF_NUMBER_TABLE
3352 , p6_a83 JTF_DATE_TABLE
3353 , p6_a84 JTF_DATE_TABLE
3354 , p6_a85 JTF_DATE_TABLE
3355 , p6_a86 JTF_DATE_TABLE
3356 , p6_a87 JTF_NUMBER_TABLE
3357 , p6_a88 JTF_NUMBER_TABLE
3358 , p6_a89 JTF_NUMBER_TABLE
3359 , p6_a90 JTF_VARCHAR2_TABLE_100
3360 , p6_a91 JTF_NUMBER_TABLE
3361 , p6_a92 JTF_VARCHAR2_TABLE_100
3362 , p6_a93 JTF_NUMBER_TABLE
3363 , p6_a94 JTF_NUMBER_TABLE
3364 , p6_a95 JTF_DATE_TABLE
3365 , p6_a96 JTF_VARCHAR2_TABLE_100
3366 , p6_a97 JTF_VARCHAR2_TABLE_100
3367 , p6_a98 JTF_NUMBER_TABLE
3368 , p7_a0 out nocopy JTF_NUMBER_TABLE
3369 , p7_a1 out nocopy JTF_NUMBER_TABLE
3370 , p7_a2 out nocopy JTF_NUMBER_TABLE
3371 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_200
3372 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
3373 , p7_a5 out nocopy JTF_NUMBER_TABLE
3374 , p7_a6 out nocopy JTF_NUMBER_TABLE
3375 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_2000
3376 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_100
3377 , p7_a9 out nocopy JTF_DATE_TABLE
3378 , p8_a0 out nocopy JTF_NUMBER_TABLE
3379 , p8_a1 out nocopy JTF_NUMBER_TABLE
3380 , p8_a2 out nocopy JTF_NUMBER_TABLE
3381 , p8_a3 out nocopy JTF_NUMBER_TABLE
3382 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
3383 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
3384 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
3385 , p8_a7 out nocopy JTF_NUMBER_TABLE
3386 , p8_a8 out nocopy JTF_NUMBER_TABLE
3387 , p8_a9 out nocopy JTF_DATE_TABLE
3388 , p8_a10 out nocopy JTF_NUMBER_TABLE
3389 , p8_a11 out nocopy JTF_NUMBER_TABLE
3390 , p8_a12 out nocopy JTF_NUMBER_TABLE
3391 , p8_a13 out nocopy JTF_NUMBER_TABLE
3392 , p8_a14 out nocopy JTF_NUMBER_TABLE
3393 , p8_a15 out nocopy JTF_NUMBER_TABLE
3394 , p8_a16 out nocopy JTF_NUMBER_TABLE
3395 , p8_a17 out nocopy JTF_NUMBER_TABLE
3396 , p8_a18 out nocopy JTF_NUMBER_TABLE
3397 , p8_a19 out nocopy JTF_NUMBER_TABLE
3398 , p8_a20 out nocopy JTF_DATE_TABLE
3399 , p8_a21 out nocopy JTF_DATE_TABLE
3400 , p8_a22 out nocopy JTF_NUMBER_TABLE
3401 , p8_a23 out nocopy JTF_NUMBER_TABLE
3402 , p8_a24 out nocopy JTF_DATE_TABLE
3403 , p8_a25 out nocopy JTF_DATE_TABLE
3404 , p8_a26 out nocopy JTF_DATE_TABLE
3405 , p8_a27 out nocopy JTF_NUMBER_TABLE
3406 , p8_a28 out nocopy JTF_NUMBER_TABLE
3407 , p8_a29 out nocopy JTF_NUMBER_TABLE
3408 , p8_a30 out nocopy JTF_NUMBER_TABLE
3409 , p8_a31 out nocopy JTF_NUMBER_TABLE
3410 , p8_a32 out nocopy JTF_NUMBER_TABLE
3411 , p8_a33 out nocopy JTF_NUMBER_TABLE
3412 , p8_a34 out nocopy JTF_DATE_TABLE
3413 , p8_a35 out nocopy JTF_VARCHAR2_TABLE_100
3414 , p8_a36 out nocopy JTF_DATE_TABLE
3415 , p8_a37 out nocopy JTF_VARCHAR2_TABLE_300
3416 , p8_a38 out nocopy JTF_NUMBER_TABLE
3417 , p8_a39 out nocopy JTF_NUMBER_TABLE
3418 , p8_a40 out nocopy JTF_NUMBER_TABLE
3419 , p8_a41 out nocopy JTF_VARCHAR2_TABLE_100
3420 , p8_a42 out nocopy JTF_DATE_TABLE
3421 , p8_a43 out nocopy JTF_NUMBER_TABLE
3422 , p8_a44 out nocopy JTF_NUMBER_TABLE
3423 , p8_a45 out nocopy JTF_DATE_TABLE
3424 , p8_a46 out nocopy JTF_NUMBER_TABLE
3425 , p8_a47 out nocopy JTF_DATE_TABLE
3426 , p8_a48 out nocopy JTF_DATE_TABLE
3427 , p8_a49 out nocopy JTF_DATE_TABLE
3428 , p8_a50 out nocopy JTF_NUMBER_TABLE
3429 , p8_a51 out nocopy JTF_NUMBER_TABLE
3430 , p8_a52 out nocopy JTF_VARCHAR2_TABLE_100
3431 , p8_a53 out nocopy JTF_NUMBER_TABLE
3432 , p8_a54 out nocopy JTF_NUMBER_TABLE
3433 , p8_a55 out nocopy JTF_VARCHAR2_TABLE_100
3434 , p8_a56 out nocopy JTF_VARCHAR2_TABLE_100
3435 , p8_a57 out nocopy JTF_NUMBER_TABLE
3436 , p8_a58 out nocopy JTF_DATE_TABLE
3437 , p8_a59 out nocopy JTF_NUMBER_TABLE
3438 , p8_a60 out nocopy JTF_VARCHAR2_TABLE_100
3439 , p8_a61 out nocopy JTF_VARCHAR2_TABLE_500
3440 , p8_a62 out nocopy JTF_VARCHAR2_TABLE_500
3441 , p8_a63 out nocopy JTF_VARCHAR2_TABLE_500
3442 , p8_a64 out nocopy JTF_VARCHAR2_TABLE_500
3443 , p8_a65 out nocopy JTF_VARCHAR2_TABLE_500
3444 , p8_a66 out nocopy JTF_VARCHAR2_TABLE_500
3445 , p8_a67 out nocopy JTF_VARCHAR2_TABLE_500
3446 , p8_a68 out nocopy JTF_VARCHAR2_TABLE_500
3447 , p8_a69 out nocopy JTF_VARCHAR2_TABLE_500
3448 , p8_a70 out nocopy JTF_VARCHAR2_TABLE_500
3449 , p8_a71 out nocopy JTF_VARCHAR2_TABLE_500
3450 , p8_a72 out nocopy JTF_VARCHAR2_TABLE_500
3451 , p8_a73 out nocopy JTF_VARCHAR2_TABLE_500
3452 , p8_a74 out nocopy JTF_VARCHAR2_TABLE_500
3453 , p8_a75 out nocopy JTF_VARCHAR2_TABLE_500
3454 , p8_a76 out nocopy JTF_NUMBER_TABLE
3455 , p8_a77 out nocopy JTF_NUMBER_TABLE
3456 , p8_a78 out nocopy JTF_NUMBER_TABLE
3457 , p8_a79 out nocopy JTF_DATE_TABLE
3458 , p8_a80 out nocopy JTF_NUMBER_TABLE
3459 , p8_a81 out nocopy JTF_DATE_TABLE
3460 , p8_a82 out nocopy JTF_NUMBER_TABLE
3461 , p8_a83 out nocopy JTF_DATE_TABLE
3462 , p8_a84 out nocopy JTF_DATE_TABLE
3463 , p8_a85 out nocopy JTF_DATE_TABLE
3464 , p8_a86 out nocopy JTF_DATE_TABLE
3465 , p8_a87 out nocopy JTF_NUMBER_TABLE
3466 , p8_a88 out nocopy JTF_NUMBER_TABLE
3467 , p8_a89 out nocopy JTF_NUMBER_TABLE
3468 , p8_a90 out nocopy JTF_VARCHAR2_TABLE_100
3469 , p8_a91 out nocopy JTF_NUMBER_TABLE
3470 , p8_a92 out nocopy JTF_VARCHAR2_TABLE_100
3471 , p8_a93 out nocopy JTF_NUMBER_TABLE
3472 , p8_a94 out nocopy JTF_NUMBER_TABLE
3473 , p8_a95 out nocopy JTF_DATE_TABLE
3474 , p8_a96 out nocopy JTF_VARCHAR2_TABLE_100
3475 , p8_a97 out nocopy JTF_VARCHAR2_TABLE_100
3476 , p8_a98 out nocopy JTF_NUMBER_TABLE
3477 )
3478
3479 as
3480 ddp_clev_tbl okl_credit_pub.clev_tbl_type;
3481 ddp_klev_tbl okl_credit_pub.klev_tbl_type;
3482 ddx_clev_tbl okl_credit_pub.clev_tbl_type;
3483 ddx_klev_tbl okl_credit_pub.klev_tbl_type;
3484 ddindx binary_integer; indx binary_integer;
3485 begin
3486
3487 -- copy data to the local IN or IN-OUT args, if any
3488
3489
3490
3491
3492
3493 okl_credit_pub_w.rosetta_table_copy_in_p5(ddp_clev_tbl, p5_a0
3494 , p5_a1
3495 , p5_a2
3496 , p5_a3
3497 , p5_a4
3498 , p5_a5
3499 , p5_a6
3500 , p5_a7
3501 , p5_a8
3502 , p5_a9
3503 );
3504
3505 okl_kle_pvt_w.rosetta_table_copy_in_p8(ddp_klev_tbl, p6_a0
3506 , p6_a1
3507 , p6_a2
3508 , p6_a3
3509 , p6_a4
3510 , p6_a5
3511 , p6_a6
3512 , p6_a7
3513 , p6_a8
3514 , p6_a9
3515 , p6_a10
3516 , p6_a11
3517 , p6_a12
3518 , p6_a13
3519 , p6_a14
3520 , p6_a15
3521 , p6_a16
3522 , p6_a17
3523 , p6_a18
3524 , p6_a19
3525 , p6_a20
3526 , p6_a21
3527 , p6_a22
3528 , p6_a23
3529 , p6_a24
3530 , p6_a25
3531 , p6_a26
3532 , p6_a27
3533 , p6_a28
3534 , p6_a29
3535 , p6_a30
3536 , p6_a31
3537 , p6_a32
3538 , p6_a33
3539 , p6_a34
3540 , p6_a35
3541 , p6_a36
3542 , p6_a37
3543 , p6_a38
3544 , p6_a39
3545 , p6_a40
3546 , p6_a41
3547 , p6_a42
3548 , p6_a43
3549 , p6_a44
3550 , p6_a45
3551 , p6_a46
3552 , p6_a47
3553 , p6_a48
3554 , p6_a49
3555 , p6_a50
3556 , p6_a51
3557 , p6_a52
3558 , p6_a53
3559 , p6_a54
3560 , p6_a55
3561 , p6_a56
3562 , p6_a57
3563 , p6_a58
3564 , p6_a59
3565 , p6_a60
3566 , p6_a61
3567 , p6_a62
3568 , p6_a63
3569 , p6_a64
3570 , p6_a65
3571 , p6_a66
3572 , p6_a67
3573 , p6_a68
3574 , p6_a69
3575 , p6_a70
3576 , p6_a71
3577 , p6_a72
3578 , p6_a73
3579 , p6_a74
3580 , p6_a75
3581 , p6_a76
3582 , p6_a77
3583 , p6_a78
3584 , p6_a79
3585 , p6_a80
3586 , p6_a81
3587 , p6_a82
3588 , p6_a83
3589 , p6_a84
3590 , p6_a85
3591
3592 , p6_a86
3593 , p6_a87
3594 , p6_a88
3595 , p6_a89
3596 , p6_a90
3597 , p6_a91
3598 , p6_a92
3599 , p6_a93
3600 , p6_a94
3601 , p6_a95
3602 , p6_a96
3603 , p6_a97
3604 , p6_a98
3605 );
3606
3607
3608
3609 -- here's the delegated call to the old PL/SQL routine
3610 okl_credit_pub.update_credit_limit(p_api_version,
3611 p_init_msg_list,
3612 x_return_status,
3613 x_msg_count,
3614 x_msg_data,
3615 ddp_clev_tbl,
3616 ddp_klev_tbl,
3617 ddx_clev_tbl,
3618 ddx_klev_tbl);
3619
3620 -- copy data back from the local variables to OUT or IN-OUT args, if any
3621
3622
3623
3624
3625
3626
3627
3628 okl_credit_pub_w.rosetta_table_copy_out_p5(ddx_clev_tbl, p7_a0
3629 , p7_a1
3630 , p7_a2
3631 , p7_a3
3632 , p7_a4
3633 , p7_a5
3634 , p7_a6
3635 , p7_a7
3636 , p7_a8
3637 , p7_a9
3638 );
3639
3640 okl_kle_pvt_w.rosetta_table_copy_out_p8(ddx_klev_tbl, p8_a0
3641 , p8_a1
3642 , p8_a2
3643 , p8_a3
3644 , p8_a4
3645 , p8_a5
3646 , p8_a6
3647 , p8_a7
3648 , p8_a8
3649 , p8_a9
3650 , p8_a10
3651 , p8_a11
3652 , p8_a12
3653 , p8_a13
3654 , p8_a14
3655 , p8_a15
3656 , p8_a16
3657 , p8_a17
3658 , p8_a18
3659 , p8_a19
3660 , p8_a20
3661 , p8_a21
3662 , p8_a22
3663 , p8_a23
3664 , p8_a24
3665 , p8_a25
3666 , p8_a26
3667 , p8_a27
3668 , p8_a28
3669 , p8_a29
3670 , p8_a30
3671 , p8_a31
3672 , p8_a32
3673 , p8_a33
3674 , p8_a34
3675 , p8_a35
3676 , p8_a36
3677 , p8_a37
3678 , p8_a38
3679 , p8_a39
3680 , p8_a40
3681 , p8_a41
3682 , p8_a42
3683 , p8_a43
3684 , p8_a44
3685 , p8_a45
3686 , p8_a46
3687 , p8_a47
3688 , p8_a48
3689 , p8_a49
3690 , p8_a50
3691 , p8_a51
3692 , p8_a52
3693 , p8_a53
3694 , p8_a54
3695 , p8_a55
3696 , p8_a56
3697 , p8_a57
3698 , p8_a58
3699 , p8_a59
3700 , p8_a60
3701 , p8_a61
3702 , p8_a62
3703 , p8_a63
3704 , p8_a64
3705 , p8_a65
3706 , p8_a66
3707 , p8_a67
3708 , p8_a68
3709 , p8_a69
3710 , p8_a70
3711 , p8_a71
3712 , p8_a72
3713 , p8_a73
3714 , p8_a74
3715 , p8_a75
3716 , p8_a76
3717 , p8_a77
3718 , p8_a78
3719 , p8_a79
3720 , p8_a80
3721 , p8_a81
3722 , p8_a82
3723 , p8_a83
3724 , p8_a84
3725 , p8_a85
3726 , p8_a86
3727 , p8_a87
3728 , p8_a88
3729 , p8_a89
3730 , p8_a90
3731 , p8_a91
3732 , p8_a92
3733 , p8_a93
3734 , p8_a94
3735 , p8_a95
3736 , p8_a96
3737 , p8_a97
3738 , p8_a98
3739 );
3740 end;
3741
3742 procedure delete_credit_limit(p_api_version NUMBER
3743 , p_init_msg_list VARCHAR2
3744 , x_return_status out nocopy VARCHAR2
3745 , x_msg_count out nocopy NUMBER
3746 , x_msg_data out nocopy VARCHAR2
3747 , p5_a0 JTF_NUMBER_TABLE
3748 , p5_a1 JTF_NUMBER_TABLE
3749 , p5_a2 JTF_NUMBER_TABLE
3750 , p5_a3 JTF_VARCHAR2_TABLE_200
3751 , p5_a4 JTF_VARCHAR2_TABLE_100
3752 , p5_a5 JTF_NUMBER_TABLE
3753 , p5_a6 JTF_NUMBER_TABLE
3754 , p5_a7 JTF_VARCHAR2_TABLE_2000
3755 , p5_a8 JTF_VARCHAR2_TABLE_100
3756 , p5_a9 JTF_DATE_TABLE
3757 , p6_a0 JTF_NUMBER_TABLE
3758 , p6_a1 JTF_NUMBER_TABLE
3759 , p6_a2 JTF_NUMBER_TABLE
3760 , p6_a3 JTF_NUMBER_TABLE
3761 , p6_a4 JTF_VARCHAR2_TABLE_100
3762 , p6_a5 JTF_VARCHAR2_TABLE_100
3763 , p6_a6 JTF_VARCHAR2_TABLE_100
3764 , p6_a7 JTF_NUMBER_TABLE
3765 , p6_a8 JTF_NUMBER_TABLE
3766 , p6_a9 JTF_DATE_TABLE
3767 , p6_a10 JTF_NUMBER_TABLE
3768 , p6_a11 JTF_NUMBER_TABLE
3769 , p6_a12 JTF_NUMBER_TABLE
3770 , p6_a13 JTF_NUMBER_TABLE
3771 , p6_a14 JTF_NUMBER_TABLE
3772 , p6_a15 JTF_NUMBER_TABLE
3773 , p6_a16 JTF_NUMBER_TABLE
3774 , p6_a17 JTF_NUMBER_TABLE
3775 , p6_a18 JTF_NUMBER_TABLE
3776 , p6_a19 JTF_NUMBER_TABLE
3777 , p6_a20 JTF_DATE_TABLE
3778 , p6_a21 JTF_DATE_TABLE
3779 , p6_a22 JTF_NUMBER_TABLE
3780 , p6_a23 JTF_NUMBER_TABLE
3781 , p6_a24 JTF_DATE_TABLE
3782 , p6_a25 JTF_DATE_TABLE
3783 , p6_a26 JTF_DATE_TABLE
3784 , p6_a27 JTF_NUMBER_TABLE
3785 , p6_a28 JTF_NUMBER_TABLE
3786 , p6_a29 JTF_NUMBER_TABLE
3787 , p6_a30 JTF_NUMBER_TABLE
3788 , p6_a31 JTF_NUMBER_TABLE
3789 , p6_a32 JTF_NUMBER_TABLE
3790 , p6_a33 JTF_NUMBER_TABLE
3791 , p6_a34 JTF_DATE_TABLE
3792 , p6_a35 JTF_VARCHAR2_TABLE_100
3793 , p6_a36 JTF_DATE_TABLE
3794 , p6_a37 JTF_VARCHAR2_TABLE_300
3795 , p6_a38 JTF_NUMBER_TABLE
3796 , p6_a39 JTF_NUMBER_TABLE
3797 , p6_a40 JTF_NUMBER_TABLE
3798 , p6_a41 JTF_VARCHAR2_TABLE_100
3799 , p6_a42 JTF_DATE_TABLE
3800 , p6_a43 JTF_NUMBER_TABLE
3801 , p6_a44 JTF_NUMBER_TABLE
3802 , p6_a45 JTF_DATE_TABLE
3803 , p6_a46 JTF_NUMBER_TABLE
3804 , p6_a47 JTF_DATE_TABLE
3805 , p6_a48 JTF_DATE_TABLE
3806 , p6_a49 JTF_DATE_TABLE
3807 , p6_a50 JTF_NUMBER_TABLE
3808 , p6_a51 JTF_NUMBER_TABLE
3809 , p6_a52 JTF_VARCHAR2_TABLE_100
3810 , p6_a53 JTF_NUMBER_TABLE
3811 , p6_a54 JTF_NUMBER_TABLE
3812 , p6_a55 JTF_VARCHAR2_TABLE_100
3813 , p6_a56 JTF_VARCHAR2_TABLE_100
3814 , p6_a57 JTF_NUMBER_TABLE
3815 , p6_a58 JTF_DATE_TABLE
3816 , p6_a59 JTF_NUMBER_TABLE
3817 , p6_a60 JTF_VARCHAR2_TABLE_100
3818 , p6_a61 JTF_VARCHAR2_TABLE_500
3819 , p6_a62 JTF_VARCHAR2_TABLE_500
3820 , p6_a63 JTF_VARCHAR2_TABLE_500
3821 , p6_a64 JTF_VARCHAR2_TABLE_500
3822 , p6_a65 JTF_VARCHAR2_TABLE_500
3823 , p6_a66 JTF_VARCHAR2_TABLE_500
3824 , p6_a67 JTF_VARCHAR2_TABLE_500
3825 , p6_a68 JTF_VARCHAR2_TABLE_500
3826 , p6_a69 JTF_VARCHAR2_TABLE_500
3827 , p6_a70 JTF_VARCHAR2_TABLE_500
3828 , p6_a71 JTF_VARCHAR2_TABLE_500
3829 , p6_a72 JTF_VARCHAR2_TABLE_500
3830 , p6_a73 JTF_VARCHAR2_TABLE_500
3831 , p6_a74 JTF_VARCHAR2_TABLE_500
3832 , p6_a75 JTF_VARCHAR2_TABLE_500
3833 , p6_a76 JTF_NUMBER_TABLE
3834 , p6_a77 JTF_NUMBER_TABLE
3835 , p6_a78 JTF_NUMBER_TABLE
3836 , p6_a79 JTF_DATE_TABLE
3837 , p6_a80 JTF_NUMBER_TABLE
3838 , p6_a81 JTF_DATE_TABLE
3839 , p6_a82 JTF_NUMBER_TABLE
3840 , p6_a83 JTF_DATE_TABLE
3841 , p6_a84 JTF_DATE_TABLE
3842 , p6_a85 JTF_DATE_TABLE
3843 , p6_a86 JTF_DATE_TABLE
3844 , p6_a87 JTF_NUMBER_TABLE
3845 , p6_a88 JTF_NUMBER_TABLE
3846 , p6_a89 JTF_NUMBER_TABLE
3847 , p6_a90 JTF_VARCHAR2_TABLE_100
3848 , p6_a91 JTF_NUMBER_TABLE
3849 , p6_a92 JTF_VARCHAR2_TABLE_100
3850 , p6_a93 JTF_NUMBER_TABLE
3851 , p6_a94 JTF_NUMBER_TABLE
3852 , p6_a95 JTF_DATE_TABLE
3853 , p6_a96 JTF_VARCHAR2_TABLE_100
3854 , p6_a97 JTF_VARCHAR2_TABLE_100
3855 , p6_a98 JTF_NUMBER_TABLE
3856 )
3857
3858 as
3859 ddp_clev_tbl okl_credit_pub.clev_tbl_type;
3860 ddp_klev_tbl okl_credit_pub.klev_tbl_type;
3861 ddindx binary_integer; indx binary_integer;
3862 begin
3863
3864 -- copy data to the local IN or IN-OUT args, if any
3865
3866
3867
3868
3869
3870 okl_credit_pub_w.rosetta_table_copy_in_p5(ddp_clev_tbl, p5_a0
3871 , p5_a1
3872 , p5_a2
3873 , p5_a3
3874 , p5_a4
3875 , p5_a5
3876 , p5_a6
3877 , p5_a7
3878 , p5_a8
3879 , p5_a9
3880 );
3881
3882 okl_kle_pvt_w.rosetta_table_copy_in_p8(ddp_klev_tbl, p6_a0
3883 , p6_a1
3884 , p6_a2
3885 , p6_a3
3886 , p6_a4
3887 , p6_a5
3888 , p6_a6
3889 , p6_a7
3890 , p6_a8
3891 , p6_a9
3892 , p6_a10
3893 , p6_a11
3894 , p6_a12
3895 , p6_a13
3896 , p6_a14
3897 , p6_a15
3898 , p6_a16
3899 , p6_a17
3900 , p6_a18
3901 , p6_a19
3902 , p6_a20
3903 , p6_a21
3904 , p6_a22
3905 , p6_a23
3906 , p6_a24
3907 , p6_a25
3908 , p6_a26
3909 , p6_a27
3910 , p6_a28
3911 , p6_a29
3912 , p6_a30
3913 , p6_a31
3914 , p6_a32
3915 , p6_a33
3916 , p6_a34
3917 , p6_a35
3918 , p6_a36
3919 , p6_a37
3920 , p6_a38
3921 , p6_a39
3922 , p6_a40
3923 , p6_a41
3924 , p6_a42
3925 , p6_a43
3926 , p6_a44
3927 , p6_a45
3928 , p6_a46
3929 , p6_a47
3930 , p6_a48
3931 , p6_a49
3932 , p6_a50
3933 , p6_a51
3934 , p6_a52
3935 , p6_a53
3936 , p6_a54
3937 , p6_a55
3938 , p6_a56
3939 , p6_a57
3940 , p6_a58
3941 , p6_a59
3942 , p6_a60
3943 , p6_a61
3944 , p6_a62
3945 , p6_a63
3946 , p6_a64
3947 , p6_a65
3948 , p6_a66
3949 , p6_a67
3950 , p6_a68
3951 , p6_a69
3952 , p6_a70
3953 , p6_a71
3954 , p6_a72
3955 , p6_a73
3956 , p6_a74
3957 , p6_a75
3958 , p6_a76
3959 , p6_a77
3960 , p6_a78
3961 , p6_a79
3962 , p6_a80
3963 , p6_a81
3964 , p6_a82
3965 , p6_a83
3966 , p6_a84
3967 , p6_a85
3968 , p6_a86
3969 , p6_a87
3970 , p6_a88
3971 , p6_a89
3972 , p6_a90
3973 , p6_a91
3974 , p6_a92
3975 , p6_a93
3976
3977 , p6_a94
3978
3979 , p6_a95
3980 , p6_a96
3981 , p6_a97
3982 , p6_a98
3983 );
3984
3985 -- here's the delegated call to the old PL/SQL routine
3986 okl_credit_pub.delete_credit_limit(p_api_version,
3987 p_init_msg_list,
3988 x_return_status,
3989 x_msg_count,
3990 x_msg_data,
3991 ddp_clev_tbl,
3992 ddp_klev_tbl);
3993
3994 -- copy data back from the local variables to OUT or IN-OUT args, if any
3995
3996
3997
3998
3999
4000
4001 end;
4002
4003 end okl_credit_pub_w;