[Home] [Help]
PACKAGE BODY: APPS.OKL_EC_UPTAKE_PVT_W
Source
1 package body okl_ec_uptake_pvt_w as
2 /* $Header: OKLEECXB.pls 120.7 2006/03/08 11:34:39 ssdeshpa noship $ */
3 procedure rosetta_table_copy_in_p18(t out nocopy okl_ec_uptake_pvt.okl_number_table_type, a0 JTF_NUMBER_TABLE) as
4 ddindx binary_integer; indx binary_integer;
5 begin
6 if a0 is not null and a0.count > 0 then
7 if a0.count > 0 then
8 indx := a0.first;
9 ddindx := 1;
10 while true loop
11 t(ddindx) := a0(indx);
12 ddindx := ddindx+1;
13 if a0.last =indx
14 then exit;
15 end if;
16 indx := a0.next(indx);
17 end loop;
18 end if;
19 end if;
20 end rosetta_table_copy_in_p18;
21 procedure rosetta_table_copy_out_p18(t okl_ec_uptake_pvt.okl_number_table_type, a0 out nocopy JTF_NUMBER_TABLE) as
22 ddindx binary_integer; indx binary_integer;
23 begin
24 if t is null or t.count = 0 then
25 a0 := JTF_NUMBER_TABLE();
26 else
27 a0 := JTF_NUMBER_TABLE();
28 if t.count > 0 then
29 a0.extend(t.count);
30 ddindx := t.first;
31 indx := 1;
32 while true loop
33 a0(indx) := t(ddindx);
34 indx := indx+1;
35 if t.last =ddindx
36 then exit;
37 end if;
38 ddindx := t.next(ddindx);
39 end loop;
40 end if;
41 end if;
42 end rosetta_table_copy_out_p18;
43
44 procedure rosetta_table_copy_in_p19(t out nocopy okl_ec_uptake_pvt.okl_varchar2_table_type, a0 JTF_VARCHAR2_TABLE_300) as
45 ddindx binary_integer; indx binary_integer;
46 begin
47 if a0 is not null and a0.count > 0 then
48 if a0.count > 0 then
49 indx := a0.first;
50 ddindx := 1;
51 while true loop
52 t(ddindx) := a0(indx);
53 ddindx := ddindx+1;
54 if a0.last =indx
55 then exit;
56 end if;
57 indx := a0.next(indx);
58 end loop;
59 end if;
60 end if;
61 end rosetta_table_copy_in_p19;
62 procedure rosetta_table_copy_out_p19(t okl_ec_uptake_pvt.okl_varchar2_table_type, a0 out nocopy JTF_VARCHAR2_TABLE_300) as
63 ddindx binary_integer; indx binary_integer;
64 begin
65 if t is null or t.count = 0 then
66 a0 := JTF_VARCHAR2_TABLE_300();
67 else
68 a0 := JTF_VARCHAR2_TABLE_300();
69 if t.count > 0 then
70 a0.extend(t.count);
71 ddindx := t.first;
72 indx := 1;
73 while true loop
74 a0(indx) := t(ddindx);
75 indx := indx+1;
76 if t.last =ddindx
77 then exit;
78 end if;
79 ddindx := t.next(ddindx);
80 end loop;
81 end if;
82 end if;
83 end rosetta_table_copy_out_p19;
84
85 procedure rosetta_table_copy_in_p20(t out nocopy okl_ec_uptake_pvt.okl_date_tabe_type, a0 JTF_DATE_TABLE) as
86 ddindx binary_integer; indx binary_integer;
87 begin
88 if a0 is not null and a0.count > 0 then
89 if a0.count > 0 then
90 indx := a0.first;
91 ddindx := 1;
92 while true loop
93 t(ddindx) := a0(indx);
94 ddindx := ddindx+1;
95 if a0.last =indx
96 then exit;
97 end if;
98 indx := a0.next(indx);
99 end loop;
100 end if;
101 end if;
102 end rosetta_table_copy_in_p20;
103 procedure rosetta_table_copy_out_p20(t okl_ec_uptake_pvt.okl_date_tabe_type, a0 out nocopy JTF_DATE_TABLE) as
104 ddindx binary_integer; indx binary_integer;
105 begin
106 if t is null or t.count = 0 then
107 a0 := JTF_DATE_TABLE();
108 else
109 a0 := JTF_DATE_TABLE();
110 if t.count > 0 then
111 a0.extend(t.count);
112 ddindx := t.first;
113 indx := 1;
114 while true loop
115 a0(indx) := t(ddindx);
116 indx := indx+1;
117 if t.last =ddindx
118 then exit;
119 end if;
120 ddindx := t.next(ddindx);
121 end loop;
122 end if;
123 end if;
124 end rosetta_table_copy_out_p20;
125
126 procedure rosetta_table_copy_in_p22(t out nocopy okl_ec_uptake_pvt.okl_qa_result_tbl_type, a0 JTF_VARCHAR2_TABLE_300
127 , a1 JTF_VARCHAR2_TABLE_100
128 ) as
129 ddindx binary_integer; indx binary_integer;
130 begin
131 if a0 is not null and a0.count > 0 then
132 if a0.count > 0 then
133 indx := a0.first;
134 ddindx := 1;
135 while true loop
136 t(ddindx).message := a0(indx);
137 t(ddindx).status := a1(indx);
138 ddindx := ddindx+1;
139 if a0.last =indx
140 then exit;
141 end if;
142 indx := a0.next(indx);
143 end loop;
144 end if;
145 end if;
146 end rosetta_table_copy_in_p22;
147 procedure rosetta_table_copy_out_p22(t okl_ec_uptake_pvt.okl_qa_result_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_300
148 , a1 out nocopy JTF_VARCHAR2_TABLE_100
149 ) as
150 ddindx binary_integer; indx binary_integer;
151 begin
152 if t is null or t.count = 0 then
153 a0 := JTF_VARCHAR2_TABLE_300();
154 a1 := JTF_VARCHAR2_TABLE_100();
155 else
156 a0 := JTF_VARCHAR2_TABLE_300();
157 a1 := JTF_VARCHAR2_TABLE_100();
158 if t.count > 0 then
159 a0.extend(t.count);
160 a1.extend(t.count);
161 ddindx := t.first;
162 indx := 1;
163 while true loop
164 a0(indx) := t(ddindx).message;
165 a1(indx) := t(ddindx).status;
166 indx := indx+1;
167 if t.last =ddindx
168 then exit;
169 end if;
170 ddindx := t.next(ddindx);
171 end loop;
172 end if;
173 end if;
174 end rosetta_table_copy_out_p22;
175
176 procedure rosetta_table_copy_in_p24(t out nocopy okl_ec_uptake_pvt.okl_lease_rate_set_tbl_type, a0 JTF_NUMBER_TABLE
177 , a1 JTF_NUMBER_TABLE
178 , a2 JTF_NUMBER_TABLE
179 , a3 JTF_VARCHAR2_TABLE_200
180 , a4 JTF_VARCHAR2_TABLE_2000
181 , a5 JTF_DATE_TABLE
182 , a6 JTF_DATE_TABLE
183 , a7 JTF_NUMBER_TABLE
184 , a8 JTF_VARCHAR2_TABLE_100
185 , a9 JTF_VARCHAR2_TABLE_100
186 , a10 JTF_VARCHAR2_TABLE_300
187 ) as
188 ddindx binary_integer; indx binary_integer;
189 begin
190 if a0 is not null and a0.count > 0 then
191 if a0.count > 0 then
192 indx := a0.first;
193 ddindx := 1;
194 while true loop
195 t(ddindx).id := a0(indx);
196 t(ddindx).rate_set_version_id := a1(indx);
197 t(ddindx).version_number := a2(indx);
198 t(ddindx).name := a3(indx);
199 t(ddindx).description := a4(indx);
200 t(ddindx).effective_from := a5(indx);
201 t(ddindx).effective_to := a6(indx);
202 t(ddindx).lrs_rate := a7(indx);
203 t(ddindx).sts_code := a8(indx);
204 t(ddindx).frq_code := a9(indx);
205 t(ddindx).frq_meaning := a10(indx);
206 ddindx := ddindx+1;
207 if a0.last =indx
208 then exit;
209 end if;
210 indx := a0.next(indx);
211 end loop;
212 end if;
213 end if;
214 end rosetta_table_copy_in_p24;
215 procedure rosetta_table_copy_out_p24(t okl_ec_uptake_pvt.okl_lease_rate_set_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
216 , a1 out nocopy JTF_NUMBER_TABLE
217 , a2 out nocopy JTF_NUMBER_TABLE
218 , a3 out nocopy JTF_VARCHAR2_TABLE_200
219 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
220 , a5 out nocopy JTF_DATE_TABLE
221 , a6 out nocopy JTF_DATE_TABLE
222 , a7 out nocopy JTF_NUMBER_TABLE
223 , a8 out nocopy JTF_VARCHAR2_TABLE_100
224 , a9 out nocopy JTF_VARCHAR2_TABLE_100
225 , a10 out nocopy JTF_VARCHAR2_TABLE_300
226 ) as
227 ddindx binary_integer; indx binary_integer;
228 begin
229 if t is null or t.count = 0 then
230 a0 := JTF_NUMBER_TABLE();
231 a1 := JTF_NUMBER_TABLE();
232 a2 := JTF_NUMBER_TABLE();
233 a3 := JTF_VARCHAR2_TABLE_200();
234 a4 := JTF_VARCHAR2_TABLE_2000();
235 a5 := JTF_DATE_TABLE();
236 a6 := JTF_DATE_TABLE();
237 a7 := JTF_NUMBER_TABLE();
238 a8 := JTF_VARCHAR2_TABLE_100();
239 a9 := JTF_VARCHAR2_TABLE_100();
240 a10 := JTF_VARCHAR2_TABLE_300();
241 else
242 a0 := JTF_NUMBER_TABLE();
243 a1 := JTF_NUMBER_TABLE();
244 a2 := JTF_NUMBER_TABLE();
245 a3 := JTF_VARCHAR2_TABLE_200();
246 a4 := JTF_VARCHAR2_TABLE_2000();
247 a5 := JTF_DATE_TABLE();
248 a6 := JTF_DATE_TABLE();
249 a7 := JTF_NUMBER_TABLE();
250 a8 := JTF_VARCHAR2_TABLE_100();
251 a9 := JTF_VARCHAR2_TABLE_100();
252 a10 := JTF_VARCHAR2_TABLE_300();
253 if t.count > 0 then
254 a0.extend(t.count);
255 a1.extend(t.count);
256 a2.extend(t.count);
257 a3.extend(t.count);
258 a4.extend(t.count);
259 a5.extend(t.count);
260 a6.extend(t.count);
261 a7.extend(t.count);
262 a8.extend(t.count);
263 a9.extend(t.count);
264 a10.extend(t.count);
265 ddindx := t.first;
266 indx := 1;
267 while true loop
268 a0(indx) := t(ddindx).id;
269 a1(indx) := t(ddindx).rate_set_version_id;
270 a2(indx) := t(ddindx).version_number;
271 a3(indx) := t(ddindx).name;
272 a4(indx) := t(ddindx).description;
273 a5(indx) := t(ddindx).effective_from;
274 a6(indx) := t(ddindx).effective_to;
275 a7(indx) := t(ddindx).lrs_rate;
276 a8(indx) := t(ddindx).sts_code;
277 a9(indx) := t(ddindx).frq_code;
278 a10(indx) := t(ddindx).frq_meaning;
279 indx := indx+1;
280 if t.last =ddindx
281 then exit;
282 end if;
283 ddindx := t.next(ddindx);
284 end loop;
285 end if;
286 end if;
287 end rosetta_table_copy_out_p24;
288
289 procedure rosetta_table_copy_in_p26(t out nocopy okl_ec_uptake_pvt.okl_std_rate_tmpl_tbl_type, a0 JTF_NUMBER_TABLE
290 , a1 JTF_NUMBER_TABLE
291 , a2 JTF_NUMBER_TABLE
292 , a3 JTF_VARCHAR2_TABLE_300
293 , a4 JTF_VARCHAR2_TABLE_2000
294 , a5 JTF_VARCHAR2_TABLE_100
295 , a6 JTF_DATE_TABLE
296 , a7 JTF_DATE_TABLE
297 , a8 JTF_NUMBER_TABLE
298 , a9 JTF_VARCHAR2_TABLE_100
299 , a10 JTF_VARCHAR2_TABLE_100
300 , a11 JTF_VARCHAR2_TABLE_300
301 ) as
302 ddindx binary_integer; indx binary_integer;
303 begin
304 if a0 is not null and a0.count > 0 then
305 if a0.count > 0 then
306 indx := a0.first;
307 ddindx := 1;
308 while true loop
309 t(ddindx).id := a0(indx);
310 t(ddindx).std_rate_tmpl_ver_id := a1(indx);
311 t(ddindx).version_number := a2(indx);
312 t(ddindx).name := a3(indx);
313 t(ddindx).description := a4(indx);
314 t(ddindx).frq_code := a5(indx);
315 t(ddindx).effective_from := a6(indx);
316 t(ddindx).effective_to := a7(indx);
317 t(ddindx).srt_rate := a8(indx);
318 t(ddindx).sts_code := a9(indx);
319 t(ddindx).day_convention_code := a10(indx);
320 t(ddindx).frq_meaning := a11(indx);
321 ddindx := ddindx+1;
322 if a0.last =indx
323 then exit;
324 end if;
325 indx := a0.next(indx);
326 end loop;
327 end if;
328 end if;
329 end rosetta_table_copy_in_p26;
330 procedure rosetta_table_copy_out_p26(t okl_ec_uptake_pvt.okl_std_rate_tmpl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
331 , a1 out nocopy JTF_NUMBER_TABLE
332 , a2 out nocopy JTF_NUMBER_TABLE
333 , a3 out nocopy JTF_VARCHAR2_TABLE_300
334 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
335 , a5 out nocopy JTF_VARCHAR2_TABLE_100
336 , a6 out nocopy JTF_DATE_TABLE
337 , a7 out nocopy JTF_DATE_TABLE
338 , a8 out nocopy JTF_NUMBER_TABLE
339 , a9 out nocopy JTF_VARCHAR2_TABLE_100
340 , a10 out nocopy JTF_VARCHAR2_TABLE_100
341 , a11 out nocopy JTF_VARCHAR2_TABLE_300
342 ) as
343 ddindx binary_integer; indx binary_integer;
344 begin
345 if t is null or t.count = 0 then
346 a0 := JTF_NUMBER_TABLE();
347 a1 := JTF_NUMBER_TABLE();
348 a2 := JTF_NUMBER_TABLE();
349 a3 := JTF_VARCHAR2_TABLE_300();
350 a4 := JTF_VARCHAR2_TABLE_2000();
351 a5 := JTF_VARCHAR2_TABLE_100();
352 a6 := JTF_DATE_TABLE();
353 a7 := JTF_DATE_TABLE();
354 a8 := JTF_NUMBER_TABLE();
355 a9 := JTF_VARCHAR2_TABLE_100();
356 a10 := JTF_VARCHAR2_TABLE_100();
357 a11 := JTF_VARCHAR2_TABLE_300();
358 else
359 a0 := JTF_NUMBER_TABLE();
360 a1 := JTF_NUMBER_TABLE();
361 a2 := JTF_NUMBER_TABLE();
362 a3 := JTF_VARCHAR2_TABLE_300();
363 a4 := JTF_VARCHAR2_TABLE_2000();
364 a5 := JTF_VARCHAR2_TABLE_100();
365 a6 := JTF_DATE_TABLE();
366 a7 := JTF_DATE_TABLE();
367 a8 := JTF_NUMBER_TABLE();
368 a9 := JTF_VARCHAR2_TABLE_100();
369 a10 := JTF_VARCHAR2_TABLE_100();
370 a11 := JTF_VARCHAR2_TABLE_300();
371 if t.count > 0 then
372 a0.extend(t.count);
373 a1.extend(t.count);
374 a2.extend(t.count);
375 a3.extend(t.count);
376 a4.extend(t.count);
377 a5.extend(t.count);
378 a6.extend(t.count);
379 a7.extend(t.count);
380 a8.extend(t.count);
381 a9.extend(t.count);
382 a10.extend(t.count);
383 a11.extend(t.count);
384 ddindx := t.first;
385 indx := 1;
386 while true loop
387 a0(indx) := t(ddindx).id;
388 a1(indx) := t(ddindx).std_rate_tmpl_ver_id;
389 a2(indx) := t(ddindx).version_number;
390 a3(indx) := t(ddindx).name;
391 a4(indx) := t(ddindx).description;
392 a5(indx) := t(ddindx).frq_code;
393 a6(indx) := t(ddindx).effective_from;
394 a7(indx) := t(ddindx).effective_to;
395 a8(indx) := t(ddindx).srt_rate;
396 a9(indx) := t(ddindx).sts_code;
397 a10(indx) := t(ddindx).day_convention_code;
398 a11(indx) := t(ddindx).frq_meaning;
399 indx := indx+1;
400 if t.last =ddindx
401 then exit;
402 end if;
403 ddindx := t.next(ddindx);
404 end loop;
405 end if;
406 end if;
407 end rosetta_table_copy_out_p26;
408
409 procedure rosetta_table_copy_in_p28(t out nocopy okl_ec_uptake_pvt.okl_prod_tbl_type, a0 JTF_NUMBER_TABLE
410 , a1 JTF_VARCHAR2_TABLE_200
411 , a2 JTF_VARCHAR2_TABLE_200
412 , a3 JTF_NUMBER_TABLE
413 , a4 JTF_VARCHAR2_TABLE_2000
414 , a5 JTF_VARCHAR2_TABLE_100
415 , a6 JTF_VARCHAR2_TABLE_200
416 , a7 JTF_VARCHAR2_TABLE_4000
417 ) as
418 ddindx binary_integer; indx binary_integer;
419 begin
420 if a0 is not null and a0.count > 0 then
421 if a0.count > 0 then
422 indx := a0.first;
423 ddindx := 1;
424 while true loop
425 t(ddindx).id := a0(indx);
426 t(ddindx).name := a1(indx);
427 t(ddindx).product_subclass := a2(indx);
428 t(ddindx).version := a3(indx);
429 t(ddindx).description := a4(indx);
430 t(ddindx).product_status_code := a5(indx);
431 t(ddindx).deal_type := a6(indx);
432 t(ddindx).deal_type_meaning := a7(indx);
433 ddindx := ddindx+1;
434 if a0.last =indx
435 then exit;
436 end if;
437 indx := a0.next(indx);
438 end loop;
439 end if;
440 end if;
441 end rosetta_table_copy_in_p28;
442 procedure rosetta_table_copy_out_p28(t okl_ec_uptake_pvt.okl_prod_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
443 , a1 out nocopy JTF_VARCHAR2_TABLE_200
444 , a2 out nocopy JTF_VARCHAR2_TABLE_200
445 , a3 out nocopy JTF_NUMBER_TABLE
446 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
447 , a5 out nocopy JTF_VARCHAR2_TABLE_100
448 , a6 out nocopy JTF_VARCHAR2_TABLE_200
449 , a7 out nocopy JTF_VARCHAR2_TABLE_4000
450 ) as
451 ddindx binary_integer; indx binary_integer;
452 begin
453 if t is null or t.count = 0 then
454 a0 := JTF_NUMBER_TABLE();
455 a1 := JTF_VARCHAR2_TABLE_200();
456 a2 := JTF_VARCHAR2_TABLE_200();
457 a3 := JTF_NUMBER_TABLE();
458 a4 := JTF_VARCHAR2_TABLE_2000();
459 a5 := JTF_VARCHAR2_TABLE_100();
460 a6 := JTF_VARCHAR2_TABLE_200();
461 a7 := JTF_VARCHAR2_TABLE_4000();
462 else
463 a0 := JTF_NUMBER_TABLE();
464 a1 := JTF_VARCHAR2_TABLE_200();
465 a2 := JTF_VARCHAR2_TABLE_200();
466 a3 := JTF_NUMBER_TABLE();
467 a4 := JTF_VARCHAR2_TABLE_2000();
468 a5 := JTF_VARCHAR2_TABLE_100();
469 a6 := JTF_VARCHAR2_TABLE_200();
470 a7 := JTF_VARCHAR2_TABLE_4000();
471 if t.count > 0 then
472 a0.extend(t.count);
473 a1.extend(t.count);
474 a2.extend(t.count);
475 a3.extend(t.count);
476 a4.extend(t.count);
477 a5.extend(t.count);
478 a6.extend(t.count);
479 a7.extend(t.count);
480 ddindx := t.first;
481 indx := 1;
482 while true loop
483 a0(indx) := t(ddindx).id;
484 a1(indx) := t(ddindx).name;
485 a2(indx) := t(ddindx).product_subclass;
486 a3(indx) := t(ddindx).version;
487 a4(indx) := t(ddindx).description;
488 a5(indx) := t(ddindx).product_status_code;
489 a6(indx) := t(ddindx).deal_type;
490 a7(indx) := t(ddindx).deal_type_meaning;
491 indx := indx+1;
492 if t.last =ddindx
493 then exit;
494 end if;
495 ddindx := t.next(ddindx);
496 end loop;
497 end if;
498 end if;
499 end rosetta_table_copy_out_p28;
500
501 procedure rosetta_table_copy_in_p30(t out nocopy okl_ec_uptake_pvt.okl_vp_tbl_type, a0 JTF_NUMBER_TABLE
502 , a1 JTF_VARCHAR2_TABLE_200
503 , a2 JTF_DATE_TABLE
504 , a3 JTF_DATE_TABLE
505 ) as
506 ddindx binary_integer; indx binary_integer;
507 begin
508 if a0 is not null and a0.count > 0 then
509 if a0.count > 0 then
510 indx := a0.first;
511 ddindx := 1;
512 while true loop
513 t(ddindx).id := a0(indx);
514 t(ddindx).contract_number := a1(indx);
515 t(ddindx).start_date := a2(indx);
516 t(ddindx).end_date := a3(indx);
517 ddindx := ddindx+1;
518 if a0.last =indx
519 then exit;
520 end if;
521 indx := a0.next(indx);
522 end loop;
523 end if;
524 end if;
525 end rosetta_table_copy_in_p30;
526 procedure rosetta_table_copy_out_p30(t okl_ec_uptake_pvt.okl_vp_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
527 , a1 out nocopy JTF_VARCHAR2_TABLE_200
528 , a2 out nocopy JTF_DATE_TABLE
529 , a3 out nocopy JTF_DATE_TABLE
530 ) as
531 ddindx binary_integer; indx binary_integer;
532 begin
533 if t is null or t.count = 0 then
534 a0 := JTF_NUMBER_TABLE();
535 a1 := JTF_VARCHAR2_TABLE_200();
536 a2 := JTF_DATE_TABLE();
537 a3 := JTF_DATE_TABLE();
538 else
539 a0 := JTF_NUMBER_TABLE();
540 a1 := JTF_VARCHAR2_TABLE_200();
541 a2 := JTF_DATE_TABLE();
542 a3 := JTF_DATE_TABLE();
543 if t.count > 0 then
544 a0.extend(t.count);
545 a1.extend(t.count);
546 a2.extend(t.count);
547 a3.extend(t.count);
548 ddindx := t.first;
549 indx := 1;
550 while true loop
551 a0(indx) := t(ddindx).id;
552 a1(indx) := t(ddindx).contract_number;
553 a2(indx) := t(ddindx).start_date;
554 a3(indx) := t(ddindx).end_date;
555 indx := indx+1;
556 if t.last =ddindx
557 then exit;
558 end if;
559 ddindx := t.next(ddindx);
560 end loop;
561 end if;
562 end if;
563 end rosetta_table_copy_out_p30;
564
565 procedure populate_lease_rate_set(p_api_version NUMBER
566 , p_init_msg_list VARCHAR2
567 , p_target_id NUMBER
568 , p_target_type VARCHAR2
569 , p4_a0 out nocopy JTF_NUMBER_TABLE
570 , p4_a1 out nocopy JTF_NUMBER_TABLE
571 , p4_a2 out nocopy JTF_NUMBER_TABLE
572 , p4_a3 out nocopy JTF_VARCHAR2_TABLE_200
573 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_2000
574 , p4_a5 out nocopy JTF_DATE_TABLE
575 , p4_a6 out nocopy JTF_DATE_TABLE
576 , p4_a7 out nocopy JTF_NUMBER_TABLE
577 , p4_a8 out nocopy JTF_VARCHAR2_TABLE_100
578 , p4_a9 out nocopy JTF_VARCHAR2_TABLE_100
579 , p4_a10 out nocopy JTF_VARCHAR2_TABLE_300
580 , x_return_status out nocopy VARCHAR2
581 , x_msg_count out nocopy NUMBER
582 , x_msg_data out nocopy VARCHAR2
583 )
584
585 as
586 ddx_okl_lrs_table okl_ec_uptake_pvt.okl_lease_rate_set_tbl_type;
587 ddindx binary_integer; indx binary_integer;
588 begin
589
590 -- copy data to the local IN or IN-OUT args, if any
591
592
593
594
595
596
597
598
599 -- here's the delegated call to the old PL/SQL routine
600 okl_ec_uptake_pvt.populate_lease_rate_set(p_api_version,
601 p_init_msg_list,
602 p_target_id,
603 p_target_type,
604 ddx_okl_lrs_table,
605 x_return_status,
606 x_msg_count,
607 x_msg_data);
608
609 -- copy data back from the local variables to OUT or IN-OUT args, if any
610
611
612
613
614 okl_ec_uptake_pvt_w.rosetta_table_copy_out_p24(ddx_okl_lrs_table, p4_a0
615 , p4_a1
616 , p4_a2
617 , p4_a3
618 , p4_a4
619 , p4_a5
620 , p4_a6
621 , p4_a7
622 , p4_a8
623 , p4_a9
624 , p4_a10
625 );
626
627
628
629 end;
630
631 procedure populate_std_rate_tmpl(p_api_version NUMBER
632 , p_init_msg_list VARCHAR2
633 , p_target_id NUMBER
634 , p_target_type VARCHAR2
635 , p4_a0 out nocopy JTF_NUMBER_TABLE
636 , p4_a1 out nocopy JTF_NUMBER_TABLE
637 , p4_a2 out nocopy JTF_NUMBER_TABLE
638 , p4_a3 out nocopy JTF_VARCHAR2_TABLE_300
639 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_2000
640 , p4_a5 out nocopy JTF_VARCHAR2_TABLE_100
641 , p4_a6 out nocopy JTF_DATE_TABLE
642 , p4_a7 out nocopy JTF_DATE_TABLE
643 , p4_a8 out nocopy JTF_NUMBER_TABLE
644 , p4_a9 out nocopy JTF_VARCHAR2_TABLE_100
645 , p4_a10 out nocopy JTF_VARCHAR2_TABLE_100
646 , p4_a11 out nocopy JTF_VARCHAR2_TABLE_300
647 , x_return_status out nocopy VARCHAR2
648 , x_msg_count out nocopy NUMBER
649 , x_msg_data out nocopy VARCHAR2
650 )
651
652 as
653 ddx_okl_srt_table okl_ec_uptake_pvt.okl_std_rate_tmpl_tbl_type;
654 ddindx binary_integer; indx binary_integer;
655 begin
656
657 -- copy data to the local IN or IN-OUT args, if any
658
659
660
661
662
663
664
665
666 -- here's the delegated call to the old PL/SQL routine
667 okl_ec_uptake_pvt.populate_std_rate_tmpl(p_api_version,
668 p_init_msg_list,
669 p_target_id,
670 p_target_type,
671 ddx_okl_srt_table,
672 x_return_status,
673 x_msg_count,
674 x_msg_data);
675
676 -- copy data back from the local variables to OUT or IN-OUT args, if any
677
678
679
680
681 okl_ec_uptake_pvt_w.rosetta_table_copy_out_p26(ddx_okl_srt_table, p4_a0
682 , p4_a1
683 , p4_a2
684 , p4_a3
685 , p4_a4
686 , p4_a5
687 , p4_a6
688 , p4_a7
689 , p4_a8
690 , p4_a9
691 , p4_a10
692 , p4_a11
693 );
694
695
696
697 end;
698
699 procedure populate_lease_rate_set(p_api_version NUMBER
700 , p_init_msg_list VARCHAR2
701 , p_target_id NUMBER
702 , p_target_type VARCHAR2
703 , p_target_eff_from DATE
704 , p_term NUMBER
705 , p_territory VARCHAR2
706 , p_deal_size NUMBER
707 , p_customer_credit_class VARCHAR2
708 , p_down_payment NUMBER
709 , p_advance_rent NUMBER
710 , p_trade_in_value NUMBER
711 , p_currency_code VARCHAR2
712 , p_item_table JTF_NUMBER_TABLE
713 , p_item_categories_table JTF_NUMBER_TABLE
714 , p15_a0 out nocopy JTF_NUMBER_TABLE
715 , p15_a1 out nocopy JTF_NUMBER_TABLE
716 , p15_a2 out nocopy JTF_NUMBER_TABLE
717 , p15_a3 out nocopy JTF_VARCHAR2_TABLE_200
718 , p15_a4 out nocopy JTF_VARCHAR2_TABLE_2000
719 , p15_a5 out nocopy JTF_DATE_TABLE
720 , p15_a6 out nocopy JTF_DATE_TABLE
721 , p15_a7 out nocopy JTF_NUMBER_TABLE
722 , p15_a8 out nocopy JTF_VARCHAR2_TABLE_100
723 , p15_a9 out nocopy JTF_VARCHAR2_TABLE_100
724 , p15_a10 out nocopy JTF_VARCHAR2_TABLE_300
725 , x_return_status out nocopy VARCHAR2
726 , x_msg_count out nocopy NUMBER
727 , x_msg_data out nocopy VARCHAR2
728 )
729
730 as
731 ddp_item_table okl_ec_uptake_pvt.okl_number_table_type;
732 ddp_item_categories_table okl_ec_uptake_pvt.okl_number_table_type;
733 ddx_okl_lrs_table okl_ec_uptake_pvt.okl_lease_rate_set_tbl_type;
734 ddindx binary_integer; indx binary_integer;
735 begin
736
737 -- copy data to the local IN or IN-OUT args, if any
738
739
740
741
742
743
744
745
746
747
748
749
750
751 okl_ec_uptake_pvt_w.rosetta_table_copy_in_p18(ddp_item_table, p_item_table);
752
753 okl_ec_uptake_pvt_w.rosetta_table_copy_in_p18(ddp_item_categories_table, p_item_categories_table);
754
755
756
757
758
759 -- here's the delegated call to the old PL/SQL routine
760 okl_ec_uptake_pvt.populate_lease_rate_set(p_api_version,
761 p_init_msg_list,
762 p_target_id,
763 p_target_type,
764 p_target_eff_from,
765 p_term,
766 p_territory,
767 p_deal_size,
768 p_customer_credit_class,
769 p_down_payment,
770 p_advance_rent,
771 p_trade_in_value,
772 p_currency_code,
773 ddp_item_table,
774 ddp_item_categories_table,
775 ddx_okl_lrs_table,
776 x_return_status,
777 x_msg_count,
778 x_msg_data);
779
780 -- copy data back from the local variables to OUT or IN-OUT args, if any
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796 okl_ec_uptake_pvt_w.rosetta_table_copy_out_p24(ddx_okl_lrs_table, p15_a0
797 , p15_a1
798 , p15_a2
799 , p15_a3
800 , p15_a4
801 , p15_a5
802 , p15_a6
803 , p15_a7
804 , p15_a8
805 , p15_a9
806 , p15_a10
807 );
808
809
810
811 end;
812
813 procedure populate_std_rate_tmpl(p_api_version NUMBER
814 , p_init_msg_list VARCHAR2
815 , p_target_id NUMBER
816 , p_target_type VARCHAR2
817 , p_target_eff_from DATE
818 , p_term NUMBER
819 , p_territory VARCHAR2
820 , p_deal_size NUMBER
821 , p_customer_credit_class VARCHAR2
822 , p_down_payment NUMBER
823 , p_advance_rent NUMBER
824 , p_trade_in_value NUMBER
825 , p_currency_code VARCHAR2
826 , p_item_table JTF_NUMBER_TABLE
827 , p_item_categories_table JTF_NUMBER_TABLE
828 , p15_a0 out nocopy JTF_NUMBER_TABLE
829 , p15_a1 out nocopy JTF_NUMBER_TABLE
830 , p15_a2 out nocopy JTF_NUMBER_TABLE
831 , p15_a3 out nocopy JTF_VARCHAR2_TABLE_300
832 , p15_a4 out nocopy JTF_VARCHAR2_TABLE_2000
833 , p15_a5 out nocopy JTF_VARCHAR2_TABLE_100
834 , p15_a6 out nocopy JTF_DATE_TABLE
835 , p15_a7 out nocopy JTF_DATE_TABLE
836 , p15_a8 out nocopy JTF_NUMBER_TABLE
837 , p15_a9 out nocopy JTF_VARCHAR2_TABLE_100
838 , p15_a10 out nocopy JTF_VARCHAR2_TABLE_100
839 , p15_a11 out nocopy JTF_VARCHAR2_TABLE_300
840 , x_return_status out nocopy VARCHAR2
841 , x_msg_count out nocopy NUMBER
842 , x_msg_data out nocopy VARCHAR2
843 )
844
845 as
846 ddp_item_table okl_ec_uptake_pvt.okl_number_table_type;
847 ddp_item_categories_table okl_ec_uptake_pvt.okl_number_table_type;
848 ddx_okl_srt_table okl_ec_uptake_pvt.okl_std_rate_tmpl_tbl_type;
849 ddindx binary_integer; indx binary_integer;
850 begin
851
852 -- copy data to the local IN or IN-OUT args, if any
853
854
855
856
857
858
859
860
861
862
863
864
865
866 okl_ec_uptake_pvt_w.rosetta_table_copy_in_p18(ddp_item_table, p_item_table);
867
868 okl_ec_uptake_pvt_w.rosetta_table_copy_in_p18(ddp_item_categories_table, p_item_categories_table);
869
870
871
872
873
874 -- here's the delegated call to the old PL/SQL routine
875 okl_ec_uptake_pvt.populate_std_rate_tmpl(p_api_version,
876 p_init_msg_list,
877 p_target_id,
878 p_target_type,
879 p_target_eff_from,
880 p_term,
881 p_territory,
882 p_deal_size,
883 p_customer_credit_class,
884 p_down_payment,
885 p_advance_rent,
886 p_trade_in_value,
887 p_currency_code,
888 ddp_item_table,
889 ddp_item_categories_table,
890 ddx_okl_srt_table,
891 x_return_status,
892 x_msg_count,
893 x_msg_data);
894
895 -- copy data back from the local variables to OUT or IN-OUT args, if any
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911 okl_ec_uptake_pvt_w.rosetta_table_copy_out_p26(ddx_okl_srt_table, p15_a0
912 , p15_a1
913 , p15_a2
914 , p15_a3
915 , p15_a4
916 , p15_a5
917 , p15_a6
918 , p15_a7
919 , p15_a8
920 , p15_a9
921 , p15_a10
922 , p15_a11
923 );
924
925
926
927 end;
928
929 procedure populate_product(p_api_version NUMBER
930 , p_init_msg_list VARCHAR2
931 , p_target_id NUMBER
932 , p_target_type VARCHAR2
933 , p4_a0 out nocopy JTF_NUMBER_TABLE
934 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_200
935 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_200
936 , p4_a3 out nocopy JTF_NUMBER_TABLE
937 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_2000
938 , p4_a5 out nocopy JTF_VARCHAR2_TABLE_100
939 , p4_a6 out nocopy JTF_VARCHAR2_TABLE_200
940 , p4_a7 out nocopy JTF_VARCHAR2_TABLE_4000
941 , x_return_status out nocopy VARCHAR2
942 , x_msg_count out nocopy NUMBER
943 , x_msg_data out nocopy VARCHAR2
944 )
945
946 as
947 ddx_okl_prod_table okl_ec_uptake_pvt.okl_prod_tbl_type;
948 ddindx binary_integer; indx binary_integer;
949 begin
950
951 -- copy data to the local IN or IN-OUT args, if any
952
953
954
955
956
957
958
959
960 -- here's the delegated call to the old PL/SQL routine
961 okl_ec_uptake_pvt.populate_product(p_api_version,
962 p_init_msg_list,
963 p_target_id,
964 p_target_type,
965 ddx_okl_prod_table,
966 x_return_status,
967 x_msg_count,
968 x_msg_data);
969
970 -- copy data back from the local variables to OUT or IN-OUT args, if any
971
972
973
974
975 okl_ec_uptake_pvt_w.rosetta_table_copy_out_p28(ddx_okl_prod_table, p4_a0
976 , p4_a1
977 , p4_a2
978 , p4_a3
979 , p4_a4
980 , p4_a5
981 , p4_a6
982 , p4_a7
983 );
984
985
986
987 end;
988
989 procedure populate_vendor_program(p_api_version NUMBER
990 , p_init_msg_list VARCHAR2
991 , p_target_id NUMBER
992 , p_target_type VARCHAR2
993 , p_target_eff_from DATE
994 , p_term NUMBER
995 , p_territory VARCHAR2
996 , p_deal_size NUMBER
997 , p_customer_credit_class VARCHAR2
998 , p_down_payment NUMBER
999 , p_advance_rent NUMBER
1000 , p_trade_in_value NUMBER
1001 , p_item_table JTF_NUMBER_TABLE
1002 , p_item_categories_table JTF_NUMBER_TABLE
1003 , p14_a0 out nocopy JTF_NUMBER_TABLE
1004 , p14_a1 out nocopy JTF_VARCHAR2_TABLE_200
1005 , p14_a2 out nocopy JTF_DATE_TABLE
1006 , p14_a3 out nocopy JTF_DATE_TABLE
1007 , x_return_status out nocopy VARCHAR2
1008 , x_msg_count out nocopy NUMBER
1009 , x_msg_data out nocopy VARCHAR2
1010 )
1011
1012 as
1013 ddp_item_table okl_ec_uptake_pvt.okl_number_table_type;
1014 ddp_item_categories_table okl_ec_uptake_pvt.okl_number_table_type;
1015 ddx_okl_vp_table okl_ec_uptake_pvt.okl_vp_tbl_type;
1016 ddindx binary_integer; indx binary_integer;
1017 begin
1018
1019 -- copy data to the local IN or IN-OUT args, if any
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032 okl_ec_uptake_pvt_w.rosetta_table_copy_in_p18(ddp_item_table, p_item_table);
1033
1034 okl_ec_uptake_pvt_w.rosetta_table_copy_in_p18(ddp_item_categories_table, p_item_categories_table);
1035
1036
1037
1038
1039
1040 -- here's the delegated call to the old PL/SQL routine
1041 okl_ec_uptake_pvt.populate_vendor_program(p_api_version,
1042 p_init_msg_list,
1043 p_target_id,
1044 p_target_type,
1045 p_target_eff_from,
1046 p_term,
1047 p_territory,
1048 p_deal_size,
1049 p_customer_credit_class,
1050 p_down_payment,
1051 p_advance_rent,
1052 p_trade_in_value,
1053 ddp_item_table,
1054 ddp_item_categories_table,
1055 ddx_okl_vp_table,
1056 x_return_status,
1057 x_msg_count,
1058 x_msg_data);
1059
1060 -- copy data back from the local variables to OUT or IN-OUT args, if any
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075 okl_ec_uptake_pvt_w.rosetta_table_copy_out_p30(ddx_okl_vp_table, p14_a0
1076 , p14_a1
1077 , p14_a2
1078 , p14_a3
1079 );
1080
1081
1082
1083 end;
1084
1085 end okl_ec_uptake_pvt_w;