[Home] [Help]
PACKAGE BODY: APPS.OKL_MASS_REBOOK_PVT_W
Source
1 package body okl_mass_rebook_pvt_w as
2 /* $Header: OKLEMRPB.pls 120.3 2007/07/11 16:52:03 ssdeshpa ship $ */
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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 function rosetta_g_miss_num_map(n number) return number as
17 a number := fnd_api.g_miss_num;
18 b number := 0-1962.0724;
19 begin
20 if n=a then return b; end if;
21 if n=b then return a; end if;
22 return n;
23 end;
24
25 procedure rosetta_table_copy_in_p31(t out nocopy okl_mass_rebook_pvt.crit_tbl_type, a0 JTF_NUMBER_TABLE
26 , a1 JTF_VARCHAR2_TABLE_100
27 , a2 JTF_VARCHAR2_TABLE_200
28 , a3 JTF_VARCHAR2_TABLE_200
29 , a4 JTF_VARCHAR2_TABLE_200
30 , a5 JTF_VARCHAR2_TABLE_200
31 ) as
32 ddindx binary_integer; indx binary_integer;
33 begin
34 if a0 is not null and a0.count > 0 then
35 if a0.count > 0 then
36 indx := a0.first;
37 ddindx := 1;
38 while true loop
39 t(ddindx).line_number := rosetta_g_miss_num_map(a0(indx));
40 t(ddindx).criteria_code := a1(indx);
41 t(ddindx).operand := a2(indx);
42 t(ddindx).criteria_value1 := a3(indx);
43 t(ddindx).criteria_value2 := a4(indx);
44 t(ddindx).set_value := a5(indx);
45 ddindx := ddindx+1;
46 if a0.last =indx
47 then exit;
48 end if;
49 indx := a0.next(indx);
50 end loop;
51 end if;
52 end if;
53 end rosetta_table_copy_in_p31;
54 procedure rosetta_table_copy_out_p31(t okl_mass_rebook_pvt.crit_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
55 , a1 out nocopy JTF_VARCHAR2_TABLE_100
56 , a2 out nocopy JTF_VARCHAR2_TABLE_200
57 , a3 out nocopy JTF_VARCHAR2_TABLE_200
58 , a4 out nocopy JTF_VARCHAR2_TABLE_200
59 , a5 out nocopy JTF_VARCHAR2_TABLE_200
60 ) as
61 ddindx binary_integer; indx binary_integer;
62 begin
63 if t is null or t.count = 0 then
64 a0 := JTF_NUMBER_TABLE();
65 a1 := JTF_VARCHAR2_TABLE_100();
66 a2 := JTF_VARCHAR2_TABLE_200();
67 a3 := JTF_VARCHAR2_TABLE_200();
68 a4 := JTF_VARCHAR2_TABLE_200();
69 a5 := JTF_VARCHAR2_TABLE_200();
70 else
71 a0 := JTF_NUMBER_TABLE();
72 a1 := JTF_VARCHAR2_TABLE_100();
73 a2 := JTF_VARCHAR2_TABLE_200();
74 a3 := JTF_VARCHAR2_TABLE_200();
75 a4 := JTF_VARCHAR2_TABLE_200();
76 a5 := JTF_VARCHAR2_TABLE_200();
77 if t.count > 0 then
78 a0.extend(t.count);
79 a1.extend(t.count);
80 a2.extend(t.count);
81 a3.extend(t.count);
82 a4.extend(t.count);
83 a5.extend(t.count);
84 ddindx := t.first;
85 indx := 1;
86 while true loop
87 a0(indx) := rosetta_g_miss_num_map(t(ddindx).line_number);
88 a1(indx) := t(ddindx).criteria_code;
89 a2(indx) := t(ddindx).operand;
90 a3(indx) := t(ddindx).criteria_value1;
91 a4(indx) := t(ddindx).criteria_value2;
92 a5(indx) := t(ddindx).set_value;
93 indx := indx+1;
94 if t.last =ddindx
95 then exit;
96 end if;
97 ddindx := t.next(ddindx);
98 end loop;
99 end if;
100 end if;
101 end rosetta_table_copy_out_p31;
102
103 procedure rosetta_table_copy_in_p33(t out nocopy okl_mass_rebook_pvt.rbk_tbl_type, a0 JTF_NUMBER_TABLE
104 , a1 JTF_VARCHAR2_TABLE_200
105 , a2 JTF_NUMBER_TABLE
106 , a3 JTF_VARCHAR2_TABLE_600
107 ) as
108 ddindx binary_integer; indx binary_integer;
109 begin
110 if a0 is not null and a0.count > 0 then
111 if a0.count > 0 then
112 indx := a0.first;
113 ddindx := 1;
114 while true loop
115 t(ddindx).khr_id := rosetta_g_miss_num_map(a0(indx));
116 t(ddindx).contract_number := a1(indx);
117 t(ddindx).kle_id := rosetta_g_miss_num_map(a2(indx));
118 t(ddindx).description := a3(indx);
119 ddindx := ddindx+1;
120 if a0.last =indx
121 then exit;
122 end if;
123 indx := a0.next(indx);
124 end loop;
125 end if;
126 end if;
127 end rosetta_table_copy_in_p33;
128 procedure rosetta_table_copy_out_p33(t okl_mass_rebook_pvt.rbk_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
129 , a1 out nocopy JTF_VARCHAR2_TABLE_200
130 , a2 out nocopy JTF_NUMBER_TABLE
131 , a3 out nocopy JTF_VARCHAR2_TABLE_600
132 ) as
133 ddindx binary_integer; indx binary_integer;
134 begin
135 if t is null or t.count = 0 then
136 a0 := JTF_NUMBER_TABLE();
137 a1 := JTF_VARCHAR2_TABLE_200();
138 a2 := JTF_NUMBER_TABLE();
139 a3 := JTF_VARCHAR2_TABLE_600();
140 else
141 a0 := JTF_NUMBER_TABLE();
142 a1 := JTF_VARCHAR2_TABLE_200();
143 a2 := JTF_NUMBER_TABLE();
144 a3 := JTF_VARCHAR2_TABLE_600();
145 if t.count > 0 then
146 a0.extend(t.count);
147 a1.extend(t.count);
148 a2.extend(t.count);
149 a3.extend(t.count);
150 ddindx := t.first;
151 indx := 1;
152 while true loop
153 a0(indx) := rosetta_g_miss_num_map(t(ddindx).khr_id);
154 a1(indx) := t(ddindx).contract_number;
155 a2(indx) := rosetta_g_miss_num_map(t(ddindx).kle_id);
156 a3(indx) := t(ddindx).description;
157 indx := indx+1;
158 if t.last =ddindx
159 then exit;
160 end if;
161 ddindx := t.next(ddindx);
162 end loop;
163 end if;
164 end if;
165 end rosetta_table_copy_out_p33;
166
167 procedure rosetta_table_copy_in_p35(t out nocopy okl_mass_rebook_pvt.strm_lalevl_tbl_type, a0 JTF_NUMBER_TABLE
168 , a1 JTF_NUMBER_TABLE
169 , a2 JTF_VARCHAR2_TABLE_500
170 , a3 JTF_VARCHAR2_TABLE_500
171 , a4 JTF_VARCHAR2_TABLE_500
172 , a5 JTF_VARCHAR2_TABLE_500
173 , a6 JTF_VARCHAR2_TABLE_500
174 , a7 JTF_VARCHAR2_TABLE_500
175 , a8 JTF_VARCHAR2_TABLE_500
176 , a9 JTF_VARCHAR2_TABLE_500
177 , a10 JTF_VARCHAR2_TABLE_500
178 , a11 JTF_VARCHAR2_TABLE_500
179 , a12 JTF_VARCHAR2_TABLE_500
180 , a13 JTF_VARCHAR2_TABLE_500
181 , a14 JTF_VARCHAR2_TABLE_500
182 , a15 JTF_VARCHAR2_TABLE_500
183 , a16 JTF_VARCHAR2_TABLE_500
184 , a17 JTF_VARCHAR2_TABLE_100
185 , a18 JTF_VARCHAR2_TABLE_100
186 , a19 JTF_VARCHAR2_TABLE_200
187 , a20 JTF_VARCHAR2_TABLE_100
188 , a21 JTF_VARCHAR2_TABLE_200
189 , a22 JTF_VARCHAR2_TABLE_100
190 , a23 JTF_VARCHAR2_TABLE_200
191 , a24 JTF_VARCHAR2_TABLE_100
192 , a25 JTF_VARCHAR2_TABLE_100
193 , a26 JTF_VARCHAR2_TABLE_100
194 ) as
195 ddindx binary_integer; indx binary_integer;
196 begin
197 if a0 is not null and a0.count > 0 then
198 if a0.count > 0 then
199 indx := a0.first;
200 ddindx := 1;
201 while true loop
202 t(ddindx).chr_id := rosetta_g_miss_num_map(a0(indx));
203 t(ddindx).cle_id := rosetta_g_miss_num_map(a1(indx));
204 t(ddindx).rule_information1 := a2(indx);
205 t(ddindx).rule_information2 := a3(indx);
206 t(ddindx).rule_information3 := a4(indx);
207 t(ddindx).rule_information4 := a5(indx);
208 t(ddindx).rule_information5 := a6(indx);
209 t(ddindx).rule_information6 := a7(indx);
210 t(ddindx).rule_information7 := a8(indx);
211 t(ddindx).rule_information8 := a9(indx);
212 t(ddindx).rule_information9 := a10(indx);
213 t(ddindx).rule_information10 := a11(indx);
214 t(ddindx).rule_information11 := a12(indx);
215 t(ddindx).rule_information12 := a13(indx);
216 t(ddindx).rule_information13 := a14(indx);
217 t(ddindx).rule_information14 := a15(indx);
218 t(ddindx).rule_information15 := a16(indx);
219 t(ddindx).rule_information_category := a17(indx);
220 t(ddindx).object1_id1 := a18(indx);
221 t(ddindx).object1_id2 := a19(indx);
222 t(ddindx).object2_id1 := a20(indx);
223 t(ddindx).object2_id2 := a21(indx);
224 t(ddindx).object3_id1 := a22(indx);
225 t(ddindx).object3_id2 := a23(indx);
226 t(ddindx).jtot_object1_code := a24(indx);
227 t(ddindx).jtot_object2_code := a25(indx);
228 t(ddindx).jtot_object3_code := a26(indx);
229 ddindx := ddindx+1;
230 if a0.last =indx
231 then exit;
232 end if;
233 indx := a0.next(indx);
234 end loop;
235 end if;
236 end if;
237 end rosetta_table_copy_in_p35;
238 procedure rosetta_table_copy_out_p35(t okl_mass_rebook_pvt.strm_lalevl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
239 , a1 out nocopy JTF_NUMBER_TABLE
240 , a2 out nocopy JTF_VARCHAR2_TABLE_500
241 , a3 out nocopy JTF_VARCHAR2_TABLE_500
242 , a4 out nocopy JTF_VARCHAR2_TABLE_500
243 , a5 out nocopy JTF_VARCHAR2_TABLE_500
244 , a6 out nocopy JTF_VARCHAR2_TABLE_500
245 , a7 out nocopy JTF_VARCHAR2_TABLE_500
246 , a8 out nocopy JTF_VARCHAR2_TABLE_500
247 , a9 out nocopy JTF_VARCHAR2_TABLE_500
248 , a10 out nocopy JTF_VARCHAR2_TABLE_500
249 , a11 out nocopy JTF_VARCHAR2_TABLE_500
250 , a12 out nocopy JTF_VARCHAR2_TABLE_500
251 , a13 out nocopy JTF_VARCHAR2_TABLE_500
252 , a14 out nocopy JTF_VARCHAR2_TABLE_500
253 , a15 out nocopy JTF_VARCHAR2_TABLE_500
254 , a16 out nocopy JTF_VARCHAR2_TABLE_500
255 , a17 out nocopy JTF_VARCHAR2_TABLE_100
256 , a18 out nocopy JTF_VARCHAR2_TABLE_100
257 , a19 out nocopy JTF_VARCHAR2_TABLE_200
258 , a20 out nocopy JTF_VARCHAR2_TABLE_100
259 , a21 out nocopy JTF_VARCHAR2_TABLE_200
260 , a22 out nocopy JTF_VARCHAR2_TABLE_100
261 , a23 out nocopy JTF_VARCHAR2_TABLE_200
262 , a24 out nocopy JTF_VARCHAR2_TABLE_100
263 , a25 out nocopy JTF_VARCHAR2_TABLE_100
264 , a26 out nocopy JTF_VARCHAR2_TABLE_100
265 ) as
266 ddindx binary_integer; indx binary_integer;
267 begin
268 if t is null or t.count = 0 then
269 a0 := JTF_NUMBER_TABLE();
270 a1 := JTF_NUMBER_TABLE();
271 a2 := JTF_VARCHAR2_TABLE_500();
272 a3 := JTF_VARCHAR2_TABLE_500();
273 a4 := JTF_VARCHAR2_TABLE_500();
274 a5 := JTF_VARCHAR2_TABLE_500();
275 a6 := JTF_VARCHAR2_TABLE_500();
276 a7 := JTF_VARCHAR2_TABLE_500();
277 a8 := JTF_VARCHAR2_TABLE_500();
278 a9 := JTF_VARCHAR2_TABLE_500();
279 a10 := JTF_VARCHAR2_TABLE_500();
280 a11 := JTF_VARCHAR2_TABLE_500();
281 a12 := JTF_VARCHAR2_TABLE_500();
282 a13 := JTF_VARCHAR2_TABLE_500();
283 a14 := JTF_VARCHAR2_TABLE_500();
284 a15 := JTF_VARCHAR2_TABLE_500();
285 a16 := JTF_VARCHAR2_TABLE_500();
286 a17 := JTF_VARCHAR2_TABLE_100();
287 a18 := JTF_VARCHAR2_TABLE_100();
288 a19 := JTF_VARCHAR2_TABLE_200();
289 a20 := JTF_VARCHAR2_TABLE_100();
290 a21 := JTF_VARCHAR2_TABLE_200();
291 a22 := JTF_VARCHAR2_TABLE_100();
292 a23 := JTF_VARCHAR2_TABLE_200();
293 a24 := JTF_VARCHAR2_TABLE_100();
294 a25 := JTF_VARCHAR2_TABLE_100();
295 a26 := JTF_VARCHAR2_TABLE_100();
296 else
297 a0 := JTF_NUMBER_TABLE();
298 a1 := JTF_NUMBER_TABLE();
299 a2 := JTF_VARCHAR2_TABLE_500();
300 a3 := JTF_VARCHAR2_TABLE_500();
301 a4 := JTF_VARCHAR2_TABLE_500();
302 a5 := JTF_VARCHAR2_TABLE_500();
303 a6 := JTF_VARCHAR2_TABLE_500();
304 a7 := JTF_VARCHAR2_TABLE_500();
305 a8 := JTF_VARCHAR2_TABLE_500();
306 a9 := JTF_VARCHAR2_TABLE_500();
307 a10 := JTF_VARCHAR2_TABLE_500();
308 a11 := JTF_VARCHAR2_TABLE_500();
309 a12 := JTF_VARCHAR2_TABLE_500();
310 a13 := JTF_VARCHAR2_TABLE_500();
311 a14 := JTF_VARCHAR2_TABLE_500();
312 a15 := JTF_VARCHAR2_TABLE_500();
313 a16 := JTF_VARCHAR2_TABLE_500();
314 a17 := JTF_VARCHAR2_TABLE_100();
315 a18 := JTF_VARCHAR2_TABLE_100();
316 a19 := JTF_VARCHAR2_TABLE_200();
317 a20 := JTF_VARCHAR2_TABLE_100();
318 a21 := JTF_VARCHAR2_TABLE_200();
319 a22 := JTF_VARCHAR2_TABLE_100();
320 a23 := JTF_VARCHAR2_TABLE_200();
321 a24 := JTF_VARCHAR2_TABLE_100();
322 a25 := JTF_VARCHAR2_TABLE_100();
323 a26 := JTF_VARCHAR2_TABLE_100();
324 if t.count > 0 then
325 a0.extend(t.count);
326 a1.extend(t.count);
327 a2.extend(t.count);
328 a3.extend(t.count);
329 a4.extend(t.count);
330 a5.extend(t.count);
331 a6.extend(t.count);
332 a7.extend(t.count);
333 a8.extend(t.count);
334 a9.extend(t.count);
335 a10.extend(t.count);
336 a11.extend(t.count);
337 a12.extend(t.count);
338 a13.extend(t.count);
339 a14.extend(t.count);
340 a15.extend(t.count);
341 a16.extend(t.count);
342 a17.extend(t.count);
343 a18.extend(t.count);
344 a19.extend(t.count);
345 a20.extend(t.count);
346 a21.extend(t.count);
347 a22.extend(t.count);
348 a23.extend(t.count);
349 a24.extend(t.count);
350 a25.extend(t.count);
351 a26.extend(t.count);
352 ddindx := t.first;
353 indx := 1;
354 while true loop
355 a0(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
356 a1(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id);
357 a2(indx) := t(ddindx).rule_information1;
358 a3(indx) := t(ddindx).rule_information2;
359 a4(indx) := t(ddindx).rule_information3;
360 a5(indx) := t(ddindx).rule_information4;
361 a6(indx) := t(ddindx).rule_information5;
362 a7(indx) := t(ddindx).rule_information6;
363 a8(indx) := t(ddindx).rule_information7;
364 a9(indx) := t(ddindx).rule_information8;
365 a10(indx) := t(ddindx).rule_information9;
366 a11(indx) := t(ddindx).rule_information10;
367 a12(indx) := t(ddindx).rule_information11;
368 a13(indx) := t(ddindx).rule_information12;
369 a14(indx) := t(ddindx).rule_information13;
370 a15(indx) := t(ddindx).rule_information14;
371 a16(indx) := t(ddindx).rule_information15;
372 a17(indx) := t(ddindx).rule_information_category;
373 a18(indx) := t(ddindx).object1_id1;
374 a19(indx) := t(ddindx).object1_id2;
375 a20(indx) := t(ddindx).object2_id1;
376 a21(indx) := t(ddindx).object2_id2;
377 a22(indx) := t(ddindx).object3_id1;
378 a23(indx) := t(ddindx).object3_id2;
379 a24(indx) := t(ddindx).jtot_object1_code;
380 a25(indx) := t(ddindx).jtot_object2_code;
381 a26(indx) := t(ddindx).jtot_object3_code;
382 indx := indx+1;
383 if t.last =ddindx
384 then exit;
385 end if;
386 ddindx := t.next(ddindx);
387 end loop;
388 end if;
389 end if;
390 end rosetta_table_copy_out_p35;
391
392 procedure rosetta_table_copy_in_p37(t out nocopy okl_mass_rebook_pvt.strm_trx_tbl_type, a0 JTF_NUMBER_TABLE
393 , a1 JTF_NUMBER_TABLE
394 ) as
395 ddindx binary_integer; indx binary_integer;
396 begin
397 if a0 is not null and a0.count > 0 then
398 if a0.count > 0 then
399 indx := a0.first;
400 ddindx := 1;
401 while true loop
402 t(ddindx).chr_id := rosetta_g_miss_num_map(a0(indx));
403 t(ddindx).trx_number := rosetta_g_miss_num_map(a1(indx));
404 ddindx := ddindx+1;
405 if a0.last =indx
406 then exit;
407 end if;
408 indx := a0.next(indx);
409 end loop;
410 end if;
411 end if;
412 end rosetta_table_copy_in_p37;
413 procedure rosetta_table_copy_out_p37(t okl_mass_rebook_pvt.strm_trx_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
414 , a1 out nocopy JTF_NUMBER_TABLE
415 ) as
416 ddindx binary_integer; indx binary_integer;
417 begin
418 if t is null or t.count = 0 then
419 a0 := JTF_NUMBER_TABLE();
420 a1 := JTF_NUMBER_TABLE();
421 else
422 a0 := JTF_NUMBER_TABLE();
423 a1 := JTF_NUMBER_TABLE();
424 if t.count > 0 then
425 a0.extend(t.count);
426 a1.extend(t.count);
427 ddindx := t.first;
428 indx := 1;
429 while true loop
430 a0(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
431 a1(indx) := rosetta_g_miss_num_map(t(ddindx).trx_number);
432 indx := indx+1;
433 if t.last =ddindx
434 then exit;
435 end if;
436 ddindx := t.next(ddindx);
437 end loop;
438 end if;
439 end if;
440 end rosetta_table_copy_out_p37;
441
442 procedure rosetta_table_copy_in_p39(t out nocopy okl_mass_rebook_pvt.kle_tbl_type, a0 JTF_NUMBER_TABLE
443 ) as
444 ddindx binary_integer; indx binary_integer;
445 begin
446 if a0 is not null and a0.count > 0 then
447 if a0.count > 0 then
448 indx := a0.first;
449 ddindx := 1;
450 while true loop
451 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
452 ddindx := ddindx+1;
453 if a0.last =indx
454 then exit;
455 end if;
456 indx := a0.next(indx);
457 end loop;
458 end if;
459 end if;
460 end rosetta_table_copy_in_p39;
461 procedure rosetta_table_copy_out_p39(t okl_mass_rebook_pvt.kle_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
462 ) as
463 ddindx binary_integer; indx binary_integer;
464 begin
465 if t is null or t.count = 0 then
466 a0 := JTF_NUMBER_TABLE();
467 else
468 a0 := JTF_NUMBER_TABLE();
469 if t.count > 0 then
470 a0.extend(t.count);
471 ddindx := t.first;
472 indx := 1;
473 while true loop
474 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
475 indx := indx+1;
476 if t.last =ddindx
477 then exit;
478 end if;
479 ddindx := t.next(ddindx);
480 end loop;
481 end if;
482 end if;
483 end rosetta_table_copy_out_p39;
484
485 procedure build_and_get_contracts(p_api_version NUMBER
486 , p_init_msg_list VARCHAR2
487 , x_return_status out nocopy VARCHAR2
488 , x_msg_count out nocopy NUMBER
489 , x_msg_data out nocopy VARCHAR2
490 , p_request_name VARCHAR2
491 , p6_a0 JTF_NUMBER_TABLE
492 , p6_a1 JTF_VARCHAR2_TABLE_600
493 , p6_a2 JTF_NUMBER_TABLE
494 , p6_a3 JTF_VARCHAR2_TABLE_100
495 , p6_a4 JTF_VARCHAR2_TABLE_100
496 , p6_a5 JTF_VARCHAR2_TABLE_100
497 , p6_a6 JTF_VARCHAR2_TABLE_600
498 , p6_a7 JTF_VARCHAR2_TABLE_600
499 , p6_a8 JTF_VARCHAR2_TABLE_600
500 , p6_a9 JTF_VARCHAR2_TABLE_2000
501 , p6_a10 JTF_VARCHAR2_TABLE_100
502 , p6_a11 JTF_VARCHAR2_TABLE_100
503 , p6_a12 JTF_VARCHAR2_TABLE_500
504 , p6_a13 JTF_VARCHAR2_TABLE_500
505 , p6_a14 JTF_VARCHAR2_TABLE_500
506 , p6_a15 JTF_VARCHAR2_TABLE_500
507 , p6_a16 JTF_VARCHAR2_TABLE_500
508 , p6_a17 JTF_VARCHAR2_TABLE_500
509 , p6_a18 JTF_VARCHAR2_TABLE_500
510 , p6_a19 JTF_VARCHAR2_TABLE_500
511 , p6_a20 JTF_VARCHAR2_TABLE_500
512 , p6_a21 JTF_VARCHAR2_TABLE_500
513 , p6_a22 JTF_VARCHAR2_TABLE_500
514 , p6_a23 JTF_VARCHAR2_TABLE_500
515 , p6_a24 JTF_VARCHAR2_TABLE_500
516 , p6_a25 JTF_VARCHAR2_TABLE_500
517 , p6_a26 JTF_VARCHAR2_TABLE_500
518 , p6_a27 JTF_NUMBER_TABLE
519 , p6_a28 JTF_DATE_TABLE
520 , p6_a29 JTF_NUMBER_TABLE
521 , p6_a30 JTF_DATE_TABLE
522 , p6_a31 JTF_NUMBER_TABLE
523 , p7_a0 out nocopy JTF_NUMBER_TABLE
524 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_200
525 , p7_a2 out nocopy JTF_NUMBER_TABLE
526 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_200
527 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_600
528 , p7_a5 out nocopy JTF_NUMBER_TABLE
529 , p7_a6 out nocopy JTF_NUMBER_TABLE
530 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_100
531 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_100
532 , p7_a9 out nocopy JTF_VARCHAR2_TABLE_100
533 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_500
534 , p7_a11 out nocopy JTF_VARCHAR2_TABLE_500
535 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_500
536 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_500
537 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_500
538 , p7_a15 out nocopy JTF_VARCHAR2_TABLE_500
539 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_500
540 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_500
541 , p7_a18 out nocopy JTF_VARCHAR2_TABLE_500
542 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_500
543 , p7_a20 out nocopy JTF_VARCHAR2_TABLE_500
544 , p7_a21 out nocopy JTF_VARCHAR2_TABLE_500
545 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_500
546 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_500
547 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_500
548 , p7_a25 out nocopy JTF_NUMBER_TABLE
549 , p7_a26 out nocopy JTF_DATE_TABLE
550 , p7_a27 out nocopy JTF_NUMBER_TABLE
551 , p7_a28 out nocopy JTF_DATE_TABLE
552 , p7_a29 out nocopy JTF_NUMBER_TABLE
553 , p7_a30 out nocopy JTF_DATE_TABLE
554 , x_rbk_count out nocopy NUMBER
555 )
556
557 as
558 ddp_mrbv_tbl okl_mass_rebook_pvt.mrbv_tbl_type;
559 ddx_mstv_tbl okl_mass_rebook_pvt.mstv_tbl_type;
560 ddindx binary_integer; indx binary_integer;
561 begin
562
563 -- copy data to the local IN or IN-OUT args, if any
564
565
566
567
568
569
570 okl_mrb_pvt_w.rosetta_table_copy_in_p2(ddp_mrbv_tbl, p6_a0
571 , p6_a1
572 , p6_a2
573 , p6_a3
574 , p6_a4
575 , p6_a5
576 , p6_a6
577 , p6_a7
578 , p6_a8
579 , p6_a9
580 , p6_a10
581 , p6_a11
582 , p6_a12
583 , p6_a13
584 , p6_a14
585 , p6_a15
586 , p6_a16
587 , p6_a17
588 , p6_a18
589 , p6_a19
590 , p6_a20
591 , p6_a21
592 , p6_a22
593 , p6_a23
594 , p6_a24
595 , p6_a25
596 , p6_a26
597 , p6_a27
598 , p6_a28
599 , p6_a29
600 , p6_a30
601 , p6_a31
602 );
603
604
605
606 -- here's the delegated call to the old PL/SQL routine
607 okl_mass_rebook_pvt.build_and_get_contracts(p_api_version,
608 p_init_msg_list,
609 x_return_status,
610 x_msg_count,
611 x_msg_data,
612 p_request_name,
613 ddp_mrbv_tbl,
614 ddx_mstv_tbl,
615 x_rbk_count);
616
617 -- copy data back from the local variables to OUT or IN-OUT args, if any
618
619
620
621
622
623
624
625 okl_mst_pvt_w.rosetta_table_copy_out_p2(ddx_mstv_tbl, p7_a0
626 , p7_a1
627 , p7_a2
628 , p7_a3
629 , p7_a4
630 , p7_a5
631 , p7_a6
632 , p7_a7
633 , p7_a8
634 , p7_a9
635 , p7_a10
636 , p7_a11
637 , p7_a12
638 , p7_a13
639 , p7_a14
640 , p7_a15
641 , p7_a16
642 , p7_a17
643 , p7_a18
644 , p7_a19
645 , p7_a20
646 , p7_a21
647 , p7_a22
648 , p7_a23
649 , p7_a24
650 , p7_a25
651 , p7_a26
652 , p7_a27
653 , p7_a28
654 , p7_a29
655 , p7_a30
656 );
657
658 end;
659
660 procedure build_and_get_contracts(p_api_version NUMBER
661 , p_init_msg_list VARCHAR2
662 , x_return_status out nocopy VARCHAR2
663 , x_msg_count out nocopy NUMBER
664 , x_msg_data out nocopy VARCHAR2
665 , p_request_name VARCHAR2
666 , p_transaction_date date
667 , p7_a0 JTF_NUMBER_TABLE
668 , p7_a1 JTF_VARCHAR2_TABLE_600
669 , p7_a2 JTF_NUMBER_TABLE
670 , p7_a3 JTF_VARCHAR2_TABLE_100
671 , p7_a4 JTF_VARCHAR2_TABLE_100
672 , p7_a5 JTF_VARCHAR2_TABLE_100
673 , p7_a6 JTF_VARCHAR2_TABLE_600
674 , p7_a7 JTF_VARCHAR2_TABLE_600
675 , p7_a8 JTF_VARCHAR2_TABLE_600
676 , p7_a9 JTF_VARCHAR2_TABLE_2000
677 , p7_a10 JTF_VARCHAR2_TABLE_100
678 , p7_a11 JTF_VARCHAR2_TABLE_100
679 , p7_a12 JTF_VARCHAR2_TABLE_500
680 , p7_a13 JTF_VARCHAR2_TABLE_500
681 , p7_a14 JTF_VARCHAR2_TABLE_500
682 , p7_a15 JTF_VARCHAR2_TABLE_500
683 , p7_a16 JTF_VARCHAR2_TABLE_500
684 , p7_a17 JTF_VARCHAR2_TABLE_500
685 , p7_a18 JTF_VARCHAR2_TABLE_500
686 , p7_a19 JTF_VARCHAR2_TABLE_500
687 , p7_a20 JTF_VARCHAR2_TABLE_500
688 , p7_a21 JTF_VARCHAR2_TABLE_500
689 , p7_a22 JTF_VARCHAR2_TABLE_500
690 , p7_a23 JTF_VARCHAR2_TABLE_500
691 , p7_a24 JTF_VARCHAR2_TABLE_500
692 , p7_a25 JTF_VARCHAR2_TABLE_500
693 , p7_a26 JTF_VARCHAR2_TABLE_500
694 , p7_a27 JTF_NUMBER_TABLE
695 , p7_a28 JTF_DATE_TABLE
696 , p7_a29 JTF_NUMBER_TABLE
697 , p7_a30 JTF_DATE_TABLE
698 , p7_a31 JTF_NUMBER_TABLE
699 , p8_a0 out nocopy JTF_NUMBER_TABLE
700 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_200
701 , p8_a2 out nocopy JTF_NUMBER_TABLE
702 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_200
703 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_600
704 , p8_a5 out nocopy JTF_NUMBER_TABLE
705 , p8_a6 out nocopy JTF_NUMBER_TABLE
706 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_100
707 , p8_a8 out nocopy JTF_VARCHAR2_TABLE_100
708 , p8_a9 out nocopy JTF_VARCHAR2_TABLE_100
709 , p8_a10 out nocopy JTF_VARCHAR2_TABLE_500
710 , p8_a11 out nocopy JTF_VARCHAR2_TABLE_500
711 , p8_a12 out nocopy JTF_VARCHAR2_TABLE_500
712 , p8_a13 out nocopy JTF_VARCHAR2_TABLE_500
713 , p8_a14 out nocopy JTF_VARCHAR2_TABLE_500
714 , p8_a15 out nocopy JTF_VARCHAR2_TABLE_500
715 , p8_a16 out nocopy JTF_VARCHAR2_TABLE_500
716 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_500
717 , p8_a18 out nocopy JTF_VARCHAR2_TABLE_500
718 , p8_a19 out nocopy JTF_VARCHAR2_TABLE_500
719 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_500
720 , p8_a21 out nocopy JTF_VARCHAR2_TABLE_500
721 , p8_a22 out nocopy JTF_VARCHAR2_TABLE_500
722 , p8_a23 out nocopy JTF_VARCHAR2_TABLE_500
723 , p8_a24 out nocopy JTF_VARCHAR2_TABLE_500
724 , p8_a25 out nocopy JTF_NUMBER_TABLE
725 , p8_a26 out nocopy JTF_DATE_TABLE
726 , p8_a27 out nocopy JTF_NUMBER_TABLE
727 , p8_a28 out nocopy JTF_DATE_TABLE
728 , p8_a29 out nocopy JTF_NUMBER_TABLE
729 , p8_a30 out nocopy JTF_DATE_TABLE
730 , x_rbk_count out nocopy NUMBER
731 )
732
733 as
734 ddp_transaction_date date;
735 ddp_mrbv_tbl okl_mass_rebook_pvt.mrbv_tbl_type;
736 ddx_mstv_tbl okl_mass_rebook_pvt.mstv_tbl_type;
737 ddindx binary_integer; indx binary_integer;
738 begin
739
740 -- copy data to the local IN or IN-OUT args, if any
741
742
743
744
745
746
747 ddp_transaction_date := rosetta_g_miss_date_in_map(p_transaction_date);
748
749 okl_mrb_pvt_w.rosetta_table_copy_in_p2(ddp_mrbv_tbl, p7_a0
750 , p7_a1
751 , p7_a2
752 , p7_a3
753 , p7_a4
754 , p7_a5
755 , p7_a6
756 , p7_a7
757 , p7_a8
758 , p7_a9
759 , p7_a10
760 , p7_a11
761 , p7_a12
762 , p7_a13
763 , p7_a14
764 , p7_a15
765 , p7_a16
766 , p7_a17
767 , p7_a18
768 , p7_a19
769 , p7_a20
770 , p7_a21
771 , p7_a22
772 , p7_a23
773 , p7_a24
774 , p7_a25
775 , p7_a26
776 , p7_a27
777 , p7_a28
778 , p7_a29
779 , p7_a30
780 , p7_a31
781 );
782
783
784
785 -- here's the delegated call to the old PL/SQL routine
786 okl_mass_rebook_pvt.build_and_get_contracts(p_api_version,
787 p_init_msg_list,
788 x_return_status,
789 x_msg_count,
790 x_msg_data,
791 p_request_name,
792 ddp_transaction_date,
793 ddp_mrbv_tbl,
794 ddx_mstv_tbl,
795 x_rbk_count);
796
797 -- copy data back from the local variables to OUT or IN-OUT args, if any
798
799
800
801
802
803
804
805
806 okl_mst_pvt_w.rosetta_table_copy_out_p2(ddx_mstv_tbl, p8_a0
807 , p8_a1
808 , p8_a2
809 , p8_a3
810 , p8_a4
811 , p8_a5
812 , p8_a6
813 , p8_a7
814 , p8_a8
815 , p8_a9
816 , p8_a10
817 , p8_a11
818 , p8_a12
819 , p8_a13
820 , p8_a14
821 , p8_a15
822 , p8_a16
823 , p8_a17
824 , p8_a18
825 , p8_a19
826 , p8_a20
827 , p8_a21
828 , p8_a22
829 , p8_a23
830 , p8_a24
831 , p8_a25
832 , p8_a26
833 , p8_a27
834 , p8_a28
835 , p8_a29
836 , p8_a30
837 );
838
839 end;
840
841 procedure apply_mass_rebook(p_api_version NUMBER
842 , p_init_msg_list VARCHAR2
843 , x_return_status out nocopy VARCHAR2
844 , x_msg_count out nocopy NUMBER
845 , x_msg_data out nocopy VARCHAR2
846 , p5_a0 JTF_NUMBER_TABLE
847 , p5_a1 JTF_VARCHAR2_TABLE_200
848 , p5_a2 JTF_NUMBER_TABLE
849 , p5_a3 JTF_VARCHAR2_TABLE_600
850 , p_deprn_method_code VARCHAR2
851 , p_in_service_date date
852 , p_life_in_months NUMBER
853 , p_basic_rate NUMBER
854 , p_adjusted_rate NUMBER
855 , p_residual_value NUMBER
856 , p12_a0 JTF_NUMBER_TABLE
857 , p12_a1 JTF_NUMBER_TABLE
858 , p12_a2 JTF_VARCHAR2_TABLE_500
859 , p12_a3 JTF_VARCHAR2_TABLE_500
860 , p12_a4 JTF_VARCHAR2_TABLE_500
861 , p12_a5 JTF_VARCHAR2_TABLE_500
862 , p12_a6 JTF_VARCHAR2_TABLE_500
863 , p12_a7 JTF_VARCHAR2_TABLE_500
864 , p12_a8 JTF_VARCHAR2_TABLE_500
865 , p12_a9 JTF_VARCHAR2_TABLE_500
866 , p12_a10 JTF_VARCHAR2_TABLE_500
867 , p12_a11 JTF_VARCHAR2_TABLE_500
868 , p12_a12 JTF_VARCHAR2_TABLE_500
869 , p12_a13 JTF_VARCHAR2_TABLE_500
870 , p12_a14 JTF_VARCHAR2_TABLE_500
871 , p12_a15 JTF_VARCHAR2_TABLE_500
872 , p12_a16 JTF_VARCHAR2_TABLE_500
873 , p12_a17 JTF_VARCHAR2_TABLE_100
874 , p12_a18 JTF_VARCHAR2_TABLE_100
875 , p12_a19 JTF_VARCHAR2_TABLE_200
876 , p12_a20 JTF_VARCHAR2_TABLE_100
877 , p12_a21 JTF_VARCHAR2_TABLE_200
878 , p12_a22 JTF_VARCHAR2_TABLE_100
879 , p12_a23 JTF_VARCHAR2_TABLE_200
880 , p12_a24 JTF_VARCHAR2_TABLE_100
881 , p12_a25 JTF_VARCHAR2_TABLE_100
882 , p12_a26 JTF_VARCHAR2_TABLE_100
883 )
884
885 as
886 ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
887 ddp_in_service_date date;
888 ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
889 ddindx binary_integer; indx binary_integer;
890 begin
891
892 -- copy data to the local IN or IN-OUT args, if any
893
894
895
896
897
898 okl_mass_rebook_pvt_w.rosetta_table_copy_in_p33(ddp_rbk_tbl, p5_a0
899 , p5_a1
900 , p5_a2
901 , p5_a3
902 );
903
904
905 ddp_in_service_date := rosetta_g_miss_date_in_map(p_in_service_date);
906
907
908
909
910
911 okl_mass_rebook_pvt_w.rosetta_table_copy_in_p35(ddp_strm_lalevl_tbl, p12_a0
912 , p12_a1
913 , p12_a2
914 , p12_a3
915 , p12_a4
916 , p12_a5
917 , p12_a6
918 , p12_a7
919 , p12_a8
920 , p12_a9
921 , p12_a10
922 , p12_a11
923 , p12_a12
924 , p12_a13
925 , p12_a14
926 , p12_a15
927 , p12_a16
928 , p12_a17
929 , p12_a18
930 , p12_a19
931 , p12_a20
932 , p12_a21
933 , p12_a22
934 , p12_a23
935 , p12_a24
936 , p12_a25
937 , p12_a26
938 );
939
940 -- here's the delegated call to the old PL/SQL routine
941 okl_mass_rebook_pvt.apply_mass_rebook(p_api_version,
942 p_init_msg_list,
943 x_return_status,
944 x_msg_count,
945 x_msg_data,
946 ddp_rbk_tbl,
947 p_deprn_method_code,
948 ddp_in_service_date,
949 p_life_in_months,
950 p_basic_rate,
951 p_adjusted_rate,
952 p_residual_value,
953 ddp_strm_lalevl_tbl);
954
955 -- copy data back from the local variables to OUT or IN-OUT args, if any
956
957
958
959
960
961
962
963
964
965
966
967
968 end;
969
970 procedure apply_mass_rebook(p_api_version NUMBER
971 , p_init_msg_list VARCHAR2
972 , x_return_status out nocopy VARCHAR2
973 , x_msg_count out nocopy NUMBER
974 , x_msg_data out nocopy VARCHAR2
975 , p5_a0 JTF_NUMBER_TABLE
976 , p5_a1 JTF_VARCHAR2_TABLE_200
977 , p5_a2 JTF_NUMBER_TABLE
978 , p5_a3 JTF_VARCHAR2_TABLE_600
979 , p_deprn_method_code VARCHAR2
980 , p_in_service_date date
981 , p_life_in_months NUMBER
982 , p_basic_rate NUMBER
983 , p_adjusted_rate NUMBER
984 , p_residual_value NUMBER
985 , p12_a0 JTF_NUMBER_TABLE
986 , p12_a1 JTF_NUMBER_TABLE
987 , p12_a2 JTF_VARCHAR2_TABLE_500
988 , p12_a3 JTF_VARCHAR2_TABLE_500
989 , p12_a4 JTF_VARCHAR2_TABLE_500
990 , p12_a5 JTF_VARCHAR2_TABLE_500
991 , p12_a6 JTF_VARCHAR2_TABLE_500
992 , p12_a7 JTF_VARCHAR2_TABLE_500
993 , p12_a8 JTF_VARCHAR2_TABLE_500
994 , p12_a9 JTF_VARCHAR2_TABLE_500
995 , p12_a10 JTF_VARCHAR2_TABLE_500
996 , p12_a11 JTF_VARCHAR2_TABLE_500
997 , p12_a12 JTF_VARCHAR2_TABLE_500
998 , p12_a13 JTF_VARCHAR2_TABLE_500
999 , p12_a14 JTF_VARCHAR2_TABLE_500
1000 , p12_a15 JTF_VARCHAR2_TABLE_500
1001 , p12_a16 JTF_VARCHAR2_TABLE_500
1002 , p12_a17 JTF_VARCHAR2_TABLE_100
1003 , p12_a18 JTF_VARCHAR2_TABLE_100
1004 , p12_a19 JTF_VARCHAR2_TABLE_200
1005 , p12_a20 JTF_VARCHAR2_TABLE_100
1006 , p12_a21 JTF_VARCHAR2_TABLE_200
1007 , p12_a22 JTF_VARCHAR2_TABLE_100
1008 , p12_a23 JTF_VARCHAR2_TABLE_200
1009 , p12_a24 JTF_VARCHAR2_TABLE_100
1010 , p12_a25 JTF_VARCHAR2_TABLE_100
1011 , p12_a26 JTF_VARCHAR2_TABLE_100
1012 , p13_a0 out nocopy JTF_NUMBER_TABLE
1013 , p13_a1 out nocopy JTF_NUMBER_TABLE
1014 )
1015
1016 as
1017 ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
1018 ddp_in_service_date date;
1019 ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1020 ddx_stream_trx_tbl okl_mass_rebook_pvt.strm_trx_tbl_type;
1021 ddindx binary_integer; indx binary_integer;
1022 begin
1023
1024 -- copy data to the local IN or IN-OUT args, if any
1025
1026
1027
1028
1029
1030 okl_mass_rebook_pvt_w.rosetta_table_copy_in_p33(ddp_rbk_tbl, p5_a0
1031 , p5_a1
1032 , p5_a2
1033 , p5_a3
1034 );
1035
1036
1037 ddp_in_service_date := rosetta_g_miss_date_in_map(p_in_service_date);
1038
1039
1040
1041
1042
1043 okl_mass_rebook_pvt_w.rosetta_table_copy_in_p35(ddp_strm_lalevl_tbl, p12_a0
1044 , p12_a1
1045 , p12_a2
1046 , p12_a3
1047 , p12_a4
1048 , p12_a5
1049 , p12_a6
1050 , p12_a7
1051 , p12_a8
1052 , p12_a9
1053 , p12_a10
1054 , p12_a11
1055 , p12_a12
1056 , p12_a13
1057 , p12_a14
1058 , p12_a15
1059 , p12_a16
1060 , p12_a17
1061 , p12_a18
1062 , p12_a19
1063 , p12_a20
1064 , p12_a21
1065 , p12_a22
1066 , p12_a23
1067 , p12_a24
1068 , p12_a25
1069 , p12_a26
1070 );
1071
1072
1073 -- here's the delegated call to the old PL/SQL routine
1074 okl_mass_rebook_pvt.apply_mass_rebook(p_api_version,
1075 p_init_msg_list,
1076 x_return_status,
1077 x_msg_count,
1078 x_msg_data,
1079 ddp_rbk_tbl,
1080 p_deprn_method_code,
1081 ddp_in_service_date,
1082 p_life_in_months,
1083 p_basic_rate,
1084 p_adjusted_rate,
1085 p_residual_value,
1086 ddp_strm_lalevl_tbl,
1087 ddx_stream_trx_tbl);
1088
1089 -- copy data back from the local variables to OUT or IN-OUT args, if any
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103 okl_mass_rebook_pvt_w.rosetta_table_copy_out_p37(ddx_stream_trx_tbl, p13_a0
1104 , p13_a1
1105 );
1106 end;
1107
1108 procedure apply_mass_rebook(p_api_version NUMBER
1109 , p_init_msg_list VARCHAR2
1110 , x_return_status out nocopy VARCHAR2
1111 , x_msg_count out nocopy NUMBER
1112 , x_msg_data out nocopy VARCHAR2
1113 , p5_a0 JTF_NUMBER_TABLE
1114 , p5_a1 JTF_VARCHAR2_TABLE_200
1115 , p5_a2 JTF_NUMBER_TABLE
1116 , p5_a3 JTF_VARCHAR2_TABLE_600
1117 , p_deprn_method_code VARCHAR2
1118 , p_in_service_date date
1119 , p_life_in_months NUMBER
1120 , p_basic_rate NUMBER
1121 , p_adjusted_rate NUMBER
1122 , p_residual_value NUMBER
1123 , p12_a0 JTF_NUMBER_TABLE
1124 , p12_a1 JTF_NUMBER_TABLE
1125 , p12_a2 JTF_VARCHAR2_TABLE_500
1126 , p12_a3 JTF_VARCHAR2_TABLE_500
1127 , p12_a4 JTF_VARCHAR2_TABLE_500
1128 , p12_a5 JTF_VARCHAR2_TABLE_500
1129 , p12_a6 JTF_VARCHAR2_TABLE_500
1130 , p12_a7 JTF_VARCHAR2_TABLE_500
1131 , p12_a8 JTF_VARCHAR2_TABLE_500
1132 , p12_a9 JTF_VARCHAR2_TABLE_500
1133 , p12_a10 JTF_VARCHAR2_TABLE_500
1134 , p12_a11 JTF_VARCHAR2_TABLE_500
1135 , p12_a12 JTF_VARCHAR2_TABLE_500
1136 , p12_a13 JTF_VARCHAR2_TABLE_500
1137 , p12_a14 JTF_VARCHAR2_TABLE_500
1138 , p12_a15 JTF_VARCHAR2_TABLE_500
1139 , p12_a16 JTF_VARCHAR2_TABLE_500
1140 , p12_a17 JTF_VARCHAR2_TABLE_100
1141 , p12_a18 JTF_VARCHAR2_TABLE_100
1142 , p12_a19 JTF_VARCHAR2_TABLE_200
1143 , p12_a20 JTF_VARCHAR2_TABLE_100
1144 , p12_a21 JTF_VARCHAR2_TABLE_200
1145 , p12_a22 JTF_VARCHAR2_TABLE_100
1146 , p12_a23 JTF_VARCHAR2_TABLE_200
1147 , p12_a24 JTF_VARCHAR2_TABLE_100
1148 , p12_a25 JTF_VARCHAR2_TABLE_100
1149 , p12_a26 JTF_VARCHAR2_TABLE_100
1150 , p_transaction_date date
1151 , p14_a0 out nocopy JTF_NUMBER_TABLE
1152 , p14_a1 out nocopy JTF_NUMBER_TABLE
1153 )
1154
1155 as
1156 ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
1157 ddp_in_service_date date;
1158 ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1159 ddp_transaction_date date;
1160 ddx_stream_trx_tbl okl_mass_rebook_pvt.strm_trx_tbl_type;
1161 ddindx binary_integer; indx binary_integer;
1162 begin
1163
1164 -- copy data to the local IN or IN-OUT args, if any
1165
1166
1167
1168
1169
1170 okl_mass_rebook_pvt_w.rosetta_table_copy_in_p33(ddp_rbk_tbl, p5_a0
1171 , p5_a1
1172 , p5_a2
1173 , p5_a3
1174 );
1175
1176
1177 ddp_in_service_date := rosetta_g_miss_date_in_map(p_in_service_date);
1178
1179
1180
1181
1182
1183 okl_mass_rebook_pvt_w.rosetta_table_copy_in_p35(ddp_strm_lalevl_tbl, p12_a0
1184 , p12_a1
1185 , p12_a2
1186 , p12_a3
1187 , p12_a4
1188 , p12_a5
1189 , p12_a6
1190 , p12_a7
1191 , p12_a8
1192 , p12_a9
1193 , p12_a10
1194 , p12_a11
1195 , p12_a12
1196 , p12_a13
1197 , p12_a14
1198 , p12_a15
1199 , p12_a16
1200 , p12_a17
1201 , p12_a18
1202 , p12_a19
1203 , p12_a20
1204 , p12_a21
1205 , p12_a22
1206 , p12_a23
1207 , p12_a24
1208 , p12_a25
1209 , p12_a26
1210 );
1211
1212 ddp_transaction_date := rosetta_g_miss_date_in_map(p_transaction_date);
1213
1214
1215 -- here's the delegated call to the old PL/SQL routine
1216 okl_mass_rebook_pvt.apply_mass_rebook(p_api_version,
1217 p_init_msg_list,
1218 x_return_status,
1219 x_msg_count,
1220 x_msg_data,
1221 ddp_rbk_tbl,
1222 p_deprn_method_code,
1223 ddp_in_service_date,
1224 p_life_in_months,
1225 p_basic_rate,
1226 p_adjusted_rate,
1227 p_residual_value,
1228 ddp_strm_lalevl_tbl,
1229 ddp_transaction_date,
1230 ddx_stream_trx_tbl);
1231
1232 -- copy data back from the local variables to OUT or IN-OUT args, if any
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247 okl_mass_rebook_pvt_w.rosetta_table_copy_out_p37(ddx_stream_trx_tbl, p14_a0
1248 , p14_a1
1249 );
1250 end;
1251
1252 procedure apply_mass_rebook(p_api_version NUMBER
1253 , p_init_msg_list VARCHAR2
1254 , x_return_status out nocopy VARCHAR2
1255 , x_msg_count out nocopy NUMBER
1256 , x_msg_data out nocopy VARCHAR2
1257 , p5_a0 JTF_NUMBER_TABLE
1258 , p5_a1 JTF_VARCHAR2_TABLE_200
1259 , p5_a2 JTF_NUMBER_TABLE
1260 , p5_a3 JTF_VARCHAR2_TABLE_600
1261 , p_deprn_method_code VARCHAR2
1262 , p_in_service_date date
1263 , p_life_in_months NUMBER
1264 , p_basic_rate NUMBER
1265 , p_adjusted_rate NUMBER
1266 , p_residual_value NUMBER
1267 , p12_a0 JTF_NUMBER_TABLE
1268 , p12_a1 JTF_NUMBER_TABLE
1269 , p12_a2 JTF_VARCHAR2_TABLE_500
1270 , p12_a3 JTF_VARCHAR2_TABLE_500
1271 , p12_a4 JTF_VARCHAR2_TABLE_500
1272 , p12_a5 JTF_VARCHAR2_TABLE_500
1273 , p12_a6 JTF_VARCHAR2_TABLE_500
1274 , p12_a7 JTF_VARCHAR2_TABLE_500
1275 , p12_a8 JTF_VARCHAR2_TABLE_500
1276 , p12_a9 JTF_VARCHAR2_TABLE_500
1277 , p12_a10 JTF_VARCHAR2_TABLE_500
1278 , p12_a11 JTF_VARCHAR2_TABLE_500
1279 , p12_a12 JTF_VARCHAR2_TABLE_500
1280 , p12_a13 JTF_VARCHAR2_TABLE_500
1281 , p12_a14 JTF_VARCHAR2_TABLE_500
1282 , p12_a15 JTF_VARCHAR2_TABLE_500
1283 , p12_a16 JTF_VARCHAR2_TABLE_500
1284 , p12_a17 JTF_VARCHAR2_TABLE_100
1285 , p12_a18 JTF_VARCHAR2_TABLE_100
1286 , p12_a19 JTF_VARCHAR2_TABLE_200
1287 , p12_a20 JTF_VARCHAR2_TABLE_100
1288 , p12_a21 JTF_VARCHAR2_TABLE_200
1289 , p12_a22 JTF_VARCHAR2_TABLE_100
1290 , p12_a23 JTF_VARCHAR2_TABLE_200
1291 , p12_a24 JTF_VARCHAR2_TABLE_100
1292 , p12_a25 JTF_VARCHAR2_TABLE_100
1293 , p12_a26 JTF_VARCHAR2_TABLE_100
1294 , p_source_trx_id NUMBER
1295 , p_source_trx_type VARCHAR2
1296 , x_mass_rebook_trx_id out nocopy NUMBER
1297 )
1298
1299 as
1300 ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
1301 ddp_in_service_date date;
1302 ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1303 ddindx binary_integer; indx binary_integer;
1304 begin
1305
1306 -- copy data to the local IN or IN-OUT args, if any
1307
1308
1309
1310
1311
1312 okl_mass_rebook_pvt_w.rosetta_table_copy_in_p33(ddp_rbk_tbl, p5_a0
1313 , p5_a1
1314 , p5_a2
1315 , p5_a3
1316 );
1317
1318
1319 ddp_in_service_date := rosetta_g_miss_date_in_map(p_in_service_date);
1320
1321
1322
1323
1324
1325 okl_mass_rebook_pvt_w.rosetta_table_copy_in_p35(ddp_strm_lalevl_tbl, p12_a0
1326 , p12_a1
1327 , p12_a2
1328 , p12_a3
1329 , p12_a4
1330 , p12_a5
1331 , p12_a6
1332 , p12_a7
1333 , p12_a8
1334 , p12_a9
1335 , p12_a10
1336 , p12_a11
1337 , p12_a12
1338 , p12_a13
1339 , p12_a14
1340 , p12_a15
1341 , p12_a16
1342 , p12_a17
1343 , p12_a18
1344 , p12_a19
1345 , p12_a20
1346 , p12_a21
1347 , p12_a22
1348 , p12_a23
1349 , p12_a24
1350 , p12_a25
1351 , p12_a26
1352 );
1353
1354
1355
1356
1357 -- here's the delegated call to the old PL/SQL routine
1358 okl_mass_rebook_pvt.apply_mass_rebook(p_api_version,
1359 p_init_msg_list,
1360 x_return_status,
1361 x_msg_count,
1362 x_msg_data,
1363 ddp_rbk_tbl,
1364 p_deprn_method_code,
1365 ddp_in_service_date,
1366 p_life_in_months,
1367 p_basic_rate,
1368 p_adjusted_rate,
1369 p_residual_value,
1370 ddp_strm_lalevl_tbl,
1371 p_source_trx_id,
1372 p_source_trx_type,
1373 x_mass_rebook_trx_id);
1374
1375 -- copy data back from the local variables to OUT or IN-OUT args, if any
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391 end;
1392
1393 procedure apply_mass_rebook(p_api_version NUMBER
1394 , p_init_msg_list VARCHAR2
1395 , x_return_status out nocopy VARCHAR2
1396 , x_msg_count out nocopy NUMBER
1397 , x_msg_data out nocopy VARCHAR2
1398 , p5_a0 JTF_NUMBER_TABLE
1399 , p5_a1 JTF_VARCHAR2_TABLE_200
1400 , p5_a2 JTF_NUMBER_TABLE
1401 , p5_a3 JTF_VARCHAR2_TABLE_600
1402 , p_deprn_method_code VARCHAR2
1403 , p_in_service_date date
1404 , p_life_in_months NUMBER
1405 , p_basic_rate NUMBER
1406 , p_adjusted_rate NUMBER
1407 , p_residual_value NUMBER
1408 , p12_a0 JTF_NUMBER_TABLE
1409 , p12_a1 JTF_NUMBER_TABLE
1410 , p12_a2 JTF_VARCHAR2_TABLE_500
1411 , p12_a3 JTF_VARCHAR2_TABLE_500
1412 , p12_a4 JTF_VARCHAR2_TABLE_500
1413 , p12_a5 JTF_VARCHAR2_TABLE_500
1414 , p12_a6 JTF_VARCHAR2_TABLE_500
1415 , p12_a7 JTF_VARCHAR2_TABLE_500
1416 , p12_a8 JTF_VARCHAR2_TABLE_500
1417 , p12_a9 JTF_VARCHAR2_TABLE_500
1418 , p12_a10 JTF_VARCHAR2_TABLE_500
1419 , p12_a11 JTF_VARCHAR2_TABLE_500
1420 , p12_a12 JTF_VARCHAR2_TABLE_500
1421 , p12_a13 JTF_VARCHAR2_TABLE_500
1422 , p12_a14 JTF_VARCHAR2_TABLE_500
1423 , p12_a15 JTF_VARCHAR2_TABLE_500
1424 , p12_a16 JTF_VARCHAR2_TABLE_500
1425 , p12_a17 JTF_VARCHAR2_TABLE_100
1426 , p12_a18 JTF_VARCHAR2_TABLE_100
1427 , p12_a19 JTF_VARCHAR2_TABLE_200
1428 , p12_a20 JTF_VARCHAR2_TABLE_100
1429 , p12_a21 JTF_VARCHAR2_TABLE_200
1430 , p12_a22 JTF_VARCHAR2_TABLE_100
1431 , p12_a23 JTF_VARCHAR2_TABLE_200
1432 , p12_a24 JTF_VARCHAR2_TABLE_100
1433 , p12_a25 JTF_VARCHAR2_TABLE_100
1434 , p12_a26 JTF_VARCHAR2_TABLE_100
1435 , p_source_trx_id NUMBER
1436 , p_source_trx_type VARCHAR2
1437 , p_transaction_date date
1438 , x_mass_rebook_trx_id out nocopy NUMBER
1439 )
1440
1441 as
1442 ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
1443 ddp_in_service_date date;
1444 ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1445 ddp_transaction_date date;
1446 ddindx binary_integer; indx binary_integer;
1447 begin
1448
1449 -- copy data to the local IN or IN-OUT args, if any
1450
1451
1452
1453
1454
1455 okl_mass_rebook_pvt_w.rosetta_table_copy_in_p33(ddp_rbk_tbl, p5_a0
1456 , p5_a1
1457 , p5_a2
1458 , p5_a3
1459 );
1460
1461
1462 ddp_in_service_date := rosetta_g_miss_date_in_map(p_in_service_date);
1463
1464
1465
1466
1467
1468 okl_mass_rebook_pvt_w.rosetta_table_copy_in_p35(ddp_strm_lalevl_tbl, p12_a0
1469 , p12_a1
1470 , p12_a2
1471 , p12_a3
1472 , p12_a4
1473 , p12_a5
1474 , p12_a6
1475 , p12_a7
1476 , p12_a8
1477 , p12_a9
1478 , p12_a10
1479 , p12_a11
1480 , p12_a12
1481 , p12_a13
1482 , p12_a14
1483 , p12_a15
1484 , p12_a16
1485 , p12_a17
1486 , p12_a18
1487 , p12_a19
1488 , p12_a20
1489 , p12_a21
1490 , p12_a22
1491 , p12_a23
1492 , p12_a24
1493 , p12_a25
1494 , p12_a26
1495 );
1496
1497
1498
1499 ddp_transaction_date := rosetta_g_miss_date_in_map(p_transaction_date);
1500
1501
1502 -- here's the delegated call to the old PL/SQL routine
1503 okl_mass_rebook_pvt.apply_mass_rebook(p_api_version,
1504 p_init_msg_list,
1505 x_return_status,
1506 x_msg_count,
1507 x_msg_data,
1508 ddp_rbk_tbl,
1509 p_deprn_method_code,
1510 ddp_in_service_date,
1511 p_life_in_months,
1512 p_basic_rate,
1513 p_adjusted_rate,
1514 p_residual_value,
1515 ddp_strm_lalevl_tbl,
1516 p_source_trx_id,
1517 p_source_trx_type,
1518 ddp_transaction_date,
1519 x_mass_rebook_trx_id);
1520
1521 -- copy data back from the local variables to OUT or IN-OUT args, if any
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538 end;
1539
1540 procedure apply_mass_rebook(p_api_version NUMBER
1541 , p_init_msg_list VARCHAR2
1542 , x_return_status out nocopy VARCHAR2
1543 , x_msg_count out nocopy NUMBER
1544 , x_msg_data out nocopy VARCHAR2
1545 , p_chr_id NUMBER
1546 , p6_a0 JTF_NUMBER_TABLE
1547 , p_source_trx_id NUMBER
1548 , p_source_trx_type VARCHAR2
1549 , p_transaction_date date
1550 , x_mass_rebook_trx_id out nocopy NUMBER
1551 , p_ppd_amount NUMBER
1552 , p_ppd_reason_code VARCHAR2
1553 , p13_a0 JTF_NUMBER_TABLE
1554 , p13_a1 JTF_NUMBER_TABLE
1555 , p13_a2 JTF_VARCHAR2_TABLE_500
1556 , p13_a3 JTF_VARCHAR2_TABLE_500
1557 , p13_a4 JTF_VARCHAR2_TABLE_500
1558 , p13_a5 JTF_VARCHAR2_TABLE_500
1559 , p13_a6 JTF_VARCHAR2_TABLE_500
1560 , p13_a7 JTF_VARCHAR2_TABLE_500
1561 , p13_a8 JTF_VARCHAR2_TABLE_500
1562 , p13_a9 JTF_VARCHAR2_TABLE_500
1563 , p13_a10 JTF_VARCHAR2_TABLE_500
1564 , p13_a11 JTF_VARCHAR2_TABLE_500
1565 , p13_a12 JTF_VARCHAR2_TABLE_500
1566 , p13_a13 JTF_VARCHAR2_TABLE_500
1567 , p13_a14 JTF_VARCHAR2_TABLE_500
1568 , p13_a15 JTF_VARCHAR2_TABLE_500
1569 , p13_a16 JTF_VARCHAR2_TABLE_500
1570 , p13_a17 JTF_VARCHAR2_TABLE_100
1571 , p13_a18 JTF_VARCHAR2_TABLE_100
1572 , p13_a19 JTF_VARCHAR2_TABLE_200
1573 , p13_a20 JTF_VARCHAR2_TABLE_100
1574 , p13_a21 JTF_VARCHAR2_TABLE_200
1575 , p13_a22 JTF_VARCHAR2_TABLE_100
1576 , p13_a23 JTF_VARCHAR2_TABLE_200
1577 , p13_a24 JTF_VARCHAR2_TABLE_100
1578 , p13_a25 JTF_VARCHAR2_TABLE_100
1579 , p13_a26 JTF_VARCHAR2_TABLE_100
1580 )
1581
1582 as
1583 ddp_kle_tbl okl_mass_rebook_pvt.kle_tbl_type;
1584 ddp_transaction_date date;
1585 ddp_payment_struc okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1586 ddindx binary_integer; indx binary_integer;
1587 begin
1588
1589 -- copy data to the local IN or IN-OUT args, if any
1590
1591
1592
1593
1594
1595
1596 okl_mass_rebook_pvt_w.rosetta_table_copy_in_p39(ddp_kle_tbl, p6_a0
1597 );
1598
1599
1600
1601 ddp_transaction_date := rosetta_g_miss_date_in_map(p_transaction_date);
1602
1603
1604
1605
1606 okl_mass_rebook_pvt_w.rosetta_table_copy_in_p35(ddp_payment_struc, p13_a0
1607 , p13_a1
1608 , p13_a2
1609 , p13_a3
1610 , p13_a4
1611 , p13_a5
1612 , p13_a6
1613 , p13_a7
1614 , p13_a8
1615 , p13_a9
1616 , p13_a10
1617 , p13_a11
1618 , p13_a12
1619 , p13_a13
1620 , p13_a14
1621 , p13_a15
1622 , p13_a16
1623 , p13_a17
1624 , p13_a18
1625 , p13_a19
1626 , p13_a20
1627 , p13_a21
1628 , p13_a22
1629 , p13_a23
1630 , p13_a24
1631 , p13_a25
1632 , p13_a26
1633 );
1634
1635 -- here's the delegated call to the old PL/SQL routine
1636 okl_mass_rebook_pvt.apply_mass_rebook(p_api_version,
1637 p_init_msg_list,
1638 x_return_status,
1639 x_msg_count,
1640 x_msg_data,
1641 p_chr_id,
1642 ddp_kle_tbl,
1643 p_source_trx_id,
1644 p_source_trx_type,
1645 ddp_transaction_date,
1646 x_mass_rebook_trx_id,
1647 p_ppd_amount,
1648 p_ppd_reason_code,
1649 ddp_payment_struc);
1650
1651 -- copy data back from the local variables to OUT or IN-OUT args, if any
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665 end;
1666
1667 procedure update_mass_rbk_contract(p_api_version NUMBER
1668 , p_init_msg_list VARCHAR2
1669 , x_return_status out nocopy VARCHAR2
1670 , x_msg_count out nocopy NUMBER
1671 , x_msg_data out nocopy VARCHAR2
1672 , p5_a0 JTF_NUMBER_TABLE
1673 , p5_a1 JTF_VARCHAR2_TABLE_200
1674 , p5_a2 JTF_NUMBER_TABLE
1675 , p5_a3 JTF_VARCHAR2_TABLE_200
1676 , p5_a4 JTF_VARCHAR2_TABLE_600
1677 , p5_a5 JTF_NUMBER_TABLE
1678 , p5_a6 JTF_NUMBER_TABLE
1679 , p5_a7 JTF_VARCHAR2_TABLE_100
1680 , p5_a8 JTF_VARCHAR2_TABLE_100
1681 , p5_a9 JTF_VARCHAR2_TABLE_100
1682 , p5_a10 JTF_VARCHAR2_TABLE_500
1683 , p5_a11 JTF_VARCHAR2_TABLE_500
1684 , p5_a12 JTF_VARCHAR2_TABLE_500
1685 , p5_a13 JTF_VARCHAR2_TABLE_500
1686 , p5_a14 JTF_VARCHAR2_TABLE_500
1687 , p5_a15 JTF_VARCHAR2_TABLE_500
1688 , p5_a16 JTF_VARCHAR2_TABLE_500
1689 , p5_a17 JTF_VARCHAR2_TABLE_500
1690 , p5_a18 JTF_VARCHAR2_TABLE_500
1691 , p5_a19 JTF_VARCHAR2_TABLE_500
1692 , p5_a20 JTF_VARCHAR2_TABLE_500
1693 , p5_a21 JTF_VARCHAR2_TABLE_500
1694 , p5_a22 JTF_VARCHAR2_TABLE_500
1695 , p5_a23 JTF_VARCHAR2_TABLE_500
1696 , p5_a24 JTF_VARCHAR2_TABLE_500
1697 , p5_a25 JTF_NUMBER_TABLE
1698 , p5_a26 JTF_DATE_TABLE
1699 , p5_a27 JTF_NUMBER_TABLE
1700 , p5_a28 JTF_DATE_TABLE
1701 , p5_a29 JTF_NUMBER_TABLE
1702 , p5_a30 JTF_DATE_TABLE
1703 , p6_a0 out nocopy JTF_NUMBER_TABLE
1704 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
1705 , p6_a2 out nocopy JTF_NUMBER_TABLE
1706 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
1707 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_600
1708 , p6_a5 out nocopy JTF_NUMBER_TABLE
1709 , p6_a6 out nocopy JTF_NUMBER_TABLE
1710 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
1711 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
1712 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
1713 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
1714 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
1715 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
1716 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1717 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1718 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1719 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1720 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1721 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1722 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1723 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1724 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1725 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1726 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1727 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1728 , p6_a25 out nocopy JTF_NUMBER_TABLE
1729 , p6_a26 out nocopy JTF_DATE_TABLE
1730 , p6_a27 out nocopy JTF_NUMBER_TABLE
1731 , p6_a28 out nocopy JTF_DATE_TABLE
1732 , p6_a29 out nocopy JTF_NUMBER_TABLE
1733 , p6_a30 out nocopy JTF_DATE_TABLE
1734 )
1735
1736 as
1737 ddp_mstv_tbl okl_mass_rebook_pvt.mstv_tbl_type;
1738 ddx_mstv_tbl okl_mass_rebook_pvt.mstv_tbl_type;
1739 ddindx binary_integer; indx binary_integer;
1740 begin
1741
1742 -- copy data to the local IN or IN-OUT args, if any
1743
1744
1745
1746
1747
1748 okl_mst_pvt_w.rosetta_table_copy_in_p2(ddp_mstv_tbl, p5_a0
1749 , p5_a1
1750 , p5_a2
1751 , p5_a3
1752 , p5_a4
1753 , p5_a5
1754 , p5_a6
1755 , p5_a7
1756 , p5_a8
1757 , p5_a9
1758 , p5_a10
1759 , p5_a11
1760 , p5_a12
1761 , p5_a13
1762 , p5_a14
1763 , p5_a15
1764 , p5_a16
1765 , p5_a17
1766 , p5_a18
1767 , p5_a19
1768 , p5_a20
1769 , p5_a21
1770 , p5_a22
1771 , p5_a23
1772 , p5_a24
1773 , p5_a25
1774 , p5_a26
1775 , p5_a27
1776 , p5_a28
1777 , p5_a29
1778 , p5_a30
1779 );
1780
1781
1782 -- here's the delegated call to the old PL/SQL routine
1783 okl_mass_rebook_pvt.update_mass_rbk_contract(p_api_version,
1784 p_init_msg_list,
1785 x_return_status,
1786 x_msg_count,
1787 x_msg_data,
1788 ddp_mstv_tbl,
1789 ddx_mstv_tbl);
1790
1791 -- copy data back from the local variables to OUT or IN-OUT args, if any
1792
1793
1794
1795
1796
1797
1798 okl_mst_pvt_w.rosetta_table_copy_out_p2(ddx_mstv_tbl, p6_a0
1799 , p6_a1
1800 , p6_a2
1801 , p6_a3
1802 , p6_a4
1803 , p6_a5
1804 , p6_a6
1805 , p6_a7
1806 , p6_a8
1807 , p6_a9
1808 , p6_a10
1809 , p6_a11
1810 , p6_a12
1811 , p6_a13
1812 , p6_a14
1813 , p6_a15
1814 , p6_a16
1815 , p6_a17
1816 , p6_a18
1817 , p6_a19
1818 , p6_a20
1819 , p6_a21
1820 , p6_a22
1821 , p6_a23
1822 , p6_a24
1823 , p6_a25
1824 , p6_a26
1825 , p6_a27
1826 , p6_a28
1827 , p6_a29
1828 , p6_a30
1829 );
1830 end;
1831
1832 procedure create_mass_rbk_set_values(p_api_version NUMBER
1833 , p_init_msg_list VARCHAR2
1834 , x_return_status out nocopy VARCHAR2
1835 , x_msg_count out nocopy NUMBER
1836 , x_msg_data out nocopy VARCHAR2
1837 , p_request_name VARCHAR2
1838 , p6_a0 JTF_NUMBER_TABLE
1839 , p6_a1 JTF_VARCHAR2_TABLE_600
1840 , p6_a2 JTF_NUMBER_TABLE
1841 , p6_a3 JTF_VARCHAR2_TABLE_100
1842 , p6_a4 JTF_VARCHAR2_TABLE_100
1843 , p6_a5 JTF_VARCHAR2_TABLE_100
1844 , p6_a6 JTF_VARCHAR2_TABLE_600
1845 , p6_a7 JTF_VARCHAR2_TABLE_600
1846 , p6_a8 JTF_VARCHAR2_TABLE_600
1847 , p6_a9 JTF_VARCHAR2_TABLE_2000
1848 , p6_a10 JTF_VARCHAR2_TABLE_100
1849 , p6_a11 JTF_VARCHAR2_TABLE_100
1850 , p6_a12 JTF_VARCHAR2_TABLE_500
1851 , p6_a13 JTF_VARCHAR2_TABLE_500
1852 , p6_a14 JTF_VARCHAR2_TABLE_500
1853 , p6_a15 JTF_VARCHAR2_TABLE_500
1854 , p6_a16 JTF_VARCHAR2_TABLE_500
1855 , p6_a17 JTF_VARCHAR2_TABLE_500
1856 , p6_a18 JTF_VARCHAR2_TABLE_500
1857 , p6_a19 JTF_VARCHAR2_TABLE_500
1858 , p6_a20 JTF_VARCHAR2_TABLE_500
1859 , p6_a21 JTF_VARCHAR2_TABLE_500
1860 , p6_a22 JTF_VARCHAR2_TABLE_500
1861 , p6_a23 JTF_VARCHAR2_TABLE_500
1862 , p6_a24 JTF_VARCHAR2_TABLE_500
1863 , p6_a25 JTF_VARCHAR2_TABLE_500
1864 , p6_a26 JTF_VARCHAR2_TABLE_500
1865 , p6_a27 JTF_NUMBER_TABLE
1866 , p6_a28 JTF_DATE_TABLE
1867 , p6_a29 JTF_NUMBER_TABLE
1868 , p6_a30 JTF_DATE_TABLE
1869 , p6_a31 JTF_NUMBER_TABLE
1870 , p7_a0 out nocopy JTF_NUMBER_TABLE
1871 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_600
1872 , p7_a2 out nocopy JTF_NUMBER_TABLE
1873 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
1874 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
1875 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_100
1876 , p7_a6 out nocopy JTF_VARCHAR2_TABLE_600
1877 , p7_a7 out nocopy JTF_VARCHAR2_TABLE_600
1878 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_600
1879 , p7_a9 out nocopy JTF_VARCHAR2_TABLE_2000
1880 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_100
1881 , p7_a11 out nocopy JTF_VARCHAR2_TABLE_100
1882 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_500
1883 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_500
1884 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_500
1885 , p7_a15 out nocopy JTF_VARCHAR2_TABLE_500
1886 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_500
1887 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_500
1888 , p7_a18 out nocopy JTF_VARCHAR2_TABLE_500
1889 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_500
1890 , p7_a20 out nocopy JTF_VARCHAR2_TABLE_500
1891 , p7_a21 out nocopy JTF_VARCHAR2_TABLE_500
1892 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_500
1893 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_500
1894 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_500
1895 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_500
1896 , p7_a26 out nocopy JTF_VARCHAR2_TABLE_500
1897 , p7_a27 out nocopy JTF_NUMBER_TABLE
1898 , p7_a28 out nocopy JTF_DATE_TABLE
1899 , p7_a29 out nocopy JTF_NUMBER_TABLE
1900 , p7_a30 out nocopy JTF_DATE_TABLE
1901 , p7_a31 out nocopy JTF_NUMBER_TABLE
1902 )
1903
1904 as
1905 ddp_mrbv_tbl okl_mass_rebook_pvt.mrbv_tbl_type;
1906 ddx_mrbv_tbl okl_mass_rebook_pvt.mrbv_tbl_type;
1907 ddindx binary_integer; indx binary_integer;
1908 begin
1909
1910 -- copy data to the local IN or IN-OUT args, if any
1911
1912
1913
1914
1915
1916
1917 okl_mrb_pvt_w.rosetta_table_copy_in_p2(ddp_mrbv_tbl, p6_a0
1918 , p6_a1
1919 , p6_a2
1920 , p6_a3
1921 , p6_a4
1922 , p6_a5
1923 , p6_a6
1924 , p6_a7
1925 , p6_a8
1926 , p6_a9
1927 , p6_a10
1928 , p6_a11
1929 , p6_a12
1930 , p6_a13
1931 , p6_a14
1932 , p6_a15
1933 , p6_a16
1934 , p6_a17
1935 , p6_a18
1936 , p6_a19
1937 , p6_a20
1938 , p6_a21
1939 , p6_a22
1940 , p6_a23
1941 , p6_a24
1942 , p6_a25
1943 , p6_a26
1944 , p6_a27
1945 , p6_a28
1946 , p6_a29
1947 , p6_a30
1948 , p6_a31
1949 );
1950
1951
1952 -- here's the delegated call to the old PL/SQL routine
1953 okl_mass_rebook_pvt.create_mass_rbk_set_values(p_api_version,
1954 p_init_msg_list,
1955 x_return_status,
1956 x_msg_count,
1957 x_msg_data,
1958 p_request_name,
1959 ddp_mrbv_tbl,
1960 ddx_mrbv_tbl);
1961
1962 -- copy data back from the local variables to OUT or IN-OUT args, if any
1963
1964
1965
1966
1967
1968
1969
1970 okl_mrb_pvt_w.rosetta_table_copy_out_p2(ddx_mrbv_tbl, p7_a0
1971 , p7_a1
1972 , p7_a2
1973 , p7_a3
1974 , p7_a4
1975 , p7_a5
1976 , p7_a6
1977 , p7_a7
1978 , p7_a8
1979 , p7_a9
1980 , p7_a10
1981 , p7_a11
1982 , p7_a12
1983 , p7_a13
1984 , p7_a14
1985 , p7_a15
1986 , p7_a16
1987 , p7_a17
1988 , p7_a18
1989 , p7_a19
1990 , p7_a20
1991 , p7_a21
1992 , p7_a22
1993 , p7_a23
1994 , p7_a24
1995 , p7_a25
1996 , p7_a26
1997 , p7_a27
1998 , p7_a28
1999 , p7_a29
2000 , p7_a30
2001 , p7_a31
2002 );
2003 end;
2004
2005 end okl_mass_rebook_pvt_w;